Subversion Repositories wimsdev

Rev

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

Rev 12498 Rev 14348
Line 13... Line 13...
13 
allowchar=/.-_$alnum
 13 
allowchar=/.-_$alnum
14 
fname=!word 1 of $fname
 14 
fname=!word 1 of $fname
15 
fname=!text select $allowchar in $fname
 15 
fname=!text select $allowchar in $fname
16 
c=!char 1 of $fname
 16 
c=!char 1 of $fname
17 
!if $c=. or $c=/
 17 
!if $c=. or $c=/
18 
 !goto badname
 18 
  !goto badname
19 
!endif
 19 
!endif
20 
!read files
 20 
!read files
21 
!if $fname notitemof $files
 21 
!if $fname notitemof $files
22 
  !if / notin $fname and .. notin $fname
 22 
  !if / notin $fname and .. notin $fname
23 
    test=!filelist $devdir/$mod/$fname
 23 
    test=!filelist $devdir/$mod/$fname
Line 28... Line 28...
28 
      job=flist
 28 
      job=flist
29 
      !changeto flist.proc
 29 
      !changeto flist.proc
30 
    !endif
 30 
    !endif
31 
  !else
 31 
  !else
32 
    !if (..help/ notin ..$fname and ..src/ notin ..$fname and ..lang/ notin ..$fname) \
 32 
    !if (..help/ notin ..$fname and ..src/ notin ..$fname and ..lang/ notin ..$fname) \
33 
 	or .. isin $fname
 33 
        or .. isin $fname
34 
      !goto badname
 34 
      !goto badname
35 
    !endif
 35 
    !endif
36 
  !endif
 36 
  !endif
37 
!endif
 37 
!endif
38 
 
 38