Rev | Line | |
---|
[1] | 1 | #!/bin/sh -f |
---|
| 2 | #file=geisa_anl_histo_local_post |
---|
| 3 | ###. geisa_test_get |
---|
| 4 | . geisa_init |
---|
| 5 | titlel "résultat Analyse Histogrammes" "Histogram Analysis Results" |
---|
| 6 | bnamel "GEISA base locale" "GEISA local database" |
---|
| 7 | . geisa_page_post_begin |
---|
| 8 | mul2url $tempdir/load| |
---|
| 9 | { |
---|
| 10 | . geisa_local_post_start |
---|
| 11 | . geisa_post_getfname |
---|
| 12 | ###. geisa_post_moliso |
---|
| 13 | ###. geisa_post_nu |
---|
| 14 | . geisa_post_moliso_nu |
---|
| 15 | . geisa_post_nbcl |
---|
| 16 | . geisa_post_histo |
---|
| 17 | execute_opt="'anl',iuni=2" |
---|
| 18 | . geisa_post_debug |
---|
| 19 | [ ${error:-0} = 0 ]&& |
---|
| 20 | { |
---|
| 21 | fluni=2 |
---|
| 22 | . geisa_get |
---|
| 23 | if [ "$histo" != ",histo='deux'" ]; then |
---|
| 24 | . geisa_execute |
---|
| 25 | else |
---|
| 26 | #special proc for histo="deux" |
---|
| 27 | . geisa_execute| |
---|
| 28 | { |
---|
| 29 | IFS="";while read l;do |
---|
| 30 | echo "$l";[ `expr "$l" : ' intervalle'` = 0 ]&&continue |
---|
| 31 | read l;echo "$l";read l;echo "$l" |
---|
| 32 | while read l;do read m;[ ! "$m" ]&&{ echo "$l";echo "$m";break;} |
---|
| 33 | echo "$l\c";expr "$m" : ".\{`expr $l : '.*'`\}\(.*\)";done |
---|
| 34 | done |
---|
| 35 | } |
---|
| 36 | fi |
---|
| 37 | . geisa_menu |
---|
| 38 | } |
---|
| 39 | } |
---|
| 40 | . geisa_page_post_end |
---|
Note: See
TracBrowser
for help on using the repository browser.