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 |