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