From d8f038d894af09b33cb48765279b50e7c34864b4 Mon Sep 17 00:00:00 2001
From: Etienne Brateau <etienne.brateau@ensiie.fr>
Date: Sat, 15 Dec 2018 20:56:44 +0100
Subject: [PATCH] Remove unused files
---
log/src/log.c | 4 -
log/src/logcom.c | 4 -
log/src/loged.c | 1 -
psys/include/p2c/fs.h | 101 -----------------
psys/include/p2c/general_0.h | 28 -----
psys/include/p2c/general_1.h | 21 ----
psys/include/p2c/general_2.h | 22 ----
psys/include/p2c/general_3.h | 12 --
psys/include/p2c/hpib_0.h | 23 ----
psys/include/p2c/hpib_1.h | 32 ------
psys/include/p2c/hpib_2.h | 37 ------
psys/include/p2c/hpib_3.h | 30 -----
psys/include/p2c/loader.h | 7 --
psys/include/p2c/lunix_pas.h | 83 --------------
psys/include/p2c/markrelease.h | 8 --
psys/include/p2c/sysglobals.h | 199 +--------------------------------
psys/src/Makefile | 28 -----
psys/src/fs.c | 30 -----
psys/src/general_1.c | 9 --
psys/src/general_2.c | 18 ---
psys/src/general_3.c | 12 --
psys/src/hpib_2.c | 11 --
psys/src/loader.c | 13 ---
psys/src/lunix_pas.c | 23 ----
psys/src/markrelease.c | 26 -----
25 files changed, 1 insertion(+), 781 deletions(-)
delete mode 100644 psys/include/p2c/fs.h
delete mode 100644 psys/include/p2c/general_0.h
delete mode 100644 psys/include/p2c/general_1.h
delete mode 100644 psys/include/p2c/general_2.h
delete mode 100644 psys/include/p2c/general_3.h
delete mode 100644 psys/include/p2c/hpib_0.h
delete mode 100644 psys/include/p2c/hpib_1.h
delete mode 100644 psys/include/p2c/hpib_2.h
delete mode 100644 psys/include/p2c/hpib_3.h
delete mode 100644 psys/include/p2c/loader.h
delete mode 100644 psys/include/p2c/lunix_pas.h
delete mode 100644 psys/include/p2c/markrelease.h
delete mode 100644 psys/src/fs.c
delete mode 100644 psys/src/general_1.c
delete mode 100644 psys/src/general_2.c
delete mode 100644 psys/src/general_3.c
delete mode 100644 psys/src/hpib_2.c
delete mode 100644 psys/src/loader.c
delete mode 100644 psys/src/lunix_pas.c
delete mode 100644 psys/src/markrelease.c
diff --git a/log/src/log.c b/log/src/log.c
index fc976a8..1faa91c 100644
--- a/log/src/log.c
+++ b/log/src/log.c
@@ -53,10 +53,6 @@
#include <p2c/filepack.h>
#include <p2c/citinfomod.h>
#include <p2c/iodecl.h>
-#include <p2c/general_1.h>
-#include <p2c/general_2.h>
-#include <p2c/general_3.h>
-#include <p2c/fs.h>
#include <p2c/mylib.h>
#include "logfont.h"
#include "logstuff.h"
diff --git a/log/src/logcom.c b/log/src/logcom.c
index a617832..f52874a 100644
--- a/log/src/logcom.c
+++ b/log/src/logcom.c
@@ -43,10 +43,6 @@ the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
#include <p2c/filepack.h>
#include <p2c/citinfomod.h>
#include <p2c/iodecl.h>
-#include <p2c/general_1.h>
-#include <p2c/general_2.h>
-#include <p2c/general_3.h>
-#include <p2c/fs.h>
#include <p2c/mylib.h>
#include "logfont.h"
#include <p2c/newkbd.h>
diff --git a/log/src/loged.c b/log/src/loged.c
index 1c8cd12..8398a11 100644
--- a/log/src/loged.c
+++ b/log/src/loged.c
@@ -62,7 +62,6 @@ the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
#include "swap.h"
#include <p2c/filepack.h>
-#include <p2c/fs.h>
#include <p2c/regex.h>
#include <string.h>
diff --git a/psys/include/p2c/fs.h b/psys/include/p2c/fs.h
deleted file mode 100644
index 242291b..0000000
--- a/psys/include/p2c/fs.h
+++ /dev/null
@@ -1,101 +0,0 @@
-#ifndef FS_H
-#define FS_H
-
-
-/*file support*/
-#include <p2c/sysglobals.h>
-#include <p2c/misc.h>
-
-
-typedef enum {
- fs_cnormal, fs_lock, fs_purge, fs_ccrunch
-} fs_closetype;
-
-typedef enum {
- fs_readonly, fs_writeonly, fs_readwrite, fs_writeappend, fs_overwrite
-} fs_faccess;
-
-typedef union fs_vptr {
- long j;
- short *i;
- char *s;
-} fs_vptr;
-
-
-
-extern void fs_fstripname (char *s, char *pvname, char *ppath,
- char *pfname);
-extern void fs_fixname (char *title, int kind);
-extern void fs_remove_spaces (char *s);
-extern filekind fs_suffix (char *ftitle);
-extern int fs_scantitle (char *fname, char *fvid, char *ftitle,
- long *fsegs, filekind *fkind);
-extern char fs_findvolume (char *fvid, int verify);
-extern void fs_doprefix (char *dirname, char *kvid, long *kunit,
- int findunit);
-extern void fs_finitb (fib *f, char *window_, long recbytes);
-extern void fs_fhpopen (fib *f, int typ, char *title, char *option);
-extern void fs_fhpreset (fib *f, int typ);
-extern void fs_fcloseit (fib *f, char *stype);
-extern void fs_fclose (fib *f, int ftype);
-extern void fs_fmaketype (fib *f, char *title, char *option,
- char *typestring);
-extern void fs_foverfile (fib *f, char *title, char *option,
- char *typestring);
-extern void fs_fanonfile (fib *f, char *name, int kind, long size);
-extern void fs_fseek (fib *f, long position);
-extern long fs_fposition (fib *f);
-extern long fs_fmaxpos (fib *f);
-extern char *fs_fbufferref (fib *f);
-extern void fs_fget (fib *f);
-extern void fs_fput (fib *f);
-extern int fs_feof (fib *f);
-extern int fs_feoln (fib *f);
-extern void fs_fwriteln (fib *f);
-extern void fs_fread (fib *f, char *buf);
-extern void fs_fwrite (fib *f, char *buf);
-extern void fs_freadbytes (fib *f, char *buf, long size);
-extern void fs_fwritebytes (fib *f, char *buf, long size);
-extern long fs_fblockio (fib *f, char *buf, long nblocks, long rblock,
- int doread);
-extern void fs_killchar (fib *f, long *sinx);
-extern void fs_fpage (FILE *t);
-extern void fs_foverprint (FILE *t);
-extern void fs_fgotoxy (fib *f, long x, long y);
-extern void fs_fgetxy (fib *f, long *x, long *y);
-extern void fs_freadln (FILE *t);
-extern void fs_fwritechar (FILE *t, int ch, int rleng);
-extern void fs_freadchar (FILE *t, char *ch);
-extern void fs_freadword (FILE *t, short *i);
-extern void fs_freadint (FILE *t, long *i);
-extern void fs_fwriteword (FILE *t, int i, int rleng);
-extern void fs_fwriteint (FILE *t, long i, int rleng);
-extern void fs_fwritestr (FILE *t, char *s, int rleng);
-extern void fs_freadstr (FILE *t, char *s);
-extern void fs_fwritepaoc (FILE *t, char *a, int aleng, int rleng);
-extern void fs_freadpaoc (FILE *t, char *a, int aleng);
-extern void fs_freadenum (FILE *t, short *i, fs_vptr p);
-extern void fs_fwriteenum (FILE *t, int i, int rleng, fs_vptr p);
-extern void fs_freadbool (FILE *t, int *b);
-extern void fs_fwritebool (FILE *t, int b, int rleng);
-extern void fs_freadstrchar (char *s, long *p2, char *ch);
-extern void fs_fwritestrchar (char *s, long *p2, int ch, int rleng);
-extern void fs_freadstrword (char *s, long *p2, short *i);
-
-extern void fs_fwritestrword (char *s, long *p2, int i, int rleng);
-
-extern void fs_freadstrstr (char *t, long *p2, char *s);
-extern void fs_fwritestrstr (char *s, long *p2, char *t, int rleng);
-extern void fs_fwritestrpaoc (char *s, long *p2, char *a, int aleng,
- int rleng);
-extern void fs_freadstrpaoc (char *s, long *p2, char *a, int aleng);
-extern void fs_freadstrenum (char *s, long *p2, short *i, fs_vptr p);
-extern void fs_fwritestrenum (char *s, long *p2, int i, int rleng,
- fs_vptr p);
-extern void fs_freadstrbool (char *s, long *p2, int *b);
-extern void fs_fwritestrbool (char *s, long *p2, int b, int rleng);
-
-#endif /*FS_H*/
-
-/* End. */
-
diff --git a/psys/include/p2c/general_0.h b/psys/include/p2c/general_0.h
deleted file mode 100644
index 29e6839..0000000
--- a/psys/include/p2c/general_0.h
+++ /dev/null
@@ -1,28 +0,0 @@
-#ifndef GENERAL_0_H
-#define GENERAL_0_H
-
-#include <p2c/iodecl.h>
-
-
-#ifdef GENERAL_0_G
-# define vextern
-#else
-# define vextern extern
-#endif
-
-
-vextern drv_table_type kbd_crt_drivers, dummy_drivers;
-
-extern short ioread_word (int select_code, int register_);
-extern void iowrite_word (int select_code, int register_, int value);
-extern uchar ioread_byte (int select_code, int register_);
-extern void iowrite_byte (int select_code, int register_, int value);
-extern short P_iostatus (int select_code, int register_);
-extern void P_iocontrol (int select_code, int register_, int value);
-extern void kernel_initialize ( );
-extern void io_system_reset ( );
-
-#endif /*GENERAL_0_H*/
-
-/* End. */
-
diff --git a/psys/include/p2c/general_1.h b/psys/include/p2c/general_1.h
deleted file mode 100644
index 13d13a4..0000000
--- a/psys/include/p2c/general_1.h
+++ /dev/null
@@ -1,21 +0,0 @@
-#ifndef GENERAL_1_H
-#define GENERAL_1_H
-
-
-#include <p2c/iodecl.h>
-
-
-extern void P_ioinitialize ();
-extern void P_iouninitialize ();
-extern void P_ioreset (int select_code);
-extern void P_readchar (int select_code, char *value);
-extern void P_writechar (int select_code, int value);
-extern void P_readword (int select_code, long *num);
-extern void P_writeword (int select_code, long value);
-extern void set_timeout (int select_code, double time);
-
-
-#endif /*GENERAL_1_H*/
-
-/* End. */
-
diff --git a/psys/include/p2c/general_2.h b/psys/include/p2c/general_2.h
deleted file mode 100644
index 9fc46a1..0000000
--- a/psys/include/p2c/general_2.h
+++ /dev/null
@@ -1,22 +0,0 @@
-#ifndef GENERAL_2_H
-#define GENERAL_2_H
-
-
-#include <p2c/iodecl.h>
-
-extern void P_readnumber (long device, double *num);
-extern void P_writenumber (long device, double value);
-extern void P_readstring (long device, char *str);
-extern void readstring_until (int term, long device, char *str);
-extern void P_writestring (long device, char *str);
-extern void P_readnumberln (long device, double *num);
-extern void P_writenumberln (long device, double value);
-extern void P_writestringln (long device, char *str);
-extern void P_readuntil (int term, long device);
-extern void P_skipfor (long count, long device);
-
-
-#endif /*GENERAL_2_H*/
-
-/* End. */
-
diff --git a/psys/include/p2c/general_3.h b/psys/include/p2c/general_3.h
deleted file mode 100644
index 3041844..0000000
--- a/psys/include/p2c/general_3.h
+++ /dev/null
@@ -1,12 +0,0 @@
-#ifndef GENERAL_3_H
-#define GENERAL_3_H
-
-
-#include <p2c/iodecl.h>
-
-extern char *ioerror_message (char *P_Result, long ioerror);
-
-#endif /*GENERAL_3_H*/
-
-/* End. */
-
diff --git a/psys/include/p2c/hpib_0.h b/psys/include/p2c/hpib_0.h
deleted file mode 100644
index 45da568..0000000
--- a/psys/include/p2c/hpib_0.h
+++ /dev/null
@@ -1,23 +0,0 @@
-#ifndef HPIB_0_H
-#define HPIB_0_H
-
-
-
-/* by Tim Mikkelsen */
-/* date 07/17/81 */
-/* update 09/17/81 */
-/* */
-/* purpose This module contains the LEVEL 0 HPIB GROUP procedures. */
-/* */
-/* */
-
-#include <p2c/iodecl.h>
-extern void set_hpib (int select_code, int line);
-extern void clear_hpib (int select_code, int line);
-extern int hpib_line (int select_code, int line);
-
-
-#endif /*HPIB_0_H*/
-
-/* End. */
-
diff --git a/psys/include/p2c/hpib_1.h b/psys/include/p2c/hpib_1.h
deleted file mode 100644
index 52672d6..0000000
--- a/psys/include/p2c/hpib_1.h
+++ /dev/null
@@ -1,32 +0,0 @@
-#ifndef HPIB_1_H
-#define HPIB_1_H
-
-
-
-/* by Tim Mikkelsen */
-/* date 07/16/81 */
-/* update 08/03/83 by J Schmidt */
-/* */
-/* purpose This module contains the LEVEL 1 HPIB GROUP procedures. */
-/* */
-/* */
-
-#include <p2c/iodecl.h>
-
-
-extern void send_command (int select_code, int command);
-extern char my_address (int select_code);
-extern int active_controller (int select_code);
-extern int system_controller (int select_code);
-extern char addr_to_talk (long device);
-extern char addr_to_listen (long device);
-extern char set_to_talk (long device);
-extern char set_to_listen (long device);
-extern int end_set (int select_code);
-
-
-
-#endif /*HPIB_1_H*/
-
-/* End. */
-
diff --git a/psys/include/p2c/hpib_2.h b/psys/include/p2c/hpib_2.h
deleted file mode 100644
index 08df508..0000000
--- a/psys/include/p2c/hpib_2.h
+++ /dev/null
@@ -1,37 +0,0 @@
-#ifndef HPIB_2_H
-#define HPIB_2_H
-
-
-
-/* by Tim Mikkelsen */
-/* date 07/17/81 */
-/* update 03/09/83 */
-/* */
-/* purpose This module contains the LEVEL */
-/* 2 HPIB GROUP procedures. */
-/* */
-/* */
-
-#include <p2c/iodecl.h>
-
-
-extern void abort_hpib (int select_code);
-extern void P_clear (long device);
-extern void P_listen (int select_code, int address);
-extern void P_local (long device);
-extern void local_lockout (int select_code);
-extern void pass_control (long device);
-extern void ppoll_configure (long device, long mask);
-extern void ppoll_unconfigure (long device);
-extern void P_remote (long device);
-extern void P_secondary (int select_code, int address);
-extern void P_talk (int select_code, int address);
-extern void P_trigger (long device);
-extern void P_unlisten (int select_code);
-extern void P_untalk (int select_code);
-
-
-#endif /*HPIB_2_H*/
-
-/* End. */
-
diff --git a/psys/include/p2c/hpib_3.h b/psys/include/p2c/hpib_3.h
deleted file mode 100644
index eee8143..0000000
--- a/psys/include/p2c/hpib_3.h
+++ /dev/null
@@ -1,30 +0,0 @@
-#ifndef HPIB_3_H
-#define HPIB_3_H
-
-
-
-/* by Tim Mikkelsen */
-/* date 07/17/81 */
-/* update 01/08/82 */
-/* */
-/* purpose This module contains the LEVEL */
-/* 3 HPIB GROUP procedures. */
-/* */
-/* */
-
-#include <p2c/iodecl.h>
-
-
-extern int P_requested (int select_code);
-extern long P_ppoll (int select_code);
-extern long P_spoll (long device);
-extern void request_service (int select_code, long response);
-extern int P_listener (int select_code);
-extern int P_talker (int select_code);
-extern int P_remoted (int select_code);
-extern int locked_out (int select_code);
-
-#endif /*HPIB_3_H*/
-
-/* End. */
-
diff --git a/psys/include/p2c/loader.h b/psys/include/p2c/loader.h
deleted file mode 100644
index 40e576d..0000000
--- a/psys/include/p2c/loader.h
+++ /dev/null
@@ -1,7 +0,0 @@
-#ifndef LOADER_H
-#define LOADER_H
-
-
-extern void markuser(void);
-
-#endif /* LOADER_H */
diff --git a/psys/include/p2c/lunix_pas.h b/psys/include/p2c/lunix_pas.h
deleted file mode 100644
index 2e8d127..0000000
--- a/psys/include/p2c/lunix_pas.h
+++ /dev/null
@@ -1,83 +0,0 @@
-#ifndef LUNIX_PAS_H
-#define LUNIX_PAS_H
-
-#include <p2c/sysglobals.h>
-#include <p2c/newci.h>
-
-
-
-#ifdef LUNIX_PAS_G
-# define vextern
-#else
-# define vextern extern
-#endif
-
-
-
-/* CAGED_date="r lunix_date0='lunix of $X'; { $u $]" */
-#define lunix_lunix_date0 "lunix of Nov 2, 1988 11:45 pm"
-
-
-
-/* dave */
-
-
-
-#define lunix_lunix_date lunix_lunix_date0
-
-vextern const datetimerec lunix_null_dt;
-
-
-
-/* utmp/wtmp/.times stuff removed */
-
-typedef newci_argarr lunix_lunix_sarr;
-
-
-
-/* since 1970 */
-/* add to seconds */
-
-typedef struct lunix_fasttimerec {
- long seconds;
- short centisec;
-} lunix_fasttimerec;
-
-
-
-/*originally from lunix_asm*/
-
-
-
-extern int lunix_willprompt ();
-extern void lunix_getargs (char *p, _PROCEDURE main);
-extern void lunix_getEscErrMsg (char *s, long e);
-extern void lunix_fperror (FILE *out, char *s);
-extern void lunix_perror (char *s);
-extern void lunix_xbomb (char *s, int esc);
-extern void lunix_bomb (char *s);
-extern void lunix_setlog (char *fname);
-extern void lunix_dolog (char *s);
-extern void lunix_dologerr (char *s);
-extern char *lunix_spoolname (char *lunix_Result, char *directory,
- char *extension);
-extern long lunix_datetoint (daterec date, timerec time);
-extern void lunix_intToDate (long idate, daterec *date, timerec *time);
-extern void lunix_fasttime (lunix_fasttimerec *f);
-extern void lunix_datetostr (datetimerec datetime, char *s);
-extern void lunix_qsort (char *a, int n, int es, _PROCEDURE fc);
-extern void lunix_xfixname (char *name, char *ext);
-extern void lunix_moreln ();
-extern void lunix_morestart ();
-extern void lunix_moreend ();
-extern char *lunix_depasswd (char *lunix_Result, char *s);
-extern char *lunix_hexout (char *lunix_Result, long value, long size);
-
-
-
-#undef vextern
-
-#endif /*LUNIX_PAS_H*/
-
-/* End. */
-
diff --git a/psys/include/p2c/markrelease.h b/psys/include/p2c/markrelease.h
deleted file mode 100644
index 07fcb61..0000000
--- a/psys/include/p2c/markrelease.h
+++ /dev/null
@@ -1,8 +0,0 @@
-#ifndef MARKRELEASE_H
-#define MARKRELEASE_H
-
-extern void mark();
-extern void release();
-
-
-#endif
diff --git a/psys/include/p2c/sysglobals.h b/psys/include/p2c/sysglobals.h
index 42f0857..63e40fd 100644
--- a/psys/include/p2c/sysglobals.h
+++ b/psys/include/p2c/sysglobals.h
@@ -8,12 +8,7 @@
# define vextern extern
#endif
-/*20 CHARS: VERSION,DATE,TIME OF FILE SYS*/
-typedef char fsidctype[20];
-
-#define fsidc "Rev. 3.1 18-Jul-85"
-
-#define mminint (-32768L)
+#define mminint (-32768L) /*unused/ */
/*MINIMUM SHORT INTEGER VALUE*/
#define mmaxint 32767
@@ -44,113 +39,6 @@ typedef char fsidctype[20];
/*LOWEST INTERRUPT LEVEL*/
#define maxlevel 6
-/* p2c: Note: Field width for FKIND assumes enum filekind has 16 elements (from sysglobals.imp, line 81) */
-
-
-
-/*LARGEST MASKABLE INTERRUPT LEVEL*/
-/*directory entry*/
-/*bad blocks*/
-/*executable or linkable*/
-/*UCSD format text with editor environment*/
-/*L.I.F. ASCII format text strings*/
-/*file of <data type, e.g. char, integer,etc.>*/
-/*system (BOOT) file*/
-/*reserved for future expansion*/
-/*FILE INFORMATION*/
-/*BUFFER VARIABLE...F^ */
-/* LIST OF OPEN FILES */
-/*declaration and type information*/
-/* SIZE OF ONE LOGICAL RECORD */
-/* EXTERNAL FILE TYPE */
-/* FILE KIND */
-/* FILE IS LINE FORMATTED */
-/* HAS 512 BYTE BLOCK BUFFER */
-/* FILE HAS NO NAME */
-/* WAS CREATED THIS ASSOCIATION */
-/* FILE ACCESS RIGHTS */
-/*state information*/
-/*F^ AND LOOKAHEAD STATES */
-/* F^ IS AN END OF LINE */
-/* TRIED TO READ PAST END OF FILE */
-/* FILE HAS CHANGED SIZE */
-/* BUFFER NEEDS TO BE WRITTEN */
-/*file size and position*/
-/* FILE POINTER, CURRENT FILE POSITION */
-/*LOGICAL END OF FILE, CURRENT FILE SIZE */
-/*PHYSICAL END OF FILE, MAXIMUM FILE SIZE */
-/*buffering and low level formatting information*/
-/* FILE POSITION OF BUFFER */
-/* SPACE COMPRESSION COUNT */
-/*BUFFER METHOD MODULE */
-/*file association info*/
-/*EXECUTION ADDRESS IN BOOT FILE */
-/* VOLUME NAME */
-/* FILE PASSWORD */
-/* FILE NAME */
-/* ADDITIONAL SYSTEM DEPENDENT INFORMATION */
-/* TEMP FILE IDENTIFIER */
-/* OPTIONAL STRING PARAM */
-/*byte block transfer information*/
-/* START BYTE OF FILE, OR OTHER IDENTIFICATION */
-/* FOR FUTURE EXPANSION */
-/*TRUE IF NO SRM TEMP FILE CREATED */
-/*TRUE IF SRM SHOULD WAIT FOR LOCK */
-/*TRUE IF OLD SRM LINK IS TO BE PURGED */
-/*TRUE IF OPENED WITH OVERWRITE */
-/*TRUE IF PATHID NOT UNIQUE TO FILEID */
-/*TRUE IF FILE OPENED AS LOCKABLE */
-/*TRUE IF FILE IS LOCKED */
-/*TRUE IF DRIVER IS ACTIVE */
-/*PHYSICAL UNIT NUMBER */
-/*CALLED WHEN TRANSFER COMPLETES */
-/* X POSITION FOR GOTOXY */
-/* Y POSITION FOR GOTOXY */
-/* FILEID FOR OLD SRM FILE ON REWRITE */
-/*for future expansion*/
-/*large miscellaneous fields sometimes present*/
-/*minimal FIB ends here*/
-/* FILE NAME, EXCEPT VOLUME AND SIZE */
-/*FIB*/
-/*unitable entry definition*/
-/*directory access method*/
-/*byte block transfer method*/
-/*select code*/
-/*bus address*/
-/*disc unit*/
-/*disc volume*/
-/*physical starting byte of volume*/
-/*identifier (Amigo identify sequence)*/
-/*volume id*/
-/*temp for driver use only; init to 0!*/
-/*temp for driver use only; init to 0!*/
-/*device specifier letter*/
-/*unit absent or down flag*/
-/*user can edit input*/
-/*medium not changed since last access*/
-/*volume name must be uppercased*/
-/*fixed/removeable media flag*/
-/*driver mode: report/ignore media change*/
-/* (bit not used yet) */
-/*blocked volume flag*/
-/*volume size in bytes */
-/*unitentry*/
-/*0 NOT USED*/
-/* *note* the ioresult enumerations have been partitioned into two */
-/* mutually-exclusive groups: those beginning with 'z' are reserved */
-/* for the low-level drivers , and those beginning */
-/* with 'i' are reserved for the higher-level routines.*/
-/*end marker*/
-/*isr information block*/
-/*interrupt register address*/
-/*interrupt register mask*/
-/*interrupt register target value after masking*/
-/*chaining flag*/
-/*isr*/
-/*pointer to next isrib in linked list*/
-/*100 IS TEMP DISK FLAG*/
-/*DAY OF MONTH*/
-/*0 ==> DATE NOT MEANINGFUL*/
typedef enum {
untypedfile, badfile, codefile, textfile, asciifile, datafile, sysfile,
@@ -158,13 +46,6 @@ typedef enum {
lastfkind
} filekind;
-typedef char window[];
-
-typedef enum {
- readbytes, writebytes, flush, writeeol, readtoeol, clearunit, setcursor,
- getcursor, startread, startwrite, unitstatus, seekeof
-} amrequesttype;
-
typedef struct fib {
char *fwindow;
struct fib *flistptr;
@@ -198,51 +79,6 @@ typedef struct fib {
} UU;
} fib;
-typedef enum {
- getvolumename, setvolumename, getvolumedate, setvolumedate, changename,
- purgename, openfile, createfile, overwritefile, closefile, purgefile,
- stretchit, makedirectory, crunch, opendirectory, closedirectory, catalog,
- stripname, setunitprefix, openvolume, duplicatelink, openparentdir,
- catpasswords, setpasswords, lockfile, unlockfile, openunit
-} damrequesttype;
-
-typedef struct unitentry {
- _PROCEDURE dam;
- _PROCEDURE tm;
- uchar sc, ba, du, dv;
- long byteoffset, devid;
- char uvid[vidleng + 1];
- long dvrtemp;
- short dvrtemp2;
- char letter;
- unsigned offline : 1, uisinteractive : 1, umediavalid : 1, uuppercase : 1,
- uisfixed : 1, ureportchange : 1, pad : 1, uisblkd : 1;
- union {
- long umaxbytes;
- } UU;
-} unitentry;
-
-typedef unitentry unitabletype[maxunit + 1];
-
-typedef _PROCEDURE amtabletype[16];
-
-typedef char suftabletype[16][6];
-
-typedef short efttabletype[16];
-
-typedef enum {
- inoerror, zbadblock, ibadunit, zbadmode, ztimeout, ilostunit, ilostfile,
- ibadtitle, inoroom, inounit, inofile, idupfile, inotclosed, inotopen,
- ibadformat, znosuchblk, znodevice, zinitfail, zprotected, zstrangei,
- zbadhardware, zcatchall, zbaddma, inotvalidsize, inotreadable,
- inotwriteable, inotdirect, idirfull, istrovfl, ibadclose, ieof,
- zuninitialized, znoblock, znotready, znomedium, inodirectory,
- ibadfiletype, ibadvalue, icantstretch, ibadrequest, inotlockable,
- ifilelocked, ifileunlocked, idirnotempty, itoomanyopen, inoaccess,
- ibadpass, ifilenotdir, inotondir, ineedtempdir, isrmcatchall,
- zmediumchanged, endioerrs
-} iorsltwd;
-
typedef struct isrib {
char *intregaddr;
uchar intregmask, intregvalue;
@@ -251,8 +87,6 @@ typedef struct isrib {
struct isrib *link;
} isrib;
-typedef isrib *inttabletype[7];
-
typedef struct daterec {
char year;
unsigned day : 5, month : 4;
@@ -267,37 +101,6 @@ typedef struct datetimerec {
timerec time;
} datetimerec;
-vextern short sysescapecode;
-vextern void* *openfileptr, *recoverblock, *heapmax, *heapbase;
-vextern long sysioresult, hardwarestatus, locklevel;
-vextern unitentry *unitable;
-vextern inttabletype interrupttable;
-vextern long endisrhook, actionspending;
-vextern FILE **gfiles[6];
-vextern _PROCEDURE *amtable;
-vextern char (*suffixtable)[6];
-vextern short *efttable;
-vextern long sysunit;
-vextern char syvid[vidleng + 1], dkvid[vidleng + 1];
-vextern char syslibrary[fidleng + 1];
-vextern _PROCEDURE debugger;
-vextern _PROCEDURE cleariohook;
-vextern inttabletype perminttable;
-vextern _PROCEDURE deferredaction[10];
-vextern _PROCEDURE serialtextamhook;
-vextern char sysname[10];
-vextern struct {
- unsigned reserved1 : 1, reserved2 : 1, nointhpib : 1, crtconfigreg : 1,
- nokeyboard : 1, highlightsxorbiggraphics : 1, biggraphics : 1,
- alpha50 : 1;
-} sysflag;
-vextern struct {
- char pad7to1;
- unsigned prompresent : 1;
-} sysflag2;
-vextern short endsysvars;
-
-
#undef vextern
#endif /*SYSGLOBALS_H*/
diff --git a/psys/src/Makefile b/psys/src/Makefile
index 15d41f0..df447ed 100644
--- a/psys/src/Makefile
+++ b/psys/src/Makefile
@@ -91,18 +91,10 @@ XINCLUDEDIR = .
CHIPMUNKCC = gcc -O3
OBJS = sysdevs.o \
- markrelease.o \
misc.o \
newci.o \
filepack.o \
- fs.o \
iodecl.o \
- loader.o \
- lunix_pas.o \
- general_1.o \
- general_2.o \
- general_3.o \
- hpib_2.o \
mylib.o \
newkbd.o \
strings.o \
@@ -241,17 +233,7 @@ psysinc:
cp ../include/p2c/misc.h psys/include/p2c
cp ../include/p2c/newci.h psys/include/p2c
cp ../include/p2c/filepack.h psys/include/p2c
- cp ../include/p2c/markrelease.h psys/include/p2c
cp ../include/p2c/citinfomod.h psys/include/p2c
- cp ../include/p2c/fs.h psys/include/p2c
- cp ../include/p2c/general_0.h psys/include/p2c
- cp ../include/p2c/general_1.h psys/include/p2c
- cp ../include/p2c/general_2.h psys/include/p2c
- cp ../include/p2c/general_3.h psys/include/p2c
- cp ../include/p2c/hpib_0.h psys/include/p2c
- cp ../include/p2c/hpib_1.h psys/include/p2c
- cp ../include/p2c/hpib_2.h psys/include/p2c
- cp ../include/p2c/hpib_3.h psys/include/p2c
cp ../include/p2c/newkbd.h psys/include/p2c
cp ../include/p2c/newasm.h psys/include/p2c
cp ../include/p2c/newcrt.h psys/include/p2c
@@ -262,25 +244,15 @@ psysinc:
cp ../include/p2c/rnd.h psys/include/p2c
cp ../include/p2c/iodecl.h psys/include/p2c
cp ../include/p2c/mylib.h psys/include/p2c
- cp ../include/p2c/lunix_pas.h psys/include/p2c
- cp ../include/p2c/loader.h psys/include/p2c
cp ../include/p2c/math.h psys/include/p2c
cp ../include/p2c/strings.h psys/include/p2c
psyssrc:
cp asm.c psys/src
cp filepack.c psys/src
- cp fs.c psys/src
- cp general_1.c psys/src
- cp general_2.c psys/src
- cp general_3.c psys/src
- cp hpib_2.c psys/src
cp iodecl.c psys/src
- cp loader.c psys/src
cp loc.p2clib.c psys/src
- cp lunix_pas.c psys/src
cp mamplot.c psys/src
- cp markrelease.c psys/src
cp math.c psys/src
cp misc.c psys/src
cp mylib.c psys/src
diff --git a/psys/src/fs.c b/psys/src/fs.c
deleted file mode 100644
index 940589a..0000000
--- a/psys/src/fs.c
+++ /dev/null
@@ -1,30 +0,0 @@
-#include <p2c/p2c.h>
-#include <p2c/fs.h>
-
-
-void fs_remove_spaces(char *s)
-{
- char *cp1 = s;
- char *cp2 = s;
-
- while (*cp1) {
- if (*cp1 > ' ')
- *cp2++ = *cp1;
- cp1++;
- }
- *cp2 = '\0';
-}
-
-
-void fs_fstripname(char *s, char *pvname, char *ppath, char *pfname)
-{
- char *cp;
-
- *pvname = '\0';
- strcpy(ppath, s);
- cp = (char *) strrchr(ppath, '/');
- *cp = '\0';
- strcpy(pfname, cp+1);
-}
-
-
diff --git a/psys/src/general_1.c b/psys/src/general_1.c
deleted file mode 100644
index 5602512..0000000
--- a/psys/src/general_1.c
+++ /dev/null
@@ -1,9 +0,0 @@
-#define GENERAL_1_G
-
-#include <stdio.h>
-#include <p2c/p2c.h>
-#include <p2c/general_1.h>
-
-void set_timeout(int sc, double sec)
-{
-}
diff --git a/psys/src/general_2.c b/psys/src/general_2.c
deleted file mode 100644
index 4caed96..0000000
--- a/psys/src/general_2.c
+++ /dev/null
@@ -1,18 +0,0 @@
-#define GENERAL_2_G
-
-#include <stdio.h>
-#include <p2c/p2c.h>
-#include <p2c/general_2.h>
-
-void P_readstring(long sc, char *s)
-{
-}
-
-void P_writestring(long sc, char *s)
-{
-}
-
-void P_writestringln(long sc, char *s)
-{
-}
-
diff --git a/psys/src/general_3.c b/psys/src/general_3.c
deleted file mode 100644
index bad40c9..0000000
--- a/psys/src/general_3.c
+++ /dev/null
@@ -1,12 +0,0 @@
-#define GENERAL_3_G
-
-#include <stdio.h>
-#include <p2c/p2c.h>
-#include <p2c/general_3.h>
-
-char *ioerror_message(char *s, long err)
-{
- sprintf(s, "ioerror_message ERROR number %ld", err);
- return s;
-}
-
diff --git a/psys/src/hpib_2.c b/psys/src/hpib_2.c
deleted file mode 100644
index 5e0a05a..0000000
--- a/psys/src/hpib_2.c
+++ /dev/null
@@ -1,11 +0,0 @@
-#define HPIB_2_G
-
-#include <stdio.h>
-#include <p2c/p2c.h>
-#include <p2c/hpib_2.h>
-
-
-void abort_hpib(int sc)
-{
-}
-
diff --git a/psys/src/loader.c b/psys/src/loader.c
deleted file mode 100644
index c71cc2f..0000000
--- a/psys/src/loader.c
+++ /dev/null
@@ -1,13 +0,0 @@
-#define LOADER_G
-
-#include <p2c/p2c.h>
-
-#ifndef LOADER_H
-#include <p2c/loader.h>
-#endif
-
-
-void markuser()
-{
-}
-
diff --git a/psys/src/lunix_pas.c b/psys/src/lunix_pas.c
deleted file mode 100644
index b431435..0000000
--- a/psys/src/lunix_pas.c
+++ /dev/null
@@ -1,23 +0,0 @@
-#define LUNIX_PAS_G
-
-#include <time.h>
-
-#include <p2c/p2c.h>
-#include <p2c/lunix_pas.h>
-#include <p2c/sysglobals.h>
-
-
-
-void lunix_intToDate (long idate, daterec *date, timerec *time)
-{
- struct tm *temp_tm;
-
- temp_tm = localtime(&idate);
- date->year = temp_tm->tm_year;
- date->day = temp_tm->tm_mday;
- date->month = temp_tm->tm_mon + 1;
- time->hour = temp_tm->tm_hour;
- time->minute = temp_tm->tm_min;
- time->centisecond = temp_tm->tm_sec * 100;
-}
-
diff --git a/psys/src/markrelease.c b/psys/src/markrelease.c
deleted file mode 100644
index b1a99dd..0000000
--- a/psys/src/markrelease.c
+++ /dev/null
@@ -1,26 +0,0 @@
-#include <stdio.h>
-#include <p2c/p2c.h>
-#include <p2c/markrelease.h>
-
-struct record {
- struct record *prev;
-} *mark_first_mallocced_info;
-
-void mark(struct record **state)
-{
- *state = mark_first_mallocced_info;
-}
-
-void release(struct record **state)
-{
- struct record *save;
-
- while (mark_first_mallocced_info != *state) {
- save = mark_first_mallocced_info;
- mark_first_mallocced_info = save->prev;
- free(save);
- }
-}
-
-
-
--
GitLab