home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / Console.def < prev    next >
Text File  |  1994-05-25  |  4KB  |  143 lines
  1. |##########|
  2. |#MAGIC   #|CLABLMKH
  3. |#PROJECT #|"ImportAll"
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx-x-x--xx--x-x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x-xx-x----------
  9. |##########|
  10. DEFINITION MODULE Console;
  11. (* $A- *)
  12. FROM T_Exec      IMPORT IOCommand,nonstdVAL,IOStdReqPtr,LibraryPtr,
  13.                         IOStdReq;
  14. FROM Input       IMPORT InputEventPtr;
  15. FROM KeyMap      IMPORT KeyMapPtr;
  16. FROM System      IMPORT Regs;
  17. FROM Resources   IMPORT ContextPtr;
  18.  
  19. CONST
  20.   askKeyMap          = IOCommand(nonstdVAL+0);
  21.   setKeyMap          = IOCommand(nonstdVAL+1);
  22.   askDefaultKeyMap   = IOCommand(nonstdVAL+2);
  23.   setDefaultKeyMap   = IOCommand(nonstdVAL+3);
  24.  
  25.   primary            = 0;
  26.   bold               = 1;
  27.   italic             = 3;
  28.   underScore         = 4;
  29.   negative           = 7;
  30.  
  31. |(V36)
  32.   normal             = 22;
  33.   notItalic          = 23;
  34.   notUnderscore      = 24;
  35.   positive           = 27;
  36.  
  37.   black              = 30;
  38.   red                = 31;
  39.   green              = 32;
  40.   yellow             = 33;
  41.   blue               = 34;
  42.   magenta            = 35;
  43.   cyan               = 36;
  44.   white              = 37;
  45.   default            = 39;
  46.   blackBg            = 40;
  47.   redBg              = 41;
  48.   greenBg            = 42;
  49.   yellowBg           = 43;
  50.   blueBg             = 44;
  51.   magentaBg          = 45;
  52.   cyanBg             = 46;
  53.   whiteBg            = 47;
  54.   defaultBg          = 49;
  55.  
  56.   clr0               = 30;
  57.   clr1               = 31;
  58.   clr2               = 32;
  59.   clr3               = 33;
  60.   clr4               = 34;
  61.   clr5               = 35;
  62.   clr6               = 36;
  63.   clr7               = 37;
  64.   clr0Bg             = 40;
  65.   clr1Bg             = 41;
  66.   clr2Bg             = 42;
  67.   clr3Bg             = 43;
  68.   clr4Bg             = 44;
  69.   clr5Bg             = 45;
  70.   clr6Bg             = 46;
  71.   clr7Bg             = 47;
  72.  
  73.   dsrCpr             = 6;
  74.  
  75.   ctcHSetTab         = 0;
  76.   ctcHClrTab         = 2;
  77.   ctcHClrTabsAll     = 5;
  78.   tbcHClrTab         = 0;
  79.   tbcHClrTabsAll     = 3;
  80.  
  81.   mLnm               = 20;
  82.   mAsm               = ">1";
  83.   mAwm               = "?7";
  84.  
  85.  
  86. |Definition der verschiedenen Console Units für OpenDevice()
  87. CONST
  88.   library  = -1;
  89.   standard = 0;
  90.  
  91. |(V36)
  92.   charMap  = 1;
  93.   snipMap  = 3;
  94.  
  95. |Neue Flags für OpenDevice() - (V37)
  96. TYPE
  97.   ConFlags   = (nodrawOnNewsize,dummy=31);
  98.   ConFlagSet = SET OF ConFlags;
  99.  
  100. VAR
  101.   ConsoleBase  : LibraryPtr;
  102.  
  103. PROCEDURE OpenConsole(window  : ANYPTR;
  104.                       unit    : LONGCARD   := standard;
  105.                       flags   := ConFlagSet:{};
  106.                       context : ContextPtr := NIL): IOStdReqPtr;
  107.  
  108. PROCEDURE CloseConsole(VAR request : IOStdReqPtr);
  109.  
  110. LIBRARY ConsoleBase BY -42
  111.   PROCEDURE CDInputHandler(events  IN A0  : InputEventPtr;
  112.                            device1 IN A1  : ANYPTR):InputEventPtr;
  113.  
  114. LIBRARY ConsoleBase BY -48
  115.   PROCEDURE RawKeyConvert(events  IN A0  : InputEventPtr;
  116.                           buffer  IN A1  : ANYPTR;
  117.                           length  IN D1  : LONGINT;
  118.                           keyMap  IN A2 : KeyMapPtr):LONGINT;
  119.  
  120. GROUP
  121.   UnitGrp       =  library,standard,charMap,snipMap,ConFlags,
  122.                    ConFlagSet;
  123.   CommandGrp    =  askKeyMap,setKeyMap,askDefaultKeyMap,
  124.                    setDefaultKeyMap;
  125.   StyleGrp      =  primary,bold,italic,underScore,negative,normal,
  126.                    notItalic,notUnderscore,positive;
  127.   ColorGrp      =  black,red,green,yellow,blue,magenta,cyan,white,
  128.                    default,blackBg,redBg,greenBg,yellowBg,blueBg,
  129.                    magentaBg,cyanBg,whiteBg,defaultBg;
  130.   ClrGrp        =  clr0,clr1,clr2,clr3,clr4,clr5,clr6,clr7,clr0Bg,
  131.                    clr1Bg,clr2Bg,clr3Bg,clr4Bg,clr5Bg,clr6Bg,clr7Bg;
  132.   ConstGrp      =  dsrCpr,ctcHSetTab,ctcHClrTab,ctcHClrTabsAll,
  133.                    tbcHClrTab,tbcHClrTabsAll,mLnm,mAsm,mAwm;
  134.  
  135.   ProcGrp       =  T_Exec.ExecIOGrp,OpenConsole,CloseConsole,
  136.                    CDInputHandler,RawKeyConvert;
  137.  
  138.   All           =  UnitGrp,CommandGrp,StyleGrp,ColorGrp,ClrGrp,
  139.                    ConstGrp,ProcGrp;
  140.  
  141.  
  142. END Console.
  143.