Subversion Repositories wimsdev

Rev

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

Rev 20 Rev 12325
Line 8... Line 8...
8 
tgf_1=!line 1 of $wims_read_parm
 8 
tgf_1=!line 1 of $wims_read_parm
9 
tgf_c=!line 2 to -1 of $wims_read_parm
 9 
tgf_c=!line 2 to -1 of $wims_read_parm
10 
!distribute words $tgf_1 into tgf_w1, tgf_w2
 10 
!distribute words $tgf_1 into tgf_w1, tgf_w2
11 
tgf_w1=!replace internal getfile/ by $ in $tgf_w1
 11 
tgf_w1=!replace internal getfile/ by $ in $tgf_w1
12 
!if $tgf_w1=$empty or / isin $tgf_w1 or .. isin $tgf_w1
 12 
!if $tgf_w1=$empty or / isin $tgf_w1 or .. isin $tgf_w1
13 
 !exit
 13 
  !exit
14 
!endif
 14 
!endif
15 
!if $tgf_w2=new
 15 
!if $tgf_w2=new
16 
 !filewrite getfile/$tgf_w1 $tgf_c
 16 
  !filewrite getfile/$tgf_w1 $tgf_c
17 
!else
 17 
!else
18 
 !fileappend getfile/$tgf_w1 $tgf_c
 18 
  !fileappend getfile/$tgf_w1 $tgf_c
19 
!endif
 19 
!endif
20 
 
 20