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

Timestamp:

Oct 16, 2015, 3:20:36 PM (11 years ago)

Author:

watersc1

Message:

Update render script to better format exponents. Fix typos pointed out in emails.

File:

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

trunk/ippToPsps/config/render.pl

@@ -8 +8 @@
 
 
-open(RR,">./render.tex");
+open(RR,">./schema.tex");
 
 render_pre();
@@ -89 +89 @@
 
 if (1) {
-    open(RR,">./render_by_name.tex");
+    open(RR,">./schema_by_name.tex");
     # Sort by not-a-phot-key, then phot-key alphabetica, then table sequential.
     foreach my $ppk (sort (keys (%phot_keys))) {
@@ -195 +195 @@
     $name =~ s/^\s+//;
     $name =~ s/_/\\_/g;
-    $unit =~ s/\^([\d\/-]*)/\$^$1\$/g;
-    $desc =~ s/\^([\d\/-]*)/\$^$1\$/g;
+    $unit =~ s/\^([\d\/\-\.]*)/\$^\{$1\}\$/g;
+    $desc =~ s/\^([\d\/\-\.]*)/\$^\{$1\}\$/g;
     $desc =~ s/_/\\_/g;
     $desc =~ s/\&/\\\&/g;
@@ -213 +213 @@
     $name =~ s/^\s+//;
     $name =~ s/_/\\_/g;
-    $unit =~ s/\^([\d\/-]*)/\$^$1\$/g;
-    $desc =~ s/\^([\d\/-]*)/\$^$1\$/g;
+    $unit =~ s/\^([\d\/\-\.]*)/\$^\{$1\}\$/g;
+    $desc =~ s/\^([\d\/\-\.]*)/\$^\{$1\}\$/g;
     $desc =~ s/_/\\_/g;
     $desc =~ s/\&/\\\&/g;