Rev 2389 | Rev 12498 | 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 |
| 2 | abandon= |
||
| 3 | job=flist |
||
| 4 | !changeto $job.proc |
||
| 5 | !endif |
||
| 6 | |||
| 7 | !read scripts/getindex $mod |
||
| 8 | !if $title=$empty |
||
| 9 | job=modname |
||
| 10 | !changeto modname.proc |
||
| 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=/ |
||
| 18 | !goto badname |
||
| 19 | !endif |
||
| 20 | !read files |
||
| 21 | !if $fname notitemof $files |
||
| 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 |
||
| 6230 | bpr | 32 | !if (..help/ notin ..$fname and ..src/ notin ..$fname and ..lang/ notin ..$fname) \ |
| 23 | reyssat | 33 | or .. isin $fname |
| 34 | !goto badname |
||
| 35 | !endif |
||
| 36 | !endif |
||
| 37 | !endif |
||
| 38 | |||
| 39 | !if $fname=$empty |
||
| 40 | job=flist |
||
| 41 | !changeto $job.proc |
||
| 42 | !endif |
||
| 43 | |||
| 44 | !if $job=edfile and $register!=$empty |
||
| 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 |
||
| 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 |
||
| 57 | !exit |
||
| 58 | !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 |
||
| 71 | !endif |
||
| 72 | |||
| 73 | content=!mexec scripts/fileread |
||
| 74 |