home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / lang / mod4.hqx / M2-4.pit / MCLOOKUP.DEF < prev    next >
Encoding:
Modula Definition  |  1985-04-25  |  3.4 KB  |  81 lines
  1.  
  2. (****************************************
  3. *                                       *
  4. *     MODULA-2 Multi-Pass Compiler      *
  5. *     ****************************      *
  6. *                                       *
  7. *     Implementation for Lilith         *
  8. *     adapted for SMAKY 8               *
  9. *                                       *
  10. *                                       *
  11. *     MCLookup:                         *
  12. *                                       *
  13. *     Lookup on files according to      *
  14. *     different searching strategies    *
  15. *                                       *
  16. *     Version C19 of 23.07.82           *
  17. *                                       *
  18. *     Institut fuer Informatik          *
  19. *     ETH-Zuerich                       *
  20. *     CH-8092 Zuerich                   *
  21. *                                       *
  22. ****************************************)
  23.  
  24. DEFINITION MODULE MCLookup;        (* LG , PF 13.07.83 *)
  25.  
  26.   FROM M2Files  IMPORT File;
  27.  
  28.   EXPORT QUALIFIED LookupFile,CreateFile, SetLibraries;
  29.  
  30.   PROCEDURE LookupFile(VAR prompt: ARRAY OF CHAR;
  31.                        VAR name: ARRAY OF CHAR;
  32.                        VAR defext: ARRAY OF CHAR;
  33.                        VAR file: File;
  34.                        query, acceptdefault, acceptoptions: BOOLEAN;
  35.                        VAR acceptedfilename: ARRAY OF CHAR;
  36.                        VAR goodfile: BOOLEAN; VAR nofile1: BOOLEAN);
  37.  
  38.     (* for implementation the modules:         *)
  39.     (* Options and CompFile are imported       *)
  40.  
  41.     (* prompt        : string is displayed on terminal *)
  42.     (* name          : for construction of a default file name *)
  43.     (*                 name of the module to be opened, i.e. for which
  44.                        a file name.ext, or LIB.name.ext must be found *)
  45.     (* defext        : default extension of searched file *)
  46.     (* file          : opened file (read-only mode)  *)
  47.     (* query         : explicit asking for file name *)
  48.     (* acceptdefault : accept a default file name *)
  49.     (* acceptoptions : accept options appended to file name *)
  50.     (*                 options are not evaluated *)
  51.     (* acceptedfilename: final file name  *)
  52.     (* goodfile      : lookup was successful *)
  53.     (* nofile1       : operator said: omit this file *)
  54.  
  55.  
  56. PROCEDURE CreateFile (VAR prompt: ARRAY OF CHAR;
  57.                       VAR name  : ARRAY OF CHAR;
  58.                       VAR newext: ARRAY OF CHAR;
  59.                       VAR file  : File;
  60.                       query, acceptdefault, acceptoptions:BOOLEAN;
  61.                       VAR acceptedfilename: ARRAY OF CHAR;
  62.                       VAR goodfile: BOOLEAN; VAR nofile1: BOOLEAN);
  63.  
  64.      (* nearly the same as LookupFile. to open an output file with query*)
  65.      (* doesnt try different libraries to create the file *)
  66.      (* the extension is always changed to newext if default is TRUE *)
  67.  
  68. PROCEDURE SetLibraries (VAR defaultlibstring: ARRAY OF CHAR;
  69.                         query, changedefault: BOOLEAN);
  70.      (* set the libraries to be used in the searching strategy, and/or ask
  71.         the user:
  72.         defaultlibstring: 1 or more library names, separated by comma.
  73.                           or a full filename, from which the library name
  74.                           will be extracted (e.g. source file name).
  75.         query           : if the user should be asked for a libstring.
  76.         changedefault   : TRUE  install 'defaultlibstring'.
  77.                           FALSE = ignore it, use the previous libstring  *)
  78.  
  79. END MCLookup.
  80.  
  81.