TweetFollow Us on Twitter

Jan 99 Tips

Volume Number: 15 (1999)
Issue Number: 1
Column Tag: Tips & Tidbits

Jan 99 Tips

by Jeff Clites <online@mactech.com>

Autocompletion in MPW

One very useful feature of many Unix shells is that you only need to type the beginning of a command, hit tab, and it fills in the complete command. I was really missing this on MPW, especially with long command names such as UnobsoleteNameRevisions.

So here's a script that attempts to provide this feature in MPW, as well as possible. Bind it to Command-Tab (or whatever you want), then type "nam", hit Command-Tab, and watch it fill in "NameRevisions" for you.

Note: if nothing is selected, it will try to complete the last word on the current line. If you want to complete a word in the middle of a line, you'll have to select it.

If ":" is in your {Commands} variable, it will also consider all files in the current directory, as I have found no way to figure out whether a file is an MPW script or not. Actually, this may even be useful.

# get the current selection
Set CurrentSelection "'Catenate "{Active}".§'"

If "{CurrentSelection}" == ""
   # select the entire line we're on
   Find !0 "{Active}"
   # put the insertion point at the beginning of this line
   Find Δ§:Δ§ "{Active}"
   # remember line number, so we can restore it later
   Set CurrentLine 'Position -l "{Active}"'

   # select the last word on this line
   Find /[¬ ∂t∂n]+[ ∂t]*∞/ "{Active}" || (Beep; Exit 0)

   # if it isn't really on our current line, exit
   If 'Position -l "{Active}"' != {CurrentLine}
      Find {CurrentLine} "{Active}"
      Beep
      Exit 0
   End

   Set CurrentSelection "'Catenate "{Active}".§'"
   # strip spaces from the end, if any
   If "{CurrentSelection}" =~ /([¬ ∂t]+)®1[ ∂t]*/
      Set CurrentSelection "{®1}"
   End

   # can this happen at this point?
   If "{CurrentSelection}" == ""
      Beep
      Exit 0
   End
End

# a list of matching command names
Set CommandList ""
# the number of matches found
Set Matches 0

# first see if it's one of the built-in commands
# (we really have to list them all here, sigh...)
For i In ∂
      AddMenu AddPane Adjust Alert Alias Align AuthorInfo ∂
      Beep Begin Break Browser Catenate CheckIn CheckOut ∂
      CheckOutDir Clear Close Confirm Continue Copy Cut Date ∂
      Delete DeleteMenu DeleteNames DeletePane ∂
      DeleteRevisions Directory Duplicate ∂
      DuplicateNameRevisions Echo Eject Equal Erase Evaluate ∂
      Execute Exists Exit Export Files Find Flush ∂
      FlushAllVolumes For Format Help HideWindows If ∂
      LockNameRevisions Loop Mark Markers ModifyReadOnly ∂
      Monitors Mount MountProject Move MoveWindow ∂
      NameRevisions New Newer NewFolder NewProject ∂
      ObsoleteNameRevisions ObsoleteProjectorFile Open ∂
      Parameters Paste PlaySound Position Project ProjectInfo ∂
      Quit Quote Redo Rename RenameProjectorFile Replace ∂
      Request ResolveAlias Revert RotatePanes RotateWindows ∂
      RProj RShell Save SaveOnClose Set SetFile SetKey Shift ∂
      ShowSelection ShowWindows Shutdown SizeWindow ∂
      StackWindows Target TickCount TileWindows Unalias Undo ∂
      Unexport UnlockNameRevisions Unmark Unmount ∂
      UnmountProject UnobsoleteNameRevisions ∂
      UnObsoleteProjectorFile Unset UnsetKey ∂
      UpdateProjectorDatabase Version Volumes Which Windows ∂
      ZoomWindow
   If "{i}" =~ /{CurrentSelection}≈/
      Set CommandList "{CommandList} {i}"
      Evaluate Matches += 1

   End
End

# now process every folder in the current {Commands} list
For Folder in 'Which'
   For File In 'Files "{Folder}" -s'

      # append all matching names to our list of command names
      If "{File}" =~ /{CurrentSelection}≈/
         Set CommandList "{{CommandList}} '{File}'"
         Evaluate Matches += 1

      End
   End
End

# no matching names found
If {Matches} == 0
   Find /∞/ "{Active}"
   Exit 0
End

# if more than one name was found, present a list
# to choose from
If {Matches} > 1
   Set CommandList "'GetListItem -sort -s -c {CommandList}'"
   Exit 0 If "{CommandList}" == ""
Else If "{CommandList}" =~ / (≈)®1/

   # if only one name was found, it has a space at the
   # beginning; strip it.  And remove any unnecessary
   # quoting.
   Set CommandList "'Quote {®1}'"
End

# replace the selection with the found (or chosen) name
Echo -n "{CommandList} " > "{Active}".§
Find §Δ "{Active}"

Stefan Haller
stk@snafu.de

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Latest Forum Discussions

See All

How to evolve Eevee in Pokemon GO
By now, almost everyone should be hip to how to evolve Pokemon in Pokemon GO (and if not, there's a guide for that). Just gather enough candy of the appropriate type, feed them all to the Pokemon, and evolution happens. It's a miracle that would... | Read more »
CSR Racing 2: Guide to all game modes
It might not seem like there are all that many ways to go fast in a straight line, but CSR Racing 2 begs to differ. [Read more] | Read more »
Bulb Boy (Games)
Bulb Boy 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Multi-award winning 2D point & click horror adventure about a boy with a glowing head. | Read more »
5 top free emoji keyboard apps
If we're not at peak emoji yet as a society, it feels like we definitely should be. The emoji concept has gone far beyond what anyone in Japan could have envisioned when the people there unleashed it on an unsuspecting world, but the West has... | Read more »
How to unlock more characters in Disney...
One of the big charms of Disney Emoji Blitz is seeing a wide variety of beloved Disney and Pixar characters transformed into smiling emojis. Even someone like the sneaky Randall from Monsters Inc., who probably never cracked a smile on film, is... | Read more »
Cubway (Games)
Cubway 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Cubway is a journey with an abstract story of lifecycle of rebirth, called Samsara. Guide the cube through the long way full of dangers... | Read more »
Colorcube (Games)
Colorcube 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Turn pieces and blend colours in this minimal yet visually stunning puzzler.Over 200 handcrafted and challenging levels. Features... | Read more »
Doodle God Griddlers (Games)
Doodle God Griddlers 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: | Read more »
Crusader Kings: Chronicles (Games)
Crusader Kings: Chronicles 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Crusader Kings: Chronicles is an interactive text based game that puts you in the shoes of Guy de Rose as you make... | Read more »
Roads of Rome: New Generation (Games)
Roads of Rome: New Generation 1.0 Device: iOS Universal Category: Games Price: $5.99, Version: 1.0 (iTunes) Description: | Read more »

Price Scanner via MacPrices.net

Charitybuzz Set to Auction Unique Apple-1 Com...
Offering an opportunity to own the computer that sparked a revolution, on Monday, July 25, leading online charity auction platform Charitybuzz will auction what is claimed to be the world’s most... Read more
MacBook Airs on sale for up to $150 off MSRP
Amazon has 11″ and 13″ MacBook Airs on sale for up to $150 off MSRP for a limited time. Shipping is free: - 13″ 1.6GHz/128GB MacBook Air (sku MMGF2LL/A): $899.99 $100 off MSRP - 13″ 1.6GHz/256GB... Read more
Apple refurbished 13-inch Retina MacBook Pros...
Apple has Certified Refurbished 13″ Retina MacBook Pros available for up to $270 off the cost of new models. An Apple one-year warranty is included with each model, and shipping is free: - 13″ 2.7GHz... Read more
Apple refurbished 11-inch MacBook Airs availa...
Apple has Certified Refurbished 11″ MacBook Airs (the latest models), available for up to $170 off the cost of new models. An Apple one-year warranty is included with each MacBook, and shipping is... Read more
Apple iPad Pro Sales Far Outpacing Microsoft...
A report on Appleinsider notes that despite Microsoft Surface tablet PC sales growing by 9 percent year over year, revenues remained below $1 billion, and are down sequentially from the $1.1 billion... Read more
DEVONthink 2.9 Features Ultra-fast, Robust, A...
DEVONthink 2.9 allows users to keep databases synchronized using many means of transport. It transmits them between Macs on the local network or stores them in a syncable form on removable hard... Read more
12-inch WiFi Apple iPad Pros on sale for up t...
B&H Photo has 12″ WiFi iPad Pros on sale for up to $100 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 12″ Space Gray 32GB WiFi iPad Pro: $749 $50 off MSRP - 12″... Read more
Apple refurbished 15-inch Retina MacBook Pros...
Apple has Certified Refurbished 2015 15″ Retina MacBook Pros available for up to $380 off the cost of new models. An Apple one-year warranty is included with each model, and shipping is free: - 15″ 2... Read more
Apple refurbished Mac minis available for up...
Apple has Certified Refurbished Mac minis available starting at $419. Apple’s one-year warranty is included with each mini, and shipping is free: - 1.4GHz Mac mini: $419 $80 off MSRP - 2.6GHz Mac... Read more
Apple Mac Sales Finally Colliding With ‘Innov...
After successfully swimming against a tide of diminishing PC sales through 2014 and 2015, it appears that Apple has finally stopped defying gravity and is running up against the unwritten “innovate... Read more

Jobs Board

*Apple* Solutions Consultant - APPLE (United...
Job Summary As an Apple Solutions Consultant, you'll be the link between our future customers and our products. You'll showcase your entrepreneurial spirit as you Read more
*Apple* Professional Learning Specialist - A...
Job Summary The Apple Professional Learning Specialist is a full-time position for one year with Apple in the Phoenix, AZ area. This position requires a high Read more
*Apple* Picker - Apple Hill Orchard (United...
Apple Hill Orchard, Co. Rte. 21,Whitehall, NY 9/7/16-10/228/16. Pick fresh market or processing apples Productivity of 60 boxes and 80 boxes processing fruit per Read more
*Apple* Solutions Consultant - APPLE (United...
Job Summary As an Apple Solutions Consultant, you'll be the link between our future customers and our products. You'll showcase your entrepreneurial spirit as you Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.