Subversion Repositories wimsdev

Rev

Rev 4846 | Rev 5815 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

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