mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-13 15:18:14 +00:00
3d9f090e70
Remove unused #define PERCENT_OF_SCREEN in MyWindow.h Move structures for dir.c to dirdefs.h where they are used Resolve S_CHAR vs S_CHARACTER in favor of S_CHARACTER and cleanup #defines Fix = vs == bug in FSDEBUG code in dir.c Eliminate duplicate/unused constant definitions in gcr.c Declare static internal function bytecmp in mkatom.c Update many source and include files to include headers for what they use
74 lines
2.9 KiB
C
74 lines
2.9 KiB
C
#ifndef DIRDEFS_H
|
|
#define DIRDEFS_H 1
|
|
#include <dirent.h> // for MAXNAMLEN
|
|
#include <sys/types.h> // for u_short, ino_t
|
|
#include "lispemul.h" // for LispPTR
|
|
/*
|
|
* FINFO and FPROP are used to store the information of the enumerated files
|
|
* and directories. They are arranged in a form of linked list. Each list is
|
|
* corresponding to the each directory enumeration. All of the informations
|
|
* Lisp needs are stored in the list. This list is in the emulator's address space
|
|
* and can be specified by "ID" which is the interface between the emulator and Lisp
|
|
* code. In this implementation, ID is represented as an integer and is actually
|
|
* an index of the array of the lists.
|
|
*
|
|
* To avoid the overhead of the FINFO and FPROP structure dynamic allocation and
|
|
* deallocation, some number of their instances are pre-allocated when the emulator
|
|
* starts and managed in a free list. If all of the pre-allocated instances are in
|
|
* use, new instances are allocated. The new instances are linked to the free list
|
|
* when it is freed.
|
|
*
|
|
* As described above, the linked list result of the enumeration is stored in a
|
|
* array for the subsequent request from Lisp. Lisp code requests the emulator to
|
|
* release the list when it enumerated all of the entries in the list or the
|
|
* enumerating operation is aborted.
|
|
*/
|
|
|
|
typedef struct fprop {
|
|
unsigned length; /* Byte length of this file. */
|
|
unsigned wdate; /* Written (Creation) date in Lisp sense. */
|
|
unsigned rdate; /* Read date in Lisp sense. */
|
|
unsigned protect; /* Protect mode of this file. */
|
|
char author[256]; /* Author in Lisp sense. */
|
|
u_short au_len; /* Byte length of author. */
|
|
unsigned long nil; /* padding to 8-byte multiple */
|
|
} FPROP;
|
|
|
|
/* This structure has a pointer at each end to force alignment to
|
|
be correct when a pointer is 8 bytes long. */
|
|
typedef struct finfo {
|
|
FPROP *prop; /* File properties Lisp needs. */
|
|
char lname[MAXNAMLEN]; /* Name in Lisp Format. */
|
|
u_short lname_len; /* Byte length of lname. */
|
|
char no_ver_name[MAXNAMLEN];
|
|
/*
|
|
* Name in UNIX Format. Does not
|
|
* include Version field.
|
|
* All lower case.
|
|
*/
|
|
ino_t ino; /* I-node number of this file. */
|
|
unsigned version; /* Version in Lisp sense. */
|
|
u_short dirp; /* If 1, this file is a directory. */
|
|
struct finfo *next; /*
|
|
* Link to a next entry. Last entry is
|
|
* indicated by NULL pointer.
|
|
*/
|
|
} FINFO;
|
|
|
|
typedef struct dfinfo {
|
|
FINFO *head; /* Head of the linked FINFO structures. */
|
|
FINFO *next; /* FINFO structure generated next time. */
|
|
} DFINFO;
|
|
|
|
#ifdef DOS
|
|
int make_old_version(char *old, char *file);
|
|
#endif
|
|
#ifdef FSDEBUG
|
|
void print_finfo(FINFO *fp);
|
|
#endif
|
|
int init_finfo(void);
|
|
LispPTR COM_gen_files(register LispPTR *args);
|
|
LispPTR COM_next_file(register LispPTR *args);
|
|
LispPTR COM_finish_finfo(register LispPTR *args);
|
|
#endif
|