Changeset 660

Timestamp:

Sep 7, 2003, 10:59:28 PM (22 years ago)

Author:

bird

Message:

doxygen like @file headers not the other stuff.

File:

• trunk/src/emx/testcase/statshdr.cmd (modified) (4 diffs, 1 prop)

trunk/src/emx/testcase/statshdr.cmd

@@ -73 +73 @@
 
 /*
- * Do testing.
+ * Do parsing.
  */
 sOut = 'STDOUT';
@@ -81 +81 @@
 call lineout sOut, left('File', 24)||X2C('09')||left('Level', 16);
 call lineout sOut, left('-', 24, '-')||X2C('09')||left('-', 16,'-');
+asTodos.0 = 0;
 do i = 1 to asFiles.0
     call statfile sOut, sInclude, asFiles.i;
 end
 call lineout sOut;
+
+/*
+ * Print todos.
+ */
+say '';
+say 'TODOs:'
+do i = 1 to asTodos.0
+    call lineout sOut, '-'||asTodos.i;
+end
 
 exit(asFailed.0);
@@ -96 +106 @@
  * @param   sFile   The include file to test, full path.
  */
-statfile: procedure expose asExcludes.
+statfile: procedure expose asExcludes. asTodos.
 parse arg sOut, sDir, sFile
     sName = substr(sFile, length(sDir) + 2);
     sLevel = '--';
-    sRemark = '';
-    sChanged = '';
+    asRemarks.0 = 0;
+    asChanges.0 = 0;
     if (isExcluded(sName)) then
     do
@@ -108 +118 @@
     end
 
-    iLine = 1;
-    do while (lines(sFile) & iLine < 200)
+    iLine = 0;
+    fComment = 0;
+    do while (lines(sFile) > 0)
         sLine = strip(linein(sFile));
-        if (left(sLine, 1) = '*' & pos('@@', sLine) > 0) then
+        iLine = iLine + 1;
+
+        if (pos('/'||'*', sLine) > 0) then
+            fComment = 1;
+
+        if (left(sLine, 3) = '/'||'*'||'*' & pos('@file', sLine) > 0) then
         do
-            iPos = pos('@@', sLine);
-            sWord = word(substr(sLine, iPos + 2), 1);
-            if (sWord == 'level') then
-                sLevel = strip(substr(sLine, iPos + 2 + 5));
-            else if (sWord == 'remark') then
-                sRemark = strip(substr(sLine, iPos + 2 + 6));
-            else if (sWord == 'changed') then
-                sChanged = strip(substr(sLine, iPos + 2 + 7));
+            sLine = strip(linein(sFile));
+            sLevel = strip(strip(sLine, 'L', '*'));
         end
-        iLine = iLine + 1;
-    end
-
+        else
+        do
+            do while (fComment &,
+                        (   (left(space(sLine), 3) = '* @'),
+                         |  (left(space(sLine), 5) = '/'||'*'||'*'||' @')) )
+                iPos = pos(' @', sLine);
+                sWord = word(substr(sLine, iPos + 2), 1);
+                sText = strip(substr(sLine, pos('@'sWord, sLine) + length(sWord) + 1));
+
+                /* read following lines */
+                do forever
+                    if (pos('*'||'/', sLine) > 0) then
+                    do
+                        fComment = 0;
+                        leave
+                    end
+                    sLine = strip(linein(sFile));
+                    iLine = iLine + 1;
+                    if (strip(sLine) = '*'||'/') then
+                    do
+                        fComment = 0;
+                        leave
+                    end
+                    if (left(sLine, 1) = '*' & pos(' @', sLine) > 0) then
+                        leave;
+
+                    sText = sText || ' ' || strip(strip(sLine, 'L', '*'));
+                end
+                if (right(sText, 2) = '*/') then
+                    sText = strip(substr(sText, 1, length(sText) - 2));
+
+                if (sWord = 'remark') then
+                do
+                    i = asRemarks.0 + 1;
+                    asRemarks.i = sText
+                    asRemarks.0 = i;
+                end
+                else if (sWord = 'changed') then
+                do
+                    i = asChanges.0 + 1;
+                    asChanges.i = sText
+                    asChanges.0 = i;
+                end
+                else if (sWord = 'todo') then
+                do
+                    i = asTodos.0 + 1;
+                    asTodos.i = sText;
+                    asTodos.0 = i;
+                end
+            end
+        end
+    end
+
+    /*
+     * Produce output.
+     */
     call lineout sOut, left(sName, 24)||X2C('09')||left(sLevel, 16);
-    if (sRemark <> '') then
-        call lineout sOut, X2C('09')'remark:  '||sRemark;
-    if (sChanged <> '') then
-        call lineout sOut, X2C('09')'changes by '||sChanged
+    do i = 1 to asRemarks.0
+        call lineout sOut, X2C('09')'remark: '||asRemarks.i;
+    end
+
+    do i = 1 to asChanges.0
+        if (pos(':', word(asChanges.i, 1)) > 0) then
+            call lineout sOut, X2C('09')'changes by '||asChanges.i
+        else
+            call lineout sOut, X2C('09')'changes: '||asChanges.i
+    end
 return 0;