github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-06 08:24:44 +00:00
Code Issues Projects Releases Wiki Activity

Maiko sources matching state as of 020102 prior to initial patching for Mac OSX

Browse Source
This commit is contained in:
Nick Briggs
2015-04-20 18:53:52 -07:00
commit de170a64d9
427 changed files with 129342 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
src/perrno.c Executable file
View File

@@ -0,0 +1,79 @@
/* $Id: perrno.c,v 1.4 2001/12/26 22:17:04 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
static char *id = "$Id: perrno.c,v 1.4 2001/12/26 22:17:04 sybalsky Exp $ Copyright (C) Venue";
/************************************************************************/
/* */
/* (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"
#include <stdio.h>
#include "osmsg.h"
/************************************************************************/
/* */
/* p e r r o r n */
/* */
/* Print the error message to go with a given error number. */
/* */
/************************************************************************/
extern int errno;
int sys_nerr;
#ifndef LINUX
extern char *sys_errlist[];
#endif /* LINUX */
perrorn(char *s, int n)
{
if ( s != NULL && *s != '\0' ) {
fprintf(stderr, "%s: ",s);
}
if (n > 0 && n < sys_nerr) {
fprintf(stderr, "%s\n", sys_errlist[n]);
} else {
fprintf(stderr, "???\n");
}
}
/************************************************************************/
/* */
/* e r r _ m e s s */
/* */
/* Print an error message and call 'perror' to get the */
/* canonical error explanation. Called by emulator I/O code. */
/* */
/************************************************************************/
err_mess(char *from, int no)
{
int save_errno=errno; /* Save errno around OSMESSAGE_PRINT */
OSMESSAGE_PRINT({fprintf(stderr,
"System call error: %s errno=%d ",
from, no); perror("");});
errno=save_errno;
}