Added info prints so that we know how far the program worked.

packages/opengl/c_linuxd.pp

@@ -67,9 +67,12 @@ var
   s: String;
   j: Integer;
 begin
+  WriteLn('File Generator for OpenGL related Units');
 
   // Load definition files
 
+  WriteLn('Loading definition files...');
+
   DefGL    := TDefReader.Create('gl.def');
   DefGLExt := TDefReader.Create('glext.def');
   DefGLU   := TDefReader.Create('glu.def');
@@ -79,6 +82,8 @@ begin
 
   // Build GL unit
 
+  WriteLn('Generating GL unit for Linux...');
+
   Assign(f, 'linuxd/gl.pp');
   Rewrite(f);
   Assign(tpl, 'gl_linux.tpl');
@@ -121,6 +126,8 @@ begin
 
   // Build GLUT unit
 
+  WriteLn('Generating GLut unit for Linux...');
+
   Assign(f, 'linuxd/glut.pp');
   Rewrite(f);
   Assign(tpl, 'glut_linux.tpl');
@@ -146,12 +153,17 @@ begin
   end;
   PrintCVSLogSection;
   Close(f);
+
+  WriteLn('Done...');
 end.
 
 
 {
   $Log$
-  Revision 1.1  1999-11-28 17:55:22  sg
+  Revision 1.2  1999-12-01 00:55:44  alex
+  Added info prints so that we know how far the program worked.
+
+  Revision 1.1  1999/11/28 17:55:22  sg
   * Added new unit generation tools and auto-generated GL units for Linux
 
 }