home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / modula / path.def < prev    next >
Encoding:
Modula Definition  |  1993-10-23  |  2.2 KB  |  50 lines
  1. (***********************************************************************
  2. *                                                                      *
  3. *                                                                      *
  4. *       MODUL pathstuff                                                *
  5. *                                                                      *
  6. *         unterstuetzt eine Suchstrategie fuer den                     *
  7. *         Modula-Einpasscompiler                                       *
  8. *                                                                      *
  9. *       Files:          pathstuf.def, pathstuf.mod                     *
  10. *       Verfasser:      Gunter Magin                                   *
  11. *       freigegeben:    13.02.87                                       *
  12. *                                                                      *
  13. ***********************************************************************)
  14.  
  15.  
  16. DEFINITION MODULE Path;
  17.  
  18. (* Implementierung einer Suchstrategie fuer den Einpasscompiler;
  19.    sucht benoetigte Files, die nicht im aktuellen Directory
  20.    stehen, in den Directories, die im File mit dem Namen FName 
  21.    (aktuelles Dir) eingetragen sind;
  22.    Achtung: Der eingetragene Pfadname muss so sein, dass der 
  23.        Filename gerade noch angehaengt zu werden braucht !
  24.        Das betrifft insbesondere die Delimiter!! *)
  25.  
  26.  
  27. CONST
  28.   maxNameLen =         31;     (* wie NL in m2pm *)
  29.   maxPathsNum =        20;     (* Anzahl an moeglichen Pfaden *)
  30.   FName =              "m2paths.txt";
  31.                                 (* fuer Atari und Unix *)
  32. TYPE
  33.   Path;
  34.  
  35.  
  36. PROCEDURE FindPath(VAR p: Path; VAR FileName: ARRAY OF CHAR; VAR i: INTEGER);
  37.     (* ordnet dem Ausgabeparameter den i-ten Pfadnamen zu. 
  38.        FileName wird dafuer weder benutzt noch veraendert *)
  39.  
  40. PROCEDURE AddPath(p: Path; VAR relFileName: ARRAY OF CHAR; 
  41.                         VAR absFileName: ARRAY OF CHAR);
  42.  
  43.     (* gibt in absFileName den vollstaendigen Filenamen aus Pfadnamen
  44.        (aus p) und Filenamen (aus relFileName) zurueck.
  45.        Falls relFileName und absFileName dieselbe Variable sind, so 
  46.        treten keine Konflikte auf, da intern zwischengespeichert wird ! *)
  47.  
  48. END Path.
  49.  
  50.