Changeset 355 for trunk/src

Timestamp:

Jul 11, 2003, 2:27:52 PM (22 years ago)

Author:

bird

Message:

All dependencies done.

File:

• trunk/src/emx/testcase/checkhdrs.cmd (modified) (5 diffs, 1 prop)

trunk/src/emx/testcase/checkhdrs.cmd

@@ -13 +13 @@
  */
 
-parse arg sInclude sOther
+parse arg sInclude sOther
 if (sInclude = '') then
 do
-    say 'syntax: checkhdrs <includedir>';
+    say 'syntax: checkhdrs <includedir>';
     exit 8;
 end
@@ -37 +37 @@
  */
 i = 1;
-asExcludes.i = ''; i=i+1;
+asExcludes.i = 'os2tk.h'; i=i+1;
+asExcludes.i = 'sys\moddef.h'; i=i+1;   /* f**kup */
+asExcludes.i = 'objc\encoding.h'; i=i+1;
+asExcludes.i = 'objc\hash.h'; i=i+1;
+asExcludes.i = 'objc\NXConstS.h'; i=i+1;
+asExcludes.i = 'objc\objc-api.h'; i=i+1;
+asExcludes.i = 'objc\objc-lis.h'; i=i+1;
+asExcludes.i = 'objc\objc.h'; i=i+1;
+asExcludes.i = 'objc\Object.h'; i=i+1;
+asExcludes.i = 'objc\Protocol.h'; i=i+1;
+asExcludes.i = 'objc\sarray.h'; i=i+1;
+asExcludes.i = 'objc\thr.h'; i=i+1;
+asExcludes.i = 'objc\typedstr.h'; i=i+1;
+asExcludes.i = '386\types.h'; i=i+1;
+asExcludes.i = 'machine\types.h'; i=i+1;
 asExcludes.0 = i - 1;
 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
 
 /*
@@ -45 +104 @@
  */
 asFiles.0 = 0;
-rc = SysFileTree(sInclude'\*.h', 'asFiles', 'OSF');
+if (sFile <> '') then
+do
+    rc = SysFileTree(sFile, 'asFiles', 'OSF');
+    if (asFiles.0 = 0) then
+        rc = SysFileTree(sInclude'\'sFile, 'asFiles', 'OSF');
+end
+else
+    rc = SysFileTree(sInclude'\*.h', 'asFiles', 'OSF');
 if (rc <> 0) then
 do
@@ -59 +125 @@
 asFailed.0 = 0;
 do i = 1 to asFiles.0
-    sName = substr(asFiles.i, length(sInclude) + 2);
-    say 'info: testing 'sName'....';
+    call testfile sInclude, asFiles.i;
+end
+
+if (asFailed.0 > 0) then
+do
+    say 'The following files failed:'
+    do i = 1 to asFailed.0
+        say '  'asFailed.i;
+    end
+end
+
+exit(asFailed.0);
+
+
+
+/**
+ * Test one file.
+ * @returns 0
+ * @param   sDir    Include directory (for the -I option and for basing sFile).
+ * @param   sFile   The include file to test, full path.
+ */
+testfile: procedure expose asFailed. asExcludes. aReq.
+parse arg sDir, sFile
+    sName = substr(sFile, length(sDir) + 2);
+    if (isExcluded(sName)) then
+    do
+        say 'info: skipping 'sName'...';
+        return 0;
+    end
+
+    say 'info: testing 'sName'...';
     sTmp = '.\tmpfile.cpp';
     sTmpS = '.\tmpfile.s';
     call SysFileDelete sTmp;
+
     call lineout sTmp, '#include <'sName'>';
     call lineout sTmp, 'int main() {return 0;}';
     call lineout sTmp
-    Address CMD 'gcc -S -I'sInclude sTmp;
+    /*Address CMD 'type 'sTmp; */
+    Address CMD 'gcc -S -O -Wall -I'sDir sTmp;
     if (rc <> 0) then
     do
@@ -76 +173 @@
     call SysFileDelete sTmp;
     call SysFileDelete sTmpS;
-end
-
-if (asFailed.0 > 0) then
-do
-    say 'The following files failed:'
-    do i = 1 to asFailed.0
-        say '  'asFailed.i;
-    end
-end
-
-exit(asFailed.0);
+return 0;
+
+
+/**
+ * Check if sFile is excluded from testing.
+ */
+isExcluded: procedure expose asExcludes.
+parse arg sFile
+    do i = 1 to asExcludes.0
+        if (sFile = asExcludes.i) then
+            return 1;
+    end
+return 0;
+
+
+/**
+ * Writes required code (#includes) for a given header.
+ */
+writeReqs: procedure expose aReq.
+parse arg sOutput, sFile
+    do i = 1 to aReq.0
+        if (sFile = aReq.i.msHdr) then
+        do
+            do j = 1 to words(aReq.i.msIncs)
+                call lineout sOutput, '#include <'word(aReq.i.msIncs, j)'>';
+            end
+            leave i;
+        end
+    end
+return 0;