Subversion Repositories wimsdev

Rev

Rev 17960 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17960 Rev 17961
Line 26... Line 26...
26 

 26 

27 
src=!translate internal $nonprintable to \
 27 
src=!translate internal $nonprintable to \
28 
	$                                           $ in $src
 28 
	$                                           $ in $src
29 
src1=!replace internal $ by $$$$ in $src
 29 
src1=!replace internal $ by $$$$ in $src
30 
 
 30 
 
- 
 
 31 
!if $sw iswordof tikz draw
31 
!if $sw=draw
 32 
  !if $sw=draw
- 
 
 33 
    ins_format=gif
- 
 
 34 
  !else
- 
 
 35 
    ins_format=tex
- 
 
 36 
  !endif
- 
 
 37 
  tmp=!line 1 of $src1
- 
 
 38 
  !if new iswordof $tmp or size iswordof $tmp
- 
 
 39 
    insdraw_size=!word 2 to -1 of $tmp
- 
 
 40 
    src_=!line 2 to -1 of $src
- 
 
 41 
  !endif
32 
  !insdraw $src1
 42 
  !insdraw $src_
- 
 
 43 
  !if $sw=draw
33 
  swout=$ins_url
 44 
    swout=$ins_url
- 
 
 45 
  !else
- 
 
 46 
    swout=!nonempty lines $ins_tikz
- 
 
 47 
  !endif
- 
 
 48 
  !goto execout
- 
 
 49 
!endif
- 
 
 50 
!if $sw=canvasdraw
- 
 
 51 
  tmp=!line 1 of $src1
- 
 
 52 
  !if new iswordof $tmp
- 
 
 53 
    tmp=!replace internal new by size in $tmp
- 
 
 54 
    src1=!replace line number 1 by $tmp in $src1
- 
 
 55 
  !endif
- 
 
 56 
  swout=!exec canvasdraw $src1
34 
  !goto execout
 57 
  !goto execout
35 
!endif
 58 
!endif
36 
!if $sw=perl
 59 
!if $sw=perl
37 
  swout=!perl $src1
 60 
  swout=!perl $src1
38 
  !goto execout
 61 
  !goto execout
Line 40... Line 63...
40 
!if $sw=sh
 63 
!if $sw=sh
41 
  swout=!sh $src1
 64 
  swout=!sh $src1
42 
  !goto execout
 65 
  !goto execout
43 
!endif
 66 
!endif
44 
!if $sw=jsxgraph
 67 
!if $sw=jsxgraph
45 
  swout=$src1
 68 
  swout=$src1
46 
  !goto execout
 69 
  !goto execout
47 
!endif
 70 
!endif
48 
!if $sw iswordof reactiondraw
 71 
!if $sw iswordof reactiondraw
49 
    swout=$src1
 72 
    swout=$src1
50 
    cnt=!itemcnt $swout
 73 
    cnt=!itemcnt $swout
51 
    !if $cnt=1
 74 
    !if $cnt=1
52 
      swout=$swout,
 75 
      swout=$swout,
53 
    !endif
 76 
    !endif
54 
  !goto execout
 77 
  !goto execout
55 
!endif
 78 
!endif
56 
!if $sw iswordof jmol jsme
 79 
!if $sw iswordof jmol jsme
57 
  swout=$src1
 80 
  swout=$src1
58 
  !goto execout
 81 
  !goto execout
59 
!endif
 82 
!endif
60 
!if $sw=insmath
 83 
!if $sw=insmath
61 
  wims_backslash_insmath=yes
 84 
  wims_backslash_insmath=yes
62 
  swout=\($src1\)
 85 
  swout=\($src1\)
63 
  !goto execout
 - 
 
64 
!endif
 - 
 
65 
!if $sw=canvasdraw
 - 
 
66 
  swout=!exec canvasdraw $src1
 - 
 
67 
  !goto execout
 86 
  !goto execout
68 
!endif
 87 
!endif
69 
!if $sw=graphvizsvg
 88 
!if $sw=graphvizsvg
70 
  graphviz_output=svg
 89 
  graphviz_output=svg
71 
  swout1=!exec graphviz $src1
 90 
  swout1=!exec graphviz $src1
Line 75... Line 94...
75 
    !if __plain isin __$gs
 94 
    !if __plain isin __$gs
76 
      !break
 95 
      !break
77 
    !endif
 96 
    !endif
78 
    swout=!append line $gs to $swout
 97 
    swout=!append line $gs to $swout
79 
  !next
 98 
  !next
80 
  !goto execout
 - 
 
81 
!endif
 - 
 
82 
!if $sw=tikz
 - 
 
83 
  ins_format=tex
 - 
 
84 
  tmp=!line 1 of $src
 - 
 
85 
  src_=$src
 - 
 
86 
  !if new iswordof $tmp or size iswordof $tmp
 - 
 
87 
    insdraw_size=!word 2 to -1 of $tmp
 - 
 
88 
    src_=!line 2 to -1 of $src
 - 
 
89 
  !endif
 - 
 
90 
  !insdraw $src_
 - 
 
91 
  swout=!nonempty lines $ins_tikz
 - 
 
92 
  !goto execout
 99 
  !goto execout
93 
!endif
 100 
!endif
94 
 
 101 
 
95 
swout=!exec $sw $src1
 102 
swout=!exec $sw $src1
96 
!if $sw iswordof pari
 103 
!if $sw iswordof pari