home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 608a.lha / ConLibrary_v2.00 / Misc_Stuff / KickPascal_con.h < prev    next >
Encoding:
Text File  |  1992-01-06  |  4.8 KB  |  175 lines
  1. (******************************************************************
  2. ****
  3. ****    Name:   con.h
  4. ****
  5. ****    Author: Bjørn Reese
  6. ****
  7. ****    Template of KickPascal Header for 'con.library'
  8. ****
  9. ****    WARNING!! Not tested at all!
  10. ****
  11. ******************************************************************)
  12.  
  13. {$if not def LIBRARIES_CON_H}
  14. CONST LIBRARIES_CON_H=0;
  15. {$if not def EXEC_LIBRARIES_H;incl"exec/libraries.h";endif}
  16. CONST
  17. CHARDEFSIZE2=35;
  18. TYPE
  19. con_=RECORD        { ConLibrary }
  20.  con_LibNode:???;    { Library Node }
  21.  con_SegList:Ptr;    { Segment List [from LoadSeg()] }
  22.  con_IntBase:Ptr;    { Intuition Base }
  23.  con_MathBase:Ptr;    { MathFFP Base }
  24. END;
  25. cnh_=RECORD        { ConHandle }
  26.  cnh_CDBase:Ptr;    { Base of Console Device }
  27.  cnh_Window:Ptr;    { Our Intuition Window }
  28.  cnh_UserPort:Ptr;    { UserPort for Window }
  29.  cnh_Unit:Ptr;        { ConUnit }
  30.  cnh_WriteIO:Ptr;    { Our Write IO Port }
  31.  cnh_Signal:Long;    { SignalSet [for Wait()] }
  32.  cnh_ExLength:Word;    { Extra space for string formatting }
  33.  cnh_CursorStatus:Word;    { Current Cursor Status [on/off] }
  34.  cnh_PadSpace:Char;    { Char for Leading Spaces in Numbers }
  35.  cnh_PadZero:Char;    { Char for Leading Zeros in Numbers }
  36.  cnh_PadGroup:Char;    { Char for Group Classifying }
  37.  cnh_PadString:Char;    { Char for Unused String Positions }
  38.  cnh_DecimalPoint:Char;    { Char for Decimal Point }
  39.  cnh_FloatE:Char;    { Char for Floating Point Exponent }
  40.  cnh_EchoTable:Array[0..CHARDEFSIZE2] of Byte;    { BitTable for Echo Chars }
  41.  cnh_UserNotes:Array[0..7] of Ptr;    { List of Pointers to UserNotes }
  42.  cnh_MsgHandler:Ptr;    { Pointer to a User Message Handler }
  43.  cnh_Reserved:Array[0..3]of Long;
  44. END;
  45. cin_=RECORD
  46.  cin_XPos:Word;        { Cursor X Position }
  47.  cin_YPos:Word;        { Cursor Y Position }
  48.  cin_XSize:Word;    { Chars per Line }
  49.  cin_YSize:Word;    { Lines in Window }
  50.  cin_Styles:Word;    { Text Styles }
  51.  cin_FgCol:Word;    { ForeGround Color }
  52.  cin_BgCol:Word;    { BackGround Color }
  53.  cin_Reserved:Array[0..3] of Long;
  54. END;
  55. acc_=RECORD
  56.  acc_XStart:Word;    { Start X Position }
  57.  acc_YStart:Word;    { Start Y Position }
  58.  acc_Styles:Word;    { Text Styles }
  59.  acc_FgCol:Word;    { ForeGround Color }
  60.  acc_BgCol:Word;    { BackGround Color }
  61.  acc_ExitFlags:Long;    { IDCMP Exit Flags }
  62.  acc_Class:Long;    { Copy of im_Class }
  63.  acc_Code:Word;        { Copy of im_Code }
  64.  acc_Qualifier:Word;    { Copy of im_Qualifier }
  65.  acc_IAddress:Ptr;    { Copy of im_IAddress }
  66.  acc_MouseX:Integer;    { Copy of im_MouseX }
  67.  acc_MouseY:Integer;    { Copy of im_MouseY }
  68.  acc_Seconds:Long;    { Copy of im_Seconds }
  69.  acc_Micros:Long;    { Copy of im_Micros }
  70.  acc_IDCMPWindow:Ptr;    { Copy of im_IDCMPWindow }
  71.  acc_Char:Char;        { ASCII char }
  72.  acc_Pad001:Byte;    { Nothing serious }
  73.  acc_ValidTable:Array[0..CHARDEFSIZE2] of Byte;    { BitTable of Valid Chars }
  74.  acc_ExitTable:Array[0..CHARDEFSIZE2] of Byte;    { BitTable of Exit Chars }
  75.  acc_Reserved:Array[0..3] of Long;
  76. END;
  77. accs_=RECORD
  78.  accs_AS:acc_;        { Standard AcceptStructure Header }
  79.  accs_InputBuffer:Ptr;    { Pointer to Input Buffer }
  80.  accs_UndoBuffer:Ptr;    { Pointer to Work Buffer }
  81.  accs_MaxLength:Word;    { Maximum Length of Text [incl. NULL] }
  82.  accs_FieldLen:Word;    { Length of Input Field [incl. NULL] }
  83.  accs_Length:Word;    { Current Length of Text [excl. NULL] }
  84.  accs_Position:Word;    { Current Position in Text }
  85.  accs_DispPos:Word;    { First Displayed Position in Text }
  86.  accs_Reserved:Array[0..3] of Long;
  87. END
  88. CONST
  89. CONNAME="con.library";
  90. CHARDEFSIZE=36;
  91. IGNOREVALUE=$FFFFFFFF;
  92. DEFMODE_ALL=$00000000;
  93. DEFMODE_NEW=$00000001;
  94. DEFMODE_ADD=$00000002;
  95. DEFMODE_REM=$00000003;
  96. DEFMODE_GET=$00000004;
  97. DEFALL=$00000000;
  98. DEFNONE=$00020000;
  99. DEFALFANUM=$00040000;
  100. DEFALFA=$00060000;
  101. DEFNUMERIC=$00080000;
  102. DEFDECIMAL=$000A0000;
  103. DEFHEX=$000C0000;
  104. DEFOCTAL=$000E0000;
  105. DEFBINARY=$00100000;
  106. DEFFLOAT=$00120000;
  107. CURSOROFF=$0000;
  108. CURSORON=$0001;
  109. ACCB_ERASE=31;
  110. ACCF_ERASE=$80000000;
  111. ACCB_RAWKEY=28;
  112. ACCF_RAWKEY=$10000000;
  113. ACCB_DUALKEY=27;
  114. ACCF_DUALKEY=$08000000;
  115. ACCB_UPKEY=26;
  116. ACCF_UPKEY=$04000000;
  117. ACCB_ECHO=25;
  118. ACCF_ECHO=$0200000;
  119. ACCB_WAIT=24;
  120. ACCF_WAIT=$01000000;
  121. ACCB_JUSTIFIED=22;
  122. ACCF_JUSTIFIED=$00400000;
  123. ACCB_CONTINUE=21;
  124. ACCF_CONTINUE=$00200000;
  125. ACCB_OVERWRITE=20;
  126. ACCF_OVERWRITE=$00100000;
  127. ACCB_LASTEXIT=19;
  128. ACCF_LASTEXIT=$00080000;
  129. ACCB_FULLSTOP=18;
  130. ACCF_FULLSTOP=$00040000;
  131. ACCB_NOAMIGA=17;
  132. ACCF_NOAMIGA=$00020000;
  133. ACCB_NOSTDAMIGA=16;
  134. ACCF_NOSTDAMIGA=$00010000;
  135. ACCB_NOSCROLL=15;
  136. ACCF_NOSCROLL=$00008000;
  137. SGFB_PLAIN=0;
  138. SGFF_PLAIN=$0000;
  139. SGFB_BOLD=1;
  140. SGFF_BOLD=$0001;
  141. SGFB_ITALIC=2;
  142. SGFF_ITALIC=$0002;
  143. SGFB_UNDERLINED=3;
  144. SGFF_UNDERLINED=$0004;
  145. CNV_DECIMAL=$00000001;
  146. CNV_HEX=$00000002;
  147. CNV_OCTAL=$00000003;
  148. CNV_BINARY=$00000004;
  149. CNV_SIGNED=$00010000;
  150. CNV_LEADSPACE=$00020000;
  151. AKEY_NONE=0;
  152. AKEY_HELP=5;
  153. AKEY_BS=8;
  154. AKEY_TAB=9;
  155. AKEY_LF=10;
  156. AKEY_RETURN=13;
  157. AKEY_ARROWRG=17;
  158. AKEY_ARROWLF=18;
  159. AKEY_ARROWUP=19;
  160. AKEY_ARROWDN=20;
  161. AKEY_ESC=27;
  162. AKEY_DEL=127;
  163. AKEY_F1=129;
  164. AKEY_F2=130;
  165. AKEY_F3=131;
  166. AKEY_F4=132;
  167. AKEY_F5=133;
  168. AKEY_F6=134;
  169. AKEY_F7=135;
  170. AKEY_F8=136;
  171. AKEY_F9=137;
  172. AKEY_F10=138;
  173. AKEY_CSI=155;
  174. {$endif}
  175.