mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-25 19:46:21 +00:00
Reformat all C source files with Clang-format in Google style w/ 100 col width.
This commit is contained in:
Nick Briggs
530
src/osmsg.c
Executable file → Normal file
530
src/osmsg.c
Executable file → Normal file
@@ -1,4 +1,4 @@
|
||||
/* $Id: osmsg.c,v 1.2 1999/01/03 02:07:29 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
/* $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";
|
||||
|
||||
/************************************************************************/
|
||||
@@ -25,67 +25,63 @@ static char *id = "$Id: osmsg.c,v 1.2 1999/01/03 02:07:29 sybalsky Exp $ Copyrig
|
||||
|
||||
#include "version.h"
|
||||
|
||||
|
||||
#ifndef DOS
|
||||
#include <pwd.h>
|
||||
#include <pwd.h>
|
||||
|
||||
#include <sys/types.h>
|
||||
#include <sys/types.h>
|
||||
#ifdef ISC
|
||||
#include <sys/bsdtypes.h>
|
||||
#include <sys/bsdtypes.h>
|
||||
#endif /* ISC */
|
||||
#include <sys/file.h>
|
||||
#include <sys/stat.h>
|
||||
#include <sys/file.h>
|
||||
#include <sys/stat.h>
|
||||
#ifndef AIX
|
||||
#include <sys/ioctl.h>
|
||||
#include <sys/ioctl.h>
|
||||
#endif /* AIX */
|
||||
#include <sys/time.h>
|
||||
#include <sys/time.h>
|
||||
#ifndef AIX
|
||||
#ifndef APOLLO
|
||||
#ifndef MACOSX
|
||||
#ifndef FREEBSD
|
||||
#include <sys/vfs.h>
|
||||
#include <sys/vfs.h>
|
||||
#endif /* FREEBSD */
|
||||
#endif /* MACOSX */
|
||||
#endif /* APOLLO */
|
||||
#endif /* AIX */
|
||||
#ifndef SYSVONLY
|
||||
#include <strings.h>
|
||||
#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 <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;
|
||||
#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 */
|
||||
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 */
|
||||
@@ -98,102 +94,92 @@ extern u_int LispReadFds;
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
void mess_init()
|
||||
{
|
||||
void 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;
|
||||
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";
|
||||
ptyname = "/dev/ptypx";
|
||||
ttyname = "/dev/ttypx";
|
||||
|
||||
/* Get pty and tty */
|
||||
ptynum = 0;
|
||||
/* Get pty and tty */
|
||||
ptynum = 0;
|
||||
|
||||
needpty:
|
||||
while( ptynum<16 )
|
||||
{
|
||||
ptyname[9] = "0123456789abcdef"[ptynum];
|
||||
if( (ptyfd=open(ptyname, 2)) >= 0 ) goto gotpty;
|
||||
ptynum++;
|
||||
}
|
||||
return;
|
||||
while (ptynum < 16) {
|
||||
ptyname[9] = "0123456789abcdef"[ptynum];
|
||||
if ((ptyfd = open(ptyname, 2)) >= 0) goto gotpty;
|
||||
ptynum++;
|
||||
}
|
||||
return;
|
||||
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;
|
||||
}
|
||||
|
||||
if( (log_id = open(logfile, (O_RDWR | O_CREAT), 0666)) < 0 )
|
||||
return;
|
||||
#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 */
|
||||
|
||||
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;
|
||||
}
|
||||
|
||||
if ((log_id = open(logfile, (O_RDWR | O_CREAT), 0666)) < 0) return;
|
||||
#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 */
|
||||
}
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
@@ -205,28 +191,24 @@ gotpty:
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
void mess_reset()
|
||||
{
|
||||
void 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 */
|
||||
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);
|
||||
}
|
||||
ioctl(console_fd, TIOCCONS, 0);
|
||||
close(console_fd);
|
||||
}
|
||||
***/
|
||||
#endif /* XWINDOW */
|
||||
#endif /* DOS */
|
||||
|
||||
}
|
||||
|
||||
|
||||
}
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
@@ -238,41 +220,38 @@ void mess_reset()
|
||||
/* */
|
||||
/************************************************************************/
|
||||
#ifndef DOS
|
||||
static struct timeval selecttimeout = {0, 0};
|
||||
static struct timeval selecttimeout = {0, 0};
|
||||
#endif
|
||||
LispPTR mess_readp()
|
||||
{
|
||||
LispPTR mess_readp() {
|
||||
#ifndef DOS
|
||||
#ifndef XWINDOW
|
||||
int id;
|
||||
struct stat sbuf;
|
||||
int size;
|
||||
int rval;
|
||||
struct statfs fsbuf;
|
||||
int id;
|
||||
struct stat sbuf;
|
||||
int size;
|
||||
int rval;
|
||||
struct statfs fsbuf;
|
||||
|
||||
/* polling pty nd flush os message to log file */
|
||||
flush_pty();
|
||||
/* polling pty nd flush os message to log file */
|
||||
flush_pty();
|
||||
|
||||
/* * * * * * * * * * * * COMMENTED OUT * * * * * * * * *
|
||||
SETJMP(NIL);
|
||||
TIMEOUT( rval=stat(logfile, &sbuf) );
|
||||
/* * * * * * * * * * * * 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(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);
|
||||
if (logChanged) return (ATOM_T);
|
||||
#endif /* XWINDOW */
|
||||
#endif /* DOS */
|
||||
return(NIL);
|
||||
return (NIL);
|
||||
}
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* m e s s _ r e a d */
|
||||
@@ -285,78 +264,71 @@ LispPTR mess_readp()
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
LispPTR mess_read(args)
|
||||
LispPTR *args;
|
||||
/* args[0] buffer */
|
||||
{
|
||||
LispPTR mess_read(args) LispPTR *args;
|
||||
/* args[0] buffer */
|
||||
{
|
||||
#if defined(DOS) || defined(XWINDOW)
|
||||
return (NIL);
|
||||
return (NIL);
|
||||
#else
|
||||
int id;
|
||||
struct stat sbuf;
|
||||
int size, save_size;
|
||||
char *base;
|
||||
LispPTR *naddress;
|
||||
int i;
|
||||
static char temp_buf[MESSAGE_BUFFER_SIZE];
|
||||
int id;
|
||||
struct stat sbuf;
|
||||
int size, save_size;
|
||||
char *base;
|
||||
LispPTR *naddress;
|
||||
int i;
|
||||
static char temp_buf[MESSAGE_BUFFER_SIZE];
|
||||
|
||||
SETJMP(NIL);
|
||||
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 /* DOS | XWINDOW*/
|
||||
/* 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 /* DOS | XWINDOW*/
|
||||
}
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
@@ -369,79 +341,69 @@ LispPTR mess_read(args)
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
LispPTR flush_pty()
|
||||
{
|
||||
LispPTR flush_pty() {
|
||||
#if defined(DOS) || defined(XWINDOW)
|
||||
return (NIL);
|
||||
return (NIL);
|
||||
#else
|
||||
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;
|
||||
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"));
|
||||
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);
|
||||
rfds = (1 << cons_pty);
|
||||
if (select(32, &rfds, NULL, NULL, &selecttimeout) < 0) return (NIL);
|
||||
|
||||
if( (cons_pty >= 0) && (rfds & (1 << cons_pty)) )
|
||||
if ((cons_pty >= 0) && (rfds & (1 << cons_pty)))
|
||||
#else /* LOGINT */
|
||||
|
||||
if ((cons_pty >= 0) &&
|
||||
((size = read(cons_pty, buf, MESSAGE_BUFFER_SIZE-1)) > 0))
|
||||
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);
|
||||
{ /* 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);
|
||||
size = read(cons_pty, buf, MESSAGE_BUFFER_SIZE - 1);
|
||||
#endif
|
||||
if(size == -1) return(NIL);
|
||||
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);
|
||||
/* 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);
|
||||
}
|
||||
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);
|
||||
}
|
||||
#endif /* XWINDOW | DOS */
|
||||
} else {
|
||||
/**
|
||||
close(id);
|
||||
**/
|
||||
return (ATOM_T);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
#endif /* XWINDOW | DOS */
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user