Return to %uglis.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%uglis.m, revision 1.1

1.1     ! snw         1: %uglis ; Global List Utility - version 0.5.0.1
        !             2:  ; A.Trocha - 01/28/1999 02:55/GMT+1
        !             3:  ; $Source: /cvsroot-fuse/gump/FreeM/mlib/%uglis.m,v $
        !             4:  ; $Revision: 1.1 $ $Date: 2000/02/18 15:13:42 $
        !             5:  ;
        !             6:  N gl,orig,i,str,error
        !             7:  W !,$t(+1),"  ",$$^%uxdat
        !             8:  s error=$$init^%uxxxx
        !             9:  ; 
        !            10: %query s gl="",error=$$readn^%uxxxx("Global selector - ",.gl)
        !            11:  i error<0 q
        !            12:  i gl="" q
        !            13:  S gl="^"_$TR(gl,"^""")
        !            14:  I $E(gl,$L(gl))="(" S gl=$E(gl,1,$L(gl)-1)
        !            15:  I '$D(@$P(gl,"(")) s error=$$rerror^%uxxxx("Global does not exist") G %query
        !            16:  S ref=$TR($P(gl,"(",2),")")
        !            17:  I ref'="" D
        !            18:  . F i=1:1 S str=$P(ref,",",i) Q:str=""  I str'=+str S $P(ref,",",i)=""""_str_""""
        !            19:  . S gl=$P(gl,"(")_"("_ref_")"
        !            20:  S orig=gl I $F(orig,")") S orig=$E(orig,1,$L(orig)-1)
        !            21:  s error=$$writen^%uxxxx("")
        !            22:  I $D(@gl)-11#2=0 s error=$$writen^%uxxxx(gl_"="""_@gl_"""")
        !            23:  F  S gl=$Q(@gl) Q:gl=""!($E(gl,1,$L(orig))'=orig)  D
        !            24:  . s error=$$writen^%uxxxx(gl_"="""_@gl_"""")
        !            25:  G %query
        !            26: