Rev 14945 | Rev 15722 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 9381 | schaersvoo | 1 | #!/bin/sh |
| 2 | # do not run compile time ! |
||
| 12107 | schaersvoo | 3 | # generates simple canvasdraw usage html-page and a javascript live example |
| 9381 | schaersvoo | 4 | |
| 14945 | obado | 5 | # See the generated canvasdraw help at http://localhost/wims/?module=adm/createxo&cmd=help&special_parm=canvasdraw |
| 6 | |||
| 13940 | bpr | 7 | ##echo "install into wims distribution(D) |
| 8 | ##or use for local testing (L) ? |
||
| 9 | ##D,L ?" |
||
| 10 | ##read ans |
||
| 11 | ans="D" |
||
| 12 | helpdir="../../../public_html/scripts/help" |
||
| 13962 | bpr | 13 | if [ $ans = "D" ]; then |
| 14409 | obado | 14 | # path used for href/http link ! |
| 15 | jsdir="scripts/help/canvas_examples" |
||
| 16 | mkdir -p "$helpdir/canvas_examples" 2>/dev/null |
||
| 12107 | schaersvoo | 17 | else |
| 14409 | obado | 18 | jsdir="./examples" |
| 12107 | schaersvoo | 19 | fi |
| 11013 | schaersvoo | 20 | in="canvasdraw.c" |
| 21 | phtml="canvasdraw.phtml" |
||
| 14945 | obado | 22 | # html="canvasdraw.html" |
| 11013 | schaersvoo | 23 | tmp="canvas_index" |
| 24 | keys="keywords" |
||
| 25 | datum=`date +%d-%m-%Y` |
||
| 14945 | obado | 26 | # htmlhead="<!DOCTYPE html><html><body>" |
| 27 | # htmltail="</body></html>" |
||
| 28 | # interaction="<script>\"use strict\";function read_canvas(){if( typeof popup !== 'undefined' ){var fun = popup['read_canvas'+canvas_scripts[0]];return fun();}else{var script_len = canvas_scripts.length;var draw_reply = \"\";var found_result = false;for(var p = 0 ; p < script_len ; p++){var fun = eval(\"read_canvas\"+canvas_scripts[p]);if( typeof fun === 'function'){var result = fun();if( result && result.length != 0){if(script_len == 1 ){ return result;};found_result = true;draw_reply = draw_reply + \"[\"+p+\"]=\"+ result + \"\n\";};};};if( found_result ){return draw_reply;}else{return null;}};};function read_dragdrop(){if( typeof popup !== 'undefined' ){var fun = popup['read_dragdrop'+canvas_scripts[0]];return fun();}else{var script_len = canvas_scripts.length;var dragdrop_reply = \"\";var found_result = false; for(var p = 0 ; p < script_len ; p++){var fun = eval(\"read_dragdrop\"+canvas_scripts[p]); if(typeof fun === 'function'){var result = fun();if( result && result.length != 0 ){if(script_len == 1 ){ return result;};found_result = true;dragdrop_reply = dragdrop_reply + \"[\"+p+\"]=\" + result +\"\n\";};};};if( found_result ){return dragdrop_reply;}else{return null;}};};</script><input type=\"button\" onclick=\"alert(read_canvas());\" value=\"read_canvas()\" /><input type=\"button\" onclick=\"alert(read_dragdrop());\" value=\"read_dragdrop()\" />" |
||
| 12107 | schaersvoo | 29 | |
| 12106 | schaersvoo | 30 | # these are only used to simulate a wims session |
| 31 | export "w_wims_session"="example" |
||
| 32 | export "w_session"="123" |
||
| 33 | export "w_wims_home"="/var/wims/src/Misc" |
||
| 12107 | schaersvoo | 34 | wims_tmp="../sessions/example/getfile/" |
| 12106 | schaersvoo | 35 | mkdir -p $wims_tmp |
| 13940 | bpr | 36 | # the popup html pages and corresponding javascript includes are locate here |
| 37 | tmpdir="canvas_examples" |
||
| 12106 | schaersvoo | 38 | rm -rf $tmpdir |
| 39 | mkdir $tmpdir 2>/dev/null |
||
| 11090 | bpr | 40 | |
| 13940 | bpr | 41 | ##echo "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.1 plus MathML 2.0//EN\" \"http://www.w3.org/Math/DTD/mathml2/xhtml-math11-f.dtd\"> |
| 42 | ##<html> |
||
| 43 | ##<head><meta charset=\"UTF-8\"></head> |
||
| 44 | ##<body xmlns=\"http://www.w3.org/1999/xhtml\" class=\"main_body\" dir=\"ltr\"> |
||
| 45 | ##<style type='text/css'> |
||
| 46 | ## a:link {color:#004077;text-decoration:none;cursor:pointer;} |
||
| 47 | ## a:hover {color:#dd6300;} |
||
| 48 | ## a:visited {color:#004077;} |
||
| 49 | ##</style>"> $html |
||
| 11013 | schaersvoo | 50 | |
| 14409 | obado | 51 | echo "!!generated by canvasinfo.sh | Do NOT Modify here. |
| 52 | <div class='wims_search_engine'><div class='wimscenter'> |
||
| 53 | <input type='search' id='search' placeholder='enter a command name' |
||
| 54 | onkeydown='javascript:if(event.keyCode == 13){look();}' |
||
| 55 | /><button class='wims_button icon_button' type='submit' onclick='javascript:look();'> |
||
| 56 | <span class='Searching'>\$wims_name_search</span></button> |
||
| 57 | </div></div> |
||
| 14071 | bpr | 58 | <h2 class='wims_title'>Implemented canvasdraw commands ($datum)</h2> |
| 14409 | obado | 59 | <ul class='flex_box grid-x small-up-3 medium-up-4 large-up-8 small'> |
| 11013 | schaersvoo | 60 | " > $phtml |
| 11090 | bpr | 61 | |
| 9381 | schaersvoo | 62 | p=0 |
| 14066 | bpr | 63 | echo "" > $tmp |
| 14069 | bpr | 64 | cntex=0 |
| 9381 | schaersvoo | 65 | while read line ; do |
| 14066 | bpr | 66 | chk=`echo "$line" | grep "@"` |
| 67 | if [ ! -z "$chk" ] ; then |
||
| 68 | chk=`echo "$chk" | grep @%` |
||
| 69 | if [ -z "$chk" ] ; then |
||
| 70 | if [ $p -eq 0 ]; then |
||
| 71 | string=`echo "$line" | tr '@' ' '` |
||
| 72 | idx=`echo "$string" | awk '{ print $1 }'` |
||
| 73 | echo ",'$idx'" >> $keys |
||
| 14409 | obado | 74 | |
| 75 | echo "<li class='card cell'><div class='card-section'> |
||
| 76 | <a id='${idx}_top' href='#$idx'>$idx</a></div></li>" >> $phtml |
||
| 77 | echo "<h3 id='$idx'>$idx <a href='#${idx}_top' title='return at the command list'>↑</a></h3> |
||
| 14066 | bpr | 78 | <code>$string</code> |
| 79 | <ul>" >> $tmp |
||
| 80 | p=1 |
||
| 81 | else |
||
| 82 | p=2 |
||
| 15715 | schaersvoo | 83 | alt=`echo "$line" | grep "@ alternative:" | awk -F'alternative:' '{ print $2 }' | tr -d '[:blank:]'` |
| 14066 | bpr | 84 | if [ ! -z $alt ] ; then |
| 85 | echo ",'$alt'" >> $keys |
||
| 14069 | bpr | 86 | echo "<td><a id='${alt}_top' href='#$idx'>$alt</a></td>" >> $phtml |
| 15715 | schaersvoo | 87 | echo "<li><span>alternative command: <a id='$alt' href='#${alt}_top'><code>$alt</code></a></span></li>" >> $tmp |
| 14066 | bpr | 88 | else |
| 14071 | bpr | 89 | echo $line | sed 's/@/<li>/g' | sed "s/''/<span class=\"wims_emph\">/g" | sed "s!\`\`!</span>!g" >> $tmp |
| 14066 | bpr | 90 | echo "</li>" >> $tmp |
| 91 | fi |
||
| 92 | fi |
||
| 12106 | schaersvoo | 93 | else |
| 14066 | bpr | 94 | # begin generating live examples signaled by @% |
| 95 | name=`echo "$chk" | awk -F'%' '{ print $2 }' ` |
||
| 96 | echo "command $name" |
||
| 97 | cont=`echo "$chk" | tr '%' '\n'` |
||
| 98 | #echo "!!generated by canvasinfo.sh" > $tmpdir/$name |
||
| 99 | echo "$cont" | sed '1,2d'> $tmpdir/$name |
||
| 100 | ##echo "$htmlhead" > $tmpdir/$name.html |
||
| 101 | ##cat $tmpdir/$name | ~/other/bin/canvasdraw | sed 's/src=\"wims.cgi?session=123*.*.js\"/src=\"'$name'.js\"/g' >> $tmpdir/$name.html |
||
| 14069 | bpr | 102 | if [ $cntex -eq 0 ]; then echo "<li>" >> $tmp ; fi |
| 103 | cntex=$(($cntex+1)) |
||
| 104 | echo " |
||
| 14066 | bpr | 105 | !set wims_ref_class=wims_button |
| 106 | !href cmd=help&special_parm=canvas_examples,$name \$wims_name_Example: $name |
||
| 14069 | bpr | 107 | " >> $tmp |
| 14066 | bpr | 108 | ##echo "<textarea cols='60' rows='10'>" >> $tmpdir/$name.html |
| 109 | ##echo "$cont" | sed '1,2d' >> $tmpdir/$name.html |
||
| 110 | ##echo "</textarea>" >> $tmpdir/$name.html |
||
| 111 | ##echo "$interaction" >> $tmpdir/$name.html |
||
| 112 | ##echo "$htmltail" >> $tmpdir/$name.html |
||
| 113 | ##mv -v $wims_tmp/*.js $tmpdir/$name.js |
||
| 12106 | schaersvoo | 114 | fi |
| 115 | else |
||
| 14066 | bpr | 116 | if [ $p -eq 2 ]; then |
| 14069 | bpr | 117 | if [ $cntex -gt 0 ]; then |
| 118 | echo "</li>" >> $tmp |
||
| 119 | fi |
||
| 120 | cntex=0 |
||
| 14066 | bpr | 121 | echo "</ul>" >> $tmp |
| 122 | fi |
||
| 123 | p=0 |
||
| 9383 | schaersvoo | 124 | fi |
| 9381 | schaersvoo | 125 | done < $in |
| 11013 | schaersvoo | 126 | |
| 14409 | obado | 127 | echo "</ul>" >> $phtml |
| 128 | |||
| 11013 | schaersvoo | 129 | cat $tmp >> $phtml |
| 9381 | schaersvoo | 130 | keywords=`cat $keys | tr -d '\n'` |
| 131 | echo " |
||
| 14409 | obado | 132 | <script> |
| 9381 | schaersvoo | 133 | var keys = ['canvasdraw' $keywords]; |
| 134 | var keys_len = keys.length; |
||
| 9382 | schaersvoo | 135 | function match(s1,s2){ |
| 14066 | bpr | 136 | var n1 = s1.length; |
| 137 | if(n1 < 3){return 0;} |
||
| 138 | var n2 = s2.length; |
||
| 139 | var c1,c2,found; |
||
| 140 | var count = n1 - Math.abs(n1 - n2); |
||
| 141 | for(var p = 0;p < n1;p++){ |
||
| 142 | c1=s1.charAt(p); |
||
| 143 | found = false; |
||
| 144 | for(var i = 0;i < n2;i++){ |
||
| 145 | c2 = s2.charAt(i); |
||
| 146 | if(c1 == c2){found = true;count = count + n1 - Math.abs(p - i);} |
||
| 147 | }; |
||
| 148 | if(! found ){count = count - n2;} |
||
| 149 | }; |
||
| 150 | return count; |
||
| 9382 | schaersvoo | 151 | }; |
| 9381 | schaersvoo | 152 | function look(){ |
| 9382 | schaersvoo | 153 | var s = ((document.getElementById('search').value).replace(/\s/g, '')).toLowerCase(); |
| 154 | var typo;var next_best = -1;var next_idx = s.length;var tmp;var ss; |
||
| 9381 | schaersvoo | 155 | for(var p = 0; p < keys_len ; p++){ |
| 14066 | bpr | 156 | ss = keys[p]; |
| 157 | if( s == ss ){ |
||
| 14409 | obado | 158 | document.getElementById(s).scrollIntoView({behavior: \"smooth\", block: \"center\"}); |
| 14066 | bpr | 159 | return; |
| 160 | }; |
||
| 161 | /* not ok? ... try to find a match for a reasonable typo... */ |
||
| 162 | tmp = match(s,ss); |
||
| 163 | if(tmp > next_idx){ |
||
| 164 | next_idx = tmp; |
||
| 165 | next_best = p; |
||
| 166 | }; |
||
| 9381 | schaersvoo | 167 | }; |
| 9382 | schaersvoo | 168 | if(next_best != -1 ){ |
| 14066 | bpr | 169 | typo = keys[next_best]; |
| 14409 | obado | 170 | if(confirm('\"'+s+'\" is not a valid canvasdraw command. Did you mean \"'+typo+'\" ?')){ |
| 171 | document.getElementById(typo).scrollIntoView({behavior: \"smooth\", block: \"center\"}); |
||
| 14066 | bpr | 172 | return; |
| 173 | }; |
||
| 9382 | schaersvoo | 174 | } |
| 14409 | obado | 175 | else{ |
| 14066 | bpr | 176 | alert(s+' is not a valid canvasdraw command'); |
| 9382 | schaersvoo | 177 | }; |
| 9381 | schaersvoo | 178 | return; |
| 179 | }; |
||
| 11013 | schaersvoo | 180 | </script>" >> $phtml |
| 181 | |||
| 13940 | bpr | 182 | ##cat $phtml >> $html |
| 183 | ##echo " |
||
| 184 | ##</body> |
||
| 185 | ##</html>" >> $html |
||
| 12107 | schaersvoo | 186 | |
| 187 | # install in wims distribution scripts/help/en |
||
| 13962 | bpr | 188 | if [ $ans = "D" ] ; then |
| 14066 | bpr | 189 | mv $phtml "$helpdir/en" |
| 190 | cp -rv $tmpdir $helpdir |
||
| 12107 | schaersvoo | 191 | fi |
| 192 | |||
| 9381 | schaersvoo | 193 | rm $tmp |
| 194 | rm $keys |