home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / EXAMPLES.ARC / CH21EX01.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  823 b   |  39 lines
  1. /*
  2.    Turbo Prolog 2.0 Chapter 21, Example Program 1
  3.    
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5.    
  6. */
  7. ifdef menubased
  8.  
  9. include "\\tools\\status.pro"
  10. include "\\tools\\pulldown.pro"
  11.  
  12. consts
  13.   menubased = 1   
  14.  
  15. clauses
  16.   pdwaction(1,0):-
  17.     shiftwindow(OLD),shiftwindow(1),NOHINGE
  18. %     .... etc ....
  19.  
  20. goal
  21.   makestatus(112," Select with arrows or use first uppercase letter"),
  22.   pulldown(66,
  23.       [ curtain("Generate C types",[]),
  24.         curtain("View generated",[]),
  25.         curtain("Edit",[]),
  26.         curtain("Files",["Load","Save","Dir"]),
  27.          curtain("Quit"      ,[])
  28.           ],_,_).
  29.  
  30. elsedef
  31. goal
  32.    comline(L),
  33.    extendFilename(L,"PRO",FILENAME),
  34.    newExt(FILENAME,"C",OUTPUTFILE),
  35.    file_str(FILENAME,SOURCE),
  36.    change(source(SOURCE)),
  37.    process(OUTPUTFILE).
  38.  
  39.