Subversion Repositories wimsdev

Rev

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

Rev 8515 Rev 13617
Line 1... Line 1...
1 
!if $cmd=help
 1 
!if $cmd=help
2 
 ses=!replace internal _mhelp by in $wims_session
 2 
  ses=!replace internal _mhelp by in $wims_session
3 
!else
 3 
!else
4 
 ses=$wims_session
 4 
  ses=$wims_session
5 
!endif
 5 
!endif
6 
input=$wims_read_parm
 6 
input=$wims_read_parm
7 
!default input=wimshome/sessions/$ses/submit.oef
 7 
!default input=wimshome/sessions/$ses/submit.oef
8 
!default embraced_randitem=help
 8 
!default embraced_randitem=help
9 
 
 9 
 
10 
!reset sps parms desc explain statement statementrec helpst
 10 
!reset sps parms desc explain statement statementrec helpst
11 
cnt=!recordcnt $input
 11 
cnt=!recordcnt $input
12 
 
 12 
 
13 
!if $cnt<6
 13 
!if $cnt<6
14 
 !exit
 14 
  !exit
15 
!endif
 15 
!endif
16 
 
 16 
 
17 
lbrace={
 17 
lbrace={
18 
 
 18 
 
19 
r=!record 0 of $input
 19 
r=!record 0 of $input
Line 21... Line 21...
21 
model_type=!getopt type in $r
 21 
model_type=!getopt type in $r
22 
model_textarea=!getopt textarea in $r
 22 
model_textarea=!getopt textarea in $r
23 
model_textarea=!items2words $model_textarea
 23 
model_textarea=!items2words $model_textarea
24 
model_asis=!getopt asis in $r
 24 
model_asis=!getopt asis in $r
25 
model_asis=!items2words $model_asis
 25 
model_asis=!items2words $model_asis
- 
 
 26 
model_iEdit=!getopt iEdit in $r
- 
 
 27 
model_iEdit=!items2words $model_iEdit
26 
model_author=!getopt author in $r
 28 
model_author=!getopt author in $r
27 
model_email=!getopt email in $r
 29 
model_email=!getopt email in $r
28 
model_css=!getopt css in $r
 30 
model_css=!getopt css in $r
29 
model_random=!getopt random in $r
 31 
model_random=!getopt random in $r
30 
model_random=!items2words $model_random
 32 
model_random=!items2words $model_random
Line 37... Line 39...
37 
r=!trim $r
 39 
r=!trim $r
38 
desc=!line 1 of $r
 40 
desc=!line 1 of $r
39 
help1=!line 2 to -1 of $r
 41 
help1=!line 2 to -1 of $r
40 
 
 42 
 
41 
!if $wims_developer!=
 43 
!if $wims_developer!=
42 
 !read adm/getdeveloper
 44 
  !read adm/getdeveloper
43 
!endif
 45 
!endif
44 
 
 46 
 
45 
!for i=2 to $cnt
 47 
!for i=2 to $cnt
46 
 r=!record $i of $input
 48 
   r=!record $i of $input
47 
 r=!trim $r
 49 
   r=!trim $r
48 
 n=!linecnt $r
 50 
   n=!linecnt $r
49 
 c=!char 1 of $r
 - 
 
50 
 !if \ = $c
 - 
 
51 
  v=!translate internal \{} to $   $ in $r
 - 
 
52 
  v=!word 1 of $v
 - 
 
53 
  !if $v iswordof title author email css credits
 - 
 
54 
   name$i=$v
 - 
 
55 
   model_$v=!embraced extract $r
 - 
 
56 
   !if $oef_author!=$empty
 - 
 
57 
    !default model_author=$oef_author
 - 
 
58 
    !default model_email=$oef_email
 - 
 
59 
   !endif
 - 
 
60 
   val$i=$(model_$v)
 - 
 
61 
   sps=!append item $i to $sps
 - 
 
62 
  !endif
 - 
 
63 
  !goto loopend
 - 
 
64 
 !endif
 - 
 
65 
 !if $c=%
 - 
 
66 
  !goto loopend
 - 
 
67 
 !endif
 - 
 
68 
 !if $c=:
 - 
 
69 
  !for j=1 to $n
 - 
 
70 
   l=!line $j of $r
 - 
 
71 
   l=!trim $l
 - 
 
72 
   c=!char 1 of $l
 51 
   c=!char 1 of $r
73 
   !if \ = $c
 - 
 
74 
    statement=!line $j to -1 of $r
 - 
 
75 
    statement=!embraced extract $statement
 - 
 
76 
    statementrec=$i
 - 
 
77 
    !break
 - 
 
78 
   !else
 - 
 
79 
    helpst=!append line $l to $helpst
 - 
 
80 
   !endif
 - 
 
81 
  !next j
 - 
 
82 
  !goto loopend
 - 
 
83 
 !endif
 - 
 
84 
 title$i=!line 1 of $r
 - 
 
85 
 !reset help$i name$i type$i menu$i
 - 
 
86 
 !for j=2 to $n
 - 
 
87 
  l=!line $j of $r
 - 
 
88 
  l=!trim $l
 - 
 
89 
  c=!char 1 of $l
 - 
 
90 
  !if \ = $c
 52 
  !if \ = $c
- 
 
 53 
    v=!translate internal \{} to $   $ in $r
91 
   def=!line $j to -1 of $r
 54 
    v=!word 1 of $v
92 
   t=!positionof char $lbrace in $def
 55 
    !if $v iswordof title author email css credits
93 
   t=!item 1 of $t
 56 
      name$i=$v
94 
   type=!char 2 to $t-1 of $def
 57 
      model_$v=!embraced extract $r
95 
   type$i=!word 1 of $type
 58 
      !if $oef_author!=$empty
- 
 
 59 
        !default model_author=$oef_author
96 
   def=!char $t to -1 of $def
 60 
        !default model_email=$oef_email
97 
   def=!trim $def
 61 
      !endif
98 
   def=!declosing $def
 62 
      val$i=$(model_$v)
99 
   c=!char 1 of $def
 63 
      sps=!append item $i to $sps
100 
   !if $c=$lbrace
 64 
    !endif
101 
    !goto loopend
 65 
    !goto loopend
102 
   !endif
 66 
  !endif
103 
   t=!positionof char = in $def
 - 
 
104 
   t=!item 1 of $t
 - 
 
105 
   !if $t=$empty
 67 
  !if $c=%
106 
    !goto loopend
 68 
    !goto loopend
107 
   !endif
 69 
  !endif
- 
 
 70 
  !if $c=:
- 
 
 71 
    !for j=1 to $n
- 
 
 72 
      l=!line $j of $r
- 
 
 73 
      l=!trim $l
- 
 
 74 
      c=!char 1 of $l
- 
 
 75 
      !if \ = $c
- 
 
 76 
        statement=!line $j to -1 of $r
- 
 
 77 
        statement=!embraced extract $statement
- 
 
 78 
        statementrec=$i
- 
 
 79 
        !break
- 
 
 80 
      !else
- 
 
 81 
        helpst=!append line $l to $helpst
- 
 
 82 
      !endif
- 
 
 83 
    !next j
- 
 
 84 
    !goto loopend
- 
 
 85 
  !endif
- 
 
 86 
  title$i=!line 1 of $r
- 
 
 87 
  !reset help$i name$i type$i menu$i
- 
 
 88 
  !for j=2 to $n
- 
 
 89 
    l=!line $j of $r
- 
 
 90 
    l=!trim $l
- 
 
 91 
    c=!char 1 of $l
- 
 
 92 
    !if \ = $c
- 
 
 93 
      def=!line $j to -1 of $r
- 
 
 94 
      t=!positionof char $lbrace in $def
- 
 
 95 
      t=!item 1 of $t
- 
 
 96 
      type=!char 2 to $t-1 of $def
- 
 
 97 
      type$i=!word 1 of $type
- 
 
 98 
      def=!char $t to -1 of $def
- 
 
 99 
      def=!trim $def
- 
 
 100 
      def=!declosing $def
- 
 
 101 
      c=!char 1 of $def
- 
 
 102 
      !if $c=$lbrace
- 
 
 103 
        !goto loopend
- 
 
 104 
      !endif
- 
 
 105 
      t=!positionof char = in $def
- 
 
 106 
      t=!item 1 of $t
- 
 
 107 
      !if $t=$empty
- 
 
 108 
        !goto loopend
- 
 
 109 
      !endif
108 
   name=!char 1 to $t-1 of $def
 110 
      name=!char 1 to $t-1 of $def
109 
   name$i=!word 1 of $name
 111 
      name$i=!word 1 of $name
110 
   val$i=!char $t+1 to -1 of $def
 112 
      val$i=!char $t+1 to -1 of $def
111 
   !if $(type$i)=text
 113 
      !if $(type$i)=text
112 
    val$i=!trim $(val$i)
 114 
        val$i=!trim $(val$i)
113 
    menutest=!char 1 to 5 of $(val$i)
 115 
        menutest=!char 1 to 5 of $(val$i)
114 
    !if $menutest=$model_menutester
 116 
        !if $menutest=$model_menutester
115 
     menu$i=!char 6 to -2 of $(val$i)
 117 
          menu$i=!char 6 to -2 of $(val$i)
116 
     val$i=!item 1 of $(menu$i)
 118 
          val$i=!item 1 of $(menu$i)
117 
     menu$i=!item 2 to -1 of $(menu$i)
 119 
          menu$i=!item 2 to -1 of $(menu$i)
- 
 
 120 
        !endif
- 
 
 121 
      !endif
- 
 
 122 
      !break
- 
 
 123 
    !else
- 
 
 124 
      help$i=!append line $l to $(help$i)
118 
    !endif
 125 
    !endif
119 
   !endif
 126 
  !next j
120 
   !break
 127 
  !if $(name$i)!=$empty
121 
  !else
 - 
 
122 
   help$i=!append line $l to $(help$i)
 128 
    parms=!append item $i to $parms
123 
  !endif
 129 
  !endif
124 
 !next j
 - 
 
125 
 !if $(name$i)!=$empty
 - 
 
126 
  parms=!append item $i to $parms
 - 
 
127 
 !endif
 - 
 
128 
 :loopend
 130 
:loopend
129 
!next i
 131 
!next i