#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #+ #+ Mumps Web Software Library #+ Copyright (C) 2000, 2005 by Kevin C. O'Kane #+ #+ Kevin C. O'Kane #+ anamfianna@earthlink.net #+ okane@cs.uni.edu #+ #+ #+ This program is free software; you can redistribute it and/or modify #+ it under the terms of the GNU General Public License as published by #+ the Free Software Foundation; either version 2 of the License, or #+ (at your option) any later version. #+ #+ This program is distributed in the hope that it will be useful, #+ but WITHOUT ANY WARRANTY; without even the implied warranty of #+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #+ GNU General Public License for more details. #+ #+ You should have received a copy of the GNU General Public License #+ along with this program; if not, write to the Free Software #+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA #+ #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ zmain # index.mps March 17, 2005 + #include znumber html Content-type: text/html &!&! html Mumps Web Folders html &! html &! if '$data(^count(1)) set ^count(1)=1 set ^date(1)=$zd set date=$zd else set ^count(1)=^count(1)+1 set date=^date(1) if '$data(ml) set ml=1 set line=0 if '$data(array) set array="lib" set %1="" set lev=1,bx=0,ep=0,c(0)="" for i=0:1:20 do . set b(i)="" . set x="a"_i . set a(i)="" . if $data(@x) set b(i)=@x,ep=i html html html
Moogle
do layer html
html halt layer set x(lev)="^"_array_"(" set AFLG=0 for i=1:1:lev do . set x(lev)=x(lev)_"a("_i_")" . if i'=lev set x(lev)=x(lev)_"," set x(lev)=x(lev)_")" set a(lev)=-1 if b(lev)'="",levbx do parm1 set n="
",nn="" for i=1:1:lev-1 set n=n_"..." for i=1:1:lev-1 set nn=nn_"..." if $data(@x(lev))>1,ml>lev,b(lev)=a(lev) do . html
. write nn," ",%1,lev set line=0 . do parm . Html "> . Html . set line=line+1 . set AFLG=0 . goto a3a if $data(@x(lev))=1,lev=ml do . write n . set n="" . goto a3a if $data(@x(lev))'=1 do . if line>25 do .. write "" set line=0 //??? .. write nn,%1,lev+1 . else write n,%1,lev+1 . do parm . write """>",cls set line=line+1 . set AFLG=0 a3a if AFLG do tok if 'AFLG do . if $extract(@x(lev),1,1)="@" do .. set p=$extract(@x(lev),2,100) . write %2,p //??? . html > . if $data(@x(lev))=1 set line=line+1 html &~n~   . do tok . Html if lev1,b(lev)=a(lev) do .. if $extract(@x(lev),1,1)="@" do ... set p=$extract(@x(lev),2,100) .. write %2,p set line=line+1 .. Html > .. Html &! if @x(lev)="" goto a2a set x=@x(lev) if levbx do parm1 if $data(@x(lev))>1,ml>lev,b(lev)=a(lev) do . set lev=lev+1 . do layer . goto a1 goto a1 parm for i=1:1:lev quit:a(i)=-1 write "&a",i,"=",$zh(a(i)) html #node&~lev~ quit tok write !,$piece(a(lev)," ",2,99) # tok write !,a(lev) if AFLG html quit parm1 set bx=lev for i=1:1:lev set c(i)=a(i) quit