Program make;

{ (C) 1992 by B. Künnen - frei kopierbar, sofern dabei niemand Geld
  verdient. Geschrieben habe ich das kleine Tool für die PCQ-Arbeits-
  diskette, die ich für die Purity zusammenstelle. Es erleichtert
  den Umgang mit dem PCQ-Pascal-Compiler erheblich, zumindest für
  Einsteiger.

  Das Programm ist auf diese Arbeitsdiskette ausgelegt. Löschen von
  Dateien und/oder Umbenennen kann zu Problemen führen.

  Erforderlich sind für make :
  - run       im Hauptverzeichnis
  - execute   im c-Verzeichnis
  - compile   im s-Verzeichnis

  sowie alle im file compile verwendeten Kommandos im c-Verzeichnis.

}

 
{$I "include:libraries/dos.i"   }
{$I "include:utils/stringlib.i" }


VAR
	MyOutput	: FileHandle;
	Command,
	src		: String;
	yn		: Char;


BEGIN
	Command:=AllocString(60);		{ Strings müssen }
	src:=AllocString(30);			{ in PCQ alloziert }
						{ werden }

	writeln("PCQ-Make 1.0 - (C) 1992 by B. Künnen\n");
{$A
	move.l	_Output,_MyOutput	; Um write/read auch von WB zu nutzen
}


	Repeat
	  write(" name of program to compile (without .p) : ");  { ohne .p }
	  readln(src);
	  strcpy(Command,"Include:c/execute Include:s/compile ");
	  strcat(Command,src);
	  IF Execute(Command,MyOutput,MyOutput)=False
	  THEN writeln("Compilation failed");

	  writeln("\n");			{ 2 Zeilen Vorschub }
	  write("Another try ? (y/n) ");
	  readln(yn);
	until (yn=('n')) or (yn=('N'));

END.