mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-26 03:51:32 +00:00
Maiko sources matching state as of 020102 prior to initial patching for Mac OSX
This commit is contained in:
Nick Briggs
455
src/osmsg.c
Executable file
455
src/osmsg.c
Executable file
@@ -0,0 +1,455 @@
|
||||
/* $Id: osmsg.c,v 1.2 1999/01/03 02:07:29 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
static char *id = "$Id: osmsg.c,v 1.2 1999/01/03 02:07:29 sybalsky Exp $ Copyright (C) Venue";
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* O S M E S S A G E . C */
|
||||
/* */
|
||||
/* Functions for handling the redirection of console and stan- */
|
||||
/* dard-error output so it appears in the prompt window. */
|
||||
/* */
|
||||
/* */
|
||||
/* */
|
||||
/* */
|
||||
/* */
|
||||
/* */
|
||||
/* */
|
||||
/* */
|
||||
/* */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/* The contents of this file are proprietary information */
|
||||
/* belonging to Venue, and are provided to you under license. */
|
||||
/* They may not be further distributed or disclosed to third */
|
||||
/* parties without the specific permission of Venue. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
#include "version.h"
|
||||
|
||||
|
||||
|
||||
#ifndef DOS
|
||||
#include <pwd.h>
|
||||
|
||||
#include <sys/types.h>
|
||||
#ifdef ISC
|
||||
#include <sys/bsdtypes.h>
|
||||
#endif /* ISC */
|
||||
#include <sys/file.h>
|
||||
#include <sys/stat.h>
|
||||
#ifndef AIX
|
||||
#include <sys/ioctl.h>
|
||||
#endif /* AIX */
|
||||
#include <sys/time.h>
|
||||
#ifndef AIX
|
||||
#ifndef APOLLO
|
||||
#include <sys/vfs.h>
|
||||
#endif /* APOLLO */
|
||||
#endif /* AIX */
|
||||
#ifndef SYSVONLY
|
||||
#include <strings.h>
|
||||
#endif /* SYSVONLY */
|
||||
#endif /* DOS */
|
||||
|
||||
|
||||
#include <setjmp.h>
|
||||
#include <stdio.h>
|
||||
#include <errno.h>
|
||||
#include "lispemul.h"
|
||||
#include "lispmap.h"
|
||||
#include "adr68k.h"
|
||||
#include "lsptypes.h"
|
||||
#include "arith.h"
|
||||
#include "stream.h"
|
||||
#include "lspglob.h"
|
||||
#include "timeout.h"
|
||||
#include "locfile.h"
|
||||
#include "osmsg.h"
|
||||
#include "dbprint.h"
|
||||
#ifdef OS4
|
||||
#include <stropts.h>
|
||||
#endif
|
||||
|
||||
#define MESSAGE_BUFFER_SIZE 1024
|
||||
int cons_tty;
|
||||
int cons_pty;
|
||||
|
||||
char logfile[100];
|
||||
int log_id;
|
||||
int previous_size;
|
||||
int logChanged; /* T if log file has changed since last READ */
|
||||
/* Set by flush_pty, to avoid the stat call */
|
||||
u_int LogFileFd;
|
||||
extern u_int LispReadFds;
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* m e s s _ i n i t */
|
||||
/* */
|
||||
/* Initialize console-message handling. Console & Log msgs */
|
||||
/* are redirected to a pty; when messages appear, we get the */
|
||||
/* interrupt, and signal a Lisp interrupt to print each msg */
|
||||
/* in the prompt window. For historical reasons, the msgs */
|
||||
/* are saved on the file tmp/<username>-log. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
mess_init()
|
||||
{
|
||||
#ifndef XWINDOW
|
||||
#ifndef DOS
|
||||
int id;
|
||||
struct passwd *pwd;
|
||||
int ttyfd;
|
||||
int ptyfd, ptynum;
|
||||
char *ptyname, *ttyname;
|
||||
int temp, flags;
|
||||
int on = 1;
|
||||
|
||||
ptyname = "/dev/ptypx";
|
||||
ttyname = "/dev/ttypx";
|
||||
|
||||
/* Get pty and tty */
|
||||
ptynum = 0;
|
||||
|
||||
needpty:
|
||||
while( ptynum<16 )
|
||||
{
|
||||
ptyname[9] = "0123456789abcdef"[ptynum];
|
||||
if( (ptyfd=open(ptyname, 2)) >= 0 ) goto gotpty;
|
||||
ptynum++;
|
||||
}
|
||||
return(NIL);
|
||||
gotpty:
|
||||
ttyname[9] = ptyname[9];
|
||||
if( (ttyfd=open(ttyname, 2)) < 0)
|
||||
{
|
||||
ptynum++;
|
||||
close(ptyfd);
|
||||
goto needpty;
|
||||
}
|
||||
|
||||
/* Set tty parameters same as stderr */
|
||||
|
||||
ioctl( 2, TIOCGETD, &temp); /* Line discipline */
|
||||
ioctl(ttyfd, TIOCSETD, &temp);
|
||||
|
||||
ioctl( 2, TIOCGETP, &temp); /* TTY parameters */
|
||||
ioctl(ttyfd, TIOCSETP, &temp);
|
||||
|
||||
ioctl( 2, TIOCLGET, &temp);
|
||||
ioctl(ttyfd, TIOCLSET, &temp);
|
||||
|
||||
ioctl( 2, TIOCGETC, &temp); /* Terminal characters */
|
||||
ioctl(ttyfd, TIOCSETC, &temp);
|
||||
|
||||
ioctl( 2, TIOCGLTC, &temp); /* Local special characters */
|
||||
ioctl(ttyfd, TIOCSLTC, &temp);
|
||||
|
||||
/* Get console IO */
|
||||
ioctl(ptyfd, FIOCLEX, 0);
|
||||
#ifndef AIX
|
||||
if( (ioctl(ttyfd, TIOCCONS, 0)) == -1)
|
||||
{
|
||||
OSMESSAGE_PRINT( printf("TIOCCONS error\n") );
|
||||
exit(-1);
|
||||
}
|
||||
#endif /* AIX */
|
||||
|
||||
cons_pty = ptyfd;
|
||||
cons_tty = ttyfd;
|
||||
|
||||
/* Initialize log file */
|
||||
pwd = getpwuid(getuid());
|
||||
sprintf(logfile,"/tmp/%s-lisp.log", pwd->pw_name);
|
||||
if( unlink(logfile) == -1)
|
||||
{ /* delete old log file */
|
||||
if(errno != ENOENT) return(NIL);
|
||||
}
|
||||
|
||||
if( (log_id = open(logfile, (O_RDWR | O_CREAT), 0666)) < 0 )
|
||||
return(NIL);
|
||||
#ifdef LOGINT
|
||||
LogFileFd = 1 << cons_pty;
|
||||
flags = fcntl(cons_pty, F_GETFL, 0);
|
||||
flags = fcntl(cons_pty, F_SETFL, (flags | FASYNC | FNDELAY));
|
||||
if(fcntl(cons_pty, F_SETOWN, getpid()) == -1 )
|
||||
{
|
||||
#ifdef DEBUG
|
||||
perror("fcntl F_SETOWN of log PTY");
|
||||
#endif
|
||||
};
|
||||
LispReadFds |= LogFileFd;
|
||||
flush_pty();
|
||||
#endif
|
||||
previous_size = 0;
|
||||
DBPRINT(("Console logging started.\n"));
|
||||
#endif /* DOS */
|
||||
#endif /* XWINDOW */
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* m e s s _ r e s e t */
|
||||
/* */
|
||||
/* Undo the redirection of console and standard-error outputs */
|
||||
/* presumably preparatory to shutting down lisp. Closes the */
|
||||
/* TTY/PTY pair used for logging the messages */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
mess_reset()
|
||||
{
|
||||
#ifndef DOS
|
||||
#ifndef XWINDOW
|
||||
int console_fd;
|
||||
close(log_id);
|
||||
close(cons_tty);
|
||||
close(cons_pty);
|
||||
/* Try to make /dev/console be the real console again */
|
||||
/*** This sequence sometimes cause SunOs panic on SunOS4.0(and 4.0.1).
|
||||
TIOCCONS probelm ???
|
||||
if ((console_fd = open("/dev/console", 0)) >= 0) {
|
||||
ioctl(console_fd, TIOCCONS, 0);
|
||||
close(console_fd);
|
||||
}
|
||||
***/
|
||||
#endif /* XWINDOW */
|
||||
#endif /* DOS */
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* m e s s _ r e a d p */
|
||||
/* */
|
||||
/* Returns T if there are log/console messages waiting */
|
||||
/* to be printed. More accurately, if the logChanged flag */
|
||||
/* has been set by flush_pty(). */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
#ifndef DOS
|
||||
static struct timeval selecttimeout = {0, 0};
|
||||
#endif
|
||||
mess_readp()
|
||||
{
|
||||
#ifndef DOS
|
||||
#ifndef XWINDOW
|
||||
int id;
|
||||
struct stat sbuf;
|
||||
int size;
|
||||
int rval;
|
||||
struct statfs fsbuf;
|
||||
|
||||
/* polling pty nd flush os message to log file */
|
||||
flush_pty();
|
||||
|
||||
/* * * * * * * * * * * * COMMENTED OUT * * * * * * * * *
|
||||
SETJMP(NIL);
|
||||
TIMEOUT( rval=stat(logfile, &sbuf) );
|
||||
|
||||
if(rval != 0)
|
||||
{
|
||||
error("osmessage error: can not find a log file under /tmp");
|
||||
return(NIL);
|
||||
}
|
||||
if( previous_size < (int)(sbuf.st_size) ) return(ATOM_T);
|
||||
* * * * * * * * * * * * * */
|
||||
|
||||
if (logChanged) return(ATOM_T);
|
||||
return(NIL);
|
||||
#endif /* XWINDOW */
|
||||
#endif /* DOS */
|
||||
}
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* m e s s _ r e a d */
|
||||
/* */
|
||||
/* Read up to 1024 chars of log and console message(s) */
|
||||
/* that are waiting to be printed, into a buffer supplied */
|
||||
/* by the caller. If all pending message text gets read in */
|
||||
/* this call, reset the logChanged flag; Otherwise, leave */
|
||||
/* it set, so Lisp knows there is more to read. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
mess_read(args)
|
||||
LispPTR *args;
|
||||
/* args[0] buffer */
|
||||
{
|
||||
#ifndef DOS
|
||||
#ifndef XWINDOW
|
||||
int id;
|
||||
struct stat sbuf;
|
||||
int size, save_size;
|
||||
char *base;
|
||||
LispPTR *naddress;
|
||||
int i;
|
||||
static char temp_buf[MESSAGE_BUFFER_SIZE];
|
||||
|
||||
SETJMP(NIL);
|
||||
|
||||
/* Get buff address from LISP */
|
||||
naddress = (LispPTR *)(Addr68k_from_LADDR(args[0]));
|
||||
base = (char *)(Addr68k_from_LADDR(((OneDArray *)naddress)->base));
|
||||
|
||||
close(log_id);
|
||||
TIMEOUT(log_id=open(logfile, O_RDONLY));
|
||||
if(log_id == -1)return(NIL);
|
||||
TIMEOUT(i=fstat(log_id, &sbuf));
|
||||
if(i != 0)
|
||||
{
|
||||
OSMESSAGE_PRINT( printf("stat err\n") );
|
||||
return(NIL);
|
||||
}
|
||||
save_size = (int)(sbuf.st_size);
|
||||
size = save_size - previous_size;
|
||||
if(size > MESSAGE_BUFFER_SIZE) size = MESSAGE_BUFFER_SIZE;
|
||||
else logChanged = 0; /* only reset msg-pending flg if we cleaned it out! */
|
||||
TIMEOUT(i=lseek(log_id, previous_size, L_SET));
|
||||
if(i == -1)
|
||||
{
|
||||
OSMESSAGE_PRINT( printf("seek err\n") );
|
||||
return(NIL);
|
||||
}
|
||||
|
||||
/* Now, read "console output" */
|
||||
TIMEOUT(size=read(log_id, temp_buf, size));
|
||||
if(size == -1)
|
||||
{
|
||||
OSMESSAGE_PRINT( printf("read err\n") );
|
||||
return(NIL);
|
||||
}
|
||||
TIMEOUT(i=lseek(log_id, save_size, L_SET));
|
||||
if(i == -1)
|
||||
{
|
||||
OSMESSAGE_PRINT( printf("seek err\n") );
|
||||
return(NIL);
|
||||
}
|
||||
/*
|
||||
TIMEOUT( close(id) );
|
||||
*/
|
||||
previous_size += size;
|
||||
|
||||
for(i=0;i<size;++i)
|
||||
{
|
||||
if(temp_buf[i] == '\n') temp_buf[i] = '\000';
|
||||
}
|
||||
/* COPY actual Lisp Buffer(for BYTESWAP magic) */
|
||||
StrNCpyFromCToLisp(base,temp_buf, size);
|
||||
|
||||
return(GetSmallp(size));
|
||||
#endif /* XWINDOW */
|
||||
#endif /* DOS */
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* f l u s h _ p t y */
|
||||
/* */
|
||||
/* Called whenever the console/standard-error PTY signals (IO) */
|
||||
/* that there's a message waiting to be printed. Copies the */
|
||||
/* msg to the log file, sets the "msg waiting" semaphore, and */
|
||||
/* signals the log-message-waiting Lisp interrupt. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
flush_pty()
|
||||
{
|
||||
#ifndef DOS
|
||||
#ifndef XWINDOW
|
||||
int id;
|
||||
struct stat sbuf;
|
||||
char buf[MESSAGE_BUFFER_SIZE]; /* Buffer between pty and log file */
|
||||
int size;
|
||||
static int rfds;
|
||||
int rval;
|
||||
struct statfs fsbuf;
|
||||
|
||||
SETJMP(NIL);
|
||||
DBPRINT(("flush_pty() called.\n"));
|
||||
/* polling pty nd flush os message to log file */
|
||||
#ifndef LOGINT
|
||||
rfds = (1 << cons_pty);
|
||||
if(select(32, &rfds, NULL, NULL, &selecttimeout) < 0 ) return(NIL);
|
||||
|
||||
if( (cons_pty >= 0) && (rfds & (1 << cons_pty)) )
|
||||
#else /* LOGINT */
|
||||
|
||||
if ((cons_pty >= 0) &&
|
||||
((size = read(cons_pty, buf, MESSAGE_BUFFER_SIZE-1)) > 0))
|
||||
#endif
|
||||
{ /* There are messages to log in the file. */
|
||||
DBPRINT(("Log msgs being printed...\n"));
|
||||
close(log_id);
|
||||
TIMEOUT( log_id=open(logfile, O_WRONLY | O_APPEND, 0666) );
|
||||
if( log_id == -1)return(NIL);
|
||||
#ifndef LOGINT
|
||||
size = read(cons_pty, buf, MESSAGE_BUFFER_SIZE-1);
|
||||
#endif
|
||||
if(size == -1) return(NIL);
|
||||
|
||||
/* Check free space to avoid print System Error Mesage
|
||||
to /dev/console */
|
||||
TIMEOUT( rval=statfs("/tmp", &fsbuf) );
|
||||
if( rval != 0) return(NIL);
|
||||
|
||||
if(fsbuf.f_bavail <= (long)0)
|
||||
{
|
||||
/* No Free Space */
|
||||
error("osmessage error: No free space on file system (/tmp).");
|
||||
return(NIL);
|
||||
}
|
||||
logChanged = 1; /* Note the change, for READP */
|
||||
TIMEOUT( rval=write(log_id, buf, size) );
|
||||
if( rval == -1)
|
||||
{
|
||||
if(errno == ENOSPC) /* == 28 on Sun, ibm */
|
||||
{
|
||||
/* No free space, but it's too late to avoid
|
||||
print system Error Message. */
|
||||
error("osmessage error: No free space on file system (/tmp).");
|
||||
return(NIL);
|
||||
}
|
||||
else
|
||||
{
|
||||
error("osmessage error: cannot write to log file (/tmp)");
|
||||
return(NIL);
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
/**
|
||||
close(id);
|
||||
**/
|
||||
return(ATOM_T);
|
||||
}
|
||||
}
|
||||
#endif /* XWINDOW */
|
||||
#endif /* DOS */
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user