Return to %KEY.m CVS log

Up to [Coherent Logic Development] / freem / contrib

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

1.1     ! snw         1: %KEY(to,mode) ; A.Trocha ; keyb-handler [1999/01/29- 6:01:56]
        !             2:        ; $Source: /cvsroot-fuse/gump/FreeM/mlib/%KEY.m,v $
        !             3:        ; $Revision: 1.2 $ $Date: 2000/02/18 15:13:41 $
        !             4:        ; <to> timeout (sec) default: no timeout
        !             5:        ; <mode> 0 or "" or n.d : return values
        !             6:        ;        1 : interpret
        !             7:        ;
        !             8:        N buf,x,exec
        !             9:        ;
        !            10:        S to=$G(to)
        !            11:        I to="" S to=-1,exec="R *x"
        !            12:        E  S exec="R *x:"_to
        !            13:        ;
        !            14:        S buf=""
        !            15:        ;
        !            16: get    X exec I '$T Q ""
        !            17:        ;
        !            18:        D add(x)
        !            19:        ;
        !            20: loop   R *x:0 I '$T G interp
        !            21:        D add(x)
        !            22:        G loop
        !            23:        ;
        !            24: interp ;--- interpret buffer and return string
        !            25:        I $G(mode)=1 Q $$^%KEYINT(buf)
        !            26:        Q buf
        !            27:        ;
        !            28: add(x) ;--- add key-value to buffer
        !            29:        I buf'="" S buf=buf_"-"
        !            30:        S buf=buf_x
        !            31:        Q