Topspeed_JPI/TS-V3/INCLUDE/CONIO.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  CONIO.DEF - Modula-2 interface to CONIO.H                               *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*# project("#set tsc='on'") *)
   12  (*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
   13  (*# module(implementation=>off, init_code=>off) *)
   14  (*# name(prefix=>c) *)
   15  
   16  
   17  DEFINITION MODULE conio;
   18  
   19  CONST
   20    (* **** these are the tags of the enum text_modes *)
   21    LASTMODE              = -1;
   22    BW40                  = 0;
   23    C40                   = 1;
   24    BW80                  = 2;
   25    C80                   = 3;
   26    MONO                  = 7;
   27  
   28    BLACK                 = 0;           (* normal colors                  *)
   29    BLUE                  = 1;
   30    GREEN                 = 2;
   31    CYAN                  = 3;
   32    RED                   = 4;
   33    MAGENTA               = 5;
   34    BROWN                 = 6;
   35    LIGHTGRAY             = 7;
   36    DARKGRAY              = 8;
   37    LIGHTBLUE             = 9;
   38    LIGHTGREEN            = 10;
   39    LIGHTCYAN             = 11;
   40    LIGHTRED              = 12;
   41    LIGHTMAGENTA          = 13;
   42    YELLOW                = 14;
   43    WHITE                 = 15;
   44  
   45    BLINK                 = 128;          (* blink bit                     *)
   46  
   47  TYPE
   48    text_info             = RECORD
   49                              winleft    : SHORTCARD;
   50                              wintop     : SHORTCARD;
   51                              winright   : SHORTCARD;
   52                              winbottom  : SHORTCARD;
   53                              attribute  : SHORTCARD;
   54                              normattr   : SHORTCARD;
   55                              currmode   : SHORTCARD;
   56                              screenheight:SHORTCARD;
   57                              screenwidth: SHORTCARD;
   58                              curx       : SHORTCARD;
   59                              cury       : SHORTCARD;
   60                            END;
*****                            ^ not supported yet
   61  
   62  VAR
   63    directvideo           : CARDINAL;
   64  
   65  
   66  PROCEDURE clreol;
   67  PROCEDURE clrscr;
   68  PROCEDURE delline;
   69  PROCEDURE gettext(left,top,right,bottom:CARDINAL;destin:ADDRESS):CARDINAL;
*****                                                          ^ undeclared identifier
   70  PROCEDURE gettextinfo(VAR r:text_info);
   71  PROCEDURE gotoxy(x,y:CARDINAL);
   72  PROCEDURE highvideo;
   73  PROCEDURE insline;
   74  PROCEDURE lowvideo;
   75  PROCEDURE movetext(left,top,right,bottom,destleft,desttop:CARDINAL):CARDINAL;
   76  PROCEDURE normvideo;
   77  PROCEDURE puttext(left,top,right,bottom:CARDINAL;source:ADDRESS):CARDINAL;
*****                                                          ^ undeclared identifier
   78  PROCEDURE textattr(newattr:CARDINAL);
   79  PROCEDURE textbackground(newcolor:CARDINAL);
   80  PROCEDURE textcolor(newcolor:CARDINAL);
   81  PROCEDURE textmode(newmode:INTEGER);
   82  PROCEDURE wherex():CARDINAL;
   83  PROCEDURE wherey():CARDINAL;
   84  PROCEDURE window(left,top,right,bottom:CARDINAL);
   85  
   86  PROCEDURE cgets(VAR str:ARRAY OF CHAR):ADDRESS;
*****                                   ^ not supported yet
*****                                         ^ undeclared identifier
   87  PROCEDURE cputs(str:ARRAY OF CHAR);
*****                               ^ not supported yet
   88  
   89  (* **** Variable number of parameters *)
   90  (*# save *)
   91  (*# call(c_conv=>on, var_arg=>on) *)
   92  PROCEDURE cprintf(format:ARRAY OF CHAR):CARDINAL;
*****                                    ^ not supported yet
   93  PROCEDURE cscanf(format:ARRAY OF CHAR):CARDINAL;
*****                                   ^ not supported yet
   94  (*# restore *)
   95  
   96  PROCEDURE getch():CARDINAL;
   97  PROCEDURE getche():CARDINAL;
   98  PROCEDURE kbhit():BOOLEAN;
   99  PROCEDURE putch(ch:CARDINAL):INTEGER;
  100  PROCEDURE ungetch(ch:CARDINAL):CARDINAL;
  101  
  102  PROCEDURE inportb(port:CARDINAL):BYTE;
*****                                   ^ undeclared identifier
  103  PROCEDURE outportb(port:CARDINAL;value:BYTE);
*****                                         ^ undeclared identifier
  104  PROCEDURE inportw(port:CARDINAL):WORD;
*****                                   ^ undeclared identifier
  105  PROCEDURE outportw(port:CARDINAL;value:WORD);
*****                                         ^ undeclared identifier
  106  
  107  PROCEDURE geninterrupt(interruptnum:CARDINAL);
  108  PROCEDURE _disable;
  109  PROCEDURE _enable;
  110  
  111  END conio.
*****      ^ not supported yet

   13 errors