Changeset 38936 for trunk/ippToPsps/config/render.pl

Timestamp:

Oct 21, 2015, 2:45:57 PM (11 years ago)

Author:

watersc1

Message:

Add schema browser parser code to render.pl

File:

• trunk/ippToPsps/config/render.pl (modified) (2 diffs)

trunk/ippToPsps/config/render.pl

@@ -85 +85 @@
     }
     render_bottom();
-}
+
+}
+
+if (1) { 
+# Begin schema organization form.
+    
+    open(SB,"./schema_browser.vot");
+    my $depth = 0;
+    
+    render_SB_start();
+    while (<SB>) {
+        chomp;
+        
+        if ($_ =~ /<RESOURCE /) {
+            $depth++;
+            if ($depth == 1) {
+                render_SB_resource($_);
+            }
+            elsif ($depth == 2) {
+                render_SB_table($_);
+            }
+        }
+        elsif ($_ =~ /<TABLE /) {
+            if ($depth == 1) {
+                render_SB_table($_);
+            }
+        }
+        elsif ($_ =~ /<\/RESOURCE>/) {
+            $depth--;
+        }
+    }
+    close(SB);
+    render_SB_stop();
+}
+
 render_post();
 close RR;
@@ -229 +263 @@
 }
 
+sub render_SB_start {
+    pRR '\end{landscape}';
+
+    pRR '\newpage';
+    pRR '\vspace*{1in}';   
+    
+    pRR '\setcounter{section}{0}';
+    pRR '\renewcommand\thesection{\Alph{section}}';
+    pRR '\section{Schema Browser Listing}';
+    pRR '\footnotesize';
+#    pRR '\begin{center}';
+    pRR '\begin{longtable}{|l|l|l|}';
+    pRR '\setlength{\LTleft}{0pt}%';
+}
+
+sub render_SB_resource {
+    my $name = $_;
+    $name =~ s/^.*name="//;
+    $name =~ s/">.*$//;
+
+    pRRx '\parbox[t][][t]{2in}{\bf ' . $name . '} & ';
+    pRR '\parbox[t][][t]{3in}{} \\\\ ';
+}
+
+sub render_SB_table {
+    my $name = shift;
+    $name =~ s/^.*name="//;
+    $name =~ s/">.*$//;
+
+    pRRx '\parbox[t][][t]{2in}{} & ';
+    pRR '\parbox[t][][t]{3in}{' . $name . '} \\\\ ';
+}    
+    
+
+sub render_SB_stop {
+    pRR '\end{longtable}';
+    pRR '\normalsize';
+    pRR '\begin{landscape}';
+}
+
+
 sub render_end {
     pRR '\end{longtable}';