Return to DIM2.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIM2.m, revision 1.1

1.1     ! snw         1: DIM2   ;SFISC/XAK,GFT-MUMPS SYNTAX CHECKER ;10/31/91  3:26 PM
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: SUB    F %J=%I-1:-1 S %C1=$E(%,%J) Q:%C1'?1UN
        !             5:        S %C1=$E(%,%J+1,%I-1) G ERR:%C1]""&(%C1'?1U.UN)&($E(%,%J,%I-1)'?1"%".UN) G:%C1]"" ERR:%[("."_%C1)
        !             6:        S %(%N,0)=$S(%C1]""!($E(%,%J)="^"):"V^",$E(%,%J)="@":"@^",1:"0^"),%(%N,1)=0,%(%N,2)=0,%(%N,3)=0,%N=%N+1 G 1
        !             7: UP     G ERR:%N=0!("(,"[$E(%,%I-1))!($E(%,%I+1)]""&("<>_[]:/\?'+-=!&#*),"""'[$E(%,%I+1))) S %N=%N-1,%(%N,1)=%(%N,1)+1,%F=$P(%(%N,0),"^",1) G:'%F UP1 S %F=$P(%(%N,0),"^",2)
        !             8:        S %F1=%(%N,1) G ERR:(%F1<+%F)!(%F1>$P(%F,";",2))!(%(%N,2)&'(%(%N,3)))
        !             9: UP1    K %(%N+1) G ERR:'%F&(%F'["V")&(%F'["@")&(%F'["P")&(%(%N,1)>1),1
        !            10: AR     G ERR:%N<1!("(,"[$E(%,%I-1))!('%(%N-1,3)&%(%N-1,2))!("@("[$E(%,1,2)) S %(%N-1,1)=%(%N-1,1)+1,%(%N-1,3)=0 G 1
        !            11: SEL    S %(%N-1,3)=%(%N-1,3)+1 G ERR:'%(%N-1,2)!(%(%N-1,3)>1),1
        !            12: GLO    D %INC G ERR:$E(%,%I,999)'?1U.UN.P.E&("%("'[%C)
        !            13:        G ERR:"=+-\/<>(,#!&*':@[]_"'[$E(%,%I-2)
        !            14: B      S %I=%I-1 G 1
        !            15: PAT    S %L1=1 G ERR:%I=1
        !            16: C      D %INC
        !            17: C1     I %C?.N G:%C="" ERR:'$D(%L1),FINISH:'%L1,ERR K %L1 G C
        !            18:        I %C="." K %L1 D %INC G ERR:%C="",P:%C'?1N,C1
        !            19:        I %C="@" G B
        !            20:        I %C'?1U,%C'="""" G ERR:'$D(%L1),ERR:%L1,B
        !            21: P      G ERR:$D(%L1) S %L1=0 I %C="""" D QUOTE G C
        !            22: P1     I "AULPCNE"[%C S %L1=%C D %INC G P1:%C]""
        !            23:        I %L1?.A G C1
        !            24: ERR    S %ERR=1,%N=0
        !            25: FINISH G ERR:%N'=0 K %C,%,%F,%F1,%I,%J,%L1,%L2,%N,%T,%Z1,%Z2,%FN,%FZ Q
        !            26: BINOP  S %Z1=""")%'" G OP
        !            27: MTHOP  S %Z1=""")%" G OP
        !            28: UNOP   S %Z1=""":<>+-'\/()%@#&!*=_][,",%Z2="""($+-=&!^%.@'" S:%C="'" %Z2=%Z2_"<>?[]" G OPCHK
        !            29: OP     S %Z2="""($+-^%@'." G OPCHK
        !            30: IND    G ERR:$E(%COM)="F" S %Z1="^?@(%+-=\/#*!&'_<>[]:,",%Z2="(+^-'$@%"""
        !            31: OPCHK  S %L1=$E(%,%I-1),%L2=$E(%,%I+1) S:"[]&!<>="[%C&(%L1="'") %L1=$E(%,%I-2) I %Z1'[%L1,%L1'?1UN G ERR
        !            32:        I (%Z2'[%L2)&(%L2'?1UN)!(%L2="") G ERR
        !            33:        G ERR:%L2=""!(("+-'@"'[%C)&(%L1=""))!(%C="'"&(%L1?1UN)&("[]?=<>"'[%L2))
        !            34: 1      G GG^DIM1
        !            35:        ;
        !            36: DATA   D %INC G ERR:%C="",DATA:"^@"[%C D %INC:%C="%",VAR G ERR:%ERR!("()"'[%C),GG1^DIM1
        !            37: QUOTE  D %INC I %C="" S %ERR=1 Q
        !            38:        G QUOTE:%C'="""" Q:$E(%,%I+1)'=%C  S %I=%I+1 G QUOTE
        !            39: VAR    F %J=%I:1 S %C=$E(%,%J) Q:",<>?/\[]+-=_()*&#!':"[%C!((%C="@")&($E(%,%J+1)="(")&($E(%)="@"))  S:%C'?1UN %ERR=1 I (%C="^"),$D(%(%N-1,"F")),%(%N-1,"F")["TEXT" S %ERR=0 Q
        !            40:        I %C="@"&'%ERR S %I=%J Q
        !            41:        Q:%ERR  S %F=$E(%,%I,%J-1) S:%F]""&(%F'?1U.UN)&($E(%,%I-1,%J-1)'?1"%".UN)!(%F="^"&($E(%,%J)'="(")) %ERR=1 S %I=%J Q
        !            42: %INC   S %I=%I+1,%C=$E(%,%I)
        !            43:        Q