Changeset 02d19d8 in rtems

Timestamp:

Feb 5, 1998, 8:05:26 PM (22 years ago)

Author:

Joel Sherrill <joel.sherrill@…>

Branches:

4.10, 4.11, 4.8, 4.9, master

Children:

f02ffca

Parents:

b37137b

Message:

Added code to more correctly process abstract types (handle, range, etc).

Location:

doc/tools/pdl2texi

Files:

• Makefile (modified) (1 diff)
• main.c (modified) (7 diffs)

doc/tools/pdl2texi/Makefile

@@ -65 +65 @@
         ./$(PROG) -w -v -p "Turret Subsystem" -u "Turret Subsystem" $(BASE).d
 
+enum:
+        ./$(PROG) -w -v -p "Magic Subsystem" \
+            -u "Magic Subsystem" test_cases/enum.d
+        ./$(PROG) -w -v -p "Magic Subsystem" \
+            -u "Magic Subsystem" test_cases/enumbad.d
+        
+avdas:
+        ./$(PROG) -v -p "Magic Subsystem" \
+            -u "Magic Subsystem" test_cases/avdas.d
+        
 clean:
         rm -f *.o $(PROG) *.txt core *.html $(PROJECT) Drive.texi
         rm -f *.dvi *.ps *.log *.aux *.cp *.fn *.ky *.pg *.toc *.tp *.vr $(BASE)
+        rm -f test_cases/*.txt test_cases/*.texi
 

doc/tools/pdl2texi/main.c

@@ -10 +10 @@
  *    + rudimentary statistics
  *    + forgiveness features 
+ *    + output in Texinfo format
+ *    + output in a form that a sibling MS-Word VBA program can format
  * 
  *  CHECKS PERFORMED:
@@ -15 +17 @@
  *    + unexpected end of file
  *    + line should have a colon
- *    + basic text (to right or below) associated with keyword improperly placed
+ *    + basic text (to right or below) associated with keyword
+ *      improperly placed
  *    + an "incomplete marker" is still in place
  *    + missing keywords within a subsection
@@ -2941 +2944 @@
         strcpy( new_line->Contents, "@Example = " );
 
-        do {
+        while ( !line->keyword ) {
           if ( strlen( line->Contents ) ) {
             new_line->keyword = line->keyword;
@@ -2960 +2963 @@
             strcpy( new_line->Contents, "@Example = " );
           }
-        } while ( !line->keyword );
+        }
 
         /* at this point line points to the next keyword */
@@ -3253 +3256 @@
   boolean       members_found = FALSE;
   boolean       enumerated_found = FALSE;
+  boolean       no_range_or_members = FALSE;
   boolean       true_found = FALSE;
   boolean       false_found = FALSE;
@@ -3265 +3269 @@
     else if ( line->keyword == MEMBERS ) {
       members_found = TRUE;
-    } else if ( line->keyword == TYPE || line->keyword == DERIVATION ) {
+    } else if ( line->keyword == TYPE ) {
       if ( strstr( line->Contents, "enumerated" ) || 
            strstr( line->Contents, "structure" ) )
         enumerated_found = TRUE;
-    }
-  }
-
-  if ( !range_found && !members_found ) {
-    fprintf(
-       stderr,
-       "Neither range nor members keyword present in "
-         "subsection starting at line %d\n",
-       start->number
-     );
-     errors++;
+    } else if ( line->keyword == DERIVATION ) {
+      if ( strstr( line->Contents, "enumerated" ) || 
+           strstr( line->Contents, "structure" ) ) {
+        enumerated_found = TRUE;
+      } else if ( strstr( line->Contents, "handle" ) || 
+                  strstr( line->Contents, "array" ) || 
+                  strstr( line->Contents, "string" ) ) {
+        no_range_or_members = TRUE;
+      }
+    }
+  }
+
+  if ( no_range_or_members ) {
+/* This code does not like:
+
+ABSTRACT TYPE: Times
+  DESCRIPTION:
+    This type specifies mode elapsed times.
+  VISIBILITY: public
+  DERIVATION: array of Elapsed_Seconds of Timeutil
+  RANGE: COMM - ENGAGE of Current_mode_t
+
+    if ( range_found ) {
+       fprintf(
+         stderr,
+         "Range should not be specified in subsection starting at line %d\n",
+         start->number
+       );
+       errors++;
+    }
+*/
+    if ( members_found ) {
+       fprintf(
+         stderr,
+         "Members should not be specified in subsection starting at line %d\n",
+         start->number
+       );
+       errors++;
+    }
+  } else {
+    if ( !range_found && !members_found ) {
+      fprintf(
+         stderr,
+         "Neither range nor members keyword present in "
+           "subsection starting at line %d\n",
+         start->number
+       );
+       errors++;
+    }
+
+    if ( !enumerated_found  && !range_found ) {
+      fprintf(
+         stderr,
+         "Type does not have range specified in "
+           "subsection starting at line %d\n",
+         start->number
+       );
+       errors++;
+    }
+
   }
 
@@ -3298 +3351 @@
        stderr,
        "Enumerated type without list of members in "
-         "subsection starting at line %d\n",
-       start->number
-     );
-     errors++;
-  }
-
-  if ( !enumerated_found  && !range_found ) {
-    fprintf(
-       stderr,
-       "Type does not have range specified in "
          "subsection starting at line %d\n",
        start->number