Changeset 38857

Timestamp:

Oct 13, 2015, 4:46:59 PM (11 years ago)

Author:

watersc1

Message:

Add code to ensure page geometry is set directly so pdflatex can choose the page size correctly. Add render_by_name.text output that attempts to group columns by name so similar fields can be compared without having to track them between tables.

File:

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

trunk/ippToPsps/config/render.pl

@@ -5 +5 @@
 
 my @data = ();
+my %phot_keys = ();
+
 
 open(RR,">./render.tex");
@@ -64 +66 @@
                 elsif ($_ =~ /\<\/FIELD/) {
                     render_row($name,$datatype1,$unit,$def,$desc);
+
                     $field = 0;
+
+                    # Load the information for the "other way sorted" table
+                    push @data, [$name, $tab_name, $datatype1, $unit, $def, $desc];
+                    if ($name =~ /^[DFgrizy]/) {
+                        (my $possible_phot_key = $name) =~ s/^[DFgrizy]//;
+                        $phot_keys{$possible_phot_key} ++;
+                    }
                 }
             }
@@ -76 +86 @@
 }
 render_post();
+close RR;
+
+if (1) {
+    open(RR,">./render_by_name.tex");
+    # Sort by not-a-phot-key, then phot-key alphabetica, then table sequential.
+    foreach my $ppk (sort (keys (%phot_keys))) {
+        if ($phot_keys{$ppk} < 4) {
+            delete($phot_keys{$ppk});
+        }
+    }
+
+    my @non_phot_rows = ();
+    my @phot_rows = ();
+    for ($i = 0; $i <= $#data; $i++) {
+        my $is_phot = 0;
+        foreach my $ppk (sort (keys (%phot_keys))) {
+            if ($data[$i][0] =~ /^[DFgrizy]?${ppk}$/i) {
+                push @phot_rows, $data[$i];
+                $is_phot = 1;
+                next;
+            }
+        }
+        unless ($is_phot) {
+            push @non_phot_rows, $data[$i];
+        }
+    }
+    
+    render_pre();
+    render_tab2();
+    foreach my $row (sort { $a->[0] cmp $b->[0] } (@non_phot_rows)) {
+        render_row2(@{ $row });
+    }
+    render_row2('','','','','','');
+    foreach my $ppk (sort (keys %phot_keys)) {
+        foreach my $row (@phot_rows) {
+            if (${ $row }[0] =~ /^[DFgrizy]?${ppk}$/i) {
+                render_row2(@{ $row });
+            }
+        }
+    }
+    render_end();
+    render_bottom();
+    render_post();
+    
+
+}
 
 sub pRRx {
@@ -88 +144 @@
 
 sub render_pre {
-    pRR '\documentclass[10pt,letter]{article}';
+    pRR '\documentclass[10pt]{article}';
+    pRR '\usepackage[paperheight=17in,paperwidth=11in]{geometry}';
     pRR '\usepackage{longtable}';
     pRR '\usepackage{lscape}';
@@ -100 +157 @@
     pRR '\setlength{\topmargin}{0pt}';
     pRR '\setlength{\footskip}{0pt}';
-    pRR '\setlength{\textheight}{13.5in}';
+    pRR '\setlength{\textheight}{16in}';
     pRR '\setlength{\textwidth}{10.5in}';
     
@@ -124 +181 @@
     pRR '\setlength{\LTleft}{0pt}';
 }
+sub render_tab2 {
+    pRR '\footnotesize';
+    pRR '\begin{center}';
+    pRR '\begin{longtable}{|l|l|l|l|l|l|}';
+    pRR '\setlength{\LTleft}{0pt}';
+}
+
 sub render_row {
     my ($name, $type, $unit, $def, $desc) = @_;
@@ -142 +206 @@
 }
 
+sub render_row2 {
+    my ($name, $table, $type, $unit, $def, $desc) = @_;
+    $name =~ s/^\s+//;
+    $name =~ s/_/\\_/g;
+    $unit =~ s/\^([\d\/-]*)/\$^$1\$/g;
+    $desc =~ s/\^([\d\/-]*)/\$^$1\$/g;
+    $desc =~ s/_/\\_/g;
+    $desc =~ s/\&/\\\&/g;
+    $desc =~ s/\%/\\\%/g;
+
+    pRRx '\parbox[t][][t]{1.5in}{\bf ' . $name  . '} & ';
+    pRRx '\parbox[t][][t]{1.5in}{'     . $table . '} & ';
+    pRRx '\parbox[t][][t]{1.0in}{'     . $type  . '} & ';
+    pRRx '\parbox[t][][t]{1.5in}{'     . $unit  . '} & ';
+    pRRx '\parbox[t][][t]{0.5in}{'     . $def   . '} & ';
+    pRR  '\parbox[t][][t]{7.8in}{'     . $desc  . '} \\\\' ;
+
+}
+
 sub render_end {
     pRR '\end{longtable}';