TweetFollow Us on Twitter

XCMD CookBook
Volume Number:4
Issue Number:6
Column Tag:

XCMD CookBook

By Donald Koscheka, Apple Computer, Inc.

[Donald Koscheka is a Software Engineer employed by Apple Computer Inc. He has written some very important development XCMDs which you will hear about soon. -HyperEd]

Introduction to XCMD’s

If you’ve used Hypercard and its programming language HyperTalk for any length of time, you’ve no doubt discovered some of the things that you can’t do with Hypercard. Perhaps you’re writing a forms generator in HyperTalk and you want to be able to print customized reports. The designers of Hypercard knew that their product would have to be a lot of things to a lot of people and it would be nearly impossible to provide every possible feature in the language. They did, however, provide us with the capability of customizing HyperCard and HyperTalk directly. To paraphrase Abraham Lincoln, “You can fool some of the people all of the time, or all of the people some of the time, but to fool all of the people all of the time, write an XCMD”.

As a programming language, HyperTalk is highly extensible; you can add your own commands and functions to the language very easily. These extensions are known as eXternal CoMmanDs ( XCMDs) and eXternal FunCtioNs (XFCNs). The capital letters, ie. case, are significant as I’ll discuss later. XCMDs and XFCNs are identical at the coding level, so I’ll refer to both as XCMDs. The determination of whether a command will be an XCMD or an XFCN is made at link-time.

Creating an XCMD is a straightforward process. First, you write the XCMD using the language of your choice (I’ll show examples in both “C” and Pascal). Next, you compile and link the XCMD as a resource and then you add it to the resource fork of the stack that you want to call it from, the home stack or even Hypercard itself.

Where you put the XCMD is significant. When Hypercard encounters a command that it does not recognize, it first checks the current object (button or field) to see if it contains any handlers for that command. If no handler is found, the search continues in the following order: card, background, stack, home stack, HyperCard. If after looking in all the places that it could expect to find a handler no handler turns up, Hypercard then searches its own resource fork for any external commands that can handle the command. It identifies the appropriate command by name. Note what this hiearchy implies. If you want your XCMD to be globally visible to all stacks, put the XCMD in HyperCard’s resource fork or Home Card. There is a tradeoff, though. If you want the stack that uses the XCMD to be “portable”, you’ll need to put the XCMD in that stack. There is no conflict of interest here, you can put the XCMD in both places. [Use Rescopy , via scripts, to allow the user the option of installing it into the Home Stack. -HyperEd] Hypercard stops searching as soon as it finds a copy of the command. If it finds a copy in your stack, it’ll stop the search there. If you call the XCMD from another stack that does not contain the XCMD, then it’ll go all the way back to the Home Stack or Hypercard to search for the command.

Now that you have an idea of where to place the XCMD, let’s take a look at how they are created. All XCMDs and XFCNs interface to Hypercard in a standard and straightforward way. When an XCMD is invoked, Hypercard will pass it a parameter block that contains, among other things, the number of parameters and handles to the parameters. For argument’s sake, let’s see how the following XCMD would be called:

Pizza “Cheese”, “Pepperoni”, “Anchovies”

When this XCMD is called, Hypercard will pass a record, referred to as the Parameter Block, to the XCMD. The first argument in the parameter block will be the number of parameters passed; in this case three, one for each item in the argument list. Each parameter is passed as a handle to a zero-terminated text string. Parameter 1 will be a handle to the string “Cheese\0”, where the the ‘\0’ means the character whose ASCII value is 0. “C” programmers will recognize this format as a standard string definition in “C”. Pascal programmers often refer to this format as a C-String. The actual structure of a parameter block (in Pascal) is:

TYPE

  XCmdPtr = ^XCmdBlock;
  XCmdBlock =
    RECORD
      paramCount : INTEGER;     
      params: ARRAY[1..16] OF Handle;
      returnValue: Handle;      
      passFlag : BOOLEAN; 
      
      entryPoint :  ProcPtr;  { to call back to HyperCard }
      request    :  INTEGER;  
      result:  INTEGER;  
      inArgs:  ARRAY[1..8] OF LongInt;
      outArgs    :  ARRAY[1..4] OF LongInt;
    END;

Let’s examine this record in more detail. First, we define a pointer to the record, called an XCmdPtr. Hypercard passes a pointer to the record so you’ll need to be comfortable with pointers to work with XCMDs.

The first field in the record, paramCount , is a count of the number of parameters that have been passed to the XCMD. This is a number between 1 and 16, which is the maximum size of the parameter array, params, in field 2. Params is an array of handles which implies that the fundamental element in the array is a signed byte.

Field 3 in the record, returnValue, is a handle to the data that you want to return to Hypercard on completion of the XCMD. You create the handle and pass it back to hypercard with the assignment:

 paramPtr^.returnValue := Handle_You_Created;

Herein lies the most important difference between XCMDs and XFCNs. ReturnValue os places in the global container, result, when returning from an XCMD and by value when returning from an XFCN. The following illustrates the mechanics:

 XCMD: Pizza “cheese”, “pepperoni”, “anchovies”
 Put the result

 XFCN: Put Pizza (“cheese”, “pepperoni”, “anchovies”)

XCMDs, like any other command in hypercard, take their parameters on the same line as the command itself. XFCNs, like any other function in Hypercard, take their parameters in parentheses and return a value. This is the most important difference between XCMDs and XFCNs. You make the decision at link-time as to whether a code resource will be an XCMD or an XFCN. Please note, the code is identical for both XCMDs and XFCNs. Hypercard re-vectors ReturnValue for you depending on whether you invoked an XCMD or an XFCN.

The next field, passFlag, should be set to TRUE if you want Hypercard to pass the command on in the hierarchy after invoking the XCMD. Most of the time, you won’t concern yourself with this field.

The next five fields in the parameter block are used for making callbacks to Hypercard [the subject of the next article -DK]. Callbacks allow you to invoke some hypercard commands from within an XCMD, quite a useful feature. An example of a callback is GetFieldByNum which will return a handle to the data in a field on the current card. This is analogous to “Get card field 1” in HyperTalk.

EntryPoint is set by Hypercard on entry to the XCMD and is used as a jumping off point for invoking callbacks. In effect, Hypercard will execute a jump instruction to EntryPoint for all callbacks. But before executing the jump instruction, Hypercard will place an integer value into the Request field. This integer tells Hypercard which callback to execute. The code at entryPoint will vector to the appropriate routine based on the value in Request.

Upon returning from a callback, Hypercard will have set the value of the Result field to some integer value to tell you how things went in the callback. A value of 0 indicates that no error occurred in the callback, 1 indicates that the callback failed for some reason or other and 2 indicates that the callback is not implemented.

The next to last field in the record, inArgs, is an array of up to eight input arguments to the callback. Although the arguments are passed as longInts (long in “C”), they may contain anything. Generally speaking, the Hypercard callback glue will handle type-casting for you.

Finally, callbacks can return up to 4 parameters in OutArgs. These parameters will be set by the callback and available to you from the calling XCMD. Callbacks are glued to the XCMD using standard Pascal interfaces so they’re pretty easy to get along with.

Callbacks are a useful and powerful tool available to the XCMD programmer. Currently, Hypercard includes about thirty callbacks and I’ll discuss each one in more detail next month.

The foregoing discussion implies that you’ll mostly concern yourself with the first four fields in the record and let Hypercard manage the callback parameters. In practice, you’ll mostly be concerned with paramCount, params and returnValue.

For the sake of our “C” readership, here’s the definition of the parameter block as a “C” structure:

typedef struct XCmdBlock {
 short  paramCount;     
      Handle     params[16];
   Handle   returnValue;      
   BooleanpassFlag; 
      
      char  *entryPoint; 
   shortrequest;  
      short result;  
      longinArgs[8];
   long outArgs[4];
   } XCmdBlock, *XCmdBlockPtr;

All Input and Output to an XCMD is passed through the parameter block. Armed with this information, here is a simple XCMD that does absolutely nothing (note: I use MPW Pascal and “C” in my examples).

{******************************************* *}
{* File: SimpleXCMD.p*}
{* *}
{* Shell for XCMDs and XFCNs in MPW Pascal   *}
{* --------------------------------------    *}
{* In:  paramPtr = pointer to the XCMD *}
{* Parameter Block *}
{* *}
{* --------------------------------------    *}
{* © 1988, Donald Koscheka*}
{* --------------------------------------    *}
{******************************************* *}

(******************************
 BUILD SEQUENCE
pascal SimpleXCMD.p
link -m ENTRYPOINT -rt XCMD=6555 
 -sn Main=SimpleXCMD 
 SimpleXCMD.p.o 
 “{Libraries}”Interface.o 
 “{PLibraries}”Paslib.o 
 -o “{xcmds}”your_stack_here

******************************)

{$S SimpleXCMD }

UNIT Donald_Koscheka; 

INTERFACE

USES
 MemTypes, QuickDraw, OSIntf, ToolIntf,
  PackIntf, HyperXCmd;


PROCEDURE EntryPoint( paramPtr: XCmdPtr);

IMPLEMENTATION

{$R-}   
TYPE
 Str31 = String[31]; 

PROCEDURE SimpleXCMD(paramPtr: XCmdPtr); FORWARD;

{--------------EntryPoint----------------}
PROCEDURE EntryPoint(paramPtr: XCmdPtr);
 BEGIN
 SimpleXCMD(paramPtr);
 END;

{----------SimpleXCMD------------------}
PROCEDURE SimpleXCMD(paramPtr: XCmdPtr);
VAR
 i : INTEGER;
 
{$I XCmdGlue.inc }

 BEGIN
 WITH paramPtr^ DO
 BEGIN
   returnValue := NIL;
 END;
 END; 

END.

The Build sequence for this file is included in the header for the sake of convenience. After the compilation, we need to link the code into a resource and add it to some stack. First, let’s take a closer look at the link options. The “-m ENTRYPOINT” option tells the linker that the first line of executable code in the resource is at the label ENTRYPOINT. Next, the “-rt XCMD=6555” option tells the linker that this file whould be written as a resource of type “XCMD” and should be assigned a resource ID of 6555. Because we are writing the resource directly out to the stack named “your_stack_here”, any XCMD with ID 6555 will be overwritten by this link. To link the code as an XFCN, use “-rt XFCN=6555”. That’s about the only difference between XCMDs and XFCNs!

You must remember to note that resource types are case sensitive. Telling the linker to set the resource type to “xcmd” will work fine, only Hypercard won’t recognize the resource as an XCMD. As far as numbering XCMDs goes, I don’t know of any rational system that’s been implemented yet. Follow the number guidelines provided in Inside Macintosh, Chapter five.

The option “-sn Main=SimpleXCMD” tells the linker to change the segment name of the main segment from “Main” to “SimpleXCMD”. “SimpleXCMD.p.o” is the name of the input file, the library includes follow. The last line “-o your_stack_here” instructs the linker to add this XCMD to the resource fork of the stack whose name is “your_stack_here”. Remember to include pathnames in your build.

The build sequence for XCMDs is pretty much a boiler-plate. You’ll change type from XCMD to XFCN, the ID to whatever you want, and the input and output lines. About the most important addition you might make to the build is to add libraries as needed.

The XCMD itself follows the standard layout for a Pascal Unit. The unit name is inconsequential to us. A lot of programmers use “UNIT dummyUnit” to remind themselves of that . I use my name instead.

The interface portion is straightforward. Tell the compiler what files you want to include and declare the interface to your routine. Note that we use “EntryPoint” and not “SimpleXCMD” as the main entrypoint for this routine. I’ll leave it as an exercise to the student to figure what that’s all about.

Note the use of the {$R-} directive in the implementation section. This turns off range checking and results in more efficient code. Although we don’t use the Str31 type declared in the TYPE statement, it is needed by the callbacks so we MUST include it here.

Procedure SimpleXCMD contains the actual code for the XCMD. Note that it takes exactly one parameter, a pointer to an XCmdBlock. Although the VAR statement is not used in the body of the code, I included it here so that those of you that are less fluid in Pascal can clearly see that the {$I XCmdGlue.inc} directive follows the CONST, TYPE and VAR declarations within SimpleXCMD. XCMDGlue contains the glue routines for the callbacks. They are simple compiled with the rest of the code. Because of the scoping of procedures feature of Pascal, the glue routines will be able to access paramPtr directly, you won;t need to pass it to each routine in turn.

Finally, the body of the program. Here we simply set the returnValue to NIL and exit. If you already have code that you want to implement in an XCMD or XFCN, replace the body of SimpleXCMD with the body of your routine and off you go!

PROCEDURE SimpleXCMD(paramPtr: XCmdPtr);
VAR
 i : INTEGER;
 
{$I XCmdGlue.inc }
BEGIN
 WITH paramPtr^ DO
 BEGIN
   returnValue := NIL;
 END;
END; 

XCMDs in “C” are different enough in implementation to bear some discussion. Here is SimpleXCMD in “C”:

/***************************************     *\
*file:  SimpleXCMD.c *
** 
*  XCMD shell in MPW “C”  *
**
*C -q2 SimpleXCMD.c*
*link -sn Main=SimpleXCMD  *
*-sn STDIO=SimpleXCMD    *
*-sn INTENV=SimpleXCMD -rt XCMD=301 *
* SimpleXCMD.c.o -o your_stack_here  *
**
*If you use parts of the “C”  *
*Library, use this *
*link instead:   *
**
*link -sn Main=SimpleXCMD -sn     *
*STDIO=SimpleXCMD *
* -sn INTENV=SimpleXCMD -rt XCMD=301*
* -m SIMPLEXCMD SimpleXCMD.c.o    *
*“{CLibraries}”CRuntime.o  *
*“{CLibraries}”CInterface.o  *
*-o your_stack_here*
**
* ------------------------------------ *
* By: Donald Koscheka*
* Date: 21-Sept-87 *
* ©Copyright 1987, Donald Koscheka *
**
* ------------------------------------ *
\**********************************/

#include<Types.h>
#include<OSUtils.h>
#include<Memory.h>
#include<Files.h>
#include<Resources.h>
#include “HyperXCmd.h”


pascal void SimpleXCMD( paramPtr )
 XCmdBlockPtr  paramPtr;
/*******************************
* SimpleXCMD()
*******************************/
{
 paramPtr->returnValue = nil;
}

#include <XCmdGlue.inc.c>

SimpleXCMD() is defined as a Pascal Void to tell the “C” compiler to push the parameters “Pascal Style”. This means that parameters are pushed from left to right rather than from right to left. Also, we need to inform “C” that this function does not return a value, so we qualify the type with “void”. Otherwise, “C” will leave room on the stack for an integer-wide return value.

An important difference between the two languages is that “C” does not allow scoping of procedures. The callback glue routines are not local to SimpleXCMD as is the case in Pascal. For this reason, when calling glue routines from “C”, the first parameter passed must be a pointer to the XCmdBlock.

When you start programming XCMDs, you may encounter a seemingly nebulous link error, “No Data Initialization”. The linker is telling you that there is no global memory to initialize for the XCMD. XCMDs are code resources, they are designed to be called “subroutine” fashion from Hypercard and as such do not have access to their own globals. Put another way, Hypercard owns the global pool from which XCMDs may draw. This means that the only kind of data that can be declared in an XCMD is local data, also known as automatics. Automatics get created on the stack and exist only for the life of the XCMD. When the XCMD returns to Hypercard, the local memory pool goes away.

You are most likely to encounter a problem with this when using strings in “C”. Consider the following code fragment:

 char *myStr;

   myStr = “Colleen”;

In this code, I declare a string pointer called myStr. I then point this string pointer at the properly formed string ‘Colleen’. This code will compile correctly but the linker will not be able to work with it. When “C” compiles strings in-line, it actually puts the string into the global pool and points myStr at the string in global memory. Since the XCMD is assembled without global memory, the linker won’t know what to do with this code. Pascal does not suffer this fate because it does not put the string into global memory. The following code will compile and link just fine in Pascal:

 myStr  : StrPtr;

 myStr  := ‘Margaret’;

The reason this works in Pascal and not in “C” is that Pascal tacks the string “Margaret” onto the end of the code resource, rather than put the string into global memory.

The upshot of this diatribe is don’t declare global variables from XCMDs. If you need to use strings in “C”, you’ll need to hard-code the assignments:

 myStr[0] = ‘C’;
 myStr[1] = ‘o’;
 myStr[2] = ‘l’;
 myStr[3] = ‘l’;
 myStr[4] = ‘e’;
 myStr[5] = ‘e’;
 myStr[6] = ‘n’;
 myStr[7]= ‘\0’

If your going to be using a lot of strings, I would suggest that you either put them in resources (yuck!) or use Pascal instead.

This article presented the basics of XCMD programming and describes how to interface your code to Hypercard. Next month I’ll introduce the callbacks and give some examples how they can make XCMD programming easier and more fun. If you’re already an experienced Macintosh programmer, the above is information enough to get you started on XCMDs. If you’re just getting started, this article should be just enough to help you get started, without being too much, to get you lost.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

The Slaughter: Act One (Games)
The Slaughter: Act One 1.0.323 Device: iOS Universal Category: Games Price: $3.99, Version: 1.0.323 (iTunes) Description: “The game mixes realism and surrealism to create a story that can cause just as much laughter as fear. A-” -... | Read more »
NEO TURF MASTERS (Games)
NEO TURF MASTERS 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: NEOGEO’s legendary golf game is back, in a brand-new mobile version with touch controls! NEO TURF MASTERS (also known as “BIG... | Read more »
How to send money to a friend with the F...
Facebook is already a lot of things to a lot of people. It's a social network, sure, but also a tool for catologing memories, chatting with friends, and much more. [Read more] | Read more »
Pocket Arcade Story (Games)
Pocket Arcade Story 1.00 Device: iOS Universal Category: Games Price: $4.99, Version: 1.00 (iTunes) Description: Here comes a new challenger: it's the arcade simulation game you've been waiting for! Build your very own gaming... | Read more »
How to get coins faster in Rodeo Stamped...
There comes a time in a cowboy or cowgirl's life when all the riding and lassoing skills in the world aren't enough. You're going to need some cold, hard cash to keep your sky zoo expanding in Rodeo Stampede. [Read more] | Read more »
How to out-do Cam Newton in Can You Dab?
The thing about dance crazes is that you're never really sure when they've run their course. Take the Dab, for instance. Propelled by its adoption as the touchdown celebration of choice for Carolina Panthers quarterback Cam Newton, the Dab seemed... | Read more »
Artik Games releases Splashy Cats for An...
Splashy Cats had us hooked from the title alone, and when we found out the game was literally just zig-zagging one of our favourite pop-culture references, guised as a playable cat character, down a river – our appetites were whetted to say the... | Read more »
Battle Cars (Games)
Battle Cars 1.1 Device: iOS Universal Category: Games Price: $1.99, Version: 1.1 (iTunes) Description: Welcome to the world of Battle Cars. Battle Cars is a classic arcade top-down racing game with fast mini cars and funny weapons to... | Read more »
How to get started with live.ly
One could be forgiven for thinking that there are already plenty of streaming video apps out there. It's just that the App Store charts would insist that you're mistaken. [Read more] | Read more »
Rodeo Stampede: Guide to all Savannah an...
A "gotta catch 'em all" joke seems appropriate here, even though we're talking animals in Rodeo Stampede and not pocket monsters. By now you've probably had plenty of rides, tamed some animals and built yourself a pretty nice zoo | Read more »

Price Scanner via MacPrices.net

Why Use Indie Opera And Vivaldi Instead Of Sa...
For many years my web browser workhorses were various permutations and spinoffs of the Netscape/Mozilla/Firefox Open Source platform, and the Norwegian indie browser Opera, which I took a shine to... Read more
Western Digital Launches Worlds Fastest 256GB...
At the Mobile World Congress in Shanghai Western Digital Corporation this week introduced a new suite of 256 gigabyte (GB) microSD cards, which includes the new 256GB SanDisk Extreme microSDXC UHS-I... Read more
KeyCue 8.1 Integrates With Typinator To Displ...
Ergonis Software has released KeyCue 8.1, a new version of the company’s keyboard shortcut cheat sheet. KeyCue 8 introduced a new way to define a wide variety of triggers, which can be used to... Read more
Save up to $600 with Apple refurbished Mac Pr...
Apple has Certified Refurbished Mac Pros available for up to $600 off the cost of new models. An Apple one-year warranty is included with each Mac Pro, and shipping is free. The following... Read more
21-inch 2.8GHz iMac on sale for $1199, save $...
Amazon has the 21″ 2.8GHz iMac (model #MK442LL/A) on sale for $1199.99 including free shipping. Their price is $100 off MSRP, and it’s the lowest price available for this model. Read more
13-inch 2.5GHz MacBook Pro (Apple refurbished...
Apple has Certified Refurbished 13″ 2.5GHz MacBook Pros available for $829, or $270 off the cost of new models. Apple’s one-year warranty is standard, and shipping is free: - 13″ 2.5GHz MacBook Pros... Read more
MacBook Airs on sale for up to $50-$100 off M...
B&H Photo has 13″ and 11″ MacBook Airs on sale for up to $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 11″ 1.6GHz/128GB MacBook Air: $849 $50 off list price - 11″ 1.... Read more
Brexit Vote Result Forecast To Slash UK 2016...
Uncertainty and economic volatility can be expected to increase over the next nine months, as the Brexit and concerns over the future of the EU hit IT investment, say Canalys market analysts, with... Read more
13-inch 256GB MacBook Air on sale for $1149,...
Amazon has the 2016 13″ 1.6GHz/256GB MacBook Air (model MMGG2LL/A) on sale for $1149.99 including free shipping. Their price is also $50 off MSRP. Read more
Haven App Launches New Age Of Wirless 911 Eme...
Haven from RapidSOS represents a transformation in access to emergency services from a phone call solely dependent on voice to a robust data connection for voice, text, medical/demographic data.... Read more

Jobs Board

*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
*Apple* iPhone 6s and New Products Tester Ne...
…we therefore look forward to put out products to quality test for durability. Apple leads the digital music revolution with its iPods and iTunes online store, Read more
*Apple* iPhone 6s and New Products Tester Ne...
…we therefore look forward to put out products to quality test for durability. Apple leads the digital music revolution with its iPods and iTunes online store, Read more
*Apple* iPhone 6s and New Products Tester Ne...
…we therefore look forward to put out products to quality test for durability. Apple leads the digital music revolution with its iPods and iTunes online store, Read more
*Apple* Retail - Multiple Positions, Willow...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform 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.