Subversion Repositories wimsdev

Rev

Rev 7692 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7692 Rev 8070
Line 51... Line 51...
51 
  slib_word_cnt=20
 51 
  slib_word_cnt=20
52 
!endif
 52 
!endif
53 
 
 53 
 
54 
slib_test_char=!lines2words $slib_word
 54 
slib_test_char=!lines2words $slib_word
55 
!! let the empty character at the end of the line
 55 
!! let the empty character at the end of the line
56 
slib_test_char=!text expand $slib_test_char using 0
 56 
slib_test_char=!text expand $slib_test_char using 10
57 
slib_test_char=!words2items $slib_test_char
 57 
slib_test_char=!words2items $slib_test_char
58 
slib_pb=!listintersect -,_ and $slib_test_char
 58 
slib_pb=!listintersect -,_ and $slib_test_char
59 
!if $slib_pb!=$empty
 59 
!if $slib_pb!=$empty
60 
  slib_test_char=!listcomplement $slib_test_char in $slib_alphabet
 60 
  slib_test_char=!listcomplement $slib_test_char in $slib_alphabet
61 
  slib_test_char_cnt=!itemcnt $slib_test_char
 61 
  slib_test_char_cnt=!itemcnt $slib_test_char
Line 67... Line 67...
67 
  !endif
 67 
  !endif
68 
!endif
 68 
!endif
69 
 
 69 
 
70 
!set slib_file=!randint 1000
 70 
!set slib_file=!randint 1000
71 
!set slib_file=cw_$wims_nowseconds$slib_file
 71 
!set slib_file=cw_$wims_nowseconds$slib_file
- 
 
 72 
!if $slib_word issametext $empty
- 
 
 73 
  slib_out=
- 
 
 74 
  !exit
72 
 
 75 
!endif
73 
!readproc oef/togetfile.proc $slib_file new\
 76 
!readproc oef/togetfile.proc $slib_file new\
74 
$slib_word
 77 
$slib_word
75 
 
 78 
 
76 
!set sess=!replace internal . by , in $session
 79 
!set sess=!replace internal . by , in $session
77 
!set slib_file=$wims_home/sessions/$(sess[1])/getfile/$slib_file
 80 
!set slib_file=$wims_home/sessions/$(sess[1])/getfile/$slib_file