Return to %FUTIL.m CVS log

Up to [Coherent Logic Development] / freem / contrib

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

1.1     ! snw         1: %FUTIL ; A.Trocha ; File i/o Library[1999/02/01-20:20:05]
        !             2:        ; $Source: /cvsroot-fuse/gump/FreeM/mlib/%FUTIL.m,v $
        !             3:        ; $Revision: 1.2 $ $Date: 2000/02/18 15:13:41 $
        !             4:        Q
        !             5:        ;
        !             6:        ;
        !             7: direx(path) ;--- test if directory exists
        !             8:        ;        0 = does not exist     1 = success
        !             9:        ;
        !            10:        S $ZT="direx99^"_$ZN
        !            11:        N tmp
        !            12:        S tmp=$V(2)
        !            13:        V 2:path
        !            14:        V 2:tmp
        !            15:        Q 1
        !            16:        Q
        !            17: direx99        ;--- error
        !            18:        Q 0
        !            19:        ;
        !            20:        ;
        !            21: mkdir(path) ;--- create directory
        !            22:        ;        0 = error      1 = ok
        !            23:        ;
        !            24:        N exec
        !            25:        S exec="!mkdir "_path_">/dev/null"
        !            26:        X exec
        !            27:        Q $$direx(path)
        !            28:        ;
        !            29:        ;
        !            30: rmdir(path) ;--- delete directory   "rm -r"
        !            31:        ; **** take care ****
        !            32:        N exec
        !            33:        S exec="!rm -r "_path_">/dev/null"
        !            34:        X exec
        !            35:        Q '$$direx(path)