Return to %RD.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%RD.m, revision 1.1.1.1

1.1       snw         1: %RD    ; A.Trocha; Routine Directory 01/29/1999 01:30/GMT+1
                      2:        ; $Source: /cvsroot-fuse/gump/FreeM/mlib/%RD.m,v $
                      3:        ; $Revision: 1.3 $ $Date: 2000/02/18 15:13:41 $
                      4:        ; this version is very, very beta
                      5:        ; todo: LOCKING!!
                      6:        ;
                      7:        N rnorm,rsys,xdir,anz,ext
                      8:        ;
                      9:        ;--- path to non-% routines
                     10:        S rnorm=$V(4)
                     11:        ;
                     12:        ;--- path to %-routines
                     13:        S rsys=$V(8)
                     14:        ;
                     15:        ;--- get routine extention
                     16:        S ext=$V(98)
                     17:        ;
                     18:        W !,?20,"ROUTINE DIRECTORY  "_$ZD
                     19:        W !,?23," OF FreeM      "_$ZT
                     20:        W !!
                     21:        ;
                     22:        S anz=0
                     23:        ;
                     24:        ;--- get and output %-routines
                     25:        K %
                     26:        S xdir="!<"_$$dircmd()_" "_$$convpath(rsys)_"*"_ext_" 2>/dev/null"
                     27:        S $ZT="error^"_$ZN
                     28:        X xdir D show($$convpath(rsys),0)
                     29:        ;
                     30:        ;--- get and output non-% routines
                     31:        K %
                     32:        S xdir="!<"_$$dircmd()_" "_$$convpath(rnorm)_"*"_ext_" 2>/dev/null"
                     33:        X xdir D show($$convpath(rnorm),1)
                     34:        ;
                     35: end    W !,$J(anz,8)," - Routines",!!
                     36:        K %
                     37:        Q
                     38:        ;
                     39: show(path,m) ;--- show routines
                     40:        ;    m=0 show %routines  ;   m=1 show non% routines
                     41:        N i,out
                     42:        F i=1:1:% D
                     43:        . I $G(m)=0&('$F($G(%(i)),"%")) Q
                     44:        . I $G(m)=1&($F($G(%(i)),"%")) Q
                     45:        . S out=$G(%(i))
                     46:        . I path'="" S out=$E(out,$L(path)+1,$L(out))
                     47:        . S out=$E(out,1,$L(out)-$L(ext))
                     48:        . W $$lb("^"_out) S anz=anz+1
                     49:        Q
                     50:        ;
                     51: convpath(dir)
                     52:        ;--- convert path
                     53:        N sl
                     54:        S sl=$$slash()
                     55:        I dir="" Q ""
                     56:        I dir="."_sl Q ""
                     57:        I $E(dir,$L(dir))'=sl Q dir_sl
                     58:        Q dir
                     59:        ;
                     60: lb(str)        ;---
                     61:        Q $E(str,1,9)_$J("",10-$L(str))
                     62:        ;
                     63: slash() ;--- get the OS specific directory delimiter (slash)
                     64:        Q "/"
                     65:        ;
                     66: dircmd() ;
                     67:        ;--- get the OS specific directory command
                     68:        ;--- hmm!? how do I know which OS?
                     69:        Q "ls"
                     70:        ;
                     71: error  ;--- error - trap
                     72:        W !,$ZE,!!
                     73:        K % Q