Subversion Repositories wimsdev

!bound job2 within first,def,addshare,stopshare,sharelist,\

	import,import2 default first

!if $keyword=*

  !reset keyword

!endif

!reset clist1 clist2

!if $wims_superclass=$empty

  clfile=wimshome/log/classes/.index

  cllimit=60

!else

  cllimit=300

  supertype=!defof class_type in wimshome/log/classes/$wims_superclass/.def

  !if $supertype=4 and / isin $wims_class

    cterms=!translate / to , in $wims_class

    ctypename=!defof class_typename in wimshome/log/classes/$wims_class/.def

    clevel=!itemcnt $cterms

    !if yes isin $excls

      clfile=wimshome/log/classes/.index

    !else

      !if $clevel>=3

        cls=!record 0 of wimshome/log/classes/$class_parent/classes

        prog=!record 0 of wimshome/log/classes/$class_parent/programs

        !if $clevel=3

          crs=!record 0 of wimshome/log/classes/$wims_class/courses

          hastest=!defof class_defined in wimshome/log/classes/$wims_class/0/.def

          !if $hastest issametext yes

            testzone=$(cterms[2])/$(cterms[3])/0

          !endif

        !else

          crs=!record 0 of wimshome/log/classes/$class_parent/courses

        !endif

        clist1=!column 1 of $testzone\

$cls\

$prog\

$crs

        clist1=!nonempty items $clist1

        clist1=!makelist $wims_superclass/xx for xx in $clist1

        clist1=!listcomplement $wims_class in $clist1

        !if $clevel>3

          clist1=!append item $clist1 to $class_parent

        !endif

        clfile=nonexistent

      !endif

    !endif

  !else

    scl=!item 1 of $wims_superclass

    !if yes isin $excls

      clfile=wimshome/log/classes/.index

    !else

      clfile=wimshome/log/classes/$scl/.subclasses

    !endif

  !endif

!endif

classcnt=!recordcnt $clfile

clgot=0

keyword=!trim $keyword

kw=!items2words $keyword

kw=!trim $kw

kw=!singlespace $kw

kw=!deaccent $kw

kw=!tolower $kw

!if $keyword!=$empty

  !reset excls

!endif

!if $classcnt>1 and ($clist1$clist2=$empty or $keyword != $save_keyword or yes isin $excls)

  !reset clist1 clist2

  save_keyword=$keyword

  !for c=1 to $classcnt

    l_=!record $c of $clfile

    n_=!item 1 of $l_

    !if yes isin $excls

      !if $n_<10000

        ln=!defof class_lang in wimshome/log/classes/$n_/.def

        !if $ln=$class_lang

          clist1=!append item $n_ to $clist1

        !else

          clist2=!append item $n_ to $clist2

        !endif

      !endif

    !else

      !if $kw != $empty

        L_=!singlespace $l_

        L_=!deaccent $L_

        L_=!tolower $L_

      !endif

      !if $kw isin $L_ or $kw=$empty

        ln=!defof class_lang in wimshome/log/classes/$n_/.def

        !if $ln=$class_lang

          !if $n_!=$wims_class

            clist1=!append item $n_ to $clist1

            !advance clgot

          !endif

        !else

          !if $ln!=$empty

            clist2=!append item $n_ to $clist2

            !advance clgot

          !endif

        !endif

        !if $clgot > $cllimit

          toomany=yes

          !break

        !endif

      !endif

    !endif

  !next c

!endif

classcnt1=!itemcnt $clist1

classcnt2=!itemcnt $clist2

clist=!append item $clist2 to $clist1

!readdef wimshome/log/classes/$wims_class/neighbors

!reset sharable_all,sharing_all,sharable,sharing

!for rec in $sharelist

  sharing_$rec=!listintersect $(sharing_$rec) and $clist

  sharable_$rec=!listintersect $(sharable_$rec) and $clist

  !if $(sharing_$rec)!=$empty

    sharing_all=!append item $(sharing_$rec) to $sharing_all

    sharing=!append item $rec to $sharing

    sharable_$rec=

  !else

    sharable_$rec=!listintersect $(sharable_$rec) and $n_sup

    !if $(sharable_$rec)!=$empty

      sharable_all=!append item $(sharable_$rec) to $sharable_all

      sharable=!append item $rec to $sharable

    !endif

  !endif

!next rec

sharable_all=!listuniq $sharable_all

sharing_all=!listuniq $sharing_all

!if $job2 notwordof first sharelist

  !if $nei=$empty or $nei notitemof $clist1,$clist2

    job2=first

    !exit

  !endif

  D_=!defof n_sup\

n_part\

sharable_exo\

sharable_sheet\

sharable_exam\

sharable_doc\

sharable_user\

sharable_forum\

sharable_sup\

sharable_motd\

sharable_vote\

sharable_cdt\

sharable_livret\

sharable_seq\

sharable_userphoto\

sharable_tool\

sharing_exo\

sharing_sheet\

sharing_exam\

sharing_doc\

sharing_user\

sharing_forum\

sharing_sup\

sharing_motd\

sharing_vote\

sharing_cdt\

sharing_livret\

sharing_seq\

sharing_userphoto\

sharing_tool\

sharable_all\

sharing_all in wimshome/log/classes/$nei/neighbors

  !distribute lines $D_ into nei_sup,nei_part,\

	  nsharable_exo,nsharable_sheet,nsharable_exam,nsharable_doc,\

	  nsharable_user,nsharable_forum,nsharable_sup,nsharable_motd,nsharable_vote,\

	  nsharable_cdt,nsharable_livret,nsharable_seq,nsharable_userphoto,nsharable_tool,\

	  nsharing_exo,nsharing_sheet,nsharing_exam,nsharing_doc,\

	  nsharing_user,nsharing_forum,nsharing_sup,nsharing_motd,nsharing_vote,\

	  nsharing_cdt,nsharing_livret,nsharing_seq,nsharing_userphoto,nsharing_tool,\

	  nsharable_all,nsharing_all

  !reset nsharable,nsharing

  !for rec in $sharelist

    !if $(nsharing_$rec)!=$empty

      !if $wims_class isitemof $(nsharing_$rec)

        nsharing=!append item $rec to $nsharing

      !endif

    !else

      nsharable_$rec=!listintersect $(nsharable_$rec) and $nei_sup

      !if $wims_class isitemof $(nsharable_$rec) and\

	        $wims_class isitemof $nei_sup

        nsharable=!append item $rec to $nsharable

      !endif

    !endif

  !next rec

  nsharable=!nospace $nsharable

  nsharing=!nospace $nsharing

  D_=!defof class_institution\

class_description\

class_supervisor\

class_email\

class_lang in wimshome/log/classes/$nei/.def

 !distribute lines $D_ into nei_institution, nei_description,nei_supervisor,\

	  nei_email,nei_lang

 !read neighbor/$job2.proc

!endif