Subversion Repositories wimsdev

Rev

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

Rev 4425 Rev 7692
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 0
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
62 
  !if $slib_test_char_cnt >=1
 62 
  !if $slib_test_char_cnt >=1
63 
    slib_word=!replace internal $(slib_pb[1]) by $(slib_test_char[1]) in $slib_word
 63 
    slib_word=!replace internal $(slib_pb[1]) by $(slib_test_char[1]) in $slib_word
64 
    !if $slib_test_char_cnt >=2 and $(slib_pb[2]) notsametext
 64 
    !if $slib_test_char_cnt >=2 and $(slib_pb[2]) notsametext
65 
      slib_word=!replace internal $(slib_pb[2]) by $(slib_test_char[2]) in $slib_word
 65 
      slib_word=!replace internal $(slib_pb[2]) by $(slib_test_char[2]) in $slib_word
66 
    !endif
 66 
    !endif
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 
 
 72 
 
73 
!readproc oef/togetfile.proc $slib_file new\
 73 
!readproc oef/togetfile.proc $slib_file new\
74 
$slib_word
 74 
$slib_word
Line 87... Line 87...
87 
   slib_line=!line $slib_u of $slib_cw
 87 
   slib_line=!line $slib_u of $slib_cw
88 
   slib_line=!nonempty items $slib_line
 88 
   slib_line=!nonempty items $slib_line
89 
   !if $slib_line!=$empty
 89 
   !if $slib_line!=$empty
90 
     !goto continue1
 90 
     !goto continue1
91 
   !endif
 91 
   !endif
92 
!next
92 
!next
93 
 
 93 
 
94 
:continue1
94 
:continue1
95 
slib_cw=!line $slib_u to -1 of $slib_cw
 95 
slib_cw=!line $slib_u to -1 of $slib_cw
96 
 
 96 
 
97 
slib_test=0
 97 
slib_test=0
98 
slib_i=1
 98 
slib_i=1
99 
 
 99 
 
Line 101... Line 101...
101 
   slib_line=!line -$slib_v of $slib_cw
 101 
   slib_line=!line -$slib_v of $slib_cw
102 
   slib_line=!nonempty items $slib_line
 102 
   slib_line=!nonempty items $slib_line
103 
   !if $slib_line!=$empty
 103 
   !if $slib_line!=$empty
104 
     !goto continue2
 104 
     !goto continue2
105 
   !endif
 105 
   !endif
106 
!next
106 
!next
107 
:continue2
 107 
:continue2
108 
 
 108 
 
109 
slib_cw=!line 1 to -$slib_u of $slib_cw
 109 
slib_cw=!line 1 to -$slib_u of $slib_cw
110 
 
 110 
 
111 
!for slib_v=1 to  $slib_word_cnt
 111 
!for slib_v=1 to  $slib_word_cnt
112 
   slib_line=!column $slib_v of $slib_cw
 112 
   slib_line=!column $slib_v of $slib_cw
113 
   slib_line=!nonempty items $slib_line
 113 
   slib_line=!nonempty items $slib_line
114 
   !if $slib_line!=$empty
 114 
   !if $slib_line!=$empty
115 
     !goto continue3
 115 
     !goto continue3
116 
   !endif
 116 
   !endif
117 
!next
117 
!next
118 
:continue3
 118 
:continue3
119 
slib_cw=!column $slib_v to -1 of $slib_cw
 119 
slib_cw=!column $slib_v to -1 of $slib_cw
120 
!for slib_v=1 to  $slib_word_cnt
 120 
!for slib_v=1 to  $slib_word_cnt
121 
   slib_line=!column -$slib_v of $slib_cw
 121 
   slib_line=!column -$slib_v of $slib_cw
122 
   slib_line=!nonempty items $slib_line
 122 
   slib_line=!nonempty items $slib_line
123 
   !if $slib_line!=$empty
 123 
   !if $slib_line!=$empty
124 
     !goto continue4
 124 
     !goto continue4
125 
   !endif
 125 
   !endif
126 
!next
126 
!next
127 
:continue4
 127 
:continue4
128 
slib_cw=!column 1 to -$slib_v of $slib_cw
 128 
slib_cw=!column 1 to -$slib_v of $slib_cw
129 
 
 129 
 
130 
 
 130 
 
131 
!if $slib_number_test=1
 131 
!if $slib_number_test=1
Line 139... Line 139...
139 
  !if $slib_test_char_cnt >=1
 139 
  !if $slib_test_char_cnt >=1
140 
    slib_out=!replace internal $(slib_test_char[1]) by $(slib_pb[1]) in $slib_out
 140 
    slib_out=!replace internal $(slib_test_char[1]) by $(slib_pb[1]) in $slib_out
141 
    !if $slib_test_char_cnt >=2 and $(slib_pb[2]) notsametext
 141 
    !if $slib_test_char_cnt >=2 and $(slib_pb[2]) notsametext
142 
      slib_out=!replace internal $(slib_test_char[2]) by $(slib_pb[2]) in $slib_out
 142 
      slib_out=!replace internal $(slib_test_char[2]) by $(slib_pb[2]) in $slib_out
143 
    !endif
 143 
    !endif
144 
  !endif
144 
  !endif
145 
!endif
 145 
!endif
146 
 
 146 
 
147 
slib_out=[$slib_out],[$slib_def]
 147 
slib_out=[$slib_out],[$slib_def]
148 
 
 148 
 
149 
:end
 149 
:end