Line | |
---|
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.