home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / ifps3common.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-08-26  |  4.1 KB  |  166 lines
  1. {
  2.   This unit contains constants used by the compiler and executer.
  3. }
  4. {$I ifps3_def.inc}
  5. unit ifps3common;
  6.  
  7. interface
  8.  
  9. const
  10.   {The name of the main proc }
  11.   IFPSMainProcName = '!MAIN';
  12. { The lowest supported build by the executer. }
  13.   IFPSLowBuildSupport = 12;
  14. { The current build of the compiler and executer. }
  15.   IFPSCurrentBuildNo = 17;
  16. { The current version of the script engine }
  17.   IFPSCurrentversion = '1.02';
  18. { The header of a compiled IFPS3 binary must start with this }
  19.   IFPSValidHeader = 1397769801;
  20. { Start of the positive stack }
  21.   IFPSAddrStackStart = 1610612736;
  22. { Start of the negative stack }
  23.   IFPSAddrNegativeStackStart = 1073741824;
  24. type
  25. { TIFPSBaseType is the most basic type -type }
  26.   TIFPSBaseType = Byte;
  27. { 
  28. @link(OnUseVariable)
  29.   TIFPSVariableType is used in TIFPSComp.OnUseVariable event }
  30.   TIFPSVariableType = (ivtGlobal, ivtParam, ivtVariable);
  31.  
  32. const
  33. { Executer internal type for return addresses, can not be used as a type }
  34.   btReturnAddress = 0;
  35. { A 1 byte unsigned integer (byte) }
  36.   btU8 = 1;
  37. { A 1 byte signed integer (Shortint) }
  38.   btS8 = 2;
  39. { A 2 byte unsigned integer (word) }
  40.   btU16 = 3;
  41. { A 2 byte signed integer (smallint) }
  42.   btS16 = 4;
  43. { A 4 byte unsigned integer (cardinal/longword) }
  44.   btU32 = 5;
  45. { A 4 byte signed integer (Integer/Longint) }
  46.   btS32 = 6;
  47. { A 4 byte float (single) }
  48.   btSingle = 7;
  49. { A 8 byte float (double) }
  50.   btDouble = 8;
  51. { A 10 byte float (extended) }
  52.   btExtended = 9;
  53. { A string }
  54.   btString = 10;
  55. { A record }
  56.   btRecord = 11;
  57. { An array}
  58.   btArray = 12;
  59. { A pointer }
  60.   btPointer = 13;
  61. { A PChar (internally the same as a string) }
  62.   btPChar = 14;
  63. { A resource pointer: Variable that can contain things from outside the script engine }
  64.   btResourcePointer = 15;
  65. { A variant }
  66.   btVariant = 16;
  67. {$IFNDEF NOINT64}
  68. { An 8 byte signed integer (int64) }
  69.   btS64 = 17;
  70. {$ENDIF}
  71. { Compile time class type; In IFPS3 external classes are not of one defined type (They could be anything from an integer to a pointer) }
  72.   btClass = 128;
  73. { Compile time enumeration; This will be a btu32 when compiled }
  74.   btEnum = 129;
  75. { Compile time procedural pointer (will be btu32 when compiled) }
  76.   btProcPtr = 130;
  77.  
  78.  
  79. { Make a hash of a string }
  80. function MakeHash(const s: string): Longint;
  81.  
  82. const
  83. { Script internal command: Assign command }
  84.   CM_A = 0;
  85. { Script internal command: Calculate Command }
  86.   CM_CA = 1;
  87. { Script internal command: Push}
  88.   CM_P = 2;
  89. { Script internal command: Push Var}
  90.   CM_PV = 3;
  91. { Script internal command: Pop}
  92.   CM_PO = 4;
  93. { Script internal command: Call}
  94.   Cm_C = 5;
  95. { Script internal command: Goto}
  96.   Cm_G = 6;
  97. { Script internal command: Conditional Goto}
  98.   Cm_CG = 7;
  99. { Script internal command: Conditional NOT Goto}
  100.   Cm_CNG = 8;
  101. { Script internal command: Ret}
  102.   Cm_R = 9;
  103. { Script internal command: Set Stack Type}
  104.   Cm_ST = 10;
  105. { Script internal command: Push Type}
  106.   Cm_Pt = 11;
  107. { Script internal command: Compare}
  108.   CM_CO = 12;
  109. { Script internal command: Call Var}
  110.   Cm_cv = 13;
  111. { Script internal command: Set Pointer}
  112.   cm_sp = 14;
  113. { Script internal command: Boolean NOT}
  114.   cm_bn = 15;
  115. { Script internal command: Var Minus}
  116.   cm_vm = 16;
  117. { Script internal command: Set Flag}
  118.   cm_sf = 17;
  119. { Script internal command: Flag Goto}
  120.   cm_fg = 18;
  121. { Script internal command: Push Exception Handler}
  122.   cm_puexh = 19;
  123. { Script internal command: Pop Exception Handler}
  124.   cmd_poexh = 20;
  125.  
  126.  
  127. type
  128. {Byte}
  129.   TbtU8 = Byte;
  130. {Shortint}
  131.   TbtS8 = ShortInt;
  132. {word}
  133.   TbtU16 = Word;
  134. {Smallint}
  135.   TbtS16 = SmallInt;
  136. {Cardinal/Longword}
  137.   TbtU32 = Cardinal;
  138. {Integer/Longint}
  139.   TbtS32 = Longint;
  140. {Single}
  141.   TbtSingle = Single;
  142. {Double}
  143.   TbtDouble = double;
  144. {Extended}
  145.   TbtExtended = Extended;
  146. {String/Pchar}
  147.   TbtString = string;
  148. {$IFNDEF NOINT64}
  149. { An 8 byte signed integer (int64) }
  150.   tbts64 = int64;
  151. {$ENDIF}
  152.  
  153. implementation
  154.  
  155. function MakeHash(const s: string): Longint;
  156. {small hash maker}
  157. var
  158.   I: Integer;
  159. begin
  160.   Result := 0;
  161.   for I := 1 to Length(s) do
  162.     Result := ((Result shl 7) or (Result shr 25)) + Ord(s[I]);
  163. end;
  164.  
  165. end.
  166.