/* Based on the Opendir sample in the Unix APIs Ref */ /* dxd 1.0 */ #include <sys/types.h> #include <dirent.h> #include <sys/stat.h> #include <sys/types.h> #include <errno.h> #include <stdio.h> #include <stddef.h> /* error constant */ #include <stdlib.h> /* system */ void rmvlnk(char* path, int indent) { int count; char szCmd2048; /* delete the object */ strcpy(szCmd, "RMVLNK OBJLNK('"); strcat(szCmd, path); strcat(szCmd, "') "); if (system(szCmd) == 0 ) { for (count=0; count<indent; count++) printf(" "); printf("%s DELETED
", path); } else { for (count=0; count<indent; count++) printf(" "); printf("%s FAILED - MSG%s
", szCmd, _EXCP_MSGID); } } void traverse(char * fn, int indent) { DIR *dir; struct dirent *entry; int count; char path16384; char szCmd2048; struct stat info; if ((dir = opendir(fn)) == NULL) /* try to open directory */ perror("opendir() error"); else { /* loop thru all objs in dir */ while ((entry = readdir(dir)) != NULL) { if (entry->d_name0 != '.') /* skip current and prev dir */ { strcpy(path, fn); strcat(path, "/"); strcat(path, entry->d_name); /* append new obj to current dir */ /* is this a directory */ if (stat(path, &info) != 0) fprintf(stderr, "stat() error on %s: %s
", path, strerror(errno)); else { if (S_ISDIR(info.st_mode)) /* process subdirectory */ traverse(path, indent + 1); else /* assume file */ rmvlnk(path, indent); } } } closedir(dir); /* delete the dir */ strcpy(szCmd, "RMVDIR DIR('"); strcat(szCmd, fn); strcat(szCmd, "') "); if (system(szCmd) == 0 ) { for (count=0; count<indent; count++) printf(" "); printf("%s DELETED
", fn); } else { for (count=0; count<indent; count++) printf(" "); printf("%s FAILED - MSG%s
", szCmd, _EXCP_MSGID); } } } main(int argc, char **argv) { if (argc != 2) { printf("Usage:
"); printf("Call DelTree <path>
"); printf(" where <path> is the directory delete
"); printf("Example:
"); printf("CALL PGM(DELTREE) PARM('/home/nandelin')
"); return; } traverse(argv1, 0 ); } </p>