TweetFollow Us on Twitter

External Functions
Volume Number:6
Issue Number:1
Column Tag:Advanced Mac'ing

Related Info: Resource Manager

External Functions

By Mark Lankton, Boulder, CO

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

XDemo--Easy External Functions

Mark Lankton is a member of the technical staff at the University of Colorado in Boulder, where he spends his time teaching Macintoshes to talk to space-flight instruments. Much of his work involves real-time data acquisition and display.

Why can’t I be like the big kids?

What does HyperCard have that you don’t have? External commands and functions, that’s what. The Great Man and his team didn’t have to anticipate all the zillions of uses their creation would end up supporting. They were bright enough to build in a mechanism that allows (educated) users to add procedures of their own. Functions that weren’t even a gleam in Bill Atkinson’s eye can be programmed by a basement genius and used by HyperCard as if they had always been there.

Is that a neat trick? You bet it is. The huge supply of homegrown XCMDs and XFCNs is ample evidence of the idea’s popularity. HyperCard isn’t alone, either. Other big-time applications (can you say 4th Dimension?) are in on the gag too. The idea of externally-built modular functions is going to be very important in the object-oriented world that everyone assures us is coming.

This article describes a simple mechanism for building that kind of extensibility into your own application. It includes an extremely rudimentary application called XDemo, which has as its sole purpose in life the plotting of a small data set in a window. The interesting part is that if you don’t like the looks of the data, you can write an external function to change it and simply add the function to XDemo. You can write a whole batch of external functions and add them all in; they will all appear in a menu and you can call them any time you want. Your mom can write an external function and you can add that in, too. You don’t have to recompile XDemo; you don’t even need access to the source code. You do need a compiler and linker that will let you create a stand-alone ‘CODE’-like resource. XDemo is written in MPW C3.0, but other C compilers that are capable of creating things like WDEFs and XCMDs should work fine. A copy of ResEdit is handy, too.

How Can This Be?

The whole thing works because of a nice C trick: the pointer-to-function. Function pointers give you a way to actually execute code that lives in arbitrary locations in memory, locations that the linker never dreamed of when it originally built the application. (In fact, you can make the computer attempt to execute whatever it finds at any address you specify. If there is no code there, the results can be, shall we say, surprising. This capability is one of the reasons C has a historical reputation for being “unforgiving”.)

A pointer-to-function allows you to run a function’s code once it’s in memory, but how do you get it into memory in the first place? The answer is to make the executable code of the function into a resource and call on the Resource Manager. The Resource Manager can read that resource into memory and give us a handle to it. Dereference the handle into a pointer and there you go!

At this point some of you will be running for the exits to try this for yourselves. For those who remain, here are the details of how to define the interface between the main application and the external functions, how to build the external functions themselves, and how to load them into a menu at start-up time and use them.

Figure 1- Xdemo with a variety of XTRA functions installed.

Defining an Interface

Giving yourself and your users the capability to make up and use new functions is wonderful, but it only works if everyone agrees on the rules. You have to specify the parameters that will be passed to the external functions and the results that the functions will return. Deciding what kinds of data the external functions will be allowed to work on and what sorts of information need to be passed back and forth is really important, and you need to give it serious thought.

The most flexible way to pass information to an external function is to define a parameter block and pass a pointer to that block to the external function. The parameter block itself can be large, complicated and jam-packed with data (including other pointers and handles) or it can be very simple, depending on the needs of the application. XDemo uses a tiny parameter block called an XTRABlock, which looks like this:

/* 1 */

typedef struct XTRABlock{
 int  dataLength;
 short  *theData;
 }XTRABlock,*XTRABlockPtr,**XTRABlockHandle;

All that is included is the length of a data set, and a pointer to that data set. This means that external functions added to XDemo can do anything they want to the values in a particular bunch of data, but they can’t do much else. If your application needs more flexibility (and it probably will) you need to define a more elaborate parameter block.

You can help yourself considerably during development if you add a few unused fields to the parameter block, thus:

/* 2 */

typedef struct XTRABlock{
 int  dataLength;
 short  *theData;
 long unused1;
 long unused2;
 /*more if you’re really cautious...*/
 }XTRABlock,*XTRABlockPtr,**XTRABlockHandle;

That way when you decide to add features to the block your space requirements won’t change, and any external functions you have already built won’t need to be redone. Since what the application is actually passing is a pointer to the block, you don’t need to worry about stack space even if the size of the block gets really out of hand.

There are three obvious ways to get information from the external function back to the application. The first is to have the function return a result, which can be anything from the simple Boolean used in XDemo to a fiendishly complicated data structure. It’s often best to keep the return value simple; you’re already defining one tricky interface with the parameter block. You can use a Boolean result to let the external function indicate whether it succeeded in whatever it was trying, for instance. The second way is to let the function set or change values in the parameter block, and have the application look at them after the function returns. This is safe, and can be defined any way you want. The third way is to allow the function access (by way of a pointer in the parameter block) to the application’s global data. This is a simple and dangerous method, since the application is exposing its internals to the outside world. XDemo is brave, and uses this third method as well as the Boolean result trick.

The last step in defining the interface is the function prototype for the external functions. Here you can inform the compiler about what to expect when one of these functions is called. XDemo uses this prototype:

/* 3 */

pascal Boolean (*theXTRAProc)(XTRABlock *theBlockPtr);

In English, this means that “theXTRAProc” is a pointer to a function which takes one parameter (theBlockPtr) and returns a Boolean result. The “pascal” keyword means that parameters to the function will be pushed on the stack by the compiler in Pascal order (left-to-right) instead of C order (right-to-left). This is vital for any functions that might end up being used by Toolbox calls. It really isn’t needed in XDemo, but for Macintosh programmers it’s not a bad habit to get into. (For a function that takes only one parameter it is a rather fine distinction anyway.)

Writing the External Functions

Once the interface is clearly defined, you can start writing external functions. Make sure to declare each function using the same prototype form as used above. There are a couple of things to watch out for here. The external functions can’t directly use any of the application’s globals. The external functions can’t use any global or static data of their own, either, which can cause trouble if you want to use text strings. (If you’re using MPW C 3.0 you can use the “-b” compiler option to get around this.) Other than that, what you do in these functions is entirely up to you, subject to the limitations of the interface you have specified. The code for two very simple XDemo external functions is included below.

If you think your functions may need to use resources of their own, you may want to partition the set of legal resource ID numbers in some clever way. If nothing else, you can specify that any resources used by the function should have the same ID as the resource that contains the function itself. When the resources are installed into the application with ResEdit, make sure all the IDs agree. From inside the function itself you can find out the proper ID like this (assuming you have already picked out a name!):

/* 4 */

thisResource = Get1NamedResource(‘XTRA’, “\pThe Name”);
GetResInfo(thisResource,&theID,&theType,theName);

The exact method of compiling and linking these functions will depend on the development system you are using. Here’s how to do it using MPW:

#5

c myXTRAFunction.c
link -sg “My Extra Function” myXTRAFunction.c.o 
 -rt XTRA=128 -m MYXTRAFUNCTION 
 {cLibraries}CRuntime.o 
 {clibraries}cinterface.o 
 {clibraries}CSanelib.o 
 {libraries}interface.o 
 -o myXTRAFunction

This assumes that you have a C source file called myXTRAFunction.c, which contains the code for a function called myXTRAFunction. For those not familiar with MPW, these instructions mean the following:

First, run the C compiler on my source file.

Second, run the linker on the “.o” file produced by the compiler. Link it all into one segment named “My Extra Function”. Give it a resource type of ‘XTRA’ and a resource ID 128. The entry point is the module “MYEXTRAFUNCTION”. (Its name is all upper-case because it was declared to be a Pascal-type function, and Pascal changes everything to upper-case.) Use the CRuntime, CInterface, CSanelib and Interface libraries if you need them for the link. Finally, put the whole works into a file named “myXTRAFunction”.

At this point if you open “myXTRAFunction” using ResEdit you will find an XTRA resource named “My Extra Function”, ID 128, which you can copy into the main application. If you are brave, and keep close tabs on your resource ID numbers, you can link the function directly into the application by specifying “-o XDemo” in the last line of the Link command above. This is fast and clean, but you will demolish any XTRA resource with the same ID that was there before. Be careful when you do this. For your own application you should of course invent your own resource type, and use that instead of ‘XTRA’.

Loading and using the external functions

There are lots of ways to provide access to the external functions; here’s how it’s done in XDemo. The external functions are automatically installed at run-time in a menu called (in a flight of wild imagination) “Externals”. In XDemo’s SetupMenus() function, Count1Resources() is called to see how many XTRA resources there are. (To make life easy for the Menu Manager, XDemo will only use the first 32.) For each XTRA resource, Get1IndResource() returns a handle, which is installed in an array so it can be found easily. This array is 1-based, so that when the functions are installed into the Externals menu the menu item numbers will exactly correspond to the array indices. Calling MoveHHi() and HLock() makes sure that nobody escapes, since it is extremely unfortunate to have a piece of code move while the machine is trying to execute it! In a “real” program you would want to be much more sophisticated about memory management and avoid tying up memory until you really needed to. Finally, GetResInfo() finds the name of the XTRA resource, and AppendMenu() inserts that name into the menu’s item list.

When all this is done, XDemo has an Externals menu consisting of the names of all the external functions that have been attached to it, and an array of handles to those functions. Now, at last, it can really use them. When an item is selected from the Externals menu, XDemo grabs the corresponding handle from the handle array. The handle is already locked, so it is safe to use it. The handle is dereferenced once to obtain a pointer, and the pointer is jammed into theXTRAProc. To satisfy the compiler, both sides of the assignment statement are explicitly cast to type ProcPtr:

/* 6 */

(ProcPtr)theXTRAProc = (ProcPtr)*(XTRAArray[theItem]);

Then, assuming that the proper values are already loaded into an XTRABlock named “theBlock”, the function is called like this:

/* 7 */

theResult = (*theXTRAProc)(&theBlock);

This function call works just like a “normal” one, and XDemo take the returned result and goes about its business, which just means replotting its data and seeing what the external function may have done to it. If you are curious about how the pointer-to-function call really works, see “The Dirty Details” below.

Figure 2- Looking at an XTRA resource with ResEdit.

Go For the Code

It should be clear that XDemo’s implementation of external functions is very simple. Your use of the ideas presented here is limited only by your own cleverness. External functions provide a flexible way for you and your users to change and extend an application.

Are there any drawbacks? Yes, of course. Each external function chews up space in your application heap, so you have to allow for extra memory usage, and recover gracefully if you run out. Worse, when you give other people the power to modify your application, as you will if you publish your interface specs, you run the risk of getting modifications that work poorly, don’t work at all, or even crash the machine. Still, the added capabilities are extremely seductive. It’s a way of adding to an application without rebuilding it or changing its structure in any way. The effects are reversible; just zap any offending externals with ResEdit. And most important, you will be able to do something about the world’s most common complaint, “Well, why doesn’t it do this?”

So, read the source code, put on your wizard’s hat, and have fun!

The Dirty Details (For those who can’t get enough)

How does a call using a function pointer work? The best way to understand it is to see what the compiler does with the C code that makes the call. Using the MPW tool DumpObj on the compiled code lets us look directly at the assembly-level instructions that the 680x0 chip will execute. The twelve instructions below are extracted from the dump of XDemo’s DoCommand() function. They are the result of compiling these four lines of C:

/* 8 */

theBlock.dataLength = screenDataLength;
theBlock.theData = screenData;
(ProcPtr)theXTRAProc = (ProcPtr)*(XTRAArray[theItem]);
theResult = (*theXTRAProc)(&theBlock);

(No, DumpObj did not add the comments. It’s a wonderful tool, but it speaks little English.) The XTRABlock used in this function was declared as a local variable, so the compiler allocated space for it in a local stack frame below A6.

;9
          
;The compiler loads the XTRABlock with our
;two values: the length of the buffer, and a 
;pointer to it.
MOVE.L  screenDataLength,-$0008(A6)
MOVE.L    screenData,-$0004(A6)

;Next, the menuItem number is retrieved from D7
;where it has been stored all through 
;DoCommand().
;It will be used as an index into XTRAArray. Since
;handles are 4 bytes long, the compiler multiplies 
;the index by 4 to get the proper byte offset.
MOVE.L    D7,D0
ASL.W     #$2,D0 ;shift left two places

;Load address of XTRAArray into A0, retrieve the
;handle from our index offset, and plop it 
;into A0.
LEA       XTRAArray,A0        
MOVEA.L   $00(A0,D0.W),A0

;Here we can see that the MPW C compiler is being
;a little cautious. It dereferences the function
;handle, producing a pointer-to-function. It
;carefully copies it into the global function
;pointer “THEEXTRAPROC”, then copies it back
;into A0 before doing the JSR to it. If you
;were writing this assembly code you would skip
;the extra MOVEA instruction.
MOVE.L   (A0),THEXTRAPROC ;Save in global                      
 ;variable
SUBQ.L   #$2,A7  ;space on stack for ;Boolean result
PEA      -$0008(A6);push pointer to XTRABlock
MOVEA.L  THEXTRAPROC,A0   ;copy function                       
 ;pointer back into A0
JSR      (A0)    ;and jump to address of the                   
 ;first instruction of the  ;function

;When the external function is done, it returns
;here via an RTS instruction
MOVE.B   (A7)+,D5;Get Boolean result ;from stack 
;program continues...

The heart of the matter is retrieving a handle to an external function from the global array XTRAArray. That handle points to a master pointer, which in turn points to the first instruction of the external function. The JSR (Jump to subroutine) instruction takes us to the function, which runs until it is finished. Its last instruction, furnished by the C compiler when the function is built, will be an RTS (Return from subroutine) which returns control to the DoCommand() code right where it left off.

Listing:  MakeDemo
c -mbg ch8 -d USEDUMP XDemo.c
link -t ‘APPL’ -c ‘XDEM’ XDemo.c.o 
 {clibraries}cruntime.o 
 {clibraries}cinterface.o 
 {libraries}interface.o 
 -o XDemo
rez -append XDemo.r -o XDemo
XDemo

c -mbg ch8   sinewave.c

link -w  -sg “Sine Wave” sinewave.c.o 
 -rt XTRA=134 -m SINEWAVE 
 {cLibraries}CRuntime.o 
 {clibraries}cinterface.o 
 {clibraries}CSanelib.o 
 {libraries}interface.o 
 -o XDemo 
Listing:  XDemo.h
/*---- XDemo.h ------------------
by Mark Lankton, 1989, for MacTutor
*/
/*---- typedefs --------------*/
/*
This is the (dirt-simple) structure which allows communication
with the external functions. You can get very fancy here.
*/
typedef struct XTRABlock{
 int    dataLength;
 short  *theData;
 }XTRABlock,*XTRABlockPtr,**XTRABlockHandle;

/*------ defines --------------*/
#define appleID  128
#define fileID   129
#define editID   130
#define externalsID131

#define menuCount4

#define appleMenu1
#define aboutMeItem1

#define fileMenu 2
#define newItem  1
#define closeItem2
#define quitItem 3

#define editMenu 3
#define undoItem 1
/*item 2 is a dividing line */
#define cutItem  3
#define copyItem 4
#define pasteItem5

#define externalsMenu4

#define aboutID  128

#define TRUE   0xFF
#define FALSE  0x00
#define minWidth 200
#define minHeight80
#define mBarHeight 20
#define scrollBarAdjust 15

#define osEvent  app4Evt  
#define suspendResumeMessage1 
#define resumeMask 1 
#define mouseMovedMessage 0xFA

/*---------- globals ------------*/
Boolean allDone;
Boolean inBackground;

/*The array of MenuHandles
is 1-based. */
MenuHandlemyMenus[menuCount + 1];  
EventRecord myEvent;
WindowPtr theWindow;
Rect    screenRect,defaultWRect;
Rect    dragRect;
RgnHandle eventRgn;
long    sleepTime;

/*The array of Handles to the external
functions is 1-based, too, to match up
with the menu item numbers. */
Handle  XTRAArray[33];    /*1-based array!*/
short   *screenData; /*Our data buffer. */
intscreenDataLength;
Listing:  XDemo.c
/*-------------- XDemo.c --------------*/
/*
A teeny program that demonstrates the use of external functions.
By Mark Lankton, 1989, for MacTutor.
*/

#if !defined(USEDUMP)

#include <types.h>
#include <resources.h>
#include <quickdraw.h>
#include <windows.h>
#include <OSUtils.h>
#include <OSEvents.h>
#include <memory.h>
#include <fonts.h> 
#include <events.h>
#include <controls.h>
#include <menus.h> 
#include <dialogs.h> 
#include <desk.h>
#include <toolutils.h>    
#include <segload.h> 
#include <DiskInit.h>

 #if defined(MAKEDUMP)
 #pragma dump “HeaderDumpFile”
 #endif
 
#else
 #pragma load “HeaderDumpFile”
 
#endif

#include “XDemo.h”

extern _DataInit();

/*------------ prototypes ----------------*/
void  InitVars(void);
void  SetUpMenus(void);
void  OpenAWindow(void);
void  DoEvents(void);
void  DoActivate(WindowPtr thisWindow,Boolean becomingActive);
void  DoUpdate(WindowPtr thisWindow);
void  Redraw(WindowPtr thisWindow);
void  DoGoAway(WindowPtr thisWindow);
void  DoGrow(WindowPtr thisWindow);
void  DoWindowZoom(WindowPtr thisWindow,short partCode);
void  DoContent(WindowPtr thisWindow);
void  DoKeys(void);
void  DoCommand(long menuResult);
void  DoAbout(void);
intmain(void);

/*Here’s the place we’ll plug in the external functions. */
pascal Boolean (*theXTRAProc)(XTRABlock *theBlockPtr);

/*-------------- functions ----------------*/
void
InitVars()
{
 screenRect = qd.screenBits.bounds;
 ClipRect(&screenRect);
 
 SetRect(&dragRect,4,24,screenRect.right-4,
 screenRect.bottom-4);
 
 SetRect(&defaultWRect,screenRect.left,screenRect.top,
 screenRect.left + 500, screenRect.top + 200);
 OffsetRect(&defaultWRect,10,40);
 
 eventRgn = NewRgn();/*set up an empty region to pass to WaitNextEvent 
*/
 RectRgn(eventRgn,&defaultWRect);
 
 screenDataLength = 512; /*A completely arbitrary value... */
 /*Get a pointer to a little data area and fill it with zeroes. */
 screenData = (short *)NewPtrClear(screenDataLength * 2);
 /*Now a very rudimentary error check...*/
 if(!screenData)
 {
 SysBeep(5);
 ExitToShell();
 }
}

void
SetUpMenus()
{
 int    i,howMany;
 short  thisID;
 ResTypethisType;
 Str255 thisName;
 
 myMenus[appleMenu] = GetMenu(appleID);
 AddResMenu(myMenus[appleMenu], (ResType) ‘DRVR’);
 
 myMenus[fileMenu] = GetMenu(fileID);
 myMenus[editMenu] = GetMenu(editID);
 myMenus[externalsMenu] = GetMenu(externalsID);

 for (i = 1;i <= menuCount;i++)    
 InsertMenu(myMenus[i],0);
 
 /*Check for XTRA resources... if any, load them in and plug the names 
into the Externals menu. We use the ‘1’ resource calls because the current 
resource file is XDemo itself.
 */
 howMany = Count1Resources(‘XTRA’);
 if(howMany > 32)
 howMany = 32;
 for(i = 1;i <= howMany;i++)
 {
 XTRAArray[i] = Get1IndResource(‘XTRA’,i);
 if(!XTRAArray[i])
 break;
 MoveHHi(XTRAArray[i]);
 HLock(XTRAArray[i]);
 GetResInfo(XTRAArray[i],&thisID,&thisType,thisName);
 AppendMenu(myMenus[externalsMenu],thisName);
 }
 DrawMenuBar();
}

void
OpenAWindow()
{
 short  width,height;
 
 theWindow = GetNewWindow(128,(Ptr)nil,(WindowPtr)-1);
 SetPort(theWindow);

 width = defaultWRect.right - defaultWRect.left;
 height = defaultWRect.bottom - defaultWRect.top;
 SizeWindow(theWindow,width,height,TRUE);
 
 MoveWindow(theWindow,defaultWRect.left,defaultWRect.top,TRUE);
 ShowWindow(theWindow);
 
 /*We’ll only have one window at a time, so... */
 DisableItem(myMenus[fileMenu],newItem);
}

void
DoEvents()
{
 short  whatCode;
 Point  dialogPoint;
 BooleanignoreResult;
 short  resultCode;
 WindowPtrwhichWindow;

 if(!inBackground)
 sleepTime = 0x0A;
 else
 sleepTime = 0xFF;
 
 /*No tricks in this demo, just make sure it’s arrow. */
 InitCursor();
 
 ignoreResult = WaitNextEvent(everyEvent,&myEvent,sleepTime,eventRgn);
 switch (myEvent.what)
 {
 case nullEvent: break;
 
 case mouseDown: whatCode = FindWindow(myEvent.where,&whichWindow);
 switch (whatCode){
 case inMenuBar: DoCommand(MenuSelect(myEvent.where));
 break;
 case inSysWindow: SystemClick(&myEvent,whichWindow);
   break;
 case inDrag:  DragWindow(whichWindow,myEvent.where,
 &dragRect);
  break;
  
 case inGoAway:  DoGoAway(whichWindow);
 break;
 
 case inGrow:  DoGrow(whichWindow);
 break;
 
 case inContent: DoContent(whichWindow);
 break;
 
 case inZoomIn:  if (TrackBox(whichWindow,myEvent.where,inZoomIn))
 {
 DoWindowZoom(whichWindow,inZoomIn);
 }
 break;
 
 case inZoomOut: if (TrackBox(whichWindow,myEvent.where,inZoomOut))
 {
 DoWindowZoom(whichWindow,inZoomOut);
 }
 break;
 
 }
 break;
 
 case keyDown:
 case autoKey: DoKeys();
 break;
 
 case activateEvt:
 DoActivate((WindowPtr)myEvent.message,
 myEvent.modifiers & activeFlag);
 break; 
 
 case updateEvt: DoUpdate((WindowPtr)myEvent.message);
 break;
 
 case diskEvt: if(HiWord(myEvent.message))
 {
 SetPt(&dialogPoint,85,90);
 resultCode = DIBadMount(dialogPoint,myEvent.message);
 }
 break;
 
 
 case osEvent:
 switch (myEvent.message >> 24) 
 { 
 case mouseMovedMessage:  break;
 
 case suspendResumeMessage: 
 inBackground = ((myEvent.message & resumeMask) == 0);
 DoActivate(FrontWindow(), !inBackground);
 break;
 }
 break;
 }
}

void
DoActivate(thisWindow,becomingActive)
 WindowPtrthisWindow;
 BooleanbecomingActive;
{
 SetPort(thisWindow);
 
 if (((WindowPeek)thisWindow)->windowKind >= 8)
 {
 DrawGrowIcon(thisWindow);
 if (becomingActive)
 {
 theWindow = thisWindow;
 RectRgn(eventRgn,&(thisWindow->portRect));
 DisableItem(myMenus[editMenu],0);
 }
 else
 EnableItem(myMenus[editMenu],0);
 }
}

void
DoUpdate(thisWindow)
 WindowPtrthisWindow;
{
 GrafPtrsavedPort;
 
 GetPort(&savedPort);
 SetPort(thisWindow);
 if (((WindowPeek)thisWindow)->windowKind >= 8)
 {
 ClipRect(&screenRect);
 BeginUpdate(thisWindow);
 EraseRect(&thisWindow->portRect);
 DrawGrowIcon(thisWindow);
 Redraw(thisWindow);
 EndUpdate(thisWindow);
 }
 SetPort(savedPort);
}

void
Redraw(thisWindow)
 WindowPtrthisWindow;
{
 GrafPtrsavedPort;
 Rect   localRect;
 short  center;
 int    i;
 
 GetPort(&savedPort);
 SetPort(thisWindow);
 
 localRect = thisWindow->portRect;
 localRect.right -= scrollBarAdjust;
 localRect.bottom -= scrollBarAdjust;
 ClipRect(&localRect);
 
 center = localRect.bottom / 2;
 MoveTo(0,center);
 PenPat(qd.gray);
 Line(localRect.right,0);
 PenPat(qd.black);
 MoveTo(0,center);
 
 for(i = 0; i < screenDataLength;i++)
 LineTo(i,center - *(screenData + i));
 
 SetPort(savedPort);
}

void
DoGoAway(thisWindow)
 WindowPtrthisWindow;
{
 /*
 Our windows have the default windowKind (8)... don’t
 try to close someone else’s window!
 */
 if(((WindowPeek)thisWindow)->windowKind < 8)
 return;
 
 DisposeWindow(thisWindow);

 if(GetNextEvent(everyEvent,&myEvent))
 DoActivate((WindowPtr)myEvent.message,myEvent.modifiers & activeFlag);
 if(GetNextEvent(everyEvent,&myEvent))
 DoActivate((WindowPtr)myEvent.message,myEvent.modifiers & activeFlag);
 
 /*Turn the “New” item back on so we 
 can make another window if we want. */
 EnableItem(myMenus[fileMenu],newItem);
}

void
DoGrow(thisWindow)
 WindowPtrthisWindow;
{
 Rect sizeRect;
 long newSize;
 int    newWidth, newHeight;
 
 if (thisWindow != FrontWindow())
 SelectWindow(thisWindow);
 else 
 { 
 SetRect(&sizeRect, minWidth,minHeight,screenRect.right,
 screenRect.bottom - mBarHeight);
 newSize = GrowWindow(thisWindow,myEvent.where,&sizeRect);
 if (newSize)
 {
 newWidth = LoWord(newSize);
 newHeight = HiWord(newSize);
 SizeWindow(thisWindow,newWidth,newHeight,TRUE);
 
 InvalRect(&(thisWindow->portRect)); 
 }
 }
}

void
DoWindowZoom(thisWindow,partCode)
 WindowPtrthisWindow;
 short  partCode;
{
 
 EraseRect(&(thisWindow->portRect));
 ZoomWindow(thisWindow,partCode,TRUE);
 
 InvalRect(&thisWindow->portRect);
}

void
DoContent(thisWindow)
 WindowPtrthisWindow;
{
 /*Not much action here... */
 if (thisWindow != FrontWindow())
 SelectWindow(thisWindow);
}

void
DoKeys()
{
 short  temp;
 long   menuChoice;
 
 /*Only worry about command-key stuff. */
 temp = (short)(myEvent.message & charCodeMask);
 if (myEvent.modifiers & cmdKey)
 {
 if (myEvent.what != autoKey)
 {
 menuChoice = MenuKey(temp);
 DoCommand(menuChoice);
 }
 }
}

void
DoCommand(menuResult)
 long menuResult;
{
 Str255 name;
 short    theMenu,theItem;
 XTRABlocktheBlock;
 BooleantheResult;
 
 theMenu = HiWord(menuResult);/*Gives you the resource ID. */
 theItem = LoWord(menuResult);

 switch (theMenu){
 case appleID: 
 if (theItem == aboutMeItem)
 {
  DoAbout();
  break;
 }
 else EnableItem(myMenus[3],undoItem);
 GetItem(myMenus[1], theItem, name);
 (void)OpenDeskAcc(name);
 break;
 
 case fileID: 
 switch (theItem)
 {
 case newItem:   OpenAWindow();
 break;
 
 case closeItem: DoGoAway(FrontWindow());
 break;
 
 case quitItem:  allDone = TRUE;
 break;
 }
 break;
 
 /*We don’t use the Edit menu at all. */
 case editID:    break;
 
 case externalsID: theBlock.dataLength = screenDataLength;
 theBlock.theData = screenData;
 (ProcPtr)theXTRAProc = (ProcPtr)*(XTRAArray[theItem]);
 theResult = (*theXTRAProc)(&theBlock);
 if(!theResult)
 /*Do something here */
 ;
 InvalRect(&(theWindow->portRect));
 break;
 
 }
 HiliteMenu(0);
}  

void
DoAbout()
{
 DialogPtrthisDialog;
 GrafPtrsavedPort;
 Booleanwait = TRUE;
 Point  thePoint;
 
 GetPort(&savedPort);
 thisDialog = GetNewDialog(aboutID,nil,(WindowPtr)-1);
 SetPort(thisDialog);
 
 DrawDialog(thisDialog);
 
 while (wait)
 {
 if (GetNextEvent(mDownMask,&myEvent))
 {
 thePoint = myEvent.where;
 GlobalToLocal(&thePoint);
 if (PtInRect(thePoint,&thisDialog->portRect))
 wait = FALSE;
 else
 SysBeep(5);
 }
 }
 
 SetPort(savedPort);
 DisposDialog(thisDialog);
}

int
main()
{
 UnloadSeg(_DataInit);
 InitGraf(&qd.thePort);
 InitFonts();
 FlushEvents(everyEvent,0);
 InitWindows();
 InitMenus();
 TEInit();
 InitDialogs(nil);
 InitCursor();
 
 MaxApplZone();
 MoreMasters();
 MoreMasters();
 
 InitVars();
 SetUpMenus();
 OpenAWindow();  

 do {
 DoEvents();
 } while (allDone == FALSE);
 
 ExitToShell();
}
Listing:  SineWave.c

/*---------- SineWave.c ------------*/
/*A sample external function for XDemo.
by Mark Lankton, 1989 for MacTutor
*/
#include <types.h>
#include <resources.h>
#include <OSUtils.h>
#include <OSEvents.h>
#include <SANE.h>
#include <math.h>
#include <stdlib.h>

typedef struct XTRABlock{
 int    dataLength;
 short  *theData;
 }XTRABlock,*XTRABlockPtr,**XTRABlockHandle;
 
#define TRUE   0xFF;
#define FALSE  0x00;

#define twopi  (3.14159265358979 * 2)
/************************** prototype *********************/
pascal Boolean SineWave(XTRABlock  *blockPtr);

/************************** function **********************/
pascal Boolean
SineWave(blockPtr)
 XTRABlock *blockPtr;
{
 int    i;
 extended temp;
 
 for(i = 0; i < blockPtr->dataLength;i++)
 {
 temp = (extended)(i * (twopi / 100));
 *(blockPtr->theData + i) = (short)rint(sin(temp) * 20);
 }
 return TRUE;
}

Listting:  add20.c
/*---------- Add20.c ------------*/
/*A sample external function for XDemo.
by Mark Lankton, 1989 for MacTutor
*/
#include <types.h>
#include <resources.h>
#include <OSUtils.h>
#include <OSEvents.h>
#include <SANE.h>
#include <math.h>
#include <stdlib.h>

typedef struct XTRABlock{
 int    dataLength;
 short  *theData;
 }XTRABlock,*XTRABlockPtr,**XTRABlockHandle;
 
#define TRUE   0xFF;
#define FALSE  0x00;

/*---------- prototype ------------*/
pascal Boolean Add20(XTRABlock*blockPtr);

/*---------- function ------------*/
pascal Boolean
Add20(blockPtr)
 XTRABlock *blockPtr;
{
 int    i;
 
 for(i = 0; i < blockPtr->dataLength;i++)
 {
 *((blockPtr->theData) + i) += 20;
 }
 return TRUE;
}
Listing:  XDemo.r
/*---------- XDemo.r ----------------*/
/*by Mark Lankton, 1989 for Mac Tutor */
#include “Types.r”

#define AllItems 0x7FFFFFFF /* 31 flags */
#define MenuItem10b00001
#define MenuItem20b00010

type ‘XDEM’ as ‘STR ‘;

/* menus */
resource ‘MENU’ (128, “Apple”, preload) {
 128, textMenuProc,
 AllItems & ~MenuItem2, /* Disable item #2 */
 enabled, apple,
 {
 /* 1 */
 “About This ”,
 noicon, nokey, nomark, plain;
 
 /* 2 */
 “-”,
 noicon, nokey, nomark, plain
 }
};

resource ‘MENU’ (129, “File”, preload) {
 129, textMenuProc,
 AllEnabled,
 enabled, “File”,
 {
 /* 1 */
 “New”,
 noicon, “N”, nomark, plain;
 /* 2 */
 “Close”,
 noicon, “W”, nomark, plain;
 /* 3 */
 “Quit”,
 noicon, “Q”, nomark, plain
 }
};

resource ‘MENU’ (130, “Edit”, preload) {
 130, textMenuProc,
 AllItems & ~(MenuItem2), 
 enabled, “Edit”,
  {
   /* 1 */
 “Undo”,
 noicon, “Z”, nomark, plain;
 /* 2 */
 “-”,
 noicon, nokey, nomark, plain;
 /* 3 */
 “Cut”,
 noicon, “X”, nomark, plain;
 /* 4 */
 “Copy”,
 noicon, “C”, nomark, plain;
 /* 5 */
 “Paste”,
 noicon, “V”, nomark, plain
 }
};

resource ‘MENU’ (131,”Externals”) {
 131,textMenuProc,
 AllEnabled,
 enabled,”Externals”,
 {
 /*No items here until start-up time! */
 }
};

/* Windows */

resource ‘WIND’ (128) {
 {40, 10, 200, 200},
 zoomDocProc,
 invisible,
 goAway,
 0x0,
 “The Data”
};

/* DLOG */
resource ‘DLOG’ (128) {
 {40, 40, 240, 380},
 dBoxProc,
 visible,
 goAway,
 0x0,
 128,
 “”
};

resource ‘DITL’ (128) {
 { /* array DITLarray: 2 elements */
 /* [1] */
 {67, 56, 85, 289},
 StaticText {
 disabled,
 “External function demo program”
 },
 /* [2] */
 {110, 90, 152, 253},
 StaticText {
 disabled,
 “by Mark Lankton, 1989, for MacTutor.”
 }
 }
};

/* SIZE */
resource ‘SIZE’ (-1) {
 dontSaveScreen,
 acceptSuspendResumeEvents,
 enableOptionSwitch,
 canBackground,  
 multiFinderAware, 
 backgroundAndForeground,
 dontGetFrontClicks,
 ignoreChildDiedEvents,
 is32BitCompatible,
 reserved,
 reserved,
 reserved,
 reserved,
 reserved,
 reserved,
 reserved,
 24576,
 24576
};

resource ‘XDEM’ (0) {
 “Demo of external function tricks for MacTutor, 8/89”
};

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Capture One 11.0.1.40 - RAW workflow sof...
Capture One is a professional RAW converter offering you ultimate image quality with accurate colors and incredible detail from more than 400 high-end cameras -- straight out of the box. It offers... Read more
Capture One 11.0.1.40 - RAW workflow sof...
Capture One is a professional RAW converter offering you ultimate image quality with accurate colors and incredible detail from more than 400 high-end cameras -- straight out of the box. It offers... Read more
GraphicConverter 10.5.4 - $39.95
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
Dash 4.1.3 - 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
Microsoft OneNote 16.9 - Free digital no...
OneNote is your very own digital notebook. With OneNote, you can capture that flash of genius, that moment of inspiration, or that list of errands that's too important to forget. Whether you're at... Read more
DEVONthink Pro 2.9.17 - Knowledge base,...
Save 10% with our exclusive coupon code: MACUPDATE10 DEVONthink Pro is your essential assistant for today's world, where almost everything is digital. From shopping receipts to important research... Read more
OmniGraffle 7.6 - Create diagrams, flow...
OmniGraffle helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use Graffle to... Read more
iFinance 4.3.7 - Comprehensively manage...
iFinance allows you to keep track of your income and spending -- from your lunchbreak coffee to your new car -- in the most convenient and fastest way. Clearly arranged transaction lists of all your... Read more
Opera 50.0.2762.58 - High-performance We...
Opera is a fast and secure browser trusted by millions of users. With the intuitive interface, Speed Dial and visual bookmarks for organizing favorite sites, news feature with fresh, relevant content... Read more
Microsoft Office 2016 16.9 - Popular pro...
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

Latest Forum Discussions

See All

Around the Empire: What have you missed...
Around this time every week we're going to have a look at the comings and goings on the other sites in Steel Media's pocket-gaming empire. We'll round up the very best content you might have missed, so you're always going to be up to date with the... | Read more »
Everything about Hero Academy 2: Part 4...
In this part of our Hero Academy 2 guide, we're going to have a look at some of the tactics you're going to need to learn if you want to rise up the ranks. We're going to start off slow, then get more advanced in the next section. [Read more] | Read more »
All the best games on sale for iPhone an...
Another week has flown by. Sometimes it feels like the only truly unstoppable thing is time. Time will make dust of us all. But before it does, we should probably play as many awesome mobile videogames as we can. Am I right, or am I right? [Read... | Read more »
The 7 best games that came out for iPhon...
Well, it's that time of the week. You know what I mean. You know exactly what I mean. It's the time of the week when we take a look at the best games that have landed on the App Store over the past seven days. And there are some real doozies here... | Read more »
Popular MMO Strategy game Lords Mobile i...
Delve into the crowded halls of the Play Store and you’ll find mobile fantasy strategy MMOs-a-plenty. One that’s kicking off the new year in style however is IGG’s Lords Mobile, which has beaten out the fierce competition to receive Google Play’s... | Read more »
Blocky Racing is a funky and fresh new k...
Blocky Racing has zoomed onto the App Store and Google Play this week, bringing with it plenty of classic kart racing shenanigans that will take you straight back to your childhood. If you’ve found yourself hooked on games like Mario Kart or Crash... | Read more »
Cytus II (Games)
Cytus II 1.0.1 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0.1 (iTunes) Description: "Cytus II" is a music rhythm game created by Rayark Games. It's our fourth rhythm game title, following the footsteps of three... | Read more »
JYDGE (Games)
JYDGE 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: Build your JYDGE. Enter Edenbyrg. Get out alive. JYDGE is a lawful but awful roguehate top-down shooter where you get to build your... | Read more »
Tako Bubble guide - Tips and Tricks to S...
Tako Bubble is a pretty simple and fun puzzler, but the game can get downright devious with its puzzle design. If you insist on not paying for the game and want to manage your lives appropriately, check out these tips so you can avoid getting... | Read more »
Everything about Hero Academy 2 - The co...
It's fair to say we've spent a good deal of time on Hero Academy 2. So much so, that we think we're probably in a really good place to give you some advice about how to get the most out of the game. And in this guide, that's exactly what you're... | Read more »

Price Scanner via MacPrices.net

Deals on clearance 15″ Apple MacBook Pros wit...
B&H Photo has clearance 2016 15″ MacBook Pros available for up to $800 off original MSRP. Shipping is free, and B&H charges NY & NJ sales tax only: – 15″ 2.7GHz Touch Bar MacBook Pro... Read more
Apple restocked Certified Refurbished 13″ Mac...
Apple has restocked a full line of Certified Refurbished 2017 13″ MacBook Airs starting at $849. An Apple one-year warranty is included with each MacBook, and shipping is free: – 13″ 1.8GHz/8GB/128GB... Read more
How to find the lowest prices on 2017 Apple M...
Apple has Certified Refurbished 13″ and 15″ 2017 MacBook Pros available for $200 to $420 off the cost of new models. Apple’s refurbished prices are the lowest available for each model from any... Read more
The lowest prices anywhere on Apple 12″ MacBo...
Apple has Certified Refurbished 2017 12″ Retina MacBooks available for $200-$240 off the cost of new models. Apple will include a standard one-year warranty with each MacBook, and shipping is free.... Read more
Apple now offering a full line of Certified R...
Apple is now offering Certified Refurbished 2017 10″ and 12″ iPad Pros for $100-$190 off MSRP, depending on the model. An Apple one-year warranty is included with each model, and shipping is free: –... Read more
27″ iMacs on sale for $100-$130 off MSRP, pay...
B&H Photo has 27″ iMacs on sale for $100-$130 off MSRP. Shipping is free, and B&H charges sales tax for NY & NJ residents only: – 27″ 3.8GHz iMac (MNED2LL/A): $2199 $100 off MSRP – 27″ 3.... Read more
2.8GHz Mac mini on sale for $899, $100 off MS...
B&H Photo has the 2.8GHz Mac mini (model number MGEQ2LL/A) on sale for $899 including free shipping plus NY & NJ sales tax only. Their price is $100 off MSRP. Read more
Apple offers Certified Refurbished iPad minis...
Apple has Certified Refurbished 128GB iPad minis available today for $339 including free shipping. Apple’s standard one-year warranty is included. Their price is $60 off MSRP. Read more
Amazon offers 13″ 256GB MacBook Air for $1049...
Amazon has the 13″ 1.8GHz/256B #Apple #MacBook Air on sale today for $150 off MSRP including free shipping: – 13″ 1.8GHz/256GB MacBook Air (MQD42LL/A): $1049.99, $150 off MSRP Read more
9.7-inch 2017 WiFi iPads on sale starting at...
B&H Photo has 9.7″ 2017 WiFi #Apple #iPads on sale for $30 off MSRP for a limited time. Shipping is free, and pay sales tax in NY & NJ only: – 32GB iPad WiFi: $299, $30 off – 128GB iPad WiFi... Read more

Jobs Board

*Apple* Data Center Site Selection and Strat...
# Apple Data Center Site Selection and Strategy Research Analyst Job Number: 83708609 Santa Clara Valley, California, United States Posted: 18-Jan-2018 Weekly Hours: Read more
Security Engineering Coordinator, *Apple* R...
# Security Engineering Coordinator, Apple Retail Job Number: 113237456 Santa Clara Valley, California, United States Posted: 18-Jan-2018 Weekly Hours: 40.00 **Job Read more
Firmware Engineer - *Apple* Accessories - A...
# Firmware Engineer - Apple Accessories Job Number: 113422485 Santa Clara Valley, California, United States Posted: 18-Jan-2018 Weekly Hours: 40.00 **Job Summary** 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
*Apple* Store Leader - Retail District Manag...
Job Description:Job SummaryAs more and more people discover Apple , they visit our retail stores seeking ways to incorporate our products into their lives. It's your Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.