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