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

1Password 6.6.1 - Powerful password mana...
1Password is a password manager that uniquely brings you both security and convenience. It is the only program that provides anti-phishing protection and goes beyond password management by adding Web... Read more
Safari Technology Preview 10.2 - The new...
Safari Technology Preview contains the most recent additions and improvements to WebKit and the latest advances in Safari web technologies. And once installed, you will receive notifications of... Read more
Eye Candy 7.2.0.50 - 30 professional Pho...
Eye Candy renders realistic effects that are difficult or impossible to achieve in Photoshop alone, such as Fire, Chrome, and the new Lightning. Effects like Animal Fur, Smoke, and Reptile Skin are... Read more
Microsoft Office 2016 15.31 - Popular pr...
Microsoft Office 2016 - Unmistakably Office, designed for Mac. The new versions of Word, Excel, PowerPoint, Outlook and OneNote provide the best of both worlds for Mac users - the familiar Office... Read more
Spotify 1.0.49.125. - Stream music, crea...
Spotify is a streaming music service that gives you on-demand access to millions of songs. Whether you like driving rock, silky R&B, or grandiose classical music, Spotify's massive catalogue puts... Read more
QuickBooks 16.1.12.1564 R13 - Financial...
QuickBooks helps you manage your business easily and efficiently. Organize your finances all in one place, track money going in and out of your business, and spot areas where you can save. Built for... Read more
Dash 4.0.1 - Instant search and offline...
Dash is an API documentation browser and code snippet manager. Dash helps you store snippets of code, as well as instantly search and browse documentation for almost any API you might use (for a full... Read more
Tinderbox 7.0.0 - Store and organize you...
Tinderbox is a personal content management assistant. It stores your notes, ideas, and plans. It can help you organize and understand them. And Tinderbox helps you share ideas through Web journals... Read more
Apple Remote Desktop Client 3.9 - Client...
Apple Remote Desktop Client is the best way to manage the Mac computers on your network. Distribute software, provide real-time online help to end users, create detailed software and hardware reports... Read more
Sparkle 2.1.1 - $79.99
Sparkle will change your mind if you thought building websites wasn't for you. Sparkle is the intuitive site builder that lets you create sites for your online portfolio, team or band pages, or... Read more

Tavern Guardians (Games)
Tavern Guardians 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Tavern Guardians is a Hack-and-Slash action game played in the style of a match-three. You can experience high pace action... | Read more »
Slay your way to glory in idle RPG Endle...
It’s a golden age for idle games on the mobile market, and those addictive little clickers have a new best friend. South Korean developer Ekkorr released Endless Frontier last year, and players have been idling away the hours in the company of its... | Read more »
Tiny Striker: World Football Guide - How...
| Read more »
Good news everyone! Futurama: Worlds of...
Futurama is finding a new home on mobile in TinyCo and Fox Interactive's new game, Futurama: Worlds of Tomorrow. They're really doing it up, bringing on board Futurama creator Matt Groening along with the original cast and writers. TinyCo wants... | Read more »
MUL.MASH.TAB.BA.GAL.GAL (Games)
MUL.MASH.TAB.BA.GAL.GAL 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: ENDLESS UPGRADES. CONSTANT DANGER. ANCIENT WISDOM. BOUNCY BALLS. Launch Sale, 40% OFF for a very limited time!!! MUL.... | Read more »
Dungeon Rushers (Games)
Dungeon Rushers 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Dungeon Rushers is a 2D tactical RPG combining dungeon crawler’s gameplay and turn based fights. Manage your team, loot dusty... | Read more »
Blasty Bubs is a colorful Pinball and Br...
QuickByte Games has another arcade treat in the works -- this time it's a mishmash of brick breaking and Pinball mechanics. It's called Blasty Bubs, and it's a top down brickbreaker that has you slinging balls around a board. [Read more] | Read more »
Corsola and Heracross are the new region...
Generation 2 finally launched in Pokémon GO, unleashing a brand new batch of Pokémon into the wild. Even before the update went live people were speculating on how to catch elusive Pokémon like the legendary "dogs", Unknown, and whether or not... | Read more »
The Warlock of Firetop Mountain (Games)
The Warlock of Firetop Mountain 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: An epic adventure through a mysterious mountain filled with monsters, magic and mayhem! “...it looks downright... | Read more »
Fantasy MMORPG MU Origin’s receives a hu...
Developer Webzen are looking to take their highly popular fantasy battler MU Origin to the next level this month, with its most ambitious overhaul yet. The latest update introduces the long sought after Server Arena, new treasure dungeons, and much... | Read more »

Price Scanner via MacPrices.net

Apple restocks refurbished 11-inch MacBook Ai...
Apple has Certified Refurbished 11″ MacBook Airs (the latest models recently discontinued by Apple), available for up to $170 off original MSRP. An Apple one-year warranty is included with each... Read more
Apple Park Opens to Employees in April With T...
Apple has announced that Apple Park, the company’s new 175-acre campus, will be ready for employees to begin occupying in April. The process of moving more than 12,000 people will take over six... Read more
Manhattan Neighbors for Safer Telecommunicati...
A new education and advocacy group focused on cell phone and wireless risks, Manhattan Neighbors for Safer Telecommunications, launched today at http://www.ManhattanNeighbors.org. Manhattan... Read more
Portable Dual DisplayPort Monitor Dock Enable...
IOGEAR has announced the launch of its USB-C Dual DisplayPort Monitor Portable Dock (GUC3CMST). The dock enables users to easily connect two DisplayPort monitors to a USB-C or Thunderbolt 3 laptop to... Read more
13-inch 2.7GHz Retina MacBook Pro on sale for...
Amazon.com has restocked the 13″ 2.7GHz/128GB Retina MacBook Pro (MF839LL/A) for $200 off MSRP including free shipping: - 13″ 2.7GHz/128GB Retina MacBook Pro: $1099 $200 off MSRP This model tends to... Read more
Apple’s New iPad Ads Don’t Address Pro Users’...
Apple launched a new tranche of iPad Pro TV ads last week addressing actual queries and challenges from the Twitterverse, albeit using actors for the visuals. That’s great. As an iPad fan and heavy... Read more
Free Verbum Catholic Bible Study App For iOS
The Verbum mobile app runs on Logos’ powerful Bible software and is an advanced resource for mobile Catholic study. The Verbum app surrounds the Bible with the Tradition. Verbum comes with 15 free... Read more
27-inch Apple iMacs on sale for up to $200 of...
B&H Photo has 27″ Apple iMacs on sale for up to $200 off MSRP, each including free shipping plus NY sales tax only: - 27″ 3.3GHz iMac 5K: $2099.99 $200 off MSRP - 27″ 3.2GHz/1TB Fusion iMac 5K: $... Read more
15-inch 2.2GHz Retina MacBook Pro on sale for...
Amazon has 2015 15″ 2.2GHz Retina MacBook Pros (MJLQ2LL/A) available for $1849.99 including free shipping. Apple charges $1999 for this model, so Amazon’s price is represents a $150 savings. Read more
Apple refurbished iPad Air 2s available start...
Apple has Certified Refurbished iPad Air 2 WiFis available for starting at $319 including free shipping. A standard Apple one-year warranty is included: - 16GB iPad Air 2 WiFi: $319 $60 off original... Read more

Jobs Board

Manager *Apple* Systems Administration - Pu...
Req ID 3315BR Position Title Manager, Apple Systems Administration Job Description The Manager of Apple Systems Administration oversees the administration and Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Manager *Apple* Systems Administration - Pu...
Req ID 3315BR Position Title Manager, Apple Systems Administration Job Description The Manager of Apple Systems Administration oversees the administration and Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Manager *Apple* Systems Administration - Pu...
Req ID 3315BR Position Title Manager, Apple Systems Administration Job Description The Manager of Apple Systems Administration oversees the administration and Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.