mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-13 15:18:14 +00:00
00d306d72f
* Changes needed to compile maiko on Alpine Linux with clang. Switching to Alpine on github actions to streamline maiko release builds
* Changes needed to compile maiko on Alpine Linux with clang.
Switching to Alpine on github actions to streamline maiko release builds.
* ether_nethub.c missing a couple of includes, and incorrectly including
<sys/poll.h> instead of plain <poll.h>
* <dirent.h> does not define MAXNAMLEN on Alpine Linux, but "locfile.h"
compensates for this already, if it is modified to include <limits.h>,
so use this in "dirdefs.h".
---------
Co-authored-by: Nick Briggs <nicholas.h.briggs@gmail.com>
71 lines
2.7 KiB
C
71 lines
2.7 KiB
C
#ifndef DIRDEFS_H
|
|
#define DIRDEFS_H 1
|
|
|
|
#include <sys/types.h> // for u_short, ino_t
|
|
#include "lispemul.h" // for LispPTR
|
|
#include "locfile.h" // for MAXNAMLEN
|
|
/*
|
|
* 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. */
|
|
size_t au_len; /* Byte length of author. */
|
|
char author[256]; /* Author in Lisp sense. */
|
|
} 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 + 1]; /* Name in Lisp Format. */
|
|
char no_ver_name[MAXNAMLEN + 1];
|
|
/*
|
|
* Name in UNIX Format. Does not
|
|
* include Version field.
|
|
* All lower case.
|
|
*/
|
|
size_t lname_len; /* Byte length of lname. */
|
|
unsigned dirp; /* If 1, this file is a directory. */
|
|
unsigned version; /* Version in Lisp sense. */
|
|
ino_t ino; /* I-node number of this file. */
|
|
struct finfo *next; /* 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(LispPTR *args);
|
|
LispPTR COM_next_file(LispPTR *args);
|
|
LispPTR COM_finish_finfo(LispPTR *args);
|
|
#endif
|