mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-30 21:32:02 +00:00
Reformat all C source files with Clang-format in Google style w/ 100 col width.
This commit is contained in:
Nick Briggs
662
src/vmemsave.c
Executable file → Normal file
662
src/vmemsave.c
Executable file → Normal file
@@ -1,8 +1,7 @@
|
||||
/* $Id: vmemsave.c,v 1.2 1999/01/03 02:07:45 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
/* $Id: vmemsave.c,v 1.2 1999/01/03 02:07:45 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
|
||||
*/
|
||||
static char *id = "$Id: vmemsave.c,v 1.2 1999/01/03 02:07:45 sybalsky Exp $ Copyright (C) Venue";
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-1995 Venue. All Rights Reserved. */
|
||||
@@ -17,10 +16,6 @@ static char *id = "$Id: vmemsave.c,v 1.2 1999/01/03 02:07:45 sybalsky Exp $ Copy
|
||||
|
||||
#include "version.h"
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
/*
|
||||
* vmemsave.c
|
||||
*
|
||||
@@ -87,15 +82,15 @@ static char *id = "$Id: vmemsave.c,v 1.2 1999/01/03 02:07:45 sybalsky Exp $ Copy
|
||||
#endif
|
||||
|
||||
/* Error return values from VMEMSAVE */
|
||||
#define COMPLETESYSOUT NIL
|
||||
#define BADFILENAME S_POSITIVE | 1
|
||||
#define NOFILESPACE S_POSITIVE | 2
|
||||
#define FILECANNOTOPEN S_POSITIVE | 3
|
||||
#define FILECANNOTSEEK S_POSITIVE | 4
|
||||
#define FILECANNOTWRITE S_POSITIVE | 5
|
||||
#define FILETIMEOUT S_POSITIVE | 6
|
||||
#define COMPLETESYSOUT NIL
|
||||
#define BADFILENAME S_POSITIVE | 1
|
||||
#define NOFILESPACE S_POSITIVE | 2
|
||||
#define FILECANNOTOPEN S_POSITIVE | 3
|
||||
#define FILECANNOTSEEK S_POSITIVE | 4
|
||||
#define FILECANNOTWRITE S_POSITIVE | 5
|
||||
#define FILETIMEOUT S_POSITIVE | 6
|
||||
|
||||
struct stat DEBUG_stat;
|
||||
struct stat DEBUG_stat;
|
||||
|
||||
extern int LispWindowFd;
|
||||
extern struct pixrect *CursorBitMap, *InvisibleCursorBitMap;
|
||||
@@ -107,12 +102,11 @@ extern DspInterface currentdsp;
|
||||
#endif /* DOS */
|
||||
|
||||
#undef roundup
|
||||
#define roundup( a, b) ((((unsigned)(a)+(b)-1)/(b))*(b))
|
||||
|
||||
extern int *Lisp_errno;
|
||||
extern int Dummy_errno; /* Used if errno cell isn't provided by Lisp.*/
|
||||
extern int please_fork;
|
||||
#define roundup(a, b) ((((unsigned)(a) + (b)-1) / (b)) * (b))
|
||||
|
||||
extern int *Lisp_errno;
|
||||
extern int Dummy_errno; /* Used if errno cell isn't provided by Lisp.*/
|
||||
extern int please_fork;
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
@@ -123,17 +117,15 @@ extern int please_fork;
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
int lispstringP(Lisp)
|
||||
LispPTR Lisp;
|
||||
{
|
||||
switch( ((OneDArray *)(Addr68k_from_LADDR(Lisp)))->typenumber )
|
||||
{
|
||||
case THIN_CHAR_TYPENUMBER:
|
||||
case FAT_CHAR_TYPENUMBER: return(1);
|
||||
int lispstringP(Lisp) LispPTR Lisp;
|
||||
{
|
||||
switch (((OneDArray *)(Addr68k_from_LADDR(Lisp)))->typenumber) {
|
||||
case THIN_CHAR_TYPENUMBER:
|
||||
case FAT_CHAR_TYPENUMBER: return (1);
|
||||
|
||||
default: return(0);
|
||||
}
|
||||
default: return (0);
|
||||
}
|
||||
}
|
||||
|
||||
LispPTR vmem_save(register char *sysout_file_name);
|
||||
|
||||
@@ -173,76 +165,65 @@ LispPTR vmem_save(register char *sysout_file_name);
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
LispPTR vmem_save0(args)
|
||||
register LispPTR *args;
|
||||
{
|
||||
register char *def;
|
||||
char pathname[MAXPATHLEN], sysout[MAXPATHLEN], host[MAXNAMLEN];
|
||||
LispPTR vmem_save0(args) register LispPTR *args;
|
||||
{
|
||||
register char *def;
|
||||
char pathname[MAXPATHLEN], sysout[MAXPATHLEN], host[MAXNAMLEN];
|
||||
#ifdef DOS
|
||||
char pwd[MAXNAMLEN];
|
||||
char drive[1];
|
||||
char pwd[MAXNAMLEN];
|
||||
char drive[1];
|
||||
#else
|
||||
struct passwd *pwd;
|
||||
struct passwd *pwd;
|
||||
#endif /* DOS */
|
||||
char *getenv();
|
||||
|
||||
Lisp_errno = &Dummy_errno;
|
||||
char *getenv();
|
||||
|
||||
Lisp_errno = &Dummy_errno;
|
||||
|
||||
#ifdef DEMO
|
||||
return FILECANNOTOPEN;
|
||||
return FILECANNOTOPEN;
|
||||
#else
|
||||
|
||||
if((args[0] != NIL) && lispstringP(args[0]))
|
||||
{
|
||||
/* Check of lispstringP is safer for LispStringToCString */
|
||||
LispStringToCString(args[0], pathname, MAXPATHLEN);
|
||||
separate_host(pathname, host);
|
||||
if ((args[0] != NIL) && lispstringP(args[0])) {
|
||||
/* Check of lispstringP is safer for LispStringToCString */
|
||||
LispStringToCString(args[0], pathname, MAXPATHLEN);
|
||||
separate_host(pathname, host);
|
||||
#ifdef DOS
|
||||
if (!unixpathname(pathname, sysout, 0, 0, drive, 0, 0)) return(BADFILENAME);
|
||||
if (!unixpathname(pathname, sysout, 0, 0, drive, 0, 0)) return (BADFILENAME);
|
||||
#else
|
||||
if (!unixpathname(pathname, sysout, 0, 0)) return(BADFILENAME);
|
||||
if (!unixpathname(pathname, sysout, 0, 0)) return (BADFILENAME);
|
||||
#endif /* DOS */
|
||||
return(vmem_save(sysout));
|
||||
}
|
||||
else
|
||||
{
|
||||
if((def = getenv("LDEDESTSYSOUT")) == 0)
|
||||
{
|
||||
return (vmem_save(sysout));
|
||||
} else {
|
||||
if ((def = getenv("LDEDESTSYSOUT")) == 0) {
|
||||
#ifdef DOS
|
||||
if(getcwd(pwd,MAXNAMLEN) == NULL) return(FILETIMEOUT);
|
||||
strcpy(sysout,pwd);
|
||||
strcat(sysout, "/lisp.vm");
|
||||
if (getcwd(pwd, MAXNAMLEN) == NULL) return (FILETIMEOUT);
|
||||
strcpy(sysout, pwd);
|
||||
strcat(sysout, "/lisp.vm");
|
||||
#else
|
||||
pwd = getpwuid(getuid()); /* NEED TIMEOUT */
|
||||
if (pwd == (struct passwd *)NULL) return(FILETIMEOUT);
|
||||
strcpy(sysout, pwd->pw_dir);
|
||||
strcat(sysout, "/lisp.virtualmem");
|
||||
pwd = getpwuid(getuid()); /* NEED TIMEOUT */
|
||||
if (pwd == (struct passwd *)NULL) return (FILETIMEOUT);
|
||||
strcpy(sysout, pwd->pw_dir);
|
||||
strcat(sysout, "/lisp.virtualmem");
|
||||
#endif /* DOS */
|
||||
}
|
||||
else
|
||||
{
|
||||
if (*def == '~' &&
|
||||
(*(def + 1) == '/' || *(def + 1) == '\0'))
|
||||
{
|
||||
} else {
|
||||
if (*def == '~' && (*(def + 1) == '/' || *(def + 1) == '\0')) {
|
||||
#ifdef DOS
|
||||
if(getcwd(pwd,MAXNAMLEN) == NULL) return(FILETIMEOUT);
|
||||
strcpy(sysout,pwd);
|
||||
if (getcwd(pwd, MAXNAMLEN) == NULL) return (FILETIMEOUT);
|
||||
strcpy(sysout, pwd);
|
||||
#else
|
||||
pwd = getpwuid(getuid()); /* NEED TIMEOUT */
|
||||
if (pwd == (struct passwd *)NULL) return(FILETIMEOUT);
|
||||
strcpy(sysout, pwd->pw_dir);
|
||||
pwd = getpwuid(getuid()); /* NEED TIMEOUT */
|
||||
if (pwd == (struct passwd *)NULL) return (FILETIMEOUT);
|
||||
strcpy(sysout, pwd->pw_dir);
|
||||
#endif /* DOS */
|
||||
strcat(sysout, def + 1);
|
||||
}
|
||||
else
|
||||
{
|
||||
strcpy(sysout, def);
|
||||
}
|
||||
}
|
||||
return(vmem_save(sysout));
|
||||
strcat(sysout, def + 1);
|
||||
} else {
|
||||
strcpy(sysout, def);
|
||||
}
|
||||
#endif /* DEMO */
|
||||
}
|
||||
return (vmem_save(sysout));
|
||||
}
|
||||
#endif /* DEMO */
|
||||
}
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
@@ -254,80 +235,69 @@ LispPTR vmem_save0(args)
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
int twowords(i,j) /* the difference between two DLwords. */
|
||||
DLword *i, *j;
|
||||
{
|
||||
return(*i - *j);
|
||||
}
|
||||
|
||||
int twowords(i, j) /* the difference between two DLwords. */
|
||||
DLword *i,
|
||||
*j;
|
||||
{ return (*i - *j); }
|
||||
|
||||
#define FPTOVP_ENTRY (FPTOVP_OFFSET >> 8)
|
||||
|
||||
void sort_fptovp(fptovp, size)
|
||||
DLword *fptovp;
|
||||
int size;
|
||||
{
|
||||
int oldloc, newloc, oldsize, i;
|
||||
DLword *fptr;
|
||||
void sort_fptovp(fptovp, size) DLword *fptovp;
|
||||
int size;
|
||||
{
|
||||
int oldloc, newloc, oldsize, i;
|
||||
DLword *fptr;
|
||||
|
||||
for(fptr = fptovp, i=0;
|
||||
GETWORD(fptr) != FPTOVP_ENTRY && i < size;
|
||||
fptr++, i++);
|
||||
for (fptr = fptovp, i = 0; GETWORD(fptr) != FPTOVP_ENTRY && i < size; fptr++, i++)
|
||||
;
|
||||
|
||||
if(GETWORD(fptr) != FPTOVP_ENTRY)
|
||||
{
|
||||
DBPRINT((stderr, "Couldn't find FPTOVP_ENTRY; not munging\n"));
|
||||
return;
|
||||
}
|
||||
oldloc = fptr - fptovp;
|
||||
if (GETWORD(fptr) != FPTOVP_ENTRY) {
|
||||
DBPRINT((stderr, "Couldn't find FPTOVP_ENTRY; not munging\n"));
|
||||
return;
|
||||
}
|
||||
oldloc = fptr - fptovp;
|
||||
|
||||
/* Found old fptovp table location, now sort the table */
|
||||
qsort(fptovp, size, sizeof(DLword), twowords);
|
||||
/* Found old fptovp table location, now sort the table */
|
||||
qsort(fptovp, size, sizeof(DLword), twowords);
|
||||
|
||||
ONE_MORE_TIME: /* Tacky, but why repeat code? */
|
||||
|
||||
/* Look up FPTOVP_ENTRY again; if it's moved, need to shuffle stuff */
|
||||
for(fptr = fptovp, i=0;
|
||||
GETWORD(fptr) != FPTOVP_ENTRY && i < size;
|
||||
fptr++, i++);
|
||||
/* Look up FPTOVP_ENTRY again; if it's moved, need to shuffle stuff */
|
||||
for (fptr = fptovp, i = 0; GETWORD(fptr) != FPTOVP_ENTRY && i < size; fptr++, i++)
|
||||
;
|
||||
|
||||
if(GETWORD(fptr) != FPTOVP_ENTRY) error("Couldn't find FPTOVP_ENTRY second time!\n");
|
||||
newloc = fptr - fptovp;
|
||||
if (GETWORD(fptr) != FPTOVP_ENTRY) error("Couldn't find FPTOVP_ENTRY second time!\n");
|
||||
newloc = fptr - fptovp;
|
||||
|
||||
/* Supposedly all we have to do is adjust the fptovpstart and nactivepages
|
||||
the ifpage */
|
||||
InterfacePage->fptovpstart += (newloc - oldloc);
|
||||
oldsize = size;
|
||||
for(fptr = fptovp + (size-1); GETWORD(fptr) == 0xffff;
|
||||
fptr--, InterfacePage->nactivepages--, size--);
|
||||
/* Supposedly all we have to do is adjust the fptovpstart and nactivepages
|
||||
the ifpage */
|
||||
InterfacePage->fptovpstart += (newloc - oldloc);
|
||||
oldsize = size;
|
||||
for (fptr = fptovp + (size - 1); GETWORD(fptr) == 0xffff;
|
||||
fptr--, InterfacePage->nactivepages--, size--)
|
||||
;
|
||||
|
||||
if(size != oldsize)
|
||||
DBPRINT(("Found %d holes in fptovp table\n", oldsize - size));
|
||||
if (size != oldsize) DBPRINT(("Found %d holes in fptovp table\n", oldsize - size));
|
||||
|
||||
/* Sanity check; it's just possible there are duplicate entries... */
|
||||
{
|
||||
int dupcount = 0;
|
||||
for(fptr = fptovp, i=1;
|
||||
i<size;
|
||||
i++, fptr++)
|
||||
if(GETWORD(fptr) == GETWORD(fptr+1))
|
||||
{
|
||||
dupcount++;
|
||||
GETWORD(fptr) = 0xffff;
|
||||
}
|
||||
|
||||
/* if duplicates were found, resort to squeeze them out, then mung the
|
||||
size and fptovpstart again (spaghetti-code, HO!) */
|
||||
if(dupcount)
|
||||
{
|
||||
qsort(fptovp, size, sizeof(DLword), twowords);
|
||||
oldloc = newloc;
|
||||
DBPRINT((stderr, "%d duplicates found\n", dupcount));
|
||||
goto ONE_MORE_TIME;
|
||||
}
|
||||
/* Sanity check; it's just possible there are duplicate entries... */
|
||||
{
|
||||
int dupcount = 0;
|
||||
for (fptr = fptovp, i = 1; i < size; i++, fptr++)
|
||||
if (GETWORD(fptr) == GETWORD(fptr + 1)) {
|
||||
dupcount++;
|
||||
GETWORD(fptr) = 0xffff;
|
||||
}
|
||||
}
|
||||
|
||||
/* if duplicates were found, resort to squeeze them out, then mung the
|
||||
size and fptovpstart again (spaghetti-code, HO!) */
|
||||
if (dupcount) {
|
||||
qsort(fptovp, size, sizeof(DLword), twowords);
|
||||
oldloc = newloc;
|
||||
DBPRINT((stderr, "%d duplicates found\n", dupcount));
|
||||
goto ONE_MORE_TIME;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
@@ -337,7 +307,7 @@ ONE_MORE_TIME: /* Tacky, but why repeat code? */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
/*
|
||||
/*
|
||||
* Argument: char *sysout_file_name
|
||||
* The file name in UNIX format specifying a file to which
|
||||
* the current Lisp image should be flushed.
|
||||
@@ -362,273 +332,238 @@ ONE_MORE_TIME: /* Tacky, but why repeat code? */
|
||||
/* diagnostic flag value to limit the size of write() s */
|
||||
int maxpages = 65536;
|
||||
|
||||
LispPTR vmem_save(sysout_file_name)
|
||||
register char *sysout_file_name;
|
||||
{
|
||||
int sysout; /* SysoutFile descriptor */
|
||||
LispPTR vmem_save(sysout_file_name) register char *sysout_file_name;
|
||||
{
|
||||
int sysout; /* SysoutFile descriptor */
|
||||
#ifdef BIGVM
|
||||
register unsigned int *fptovp;
|
||||
register unsigned int *fptovp;
|
||||
#else
|
||||
register DLword *fptovp; /* FPTOVP */
|
||||
#endif /* BIGVM */
|
||||
int vmemsize; /* VMEMSIZE */
|
||||
register int i;
|
||||
char tempname[MAXPATHLEN];
|
||||
/* * * struct statfs fsbuf; * * */
|
||||
char *cp;
|
||||
register int rval;
|
||||
DLword *bmptr;
|
||||
int tot_pages = 0;
|
||||
register DLword *fptovp; /* FPTOVP */
|
||||
#endif /* BIGVM */
|
||||
int vmemsize; /* VMEMSIZE */
|
||||
register int i;
|
||||
char tempname[MAXPATHLEN];
|
||||
/* * * struct statfs fsbuf; * * */
|
||||
char *cp;
|
||||
register int rval;
|
||||
DLword *bmptr;
|
||||
int tot_pages = 0;
|
||||
#ifndef DOS
|
||||
extern int ScreenLocked;
|
||||
extern DLword *EmCursorX68K;
|
||||
extern DLword *EmCursorY68K;
|
||||
extern DLword NullCursor[];
|
||||
extern DLword *EmCursorBitMap68K;
|
||||
extern int ScreenLocked;
|
||||
extern DLword *EmCursorX68K;
|
||||
extern DLword *EmCursorY68K;
|
||||
extern DLword NullCursor[];
|
||||
extern DLword *EmCursorBitMap68K;
|
||||
#endif /* DOS */
|
||||
|
||||
/* remove cursor image from screen */
|
||||
/* remove cursor image from screen */
|
||||
|
||||
#ifdef SUNDISPLAY
|
||||
#ifdef OLD_CURSOR
|
||||
win_setcursor( LispWindowFd, &InvisibleCursor);
|
||||
win_setcursor(LispWindowFd, &InvisibleCursor);
|
||||
#else
|
||||
ScreenLocked=T;
|
||||
taking_mouse_down();
|
||||
ScreenLocked = T;
|
||||
taking_mouse_down();
|
||||
/* bmptr = EmCursorBitMap68K;
|
||||
EmCursorBitMap68K= NullCursor;*/
|
||||
#endif /* OLD_CURSOR */
|
||||
|
||||
#elif DOS
|
||||
/* For DOS, must also take the mouse cursor away (it's */
|
||||
/* written into the display-region bitmap). */
|
||||
currentdsp->device.locked++;
|
||||
(currentdsp->mouse_invissible)(currentdsp, IOPage68K);
|
||||
/* For DOS, must also take the mouse cursor away (it's */
|
||||
/* written into the display-region bitmap). */
|
||||
currentdsp->device.locked++;
|
||||
(currentdsp->mouse_invissible)(currentdsp, IOPage68K);
|
||||
#endif /* SUNDISPLAY || DOS */
|
||||
|
||||
/* set FPTOVP */
|
||||
fptovp = FPtoVP + 1;
|
||||
|
||||
/* set FPTOVP */
|
||||
fptovp = FPtoVP + 1;
|
||||
/* set VMEMSIZE */
|
||||
vmemsize = InterfacePage->nactivepages;
|
||||
|
||||
/* set VMEMSIZE */
|
||||
vmemsize = InterfacePage->nactivepages;
|
||||
/* [HH:6-Jan-89]
|
||||
Sequnce of save image
|
||||
(1) Sysout image is saved to a temporary file, tempname.
|
||||
(2) if a specified file, sysout_file_name, is exist, the file is removed.
|
||||
(3) the temporary file is renamed to the specified file.
|
||||
*/
|
||||
|
||||
/* [HH:6-Jan-89]
|
||||
Sequnce of save image
|
||||
(1) Sysout image is saved to a temporary file, tempname.
|
||||
(2) if a specified file, sysout_file_name, is exist, the file is removed.
|
||||
(3) the temporary file is renamed to the specified file.
|
||||
*/
|
||||
|
||||
SETJMP(FILETIMEOUT);
|
||||
SETJMP(FILETIMEOUT);
|
||||
#ifdef DOS
|
||||
/* Bloddy 8 char filenames in dos ... /jarl */
|
||||
make_old_version(tempname, sysout_file_name);
|
||||
#else /* DOS */
|
||||
sprintf(tempname, "%s-temp", sysout_file_name);
|
||||
/* Bloddy 8 char filenames in dos ... /jarl */
|
||||
make_old_version(tempname, sysout_file_name);
|
||||
#else /* DOS */
|
||||
sprintf(tempname, "%s-temp", sysout_file_name);
|
||||
#endif /* DOS */
|
||||
|
||||
/* Confirm protection of specified file by open/close */
|
||||
/* Confirm protection of specified file by open/close */
|
||||
|
||||
TIMEOUT(sysout=open(sysout_file_name, O_WRONLY, 0666));
|
||||
if (sysout == -1)
|
||||
{
|
||||
/* No file error skip return. */
|
||||
if(errno != 2) return(FILECANNOTOPEN); /* No such file error.*/
|
||||
}
|
||||
else TIMEOUT( rval = close(sysout) );
|
||||
TIMEOUT(sysout = open(sysout_file_name, O_WRONLY, 0666));
|
||||
if (sysout == -1) {
|
||||
/* No file error skip return. */
|
||||
if (errno != 2) return (FILECANNOTOPEN); /* No such file error.*/
|
||||
} else
|
||||
TIMEOUT(rval = close(sysout));
|
||||
|
||||
/* open temp file */
|
||||
TIMEOUT(sysout=open(tempname, O_WRONLY | O_CREAT | O_TRUNC, 0666));
|
||||
if (sysout == -1)
|
||||
{
|
||||
err_mess("open", errno);
|
||||
return(FILECANNOTOPEN);
|
||||
}
|
||||
|
||||
|
||||
InterfacePage->machinetype = KATANA;
|
||||
/* open temp file */
|
||||
TIMEOUT(sysout = open(tempname, O_WRONLY | O_CREAT | O_TRUNC, 0666));
|
||||
if (sysout == -1) {
|
||||
err_mess("open", errno);
|
||||
return (FILECANNOTOPEN);
|
||||
}
|
||||
|
||||
InterfacePage->machinetype = KATANA;
|
||||
|
||||
#ifdef NEW_STORAGE
|
||||
/* Restore storagefull state */
|
||||
if(((*STORAGEFULLSTATE_word) & 0xffff)== SFS_NOTSWITCHABLE)
|
||||
{
|
||||
/* This sysout uses only 8 Mbyte lisp space.
|
||||
It may be able to use this SYSOUT which has more than
|
||||
8 Mbyte lisp space.
|
||||
To enable to expand lisp space, \\STORAGEFULLSTATE
|
||||
should be NIL.
|
||||
*/
|
||||
*STORAGEFULLSTATE_word = NIL;
|
||||
InterfacePage->storagefullstate=NIL;
|
||||
}
|
||||
else
|
||||
{
|
||||
/* Otherwise, just restore storagefullstate in IFPAGE */
|
||||
InterfacePage->storagefullstate = (*STORAGEFULLSTATE_word) & 0xffff ;
|
||||
}
|
||||
/* Restore storagefull state */
|
||||
if (((*STORAGEFULLSTATE_word) & 0xffff) == SFS_NOTSWITCHABLE) {
|
||||
/* This sysout uses only 8 Mbyte lisp space.
|
||||
It may be able to use this SYSOUT which has more than
|
||||
8 Mbyte lisp space.
|
||||
To enable to expand lisp space, \\STORAGEFULLSTATE
|
||||
should be NIL.
|
||||
*/
|
||||
*STORAGEFULLSTATE_word = NIL;
|
||||
InterfacePage->storagefullstate = NIL;
|
||||
} else {
|
||||
/* Otherwise, just restore storagefullstate in IFPAGE */
|
||||
InterfacePage->storagefullstate = (*STORAGEFULLSTATE_word) & 0xffff;
|
||||
}
|
||||
#endif /* NEW_STORAGE */
|
||||
|
||||
|
||||
|
||||
/* First, sort fptovp table, trying to get pages contiguous */
|
||||
/* First, sort fptovp table, trying to get pages contiguous */
|
||||
#ifndef BIGVM
|
||||
#ifndef BYTESWAP
|
||||
/* Byte-swapped machines don't sort the table right. */
|
||||
sort_fptovp(fptovp, vmemsize);
|
||||
/* Byte-swapped machines don't sort the table right. */
|
||||
sort_fptovp(fptovp, vmemsize);
|
||||
#endif
|
||||
#endif
|
||||
|
||||
/* store vmem to sysoutfile */
|
||||
/* store vmem to sysoutfile */
|
||||
|
||||
for (i = 0; i < vmemsize; i++)
|
||||
{
|
||||
if (GETPAGEOK(fptovp,i) != 0177777)
|
||||
{
|
||||
int oldfptovp = GETFPTOVP(fptovp, i);
|
||||
int contig_pages = 0;
|
||||
for (i = 0; i < vmemsize; i++) {
|
||||
if (GETPAGEOK(fptovp, i) != 0177777) {
|
||||
int oldfptovp = GETFPTOVP(fptovp, i);
|
||||
int contig_pages = 0;
|
||||
#ifdef BYTESWAP
|
||||
int pc;
|
||||
int pc;
|
||||
#endif /* BYTESWAP */
|
||||
|
||||
register char *base_addr;
|
||||
register char *base_addr;
|
||||
|
||||
TIMEOUT( rval=lseek(sysout, i * BYTESPER_PAGE, 0) );
|
||||
if (rval == -1)
|
||||
{
|
||||
err_mess("lseek", errno);
|
||||
return(FILECANNOTSEEK);
|
||||
}
|
||||
base_addr = (char *)(Lisp_world + (GETFPTOVP(fptovp,i) * DLWORDSPER_PAGE));
|
||||
|
||||
/* Now, let's see how many pages we can dump */
|
||||
while(GETFPTOVP(fptovp,i) == oldfptovp
|
||||
&& i < vmemsize) {
|
||||
contig_pages++, oldfptovp++, i++;
|
||||
}
|
||||
i--; /* Previous loop always overbumps i */
|
||||
DBPRINT(("%4d: writing %d pages from %x\n",
|
||||
i, contig_pages, base_addr - (char*)Lisp_world));
|
||||
|
||||
#ifdef BYTESWAP
|
||||
word_swap_page(base_addr,
|
||||
contig_pages*BYTESPER_PAGE/4);
|
||||
#endif /* BYTESWAP */
|
||||
|
||||
if(contig_pages > maxpages) {
|
||||
char *ba = base_addr;
|
||||
int pc = contig_pages;
|
||||
while (pc > maxpages) {
|
||||
TIMEOUT(rval = write(sysout, ba, maxpages * BYTESPER_PAGE));
|
||||
if (rval == -1) {
|
||||
err_mess("write", errno);
|
||||
return(FILECANNOTWRITE);
|
||||
}
|
||||
ba += maxpages * BYTESPER_PAGE;
|
||||
pc -= maxpages;
|
||||
}
|
||||
if(pc > 0)
|
||||
TIMEOUT(rval = write(sysout, ba, pc * BYTESPER_PAGE));
|
||||
} else { int oldTT = TIMEOUT_TIME;
|
||||
/* As we can spend longer than TIMEOUT_TIME doing a big
|
||||
write, we adjust the timeout temporarily here */
|
||||
TIMEOUT_TIME += contig_pages>>3;
|
||||
TIMEOUT( rval=write(sysout,
|
||||
base_addr,
|
||||
contig_pages * BYTESPER_PAGE) );
|
||||
TIMEOUT_TIME = oldTT;
|
||||
}
|
||||
#ifdef BYTESWAP
|
||||
word_swap_page(base_addr,
|
||||
contig_pages*BYTESPER_PAGE/4);
|
||||
#endif /* BYTESWAP */
|
||||
|
||||
if (rval == -1)
|
||||
{
|
||||
err_mess("write", errno);
|
||||
return(FILECANNOTWRITE);
|
||||
}
|
||||
}
|
||||
TIMEOUT(rval = lseek(sysout, i * BYTESPER_PAGE, 0));
|
||||
if (rval == -1) {
|
||||
err_mess("lseek", errno);
|
||||
return (FILECANNOTSEEK);
|
||||
}
|
||||
base_addr = (char *)(Lisp_world + (GETFPTOVP(fptovp, i) * DLWORDSPER_PAGE));
|
||||
|
||||
/* Now, let's see how many pages we can dump */
|
||||
while (GETFPTOVP(fptovp, i) == oldfptovp && i < vmemsize) {
|
||||
contig_pages++, oldfptovp++, i++;
|
||||
}
|
||||
i--; /* Previous loop always overbumps i */
|
||||
DBPRINT(("%4d: writing %d pages from %x\n", i, contig_pages, base_addr - (char *)Lisp_world));
|
||||
|
||||
#ifdef BYTESWAP
|
||||
word_swap_page(base_addr, contig_pages * BYTESPER_PAGE / 4);
|
||||
#endif /* BYTESWAP */
|
||||
|
||||
/* seek to IFPAGE */
|
||||
TIMEOUT(rval=lseek(sysout, (long)FP_IFPAGE, 0));
|
||||
if (rval == -1)
|
||||
{
|
||||
err_mess("lseek", errno);
|
||||
return(FILECANNOTSEEK);
|
||||
if (contig_pages > maxpages) {
|
||||
char *ba = base_addr;
|
||||
int pc = contig_pages;
|
||||
while (pc > maxpages) {
|
||||
TIMEOUT(rval = write(sysout, ba, maxpages * BYTESPER_PAGE));
|
||||
if (rval == -1) {
|
||||
err_mess("write", errno);
|
||||
return (FILECANNOTWRITE);
|
||||
}
|
||||
ba += maxpages * BYTESPER_PAGE;
|
||||
pc -= maxpages;
|
||||
}
|
||||
if (pc > 0) TIMEOUT(rval = write(sysout, ba, pc * BYTESPER_PAGE));
|
||||
} else {
|
||||
int oldTT = TIMEOUT_TIME;
|
||||
/* As we can spend longer than TIMEOUT_TIME doing a big
|
||||
write, we adjust the timeout temporarily here */
|
||||
TIMEOUT_TIME += contig_pages >> 3;
|
||||
TIMEOUT(rval = write(sysout, base_addr, contig_pages * BYTESPER_PAGE));
|
||||
TIMEOUT_TIME = oldTT;
|
||||
}
|
||||
#ifdef BYTESWAP
|
||||
word_swap_page((char *) InterfacePage,
|
||||
BYTESPER_PAGE/4);
|
||||
word_swap_page(base_addr, contig_pages * BYTESPER_PAGE / 4);
|
||||
#endif /* BYTESWAP */
|
||||
|
||||
TIMEOUT(rval=write(sysout, (char *) InterfacePage, BYTESPER_PAGE) );
|
||||
if (rval == -1) {
|
||||
err_mess("write", errno);
|
||||
return (FILECANNOTWRITE);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/* seek to IFPAGE */
|
||||
TIMEOUT(rval = lseek(sysout, (long)FP_IFPAGE, 0));
|
||||
if (rval == -1) {
|
||||
err_mess("lseek", errno);
|
||||
return (FILECANNOTSEEK);
|
||||
}
|
||||
#ifdef BYTESWAP
|
||||
word_swap_page((char *) InterfacePage,
|
||||
BYTESPER_PAGE/4);
|
||||
word_swap_page((char *)InterfacePage, BYTESPER_PAGE / 4);
|
||||
#endif /* BYTESWAP */
|
||||
|
||||
if (rval == -1)
|
||||
{
|
||||
err_mess("write", errno);
|
||||
return(FILECANNOTWRITE);
|
||||
}
|
||||
TIMEOUT(rval = write(sysout, (char *)InterfacePage, BYTESPER_PAGE));
|
||||
#ifdef BYTESWAP
|
||||
word_swap_page((char *)InterfacePage, BYTESPER_PAGE / 4);
|
||||
#endif /* BYTESWAP */
|
||||
|
||||
if (rval == -1) {
|
||||
err_mess("write", errno);
|
||||
return (FILECANNOTWRITE);
|
||||
}
|
||||
|
||||
#ifdef OS5
|
||||
/* Seems to write all pages at close, so timeout
|
||||
is WAY to short, no matter how big. JDS 960925 */
|
||||
rval = close(sysout);
|
||||
#else
|
||||
TIMEOUT( rval = close(sysout) );
|
||||
/* Seems to write all pages at close, so timeout
|
||||
is WAY to short, no matter how big. JDS 960925 */
|
||||
rval = close(sysout);
|
||||
#else
|
||||
TIMEOUT(rval = close(sysout));
|
||||
#endif /* OS5 */
|
||||
if(rval == -1)
|
||||
{
|
||||
return(FILECANNOTWRITE);
|
||||
}
|
||||
if (rval == -1) { return (FILECANNOTWRITE); }
|
||||
|
||||
TIMEOUT(rval = unlink(sysout_file_name));
|
||||
if (rval == -1)
|
||||
{
|
||||
/* No file error skip return. */
|
||||
if(errno != 2) /* No such file error.*/ return(FILECANNOTOPEN);
|
||||
}
|
||||
TIMEOUT(rval = unlink(sysout_file_name));
|
||||
if (rval == -1) {
|
||||
/* No file error skip return. */
|
||||
if (errno != 2) /* No such file error.*/
|
||||
return (FILECANNOTOPEN);
|
||||
}
|
||||
|
||||
TIMEOUT( rval=rename(tempname, sysout_file_name) );
|
||||
if( rval== -1)
|
||||
{
|
||||
fprintf(stderr,"sysout is saved to temp file, %s.", tempname);
|
||||
return(FILECANNOTWRITE);
|
||||
}
|
||||
TIMEOUT(rval = rename(tempname, sysout_file_name));
|
||||
if (rval == -1) {
|
||||
fprintf(stderr, "sysout is saved to temp file, %s.", tempname);
|
||||
return (FILECANNOTWRITE);
|
||||
}
|
||||
|
||||
/* restore cursor image to screen */
|
||||
/* restore cursor image to screen */
|
||||
#ifdef SUNDISPLAY
|
||||
#ifdef OLD_CURSOR
|
||||
win_setcursor( LispWindowFd, &CurrentCursor);
|
||||
win_setcursor(LispWindowFd, &CurrentCursor);
|
||||
#else
|
||||
ScreenLocked=T;
|
||||
/*EmCursorBitMap68K = bmptr ;*/
|
||||
taking_mouse_up(*EmCursorX68K,*EmCursorY68K);
|
||||
ScreenLocked=NIL;
|
||||
ScreenLocked = T;
|
||||
/*EmCursorBitMap68K = bmptr ;*/
|
||||
taking_mouse_up(*EmCursorX68K, *EmCursorY68K);
|
||||
ScreenLocked = NIL;
|
||||
#endif /* OLD_CURSOR */
|
||||
|
||||
#elif DOS
|
||||
/* Must also put the mouse back. */
|
||||
(currentdsp->mouse_vissible)( IOPage68K->dlmousex, IOPage68K->dlmousey );
|
||||
currentdsp->device.locked--;
|
||||
/* Must also put the mouse back. */
|
||||
(currentdsp->mouse_vissible)(IOPage68K->dlmousex, IOPage68K->dlmousey);
|
||||
currentdsp->device.locked--;
|
||||
|
||||
#endif /* SUNDISPLAY */
|
||||
|
||||
|
||||
/*printf("vmem is saved completely.\n");*/
|
||||
return(COMPLETESYSOUT);
|
||||
}
|
||||
|
||||
|
||||
|
||||
/*printf("vmem is saved completely.\n");*/
|
||||
return (COMPLETESYSOUT);
|
||||
}
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
@@ -642,30 +577,23 @@ extern int UnixPID;
|
||||
|
||||
/* Make sure that we kill off any Unix subprocesses before we go away */
|
||||
|
||||
void lisp_finish()
|
||||
{
|
||||
char d[4];
|
||||
void lisp_finish() {
|
||||
char d[4];
|
||||
|
||||
DBPRINT(("finish lisp_finish\n"));
|
||||
DBPRINT(("finish lisp_finish\n"));
|
||||
|
||||
if( please_fork )
|
||||
{ /* if lde runs with -NF(No fork), */
|
||||
/* following 5 lines don't work well. */
|
||||
d[0] = 'E';
|
||||
d[3] = 1;
|
||||
/* These only happen if the fork really succeeded:
|
||||
/* if (UnixPipeOut >= 0) write(UnixPipeOut, d, 4); */
|
||||
/* if (UnixPipeIn >= 0 read(UnixPipeIn, d, 4);*/ /* Make sure it's finished */
|
||||
/* if (UnixPID >= 0) kill(UnixPID, SIGKILL);*/ /* Then kill fork_Unix itself */
|
||||
}
|
||||
device_before_exit();
|
||||
#ifdef DOS
|
||||
exit_host_filesystem();
|
||||
#endif /* DOS */
|
||||
exit(1);
|
||||
|
||||
if (please_fork) { /* if lde runs with -NF(No fork), */
|
||||
/* following 5 lines don't work well. */
|
||||
d[0] = 'E';
|
||||
d[3] = 1;
|
||||
/* These only happen if the fork really succeeded:
|
||||
/* if (UnixPipeOut >= 0) write(UnixPipeOut, d, 4); */
|
||||
/* if (UnixPipeIn >= 0 read(UnixPipeIn, d, 4);*/ /* Make sure it's finished */
|
||||
/* if (UnixPID >= 0) kill(UnixPID, SIGKILL);*/ /* Then kill fork_Unix itself */
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
device_before_exit();
|
||||
#ifdef DOS
|
||||
exit_host_filesystem();
|
||||
#endif /* DOS */
|
||||
exit(1);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user