mirror of
https://github.com/GnoConsortium/gno.git
synced 2024-09-07 19:54:27 +00:00
180 lines
4.1 KiB
C
180 lines
4.1 KiB
C
|
/*
|
||
|
* The original version of these routines (for GNO v2.0.5 and earlier)
|
||
|
* were by Derek Taubert and Jawaid Bazyar. Reimplemented from scratch
|
||
|
* by Devin Reade.
|
||
|
*
|
||
|
* $Id: dirent.c,v 1.1 1997/02/28 05:12:43 gdr Exp $
|
||
|
*
|
||
|
* This file is formatted with tab stops every 8 characters.
|
||
|
*/
|
||
|
|
||
|
#ifdef __ORCAC__
|
||
|
segment "libc_gen__";
|
||
|
#endif
|
||
|
|
||
|
#pragma optimize 0
|
||
|
#pragma debug 0
|
||
|
#pragma memorymodel 0
|
||
|
|
||
|
#define __LIBC_DIRENT /* needed for decls in <dirent.h> */
|
||
|
|
||
|
#include <sys/types.h>
|
||
|
#include <stdlib.h>
|
||
|
#include <string.h>
|
||
|
#include <gsos.h>
|
||
|
#include <dirent.h>
|
||
|
#include <errno.h>
|
||
|
#include <gno/gno.h>
|
||
|
|
||
|
DIR *
|
||
|
opendir (char *filename) {
|
||
|
DIR *dirp;
|
||
|
OpenRecGS *openRecPtr;
|
||
|
int err;
|
||
|
|
||
|
/*
|
||
|
* the original version of this code used an ExpandDevices call
|
||
|
* to expand filename before the call to OpenGS
|
||
|
*/
|
||
|
|
||
|
/* do the allocations */
|
||
|
if ((dirp = malloc(sizeof(DIR))) == NULL) {
|
||
|
return NULL;
|
||
|
}
|
||
|
if ((dirp->dd_ent = malloc(sizeof(DirEntryRecGS))) == NULL) {
|
||
|
free(dirp);
|
||
|
return NULL;
|
||
|
}
|
||
|
if ((dirp->dd_ent->name = (ResultBuf255Ptr) GOinit (255, NULL))
|
||
|
== NULL) {
|
||
|
free(dirp->dd_ent);
|
||
|
free(dirp);
|
||
|
return NULL;
|
||
|
}
|
||
|
if ((dirp->dd_data = malloc(sizeof(struct dirent))) == NULL) {
|
||
|
free(dirp->dd_ent->name);
|
||
|
free(dirp->dd_ent);
|
||
|
free(dirp);
|
||
|
return NULL;
|
||
|
}
|
||
|
if ((openRecPtr = malloc(sizeof(OpenRecGS))) == NULL) {
|
||
|
free(dirp->dd_data);
|
||
|
free(dirp->dd_ent->name);
|
||
|
free(dirp->dd_ent);
|
||
|
free(dirp);
|
||
|
return NULL;
|
||
|
}
|
||
|
if ((openRecPtr->pathname = (GSString255Ptr) __C2GSMALLOC(filename))
|
||
|
== NULL) {
|
||
|
free(openRecPtr);
|
||
|
free(dirp->dd_data);
|
||
|
free(dirp->dd_ent->name);
|
||
|
free(dirp->dd_ent);
|
||
|
free(dirp);
|
||
|
return NULL;
|
||
|
}
|
||
|
|
||
|
/* open what is believed to be a directory */
|
||
|
openRecPtr->pCount = 8;
|
||
|
openRecPtr->requestAccess = readEnable;
|
||
|
openRecPtr->resourceNumber = 0;
|
||
|
OpenGS(openRecPtr);
|
||
|
if ((err = _mapErr(_toolErr)) == 0) {
|
||
|
if (openRecPtr->storageType != 0x0d && /* subdirectory */
|
||
|
openRecPtr->storageType != 0x0f) { /* volume directory */
|
||
|
err = ENOTDIR;
|
||
|
openRecPtr->pCount = 1;
|
||
|
CloseGS(openRecPtr); /* cheat a bit */
|
||
|
}
|
||
|
}
|
||
|
if (err) {
|
||
|
free(openRecPtr->pathname);
|
||
|
free(openRecPtr);
|
||
|
free(dirp->dd_data);
|
||
|
free(dirp->dd_ent->name);
|
||
|
free(dirp->dd_ent);
|
||
|
free(dirp);
|
||
|
errno = err;
|
||
|
return NULL;
|
||
|
}
|
||
|
|
||
|
/* if we're here, filename has been opened and it's a directory */
|
||
|
dirp->dd_fd = openRecPtr->refNum;
|
||
|
dirp->dd_ent->pCount = 7;
|
||
|
dirp->dd_ent->refNum = dirp->dd_fd;
|
||
|
free(openRecPtr->pathname);
|
||
|
free(openRecPtr);
|
||
|
return dirp;
|
||
|
}
|
||
|
|
||
|
struct dirent *
|
||
|
readdir (DIR *dirp) {
|
||
|
struct dirent *result;
|
||
|
int err;
|
||
|
|
||
|
/* get the info from GS/OS */
|
||
|
dirp->dd_ent->base = 1;
|
||
|
dirp->dd_ent->displacement = 1;
|
||
|
GetDirEntryGS(dirp->dd_ent);
|
||
|
if ((err = _mapErr(_toolErr)) != 0) {
|
||
|
return NULL;
|
||
|
}
|
||
|
|
||
|
/* copy it into the user-usable buffer */
|
||
|
result = dirp->dd_data;
|
||
|
result->d_fileno = dirp->dd_ent->entryNum;
|
||
|
result->d_reclen = sizeof(struct dirent);
|
||
|
switch (dirp->dd_ent->fileType) {
|
||
|
case 0x0f:
|
||
|
result->d_type = DT_DIR;
|
||
|
default:
|
||
|
result->d_type = DT_REG;
|
||
|
}
|
||
|
result->d_namlen = (char) dirp->dd_ent->name->bufString.length;
|
||
|
memcpy(result->d_name, dirp->dd_ent->name->bufString.text,
|
||
|
(size_t) result->d_namlen);
|
||
|
result->d_name[result->d_namlen] = '\0';
|
||
|
|
||
|
return result;
|
||
|
}
|
||
|
|
||
|
void
|
||
|
rewinddir (DIR *dirp) {
|
||
|
dirp->dd_ent->base = 0;
|
||
|
dirp->dd_ent->displacement = 0;
|
||
|
GetDirEntryGS(dirp->dd_ent);
|
||
|
}
|
||
|
|
||
|
long
|
||
|
telldir (DIR *dirp) {
|
||
|
return (long) dirp->dd_ent->entryNum;
|
||
|
}
|
||
|
|
||
|
void
|
||
|
seekdir (DIR *dirp, long loc) {
|
||
|
dirp->dd_ent->base = 0;
|
||
|
dirp->dd_ent->displacement = loc;
|
||
|
GetDirEntryGS(dirp->dd_ent);
|
||
|
}
|
||
|
|
||
|
int
|
||
|
closedir (DIR *dirp) {
|
||
|
int closerec[2];
|
||
|
int err;
|
||
|
|
||
|
closerec[0] = 1;
|
||
|
closerec[1] = dirp->dd_ent->refNum;
|
||
|
CloseGS(closerec);
|
||
|
err = _mapErr(_toolErr);
|
||
|
free(dirp->dd_data);
|
||
|
free(dirp->dd_ent->name);
|
||
|
free(dirp->dd_ent);
|
||
|
free(dirp);
|
||
|
if (err) {
|
||
|
errno = err;
|
||
|
return -1;
|
||
|
} else {
|
||
|
return 0;
|
||
|
}
|
||
|
}
|