Rev 14414 | Rev 16243 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
23 | reyssat | 1 | !if $abandon!=$empty |
14414 | bpr | 2 | abandon= |
3 | job=flist |
||
4 | !changeto $job.proc |
||
23 | reyssat | 5 | !endif |
6 | |||
15280 | obado | 7 | !read scripts/getindex.proc $mod |
23 | reyssat | 8 | !if $title=$empty |
12498 | bpr | 9 | job=modname |
10 | !changeto modname.proc |
||
23 | reyssat | 11 | !endif |
12 | |||
13 | allowchar=/.-_$alnum |
||
14 | fname=!word 1 of $fname |
||
15 | fname=!text select $allowchar in $fname |
||
16 | c=!char 1 of $fname |
||
17 | !if $c=. or $c=/ |
||
14348 | bpr | 18 | !goto badname |
23 | reyssat | 19 | !endif |
15280 | obado | 20 | !read files.proc |
23 | reyssat | 21 | !if $fname notitemof $files |
12498 | bpr | 22 | !if / notin $fname and .. notin $fname |
23 | test=!filelist $devdir/$mod/$fname |
||
24 | !if $test!=$empty |
||
25 | :badname |
||
26 | error=bad_fname |
||
27 | lastfname=$fname |
||
28 | job=flist |
||
29 | !changeto flist.proc |
||
30 | !endif |
||
31 | !else |
||
32 | !if (..help/ notin ..$fname and ..src/ notin ..$fname and ..lang/ notin ..$fname) \ |
||
14348 | bpr | 33 | or .. isin $fname |
12498 | bpr | 34 | !goto badname |
35 | !endif |
||
23 | reyssat | 36 | !endif |
37 | !endif |
||
38 | |||
39 | !if $fname=$empty |
||
12498 | bpr | 40 | job=flist |
41 | !changeto $job.proc |
||
23 | reyssat | 42 | !endif |
43 | |||
44 | !if $job=edfile and $register!=$empty |
||
12498 | bpr | 45 | !if $register=file_mode |
46 | test=!exec ftype $wims_home/$wims_sesdir/user-deposit |
||
47 | !if $test iswordof binary |
||
48 | error=binary_file |
||
49 | !exit |
||
50 | !endif |
||
23 | reyssat | 51 | !endif |
12498 | bpr | 52 | register= |
53 | !if $fname=filedesc |
||
54 | test=!sh grep '!' $wims_home/$wims_sesdir/user-deposit |
||
55 | !if ! isin $fcontent |
||
56 | error=illegal_filedesc |
||
57 | !exit |
||
58 | !endif |
||
23 | reyssat | 59 | !endif |
12498 | bpr | 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 |
||
23 | reyssat | 71 | !endif |
72 | |||
15280 | obado | 73 | content=!mexec scripts/fileread.sh |