Changeset 13725 for trunk/ippMonitor/generate

Timestamp:

Jun 8, 2007, 12:53:56 PM (19 years ago)

Author:

eugene

Message:

more features

File:

• trunk/ippMonitor/generate (modified) (2 diffs)

trunk/ippMonitor/generate

@@ -85 +85 @@
         # the TD_CLASS command sets up an alternate TD class
         if ($key eq "TD_CLASS") {
-            $tdClass = $value;
+            push @tdClasses, $value;
             # print STDERR "found TD_CLASS\n";
         }
@@ -242 +242 @@
     my ($field, $testline);
 
-    if ($tdClass eq "") { return; }
-    # print STDERR "write TD CLASS: $tdClass...\n";
-
-    # TD_CLASS class field expression
-    ($class, $field, $testline) = split (" ", $tdClass, 3);
-
-    $field = &parse_fieldname ($field);
-
-    printf FILE "  if ($field $testline) {\n";
-    printf FILE "    \$class = \"$class\";\n";
-    printf FILE "  }\n";
+    if (@tdClasses == 0) { return; }
+    foreach $tdClass (@tdClasses) {
+        print STDERR "write TD CLASS: $tdClass...\n";
+
+        # TD_CLASS class field expression
+        ($class, $field, $testline) = split (" ", $tdClass, 3);
+
+        $field = &parse_fieldname ($field);
+
+        printf FILE "  if ($field $testline) {\n";
+        printf FILE "    \$class = \"$class\";\n";
+        printf FILE "  }\n";
+
+        printf STDERR "  if ($field $testline) {\n";
+        printf STDERR "    \$class = \"$class\";\n";
+        printf STDERR "  }\n";
+    }
 }