home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / M2V11-1.LHA / modula / amiga / Console.def < prev    next >
Encoding:
Text File  |  1993-11-01  |  2.1 KB  |  101 lines
  1. DEFINITION FOR AMIGALIB MODULE Console ;
  2.  
  3. FROM SYSTEM    IMPORT ADDRESS         ;
  4. FROM Exec    IMPORT CMD_NONSTD    ;
  5. FROM InputEvent IMPORT InputEventPtr ;
  6. FROM KeyMap    IMPORT KeyMapPtr     ;
  7.  
  8. CONST
  9. (*----- Console commands -----*)
  10.   CD_ASKKEYMAP        = CMD_NONSTD+0 ;
  11.   CD_SETKEYMAP        = CMD_NONSTD+1 ;
  12.   CD_ASKDEFAULTKEYMAP    = CMD_NONSTD+2 ;
  13.   CD_SETDEFAULTKEYMAP    = CMD_NONSTD+3 ;
  14.  
  15. (*---- SGR parameters -----*)
  16.  
  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 ; (* default foreground color, not bold *)
  24.   SGR_NOTITALIC        = 23 ;
  25.   SGR_NOTUNDERSCORE = 24 ;
  26.   SGR_POSITIVE        = 27 ;
  27.  
  28. (* these names refer to the ANSI standard, not the implementation *)
  29.   SGR_BLACK    = 30 ;
  30.   SGR_RED    = 31 ;
  31.   SGR_GREEN    = 32 ;
  32.   SGR_YELLOW    = 33 ;
  33.   SGR_BLUE    = 34 ;
  34.   SGR_MAGENTA    = 35 ;
  35.   SGR_CYAN    = 36 ;
  36.   SGR_WHITE    = 37 ;
  37.   SGR_DEFAULT    = 39 ;
  38.  
  39.   SGR_BLACKBG    = 40 ;
  40.   SGR_REDBG    = 41 ;
  41.   SGR_GREENBG    = 42 ;
  42.   SGR_YELLOWBG    = 43 ;
  43.   SGR_BLUEBG    = 44 ;
  44.   SGR_MAGENTABG    = 45 ;
  45.   SGR_CYANBG    = 46 ;
  46.   SGR_WHITEBG    = 47 ;
  47.   SGR_DEFAULTBG    = 49 ;
  48.  
  49. (* these names refer to the implementation, they are the preferred *)
  50. (* names for use with the Amiga console device. *)
  51.  
  52.   SGR_CLR0    = 30 ;
  53.   SGR_CLR1    = 31 ;
  54.   SGR_CLR2    = 32 ;
  55.   SGR_CLR3    = 33 ;
  56.   SGR_CLR4    = 34 ;
  57.   SGR_CLR5    = 35 ;
  58.   SGR_CLR6    = 36 ;
  59.   SGR_CLR7    = 37 ;
  60.  
  61.   SGR_CLR0BG    = 40 ;
  62.   SGR_CLR1BG    = 41 ;
  63.   SGR_CLR2BG    = 42 ;
  64.   SGR_CLR3BG    = 43 ;
  65.   SGR_CLR4BG    = 44 ;
  66.   SGR_CLR5BG    = 45 ;
  67.   SGR_CLR6BG    = 46 ;
  68.   SGR_CLR7BG    = 47 ;
  69.  
  70. (*----- DSR parameters -----*)
  71.  
  72.   DSR_CPR = 6 ;
  73.  
  74. (*----- CTC parameters -----*)
  75.   CTC_HSETTAB      = 0 ;
  76.   CTC_HCLRTAB      = 2 ;
  77.   CTC_HCLRTABSALL = 5 ;
  78.  
  79. (*-----    TBC parameters -----*)
  80.   TBC_HCLRTAB      = 0 ;
  81.   TBC_HCLRTABSALL = 3 ;
  82.  
  83. (*-----    SM and RM parameters ------*)
  84.  
  85.   M_LNM    = 20   ; (* linefeed newline mode *)
  86.   M_ASM    = ">1" ; (* auto scroll mode      *)
  87.   M_AWM    = "?7" ; (* auto wrap mode      *)
  88.  
  89. VAR
  90.   ConsoleDevice : ADDRESS ;
  91.  
  92. PROCEDURE CDInputHandler( events    : InputEventPtr ;
  93.               consoleDevice : ADDRESS ) : InputEventPtr ;
  94.  
  95. PROCEDURE RawKeyConvert( events : InputEventPtr ;
  96.              buffer : ADDRESS ;
  97.              length : LONGINT ;
  98.              keyMap : KeyMapPtr ) : LONGINT ;
  99.  
  100. END Console.
  101.