Subversion Repositories wimsdev

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

  1. !header
  2.  
  3. !if $compute=yes
  4.  !if $swout=$empty
  5.   Your code did not give any output from <em>$SW</em>.
  6.  !else
  7.   Answer by <em>$SW</em> :
  8.   !if $sw=draw
  9.    <img align=middle src=$swout>
  10.    !goto after
  11.   !endif
  12.   !if $sw=povray
  13.    <img align=middle src=$swout>
  14.    !goto after
  15.   !endif
  16. <pre>
  17. $swout
  18. </pre>
  19.  !endif
  20. !else
  21.  This tool allows you to run most WIMS-interfaced software or
  22.  computer languages directly online. Just type in your code and get the
  23.  result!
  24.  !href cmd=help Click here
  25.  for software documentations.
  26.  <p>
  27.  WIMS developers can also use this as a testing tool, to check the behavior of
  28.  various software under WIMS.
  29.  <p>
  30.  For security reasons, code length is limited to 16K, and access to system
  31.  resources is strictly controled. Note also that some software may be missing on
  32.  a given server. Please check with the webmaster.
  33. !endif
  34.  
  35. :after
  36. !if $msg!=$empty
  37.  <p><hr> <p>
  38.  Error message from <em>$SW</em> :
  39. <font color=red><small><pre>
  40. $msg
  41. </pre></small></font>
  42. !endif
  43.  
  44. <p><hr> <p>
  45. !form reply
  46. <input type=submit value=Execute>
  47. the following lines by
  48. !default sw=sh
  49. !formselect sw list $swlist prompt $swname
  50. $ : <small>[
  51. !href cmd=renew Clean up
  52.  ] [
  53. !href cmd=help Help
  54.  ]</small>
  55. <br>
  56. !set src=!reinput $src
  57. !set src=!replace internal &amp;#36; by &#36; in $src
  58. <textarea wrap=off cols=70 rows=15 name=src>$src</textarea>
  59. </form>
  60.  
  61. !tail
  62.  
  63. !reset src sw
  64.