DataMuseum.dk

top - download

    Length: 6341 (0x18c5)
    Types: TextFile
    Notes: R1k Text-file segment

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦9c7303130⟧ 
            └─⟦this⟧ 

TextFile

/*      Copyright (c) 1990 Meridian Software Systems, Inc.      */
#include <types.h>

pascal void set_return(void) = {
  0x2056,		 /* move.l	(a6),a0	    */
  0x2C90,		 /* move.l	(a0),(a6)   */
  0x2D68, 0x0004, 0x0004 /* move.l	4(a0),4(a6) */
};  

/* NOTE: In the following interfaces "int" is often used just to
denote any 32-bit object, be it a pointer or any other value. */

/* Controls */

pascal void IndicatorGlue(oldret, oldfp, d5save, callee)
int oldret, oldfp, d5save;
void (*callee)(); {
  set_return();
  (*callee)();
}

pascal void ActionGlue(theControl, partCode, oldret, oldfp, d5save, callee)
int theControl, partCode, oldret, oldfp, d5save;
void (*callee)(); {
  set_return();
  (*callee)(theControl, partCode);
}

pascal int ControlGlue(varCode, theControl, message, data, oldret, oldfp, d5save, callee)
int varCode, theControl, message, data, oldret, oldfp, d5save;
int (*callee)(); {
  set_return();
  return (*callee)(varCode, theControl, message, data);
}


/* Devices */

pascal short DeviceGlue(message, caller, objName, zoneName, p1, p2, oldret, oldfp, d5save, callee)
short message, caller;
int objName, zoneName, p1, p2, oldret, oldfp, d5save;
short (*callee)(); {
  set_return();
  return (*callee)(message, caller, objName, zoneName, p1, p2, oldret);
}

pascal int CDevGlue(message, Item, numItems, CPanelID, theEvent, cdevValue, CPDialog, oldret, oldfp, d5save, callee)
short message, Item, numItems, CPanelID;
int theEvent, cdevValue, CPDialog, oldret, oldfp, d5save;
int (*callee)(); {
  set_return();
  return (*callee)(message, Item, numItems, CPanelID, theEvent, cdevValue, CPDialog);
}


/* Dialogs */

pascal void ItemGlue(theWindow, itemNo, oldret, oldfp, d5save, callee)
int theWindow, itemNo, oldret, oldfp, d5save, callee;
void (*callee)(); {
  set_return();
  (*callee)(theWindow, itemNo);
}

pascal void ResumeGlue(oldret, oldfp, d5save, callee)
int oldret, oldfp, d5save;
void (*callee)(); {
  set_return();
  (*callee)();
}

pascal void SoundGlue(soundNo, oldret, oldfp, d5save, callee)
short soundNo;
int oldret, oldfp, d5save;
void (*callee)(); {
  set_return();
  (*callee)(soundNo);
}

pascal Boolean FilterGlue(theDialog, theEvent, itemHit, oldret, oldfp, d5save, callee)
int theDialog, theEvent, itemHit, oldret, oldfp, d5save, callee;
Boolean (*callee)(); {
  set_return();
  return (*callee)(theDialog, theEvent, itemHit);
}


/* Lists */

pascal Boolean ClickLoopGlue(oldret, oldfp, d5save, callee)
int oldret, oldfp, d5save, callee;
Boolean (*callee)(); {
  set_return();
  return (*callee)();
}

pascal short ListSearchGlue(aPtr, bPtr, aLen, bLen, oldret, oldfp, d5save, callee)
int aPtr, bPtr;
short aLen, bLen;
int oldret, oldfp, d5save;
short (*callee)(); {
  set_return();
  return (*callee)(aPtr, bPtr, aLen, bLen);
}

pascal void ListGlue(lmessage, lSelect, lRect, lCell, lDataOffset, lDataLen, lHandle, oldret, oldfp, d5save, callee)
short lmessage, lDataOffset, lDataLen;
int lSelect, lRect, lCell, lHandle, oldret, oldfp, d5save, callee;
void (*callee)(); {
  set_return();
  (*callee)(lmessage, lSelect, lRect, lCell, lDataOffset, lDataLen, lHandle);
}


/* Memory */

pascal int GrowZoneGlue(cbNeeded, data, oldret, oldfp, d5save, callee)
int cbNeeded, oldret, oldfp, d5save;
int (*callee)(); {
  set_return();
  return (*callee)(cbNeeded);
}


/* Menus */

pascal void MenuGlue(message, theMenu, menuRect, hitPt, whichItem, oldret, oldfp, d5save, callee)
short message;
int theMenu, menuRect, hitPt, whichItem, oldret, oldfp, d5save;
void (*callee)(); {
  set_return();
  (*callee)(message, theMenu, menuRect, hitPt, whichItem);
}

pascal int MenuBarGlue(selector, message, parameter1, parameter2, oldret, oldfp, d5save, callee)
short selector, message, parameter1;
int parameter2, oldret, oldfp, d5save;
int (*callee)(); {
  set_return();
  return (*callee)(selector, message, parameter1, parameter2);
}


/* Packages */

pascal short DialogHook(item, theDialog, oldret, oldfp, d5save, callee)
short item;
int theDialog, oldret, oldfp, d5save;
short (*callee)(); {
  set_return();
  return (*callee)(item, theDialog);
}

pascal Boolean FileFilterGlue(paramBlock, oldret, oldfp, d5save, callee)
int paramBlock, oldret, oldfp, d5save, callee;
Boolean (*callee)(); {
  set_return();
  return (*callee)(paramBlock);
}

/* see Dialogs, above, for FilterGlue */


/* Printing/Printtraps */

pascal int PrintInitGlue(hPrint, oldret, oldfp, d5save, callee)
int hPrint, oldret, oldfp, d5save, callee;
int (*callee)(); {
  set_return();
  return (*callee)(hPrint);
}

/* see Dialogs, above, for FilterGlue */

/* see Packages, above, for DialogHook */


/* QuickDraw */

pascal Boolean ColorSearchGlue(rgb, position, oldret, oldfp, d5save, callee)
int rgb, position, oldret, oldfp, d5save, callee;
Boolean (*callee)(); {
  set_return();
  return (*callee)(rgb, position);
}

pascal void CompGlue(rgb, oldret, oldfp, d5save, callee)
int rgb, oldret, oldfp, d5save;
void (*callee)(); {
  set_return();
  (*callee)(rgb);
}


/* ShutDown */

pascal void ShutDownGlue(oldret, oldfp, d5save, callee)
int oldret, oldfp, d5save;
void (*callee)(); {
  set_return();
  (*callee)();
}


/* Sound */

pascal void CallBackGlue(chan, cmd, oldret, oldfp, d5save, callee)
int chan, cmd, oldret, oldfp, d5save, callee;
void (*callee)(); {
  set_return();
  (*callee)(chan, cmd);
}

pascal void CompletionGlue(oldret, oldfp, d5save, callee)
int oldret, oldfp, d5save;
void (*callee)(); {
  set_return();
  (*callee)();
}

pascal Boolean ModifierGlue(chan, cmd, firstMod, oldret, oldfp, d5save, callee)
int chan, cmd, firstMod, oldret, oldfp, d5save, callee;
Boolean (*callee)(); {
  set_return();
  return (*callee)(chan, cmd, firstMod);
}


/* TextEdit */

/* see Lists, above, for ClickLoopGlue */

pascal Boolean WordBreakGlue(text, charPos, oldret, oldfp, d5save, callee)
int text, charPos, oldret, oldfp, d5save, callee;
Boolean (*callee)(); {
  set_return();
  return (*callee)(text, charPos);
}


/* Windows */

pascal void DragActionGlue(oldret, oldfp, d5save, callee)
int oldret, oldfp, d5save;
void (*callee)(); {
  set_return();
  (*callee)();
}

pascal int WindowGlue(varCode, theWindow, message, data, oldret, oldfp, d5save, callee)
int varCode, theWindow, message, data, oldret, oldfp, d5save;
int (*callee)(); {
  set_return();
  return (*callee)(varCode, theWindow, message, data);