home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / turbopgl.sit / HyperXCmd.p < prev    next >
Encoding:
Text File  |  1988-03-04  |  2.0 KB  |  85 lines  |  [TEXT/TPAS]
  1. UNIT HyperXCmd(-256);
  2.  
  3. {$U-}               { don't let Turbo give us anything we don't want}
  4.  
  5. {   HyperXCmd.p  Definition file for HyperCard XCMDs and XFNCs in Pascal.
  6.    By Dan Winkler.  DO NOT call the author!  Contact Apple Developer 
  7.    Support on AppleLink "MacDst" or on MCI "MacTech".
  8.  
  9.    ⌐Apple Computer, Inc. 1987
  10.    All Rights Reserved.
  11.  
  12.   Modified for Turbo Pascal by Stephen Kurtzman
  13.      Install this unit into the Turbo Pascal compiler using
  14.      UNITMOVER
  15. }
  16.  
  17. INTERFACE
  18.  
  19. USES MemTypes;      { necessary for Turbo interface }
  20.  
  21. CONST
  22.   
  23.   { result codes }
  24.   xresSucc    = 0;
  25.   xresFail    = 1;
  26.   xresNotImp    = 2;
  27.   
  28.   { request codes }
  29.   xreqSendCardMessage   = 1;
  30.   xreqEvalExpr      = 2;
  31.   xreqStringLength   = 3;
  32.   xreqStringMatch   = 4;
  33.   xreqSendHCMessage   = 5;
  34.   xreqZeroBytes         = 6;
  35.   xreqPasToZero      = 7;
  36.   xreqZeroToPas      = 8;
  37.   xreqStrToLong      = 9;
  38.   xreqStrToNum      = 10;
  39.   xreqStrToBool      = 11;
  40.   xreqStrToExt      = 12;
  41.   xreqLongToStr      = 13;
  42.   xreqNumToStr      = 14;
  43.   xreqNumToHex      = 15;
  44.   xreqBoolToStr      = 16;
  45.   xreqExtToStr      = 17;
  46.   xreqGetGlobal      = 18;
  47.   xreqSetGlobal      = 19;
  48.   xreqGetFieldByName   = 20;
  49.   xreqGetFieldByNum   = 21;
  50.   xreqGetFieldByID   = 22;
  51.   xreqSetFieldByName   = 23;
  52.   xreqSetFieldByNum   = 24;
  53.   xreqSetFieldByID   = 25;
  54.   xreqStringEqual       = 26;
  55.   xreqReturnToPas       = 27;
  56.   xreqScanToReturn      = 28;
  57.   xreqScanToZero        = 39;   { was suppose to be 29.  Oops! }
  58.  
  59. TYPE
  60.  
  61.   XCmdPtr = ^XCmdBlock;
  62.   XCmdBlock =
  63.     RECORD
  64.       paramCount:  INTEGER;     
  65.       params:      ARRAY[1..16] OF Handle;
  66.       returnValue: Handle;      
  67.       passFlag:    BOOLEAN; 
  68.       
  69.       entryPoint:  ProcPtr;    { to call back to HyperCard }
  70.       request:     INTEGER;  
  71.       result:      INTEGER;  
  72.       inArgs:      ARRAY[1..8] OF LongInt;
  73.       outArgs:     ARRAY[1..4] OF LongInt;
  74.     END;
  75.     
  76.  { include the types used by the interface routines in Xcmdglue.inc }
  77.  
  78.     Str255 = string[255];
  79.     Str31  = string[31];
  80.     
  81.  
  82. IMPLEMENTATION      { necessary for Turbo interface }
  83.     
  84. END.
  85.