13 |
|
#include "copyright.h" |
14 |
|
|
15 |
|
#include <stdio.h> |
16 |
< |
|
16 |
> |
#include <string.h> |
17 |
|
#include <errno.h> |
18 |
– |
|
18 |
|
#include <math.h> |
19 |
|
|
20 |
+ |
#include "rterror.h" |
21 |
|
#include "calcomp.h" |
22 |
|
|
23 |
|
/* bits in argument flag (better be right!) */ |
34 |
|
|
35 |
|
static ACTIVATION *curact = NULL; |
36 |
|
|
37 |
< |
static double libfunc(); |
37 |
> |
static double libfunc(char *fname, VARDEF *vp); |
38 |
|
|
39 |
|
#ifndef MAXLIB |
40 |
|
#define MAXLIB 64 /* maximum number of library functions */ |
255 |
|
eputs(actp->name); |
256 |
|
eputs(": argument not a function\n"); |
257 |
|
quit(1); |
258 |
+ |
return NULL; /* pro forma return */ |
259 |
|
} |
260 |
|
|
261 |
|
|
387 |
|
{ |
388 |
|
register int n; |
389 |
|
|
390 |
< |
n = argument(1) + .5; |
390 |
> |
n = (int)(argument(1) + .5); |
391 |
|
if (n == 0) |
392 |
|
return(nargum()-1); |
393 |
|
if (n < 1 || n > nargum()-1) { |