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 |
|
33 | or .. isin $fname |
34 | !goto badname |
34 | !goto badname |
35 | !endif |
35 | !endif |
36 | !endif |
36 | !endif |
37 | !endif |
37 | !endif |
38 | 38 |