gpcp/gpcp.cp

   1 (* ==================================================================== *)
   2 (*                                                                      *)
   3 (*  Driver Module for the Gardens Point Component Pascal Compiler.      *)
   4 (*      Copyright (c) John Gough 1999, 2000.                            *)
   5 (*      This module was extensively modified from the driver            *)
   6 (*      automatically produced by the M2 version of COCO/R, using       *)
   7 (*      the CPascal.atg grammar used for the JVM version of GPCP.       *)
   8 (*                                                                      *)
   9 (* ==================================================================== *)
  10
  11 MODULE gpcp;
  12   IMPORT
  13         GPCPcopyright,
  14         CPmain,
  15         GPFiles,
  16         ProgArgs,
  17         Main := CPascal;
  18
  19 (* ==================================================================== *)
  20
  21   VAR
  22     chr0 : CHAR;
  23     parN : INTEGER;
  24     filN : INTEGER;
  25     junk : INTEGER;
  26     argN : ARRAY 256 OF CHAR;
  27
  28 (* ==================================================================== *)
  29 (*                            Main Argument Loop                        *)
  30 (* ==================================================================== *)
  31
  32 BEGIN
  33   filN := 0;
  34   FOR parN := 0 TO ProgArgs.ArgNumber()-1 DO
  35     ProgArgs.GetArg(parN, argN);
  36     chr0 := argN[0];
  37     IF (chr0 = '-') OR (chr0 = GPFiles.optChar) THEN (* option string *)
  38       Main.DoOption(argN$);
  39     ELSE
  40       Main.Compile(argN$, junk); INC(filN);
  41     END;
  42   END;
  43   IF filN = 0 THEN Main.Message("No input files specified") END;
  44  (*
  45   *  Return the result code of the final compilation
  46   *)
  47   IF junk # 0 THEN HALT(1) END;
  48 END gpcp.
  49
  50 (* ==================================================================== *)