Subversion Repositories wimsdev

!if $abandon!=$empty

  abandon=

  job=flist

  !changeto $job.proc

!endif

!read scripts/getindex.proc $mod

!if $title=$empty

  job=modname

  !changeto modname.proc

!endif

allowchar=/.-_$alnum

allowcharres=/._$alnum

fname=!word 1 of $fname

fname=!text select $allowchar in $fname

c=!char 1 of $fname

!if $c=. or $c=/

  !goto badname

!endif

!read files.proc

!if $fname notitemof $files

  fnametest=!text select $allowcharres in $fname

  !if $fname!=$fnametest

    !goto badname

  !endif

  !if / notin $fname and .. notin $fname

    test=!filelist $devdir/$mod/$fname

    !if $test!=$empty

      :badname

      error=bad_fname

      lastfname=$fname

      job=flist

      !changeto flist.proc

    !endif

  !else

    !if (..help/ notin ..$fname and ..src/ notin ..$fname and ..lang/ notin ..$fname) \

        or .. isin $fname

      !goto badname

    !endif

  !endif

!endif

!if $fname=$empty

  job=flist

  !changeto $job.proc

!endif

!if $job=edfile and $register!=$empty

  !if $register=file_mode

    test=!exec ftype $wims_home/$wims_sesdir/user-deposit

    !if $test iswordof binary

      error=binary_file

      !exit

    !endif

  !endif

  register=

  !if $fname=filedesc

    test=!sh grep '!' $wims_home/$wims_sesdir/user-deposit

    !if ! isin $test

      error=illegal_filedesc

      !exit

    !endif

  !endif

  makeout=!sh module=$devdir/$mod\

   test=`echo $fname | grep -E '^(src/|help/)'`\

   if [ ! -z "$$test" ]; then mkdir -p $$module/`dirname $fname`; fi\

   cat $wims_home/$wims_sesdir/user-deposit >$$module/$fname\

   if [ ! -z "$$test" ]; then\

    cd $$module; src2def\

   fi

  !if ERROR isin $makeout

    makeerror=$makeout

  !endif

  wims_module_log=edit $mod/$fname

!endif

content=!mexec scripts/fileread.sh