home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / xcmd_glu.sit / HyperXCmd.p < prev    next >
Text File  |  1987-08-26  |  2KB  |  68 lines
  1. UNIT HyperXCmd;
  2.  
  3. {    HyperXCmd.p  Definition file for HyperCard XCMDs and XFNCs in Pascal.
  4.     By Dan Winkler.  DO NOT call the author!  Contact Apple Developer 
  5.     Support on AppleLink "MacDst" or on MCI "MacTech".
  6.  
  7.     ⌐Apple Computer, Inc. 1987
  8.     All Rights Reserved.
  9. }
  10.  
  11. INTERFACE
  12.  
  13. CONST
  14.   
  15.   { result codes }
  16.   xresSucc     = 0;
  17.   xresFail     = 1;
  18.   xresNotImp     = 2;
  19.   
  20.   { request codes }
  21.   xreqSendCardMessage    = 1;
  22.   xreqEvalExpr        = 2;
  23.   xreqStringLength    = 3;
  24.   xreqStringMatch    = 4;
  25.   xreqSendHCMessage    = 5;
  26.   xreqZeroBytes         = 6;
  27.   xreqPasToZero        = 7;
  28.   xreqZeroToPas        = 8;
  29.   xreqStrToLong        = 9;
  30.   xreqStrToNum        = 10;
  31.   xreqStrToBool        = 11;
  32.   xreqStrToExt        = 12;
  33.   xreqLongToStr        = 13;
  34.   xreqNumToStr        = 14;
  35.   xreqNumToHex        = 15;
  36.   xreqBoolToStr        = 16;
  37.   xreqExtToStr        = 17;
  38.   xreqGetGlobal        = 18;
  39.   xreqSetGlobal        = 19;
  40.   xreqGetFieldByName    = 20;
  41.   xreqGetFieldByNum    = 21;
  42.   xreqGetFieldByID    = 22;
  43.   xreqSetFieldByName    = 23;
  44.   xreqSetFieldByNum    = 24;
  45.   xreqSetFieldByID    = 25;
  46.   xreqStringEqual       = 26;
  47.   xreqReturnToPas       = 27;
  48.   xreqScanToReturn      = 28;
  49.   xreqScanToZero        = 39;    { was suppose to be 29.  Oops! }
  50.  
  51. TYPE
  52.  
  53.   XCmdPtr = ^XCmdBlock;
  54.   XCmdBlock =
  55.     RECORD
  56.       paramCount:  INTEGER;     
  57.       params:      ARRAY[1..16] OF Handle;
  58.       returnValue: Handle;      
  59.       passFlag:    BOOLEAN; 
  60.       
  61.       entryPoint:  ProcPtr;    { to call back to HyperCard }
  62.       request:     INTEGER;  
  63.       result:      INTEGER;  
  64.       inArgs:      ARRAY[1..8] OF LongInt;
  65.       outArgs:     ARRAY[1..4] OF LongInt;
  66.     END;
  67.     
  68. END;