home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / EXAMPLES / CH24EX03.PRO < prev    next >
Encoding:
Text File  |  1990-03-26  |  1.2 KB  |  44 lines
  1. /*
  2.    Copyright (c) 1986, 90 by Prolog Development Center
  3. */
  4.    
  5. project "dummy"  /* Use your own project name here */
  6.  
  7. constants
  8.   % Choose the language calling convention, either C or Pascal
  9.   lang = c
  10.  
  11. global predicates
  12.   myfail language lang as "fail"
  13.   mymakewindow(integer,integer,integer,string,integer,integer,integer,integer)
  14.      - (i,i,i,i,i,i,i,i) language lang as "makewindow"
  15.   myshiftwindow(integer) - (i) language lang as "shiftwindow"
  16.   myremovewindow language lang as "removewindow"
  17.   write_integer(integer) - (i) language lang as "write_integer"
  18.   write_real(real) - (i) language lang as "write_real"
  19.   write_string(string) - (i) language lang as "write_string"
  20.   myreadchar(char) - (o) language lang as "readchar"
  21.   myreadline(string) - (o) language lang as "readline"
  22.  
  23.   extprog language lang as "extprog"
  24.  
  25. clauses
  26.    myfail :- fail.
  27.  
  28.    mymakewindow(Wno, Wattr, Fattr, Text, Srow, Scol, Rows, Cols):-
  29.       makewindow(Wno, Wattr, Fattr, Text, Srow, Scol, Rows, Cols).
  30.  
  31.   myshiftwindow(WNO) :- shiftwindow(WNO).
  32.  
  33.   myremovewindow :- removewindow.
  34.  
  35.   write_integer(I) :- write(I).
  36.  
  37.   write_real(R) :- write(R).
  38.  
  39.   write_string(S) :- write(S).
  40.  
  41.   myreadchar(CH) :- readchar(CH).
  42.  
  43.   myreadline(S) :- readln(S).
  44.