Return to %FUTIL.m CVS log

Up to [Coherent Logic Development] / freem / contrib

FreeM

%FUTIL	; A.Trocha ; File i/o Library[1999/02/01-20:20:05]
	; $Source: /home/cvsroot/freem/contrib/%FUTIL.m,v $
	; $Revision: 1.1.1.1 $ $Date: 2025/01/19 02:04:04 $
	Q
	;
	;
direx(path) ;--- test if directory exists
	;        0 = does not exist     1 = success
	;
	S $ZT="direx99^"_$ZN
	N tmp
	S tmp=$V(2)
	V 2:path
	V 2:tmp
	Q 1
	Q
direx99	;--- error
	Q 0
	;
	;
mkdir(path) ;--- create directory
	;        0 = error      1 = ok
	;
	N exec
	S exec="!mkdir "_path_">/dev/null"
	X exec
	Q $$direx(path)
	;
	;
rmdir(path) ;--- delete directory   "rm -r"
	; **** take care ****
	N exec
	S exec="!rm -r "_path_">/dev/null"
	X exec
	Q '$$direx(path)