Changeset 3436 for trunk/tools

Timestamp:

Apr 22, 2000, 12:39:32 AM (26 years ago)

Author:

bird

Message:

Corrected -I option.
Corrected the make command - object files are supposted to be in the base
directory not in a hardcoded "object" directory.

Location:

trunk/tools/vslick

Files:

• . (modified) (1 prop)
• .cvsignore (added)
• genproject.cmd (modified) (8 diffs)

trunk/tools/vslick/genproject.cmd

@@ -1 @@
-/* $Id: genproject.cmd,v 1.1 2000-01-23 03:33:08 bird Exp $
+/* $Id: genproject.cmd,v 1.2 2000-04-21 22:39:32 bird Exp $
  *
  * This script generates a Visual Slick project of the source and include
@@ -14 +14 @@
     parse arg sArg
 
-    sIncludes.0 = 0;
+    sIncludes = '';
     sProjFile = '';
 
@@ -49 +49 @@
         if substr(sArg, 1, 1) == '-' | substr(sArg, 1, 1) == '/' then do
             /* option */
-            sArg = substr(sArg, 2);
-            chArg = substr(sArg, 1, 1);
+            chArg = substr(sArg, 2, 1);
+            sArg  = substr(sArg, 3);
             select
                 when chArg = 'I' | chArg = 'i' then do
-
+                    sIncludes = sIncludes||sArg;
                 end
 
@@ -61 +61 @@
 
                 otherwise  do
-                    say 'illegal option: 'sArg
+                    say 'illegal option: 'chArg||sArg
                     call syntax;
                 end
@@ -77 +77 @@
 
     say 'Will now generate :' sProjFile
-    sInclude='';
-    do i = 1 to sIncludes.0
-        if i = 1 then
-            say 'Includes specified:' sIncludes.i
-        else
-            say '                   ' sIncludes.i
-        sInclude=sInclude||sIncludes.i||';'
-    end
+    say 'Includes specified:' sIncludes
 
     /* delete old target files */
@@ -96 +89 @@
         call lineout sProjFile, 'MACRO=odin32_maketagfile();\n'
         call lineout sProjFile, 'FILTEREXPANSION=1 1 0 0 1'
-        call lineout sProjFile, 'compile=concur|capture|clear|:Compile:&Compile,nmake object\%n.obj'
+        call lineout sProjFile, 'compile=concur|capture|clear|:Compile:&Compile,nmake %n.obj'
         call lineout sProjFile, 'make=concur|capture|clear|:Build:&Build,nmake'
         call lineout sProjFile, 'rebuild=concur|capture|clear|:Rebuild:&Rebuild,nmake /A'
@@ -106 +99 @@
         call lineout sProjFile, 'workingdir='directory()
         /* TODO */
-        call lineout sProjFile, 'includedirs='||sInclude||'%(INCLUDE)'
+        call lineout sProjFile, 'includedirs='||sIncludes||'%(INCLUDE)'
         call lineout sProjFile, 'tagfiles='
         call lineout sProjFile, 'reffile='
@@ -198 +191 @@
     sDir = substr(sDir, i);
 
-    sExcludeDir = 'CVS;';
+    sExcludeDir = 'CVS;old;new;object;list;bin;obj;';
 
     /* look for sExt in sIncludeExt */