NetBSD/gnu/usr.bin/awk/version.c

185 lines
3.6 KiB
C
Raw Normal View History

1993-03-21 12:45:37 +03:00
/********************************************
version.c
1993-07-03 03:56:52 +04:00
copyright 1991, 1992. Michael D. Brennan
1993-03-21 12:45:37 +03:00
This is a source file for mawk, an implementation of
the AWK programming language.
Mawk is distributed without warranty under the terms of
the GNU General Public License, version 2, 1991.
********************************************/
/*$Log: version.c,v $
1993-07-03 03:56:52 +04:00
/*Revision 1.2 1993/07/02 23:58:02 jtc
/*Updated to mawk 1.1.4
1993-03-21 12:45:37 +03:00
/*
1993-07-03 03:56:52 +04:00
* Revision 5.6.1.3 1993/05/05 00:02:18 mike
* patch4
*
* Revision 5.6.1.2 1993/01/20 12:53:13 mike
* d_to_l()
*
* Revision 5.6.1.1 1993/01/15 03:33:54 mike
* patch3: safer double to int conversion
*
* Revision 5.6 1992/12/17 02:48:01 mike
* 1.1.2d changes for DOS
*
* Revision 5.5 1992/12/02 03:18:12 mike
* coherent patch
*
* Revision 5.4 1992/08/27 11:50:38 mike
* patch2
*
* Revision 5.3 1992/03/03 16:42:23 brennan
1993-03-21 12:45:37 +03:00
* patch 1
1993-07-03 03:56:52 +04:00
*
1993-03-21 12:45:37 +03:00
* Revision 5.2 92/01/22 05:34:10 brennan
* version 1.1
*
* Revision 5.1 91/12/05 07:56:33 brennan
* 1.1 pre-release
*
*/
#include "mawk.h"
#include "patchlev.h"
1993-07-03 03:56:52 +04:00
static char rcsid[] =
"@(#) $Id: version.c,v 1.2 1993/07/02 23:58:02 jtc Exp $" ;
1993-03-21 12:45:37 +03:00
#define VERSION_STRING \
1993-07-03 03:56:52 +04:00
"mawk 1.1%s%s %s, Copyright (C) Michael D. Brennan\n\n"
1993-03-21 12:45:37 +03:00
#define DOS_STRING ""
/* If use different command line syntax for MSDOS
mark that in VERSION */
#if MSDOS
#undef DOS_STRING
#if SM_DOS
#if HAVE_REARGV
#define DOS_STRING "SM"
#else
#define DOS_STRING "SMDOS"
#endif
#else /* LM_DOS */
#if HAVE_REARGV
#define DOS_STRING "LM"
#else
#define DOS_STRING "LMDOS"
#endif
#endif
#endif /* MSDOS */
#ifdef THINK_C
#undef DOS_STRING
#define DOS_STRING ":Mac"
#endif
1993-07-03 03:56:52 +04:00
static char fmt[] = "%-14s%10lu\n" ;
1993-03-21 12:45:37 +03:00
/* print VERSION and exit */
void print_version()
1993-07-03 03:56:52 +04:00
{
1993-03-21 12:45:37 +03:00
1993-07-03 03:56:52 +04:00
printf(VERSION_STRING, PATCH_STRING, DOS_STRING, DATE_STRING) ;
1993-03-21 12:45:37 +03:00
fflush(stdout) ;
1993-07-03 03:56:52 +04:00
print_compiler_id() ;
1993-03-21 12:45:37 +03:00
fprintf(stderr, "compiled limits:\n") ;
1993-07-03 03:56:52 +04:00
fprintf(stderr, fmt, "largest field", (long)MAX_FIELD) ;
fprintf(stderr, fmt, "sprintf buffer", (long)SPRINTF_SZ) ;
print_aux_limits() ;
1993-03-21 12:45:37 +03:00
exit(0) ;
}
1993-07-03 03:56:52 +04:00
/*
Extra info for MSDOS. This code contributed by
Ben Myers
*/
#ifdef __TURBOC__
#include <alloc.h> /* coreleft() */
#define BORL
#endif
#ifdef __BORLANDC__
#include <alloc.h> /* coreleft() */
#define BORL
#endif
#ifdef BORL
#if LM_DOS
extern unsigned _stklen = 16 * 1024U ;
/* 4K of stack is enough for a user function call
nesting depth of 75 so this is enough for 300 */
#endif
#endif
#ifdef _MSC_VER
#include <malloc.h>
#endif
#ifdef __ZTC__
#include <dos.h> /* _chkstack */
#endif
int print_compiler_id()
{
#ifdef __TURBOC__
fprintf(stderr, "MsDOS Turbo C++ %d.%d\n",
__TURBOC__>>8, __TURBOC__&0xff) ;
#endif
#ifdef __BORLANDC__
fprintf (stderr, "MS-DOS Borland C++ __BORLANDC__ %x\n",
__BORLANDC__ );
#endif
#ifdef _MSC_VER
fprintf (stderr, "MS-DOS Microsoft C/C++ _MSC_VER %u\n", _MSC_VER );
#endif
#ifdef __ZTC__
fprintf (stderr, "MS-DOS Zortech C++ __ZTC__ %x\n", __ZTC__ );
#endif
return 0 ; /*shut up */
}
int print_aux_limits()
{
#ifdef BORL
extern unsigned _stklen ;
fprintf(stderr, fmt, "stack size", (unsigned long)_stklen) ;
fprintf(stderr, fmt, "heap size", (unsigned long) coreleft()) ;
#endif
#ifdef _MSC_VER
fprintf(stderr, fmt, "stack size", (unsigned long)_stackavail()) ;
#if SM_DOS
fprintf(stderr, fmt, "heap size", (unsigned long) _memavl()) ;
#endif
#endif
#ifdef __ZTC__
/* large memory model only with ztc */
fprintf(stderr, fmt, "stack size??", (unsigned long)_chkstack()) ;
fprintf(stderr, fmt, "heap size", farcoreleft()) ;
#endif
return 0 ;
}