runtime.c

<B>Digital的Unix操作系统VAX 4.2源码</B>

/*#@(#)runtime.c	4.1	Ultrix	7/17/90*/
/* $Header: runtime.c,v 1.5 84/05/19 11:40:08 powell Exp $ */
#include <stdio.h>
#include <signal.h>

/* This file contains routines used by the Modula-2 runtime */
/*  and the standard library math and unix modules */

int runtime__init_complete = 0;
int parameters_argc;
char **parameters_argv, **parameters_envp;
int unix_argc;
char **unix_argv, **unix_envp;
FILE *unix_stdin, *unix_stdout, *unix_stderr;

runtime__init(argc,argv,envp) int argc; char *argv[], *envp[]; {

    if (runtime__init_complete) return;
    runtime__init_complete = 1;

    parameters_argc = argc;
    parameters_argv = argv;
    parameters_envp = envp;
    unix_argc = argc;
    unix_argv = argv;
    unix_envp = envp;
    unix_stdin = stdin;
    unix_stdout = stdout;
    unix_stderr = stderr;
}
uexit(n) int n; {
    exit(n);
}
/* the following returns the program's cputime in milliseconds */
#include <time.h>
#include <sys/resource.h>
SYSTEM_cputime(){
    struct rusage ru;
    getrusage(0,&ru);
    return(ru.ru_utime.tv_sec*1000+ru.ru_utime.tv_usec/1000);
}

/* initialization for the SYSTEM module */

SYSTEM__init() {}

/* initialization for the bitoperations module */

BITOPERATIONS__init() {}

/* initialization for the IO module */

FILE *IO_INPUT, *IO_OUTPUT, *IO_TERMINAL;
int IO__initflag = 0;
IO__init(){
    if (IO__initflag) return;
    IO_INPUT = stdin;
    IO_OUTPUT = stdout;
    IO_TERMINAL = stderr;
}

/* math module */

#include <math.h>
math__init(){}
/* use int parameters to make C use one word (floats are passed as doubles) */
float math_sin(x) int x; { return(sin(x,0)); }
float math_cos(x) int x; { return(cos(x,0)); }
float math_atan(x) int x; { return(atan(x,0)); }
float math_atan2(x,y) int x, y; { return(atan2(x,0,y,0)); }
float math_exp(x) int x; { return(exp(x,0)); }
float math_sqrt(x) int x; { return(sqrt(x,0)); }
float math_log(x) int x; { return(log(x,0)); }
float math_ldexp(x,exp) int x; int exp; { return(ldexp(x,0,exp)); }

double math_longsin(x) double x; { return(sin(x)); }
double math_longcos(x) double x; { return(cos(x)); }
double math_longatan(x) double x; { return(atan(x)); }
double math_longatan2(x,y) double x, y; { return(atan2(x,y)); }
double math_longexp(x) double x; { return(exp(x)); }
double math_longsqrt(x) double x; { return(sqrt(x)); }
double math_longlog(x) double x; { return(log(x)); }
double math_longldexp(x,exp) double x; int exp; { return(ldexp(x,exp)); }

/* Error routines */

runtime__errorrange(val,min,max) int val, min, max; {
    fprintf(stderr,"Value %d is not in subrange [%d..%d]\n",val,min,max);
    abort();
}
runtime__errorsubscript(val,min,max) int val, min, max; {
    fprintf(stderr,"Subscript %d is out of range [%d..%d]\n",val,min,max);
    abort();
}
runtime__erroraddr(){
    fprintf(stderr,"Invalid pointer was dereferenced\n");
    abort();
}
runtime__errornoreturn(){
    fprintf(stderr,"No return statement at end of function\n");
    abort();
}
runtime__errorcase(){
    fprintf(stderr,"Case selector value does not match a label\n");
    abort();
}
runtime__errorvariant(t) int t; {
    fprintf(stderr,"Improper variant tag (%d) for field\n",t);
    abort();
}
runtime__errorassert(s) char *s; {
    fprintf(stderr,"Assertion failed: %s\n",s);
    abort();
}