home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / demos / 108 / modula / makefore.def < prev    next >
Encoding:
Modula Definition  |  1987-02-20  |  1.4 KB  |  46 lines
  1. DEFINITION MODULE MakeForest;
  2.  
  3.   (*
  4.    * MAKEMAKE.  Create a MAKEFILE for a MODULA-2 program.
  5.    *
  6.    * Written by Steve Tynor, 30 September 1986.
  7.    *            UUCP  : tynor@gitpyr
  8.    *            USNAIL: 2550 Akers Mill Rd. T-2, Atlanta GA. 30339
  9.    *
  10.    * Permission is granted to distribute, copy and change this program as long
  11.    * as this notice remains...
  12.    *)
  13.  
  14. TYPE
  15.   String = ARRAY [0 .. 100] OF CHAR;
  16.  
  17.   FileDefinitionList = POINTER TO FileDefinitionRec;
  18.   ImportList         = POINTER TO ImportRec;
  19.  
  20.   FileDefinitionRec  = RECORD
  21.     filename : String;
  22.     library  : BOOLEAN;           (* this file is a library module *)
  23.     next     : FileDefinitionList;
  24.     imports  : ImportList;        (* points to linked list of imported files *)
  25.   END; (* RECORD *)
  26.  
  27.   ImportRec  = RECORD
  28.     file : FileDefinitionList;
  29.     next : ImportList;
  30.   END; (* RECORD *)
  31.  
  32. VAR
  33.   FileForestEnd,
  34.   FileForest : FileDefinitionList;
  35.  
  36.   (*----------------------------------------------------------------------*)
  37.   PROCEDURE AddImport (VAR fileDefinition :  FileDefinitionList;
  38.                        VAR fname          : ARRAY OF CHAR); 
  39.  
  40.   (*----------------------------------------------------------------------*)
  41.   PROCEDURE AddFile (VAR fname          : ARRAY OF CHAR; 
  42.                      VAR fileDefinition :  FileDefinitionList ) : BOOLEAN;
  43.     (* returns TRUE if file added, FALSE if the file was already there *)
  44.  
  45. END MakeForest.
  46.