Subversion Repositories wimsdev

mailchar=.-@_$alnum

!if $modreq!=$empty

  modreq=!word 1 of $modreq

  !if $wims_developer!=$empty

    !set modreq=!replace internal devel/$wims_developer/ by in $modreq

  !endif

  !if / isin $modreq or .. isin $modreq

  modreq=

!endif

mtest=!filelist $devdir/$modreq

!if $mtest=$empty and ($modreq!=.new or $inddef=$empty)

  modreq=

!endif

!if $modreq=$empty

  job=modname

  !changeto $job.proc

!endif

!read scripts/getindex $modreq

!if $title=$empty and $inddef=$empty

  job=modname

  modreq=

  !changeto $job.proc

!endif

mod=$modreq

!if $inddef!=$empty

  inddef=

  !if $mod=.new

    !read scripts/target

    !if $error!=$empty or $target=$empty

      job=create

      !distribute item $target1,$t2,$t3,$target4 into o1,o2,o3,o4

      !changeto create.proc

    !endif

    mod=$target

  !endif

  !for i in title, description, category

    i_$i=!trim $(i_$i)

    !if $(i_$i)=$empty

      error=empty_data

      empty_data=$i

      job=index

      mod=

      !exit

    !endif

 !next i

 !if exercise isitemof $i_category or oef isitemof $i_category or\

	    deductio isitemof $i_category

    !if exercise notitemof $i_category

      i_category=$i_category, exercise

    !endif

    !if oef isitemof $i_category or $deductio isitemof $i_category

      default=yes

    !else

      default=no

    !endif

    !bound i_scoring within yes, no default $default

  !else

    i_scoring=no

  !endif

  !if deductio isitemof $i_category

   i_vardef=deduc/var.def

  !endif

  !if oef isitemof $i_category

   i_vardef=oef/var.def

  !endif

  !if document isitemof $i_category

   i_vardef=docu/var.def

  !endif

  c=!char 1 of $i_description

  c=!lower $c

  i_description=!replace char number 1 by $c in $i_description

  c=!char -1 of $i_description

  !if $c!=.

   i_description=$i_description.

  !endif

  !if $i_translation_language!=$empty

    !for l_ in $i_translation_language

      c=!char 1 of $(i_description_$l_)

      c=!lower $c

      i_description_$l_=!replace char number 1 by $c in $(i_description_$l_)

      c=!char -1 of $(i_description_$l_)

      !if $c!=. and $(i_description_$l_)!= $empty

        i_description_$l_=$(i_description_$l_).

      !endif

    !next

 !endif

  !bound i_language within $langlist default $module_language

  i_level=!listintersect $i_level and $levellist

  i_level_cnt=!itemcnt $i_level

  !if $i_level issametext $levellist or $i_level_cnt >= 10

    !reset i_level

  !endif

  level_def=!replace internal ~ by , in $modreq

  !default i_level=!listintersect $(level_def[1]) and $levellist

  i_copyright=$copyright

  !default i_copyright=$gnu

  i_copyright=!replace internal \COPYING\> by "COPYING"> in $i_copyright

  !if $year notwordof $i_copyright

    i_copyright=$i_copyright $year

 !endif

 i_require=!listintersect $i_require and $swlist

 !default i_author=$auth_name

 i_author=!char 1 to 100 of $i_author

 !if , notin in $i_author

   author1=!word 1 of $i_author

   author2=!word 2 to -1 of $i_author

   i_author=$author1, $author2

!endif

!default i_address=$auth_email

i_address=!items2words $i_address

!!i_address=!word 1 of $i_address

i_address=!words2items $i_address

i_address=!text select ;,$mailchar in $i_address

i_translator=!char 1 to 100 of $i_translator

i_translator_address=!word 1 of $i_translator_address

i_translator_address=!text select $mailchar in $i_translator_address

!if $i_translation_language!=$empty

  !for l_ in $i_translation_language

    i_translator_$l_=!char 1 to 100 of $(i_translator_$l_)

    i_translator_address_$l_=!word 1 of $(i_translator_address_$l_)

    i_translator_address_$l_=!text select $mailchar in $(i_translator_address_$l_)

  !next

!endif

i_version=!word 1 of $i_version

tmp=!replace internal . by , in $i_version

tmp=!charcnt $(tmp[2])

!if $tmp<2

  !if $tmp=0

    !if . notin $i_version

      i_version=$i_version.00

    !else

      i_version=$(i_version)00

    !endif

  !endif

  !if $tmp=1

    i_version=$(i_version)0

  !endif

!endif

!reset tmp

i_version=!char 1 to 4 of $i_version

i_wims_version=!word 1 of $i_wims_version

!default i_version=1.00

!default i_wims_version=$wims_version

!for l in $deflist1

  i_$l=$(i_$l)

!next

i_translation_language=!items2words $i_translation_language

###add fields not accessible by the interface for the moment

### will be useful in case of translation in the module itself

i_mod_related=!words2items $i_mod_related

i_mod_related=!text select _.-/,$alnum in $i_mod_related

!default i_mod_related=$mod_related

!if .. isin $i_mod_related

  i_mod_related=

!endif

!default i_data=$data

!if .. isin $i_data

  i_data=

!endif

ind=# This file is automatically generated by $module_title $module_version.\

# Do not edit by hand.\

\

!if dialog isitemof $category

  i_category=exercise,dialog

!endif

!if scenario isitemof $category

  i_category=exercise,scenario

!endif

cat1=!item 1 of $i_category

!if document isin $i_category

  i_category=document

  cat1=doc

!endif

!for i in $deflist,$deflist1

  ind=$ind$i=$(i_$i)\

!next i

!if $cat1=exercise and , isin $i_category

  cat1=!item 2 of $i_category

!endif

!if $cat1=recreation

  cat1=exercise

!endif

dest=$devdir/$mod

src=modules/template/$cat1.$i_language

ind=!replace " by \\" in $ind

!sh if [ ! -e "$dest" ]; then\

  mkdir -p $dest\

  cp -pR $src/* $dest\

  if [ "$cat1" = "doc" ]; then\

   echo '*' >$dest/doc/1/.code\

   cat >$dest/doc/1/.def <<@\

tit=$i_title\

author=$i_author\

email=$i_address\

copyright=gnu\

dlang=$i_language\

docopen=yes\

header=\

@\

   fi\

  fi\

  echo "$ind" >$dest/INDEX

  !if $i_common_images=yes

    !sh sed -i.bak 's/common_images=no/common_images=yes/g' $dest/var.proc\

    sed -i.bak 's/class_importation=yes/class_importation=no/g' $dest/var.proc\

    rm $dest/var.proc.bak

  !endif

  !read scripts/getindex $mod

  wims_module_log=$mod/INDEX

!endif

!read files

!default useropts1=2

!default useropts2=1

!default useropts3=0

!set usersize=$[$wims_texbasesize + ($useropts4)]

!setdef wims_useropts=$(usersize)$(useropts1)$(useropts2)$(useropts3) in wimshome/sessions/$wims_session/var.stat