Subversion Repositories wimsdev

Rev

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

Rev 15280 Rev 16243
Line 9... Line 9...
9 
  job=modname
 9 
  job=modname
10 
  !changeto modname.proc
 10 
  !changeto modname.proc
11 
!endif
 11 
!endif
12 
 
 12 
 
13 
allowchar=/.-_$alnum
 13 
allowchar=/.-_$alnum
- 
 
 14 
allowcharres=/._$alnum
14 
fname=!word 1 of $fname
 15 
fname=!word 1 of $fname
15 
fname=!text select $allowchar in $fname
 16 
fname=!text select $allowchar in $fname
16 
c=!char 1 of $fname
 17 
c=!char 1 of $fname
17 
!if $c=. or $c=/
 18 
!if $c=. or $c=/
18 
  !goto badname
 19 
  !goto badname
19 
!endif
 20 
!endif
20 
!read files.proc
 21 
!read files.proc
21 
!if $fname notitemof $files
 22 
!if $fname notitemof $files
- 
 
 23 
  fnametest=!text select $allowcharres in $fname
- 
 
 24 
  !if $fname!=$fnametest
- 
 
 25 
    !goto badname
- 
 
 26 
  !endif
22 
  !if / notin $fname and .. notin $fname
 27 
  !if / notin $fname and .. notin $fname
23 
    test=!filelist $devdir/$mod/$fname
 28 
    test=!filelist $devdir/$mod/$fname
24 
    !if $test!=$empty
 29 
    !if $test!=$empty
25 
      :badname
 30 
      :badname
26 
      error=bad_fname
 31 
      error=bad_fname