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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
|
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License, Version 1.0 only
* (the "License"). You may not use this file except in compliance
* with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright (c) 1996, by Sun Microsystems, Inc.
* All rights reserved.
*/
#pragma ident "%Z%%M% %I% %E% SMI"
#include <locale.h>
#include <euc.h>
#include <widec.h>
#define xfree(a) { if (a!=NULL) { yfree(a); a=NULL; } }
#define yfree free
#ifdef DEBUG
#define dprintf if (dbg) printf
#else
# define dprintf(x1, x2, x3, x4)
#endif
#define WC_VERY_SMALL ((wchar_t) 0x0001)
#define WC_VERY_LARGE ((wchar_t) ~0x0000)
typedef double awkfloat;
extern wchar_t **FS;
extern wchar_t **RS;
extern wchar_t **ORS;
extern wchar_t **OFS;
extern wchar_t **OFMT;
extern awkfloat *NR;
extern awkfloat *NF;
extern wchar_t **FILENAME;
extern wchar_t record[];
extern wchar_t L_NULL[];
extern int dbg;
extern long long lineno;
extern int errorflag;
extern int donefld; /* 1 if record broken into fields */
extern int donerec; /* 1 if record is valid (no fld has changed */
/* CELL: all information about a variable or constant */
typedef struct val {
char ctype; /* CELL, BOOL, JUMP, etc. */
char csub; /* subtype of ctype */
wchar_t *nval; /* name, for variables only */
wchar_t *sval; /* string value */
awkfloat fval; /* value as number */
unsigned tval; /* type info */
struct val *nextval; /* ptr to next if chained */
} CELL;
extern CELL *symtab[];
extern CELL *setsymtab(), *lookup(), **makesymtab();
extern CELL *recloc; /* location of input record */
extern CELL *nrloc; /* NR */
extern CELL *nfloc; /* NF */
extern CELL *maxmfld; /* pointer to CELL for maximum field assigned to */
/* CELL.tval values: */
#define STR 01 /* string value is valid */
#define NUM 02 /* number value is valid */
#define FLD 04 /* FLD means don't free string space */
#define CON 010 /* this is a constant */
#define ARR 020 /* this is an array */
awkfloat setfval(), getfval();
wchar_t *setsval(), *getsval();
wchar_t *tostring(), *tokname();
char *toeuccode();
double log(), sqrt(), exp(), atof();
/* function types */
#define FLENGTH 1
#define FSQRT 2
#define FEXP 3
#define FLOG 4
#define FINT 5
#define BOTCH 1
typedef struct nd {
char ntype;
char subtype;
struct nd *nnext;
int nobj;
struct nd *narg[BOTCH]; /* C won't take a zero length array */
} NODE;
extern NODE *winner;
/* ctypes */
#define OCELL 1
#define OBOOL 2
#define OJUMP 3
/* CELL subtypes */
#define CCON 5
#define CTEMP 4
#define CNAME 3
#define CVAR 2
#define CFLD 1
/* bool subtypes */
#define BTRUE 1
#define BFALSE 2
/* jump subtypes */
#define JEXIT 1
#define JNEXT 2
#define JBREAK 3
#define JCONT 4
/* node types */
#define NVALUE 1
#define NSTAT 2
#define NEXPR 3
extern CELL *(*proctab[])();
extern int pairstack[], paircnt;
#define cantexec(n) (n->ntype == NVALUE)
#define notlegal(n) (n <= FIRSTTOKEN || n >= LASTTOKEN || \
proctab[n-FIRSTTOKEN]== nullproc)
#define isexpr(n) (n->ntype == NEXPR)
#define isjump(n) (n->ctype == OJUMP)
#define isexit(n) (n->ctype == OJUMP && n->csub == JEXIT)
#define isbreak(n) (n->ctype == OJUMP && n->csub == JBREAK)
#define iscont(n) (n->ctype == OJUMP && n->csub == JCONT)
#define isnext(n) (n->ctype == OJUMP && n->csub == JNEXT)
#define isstr(n) (n->tval & STR)
#define isnum(n) (n->tval & NUM)
#define istrue(n) (n->ctype == OBOOL && n->csub == BTRUE)
#define istemp(n) (n->ctype == OCELL && n->csub == CTEMP)
#define isfld(n) (!donefld && n->csub==CFLD && n->ctype==OCELL && \
n->nval==0)
#define isrec(n) (donefld && n->csub==CFLD && n->ctype==OCELL && \
n->nval!=0)
extern CELL *nullproc();
extern CELL *relop();
#define MAXSYM 50
#define HAT 0177 /* matches ^ in regular expr */
/* watch out for mach dep */
/*
* The code set number can be knew from actual character, but "b.c"
* will use some pseudo codes. And that psedo code will not confirm
* to rule of real code set.
*/
typedef struct ccl_chars {
unsigned short cc_ns; /* Code set Number */
wchar_t cc_cs; /* Actual character */
unsigned short cc_ne;
wchar_t cc_ce;
} ccl_chars_t;
ccl_chars_t *cclenter();
extern void error();
|
