Rev | Line | |
---|
[1] | 1 | #file=geisa_contents |
---|
| 2 | $geisa <geisainf| |
---|
| 3 | { |
---|
| 4 | skip 7 |
---|
| 5 | echo "<table border>" |
---|
| 6 | read l m n p q r s t u |
---|
| 7 | echo "<captation><h3>" |
---|
| 8 | echol "Contenu de la base <em>$t</em>" "Contents of the <em>$t</em> data base" |
---|
| 9 | echo "</h3></captation>" |
---|
| 10 | skip 4 |
---|
| 11 | read l m n p q r |
---|
| 12 | echo "<tr><th> " |
---|
| 13 | echol "molécule" "molecule" |
---|
| 14 | echo " </th><th> $m </th><th> $n </th><th colspan=2> " |
---|
| 15 | echol "nombre de" "number of" |
---|
| 16 | echo "$r </th></tr>" |
---|
| 17 | skip 2 |
---|
| 18 | while read l m n;test "$l" != "------";do |
---|
| 19 | echo "<tr><td>$l</td><td align=center>$m</td><td>`expr \"$n\" : '/\(.*\)/'`</td><td align=right colspan=2>`expr \"$n\" : '/.*/\(.*\)'`</td></tr>";done |
---|
| 20 | skip 2;ifs=$IFS;IFS=" =";read l m n p q r s t u v nu1 x y nu2;IFS=$ifs |
---|
| 21 | echo "<tr><th colspan=3></th><th> total</th><td align=right>$p</td></tr>" |
---|
| 22 | echo "<captation align=bottom><h4><ul><li>" |
---|
| 23 | echol "Domaine spectral" "Spectral area" |
---|
| 24 | echo ": <em>$nu1</em> à <em>$nu2</em> cm<sup>-1</sup></li></ul></h4></captation>" |
---|
| 25 | echo "<captation align=bottom><h4><ul><li>" |
---|
| 26 | echol "Nombre total de transitions" "Total number of transitions" |
---|
| 27 | echo ": <em>$p</em></li></ul></h4></captation>" |
---|
| 28 | echo "</table>" |
---|
| 29 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.