Subversion Repositories wimsdev

 !set cc=$wims_read_parm

 <ul class="wims_nopuce">

 !for ff in tit,type,syntax,alias,mean,sample

   !set text=!lookup $ff in cmd/$cc.phtml

   !if $text!=$empty

 <li>

   $(lst_$ff)

   !set text=!replace internal `` by $emph in $text

   !if $ff=syntax

     !set text=!replace internal $\

$ by $(lst_$(ff)end) <br/>$lstyle2 in $text

   !endif

   !replace internal '' by $emphend in $text

   !if $ff=mean and $cc iswordof word column char item line record

      !set numlist_type=$cc

      !if $numlist_type=record

        !set numlist_str=``fname''

      !else

        !set numlist_str=``string''

      !endif

      !if $numlist_type=char

        !set numlist_type=character

      !endif

      !set text=!record 0 of cmd/numlist

      !set text=!replace internal '' by $emphend in $text

      !replace internal `` by $emph in $text

    !endif

    !if $ff=mean and $cc iswordof randfile record recordcnt

      !read cmd/datafile.phtml

    !endif

    $(lst_$(ff)end)

    </li>

  !endif

 !next

  </ul>

  !if $cc iswordof if

    !read help/if.phtml

  !endif

  !set text=!lookup numlist in cmd/$cc.phtml

  !if $text!=$empty

    !set text=!replace internal ` by $emph in $text

    !replace internal ' by $emphend in $text

  !endif