Subversion Repositories wimsdev

Rev

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

Rev 6230 Rev 12498
Line 4... Line 4...
4 
 !changeto $job.proc
 4 
 !changeto $job.proc
5 
!endif
 5 
!endif
6 
 
 6 
 
7 
!read scripts/getindex $mod
 7 
!read scripts/getindex $mod
8 
!if $title=$empty
 8 
!if $title=$empty
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 
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
Line 17... Line 17...
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
24 
  !if $test!=$empty
 24 
    !if $test!=$empty
25 
   :badname
 25 
      :badname
26 
   error=bad_fname
 26 
      error=bad_fname
27 
   lastfname=$fname
 27 
      lastfname=$fname
28 
   job=flist
 28 
      job=flist
29 
   !changeto flist.proc
 29 
      !changeto flist.proc
- 
 
 30 
    !endif
- 
 
 31 
  !else
- 
 
 32 
    !if (..help/ notin ..$fname and ..src/ notin ..$fname and ..lang/ notin ..$fname) \
- 
 
 33 
 	or .. isin $fname
- 
 
 34 
      !goto badname
- 
 
 35 
    !endif
30 
  !endif
 36 
  !endif
31 
 !else
 - 
 
32 
  !if (..help/ notin ..$fname and ..src/ notin ..$fname and ..lang/ notin ..$fname) \
 - 
 
33 
	or .. isin $fname
 - 
 
34 
   !goto badname
 - 
 
35 
  !endif
 - 
 
36 
 !endif
 - 
 
37 
!endif
 37 
!endif
38 
 
 38 
 
39 
!if $fname=$empty
 39 
!if $fname=$empty
40 
 job=flist
 40 
  job=flist
41 
 !changeto $job.proc
 41 
  !changeto $job.proc
42 
!endif
 42 
!endif
43 
 
 43 
 
44 
!if $job=edfile and $register!=$empty
 44 
!if $job=edfile and $register!=$empty
45 
 !if $register=file_mode
 45 
  !if $register=file_mode
46 
  test=!exec ftype $wims_home/$wims_sesdir/user-deposit
 46 
    test=!exec ftype $wims_home/$wims_sesdir/user-deposit
47 
  !if $test iswordof binary
 47 
    !if $test iswordof binary
48 
   error=binary_file
 48 
      error=binary_file
- 
 
 49 
      !exit
- 
 
 50 
    !endif
- 
 
 51 
  !endif
- 
 
 52 
  register=
- 
 
 53 
  !if $fname=filedesc
- 
 
 54 
    test=!sh grep '!' $wims_home/$wims_sesdir/user-deposit
- 
 
 55 
    !if ! isin $fcontent
- 
 
 56 
      error=illegal_filedesc
49 
   !exit
 57 
      !exit
- 
 
 58 
    !endif
50 
  !endif
 59 
  !endif
51 
 !endif
 - 
 
52 
 register=
 60 
   makeout=!sh module=$devdir/$mod\
53 
 !if $fname=filedesc
 61 
   test=`echo $fname | grep -E '^(src/|help/)'`\
- 
 
 62 
   if [ ! -z "$$test" ]; then mkdir -p $$module/`dirname $fname`; fi\
54 
  test=!sh grep '!' $wims_home/$wims_sesdir/user-deposit
 63 
   cat $wims_home/$wims_sesdir/user-deposit >$$module/$fname\
55 
  !if ! isin $fcontent
 64 
   if [ ! -z "$$test" ]; then\
56 
   error=illegal_filedesc
 65 
    cd $$module; src2def\
57 
   !exit
 66 
   fi
- 
 
 67 
  !if ERROR isin $makeout
- 
 
 68 
    makeerror=$makeout
58 
  !endif
 69 
  !endif
59 
 !endif
 - 
 
60 
 makeout=!sh module=$devdir/$mod\
 - 
 
61 
  test=`echo $fname | grep -E '^(src/|help/)'`\
 - 
 
62 
  if [ ! -z "$$test" ]; then mkdir -p $$module/`dirname $fname`; fi\
 - 
 
63 
  cat $wims_home/$wims_sesdir/user-deposit >$$module/$fname\
 - 
 
64 
  if [ ! -z "$$test" ]; then\
 - 
 
65 
   cd $$module; src2def\
 - 
 
66 
  fi
 - 
 
67 
 !if ERROR isin $makeout
 - 
 
68 
  makeerror=$makeout
 - 
 
69 
 !endif
 - 
 
70 
 wims_module_log=edit $mod/$fname
 70 
  wims_module_log=edit $mod/$fname
71 
!endif
 71 
!endif
72 
 
 72 
 
73 
content=!mexec scripts/fileread
 73 
content=!mexec scripts/fileread
74 
 
 74