This is vms_misc.c in view mode; [Download] [Up]
/*
* vms_misc.c -- sustitute code for missing/different run-time library routines.
*/
/*
* Copyright (C) 1991 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Progamming Language.
*
* GAWK is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* GAWK is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with GAWK; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
#define creat creat_dummy /* one of gcc-vms's headers has bad prototype */
#include "awk.h"
#undef creat
#include <fab.h>
#ifndef O_RDONLY
#include <fcntl.h>
#endif
#include <ssdef.h>
#include <stsdef.h>
/*
* VMS uses a completely different status scheme (odd => success,
* even => failure), so we'll trap calls to exit() and alter the
* exit status code. [VAXC can't handle this as a macro.]
*/
#ifdef exit
# undef exit
#endif
void
vms_exit( int final_status )
{
exit(final_status == 0 ? SS$_NORMAL : (SS$_ABORT | STS$M_INHIB_MSG));
}
#define exit(v) vms_exit(v)
/*
* In VMS's VAXCRTL, strerror() takes an optional second argument.
* #define strerror(errnum) strerror(errnum,vaxc$errno)
* is all that's needed, but VAXC can't handle that (gcc can).
* [The 2nd arg is used iff errnum == EVMSERR.]
*/
#ifdef strerror
# undef strerror
#endif
/* vms_strerror() -- convert numeric error code into text string */
char *
vms_strerror( int errnum )
{
extern char *strerror P((int,...));
return ( errnum != EVMSERR ? strerror(errnum)
: strerror(EVMSERR, vaxc$errno) );
}
# define strerror(v) vms_strerror(v)
/*
* Miscellaneous utility routine, not part of the run-time library.
*/
/* vms_strdup() - allocate some new memory and copy a string into it */
char *
vms_strdup( const char *str )
{
char *result;
int len = strlen(str);
emalloc(result, char *, len+1, "strdup");
return strcpy(result, str);
}
/*
* VAXCRTL does not contain unlink(). This replacement has limited
* functionality which is sufficient for GAWK's needs. It works as
* desired even when we have the file open.
*/
/* unlink(file) -- delete a file (ignore soft links) */
int
unlink( const char *file_spec ) {
char tmp[255+1]; /*(should use alloca(len+2+1)) */
extern int delete(const char *);
strcpy(tmp, file_spec); /* copy file name */
if (strchr(tmp, ';') == NULL)
strcat(tmp, ";0"); /* append version number */
return delete(tmp);
}
/*
* Work-around an open(O_CREAT+O_TRUNC) bug (screwed up modification
* and creation dates when new version is created), and also use some
* VMS-specific file options. Note: optional 'prot' arg is completely
* ignored; gawk doesn't need it.
*/
#ifdef open
# undef open
#endif
/* vms_open() - open a file, possibly creating it */
int
vms_open( const char *name, int mode, ... )
{
extern int creat P((const char *,int,...));
extern int open P((const char *,int,unsigned,...));
if (mode == (O_WRONLY|O_CREAT|O_TRUNC))
return creat(name, 0, "shr=nil", "mbc=24");
else {
struct stat stb;
const char *mbc, *shr = "shr=get";
if (stat(name, &stb) < 0) { /* assume DECnet */
mbc = "mbc=8";
} else { /* ordinary file; allow full sharing iff record format */
mbc = "mbc=12";
if (stb.st_fab_rfm < FAB$C_STM) shr = "shr=get,put,upd";
}
return open(name, mode, 0, shr, mbc, "mbf=2");
}
}
/*
* Check for attempt to (re-)open known file.
*/
/* vms_devopen() - check for "SYS$INPUT" or "SYS$OUTPUT" or "SYS$ERROR" */
int
vms_devopen( const char *name, int mode )
{
FILE *file = NULL;
if (strncasecmp(name, "SYS$", 4) == 0) {
name += 4; /* skip "SYS$" */
if (strncasecmp(name, "INPUT", 5) == 0 && (mode & O_WRONLY) == 0)
file = stdin, name += 5;
else if (strncasecmp(name, "OUTPUT", 6) == 0 && (mode & O_WRONLY) != 0)
file = stdout, name += 6;
else if (strncasecmp(name, "ERROR", 5) == 0 && (mode & O_WRONLY) != 0)
file = stderr, name += 5;
if (*name == ':') name++; /* treat trailing colon as optional */
}
/* note: VAXCRTL stdio has extra level of indirection (*file) */
return (file && *file && *name == '\0') ? fileno(file) : -1;
}
/*
* VMS has no timezone support.
*/
/* these are global for use by missing/strftime.c */
char *tzname[2] = { "local", "" };
int daylight = 0;
/* dummy to satisfy linker */
void tzset()
{
return;
}
#ifndef __GNUC__
# ifdef bcopy
# undef bcopy
# endif
void bcopy( const char *src, char *dst, int len )
{
(void) memcpy(dst, src, len);
}
#endif /*!__GNUC__*/
/*----------------------------------------------------------------------*/
#ifdef NO_VMS_ARGS /* real code is in "vms/vms_args.c" */
void vms_arg_fixup( int *argc, char ***argv ) { return; } /* dummy */
#endif
#ifdef NO_VMS_PIPES /* real code is in "vms/vms_popen.c" */
FILE *popen( const char *command, const char *mode ) {
fatal(" Cannot open pipe `%s' (not implemented)", command);
return NULL;
}
int pclose( FILE *current ) {
fatal(" Cannot close pipe #%d (not implemented)", fileno(current));
return -1;
}
int fork( void ) {
fatal(" Cannot fork process (not implemented)");
return -1;
}
#endif /*NO_VMS_PIPES*/
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.