1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
#include <string.h>
#include "../stack-c.h"
#include "msgstore.h"
#define MEM_LACK 3
#define MAX_LINES 2
#define MAX_MSG_LINES 20
static char* msg_buff[MAX_MSG_LINES];
static int err_n = 0;
static int msg_line_counter=0;
int C2F(errstore)(n)
int *n;
{
err_n = *n;
return 0;
}
int C2F(msgstore)(str,n)
char *str;
int *n;
{
char *line;
if (msg_line_counter >= MAX_MSG_LINES)
return(MAX_LINES);
if ( (line = (char *) malloc((*n + 1)*sizeof(char))) == (char *)0)
return(MEM_LACK);
strncpy(line,str,*n);
line[*n]='\0';
msg_buff[msg_line_counter++]=line;
return 0;
}
void C2F(freemsgtable)()
{
int k;
for (k=0 ; k< msg_line_counter ; k++)
free(msg_buff[k]);
msg_line_counter=0;
err_n = 0;
}
int C2F(lasterror)(fname,fname_len)
char *fname;
unsigned long fname_len;
{
int k, one=1, l1, zero=0, m1, n1, clear;
int sz[MAX_MSG_LINES];
Rhs = Max(0, Rhs);
CheckRhs(0,1);
CheckLhs(1,2);
if (msg_line_counter == 0) {
CreateVar(1,"d",&zero,&zero,&l1);
LhsVar(1)=1;
if (Lhs == 2) {
CreateVar(2,"d",&one,&one,&l1);
*stk(l1) = (double)0.0;
LhsVar(2)=2;
}
}
else {
clear = 1;
if (Rhs==1) {
GetRhsVar(1,"b",&m1,&n1,&l1);
clear = *istk(l1);
}
for (k=0;k<msg_line_counter ; k++)
sz[k]=strlen(msg_buff[k])-1;
C2F(createvarfromptr)(&one, "S", &msg_line_counter, &one,(void *) msg_buff, 1L);
LhsVar(1) = 1;
if (Lhs == 2) {
CreateVar(2,"d",&one,&one,&l1);
*stk(l1) = (double)err_n;
LhsVar(2)=2;
}
if (clear)
C2F(freemsgtable)();
}
C2F(putlhsvar)();
return(0);
}
|
