File: code.input

package info (click to toggle)
wims 2%3A4.29a%2Bdfsg1-3
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 185,704 kB
  • sloc: xml: 366,687; javascript: 120,570; ansic: 62,341; java: 62,170; sh: 7,744; perl: 3,937; yacc: 3,217; cpp: 1,915; lex: 1,805; makefile: 1,084; lisp: 914; pascal: 601; python: 520; php: 318; asm: 7
file content (28 lines) | stat: -rw-r--r-- 715 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
!set anstype=yes
!set anstyle=nogood
!if $wims_read_parm=def
  !exit
!endif
!set inputsize=!translate x to , in $inputsize
!set inputsize=!items2words $inputsize
!distribute words $inputsize into sizer,sizec
!bound sizer between integer 4 and 30 default 15
!bound sizec between integer 20 and 130 default 70

!if $wims_read_parm!=noprompt
  <tr><td><label for="reply$i">$(replyname$i)</label>&nbsp;:</td><td>
!endif

!set r_=!reinput $(reply$i)
!set r_=!replace internal &amp;#36; by &#36; in $r_
<textarea id="reply$i" name="reply$i" rows="$sizer" cols="$sizec"
class="nowrap">$r_</textarea>

!if symbols isin $(replyoption$i)
  !read anstype/symbols.inc
!endif

!if $wims_read_parm!=noprompt
  </td></tr>
!endif