TweetFollow Us on Twitter

An Editor to Create DropScript Droplets

Volume Number: 19 (2003)
Issue Number: 5
Column Tag: Programming

An Editor to Create DropScript Droplets

Making the DropScript experience more like the MacPerl experience

by Larry Taylor

A Problem

I love MacPerl. I even wrote an article for MacTech extolling its virtues (Sept. 2000). MacPerl is a Mac port of Perl, initially a UNIX scripting language. Being UNIX based, OS X comes with a Perl implementation and there have been many excellent MacTech articles recently touting its uses. Rich Morin has a whole series (Aug. & Sept. 2002, Jan. 2003); Jeff Clites (April 2000), Paul Ammann (June 2002) and Joe Zobkiw (Sept. 2002) have articles as well. By the time this appears, there will undoubtedly be more. The basic idea is simple. Write a Perl script to do something useful, make the file executable, set it to be opened by the Terminal application and you're ready to go. Double click on the file and the Perl script runs, just like simple droplets in MacPerl.

However many scripts process files or folders. The great thing about a MacPerl droplet is that you can drag the files/folders onto it and get the path names of the dropped collection in the @ARGV array. My article depended on this behavior and I really miss it in OS X.

Then Wilfredo Sanchez wrote a program called DropScript to make droplets. He wrote a nice MacTech article (Aug. 2001) about it. Additional information can be found in the README file in the examples folder that comes with the DropScript distribution. DropScript can make droplets to run Bourne shell scripts, the case Sanchez concentrates on, or Perl scripts, tcl scripts, Python scripts ... . Just set the shebang line correctly and you're off.

My main gripe with DropScript comes from my bad habit of coding quickly. Every time I changed the code I had to re-run the file through DropScript and, if I forgot to delete the old droplet, I was merely informed that the droplet existed and I had to go back, delete the old droplet and run my file through DropScript yet again. Not an appealing scenario! Using MacPerl you just opened the droplet in MacPerl, typed in your new code, saved it and the behavior of the droplet reflected your changes immediately.

A second issue is the end-of-line problem. DropScript expects the scripts dropped on it to have UNIX end-of-lines, \n, whereas it is notoriously easy to be using a file with Mac end-of-lines, \r. TextEdit or BBEdit will save files as 'TEXT' with UNIX eol's once you have such a file and BBEdit will even convert an old Mac file for you, so the issue is not serious as long as you remember to do the switch.

A Solution

Reading Sanchez's article more carefully I realized that these droplets were applications and applications are folders under OS X. You can see the folder by option-clicking the app and selecting Show Package Contents from the contextual menu. Your application opens as a folder which contains a single folder called Contents, and DropScript copies the script to the file /Contents/Resources/script. Experimentation showed that I could edit this file directly and run the new code without going through DropScript again and the eol-problem took care of itself.

Eventually it occurred to me that I could write a droplet-Perl-script to avoid the option-click process, hence Droplet Editor, the focus of this article. Drop a droplet onto Droplet Editor and the script file is opened. Droplet Editor also supports making a new droplet.

First Steps

Since Droplet Editor itself is a droplet, we are going to begin with a minimal version of the code and then use it to finish the whole project. Step one is to acquire DropScript from

www.apple.com/downloads/macosx/unix_open_source/dropscript.html

and put the application somewhere - it needs no installer. I put mine in a folder DropScript inside my Applications folder, but it doesn't have to go there. Make a copy of the program, rename it Droplet Editor and put it anywhere you have read/write permissions. Now option-click Droplet Editor and select Show Package Contents from the contextual menu. Open the Contents folder and then the Resources folder. Open the file script in BBEdit or TextEdit by dragging it to the dock onto one of these apps.

Delete the code currently in the file and enter the following code.

#!/usr/bin/perl
use strict;
#############  Fixed paths #############
my($editor_path)="/Applications/BBEdit/BBEdit.app";
my($emulator_path)="/Contents/Resources/script";
my($aa);
foreach $aa (@ARGV){
  if( $aa=~m/\.app$/ && -f $aa.$emulator_path) {
    my($app)=substr($aa,rindex($aa,"/")+1);
    print"Opening the script for \"$app\".\n";
    $aa=$aa.$emulator_path;
    system("open -a \"$editor_path\" \"$aa\"");
    }
  }

If your editor of choice is located elsewhere, change the $editor_path. Save your text and close the file. Add Droplet Editor to the dock. Track down and open the Console program, usually in /Applications/Utilities/, since messages from droplets show up here. Now drag the Droplet Editor application onto its icon in the dock and your file will pop open in BBEdit or to whatever word processor your $editor_path points. If you drop any other droplet onto Droplet Editor the script for that droplet opens. If you have errors in this initial Droplet Editor script, the error messages show up in the Console window. Reopen the script the hard way and fix the errors. Repeat as needed until the script opens.

Completing the Project

The rest of the project involves adding bells and whistles to this basic code, especially the mechanism to create new droplets. We do this by treating the drop of anything that is not a droplet as a request to make a new droplet, named after the dropped object. If you drop a file or a folder named foo which is not a droplet, you get a new droplet, Dropfoo, in the same folder as the file or inside the folder. This bit of the project is handled by a subroutine make_basic_droplet which takes two arguments, the folder in which to put the new droplet and its name. You can set the extension of the dropped object to specify what sort of script you want as indicated below.

First add the path to your copy of DropScript to the "Fixed paths" list.

my($dropscript_path)="/Applications/DropScript/DropScript.app";
At the bottom of the foreach-loop add the following two elsif's:
  elsif( -d $aa) {
    my($name)=substr($aa,rindex($aa,"/")+1);
    make_basic_droplet($aa,$name);
    }
  elsif( -f $aa) { 
    my($dir)=substr($aa,0,rindex($aa,"/"));
    my($name)=substr($aa,rindex($aa,"/")+1);
    make_basic_droplet($dir,$name);
    }

This finishes the project except for writing the code for the subroutine. Begin with three lines.

sub make_basic_droplet{
my($dir)=shift(@_);
my($name)=shift(@_);

Next we determine the type of script being requested. The next four lines extract the extension of the dropped object and do some checking. If the eventual name of the script would start with a period, which would make the resulting droplet invisible, we bail.

my($script_type);
if( $name=~s/(\.[^\.]*)$//) {$script_type=$1;} 
else {$script_type='.default';}
if($name eq "") {return;}

Next we want to determine if we recognize the extension. We begin by building a list of extensions we recognize. Return to the top of the file and just after the "Fixed paths" add some lines

################# Script types #################
my(%script_type);
$script_type{'.default'}="#!/usr/bin/perl";
$script_type{'.perl'}="#!/usr/bin/perl";
$script_type{'.py'}="#!/usr/bin/python";
$script_type{'.sh'}="#!/bin/sh";
$script_type{'.tcl'}="#!/usr/bin/tclsh";
##################################

The first line is required; the rest are optional. I mostly write Perl scripts so my ".default" script_type is the Perl shebang line, but I have included extensions for Bourne shell scripts, ".sh", Python scripts, ".py" and tcl scripts, ".tcl". If the dropped file/folder has a recognized extension, the shebang line in the new script will be the corresponding %script_type. A non-recognized extension, including no extension, defaults to ".default". You are of course free to add/delete/modify these entries to suit your needs. As an example, if you always use the -w flag in Perl you might want to change the '.perl' entry to $script_type{'.perl'}="#!/usr/bin/perl -w";

Now return to the bottom of the file and add the line

if( !exists($script_type{$script_type})) {$script_type='.default';}

which sets the variable $script_type to either ".default" or the dropped object's extension if we recognize it. Then add ten more lines which construct the droplet name and check that the name isn't in use. If it is we just keep adding a number to the name until we get a name with no conflicts. This prevents accidental destruction of files, but if you never make such mistakes, skip the nine lines beginning "if( -d ...".

my($aa)=$dir."/Drop".$name.".app";
if( -d $aa) {
  print"\n\nThere already is a droplet \"Drop",$name,"\".\n\n";
  my($nextname)=1;
  my($Name)=$name;
  while( -d $aa) {
    $name=$Name.$nextname;
    $aa=$dir."/Drop".$name.".app";$nextname++;
    }
  }

DropScript is expecting a file to copy into the new droplet, so next we produce the required file. If there already is a script file then we read it into the @script array and change any Mac eol's to UNIX ones, avoiding any eol-problems. If there is not already a script file we just set @script to put in a couple of UNIX eol's. Then we write a file, $outfile, which DropScript will copy into the droplet. If you already had a script with a shebang line, you now start with two. We do this because Apple does not always put programs like Perl in their standard places so if you are porting a Perl script, its shebang line is probably wrong. However, it may have flags you will need to copy so it's nice to see what the old one was.

my($outfile)=$dir."/".$name.$script_type;
my(@script);
if( -f $outfile) {
  open(IN,$outfile) or die($!);
  @script=<IN>;
  close(IN);
  my($xx);
  foreach $xx (@script) {$xx=~s/\r/\n/g;}
  }
else {push(@script,"\n\n");}
$outfile=$dir."/".$name.".default";
open(OUT,">$outfile") or die($!);
print OUT $script_type{$script_type},"\n";
print OUT @script;
close(OUT);
undef(@script);

The next step tells DropScript to make the droplet and announces the birth.

system("open -a \"$dropscript_path\"  \"$outfile\"");
print"\n\nCreating new droplet: \"Drop",$name,"\".\n\n";

The final bit of code is designed to overcome a threading problem. DropScript requests that the file $outfile be copied to the file $AA, but the copy may not take place immediately. We want to delete the file $outfile from which we are copying, but we shouldn't do this until after the copy is finished. The empty while-loops just wait until various files/folders are created and the $AA file has non-zero length. Then we wait some more until $AA and $outfile are the same, which we check using the UNIX diff command. The >/dev/null bit is UNIX for "throw away the output of the diff command" (which is a list of the differences). Finally we delete $outfile.

while( ! -d "$aa") {;}
my($AA)=$aa.$emulator_path;
while( ! -f "$AA") { ;}
my($BB)=$aa."/Contents/Info.plist";
while( ! -f "$BB") { ;}
while( -z "$AA") { ;}
while (system("diff \"$AA\" \"$outfile\" > /dev/null")/256 !=0) {;}
unlink($outfile);

We end by opening the script of our new droplet and closing the brace for our subroutine.

system("open -a \"$editor_path\" \"$AA\"");
}

Some Final Remarks

DropScript-droplets have two annoying features. One bit of annoyance is that print commands go to the Console program which may be hidden or may not even be open, so you'll think there was no output. To fix this, add the line

system("open \"/Applications/Utilities/Console.app\"");

up near the start of your scripts. Other programs are also writing to this window so your output may get sandwiched between other output which is why I have the \n\n's around my text to make it easier to find.

The other annoyance is that the working directory of your droplet is root, whereas MacPerl sets it to the folder containing the droplet. If your code has path names beginning with "./" these droplets probably will not work. Other scripts may try to write files to the root directory which often fails and is never where you are looking for them anyway. Calling pwd in your code probably means it will break as well. The solution is to get the folder containing the droplet, and then you can do a chdir. The Perl variable $0 contains the path to the code file, but under OS X this file is several folders deep inside the droplet, which is a folder. The following code snippet yields the folder containing the droplet (without the final "/").

my($app)=$0; 
$app=substr($app,0,rindex($app,"/Contents")); $app=substr($app,0,rindex($app,"/"));

Initially I ended this article with a list of features enjoyed by MacPerl droplets that I would like to see in DropScript droplets. An anonymous editor saw this version and pointed out that many of these features had been carbonized in recent releases of MacPerl. A bit of experimentation revealed that if you have chased down and installed both a version of Perl newer than the Apple-included version, and the carbonized MacPerl modules, then you can have many of the MacPerl features such as Ask, Answer, Pick, etc. in your new droplets. These installations are not for the faint-of-heart, but if you google around you can dig up the necessary files and lots of chit-chat on problems/solutions.

Happy scripting!


Larry Taylor is a research mathematician and professor who spends too much time fooling around with this sort of thing. More stuff at <www.nd.edu/~taylor>.

 
AAPL
$112.65
Apple Inc.
+3.24
MSFT
$47.52
Microsoft Corpora
+1.78
GOOG
$511.10
Google Inc.
+6.21

MacTech Search:
Community Search:

Software Updates via MacUpdate

BBEdit 11.0.2 - Powerful text and HTML e...
BBEdit is the leading professional HTML and text editor for the Mac. Specifically crafted in response to the needs of Web authors and software developers, this award-winning product provides a... Read more
ExpanDrive 4.2.1 - Access cloud storage...
ExpanDrive builds cloud storage in every application, acts just like a USB drive plugged into your Mac. With ExpanDrive, you can securely access any remote file server directly from the Finder or... Read more
Adobe After Effects CC 2014 13.2 - Creat...
After Effects CC 2014 is available as part of Adobe Creative Cloud for as little as $19.99/month (or $9.99/month if you're a previous After Effects customer). After Effects CS6 is still available... Read more
Command-C 1.1.7 - Clipboard sharing tool...
Command-C is a revolutionary app which makes easy to share your clipboard between iOS and OS X using your local WiFi network, even if the app is not currently opened. Copy anything (text, pictures,... Read more
Tidy Up 4.0.2 - Find duplicate files and...
Tidy Up is a complete duplicate finder and disk-tidiness utility. With Tidy Up you can search for duplicate files and packages by the owner application, content, type, creator, extension, time... Read more
Typinator 6.3 - Speedy and reliable text...
Typinator turbo-charges your typing productivity. Type a little. Typinator does the rest. We've all faced projects that require repetitive typing tasks. With Typinator, you can store commonly used... Read more
GraphicConverter 9.5 - Graphics editor w...
GraphicConverter is an all-purpose image-editing program that can import 200 different graphic-based formats, edit the image, and export it to any of 80 available file formats. The high-end editing... Read more
Toast Titanium 12.0.1 - The ultimate med...
Toast Titanium goes way beyond the very basic burning in the Mac OS and iLife software, and sets the standard for burning CDs, DVDs, and now Blu-ray discs on the Mac. Create superior sounding audio... Read more
QuickBooks 2015 16.0.2.1422 R3 - Financi...
Save 20% on QuickBooks Pro for Mac today through this special discount link QuickBooks Pro 2013 helps you manage your business easily and efficiently. Organize your finances all in one place, track... Read more
Remotix 3.0.6 - Access all your computer...
Remotix is a fast and powerful application to easily access multiple Macs (and PCs) from your own Mac. Features: Complete Apple Screen Sharing support - including Mac OS X login, clipboard... Read more

Latest Forum Discussions

See All

Shift - Photo Filters Designed By You (...
Shift - Photo Filters Designed By You 1.0 Device: iOS Universal Category: Photography Price: $.99, Version: 1.0 (iTunes) Description: | Read more »
Elastic Drums (Music)
Elastic Drums 1.0 Device: iOS iPhone Category: Music Price: $3.99, Version: 1.0 (iTunes) Description: *** Introduction price 3,99$ instead of 7,99$ *** Elastic Drums is a music app with 6 channels of synthesized drum sounds, a step... | Read more »
Fireworks Simulator (Games)
Fireworks Simulator 1.0.8 Device: iOS Universal Category: Games Price: $.99, Version: 1.0.8 (iTunes) Description: *** 50% discount – For a short time only *** You can play Fireworks Simulator on these devices: - iPhone 5, 5s, 5c, 6,... | Read more »
The Hit List — Simply Powerful Tasks, To...
The Hit List — Simply Powerful Tasks, To-Dos, Projects, & Reminders 2.0 Device: iOS iPhone Category: Productivity Price: $9.99, Version: 2.0 (iTunes) Description: >> LAUNCH SPECIAL: The Hit List 2 for iPhone is ONLY $9.99... | Read more »
Mahjong Journey Review
Mahjong Journey Review By Jennifer Allen on December 18th, 2014 Our Rating: :: STEADY MATCHINGiPad Only App - Designed for the iPad Aimed at the more laid back gamer, Mahjong Journey isn’t for everyone, but those looking for some... | Read more »
Emoji Type - custom keyboard with predic...
Emoji Type - custom keyboard with predictive emojis 0.4.0 Device: iOS iPhone Category: Utilities Price: $.99, Version: 0.4.0 (iTunes) Description: Emoji Type is custom keyboard for iOS 8 that auto suggests emojis as you type. ABOUT... | Read more »
Game of the Year 2014 – 148Apps Staff Pi...
The end of 2014 is almost here, which can only mean one thing. Okay it can mean a lot of things, but in this specific context it means Game of the Year lists! Which is why the 148Apps staff have all picked their favorites from the past year. And why... | Read more »
UponPixels Review
UponPixels Review By Jennifer Allen on December 18th, 2014 Our Rating: :: CREATIVE TYPOGRAPHYUniversal App - Designed for iPhone and iPad Add cool typography and objects to your photos with the easy to use UponPixels.   | Read more »
The Vikings are Coming! CastleStorm’s Ne...
The Vikings are Coming! CastleStorm’s New Update Adds a Survival Mode Posted by Jessica Fisher on December 18th, 2014 [ permalink ] | Read more »
Duet Display (Productivity)
Duet Display 0.3.3 Device: iOS Universal Category: Productivity Price: $9.99, Version: 0.3.3 (iTunes) Description: Duet Display allows you to use your iPad or iPhone as an extra display. Developed by a team of ex-Apple engineers,... | Read more »

Price Scanner via MacPrices.net

Save up to $400 on MacBooks with Apple Certif...
The Apple Store has Apple Certified Refurbished 2014 MacBook Pros and MacBook Airs available for up to $400 off the cost of new models. An Apple one-year warranty is included with each model, and... Read more
Save up to $300 on Macs, $30 on iPads with Ap...
Purchase a new Mac or iPad at The Apple Store for Education and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free,... Read more
iOS and Android OS Targeted by Man-in-the-Mid...
Cloud services security provider Akamai Technologies, Inc. has released, through the company’s Prolexic Security Engineering & Research Team (PLXsert), a new cybersecurity threat advisory. The... Read more
KMI MIDI K-Board Great Gift for Amateur &...
The K-Board is a MIDI Nano keyboard for music creation for iPad, Android, And computers; the easiest way to make music with iPads & Android tablets, and Mac, Windows, or Linux computers. Ultra-... Read more
Amazon offers 15-inch 2.2GHz Retina MacBook P...
 Amazon.com has the 15″ 2.2GHz Retina MacBook Pro on sale for $1699 including free shipping. Their price is $300 off MSRP. Stock is limited, so act now if you’re interested. Read more
Holiday sales continue: MacBook Pros for up t...
 B&H Photo has new MacBook Pros on sale for up to $300 off MSRP as part of their Holiday pricing. Shipping is free, and B&H charges NY sales tax only: - 15″ 2.2GHz Retina MacBook Pro: $1699... Read more
Holiday sale: Mac minis available for up to $...
 B&H Photo has new 2014 Mac minis on sale for up to $80 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 1.4GHz Mac mini: $459 $40 off MSRP - 2.6GHz Mac mini: $629 $70 off... Read more
Google Search App For iOS Gets A Major Makeov...
Google has given iOS users an early Christmas present with a substantial update of it’s not-very-often-upgraded Google Search app. Google Search has been my go-to tool for Web searches since it was... Read more
ShopKeep Apple Pay And Chip Card Reader Avail...
ShopKeep, a cloud-based technology provider to more than 10,000 small business owners to manage retail shops and restaurants with iPads, has released its new Apple Pay and chip card reader. This... Read more
Holiday sale! 27-inch 5K iMac for $2299, save...
 B&H Photo has the 27″ 3.5GHz 5K iMac in stock today and on sale for $2299 including free shipping plus NY sales tax only. Their price is $200 off MSRP, and it’s the lowest price available for... Read more

Jobs Board

*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
Project Manager / Business Analyst, WW *Appl...
…a senior project manager / business analyst to work within our Worldwide Apple Fulfillment Operations and the Business Process Re-engineering team. This role will work Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.