Return to %ugdir.m CVS log

Up to [Coherent Logic Development] / freem / contrib

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

1.1       snw         1: %ugdir ; Global Directory  - version 0.5.0.1
                      2:  ; A.Trocha - 01/29/1999 00:44/GMT+1
                      3:  ; $Source: /cvsroot-fuse/gump/FreeM/mlib/%ugdir.m,v $
                      4:  ; $Revision: 1.1 $ $Date: 2000/02/18 15:13:42 $
                      5:  ;
                      6:  ; this version is very, very beta
                      7:  ;
                      8:  ; todo: LOCKING!!
                      9:  ;
                     10:  N no,error
                     11:  ;
                     12:  s error=$$init^%uxxxx 
                     13:  s error=$$writen^%uxxxx($t(+1)_"  "_$$^%uxdat)
                     14:  s error=$$writen^%uxxxx("")
                     15:  ;
                     16:  s no=$$out(0)+$$out(1)
                     17:  ; 
                     18:  s error=$$writep^%uxxxx("Number of globals - "_$J(no,8))
                     19:  Q
                     20:  ;
                     21:  ;--- get and output %-globals
                     22: out(m) n %
                     23:  ;--- path to %-globals
                     24:  S $ZT="%error^%ugdir"
                     25:  ;
                     26:  X "!<"_$$dircmd_" "_$$convpath($v($s(m=0:6,1:3)))_"^* 2>/dev/null"
                     27:  q $$show(m)
                     28:  ;
                     29:  ;
                     30:  ;
                     31: show(m) ;--- show globals
                     32:  ;    m=0 show %global  ;   m=1 show non% globals
                     33:  ;    do not output ^$<xxxxxx>
                     34:  N i,glb
                     35:  s glb=0
                     36:  F i=1:1:% D
                     37:  . I $G(m)=0,'$F($G(%(i)),"%") Q
                     38:  . I $G(m)=1,$F($G(%(i)),"%") Q
                     39:  . I $F($G(%(i)),"$") Q
                     40:  . W $$lb("^"_$P($G(%(i)),"^",2)) S glb=glb+1
                     41:  Q glb
                     42:  ;
                     43: convpath(dir) ;--- convert path
                     44:  N sl
                     45:  S sl=$$slash
                     46:  I dir="" Q ""
                     47:  I dir="."_sl Q ""
                     48:  I $E(dir,$L(dir))'=sl Q dir_sl
                     49:  Q dir
                     50:  ;
                     51: lb(str) ;---
                     52:  Q $E(str,1,9)_$J("",10-$L(str))
                     53:  ;
                     54: slash() ;--- get the OS specific directory delimiter (slash)
                     55:  Q "/"
                     56:  ;
                     57: dircmd() ;--
                     58:  ;--- get the OS specific directory command
                     59:  ;--- hmm!? how do I know which OS?
                     60:  Q "ls"
                     61:  ;
                     62: %error ;--- error - trap
                     63:  W !,$ZE,!!
                     64:  Q
                     65:  ;
                     66: list() q $$out(1)_",list^%ugdir"
                     67: