home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / devices / console.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  2.0 KB  |  104 lines
  1. {$if not def DEVICES_CONSOLE_H} CONST DEVICES_CONSOLE_H=0;
  2.  
  3.  
  4. { *******************************************************************
  5.   ** KickPascal-Include-Datei "devices/console.h" zu Kickstart 3.0 **
  6.   ******************************************************************* }
  7.  
  8. {$if not def EXEC_IO_H;incl "exec/io.h";endif}
  9.  
  10. CONST
  11.  CD_ASKKEYMAP        = (CMD_NONSTD+0);
  12.  CD_SETKEYMAP        = (CMD_NONSTD+1);
  13.  CD_ASKDEFAULTKEYMAP = (CMD_NONSTD+2);
  14.  CD_SETDEFAULTKEYMAP = (CMD_NONSTD+3);
  15.  
  16. CONST
  17.  SGR_PRIMARY    = 0;
  18.  SGR_BOLD       = 1;
  19.  SGR_ITALIC     = 3;
  20.  SGR_UNDERSCORE = 4;
  21.  SGR_NEGATIVE   = 7;
  22.  
  23.  SGR_NORMAL        = 22;
  24.  SGR_NOTITALIC     = 23;
  25.  SGR_NOTUNDERSCORE = 24;
  26.  SGR_POSITIVE      = 27;
  27.  
  28.  SGR_BLACK   = 30;
  29.  SGR_RED     = 31;
  30.  SGR_GREEN   = 32;
  31.  SGR_YELLOW  = 33;
  32.  SGR_BLUE    = 34;
  33.  SGR_MAGENTA = 35;
  34.  SGR_CYAN    = 36;
  35.  SGR_WHITE   = 37;
  36.  SGR_DEFAULT = 39;
  37.  
  38.  SGR_BLACKBG   = 40;
  39.  SGR_REDBG     = 41;
  40.  SGR_GREENBG   = 42;
  41.  SGR_YELLOWBG  = 43;
  42.  SGR_BLUEBG    = 44;
  43.  SGR_MAGENTABG = 45;
  44.  SGR_CYANBG    = 46;
  45.  SGR_WHITEBG   = 47;
  46.  SGR_DEFAULTBG = 49;
  47.  
  48.  SGR_CLR0 = 30;
  49.  SGR_CLR1 = 31;
  50.  SGR_CLR2 = 32;
  51.  SGR_CLR3 = 33;
  52.  SGR_CLR4 = 34;
  53.  SGR_CLR5 = 35;
  54.  SGR_CLR6 = 36;
  55.  SGR_CLR7 = 37;
  56.  
  57.  SGR_CLR0BG = 40;
  58.  SGR_CLR1BG = 41;
  59.  SGR_CLR2BG = 42;
  60.  SGR_CLR3BG = 43;
  61.  SGR_CLR4BG = 44;
  62.  SGR_CLR5BG = 45;
  63.  SGR_CLR6BG = 46;
  64.  SGR_CLR7BG = 47;
  65.  
  66.  
  67. CONST DSR_CPR = 6;
  68.  
  69. CONST
  70.  CTC_HSETTAB     = 0;
  71.  CTC_HCLRTAB     = 2;
  72.  CTC_HCLRTABSALL = 5;
  73.  
  74. CONST
  75.  TBC_HCLRTAB     = 0;
  76.  TBC_HCLRTABSALL = 3;
  77.  
  78. CONST
  79.  M_LNM =  20;
  80.  M_ASM = ">1";
  81.  M_AWM = "?7";
  82.  
  83. {$endif}
  84.  
  85. {$if not def CONSOLE_LIB_H} CONST CONSOLE_LIB_H=0;
  86.  
  87. {$if not def EXEC_LIBRARIES_H;incl "exec/libraries.h";endif}
  88. {$if not def DEVICES_INPUTEVENT_H;incl "devices/inputevent.h";endif}
  89. {$if not def DEVICES_KEYMAP_H;incl "devices/keymap.h";endif}
  90.  
  91.  
  92. VAR ConsoleDevice : Ptr;
  93.  
  94. LIBRARY ConsoleDevice:
  95.  
  96.  -42 : FUNCTION CDInputHandler(A0:p_InputEvent; A1:p_Library): p_InputEvent;
  97.  -48 : FUNCTION RawKeyConvert(A0:p_InputEvent; A1:Str; D1:LongInt; A2:p_KeyMap): LongInt;
  98.  
  99. { **** ab V36 / Release 2.0 **** }
  100. { *** 4 private Routinen *** }
  101. END;
  102.  
  103. {$endif}
  104.