[llvm-commits] [parallel] CVS: llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/EXTERN.h INTERN.h LICENSE.TXT Makefile arg.h array.c array.h cmd.c cmd.h config.h config.sh cons.c consarg.c cscope.out doarg.c doio.c dolist.c dump.c eval.c form.c form.h handy.h hash.c hash.h malloc.c patch-malloc.c patchlevel.h perl.c perl.h perly.c perly.h regcomp.c regcomp.h regexec.c regexp.h spat.h stab.c stab.h str.c str.h toke.c tperly.c usersub.c util.c util.h

Misha Brukman brukman at cs.uiuc.edu
Mon Mar 1 21:06:42 PST 2004


Changes in directory llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl:

EXTERN.h added (r1.1.2.1)
INTERN.h added (r1.1.2.1)
LICENSE.TXT added (r1.1.2.1)
Makefile added (r1.1.2.1)
arg.h added (r1.1.2.1)
array.c added (r1.1.2.1)
array.h added (r1.1.2.1)
cmd.c added (r1.1.2.1)
cmd.h added (r1.1.2.1)
config.h added (r1.1.2.1)
config.sh added (r1.1.2.1)
cons.c added (r1.1.2.1)
consarg.c added (r1.1.2.1)
cscope.out added (r1.1.2.1)
doarg.c added (r1.1.2.1)
doio.c added (r1.1.2.1)
dolist.c added (r1.1.2.1)
dump.c added (r1.1.2.1)
eval.c added (r1.1.2.1)
form.c added (r1.1.2.1)
form.h added (r1.1.2.1)
handy.h added (r1.1.2.1)
hash.c added (r1.1.2.1)
hash.h added (r1.1.2.1)
malloc.c added (r1.1.2.1)
patch-malloc.c added (r1.1.2.1)
patchlevel.h added (r1.1.2.1)
perl.c added (r1.1.2.1)
perl.h added (r1.1.2.1)
perly.c added (r1.1.2.1)
perly.h added (r1.1.2.1)
regcomp.c added (r1.1.2.1)
regcomp.h added (r1.1.2.1)
regexec.c added (r1.1.2.1)
regexp.h added (r1.1.2.1)
spat.h added (r1.1.2.1)
stab.c added (r1.1.2.1)
stab.h added (r1.1.2.1)
str.c added (r1.1.2.1)
str.h added (r1.1.2.1)
toke.c added (r1.1.2.1)
tperly.c added (r1.1.2.1)
usersub.c added (r1.1.2.1)
util.c added (r1.1.2.1)
util.h added (r1.1.2.1)

---
Log message:

Merge from trunk

---
Diffs of the changes:  (+228961 -0)

Index: llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/EXTERN.h
diff -c /dev/null llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/EXTERN.h:1.1.2.1
*** /dev/null	Mon Mar  1 17:59:23 2004
--- llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/EXTERN.h	Mon Mar  1 17:59:12 2004
***************
*** 0 ****
--- 1,28 ----
+ /* $Header: /home/vadve/shared/PublicCVS/llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/EXTERN.h,v 1.1.2.1 2004/03/01 23:59:12 brukman Exp $
+  *
+  *    Copyright (c) 1989, Larry Wall
+  *
+  *    You may distribute under the terms of the GNU General Public License
+  *    as specified in the README file that comes with the perl 3.0 kit.
+  *
+  * $Log: EXTERN.h,v $
+  * Revision 1.1.2.1  2004/03/01 23:59:12  brukman
+  * Merge from trunk
+  *
+  * Revision 1.1  2004/02/17 22:21:15  criswell
+  * Initial commit of the perl Malloc Benchmark.  I've cheated a little by
+  * generating the yacc output files and committing them directly, but it was
+  * easier than disabling the Bison Voodoo that gets executed by default.
+  *
+  * Revision 4.0  91/03/20  00:58:26  lwall
+  * 4.0 baseline.
+  * 
+  */
+ 
+ #undef EXT
+ #define EXT extern
+ 
+ #undef INIT
+ #define INIT(x)
+ 
+ #undef DOINIT


Index: llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/INTERN.h
diff -c /dev/null llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/INTERN.h:1.1.2.1
*** /dev/null	Mon Mar  1 17:59:23 2004
--- llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/INTERN.h	Mon Mar  1 17:59:12 2004
***************
*** 0 ****
--- 1,28 ----
+ /* $Header: /home/vadve/shared/PublicCVS/llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/INTERN.h,v 1.1.2.1 2004/03/01 23:59:12 brukman Exp $
+  *
+  *    Copyright (c) 1989, Larry Wall
+  *
+  *    You may distribute under the terms of the GNU General Public License
+  *    as specified in the README file that comes with the perl 3.0 kit.
+  *
+  * $Log: INTERN.h,v $
+  * Revision 1.1.2.1  2004/03/01 23:59:12  brukman
+  * Merge from trunk
+  *
+  * Revision 1.1  2004/02/17 22:21:15  criswell
+  * Initial commit of the perl Malloc Benchmark.  I've cheated a little by
+  * generating the yacc output files and committing them directly, but it was
+  * easier than disabling the Bison Voodoo that gets executed by default.
+  *
+  * Revision 4.0  91/03/20  00:58:35  lwall
+  * 4.0 baseline.
+  * 
+  */
+ 
+ #undef EXT
+ #define EXT
+ 
+ #undef INIT
+ #define INIT(x) = x
+ 
+ #define DOINIT


Index: llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/LICENSE.TXT
diff -c /dev/null llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/LICENSE.TXT:1.1.2.1
*** /dev/null	Mon Mar  1 17:59:23 2004
--- llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/LICENSE.TXT	Mon Mar  1 17:59:12 2004
***************
*** 0 ****
--- 1,9 ----
+ perl - Part of the Malloc Benchmark Suite
+ -------------------------------------------------------------------------------
+ All files are licensed under the LLVM license with the following additions:
+ 
+ These files are licensed to you under the GNU General Public License.
+ Redistribution must follow the additional restrictions required by the GPL.
+ 
+ Please see individiual files for additional copyright information.
+ 


Index: llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/Makefile
diff -c /dev/null llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/Makefile:1.1.2.1
*** /dev/null	Mon Mar  1 17:59:23 2004
--- llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/Makefile	Mon Mar  1 17:59:12 2004
***************
*** 0 ****
--- 1,15 ----
+ LEVEL = ../../../../../..
+ PROG = perl
+ REQUIRES_EH_SUPPORT = 1
+ CPPFLAGS += -DHAS_STRERROR -DHAS_MKDIR -DHAS_RMDIR -U_POSIX_SOURCE -D__USE_MISC
+ LIBS += -lm -lcrypt
+ LDFLAGS += -lm -lcrypt
+ 
+ Source := array.c doarg.c eval.c regexec.c \
+           cmd.c doio.c form.c perl.c stab.c usersub.c \
+           cons.c dolist.c hash.c perly.c str.c util.c \
+           consarg.c dump.c malloc.c regcomp.c toke.c
+ 
+ RUN_OPTIONS = $(BUILD_SRC_DIR)/INPUT/endsort.perl $(BUILD_SRC_DIR)/INPUT/endsort.perl
+ include ../../../Makefile.multisrc
+ 


Index: llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/arg.h
diff -c /dev/null llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/arg.h:1.1.2.1
*** /dev/null	Mon Mar  1 17:59:23 2004
--- llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/arg.h	Mon Mar  1 17:59:12 2004
***************
*** 0 ****
--- 1,977 ----
+ /* $Header: /home/vadve/shared/PublicCVS/llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/arg.h,v 1.1.2.1 2004/03/01 23:59:12 brukman Exp $
+  *
+  *    Copyright (c) 1989, Larry Wall
+  *
+  *    You may distribute under the terms of the GNU General Public License
+  *    as specified in the README file that comes with the perl 3.0 kit.
+  *
+  * $Log: arg.h,v $
+  * Revision 1.1.2.1  2004/03/01 23:59:12  brukman
+  * Merge from trunk
+  *
+  * Revision 1.1  2004/02/17 22:21:15  criswell
+  * Initial commit of the perl Malloc Benchmark.  I've cheated a little by
+  * generating the yacc output files and committing them directly, but it was
+  * easier than disabling the Bison Voodoo that gets executed by default.
+  *
+  * Revision 4.0  91/03/20  01:03:09  lwall
+  * 4.0 baseline.
+  * 
+  */
+ 
+ #define O_NULL 0
+ #define O_RCAT 1
+ #define O_ITEM 2
+ #define O_SCALAR 3
+ #define O_ITEM2 4
+ #define O_ITEM3 5
+ #define O_CONCAT 6
+ #define O_REPEAT 7
+ #define O_MATCH 8
+ #define O_NMATCH 9
+ #define O_SUBST 10
+ #define O_NSUBST 11
+ #define O_ASSIGN 12
+ #define O_LOCAL 13
+ #define O_AASSIGN 14
+ #define O_SASSIGN 15
+ #define O_CHOP 16
+ #define O_DEFINED 17
+ #define O_UNDEF 18
+ #define O_STUDY 19
+ #define O_POW 20
+ #define O_MULTIPLY 21
+ #define O_DIVIDE 22
+ #define O_MODULO 23
+ #define O_ADD 24
+ #define O_SUBTRACT 25
+ #define O_LEFT_SHIFT 26
+ #define O_RIGHT_SHIFT 27
+ #define O_LT 28
+ #define O_GT 29
+ #define O_LE 30
+ #define O_GE 31
+ #define O_EQ 32
+ #define O_NE 33
+ #define O_NCMP 34
+ #define O_BIT_AND 35
+ #define O_XOR 36
+ #define O_BIT_OR 37
+ #define O_AND 38
+ #define O_OR 39
+ #define O_COND_EXPR 40
+ #define O_COMMA 41
+ #define O_NEGATE 42
+ #define O_NOT 43
+ #define O_COMPLEMENT 44
+ #define O_SELECT 45
+ #define O_WRITE 46
+ #define O_DBMOPEN 47
+ #define O_DBMCLOSE 48
+ #define O_OPEN 49
+ #define O_TRANS 50
+ #define O_NTRANS 51
+ #define O_CLOSE 52
+ #define O_EACH 53
+ #define O_VALUES 54
+ #define O_KEYS 55
+ #define O_LARRAY 56
+ #define O_ARRAY 57
+ #define O_AELEM 58
+ #define O_DELETE 59
+ #define O_LHASH 60
+ #define O_HASH 61
+ #define O_HELEM 62
+ #define O_LAELEM 63
+ #define O_LHELEM 64
+ #define O_LSLICE 65
+ #define O_ASLICE 66
+ #define O_HSLICE 67
+ #define O_LASLICE 68
+ #define O_LHSLICE 69
+ #define O_SPLICE 70
+ #define O_PUSH 71
+ #define O_POP 72
+ #define O_SHIFT 73
+ #define O_UNPACK 74
+ #define O_SPLIT 75
+ #define O_LENGTH 76
+ #define O_SPRINTF 77
+ #define O_SUBSTR 78
+ #define O_PACK 79
+ #define O_GREP 80
+ #define O_JOIN 81
+ #define O_SLT 82
+ #define O_SGT 83
+ #define O_SLE 84
+ #define O_SGE 85
+ #define O_SEQ 86
+ #define O_SNE 87
+ #define O_SCMP 88
+ #define O_SUBR 89
+ #define O_DBSUBR 90
+ #define O_CALLER 91
+ #define O_SORT 92
+ #define O_REVERSE 93
+ #define O_WARN 94
+ #define O_DIE 95
+ #define O_PRTF 96
+ #define O_PRINT 97
+ #define O_CHDIR 98
+ #define O_EXIT 99
+ #define O_RESET 100
+ #define O_LIST 101
+ #define O_EOF 102
+ #define O_GETC 103
+ #define O_TELL 104
+ #define O_RECV 105
+ #define O_READ 106
+ #define O_SYSREAD 107
+ #define O_SYSWRITE 108
+ #define O_SEND 109
+ #define O_SEEK 110
+ #define O_RETURN 111
+ #define O_REDO 112
+ #define O_NEXT 113
+ #define O_LAST 114
+ #define O_DUMP 115
+ #define O_GOTO 116
+ #define O_INDEX 117
+ #define O_RINDEX 118
+ #define O_TIME 119
+ #define O_TMS 120
+ #define O_LOCALTIME 121
+ #define O_GMTIME 122
+ #define O_TRUNCATE 123
+ #define O_LSTAT 124
+ #define O_STAT 125
+ #define O_CRYPT 126
+ #define O_ATAN2 127
+ #define O_SIN 128
+ #define O_COS 129
+ #define O_RAND 130
+ #define O_SRAND 131
+ #define O_EXP 132
+ #define O_LOG 133
+ #define O_SQRT 134
+ #define O_INT 135
+ #define O_ORD 136
+ #define O_ALARM 137
+ #define O_SLEEP 138
+ #define O_RANGE 139
+ #define O_F_OR_R 140
+ #define O_FLIP 141
+ #define O_FLOP 142
+ #define O_FORK 143
+ #define O_WAIT 144
+ #define O_WAITPID 145
+ #define O_SYSTEM 146
+ #define O_EXEC_OP 147
+ #define O_HEX 148
+ #define O_OCT 149
+ #define O_CHOWN 150
+ #define O_KILL 151
+ #define O_UNLINK 152
+ #define O_CHMOD 153
+ #define O_UTIME 154
+ #define O_UMASK 155
+ #define O_MSGGET 156
+ #define O_SHMGET 157
+ #define O_SEMGET 158
+ #define O_MSGCTL 159
+ #define O_SHMCTL 160
+ #define O_SEMCTL 161
+ #define O_MSGSND 162
+ #define O_MSGRCV 163
+ #define O_SEMOP 164
+ #define O_SHMREAD 165
+ #define O_SHMWRITE 166
+ #define O_RENAME 167
+ #define O_LINK 168
+ #define O_MKDIR 169
+ #define O_RMDIR 170
+ #define O_GETPPID 171
+ #define O_GETPGRP 172
+ #define O_SETPGRP 173
+ #define O_GETPRIORITY 174
+ #define O_SETPRIORITY 175
+ #define O_CHROOT 176
+ #define O_FCNTL 177
+ #define O_IOCTL 178
+ #define O_FLOCK 179
+ #define O_UNSHIFT 180
+ #define O_REQUIRE 181
+ #define O_DOFILE 182
+ #define O_EVAL 183
+ #define O_FTRREAD 184
+ #define O_FTRWRITE 185
+ #define O_FTREXEC 186
+ #define O_FTEREAD 187
+ #define O_FTEWRITE 188
+ #define O_FTEEXEC 189
+ #define O_FTIS 190
+ #define O_FTEOWNED 191
+ #define O_FTROWNED 192
+ #define O_FTZERO 193
+ #define O_FTSIZE 194
+ #define O_FTMTIME 195
+ #define O_FTATIME 196
+ #define O_FTCTIME 197
+ #define O_FTSOCK 198
+ #define O_FTCHR 199
+ #define O_FTBLK 200
+ #define O_FTFILE 201
+ #define O_FTDIR 202
+ #define O_FTPIPE 203
+ #define O_FTLINK 204
+ #define O_SYMLINK 205
+ #define O_READLINK 206
+ #define O_FTSUID 207
+ #define O_FTSGID 208
+ #define O_FTSVTX 209
+ #define O_FTTTY 210
+ #define O_FTTEXT 211
+ #define O_FTBINARY 212
+ #define O_SOCKET 213
+ #define O_BIND 214
+ #define O_CONNECT 215
+ #define O_LISTEN 216
+ #define O_ACCEPT 217
+ #define O_GHBYNAME 218
+ #define O_GHBYADDR 219
+ #define O_GHOSTENT 220
+ #define O_GNBYNAME 221
+ #define O_GNBYADDR 222
+ #define O_GNETENT 223
+ #define O_GPBYNAME 224
+ #define O_GPBYNUMBER 225
+ #define O_GPROTOENT 226
+ #define O_GSBYNAME 227
+ #define O_GSBYPORT 228
+ #define O_GSERVENT 229
+ #define O_SHOSTENT 230
+ #define O_SNETENT 231
+ #define O_SPROTOENT 232
+ #define O_SSERVENT 233
+ #define O_EHOSTENT 234
+ #define O_ENETENT 235
+ #define O_EPROTOENT 236
+ #define O_ESERVENT 237
+ #define O_SOCKPAIR 238
+ #define O_SHUTDOWN 239
+ #define O_GSOCKOPT 240
+ #define O_SSOCKOPT 241
+ #define O_GETSOCKNAME 242
+ #define O_GETPEERNAME 243
+ #define O_SSELECT 244
+ #define O_FILENO 245
+ #define O_BINMODE 246
+ #define O_VEC 247
+ #define O_GPWNAM 248
+ #define O_GPWUID 249
+ #define O_GPWENT 250
+ #define O_SPWENT 251
+ #define O_EPWENT 252
+ #define O_GGRNAM 253
+ #define O_GGRGID 254
+ #define O_GGRENT 255
+ #define O_SGRENT 256
+ #define O_EGRENT 257
+ #define O_GETLOGIN 258
+ #define O_OPENDIR 259
+ #define O_READDIR 260
+ #define O_TELLDIR 261
+ #define O_SEEKDIR 262
+ #define O_REWINDDIR 263
+ #define O_CLOSEDIR 264
+ #define O_SYSCALL 265
+ #define O_PIPE 266
+ #define MAXO 267
+ 
+ #ifndef DOINIT
+ extern char *opname[];
+ #else
+ char *opname[] = {
+     "NULL",
+     "RCAT",
+     "ITEM",
+     "SCALAR",
+     "ITEM2",
+     "ITEM3",
+     "CONCAT",
+     "REPEAT",
+     "MATCH",
+     "NMATCH",
+     "SUBST",
+     "NSUBST",
+     "ASSIGN",
+     "LOCAL",
+     "AASSIGN",
+     "SASSIGN",
+     "CHOP",
+     "DEFINED",
+     "UNDEF",
+     "STUDY",
+     "POW",
+     "MULTIPLY",
+     "DIVIDE",
+     "MODULO",
+     "ADD",
+     "SUBTRACT",
+     "LEFT_SHIFT",
+     "RIGHT_SHIFT",
+     "LT",
+     "GT",
+     "LE",
+     "GE",
+     "EQ",
+     "NE",
+     "NCMP",
+     "BIT_AND",
+     "XOR",
+     "BIT_OR",
+     "AND",
+     "OR",
+     "COND_EXPR",
+     "COMMA",
+     "NEGATE",
+     "NOT",
+     "COMPLEMENT",
+     "SELECT",
+     "WRITE",
+     "DBMOPEN",
+     "DBMCLOSE",
+     "OPEN",
+     "TRANS",
+     "NTRANS",
+     "CLOSE",
+     "EACH",
+     "VALUES",
+     "KEYS",
+     "LARRAY",
+     "ARRAY",
+     "AELEM",
+     "DELETE",
+     "LHASH",
+     "HASH",
+     "HELEM",
+     "LAELEM",
+     "LHELEM",
+     "LSLICE",
+     "ASLICE",
+     "HSLICE",
+     "LASLICE",
+     "LHSLICE",
+     "SPLICE",
+     "PUSH",
+     "POP",
+     "SHIFT",
+     "UNPACK",
+     "SPLIT",
+     "LENGTH",
+     "SPRINTF",
+     "SUBSTR",
+     "PACK",
+     "GREP",
+     "JOIN",
+     "SLT",
+     "SGT",
+     "SLE",
+     "SGE",
+     "SEQ",
+     "SNE",
+     "SCMP",
+     "SUBR",
+     "DBSUBR",
+     "CALLER",
+     "SORT",
+     "REVERSE",
+     "WARN",
+     "DIE",
+     "PRINTF",
+     "PRINT",
+     "CHDIR",
+     "EXIT",
+     "RESET",
+     "LIST",
+     "EOF",
+     "GETC",
+     "TELL",
+     "RECV",
+     "READ",
+     "SYSREAD",
+     "SYSWRITE",
+     "SEND",
+     "SEEK",
+     "RETURN",
+     "REDO",
+     "NEXT",
+     "LAST",
+     "DUMP",
+     "GOTO",/* shudder */
+     "INDEX",
+     "RINDEX",
+     "TIME",
+     "TIMES",
+     "LOCALTIME",
+     "GMTIME",
+     "TRUNCATE",
+     "LSTAT",
+     "STAT",
+     "CRYPT",
+     "ATAN2",
+     "SIN",
+     "COS",
+     "RAND",
+     "SRAND",
+     "EXP",
+     "LOG",
+     "SQRT",
+     "INT",
+     "ORD",
+     "ALARM",
+     "SLEEP",
+     "RANGE",
+     "FLIP_OR_RANGE",
+     "FLIP",
+     "FLOP",
+     "FORK",
+     "WAIT",
+     "WAITPID",
+     "SYSTEM",
+     "EXEC",
+     "HEX",
+     "OCT",
+     "CHOWN",
+     "KILL",
+     "UNLINK",
+     "CHMOD",
+     "UTIME",
+     "UMASK",
+     "MSGGET",
+     "SHMGET",
+     "SEMGET",
+     "MSGCTL",
+     "SHMCTL",
+     "SEMCTL",
+     "MSGSND",
+     "MSGRCV",
+     "SEMOP",
+     "SHMREAD",
+     "SHMWRITE",
+     "RENAME",
+     "LINK",
+     "MKDIR",
+     "RMDIR",
+     "GETPPID",
+     "GETPGRP",
+     "SETPGRP",
+     "GETPRIORITY",
+     "SETPRIORITY",
+     "CHROOT",
+     "FCNTL",
+     "SYSIOCTL",
+     "FLOCK",
+     "UNSHIFT",
+     "REQUIRE",
+     "DOFILE",
+     "EVAL",
+     "FTRREAD",
+     "FTRWRITE",
+     "FTREXEC",
+     "FTEREAD",
+     "FTEWRITE",
+     "FTEEXEC",
+     "FTIS",
+     "FTEOWNED",
+     "FTROWNED",
+     "FTZERO",
+     "FTSIZE",
+     "FTMTIME",
+     "FTATIME",
+     "FTCTIME",
+     "FTSOCK",
+     "FTCHR",
+     "FTBLK",
+     "FTFILE",
+     "FTDIR",
+     "FTPIPE",
+     "FTLINK",
+     "SYMLINK",
+     "READLINK",
+     "FTSUID",
+     "FTSGID",
+     "FTSVTX",
+     "FTTTY",
+     "FTTEXT",
+     "FTBINARY",
+     "SOCKET",
+     "BIND",
+     "CONNECT",
+     "LISTEN",
+     "ACCEPT",
+     "GHBYNAME",
+     "GHBYADDR",
+     "GHOSTENT",
+     "GNBYNAME",
+     "GNBYADDR",
+     "GNETENT",
+     "GPBYNAME",
+     "GPBYNUMBER",
+     "GPROTOENT",
+     "GSBYNAME",
+     "GSBYPORT",
+     "GSERVENT",
+     "SHOSTENT",
+     "SNETENT",
+     "SPROTOENT",
+     "SSERVENT",
+     "EHOSTENT",
+     "ENETENT",
+     "EPROTOENT",
+     "ESERVENT",
+     "SOCKPAIR",
+     "SHUTDOWN",
+     "GSOCKOPT",
+     "SSOCKOPT",
+     "GETSOCKNAME",
+     "GETPEERNAME",
+     "SSELECT",
+     "FILENO",
+     "BINMODE",
+     "VEC",
+     "GPWNAM",
+     "GPWUID",
+     "GPWENT",
+     "SPWENT",
+     "EPWENT",
+     "GGRNAM",
+     "GGRGID",
+     "GGRENT",
+     "SGRENT",
+     "EGRENT",
+     "GETLOGIN",
+     "OPENDIR",
+     "READDIR",
+     "TELLDIR",
+     "SEEKDIR",
+     "REWINDDIR",
+     "CLOSEDIR",
+     "SYSCALL",
+     "PIPE",
+     "267"
+ };
+ #endif
+ 
+ #define A_NULL 0
+ #define A_EXPR 1
+ #define A_CMD 2
+ #define A_STAB 3
+ #define A_LVAL 4
+ #define A_SINGLE 5
+ #define A_DOUBLE 6
+ #define A_BACKTICK 7
+ #define A_READ 8
+ #define A_SPAT 9
+ #define A_LEXPR 10
+ #define A_ARYLEN 11
+ #define A_ARYSTAB 12
+ #define A_LARYLEN 13
+ #define A_GLOB 14
+ #define A_WORD 15
+ #define A_INDREAD 16
+ #define A_LARYSTAB 17
+ #define A_STAR 18
+ #define A_LSTAR 19
+ #define A_WANTARRAY 20
+ 
+ #define A_MASK 31
+ #define A_DONT 32		/* or this into type to suppress evaluation */
+ 
+ #ifndef DOINIT
+ extern char *argname[];
+ #else
+ char *argname[] = {
+     "A_NULL",
+     "EXPR",
+     "CMD",
+     "STAB",
+     "LVAL",
+     "SINGLE",
+     "DOUBLE",
+     "BACKTICK",
+     "READ",
+     "SPAT",
+     "LEXPR",
+     "ARYLEN",
+     "ARYSTAB",
+     "LARYLEN",
+     "GLOB",
+     "WORD",
+     "INDREAD",
+     "LARYSTAB",
+     "STAR",
+     "LSTAR",
+     "WANTARRAY",
+     "21"
+ };
+ #endif
+ 
+ #ifndef DOINIT
+ extern bool hoistable[];
+ #else
+ bool hoistable[] =
+   {0,	/* A_NULL */
+    0,	/* EXPR */
+    1,	/* CMD */
+    1,	/* STAB */
+    0,	/* LVAL */
+    1,	/* SINGLE */
+    0,	/* DOUBLE */
+    0,	/* BACKTICK */
+    0,	/* READ */
+    0,	/* SPAT */
+    0,	/* LEXPR */
+    1,	/* ARYLEN */
+    1,	/* ARYSTAB */
+    0,	/* LARYLEN */
+    0,	/* GLOB */
+    1,	/* WORD */
+    0,	/* INDREAD */
+    0,	/* LARYSTAB */
+    1,	/* STAR */
+    1,	/* LSTAR */
+    1,	/* WANTARRAY */
+    0,	/* 21 */
+ };
+ #endif
+ 
+ union argptr {
+     ARG		*arg_arg;
+     char	*arg_cval;
+     STAB	*arg_stab;
+     SPAT	*arg_spat;
+     CMD		*arg_cmd;
+     STR		*arg_str;
+     HASH	*arg_hash;
+ };
+ 
+ struct arg {
+     union argptr arg_ptr;
+     short	arg_len;
+     unsigned short arg_type;
+     unsigned short arg_flags;
+ };
+ 
+ #define AF_ARYOK 1		/* op can handle multiple values here */
+ #define AF_POST 2		/* post *crement this item */
+ #define AF_PRE 4		/* pre *crement this item */
+ #define AF_UP 8			/* increment rather than decrement */
+ #define AF_COMMON 16		/* left and right have symbols in common */
+ #define AF_DEPR 32		/* an older form of the construct */
+ #define AF_LISTISH 64		/* turn into list if important */
+ #define AF_LOCAL 128		/* list of local variables */
+ 
+ /*
+  * Most of the ARG pointers are used as pointers to arrays of ARG.  When
+  * so used, the 0th element is special, and represents the operator to
+  * use on the list of arguments following.  The arg_len in the 0th element
+  * gives the maximum argument number, and the arg_str is used to store
+  * the return value in a more-or-less static location.  Sorry it's not
+  * re-entrant (yet), but it sure makes it efficient.  The arg_type of the
+  * 0th element is an operator (O_*) rather than an argument type (A_*).
+  */
+ 
+ #define Nullarg Null(ARG*)
+ 
+ #ifndef DOINIT
+ EXT unsigned short opargs[MAXO+1];
+ #else
+ #define A(e1,e2,e3)        (e1+(e2<<2)+(e3<<4))
+ #define A5(e1,e2,e3,e4,e5) (e1+(e2<<2)+(e3<<4)+(e4<<6)+(e5<<8))
+ unsigned short opargs[MAXO+1] = {
+ 	A(0,0,0),	/* NULL */
+ 	A(1,1,0),	/* RCAT */
+ 	A(1,0,0),	/* ITEM */
+ 	A(1,0,0),	/* SCALAR */
+ 	A(0,0,0),	/* ITEM2 */
+ 	A(0,0,0),	/* ITEM3 */
+ 	A(1,1,0),	/* CONCAT */
+ 	A(3,1,0),	/* REPEAT */
+ 	A(1,0,0),	/* MATCH */
+ 	A(1,0,0),	/* NMATCH */
+ 	A(1,0,0),	/* SUBST */
+ 	A(1,0,0),	/* NSUBST */
+ 	A(1,1,0),	/* ASSIGN */
+ 	A(1,0,0),	/* LOCAL */
+ 	A(3,3,0),	/* AASSIGN */
+ 	A(0,0,0),	/* SASSIGN */
+ 	A(3,0,0),	/* CHOP */
+ 	A(1,0,0),	/* DEFINED */
+ 	A(1,0,0),	/* UNDEF */
+ 	A(1,0,0),	/* STUDY */
+ 	A(1,1,0),	/* POW */
+ 	A(1,1,0),	/* MULTIPLY */
+ 	A(1,1,0),	/* DIVIDE */
+ 	A(1,1,0),	/* MODULO */
+ 	A(1,1,0),	/* ADD */
+ 	A(1,1,0),	/* SUBTRACT */
+ 	A(1,1,0),	/* LEFT_SHIFT */
+ 	A(1,1,0),	/* RIGHT_SHIFT */
+ 	A(1,1,0),	/* LT */
+ 	A(1,1,0),	/* GT */
+ 	A(1,1,0),	/* LE */
+ 	A(1,1,0),	/* GE */
+ 	A(1,1,0),	/* EQ */
+ 	A(1,1,0),	/* NE */
+ 	A(1,1,0),	/* NCMP */
+ 	A(1,1,0),	/* BIT_AND */
+ 	A(1,1,0),	/* XOR */
+ 	A(1,1,0),	/* BIT_OR */
+ 	A(1,0,0),	/* AND */
+ 	A(1,0,0),	/* OR */
+ 	A(1,0,0),	/* COND_EXPR */
+ 	A(1,1,0),	/* COMMA */
+ 	A(1,0,0),	/* NEGATE */
+ 	A(1,0,0),	/* NOT */
+ 	A(1,0,0),	/* COMPLEMENT */
+ 	A(1,0,0),	/* SELECT */
+ 	A(1,0,0),	/* WRITE */
+ 	A(1,1,1),	/* DBMOPEN */
+ 	A(1,0,0),	/* DBMCLOSE */
+ 	A(1,1,0),	/* OPEN */
+ 	A(1,0,0),	/* TRANS */
+ 	A(1,0,0),	/* NTRANS */
+ 	A(1,0,0),	/* CLOSE */
+ 	A(0,0,0),	/* EACH */
+ 	A(0,0,0),	/* VALUES */
+ 	A(0,0,0),	/* KEYS */
+ 	A(0,0,0),	/* LARRAY */
+ 	A(0,0,0),	/* ARRAY */
+ 	A(0,1,0),	/* AELEM */
+ 	A(0,1,0),	/* DELETE */
+ 	A(0,0,0),	/* LHASH */
+ 	A(0,0,0),	/* HASH */
+ 	A(0,1,0),	/* HELEM */
+ 	A(0,1,0),	/* LAELEM */
+ 	A(0,1,0),	/* LHELEM */
+ 	A(0,3,3),	/* LSLICE */
+ 	A(0,3,0),	/* ASLICE */
+ 	A(0,3,0),	/* HSLICE */
+ 	A(0,3,0),	/* LASLICE */
+ 	A(0,3,0),	/* LHSLICE */
+ 	A(0,3,1),	/* SPLICE */
+ 	A(0,3,0),	/* PUSH */
+ 	A(0,0,0),	/* POP */
+ 	A(0,0,0),	/* SHIFT */
+ 	A(1,1,0),	/* UNPACK */
+ 	A(1,0,1),	/* SPLIT */
+ 	A(1,0,0),	/* LENGTH */
+ 	A(3,0,0),	/* SPRINTF */
+ 	A(1,1,1),	/* SUBSTR */
+ 	A(1,3,0),	/* PACK */
+ 	A(0,3,0),	/* GREP */
+ 	A(1,3,0),	/* JOIN */
+ 	A(1,1,0),	/* SLT */
+ 	A(1,1,0),	/* SGT */
+ 	A(1,1,0),	/* SLE */
+ 	A(1,1,0),	/* SGE */
+ 	A(1,1,0),	/* SEQ */
+ 	A(1,1,0),	/* SNE */
+ 	A(1,1,0),	/* SCMP */
+ 	A(0,3,0),	/* SUBR */
+ 	A(0,3,0),	/* DBSUBR */
+ 	A(1,0,0),	/* CALLER */
+ 	A(1,3,0),	/* SORT */
+ 	A(0,3,0),	/* REVERSE */
+ 	A(0,3,0),	/* WARN */
+ 	A(0,3,0),	/* DIE */
+ 	A(1,3,0),	/* PRINTF */
+ 	A(1,3,0),	/* PRINT */
+ 	A(1,0,0),	/* CHDIR */
+ 	A(1,0,0),	/* EXIT */
+ 	A(1,0,0),	/* RESET */
+ 	A(3,0,0),	/* LIST */
+ 	A(1,0,0),	/* EOF */
+ 	A(1,0,0),	/* GETC */
+ 	A(1,0,0),	/* TELL */
+ 	A5(1,1,1,1,0),	/* RECV */
+ 	A(1,1,3),	/* READ */
+ 	A(1,1,3),	/* SYSREAD */
+ 	A(1,1,3),	/* SYSWRITE */
+ 	A(1,1,3),	/* SEND */
+ 	A(1,1,1),	/* SEEK */
+ 	A(0,3,0),	/* RETURN */
+ 	A(0,0,0),	/* REDO */
+ 	A(0,0,0),	/* NEXT */
+ 	A(0,0,0),	/* LAST */
+ 	A(0,0,0),	/* DUMP */
+ 	A(0,0,0),	/* GOTO */
+ 	A(1,1,1),	/* INDEX */
+ 	A(1,1,1),	/* RINDEX */
+ 	A(0,0,0),	/* TIME */
+ 	A(0,0,0),	/* TIMES */
+ 	A(1,0,0),	/* LOCALTIME */
+ 	A(1,0,0),	/* GMTIME */
+ 	A(1,1,0),	/* TRUNCATE */
+ 	A(1,0,0),	/* LSTAT */
+ 	A(1,0,0),	/* STAT */
+ 	A(1,1,0),	/* CRYPT */
+ 	A(1,1,0),	/* ATAN2 */
+ 	A(1,0,0),	/* SIN */
+ 	A(1,0,0),	/* COS */
+ 	A(1,0,0),	/* RAND */
+ 	A(1,0,0),	/* SRAND */
+ 	A(1,0,0),	/* EXP */
+ 	A(1,0,0),	/* LOG */
+ 	A(1,0,0),	/* SQRT */
+ 	A(1,0,0),	/* INT */
+ 	A(1,0,0),	/* ORD */
+ 	A(1,0,0),	/* ALARM */
+ 	A(1,0,0),	/* SLEEP */
+ 	A(1,1,0),	/* RANGE */
+ 	A(1,0,0),	/* F_OR_R */
+ 	A(1,0,0),	/* FLIP */
+ 	A(0,1,0),	/* FLOP */
+ 	A(0,0,0),	/* FORK */
+ 	A(0,0,0),	/* WAIT */
+ 	A(1,1,0),	/* WAITPID */
+ 	A(1,3,0),	/* SYSTEM */
+ 	A(1,3,0),	/* EXEC */
+ 	A(1,0,0),	/* HEX */
+ 	A(1,0,0),	/* OCT */
+ 	A(0,3,0),	/* CHOWN */
+ 	A(0,3,0),	/* KILL */
+ 	A(0,3,0),	/* UNLINK */
+ 	A(0,3,0),	/* CHMOD */
+ 	A(0,3,0),	/* UTIME */
+ 	A(1,0,0),	/* UMASK */
+ 	A(1,1,0),	/* MSGGET */
+ 	A(1,1,1),	/* SHMGET */
+ 	A(1,1,1),	/* SEMGET */
+ 	A(1,1,1),	/* MSGCTL */
+ 	A(1,1,1),	/* SHMCTL */
+ 	A5(1,1,1,1,0),	/* SEMCTL */
+ 	A(1,1,1),	/* MSGSND */
+ 	A5(1,1,1,1,1),	/* MSGRCV */
+ 	A(1,1,1),	/* SEMOP */
+ 	A5(1,1,1,1,0),	/* SHMREAD */
+ 	A5(1,1,1,1,0),	/* SHMWRITE */
+ 	A(1,1,0),	/* RENAME */
+ 	A(1,1,0),	/* LINK */
+ 	A(1,1,0),	/* MKDIR */
+ 	A(1,0,0),	/* RMDIR */
+ 	A(0,0,0),	/* GETPPID */
+ 	A(1,0,0),	/* GETPGRP */
+ 	A(1,1,0),	/* SETPGRP */
+ 	A(1,1,0),	/* GETPRIORITY */
+ 	A(1,1,1),	/* SETPRIORITY */
+ 	A(1,0,0),	/* CHROOT */
+ 	A(1,1,1),	/* FCNTL */
+ 	A(1,1,1),	/* SYSIOCTL */
+ 	A(1,1,0),	/* FLOCK */
+ 	A(0,3,0),	/* UNSHIFT */
+ 	A(1,0,0),	/* REQUIRE */
+ 	A(1,0,0),	/* DOFILE */
+ 	A(1,0,0),	/* EVAL */
+ 	A(1,0,0),	/* FTRREAD */
+ 	A(1,0,0),	/* FTRWRITE */
+ 	A(1,0,0),	/* FTREXEC */
+ 	A(1,0,0),	/* FTEREAD */
+ 	A(1,0,0),	/* FTEWRITE */
+ 	A(1,0,0),	/* FTEEXEC */
+ 	A(1,0,0),	/* FTIS */
+ 	A(1,0,0),	/* FTEOWNED */
+ 	A(1,0,0),	/* FTROWNED */
+ 	A(1,0,0),	/* FTZERO */
+ 	A(1,0,0),	/* FTSIZE */
+ 	A(1,0,0),	/* FTMTIME */
+ 	A(1,0,0),	/* FTATIME */
+ 	A(1,0,0),	/* FTCTIME */
+ 	A(1,0,0),	/* FTSOCK */
+ 	A(1,0,0),	/* FTCHR */
+ 	A(1,0,0),	/* FTBLK */
+ 	A(1,0,0),	/* FTFILE */
+ 	A(1,0,0),	/* FTDIR */
+ 	A(1,0,0),	/* FTPIPE */
+ 	A(1,0,0),	/* FTLINK */
+ 	A(1,1,0),	/* SYMLINK */
+ 	A(1,0,0),	/* READLINK */
+ 	A(1,0,0),	/* FTSUID */
+ 	A(1,0,0),	/* FTSGID */
+ 	A(1,0,0),	/* FTSVTX */
+ 	A(1,0,0),	/* FTTTY */
+ 	A(1,0,0),	/* FTTEXT */
+ 	A(1,0,0),	/* FTBINARY */
+ 	A5(1,1,1,1,0),	/* SOCKET */
+ 	A(1,1,0),	/* BIND */
+ 	A(1,1,0),	/* CONNECT */
+ 	A(1,1,0),	/* LISTEN */
+ 	A(1,1,0),	/* ACCEPT */
+ 	A(1,0,0),	/* GHBYNAME */
+ 	A(1,1,0),	/* GHBYADDR */
+ 	A(0,0,0),	/* GHOSTENT */
+ 	A(1,0,0),	/* GNBYNAME */
+ 	A(1,1,0),	/* GNBYADDR */
+ 	A(0,0,0),	/* GNETENT */
+ 	A(1,0,0),	/* GPBYNAME */
+ 	A(1,0,0),	/* GPBYNUMBER */
+ 	A(0,0,0),	/* GPROTOENT */
+ 	A(1,1,0),	/* GSBYNAME */
+ 	A(1,1,0),	/* GSBYPORT */
+ 	A(0,0,0),	/* GSERVENT */
+ 	A(1,0,0),	/* SHOSTENT */
+ 	A(1,0,0),	/* SNETENT */
+ 	A(1,0,0),	/* SPROTOENT */
+ 	A(1,0,0),	/* SSERVENT */
+ 	A(0,0,0),	/* EHOSTENT */
+ 	A(0,0,0),	/* ENETENT */
+ 	A(0,0,0),	/* EPROTOENT */
+ 	A(0,0,0),	/* ESERVENT */
+ 	A5(1,1,1,1,1),	/* SOCKPAIR */
+ 	A(1,1,0),	/* SHUTDOWN */
+ 	A(1,1,1),	/* GSOCKOPT */
+ 	A5(1,1,1,1,0),	/* SSOCKOPT */
+ 	A(1,0,0),	/* GETSOCKNAME */
+ 	A(1,0,0),	/* GETPEERNAME */
+ 	A5(1,1,1,1,0),	/* SSELECT */
+ 	A(1,0,0),	/* FILENO */
+ 	A(1,0,0),	/* BINMODE */
+ 	A(1,1,1),	/* VEC */
+ 	A(1,0,0),	/* GPWNAM */
+ 	A(1,0,0),	/* GPWUID */
+ 	A(0,0,0),	/* GPWENT */
+ 	A(0,0,0),	/* SPWENT */
+ 	A(0,0,0),	/* EPWENT */
+ 	A(1,0,0),	/* GGRNAM */
+ 	A(1,0,0),	/* GGRGID */
+ 	A(0,0,0),	/* GGRENT */
+ 	A(0,0,0),	/* SGRENT */
+ 	A(0,0,0),	/* EGRENT */
+ 	A(0,0,0),	/* GETLOGIN */
+ 	A(1,1,0),	/* OPENDIR */
+ 	A(1,0,0),	/* READDIR */
+ 	A(1,0,0),	/* TELLDIR */
+ 	A(1,1,0),	/* SEEKDIR */
+ 	A(1,0,0),	/* REWINDDIR */
+ 	A(1,0,0),	/* CLOSEDIR */
+ 	A(1,3,0),	/* SYSCALL */
+ 	A(1,1,0),	/* PIPE */
+ 	0
+ };
+ #undef A
+ #undef A5
+ #endif
+ 
+ int do_trans();
+ int do_split();
+ bool do_eof();
+ long do_tell();
+ bool do_seek();
+ int do_tms();
+ int do_time();
+ int do_stat();
+ STR *do_push();
+ FILE *nextargv();
+ STR *do_fttext();
+ int do_slice();


Index: llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/array.c
diff -c /dev/null llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/array.c:1.1.2.1
*** /dev/null	Mon Mar  1 17:59:23 2004
--- llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/array.c	Mon Mar  1 17:59:12 2004
***************
*** 0 ****
--- 1,272 ----
+ /* $Header: /home/vadve/shared/PublicCVS/llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/array.c,v 1.1.2.1 2004/03/01 23:59:12 brukman Exp $
+  *
+  *    Copyright (c) 1989, Larry Wall
+  *
+  *    You may distribute under the terms of the GNU General Public License
+  *    as specified in the README file that comes with the perl 3.0 kit.
+  *
+  * $Log: array.c,v $
+  * Revision 1.1.2.1  2004/03/01 23:59:12  brukman
+  * Merge from trunk
+  *
+  * Revision 1.1  2004/02/17 22:21:15  criswell
+  * Initial commit of the perl Malloc Benchmark.  I've cheated a little by
+  * generating the yacc output files and committing them directly, but it was
+  * easier than disabling the Bison Voodoo that gets executed by default.
+  *
+  * Revision 4.0  91/03/20  01:03:32  lwall
+  * 4.0 baseline.
+  * 
+  */
+ 
+ #include "EXTERN.h"
+ #include "perl.h"
+ 
+ STR *
+ afetch(ar,key,lval)
+ register ARRAY *ar;
+ int key;
+ int lval;
+ {
+     STR *str;
+ 
+     if (key < 0 || key > ar->ary_fill) {
+ 	if (lval && key >= 0) {
+ 	    if (ar->ary_flags & ARF_REAL)
+ 		str = Str_new(5,0);
+ 	    else
+ 		str = str_mortal(&str_undef);
+ 	    (void)astore(ar,key,str);
+ 	    return str;
+ 	}
+ 	else
+ 	    return &str_undef;
+     }
+     if (!ar->ary_array[key]) {
+ 	if (lval) {
+ 	    str = Str_new(6,0);
+ 	    (void)astore(ar,key,str);
+ 	    return str;
+ 	}
+ 	return &str_undef;
+     }
+     return ar->ary_array[key];
+ }
+ 
+ bool
+ astore(ar,key,val)
+ register ARRAY *ar;
+ int key;
+ STR *val;
+ {
+     int retval;
+ 
+     if (key < 0)
+ 	return FALSE;
+     if (key > ar->ary_max) {
+ 	int newmax;
+ 
+ 	if (ar->ary_alloc != ar->ary_array) {
+ 	    retval = ar->ary_array - ar->ary_alloc;
+ 	    Copy(ar->ary_array, ar->ary_alloc, ar->ary_max+1, STR*);
+ 	    Zero(ar->ary_alloc+ar->ary_max+1, retval, STR*);
+ 	    ar->ary_max += retval;
+ 	    ar->ary_array -= retval;
+ 	    if (key > ar->ary_max - 10) {
+ 		newmax = key + ar->ary_max;
+ 		goto resize;
+ 	    }
+ 	}
+ 	else {
+ 	    if (ar->ary_alloc) {
+ 		newmax = key + ar->ary_max / 5;
+ 	      resize:
+ 		Renew(ar->ary_alloc,newmax+1, STR*);
+ 		Zero(&ar->ary_alloc[ar->ary_max+1], newmax - ar->ary_max, STR*);
+ 	    }
+ 	    else {
+ 		newmax = key < 4 ? 4 : key;
+ 		Newz(2,ar->ary_alloc, newmax+1, STR*);
+ 	    }
+ 	    ar->ary_array = ar->ary_alloc;
+ 	    ar->ary_max = newmax;
+ 	}
+     }
+     if ((ar->ary_flags & ARF_REAL) && ar->ary_fill < key) {
+ 	while (++ar->ary_fill < key) {
+ 	    if (ar->ary_array[ar->ary_fill] != Nullstr) {
+ 		str_free(ar->ary_array[ar->ary_fill]);
+ 		ar->ary_array[ar->ary_fill] = Nullstr;
+ 	    }
+ 	}
+     }
+     retval = (ar->ary_array[key] != Nullstr);
+     if (retval && (ar->ary_flags & ARF_REAL))
+ 	str_free(ar->ary_array[key]);
+     ar->ary_array[key] = val;
+     return retval;
+ }
+ 
+ ARRAY *
+ anew(stab)
+ STAB *stab;
+ {
+     register ARRAY *ar;
+ 
+     New(1,ar,1,ARRAY);
+     ar->ary_magic = Str_new(7,0);
+     ar->ary_alloc = ar->ary_array = 0;
+     str_magic(ar->ary_magic, stab, '#', Nullch, 0);
+     ar->ary_max = ar->ary_fill = -1;
+     ar->ary_flags = ARF_REAL;
+     return ar;
+ }
+ 
+ ARRAY *
+ afake(stab,size,strp)
+ STAB *stab;
+ register int size;
+ register STR **strp;
+ {
+     register ARRAY *ar;
+ 
+     New(3,ar,1,ARRAY);
+     New(4,ar->ary_alloc,size+1,STR*);
+     Copy(strp,ar->ary_alloc,size,STR*);
+     ar->ary_array = ar->ary_alloc;
+     ar->ary_magic = Str_new(8,0);
+     str_magic(ar->ary_magic, stab, '#', Nullch, 0);
+     ar->ary_fill = size - 1;
+     ar->ary_max = size - 1;
+     ar->ary_flags = 0;
+     while (size--) {
+ 	(*strp++)->str_pok &= ~SP_TEMP;
+     }
+     return ar;
+ }
+ 
+ void
+ aclear(ar)
+ register ARRAY *ar;
+ {
+     register int key;
+ 
+     if (!ar || !(ar->ary_flags & ARF_REAL) || ar->ary_max < 0)
+ 	return;
+     if (key = ar->ary_array - ar->ary_alloc) {
+ 	ar->ary_max += key;
+ 	ar->ary_array -= key;
+     }
+     for (key = 0; key <= ar->ary_max; key++)
+ 	str_free(ar->ary_array[key]);
+     ar->ary_fill = -1;
+     Zero(ar->ary_array, ar->ary_max+1, STR*);
+ }
+ 
+ void
+ afree(ar)
+ register ARRAY *ar;
+ {
+     register int key;
+ 
+     if (!ar)
+ 	return;
+     if (key = ar->ary_array - ar->ary_alloc) {
+ 	ar->ary_max += key;
+ 	ar->ary_array -= key;
+     }
+     if (ar->ary_flags & ARF_REAL) {
+ 	for (key = 0; key <= ar->ary_max; key++)
+ 	    str_free(ar->ary_array[key]);
+     }
+     str_free(ar->ary_magic);
+     Safefree(ar->ary_alloc);
+     Safefree(ar);
+ }
+ 
+ bool
+ apush(ar,val)
+ register ARRAY *ar;
+ STR *val;
+ {
+     return astore(ar,++(ar->ary_fill),val);
+ }
+ 
+ STR *
+ apop(ar)
+ register ARRAY *ar;
+ {
+     STR *retval;
+ 
+     if (ar->ary_fill < 0)
+ 	return Nullstr;
+     retval = ar->ary_array[ar->ary_fill];
+     ar->ary_array[ar->ary_fill--] = Nullstr;
+     return retval;
+ }
+ 
+ aunshift(ar,num)
+ register ARRAY *ar;
+ register int num;
+ {
+     register int i;
+     register STR **sstr,**dstr;
+ 
+     if (num <= 0)
+ 	return;
+     if (ar->ary_array - ar->ary_alloc >= num) {
+ 	ar->ary_max += num;
+ 	ar->ary_fill += num;
+ 	while (num--)
+ 	    *--ar->ary_array = Nullstr;
+     }
+     else {
+ 	(void)astore(ar,ar->ary_fill+num,(STR*)0);	/* maybe extend array */
+ 	dstr = ar->ary_array + ar->ary_fill;
+ 	sstr = dstr - num;
+ #ifdef BUGGY_MSC5
+  # pragma loop_opt(off)	/* don't loop-optimize the following code */
+ #endif /* BUGGY_MSC5 */
+ 	for (i = ar->ary_fill; i >= 0; i--) {
+ 	    *dstr-- = *sstr--;
+ #ifdef BUGGY_MSC5
+  # pragma loop_opt()	/* loop-optimization back to command-line setting */
+ #endif /* BUGGY_MSC5 */
+ 	}
+ 	Zero(ar->ary_array, num, STR*);
+     }
+ }
+ 
+ STR *
+ ashift(ar)
+ register ARRAY *ar;
+ {
+     STR *retval;
+ 
+     if (ar->ary_fill < 0)
+ 	return Nullstr;
+     retval = *ar->ary_array;
+     *(ar->ary_array++) = Nullstr;
+     ar->ary_max--;
+     ar->ary_fill--;
+     return retval;
+ }
+ 
+ int
+ alen(ar)
+ register ARRAY *ar;
+ {
+     return ar->ary_fill;
+ }
+ 
+ afill(ar, fill)
+ register ARRAY *ar;
+ int fill;
+ {
+     if (fill < 0)
+ 	fill = -1;
+     if (fill <= ar->ary_max)
+ 	ar->ary_fill = fill;
+     else
+ 	(void)astore(ar,fill,Nullstr);
+ }


Index: llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/array.h
diff -c /dev/null llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/array.h:1.1.2.1
*** /dev/null	Mon Mar  1 17:59:23 2004
--- llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/array.h	Mon Mar  1 17:59:12 2004
***************
*** 0 ****
--- 1,42 ----
+ /* $Header: /home/vadve/shared/PublicCVS/llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/array.h,v 1.1.2.1 2004/03/01 23:59:12 brukman Exp $
+  *
+  *    Copyright (c) 1989, Larry Wall
+  *
+  *    You may distribute under the terms of the GNU General Public License
+  *    as specified in the README file that comes with the perl 3.0 kit.
+  *
+  * $Log: array.h,v $
+  * Revision 1.1.2.1  2004/03/01 23:59:12  brukman
+  * Merge from trunk
+  *
+  * Revision 1.1  2004/02/17 22:21:15  criswell
+  * Initial commit of the perl Malloc Benchmark.  I've cheated a little by
+  * generating the yacc output files and committing them directly, but it was
+  * easier than disabling the Bison Voodoo that gets executed by default.
+  *
+  * Revision 4.0  91/03/20  01:03:44  lwall
+  * 4.0 baseline.
+  * 
+  */
+ 
+ struct atbl {
+     STR	**ary_array;
+     STR **ary_alloc;
+     STR *ary_magic;
+     int ary_max;
+     int ary_fill;
+     char ary_flags;
+ };
+ 
+ #define ARF_REAL 1	/* free old entries */
+ 
+ STR *afetch();
+ bool astore();
+ STR *apop();
+ STR *ashift();
+ void afree();
+ void aclear();
+ bool apush();
+ int alen();
+ ARRAY *anew();
+ ARRAY *afake();


Index: llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/cmd.c
diff -c /dev/null llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/cmd.c:1.1.2.1
*** /dev/null	Mon Mar  1 17:59:23 2004
--- llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/cmd.c	Mon Mar  1 17:59:12 2004
***************
*** 0 ****
--- 1,1226 ----
+ /* $RCSfile: cmd.c,v $$Revision: 1.1.2.1 $$Date: 2004/03/01 23:59:12 $
+  *
+  *    Copyright (c) 1989, Larry Wall
+  *
+  *    You may distribute under the terms of the GNU General Public License
+  *    as specified in the README file that comes with the perl 3.0 kit.
+  *
+  * $Log: cmd.c,v $
+  * Revision 1.1.2.1  2004/03/01 23:59:12  brukman
+  * Merge from trunk
+  *
+  * Revision 1.1  2004/02/17 22:21:15  criswell
+  * Initial commit of the perl Malloc Benchmark.  I've cheated a little by
+  * generating the yacc output files and committing them directly, but it was
+  * easier than disabling the Bison Voodoo that gets executed by default.
+  *
+  * Revision 4.0.1.1  91/04/11  17:36:16  lwall
+  * patch1: you may now use "die" and "caller" in a signal handler
+  * 
+  * Revision 4.0  91/03/20  01:04:18  lwall
+  * 4.0 baseline.
+  * 
+  */
+ 
+ #include "EXTERN.h"
+ #include "perl.h"
+ 
+ #ifdef I_VARARGS
+ #  include <varargs.h>
+ #endif
+ 
+ static STR str_chop;
+ 
+ void grow_dlevel();
+ 
+ /* do longjmps() clobber register variables? */
+ 
+ #if defined(cray) || defined(__STDC__)
+ #define JMPCLOBBER
+ #endif
+ 
+ /* This is the main command loop.  We try to spend as much time in this loop
+  * as possible, so lots of optimizations do their activities in here.  This
+  * means things get a little sloppy.
+  */
+ 
+ int
+ cmd_exec(cmdparm,gimme,sp)
+ CMD *VOLATILE cmdparm;
+ VOLATILE int gimme;
+ VOLATILE int sp;
+ {
+     register CMD *cmd = cmdparm;
+     SPAT *VOLATILE oldspat;
+     VOLATILE int firstsave = savestack->ary_fill;
+     VOLATILE int oldsave;
+     VOLATILE int aryoptsave;
+ #ifdef DEBUGGING
+     VOLATILE int olddlevel;
+     VOLATILE int entdlevel;
+ #endif
+     register STR *retstr = &str_undef;
+     register char *tmps;
+     register int cmdflags;
+     register int match;
+     register char *go_to = goto_targ;
+     register int newsp = -2;
+     register STR **st = stack->ary_array;
+     FILE *VOLATILE fp;
+     ARRAY *VOLATILE ar;
+ 
+     lastsize = 0;
+ #ifdef DEBUGGING
+     entdlevel = dlevel;
+ #endif
+ tail_recursion_entry:
+ #ifdef DEBUGGING
+     dlevel = entdlevel;
+ #endif
+ #ifdef TAINT
+     tainted = 0;	/* Each statement is presumed innocent */
+ #endif
+     if (cmd == Nullcmd) {
+ 	if (gimme == G_ARRAY && newsp > -2)
+ 	    return newsp;
+ 	else {
+ 	    st[++sp] = retstr;
+ 	    return sp;
+ 	}
+     }
+     cmdflags = cmd->c_flags;	/* hopefully load register */
+     if (go_to) {
+ 	if (cmd->c_label && strEQ(go_to,cmd->c_label))
+ 	    goto_targ = go_to = Nullch;		/* here at last */
+ 	else {
+ 	    switch (cmd->c_type) {
+ 	    case C_IF:
+ 		oldspat = curspat;
+ 		oldsave = savestack->ary_fill;
+ #ifdef DEBUGGING
+ 		olddlevel = dlevel;
+ #endif
+ 		retstr = &str_yes;
+ 		newsp = -2;
+ 		if (cmd->ucmd.ccmd.cc_true) {
+ #ifdef DEBUGGING
+ 		    if (debug) {
+ 			debname[dlevel] = 't';
+ 			debdelim[dlevel] = '_';
+ 			if (++dlevel >= dlmax)
+ 			    grow_dlevel();
+ 		    }
+ #endif
+ 		    newsp = cmd_exec(cmd->ucmd.ccmd.cc_true,gimme && (cmdflags & CF_TERM),sp);
+ 		    st = stack->ary_array;	/* possibly reallocated */
+ 		    retstr = st[newsp];
+ 		}
+ 		if (!goto_targ)
+ 		    go_to = Nullch;
+ 		curspat = oldspat;
+ 		if (savestack->ary_fill > oldsave)
+ 		    restorelist(oldsave);
+ #ifdef DEBUGGING
+ 		dlevel = olddlevel;
+ #endif
+ 		cmd = cmd->ucmd.ccmd.cc_alt;
+ 		goto tail_recursion_entry;
+ 	    case C_ELSE:
+ 		oldspat = curspat;
+ 		oldsave = savestack->ary_fill;
+ #ifdef DEBUGGING
+ 		olddlevel = dlevel;
+ #endif
+ 		retstr = &str_undef;
+ 		newsp = -2;
+ 		if (cmd->ucmd.ccmd.cc_true) {
+ #ifdef DEBUGGING
+ 		    if (debug) {
+ 			debname[dlevel] = 'e';
+ 			debdelim[dlevel] = '_';
+ 			if (++dlevel >= dlmax)
+ 			    grow_dlevel();
+ 		    }
+ #endif
+ 		    newsp = cmd_exec(cmd->ucmd.ccmd.cc_true,gimme && (cmdflags & CF_TERM),sp);
+ 		    st = stack->ary_array;	/* possibly reallocated */
+ 		    retstr = st[newsp];
+ 		}
+ 		if (!goto_targ)
+ 		    go_to = Nullch;
+ 		curspat = oldspat;
+ 		if (savestack->ary_fill > oldsave)
+ 		    restorelist(oldsave);
+ #ifdef DEBUGGING
+ 		dlevel = olddlevel;
+ #endif
+ 		break;
+ 	    case C_BLOCK:
+ 	    case C_WHILE:
+ 		if (!(cmdflags & CF_ONCE)) {
+ 		    cmdflags |= CF_ONCE;
+ 		    if (++loop_ptr >= loop_max) {
+ 			loop_max += 128;
+ 			Renew(loop_stack, loop_max, struct loop);
+ 		    }
+ 		    loop_stack[loop_ptr].loop_label = cmd->c_label;
+ 		    loop_stack[loop_ptr].loop_sp = sp;
+ #ifdef DEBUGGING
+ 		    if (debug & 4) {
+ 			deb("(Pushing label #%d %s)\n",
+ 			  loop_ptr, cmd->c_label ? cmd->c_label : "");
+ 		    }
+ #endif
+ 		}
+ #ifdef JMPCLOBBER
+ 		cmdparm = cmd;
+ #endif
+ 		match = setjmp(loop_stack[loop_ptr].loop_env);
+ 		if (match) {
+ 		    st = stack->ary_array;	/* possibly reallocated */
+ #ifdef JMPCLOBBER
+ 		    cmd = cmdparm;
+ 		    cmdflags = cmd->c_flags|CF_ONCE;
+ #endif
+ 		    if (savestack->ary_fill > oldsave)
+ 			restorelist(oldsave);
+ 		    switch (match) {
+ 		    default:
+ 			fatal("longjmp returned bad value (%d)",match);
+ 		    case O_LAST:	/* not done unless go_to found */
+ 			go_to = Nullch;
+ 			if (lastretstr) {
+ 			    retstr = lastretstr;
+ 			    newsp = -2;
+ 			}
+ 			else {
+ 			    newsp = sp + lastsize;
+ 			    retstr = st[newsp];
+ 			}
+ #ifdef DEBUGGING
+ 			olddlevel = dlevel;
+ #endif
+ 			curspat = oldspat;
+ 			goto next_cmd;
+ 		    case O_NEXT:	/* not done unless go_to found */
+ 			go_to = Nullch;
+ #ifdef JMPCLOBBER
+ 			newsp = -2;
+ 			retstr = &str_undef;
+ #endif
+ 			goto next_iter;
+ 		    case O_REDO:	/* not done unless go_to found */
+ 			go_to = Nullch;
+ #ifdef JMPCLOBBER
+ 			newsp = -2;
+ 			retstr = &str_undef;
+ #endif
+ 			goto doit;
+ 		    }
+ 		}
+ 		oldspat = curspat;
+ 		oldsave = savestack->ary_fill;
+ #ifdef DEBUGGING
+ 		olddlevel = dlevel;
+ #endif
+ 		if (cmd->ucmd.ccmd.cc_true) {
+ #ifdef DEBUGGING
+ 		    if (debug) {
+ 			debname[dlevel] = 't';
+ 			debdelim[dlevel] = '_';
+ 			if (++dlevel >= dlmax)
+ 			    grow_dlevel();
+ 		    }
+ #endif
+ 		    newsp = cmd_exec(cmd->ucmd.ccmd.cc_true,gimme && (cmdflags & CF_TERM),sp);
+ 		    st = stack->ary_array;	/* possibly reallocated */
+ 		    retstr = st[newsp];
+ 		}
+ 		if (!goto_targ) {
+ 		    go_to = Nullch;
+ 		    goto next_iter;
+ 		}
+ #ifdef DEBUGGING
+ 		dlevel = olddlevel;
+ #endif
+ 		if (cmd->ucmd.ccmd.cc_alt) {
+ #ifdef DEBUGGING
+ 		    if (debug) {
+ 			debname[dlevel] = 'a';
+ 			debdelim[dlevel] = '_';
+ 			if (++dlevel >= dlmax)
+ 			    grow_dlevel();
+ 		    }
+ #endif
+ 		    newsp = cmd_exec(cmd->ucmd.ccmd.cc_alt,gimme && (cmdflags & CF_TERM),sp);
+ 		    st = stack->ary_array;	/* possibly reallocated */
+ 		    retstr = st[newsp];
+ 		}
+ 		if (goto_targ)
+ 		    break;
+ 		go_to = Nullch;
+ 		goto finish_while;
+ 	    }
+ 	    cmd = cmd->c_next;
+ 	    if (cmd && cmd->c_head == cmd)
+ 					/* reached end of while loop */
+ 		return sp;		/* targ isn't in this block */
+ 	    if (cmdflags & CF_ONCE) {
+ #ifdef DEBUGGING
+ 		if (debug & 4) {
+ 		    tmps = loop_stack[loop_ptr].loop_label;
+ 		    deb("(Popping label #%d %s)\n",loop_ptr,
+ 			tmps ? tmps : "" );
+ 		}
+ #endif
+ 		loop_ptr--;
+ 	    }
+ 	    goto tail_recursion_entry;
+ 	}
+     }
+ 
+ until_loop:
+ 
+     /* Set line number so run-time errors can be located */
+ 
+     curcmd = cmd;
+ 
+ #ifdef DEBUGGING
+     if (debug) {
+ 	if (debug & 2) {
+ 	    deb("%s	(%lx)	r%lx	t%lx	a%lx	n%lx	cs%lx\n",
+ 		cmdname[cmd->c_type],cmd,cmd->c_expr,
+ 		cmd->ucmd.ccmd.cc_true,cmd->ucmd.ccmd.cc_alt,cmd->c_next,
+ 		curspat);
+ 	}
+ 	debname[dlevel] = cmdname[cmd->c_type][0];
+ 	debdelim[dlevel] = '!';
+ 	if (++dlevel >= dlmax)
+ 	    grow_dlevel();
+     }
+ #endif
+ 
+     /* Here is some common optimization */
+ 
+     if (cmdflags & CF_COND) {
+ 	switch (cmdflags & CF_OPTIMIZE) {
+ 
+ 	case CFT_FALSE:
+ 	    retstr = cmd->c_short;
+ 	    newsp = -2;
+ 	    match = FALSE;
+ 	    if (cmdflags & CF_NESURE)
+ 		goto maybe;
+ 	    break;
+ 	case CFT_TRUE:
+ 	    retstr = cmd->c_short;
+ 	    newsp = -2;
+ 	    match = TRUE;
+ 	    if (cmdflags & CF_EQSURE)
+ 		goto flipmaybe;
+ 	    break;
+ 
+ 	case CFT_REG:
+ 	    retstr = STAB_STR(cmd->c_stab);
+ 	    newsp = -2;
+ 	    match = str_true(retstr);	/* => retstr = retstr, c2 should fix */
+ 	    if (cmdflags & (match ? CF_EQSURE : CF_NESURE))
+ 		goto flipmaybe;
+ 	    break;
+ 
+ 	case CFT_ANCHOR:	/* /^pat/ optimization */
+ 	    if (multiline) {
+ 		if (*cmd->c_short->str_ptr && !(cmdflags & CF_EQSURE))
+ 		    goto scanner;	/* just unanchor it */
+ 		else
+ 		    break;		/* must evaluate */
+ 	    }
+ 	    /* FALL THROUGH */
+ 	case CFT_STROP:		/* string op optimization */
+ 	    retstr = STAB_STR(cmd->c_stab);
+ 	    newsp = -2;
+ #ifndef I286
+ 	    if (*cmd->c_short->str_ptr == *str_get(retstr) &&
+ 		    bcmp(cmd->c_short->str_ptr, str_get(retstr),
+ 		      cmd->c_slen) == 0 ) {
+ 		if (cmdflags & CF_EQSURE) {
+ 		    if (sawampersand && (cmdflags & CF_OPTIMIZE) != CFT_STROP) {
+ 			curspat = Nullspat;
+ 			if (leftstab)
+ 			    str_nset(stab_val(leftstab),"",0);
+ 			if (amperstab)
+ 			    str_sset(stab_val(amperstab),cmd->c_short);
+ 			if (rightstab)
+ 			    str_nset(stab_val(rightstab),
+ 			      retstr->str_ptr + cmd->c_slen,
+ 			      retstr->str_cur - cmd->c_slen);
+ 		    }
+ 		    if (cmd->c_spat)
+ 			lastspat = cmd->c_spat;
+ 		    match = !(cmdflags & CF_FIRSTNEG);
+ 		    retstr = &str_yes;
+ 		    goto flipmaybe;
+ 		}
+ 	    }
+ 	    else if (cmdflags & CF_NESURE) {
+ 		match = cmdflags & CF_FIRSTNEG;
+ 		retstr = &str_no;
+ 		goto flipmaybe;
+ 	    }
+ #else
+ 	    {
+ 		char *zap1, *zap2, zap1c, zap2c;
+ 		int  zaplen;
+ 
+ 		zap1 = cmd->c_short->str_ptr;
+ 		zap2 = str_get(retstr);
+ 		zap1c = *zap1;
+ 		zap2c = *zap2;
+ 		zaplen = cmd->c_slen;
+ 		if ((zap1c == zap2c) && (bcmp(zap1, zap2, zaplen) == 0)) {
+ 		    if (cmdflags & CF_EQSURE) {
+ 			if (sawampersand &&
+ 			  (cmdflags & CF_OPTIMIZE) != CFT_STROP) {
+ 			    curspat = Nullspat;
+ 			    if (leftstab)
+ 				str_nset(stab_val(leftstab),"",0);
+ 			    if (amperstab)
+ 				str_sset(stab_val(amperstab),cmd->c_short);
+ 			    if (rightstab)
+ 				str_nset(stab_val(rightstab),
+ 					 retstr->str_ptr + cmd->c_slen,
+ 					 retstr->str_cur - cmd->c_slen);
+ 			}
+ 			if (cmd->c_spat)
+ 			    lastspat = cmd->c_spat;
+ 		 	match = !(cmdflags & CF_FIRSTNEG);
+ 		 	retstr = &str_yes;
+ 		 	goto flipmaybe;
+ 		    }
+ 		}
+ 		else if (cmdflags & CF_NESURE) {
+ 		    match = cmdflags & CF_FIRSTNEG;
+ 		    retstr = &str_no;
+ 		    goto flipmaybe;
+ 		}
+ 	    }
+ #endif
+ 	    break;			/* must evaluate */
+ 
+ 	case CFT_SCAN:			/* non-anchored search */
+ 	  scanner:
+ 	    retstr = STAB_STR(cmd->c_stab);
+ 	    newsp = -2;
+ 	    if (retstr->str_pok & SP_STUDIED)
+ 		if (screamfirst[cmd->c_short->str_rare] >= 0)
+ 		    tmps = screaminstr(retstr, cmd->c_short);
+ 		else
+ 		    tmps = Nullch;
+ 	    else {
+ 		tmps = str_get(retstr);		/* make sure it's pok */
+ #ifndef lint
+ 		tmps = fbminstr((unsigned char*)tmps,
+ 		    (unsigned char*)tmps + retstr->str_cur, cmd->c_short);
+ #endif
+ 	    }
+ 	    if (tmps) {
+ 		if (cmdflags & CF_EQSURE) {
+ 		    ++cmd->c_short->str_u.str_useful;
+ 		    if (sawampersand) {
+ 			curspat = Nullspat;
+ 			if (leftstab)
+ 			    str_nset(stab_val(leftstab),retstr->str_ptr,
+ 			      tmps - retstr->str_ptr);
+ 			if (amperstab)
+ 			    str_nset(stab_val(amperstab),
+ 			      tmps, cmd->c_short->str_cur);
+ 			if (rightstab)
+ 			    str_nset(stab_val(rightstab),
+ 			      tmps + cmd->c_short->str_cur,
+ 			      retstr->str_cur - (tmps - retstr->str_ptr) -
+ 				cmd->c_short->str_cur);
+ 		    }
+ 		    lastspat = cmd->c_spat;
+ 		    match = !(cmdflags & CF_FIRSTNEG);
+ 		    retstr = &str_yes;
+ 		    goto flipmaybe;
+ 		}
+ 		else
+ 		    hint = tmps;
+ 	    }
+ 	    else {
+ 		if (cmdflags & CF_NESURE) {
+ 		    ++cmd->c_short->str_u.str_useful;
+ 		    match = cmdflags & CF_FIRSTNEG;
+ 		    retstr = &str_no;
+ 		    goto flipmaybe;
+ 		}
+ 	    }
+ 	    if (--cmd->c_short->str_u.str_useful < 0) {
+ 		cmdflags &= ~CF_OPTIMIZE;
+ 		cmdflags |= CFT_EVAL;	/* never try this optimization again */
+ 		cmd->c_flags = (cmdflags & ~CF_ONCE);
+ 	    }
+ 	    break;			/* must evaluate */
+ 
+ 	case CFT_NUMOP:		/* numeric op optimization */
+ 	    retstr = STAB_STR(cmd->c_stab);
+ 	    newsp = -2;
+ 	    switch (cmd->c_slen) {
+ 	    case O_EQ:
+ 		if (dowarn) {
+ 		    if ((!retstr->str_nok && !looks_like_number(retstr)))
+ 			warn("Possible use of == on string value");
+ 		}
+ 		match = (str_gnum(retstr) == cmd->c_short->str_u.str_nval);
+ 		break;
+ 	    case O_NE:
+ 		match = (str_gnum(retstr) != cmd->c_short->str_u.str_nval);
+ 		break;
+ 	    case O_LT:
+ 		match = (str_gnum(retstr) <  cmd->c_short->str_u.str_nval);
+ 		break;
+ 	    case O_LE:
+ 		match = (str_gnum(retstr) <= cmd->c_short->str_u.str_nval);
+ 		break;
+ 	    case O_GT:
+ 		match = (str_gnum(retstr) >  cmd->c_short->str_u.str_nval);
+ 		break;
+ 	    case O_GE:
+ 		match = (str_gnum(retstr) >= cmd->c_short->str_u.str_nval);
+ 		break;
+ 	    }
+ 	    if (match) {
+ 		if (cmdflags & CF_EQSURE) {
+ 		    retstr = &str_yes;
+ 		    goto flipmaybe;
+ 		}
+ 	    }
+ 	    else if (cmdflags & CF_NESURE) {
+ 		retstr = &str_no;
+ 		goto flipmaybe;
+ 	    }
+ 	    break;			/* must evaluate */
+ 
+ 	case CFT_INDGETS:		/* while (<$foo>) */
+ 	    last_in_stab = stabent(str_get(STAB_STR(cmd->c_stab)),TRUE);
+ 	    if (!stab_io(last_in_stab))
+ 		stab_io(last_in_stab) = stio_new();
+ 	    goto dogets;
+ 	case CFT_GETS:			/* really a while (<file>) */
+ 	    last_in_stab = cmd->c_stab;
+ 	  dogets:
+ 	    fp = stab_io(last_in_stab)->ifp;
+ 	    retstr = stab_val(defstab);
+ 	    newsp = -2;
+ 	  keepgoing:
+ 	    if (fp && str_gets(retstr, fp, 0)) {
+ 		if (*retstr->str_ptr == '0' && retstr->str_cur == 1)
+ 		    match = FALSE;
+ 		else
+ 		    match = TRUE;
+ 		stab_io(last_in_stab)->lines++;
+ 	    }
+ 	    else if (stab_io(last_in_stab)->flags & IOF_ARGV) {
+ 		if (!fp)
+ 		    goto doeval;	/* first time through */
+ 		fp = nextargv(last_in_stab);
+ 		if (fp)
+ 		    goto keepgoing;
+ 		(void)do_close(last_in_stab,FALSE);
+ 		stab_io(last_in_stab)->flags |= IOF_START;
+ 		retstr = &str_undef;
+ 		match = FALSE;
+ 	    }
+ 	    else {
+ 		retstr = &str_undef;
+ 		match = FALSE;
+ 	    }
+ 	    goto flipmaybe;
+ 	case CFT_EVAL:
+ 	    break;
+ 	case CFT_UNFLIP:
+ 	    while (tmps_max > tmps_base) {	/* clean up after last eval */
+ 		str_free(tmps_list[tmps_max]);
+ 		tmps_list[tmps_max--] = Nullstr;
+ 	    }
+ 	    newsp = eval(cmd->c_expr,gimme && (cmdflags & CF_TERM),sp);
+ 	    st = stack->ary_array;	/* possibly reallocated */
+ 	    retstr = st[newsp];
+ 	    match = str_true(retstr);
+ 	    if (cmd->c_expr->arg_type == O_FLIP)	/* undid itself? */
+ 		cmdflags = copyopt(cmd,cmd->c_expr[3].arg_ptr.arg_cmd);
+ 	    goto maybe;
+ 	case CFT_CHOP:
+ 	    retstr = stab_val(cmd->c_stab);
+ 	    newsp = -2;
+ 	    match = (retstr->str_cur != 0);
+ 	    tmps = str_get(retstr);
+ 	    tmps += retstr->str_cur - match;
+ 	    str_nset(&str_chop,tmps,match);
+ 	    *tmps = '\0';
+ 	    retstr->str_nok = 0;
+ 	    retstr->str_cur = tmps - retstr->str_ptr;
+ 	    STABSET(retstr);
+ 	    retstr = &str_chop;
+ 	    goto flipmaybe;
+ 	case CFT_ARRAY:
+ 	    match = cmd->c_short->str_u.str_useful; /* just to get register */
+ 
+ 	    if (match < 0) {		/* first time through here? */
+ 		ar = stab_array(cmd->c_expr[1].arg_ptr.arg_stab);
+ 		aryoptsave = savestack->ary_fill;
+ 		savesptr(&stab_val(cmd->c_stab));
+ 		savelong(&cmd->c_short->str_u.str_useful);
+ 	    }
+ 	    else {
+ 		ar = stab_xarray(cmd->c_expr[1].arg_ptr.arg_stab);
+ 		if (cmd->c_type != C_WHILE && savestack->ary_fill > firstsave)
+ 		    restorelist(firstsave);
+ 	    }
+ 
+ 	    if (match >= ar->ary_fill) {	/* we're in LAST, probably */
+ 		retstr = &str_undef;
+ 		cmd->c_short->str_u.str_useful = -1;	/* actually redundant */
+ 		match = FALSE;
+ 	    }
+ 	    else {
+ 		match++;
+ 		if (!(retstr = ar->ary_array[match]))
+ 		    retstr = afetch(ar,match,TRUE);
+ 		stab_val(cmd->c_stab) = retstr;
+ 		cmd->c_short->str_u.str_useful = match;
+ 		match = TRUE;
+ 	    }
+ 	    newsp = -2;
+ 	    goto maybe;
+ 	case CFT_D1:
+ 	    break;
+ 	case CFT_D0:
+ 	    if (DBsingle->str_u.str_nval != 0)
+ 		break;
+ 	    if (DBsignal->str_u.str_nval != 0)
+ 		break;
+ 	    if (DBtrace->str_u.str_nval != 0)
+ 		break;
+ 	    goto next_cmd;
+ 	}
+ 
+     /* we have tried to make this normal case as abnormal as possible */
+ 
+     doeval:
+ 	if (gimme == G_ARRAY) {
+ 	    lastretstr = Nullstr;
+ 	    lastspbase = sp;
+ 	    lastsize = newsp - sp;
+ 	    if (lastsize < 0)
+ 		lastsize = 0;
+ 	}
+ 	else
+ 	    lastretstr = retstr;
+ 	while (tmps_max > tmps_base) {	/* clean up after last eval */
+ 	    str_free(tmps_list[tmps_max]);
+ 	    tmps_list[tmps_max--] = Nullstr;
+ 	}
+ 	newsp = eval(cmd->c_expr,
+ 	  gimme && (cmdflags & CF_TERM) && cmd->c_type == C_EXPR &&
+ 		!cmd->ucmd.acmd.ac_expr,
+ 	  sp);
+ 	st = stack->ary_array;	/* possibly reallocated */
+ 	retstr = st[newsp];
+ 	if (newsp > sp && retstr)
+ 	    match = str_true(retstr);
+ 	else
+ 	    match = FALSE;
+ 	goto maybe;
+ 
+     /* if flipflop was true, flop it */
+ 
+     flipmaybe:
+ 	if (match && cmdflags & CF_FLIP) {
+ 	    while (tmps_max > tmps_base) {	/* clean up after last eval */
+ 		str_free(tmps_list[tmps_max]);
+ 		tmps_list[tmps_max--] = Nullstr;
+ 	    }
+ 	    if (cmd->c_expr->arg_type == O_FLOP) {	/* currently toggled? */
+ 		newsp = eval(cmd->c_expr,G_SCALAR,sp);/*let eval undo it*/
+ 		cmdflags = copyopt(cmd,cmd->c_expr[3].arg_ptr.arg_cmd);
+ 	    }
+ 	    else {
+ 		newsp = eval(cmd->c_expr,G_SCALAR,sp);/* let eval do it */
+ 		if (cmd->c_expr->arg_type == O_FLOP)	/* still toggled? */
+ 		    cmdflags = copyopt(cmd,cmd->c_expr[4].arg_ptr.arg_cmd);
+ 	    }
+ 	}
+ 	else if (cmdflags & CF_FLIP) {
+ 	    if (cmd->c_expr->arg_type == O_FLOP) {	/* currently toggled? */
+ 		match = TRUE;				/* force on */
+ 	    }
+ 	}
+ 
+     /* at this point, match says whether our expression was true */
+ 
+     maybe:
+ 	if (cmdflags & CF_INVERT)
+ 	    match = !match;
+ 	if (!match)
+ 	    goto next_cmd;
+     }
+ #ifdef TAINT
+     tainted = 0;	/* modifier doesn't affect regular expression */
+ #endif
+ 
+     /* now to do the actual command, if any */
+ 
+     switch (cmd->c_type) {
+     case C_NULL:
+ 	fatal("panic: cmd_exec");
+     case C_EXPR:			/* evaluated for side effects */
+ 	if (cmd->ucmd.acmd.ac_expr) {	/* more to do? */
+ 	    if (gimme == G_ARRAY) {
+ 		lastretstr = Nullstr;
+ 		lastspbase = sp;
+ 		lastsize = newsp - sp;
+ 		if (lastsize < 0)
+ 		    lastsize = 0;
+ 	    }
+ 	    else
+ 		lastretstr = retstr;
+ 	    while (tmps_max > tmps_base) {	/* clean up after last eval */
+ 		str_free(tmps_list[tmps_max]);
+ 		tmps_list[tmps_max--] = Nullstr;
+ 	    }
+ 	    newsp = eval(cmd->ucmd.acmd.ac_expr,gimme && (cmdflags&CF_TERM),sp);
+ 	    st = stack->ary_array;	/* possibly reallocated */
+ 	    retstr = st[newsp];
+ 	}
+ 	break;
+     case C_NSWITCH:
+ 	{
+ 	    double value = str_gnum(STAB_STR(cmd->c_stab));
+ 
+ 	    match = (int)value;
+ 	    if (value < 0.0) {
+ 		if (((double)match) > value)
+ 		    --match;		/* was fractional--truncate other way */
+ 	    }
+ 	}
+ 	goto doswitch;
+     case C_CSWITCH:
+ 	match = *(str_get(STAB_STR(cmd->c_stab))) & 255;
+       doswitch:
+ 	match -= cmd->ucmd.scmd.sc_offset;
+ 	if (match < 0)
+ 	    match = 0;
+ 	else if (match > cmd->ucmd.scmd.sc_max)
+ 	    match = cmd->ucmd.scmd.sc_max;
+ 	cmd = cmd->ucmd.scmd.sc_next[match];
+ 	goto tail_recursion_entry;
+     case C_NEXT:
+ 	cmd = cmd->ucmd.ccmd.cc_alt;
+ 	goto tail_recursion_entry;
+     case C_ELSIF:
+ 	fatal("panic: ELSIF");
+     case C_IF:
+ 	oldspat = curspat;
+ 	oldsave = savestack->ary_fill;
+ #ifdef DEBUGGING
+ 	olddlevel = dlevel;
+ #endif
+ 	retstr = &str_yes;
+ 	newsp = -2;
+ 	if (cmd->ucmd.ccmd.cc_true) {
+ #ifdef DEBUGGING
+ 	    if (debug) {
+ 		debname[dlevel] = 't';
+ 		debdelim[dlevel] = '_';
+ 		if (++dlevel >= dlmax)
+ 		    grow_dlevel();
+ 	    }
+ #endif
+ 	    newsp = cmd_exec(cmd->ucmd.ccmd.cc_true,gimme && (cmdflags & CF_TERM),sp);
+ 	    st = stack->ary_array;	/* possibly reallocated */
+ 	    retstr = st[newsp];
+ 	}
+ 	curspat = oldspat;
+ 	if (savestack->ary_fill > oldsave)
+ 	    restorelist(oldsave);
+ #ifdef DEBUGGING
+ 	dlevel = olddlevel;
+ #endif
+ 	cmd = cmd->ucmd.ccmd.cc_alt;
+ 	goto tail_recursion_entry;
+     case C_ELSE:
+ 	oldspat = curspat;
+ 	oldsave = savestack->ary_fill;
+ #ifdef DEBUGGING
+ 	olddlevel = dlevel;
+ #endif
+ 	retstr = &str_undef;
+ 	newsp = -2;
+ 	if (cmd->ucmd.ccmd.cc_true) {
+ #ifdef DEBUGGING
+ 	    if (debug) {
+ 		debname[dlevel] = 'e';
+ 		debdelim[dlevel] = '_';
+ 		if (++dlevel >= dlmax)
+ 		    grow_dlevel();
+ 	    }
+ #endif
+ 	    newsp = cmd_exec(cmd->ucmd.ccmd.cc_true,gimme && (cmdflags & CF_TERM),sp);
+ 	    st = stack->ary_array;	/* possibly reallocated */
+ 	    retstr = st[newsp];
+ 	}
+ 	curspat = oldspat;
+ 	if (savestack->ary_fill > oldsave)
+ 	    restorelist(oldsave);
+ #ifdef DEBUGGING
+ 	dlevel = olddlevel;
+ #endif
+ 	break;
+     case C_BLOCK:
+     case C_WHILE:
+ 	if (!(cmdflags & CF_ONCE)) {	/* first time through here? */
+ 	    cmdflags |= CF_ONCE;
+ 	    if (++loop_ptr >= loop_max) {
+ 		loop_max += 128;
+ 		Renew(loop_stack, loop_max, struct loop);
+ 	    }
+ 	    loop_stack[loop_ptr].loop_label = cmd->c_label;
+ 	    loop_stack[loop_ptr].loop_sp = sp;
+ #ifdef DEBUGGING
+ 	    if (debug & 4) {
+ 		deb("(Pushing label #%d %s)\n",
+ 		  loop_ptr, cmd->c_label ? cmd->c_label : "");
+ 	    }
+ #endif
+ 	}
+ #ifdef JMPCLOBBER
+ 	cmdparm = cmd;
+ #endif
+ 	match = setjmp(loop_stack[loop_ptr].loop_env);
+ 	if (match) {
+ 	    st = stack->ary_array;	/* possibly reallocated */
+ #ifdef JMPCLOBBER
+ 	    cmd = cmdparm;
+ 	    cmdflags = cmd->c_flags|CF_ONCE;
+ 	    go_to = goto_targ;
+ #endif
+ 	    if (savestack->ary_fill > oldsave)
+ 		restorelist(oldsave);
+ 	    switch (match) {
+ 	    default:
+ 		fatal("longjmp returned bad value (%d)",match);
+ 	    case O_LAST:
+ 		if (lastretstr) {
+ 		    retstr = lastretstr;
+ 		    newsp = -2;
+ 		}
+ 		else {
+ 		    newsp = sp + lastsize;
+ 		    retstr = st[newsp];
+ 		}
+ 		curspat = oldspat;
+ 		goto next_cmd;
+ 	    case O_NEXT:
+ #ifdef JMPCLOBBER
+ 		newsp = -2;
+ 		retstr = &str_undef;
+ #endif
+ 		goto next_iter;
+ 	    case O_REDO:
+ #ifdef DEBUGGING
+ 		dlevel = olddlevel;
+ #endif
+ #ifdef JMPCLOBBER
+ 		newsp = -2;
+ 		retstr = &str_undef;
+ #endif
+ 		goto doit;
+ 	    }
+ 	}
+ 	oldspat = curspat;
+ 	oldsave = savestack->ary_fill;
+ #ifdef DEBUGGING
+ 	olddlevel = dlevel;
+ #endif
+     doit:
+ 	if (cmd->ucmd.ccmd.cc_true) {
+ #ifdef DEBUGGING
+ 	    if (debug) {
+ 		debname[dlevel] = 't';
+ 		debdelim[dlevel] = '_';
+ 		if (++dlevel >= dlmax)
+ 		    grow_dlevel();
+ 	    }
+ #endif
+ 	    newsp = cmd_exec(cmd->ucmd.ccmd.cc_true,gimme && (cmdflags & CF_TERM),sp);
+ 	    st = stack->ary_array;	/* possibly reallocated */
+ 	    retstr = st[newsp];
+ 	}
+ 	/* actually, this spot is rarely reached anymore since the above
+ 	 * cmd_exec() returns through longjmp().  Hooray for structure.
+ 	 */
+       next_iter:
+ #ifdef DEBUGGING
+ 	dlevel = olddlevel;
+ #endif
+ 	if (cmd->ucmd.ccmd.cc_alt) {
+ #ifdef DEBUGGING
+ 	    if (debug) {
+ 		debname[dlevel] = 'a';
+ 		debdelim[dlevel] = '_';
+ 		if (++dlevel >= dlmax)
+ 		    grow_dlevel();
+ 	    }
+ #endif
+ 	    newsp = cmd_exec(cmd->ucmd.ccmd.cc_alt,gimme && (cmdflags & CF_TERM),sp);
+ 	    st = stack->ary_array;	/* possibly reallocated */
+ 	    retstr = st[newsp];
+ 	}
+       finish_while:
+ 	curspat = oldspat;
+ 	if (savestack->ary_fill > oldsave) {
+ 	    if (cmdflags & CF_TERM) {
+ 		for (match = sp + 1; match <= newsp; match++)
+ 		    st[match] = str_mortal(st[match]);
+ 		retstr = st[newsp];
+ 	    }
+ 	    restorelist(oldsave);
+ 	}
+ #ifdef DEBUGGING
+ 	dlevel = olddlevel - 1;
+ #endif
+ 	if (cmd->c_type != C_BLOCK)
+ 	    goto until_loop;	/* go back and evaluate conditional again */
+     }
+     if (cmdflags & CF_LOOP) {
+ 	cmdflags |= CF_COND;		/* now test the condition */
+ #ifdef DEBUGGING
+ 	dlevel = entdlevel;
+ #endif
+ 	goto until_loop;
+     }
+   next_cmd:
+     if (cmdflags & CF_ONCE) {
+ #ifdef DEBUGGING
+ 	if (debug & 4) {
+ 	    tmps = loop_stack[loop_ptr].loop_label;
+ 	    deb("(Popping label #%d %s)\n",loop_ptr, tmps ? tmps : "");
+ 	}
+ #endif
+ 	loop_ptr--;
+ 	if ((cmdflags & CF_OPTIMIZE) == CFT_ARRAY &&
+ 	  savestack->ary_fill > aryoptsave)
+ 	    restorelist(aryoptsave);
+     }
+     cmd = cmd->c_next;
+     goto tail_recursion_entry;
+ }
+ 
+ #ifdef DEBUGGING
+ #  ifndef I_VARARGS
+ /*VARARGS1*/
+ deb(pat,a1,a2,a3,a4,a5,a6,a7,a8)
+ char *pat;
+ {
+     register int i;
+ 
+     fprintf(stderr,"%-4ld",(long)curcmd->c_line);
+     for (i=0; i<dlevel; i++)
+ 	fprintf(stderr,"%c%c ",debname[i],debdelim[i]);
+     fprintf(stderr,pat,a1,a2,a3,a4,a5,a6,a7,a8);
+ }
+ #  else
+ /*VARARGS1*/
+ deb(va_alist)
+ va_dcl
+ {
+     va_list args;
+     char *pat;
+     register int i;
+ 
+     va_start(args);
+     fprintf(stderr,"%-4ld",(long)curcmd->c_line);
+     for (i=0; i<dlevel; i++)
+ 	fprintf(stderr,"%c%c ",debname[i],debdelim[i]);
+ 
+     pat = va_arg(args, char *);
+     (void) vfprintf(stderr,pat,args);
+     va_end( args );
+ }
+ #  endif
+ #endif
+ 
+ copyopt(cmd,which)
+ register CMD *cmd;
+ register CMD *which;
+ {
+     cmd->c_flags &= CF_ONCE|CF_COND|CF_LOOP;
+     cmd->c_flags |= which->c_flags;
+     cmd->c_short = which->c_short;
+     cmd->c_slen = which->c_slen;
+     cmd->c_stab = which->c_stab;
+     return cmd->c_flags;
+ }
+ 
+ ARRAY *
+ saveary(stab)
+ STAB *stab;
+ {
+     register STR *str;
+ 
+     str = Str_new(10,0);
+     str->str_state = SS_SARY;
+     str->str_u.str_stab = stab;
+     if (str->str_ptr) {
+ 	Safefree(str->str_ptr);
+ 	str->str_ptr = Nullch;
+ 	str->str_len = 0;
+     }
+     str->str_ptr = (char*)stab_array(stab);
+     (void)apush(savestack,str); /* save array ptr */
+     stab_xarray(stab) = Null(ARRAY*);
+     return stab_xarray(aadd(stab));
+ }
+ 
+ HASH *
+ savehash(stab)
+ STAB *stab;
+ {
+     register STR *str;
+ 
+     str = Str_new(11,0);
+     str->str_state = SS_SHASH;
+     str->str_u.str_stab = stab;
+     if (str->str_ptr) {
+ 	Safefree(str->str_ptr);
+ 	str->str_ptr = Nullch;
+ 	str->str_len = 0;
+     }
+     str->str_ptr = (char*)stab_hash(stab);
+     (void)apush(savestack,str); /* save hash ptr */
+     stab_xhash(stab) = Null(HASH*);
+     return stab_xhash(hadd(stab));
+ }
+ 
+ void
+ saveitem(item)
+ register STR *item;
+ {
+     register STR *str;
+ 
+     (void)apush(savestack,item);		/* remember the pointer */
+     str = Str_new(12,0);
+     str_sset(str,item);
+     (void)apush(savestack,str);			/* remember the value */
+ }
+ 
+ void
+ saveint(intp)
+ int *intp;
+ {
+     register STR *str;
+ 
+     str = Str_new(13,0);
+     str->str_state = SS_SINT;
+     str->str_u.str_useful = (long)*intp;	/* remember value */
+     if (str->str_ptr) {
+ 	Safefree(str->str_ptr);
+ 	str->str_len = 0;
+     }
+     str->str_ptr = (char*)intp;		/* remember pointer */
+     (void)apush(savestack,str);
+ }
+ 
+ void
+ savelong(longp)
+ long *longp;
+ {
+     register STR *str;
+ 
+     str = Str_new(14,0);
+     str->str_state = SS_SLONG;
+     str->str_u.str_useful = *longp;		/* remember value */
+     if (str->str_ptr) {
+ 	Safefree(str->str_ptr);
+ 	str->str_len = 0;
+     }
+     str->str_ptr = (char*)longp;		/* remember pointer */
+     (void)apush(savestack,str);
+ }
+ 
+ void
+ savesptr(sptr)
+ STR **sptr;
+ {
+     register STR *str;
+ 
+     str = Str_new(15,0);
+     str->str_state = SS_SSTRP;
+     str->str_magic = *sptr;		/* remember value */
+     if (str->str_ptr) {
+ 	Safefree(str->str_ptr);
+ 	str->str_len = 0;
+     }
+     str->str_ptr = (char*)sptr;		/* remember pointer */
+     (void)apush(savestack,str);
+ }
+ 
+ void
+ savenostab(stab)
+ STAB *stab;
+ {
+     register STR *str;
+ 
+     str = Str_new(16,0);
+     str->str_state = SS_SNSTAB;
+     str->str_magic = (STR*)stab;	/* remember which stab to free */
+     (void)apush(savestack,str);
+ }
+ 
+ void
+ savehptr(hptr)
+ HASH **hptr;
+ {
+     register STR *str;
+ 
+     str = Str_new(17,0);
+     str->str_state = SS_SHPTR;
+     str->str_u.str_hash = *hptr;	/* remember value */
+     if (str->str_ptr) {
+ 	Safefree(str->str_ptr);
+ 	str->str_len = 0;
+     }
+     str->str_ptr = (char*)hptr;		/* remember pointer */
+     (void)apush(savestack,str);
+ }
+ 
+ void
+ saveaptr(aptr)
+ ARRAY **aptr;
+ {
+     register STR *str;
+ 
+     str = Str_new(17,0);
+     str->str_state = SS_SAPTR;
+     str->str_u.str_array = *aptr;	/* remember value */
+     if (str->str_ptr) {
+ 	Safefree(str->str_ptr);
+ 	str->str_len = 0;
+     }
+     str->str_ptr = (char*)aptr;		/* remember pointer */
+     (void)apush(savestack,str);
+ }
+ 
+ void
+ savelist(sarg,maxsarg)
+ register STR **sarg;
+ int maxsarg;
+ {
+     register STR *str;
+     register int i;
+ 
+     for (i = 1; i <= maxsarg; i++) {
+ 	(void)apush(savestack,sarg[i]);		/* remember the pointer */
+ 	str = Str_new(18,0);
+ 	str_sset(str,sarg[i]);
+ 	(void)apush(savestack,str);			/* remember the value */
+ 	sarg[i]->str_u.str_useful = -1;
+     }
+ }
+ 
+ void
+ restorelist(base)
+ int base;
+ {
+     register STR *str;
+     register STR *value;
+     register STAB *stab;
+ 
+     if (base < -1)
+ 	fatal("panic: corrupt saved stack index");
+     while (savestack->ary_fill > base) {
+ 	value = apop(savestack);
+ 	switch (value->str_state) {
+ 	case SS_NORM:				/* normal string */
+ 	case SS_INCR:
+ 	    str = apop(savestack);
+ 	    str_replace(str,value);
+ 	    STABSET(str);
+ 	    break;
+ 	case SS_SARY:				/* array reference */
+ 	    stab = value->str_u.str_stab;
+ 	    afree(stab_xarray(stab));
+ 	    stab_xarray(stab) = (ARRAY*)value->str_ptr;
+ 	    value->str_ptr = Nullch;
+ 	    str_free(value);
+ 	    break;
+ 	case SS_SHASH:				/* hash reference */
+ 	    stab = value->str_u.str_stab;
+ 	    (void)hfree(stab_xhash(stab), FALSE);
+ 	    stab_xhash(stab) = (HASH*)value->str_ptr;
+ 	    value->str_ptr = Nullch;
+ 	    str_free(value);
+ 	    break;
+ 	case SS_SINT:				/* int reference */
+ 	    *((int*)value->str_ptr) = (int)value->str_u.str_useful;
+ 	    value->str_ptr = Nullch;
+ 	    str_free(value);
+ 	    break;
+ 	case SS_SLONG:				/* long reference */
+ 	    *((long*)value->str_ptr) = value->str_u.str_useful;
+ 	    value->str_ptr = Nullch;
+ 	    str_free(value);
+ 	    break;
+ 	case SS_SSTRP:				/* STR* reference */
+ 	    *((STR**)value->str_ptr) = value->str_magic;
+ 	    value->str_magic = Nullstr;
+ 	    value->str_ptr = Nullch;
+ 	    str_free(value);
+ 	    break;
+ 	case SS_SHPTR:				/* HASH* reference */
+ 	    *((HASH**)value->str_ptr) = value->str_u.str_hash;
+ 	    value->str_ptr = Nullch;
+ 	    str_free(value);
+ 	    break;
+ 	case SS_SAPTR:				/* ARRAY* reference */
+ 	    *((ARRAY**)value->str_ptr) = value->str_u.str_array;
+ 	    value->str_ptr = Nullch;
+ 	    str_free(value);
+ 	    break;
+ 	case SS_SNSTAB:
+ 	    stab = (STAB*)value->str_magic;
+ 	    value->str_magic = Nullstr;
+ 	    (void)stab_clear(stab);
+ 	    str_free(value);
+ 	    break;
+ 	case SS_SCSV:				/* callsave structure */
+ 	    {
+ 		CSV *csv = (CSV*) value->str_ptr;
+ 
+ 		curcmd = csv->curcmd;
+ 		curcsv = csv->curcsv;
+ 		csv->sub->depth = csv->depth;
+ 		if (csv->hasargs) {		/* put back old @_ */
+ 		    afree(csv->argarray);
+ 		    stab_xarray(defstab) = csv->savearray;
+ 		}
+ 		str_free(value);
+ 	    }
+ 	    break;
+ 	default:
+ 	    fatal("panic: restorelist inconsistency");
+ 	}
+     }
+ }
+ 
+ #ifdef DEBUGGING
+ void
+ grow_dlevel()
+ {
+     dlmax += 128;
+     Renew(debname, dlmax, char);
+     Renew(debdelim, dlmax, char);
+ }
+ #endif


Index: llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/cmd.h
diff -c /dev/null llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/cmd.h:1.1.2.1
*** /dev/null	Mon Mar  1 17:59:23 2004
--- llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/cmd.h	Mon Mar  1 17:59:12 2004
***************
*** 0 ****
--- 1,173 ----
+ /* $Header: /home/vadve/shared/PublicCVS/llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/cmd.h,v 1.1.2.1 2004/03/01 23:59:12 brukman Exp $
+  *
+  *    Copyright (c) 1989, Larry Wall
+  *
+  *    You may distribute under the terms of the GNU General Public License
+  *    as specified in the README file that comes with the perl 3.0 kit.
+  *
+  * $Log: cmd.h,v $
+  * Revision 1.1.2.1  2004/03/01 23:59:12  brukman
+  * Merge from trunk
+  *
+  * Revision 1.1  2004/02/17 22:21:15  criswell
+  * Initial commit of the perl Malloc Benchmark.  I've cheated a little by
+  * generating the yacc output files and committing them directly, but it was
+  * easier than disabling the Bison Voodoo that gets executed by default.
+  *
+  * Revision 4.0  91/03/20  01:04:34  lwall
+  * 4.0 baseline.
+  * 
+  */
+ 
+ #define C_NULL 0
+ #define C_IF 1
+ #define C_ELSE 2
+ #define C_WHILE 3
+ #define C_BLOCK 4
+ #define C_EXPR 5
+ #define C_NEXT 6
+ #define C_ELSIF 7	/* temporary--turns into an IF + ELSE */
+ #define C_CSWITCH 8	/* created by switch optimization in block_head() */
+ #define C_NSWITCH 9	/* likewise */
+ 
+ #ifdef DEBUGGING
+ #ifndef DOINIT
+ extern char *cmdname[];
+ #else
+ char *cmdname[] = {
+     "NULL",
+     "IF",
+     "ELSE",
+     "WHILE",
+     "BLOCK",
+     "EXPR",
+     "NEXT",
+     "ELSIF",
+     "CSWITCH",
+     "NSWITCH",
+     "10"
+ };
+ #endif
+ #endif /* DEBUGGING */
+ 
+ #define CF_OPTIMIZE 077	/* type of optimization */
+ #define CF_FIRSTNEG 0100/* conditional is ($register NE 'string') */
+ #define CF_NESURE 0200	/* if short doesn't match we're sure */
+ #define CF_EQSURE 0400	/* if short does match we're sure */
+ #define CF_COND	01000	/* test c_expr as conditional first, if not null. */
+ 			/* Set for everything except do {} while currently */
+ #define CF_LOOP 02000	/* loop on the c_expr conditional (loop modifiers) */
+ #define CF_INVERT 04000	/* it's an "unless" or an "until" */
+ #define CF_ONCE 010000	/* we've already pushed the label on the stack */
+ #define CF_FLIP 020000	/* on a match do flipflop */
+ #define CF_TERM 040000	/* value of this cmd might be returned */
+ #define CF_DBSUB 0100000 /* this is an inserted cmd for debugging */
+ 
+ #define CFT_FALSE 0	/* c_expr is always false */
+ #define CFT_TRUE 1	/* c_expr is always true */
+ #define CFT_REG 2	/* c_expr is a simple register */
+ #define CFT_ANCHOR 3	/* c_expr is an anchored search /^.../ */
+ #define CFT_STROP 4	/* c_expr is a string comparison */
+ #define CFT_SCAN 5	/* c_expr is an unanchored search /.../ */
+ #define CFT_GETS 6	/* c_expr is <filehandle> */
+ #define CFT_EVAL 7	/* c_expr is not optimized, so call eval() */
+ #define CFT_UNFLIP 8	/* 2nd half of range not optimized */
+ #define CFT_CHOP 9	/* c_expr is a chop on a register */
+ #define CFT_ARRAY 10	/* this is a foreach loop */
+ #define CFT_INDGETS 11	/* c_expr is <$variable> */
+ #define CFT_NUMOP 12	/* c_expr is a numeric comparison */
+ #define CFT_CCLASS 13	/* c_expr must start with one of these characters */
+ #define CFT_D0 14	/* no special breakpoint at this line */
+ #define CFT_D1 15	/* possible special breakpoint at this line */
+ 
+ #ifdef DEBUGGING
+ #ifndef DOINIT
+ extern char *cmdopt[];
+ #else
+ char *cmdopt[] = {
+     "FALSE",
+     "TRUE",
+     "REG",
+     "ANCHOR",
+     "STROP",
+     "SCAN",
+     "GETS",
+     "EVAL",
+     "UNFLIP",
+     "CHOP",
+     "ARRAY",
+     "INDGETS",
+     "NUMOP",
+     "CCLASS",
+     "14"
+ };
+ #endif
+ #endif /* DEBUGGING */
+ 
+ struct acmd {
+     STAB	*ac_stab;	/* a symbol table entry */
+     ARG		*ac_expr;	/* any associated expression */
+ };
+ 
+ struct ccmd {
+     CMD		*cc_true;	/* normal code to do on if and while */
+     CMD		*cc_alt;	/* else cmd ptr or continue code */
+ };
+ 
+ struct scmd {
+     CMD		**sc_next;	/* array of pointers to commands */
+     short	sc_offset;	/* first value - 1 */
+     short	sc_max;		/* last value + 1 */
+ };
+ 
+ struct cmd {
+     CMD		*c_next;	/* the next command at this level */
+     ARG		*c_expr;	/* conditional expression */
+     CMD		*c_head;	/* head of this command list */
+     STR		*c_short;	/* string to match as shortcut */
+     STAB	*c_stab;	/* a symbol table entry, mostly for fp */
+     SPAT	*c_spat;	/* pattern used by optimization */
+     char	*c_label;	/* label for this construct */
+     union ucmd {
+ 	struct acmd acmd;	/* normal command */
+ 	struct ccmd ccmd;	/* compound command */
+ 	struct scmd scmd;	/* switch command */
+     } ucmd;
+     short	c_slen;		/* len of c_short, if not null */
+     VOLATILE short c_flags;	/* optimization flags--see above */
+     HASH	*c_stash;	/* package line was compiled in */
+     STAB	*c_filestab;	/* file the following line # is from */
+     line_t      c_line;         /* line # of this command */
+     char	c_type;		/* what this command does */
+ };
+ 
+ #define Nullcmd Null(CMD*)
+ #define Nullcsv Null(CSV*)
+ 
+ EXT CMD * VOLATILE main_root INIT(Nullcmd);
+ EXT CMD * VOLATILE eval_root INIT(Nullcmd);
+ 
+ EXT CMD compiling;
+ EXT CMD * VOLATILE curcmd INIT(&compiling);
+ EXT CSV * VOLATILE curcsv INIT(Nullcsv);
+ 
+ struct callsave {
+     SUBR *sub;
+     STAB *stab;
+     CSV *curcsv;
+     CMD *curcmd;
+     ARRAY *savearray;
+     ARRAY *argarray;
+     long depth;
+     int wantarray;
+     char hasargs;
+ };
+ 
+ struct compcmd {
+     CMD *comp_true;
+     CMD *comp_alt;
+ };
+ 
+ void opt_arg();
+ void evalstatic();
+ int cmd_exec();


Index: llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/config.h
diff -c /dev/null llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/config.h:1.1.2.1
*** /dev/null	Mon Mar  1 17:59:23 2004
--- llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/config.h	Mon Mar  1 17:59:12 2004
***************
*** 0 ****
--- 1,823 ----
+ #ifndef config_h
+ #define config_h
+ /* config.h
+  * This file was produced by running the config.h.SH script, which
+  * gets its values from config.sh, which is generally produced by
+  * running Configure.
+  *
+  * Feel free to modify any of this as the need arises.  Note, however,
+  * that running config.h.SH again will wipe out any changes you've made.
+  * For a more permanent change edit config.sh and rerun config.h.SH.
+  */
+ 
+ 
+ /* EUNICE
+  *	This symbol, if defined, indicates that the program is being compiled
+  *	under the EUNICE package under VMS.  The program will need to handle
+  *	things like files that don't go away the first time you unlink them,
+  *	due to version numbering.  It will also need to compensate for lack
+  *	of a respectable link() command.
+  */
+ /* VMS
+  *	This symbol, if defined, indicates that the program is running under
+  *	VMS.  It is currently only set in conjunction with the EUNICE symbol.
+  */
+ /*#undef	EUNICE		/**/
+ /*#undef	VMS		/**/
+ 
+ /* ALIGNBYTES
+  *	This symbol contains the number of bytes required to align a double.
+  *	Usual values are 2, 4, and 8.
+  */
+ #define ALIGNBYTES 8		/**/
+ 
+ /* BIN
+  *	This symbol holds the name of the directory in which the user wants
+  *	to keep publicly executable images for the package in question.  It
+  *	is most often a local directory such as /usr/local/bin.
+  */
+ #define BIN "/usr/local/bin"             /**/
+ 
+ /* BYTEORDER
+  *	This symbol contains an encoding of the order of bytes in a long.
+  *	Usual values (in octal) are 01234, 04321, 02143, 03412...
+  */
+ #define BYTEORDER 0x4321		/**/
+ 
+ /* CPPSTDIN
+  *	This symbol contains the first part of the string which will invoke
+  *	the C preprocessor on the standard input and produce to standard
+  *	output.	 Typical value of "cc -E" or "/lib/cpp".
+  */
+ /* CPPMINUS
+  *	This symbol contains the second part of the string which will invoke
+  *	the C preprocessor on the standard input and produce to standard
+  *	output.  This symbol will have the value "-" if CPPSTDIN needs a minus
+  *	to specify standard input, otherwise the value is "".
+  */
+ #define CPPSTDIN "/usr/local/lib/gcc-cpp"
+ #define CPPMINUS ""
+ 
+ /* HAS_BCMP
+  *	This symbol, if defined, indicates that the bcmp routine is available
+  *	to compare blocks of memory.  If undefined, use memcmp.  If that's
+  *	not available, roll your own.
+  */
+ #define	HAS_BCMP		/**/
+ 
+ /* HAS_BCOPY
+  *	This symbol, if defined, indicates that the bcopy routine is available
+  *	to copy blocks of memory.  Otherwise you should probably use memcpy().
+  */
+ #define	HAS_BCOPY		/**/
+ 
+ /* HAS_BZERO
+  *	This symbol, if defined, indicates that the bzero routine is available
+  *	to zero blocks of memory.  Otherwise you should probably use memset()
+  *	or roll your own.
+  */
+ #define	HAS_BZERO		/**/
+ 
+ /* CASTNEGFLOAT
+  *	This symbol, if defined, indicates that this C compiler knows how to
+  *	cast negative or large floating point numbers to unsigned longs, ints
+  *	and shorts.
+  */
+ /* CASTFLAGS
+  *	This symbol contains flags that say what difficulties the compiler
+  *	has casting odd floating values to unsigned long:
+  *		1 = couldn't cast < 0
+  *		2 = couldn't cast >= 0x80000000
+  */
+ #define	CASTNEGFLOAT	/**/
+ #define	CASTFLAGS 0	/**/
+ 
+ /* CHARSPRINTF
+  *	This symbol is defined if this system declares "char *sprintf()" in
+  *	stdio.h.  The trend seems to be to declare it as "int sprintf()".  It
+  *	is up to the package author to declare sprintf correctly based on the
+  *	symbol.
+  */
+ #define	CHARSPRINTF 	/**/
+ 
+ /* HAS_CHSIZE
+  *	This symbol, if defined, indicates that the chsize routine is available
+  *	to truncate files.  You might need a -lx to get this routine.
+  */
+ /*#undef	HAS_CHSIZE		/**/
+ 
+ /* HAS_CRYPT
+  *	This symbol, if defined, indicates that the crypt routine is available
+  *	to encrypt passwords and the like.
+  */
+ #define	HAS_CRYPT		/**/
+ 
+ /* CSH
+  *	This symbol, if defined, indicates that the C-shell exists.
+  *	If defined, contains the full pathname of csh.
+  */
+ /* #define CSH "/bin/csh"		*/
+ 
+ /* DOSUID
+  *	This symbol, if defined, indicates that the C program should
+  *	check the script that it is executing for setuid/setgid bits, and
+  *	attempt to emulate setuid/setgid on systems that have disabled
+  *	setuid #! scripts because the kernel can't do it securely.
+  *	It is up to the package designer to make sure that this emulation
+  *	is done securely.  Among other things, it should do an fstat on
+  *	the script it just opened to make sure it really is a setuid/setgid
+  *	script, it should make sure the arguments passed correspond exactly
+  *	to the argument on the #! line, and it should not trust any
+  *	subprocesses to which it must pass the filename rather than the
+  *	file descriptor of the script to be executed.
+  */
+ /*#undef DOSUID		/**/
+ 
+ /* HAS_DUP2
+  *	This symbol, if defined, indicates that the dup2 routine is available
+  *	to dup file descriptors.  Otherwise you should use dup().
+  */
+ #define	HAS_DUP2		/**/
+ 
+ /* HAS_FCHMOD
+  *	This symbol, if defined, indicates that the fchmod routine is available
+  *	to change mode of opened files.  If unavailable, use chmod().
+  */
+ #define	HAS_FCHMOD		/**/
+ 
+ /* HAS_FCHOWN
+  *	This symbol, if defined, indicates that the fchown routine is available
+  *	to change ownership of opened files.  If unavailable, use chown().
+  */
+ #define	HAS_FCHOWN		/**/
+ 
+ /* HAS_FCNTL
+  *	This symbol, if defined, indicates to the C program that
+  *	the fcntl() function exists.
+  */
+ #define	HAS_FCNTL		/**/
+ 
+ /* FLEXFILENAMES
+  *	This symbol, if defined, indicates that the system supports filenames
+  *	longer than 14 characters.
+  */
+ #define	FLEXFILENAMES		/**/
+ 
+ /* HAS_FLOCK
+  *	This symbol, if defined, indicates that the flock() routine is
+  *	available to do file locking.
+  */
+ #define	HAS_FLOCK		/**/
+ 
+ /* HAS_GETGROUPS
+  *	This symbol, if defined, indicates that the getgroups() routine is
+  *	available to get the list of process groups.  If unavailable, multiple
+  *	groups are probably not supported.
+  */
+ #define	HAS_GETGROUPS		/**/
+ 
+ /* HAS_GETHOSTENT
+  *	This symbol, if defined, indicates that the gethostent() routine is
+  *	available to lookup host names in some data base or other.
+  */
+ /*#undef	HAS_GETHOSTENT		/**/
+ 
+ /* HAS_GETPGRP
+  *	This symbol, if defined, indicates that the getpgrp() routine is
+  *	available to get the current process group.
+  */
+ #define	HAS_GETPGRP		/**/
+ 
+ /* HAS_GETPGRP2
+  *	This symbol, if defined, indicates that the getpgrp2() (as in DG/UX)
+  *	routine is available to get the current process group.
+  */
+ /*#undef	HAS_GETPGRP2		/**/
+ 
+ /* HAS_GETPRIORITY
+  *	This symbol, if defined, indicates that the getpriority() routine is
+  *	available to get a process's priority.
+  */
+ #define	HAS_GETPRIORITY		/**/
+ 
+ /* HAS_HTONS
+  *	This symbol, if defined, indicates that the htons routine (and friends)
+  *	are available to do network order byte swapping.
+  */
+ /* HAS_HTONL
+  *	This symbol, if defined, indicates that the htonl routine (and friends)
+  *	are available to do network order byte swapping.
+  */
+ /* HAS_NTOHS
+  *	This symbol, if defined, indicates that the ntohs routine (and friends)
+  *	are available to do network order byte swapping.
+  */
+ /* HAS_NTOHL
+  *	This symbol, if defined, indicates that the ntohl routine (and friends)
+  *	are available to do network order byte swapping.
+  */
+ #define	HAS_HTONS	/**/
+ #define	HAS_HTONL	/**/
+ #define	HAS_NTOHS	/**/
+ #define	HAS_NTOHL	/**/
+ 
+ /* index
+  *	This preprocessor symbol is defined, along with rindex, if the system
+  *	uses the strchr and strrchr routines instead.
+  */
+ /* rindex
+  *	This preprocessor symbol is defined, along with index, if the system
+  *	uses the strchr and strrchr routines instead.
+  */
+ /*#undef	index strchr	/* cultural */
+ /*#undef	rindex strrchr	/*  differences? */
+ 
+ /* HAS_KILLPG
+  *	This symbol, if defined, indicates that the killpg routine is available
+  *	to kill process groups.  If unavailable, you probably should use kill
+  *	with a negative process number.
+  */
+ #define	HAS_KILLPG		/**/
+ 
+ /* HAS_LSTAT
+  *	This symbol, if defined, indicates that the lstat() routine is
+  *	available to stat symbolic links.
+  */
+ #define	HAS_LSTAT		/**/
+ 
+ /* HAS_MEMCMP
+  *	This symbol, if defined, indicates that the memcmp routine is available
+  *	to compare blocks of memory.  If undefined, roll your own.
+  */
+ #define	HAS_MEMCMP		/**/
+ 
+ /* HAS_MEMCPY
+  *	This symbol, if defined, indicates that the memcpy routine is available
+  *	to copy blocks of memory.  Otherwise you should probably use bcopy().
+  *	If neither is defined, roll your own.
+  */
+ #define	HAS_MEMCPY		/**/
+ 
+ /* HAS_MKDIR
+  *	This symbol, if defined, indicates that the mkdir routine is available
+  *	to create directories.  Otherwise you should fork off a new process to
+  *	exec /bin/mkdir.
+  */
+ #define	HAS_MKDIR		/**/
+ 
+ /* HAS_MSG
+  *	This symbol, if defined, indicates that the entire msg*(2) library is
+  *	supported.
+  */
+ #define	HAS_MSG		/**/
+ 
+ /* HAS_MSGCTL
+  *	This symbol, if defined, indicates that the msgctl() routine is
+  *	available to stat symbolic links.
+  */
+ #define	HAS_MSGCTL		/**/
+ 
+ /* HAS_MSGGET
+  *	This symbol, if defined, indicates that the msgget() routine is
+  *	available to stat symbolic links.
+  */
+ #define	HAS_MSGGET		/**/
+ 
+ /* HAS_MSGRCV
+  *	This symbol, if defined, indicates that the msgrcv() routine is
+  *	available to stat symbolic links.
+  */
+ #define	HAS_MSGRCV		/**/
+ 
+ /* HAS_MSGSND
+  *	This symbol, if defined, indicates that the msgsnd() routine is
+  *	available to stat symbolic links.
+  */
+ #define	HAS_MSGSND		/**/
+ 
+ /* HAS_NDBM
+  *	This symbol, if defined, indicates that ndbm.h exists and should
+  *	be included.
+  */
+ /* #define	HAS_NDBM		*/
+ 
+ /* HAS_ODBM
+  *	This symbol, if defined, indicates that dbm.h exists and should
+  *	be included.
+  */
+ /* #define	HAS_ODBM		*/
+ 
+ /* HAS_OPEN3
+  *	This manifest constant lets the C program know that the three
+  *	argument form of open(2) is available.
+  */
+ #define	HAS_OPEN3		/**/
+ 
+ /* HAS_READDIR
+  *	This symbol, if defined, indicates that the readdir routine is available
+  *	from the C library to read directories.
+  */
+ #define	HAS_READDIR		/**/
+ 
+ /* HAS_RENAME
+  *	This symbol, if defined, indicates that the rename routine is available
+  *	to rename files.  Otherwise you should do the unlink(), link(), unlink()
+  *	trick.
+  */
+ #define	HAS_RENAME		/**/
+ 
+ /* HAS_RMDIR
+  *	This symbol, if defined, indicates that the rmdir routine is available
+  *	to remove directories.  Otherwise you should fork off a new process to
+  *	exec /bin/rmdir.
+  */
+ #define	HAS_RMDIR		/**/
+ 
+ /* HAS_SELECT
+  *	This symbol, if defined, indicates that the select() subroutine
+  *	exists.
+  */
+ #define	HAS_SELECT	/**/
+ 
+ /* HAS_SEM
+  *	This symbol, if defined, indicates that the entire sem*(2) library is
+  *	supported.
+  */
+ #define	HAS_SEM		/**/
+ 
+ /* HAS_SEMCTL
+  *	This symbol, if defined, indicates that the semctl() routine is
+  *	available to stat symbolic links.
+  */
+ #define	HAS_SEMCTL		/**/
+ 
+ /* HAS_SEMGET
+  *	This symbol, if defined, indicates that the semget() routine is
+  *	available to stat symbolic links.
+  */
+ #define	HAS_SEMGET		/**/
+ 
+ /* HAS_SEMOP
+  *	This symbol, if defined, indicates that the semop() routine is
+  *	available to stat symbolic links.
+  */
+ #define	HAS_SEMOP		/**/
+ 
+ /* HAS_SETEGID
+  *	This symbol, if defined, indicates that the setegid routine is available
+  *	to change the effective gid of the current program.
+  */
+ #define	HAS_SETEGID		/**/
+ 
+ /* HAS_SETEUID
+  *	This symbol, if defined, indicates that the seteuid routine is available
+  *	to change the effective uid of the current program.
+  */
+ #define	HAS_SETEUID		/**/
+ 
+ /* HAS_SETPGRP
+  *	This symbol, if defined, indicates that the setpgrp() routine is
+  *	available to set the current process group.
+  */
+ #define	HAS_SETPGRP		/**/
+ 
+ /* HAS_SETPGRP2
+  *	This symbol, if defined, indicates that the setpgrp2() (as in DG/UX)
+  *	routine is available to set the current process group.
+  */
+ /*#undef	HAS_SETPGRP2		/**/
+ 
+ /* HAS_SETPRIORITY
+  *	This symbol, if defined, indicates that the setpriority() routine is
+  *	available to set a process's priority.
+  */
+ #define	HAS_SETPRIORITY		/**/
+ 
+ /* HAS_SETREGID
+  *	This symbol, if defined, indicates that the setregid routine is
+  *	available to change the real and effective gid of the current program.
+  */
+ /* HAS_SETRESGID
+  *	This symbol, if defined, indicates that the setresgid routine is
+  *	available to change the real, effective and saved gid of the current
+  *	program.
+  */
+ #define	HAS_SETREGID		/**/
+ /*#undef	HAS_SETRESGID		/**/
+ 
+ /* HAS_SETREUID
+  *	This symbol, if defined, indicates that the setreuid routine is
+  *	available to change the real and effective uid of the current program.
+  */
+ /* HAS_SETRESUID
+  *	This symbol, if defined, indicates that the setresuid routine is
+  *	available to change the real, effective and saved uid of the current
+  *	program.
+  */
+ #define	HAS_SETREUID		/**/
+ /*#undef	HAS_SETRESUID		/**/
+ 
+ /* HAS_SETRGID
+  *	This symbol, if defined, indicates that the setrgid routine is available
+  *	to change the real gid of the current program.
+  */
+ /* #define	HAS_SETRGID		*/
+ 
+ /* HAS_SETRUID
+  *	This symbol, if defined, indicates that the setruid routine is available
+  *	to change the real uid of the current program.
+  */
+ /* #define	HAS_SETRUID		*/
+ 
+ /* HAS_SHM
+  *	This symbol, if defined, indicates that the entire shm*(2) library is
+  *	supported.
+  */
+ #define	HAS_SHM		/**/
+ 
+ /* HAS_SHMAT
+  *	This symbol, if defined, indicates that the shmat() routine is
+  *	available to stat symbolic links.
+  */
+ #define	HAS_SHMAT		/**/
+ 
+ /* HAS_SHMCTL
+  *	This symbol, if defined, indicates that the shmctl() routine is
+  *	available to stat symbolic links.
+  */
+ #define	HAS_SHMCTL		/**/
+ 
+ /* HAS_SHMDT
+  *	This symbol, if defined, indicates that the shmdt() routine is
+  *	available to stat symbolic links.
+  */
+ #define	HAS_SHMDT		/**/
+ 
+ /* HAS_SHMGET
+  *	This symbol, if defined, indicates that the shmget() routine is
+  *	available to stat symbolic links.
+  */
+ #define	HAS_SHMGET		/**/
+ 
+ /* HAS_SOCKET
+  *	This symbol, if defined, indicates that the BSD socket interface is
+  *	supported.
+  */
+ /* HAS_SOCKETPAIR
+  *	This symbol, if defined, indicates that the BSD socketpair call is
+  *	supported.
+  */
+ /* OLDSOCKET
+  *	This symbol, if defined, indicates that the 4.1c BSD socket interface
+  *	is supported instead of the 4.2/4.3 BSD socket interface.
+  */
+ #define	HAS_SOCKET		/**/
+ 
+ #define	HAS_SOCKETPAIR	/**/
+ 
+ /*#undef	OLDSOCKET	/**/
+ 
+ /* STATBLOCKS
+  *	This symbol is defined if this system has a stat structure declaring
+  *	st_blksize and st_blocks.
+  */
+ #define	STATBLOCKS 	/**/
+ 
+ /* STDSTDIO
+  *	This symbol is defined if this system has a FILE structure declaring
+  *	_ptr and _cnt in stdio.h.
+  */
+ /*#define	STDSTDIO 	/**/
+   
+ /* STRUCTCOPY
+  *	This symbol, if defined, indicates that this C compiler knows how
+  *	to copy structures.  If undefined, you'll need to use a block copy
+  *	routine of some sort instead.
+  */
+ #define	STRUCTCOPY	/**/
+ 
+ /* HAS_STRERROR
+  *	This symbol, if defined, indicates that the strerror() routine is
+  *	available to translate error numbers to strings.
+  */
+ /*#undef	HAS_STRERROR		/**/
+ 
+ /* HAS_SYMLINK
+  *	This symbol, if defined, indicates that the symlink routine is available
+  *	to create symbolic links.
+  */
+ #define	HAS_SYMLINK		/**/
+ 
+ /* HAS_SYSCALL
+  *	This symbol, if defined, indicates that the syscall routine is available
+  *	to call arbitrary system calls.  If undefined, that's tough.
+  */
+ #define	HAS_SYSCALL		/**/
+ 
+ /* HAS_TRUNCATE
+  *	This symbol, if defined, indicates that the truncate routine is
+  *	available to truncate files.
+  */
+ #define	HAS_TRUNCATE		/**/
+ 
+ /* HAS_VFORK
+  *	This symbol, if defined, indicates that vfork() exists.
+  */
+ #define	HAS_VFORK	/**/
+ 
+ /* VOIDSIG
+  *	This symbol is defined if this system declares "void (*signal())()" in
+  *	signal.h.  The old way was to declare it as "int (*signal())()".  It
+  *	is up to the package author to declare things correctly based on the
+  *	symbol.
+  */
+ /* TO_SIGNAL
+  *	This symbol's value is either "void" or "int", corresponding to the
+  *	appropriate return "type" of a signal handler.  Thus, one can declare
+  *	a signal handler using "TO_SIGNAL (*handler())()", and define the
+  *	handler using "TO_SIGNAL handler(sig)".
+  */
+ #define	VOIDSIG 	/**/
+ #define	TO_SIGNAL	void 	/**/
+ 
+ /* HASVOLATILE
+  *	This symbol, if defined, indicates that this C compiler knows about
+  *	the volatile declaration.
+  */
+ #define	HASVOLATILE	/**/
+ 
+ /* HAS_VPRINTF
+  *	This symbol, if defined, indicates that the vprintf routine is available
+  *	to printf with a pointer to an argument list.  If unavailable, you
+  *	may need to write your own, probably in terms of _doprnt().
+  */
+ /* CHARVSPRINTF
+  *	This symbol is defined if this system has vsprintf() returning type
+  *	(char*).  The trend seems to be to declare it as "int vsprintf()".  It
+  *	is up to the package author to declare vsprintf correctly based on the
+  *	symbol.
+  */
+ #define	HAS_VPRINTF	/**/
+ #define	CHARVSPRINTF 	/**/
+ 
+ /* HAS_WAIT4
+  *	This symbol, if defined, indicates that wait4() exists.
+  */
+ /*#define	HAS_WAIT4	/**/
+ 
+ /* HAS_WAITPID
+  *	This symbol, if defined, indicates that waitpid() exists.
+  */
+ #define	HAS_WAITPID	/**/
+ 
+ /* GIDTYPE
+  *	This symbol has a value like gid_t, int, ushort, or whatever type is
+  *	used to declare group ids in the kernel.
+  */
+ #define GIDTYPE gid_t		/**/
+ 
+ /* GROUPSTYPE
+  *	This symbol has a value like gid_t, int, ushort, or whatever type is
+  *	used in the return value of getgroups().
+  */
+ #define GROUPSTYPE int		/**/
+ 
+ /* I_FCNTL
+  *	This manifest constant tells the C program to include <fcntl.h>.
+  */
+ /*#undef	I_FCNTL	/**/
+ 
+ /* I_GDBM
+  *	This symbol, if defined, indicates that gdbm.h exists and should
+  *	be included.
+  */
+ /*#undef	I_GDBM		/**/
+ 
+ /* I_GRP
+  *	This symbol, if defined, indicates to the C program that it should
+  *	include grp.h.
+  */
+ #define	I_GRP		/**/
+ 
+ /* I_NETINET_IN
+  *	This symbol, if defined, indicates to the C program that it should
+  *	include netinet/in.h.
+  */
+ /* I_SYS_IN
+  *	This symbol, if defined, indicates to the C program that it should
+  *	include sys/in.h.
+  */
+ #define	I_NETINET_IN		/**/
+ /*#undef	I_SYS_IN		/**/
+ 
+ /* I_PWD
+  *	This symbol, if defined, indicates to the C program that it should
+  *	include pwd.h.
+  */
+ /* PWQUOTA
+  *	This symbol, if defined, indicates to the C program that struct passwd
+  *	contains pw_quota.
+  */
+ /* PWAGE
+  *	This symbol, if defined, indicates to the C program that struct passwd
+  *	contains pw_age.
+  */
+ /* PWCHANGE
+  *	This symbol, if defined, indicates to the C program that struct passwd
+  *	contains pw_change.
+  */
+ /* PWCLASS
+  *	This symbol, if defined, indicates to the C program that struct passwd
+  *	contains pw_class.
+  */
+ /* PWEXPIRE
+  *	This symbol, if defined, indicates to the C program that struct passwd
+  *	contains pw_expire.
+  */
+ /* PWCOMMENT
+  *	This symbol, if defined, indicates to the C program that struct passwd
+  *	contains pw_comment.
+  */
+ #define	I_PWD		/**/
+ /*#undef	PWQUOTA		*/
+ /* #define	PWAGE		*/
+ /*#undef	PWCHANGE	*/
+ /*#undef	PWCLASS		*/
+ /*#undef	PWEXPIRE	*/
+ /*#define	PWCOMMENT	*/
+ 
+ /* I_SYS_FILE
+  *	This manifest constant tells the C program to include <sys/file.h>.
+  */
+ #define	I_SYS_FILE	/**/
+ 
+ /* I_SYSIOCTL
+  *	This symbol, if defined, indicates that sys/ioctl.h exists and should
+  *	be included.
+  */
+ #define	I_SYSIOCTL		/**/
+ 
+ /* I_TIME
+  *	This symbol is defined if the program should include <time.h>.
+  */
+ /* I_SYS_TIME
+  *	This symbol is defined if the program should include <sys/time.h>.
+  */
+ /* SYSTIMEKERNEL
+  *	This symbol is defined if the program should include <sys/time.h>
+  *	with KERNEL defined.
+  */
+ /* I_SYS_SELECT
+  *	This symbol is defined if the program should include <sys/select.h>.
+  */
+ #define	I_TIME	 	/**/
+ #define	I_SYS_TIME 	/**/
+ /*#undef	SYSTIMEKERNEL 	/**/
+ /*#undef	I_SYS_SELECT 	/**/
+ 
+ /* I_UTIME
+  *	This symbol, if defined, indicates to the C program that it should
+  *	include utime.h.
+  */
+ #define	I_UTIME		/**/
+ 
+ /* I_VARARGS
+  *	This symbol, if defined, indicates to the C program that it should
+  *	include varargs.h.
+  */
+ /* #define	I_VARARGS		*/
+ 
+ /* I_VFORK
+  *	This symbol, if defined, indicates to the C program that it should
+  *	include vfork.h.
+  */
+ /*#define	I_VFORK		/**/
+ 
+ /* INTSIZE
+  *	This symbol contains the size of an int, so that the C preprocessor
+  *	can make decisions based on it.
+  */
+ #define INTSIZE 4		/**/
+ 
+ /* I_DIRENT
+  *	This symbol, if defined, indicates that the program should use the
+  *	P1003-style directory routines, and include <dirent.h>.
+  */
+ /* I_SYS_DIR
+  *	This symbol, if defined, indicates that the program should use the
+  *	directory functions by including <sys/dir.h>.
+  */
+ /* I_NDIR
+  *	This symbol, if defined, indicates that the program should include the
+  *	system's version of ndir.h, rather than the one with this package.
+  */
+ /* I_SYS_NDIR
+  *	This symbol, if defined, indicates that the program should include the
+  *	system's version of sys/ndir.h, rather than the one with this package.
+  */
+ /* I_MY_DIR
+  *	This symbol, if defined, indicates that the program should compile
+  *	the ndir.c code provided with the package.
+  */
+ /* DIRNAMLEN
+  *	This symbol, if defined, indicates to the C program that the length
+  *	of directory entry names is provided by a d_namlen field.  Otherwise
+  *	you need to do strlen() on the d_name field.
+  */
+ #define	I_DIRENT	/**/
+ /*#undef	I_SYS_DIR	/**/
+ /*#undef	I_NDIR		/**/
+ /*#undef	I_SYS_NDIR	/**/
+ /*#undef	I_MY_DIR	/**/
+ /*#undef	DIRNAMLEN	/**/
+ 
+ /* MALLOCPTRTYPE
+  *	This symbol defines the kind of ptr returned by malloc and realloc.
+  */
+ #define MALLOCPTRTYPE char         /**/
+ 
+ 
+ /* RANDBITS
+  *	This symbol contains the number of bits of random number the rand()
+  *	function produces.  Usual values are 15, 16, and 31.
+  */
+ #define RANDBITS 31		/**/
+ 
+ /* SCRIPTDIR
+  *	This symbol holds the name of the directory in which the user wants
+  *	to put publicly executable scripts for the package in question.  It
+  *	is often a directory that is mounted across diverse architectures.
+  */
+ #define SCRIPTDIR "/usr/local/bin"             /**/
+ 
+ /* SIG_NAME
+  *	This symbol contains an list of signal names in order.
+  */
+ #define SIG_NAME "ZERO","HUP","INT","QUIT","ILL","TRAP","ABRT","EMT","FPE","KILL","BUS","SEGV","SYS","PIPE","ALRM","TERM","URG","STOP","TSTP","CONT","CLD","TTIN","TTOU","IO","XCPU","XFSZ","VTALRM","PROF","WINCH","LOST","USR1","USR2"		/**/
+ 
+ /* STDCHAR
+  *	This symbol is defined to be the type of char used in stdio.h.
+  *	It has the values "unsigned char" or "char".
+  */
+ #define STDCHAR unsigned char	/**/
+ 
+ /* UIDTYPE
+  *	This symbol has a value like uid_t, int, ushort, or whatever type is
+  *	used to declare user ids in the kernel.
+  */
+ #define UIDTYPE uid_t		/**/
+ 
+ /* VOIDHAVE
+  *	This symbol indicates how much support of the void type is given by this
+  *	compiler.  What various bits mean:
+  *
+  *	    1 = supports declaration of void
+  *	    2 = supports arrays of pointers to functions returning void
+  *	    4 = supports comparisons between pointers to void functions and
+  *		    addresses of void functions
+  *
+  *	The package designer should define VOIDWANT to indicate the requirements
+  *	of the package.  This can be done either by #defining VOIDWANT before
+  *	including config.h, or by defining voidwant in Myinit.U.  If the level
+  *	of void support necessary is not present, config.h defines void to "int",
+  *	VOID to the empty string, and VOIDP to "char *".
+  */
+ /* void
+  *	This symbol is used for void casts.  On implementations which support
+  *	void appropriately, its value is "void".  Otherwise, its value maps
+  *	to "int".
+  */
+ /* VOID
+  *	This symbol's value is "void" if the implementation supports void
+  *	appropriately.  Otherwise, its value is the empty string.  The primary
+  *	use of this symbol is in specifying void parameter lists for function
+  *	prototypes.
+  */
+ /* VOIDP
+  *	This symbol is used for casting generic pointers.  On implementations
+  *	which support void appropriately, its value is "void *".  Otherwise,
+  *	its value is "char *".
+  */
+ #ifndef VOIDWANT
+ #define VOIDWANT 7
+ #endif
+ #define VOIDHAVE 7
+ #if (VOIDHAVE & VOIDWANT) != VOIDWANT
+ #define void int		/* is void to be avoided? */
+ #define VOID
+ #define VOIDP (char *)
+ #define M_VOID		/* Xenix strikes again */
+ #else
+ #define VOID void
+ #define VOIDP (void *)
+ #endif
+ 
+ /* PRIVLIB
+  *	This symbol contains the name of the private library for this package.
+  *	The library is private in the sense that it needn't be in anyone's
+  *	execution path, but it should be accessible by the world.  The program
+  *	should be prepared to do ~ expansion.
+  */
+ #define PRIVLIB "/usr/local/lib/perl"		/**/
+ 
+ #endif


Index: llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/config.sh
diff -c /dev/null llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/config.sh:1.1.2.1
*** /dev/null	Mon Mar  1 17:59:23 2004
--- llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/config.sh	Mon Mar  1 17:59:12 2004
***************
*** 0 ****
--- 1,256 ----
+ #!/bin/sh
+ # config.sh
+ # This file was produced by running the Configure script.
+ 
+ d_eunice='undef'
+ define='define'
+ eunicefix=':'
+ loclist='
+ cat
+ cp
+ echo
+ expr
+ grep
+ mkdir
+ mv
+ rm
+ sed
+ sort
+ tr
+ uniq
+ '
+ expr='/bin/expr'
+ sed='/bin/sed'
+ echo='/bin/echo'
+ cat='/bin/cat'
+ rm='/bin/rm'
+ mv='/bin/mv'
+ cp='/bin/cp'
+ tail=''
+ tr='/bin/tr'
+ mkdir='/bin/mkdir'
+ sort='/bin/sort'
+ uniq='/bin/uniq'
+ grep='/tile/users/zorn/bin/grep'
+ trylist='
+ Mcc
+ bison
+ cpp
+ csh
+ egrep
+ nroff
+ test
+ uname
+ yacc
+ '
+ test='test'
+ inews=''
+ egrep='/bin/egrep'
+ more=''
+ pg=''
+ Mcc='Mcc'
+ vi=''
+ mailx=''
+ mail=''
+ cpp='/usr/local/lib/gcc-cpp'
+ perl=''
+ emacs=''
+ ls=''
+ rmail=''
+ sendmail=''
+ shar=''
+ smail=''
+ tbl=''
+ troff=''
+ nroff='/bin/nroff'
+ uname='/bin/uname'
+ uuname=''
+ line=''
+ chgrp=''
+ chmod=''
+ lint=''
+ sleep=''
+ pr=''
+ tar=''
+ ln=''
+ lpr=''
+ lp=''
+ touch=''
+ make=''
+ date=''
+ csh='/bin/csh'
+ bash=''
+ ksh=''
+ lex=''
+ flex=''
+ bison='/cs/research/ben/SPARC/bin/bison'
+ Log='$Log'
+ Header='$Header'
+ Id='$Id'
+ lastuname=''
+ alignbytes='8'
+ bin='/usr/local/bin'
+ installbin='/usr/local/bin'
+ byteorder='4321'
+ contains='grep'
+ cppstdin='/usr/local/lib/gcc-cpp'
+ cppminus=''
+ d_bcmp='define'
+ d_bcopy='define'
+ d_bzero='define'
+ d_castneg='define'
+ castflags='0'
+ d_charsprf='define'
+ d_chsize='undef'
+ d_crypt='define'
+ cryptlib=''
+ d_csh='define'
+ d_dosuid='undef'
+ d_dup2='define'
+ d_fchmod='define'
+ d_fchown='define'
+ d_fcntl='define'
+ d_flexfnam='define'
+ d_flock='define'
+ d_getgrps='define'
+ d_gethent='undef'
+ d_getpgrp='define'
+ d_getpgrp2='undef'
+ d_getprior='define'
+ d_htonl='define'
+ d_index='undef'
+ d_killpg='define'
+ d_lstat='define'
+ d_memcmp='define'
+ d_memcpy='define'
+ d_mkdir='define'
+ d_msg='define'
+ d_msgctl='define'
+ d_msgget='define'
+ d_msgrcv='define'
+ d_msgsnd='define'
+ d_ndbm='define'
+ d_odbm='define'
+ d_open3='define'
+ d_readdir='define'
+ d_rename='define'
+ d_rmdir='define'
+ d_select='define'
+ d_sem='define'
+ d_semctl='define'
+ d_semget='define'
+ d_semop='define'
+ d_setegid='define'
+ d_seteuid='define'
+ d_setpgrp='define'
+ d_setpgrp2='undef'
+ d_setprior='define'
+ d_setregid='define'
+ d_setresgid='undef'
+ d_setreuid='define'
+ d_setresuid='undef'
+ d_setrgid='define'
+ d_setruid='define'
+ d_shm='define'
+ d_shmat='define'
+ d_shmctl='define'
+ d_shmdt='define'
+ d_shmget='define'
+ d_socket='define'
+ d_sockpair='define'
+ d_oldsock='undef'
+ socketlib=''
+ d_statblks='define'
+ d_stdstdio='define'
+ d_strctcpy='define'
+ d_strerror='undef'
+ d_symlink='define'
+ d_syscall='define'
+ d_truncate='define'
+ d_vfork='define'
+ d_voidsig='define'
+ d_tosignal='void'
+ d_volatile='define'
+ d_vprintf='define'
+ d_charvspr='define'
+ d_wait4='define'
+ d_waitpid='define'
+ gidtype='gid_t'
+ groupstype='int'
+ i_fcntl='undef'
+ i_gdbm='undef'
+ i_grp='define'
+ i_niin='define'
+ i_sysin='undef'
+ i_pwd='define'
+ d_pwquota='undef'
+ d_pwage='define'
+ d_pwchange='undef'
+ d_pwclass='undef'
+ d_pwexpire='undef'
+ d_pwcomment='define'
+ i_sys_file='define'
+ i_sysioctl='define'
+ i_time='undef'
+ i_sys_time='define'
+ i_sys_select='undef'
+ d_systimekernel='undef'
+ i_utime='define'
+ i_varargs='define'
+ i_vfork='define'
+ intsize='4'
+ libc='/usr/lib/libc.so.1.5.1'
+ nm_opts=''
+ libndir=''
+ i_my_dir='undef'
+ i_ndir='undef'
+ i_sys_ndir='undef'
+ i_dirent='define'
+ i_sys_dir='undef'
+ d_dirnamlen='undef'
+ ndirc=''
+ ndiro=''
+ mallocsrc='malloc.c'
+ mallocobj='malloc.o'
+ usemymalloc='y'
+ mallocptrtype='char'
+ mansrc='/usr/man/manl'
+ manext='l'
+ models='none'
+ split=''
+ small=''
+ medium=''
+ large=''
+ huge=''
+ optimize='-O'
+ ccflags='-g'
+ cppflags=' -D__GNUC__'
+ ldflags=''
+ cc='gcc'
+ libs='-lm'
+ n='-n'
+ c=''
+ package='perl'
+ randbits='31'
+ scriptdir='/usr/local/bin'
+ sig_name='ZERO HUP INT QUIT ILL TRAP ABRT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM URG STOP TSTP CONT CLD TTIN TTOU IO XCPU XFSZ VTALRM PROF WINCH LOST USR1 USR2'
+ spitshell='cat'
+ shsharp='true'
+ sharpbang='#!'
+ startsh='#!/bin/sh'
+ stdchar='unsigned char'
+ uidtype='uid_t'
+ usrinclude='/usr/include'
+ inclPath=''
+ void=''
+ voidhave='7'
+ voidwant='7'
+ w_localtim='1'
+ w_s_timevl='1'
+ w_s_tm='1'
+ yacc='/bin/yacc'
+ lib=''
+ privlib='/usr/local/lib/perl'
+ installprivlib='/usr/local/lib/perl'
+ CONFIG=true
+ PATCHLEVEL=3


Index: llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/cons.c
diff -c /dev/null llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/cons.c:1.1.2.1
*** /dev/null	Mon Mar  1 17:59:23 2004
--- llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/cons.c	Mon Mar  1 17:59:12 2004
***************
*** 0 ****
--- 1,1411 ----
+ /* $Header: /home/vadve/shared/PublicCVS/llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/cons.c,v 1.1.2.1 2004/03/01 23:59:12 brukman Exp $
+  *
+  *    Copyright (c) 1989, Larry Wall
+  *
+  *    You may distribute under the terms of the GNU General Public License
+  *    as specified in the README file that comes with the perl 3.0 kit.
+  *
+  * $Log: cons.c,v $
+  * Revision 1.1.2.1  2004/03/01 23:59:12  brukman
+  * Merge from trunk
+  *
+  * Revision 1.1  2004/02/17 22:21:15  criswell
+  * Initial commit of the perl Malloc Benchmark.  I've cheated a little by
+  * generating the yacc output files and committing them directly, but it was
+  * easier than disabling the Bison Voodoo that gets executed by default.
+  *
+  * Revision 4.0  91/03/20  01:05:51  lwall
+  * 4.0 baseline.
+  * 
+  */
+ 
+ #include "EXTERN.h"
+ #include "perl.h"
+ #include "perly.h"
+ 
+ extern char *tokename[];
+ extern int yychar;
+ 
+ static int cmd_tosave();
+ static int arg_tosave();
+ static int spat_tosave();
+ 
+ static bool saw_return;
+ 
+ SUBR *
+ make_sub(name,cmd)
+ char *name;
+ CMD *cmd;
+ {
+     register SUBR *sub;
+     STAB *stab = stabent(name,TRUE);
+ 
+     Newz(101,sub,1,SUBR);
+     if (stab_sub(stab)) {
+ 	if (dowarn) {
+ 	    CMD *oldcurcmd = curcmd;
+ 
+ 	    if (cmd)
+ 		curcmd = cmd;
+ 	    warn("Subroutine %s redefined",name);
+ 	    curcmd = oldcurcmd;
+ 	}
+ 	if (stab_sub(stab)->cmd) {
+ 	    cmd_free(stab_sub(stab)->cmd);
+ 	    stab_sub(stab)->cmd = Nullcmd;
+ 	    afree(stab_sub(stab)->tosave);
+ 	}
+ 	Safefree(stab_sub(stab));
+     }
+     stab_sub(stab) = sub;
+     sub->filestab = curcmd->c_filestab;
+     saw_return = FALSE;
+     tosave = anew(Nullstab);
+     tosave->ary_fill = 0;	/* make 1 based */
+     (void)cmd_tosave(cmd,FALSE);	/* this builds the tosave array */
+     sub->tosave = tosave;
+     if (saw_return) {
+ 	struct compcmd mycompblock;
+ 
+ 	mycompblock.comp_true = cmd;
+ 	mycompblock.comp_alt = Nullcmd;
+ 	cmd = add_label(savestr("_SUB_"),make_ccmd(C_BLOCK,Nullarg,mycompblock));
+ 	saw_return = FALSE;
+ 	cmd->c_flags |= CF_TERM;
+     }
+     sub->cmd = cmd;
+     if (perldb) {
+ 	STR *str;
+ 	STR *tmpstr = str_mortal(&str_undef);
+ 
+ 	sprintf(buf,"%s:%ld",stab_val(curcmd->c_filestab)->str_ptr,
+ 	  (long)subline);
+ 	str = str_make(buf,0);
+ 	str_cat(str,"-");
+ 	sprintf(buf,"%ld",(long)curcmd->c_line);
+ 	str_cat(str,buf);
+ 	name = str_get(subname);
+ 	stab_fullname(tmpstr,stab);
+ 	hstore(stab_xhash(DBsub), tmpstr->str_ptr, tmpstr->str_cur, str, 0);
+ 	str_set(subname,"main");
+     }
+     subline = 0;
+     return sub;
+ }
+ 
+ SUBR *
+ make_usub(name, ix, subaddr, filename)
+ char *name;
+ int ix;
+ int (*subaddr)();
+ char *filename;
+ {
+     register SUBR *sub;
+     STAB *stab = stabent(name,allstabs);
+ 
+     if (!stab)				/* unused function */
+ 	return Null(SUBR*);
+     Newz(101,sub,1,SUBR);
+     if (stab_sub(stab)) {
+ 	if (dowarn)
+ 	    warn("Subroutine %s redefined",name);
+ 	if (stab_sub(stab)->cmd) {
+ 	    cmd_free(stab_sub(stab)->cmd);
+ 	    stab_sub(stab)->cmd = Nullcmd;
+ 	    afree(stab_sub(stab)->tosave);
+ 	}
+ 	Safefree(stab_sub(stab));
+     }
+     stab_sub(stab) = sub;
+     sub->filestab = fstab(filename);
+     sub->usersub = subaddr;
+     sub->userindex = ix;
+     return sub;
+ }
+ 
+ make_form(stab,fcmd)
+ STAB *stab;
+ FCMD *fcmd;
+ {
+     if (stab_form(stab)) {
+ 	FCMD *tmpfcmd;
+ 	FCMD *nextfcmd;
+ 
+ 	for (tmpfcmd = stab_form(stab); tmpfcmd; tmpfcmd = nextfcmd) {
+ 	    nextfcmd = tmpfcmd->f_next;
+ 	    if (tmpfcmd->f_expr)
+ 		arg_free(tmpfcmd->f_expr);
+ 	    if (tmpfcmd->f_unparsed)
+ 		str_free(tmpfcmd->f_unparsed);
+ 	    if (tmpfcmd->f_pre)
+ 		Safefree(tmpfcmd->f_pre);
+ 	    Safefree(tmpfcmd);
+ 	}
+     }
+     stab_form(stab) = fcmd;
+ }
+ 
+ CMD *
+ block_head(tail)
+ register CMD *tail;
+ {
+     CMD *head;
+     register int opt;
+     register int last_opt = 0;
+     register STAB *last_stab = Nullstab;
+     register int count = 0;
+     register CMD *switchbeg = Nullcmd;
+ 
+     if (tail == Nullcmd) {
+ 	return tail;
+     }
+     head = tail->c_head;
+ 
+     for (tail = head; tail; tail = tail->c_next) {
+ 
+ 	/* save one measly dereference at runtime */
+ 	if (tail->c_type == C_IF) {
+ 	    if (!(tail->ucmd.ccmd.cc_alt = tail->ucmd.ccmd.cc_alt->c_next))
+ 		tail->c_flags |= CF_TERM;
+ 	}
+ 	else if (tail->c_type == C_EXPR) {
+ 	    ARG *arg;
+ 
+ 	    if (tail->ucmd.acmd.ac_expr)
+ 		arg = tail->ucmd.acmd.ac_expr;
+ 	    else
+ 		arg = tail->c_expr;
+ 	    if (arg) {
+ 		if (arg->arg_type == O_RETURN)
+ 		    tail->c_flags |= CF_TERM;
+ 		else if (arg->arg_type == O_ITEM && arg[1].arg_type == A_CMD)
+ 		    tail->c_flags |= CF_TERM;
+ 	    }
+ 	}
+ 	if (!tail->c_next)
+ 	    tail->c_flags |= CF_TERM;
+ 
+ 	if (tail->c_expr && (tail->c_flags & CF_OPTIMIZE) == CFT_FALSE)
+ 	    opt_arg(tail,1, tail->c_type == C_EXPR);
+ 
+ 	/* now do a little optimization on case-ish structures */
+ 	switch(tail->c_flags & (CF_OPTIMIZE|CF_FIRSTNEG|CF_INVERT)) {
+ 	case CFT_ANCHOR:
+ 	    if (stabent("*",FALSE)) {	/* bad assumption here!!! */
+ 		opt = 0;
+ 		break;
+ 	    }
+ 	    /* FALL THROUGH */
+ 	case CFT_STROP:
+ 	    opt = (tail->c_flags & CF_NESURE) ? CFT_STROP : 0;
+ 	    break;
+ 	case CFT_CCLASS:
+ 	    opt = CFT_STROP;
+ 	    break;
+ 	case CFT_NUMOP:
+ 	    opt = (tail->c_slen == O_NE ? 0 : CFT_NUMOP);
+ 	    if ((tail->c_flags&(CF_NESURE|CF_EQSURE)) != (CF_NESURE|CF_EQSURE))
+ 		opt = 0;
+ 	    break;
+ 	default:
+ 	    opt = 0;
+ 	}
+ 	if (opt && opt == last_opt && tail->c_stab == last_stab)
+ 	    count++;
+ 	else {
+ 	    if (count >= 3) {		/* is this the breakeven point? */
+ 		if (last_opt == CFT_NUMOP)
+ 		    make_nswitch(switchbeg,count);
+ 		else
+ 		    make_cswitch(switchbeg,count);
+ 	    }
+ 	    if (opt) {
+ 		count = 1;
+ 		switchbeg = tail;
+ 	    }
+ 	    else
+ 		count = 0;
+ 	}
+ 	last_opt = opt;
+ 	last_stab = tail->c_stab;
+     }
+     if (count >= 3) {		/* is this the breakeven point? */
+ 	if (last_opt == CFT_NUMOP)
+ 	    make_nswitch(switchbeg,count);
+ 	else
+ 	    make_cswitch(switchbeg,count);
+     }
+     return head;
+ }
+ 
+ /* We've spotted a sequence of CMDs that all test the value of the same
+  * spat.  Thus we can insert a SWITCH in front and jump directly
+  * to the correct one.
+  */
+ make_cswitch(head,count)
+ register CMD *head;
+ int count;
+ {
+     register CMD *cur;
+     register CMD **loc;
+     register int i;
+     register int min = 255;
+     register int max = 0;
+ 
+     /* make a new head in the exact same spot */
+     New(102,cur, 1, CMD);
+ #ifdef STRUCTCOPY
+     *cur = *head;
+ #else
+     Copy(head,cur,1,CMD);
+ #endif
+     Zero(head,1,CMD);
+     head->c_type = C_CSWITCH;
+     head->c_next = cur;		/* insert new cmd at front of list */
+     head->c_stab = cur->c_stab;
+ 
+     Newz(103,loc,258,CMD*);
+     loc++;				/* lie a little */
+     while (count--) {
+ 	if ((cur->c_flags & CF_OPTIMIZE) == CFT_CCLASS) {
+ 	    for (i = 0; i <= 255; i++) {
+ 		if (!loc[i] && cur->c_short->str_ptr[i>>3] & (1 << (i&7))) {
+ 		    loc[i] = cur;
+ 		    if (i < min)
+ 			min = i;
+ 		    if (i > max)
+ 			max = i;
+ 		}
+ 	    }
+ 	}
+ 	else {
+ 	    i = *cur->c_short->str_ptr & 255;
+ 	    if (!loc[i]) {
+ 		loc[i] = cur;
+ 		if (i < min)
+ 		    min = i;
+ 		if (i > max)
+ 		    max = i;
+ 	    }
+ 	}
+ 	cur = cur->c_next;
+     }
+     max++;
+     if (min > 0)
+ 	Copy(&loc[min],&loc[0], max - min, CMD*);
+     loc--;
+     min--;
+     max -= min;
+     for (i = 0; i <= max; i++)
+ 	if (!loc[i])
+ 	    loc[i] = cur;
+     Renew(loc,max+1,CMD*);	/* chop it down to size */
+     head->ucmd.scmd.sc_offset = min;
+     head->ucmd.scmd.sc_max = max;
+     head->ucmd.scmd.sc_next = loc;
+ }
+ 
+ make_nswitch(head,count)
+ register CMD *head;
+ int count;
+ {
+     register CMD *cur = head;
+     register CMD **loc;
+     register int i;
+     register int min = 32767;
+     register int max = -32768;
+     int origcount = count;
+     double value;		/* or your money back! */
+     short changed;		/* so triple your money back! */
+ 
+     while (count--) {
+ 	i = (int)str_gnum(cur->c_short);
+ 	value = (double)i;
+ 	if (value != cur->c_short->str_u.str_nval)
+ 	    return;		/* fractional values--just forget it */
+ 	changed = i;
+ 	if (changed != i)
+ 	    return;		/* too big for a short */
+ 	if (cur->c_slen == O_LE)
+ 	    i++;
+ 	else if (cur->c_slen == O_GE)	/* we only do < or > here */
+ 	    i--;
+ 	if (i < min)
+ 	    min = i;
+ 	if (i > max)
+ 	    max = i;
+ 	cur = cur->c_next;
+     }
+     count = origcount;
+     if (max - min > count * 2 + 10)		/* too sparse? */
+ 	return;
+ 
+     /* now make a new head in the exact same spot */
+     New(104,cur, 1, CMD);
+ #ifdef STRUCTCOPY
+     *cur = *head;
+ #else
+     Copy(head,cur,1,CMD);
+ #endif
+     Zero(head,1,CMD);
+     head->c_type = C_NSWITCH;
+     head->c_next = cur;		/* insert new cmd at front of list */
+     head->c_stab = cur->c_stab;
+ 
+     Newz(105,loc, max - min + 3, CMD*);
+     loc++;
+     max -= min;
+     max++;
+     while (count--) {
+ 	i = (int)str_gnum(cur->c_short);
+ 	i -= min;
+ 	switch(cur->c_slen) {
+ 	case O_LE:
+ 	    i++;
+ 	case O_LT:
+ 	    for (i--; i >= -1; i--)
+ 		if (!loc[i])
+ 		    loc[i] = cur;
+ 	    break;
+ 	case O_GE:
+ 	    i--;
+ 	case O_GT:
+ 	    for (i++; i <= max; i++)
+ 		if (!loc[i])
+ 		    loc[i] = cur;
+ 	    break;
+ 	case O_EQ:
+ 	    if (!loc[i])
+ 		loc[i] = cur;
+ 	    break;
+ 	}
+ 	cur = cur->c_next;
+     }
+     loc--;
+     min--;
+     max++;
+     for (i = 0; i <= max; i++)
+ 	if (!loc[i])
+ 	    loc[i] = cur;
+     head->ucmd.scmd.sc_offset = min;
+     head->ucmd.scmd.sc_max = max;
+     head->ucmd.scmd.sc_next = loc;
+ }
+ 
+ CMD *
+ append_line(head,tail)
+ register CMD *head;
+ register CMD *tail;
+ {
+     if (tail == Nullcmd)
+ 	return head;
+     if (!tail->c_head)			/* make sure tail is well formed */
+ 	tail->c_head = tail;
+     if (head != Nullcmd) {
+ 	tail = tail->c_head;		/* get to start of tail list */
+ 	if (!head->c_head)
+ 	    head->c_head = head;	/* start a new head list */
+ 	while (head->c_next) {
+ 	    head->c_next->c_head = head->c_head;
+ 	    head = head->c_next;	/* get to end of head list */
+ 	}
+ 	head->c_next = tail;		/* link to end of old list */
+ 	tail->c_head = head->c_head;	/* propagate head pointer */
+     }
+     while (tail->c_next) {
+ 	tail->c_next->c_head = tail->c_head;
+ 	tail = tail->c_next;
+     }
+     return tail;
+ }
+ 
+ CMD *
+ dodb(cur)
+ CMD *cur;
+ {
+     register CMD *cmd;
+     register CMD *head = cur->c_head;
+     STR *str;
+ 
+     if (!head)
+ 	head = cur;
+     if (!head->c_line)
+ 	return cur;
+     str = afetch(stab_xarray(curcmd->c_filestab),(int)head->c_line,FALSE);
+     if (str == &str_undef || str->str_nok)
+ 	return cur;
+     str->str_u.str_nval = (double)head->c_line;
+     str->str_nok = 1;
+     Newz(106,cmd,1,CMD);
+     str_magic(str, curcmd->c_filestab, 0, Nullch, 0);
+     str->str_magic->str_u.str_cmd = cmd;
+     cmd->c_type = C_EXPR;
+     cmd->ucmd.acmd.ac_stab = Nullstab;
+     cmd->ucmd.acmd.ac_expr = Nullarg;
+     cmd->c_expr = make_op(O_SUBR, 2,
+ 	stab2arg(A_WORD,DBstab),
+ 	Nullarg,
+ 	Nullarg);
+     cmd->c_flags |= CF_COND|CF_DBSUB|CFT_D0;
+     cmd->c_line = head->c_line;
+     cmd->c_label = head->c_label;
+     cmd->c_filestab = curcmd->c_filestab;
+     cmd->c_stash = curstash;
+     return append_line(cmd, cur);
+ }
+ 
+ CMD *
+ make_acmd(type,stab,cond,arg)
+ int type;
+ STAB *stab;
+ ARG *cond;
+ ARG *arg;
+ {
+     register CMD *cmd;
+ 
+     Newz(107,cmd,1,CMD);
+     cmd->c_type = type;
+     cmd->ucmd.acmd.ac_stab = stab;
+     cmd->ucmd.acmd.ac_expr = arg;
+     cmd->c_expr = cond;
+     if (cond)
+ 	cmd->c_flags |= CF_COND;
+     if (cmdline == NOLINE)
+ 	cmd->c_line = curcmd->c_line;
+     else {
+ 	cmd->c_line = cmdline;
+ 	cmdline = NOLINE;
+     }
+     cmd->c_filestab = curcmd->c_filestab;
+     cmd->c_stash = curstash;
+     if (perldb)
+ 	cmd = dodb(cmd);
+     return cmd;
+ }
+ 
+ CMD *
+ make_ccmd(type,arg,cblock)
+ int type;
+ ARG *arg;
+ struct compcmd cblock;
+ {
+     register CMD *cmd;
+ 
+     Newz(108,cmd, 1, CMD);
+     cmd->c_type = type;
+     cmd->c_expr = arg;
+     cmd->ucmd.ccmd.cc_true = cblock.comp_true;
+     cmd->ucmd.ccmd.cc_alt = cblock.comp_alt;
+     if (arg)
+ 	cmd->c_flags |= CF_COND;
+     if (cmdline == NOLINE)
+ 	cmd->c_line = curcmd->c_line;
+     else {
+ 	cmd->c_line = cmdline;
+ 	cmdline = NOLINE;
+     }
+     cmd->c_filestab = curcmd->c_filestab;
+     cmd->c_stash = curstash;
+     if (perldb)
+ 	cmd = dodb(cmd);
+     return cmd;
+ }
+ 
+ CMD *
+ make_icmd(type,arg,cblock)
+ int type;
+ ARG *arg;
+ struct compcmd cblock;
+ {
+     register CMD *cmd;
+     register CMD *alt;
+     register CMD *cur;
+     register CMD *head;
+     struct compcmd ncblock;
+ 
+     Newz(109,cmd, 1, CMD);
+     head = cmd;
+     cmd->c_type = type;
+     cmd->c_expr = arg;
+     cmd->ucmd.ccmd.cc_true = cblock.comp_true;
+     cmd->ucmd.ccmd.cc_alt = cblock.comp_alt;
+     if (arg)
+ 	cmd->c_flags |= CF_COND;
+     if (cmdline == NOLINE)
+ 	cmd->c_line = curcmd->c_line;
+     else {
+ 	cmd->c_line = cmdline;
+ 	cmdline = NOLINE;
+     }
+     cmd->c_filestab = curcmd->c_filestab;
+     cmd->c_stash = curstash;
+     cur = cmd;
+     alt = cblock.comp_alt;
+     while (alt && alt->c_type == C_ELSIF) {
+ 	cur = alt;
+ 	alt = alt->ucmd.ccmd.cc_alt;
+     }
+     if (alt) {			/* a real life ELSE at the end? */
+ 	ncblock.comp_true = alt;
+ 	ncblock.comp_alt = Nullcmd;
+ 	alt = append_line(cur,make_ccmd(C_ELSE,Nullarg,ncblock));
+ 	cur->ucmd.ccmd.cc_alt = alt;
+     }
+     else
+ 	alt = cur;		/* no ELSE, so cur is proxy ELSE */
+ 
+     cur = cmd;
+     while (cmd) {		/* now point everyone at the ELSE */
+ 	cur = cmd;
+ 	cmd = cur->ucmd.ccmd.cc_alt;
+ 	cur->c_head = head;
+ 	if (cur->c_type == C_ELSIF)
+ 	    cur->c_type = C_IF;
+ 	if (cur->c_type == C_IF)
+ 	    cur->ucmd.ccmd.cc_alt = alt;
+ 	if (cur == alt)
+ 	    break;
+ 	cur->c_next = cmd;
+     }
+     if (perldb)
+ 	cur = dodb(cur);
+     return cur;
+ }
+ 
+ void
+ opt_arg(cmd,fliporflop,acmd)
+ register CMD *cmd;
+ int fliporflop;
+ int acmd;
+ {
+     register ARG *arg;
+     int opt = CFT_EVAL;
+     int sure = 0;
+     ARG *arg2;
+     int context = 0;	/* 0 = normal, 1 = before &&, 2 = before || */
+     int flp = fliporflop;
+ 
+     if (!cmd)
+ 	return;
+     if (!(arg = cmd->c_expr)) {
+ 	cmd->c_flags &= ~CF_COND;
+ 	return;
+     }
+ 
+     /* Can we turn && and || into if and unless? */
+ 
+     if (acmd && !cmd->ucmd.acmd.ac_expr && !(cmd->c_flags & CF_TERM) &&
+       (arg->arg_type == O_AND || arg->arg_type == O_OR) ) {
+ 	dehoist(arg,1);
+ 	arg[2].arg_type &= A_MASK;	/* don't suppress eval */
+ 	dehoist(arg,2);
+ 	cmd->ucmd.acmd.ac_expr = arg[2].arg_ptr.arg_arg;
+ 	cmd->c_expr = arg[1].arg_ptr.arg_arg;
+ 	if (arg->arg_type == O_OR)
+ 	    cmd->c_flags ^= CF_INVERT;		/* || is like unless */
+ 	arg->arg_len = 0;
+ 	free_arg(arg);
+ 	arg = cmd->c_expr;
+     }
+ 
+     /* Turn "if (!expr)" into "unless (expr)" */
+ 
+     if (!(cmd->c_flags & CF_TERM)) {		/* unless return value wanted */
+ 	while (arg->arg_type == O_NOT) {
+ 	    dehoist(arg,1);
+ 	    cmd->c_flags ^= CF_INVERT;		/* flip sense of cmd */
+ 	    cmd->c_expr = arg[1].arg_ptr.arg_arg; /* hoist the rest of expr */
+ 	    free_arg(arg);
+ 	    arg = cmd->c_expr;			/* here we go again */
+ 	}
+     }
+ 
+     if (!arg->arg_len) {		/* sanity check */
+ 	cmd->c_flags |= opt;
+ 	return;
+     }
+ 
+     /* for "cond .. cond" we set up for the initial check */
+ 
+     if (arg->arg_type == O_FLIP)
+ 	context |= 4;
+ 
+     /* for "cond && expr" and "cond || expr" we can ignore expr, sort of */
+ 
+   morecontext:
+     if (arg->arg_type == O_AND)
+ 	context |= 1;
+     else if (arg->arg_type == O_OR)
+ 	context |= 2;
+     if (context && (arg[flp].arg_type & A_MASK) == A_EXPR) {
+ 	arg = arg[flp].arg_ptr.arg_arg;
+ 	flp = 1;
+ 	if (arg->arg_type == O_AND || arg->arg_type == O_OR)
+ 	    goto morecontext;
+     }
+     if ((context & 3) == 3)
+ 	return;
+ 
+     if (arg[flp].arg_flags & (AF_PRE|AF_POST)) {
+ 	cmd->c_flags |= opt;
+ 	if (acmd && !cmd->ucmd.acmd.ac_expr && !(cmd->c_flags & CF_TERM)
+ 	  && cmd->c_expr->arg_type == O_ITEM) {
+ 	    arg[flp].arg_flags &= ~AF_POST;	/* prefer ++$foo to $foo++ */
+ 	    arg[flp].arg_flags |= AF_PRE;	/*  if value not wanted */
+ 	}
+ 	return;				/* side effect, can't optimize */
+     }
+ 
+     if (arg->arg_type == O_ITEM || arg->arg_type == O_FLIP ||
+       arg->arg_type == O_AND || arg->arg_type == O_OR) {
+ 	if ((arg[flp].arg_type & A_MASK) == A_SINGLE) {
+ 	    opt = (str_true(arg[flp].arg_ptr.arg_str) ? CFT_TRUE : CFT_FALSE);
+ 	    cmd->c_short = str_smake(arg[flp].arg_ptr.arg_str);
+ 	    goto literal;
+ 	}
+ 	else if ((arg[flp].arg_type & A_MASK) == A_STAB ||
+ 	  (arg[flp].arg_type & A_MASK) == A_LVAL) {
+ 	    cmd->c_stab  = arg[flp].arg_ptr.arg_stab;
+ 	    if (!context)
+ 		arg[flp].arg_ptr.arg_stab = Nullstab;
+ 	    opt = CFT_REG;
+ 	  literal:
+ 	    if (!context) {	/* no && or ||? */
+ 		arg_free(arg);
+ 		cmd->c_expr = Nullarg;
+ 	    }
+ 	    if (!(context & 1))
+ 		cmd->c_flags |= CF_EQSURE;
+ 	    if (!(context & 2))
+ 		cmd->c_flags |= CF_NESURE;
+ 	}
+     }
+     else if (arg->arg_type == O_MATCH || arg->arg_type == O_SUBST ||
+ 	     arg->arg_type == O_NMATCH || arg->arg_type == O_NSUBST) {
+ 	if ((arg[1].arg_type == A_STAB || arg[1].arg_type == A_LVAL) &&
+ 		(arg[2].arg_type & A_MASK) == A_SPAT &&
+ 		arg[2].arg_ptr.arg_spat->spat_short ) {
+ 	    cmd->c_stab  = arg[1].arg_ptr.arg_stab;
+ 	    cmd->c_short = str_smake(arg[2].arg_ptr.arg_spat->spat_short);
+ 	    cmd->c_slen  = arg[2].arg_ptr.arg_spat->spat_slen;
+ 	    if (arg[2].arg_ptr.arg_spat->spat_flags & SPAT_ALL &&
+ 		!(arg[2].arg_ptr.arg_spat->spat_flags & SPAT_ONCE) &&
+ 		(arg->arg_type == O_MATCH || arg->arg_type == O_NMATCH) )
+ 		sure |= CF_EQSURE;		/* (SUBST must be forced even */
+ 						/* if we know it will work.) */
+ 	    if (arg->arg_type != O_SUBST) {
+ 		arg[2].arg_ptr.arg_spat->spat_short = Nullstr;
+ 		arg[2].arg_ptr.arg_spat->spat_slen = 0; /* only one chk */
+ 	    }
+ 	    sure |= CF_NESURE;		/* normally only sure if it fails */
+ 	    if (arg->arg_type == O_NMATCH || arg->arg_type == O_NSUBST)
+ 		cmd->c_flags |= CF_FIRSTNEG;
+ 	    if (context & 1) {		/* only sure if thing is false */
+ 		if (cmd->c_flags & CF_FIRSTNEG)
+ 		    sure &= ~CF_NESURE;
+ 		else
+ 		    sure &= ~CF_EQSURE;
+ 	    }
+ 	    else if (context & 2) {	/* only sure if thing is true */
+ 		if (cmd->c_flags & CF_FIRSTNEG)
+ 		    sure &= ~CF_EQSURE;
+ 		else
+ 		    sure &= ~CF_NESURE;
+ 	    }
+ 	    if (sure & (CF_EQSURE|CF_NESURE)) {	/* if we know anything*/
+ 		if (arg[2].arg_ptr.arg_spat->spat_flags & SPAT_SCANFIRST)
+ 		    opt = CFT_SCAN;
+ 		else
+ 		    opt = CFT_ANCHOR;
+ 		if (sure == (CF_EQSURE|CF_NESURE)	/* really sure? */
+ 		    && arg->arg_type == O_MATCH
+ 		    && context & 4
+ 		    && fliporflop == 1) {
+ 		    spat_free(arg[2].arg_ptr.arg_spat);
+ 		    arg[2].arg_ptr.arg_spat = Nullspat;	/* don't do twice */
+ 		}
+ 		else
+ 		    cmd->c_spat = arg[2].arg_ptr.arg_spat;
+ 		cmd->c_flags |= sure;
+ 	    }
+ 	}
+     }
+     else if (arg->arg_type == O_SEQ || arg->arg_type == O_SNE ||
+ 	     arg->arg_type == O_SLT || arg->arg_type == O_SGT) {
+ 	if (arg[1].arg_type == A_STAB || arg[1].arg_type == A_LVAL) {
+ 	    if (arg[2].arg_type == A_SINGLE) {
+ 		char *junk = str_get(arg[2].arg_ptr.arg_str);
+ 
+ 		cmd->c_stab  = arg[1].arg_ptr.arg_stab;
+ 		cmd->c_short = str_smake(arg[2].arg_ptr.arg_str);
+ 		cmd->c_slen  = cmd->c_short->str_cur+1;
+ 		switch (arg->arg_type) {
+ 		case O_SLT: case O_SGT:
+ 		    sure |= CF_EQSURE;
+ 		    cmd->c_flags |= CF_FIRSTNEG;
+ 		    break;
+ 		case O_SNE:
+ 		    cmd->c_flags |= CF_FIRSTNEG;
+ 		    /* FALL THROUGH */
+ 		case O_SEQ:
+ 		    sure |= CF_NESURE|CF_EQSURE;
+ 		    break;
+ 		}
+ 		if (context & 1) {	/* only sure if thing is false */
+ 		    if (cmd->c_flags & CF_FIRSTNEG)
+ 			sure &= ~CF_NESURE;
+ 		    else
+ 			sure &= ~CF_EQSURE;
+ 		}
+ 		else if (context & 2) { /* only sure if thing is true */
+ 		    if (cmd->c_flags & CF_FIRSTNEG)
+ 			sure &= ~CF_EQSURE;
+ 		    else
+ 			sure &= ~CF_NESURE;
+ 		}
+ 		if (sure & (CF_EQSURE|CF_NESURE)) {
+ 		    opt = CFT_STROP;
+ 		    cmd->c_flags |= sure;
+ 		}
+ 	    }
+ 	}
+     }
+     else if (arg->arg_type == O_EQ || arg->arg_type == O_NE ||
+ 	     arg->arg_type == O_LE || arg->arg_type == O_GE ||
+ 	     arg->arg_type == O_LT || arg->arg_type == O_GT) {
+ 	if (arg[1].arg_type == A_STAB || arg[1].arg_type == A_LVAL) {
+ 	    if (arg[2].arg_type == A_SINGLE) {
+ 		cmd->c_stab  = arg[1].arg_ptr.arg_stab;
+ 		if (dowarn) {
+ 		    STR *str = arg[2].arg_ptr.arg_str;
+ 
+ 		    if ((!str->str_nok && !looks_like_number(str)))
+ 			warn("Possible use of == on string value");
+ 		}
+ 		cmd->c_short = str_nmake(str_gnum(arg[2].arg_ptr.arg_str));
+ 		cmd->c_slen = arg->arg_type;
+ 		sure |= CF_NESURE|CF_EQSURE;
+ 		if (context & 1) {	/* only sure if thing is false */
+ 		    sure &= ~CF_EQSURE;
+ 		}
+ 		else if (context & 2) { /* only sure if thing is true */
+ 		    sure &= ~CF_NESURE;
+ 		}
+ 		if (sure & (CF_EQSURE|CF_NESURE)) {
+ 		    opt = CFT_NUMOP;
+ 		    cmd->c_flags |= sure;
+ 		}
+ 	    }
+ 	}
+     }
+     else if (arg->arg_type == O_ASSIGN &&
+ 	     (arg[1].arg_type == A_STAB || arg[1].arg_type == A_LVAL) &&
+ 	     arg[1].arg_ptr.arg_stab == defstab &&
+ 	     arg[2].arg_type == A_EXPR ) {
+ 	arg2 = arg[2].arg_ptr.arg_arg;
+ 	if (arg2->arg_type == O_ITEM && arg2[1].arg_type == A_READ) {
+ 	    opt = CFT_GETS;
+ 	    cmd->c_stab = arg2[1].arg_ptr.arg_stab;
+ 	    if (!(stab_io(arg2[1].arg_ptr.arg_stab)->flags & IOF_ARGV)) {
+ 		free_arg(arg2);
+ 		arg[2].arg_ptr.arg_arg = Nullarg;
+ 		free_arg(arg);
+ 		cmd->c_expr = Nullarg;
+ 	    }
+ 	}
+     }
+     else if (arg->arg_type == O_CHOP &&
+ 	     (arg[1].arg_type == A_STAB || arg[1].arg_type == A_LVAL) ) {
+ 	opt = CFT_CHOP;
+ 	cmd->c_stab = arg[1].arg_ptr.arg_stab;
+ 	free_arg(arg);
+ 	cmd->c_expr = Nullarg;
+     }
+     if (context & 4)
+ 	opt |= CF_FLIP;
+     cmd->c_flags |= opt;
+ 
+     if (cmd->c_flags & CF_FLIP) {
+ 	if (fliporflop == 1) {
+ 	    arg = cmd->c_expr;	/* get back to O_FLIP arg */
+ 	    New(110,arg[3].arg_ptr.arg_cmd, 1, CMD);
+ 	    Copy(cmd, arg[3].arg_ptr.arg_cmd, 1, CMD);
+ 	    New(111,arg[4].arg_ptr.arg_cmd,1,CMD);
+ 	    Copy(cmd, arg[4].arg_ptr.arg_cmd, 1, CMD);
+ 	    opt_arg(arg[4].arg_ptr.arg_cmd,2,acmd);
+ 	    arg->arg_len = 2;		/* this is a lie */
+ 	}
+ 	else {
+ 	    if ((opt & CF_OPTIMIZE) == CFT_EVAL)
+ 		cmd->c_flags = (cmd->c_flags & ~CF_OPTIMIZE) | CFT_UNFLIP;
+ 	}
+     }
+ }
+ 
+ CMD *
+ add_label(lbl,cmd)
+ char *lbl;
+ register CMD *cmd;
+ {
+     if (cmd)
+ 	cmd->c_label = lbl;
+     return cmd;
+ }
+ 
+ CMD *
+ addcond(cmd, arg)
+ register CMD *cmd;
+ register ARG *arg;
+ {
+     cmd->c_expr = arg;
+     cmd->c_flags |= CF_COND;
+     return cmd;
+ }
+ 
+ CMD *
+ addloop(cmd, arg)
+ register CMD *cmd;
+ register ARG *arg;
+ {
+     void while_io();
+ 
+     cmd->c_expr = arg;
+     cmd->c_flags |= CF_COND|CF_LOOP;
+ 
+     if (!(cmd->c_flags & CF_INVERT))
+ 	while_io(cmd);		/* add $_ =, if necessary */
+ 
+     if (cmd->c_type == C_BLOCK)
+ 	cmd->c_flags &= ~CF_COND;
+     else {
+ 	arg = cmd->ucmd.acmd.ac_expr;
+ 	if (arg && arg->arg_type == O_ITEM && arg[1].arg_type == A_CMD)
+ 	    cmd->c_flags &= ~CF_COND;  /* "do {} while" happens at least once */
+ 	if (arg && (arg->arg_flags & AF_DEPR) &&
+ 	  (arg->arg_type == O_SUBR || arg->arg_type == O_DBSUBR) )
+ 	    cmd->c_flags &= ~CF_COND;  /* likewise for "do subr() while" */
+     }
+     return cmd;
+ }
+ 
+ CMD *
+ invert(cmd)
+ CMD *cmd;
+ {
+     register CMD *targ = cmd;
+     if (targ->c_head)
+ 	targ = targ->c_head;
+     if (targ->c_flags & CF_DBSUB)
+ 	targ = targ->c_next;
+     targ->c_flags ^= CF_INVERT;
+     return cmd;
+ }
+ 
+ yyerror(s)
+ char *s;
+ {
+     char tmpbuf[258];
+     char tmp2buf[258];
+     char *tname = tmpbuf;
+ 
+     if (bufptr > oldoldbufptr && bufptr - oldoldbufptr < 200 &&
+       oldoldbufptr != oldbufptr && oldbufptr != bufptr) {
+ 	while (isspace(*oldoldbufptr))
+ 	    oldoldbufptr++;
+ 	strncpy(tmp2buf, oldoldbufptr, bufptr - oldoldbufptr);
+ 	tmp2buf[bufptr - oldoldbufptr] = '\0';
+ 	sprintf(tname,"next 2 tokens \"%s\"",tmp2buf);
+     }
+     else if (bufptr > oldbufptr && bufptr - oldbufptr < 200 &&
+       oldbufptr != bufptr) {
+ 	while (isspace(*oldbufptr))
+ 	    oldbufptr++;
+ 	strncpy(tmp2buf, oldbufptr, bufptr - oldbufptr);
+ 	tmp2buf[bufptr - oldbufptr] = '\0';
+ 	sprintf(tname,"next token \"%s\"",tmp2buf);
+     }
+     else if (yychar > 256)
+ 	tname = "next token ???";
+     else if (!yychar)
+ 	(void)strcpy(tname,"at EOF");
+     else if (yychar < 32)
+ 	(void)sprintf(tname,"next char ^%c",yychar+64);
+     else if (yychar == 127)
+ 	(void)strcpy(tname,"at EOF");
+     else
+ 	(void)sprintf(tname,"next char %c",yychar);
+     (void)sprintf(buf, "%s in file %s at line %d, %s\n",
+       s,stab_val(curcmd->c_filestab)->str_ptr,curcmd->c_line,tname);
+     if (curcmd->c_line == multi_end && multi_start < multi_end)
+ 	sprintf(buf+strlen(buf),
+ 	  "  (Might be a runaway multi-line %c%c string starting on line %d)\n",
+ 	  multi_open,multi_close,multi_start);
+     if (in_eval)
+ 	str_cat(stab_val(stabent("@",TRUE)),buf);
+     else
+ 	fputs(buf,stderr);
+     if (++error_count >= 10)
+ 	fatal("%s has too many errors.\n",
+ 	stab_val(curcmd->c_filestab)->str_ptr);
+ }
+ 
+ void
+ while_io(cmd)
+ register CMD *cmd;
+ {
+     register ARG *arg = cmd->c_expr;
+     STAB *asgnstab;
+ 
+     /* hoist "while (<channel>)" up into command block */
+ 
+     if (arg && arg->arg_type == O_ITEM && arg[1].arg_type == A_READ) {
+ 	cmd->c_flags &= ~CF_OPTIMIZE;	/* clear optimization type */
+ 	cmd->c_flags |= CFT_GETS;	/* and set it to do the input */
+ 	cmd->c_stab = arg[1].arg_ptr.arg_stab;
+ 	if (stab_io(arg[1].arg_ptr.arg_stab)->flags & IOF_ARGV) {
+ 	    cmd->c_expr = l(make_op(O_ASSIGN, 2,	/* fake up "$_ =" */
+ 	       stab2arg(A_LVAL,defstab), arg, Nullarg));
+ 	}
+ 	else {
+ 	    free_arg(arg);
+ 	    cmd->c_expr = Nullarg;
+ 	}
+     }
+     else if (arg && arg->arg_type == O_ITEM && arg[1].arg_type == A_INDREAD) {
+ 	cmd->c_flags &= ~CF_OPTIMIZE;	/* clear optimization type */
+ 	cmd->c_flags |= CFT_INDGETS;	/* and set it to do the input */
+ 	cmd->c_stab = arg[1].arg_ptr.arg_stab;
+ 	free_arg(arg);
+ 	cmd->c_expr = Nullarg;
+     }
+     else if (arg && arg->arg_type == O_ITEM && arg[1].arg_type == A_GLOB) {
+ 	if ((cmd->c_flags & CF_OPTIMIZE) == CFT_ARRAY)
+ 	    asgnstab = cmd->c_stab;
+ 	else
+ 	    asgnstab = defstab;
+ 	cmd->c_expr = l(make_op(O_ASSIGN, 2,	/* fake up "$foo =" */
+ 	   stab2arg(A_LVAL,asgnstab), arg, Nullarg));
+ 	cmd->c_flags &= ~CF_OPTIMIZE;	/* clear optimization type */
+     }
+ }
+ 
+ CMD *
+ wopt(cmd)
+ register CMD *cmd;
+ {
+     register CMD *tail;
+     CMD *newtail;
+     register int i;
+ 
+     if (cmd->c_expr && (cmd->c_flags & CF_OPTIMIZE) == CFT_FALSE)
+ 	opt_arg(cmd,1, cmd->c_type == C_EXPR);
+ 
+     while_io(cmd);		/* add $_ =, if necessary */
+ 
+     /* First find the end of the true list */
+ 
+     tail = cmd->ucmd.ccmd.cc_true;
+     if (tail == Nullcmd)
+ 	return cmd;
+     New(112,newtail, 1, CMD);	/* guaranteed continue */
+     for (;;) {
+ 	/* optimize "next" to point directly to continue block */
+ 	if (tail->c_type == C_EXPR &&
+ 	    tail->ucmd.acmd.ac_expr &&
+ 	    tail->ucmd.acmd.ac_expr->arg_type == O_NEXT &&
+ 	    (tail->ucmd.acmd.ac_expr->arg_len == 0 ||
+ 	     (cmd->c_label &&
+ 	      strEQ(cmd->c_label,
+ 		    tail->ucmd.acmd.ac_expr[1].arg_ptr.arg_str->str_ptr) )))
+ 	{
+ 	    arg_free(tail->ucmd.acmd.ac_expr);
+ 	    tail->ucmd.acmd.ac_expr = Nullarg;
+ 	    tail->c_type = C_NEXT;
+ 	    if (cmd->ucmd.ccmd.cc_alt != Nullcmd)
+ 		tail->ucmd.ccmd.cc_alt = cmd->ucmd.ccmd.cc_alt;
+ 	    else
+ 		tail->ucmd.ccmd.cc_alt = newtail;
+ 	    tail->ucmd.ccmd.cc_true = Nullcmd;
+ 	}
+ 	else if (tail->c_type == C_IF && !tail->ucmd.ccmd.cc_alt) {
+ 	    if (cmd->ucmd.ccmd.cc_alt != Nullcmd)
+ 		tail->ucmd.ccmd.cc_alt = cmd->ucmd.ccmd.cc_alt;
+ 	    else
+ 		tail->ucmd.ccmd.cc_alt = newtail;
+ 	}
+ 	else if (tail->c_type == C_CSWITCH || tail->c_type == C_NSWITCH) {
+ 	    if (cmd->ucmd.ccmd.cc_alt != Nullcmd) {
+ 		for (i = tail->ucmd.scmd.sc_max; i >= 0; i--)
+ 		    if (!tail->ucmd.scmd.sc_next[i])
+ 			tail->ucmd.scmd.sc_next[i] = cmd->ucmd.ccmd.cc_alt;
+ 	    }
+ 	    else {
+ 		for (i = tail->ucmd.scmd.sc_max; i >= 0; i--)
+ 		    if (!tail->ucmd.scmd.sc_next[i])
+ 			tail->ucmd.scmd.sc_next[i] = newtail;
+ 	    }
+ 	}
+ 
+ 	if (!tail->c_next)
+ 	    break;
+ 	tail = tail->c_next;
+     }
+ 
+     /* if there's a continue block, link it to true block and find end */
+ 
+     if (cmd->ucmd.ccmd.cc_alt != Nullcmd) {
+ 	tail->c_next = cmd->ucmd.ccmd.cc_alt;
+ 	tail = tail->c_next;
+ 	for (;;) {
+ 	    /* optimize "next" to point directly to continue block */
+ 	    if (tail->c_type == C_EXPR &&
+ 		tail->ucmd.acmd.ac_expr &&
+ 		tail->ucmd.acmd.ac_expr->arg_type == O_NEXT &&
+ 		(tail->ucmd.acmd.ac_expr->arg_len == 0 ||
+ 		 (cmd->c_label &&
+ 		  strEQ(cmd->c_label,
+ 			tail->ucmd.acmd.ac_expr[1].arg_ptr.arg_str->str_ptr) )))
+ 	    {
+ 		arg_free(tail->ucmd.acmd.ac_expr);
+ 		tail->ucmd.acmd.ac_expr = Nullarg;
+ 		tail->c_type = C_NEXT;
+ 		tail->ucmd.ccmd.cc_alt = newtail;
+ 		tail->ucmd.ccmd.cc_true = Nullcmd;
+ 	    }
+ 	    else if (tail->c_type == C_IF && !tail->ucmd.ccmd.cc_alt) {
+ 		tail->ucmd.ccmd.cc_alt = newtail;
+ 	    }
+ 	    else if (tail->c_type == C_CSWITCH || tail->c_type == C_NSWITCH) {
+ 		for (i = tail->ucmd.scmd.sc_max; i >= 0; i--)
+ 		    if (!tail->ucmd.scmd.sc_next[i])
+ 			tail->ucmd.scmd.sc_next[i] = newtail;
+ 	    }
+ 
+ 	    if (!tail->c_next)
+ 		break;
+ 	    tail = tail->c_next;
+ 	}
+ 	for ( ; tail->c_next; tail = tail->c_next) ;
+     }
+ 
+     /* Here's the real trick: link the end of the list back to the beginning,
+      * inserting a "last" block to break out of the loop.  This saves one or
+      * two procedure calls every time through the loop, because of how cmd_exec
+      * does tail recursion.
+      */
+ 
+     tail->c_next = newtail;
+     tail = newtail;
+     if (!cmd->ucmd.ccmd.cc_alt)
+ 	cmd->ucmd.ccmd.cc_alt = tail;	/* every loop has a continue now */
+ 
+ #ifndef lint
+     (void)bcopy((char *)cmd, (char *)tail, sizeof(CMD));
+ #endif
+     tail->c_type = C_EXPR;
+     tail->c_flags ^= CF_INVERT;		/* turn into "last unless" */
+     tail->c_next = tail->ucmd.ccmd.cc_true;	/* loop directly back to top */
+     tail->ucmd.acmd.ac_expr = make_op(O_LAST,0,Nullarg,Nullarg,Nullarg);
+     tail->ucmd.acmd.ac_stab = Nullstab;
+     return cmd;
+ }
+ 
+ CMD *
+ over(eachstab,cmd)
+ STAB *eachstab;
+ register CMD *cmd;
+ {
+     /* hoist "for $foo (@bar)" up into command block */
+ 
+     cmd->c_flags &= ~CF_OPTIMIZE;	/* clear optimization type */
+     cmd->c_flags |= CFT_ARRAY;		/* and set it to do the iteration */
+     cmd->c_stab = eachstab;
+     cmd->c_short = str_new(0);		/* just to save a field in struct cmd */
+     cmd->c_short->str_u.str_useful = -1;
+ 
+     return cmd;
+ }
+ 
+ cmd_free(cmd)
+ register CMD *cmd;
+ {
+     register CMD *tofree;
+     register CMD *head = cmd;
+ 
+     while (cmd) {
+ 	if (cmd->c_type != C_WHILE) {	/* WHILE block is duplicated */
+ 	    if (cmd->c_label) {
+ 		Safefree(cmd->c_label);
+ 		cmd->c_label = Nullch;
+ 	    }
+ 	    if (cmd->c_short) {
+ 		str_free(cmd->c_short);
+ 		cmd->c_short = Nullstr;
+ 	    }
+ 	    if (cmd->c_expr) {
+ 		arg_free(cmd->c_expr);
+ 		cmd->c_expr = Nullarg;
+ 	    }
+ 	}
+ 	switch (cmd->c_type) {
+ 	case C_WHILE:
+ 	case C_BLOCK:
+ 	case C_ELSE:
+ 	case C_IF:
+ 	    if (cmd->ucmd.ccmd.cc_true) {
+ 		cmd_free(cmd->ucmd.ccmd.cc_true);
+ 		cmd->ucmd.ccmd.cc_true = Nullcmd;
+ 	    }
+ 	    break;
+ 	case C_EXPR:
+ 	    if (cmd->ucmd.acmd.ac_expr) {
+ 		arg_free(cmd->ucmd.acmd.ac_expr);
+ 		cmd->ucmd.acmd.ac_expr = Nullarg;
+ 	    }
+ 	    break;
+ 	}
+ 	tofree = cmd;
+ 	cmd = cmd->c_next;
+ 	if (tofree != head)		/* to get Saber to shut up */
+ 	    Safefree(tofree);
+ 	if (cmd && cmd == head)		/* reached end of while loop */
+ 	    break;
+     }
+     Safefree(head);
+ }
+ 
+ arg_free(arg)
+ register ARG *arg;
+ {
+     register int i;
+ 
+     for (i = 1; i <= arg->arg_len; i++) {
+ 	switch (arg[i].arg_type & A_MASK) {
+ 	case A_NULL:
+ 	    if (arg->arg_type == O_TRANS) {
+ 		Safefree(arg[i].arg_ptr.arg_cval);
+ 		arg[i].arg_ptr.arg_cval = Nullch;
+ 	    }
+ 	    break;
+ 	case A_LEXPR:
+ 	    if (arg->arg_type == O_AASSIGN &&
+ 	      arg[i].arg_ptr.arg_arg->arg_type == O_LARRAY) {
+ 		char *name = 
+ 		  stab_name(arg[i].arg_ptr.arg_arg[1].arg_ptr.arg_stab);
+ 
+ 		if (strnEQ("_GEN_",name, 5))	/* array for foreach */
+ 		    hdelete(defstash,name,strlen(name));
+ 	    }
+ 	    /* FALL THROUGH */
+ 	case A_EXPR:
+ 	    arg_free(arg[i].arg_ptr.arg_arg);
+ 	    arg[i].arg_ptr.arg_arg = Nullarg;
+ 	    break;
+ 	case A_CMD:
+ 	    cmd_free(arg[i].arg_ptr.arg_cmd);
+ 	    arg[i].arg_ptr.arg_cmd = Nullcmd;
+ 	    break;
+ 	case A_WORD:
+ 	case A_STAB:
+ 	case A_LVAL:
+ 	case A_READ:
+ 	case A_GLOB:
+ 	case A_ARYLEN:
+ 	case A_LARYLEN:
+ 	case A_ARYSTAB:
+ 	case A_LARYSTAB:
+ 	    break;
+ 	case A_SINGLE:
+ 	case A_DOUBLE:
+ 	case A_BACKTICK:
+ 	    str_free(arg[i].arg_ptr.arg_str);
+ 	    arg[i].arg_ptr.arg_str = Nullstr;
+ 	    break;
+ 	case A_SPAT:
+ 	    spat_free(arg[i].arg_ptr.arg_spat);
+ 	    arg[i].arg_ptr.arg_spat = Nullspat;
+ 	    break;
+ 	}
+     }
+     free_arg(arg);
+ }
+ 
+ spat_free(spat)
+ register SPAT *spat;
+ {
+     register SPAT *sp;
+     HENT *entry;
+ 
+     if (spat->spat_runtime) {
+ 	arg_free(spat->spat_runtime);
+ 	spat->spat_runtime = Nullarg;
+     }
+     if (spat->spat_repl) {
+ 	arg_free(spat->spat_repl);
+ 	spat->spat_repl = Nullarg;
+     }
+     if (spat->spat_short) {
+ 	str_free(spat->spat_short);
+ 	spat->spat_short = Nullstr;
+     }
+     if (spat->spat_regexp) {
+ 	regfree(spat->spat_regexp);
+ 	spat->spat_regexp = Null(REGEXP*);
+     }
+ 
+     /* now unlink from spat list */
+ 
+     for (entry = defstash->tbl_array['_']; entry; entry = entry->hent_next) {
+ 	register HASH *stash;
+ 	STAB *stab = (STAB*)entry->hent_val;
+ 
+ 	if (!stab)
+ 	    continue;
+ 	stash = stab_hash(stab);
+ 	if (!stash || stash->tbl_spatroot == Null(SPAT*))
+ 	    continue;
+ 	if (stash->tbl_spatroot == spat)
+ 	    stash->tbl_spatroot = spat->spat_next;
+ 	else {
+ 	    for (sp = stash->tbl_spatroot;
+ 	      sp && sp->spat_next != spat;
+ 	      sp = sp->spat_next)
+ 		;
+ 	    if (sp)
+ 		sp->spat_next = spat->spat_next;
+ 	}
+     }
+     Safefree(spat);
+ }
+ 
+ /* Recursively descend a command sequence and push the address of any string
+  * that needs saving on recursion onto the tosave array.
+  */
+ 
+ static int
+ cmd_tosave(cmd,willsave)
+ register CMD *cmd;
+ int willsave;				/* willsave passes down the tree */
+ {
+     register CMD *head = cmd;
+     int shouldsave = FALSE;		/* shouldsave passes up the tree */
+     int tmpsave;
+     register CMD *lastcmd = Nullcmd;
+ 
+     while (cmd) {
+ 	if (cmd->c_expr)
+ 	    shouldsave |= arg_tosave(cmd->c_expr,willsave);
+ 	switch (cmd->c_type) {
+ 	case C_WHILE:
+ 	    if (cmd->ucmd.ccmd.cc_true) {
+ 		tmpsave = cmd_tosave(cmd->ucmd.ccmd.cc_true,willsave);
+ 
+ 		/* Here we check to see if the temporary array generated for
+ 		 * a foreach needs to be localized because of recursion.
+ 		 */
+ 		if (tmpsave && (cmd->c_flags & CF_OPTIMIZE) == CFT_ARRAY) {
+ 		    if (lastcmd &&
+ 		      lastcmd->c_type == C_EXPR &&
+ 		      lastcmd->c_expr) {
+ 			ARG *arg = lastcmd->c_expr;
+ 
+ 			if (arg->arg_type == O_ASSIGN &&
+ 			    arg[1].arg_type == A_LEXPR &&
+ 			    arg[1].arg_ptr.arg_arg->arg_type == O_LARRAY &&
+ 			    strnEQ("_GEN_",
+ 			      stab_name(
+ 				arg[1].arg_ptr.arg_arg[1].arg_ptr.arg_stab),
+ 			      5)) {	/* array generated for foreach */
+ 			    (void)localize(arg);
+ 			}
+ 		    }
+ 
+ 		    /* in any event, save the iterator */
+ 
+ 		    (void)apush(tosave,cmd->c_short);
+ 		}
+ 		shouldsave |= tmpsave;
+ 	    }
+ 	    break;
+ 	case C_BLOCK:
+ 	case C_ELSE:
+ 	case C_IF:
+ 	    if (cmd->ucmd.ccmd.cc_true)
+ 		shouldsave |= cmd_tosave(cmd->ucmd.ccmd.cc_true,willsave);
+ 	    break;
+ 	case C_EXPR:
+ 	    if (cmd->ucmd.acmd.ac_expr)
+ 		shouldsave |= arg_tosave(cmd->ucmd.acmd.ac_expr,willsave);
+ 	    break;
+ 	}
+ 	lastcmd = cmd;
+ 	cmd = cmd->c_next;
+ 	if (cmd && cmd == head)		/* reached end of while loop */
+ 	    break;
+     }
+     return shouldsave;
+ }
+ 
+ static int
+ arg_tosave(arg,willsave)
+ register ARG *arg;
+ int willsave;
+ {
+     register int i;
+     int shouldsave = FALSE;
+ 
+     for (i = arg->arg_len; i >= 1; i--) {
+ 	switch (arg[i].arg_type & A_MASK) {
+ 	case A_NULL:
+ 	    break;
+ 	case A_LEXPR:
+ 	case A_EXPR:
+ 	    shouldsave |= arg_tosave(arg[i].arg_ptr.arg_arg,shouldsave);
+ 	    break;
+ 	case A_CMD:
+ 	    shouldsave |= cmd_tosave(arg[i].arg_ptr.arg_cmd,shouldsave);
+ 	    break;
+ 	case A_WORD:
+ 	case A_STAB:
+ 	case A_LVAL:
+ 	case A_READ:
+ 	case A_GLOB:
+ 	case A_ARYLEN:
+ 	case A_SINGLE:
+ 	case A_DOUBLE:
+ 	case A_BACKTICK:
+ 	    break;
+ 	case A_SPAT:
+ 	    shouldsave |= spat_tosave(arg[i].arg_ptr.arg_spat);
+ 	    break;
+ 	}
+     }
+     switch (arg->arg_type) {
+     case O_RETURN:
+ 	saw_return = TRUE;
+ 	break;
+     case O_EVAL:
+     case O_SUBR:
+ 	shouldsave = TRUE;
+ 	break;
+     }
+     if (willsave)
+ 	(void)apush(tosave,arg->arg_ptr.arg_str);
+     return shouldsave;
+ }
+ 
+ static int
+ spat_tosave(spat)
+ register SPAT *spat;
+ {
+     int shouldsave = FALSE;
+ 
+     if (spat->spat_runtime)
+ 	shouldsave |= arg_tosave(spat->spat_runtime,FALSE);
+     if (spat->spat_repl) {
+ 	shouldsave |= arg_tosave(spat->spat_repl,FALSE);
+     }
+ 
+     return shouldsave;
+ }
+ 


Index: llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/consarg.c
diff -c /dev/null llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/consarg.c:1.1.2.1
*** /dev/null	Mon Mar  1 17:59:23 2004
--- llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/consarg.c	Mon Mar  1 17:59:12 2004
***************
*** 0 ****
--- 1,1200 ----
+ /* $RCSfile: consarg.c,v $$Revision: 1.1.2.1 $$Date: 2004/03/01 23:59:12 $
+  *
+  *    Copyright (c) 1989, Larry Wall
+  *
+  *    You may distribute under the terms of the GNU General Public License
+  *    as specified in the README file that comes with the perl 3.0 kit.
+  *
+  * $Log: consarg.c,v $
+  * Revision 1.1.2.1  2004/03/01 23:59:12  brukman
+  * Merge from trunk
+  *
+  * Revision 1.1  2004/02/17 22:21:15  criswell
+  * Initial commit of the perl Malloc Benchmark.  I've cheated a little by
+  * generating the yacc output files and committing them directly, but it was
+  * easier than disabling the Bison Voodoo that gets executed by default.
+  *
+  * Revision 4.0.1.1  91/04/11  17:38:34  lwall
+  * patch1: fixed "Bad free" error
+  * 
+  * Revision 4.0  91/03/20  01:06:15  lwall
+  * 4.0 baseline.
+  * 
+  */
+ 
+ #include "EXTERN.h"
+ #include "perl.h"
+ static int nothing_in_common();
+ static int arg_common();
+ static int spat_common();
+ 
+ ARG *
+ make_split(stab,arg,limarg)
+ register STAB *stab;
+ register ARG *arg;
+ ARG *limarg;
+ {
+     register SPAT *spat;
+ 
+     if (arg->arg_type != O_MATCH) {
+ 	Newz(201,spat,1,SPAT);
+ 	spat->spat_next = curstash->tbl_spatroot; /* link into spat list */
+ 	curstash->tbl_spatroot = spat;
+ 
+ 	spat->spat_runtime = arg;
+ 	arg = make_match(O_MATCH,stab2arg(A_STAB,defstab),spat);
+     }
+     Renew(arg,4,ARG);
+     arg->arg_len = 3;
+     if (limarg) {
+ 	if (limarg->arg_type == O_ITEM) {
+ 	    Copy(limarg+1,arg+3,1,ARG);
+ 	    limarg[1].arg_type = A_NULL;
+ 	    arg_free(limarg);
+ 	}
+ 	else {
+ 	    arg[3].arg_flags = 0;
+ 	    arg[3].arg_type = A_EXPR;
+ 	    arg[3].arg_ptr.arg_arg = limarg;
+ 	}
+     }
+     else
+ 	arg[3].arg_type = A_NULL;
+     arg->arg_type = O_SPLIT;
+     spat = arg[2].arg_ptr.arg_spat;
+     spat->spat_repl = stab2arg(A_STAB,aadd(stab));
+     if (spat->spat_short) {	/* exact match can bypass regexec() */
+ 	if (!((spat->spat_flags & SPAT_SCANFIRST) &&
+ 	    (spat->spat_flags & SPAT_ALL) )) {
+ 	    str_free(spat->spat_short);
+ 	    spat->spat_short = Nullstr;
+ 	}
+     }
+     return arg;
+ }
+ 
+ ARG *
+ mod_match(type,left,pat)
+ register ARG *left;
+ register ARG *pat;
+ {
+ 
+     register SPAT *spat;
+     register ARG *newarg;
+ 
+     if (!pat)
+ 	return Nullarg;
+ 
+     if ((pat->arg_type == O_MATCH ||
+ 	 pat->arg_type == O_SUBST ||
+ 	 pat->arg_type == O_TRANS ||
+ 	 pat->arg_type == O_SPLIT
+ 	) &&
+ 	pat[1].arg_ptr.arg_stab == defstab ) {
+ 	switch (pat->arg_type) {
+ 	case O_MATCH:
+ 	    newarg = make_op(type == O_MATCH ? O_MATCH : O_NMATCH,
+ 		pat->arg_len,
+ 		left,Nullarg,Nullarg);
+ 	    break;
+ 	case O_SUBST:
+ 	    newarg = l(make_op(type == O_MATCH ? O_SUBST : O_NSUBST,
+ 		pat->arg_len,
+ 		left,Nullarg,Nullarg));
+ 	    break;
+ 	case O_TRANS:
+ 	    newarg = l(make_op(type == O_MATCH ? O_TRANS : O_NTRANS,
+ 		pat->arg_len,
+ 		left,Nullarg,Nullarg));
+ 	    break;
+ 	case O_SPLIT:
+ 	    newarg = make_op(type == O_MATCH ? O_SPLIT : O_SPLIT,
+ 		pat->arg_len,
+ 		left,Nullarg,Nullarg);
+ 	    break;
+ 	}
+ 	if (pat->arg_len >= 2) {
+ 	    newarg[2].arg_type = pat[2].arg_type;
+ 	    newarg[2].arg_ptr = pat[2].arg_ptr;
+ 	    newarg[2].arg_len = pat[2].arg_len;
+ 	    newarg[2].arg_flags = pat[2].arg_flags;
+ 	    if (pat->arg_len >= 3) {
+ 		newarg[3].arg_type = pat[3].arg_type;
+ 		newarg[3].arg_ptr = pat[3].arg_ptr;
+ 		newarg[3].arg_len = pat[3].arg_len;
+ 		newarg[3].arg_flags = pat[3].arg_flags;
+ 	    }
+ 	}
+ 	free_arg(pat);
+     }
+     else {
+ 	Newz(202,spat,1,SPAT);
+ 	spat->spat_next = curstash->tbl_spatroot; /* link into spat list */
+ 	curstash->tbl_spatroot = spat;
+ 
+ 	spat->spat_runtime = pat;
+ 	newarg = make_op(type,2,left,Nullarg,Nullarg);
+ 	newarg[2].arg_type = A_SPAT | A_DONT;
+ 	newarg[2].arg_ptr.arg_spat = spat;
+     }
+ 
+     return newarg;
+ }
+ 
+ ARG *
+ make_op(type,newlen,arg1,arg2,arg3)
+ int type;
+ int newlen;
+ ARG *arg1;
+ ARG *arg2;
+ ARG *arg3;
+ {
+     register ARG *arg;
+     register ARG *chld;
+     register unsigned doarg;
+     register int i;
+     extern ARG *arg4;	/* should be normal arguments, really */
+     extern ARG *arg5;
+ 
+     arg = op_new(newlen);
+     arg->arg_type = type;
+     if (chld = arg1) {
+ 	if (chld->arg_type == O_ITEM &&
+ 	    (hoistable[ i = (chld[1].arg_type&A_MASK)] || i == A_LVAL ||
+ 	     (i == A_LEXPR &&
+ 	      (chld[1].arg_ptr.arg_arg->arg_type == O_LIST ||
+ 	       chld[1].arg_ptr.arg_arg->arg_type == O_ARRAY ||
+ 	       chld[1].arg_ptr.arg_arg->arg_type == O_HASH ))))
+ 	{
+ 	    arg[1].arg_type = chld[1].arg_type;
+ 	    arg[1].arg_ptr = chld[1].arg_ptr;
+ 	    arg[1].arg_flags |= chld[1].arg_flags;
+ 	    arg[1].arg_len = chld[1].arg_len;
+ 	    free_arg(chld);
+ 	}
+ 	else {
+ 	    arg[1].arg_type = A_EXPR;
+ 	    arg[1].arg_ptr.arg_arg = chld;
+ 	}
+     }
+     if (chld = arg2) {
+ 	if (chld->arg_type == O_ITEM && 
+ 	    (hoistable[chld[1].arg_type&A_MASK] || 
+ 	     (type == O_ASSIGN && 
+ 	      ((chld[1].arg_type == A_READ && !(arg[1].arg_type & A_DONT))
+ 		||
+ 	       (chld[1].arg_type == A_INDREAD && !(arg[1].arg_type & A_DONT))
+ 		||
+ 	       (chld[1].arg_type == A_GLOB && !(arg[1].arg_type & A_DONT))
+ 	      ) ) ) ) {
+ 	    arg[2].arg_type = chld[1].arg_type;
+ 	    arg[2].arg_ptr = chld[1].arg_ptr;
+ 	    arg[2].arg_len = chld[1].arg_len;
+ 	    free_arg(chld);
+ 	}
+ 	else {
+ 	    arg[2].arg_type = A_EXPR;
+ 	    arg[2].arg_ptr.arg_arg = chld;
+ 	}
+     }
+     if (chld = arg3) {
+ 	if (chld->arg_type == O_ITEM && hoistable[chld[1].arg_type&A_MASK]) {
+ 	    arg[3].arg_type = chld[1].arg_type;
+ 	    arg[3].arg_ptr = chld[1].arg_ptr;
+ 	    arg[3].arg_len = chld[1].arg_len;
+ 	    free_arg(chld);
+ 	}
+ 	else {
+ 	    arg[3].arg_type = A_EXPR;
+ 	    arg[3].arg_ptr.arg_arg = chld;
+ 	}
+     }
+     if (newlen >= 4 && (chld = arg4)) {
+ 	if (chld->arg_type == O_ITEM && hoistable[chld[1].arg_type&A_MASK]) {
+ 	    arg[4].arg_type = chld[1].arg_type;
+ 	    arg[4].arg_ptr = chld[1].arg_ptr;
+ 	    arg[4].arg_len = chld[1].arg_len;
+ 	    free_arg(chld);
+ 	}
+ 	else {
+ 	    arg[4].arg_type = A_EXPR;
+ 	    arg[4].arg_ptr.arg_arg = chld;
+ 	}
+     }
+     if (newlen >= 5 && (chld = arg5)) {
+ 	if (chld->arg_type == O_ITEM && hoistable[chld[1].arg_type&A_MASK]) {
+ 	    arg[5].arg_type = chld[1].arg_type;
+ 	    arg[5].arg_ptr = chld[1].arg_ptr;
+ 	    arg[5].arg_len = chld[1].arg_len;
+ 	    free_arg(chld);
+ 	}
+ 	else {
+ 	    arg[5].arg_type = A_EXPR;
+ 	    arg[5].arg_ptr.arg_arg = chld;
+ 	}
+     }
+     doarg = opargs[type];
+     for (i = 1; i <= newlen; ++i) {
+ 	if (!(doarg & 1))
+ 	    arg[i].arg_type |= A_DONT;
+ 	if (doarg & 2)
+ 	    arg[i].arg_flags |= AF_ARYOK;
+ 	doarg >>= 2;
+     }
+ #ifdef DEBUGGING
+     if (debug & 16) {
+ 	fprintf(stderr,"%lx <= make_op(%s",arg,opname[arg->arg_type]);
+ 	if (arg1)
+ 	    fprintf(stderr,",%s=%lx",
+ 		argname[arg[1].arg_type&A_MASK],arg[1].arg_ptr.arg_arg);
+ 	if (arg2)
+ 	    fprintf(stderr,",%s=%lx",
+ 		argname[arg[2].arg_type&A_MASK],arg[2].arg_ptr.arg_arg);
+ 	if (arg3)
+ 	    fprintf(stderr,",%s=%lx",
+ 		argname[arg[3].arg_type&A_MASK],arg[3].arg_ptr.arg_arg);
+ 	if (newlen >= 4)
+ 	    fprintf(stderr,",%s=%lx",
+ 		argname[arg[4].arg_type&A_MASK],arg[4].arg_ptr.arg_arg);
+ 	if (newlen >= 5)
+ 	    fprintf(stderr,",%s=%lx",
+ 		argname[arg[5].arg_type&A_MASK],arg[5].arg_ptr.arg_arg);
+ 	fprintf(stderr,")\n");
+     }
+ #endif
+     evalstatic(arg);		/* see if we can consolidate anything */
+     return arg;
+ }
+ 
+ void
+ evalstatic(arg)
+ register ARG *arg;
+ {
+     register STR *str;
+     register STR *s1;
+     register STR *s2;
+     double value;		/* must not be register */
+     register char *tmps;
+     int i;
+     unsigned long tmplong;
+     long tmp2;
+     double exp(), log(), sqrt(), modf();
+     char *crypt();
+     double sin(), cos(), atan2(), pow();
+ 
+     if (!arg || !arg->arg_len)
+ 	return;
+ 
+     if ((arg[1].arg_type == A_SINGLE || arg->arg_type == O_AELEM) &&
+ 	(arg->arg_len == 1 || arg[2].arg_type == A_SINGLE) ) {
+ 	str = Str_new(20,0);
+ 	s1 = arg[1].arg_ptr.arg_str;
+ 	if (arg->arg_len > 1)
+ 	    s2 = arg[2].arg_ptr.arg_str;
+ 	else
+ 	    s2 = Nullstr;
+ 	switch (arg->arg_type) {
+ 	case O_AELEM:
+ 	    i = (int)str_gnum(s2);
+ 	    if (i < 32767 && i >= 0) {
+ 		arg->arg_type = O_ITEM;
+ 		arg->arg_len = 1;
+ 		arg[1].arg_type = A_ARYSTAB;	/* $abc[123] is hoistable now */
+ 		arg[1].arg_len = i;
+ 		str_free(s2);
+ 		arg[2].arg_type = A_NULL;
+ 		arg[2].arg_ptr.arg_str = Nullstr;
+ 	    }
+ 	    /* FALL THROUGH */
+ 	default:
+ 	    str_free(str);
+ 	    str = Nullstr;		/* can't be evaluated yet */
+ 	    break;
+ 	case O_CONCAT:
+ 	    str_sset(str,s1);
+ 	    str_scat(str,s2);
+ 	    break;
+ 	case O_REPEAT:
+ 	    i = (int)str_gnum(s2);
+ 	    tmps = str_get(s1);
+ 	    str_nset(str,"",0);
+ 	    STR_GROW(str, i * s1->str_cur + 1);
+ 	    repeatcpy(str->str_ptr, tmps, s1->str_cur, i);
+ 	    str->str_cur = i * s1->str_cur;
+ 	    str->str_ptr[str->str_cur] = '\0';
+ 	    break;
+ 	case O_MULTIPLY:
+ 	    value = str_gnum(s1);
+ 	    str_numset(str,value * str_gnum(s2));
+ 	    break;
+ 	case O_DIVIDE:
+ 	    value = str_gnum(s2);
+ 	    if (value == 0.0)
+ 		yyerror("Illegal division by constant zero");
+ 	    else
+ #ifdef cray
+ 	    /* insure that 20./5. == 4. */
+ 	    {
+ 		double x;
+ 		int    k;
+ 		x =  str_gnum(s1);
+ 		if ((double)(int)x     == x &&
+ 		    (double)(int)value == value &&
+ 		    (k = (int)x/(int)value)*(int)value == (int)x) {
+ 		    value = k;
+ 		} else {
+ 		    value = x/value;
+ 		}
+ 		str_numset(str,value);
+ 	    }
+ #else
+ 	    str_numset(str,str_gnum(s1) / value);
+ #endif
+ 	    break;
+ 	case O_MODULO:
+ 	    tmplong = (unsigned long)str_gnum(s2);
+ 	    if (tmplong == 0L) {
+ 		yyerror("Illegal modulus of constant zero");
+ 		break;
+ 	    }
+ 	    tmp2 = (long)str_gnum(s1);
+ #ifndef lint
+ 	    if (tmp2 >= 0)
+ 		str_numset(str,(double)(tmp2 % tmplong));
+ 	    else
+ 		str_numset(str,(double)((tmplong-((-tmp2 - 1) % tmplong)) - 1));
+ #else
+ 	    tmp2 = tmp2;
+ #endif
+ 	    break;
+ 	case O_ADD:
+ 	    value = str_gnum(s1);
+ 	    str_numset(str,value + str_gnum(s2));
+ 	    break;
+ 	case O_SUBTRACT:
+ 	    value = str_gnum(s1);
+ 	    str_numset(str,value - str_gnum(s2));
+ 	    break;
+ 	case O_LEFT_SHIFT:
+ 	    value = str_gnum(s1);
+ 	    i = (int)str_gnum(s2);
+ #ifndef lint
+ 	    str_numset(str,(double)(((long)value) << i));
+ #endif
+ 	    break;
+ 	case O_RIGHT_SHIFT:
+ 	    value = str_gnum(s1);
+ 	    i = (int)str_gnum(s2);
+ #ifndef lint
+ 	    str_numset(str,(double)(((long)value) >> i));
+ #endif
+ 	    break;
+ 	case O_LT:
+ 	    value = str_gnum(s1);
+ 	    str_numset(str,(value < str_gnum(s2)) ? 1.0 : 0.0);
+ 	    break;
+ 	case O_GT:
+ 	    value = str_gnum(s1);
+ 	    str_numset(str,(value > str_gnum(s2)) ? 1.0 : 0.0);
+ 	    break;
+ 	case O_LE:
+ 	    value = str_gnum(s1);
+ 	    str_numset(str,(value <= str_gnum(s2)) ? 1.0 : 0.0);
+ 	    break;
+ 	case O_GE:
+ 	    value = str_gnum(s1);
+ 	    str_numset(str,(value >= str_gnum(s2)) ? 1.0 : 0.0);
+ 	    break;
+ 	case O_EQ:
+ 	    if (dowarn) {
+ 		if ((!s1->str_nok && !looks_like_number(s1)) ||
+ 		    (!s2->str_nok && !looks_like_number(s2)) )
+ 		    warn("Possible use of == on string value");
+ 	    }
+ 	    value = str_gnum(s1);
+ 	    str_numset(str,(value == str_gnum(s2)) ? 1.0 : 0.0);
+ 	    break;
+ 	case O_NE:
+ 	    value = str_gnum(s1);
+ 	    str_numset(str,(value != str_gnum(s2)) ? 1.0 : 0.0);
+ 	    break;
+ 	case O_NCMP:
+ 	    value = str_gnum(s1);
+ 	    value -= str_gnum(s2);
+ 	    if (value > 0.0)
+ 		value = 1.0;
+ 	    else if (value < 0.0)
+ 		value = -1.0;
+ 	    str_numset(str,value);
+ 	    break;
+ 	case O_BIT_AND:
+ 	    value = str_gnum(s1);
+ #ifndef lint
+ 	    str_numset(str,(double)(U_L(value) & U_L(str_gnum(s2))));
+ #endif
+ 	    break;
+ 	case O_XOR:
+ 	    value = str_gnum(s1);
+ #ifndef lint
+ 	    str_numset(str,(double)(U_L(value) ^ U_L(str_gnum(s2))));
+ #endif
+ 	    break;
+ 	case O_BIT_OR:
+ 	    value = str_gnum(s1);
+ #ifndef lint
+ 	    str_numset(str,(double)(U_L(value) | U_L(str_gnum(s2))));
+ #endif
+ 	    break;
+ 	case O_AND:
+ 	    if (str_true(s1))
+ 		str_sset(str,s2);
+ 	    else
+ 		str_sset(str,s1);
+ 	    break;
+ 	case O_OR:
+ 	    if (str_true(s1))
+ 		str_sset(str,s1);
+ 	    else
+ 		str_sset(str,s2);
+ 	    break;
+ 	case O_COND_EXPR:
+ 	    if ((arg[3].arg_type & A_MASK) != A_SINGLE) {
+ 		str_free(str);
+ 		str = Nullstr;
+ 	    }
+ 	    else {
+ 		if (str_true(s1))
+ 		    str_sset(str,s2);
+ 		else
+ 		    str_sset(str,arg[3].arg_ptr.arg_str);
+ 		str_free(arg[3].arg_ptr.arg_str);
+ 		arg[3].arg_ptr.arg_str = Nullstr;
+ 	    }
+ 	    break;
+ 	case O_NEGATE:
+ 	    str_numset(str,(double)(-str_gnum(s1)));
+ 	    break;
+ 	case O_NOT:
+ 	    str_numset(str,(double)(!str_true(s1)));
+ 	    break;
+ 	case O_COMPLEMENT:
+ #ifndef lint
+ 	    str_numset(str,(double)(~U_L(str_gnum(s1))));
+ #endif
+ 	    break;
+ 	case O_SIN:
+ 	    str_numset(str,sin(str_gnum(s1)));
+ 	    break;
+ 	case O_COS:
+ 	    str_numset(str,cos(str_gnum(s1)));
+ 	    break;
+ 	case O_ATAN2:
+ 	    value = str_gnum(s1);
+ 	    str_numset(str,atan2(value, str_gnum(s2)));
+ 	    break;
+ 	case O_POW:
+ 	    value = str_gnum(s1);
+ 	    str_numset(str,pow(value, str_gnum(s2)));
+ 	    break;
+ 	case O_LENGTH:
+ 	    str_numset(str, (double)str_len(s1));
+ 	    break;
+ 	case O_SLT:
+ 	    str_numset(str,(double)(str_cmp(s1,s2) < 0));
+ 	    break;
+ 	case O_SGT:
+ 	    str_numset(str,(double)(str_cmp(s1,s2) > 0));
+ 	    break;
+ 	case O_SLE:
+ 	    str_numset(str,(double)(str_cmp(s1,s2) <= 0));
+ 	    break;
+ 	case O_SGE:
+ 	    str_numset(str,(double)(str_cmp(s1,s2) >= 0));
+ 	    break;
+ 	case O_SEQ:
+ 	    str_numset(str,(double)(str_eq(s1,s2)));
+ 	    break;
+ 	case O_SNE:
+ 	    str_numset(str,(double)(!str_eq(s1,s2)));
+ 	    break;
+ 	case O_SCMP:
+ 	    str_numset(str,(double)(str_cmp(s1,s2)));
+ 	    break;
+ 	case O_CRYPT:
+ #ifdef HAS_CRYPT
+ 	    tmps = str_get(s1);
+ 	    str_set(str,crypt(tmps,str_get(s2)));
+ #else
+ 	    yyerror(
+ 	    "The crypt() function is unimplemented due to excessive paranoia.");
+ #endif
+ 	    break;
+ 	case O_EXP:
+ 	    str_numset(str,exp(str_gnum(s1)));
+ 	    break;
+ 	case O_LOG:
+ 	    str_numset(str,log(str_gnum(s1)));
+ 	    break;
+ 	case O_SQRT:
+ 	    str_numset(str,sqrt(str_gnum(s1)));
+ 	    break;
+ 	case O_INT:
+ 	    value = str_gnum(s1);
+ 	    if (value >= 0.0)
+ 		(void)modf(value,&value);
+ 	    else {
+ 		(void)modf(-value,&value);
+ 		value = -value;
+ 	    }
+ 	    str_numset(str,value);
+ 	    break;
+ 	case O_ORD:
+ #ifndef I286
+ 	    str_numset(str,(double)(*str_get(s1)));
+ #else
+ 	    {
+ 		int  zapc;
+ 		char *zaps;
+ 
+ 		zaps = str_get(s1);
+ 		zapc = (int) *zaps;
+ 		str_numset(str,(double)(zapc));
+ 	    }
+ #endif
+ 	    break;
+ 	}
+ 	if (str) {
+ 	    arg->arg_type = O_ITEM;	/* note arg1 type is already SINGLE */
+ 	    str_free(s1);
+ 	    arg[1].arg_ptr.arg_str = str;
+ 	    if (s2) {
+ 		str_free(s2);
+ 		arg[2].arg_ptr.arg_str = Nullstr;
+ 		arg[2].arg_type = A_NULL;
+ 	    }
+ 	}
+     }
+ }
+ 
+ ARG *
+ l(arg)
+ register ARG *arg;
+ {
+     register int i;
+     register ARG *arg1;
+     register ARG *arg2;
+     SPAT *spat;
+     int arghog = 0;
+ 
+     i = arg[1].arg_type & A_MASK;
+ 
+     arg->arg_flags |= AF_COMMON;	/* assume something in common */
+ 					/* which forces us to copy things */
+ 
+     if (i == A_ARYLEN) {
+ 	arg[1].arg_type = A_LARYLEN;
+ 	return arg;
+     }
+     if (i == A_ARYSTAB) {
+ 	arg[1].arg_type = A_LARYSTAB;
+ 	return arg;
+     }
+ 
+     /* see if it's an array reference */
+ 
+     if (i == A_EXPR || i == A_LEXPR) {
+ 	arg1 = arg[1].arg_ptr.arg_arg;
+ 
+ 	if (arg1->arg_type == O_LIST || arg1->arg_type == O_ITEM) {
+ 						/* assign to list */
+ 	    if (arg->arg_len > 1) {
+ 		dehoist(arg,2);
+ 		arg2 = arg[2].arg_ptr.arg_arg;
+ 		if (nothing_in_common(arg1,arg2))
+ 		    arg->arg_flags &= ~AF_COMMON;
+ 		if (arg->arg_type == O_ASSIGN) {
+ 		    if (arg1->arg_flags & AF_LOCAL)
+ 			arg->arg_flags |= AF_LOCAL;
+ 		    arg[1].arg_flags |= AF_ARYOK;
+ 		    arg[2].arg_flags |= AF_ARYOK;
+ 		}
+ 	    }
+ 	    else if (arg->arg_type != O_CHOP)
+ 		arg->arg_type = O_ASSIGN;	/* possible local(); */
+ 	    for (i = arg1->arg_len; i >= 1; i--) {
+ 		switch (arg1[i].arg_type) {
+ 		case A_STAR: case A_LSTAR:
+ 		    arg1[i].arg_type = A_LSTAR;
+ 		    break;
+ 		case A_STAB: case A_LVAL:
+ 		    arg1[i].arg_type = A_LVAL;
+ 		    break;
+ 		case A_ARYLEN: case A_LARYLEN:
+ 		    arg1[i].arg_type = A_LARYLEN;
+ 		    break;
+ 		case A_ARYSTAB: case A_LARYSTAB:
+ 		    arg1[i].arg_type = A_LARYSTAB;
+ 		    break;
+ 		case A_EXPR: case A_LEXPR:
+ 		    arg1[i].arg_type = A_LEXPR;
+ 		    switch(arg1[i].arg_ptr.arg_arg->arg_type) {
+ 		    case O_ARRAY: case O_LARRAY:
+ 			arg1[i].arg_ptr.arg_arg->arg_type = O_LARRAY;
+ 			arghog = 1;
+ 			break;
+ 		    case O_AELEM: case O_LAELEM:
+ 			arg1[i].arg_ptr.arg_arg->arg_type = O_LAELEM;
+ 			break;
+ 		    case O_HASH: case O_LHASH:
+ 			arg1[i].arg_ptr.arg_arg->arg_type = O_LHASH;
+ 			arghog = 1;
+ 			break;
+ 		    case O_HELEM: case O_LHELEM:
+ 			arg1[i].arg_ptr.arg_arg->arg_type = O_LHELEM;
+ 			break;
+ 		    case O_ASLICE: case O_LASLICE:
+ 			arg1[i].arg_ptr.arg_arg->arg_type = O_LASLICE;
+ 			break;
+ 		    case O_HSLICE: case O_LHSLICE:
+ 			arg1[i].arg_ptr.arg_arg->arg_type = O_LHSLICE;
+ 			break;
+ 		    default:
+ 			goto ill_item;
+ 		    }
+ 		    break;
+ 		default:
+ 		  ill_item:
+ 		    (void)sprintf(tokenbuf, "Illegal item (%s) as lvalue",
+ 		      argname[arg1[i].arg_type&A_MASK]);
+ 		    yyerror(tokenbuf);
+ 		}
+ 	    }
+ 	    if (arg->arg_len > 1) {
+ 		if (arg2->arg_type == O_SPLIT && !arg2[3].arg_type && !arghog) {
+ 		    arg2[3].arg_type = A_SINGLE;
+ 		    arg2[3].arg_ptr.arg_str =
+ 		      str_nmake((double)arg1->arg_len + 1); /* limit split len*/
+ 		}
+ 	    }
+ 	}
+ 	else if (arg1->arg_type == O_AELEM || arg1->arg_type == O_LAELEM)
+ 	    if (arg->arg_type == O_DEFINED)
+ 		arg1->arg_type = O_AELEM;
+ 	    else
+ 		arg1->arg_type = O_LAELEM;
+ 	else if (arg1->arg_type == O_ARRAY || arg1->arg_type == O_LARRAY) {
+ 	    arg1->arg_type = O_LARRAY;
+ 	    if (arg->arg_len > 1) {
+ 		dehoist(arg,2);
+ 		arg2 = arg[2].arg_ptr.arg_arg;
+ 		if (arg2->arg_type == O_SPLIT) { /* use split's builtin =?*/
+ 		    spat = arg2[2].arg_ptr.arg_spat;
+ 		    if (!(spat->spat_flags & SPAT_ONCE) &&
+ 		      nothing_in_common(arg1,spat->spat_repl)) {
+ 			spat->spat_repl[1].arg_ptr.arg_stab =
+ 			    arg1[1].arg_ptr.arg_stab;
+ 			arg1[1].arg_ptr.arg_stab = Nullstab;
+ 			spat->spat_flags |= SPAT_ONCE;
+ 			arg_free(arg1);	/* recursive */
+ 			arg[1].arg_ptr.arg_arg = Nullarg;
+ 			free_arg(arg);	/* non-recursive */
+ 			return arg2;	/* split has builtin assign */
+ 		    }
+ 		}
+ 		else if (nothing_in_common(arg1,arg2))
+ 		    arg->arg_flags &= ~AF_COMMON;
+ 		if (arg->arg_type == O_ASSIGN) {
+ 		    arg[1].arg_flags |= AF_ARYOK;
+ 		    arg[2].arg_flags |= AF_ARYOK;
+ 		}
+ 	    }
+ 	    else if (arg->arg_type == O_ASSIGN)
+ 		arg[1].arg_flags |= AF_ARYOK;
+ 	}
+ 	else if (arg1->arg_type == O_HELEM || arg1->arg_type == O_LHELEM)
+ 	    if (arg->arg_type == O_DEFINED)
+ 		arg1->arg_type = O_HELEM;	/* avoid creating one */
+ 	    else
+ 		arg1->arg_type = O_LHELEM;
+ 	else if (arg1->arg_type == O_HASH || arg1->arg_type == O_LHASH) {
+ 	    arg1->arg_type = O_LHASH;
+ 	    if (arg->arg_len > 1) {
+ 		dehoist(arg,2);
+ 		arg2 = arg[2].arg_ptr.arg_arg;
+ 		if (nothing_in_common(arg1,arg2))
+ 		    arg->arg_flags &= ~AF_COMMON;
+ 		if (arg->arg_type == O_ASSIGN) {
+ 		    arg[1].arg_flags |= AF_ARYOK;
+ 		    arg[2].arg_flags |= AF_ARYOK;
+ 		}
+ 	    }
+ 	    else if (arg->arg_type == O_ASSIGN)
+ 		arg[1].arg_flags |= AF_ARYOK;
+ 	}
+ 	else if (arg1->arg_type == O_ASLICE) {
+ 	    arg1->arg_type = O_LASLICE;
+ 	    if (arg->arg_type == O_ASSIGN) {
+ 		dehoist(arg,2);
+ 		arg[1].arg_flags |= AF_ARYOK;
+ 		arg[2].arg_flags |= AF_ARYOK;
+ 	    }
+ 	}
+ 	else if (arg1->arg_type == O_HSLICE) {
+ 	    arg1->arg_type = O_LHSLICE;
+ 	    if (arg->arg_type == O_ASSIGN) {
+ 		dehoist(arg,2);
+ 		arg[1].arg_flags |= AF_ARYOK;
+ 		arg[2].arg_flags |= AF_ARYOK;
+ 	    }
+ 	}
+ 	else if ((arg->arg_type == O_DEFINED || arg->arg_type == O_UNDEF) &&
+ 	  (arg1->arg_type == (perldb ? O_DBSUBR : O_SUBR)) ) {
+ 	    arg[1].arg_type |= A_DONT;
+ 	}
+ 	else if (arg1->arg_type == O_SUBSTR || arg1->arg_type == O_VEC) {
+ 	    (void)l(arg1);
+ 	    Renewc(arg1->arg_ptr.arg_str, 1, struct lstring, STR);
+ 			/* grow string struct to hold an lstring struct */
+ 	}
+ 	else if (arg1->arg_type == O_ASSIGN) {
+ /*	    if (arg->arg_type == O_CHOP)
+ 		arg[1].arg_flags &= ~AF_ARYOK;	/* grandfather chop idiom */
+ 	}
+ 	else {
+ 	    (void)sprintf(tokenbuf,
+ 	      "Illegal expression (%s) as lvalue",opname[arg1->arg_type]);
+ 	    yyerror(tokenbuf);
+ 	}
+ 	arg[1].arg_type = A_LEXPR | (arg[1].arg_type & A_DONT);
+ 	if (arg->arg_type == O_ASSIGN && (arg1[1].arg_flags & AF_ARYOK)) {
+ 	    arg[1].arg_flags |= AF_ARYOK;
+ 	    if (arg->arg_len > 1)
+ 		arg[2].arg_flags |= AF_ARYOK;
+ 	}
+ #ifdef DEBUGGING
+ 	if (debug & 16)
+ 	    fprintf(stderr,"lval LEXPR\n");
+ #endif
+ 	return arg;
+     }
+     if (i == A_STAR || i == A_LSTAR) {
+ 	arg[1].arg_type = A_LSTAR | (arg[1].arg_type & A_DONT);
+ 	return arg;
+     }
+ 
+     /* not an array reference, should be a register name */
+ 
+     if (i != A_STAB && i != A_LVAL) {
+ 	(void)sprintf(tokenbuf,
+ 	  "Illegal item (%s) as lvalue",argname[arg[1].arg_type&A_MASK]);
+ 	yyerror(tokenbuf);
+     }
+     arg[1].arg_type = A_LVAL | (arg[1].arg_type & A_DONT);
+ #ifdef DEBUGGING
+     if (debug & 16)
+ 	fprintf(stderr,"lval LVAL\n");
+ #endif
+     return arg;
+ }
+ 
+ ARG *
+ fixl(type,arg)
+ int type;
+ ARG *arg;
+ {
+     if (type == O_DEFINED || type == O_UNDEF) {
+ 	if (arg->arg_type != O_ITEM)
+ 	    arg = hide_ary(arg);
+ 	if (arg->arg_type == O_ITEM) {
+ 	    type = arg[1].arg_type & A_MASK;
+ 	    if (type == A_EXPR || type == A_LEXPR)
+ 		arg[1].arg_type = A_LEXPR|A_DONT;
+ 	}
+     }
+     return arg;
+ }
+ 
+ dehoist(arg,i)
+ ARG *arg;
+ {
+     ARG *tmparg;
+ 
+     if (arg[i].arg_type != A_EXPR) {	/* dehoist */
+ 	tmparg = make_op(O_ITEM,1,Nullarg,Nullarg,Nullarg);
+ 	tmparg[1] = arg[i];
+ 	arg[i].arg_ptr.arg_arg = tmparg;
+ 	arg[i].arg_type = A_EXPR;
+     }
+ }
+ 
+ ARG *
+ addflags(i,flags,arg)
+ register ARG *arg;
+ {
+     arg[i].arg_flags |= flags;
+     return arg;
+ }
+ 
+ ARG *
+ hide_ary(arg)
+ ARG *arg;
+ {
+     if (arg->arg_type == O_ARRAY || arg->arg_type == O_HASH)
+ 	return make_op(O_ITEM,1,arg,Nullarg,Nullarg);
+     return arg;
+ }
+ 
+ /* maybe do a join on multiple array dimensions */
+ 
+ ARG *
+ jmaybe(arg)
+ register ARG *arg;
+ {
+     if (arg && arg->arg_type == O_COMMA) {
+ 	arg = listish(arg);
+ 	arg = make_op(O_JOIN, 2,
+ 	    stab2arg(A_STAB,stabent(";",TRUE)),
+ 	    make_list(arg),
+ 	    Nullarg);
+     }
+     return arg;
+ }
+ 
+ ARG *
+ make_list(arg)
+ register ARG *arg;
+ {
+     register int i;
+     register ARG *node;
+     register ARG *nxtnode;
+     register int j;
+     STR *tmpstr;
+ 
+     if (!arg) {
+ 	arg = op_new(0);
+ 	arg->arg_type = O_LIST;
+     }
+     if (arg->arg_type != O_COMMA) {
+ 	if (arg->arg_type != O_ARRAY)
+ 	    arg->arg_flags |= AF_LISTISH;	/* see listish() below */
+ 	    arg->arg_flags |= AF_LISTISH;	/* see listish() below */
+ 	return arg;
+     }
+     for (i = 2, node = arg; ; i++) {
+ 	if (node->arg_len < 2)
+ 	    break;
+         if (node[1].arg_type != A_EXPR)
+ 	    break;
+ 	node = node[1].arg_ptr.arg_arg;
+ 	if (node->arg_type != O_COMMA)
+ 	    break;
+     }
+     if (i > 2) {
+ 	node = arg;
+ 	arg = op_new(i);
+ 	tmpstr = arg->arg_ptr.arg_str;
+ #ifdef STRUCTCOPY
+ 	*arg = *node;		/* copy everything except the STR */
+ #else
+ 	(void)bcopy((char *)node, (char *)arg, sizeof(ARG));
+ #endif
+ 	arg->arg_ptr.arg_str = tmpstr;
+ 	for (j = i; ; ) {
+ #ifdef STRUCTCOPY
+ 	    arg[j] = node[2];
+ #else
+ 	    (void)bcopy((char *)(node+2), (char *)(arg+j), sizeof(ARG));
+ #endif
+ 	    arg[j].arg_flags |= AF_ARYOK;
+ 	    --j;		/* Bug in Xenix compiler */
+ 	    if (j < 2) {
+ #ifdef STRUCTCOPY
+ 		arg[1] = node[1];
+ #else
+ 		(void)bcopy((char *)(node+1), (char *)(arg+1), sizeof(ARG));
+ #endif
+ 		free_arg(node);
+ 		break;
+ 	    }
+ 	    nxtnode = node[1].arg_ptr.arg_arg;
+ 	    free_arg(node);
+ 	    node = nxtnode;
+ 	}
+     }
+     arg[1].arg_flags |= AF_ARYOK;
+     arg[2].arg_flags |= AF_ARYOK;
+     arg->arg_type = O_LIST;
+     arg->arg_len = i;
+     return arg;
+ }
+ 
+ /* turn a single item into a list */
+ 
+ ARG *
+ listish(arg)
+ ARG *arg;
+ {
+     if (arg->arg_flags & AF_LISTISH)
+ 	arg = make_op(O_LIST,1,arg,Nullarg,Nullarg);
+     return arg;
+ }
+ 
+ ARG *
+ maybelistish(optype, arg)
+ int optype;
+ ARG *arg;
+ {
+     ARG *tmparg = arg;
+ 
+     if (optype == O_RETURN && arg->arg_type == O_ITEM &&
+       arg[1].arg_type == A_EXPR && (tmparg = arg[1].arg_ptr.arg_arg) &&
+       ((tmparg->arg_flags & AF_LISTISH) || (tmparg->arg_type == O_ARRAY) )) {
+ 	tmparg = listish(tmparg);
+ 	free_arg(arg);
+ 	arg = tmparg;
+     }
+     else if (optype == O_PRTF ||
+       (arg->arg_type == O_ASLICE || arg->arg_type == O_HSLICE ||
+        arg->arg_type == O_F_OR_R) )
+ 	arg = listish(arg);
+     return arg;
+ }
+ 
+ /* mark list of local variables */
+ 
+ ARG *
+ localize(arg)
+ ARG *arg;
+ {
+     arg->arg_flags |= AF_LOCAL;
+     return arg;
+ }
+ 
+ ARG *
+ rcatmaybe(arg)
+ ARG *arg;
+ {
+     ARG *arg2;
+ 
+     if (arg->arg_type == O_CONCAT && arg[2].arg_type == A_EXPR) {
+ 	arg2 = arg[2].arg_ptr.arg_arg;
+ 	if (arg2->arg_type == O_ITEM && arg2[1].arg_type == A_READ) {
+ 	    arg->arg_type = O_RCAT;	
+ 	    arg[2].arg_type = arg2[1].arg_type;
+ 	    arg[2].arg_ptr = arg2[1].arg_ptr;
+ 	    free_arg(arg2);
+ 	}
+     }
+     return arg;
+ }
+ 
+ ARG *
+ stab2arg(atype,stab)
+ int atype;
+ register STAB *stab;
+ {
+     register ARG *arg;
+ 
+     arg = op_new(1);
+     arg->arg_type = O_ITEM;
+     arg[1].arg_type = atype;
+     arg[1].arg_ptr.arg_stab = stab;
+     return arg;
+ }
+ 
+ ARG *
+ cval_to_arg(cval)
+ register char *cval;
+ {
+     register ARG *arg;
+ 
+     arg = op_new(1);
+     arg->arg_type = O_ITEM;
+     arg[1].arg_type = A_SINGLE;
+     arg[1].arg_ptr.arg_str = str_make(cval,0);
+     Safefree(cval);
+     return arg;
+ }
+ 
+ ARG *
+ op_new(numargs)
+ int numargs;
+ {
+     register ARG *arg;
+ 
+     Newz(203,arg, numargs + 1, ARG);
+     arg->arg_ptr.arg_str = Str_new(21,0);
+     arg->arg_len = numargs;
+     return arg;
+ }
+ 
+ void
+ free_arg(arg)
+ ARG *arg;
+ {
+     str_free(arg->arg_ptr.arg_str);
+     Safefree(arg);
+ }
+ 
+ ARG *
+ make_match(type,expr,spat)
+ int type;
+ ARG *expr;
+ SPAT *spat;
+ {
+     register ARG *arg;
+ 
+     arg = make_op(type,2,expr,Nullarg,Nullarg);
+ 
+     arg[2].arg_type = A_SPAT|A_DONT;
+     arg[2].arg_ptr.arg_spat = spat;
+ #ifdef DEBUGGING
+     if (debug & 16)
+ 	fprintf(stderr,"make_match SPAT=%lx\n",(long)spat);
+ #endif
+ 
+     if (type == O_SUBST || type == O_NSUBST) {
+ 	if (arg[1].arg_type != A_STAB) {
+ 	    yyerror("Illegal lvalue");
+ 	}
+ 	arg[1].arg_type = A_LVAL;
+     }
+     return arg;
+ }
+ 
+ ARG *
+ cmd_to_arg(cmd)
+ CMD *cmd;
+ {
+     register ARG *arg;
+ 
+     arg = op_new(1);
+     arg->arg_type = O_ITEM;
+     arg[1].arg_type = A_CMD;
+     arg[1].arg_ptr.arg_cmd = cmd;
+     return arg;
+ }
+ 
+ /* Check two expressions to see if there is any identifier in common */
+ 
+ static int
+ nothing_in_common(arg1,arg2)
+ ARG *arg1;
+ ARG *arg2;
+ {
+     static int thisexpr = 0;	/* I don't care if this wraps */
+ 
+     thisexpr++;
+     if (arg_common(arg1,thisexpr,1))
+ 	return 0;	/* hit eval or do {} */
+     stab_lastexpr(defstab) = thisexpr;		/* pretend to hit @_ */
+     if (arg_common(arg2,thisexpr,0))
+ 	return 0;	/* hit identifier again */
+     return 1;
+ }
+ 
+ /* Recursively descend an expression and mark any identifier or check
+  * it to see if it was marked already.
+  */
+ 
+ static int
+ arg_common(arg,exprnum,marking)
+ register ARG *arg;
+ int exprnum;
+ int marking;
+ {
+     register int i;
+ 
+     if (!arg)
+ 	return 0;
+     for (i = arg->arg_len; i >= 1; i--) {
+ 	switch (arg[i].arg_type & A_MASK) {
+ 	case A_NULL:
+ 	    break;
+ 	case A_LEXPR:
+ 	case A_EXPR:
+ 	    if (arg_common(arg[i].arg_ptr.arg_arg,exprnum,marking))
+ 		return 1;
+ 	    break;
+ 	case A_CMD:
+ 	    return 1;		/* assume hanky panky */
+ 	case A_STAR:
+ 	case A_LSTAR:
+ 	case A_STAB:
+ 	case A_LVAL:
+ 	case A_ARYLEN:
+ 	case A_LARYLEN:
+ 	    if (marking)
+ 		stab_lastexpr(arg[i].arg_ptr.arg_stab) = exprnum;
+ 	    else if (stab_lastexpr(arg[i].arg_ptr.arg_stab) == exprnum)
+ 		return 1;
+ 	    break;
+ 	case A_DOUBLE:
+ 	case A_BACKTICK:
+ 	    {
+ 		register char *s = arg[i].arg_ptr.arg_str->str_ptr;
+ 		register char *send = s + arg[i].arg_ptr.arg_str->str_cur;
+ 		register STAB *stab;
+ 
+ 		while (*s) {
+ 		    if (*s == '$' && s[1]) {
+ 			s = scanident(s,send,tokenbuf);
+ 			stab = stabent(tokenbuf,TRUE);
+ 			if (marking)
+ 			    stab_lastexpr(stab) = exprnum;
+ 			else if (stab_lastexpr(stab) == exprnum)
+ 			    return 1;
+ 			continue;
+ 		    }
+ 		    else if (*s == '\\' && s[1])
+ 			s++;
+ 		    s++;
+ 		}
+ 	    }
+ 	    break;
+ 	case A_SPAT:
+ 	    if (spat_common(arg[i].arg_ptr.arg_spat,exprnum,marking))
+ 		return 1;
+ 	    break;
+ 	case A_READ:
+ 	case A_INDREAD:
+ 	case A_GLOB:
+ 	case A_WORD:
+ 	case A_SINGLE:
+ 	    break;
+ 	}
+     }
+     switch (arg->arg_type) {
+     case O_ARRAY:
+     case O_LARRAY:
+ 	if ((arg[1].arg_type & A_MASK) == A_STAB)
+ 	    (void)aadd(arg[1].arg_ptr.arg_stab);
+ 	break;
+     case O_HASH:
+     case O_LHASH:
+ 	if ((arg[1].arg_type & A_MASK) == A_STAB)
+ 	    (void)hadd(arg[1].arg_ptr.arg_stab);
+ 	break;
+     case O_EVAL:
+     case O_SUBR:
+     case O_DBSUBR:
+ 	return 1;
+     }
+     return 0;
+ }
+ 
+ static int
+ spat_common(spat,exprnum,marking)
+ register SPAT *spat;
+ int exprnum;
+ int marking;
+ {
+     if (spat->spat_runtime)
+ 	if (arg_common(spat->spat_runtime,exprnum,marking))
+ 	    return 1;
+     if (spat->spat_repl) {
+ 	if (arg_common(spat->spat_repl,exprnum,marking))
+ 	    return 1;
+     }
+     return 0;
+ }


Index: llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/cscope.out
diff -c /dev/null llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/cscope.out:1.1.2.1
*** /dev/null	Mon Mar  1 17:59:24 2004
--- llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl/cscope.out	Mon Mar  1 17:59:12 2004
***************
*** 0 ****
--- 1,194410 ----
+ cscope 15 /mounts/choi/disks/0/localhome/criswell/llvm/test/Programs/MultiSource/Benchmarks/MallocBench/perl               0000935393
+ 	@EXTERN.h
+ 
+ 14 #undeà
+ EXT
+ 
+ 
+ 15 
+ 	#EXT
+  
+ 
+ 	)
+ 
+ 17 #undeà
+ INIT
+ 
+ 
+ 18 
+ 	#INIT
+ (
+ x
+ )
+ 
+ 	)
+ 
+ 20 #undeà
+ DOINIT
+ 
+ 
+ 	@INTERN.h
+ 
+ 14 #undeà
+ EXT
+ 
+ 
+ 15 
+ 	#EXT
+ 
+ 
+ 	)
+ 
+ 17 #undeà
+ INIT
+ 
+ 
+ 18 
+ 	#INIT
+ (
+ x
+ èð
+ 	)
+ x
+ 
+ 20 
+ 	#DOINIT
+ 
+ 
+ 	)
+ 
+ 	@arg.h
+ 
+ 14 
+ 	#O_NULL
+  0
+ 
+ 	)
+ 
+ 15 
+ 	#O_RCAT
+  1
+ 
+ 	)
+ 
+ 16 
+ 	#O_ITEM
+  2
+ 
+ 	)
+ 
+ 17 
+ 	#O_SCALAR
+  3
+ 
+ 	)
+ 
+ 18 
+ 	#O_ITEM2
+  4
+ 
+ 	)
+ 
+ 19 
+ 	#O_ITEM3
+  5
+ 
+ 	)
+ 
+ 20 
+ 	#O_CONCAT
+  6
+ 
+ 	)
+ 
+ 21 
+ 	#O_REPEAT
+  7
+ 
+ 	)
+ 
+ 22 
+ 	#O_MATCH
+  8
+ 
+ 	)
+ 
+ 23 
+ 	#O_NMATCH
+  9
+ 
+ 	)
+ 
+ 24 
+ 	#O_SUBST
+  10
+ 
+ 	)
+ 
+ 25 
+ 	#O_NSUBST
+  11
+ 
+ 	)
+ 
+ 26 
+ 	#O_ASSIGN
+  12
+ 
+ 	)
+ 
+ 27 
+ 	#O_LOCAL
+  13
+ 
+ 	)
+ 
+ 28 
+ 	#O_AASSIGN
+  14
+ 
+ 	)
+ 
+ 29 
+ 	#O_SASSIGN
+  15
+ 
+ 	)
+ 
+ 30 
+ 	#O_CHOP
+  16
+ 
+ 	)
+ 
+ 31 
+ 	#O_DEFINED
+  17
+ 
+ 	)
+ 
+ 32 
+ 	#O_UNDEF
+  18
+ 
+ 	)
+ 
+ 33 
+ 	#O_STUDY
+  19
+ 
+ 	)
+ 
+ 34 
+ 	#O_POW
+  20
+ 
+ 	)
+ 
+ 35 
+ 	#O_MULTIPLY
+  21
+ 
+ 	)
+ 
+ 36 
+ 	#O_DIVIDE
+  22
+ 
+ 	)
+ 
+ 37 
+ 	#O_MODULO
+  23
+ 
+ 	)
+ 
+ 38 
+ 	#O_ADD
+  24
+ 
+ 	)
+ 
+ 39 
+ 	#O_SUBTRACT
+  25
+ 
+ 	)
+ 
+ 40 
+ 	#O_LEFT_SHIFT
+  26
+ 
+ 	)
+ 
+ 41 
+ 	#O_RIGHT_SHIFT
+  27
+ 
+ 	)
+ 
+ 42 
+ 	#O_LT
+  28
+ 
+ 	)
+ 
+ 43 
+ 	#O_GT
+  29
+ 
+ 	)
+ 
+ 44 
+ 	#O_LE
+  30
+ 
+ 	)
+ 
+ 45 
+ 	#O_GE
+  31
+ 
+ 	)
+ 
+ 46 
+ 	#O_EQ
+  32
+ 
+ 	)
+ 
+ 47 
+ 	#O_NE
+  33
+ 
+ 	)
+ 
+ 48 
+ 	#O_NCMP
+  34
+ 
+ 	)
+ 
+ 49 
+ 	#O_BIT_AND
+  35
+ 
+ 	)
+ 
+ 50 
+ 	#O_XOR
+  36
+ 
+ 	)
+ 
+ 51 
+ 	#O_BIT_OR
+  37
+ 
+ 	)
+ 
+ 52 
+ 	#O_AND
+  38
+ 
+ 	)
+ 
+ 53 
+ 	#O_OR
+  39
+ 
+ 	)
+ 
+ 54 
+ 	#O_COND_EXPR
+  40
+ 
+ 	)
+ 
+ 55 
+ 	#O_COMMA
+  41
+ 
+ 	)
+ 
+ 56 
+ 	#O_NEGATE
+  42
+ 
+ 	)
+ 
+ 57 
+ 	#O_NOT
+  43
+ 
+ 	)
+ 
+ 58 
+ 	#O_COMPLEMENT
+  44
+ 
+ 	)
+ 
+ 59 
+ 	#O_SELECT
+  45
+ 
+ 	)
+ 
+ 60 
+ 	#O_WRITE
+  46
+ 
+ 	)
+ 
+ 61 
+ 	#O_DBMOPEN
+  47
+ 
+ 	)
+ 
+ 62 
+ 	#O_DBMCLOSE
+  48
+ 
+ 	)
+ 
+ 63 
+ 	#O_OPEN
+  49
+ 
+ 	)
+ 
+ 64 
+ 	#O_TRANS
+  50
+ 
+ 	)
+ 
+ 65 
+ 	#O_NTRANS
+  51
+ 
+ 	)
+ 
+ 66 
+ 	#O_CLOSE
+  52
+ 
+ 	)
+ 
+ 67 
+ 	#O_EACH
+  53
+ 
+ 	)
+ 
+ 68 
+ 	#O_VALUES
+  54
+ 
+ 	)
+ 
+ 69 
+ 	#O_KEYS
+  55
+ 
+ 	)
+ 
+ 70 
+ 	#O_LARRAY
+  56
+ 
+ 	)
+ 
+ 71 
+ 	#O_ARRAY
+  57
+ 
+ 	)
+ 
+ 72 
+ 	#O_AELEM
+  58
+ 
+ 	)
+ 
+ 73 
+ 	#O_DELETE
+  59
+ 
+ 	)
+ 
+ 74 
+ 	#O_LHASH
+  60
+ 
+ 	)
+ 
+ 75 
+ 	#O_HASH
+  61
+ 
+ 	)
+ 
+ 76 
+ 	#O_HELEM
+  62
+ 
+ 	)
+ 
+ 77 
+ 	#O_LAELEM
+  63
+ 
+ 	)
+ 
+ 78 
+ 	#O_LHELEM
+  64
+ 
+ 	)
+ 
+ 79 
+ 	#O_LSLICE
+  65
+ 
+ 	)
+ 
+ 80 
+ 	#O_ASLICE
+  66
+ 
+ 	)
+ 
+ 81 
+ 	#O_HSLICE
+  67
+ 
+ 	)
+ 
+ 82 
+ 	#O_LASLICE
+  68
+ 
+ 	)
+ 
+ 83 
+ 	#O_LHSLICE
+  69
+ 
+ 	)
+ 
+ 84 
+ 	#O_SPLICE
+  70
+ 
+ 	)
+ 
+ 85 
+ 	#O_PUSH
+  71
+ 
+ 	)
+ 
+ 86 
+ 	#O_POP
+  72
+ 
+ 	)
+ 
+ 87 
+ 	#O_SHIFT
+  73
+ 
+ 	)
+ 
+ 88 
+ 	#O_UNPACK
+  74
+ 
+ 	)
+ 
+ 89 
+ 	#O_SPLIT
+  75
+ 
+ 	)
+ 
+ 90 
+ 	#O_LENGTH
+  76
+ 
+ 	)
+ 
+ 91 
+ 	#O_SPRINTF
+  77
+ 
+ 	)
+ 
+ 92 
+ 	#O_SUBSTR
+  78
+ 
+ 	)
+ 
+ 93 
+ 	#O_PACK
+  79
+ 
+ 	)
+ 
+ 94 
+ 	#O_GREP
+  80
+ 
+ 	)
+ 
+ 95 
+ 	#O_JOIN
+  81
+ 
+ 	)
+ 
+ 96 
+ 	#O_SLT
+  82
+ 
+ 	)
+ 
+ 97 
+ 	#O_SGT
+  83
+ 
+ 	)
+ 
+ 98 
+ 	#O_SLE
+  84
+ 
+ 	)
+ 
+ 99 
+ 	#O_SGE
+  85
+ 
+ 	)
+ 
+ 100 
+ 	#O_SEQ
+  86
+ 
+ 	)
+ 
+ 101 
+ 	#O_SNE
+  87
+ 
+ 	)
+ 
+ 102 
+ 	#O_SCMP
+  88
+ 
+ 	)
+ 
+ 103 
+ 	#O_SUBR
+  89
+ 
+ 	)
+ 
+ 104 
+ 	#O_DBSUBR
+  90
+ 
+ 	)
+ 
+ 105 
+ 	#O_CALLER
+  91
+ 
+ 	)
+ 
+ 106 
+ 	#O_SORT
+  92
+ 
+ 	)
+ 
+ 107 
+ 	#O_REVERSE
+  93
+ 
+ 	)
+ 
+ 108 
+ 	#O_WARN
+  94
+ 
+ 	)
+ 
+ 109 
+ 	#O_DIE
+  95
+ 
+ 	)
+ 
+ 110 
+ 	#O_PRTF
+  96
+ 
+ 	)
+ 
+ 111 
+ 	#O_PRINT
+  97
+ 
+ 	)
+ 
+ 112 
+ 	#O_CHDIR
+  98
+ 
+ 	)
+ 
+ 113 
+ 	#O_EXIT
+  99
+ 
+ 	)
+ 
+ 114 
+ 	#O_RESET
+  100
+ 
+ 	)
+ 
+ 115 
+ 	#O_LIST
+  101
+ 
+ 	)
+ 
+ 116 
+ 	#O_EOF
+  102
+ 
+ 	)
+ 
+ 117 
+ 	#O_GETC
+  103
+ 
+ 	)
+ 
+ 118 
+ 	#O_TELL
+  104
+ 
+ 	)
+ 
+ 119 
+ 	#O_RECV
+  105
+ 
+ 	)
+ 
+ 120 
+ 	#O_READ
+  106
+ 
+ 	)
+ 
+ 121 
+ 	#O_SYSREAD
+  107
+ 
+ 	)
+ 
+ 122 
+ 	#O_SYSWRITE
+  108
+ 
+ 	)
+ 
+ 123 
+ 	#O_SEND
+  109
+ 
+ 	)
+ 
+ 124 
+ 	#O_SEEK
+  110
+ 
+ 	)
+ 
+ 125 
+ 	#O_RETURN
+  111
+ 
+ 	)
+ 
+ 126 
+ 	#O_REDO
+  112
+ 
+ 	)
+ 
+ 127 
+ 	#O_NEXT
+  113
+ 
+ 	)
+ 
+ 128 
+ 	#O_LAST
+  114
+ 
+ 	)
+ 
+ 129 
+ 	#O_DUMP
+  115
+ 
+ 	)
+ 
+ 130 
+ 	#O_GOTO
+  116
+ 
+ 	)
+ 
+ 131 
+ 	#O_INDEX
+  117
+ 
+ 	)
+ 
+ 132 
+ 	#O_RINDEX
+  118
+ 
+ 	)
+ 
+ 133 
+ 	#O_TIME
+  119
+ 
+ 	)
+ 
+ 134 
+ 	#O_TMS
+  120
+ 
+ 	)
+ 
+ 135 
+ 	#O_LOCALTIME
+  121
+ 
+ 	)
+ 
+ 136 
+ 	#O_GMTIME
+  122
+ 
+ 	)
+ 
+ 137 
+ 	#O_TRUNCATE
+  123
+ 
+ 	)
+ 
+ 138 
+ 	#O_LSTAT
+  124
+ 
+ 	)
+ 
+ 139 
+ 	#O_STAT
+  125
+ 
+ 	)
+ 
+ 140 
+ 	#O_CRYPT
+  126
+ 
+ 	)
+ 
+ 141 
+ 	#O_ATAN2
+  127
+ 
+ 	)
+ 
+ 142 
+ 	#O_SIN
+  128
+ 
+ 	)
+ 
+ 143 
+ 	#O_COS
+  129
+ 
+ 	)
+ 
+ 144 
+ 	#O_RAND
+  130
+ 
+ 	)
+ 
+ 145 
+ 	#O_SRAND
+  131
+ 
+ 	)
+ 
+ 146 
+ 	#O_EXP
+  132
+ 
+ 	)
+ 
+ 147 
+ 	#O_LOG
+  133
+ 
+ 	)
+ 
+ 148 
+ 	#O_SQRT
+  134
+ 
+ 	)
+ 
+ 149 
+ 	#O_INT
+  135
+ 
+ 	)
+ 
+ 150 
+ 	#O_ORD
+  136
+ 
+ 	)
+ 
+ 151 
+ 	#O_ALARM
+  137
+ 
+ 	)
+ 
+ 152 
+ 	#O_SLEEP
+  138
+ 
+ 	)
+ 
+ 153 
+ 	#O_RANGE
+  139
+ 
+ 	)
+ 
+ 154 
+ 	#O_F_OR_R
+  140
+ 
+ 	)
+ 
+ 155 
+ 	#O_FLIP
+  141
+ 
+ 	)
+ 
+ 156 
+ 	#O_FLOP
+  142
+ 
+ 	)
+ 
+ 157 
+ 	#O_FORK
+  143
+ 
+ 	)
+ 
+ 158 
+ 	#O_WAIT
+  144
+ 
+ 	)
+ 
+ 159 
+ 	#O_WAITPID
+  145
+ 
+ 	)
+ 
+ 160 
+ 	#O_SYSTEM
+  146
+ 
+ 	)
+ 
+ 161 
+ 	#O_EXEC_OP
+  147
+ 
+ 	)
+ 
+ 162 
+ 	#O_HEX
+  148
+ 
+ 	)
+ 
+ 163 
+ 	#O_OCT
+  149
+ 
+ 	)
+ 
+ 164 
+ 	#O_CHOWN
+  150
+ 
+ 	)
+ 
+ 165 
+ 	#O_KILL
+  151
+ 
+ 	)
+ 
+ 166 
+ 	#O_UNLINK
+  152
+ 
+ 	)
+ 
+ 167 
+ 	#O_CHMOD
+  153
+ 
+ 	)
+ 
+ 168 
+ 	#O_UTIME
+  154
+ 
+ 	)
+ 
+ 169 
+ 	#O_UMASK
+  155
+ 
+ 	)
+ 
+ 170 
+ 	#O_MSGGET
+  156
+ 
+ 	)
+ 
+ 171 
+ 	#O_SHMGET
+  157
+ 
+ 	)
+ 
+ 172 
+ 	#O_SEMGET
+  158
+ 
+ 	)
+ 
+ 173 
+ 	#O_MSGCTL
+  159
+ 
+ 	)
+ 
+ 174 
+ 	#O_SHMCTL
+  160
+ 
+ 	)
+ 
+ 175 
+ 	#O_SEMCTL
+  161
+ 
+ 	)
+ 
+ 176 
+ 	#O_MSGSND
+  162
+ 
+ 	)
+ 
+ 177 
+ 	#O_MSGRCV
+  163
+ 
+ 	)
+ 
+ 178 
+ 	#O_SEMOP
+  164
+ 
+ 	)
+ 
+ 179 
+ 	#O_SHMREAD
+  165
+ 
+ 	)
+ 
+ 180 
+ 	#O_SHMWRITE
+  166
+ 
+ 	)
+ 
+ 181 
+ 	#O_RENAME
+  167
+ 
+ 	)
+ 
+ 182 
+ 	#O_LINK
+  168
+ 
+ 	)
+ 
+ 183 
+ 	#O_MKDIR
+  169
+ 
+ 	)
+ 
+ 184 
+ 	#O_RMDIR
+  170
+ 
+ 	)
+ 
+ 185 
+ 	#O_GETPPID
+  171
+ 
+ 	)
+ 
+ 186 
+ 	#O_GETPGRP
+  172
+ 
+ 	)
+ 
+ 187 
+ 	#O_SETPGRP
+  173
+ 
+ 	)
+ 
+ 188 
+ 	#O_GETPRIORITY
+  174
+ 
+ 	)
+ 
+ 189 
+ 	#O_SETPRIORITY
+  175
+ 
+ 	)
+ 
+ 190 
+ 	#O_CHROOT
+  176
+ 
+ 	)
+ 
+ 191 
+ 	#O_FCNTL
+  177
+ 
+ 	)
+ 
+ 192 
+ 	#O_IOCTL
+  178
+ 
+ 	)
+ 
+ 193 
+ 	#O_FLOCK
+  179
+ 
+ 	)
+ 
+ 194 
+ 	#O_UNSHIFT
+  180
+ 
+ 	)
+ 
+ 195 
+ 	#O_REQUIRE
+  181
+ 
+ 	)
+ 
+ 196 
+ 	#O_DOFILE
+  182
+ 
+ 	)
+ 
+ 197 
+ 	#O_EVAL
+  183
+ 
+ 	)
+ 
+ 198 
+ 	#O_FTRREAD
+  184
+ 
+ 	)
+ 
+ 199 
+ 	#O_FTRWRITE
+  185
+ 
+ 	)
+ 
+ 200 
+ 	#O_FTREXEC
+  186
+ 
+ 	)
+ 
+ 201 
+ 	#O_FTEREAD
+  187
+ 
+ 	)
+ 
+ 202 
+ 	#O_FTEWRITE
+  188
+ 
+ 	)
+ 
+ 203 
+ 	#O_FTEEXEC
+  189
+ 
+ 	)
+ 
+ 204 
+ 	#O_FTIS
+  190
+ 
+ 	)
+ 
+ 205 
+ 	#O_FTEOWNED
+  191
+ 
+ 	)
+ 
+ 206 
+ 	#O_FTROWNED
+  192
+ 
+ 	)
+ 
+ 207 
+ 	#O_FTZERO
+  193
+ 
+ 	)
+ 
+ 208 
+ 	#O_FTSIZE
+  194
+ 
+ 	)
+ 
+ 209 
+ 	#O_FTMTIME
+  195
+ 
+ 	)
+ 
+ 210 
+ 	#O_FTATIME
+  196
+ 
+ 	)
+ 
+ 211 
+ 	#O_FTCTIME
+  197
+ 
+ 	)
+ 
+ 212 
+ 	#O_FTSOCK
+  198
+ 
+ 	)
+ 
+ 213 
+ 	#O_FTCHR
+  199
+ 
+ 	)
+ 
+ 214 
+ 	#O_FTBLK
+  200
+ 
+ 	)
+ 
+ 215 
+ 	#O_FTFILE
+  201
+ 
+ 	)
+ 
+ 216 
+ 	#O_FTDIR
+  202
+ 
+ 	)
+ 
+ 217 
+ 	#O_FTPIPE
+  203
+ 
+ 	)
+ 
+ 218 
+ 	#O_FTLINK
+  204
+ 
+ 	)
+ 
+ 219 
+ 	#O_SYMLINK
+  205
+ 
+ 	)
+ 
+ 220 
+ 	#O_READLINK
+  206
+ 
+ 	)
+ 
+ 221 
+ 	#O_FTSUID
+  207
+ 
+ 	)
+ 
+ 222 
+ 	#O_FTSGID
+  208
+ 
+ 	)
+ 
+ 223 
+ 	#O_FTSVTX
+  209
+ 
+ 	)
+ 
+ 224 
+ 	#O_FTTTY
+  210
+ 
+ 	)
+ 
+ 225 
+ 	#O_FTTEXT
+  211
+ 
+ 	)
+ 
+ 226 
+ 	#O_FTBINARY
+  212
+ 
+ 	)
+ 
+ 227 
+ 	#O_SOCKET
+  213
+ 
+ 	)
+ 
+ 228 
+ 	#O_BIND
+  214
+ 
+ 	)
+ 
+ 229 
+ 	#O_CONNECT
+  215
+ 
+ 	)
+ 
+ 230 
+ 	#O_LISTEN
+  216
+ 
+ 	)
+ 
+ 231 
+ 	#O_ACCEPT
+  217
+ 
+ 	)
+ 
+ 232 
+ 	#O_GHBYNAME
+  218
+ 
+ 	)
+ 
+ 233 
+ 	#O_GHBYADDR
+  219
+ 
+ 	)
+ 
+ 234 
+ 	#O_GHOSTENT
+  220
+ 
+ 	)
+ 
+ 235 
+ 	#O_GNBYNAME
+  221
+ 
+ 	)
+ 
+ 236 
+ 	#O_GNBYADDR
+  222
+ 
+ 	)
+ 
+ 237 
+ 	#O_GNETENT
+  223
+ 
+ 	)
+ 
+ 238 
+ 	#O_GPBYNAME
+  224
+ 
+ 	)
+ 
+ 239 
+ 	#O_GPBYNUMBER
+  225
+ 
+ 	)
+ 
+ 240 
+ 	#O_GPROTOENT
+  226
+ 
+ 	)
+ 
+ 241 
+ 	#O_GSBYNAME
+  227
+ 
+ 	)
+ 
+ 242 
+ 	#O_GSBYPORT
+  228
+ 
+ 	)
+ 
+ 243 
+ 	#O_GSERVENT
+  229
+ 
+ 	)
+ 
+ 244 
+ 	#O_SHOSTENT
+  230
+ 
+ 	)
+ 
+ 245 
+ 	#O_SNETENT
+  231
+ 
+ 	)
+ 
+ 246 
+ 	#O_SPROTOENT
+  232
+ 
+ 	)
+ 
+ 247 
+ 	#O_SSERVENT
+  233
+ 
+ 	)
+ 
+ 248 
+ 	#O_EHOSTENT
+  234
+ 
+ 	)
+ 
+ 249 
+ 	#O_ENETENT
+  235
+ 
+ 	)
+ 
+ 250 
+ 	#O_EPROTOENT
+  236
+ 
+ 	)
+ 
+ 251 
+ 	#O_ESERVENT
+  237
+ 
+ 	)
+ 
+ 252 
+ 	#O_SOCKPAIR
+  238
+ 
+ 	)
+ 
+ 253 
+ 	#O_SHUTDOWN
+  239
+ 
+ 	)
+ 
+ 254 
+ 	#O_GSOCKOPT
+  240
+ 
+ 	)
+ 
+ 255 
+ 	#O_SSOCKOPT
+  241
+ 
+ 	)
+ 
+ 256 
+ 	#O_GETSOCKNAME
+  242
+ 
+ 	)
+ 
+ 257 
+ 	#O_GETPEERNAME
+  243
+ 
+ 	)
+ 
+ 258 
+ 	#O_SSELECT
+  244
+ 
+ 	)
+ 
+ 259 
+ 	#O_FILENO
+  245
+ 
+ 	)
+ 
+ 260 
+ 	#O_BINMODE
+  246
+ 
+ 	)
+ 
+ 261 
+ 	#O_VEC
+  247
+ 
+ 	)
+ 
+ 262 
+ 	#O_GPWNAM
+  248
+ 
+ 	)
+ 
+ 263 
+ 	#O_GPWUID
+  249
+ 
+ 	)
+ 
+ 264 
+ 	#O_GPWENT
+  250
+ 
+ 	)
+ 
+ 265 
+ 	#O_SPWENT
+  251
+ 
+ 	)
+ 
+ 266 
+ 	#O_EPWENT
+  252
+ 
+ 	)
+ 
+ 267 
+ 	#O_GGRNAM
+  253
+ 
+ 	)
+ 
+ 268 
+ 	#O_GGRGID
+  254
+ 
+ 	)
+ 
+ 269 
+ 	#O_GGRENT
+  255
+ 
+ 	)
+ 
+ 270 
+ 	#O_SGRENT
+  256
+ 
+ 	)
+ 
+ 271 
+ 	#O_EGRENT
+  257
+ 
+ 	)
+ 
+ 272 
+ 	#O_GETLOGIN
+  258
+ 
+ 	)
+ 
+ 273 
+ 	#O_OPENDIR
+  259
+ 
+ 	)
+ 
+ 274 
+ 	#O_READDIR
+  260
+ 
+ 	)
+ 
+ 275 
+ 	#O_TELLDIR
+  261
+ 
+ 	)
+ 
+ 276 
+ 	#O_SEEKDIR
+  262
+ 
+ 	)
+ 
+ 277 
+ 	#O_REWINDDIR
+  263
+ 
+ 	)
+ 
+ 278 
+ 	#O_CLOSEDIR
+  264
+ 
+ 	)
+ 
+ 279 
+ 	#O_SYSCALL
+  265
+ 
+ 	)
+ 
+ 280 
+ 	#O_PIPE
+  266
+ 
+ 	)
+ 
+ 281 
+ 	#MAXO
+  267
+ 
+ 	)
+ 
+ 283 #iâdeà
+ DOINIT
+ 
+ 
+ 284 
*
+ ÝÇme
+ [];
+ 
+ 286 *
+ 	gÝÇme
+ [] = {
+ 
+ 558 
+ 	#A_NULL
+  0
+ 
+ 	)
+ 
+ 559 
+ 	#A_EXPR
+  1
+ 
+ 	)
+ 
+ 560 
+ 	#A_CMD
+  2
+ 
+ 	)
+ 
+ 561 
+ 	#A_STAB
+  3
+ 
+ 	)
+ 
+ 562 
+ 	#A_LVAL
+  4
+ 
+ 	)
+ 
+ 563 
+ 	#A_SINGLE
+  5
+ 
+ 	)
+ 
+ 564 
+ 	#A_DOUBLE
+  6
+ 
+ 	)
+ 
+ 565 
+ 	#A_BACKTICK
+  7
+ 
+ 	)
+ 
+ 566 
+ 	#A_READ
+  8
+ 
+ 	)
+ 
+ 567 
+ 	#A_SPAT
+  9
+ 
+ 	)
+ 
+ 568 
+ 	#A_LEXPR
+  10
+ 
+ 	)
+ 
+ 569 
+ 	#A_ARYLEN
+  11
+ 
+ 	)
+ 
+ 570 
+ 	#A_ARYSTAB
+  12
+ 
+ 	)
+ 
+ 571 
+ 	#A_LARYLEN
+  13
+ 
+ 	)
+ 
+ 572 
+ 	#A_GLOB
+  14
+ 
+ 	)
+ 
+ 573 
+ 	#A_WORD
+  15
+ 
+ 	)
+ 
+ 574 
+ 	#A_INDREAD
+  16
+ 
+ 	)
+ 
+ 575 
+ 	#A_LARYSTAB
+  17
+ 
+ 	)
+ 
+ 576 
+ 	#A_STAR
+  18
+ 
+ 	)
+ 
+ 577 
+ 	#A_LSTAR
+  19
+ 
+ 	)
+ 
+ 578 
+ 	#A_WANTARRAY
+  20
+ 
+ 	)
+ 
+ 580 
+ 	#A_MASK
+  31
+ 
+ 	)
+ 
+ 581 
+ 	#A_DONT
+  32
+ 
+ 	)
+ 
+ 583 #iâdeà
+ DOINIT
+ 
+ 
+ 584 
*
+ ¬gÇme
+ [];
+ 
+ 586 *
+ 	g¬gÇme
+ [] = {
+ 
+ 612 #iâdeà
+ DOINIT
+ 
+ 
+ 613 
+ boÞ
+  
+ hoi¡abË
+ [];
+ 
+ 615 
+ boÞ
+  
+ 	ghoi¡abË
+ [] =
+ 
+ 641 
+ 	u¬g±r
+  {
+ 
+ 642 
+ ARG
+  *
+ 	m¬g_¬g
+ ;
+ 
+ 643 *
+ 	m¬g_cv®
+ ;
+ 
+ 644 
+ STAB
+  *
+ 	m¬g_¡ab
+ ;
+ 
+ 645 
+ SPAT
+  *
+ 	m¬g_¥©
+ ;
+ 
+ 646 
+ CMD
+  *
+ 	m¬g_cmd
+ ;
+ 
+ 647 
+ STR
+  *
+ 	m¬g_¡r
+ ;
+ 
+ 648 
+ HASH
+  *
+ 	m¬g_hash
+ ;
+ 
+ 651 
+ 	s¬g
+  {
+ 
+ 652 
+ ¬g±r
+  
+ 	m¬g_±r
+ ;
+ 
+ 653 
+ 	m¬g_Ën
+ ;
+ 
+ 654 
+ 	m¬g_ty³
+ ;
+ 
+ 655 
+ 	m¬g_æags
+ ;
+ 
+ 658 
+ 	#AF_ARYOK
+  1
+ 
+ 	)
+ 
+ 659 
+ 	#AF_POST
+  2
+ 
+ 	)
+ 
+ 660 
+ 	#AF_PRE
+  4
+ 
+ 	)
+ 
+ 661 
+ 	#AF_UP
+  8
+ 
+ 	)
+ 
+ 662 
+ 	#AF_COMMON
+  16
+ 
+ 	)
+ 
+ 663 
+ 	#AF_DEPR
+  32
+ 
+ 	)
+ 
+ 664 
+ 	#AF_LISTISH
+  64
+ 
+ 	)
+ 
+ 665 
+ 	#AF_LOCAL
+  128
+ 
+ 	)
+ 
+ 677 
+ 	#Nuάg
+  
+ 	`NuÎ
+ (
+ ARG
+ *)
+ 
+ 	)
+ 
+ 679 #iâdeà
+ DOINIT
+ 
+ 
+ 680 
+ EXT
+  
+ 	gݬgs
+ [
+ MAXO
+ +1];
+ 
+ 682 
+ 	#A
+ (
+ e1
+ ,
+ e2
+ ,
+ e3
+ èÓ1+Ó2<<2)+Ó3<<4))
+ 
+ 	)
+ 
+ 683 
+ 	#A5
+ (
+ e1
+ ,
+ e2
+ ,
+ e3
+ ,
+ e4
+ ,
+ e5
+ èÓ1+Ó2<<2)+Ó3<<4)+Ó4<<6)+Ó5<<8))
+ 
+ 	)
+ 
+ 684 
+ 	gݬgs
+ [
+ MAXO
+ +1] = {
+ 
+ 685 
+ A
+ (0,0,0),
+ 
+ 686 
+ A
+ (1,1,0),
+ 
+ 687 
+ A
+ (1,0,0),
+ 
+ 688 
+ A
+ (1,0,0),
+ 
+ 689 
+ A
+ (0,0,0),
+ 
+ 690 
+ A
+ (0,0,0),
+ 
+ 691 
+ A
+ (1,1,0),
+ 
+ 692 
+ A
+ (3,1,0),
+ 
+ 693 
+ A
+ (1,0,0),
+ 
+ 694 
+ A
+ (1,0,0),
+ 
+ 695 
+ A
+ (1,0,0),
+ 
+ 696 
+ A
+ (1,0,0),
+ 
+ 697 
+ A
+ (1,1,0),
+ 
+ 698 
+ A
+ (1,0,0),
+ 
+ 699 
+ A
+ (3,3,0),
+ 
+ 700 
+ A
+ (0,0,0),
+ 
+ 701 
+ A
+ (3,0,0),
+ 
+ 702 
+ A
+ (1,0,0),
+ 
+ 703 
+ A
+ (1,0,0),
+ 
+ 704 
+ A
+ (1,0,0),
+ 
+ 705 
+ A
+ (1,1,0),
+ 
+ 706 
+ A
+ (1,1,0),
+ 
+ 707 
+ A
+ (1,1,0),
+ 
+ 708 
+ A
+ (1,1,0),
+ 
+ 709 
+ A
+ (1,1,0),
+ 
+ 710 
+ A
+ (1,1,0),
+ 
+ 711 
+ A
+ (1,1,0),
+ 
+ 712 
+ A
+ (1,1,0),
+ 
+ 713 
+ A
+ (1,1,0),
+ 
+ 714 
+ A
+ (1,1,0),
+ 
+ 715 
+ A
+ (1,1,0),
+ 
+ 716 
+ A
+ (1,1,0),
+ 
+ 717 
+ A
+ (1,1,0),
+ 
+ 718 
+ A
+ (1,1,0),
+ 
+ 719 
+ A
+ (1,1,0),
+ 
+ 720 
+ A
+ (1,1,0),
+ 
+ 721 
+ A
+ (1,1,0),
+ 
+ 722 
+ A
+ (1,1,0),
+ 
+ 723 
+ A
+ (1,0,0),
+ 
+ 724 
+ A
+ (1,0,0),
+ 
+ 725 
+ A
+ (1,0,0),
+ 
+ 726 
+ A
+ (1,1,0),
+ 
+ 727 
+ A
+ (1,0,0),
+ 
+ 728 
+ A
+ (1,0,0),
+ 
+ 729 
+ A
+ (1,0,0),
+ 
+ 730 
+ A
+ (1,0,0),
+ 
+ 731 
+ A
+ (1,0,0),
+ 
+ 732 
+ A
+ (1,1,1),
+ 
+ 733 
+ A
+ (1,0,0),
+ 
+ 734 
+ A
+ (1,1,0),
+ 
+ 735 
+ A
+ (1,0,0),
+ 
+ 736 
+ A
+ (1,0,0),
+ 
+ 737 
+ A
+ (1,0,0),
+ 
+ 738 
+ A
+ (0,0,0),
+ 
+ 739 
+ A
+ (0,0,0),
+ 
+ 740 
+ A
+ (0,0,0),
+ 
+ 741 
+ A
+ (0,0,0),
+ 
+ 742 
+ A
+ (0,0,0),
+ 
+ 743 
+ A
+ (0,1,0),
+ 
+ 744 
+ A
+ (0,1,0),
+ 
+ 745 
+ A
+ (0,0,0),
+ 
+ 746 
+ A
+ (0,0,0),
+ 
+ 747 
+ A
+ (0,1,0),
+ 
+ 748 
+ A
+ (0,1,0),
+ 
+ 749 
+ A
+ (0,1,0),
+ 
+ 750 
+ A
+ (0,3,3),
+ 
+ 751 
+ A
+ (0,3,0),
+ 
+ 752 
+ A
+ (0,3,0),
+ 
+ 753 
+ A
+ (0,3,0),
+ 
+ 754 
+ A
+ (0,3,0),
+ 
+ 755 
+ A
+ (0,3,1),
+ 
+ 756 
+ A
+ (0,3,0),
+ 
+ 757 
+ A
+ (0,0,0),
+ 
+ 758 
+ A
+ (0,0,0),
+ 
+ 759 
+ A
+ (1,1,0),
+ 
+ 760 
+ A
+ (1,0,1),
+ 
+ 761 
+ A
+ (1,0,0),
+ 
+ 762 
+ A
+ (3,0,0),
+ 
+ 763 
+ A
+ (1,1,1),
+ 
+ 764 
+ A
+ (1,3,0),
+ 
+ 765 
+ A
+ (0,3,0),
+ 
+ 766 
+ A
+ (1,3,0),
+ 
+ 767 
+ A
+ (1,1,0),
+ 
+ 768 
+ A
+ (1,1,0),
+ 
+ 769 
+ A
+ (1,1,0),
+ 
+ 770 
+ A
+ (1,1,0),
+ 
+ 771 
+ A
+ (1,1,0),
+ 
+ 772 
+ A
+ (1,1,0),
+ 
+ 773 
+ A
+ (1,1,0),
+ 
+ 774 
+ A
+ (0,3,0),
+ 
+ 775 
+ A
+ (0,3,0),
+ 
+ 776 
+ A
+ (1,0,0),
+ 
+ 777 
+ A
+ (1,3,0),
+ 
+ 778 
+ A
+ (0,3,0),
+ 
+ 779 
+ A
+ (0,3,0),
+ 
+ 780 
+ A
+ (0,3,0),
+ 
+ 781 
+ A
+ (1,3,0),
+ 
+ 782 
+ A
+ (1,3,0),
+ 
+ 783 
+ A
+ (1,0,0),
+ 
+ 784 
+ A
+ (1,0,0),
+ 
+ 785 
+ A
+ (1,0,0),
+ 
+ 786 
+ A
+ (3,0,0),
+ 
+ 787 
+ A
+ (1,0,0),
+ 
+ 788 
+ A
+ (1,0,0),
+ 
+ 789 
+ A
+ (1,0,0),
+ 
+ 790 
+ A5
+ (1,1,1,1,0),
+ 
+ 791 
+ A
+ (1,1,3),
+ 
+ 792 
+ A
+ (1,1,3),
+ 
+ 793 
+ A
+ (1,1,3),
+ 
+ 794 
+ A
+ (1,1,3),
+ 
+ 795 
+ A
+ (1,1,1),
+ 
+ 796 
+ A
+ (0,3,0),
+ 
+ 797 
+ A
+ (0,0,0),
+ 
+ 798 
+ A
+ (0,0,0),
+ 
+ 799 
+ A
+ (0,0,0),
+ 
+ 800 
+ A
+ (0,0,0),
+ 
+ 801 
+ A
+ (0,0,0),
+ 
+ 802 
+ A
+ (1,1,1),
+ 
+ 803 
+ A
+ (1,1,1),
+ 
+ 804 
+ A
+ (0,0,0),
+ 
+ 805 
+ A
+ (0,0,0),
+ 
+ 806 
+ A
+ (1,0,0),
+ 
+ 807 
+ A
+ (1,0,0),
+ 
+ 808 
+ A
+ (1,1,0),
+ 
+ 809 
+ A
+ (1,0,0),
+ 
+ 810 
+ A
+ (1,0,0),
+ 
+ 811 
+ A
+ (1,1,0),
+ 
+ 812 
+ A
+ (1,1,0),
+ 
+ 813 
+ A
+ (1,0,0),
+ 
+ 814 
+ A
+ (1,0,0),
+ 
+ 815 
+ A
+ (1,0,0),
+ 
+ 816 
+ A
+ (1,0,0),
+ 
+ 817 
+ A
+ (1,0,0),
+ 
+ 818 
+ A
+ (1,0,0),
+ 
+ 819 
+ A
+ (1,0,0),
+ 
+ 820 
+ A
+ (1,0,0),
+ 
+ 821 
+ A
+ (1,0,0),
+ 
+ 822 
+ A
+ (1,0,0),
+ 
+ 823 
+ A
+ (1,0,0),
+ 
+ 824 
+ A
+ (1,1,0),
+ 
+ 825 
+ A
+ (1,0,0),
+ 
+ 826 
+ A
+ (1,0,0),
+ 
+ 827 
+ A
+ (0,1,0),
+ 
+ 828 
+ A
+ (0,0,0),
+ 
+ 829 
+ A
+ (0,0,0),
+ 
+ 830 
+ A
+ (1,1,0),
+ 
+ 831 
+ A
+ (1,3,0),
+ 
+ 832 
+ A
+ (1,3,0),
+ 
+ 833 
+ A
+ (1,0,0),
+ 
+ 834 
+ A
+ (1,0,0),
+ 
+ 835 
+ A
+ (0,3,0),
+ 
+ 836 
+ A
+ (0,3,0),
+ 
+ 837 
+ A
+ (0,3,0),
+ 
+ 838 
+ A
+ (0,3,0),
+ 
+ 839 
+ A
+ (0,3,0),
+ 
+ 840 
+ A
+ (1,0,0),
+ 
+ 841 
+ A
+ (1,1,0),
+ 
+ 842 
+ A
+ (1,1,1),
+ 
+ 843 
+ A
+ (1,1,1),
+ 
+ 844 
+ A
+ (1,1,1),
+ 
+ 845 
+ A
+ (1,1,1),
+ 
+ 846 
+ A5
+ (1,1,1,1,0),
+ 
+ 847 
+ A
+ (1,1,1),
+ 
+ 848 
+ A5
+ (1,1,1,1,1),
+ 
+ 849 
+ A
+ (1,1,1),
+ 
+ 850 
+ A5
+ (1,1,1,1,0),
+ 
+ 851 
+ A5
+ (1,1,1,1,0),
+ 
+ 852 
+ A
+ (1,1,0),
+ 
+ 853 
+ A
+ (1,1,0),
+ 
+ 854 
+ A
+ (1,1,0),
+ 
+ 855 
+ A
+ (1,0,0),
+ 
+ 856 
+ A
+ (0,0,0),
+ 
+ 857 
+ A
+ (1,0,0),
+ 
+ 858 
+ A
+ (1,1,0),
+ 
+ 859 
+ A
+ (1,1,0),
+ 
+ 860 
+ A
+ (1,1,1),
+ 
+ 861 
+ A
+ (1,0,0),
+ 
+ 862 
+ A
+ (1,1,1),
+ 
+ 863 
+ A
+ (1,1,1),
+ 
+ 864 
+ A
+ (1,1,0),
+ 
+ 865 
+ A
+ (0,3,0),
+ 
+ 866 
+ A
+ (1,0,0),
+ 
+ 867 
+ A
+ (1,0,0),
+ 
+ 868 
+ A
+ (1,0,0),
+ 
+ 869 
+ A
+ (1,0,0),
+ 
+ 870 
+ A
+ (1,0,0),
+ 
+ 871 
+ A
+ (1,0,0),
+ 
+ 872 
+ A
+ (1,0,0),
+ 
+ 873 
+ A
+ (1,0,0),
+ 
+ 874 
+ A
+ (1,0,0),
+ 
+ 875 
+ A
+ (1,0,0),
+ 
+ 876 
+ A
+ (1,0,0),
+ 
+ 877 
+ A
+ (1,0,0),
+ 
+ 878 
+ A
+ (1,0,0),
+ 
+ 879 
+ A
+ (1,0,0),
+ 
+ 880 
+ A
+ (1,0,0),
+ 
+ 881 
+ A
+ (1,0,0),
+ 
+ 882 
+ A
+ (1,0,0),
+ 
+ 883 
+ A
+ (1,0,0),
+ 
+ 884 
+ A
+ (1,0,0),
+ 
+ 885 
+ A
+ (1,0,0),
+ 
+ 886 
+ A
+ (1,0,0),
+ 
+ 887 
+ A
+ (1,0,0),
+ 
+ 888 
+ A
+ (1,0,0),
+ 
+ 889 
+ A
+ (1,0,0),
+ 
+ 890 
+ A
+ (1,1,0),
+ 
+ 891 
+ A
+ (1,0,0),
+ 
+ 892 
+ A
+ (1,0,0),
+ 
+ 893 
+ A
+ (1,0,0),
+ 
+ 894 
+ A
+ (1,0,0),
+ 
+ 895 
+ A
+ (1,0,0),
+ 
+ 896 
+ A
+ (1,0,0),
+ 
+ 897 
+ A
+ (1,0,0),
+ 
+ 898 
+ A5
+ (1,1,1,1,0),
+ 
+ 899 
+ A
+ (1,1,0),
+ 
+ 900 
+ A
+ (1,1,0),
+ 
+ 901 
+ A
+ (1,1,0),
+ 
+ 902 
+ A
+ (1,1,0),
+ 
+ 903 
+ A
+ (1,0,0),
+ 
+ 904 
+ A
+ (1,1,0),
+ 
+ 905 
+ A
+ (0,0,0),
+ 
+ 906 
+ A
+ (1,0,0),
+ 
+ 907 
+ A
+ (1,1,0),
+ 
+ 908 
+ A
+ (0,0,0),
+ 
+ 909 
+ A
+ (1,0,0),
+ 
+ 910 
+ A
+ (1,0,0),
+ 
+ 911 
+ A
+ (0,0,0),
+ 
+ 912 
+ A
+ (1,1,0),
+ 
+ 913 
+ A
+ (1,1,0),
+ 
+ 914 
+ A
+ (0,0,0),
+ 
+ 915 
+ A
+ (1,0,0),
+ 
+ 916 
+ A
+ (1,0,0),
+ 
+ 917 
+ A
+ (1,0,0),
+ 
+ 918 
+ A
+ (1,0,0),
+ 
+ 919 
+ A
+ (0,0,0),
+ 
+ 920 
+ A
+ (0,0,0),
+ 
+ 921 
+ A
+ (0,0,0),
+ 
+ 922 
+ A
+ (0,0,0),
+ 
+ 923 
+ A5
+ (1,1,1,1,1),
+ 
+ 924 
+ A
+ (1,1,0),
+ 
+ 925 
+ A
+ (1,1,1),
+ 
+ 926 
+ A5
+ (1,1,1,1,0),
+ 
+ 927 
+ A
+ (1,0,0),
+ 
+ 928 
+ A
+ (1,0,0),
+ 
+ 929 
+ A5
+ (1,1,1,1,0),
+ 
+ 930 
+ A
+ (1,0,0),
+ 
+ 931 
+ A
+ (1,0,0),
+ 
+ 932 
+ A
+ (1,1,1),
+ 
+ 933 
+ A
+ (1,0,0),
+ 
+ 934 
+ A
+ (1,0,0),
+ 
+ 935 
+ A
+ (0,0,0),
+ 
+ 936 
+ A
+ (0,0,0),
+ 
+ 937 
+ A
+ (0,0,0),
+ 
+ 938 
+ A
+ (1,0,0),
+ 
+ 939 
+ A
+ (1,0,0),
+ 
+ 940 
+ A
+ (0,0,0),
+ 
+ 941 
+ A
+ (0,0,0),
+ 
+ 942 
+ A
+ (0,0,0),
+ 
+ 943 
+ A
+ (0,0,0),
+ 
+ 944 
+ A
+ (1,1,0),
+ 
+ 945 
+ A
+ (1,0,0),
+ 
+ 946 
+ A
+ (1,0,0),
+ 
+ 947 
+ A
+ (1,1,0),
+ 
+ 948 
+ A
+ (1,0,0),
+ 
+ 949 
+ A
+ (1,0,0),
+ 
+ 950 
+ A
+ (1,3,0),
+ 
+ 951 
+ A
+ (1,1,0),
+ 
+ 954 #undeà
+ A
+ 
+ 
+ 955 #undeà
+ A5
+ 
+ 
+ 958 
+ do_λs
+ ();
+ 
+ 959 
+ do_¥l™
+ ();
+ 
+ 960 
+ boÞ
+  
+ do_eof
+ ();
+ 
+ 961 
+ do_‹Î
+ ();
+ 
+ 962 
+ boÞ
+  
+ do_£ek
+ ();
+ 
+ 963 
+ do_tms
+ ();
+ 
+ 964 
+ do_time
+ ();
+ 
+ 965 
+ do_¡©
+ ();
+ 
+ 966 
+ STR
+  *
+ do_push
+ ();
+ 
+ 967 
+ FILE
+  *
+ Ãxrgv
+ ();
+ 
+ 968 
+ STR
+  *
+ do_á‹xt
+ ();
+ 
+ 969 
+ do_¦iû
+ ();
+ 
+ 	@array.c
+ 
+ 14 
+ 	~"EXTERN.h
+ "
+ 
+ 15 
+ 	~"³¾.h
+ "
+ 
+ 17 
+ STR
+  *
+ 
+ 18 
+ 	$aãtch
+ (
+ ¬
+ ,
+ key
+ ,
+ lv®
+ )
+ 
+ 19 
+ ARRAY
+  *
+ ¬
+ ;
+ 
+ 20 
+ key
+ ;
+ 
+ 21 
+ lv®
+ ;
+ 
+ 23 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 25 ià(
+ key
+  < 0 || key > 
+ ¬
+ ->
+ ¬y_fžl
+ ) {
+ 
+ 26 ià(
+ lv®
+  && 
+ key
+  >= 0) {
+ 
+ 27 ià(
+ ¬
+ ->
+ ¬y_æags
+  & 
+ ARF_REAL
+ )
+ 
+ 28 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (5,0);
+ 
+ 30 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_undef
+ );
+ 
+ 31 ()
+ 	`a¡Üe
+ (
+ ¬
+ ,
+ key
+ ,
+ ¡r
+ );
+ 
+ 32  
+ ¡r
+ ;
+ 
+ 35  &
+ ¡r_undef
+ ;
+ 
+ 37 ià(!
+ ¬
+ ->
+ ¬y_¬¿y
+ [
+ key
+ ]) {
+ 
+ 38 ià(
+ lv®
+ ) {
+ 
+ 39 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (6,0);
+ 
+ 40 ()
+ 	`a¡Üe
+ (
+ ¬
+ ,
+ key
+ ,
+ ¡r
+ );
+ 
+ 41  
+ ¡r
+ ;
+ 
+ 43  &
+ ¡r_undef
+ ;
+ 
+ 45  
+ ¬
+ ->
+ ¬y_¬¿y
+ [
+ key
+ ];
+ 
+ 46 
+ 	}
+ }
+ 
+ 48 
+ boÞ
+ 
+ 
+ 49 
+ 	$a¡Üe
+ (
+ ¬
+ ,
+ key
+ ,
+ v®
+ )
+ 
+ 50 
+ ARRAY
+  *
+ ¬
+ ;
+ 
+ 51 
+ key
+ ;
+ 
+ 52 
+ STR
+  *
+ v®
+ ;
+ 
+ 54 
+ »tv®
+ ;
+ 
+ 56 ià(
+ key
+  < 0)
+ 
+ 57  
+ FALSE
+ ;
+ 
+ 58 ià(
+ key
+  > 
+ ¬
+ ->
+ ¬y_max
+ ) {
+ 
+ 59 
+ Ãwmax
+ ;
+ 
+ 61 ià(
+ ¬
+ ->
+ ¬y_®loc
+  !ð¬->
+ ¬y_¬¿y
+ ) {
+ 
+ 62 
+ »tv®
+  = 
+ ¬
+ ->
+ ¬y_¬¿y
+  -‡r->
+ ¬y_®loc
+ ;
+ 
+ 63 
+ 	`CÝy
+ (
+ ¬
+ ->
+ ¬y_¬¿y
+ ,‡r->
+ ¬y_®loc
+ ,‡r->
+ ¬y_max
+ +1, 
+ STR
+ *);
+ 
+ 64 
+ 	`Z”o
+ (
+ ¬
+ ->
+ ¬y_®loc
+ +¬->
+ ¬y_max
+ +1, 
+ »tv®
+ , 
+ STR
+ *);
+ 
+ 65 
+ ¬
+ ->
+ ¬y_max
+  +ð
+ »tv®
+ ;
+ 
+ 66 
+ ¬
+ ->
+ ¬y_¬¿y
+  -ð
+ »tv®
+ ;
+ 
+ 67 ià(
+ key
+  > 
+ ¬
+ ->
+ ¬y_max
+  - 10) {
+ 
+ 68 
+ Ãwmax
+  = 
+ key
+  + 
+ ¬
+ ->
+ ¬y_max
+ ;
+ 
+ 69 
+ »size
+ ;
+ 
+ 73 ià(
+ ¬
+ ->
+ ¬y_®loc
+ ) {
+ 
+ 74 
+ Ãwmax
+  = 
+ key
+  + 
+ ¬
+ ->
+ ¬y_max
+  / 5;
+ 
+ 75 
+ »size
+ :
+ 
+ 76 
+ 	`R’ew
+ (
+ ¬
+ ->
+ ¬y_®loc
+ ,
+ Ãwmax
+ +1, 
+ STR
+ *);
+ 
+ 77 
+ 	`Z”o
+ (&
+ ¬
+ ->
+ ¬y_®loc
+ [¬->
+ ¬y_max
+ +1], 
+ Ãwmax
+  -‡r->¬y_max, 
+ STR
+ *);
+ 
+ 80 
+ Ãwmax
+  = 
+ key
+  < 4 ? 4 : key;
+ 
+ 81 
+ 	`Newz
+ (2,
+ ¬
+ ->
+ ¬y_®loc
+ , 
+ Ãwmax
+ +1, 
+ STR
+ *);
+ 
+ 83 
+ ¬
+ ->
+ ¬y_¬¿y
+  =‡r->
+ ¬y_®loc
+ ;
+ 
+ 84 
+ ¬
+ ->
+ ¬y_max
+  = 
+ Ãwmax
+ ;
+ 
+ 87 ià((
+ ¬
+ ->
+ ¬y_æags
+  & 
+ ARF_REAL
+ è&&‡r->
+ ¬y_fžl
+  < 
+ key
+ ) {
+ 
+ 88 ++
+ ¬
+ ->
+ ¬y_fžl
+  < 
+ key
+ ) {
+ 
+ 89 ià(
+ ¬
+ ->
+ ¬y_¬¿y
+ [¬->
+ ¬y_fžl
+ ] !ð
+ NuΡr
+ ) {
+ 
+ 90 
+ 	`¡r_ä“
+ (
+ ¬
+ ->
+ ¬y_¬¿y
+ [¬->
+ ¬y_fžl
+ ]);
+ 
+ 91 
+ ¬
+ ->
+ ¬y_¬¿y
+ [¬->
+ ¬y_fžl
+ ] = 
+ NuΡr
+ ;
+ 
+ 95 
+ »tv®
+  = (
+ ¬
+ ->
+ ¬y_¬¿y
+ [
+ key
+ ] !ð
+ NuΡr
+ );
+ 
+ 96 ià(
+ »tv®
+  && (
+ ¬
+ ->
+ ¬y_æags
+  & 
+ ARF_REAL
+ ))
+ 
+ 97 
+ 	`¡r_ä“
+ (
+ ¬
+ ->
+ ¬y_¬¿y
+ [
+ key
+ ]);
+ 
+ 98 
+ ¬
+ ->
+ ¬y_¬¿y
+ [
+ key
+ ] = 
+ v®
+ ;
+ 
+ 99  
+ »tv®
+ ;
+ 
+ 100 
+ 	}
+ }
+ 
+ 102 
+ ARRAY
+  *
+ 
+ 103 
+ 	$ªew
+ (
+ ¡ab
+ )
+ 
+ 104 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 106 
+ ARRAY
+  *
+ ¬
+ ;
+ 
+ 108 
+ 	`New
+ (1,
+ ¬
+ ,1,
+ ARRAY
+ );
+ 
+ 109 
+ ¬
+ ->
+ ¬y_magic
+  = 
+ 	`SŒ_Ãw
+ (7,0);
+ 
+ 110 
+ ¬
+ ->
+ ¬y_®loc
+  =‡r->
+ ¬y_¬¿y
+  = 0;
+ 
+ 111 
+ 	`¡r_magic
+ (
+ ¬
+ ->
+ ¬y_magic
+ , 
+ ¡ab
+ , '#', 
+ NuÎch
+ , 0);
+ 
+ 112 
+ ¬
+ ->
+ ¬y_max
+  =‡r->
+ ¬y_fžl
+  = -1;
+ 
+ 113 
+ ¬
+ ->
+ ¬y_æags
+  = 
+ ARF_REAL
+ ;
+ 
+ 114  
+ ¬
+ ;
+ 
+ 115 
+ 	}
+ }
+ 
+ 117 
+ ARRAY
+  *
+ 
+ 118 
+ 	$açke
+ (
+ ¡ab
+ ,
+ size
+ ,
+ ¡½
+ )
+ 
+ 119 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 120 
+ size
+ ;
+ 
+ 121 
+ STR
+  **
+ ¡½
+ ;
+ 
+ 123 
+ ARRAY
+  *
+ ¬
+ ;
+ 
+ 125 
+ 	`New
+ (3,
+ ¬
+ ,1,
+ ARRAY
+ );
+ 
+ 126 
+ 	`New
+ (4,
+ ¬
+ ->
+ ¬y_®loc
+ ,
+ size
+ +1,
+ STR
+ *);
+ 
+ 127 
+ 	`CÝy
+ (
+ ¡½
+ ,
+ ¬
+ ->
+ ¬y_®loc
+ ,
+ size
+ ,
+ STR
+ *);
+ 
+ 128 
+ ¬
+ ->
+ ¬y_¬¿y
+  =‡r->
+ ¬y_®loc
+ ;
+ 
+ 129 
+ ¬
+ ->
+ ¬y_magic
+  = 
+ 	`SŒ_Ãw
+ (8,0);
+ 
+ 130 
+ 	`¡r_magic
+ (
+ ¬
+ ->
+ ¬y_magic
+ , 
+ ¡ab
+ , '#', 
+ NuÎch
+ , 0);
+ 
+ 131 
+ ¬
+ ->
+ ¬y_fžl
+  = 
+ size
+  - 1;
+ 
+ 132 
+ ¬
+ ->
+ ¬y_max
+  = 
+ size
+  - 1;
+ 
+ 133 
+ ¬
+ ->
+ ¬y_æags
+  = 0;
+ 
+ 134 
+ size
+ --) {
+ 
+ 135 (*
+ ¡½
+ ++)->
+ ¡r_pok
+  &ð~
+ SP_TEMP
+ ;
+ 
+ 137  
+ ¬
+ ;
+ 
+ 138 
+ 	}
+ }
+ 
+ 141 
+ 	$aþ—r
+ (
+ ¬
+ )
+ 
+ 142 
+ ARRAY
+  *
+ ¬
+ ;
+ 
+ 144 
+ key
+ ;
+ 
+ 146 ià(!
+ ¬
+  || !×r->
+ ¬y_æags
+  & 
+ ARF_REAL
+ è||‡r->
+ ¬y_max
+  < 0)
+ 
+ 148 ià(
+ key
+  = 
+ ¬
+ ->
+ ¬y_¬¿y
+  -‡r->
+ ¬y_®loc
+ ) {
+ 
+ 149 
+ ¬
+ ->
+ ¬y_max
+  +ð
+ key
+ ;
+ 
+ 150 
+ ¬
+ ->
+ ¬y_¬¿y
+  -ð
+ key
+ ;
+ 
+ 152 
+ key
+  = 0; key <ð
+ ¬
+ ->
+ ¬y_max
+ ; key++)
+ 
+ 153 
+ 	`¡r_ä“
+ (
+ ¬
+ ->
+ ¬y_¬¿y
+ [
+ key
+ ]);
+ 
+ 154 
+ ¬
+ ->
+ ¬y_fžl
+  = -1;
+ 
+ 155 
+ 	`Z”o
+ (
+ ¬
+ ->
+ ¬y_¬¿y
+ ,‡r->
+ ¬y_max
+ +1, 
+ STR
+ *);
+ 
+ 156 
+ 	}
+ }
+ 
+ 159 
+ 	$aä“
+ (
+ ¬
+ )
+ 
+ 160 
+ ARRAY
+  *
+ ¬
+ ;
+ 
+ 162 
+ key
+ ;
+ 
+ 164 ià(!
+ ¬
+ )
+ 
+ 166 ià(
+ key
+  = 
+ ¬
+ ->
+ ¬y_¬¿y
+  -‡r->
+ ¬y_®loc
+ ) {
+ 
+ 167 
+ ¬
+ ->
+ ¬y_max
+  +ð
+ key
+ ;
+ 
+ 168 
+ ¬
+ ->
+ ¬y_¬¿y
+  -ð
+ key
+ ;
+ 
+ 170 ià(
+ ¬
+ ->
+ ¬y_æags
+  & 
+ ARF_REAL
+ ) {
+ 
+ 171 
+ key
+  = 0; key <ð
+ ¬
+ ->
+ ¬y_max
+ ; key++)
+ 
+ 172 
+ 	`¡r_ä“
+ (
+ ¬
+ ->
+ ¬y_¬¿y
+ [
+ key
+ ]);
+ 
+ 174 
+ 	`¡r_ä“
+ (
+ ¬
+ ->
+ ¬y_magic
+ );
+ 
+ 175 
+ 	`Saãä“
+ (
+ ¬
+ ->
+ ¬y_®loc
+ );
+ 
+ 176 
+ 	`Saãä“
+ (
+ ¬
+ );
+ 
+ 177 
+ 	}
+ }
+ 
+ 179 
+ boÞ
+ 
+ 
+ 180 
+ 	$­ush
+ (
+ ¬
+ ,
+ v®
+ )
+ 
+ 181 
+ ARRAY
+  *
+ ¬
+ ;
+ 
+ 182 
+ STR
+  *
+ v®
+ ;
+ 
+ 184  
+ 	`a¡Üe
+ (
+ ¬
+ ,++×r->
+ ¬y_fžl
+ ),
+ v®
+ );
+ 
+ 185 
+ 	}
+ }
+ 
+ 187 
+ STR
+  *
+ 
+ 188 
+ 	$­Ý
+ (
+ ¬
+ )
+ 
+ 189 
+ ARRAY
+  *
+ ¬
+ ;
+ 
+ 191 
+ STR
+  *
+ »tv®
+ ;
+ 
+ 193 ià(
+ ¬
+ ->
+ ¬y_fžl
+  < 0)
+ 
+ 194  
+ NuΡr
+ ;
+ 
+ 195 
+ »tv®
+  = 
+ ¬
+ ->
+ ¬y_¬¿y
+ [¬->
+ ¬y_fžl
+ ];
+ 
+ 196 
+ ¬
+ ->
+ ¬y_¬¿y
+ [¬->
+ ¬y_fžl
+ --] = 
+ NuΡr
+ ;
+ 
+ 197  
+ »tv®
+ ;
+ 
+ 198 
+ 	}
+ }
+ 
+ 200 
+ 	$aunshiá
+ (
+ ¬
+ ,
+ num
+ )
+ 
+ 201 
+ ARRAY
+  *
+ ¬
+ ;
+ 
+ 202 
+ num
+ ;
+ 
+ 204 
+ i
+ ;
+ 
+ 205 
+ STR
+  **
+ s¡r
+ ,**
+ d¡r
+ ;
+ 
+ 207 ià(
+ num
+  <= 0)
+ 
+ 209 ià(
+ ¬
+ ->
+ ¬y_¬¿y
+  -‡r->
+ ¬y_®loc
+  >ð
+ num
+ ) {
+ 
+ 210 
+ ¬
+ ->
+ ¬y_max
+  +ð
+ num
+ ;
+ 
+ 211 
+ ¬
+ ->
+ ¬y_fžl
+  +ð
+ num
+ ;
+ 
+ 212 
+ num
+ --)
+ 
+ 213 *--
+ ¬
+ ->
+ ¬y_¬¿y
+  = 
+ NuΡr
+ ;
+ 
+ 216 ()
+ 	`a¡Üe
+ (
+ ¬
+ ,¬->
+ ¬y_fžl
+ +
+ num
+ ,(
+ STR
+ *)0);
+ 
+ 217 
+ d¡r
+  = 
+ ¬
+ ->
+ ¬y_¬¿y
+  +‡r->
+ ¬y_fžl
+ ;
+ 
+ 218 
+ s¡r
+  = 
+ d¡r
+  - 
+ num
+ ;
+ 
+ 219 #ifdeà
+ BUGGY_MSC5
+ 
+ 
+ 220 #´agm¨
+ 	`loÝ_Ýt
+ (
+ off
+ )
+ 
+ 222 
+ i
+  = 
+ ¬
+ ->
+ ¬y_fžl
+ ; i >= 0; i--) {
+ 
+ 223 *
+ d¡r
+ -- = *
+ s¡r
+ --;
+ 
+ 224 #ifdeà
+ BUGGY_MSC5
+ 
+ 
+ 225 #´agm¨
+ 	`loÝ_Ýt
+ ()
+ 
+ 228 
+ 	`Z”o
+ (
+ ¬
+ ->
+ ¬y_¬¿y
+ , 
+ num
+ , 
+ STR
+ *);
+ 
+ 230 
+ 	}
+ }
+ 
+ 232 
+ STR
+  *
+ 
+ 233 
+ 	$ashiá
+ (
+ ¬
+ )
+ 
+ 234 
+ ARRAY
+  *
+ ¬
+ ;
+ 
+ 236 
+ STR
+  *
+ »tv®
+ ;
+ 
+ 238 ià(
+ ¬
+ ->
+ ¬y_fžl
+  < 0)
+ 
+ 239  
+ NuΡr
+ ;
+ 
+ 240 
+ »tv®
+  = *
+ ¬
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 241 *(
+ ¬
+ ->
+ ¬y_¬¿y
+ ++èð
+ NuΡr
+ ;
+ 
+ 242 
+ ¬
+ ->
+ ¬y_max
+ --;
+ 
+ 243 
+ ¬
+ ->
+ ¬y_fžl
+ --;
+ 
+ 244  
+ »tv®
+ ;
+ 
+ 245 
+ 	}
+ }
+ 
+ 248 
+ 	$®’
+ (
+ ¬
+ )
+ 
+ 249 
+ ARRAY
+  *
+ ¬
+ ;
+ 
+ 251  
+ ¬
+ ->
+ ¬y_fžl
+ ;
+ 
+ 252 
+ 	}
+ }
+ 
+ 254 
+ 	$afžl
+ (
+ ¬
+ , 
+ fžl
+ )
+ 
+ 255 
+ ARRAY
+  *
+ ¬
+ ;
+ 
+ 256 
+ fžl
+ ;
+ 
+ 258 ià(
+ fžl
+  < 0)
+ 
+ 259 
+ fžl
+  = -1;
+ 
+ 260 ià(
+ fžl
+  <ð
+ ¬
+ ->
+ ¬y_max
+ )
+ 
+ 261 
+ ¬
+ ->
+ ¬y_fžl
+  = 
+ fžl
+ ;
+ 
+ 263 ()
+ 	`a¡Üe
+ (
+ ¬
+ ,
+ fžl
+ ,
+ NuΡr
+ );
+ 
+ 264 
+ 	}
+ }
+ 
+ 	@array.h
+ 
+ 14 
+ 	s©bl
+  {
+ 
+ 15 
+ STR
+  **
+ 	m¬y_¬¿y
+ ;
+ 
+ 16 
+ STR
+  **
+ 	m¬y_®loc
+ ;
+ 
+ 17 
+ STR
+  *
+ 	m¬y_magic
+ ;
+ 
+ 18 
+ 	m¬y_max
+ ;
+ 
+ 19 
+ 	m¬y_fžl
+ ;
+ 
+ 20 
+ 	m¬y_æags
+ ;
+ 
+ 23 
+ 	#ARF_REAL
+  1
+ 
+ 	)
+ 
+ 25 
+ STR
+  *
+ aãtch
+ ();
+ 
+ 26 
+ boÞ
+  
+ a¡Üe
+ ();
+ 
+ 27 
+ STR
+  *
+ ­Ý
+ ();
+ 
+ 28 
+ STR
+  *
+ ashiá
+ ();
+ 
+ 29 
+ aä“
+ ();
+ 
+ 30 
+ aþ—r
+ ();
+ 
+ 31 
+ boÞ
+  
+ ­ush
+ ();
+ 
+ 32 
+ ®’
+ ();
+ 
+ 33 
+ ARRAY
+  *
+ ªew
+ ();
+ 
+ 34 
+ ARRAY
+  *
+ açke
+ ();
+ 
+ 	@cmd.c
+ 
+ 17 
+ 	~"EXTERN.h
+ "
+ 
+ 18 
+ 	~"³¾.h
+ "
+ 
+ 20 #ifdeà
+ I_VARARGS
+ 
+ 
+ 21 
+ 	~<v¬¬gs.h
+ >
+ 
+ 24 
+ STR
+  
+ 	g¡r_chÝ
+ ;
+ 
+ 26 
+ grow_dËv–
+ ();
+ 
+ 30 #ià
+ defšed
+ (
+ üay
+ è|| defšed(
+ __STDC__
+ )
+ 
+ 31 
+ 	#JMPCLOBBER
+ 
+ 
+ 	)
+ 
+ 40 
+ 	$cmd_exec
+ (
+ cmd·rm
+ ,
+ gimme
+ ,
+ ¥
+ )
+ 
+ 41 
+ CMD
+  *
+ VOLATILE
+  
+ cmd·rm
+ ;
+ 
+ 42 
+ VOLATILE
+  
+ gimme
+ ;
+ 
+ 43 
+ VOLATILE
+  
+ ¥
+ ;
+ 
+ 45 
+ CMD
+  *
+ cmd
+  = 
+ cmd·rm
+ ;
+ 
+ 46 
+ SPAT
+  *
+ VOLATILE
+  
+ Þd¥©
+ ;
+ 
+ 47 
+ VOLATILE
+  
+ fœ¡§ve
+  = 
+ §ve¡ack
+ ->
+ ¬y_fžl
+ ;
+ 
+ 48 
+ VOLATILE
+  
+ Þd§ve
+ ;
+ 
+ 49 
+ VOLATILE
+  
+ ¬yÝt§ve
+ ;
+ 
+ 50 #ifdeà
+ DEBUGGING
+ 
+ 
+ 51 
+ VOLATILE
+  
+ ÞddËv–
+ ;
+ 
+ 52 
+ VOLATILE
+  
+ ’tdËv–
+ ;
+ 
+ 54 
+ STR
+  *
+ »t¡r
+  = &
+ ¡r_undef
+ ;
+ 
+ 55 *
+ tmps
+ ;
+ 
+ 56 
+ cmdæags
+ ;
+ 
+ 57 
+ m©ch
+ ;
+ 
+ 58 *
+ go_to
+  = 
+ gÙo_rg
+ ;
+ 
+ 59 
+ Ãw¥
+  = -2;
+ 
+ 60 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 61 
+ FILE
+  *
+ VOLATILE
+  
+ å
+ ;
+ 
+ 62 
+ ARRAY
+  *
+ VOLATILE
+  
+ ¬
+ ;
+ 
+ 64 
+ ϡsize
+  = 0;
+ 
+ 65 #ifdeà
+ DEBUGGING
+ 
+ 
+ 66 
+ ’tdËv–
+  = 
+ dËv–
+ ;
+ 
+ 68 
+ ž_»cursiÚ_’Œy
+ :
+ 
+ 69 #ifdeà
+ DEBUGGING
+ 
+ 
+ 70 
+ dËv–
+  = 
+ ’tdËv–
+ ;
+ 
+ 72 #ifdeà
+ TAINT
+ 
+ 
+ 73 
+ š‹d
+  = 0;
+ 
+ 75 ià(
+ cmd
+  =ð
+ NuÎcmd
+ ) {
+ 
+ 76 ià(
+ gimme
+  =ð
+ G_ARRAY
+  && 
+ Ãw¥
+  > -2)
+ 
+ 77  
+ Ãw¥
+ ;
+ 
+ 79 
+ ¡
+ [++
+ ¥
+ ] = 
+ »t¡r
+ ;
+ 
+ 80  
+ ¥
+ ;
+ 
+ 83 
+ cmdæags
+  = 
+ cmd
+ ->
+ c_æags
+ ;
+ 
+ 84 ià(
+ go_to
+ ) {
+ 
+ 85 ià(
+ cmd
+ ->
+ c_Ïb–
+  && 
+ 	`¡rEQ
+ (
+ go_to
+ ,cmd->c_label))
+ 
+ 86 
+ gÙo_rg
+  = 
+ go_to
+  = 
+ NuÎch
+ ;
+ 
+ 88 
+ cmd
+ ->
+ c_ty³
+ ) {
+ 
+ 89 
+ C_IF
+ :
+ 
+ 90 
+ Þd¥©
+  = 
+ cur¥©
+ ;
+ 
+ 91 
+ Þd§ve
+  = 
+ §ve¡ack
+ ->
+ ¬y_fžl
+ ;
+ 
+ 92 #ifdeà
+ DEBUGGING
+ 
+ 
+ 93 
+ ÞddËv–
+  = 
+ dËv–
+ ;
+ 
+ 95 
+ »t¡r
+  = &
+ ¡r_yes
+ ;
+ 
+ 96 
+ Ãw¥
+  = -2;
+ 
+ 97 ià(
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ) {
+ 
+ 98 #ifdeà
+ DEBUGGING
+ 
+ 
+ 99 ià(
+ debug
+ ) {
+ 
+ 100 
+ debÇme
+ [
+ dËv–
+ ] = 't';
+ 
+ 101 
+ debd–im
+ [
+ dËv–
+ ] = '_';
+ 
+ 102 ià(++
+ dËv–
+  >ð
+ dlmax
+ )
+ 
+ 103 
+ 	`grow_dËv–
+ ();
+ 
+ 106 
+ Ãw¥
+  = 
+ 	`cmd_exec
+ (
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ,
+ gimme
+  && (
+ cmdæags
+  & 
+ CF_TERM
+ ),
+ ¥
+ );
+ 
+ 107 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 108 
+ »t¡r
+  = 
+ ¡
+ [
+ Ãw¥
+ ];
+ 
+ 110 ià(!
+ gÙo_rg
+ )
+ 
+ 111 
+ go_to
+  = 
+ NuÎch
+ ;
+ 
+ 112 
+ cur¥©
+  = 
+ Þd¥©
+ ;
+ 
+ 113 ià(
+ §ve¡ack
+ ->
+ ¬y_fžl
+  > 
+ Þd§ve
+ )
+ 
+ 114 
+ 	`»¡Ü–i¡
+ (
+ Þd§ve
+ );
+ 
+ 115 #ifdeà
+ DEBUGGING
+ 
+ 
+ 116 
+ dËv–
+  = 
+ ÞddËv–
+ ;
+ 
+ 118 
+ cmd
+  = cmd->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+ ;
+ 
+ 119 
+ ž_»cursiÚ_’Œy
+ ;
+ 
+ 120 
+ C_ELSE
+ :
+ 
+ 121 
+ Þd¥©
+  = 
+ cur¥©
+ ;
+ 
+ 122 
+ Þd§ve
+  = 
+ §ve¡ack
+ ->
+ ¬y_fžl
+ ;
+ 
+ 123 #ifdeà
+ DEBUGGING
+ 
+ 
+ 124 
+ ÞddËv–
+  = 
+ dËv–
+ ;
+ 
+ 126 
+ »t¡r
+  = &
+ ¡r_undef
+ ;
+ 
+ 127 
+ Ãw¥
+  = -2;
+ 
+ 128 ià(
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ) {
+ 
+ 129 #ifdeà
+ DEBUGGING
+ 
+ 
+ 130 ià(
+ debug
+ ) {
+ 
+ 131 
+ debÇme
+ [
+ dËv–
+ ] = 'e';
+ 
+ 132 
+ debd–im
+ [
+ dËv–
+ ] = '_';
+ 
+ 133 ià(++
+ dËv–
+  >ð
+ dlmax
+ )
+ 
+ 134 
+ 	`grow_dËv–
+ ();
+ 
+ 137 
+ Ãw¥
+  = 
+ 	`cmd_exec
+ (
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ,
+ gimme
+  && (
+ cmdæags
+  & 
+ CF_TERM
+ ),
+ ¥
+ );
+ 
+ 138 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 139 
+ »t¡r
+  = 
+ ¡
+ [
+ Ãw¥
+ ];
+ 
+ 141 ià(!
+ gÙo_rg
+ )
+ 
+ 142 
+ go_to
+  = 
+ NuÎch
+ ;
+ 
+ 143 
+ cur¥©
+  = 
+ Þd¥©
+ ;
+ 
+ 144 ià(
+ §ve¡ack
+ ->
+ ¬y_fžl
+  > 
+ Þd§ve
+ )
+ 
+ 145 
+ 	`»¡Ü–i¡
+ (
+ Þd§ve
+ );
+ 
+ 146 #ifdeà
+ DEBUGGING
+ 
+ 
+ 147 
+ dËv–
+  = 
+ ÞddËv–
+ ;
+ 
+ 150 
+ C_BLOCK
+ :
+ 
+ 151 
+ C_WHILE
+ :
+ 
+ 152 ià(!(
+ cmdæags
+  & 
+ CF_ONCE
+ )) {
+ 
+ 153 
+ cmdæags
+  |ð
+ CF_ONCE
+ ;
+ 
+ 154 ià(++
+ loÝ_±r
+  >ð
+ loÝ_max
+ ) {
+ 
+ 155 
+ loÝ_max
+  += 128;
+ 
+ 156 
+ 	`R’ew
+ (
+ loÝ_¡ack
+ , 
+ loÝ_max
+ , 
+ loÝ
+ );
+ 
+ 158 
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_Ïb–
+  = 
+ cmd
+ ->
+ c_Ïb–
+ ;
+ 
+ 159 
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_¥
+  = 
+ ¥
+ ;
+ 
+ 160 #ifdeà
+ DEBUGGING
+ 
+ 
+ 161 ià(
+ debug
+  & 4) {
+ 
+ 162 
+ 	`deb
+ ("(Pushing†abel #%d %s)\n",
+ 
+ 163 
+ loÝ_±r
+ , 
+ cmd
+ ->
+ c_Ïb–
+  ? cmd->c_label : "");
+ 
+ 167 #ifdeà
+ JMPCLOBBER
+ 
+ 
+ 168 
+ cmd·rm
+  = 
+ cmd
+ ;
+ 
+ 170 
+ m©ch
+  = 
+ 	`£tjmp
+ (
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_’v
+ );
+ 
+ 171 ià(
+ m©ch
+ ) {
+ 
+ 172 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 173 #ifdeà
+ JMPCLOBBER
+ 
+ 
+ 174 
+ cmd
+  = 
+ cmd·rm
+ ;
+ 
+ 175 
+ cmdæags
+  = 
+ cmd
+ ->
+ c_æags
+ |
+ CF_ONCE
+ ;
+ 
+ 177 ià(
+ §ve¡ack
+ ->
+ ¬y_fžl
+  > 
+ Þd§ve
+ )
+ 
+ 178 
+ 	`»¡Ü–i¡
+ (
+ Þd§ve
+ );
+ 
+ 179 
+ m©ch
+ ) {
+ 
+ 181 
+ 	`çl
+ ("lÚgjm°»tuºed bad v®u(%d)",
+ m©ch
+ );
+ 
+ 182 
+ O_LAST
+ :
+ 
+ 183 
+ go_to
+  = 
+ NuÎch
+ ;
+ 
+ 184 ià(
+ Ï¡»t¡r
+ ) {
+ 
+ 185 
+ »t¡r
+  = 
+ Ï¡»t¡r
+ ;
+ 
+ 186 
+ Ãw¥
+  = -2;
+ 
+ 189 
+ Ãw¥
+  = 
+ ¥
+  + 
+ ϡsize
+ ;
+ 
+ 190 
+ »t¡r
+  = 
+ ¡
+ [
+ Ãw¥
+ ];
+ 
+ 192 #ifdeà
+ DEBUGGING
+ 
+ 
+ 193 
+ ÞddËv–
+  = 
+ dËv–
+ ;
+ 
+ 195 
+ cur¥©
+  = 
+ Þd¥©
+ ;
+ 
+ 196 
+ Ãxt_cmd
+ ;
+ 
+ 197 
+ O_NEXT
+ :
+ 
+ 198 
+ go_to
+  = 
+ NuÎch
+ ;
+ 
+ 199 #ifdeà
+ JMPCLOBBER
+ 
+ 
+ 200 
+ Ãw¥
+  = -2;
+ 
+ 201 
+ »t¡r
+  = &
+ ¡r_undef
+ ;
+ 
+ 203 
+ Ãxt_™”
+ ;
+ 
+ 204 
+ O_REDO
+ :
+ 
+ 205 
+ go_to
+  = 
+ NuÎch
+ ;
+ 
+ 206 #ifdeà
+ JMPCLOBBER
+ 
+ 
+ 207 
+ Ãw¥
+  = -2;
+ 
+ 208 
+ »t¡r
+  = &
+ ¡r_undef
+ ;
+ 
+ 210 
+ do™
+ ;
+ 
+ 213 
+ Þd¥©
+  = 
+ cur¥©
+ ;
+ 
+ 214 
+ Þd§ve
+  = 
+ §ve¡ack
+ ->
+ ¬y_fžl
+ ;
+ 
+ 215 #ifdeà
+ DEBUGGING
+ 
+ 
+ 216 
+ ÞddËv–
+  = 
+ dËv–
+ ;
+ 
+ 218 ià(
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ) {
+ 
+ 219 #ifdeà
+ DEBUGGING
+ 
+ 
+ 220 ià(
+ debug
+ ) {
+ 
+ 221 
+ debÇme
+ [
+ dËv–
+ ] = 't';
+ 
+ 222 
+ debd–im
+ [
+ dËv–
+ ] = '_';
+ 
+ 223 ià(++
+ dËv–
+  >ð
+ dlmax
+ )
+ 
+ 224 
+ 	`grow_dËv–
+ ();
+ 
+ 227 
+ Ãw¥
+  = 
+ 	`cmd_exec
+ (
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ,
+ gimme
+  && (
+ cmdæags
+  & 
+ CF_TERM
+ ),
+ ¥
+ );
+ 
+ 228 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 229 
+ »t¡r
+  = 
+ ¡
+ [
+ Ãw¥
+ ];
+ 
+ 231 ià(!
+ gÙo_rg
+ ) {
+ 
+ 232 
+ go_to
+  = 
+ NuÎch
+ ;
+ 
+ 233 
+ Ãxt_™”
+ ;
+ 
+ 235 #ifdeà
+ DEBUGGING
+ 
+ 
+ 236 
+ dËv–
+  = 
+ ÞddËv–
+ ;
+ 
+ 238 ià(
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+ ) {
+ 
+ 239 #ifdeà
+ DEBUGGING
+ 
+ 
+ 240 ià(
+ debug
+ ) {
+ 
+ 241 
+ debÇme
+ [
+ dËv–
+ ] = 'a';
+ 
+ 242 
+ debd–im
+ [
+ dËv–
+ ] = '_';
+ 
+ 243 ià(++
+ dËv–
+  >ð
+ dlmax
+ )
+ 
+ 244 
+ 	`grow_dËv–
+ ();
+ 
+ 247 
+ Ãw¥
+  = 
+ 	`cmd_exec
+ (
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+ ,
+ gimme
+  && (
+ cmdæags
+  & 
+ CF_TERM
+ ),
+ ¥
+ );
+ 
+ 248 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 249 
+ »t¡r
+  = 
+ ¡
+ [
+ Ãw¥
+ ];
+ 
+ 251 ià(
+ gÙo_rg
+ )
+ 
+ 253 
+ go_to
+  = 
+ NuÎch
+ ;
+ 
+ 254 
+ fšish_whže
+ ;
+ 
+ 256 
+ cmd
+  = cmd->
+ c_Ãxt
+ ;
+ 
+ 257 ià(
+ cmd
+  && cmd->
+ c_h—d
+  == cmd)
+ 
+ 259  
+ ¥
+ ;
+ 
+ 260 ià(
+ cmdæags
+  & 
+ CF_ONCE
+ ) {
+ 
+ 261 #ifdeà
+ DEBUGGING
+ 
+ 
+ 262 ià(
+ debug
+  & 4) {
+ 
+ 263 
+ tmps
+  = 
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_Ïb–
+ ;
+ 
+ 264 
+ 	`deb
+ ("(PÝpšg†ab– #%d %s)\n",
+ loÝ_±r
+ ,
+ 
+ 265 
+ tmps
+  ?mps : "" );
+ 
+ 268 
+ loÝ_±r
+ --;
+ 
+ 270 
+ ž_»cursiÚ_’Œy
+ ;
+ 
+ 274 
+ uÁž_loÝ
+ :
+ 
+ 278 
+ curcmd
+  = 
+ cmd
+ ;
+ 
+ 280 #ifdeà
+ DEBUGGING
+ 
+ 
+ 281 ià(
+ debug
+ ) {
+ 
+ 282 ià(
+ debug
+  & 2) {
+ 
+ 283 
+ 	`deb
+ ("%s (%lx)„%lx%lx‡%lx‚%lx cs%lx\n",
+ 
+ 284 
+ cmdÇme
+ [
+ cmd
+ ->
+ c_ty³
+ ],cmd,cmd->
+ c_ex´
+ ,
+ 
+ 285 
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ,cmd->ucmd.ccmd.
+ cc_®t
+ ,cmd->
+ c_Ãxt
+ ,
+ 
+ 286 
+ cur¥©
+ );
+ 
+ 288 
+ debÇme
+ [
+ dËv–
+ ] = 
+ cmdÇme
+ [
+ cmd
+ ->
+ c_ty³
+ ][0];
+ 
+ 289 
+ debd–im
+ [
+ dËv–
+ ] = '!';
+ 
+ 290 ià(++
+ dËv–
+  >ð
+ dlmax
+ )
+ 
+ 291 
+ 	`grow_dËv–
+ ();
+ 
+ 297 ià(
+ cmdæags
+  & 
+ CF_COND
+ ) {
+ 
+ 298 
+ cmdæags
+  & 
+ CF_OPTIMIZE
+ ) {
+ 
+ 300 
+ CFT_FALSE
+ :
+ 
+ 301 
+ »t¡r
+  = 
+ cmd
+ ->
+ c_shÜt
+ ;
+ 
+ 302 
+ Ãw¥
+  = -2;
+ 
+ 303 
+ m©ch
+  = 
+ FALSE
+ ;
+ 
+ 304 ià(
+ cmdæags
+  & 
+ CF_NESURE
+ )
+ 
+ 305 
+ maybe
+ ;
+ 
+ 307 
+ CFT_TRUE
+ :
+ 
+ 308 
+ »t¡r
+  = 
+ cmd
+ ->
+ c_shÜt
+ ;
+ 
+ 309 
+ Ãw¥
+  = -2;
+ 
+ 310 
+ m©ch
+  = 
+ TRUE
+ ;
+ 
+ 311 ià(
+ cmdæags
+  & 
+ CF_EQSURE
+ )
+ 
+ 312 
+ æmaybe
+ ;
+ 
+ 315 
+ CFT_REG
+ :
+ 
+ 316 
+ »t¡r
+  = 
+ 	`STAB_STR
+ (
+ cmd
+ ->
+ c_¡ab
+ );
+ 
+ 317 
+ Ãw¥
+  = -2;
+ 
+ 318 
+ m©ch
+  = 
+ 	`¡r_Œue
+ (
+ »t¡r
+ );
+ 
+ 319 ià(
+ cmdæags
+  & (
+ m©ch
+  ? 
+ CF_EQSURE
+  : 
+ CF_NESURE
+ ))
+ 
+ 320 
+ æmaybe
+ ;
+ 
+ 323 
+ CFT_ANCHOR
+ :
+ 
+ 324 ià(
+ muÉžše
+ ) {
+ 
+ 325 ià(*
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_±r
+  && !(
+ cmdæags
+  & 
+ CF_EQSURE
+ ))
+ 
+ 326 
+ sÿ”
+ ;
+ 
+ 331 
+ CFT_STROP
+ :
+ 
+ 332 
+ »t¡r
+  = 
+ 	`STAB_STR
+ (
+ cmd
+ ->
+ c_¡ab
+ );
+ 
+ 333 
+ Ãw¥
+  = -2;
+ 
+ 334 #iâdeà
+ I286
+ 
+ 
+ 335 ià(*
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_±r
+  =ð*
+ 	`¡r_g‘
+ (
+ »t¡r
+ ) &&
+ 
+ 336 
+ 	`bcmp
+ (
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_±r
+ , 
+ 	`¡r_g‘
+ (
+ »t¡r
+ ),
+ 
+ 337 
+ cmd
+ ->
+ c_¦’
+ ) == 0 ) {
+ 
+ 338 ià(
+ cmdæags
+  & 
+ CF_EQSURE
+ ) {
+ 
+ 339 ià(
+ §wam³r§nd
+  && (
+ cmdæags
+  & 
+ CF_OPTIMIZE
+ è!ð
+ CFT_STROP
+ ) {
+ 
+ 340 
+ cur¥©
+  = 
+ Nu봩
+ ;
+ 
+ 341 ià(
+ Ëá¡ab
+ )
+ 
+ 342 
+ 	`¡r_n£t
+ (
+ 	`¡ab_v®
+ (
+ Ëá¡ab
+ ),"",0);
+ 
+ 343 ià(
+ am³r¡ab
+ )
+ 
+ 344 
+ 	`¡r_s£t
+ (
+ 	`¡ab_v®
+ (
+ am³r¡ab
+ ),
+ cmd
+ ->
+ c_shÜt
+ );
+ 
+ 345 ià(
+ right¡ab
+ )
+ 
+ 346 
+ 	`¡r_n£t
+ (
+ 	`¡ab_v®
+ (
+ right¡ab
+ ),
+ 
+ 347 
+ »t¡r
+ ->
+ ¡r_±r
+  + 
+ cmd
+ ->
+ c_¦’
+ ,
+ 
+ 348 
+ »t¡r
+ ->
+ ¡r_cur
+  - 
+ cmd
+ ->
+ c_¦’
+ );
+ 
+ 350 ià(
+ cmd
+ ->
+ c_¥©
+ )
+ 
+ 351 
+ Ï¡¥©
+  = 
+ cmd
+ ->
+ c_¥©
+ ;
+ 
+ 352 
+ m©ch
+  = !(
+ cmdæags
+  & 
+ CF_FIRSTNEG
+ );
+ 
+ 353 
+ »t¡r
+  = &
+ ¡r_yes
+ ;
+ 
+ 354 
+ æmaybe
+ ;
+ 
+ 357 ià(
+ cmdæags
+  & 
+ CF_NESURE
+ ) {
+ 
+ 358 
+ m©ch
+  = 
+ cmdæags
+  & 
+ CF_FIRSTNEG
+ ;
+ 
+ 359 
+ »t¡r
+  = &
+ ¡r_no
+ ;
+ 
+ 360 
+ æmaybe
+ ;
+ 
+ 364 *
+ z­1
+ , *
+ z­2
+ , 
+ z­1c
+ , 
+ z­2c
+ ;
+ 
+ 365 
+ z­Ën
+ ;
+ 
+ 367 
+ z­1
+  = 
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_±r
+ ;
+ 
+ 368 
+ z­2
+  = 
+ 	`¡r_g‘
+ (
+ »t¡r
+ );
+ 
+ 369 
+ z­1c
+  = *
+ z­1
+ ;
+ 
+ 370 
+ z­2c
+  = *
+ z­2
+ ;
+ 
+ 371 
+ z­Ën
+  = 
+ cmd
+ ->
+ c_¦’
+ ;
+ 
+ 372 ià((
+ z­1c
+  =ð
+ z­2c
+ è&& (
+ 	`bcmp
+ (
+ z­1
+ , 
+ z­2
+ , 
+ z­Ën
+ ) == 0)) {
+ 
+ 373 ià(
+ cmdæags
+  & 
+ CF_EQSURE
+ ) {
+ 
+ 374 ià(
+ §wam³r§nd
+  &&
+ 
+ 375 (
+ cmdæags
+  & 
+ CF_OPTIMIZE
+ è!ð
+ CFT_STROP
+ ) {
+ 
+ 376 
+ cur¥©
+  = 
+ Nu봩
+ ;
+ 
+ 377 ià(
+ Ëá¡ab
+ )
+ 
+ 378 
+ 	`¡r_n£t
+ (
+ 	`¡ab_v®
+ (
+ Ëá¡ab
+ ),"",0);
+ 
+ 379 ià(
+ am³r¡ab
+ )
+ 
+ 380 
+ 	`¡r_s£t
+ (
+ 	`¡ab_v®
+ (
+ am³r¡ab
+ ),
+ cmd
+ ->
+ c_shÜt
+ );
+ 
+ 381 ià(
+ right¡ab
+ )
+ 
+ 382 
+ 	`¡r_n£t
+ (
+ 	`¡ab_v®
+ (
+ right¡ab
+ ),
+ 
+ 383 
+ »t¡r
+ ->
+ ¡r_±r
+  + 
+ cmd
+ ->
+ c_¦’
+ ,
+ 
+ 384 
+ »t¡r
+ ->
+ ¡r_cur
+  - 
+ cmd
+ ->
+ c_¦’
+ );
+ 
+ 386 ià(
+ cmd
+ ->
+ c_¥©
+ )
+ 
+ 387 
+ Ï¡¥©
+  = 
+ cmd
+ ->
+ c_¥©
+ ;
+ 
+ 388 
+ m©ch
+  = !(
+ cmdæags
+  & 
+ CF_FIRSTNEG
+ );
+ 
+ 389 
+ »t¡r
+  = &
+ ¡r_yes
+ ;
+ 
+ 390 
+ æmaybe
+ ;
+ 
+ 393 ià(
+ cmdæags
+  & 
+ CF_NESURE
+ ) {
+ 
+ 394 
+ m©ch
+  = 
+ cmdæags
+  & 
+ CF_FIRSTNEG
+ ;
+ 
+ 395 
+ »t¡r
+  = &
+ ¡r_no
+ ;
+ 
+ 396 
+ æmaybe
+ ;
+ 
+ 402 
+ CFT_SCAN
+ :
+ 
+ 403 
+ sÿ”
+ :
+ 
+ 404 
+ »t¡r
+  = 
+ 	`STAB_STR
+ (
+ cmd
+ ->
+ c_¡ab
+ );
+ 
+ 405 
+ Ãw¥
+  = -2;
+ 
+ 406 ià(
+ »t¡r
+ ->
+ ¡r_pok
+  & 
+ SP_STUDIED
+ )
+ 
+ 407 ià(
+ sü—mfœ¡
+ [
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_¿»
+ ] >= 0)
+ 
+ 408 
+ tmps
+  = 
+ 	`sü—mš¡r
+ (
+ »t¡r
+ , 
+ cmd
+ ->
+ c_shÜt
+ );
+ 
+ 410 
+ tmps
+  = 
+ NuÎch
+ ;
+ 
+ 412 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ »t¡r
+ );
+ 
+ 413 #iâdeà
+ lšt
+ 
+ 
+ 414 
+ tmps
+  = 
+ 	`fbmš¡r
+ ((*)tmps,
+ 
+ 415 (*)
+ tmps
+  + 
+ »t¡r
+ ->
+ ¡r_cur
+ , 
+ cmd
+ ->
+ c_shÜt
+ );
+ 
+ 418 ià(
+ tmps
+ ) {
+ 
+ 419 ià(
+ cmdæags
+  & 
+ CF_EQSURE
+ ) {
+ 
+ 420 ++
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+ ;
+ 
+ 421 ià(
+ §wam³r§nd
+ ) {
+ 
+ 422 
+ cur¥©
+  = 
+ Nu봩
+ ;
+ 
+ 423 ià(
+ Ëá¡ab
+ )
+ 
+ 424 
+ 	`¡r_n£t
+ (
+ 	`¡ab_v®
+ (
+ Ëá¡ab
+ ),
+ »t¡r
+ ->
+ ¡r_±r
+ ,
+ 
+ 425 
+ tmps
+  - 
+ »t¡r
+ ->
+ ¡r_±r
+ );
+ 
+ 426 ià(
+ am³r¡ab
+ )
+ 
+ 427 
+ 	`¡r_n£t
+ (
+ 	`¡ab_v®
+ (
+ am³r¡ab
+ ),
+ 
+ 428 
+ tmps
+ , 
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_cur
+ );
+ 
+ 429 ià(
+ right¡ab
+ )
+ 
+ 430 
+ 	`¡r_n£t
+ (
+ 	`¡ab_v®
+ (
+ right¡ab
+ ),
+ 
+ 431 
+ tmps
+  + 
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_cur
+ ,
+ 
+ 432 
+ »t¡r
+ ->
+ ¡r_cur
+  - (
+ tmps
+  -„‘¡r->
+ ¡r_±r
+ ) -
+ 
+ 433 
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_cur
+ );
+ 
+ 435 
+ Ï¡¥©
+  = 
+ cmd
+ ->
+ c_¥©
+ ;
+ 
+ 436 
+ m©ch
+  = !(
+ cmdæags
+  & 
+ CF_FIRSTNEG
+ );
+ 
+ 437 
+ »t¡r
+  = &
+ ¡r_yes
+ ;
+ 
+ 438 
+ æmaybe
+ ;
+ 
+ 441 
+ hšt
+  = 
+ tmps
+ ;
+ 
+ 444 ià(
+ cmdæags
+  & 
+ CF_NESURE
+ ) {
+ 
+ 445 ++
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+ ;
+ 
+ 446 
+ m©ch
+  = 
+ cmdæags
+  & 
+ CF_FIRSTNEG
+ ;
+ 
+ 447 
+ »t¡r
+  = &
+ ¡r_no
+ ;
+ 
+ 448 
+ æmaybe
+ ;
+ 
+ 451 ià(--
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+  < 0) {
+ 
+ 452 
+ cmdæags
+  &ð~
+ CF_OPTIMIZE
+ ;
+ 
+ 453 
+ cmdæags
+  |ð
+ CFT_EVAL
+ ;
+ 
+ 454 
+ cmd
+ ->
+ c_æags
+  = (
+ cmdæags
+  & ~
+ CF_ONCE
+ );
+ 
+ 458 
+ CFT_NUMOP
+ :
+ 
+ 459 
+ »t¡r
+  = 
+ 	`STAB_STR
+ (
+ cmd
+ ->
+ c_¡ab
+ );
+ 
+ 460 
+ Ãw¥
+  = -2;
+ 
+ 461 
+ cmd
+ ->
+ c_¦’
+ ) {
+ 
+ 462 
+ O_EQ
+ :
+ 
+ 463 ià(
+ dow¬n
+ ) {
+ 
+ 464 ià((!
+ »t¡r
+ ->
+ ¡r_nok
+  && !
+ 	`looks_like_numb”
+ (retstr)))
+ 
+ 465 
+ 	`w¬n
+ ("Possible use of == on string value");
+ 
+ 467 
+ m©ch
+  = (
+ 	`¡r_gnum
+ (
+ »t¡r
+ è=ð
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_nv®
+ );
+ 
+ 469 
+ O_NE
+ :
+ 
+ 470 
+ m©ch
+  = (
+ 	`¡r_gnum
+ (
+ »t¡r
+ è!ð
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_nv®
+ );
+ 
+ 472 
+ O_LT
+ :
+ 
+ 473 
+ m©ch
+  = (
+ 	`¡r_gnum
+ (
+ »t¡r
+ è< 
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_nv®
+ );
+ 
+ 475 
+ O_LE
+ :
+ 
+ 476 
+ m©ch
+  = (
+ 	`¡r_gnum
+ (
+ »t¡r
+ è<ð
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_nv®
+ );
+ 
+ 478 
+ O_GT
+ :
+ 
+ 479 
+ m©ch
+  = (
+ 	`¡r_gnum
+ (
+ »t¡r
+ è> 
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_nv®
+ );
+ 
+ 481 
+ O_GE
+ :
+ 
+ 482 
+ m©ch
+  = (
+ 	`¡r_gnum
+ (
+ »t¡r
+ è>ð
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_nv®
+ );
+ 
+ 485 ià(
+ m©ch
+ ) {
+ 
+ 486 ià(
+ cmdæags
+  & 
+ CF_EQSURE
+ ) {
+ 
+ 487 
+ »t¡r
+  = &
+ ¡r_yes
+ ;
+ 
+ 488 
+ æmaybe
+ ;
+ 
+ 491 ià(
+ cmdæags
+  & 
+ CF_NESURE
+ ) {
+ 
+ 492 
+ »t¡r
+  = &
+ ¡r_no
+ ;
+ 
+ 493 
+ æmaybe
+ ;
+ 
+ 497 
+ CFT_INDGETS
+ :
+ 
+ 498 
+ Ï¡_š_¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ 	`STAB_STR
+ (
+ cmd
+ ->
+ c_¡ab
+ )),
+ TRUE
+ );
+ 
+ 499 ià(!
+ 	`¡ab_io
+ (
+ Ï¡_š_¡ab
+ ))
+ 
+ 500 
+ 	`¡ab_io
+ (
+ Ï¡_š_¡ab
+ èð
+ 	`¡io_Ãw
+ ();
+ 
+ 501 
+ dog‘s
+ ;
+ 
+ 502 
+ CFT_GETS
+ :
+ 
+ 503 
+ Ï¡_š_¡ab
+  = 
+ cmd
+ ->
+ c_¡ab
+ ;
+ 
+ 504 
+ dog‘s
+ :
+ 
+ 505 
+ å
+  = 
+ 	`¡ab_io
+ (
+ Ï¡_š_¡ab
+ )->
+ iå
+ ;
+ 
+ 506 
+ »t¡r
+  = 
+ 	`¡ab_v®
+ (
+ def¡ab
+ );
+ 
+ 507 
+ Ãw¥
+  = -2;
+ 
+ 508 
+ k“pgošg
+ :
+ 
+ 509 ià(
+ å
+  && 
+ 	`¡r_g‘s
+ (
+ »t¡r
+ , fp, 0)) {
+ 
+ 510 ià(*
+ »t¡r
+ ->
+ ¡r_±r
+  =ð'0' &&„‘¡r->
+ ¡r_cur
+  == 1)
+ 
+ 511 
+ m©ch
+  = 
+ FALSE
+ ;
+ 
+ 513 
+ m©ch
+  = 
+ TRUE
+ ;
+ 
+ 514 
+ 	`¡ab_io
+ (
+ Ï¡_š_¡ab
+ )->
+ lšes
+ ++;
+ 
+ 516 ià(
+ 	`¡ab_io
+ (
+ Ï¡_š_¡ab
+ )->
+ æags
+  & 
+ IOF_ARGV
+ ) {
+ 
+ 517 ià(!
+ å
+ )
+ 
+ 518 
+ dÛv®
+ ;
+ 
+ 519 
+ å
+  = 
+ 	`Ãxrgv
+ (
+ Ï¡_š_¡ab
+ );
+ 
+ 520 ià(
+ å
+ )
+ 
+ 521 
+ k“pgošg
+ ;
+ 
+ 522 ()
+ 	`do_þo£
+ (
+ Ï¡_š_¡ab
+ ,
+ FALSE
+ );
+ 
+ 523 
+ 	`¡ab_io
+ (
+ Ï¡_š_¡ab
+ )->
+ æags
+  |ð
+ IOF_START
+ ;
+ 
+ 524 
+ »t¡r
+  = &
+ ¡r_undef
+ ;
+ 
+ 525 
+ m©ch
+  = 
+ FALSE
+ ;
+ 
+ 528 
+ »t¡r
+  = &
+ ¡r_undef
+ ;
+ 
+ 529 
+ m©ch
+  = 
+ FALSE
+ ;
+ 
+ 531 
+ æmaybe
+ ;
+ 
+ 532 
+ CFT_EVAL
+ :
+ 
+ 534 
+ CFT_UNFLIP
+ :
+ 
+ 535 
+ tmps_max
+  > 
+ tmps_ba£
+ ) {
+ 
+ 536 
+ 	`¡r_ä“
+ (
+ tmps_li¡
+ [
+ tmps_max
+ ]);
+ 
+ 537 
+ tmps_li¡
+ [
+ tmps_max
+ --] = 
+ NuΡr
+ ;
+ 
+ 539 
+ Ãw¥
+  = 
+ 	`ev®
+ (
+ cmd
+ ->
+ c_ex´
+ ,
+ gimme
+  && (
+ cmdæags
+  & 
+ CF_TERM
+ ),
+ ¥
+ );
+ 
+ 540 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 541 
+ »t¡r
+  = 
+ ¡
+ [
+ Ãw¥
+ ];
+ 
+ 542 
+ m©ch
+  = 
+ 	`¡r_Œue
+ (
+ »t¡r
+ );
+ 
+ 543 ià(
+ cmd
+ ->
+ c_ex´
+ ->
+ ¬g_ty³
+  =ð
+ O_FLIP
+ )
+ 
+ 544 
+ cmdæags
+  = 
+ 	`cÝyÝt
+ (
+ cmd
+ ,cmd->
+ c_ex´
+ [3].
+ ¬g_±r
+ .
+ ¬g_cmd
+ );
+ 
+ 545 
+ maybe
+ ;
+ 
+ 546 
+ CFT_CHOP
+ :
+ 
+ 547 
+ »t¡r
+  = 
+ 	`¡ab_v®
+ (
+ cmd
+ ->
+ c_¡ab
+ );
+ 
+ 548 
+ Ãw¥
+  = -2;
+ 
+ 549 
+ m©ch
+  = (
+ »t¡r
+ ->
+ ¡r_cur
+  != 0);
+ 
+ 550 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ »t¡r
+ );
+ 
+ 551 
+ tmps
+  +ð
+ »t¡r
+ ->
+ ¡r_cur
+  - 
+ m©ch
+ ;
+ 
+ 552 
+ 	`¡r_n£t
+ (&
+ ¡r_chÝ
+ ,
+ tmps
+ ,
+ m©ch
+ );
+ 
+ 553 *
+ tmps
+  = '\0';
+ 
+ 554 
+ »t¡r
+ ->
+ ¡r_nok
+  = 0;
+ 
+ 555 
+ »t¡r
+ ->
+ ¡r_cur
+  = 
+ tmps
+  -„‘¡r->
+ ¡r_±r
+ ;
+ 
+ 556 
+ 	`STABSET
+ (
+ »t¡r
+ );
+ 
+ 557 
+ »t¡r
+  = &
+ ¡r_chÝ
+ ;
+ 
+ 558 
+ æmaybe
+ ;
+ 
+ 559 
+ CFT_ARRAY
+ :
+ 
+ 560 
+ m©ch
+  = 
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+ ;
+ 
+ 562 ià(
+ m©ch
+  < 0) {
+ 
+ 563 
+ ¬
+  = 
+ 	`¡ab_¬¿y
+ (
+ cmd
+ ->
+ c_ex´
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ );
+ 
+ 564 
+ ¬yÝt§ve
+  = 
+ §ve¡ack
+ ->
+ ¬y_fžl
+ ;
+ 
+ 565 
+ 	`§ve¥Œ
+ (&
+ 	`¡ab_v®
+ (
+ cmd
+ ->
+ c_¡ab
+ ));
+ 
+ 566 
+ 	`§v–Úg
+ (&
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+ );
+ 
+ 569 
+ ¬
+  = 
+ 	`¡ab_x¬¿y
+ (
+ cmd
+ ->
+ c_ex´
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ );
+ 
+ 570 ià(
+ cmd
+ ->
+ c_ty³
+  !ð
+ C_WHILE
+  && 
+ §ve¡ack
+ ->
+ ¬y_fžl
+  > 
+ fœ¡§ve
+ )
+ 
+ 571 
+ 	`»¡Ü–i¡
+ (
+ fœ¡§ve
+ );
+ 
+ 574 ià(
+ m©ch
+  >ð
+ ¬
+ ->
+ ¬y_fžl
+ ) {
+ 
+ 575 
+ »t¡r
+  = &
+ ¡r_undef
+ ;
+ 
+ 576 
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+  = -1;
+ 
+ 577 
+ m©ch
+  = 
+ FALSE
+ ;
+ 
+ 580 
+ m©ch
+ ++;
+ 
+ 581 ià(!(
+ »t¡r
+  = 
+ ¬
+ ->
+ ¬y_¬¿y
+ [
+ m©ch
+ ]))
+ 
+ 582 
+ »t¡r
+  = 
+ 	`aãtch
+ (
+ ¬
+ ,
+ m©ch
+ ,
+ TRUE
+ );
+ 
+ 583 
+ 	`¡ab_v®
+ (
+ cmd
+ ->
+ c_¡ab
+ èð
+ »t¡r
+ ;
+ 
+ 584 
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+  = 
+ m©ch
+ ;
+ 
+ 585 
+ m©ch
+  = 
+ TRUE
+ ;
+ 
+ 587 
+ Ãw¥
+  = -2;
+ 
+ 588 
+ maybe
+ ;
+ 
+ 589 
+ CFT_D1
+ :
+ 
+ 591 
+ CFT_D0
+ :
+ 
+ 592 ià(
+ DBsšgË
+ ->
+ ¡r_u
+ .
+ ¡r_nv®
+  != 0)
+ 
+ 594 ià(
+ DBsigÇl
+ ->
+ ¡r_u
+ .
+ ¡r_nv®
+  != 0)
+ 
+ 596 ià(
+ DBŒaû
+ ->
+ ¡r_u
+ .
+ ¡r_nv®
+  != 0)
+ 
+ 598 
+ Ãxt_cmd
+ ;
+ 
+ 603 
+ dÛv®
+ :
+ 
+ 604 ià(
+ gimme
+  =ð
+ G_ARRAY
+ ) {
+ 
+ 605 
+ Ï¡»t¡r
+  = 
+ NuΡr
+ ;
+ 
+ 606 
+ Ï¡¥ba£
+  = 
+ ¥
+ ;
+ 
+ 607 
+ ϡsize
+  = 
+ Ãw¥
+  - 
+ ¥
+ ;
+ 
+ 608 ià(
+ ϡsize
+  < 0)
+ 
+ 609 
+ ϡsize
+  = 0;
+ 
+ 612 
+ Ï¡»t¡r
+  = 
+ »t¡r
+ ;
+ 
+ 613 
+ tmps_max
+  > 
+ tmps_ba£
+ ) {
+ 
+ 614 
+ 	`¡r_ä“
+ (
+ tmps_li¡
+ [
+ tmps_max
+ ]);
+ 
+ 615 
+ tmps_li¡
+ [
+ tmps_max
+ --] = 
+ NuΡr
+ ;
+ 
+ 617 
+ Ãw¥
+  = 
+ 	`ev®
+ (
+ cmd
+ ->
+ c_ex´
+ ,
+ 
+ 618 
+ gimme
+  && (
+ cmdæags
+  & 
+ CF_TERM
+ è&& 
+ cmd
+ ->
+ c_ty³
+  =ð
+ C_EXPR
+  &&
+ 
+ 619 !
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ ,
+ 
+ 620 
+ ¥
+ );
+ 
+ 621 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 622 
+ »t¡r
+  = 
+ ¡
+ [
+ Ãw¥
+ ];
+ 
+ 623 ià(
+ Ãw¥
+  > 
+ ¥
+  && 
+ »t¡r
+ )
+ 
+ 624 
+ m©ch
+  = 
+ 	`¡r_Œue
+ (
+ »t¡r
+ );
+ 
+ 626 
+ m©ch
+  = 
+ FALSE
+ ;
+ 
+ 627 
+ maybe
+ ;
+ 
+ 631 
+ æmaybe
+ :
+ 
+ 632 ià(
+ m©ch
+  && 
+ cmdæags
+  & 
+ CF_FLIP
+ ) {
+ 
+ 633 
+ tmps_max
+  > 
+ tmps_ba£
+ ) {
+ 
+ 634 
+ 	`¡r_ä“
+ (
+ tmps_li¡
+ [
+ tmps_max
+ ]);
+ 
+ 635 
+ tmps_li¡
+ [
+ tmps_max
+ --] = 
+ NuΡr
+ ;
+ 
+ 637 ià(
+ cmd
+ ->
+ c_ex´
+ ->
+ ¬g_ty³
+  =ð
+ O_FLOP
+ ) {
+ 
+ 638 
+ Ãw¥
+  = 
+ 	`ev®
+ (
+ cmd
+ ->
+ c_ex´
+ ,
+ G_SCALAR
+ ,
+ ¥
+ );
+ 
+ 639 
+ cmdæags
+  = 
+ 	`cÝyÝt
+ (
+ cmd
+ ,cmd->
+ c_ex´
+ [3].
+ ¬g_±r
+ .
+ ¬g_cmd
+ );
+ 
+ 642 
+ Ãw¥
+  = 
+ 	`ev®
+ (
+ cmd
+ ->
+ c_ex´
+ ,
+ G_SCALAR
+ ,
+ ¥
+ );
+ 
+ 643 ià(
+ cmd
+ ->
+ c_ex´
+ ->
+ ¬g_ty³
+  =ð
+ O_FLOP
+ )
+ 
+ 644 
+ cmdæags
+  = 
+ 	`cÝyÝt
+ (
+ cmd
+ ,cmd->
+ c_ex´
+ [4].
+ ¬g_±r
+ .
+ ¬g_cmd
+ );
+ 
+ 647 ià(
+ cmdæags
+  & 
+ CF_FLIP
+ ) {
+ 
+ 648 ià(
+ cmd
+ ->
+ c_ex´
+ ->
+ ¬g_ty³
+  =ð
+ O_FLOP
+ ) {
+ 
+ 649 
+ m©ch
+  = 
+ TRUE
+ ;
+ 
+ 655 
+ maybe
+ :
+ 
+ 656 ià(
+ cmdæags
+  & 
+ CF_INVERT
+ )
+ 
+ 657 
+ m©ch
+  = !match;
+ 
+ 658 ià(!
+ m©ch
+ )
+ 
+ 659 
+ Ãxt_cmd
+ ;
+ 
+ 661 #ifdeà
+ TAINT
+ 
+ 
+ 662 
+ š‹d
+  = 0;
+ 
+ 667 
+ cmd
+ ->
+ c_ty³
+ ) {
+ 
+ 668 
+ C_NULL
+ :
+ 
+ 669 
+ 	`çl
+ ("panic: cmd_exec");
+ 
+ 670 
+ C_EXPR
+ :
+ 
+ 671 ià(
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ ) {
+ 
+ 672 ià(
+ gimme
+  =ð
+ G_ARRAY
+ ) {
+ 
+ 673 
+ Ï¡»t¡r
+  = 
+ NuΡr
+ ;
+ 
+ 674 
+ Ï¡¥ba£
+  = 
+ ¥
+ ;
+ 
+ 675 
+ ϡsize
+  = 
+ Ãw¥
+  - 
+ ¥
+ ;
+ 
+ 676 ià(
+ ϡsize
+  < 0)
+ 
+ 677 
+ ϡsize
+  = 0;
+ 
+ 680 
+ Ï¡»t¡r
+  = 
+ »t¡r
+ ;
+ 
+ 681 
+ tmps_max
+  > 
+ tmps_ba£
+ ) {
+ 
+ 682 
+ 	`¡r_ä“
+ (
+ tmps_li¡
+ [
+ tmps_max
+ ]);
+ 
+ 683 
+ tmps_li¡
+ [
+ tmps_max
+ --] = 
+ NuΡr
+ ;
+ 
+ 685 
+ Ãw¥
+  = 
+ 	`ev®
+ (
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ ,
+ gimme
+  && (
+ cmdæags
+ &
+ CF_TERM
+ ),
+ ¥
+ );
+ 
+ 686 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 687 
+ »t¡r
+  = 
+ ¡
+ [
+ Ãw¥
+ ];
+ 
+ 690 
+ C_NSWITCH
+ :
+ 
+ 692 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ 	`STAB_STR
+ (
+ cmd
+ ->
+ c_¡ab
+ ));
+ 
+ 694 
+ m©ch
+  = ()
+ v®ue
+ ;
+ 
+ 695 ià(
+ v®ue
+  < 0.0) {
+ 
+ 696 ià((()
+ m©ch
+ è> 
+ v®ue
+ )
+ 
+ 697 --
+ m©ch
+ ;
+ 
+ 700 
+ dosw™ch
+ ;
+ 
+ 701 
+ C_CSWITCH
+ :
+ 
+ 702 
+ m©ch
+  = *(
+ 	`¡r_g‘
+ (
+ 	`STAB_STR
+ (
+ cmd
+ ->
+ c_¡ab
+ ))) & 255;
+ 
+ 703 
+ dosw™ch
+ :
+ 
+ 704 
+ m©ch
+  -ð
+ cmd
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_off£t
+ ;
+ 
+ 705 ià(
+ m©ch
+  < 0)
+ 
+ 706 
+ m©ch
+  = 0;
+ 
+ 707 ià(
+ m©ch
+  > 
+ cmd
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_max
+ )
+ 
+ 708 
+ m©ch
+  = 
+ cmd
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_max
+ ;
+ 
+ 709 
+ cmd
+  = cmd->
+ ucmd
+ .
+ scmd
+ .
+ sc_Ãxt
+ [
+ m©ch
+ ];
+ 
+ 710 
+ ž_»cursiÚ_’Œy
+ ;
+ 
+ 711 
+ C_NEXT
+ :
+ 
+ 712 
+ cmd
+  = cmd->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+ ;
+ 
+ 713 
+ ž_»cursiÚ_’Œy
+ ;
+ 
+ 714 
+ C_ELSIF
+ :
+ 
+ 715 
+ 	`çl
+ ("panic: ELSIF");
+ 
+ 716 
+ C_IF
+ :
+ 
+ 717 
+ Þd¥©
+  = 
+ cur¥©
+ ;
+ 
+ 718 
+ Þd§ve
+  = 
+ §ve¡ack
+ ->
+ ¬y_fžl
+ ;
+ 
+ 719 #ifdeà
+ DEBUGGING
+ 
+ 
+ 720 
+ ÞddËv–
+  = 
+ dËv–
+ ;
+ 
+ 722 
+ »t¡r
+  = &
+ ¡r_yes
+ ;
+ 
+ 723 
+ Ãw¥
+  = -2;
+ 
+ 724 ià(
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ) {
+ 
+ 725 #ifdeà
+ DEBUGGING
+ 
+ 
+ 726 ià(
+ debug
+ ) {
+ 
+ 727 
+ debÇme
+ [
+ dËv–
+ ] = 't';
+ 
+ 728 
+ debd–im
+ [
+ dËv–
+ ] = '_';
+ 
+ 729 ià(++
+ dËv–
+  >ð
+ dlmax
+ )
+ 
+ 730 
+ 	`grow_dËv–
+ ();
+ 
+ 733 
+ Ãw¥
+  = 
+ 	`cmd_exec
+ (
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ,
+ gimme
+  && (
+ cmdæags
+  & 
+ CF_TERM
+ ),
+ ¥
+ );
+ 
+ 734 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 735 
+ »t¡r
+  = 
+ ¡
+ [
+ Ãw¥
+ ];
+ 
+ 737 
+ cur¥©
+  = 
+ Þd¥©
+ ;
+ 
+ 738 ià(
+ §ve¡ack
+ ->
+ ¬y_fžl
+  > 
+ Þd§ve
+ )
+ 
+ 739 
+ 	`»¡Ü–i¡
+ (
+ Þd§ve
+ );
+ 
+ 740 #ifdeà
+ DEBUGGING
+ 
+ 
+ 741 
+ dËv–
+  = 
+ ÞddËv–
+ ;
+ 
+ 743 
+ cmd
+  = cmd->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+ ;
+ 
+ 744 
+ ž_»cursiÚ_’Œy
+ ;
+ 
+ 745 
+ C_ELSE
+ :
+ 
+ 746 
+ Þd¥©
+  = 
+ cur¥©
+ ;
+ 
+ 747 
+ Þd§ve
+  = 
+ §ve¡ack
+ ->
+ ¬y_fžl
+ ;
+ 
+ 748 #ifdeà
+ DEBUGGING
+ 
+ 
+ 749 
+ ÞddËv–
+  = 
+ dËv–
+ ;
+ 
+ 751 
+ »t¡r
+  = &
+ ¡r_undef
+ ;
+ 
+ 752 
+ Ãw¥
+  = -2;
+ 
+ 753 ià(
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ) {
+ 
+ 754 #ifdeà
+ DEBUGGING
+ 
+ 
+ 755 ià(
+ debug
+ ) {
+ 
+ 756 
+ debÇme
+ [
+ dËv–
+ ] = 'e';
+ 
+ 757 
+ debd–im
+ [
+ dËv–
+ ] = '_';
+ 
+ 758 ià(++
+ dËv–
+  >ð
+ dlmax
+ )
+ 
+ 759 
+ 	`grow_dËv–
+ ();
+ 
+ 762 
+ Ãw¥
+  = 
+ 	`cmd_exec
+ (
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ,
+ gimme
+  && (
+ cmdæags
+  & 
+ CF_TERM
+ ),
+ ¥
+ );
+ 
+ 763 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 764 
+ »t¡r
+  = 
+ ¡
+ [
+ Ãw¥
+ ];
+ 
+ 766 
+ cur¥©
+  = 
+ Þd¥©
+ ;
+ 
+ 767 ià(
+ §ve¡ack
+ ->
+ ¬y_fžl
+  > 
+ Þd§ve
+ )
+ 
+ 768 
+ 	`»¡Ü–i¡
+ (
+ Þd§ve
+ );
+ 
+ 769 #ifdeà
+ DEBUGGING
+ 
+ 
+ 770 
+ dËv–
+  = 
+ ÞddËv–
+ ;
+ 
+ 773 
+ C_BLOCK
+ :
+ 
+ 774 
+ C_WHILE
+ :
+ 
+ 775 ià(!(
+ cmdæags
+  & 
+ CF_ONCE
+ )) {
+ 
+ 776 
+ cmdæags
+  |ð
+ CF_ONCE
+ ;
+ 
+ 777 ià(++
+ loÝ_±r
+  >ð
+ loÝ_max
+ ) {
+ 
+ 778 
+ loÝ_max
+  += 128;
+ 
+ 779 
+ 	`R’ew
+ (
+ loÝ_¡ack
+ , 
+ loÝ_max
+ , 
+ loÝ
+ );
+ 
+ 781 
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_Ïb–
+  = 
+ cmd
+ ->
+ c_Ïb–
+ ;
+ 
+ 782 
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_¥
+  = 
+ ¥
+ ;
+ 
+ 783 #ifdeà
+ DEBUGGING
+ 
+ 
+ 784 ià(
+ debug
+  & 4) {
+ 
+ 785 
+ 	`deb
+ ("(Pushing†abel #%d %s)\n",
+ 
+ 786 
+ loÝ_±r
+ , 
+ cmd
+ ->
+ c_Ïb–
+  ? cmd->c_label : "");
+ 
+ 790 #ifdeà
+ JMPCLOBBER
+ 
+ 
+ 791 
+ cmd·rm
+  = 
+ cmd
+ ;
+ 
+ 793 
+ m©ch
+  = 
+ 	`£tjmp
+ (
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_’v
+ );
+ 
+ 794 ià(
+ m©ch
+ ) {
+ 
+ 795 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 796 #ifdeà
+ JMPCLOBBER
+ 
+ 
+ 797 
+ cmd
+  = 
+ cmd·rm
+ ;
+ 
+ 798 
+ cmdæags
+  = 
+ cmd
+ ->
+ c_æags
+ |
+ CF_ONCE
+ ;
+ 
+ 799 
+ go_to
+  = 
+ gÙo_rg
+ ;
+ 
+ 801 ià(
+ §ve¡ack
+ ->
+ ¬y_fžl
+  > 
+ Þd§ve
+ )
+ 
+ 802 
+ 	`»¡Ü–i¡
+ (
+ Þd§ve
+ );
+ 
+ 803 
+ m©ch
+ ) {
+ 
+ 805 
+ 	`çl
+ ("lÚgjm°»tuºed bad v®u(%d)",
+ m©ch
+ );
+ 
+ 806 
+ O_LAST
+ :
+ 
+ 807 ià(
+ Ï¡»t¡r
+ ) {
+ 
+ 808 
+ »t¡r
+  = 
+ Ï¡»t¡r
+ ;
+ 
+ 809 
+ Ãw¥
+  = -2;
+ 
+ 812 
+ Ãw¥
+  = 
+ ¥
+  + 
+ ϡsize
+ ;
+ 
+ 813 
+ »t¡r
+  = 
+ ¡
+ [
+ Ãw¥
+ ];
+ 
+ 815 
+ cur¥©
+  = 
+ Þd¥©
+ ;
+ 
+ 816 
+ Ãxt_cmd
+ ;
+ 
+ 817 
+ O_NEXT
+ :
+ 
+ 818 #ifdeà
+ JMPCLOBBER
+ 
+ 
+ 819 
+ Ãw¥
+  = -2;
+ 
+ 820 
+ »t¡r
+  = &
+ ¡r_undef
+ ;
+ 
+ 822 
+ Ãxt_™”
+ ;
+ 
+ 823 
+ O_REDO
+ :
+ 
+ 824 #ifdeà
+ DEBUGGING
+ 
+ 
+ 825 
+ dËv–
+  = 
+ ÞddËv–
+ ;
+ 
+ 827 #ifdeà
+ JMPCLOBBER
+ 
+ 
+ 828 
+ Ãw¥
+  = -2;
+ 
+ 829 
+ »t¡r
+  = &
+ ¡r_undef
+ ;
+ 
+ 831 
+ do™
+ ;
+ 
+ 834 
+ Þd¥©
+  = 
+ cur¥©
+ ;
+ 
+ 835 
+ Þd§ve
+  = 
+ §ve¡ack
+ ->
+ ¬y_fžl
+ ;
+ 
+ 836 #ifdeà
+ DEBUGGING
+ 
+ 
+ 837 
+ ÞddËv–
+  = 
+ dËv–
+ ;
+ 
+ 839 
+ do™
+ :
+ 
+ 840 ià(
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ) {
+ 
+ 841 #ifdeà
+ DEBUGGING
+ 
+ 
+ 842 ià(
+ debug
+ ) {
+ 
+ 843 
+ debÇme
+ [
+ dËv–
+ ] = 't';
+ 
+ 844 
+ debd–im
+ [
+ dËv–
+ ] = '_';
+ 
+ 845 ià(++
+ dËv–
+  >ð
+ dlmax
+ )
+ 
+ 846 
+ 	`grow_dËv–
+ ();
+ 
+ 849 
+ Ãw¥
+  = 
+ 	`cmd_exec
+ (
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ,
+ gimme
+  && (
+ cmdæags
+  & 
+ CF_TERM
+ ),
+ ¥
+ );
+ 
+ 850 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 851 
+ »t¡r
+  = 
+ ¡
+ [
+ Ãw¥
+ ];
+ 
+ 856 
+ Ãxt_™”
+ :
+ 
+ 857 #ifdeà
+ DEBUGGING
+ 
+ 
+ 858 
+ dËv–
+  = 
+ ÞddËv–
+ ;
+ 
+ 860 ià(
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+ ) {
+ 
+ 861 #ifdeà
+ DEBUGGING
+ 
+ 
+ 862 ià(
+ debug
+ ) {
+ 
+ 863 
+ debÇme
+ [
+ dËv–
+ ] = 'a';
+ 
+ 864 
+ debd–im
+ [
+ dËv–
+ ] = '_';
+ 
+ 865 ià(++
+ dËv–
+  >ð
+ dlmax
+ )
+ 
+ 866 
+ 	`grow_dËv–
+ ();
+ 
+ 869 
+ Ãw¥
+  = 
+ 	`cmd_exec
+ (
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+ ,
+ gimme
+  && (
+ cmdæags
+  & 
+ CF_TERM
+ ),
+ ¥
+ );
+ 
+ 870 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 871 
+ »t¡r
+  = 
+ ¡
+ [
+ Ãw¥
+ ];
+ 
+ 873 
+ fšish_whže
+ :
+ 
+ 874 
+ cur¥©
+  = 
+ Þd¥©
+ ;
+ 
+ 875 ià(
+ §ve¡ack
+ ->
+ ¬y_fžl
+  > 
+ Þd§ve
+ ) {
+ 
+ 876 ià(
+ cmdæags
+  & 
+ CF_TERM
+ ) {
+ 
+ 877 
+ m©ch
+  = 
+ ¥
+  + 1; m©ch <ð
+ Ãw¥
+ ; match++)
+ 
+ 878 
+ ¡
+ [
+ m©ch
+ ] = 
+ 	`¡r_m܏l
+ (st[match]);
+ 
+ 879 
+ »t¡r
+  = 
+ ¡
+ [
+ Ãw¥
+ ];
+ 
+ 881 
+ 	`»¡Ü–i¡
+ (
+ Þd§ve
+ );
+ 
+ 883 #ifdeà
+ DEBUGGING
+ 
+ 
+ 884 
+ dËv–
+  = 
+ ÞddËv–
+  - 1;
+ 
+ 886 ià(
+ cmd
+ ->
+ c_ty³
+  !ð
+ C_BLOCK
+ )
+ 
+ 887 
+ uÁž_loÝ
+ ;
+ 
+ 889 ià(
+ cmdæags
+  & 
+ CF_LOOP
+ ) {
+ 
+ 890 
+ cmdæags
+  |ð
+ CF_COND
+ ;
+ 
+ 891 #ifdeà
+ DEBUGGING
+ 
+ 
+ 892 
+ dËv–
+  = 
+ ’tdËv–
+ ;
+ 
+ 894 
+ uÁž_loÝ
+ ;
+ 
+ 896 
+ Ãxt_cmd
+ :
+ 
+ 897 ià(
+ cmdæags
+  & 
+ CF_ONCE
+ ) {
+ 
+ 898 #ifdeà
+ DEBUGGING
+ 
+ 
+ 899 ià(
+ debug
+  & 4) {
+ 
+ 900 
+ tmps
+  = 
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_Ïb–
+ ;
+ 
+ 901 
+ 	`deb
+ ("(PÝpšg†ab– #%d %s)\n",
+ loÝ_±r
+ , 
+ tmps
+  ?mps : "");
+ 
+ 904 
+ loÝ_±r
+ --;
+ 
+ 905 ià((
+ cmdæags
+  & 
+ CF_OPTIMIZE
+ è=ð
+ CFT_ARRAY
+  &&
+ 
+ 906 
+ §ve¡ack
+ ->
+ ¬y_fžl
+  > 
+ ¬yÝt§ve
+ )
+ 
+ 907 
+ 	`»¡Ü–i¡
+ (
+ ¬yÝt§ve
+ );
+ 
+ 909 
+ cmd
+  = cmd->
+ c_Ãxt
+ ;
+ 
+ 910 
+ ž_»cursiÚ_’Œy
+ ;
+ 
+ 911 
+ 	}
+ }
+ 
+ 913 #ifdeà
+ DEBUGGING
+ 
+ 
+ 914 #iâdeà
+ I_VARARGS
+ 
+ 
+ 916 
+ 	$deb
+ (
+ ·t
+ ,
+ a1
+ ,
+ a2
+ ,
+ a3
+ ,
+ a4
+ ,
+ a5
+ ,
+ a6
+ ,
+ a7
+ ,
+ a8
+ )
+ 
+ 917 *
+ ·t
+ ;
+ 
+ 919 
+ i
+ ;
+ 
+ 921 
+ 	`årštf
+ (
+ ¡d”r
+ ,"%-4ld",()
+ curcmd
+ ->
+ c_lše
+ );
+ 
+ 922 
+ i
+ =0; i<
+ dËv–
+ ; i++)
+ 
+ 923 
+ 	`årštf
+ (
+ ¡d”r
+ ,"%c%ø",
+ debÇme
+ [
+ i
+ ],
+ debd–im
+ [i]);
+ 
+ 924 
+ 	`årštf
+ (
+ ¡d”r
+ ,
+ ·t
+ ,
+ a1
+ ,
+ a2
+ ,
+ a3
+ ,
+ a4
+ ,
+ a5
+ ,
+ a6
+ ,
+ a7
+ ,
+ a8
+ );
+ 
+ 925 
+ 	}
+ }
+ 
+ 928 
+ 	$deb
+ (
+ va_®i¡
+ )
+ 
+ 929 
+ va_dþ
+ 
+ 
+ 931 
+ va_li¡
+  
+ ¬gs
+ ;
+ 
+ 932 *
+ ·t
+ ;
+ 
+ 933 
+ i
+ ;
+ 
+ 935 
+ 	`va_¡¬t
+ (
+ ¬gs
+ );
+ 
+ 936 
+ 	`årštf
+ (
+ ¡d”r
+ ,"%-4ld",()
+ curcmd
+ ->
+ c_lše
+ );
+ 
+ 937 
+ i
+ =0; i<
+ dËv–
+ ; i++)
+ 
+ 938 
+ 	`årštf
+ (
+ ¡d”r
+ ,"%c%ø",
+ debÇme
+ [
+ i
+ ],
+ debd–im
+ [i]);
+ 
+ 940 
+ ·t
+  = 
+ 	`va_¬g
+ (
+ ¬gs
+ , *);
+ 
+ 941 (è
+ 	`vårštf
+ (
+ ¡d”r
+ ,
+ ·t
+ ,
+ ¬gs
+ );
+ 
+ 942 
+ 	`va_’d
+ Ð
+ ¬gs
+  );
+ 
+ 943 
+ 	}
+ }
+ 
+ 947 
+ 	$cÝyÝt
+ (
+ cmd
+ ,
+ which
+ )
+ 
+ 948 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 949 
+ CMD
+  *
+ which
+ ;
+ 
+ 951 
+ cmd
+ ->
+ c_æags
+  &ð
+ CF_ONCE
+ |
+ CF_COND
+ |
+ CF_LOOP
+ ;
+ 
+ 952 
+ cmd
+ ->
+ c_æags
+  |ð
+ which
+ ->c_flags;
+ 
+ 953 
+ cmd
+ ->
+ c_shÜt
+  = 
+ which
+ ->c_short;
+ 
+ 954 
+ cmd
+ ->
+ c_¦’
+  = 
+ which
+ ->c_slen;
+ 
+ 955 
+ cmd
+ ->
+ c_¡ab
+  = 
+ which
+ ->c_stab;
+ 
+ 956  
+ cmd
+ ->
+ c_æags
+ ;
+ 
+ 957 
+ 	}
+ }
+ 
+ 959 
+ ARRAY
+  *
+ 
+ 960 
+ 	$§v—ry
+ (
+ ¡ab
+ )
+ 
+ 961 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 963 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 965 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (10,0);
+ 
+ 966 
+ ¡r
+ ->
+ ¡r_¡©e
+  = 
+ SS_SARY
+ ;
+ 
+ 967 
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_¡ab
+  = 
+ ¡ab
+ ;
+ 
+ 968 ià(
+ ¡r
+ ->
+ ¡r_±r
+ ) {
+ 
+ 969 
+ 	`Saãä“
+ (
+ ¡r
+ ->
+ ¡r_±r
+ );
+ 
+ 970 
+ ¡r
+ ->
+ ¡r_±r
+  = 
+ NuÎch
+ ;
+ 
+ 971 
+ ¡r
+ ->
+ ¡r_Ën
+  = 0;
+ 
+ 973 
+ ¡r
+ ->
+ ¡r_±r
+  = (*)
+ 	`¡ab_¬¿y
+ (
+ ¡ab
+ );
+ 
+ 974 ()
+ 	`­ush
+ (
+ §ve¡ack
+ ,
+ ¡r
+ );
+ 
+ 975 
+ 	`¡ab_x¬¿y
+ (
+ ¡ab
+ èð
+ 	`NuÎ
+ (
+ ARRAY
+ *);
+ 
+ 976  
+ 	`¡ab_x¬¿y
+ (
+ 	`¯dd
+ (
+ ¡ab
+ ));
+ 
+ 977 
+ 	}
+ }
+ 
+ 979 
+ HASH
+  *
+ 
+ 980 
+ 	$§vehash
+ (
+ ¡ab
+ )
+ 
+ 981 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 983 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 985 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (11,0);
+ 
+ 986 
+ ¡r
+ ->
+ ¡r_¡©e
+  = 
+ SS_SHASH
+ ;
+ 
+ 987 
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_¡ab
+  = 
+ ¡ab
+ ;
+ 
+ 988 ià(
+ ¡r
+ ->
+ ¡r_±r
+ ) {
+ 
+ 989 
+ 	`Saãä“
+ (
+ ¡r
+ ->
+ ¡r_±r
+ );
+ 
+ 990 
+ ¡r
+ ->
+ ¡r_±r
+  = 
+ NuÎch
+ ;
+ 
+ 991 
+ ¡r
+ ->
+ ¡r_Ën
+  = 0;
+ 
+ 993 
+ ¡r
+ ->
+ ¡r_±r
+  = (*)
+ 	`¡ab_hash
+ (
+ ¡ab
+ );
+ 
+ 994 ()
+ 	`­ush
+ (
+ §ve¡ack
+ ,
+ ¡r
+ );
+ 
+ 995 
+ 	`¡ab_xhash
+ (
+ ¡ab
+ èð
+ 	`NuÎ
+ (
+ HASH
+ *);
+ 
+ 996  
+ 	`¡ab_xhash
+ (
+ 	`hadd
+ (
+ ¡ab
+ ));
+ 
+ 997 
+ 	}
+ }
+ 
+ 1000 
+ 	$§ve™em
+ (
+ ™em
+ )
+ 
+ 1001 
+ STR
+  *
+ ™em
+ ;
+ 
+ 1003 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1005 ()
+ 	`­ush
+ (
+ §ve¡ack
+ ,
+ ™em
+ );
+ 
+ 1006 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (12,0);
+ 
+ 1007 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,
+ ™em
+ );
+ 
+ 1008 ()
+ 	`­ush
+ (
+ §ve¡ack
+ ,
+ ¡r
+ );
+ 
+ 1009 
+ 	}
+ }
+ 
+ 1012 
+ 	$§vešt
+ (
+ š
+ )
+ 
+ 1013 *
+ š
+ ;
+ 
+ 1015 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1017 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (13,0);
+ 
+ 1018 
+ ¡r
+ ->
+ ¡r_¡©e
+  = 
+ SS_SINT
+ ;
+ 
+ 1019 
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+  = ()*
+ š
+ ;
+ 
+ 1020 ià(
+ ¡r
+ ->
+ ¡r_±r
+ ) {
+ 
+ 1021 
+ 	`Saãä“
+ (
+ ¡r
+ ->
+ ¡r_±r
+ );
+ 
+ 1022 
+ ¡r
+ ->
+ ¡r_Ën
+  = 0;
+ 
+ 1024 
+ ¡r
+ ->
+ ¡r_±r
+  = (*)
+ š
+ ;
+ 
+ 1025 ()
+ 	`­ush
+ (
+ §ve¡ack
+ ,
+ ¡r
+ );
+ 
+ 1026 
+ 	}
+ }
+ 
+ 1029 
+ 	$§v–Úg
+ (
+ lÚgp
+ )
+ 
+ 1030 *
+ lÚgp
+ ;
+ 
+ 1032 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1034 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (14,0);
+ 
+ 1035 
+ ¡r
+ ->
+ ¡r_¡©e
+  = 
+ SS_SLONG
+ ;
+ 
+ 1036 
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+  = *
+ lÚgp
+ ;
+ 
+ 1037 ià(
+ ¡r
+ ->
+ ¡r_±r
+ ) {
+ 
+ 1038 
+ 	`Saãä“
+ (
+ ¡r
+ ->
+ ¡r_±r
+ );
+ 
+ 1039 
+ ¡r
+ ->
+ ¡r_Ën
+  = 0;
+ 
+ 1041 
+ ¡r
+ ->
+ ¡r_±r
+  = (*)
+ lÚgp
+ ;
+ 
+ 1042 ()
+ 	`­ush
+ (
+ §ve¡ack
+ ,
+ ¡r
+ );
+ 
+ 1043 
+ 	}
+ }
+ 
+ 1046 
+ 	$§ve¥Œ
+ (
+ ¥Œ
+ )
+ 
+ 1047 
+ STR
+  **
+ ¥Œ
+ ;
+ 
+ 1049 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1051 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (15,0);
+ 
+ 1052 
+ ¡r
+ ->
+ ¡r_¡©e
+  = 
+ SS_SSTRP
+ ;
+ 
+ 1053 
+ ¡r
+ ->
+ ¡r_magic
+  = *
+ ¥Œ
+ ;
+ 
+ 1054 ià(
+ ¡r
+ ->
+ ¡r_±r
+ ) {
+ 
+ 1055 
+ 	`Saãä“
+ (
+ ¡r
+ ->
+ ¡r_±r
+ );
+ 
+ 1056 
+ ¡r
+ ->
+ ¡r_Ën
+  = 0;
+ 
+ 1058 
+ ¡r
+ ->
+ ¡r_±r
+  = (*)
+ ¥Œ
+ ;
+ 
+ 1059 ()
+ 	`­ush
+ (
+ §ve¡ack
+ ,
+ ¡r
+ );
+ 
+ 1060 
+ 	}
+ }
+ 
+ 1063 
+ 	$§v’o¡ab
+ (
+ ¡ab
+ )
+ 
+ 1064 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 1066 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1068 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (16,0);
+ 
+ 1069 
+ ¡r
+ ->
+ ¡r_¡©e
+  = 
+ SS_SNSTAB
+ ;
+ 
+ 1070 
+ ¡r
+ ->
+ ¡r_magic
+  = (
+ STR
+ *)
+ ¡ab
+ ;
+ 
+ 1071 ()
+ 	`­ush
+ (
+ §ve¡ack
+ ,
+ ¡r
+ );
+ 
+ 1072 
+ 	}
+ }
+ 
+ 1075 
+ 	$§veh±r
+ (
+ h±r
+ )
+ 
+ 1076 
+ HASH
+  **
+ h±r
+ ;
+ 
+ 1078 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1080 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (17,0);
+ 
+ 1081 
+ ¡r
+ ->
+ ¡r_¡©e
+  = 
+ SS_SHPTR
+ ;
+ 
+ 1082 
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_hash
+  = *
+ h±r
+ ;
+ 
+ 1083 ià(
+ ¡r
+ ->
+ ¡r_±r
+ ) {
+ 
+ 1084 
+ 	`Saãä“
+ (
+ ¡r
+ ->
+ ¡r_±r
+ );
+ 
+ 1085 
+ ¡r
+ ->
+ ¡r_Ën
+  = 0;
+ 
+ 1087 
+ ¡r
+ ->
+ ¡r_±r
+  = (*)
+ h±r
+ ;
+ 
+ 1088 ()
+ 	`­ush
+ (
+ §ve¡ack
+ ,
+ ¡r
+ );
+ 
+ 1089 
+ 	}
+ }
+ 
+ 1092 
+ 	$§v—±r
+ (
+ ­Œ
+ )
+ 
+ 1093 
+ ARRAY
+  **
+ ­Œ
+ ;
+ 
+ 1095 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1097 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (17,0);
+ 
+ 1098 
+ ¡r
+ ->
+ ¡r_¡©e
+  = 
+ SS_SAPTR
+ ;
+ 
+ 1099 
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_¬¿y
+  = *
+ ­Œ
+ ;
+ 
+ 1100 ià(
+ ¡r
+ ->
+ ¡r_±r
+ ) {
+ 
+ 1101 
+ 	`Saãä“
+ (
+ ¡r
+ ->
+ ¡r_±r
+ );
+ 
+ 1102 
+ ¡r
+ ->
+ ¡r_Ën
+  = 0;
+ 
+ 1104 
+ ¡r
+ ->
+ ¡r_±r
+  = (*)
+ ­Œ
+ ;
+ 
+ 1105 ()
+ 	`­ush
+ (
+ §ve¡ack
+ ,
+ ¡r
+ );
+ 
+ 1106 
+ 	}
+ }
+ 
+ 1109 
+ 	$§v–i¡
+ (
+ §rg
+ ,
+ max§rg
+ )
+ 
+ 1110 
+ STR
+  **
+ §rg
+ ;
+ 
+ 1111 
+ max§rg
+ ;
+ 
+ 1113 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1114 
+ i
+ ;
+ 
+ 1116 
+ i
+  = 1; i <ð
+ max§rg
+ ; i++) {
+ 
+ 1117 ()
+ 	`­ush
+ (
+ §ve¡ack
+ ,
+ §rg
+ [
+ i
+ ]);
+ 
+ 1118 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (18,0);
+ 
+ 1119 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,
+ §rg
+ [
+ i
+ ]);
+ 
+ 1120 ()
+ 	`­ush
+ (
+ §ve¡ack
+ ,
+ ¡r
+ );
+ 
+ 1121 
+ §rg
+ [
+ i
+ ]->
+ ¡r_u
+ .
+ ¡r_u£ful
+  = -1;
+ 
+ 1123 
+ 	}
+ }
+ 
+ 1126 
+ 	$»¡Ü–i¡
+ (
+ ba£
+ )
+ 
+ 1127 
+ ba£
+ ;
+ 
+ 1129 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1130 
+ STR
+  *
+ v®ue
+ ;
+ 
+ 1131 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 1133 ià(
+ ba£
+  < -1)
+ 
+ 1134 
+ 	`çl
+ ("panic: corrupt saved stack index");
+ 
+ 1135 
+ §ve¡ack
+ ->
+ ¬y_fžl
+  > 
+ ba£
+ ) {
+ 
+ 1136 
+ v®ue
+  = 
+ 	`­Ý
+ (
+ §ve¡ack
+ );
+ 
+ 1137 
+ v®ue
+ ->
+ ¡r_¡©e
+ ) {
+ 
+ 1138 
+ SS_NORM
+ :
+ 
+ 1139 
+ SS_INCR
+ :
+ 
+ 1140 
+ ¡r
+  = 
+ 	`­Ý
+ (
+ §ve¡ack
+ );
+ 
+ 1141 
+ 	`¡r_»¶aû
+ (
+ ¡r
+ ,
+ v®ue
+ );
+ 
+ 1142 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 1144 
+ SS_SARY
+ :
+ 
+ 1145 
+ ¡ab
+  = 
+ v®ue
+ ->
+ ¡r_u
+ .
+ ¡r_¡ab
+ ;
+ 
+ 1146 
+ 	`aä“
+ (
+ 	`¡ab_x¬¿y
+ (
+ ¡ab
+ ));
+ 
+ 1147 
+ 	`¡ab_x¬¿y
+ (
+ ¡ab
+ èð(
+ ARRAY
+ *)
+ v®ue
+ ->
+ ¡r_±r
+ ;
+ 
+ 1148 
+ v®ue
+ ->
+ ¡r_±r
+  = 
+ NuÎch
+ ;
+ 
+ 1149 
+ 	`¡r_ä“
+ (
+ v®ue
+ );
+ 
+ 1151 
+ SS_SHASH
+ :
+ 
+ 1152 
+ ¡ab
+  = 
+ v®ue
+ ->
+ ¡r_u
+ .
+ ¡r_¡ab
+ ;
+ 
+ 1153 ()
+ 	`hä“
+ (
+ 	`¡ab_xhash
+ (
+ ¡ab
+ ), 
+ FALSE
+ );
+ 
+ 1154 
+ 	`¡ab_xhash
+ (
+ ¡ab
+ èð(
+ HASH
+ *)
+ v®ue
+ ->
+ ¡r_±r
+ ;
+ 
+ 1155 
+ v®ue
+ ->
+ ¡r_±r
+  = 
+ NuÎch
+ ;
+ 
+ 1156 
+ 	`¡r_ä“
+ (
+ v®ue
+ );
+ 
+ 1158 
+ SS_SINT
+ :
+ 
+ 1159 *((*)
+ v®ue
+ ->
+ ¡r_±r
+ èð()v®ue->
+ ¡r_u
+ .
+ ¡r_u£ful
+ ;
+ 
+ 1160 
+ v®ue
+ ->
+ ¡r_±r
+  = 
+ NuÎch
+ ;
+ 
+ 1161 
+ 	`¡r_ä“
+ (
+ v®ue
+ );
+ 
+ 1163 
+ SS_SLONG
+ :
+ 
+ 1164 *((*)
+ v®ue
+ ->
+ ¡r_±r
+ èðv®ue->
+ ¡r_u
+ .
+ ¡r_u£ful
+ ;
+ 
+ 1165 
+ v®ue
+ ->
+ ¡r_±r
+  = 
+ NuÎch
+ ;
+ 
+ 1166 
+ 	`¡r_ä“
+ (
+ v®ue
+ );
+ 
+ 1168 
+ SS_SSTRP
+ :
+ 
+ 1169 *((
+ STR
+ **)
+ v®ue
+ ->
+ ¡r_±r
+ èðv®ue->
+ ¡r_magic
+ ;
+ 
+ 1170 
+ v®ue
+ ->
+ ¡r_magic
+  = 
+ NuΡr
+ ;
+ 
+ 1171 
+ v®ue
+ ->
+ ¡r_±r
+  = 
+ NuÎch
+ ;
+ 
+ 1172 
+ 	`¡r_ä“
+ (
+ v®ue
+ );
+ 
+ 1174 
+ SS_SHPTR
+ :
+ 
+ 1175 *((
+ HASH
+ **)
+ v®ue
+ ->
+ ¡r_±r
+ èðv®ue->
+ ¡r_u
+ .
+ ¡r_hash
+ ;
+ 
+ 1176 
+ v®ue
+ ->
+ ¡r_±r
+  = 
+ NuÎch
+ ;
+ 
+ 1177 
+ 	`¡r_ä“
+ (
+ v®ue
+ );
+ 
+ 1179 
+ SS_SAPTR
+ :
+ 
+ 1180 *((
+ ARRAY
+ **)
+ v®ue
+ ->
+ ¡r_±r
+ èðv®ue->
+ ¡r_u
+ .
+ ¡r_¬¿y
+ ;
+ 
+ 1181 
+ v®ue
+ ->
+ ¡r_±r
+  = 
+ NuÎch
+ ;
+ 
+ 1182 
+ 	`¡r_ä“
+ (
+ v®ue
+ );
+ 
+ 1184 
+ SS_SNSTAB
+ :
+ 
+ 1185 
+ ¡ab
+  = (
+ STAB
+ *)
+ v®ue
+ ->
+ ¡r_magic
+ ;
+ 
+ 1186 
+ v®ue
+ ->
+ ¡r_magic
+  = 
+ NuΡr
+ ;
+ 
+ 1187 ()
+ 	`¡ab_þ—r
+ (
+ ¡ab
+ );
+ 
+ 1188 
+ 	`¡r_ä“
+ (
+ v®ue
+ );
+ 
+ 1190 
+ SS_SCSV
+ :
+ 
+ 1192 
+ CSV
+  *
+ csv
+  = (CSV*è
+ v®ue
+ ->
+ ¡r_±r
+ ;
+ 
+ 1194 
+ curcmd
+  = 
+ csv
+ ->curcmd;
+ 
+ 1195 
+ curcsv
+  = 
+ csv
+ ->curcsv;
+ 
+ 1196 
+ csv
+ ->
+ sub
+ ->
+ d•th
+  = csv->depth;
+ 
+ 1197 ià(
+ csv
+ ->
+ ha§rgs
+ ) {
+ 
+ 1198 
+ 	`aä“
+ (
+ csv
+ ->
+ ¬g¬¿y
+ );
+ 
+ 1199 
+ 	`¡ab_x¬¿y
+ (
+ def¡ab
+ èð
+ csv
+ ->
+ §v—¼ay
+ ;
+ 
+ 1201 
+ 	`¡r_ä“
+ (
+ v®ue
+ );
+ 
+ 1205 
+ 	`çl
+ ("panic:„estorelist inconsistency");
+ 
+ 1208 
+ 	}
+ }
+ 
+ 1210 #ifdeà
+ DEBUGGING
+ 
+ 
+ 1212 
+ 	$grow_dËv–
+ ()
+ 
+ 1214 
+ dlmax
+  += 128;
+ 
+ 1215 
+ 	`R’ew
+ (
+ debÇme
+ , 
+ dlmax
+ , );
+ 
+ 1216 
+ 	`R’ew
+ (
+ debd–im
+ , 
+ dlmax
+ , );
+ 
+ 1217 
+ 	}
+ }
+ 
+ 	@cmd.h
+ 
+ 14 
+ 	#C_NULL
+  0
+ 
+ 	)
+ 
+ 15 
+ 	#C_IF
+  1
+ 
+ 	)
+ 
+ 16 
+ 	#C_ELSE
+  2
+ 
+ 	)
+ 
+ 17 
+ 	#C_WHILE
+  3
+ 
+ 	)
+ 
+ 18 
+ 	#C_BLOCK
+  4
+ 
+ 	)
+ 
+ 19 
+ 	#C_EXPR
+  5
+ 
+ 	)
+ 
+ 20 
+ 	#C_NEXT
+  6
+ 
+ 	)
+ 
+ 21 
+ 	#C_ELSIF
+  7
+ 
+ 	)
+ 
+ 22 
+ 	#C_CSWITCH
+  8
+ 
+ 	)
+ 
+ 23 
+ 	#C_NSWITCH
+  9
+ 
+ 	)
+ 
+ 25 #ifdeà
+ DEBUGGING
+ 
+ 
+ 26 #iâdeà
+ DOINIT
+ 
+ 
+ 27 
*
+ cmdÇme
+ [];
+ 
+ 29 *
+ 	gcmdÇme
+ [] = {
+ 
+ 45 
+ 	#CF_OPTIMIZE
+  077
+ 
+ 	)
+ 
+ 46 
+ 	#CF_FIRSTNEG
+  0100
+ 
+ 	)
+ 
+ 47 
+ 	#CF_NESURE
+  0200
+ 
+ 	)
+ 
+ 48 
+ 	#CF_EQSURE
+  0400
+ 
+ 	)
+ 
+ 49 
+ 	#CF_COND
+  01000
+ 
+ 	)
+ 
+ 51 
+ 	#CF_LOOP
+  02000
+ 
+ 	)
+ 
+ 52 
+ 	#CF_INVERT
+  04000
+ 
+ 	)
+ 
+ 53 
+ 	#CF_ONCE
+  010000
+ 
+ 	)
+ 
+ 54 
+ 	#CF_FLIP
+  020000
+ 
+ 	)
+ 
+ 55 
+ 	#CF_TERM
+  040000
+ 
+ 	)
+ 
+ 56 
+ 	#CF_DBSUB
+  0100000
+ 
+ 	)
+ 
+ 58 
+ 	#CFT_FALSE
+  0
+ 
+ 	)
+ 
+ 59 
+ 	#CFT_TRUE
+  1
+ 
+ 	)
+ 
+ 60 
+ 	#CFT_REG
+  2
+ 
+ 	)
+ 
+ 61 
+ 	#CFT_ANCHOR
+  3
+ 
+ 	)
+ 
+ 62 
+ 	#CFT_STROP
+  4
+ 
+ 	)
+ 
+ 63 
+ 	#CFT_SCAN
+  5
+ 
+ 	)
+ 
+ 64 
+ 	#CFT_GETS
+  6
+ 
+ 	)
+ 
+ 65 
+ 	#CFT_EVAL
+  7
+ 
+ 	)
+ 
+ 66 
+ 	#CFT_UNFLIP
+  8
+ 
+ 	)
+ 
+ 67 
+ 	#CFT_CHOP
+  9
+ 
+ 	)
+ 
+ 68 
+ 	#CFT_ARRAY
+  10
+ 
+ 	)
+ 
+ 69 
+ 	#CFT_INDGETS
+  11
+ 
+ 	)
+ 
+ 70 
+ 	#CFT_NUMOP
+  12
+ 
+ 	)
+ 
+ 71 
+ 	#CFT_CCLASS
+  13
+ 
+ 	)
+ 
+ 72 
+ 	#CFT_D0
+  14
+ 
+ 	)
+ 
+ 73 
+ 	#CFT_D1
+  15
+ 
+ 	)
+ 
+ 75 #ifdeà
+ DEBUGGING
+ 
+ 
+ 76 #iâdeà
+ DOINIT
+ 
+ 
+ 77 
*
+ cmdÝt
+ [];
+ 
+ 79 *
+ 	gcmdÝt
+ [] = {
+ 
+ 99 
+ 	sacmd
+  {
+ 
+ 100 
+ STAB
+  *
+ 	mac_¡ab
+ ;
+ 
+ 101 
+ ARG
+  *
+ 	mac_ex´
+ ;
+ 
+ 104 
+ 	sccmd
+  {
+ 
+ 105 
+ CMD
+  *
+ 	mcc_Œue
+ ;
+ 
+ 106 
+ CMD
+  *
+ 	mcc_®t
+ ;
+ 
+ 109 
+ 	sscmd
+  {
+ 
+ 110 
+ CMD
+  **
+ 	msc_Ãxt
+ ;
+ 
+ 111 
+ 	msc_off£t
+ ;
+ 
+ 112 
+ 	msc_max
+ ;
+ 
+ 115 
+ 	scmd
+  {
+ 
+ 116 
+ CMD
+  *
+ 	mc_Ãxt
+ ;
+ 
+ 117 
+ ARG
+  *
+ 	mc_ex´
+ ;
+ 
+ 118 
+ CMD
+  *
+ 	mc_h—d
+ ;
+ 
+ 119 
+ STR
+  *
+ 	mc_shÜt
+ ;
+ 
+ 120 
+ STAB
+  *
+ 	mc_¡ab
+ ;
+ 
+ 121 
+ SPAT
+  *
+ 	mc_¥©
+ ;
+ 
+ 122 *
+ 	mc_Ïb–
+ ;
+ 
+ 123 
+ 	uucmd
+  {
+ 
+ 124 
+ acmd
+  
+ 	macmd
+ ;
+ 
+ 125 
+ ccmd
+  
+ 	mccmd
+ ;
+ 
+ 126 
+ scmd
+  
+ 	mscmd
+ ;
+ 
+ 127 } 
+ 	mucmd
+ ;
+ 
+ 128 
+ 	mc_¦’
+ ;
+ 
+ 129 
+ VOLATILE
+  
+ 	mc_æags
+ ;
+ 
+ 130 
+ HASH
+  *
+ 	mc_¡ash
+ ;
+ 
+ 131 
+ STAB
+  *
+ 	mc_fže¡ab
+ ;
+ 
+ 132 
+ lše_t
+  
+ 	mc_lše
+ ;
+ 
+ 133 
+ 	mc_ty³
+ ;
+ 
+ 136 
+ 	#NuÎcmd
+  
+ 	`NuÎ
+ (
+ CMD
+ *)
+ 
+ 	)
+ 
+ 137 
+ 	#NuÎcsv
+  
+ 	`NuÎ
+ (
+ CSV
+ *)
+ 
+ 	)
+ 
+ 139 
+ EXT
+  
+ CMD
+  * 
+ VOLATILE
+  
+ maš_roÙ
+  
+ INIT
+ (
+ NuÎcmd
+ );
+ 
+ 140 
+ EXT
+  
+ CMD
+  * 
+ VOLATILE
+  
+ ev®_roÙ
+  
+ INIT
+ (
+ NuÎcmd
+ );
+ 
+ 142 
+ EXT
+  
+ CMD
+  
+ 	gcompžšg
+ ;
+ 
+ 143 
+ EXT
+  
+ CMD
+  * 
+ VOLATILE
+  
+ curcmd
+  
+ INIT
+ (&
+ compžšg
+ );
+ 
+ 144 
+ EXT
+  
+ CSV
+  * 
+ VOLATILE
+  
+ curcsv
+  
+ INIT
+ (
+ NuÎcsv
+ );
+ 
+ 146 
+ 	sÿΧve
+  {
+ 
+ 147 
+ SUBR
+  *
+ 	msub
+ ;
+ 
+ 148 
+ STAB
+  *
+ 	m¡ab
+ ;
+ 
+ 149 
+ CSV
+  *
+ 	mcurcsv
+ ;
+ 
+ 150 
+ CMD
+  *
+ 	mcurcmd
+ ;
+ 
+ 151 
+ ARRAY
+  *
+ 	m§v—¼ay
+ ;
+ 
+ 152 
+ ARRAY
+  *
+ 	m¬g¬¿y
+ ;
+ 
+ 153 
+ 	md•th
+ ;
+ 
+ 154 
+ 	mwª¼ay
+ ;
+ 
+ 155 
+ 	mha§rgs
+ ;
+ 
+ 158 
+ 	scompcmd
+  {
+ 
+ 159 
+ CMD
+  *
+ 	mcomp_Œue
+ ;
+ 
+ 160 
+ CMD
+  *
+ 	mcomp_®t
+ ;
+ 
+ 163 
+ Ýt_¬g
+ ();
+ 
+ 164 
+ ev®¡©ic
+ ();
+ 
+ 165 
+ cmd_exec
+ ();
+ 
+ 	@config.h
+ 
+ 1 #iâdeà
+ cÚfig_h
+ 
+ 
+ 2 
+ 	#cÚfig_h
+ 
+ 
+ 	)
+ 
+ 32 
+ 	#ALIGNBYTES
+  8
+ 
+ 	)
+ 
+ 39 
+ 	#BIN
+  "/u¤/loÿl/bš"
+ 
+ 	)
+ 
+ 45 
+ 	#BYTEORDER
+  0x4321
+ 
+ 	)
+ 
+ 58 
+ 	#CPPSTDIN
+  "/u¤/loÿl/lib/gcc-ýp"
+ 
+ 	)
+ 
+ 59 
+ 	#CPPMINUS
+  ""
+ 
+ 	)
+ 
+ 66 
+ 	#HAS_BCMP
+ 
+ 
+ 	)
+ 
+ 72 
+ 	#HAS_BCOPY
+ 
+ 
+ 	)
+ 
+ 79 
+ 	#HAS_BZERO
+ 
+ 
+ 	)
+ 
+ 92 
+ 	#CASTNEGFLOAT
+ 
+ 
+ 	)
+ 
+ 93 
+ 	#CASTFLAGS
+  0
+ 
+ 	)
+ 
+ 101 
+ 	#CHARSPRINTF
+ 
+ 
+ 	)
+ 
+ 113 
+ 	#HAS_CRYPT
+ 
+ 
+ 	)
+ 
+ 140 
+ 	#HAS_DUP2
+ 
+ 
+ 	)
+ 
+ 146 
+ 	#HAS_FCHMOD
+ 
+ 
+ 	)
+ 
+ 152 
+ 	#HAS_FCHOWN
+ 
+ 
+ 	)
+ 
+ 158 
+ 	#HAS_FCNTL
+ 
+ 
+ 	)
+ 
+ 164 
+ 	#FLEXFILENAMES
+ 
+ 
+ 	)
+ 
+ 170 
+ 	#HAS_FLOCK
+ 
+ 
+ 	)
+ 
+ 177 
+ 	#HAS_GETGROUPS
+ 
+ 
+ 	)
+ 
+ 189 
+ 	#HAS_GETPGRP
+ 
+ 
+ 	)
+ 
+ 201 
+ 	#HAS_GETPRIORITY
+ 
+ 
+ 	)
+ 
+ 219 
+ 	#HAS_HTONS
+ 
+ 
+ 	)
+ 
+ 220 
+ 	#HAS_HTONL
+ 
+ 
+ 	)
+ 
+ 221 
+ 	#HAS_NTOHS
+ 
+ 
+ 	)
+ 
+ 222 
+ 	#HAS_NTOHL
+ 
+ 
+ 	)
+ 
+ 240 
+ 	#HAS_KILLPG
+ 
+ 
+ 	)
+ 
+ 246 
+ 	#HAS_LSTAT
+ 
+ 
+ 	)
+ 
+ 252 
+ 	#HAS_MEMCMP
+ 
+ 
+ 	)
+ 
+ 259 
+ 	#HAS_MEMCPY
+ 
+ 
+ 	)
+ 
+ 266 
+ 	#HAS_MKDIR
+ 
+ 
+ 	)
+ 
+ 272 
+ 	#HAS_MSG
+ 
+ 
+ 	)
+ 
+ 278 
+ 	#HAS_MSGCTL
+ 
+ 
+ 	)
+ 
+ 284 
+ 	#HAS_MSGGET
+ 
+ 
+ 	)
+ 
+ 290 
+ 	#HAS_MSGRCV
+ 
+ 
+ 	)
+ 
+ 296 
+ 	#HAS_MSGSND
+ 
+ 
+ 	)
+ 
+ 314 
+ 	#HAS_OPEN3
+ 
+ 
+ 	)
+ 
+ 320 
+ 	#HAS_READDIR
+ 
+ 
+ 	)
+ 
+ 327 
+ 	#HAS_RENAME
+ 
+ 
+ 	)
+ 
+ 334 
+ 	#HAS_RMDIR
+ 
+ 
+ 	)
+ 
+ 340 
+ 	#HAS_SELECT
+ 
+ 
+ 	)
+ 
+ 346 
+ 	#HAS_SEM
+ 
+ 
+ 	)
+ 
+ 352 
+ 	#HAS_SEMCTL
+ 
+ 
+ 	)
+ 
+ 358 
+ 	#HAS_SEMGET
+ 
+ 
+ 	)
+ 
+ 364 
+ 	#HAS_SEMOP
+ 
+ 
+ 	)
+ 
+ 370 
+ 	#HAS_SETEGID
+ 
+ 
+ 	)
+ 
+ 376 
+ 	#HAS_SETEUID
+ 
+ 
+ 	)
+ 
+ 382 
+ 	#HAS_SETPGRP
+ 
+ 
+ 	)
+ 
+ 394 
+ 	#HAS_SETPRIORITY
+ 
+ 
+ 	)
+ 
+ 405 
+ 	#HAS_SETREGID
+ 
+ 
+ 	)
+ 
+ 417 
+ 	#HAS_SETREUID
+ 
+ 
+ 	)
+ 
+ 436 
+ 	#HAS_SHM
+ 
+ 
+ 	)
+ 
+ 442 
+ 	#HAS_SHMAT
+ 
+ 
+ 	)
+ 
+ 448 
+ 	#HAS_SHMCTL
+ 
+ 
+ 	)
+ 
+ 454 
+ 	#HAS_SHMDT
+ 
+ 
+ 	)
+ 
+ 460 
+ 	#HAS_SHMGET
+ 
+ 
+ 	)
+ 
+ 474 
+ 	#HAS_SOCKET
+ 
+ 
+ 	)
+ 
+ 476 
+ 	#HAS_SOCKETPAIR
+ 
+ 
+ 	)
+ 
+ 484 
+ 	#STATBLOCKS
+ 
+ 
+ 	)
+ 
+ 497 
+ 	#STRUCTCOPY
+ 
+ 
+ 	)
+ 
+ 509 
+ 	#HAS_SYMLINK
+ 
+ 
+ 	)
+ 
+ 515 
+ 	#HAS_SYSCALL
+ 
+ 
+ 	)
+ 
+ 521 
+ 	#HAS_TRUNCATE
+ 
+ 
+ 	)
+ 
+ 526 
+ 	#HAS_VFORK
+ 
+ 
+ 	)
+ 
+ 540 
+ 	#VOIDSIG
+ 
+ 
+ 	)
+ 
+ 541 
+ 	#TO_SIGNAL
+  
+ 
+ 	)
+ 
+ 547 
+ 	#HASVOLATILE
+ 
+ 
+ 	)
+ 
+ 560 
+ 	#HAS_VPRINTF
+ 
+ 
+ 	)
+ 
+ 561 
+ 	#CHARVSPRINTF
+ 
+ 
+ 	)
+ 
+ 571 
+ 	#HAS_WAITPID
+ 
+ 
+ 	)
+ 
+ 577 
+ 	#GIDTYPE
+  
+ gid_t
+ 
+ 
+ 	)
+ 
+ 583 
+ 	#GROUPSTYPE
+  
+ 
+ 	)
+ 
+ 600 
+ 	#I_GRP
+ 
+ 
+ 	)
+ 
+ 610 
+ 	#I_NETINET_IN
+ 
+ 
+ 	)
+ 
+ 641 
+ 	#I_PWD
+ 
+ 
+ 	)
+ 
+ 652 
+ 	#I_SYS_FILE
+ 
+ 
+ 	)
+ 
+ 658 
+ 	#I_SYSIOCTL
+ 
+ 
+ 	)
+ 
+ 673 
+ 	#I_TIME
+ 
+ 
+ 	)
+ 
+ 674 
+ 	#I_SYS_TIME
+ 
+ 
+ 	)
+ 
+ 682 
+ 	#I_UTIME
+ 
+ 
+ 	)
+ 
+ 700 
+ 	#INTSIZE
+  4
+ 
+ 	)
+ 
+ 727 
+ 	#I_DIRENT
+ 
+ 
+ 	)
+ 
+ 737 
+ 	#MALLOCPTRTYPE
+  
+ 
+ 	)
+ 
+ 744 
+ 	#RANDBITS
+  31
+ 
+ 	)
+ 
+ 751 
+ 	#SCRIPTDIR
+  "/u¤/loÿl/bš"
+ 
+ 	)
+ 
+ 756 
+ 	#SIG_NAME
+  "ZERO","HUP","INT","QUIT","ILL","TRAP","ABRT","EMT","FPE","KILL","BUS","SEGV","SYS","PIPE","ALRM","TERM","URG","STOP","TSTP","CONT","CLD","TTIN","TTOU","IO","XCPU","XFSZ","VTALRM","PROF","WINCH","LOST","USR1","USR2"
+ 
+ 	)
+ 
+ 762 
+ 	#STDCHAR
+  
+ 
+ 	)
+ 
+ 768 
+ 	#UIDTYPE
+  
+ uid_t
+ 
+ 
+ 	)
+ 
+ 801 #iâdeà
+ VOIDWANT
+ 
+ 
+ 802 
+ 	#VOIDWANT
+  7
+ 
+ 	)
+ 
+ 804 
+ 	#VOIDHAVE
+  7
+ 
+ 	)
+ 
+ 805 #ià(
+ VOIDHAVE
+  & 
+ VOIDWANT
+ ) != VOIDWANT
+ 
+ 806 
+ 
+ 	)
+ 
+ 807 
+ 	#VOID
+ 
+ 
+ 	)
+ 
+ 808 
+ 	#VOIDP
+  (*)
+ 
+ 	)
+ 
+ 809 
+ 	#M_VOID
+ 
+ 
+ 	)
+ 
+ 811 
+ 	#VOID
+  
+ 
+ 	)
+ 
+ 812 
+ 	#VOIDP
+  (*)
+ 
+ 	)
+ 
+ 821 
+ 	#PRIVLIB
+  "/u¤/loÿl/lib/³¾"
+ 
+ 	)
+ 
+ 	@cons.c
+ 
+ 14 
+ 	~"EXTERN.h
+ "
+ 
+ 15 
+ 	~"³¾.h
+ "
+ 
+ 16 
+ 	~"³¾y.h
+ "
+ 
+ 18 
*
+ tok’ame
+ [];
+ 
+ 19 

+ yych¬
+ ;
+ 
+ 21 
+ cmd_to§ve
+ ();
+ 
+ 22 
+ ¬g_to§ve
+ ();
+ 
+ 23 
+ ¥©_to§ve
+ ();
+ 
+ 25 
+ boÞ
+  
+ 	g§w_»tuº
+ ;
+ 
+ 27 
+ SUBR
+  *
+ 
+ 28 
+ 	$make_sub
+ (
+ Çme
+ ,
+ cmd
+ )
+ 
+ 29 *
+ Çme
+ ;
+ 
+ 30 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 32 
+ SUBR
+  *
+ sub
+ ;
+ 
+ 33 
+ STAB
+  *
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ Çme
+ ,
+ TRUE
+ );
+ 
+ 35 
+ 	`Newz
+ (101,
+ sub
+ ,1,
+ SUBR
+ );
+ 
+ 36 ià(
+ 	`¡ab_sub
+ (
+ ¡ab
+ )) {
+ 
+ 37 ià(
+ dow¬n
+ ) {
+ 
+ 38 
+ CMD
+  *
+ Þdcurcmd
+  = 
+ curcmd
+ ;
+ 
+ 40 ià(
+ cmd
+ )
+ 
+ 41 
+ curcmd
+  = 
+ cmd
+ ;
+ 
+ 42 
+ 	`w¬n
+ ("Subroutš% »defšed",
+ Çme
+ );
+ 
+ 43 
+ curcmd
+  = 
+ Þdcurcmd
+ ;
+ 
+ 45 ià(
+ 	`¡ab_sub
+ (
+ ¡ab
+ )->
+ cmd
+ ) {
+ 
+ 46 
+ 	`cmd_ä“
+ (
+ 	`¡ab_sub
+ (
+ ¡ab
+ )->
+ cmd
+ );
+ 
+ 47 
+ 	`¡ab_sub
+ (
+ ¡ab
+ )->
+ cmd
+  = 
+ NuÎcmd
+ ;
+ 
+ 48 
+ 	`aä“
+ (
+ 	`¡ab_sub
+ (
+ ¡ab
+ )->
+ to§ve
+ );
+ 
+ 50 
+ 	`Saãä“
+ (
+ 	`¡ab_sub
+ (
+ ¡ab
+ ));
+ 
+ 52 
+ 	`¡ab_sub
+ (
+ ¡ab
+ èð
+ sub
+ ;
+ 
+ 53 
+ sub
+ ->
+ fže¡ab
+  = 
+ curcmd
+ ->
+ c_fže¡ab
+ ;
+ 
+ 54 
+ §w_»tuº
+  = 
+ FALSE
+ ;
+ 
+ 55 
+ to§ve
+  = 
+ 	`ªew
+ (
+ NuΡab
+ );
+ 
+ 56 
+ to§ve
+ ->
+ ¬y_fžl
+  = 0;
+ 
+ 57 ()
+ 	`cmd_to§ve
+ (
+ cmd
+ ,
+ FALSE
+ );
+ 
+ 58 
+ sub
+ ->
+ to§ve
+  =osave;
+ 
+ 59 ià(
+ §w_»tuº
+ ) {
+ 
+ 60 
+ compcmd
+  
+ mycompblock
+ ;
+ 
+ 62 
+ mycompblock
+ .
+ comp_Œue
+  = 
+ cmd
+ ;
+ 
+ 63 
+ mycompblock
+ .
+ comp_®t
+  = 
+ NuÎcmd
+ ;
+ 
+ 64 
+ cmd
+  = 
+ 	`add_Ïb–
+ (
+ 	`§ve¡r
+ ("_SUB_"),
+ 	`make_ccmd
+ (
+ C_BLOCK
+ ,
+ Nuάg
+ ,
+ mycompblock
+ ));
+ 
+ 65 
+ §w_»tuº
+  = 
+ FALSE
+ ;
+ 
+ 66 
+ cmd
+ ->
+ c_æags
+  |ð
+ CF_TERM
+ ;
+ 
+ 68 
+ sub
+ ->
+ cmd
+  = cmd;
+ 
+ 69 ià(
+ ³¾db
+ ) {
+ 
+ 70 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 71 
+ STR
+  *
+ tmp¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_undef
+ );
+ 
+ 73 
+ 	`¥rštf
+ (
+ buf
+ ,"%s:%ld",
+ 	`¡ab_v®
+ (
+ curcmd
+ ->
+ c_fže¡ab
+ )->
+ ¡r_±r
+ ,
+ 
+ 74 ()
+ sublše
+ );
+ 
+ 75 
+ ¡r
+  = 
+ 	`¡r_make
+ (
+ buf
+ ,0);
+ 
+ 76 
+ 	`¡r_ÿt
+ (
+ ¡r
+ ,"-");
+ 
+ 77 
+ 	`¥rštf
+ (
+ buf
+ ,"%ld",()
+ curcmd
+ ->
+ c_lše
+ );
+ 
+ 78 
+ 	`¡r_ÿt
+ (
+ ¡r
+ ,
+ buf
+ );
+ 
+ 79 
+ Çme
+  = 
+ 	`¡r_g‘
+ (
+ subÇme
+ );
+ 
+ 80 
+ 	`¡ab_fuÎÇme
+ (
+ tmp¡r
+ ,
+ ¡ab
+ );
+ 
+ 81 
+ 	`h¡Üe
+ (
+ 	`¡ab_xhash
+ (
+ DBsub
+ ), 
+ tmp¡r
+ ->
+ ¡r_±r
+ ,mp¡r->
+ ¡r_cur
+ , 
+ ¡r
+ , 0);
+ 
+ 82 
+ 	`¡r_£t
+ (
+ subÇme
+ ,"main");
+ 
+ 84 
+ sublše
+  = 0;
+ 
+ 85  
+ sub
+ ;
+ 
+ 86 
+ 	}
+ }
+ 
+ 88 
+ SUBR
+  *
+ 
+ 89 
+ 	$make_usub
+ (
+ Çme
+ , 
+ ix
+ , 
+ subaddr
+ , 
+ fž’ame
+ )
+ 
+ 90 *
+ Çme
+ ;
+ 
+ 91 
+ ix
+ ;
+ 
+ 92 (*
+ subaddr
+ )();
+ 
+ 93 *
+ fž’ame
+ ;
+ 
+ 95 
+ SUBR
+  *
+ sub
+ ;
+ 
+ 96 
+ STAB
+  *
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ Çme
+ ,
+ ®l¡abs
+ );
+ 
+ 98 ià(!
+ ¡ab
+ )
+ 
+ 99  
+ 	`NuÎ
+ (
+ SUBR
+ *);
+ 
+ 100 
+ 	`Newz
+ (101,
+ sub
+ ,1,
+ SUBR
+ );
+ 
+ 101 ià(
+ 	`¡ab_sub
+ (
+ ¡ab
+ )) {
+ 
+ 102 ià(
+ dow¬n
+ )
+ 
+ 103 
+ 	`w¬n
+ ("Subroutš% »defšed",
+ Çme
+ );
+ 
+ 104 ià(
+ 	`¡ab_sub
+ (
+ ¡ab
+ )->
+ cmd
+ ) {
+ 
+ 105 
+ 	`cmd_ä“
+ (
+ 	`¡ab_sub
+ (
+ ¡ab
+ )->
+ cmd
+ );
+ 
+ 106 
+ 	`¡ab_sub
+ (
+ ¡ab
+ )->
+ cmd
+  = 
+ NuÎcmd
+ ;
+ 
+ 107 
+ 	`aä“
+ (
+ 	`¡ab_sub
+ (
+ ¡ab
+ )->
+ to§ve
+ );
+ 
+ 109 
+ 	`Saãä“
+ (
+ 	`¡ab_sub
+ (
+ ¡ab
+ ));
+ 
+ 111 
+ 	`¡ab_sub
+ (
+ ¡ab
+ èð
+ sub
+ ;
+ 
+ 112 
+ sub
+ ->
+ fže¡ab
+  = 
+ 	`f¡ab
+ (
+ fž’ame
+ );
+ 
+ 113 
+ sub
+ ->
+ u£rsub
+  = 
+ subaddr
+ ;
+ 
+ 114 
+ sub
+ ->
+ u£ršdex
+  = 
+ ix
+ ;
+ 
+ 115  
+ sub
+ ;
+ 
+ 116 
+ 	}
+ }
+ 
+ 118 
+ 	$make_fÜm
+ (
+ ¡ab
+ ,
+ fcmd
+ )
+ 
+ 119 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 120 
+ FCMD
+  *
+ fcmd
+ ;
+ 
+ 122 ià(
+ 	`¡ab_fÜm
+ (
+ ¡ab
+ )) {
+ 
+ 123 
+ FCMD
+  *
+ tmpfcmd
+ ;
+ 
+ 124 
+ FCMD
+  *
+ Ãxtfcmd
+ ;
+ 
+ 126 
+ tmpfcmd
+  = 
+ 	`¡ab_fÜm
+ (
+ ¡ab
+ );mpfcmd;mpfcmd = 
+ Ãxtfcmd
+ ) {
+ 
+ 127 
+ Ãxtfcmd
+  = 
+ tmpfcmd
+ ->
+ f_Ãxt
+ ;
+ 
+ 128 ià(
+ tmpfcmd
+ ->
+ f_ex´
+ )
+ 
+ 129 
+ 	`¬g_ä“
+ (
+ tmpfcmd
+ ->
+ f_ex´
+ );
+ 
+ 130 ià(
+ tmpfcmd
+ ->
+ f_uŬ£d
+ )
+ 
+ 131 
+ 	`¡r_ä“
+ (
+ tmpfcmd
+ ->
+ f_uŬ£d
+ );
+ 
+ 132 ià(
+ tmpfcmd
+ ->
+ f_´e
+ )
+ 
+ 133 
+ 	`Saãä“
+ (
+ tmpfcmd
+ ->
+ f_´e
+ );
+ 
+ 134 
+ 	`Saãä“
+ (
+ tmpfcmd
+ );
+ 
+ 137 
+ 	`¡ab_fÜm
+ (
+ ¡ab
+ èð
+ fcmd
+ ;
+ 
+ 138 
+ 	}
+ }
+ 
+ 140 
+ CMD
+  *
+ 
+ 141 
+ 	$block_h—d
+ (
+ ž
+ )
+ 
+ 142 
+ CMD
+  *
+ ž
+ ;
+ 
+ 144 
+ CMD
+  *
+ h—d
+ ;
+ 
+ 145 
+ Ýt
+ ;
+ 
+ 146 
+ Ï¡_Ýt
+  = 0;
+ 
+ 147 
+ STAB
+  *
+ Ï¡_¡ab
+  = 
+ NuΡab
+ ;
+ 
+ 148 
+ couÁ
+  = 0;
+ 
+ 149 
+ CMD
+  *
+ sw™chbeg
+  = 
+ NuÎcmd
+ ;
+ 
+ 151 ià(
+ ž
+  =ð
+ NuÎcmd
+ ) {
+ 
+ 152  
+ ž
+ ;
+ 
+ 154 
+ h—d
+  = 
+ ž
+ ->
+ c_h—d
+ ;
+ 
+ 156 
+ ž
+  = 
+ h—d
+ ;až;až =až->
+ c_Ãxt
+ ) {
+ 
+ 159 ià(
+ ž
+ ->
+ c_ty³
+  =ð
+ C_IF
+ ) {
+ 
+ 160 ià(!(
+ ž
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+  =až->ucmd.ccmd.cc_®t->
+ c_Ãxt
+ ))
+ 
+ 161 
+ ž
+ ->
+ c_æags
+  |ð
+ CF_TERM
+ ;
+ 
+ 163 ià(
+ ž
+ ->
+ c_ty³
+  =ð
+ C_EXPR
+ ) {
+ 
+ 164 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 166 ià(
+ ž
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ )
+ 
+ 167 
+ ¬g
+  = 
+ ž
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ ;
+ 
+ 169 
+ ¬g
+  = 
+ ž
+ ->
+ c_ex´
+ ;
+ 
+ 170 ià(
+ ¬g
+ ) {
+ 
+ 171 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_RETURN
+ )
+ 
+ 172 
+ ž
+ ->
+ c_æags
+  |ð
+ CF_TERM
+ ;
+ 
+ 173 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ITEM
+  &&‡rg[1].¬g_ty³ =ð
+ A_CMD
+ )
+ 
+ 174 
+ ž
+ ->
+ c_æags
+  |ð
+ CF_TERM
+ ;
+ 
+ 177 ià(!
+ ž
+ ->
+ c_Ãxt
+ )
+ 
+ 178 
+ ž
+ ->
+ c_æags
+  |ð
+ CF_TERM
+ ;
+ 
+ 180 ià(
+ ž
+ ->
+ c_ex´
+  && (ž->
+ c_æags
+  & 
+ CF_OPTIMIZE
+ è=ð
+ CFT_FALSE
+ )
+ 
+ 181 
+ 	`Ýt_¬g
+ (
+ ž
+ ,1,až->
+ c_ty³
+  =ð
+ C_EXPR
+ );
+ 
+ 184 
+ ž
+ ->
+ c_æags
+  & (
+ CF_OPTIMIZE
+ |
+ CF_FIRSTNEG
+ |
+ CF_INVERT
+ )) {
+ 
+ 185 
+ CFT_ANCHOR
+ :
+ 
+ 186 ià(
+ 	`¡ab’t
+ ("*",
+ FALSE
+ )) {
+ 
+ 187 
+ Ýt
+  = 0;
+ 
+ 191 
+ CFT_STROP
+ :
+ 
+ 192 
+ Ýt
+  = (
+ ž
+ ->
+ c_æags
+  & 
+ CF_NESURE
+ è? 
+ CFT_STROP
+  : 0;
+ 
+ 194 
+ CFT_CCLASS
+ :
+ 
+ 195 
+ Ýt
+  = 
+ CFT_STROP
+ ;
+ 
+ 197 
+ CFT_NUMOP
+ :
+ 
+ 198 
+ Ýt
+  = (
+ ž
+ ->
+ c_¦’
+  =ð
+ O_NE
+  ? 0 : 
+ CFT_NUMOP
+ );
+ 
+ 199 ià((
+ ž
+ ->
+ c_æags
+ &(
+ CF_NESURE
+ |
+ CF_EQSURE
+ )) != (CF_NESURE|CF_EQSURE))
+ 
+ 200 
+ Ýt
+  = 0;
+ 
+ 203 
+ Ýt
+  = 0;
+ 
+ 205 ià(
+ Ýt
+  && o± =ð
+ Ï¡_Ýt
+  && 
+ ž
+ ->
+ c_¡ab
+  =ð
+ Ï¡_¡ab
+ )
+ 
+ 206 
+ couÁ
+ ++;
+ 
+ 208 ià(
+ couÁ
+  >= 3) {
+ 
+ 209 ià(
+ Ï¡_Ýt
+  =ð
+ CFT_NUMOP
+ )
+ 
+ 210 
+ 	`make_nsw™ch
+ (
+ sw™chbeg
+ ,
+ couÁ
+ );
+ 
+ 212 
+ 	`make_csw™ch
+ (
+ sw™chbeg
+ ,
+ couÁ
+ );
+ 
+ 214 ià(
+ Ýt
+ ) {
+ 
+ 215 
+ couÁ
+  = 1;
+ 
+ 216 
+ sw™chbeg
+  = 
+ ž
+ ;
+ 
+ 219 
+ couÁ
+  = 0;
+ 
+ 221 
+ Ï¡_Ýt
+  = 
+ Ýt
+ ;
+ 
+ 222 
+ Ï¡_¡ab
+  = 
+ ž
+ ->
+ c_¡ab
+ ;
+ 
+ 224 ià(
+ couÁ
+  >= 3) {
+ 
+ 225 ià(
+ Ï¡_Ýt
+  =ð
+ CFT_NUMOP
+ )
+ 
+ 226 
+ 	`make_nsw™ch
+ (
+ sw™chbeg
+ ,
+ couÁ
+ );
+ 
+ 228 
+ 	`make_csw™ch
+ (
+ sw™chbeg
+ ,
+ couÁ
+ );
+ 
+ 230  
+ h—d
+ ;
+ 
+ 231 
+ 	}
+ }
+ 
+ 237 
+ 	$make_csw™ch
+ (
+ h—d
+ ,
+ couÁ
+ )
+ 
+ 238 
+ CMD
+  *
+ h—d
+ ;
+ 
+ 239 
+ couÁ
+ ;
+ 
+ 241 
+ CMD
+  *
+ cur
+ ;
+ 
+ 242 
+ CMD
+  **
+ loc
+ ;
+ 
+ 243 
+ i
+ ;
+ 
+ 244 
+ mš
+  = 255;
+ 
+ 245 
+ max
+  = 0;
+ 
+ 248 
+ 	`New
+ (102,
+ cur
+ , 1, 
+ CMD
+ );
+ 
+ 249 #ifdeà
+ STRUCTCOPY
+ 
+ 
+ 250 *
+ cur
+  = *
+ h—d
+ ;
+ 
+ 252 
+ 	`CÝy
+ (
+ h—d
+ ,
+ cur
+ ,1,
+ CMD
+ );
+ 
+ 254 
+ 	`Z”o
+ (
+ h—d
+ ,1,
+ CMD
+ );
+ 
+ 255 
+ h—d
+ ->
+ c_ty³
+  = 
+ C_CSWITCH
+ ;
+ 
+ 256 
+ h—d
+ ->
+ c_Ãxt
+  = 
+ cur
+ ;
+ 
+ 257 
+ h—d
+ ->
+ c_¡ab
+  = 
+ cur
+ ->c_stab;
+ 
+ 259 
+ 	`Newz
+ (103,
+ loc
+ ,258,
+ CMD
+ *);
+ 
+ 260 
+ loc
+ ++;
+ 
+ 261 
+ couÁ
+ --) {
+ 
+ 262 ià((
+ cur
+ ->
+ c_æags
+  & 
+ CF_OPTIMIZE
+ è=ð
+ CFT_CCLASS
+ ) {
+ 
+ 263 
+ i
+  = 0; i <= 255; i++) {
+ 
+ 264 ià(!
+ loc
+ [
+ i
+ ] && 
+ cur
+ ->
+ c_shÜt
+ ->
+ ¡r_±r
+ [i>>3] & (1 << (i&7))) {
+ 
+ 265 
+ loc
+ [
+ i
+ ] = 
+ cur
+ ;
+ 
+ 266 ià(
+ i
+  < 
+ mš
+ )
+ 
+ 267 
+ mš
+  = 
+ i
+ ;
+ 
+ 268 ià(
+ i
+  > 
+ max
+ )
+ 
+ 269 
+ max
+  = 
+ i
+ ;
+ 
+ 274 
+ i
+  = *
+ cur
+ ->
+ c_shÜt
+ ->
+ ¡r_±r
+  & 255;
+ 
+ 275 ià(!
+ loc
+ [
+ i
+ ]) {
+ 
+ 276 
+ loc
+ [
+ i
+ ] = 
+ cur
+ ;
+ 
+ 277 ià(
+ i
+  < 
+ mš
+ )
+ 
+ 278 
+ mš
+  = 
+ i
+ ;
+ 
+ 279 ià(
+ i
+  > 
+ max
+ )
+ 
+ 280 
+ max
+  = 
+ i
+ ;
+ 
+ 283 
+ cur
+  = cur->
+ c_Ãxt
+ ;
+ 
+ 285 
+ max
+ ++;
+ 
+ 286 ià(
+ mš
+  > 0)
+ 
+ 287 
+ 	`CÝy
+ (&
+ loc
+ [
+ mš
+ ],&loc[0], 
+ max
+  - mš, 
+ CMD
+ *);
+ 
+ 288 
+ loc
+ --;
+ 
+ 289 
+ mš
+ --;
+ 
+ 290 
+ max
+  -ð
+ mš
+ ;
+ 
+ 291 
+ i
+  = 0; i <ð
+ max
+ ; i++)
+ 
+ 292 ià(!
+ loc
+ [
+ i
+ ])
+ 
+ 293 
+ loc
+ [
+ i
+ ] = 
+ cur
+ ;
+ 
+ 294 
+ 	`R’ew
+ (
+ loc
+ ,
+ max
+ +1,
+ CMD
+ *);
+ 
+ 295 
+ h—d
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_off£t
+  = 
+ mš
+ ;
+ 
+ 296 
+ h—d
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_max
+  = 
+ max
+ ;
+ 
+ 297 
+ h—d
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_Ãxt
+  = 
+ loc
+ ;
+ 
+ 298 
+ 	}
+ }
+ 
+ 300 
+ 	$make_nsw™ch
+ (
+ h—d
+ ,
+ couÁ
+ )
+ 
+ 301 
+ CMD
+  *
+ h—d
+ ;
+ 
+ 302 
+ couÁ
+ ;
+ 
+ 304 
+ CMD
+  *
+ cur
+  = 
+ h—d
+ ;
+ 
+ 305 
+ CMD
+  **
+ loc
+ ;
+ 
+ 306 
+ i
+ ;
+ 
+ 307 
+ mš
+  = 32767;
+ 
+ 308 
+ max
+  = -32768;
+ 
+ 309 
+ ÜigcouÁ
+  = 
+ couÁ
+ ;
+ 
+ 310 
+ v®ue
+ ;
+ 
+ 311 
+ chªged
+ ;
+ 
+ 313 
+ couÁ
+ --) {
+ 
+ 314 
+ i
+  = ()
+ 	`¡r_gnum
+ (
+ cur
+ ->
+ c_shÜt
+ );
+ 
+ 315 
+ v®ue
+  = ()
+ i
+ ;
+ 
+ 316 ià(
+ v®ue
+  !ð
+ cur
+ ->
+ c_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_nv®
+ )
+ 
+ 318 
+ chªged
+  = 
+ i
+ ;
+ 
+ 319 ià(
+ chªged
+  !ð
+ i
+ )
+ 
+ 321 ià(
+ cur
+ ->
+ c_¦’
+  =ð
+ O_LE
+ )
+ 
+ 322 
+ i
+ ++;
+ 
+ 323 ià(
+ cur
+ ->
+ c_¦’
+  =ð
+ O_GE
+ )
+ 
+ 324 
+ i
+ --;
+ 
+ 325 ià(
+ i
+  < 
+ mš
+ )
+ 
+ 326 
+ mš
+  = 
+ i
+ ;
+ 
+ 327 ià(
+ i
+  > 
+ max
+ )
+ 
+ 328 
+ max
+  = 
+ i
+ ;
+ 
+ 329 
+ cur
+  = cur->
+ c_Ãxt
+ ;
+ 
+ 331 
+ couÁ
+  = 
+ ÜigcouÁ
+ ;
+ 
+ 332 ià(
+ max
+  - 
+ mš
+  > 
+ couÁ
+  * 2 + 10)
+ 
+ 336 
+ 	`New
+ (104,
+ cur
+ , 1, 
+ CMD
+ );
+ 
+ 337 #ifdeà
+ STRUCTCOPY
+ 
+ 
+ 338 *
+ cur
+  = *
+ h—d
+ ;
+ 
+ 340 
+ 	`CÝy
+ (
+ h—d
+ ,
+ cur
+ ,1,
+ CMD
+ );
+ 
+ 342 
+ 	`Z”o
+ (
+ h—d
+ ,1,
+ CMD
+ );
+ 
+ 343 
+ h—d
+ ->
+ c_ty³
+  = 
+ C_NSWITCH
+ ;
+ 
+ 344 
+ h—d
+ ->
+ c_Ãxt
+  = 
+ cur
+ ;
+ 
+ 345 
+ h—d
+ ->
+ c_¡ab
+  = 
+ cur
+ ->c_stab;
+ 
+ 347 
+ 	`Newz
+ (105,
+ loc
+ , 
+ max
+  - 
+ mš
+  + 3, 
+ CMD
+ *);
+ 
+ 348 
+ loc
+ ++;
+ 
+ 349 
+ max
+  -ð
+ mš
+ ;
+ 
+ 350 
+ max
+ ++;
+ 
+ 351 
+ couÁ
+ --) {
+ 
+ 352 
+ i
+  = ()
+ 	`¡r_gnum
+ (
+ cur
+ ->
+ c_shÜt
+ );
+ 
+ 353 
+ i
+  -ð
+ mš
+ ;
+ 
+ 354 
+ cur
+ ->
+ c_¦’
+ ) {
+ 
+ 355 
+ O_LE
+ :
+ 
+ 356 
+ i
+ ++;
+ 
+ 357 
+ O_LT
+ :
+ 
+ 358 
+ i
+ --; i >= -1; i--)
+ 
+ 359 ià(!
+ loc
+ [
+ i
+ ])
+ 
+ 360 
+ loc
+ [
+ i
+ ] = 
+ cur
+ ;
+ 
+ 362 
+ O_GE
+ :
+ 
+ 363 
+ i
+ --;
+ 
+ 364 
+ O_GT
+ :
+ 
+ 365 
+ i
+ ++; i <ð
+ max
+ ; i++)
+ 
+ 366 ià(!
+ loc
+ [
+ i
+ ])
+ 
+ 367 
+ loc
+ [
+ i
+ ] = 
+ cur
+ ;
+ 
+ 369 
+ O_EQ
+ :
+ 
+ 370 ià(!
+ loc
+ [
+ i
+ ])
+ 
+ 371 
+ loc
+ [
+ i
+ ] = 
+ cur
+ ;
+ 
+ 374 
+ cur
+  = cur->
+ c_Ãxt
+ ;
+ 
+ 376 
+ loc
+ --;
+ 
+ 377 
+ mš
+ --;
+ 
+ 378 
+ max
+ ++;
+ 
+ 379 
+ i
+  = 0; i <ð
+ max
+ ; i++)
+ 
+ 380 ià(!
+ loc
+ [
+ i
+ ])
+ 
+ 381 
+ loc
+ [
+ i
+ ] = 
+ cur
+ ;
+ 
+ 382 
+ h—d
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_off£t
+  = 
+ mš
+ ;
+ 
+ 383 
+ h—d
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_max
+  = 
+ max
+ ;
+ 
+ 384 
+ h—d
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_Ãxt
+  = 
+ loc
+ ;
+ 
+ 385 
+ 	}
+ }
+ 
+ 387 
+ CMD
+  *
+ 
+ 388 
+ 	$­³nd_lše
+ (
+ h—d
+ ,
+ ž
+ )
+ 
+ 389 
+ CMD
+  *
+ h—d
+ ;
+ 
+ 390 
+ CMD
+  *
+ ž
+ ;
+ 
+ 392 ià(
+ ž
+  =ð
+ NuÎcmd
+ )
+ 
+ 393  
+ h—d
+ ;
+ 
+ 394 ià(!
+ ž
+ ->
+ c_h—d
+ )
+ 
+ 395 
+ ž
+ ->
+ c_h—d
+  =ail;
+ 
+ 396 ià(
+ h—d
+  !ð
+ NuÎcmd
+ ) {
+ 
+ 397 
+ ž
+  =až->
+ c_h—d
+ ;
+ 
+ 398 ià(!
+ h—d
+ ->
+ c_h—d
+ )
+ 
+ 399 
+ h—d
+ ->
+ c_h—d
+  = head;
+ 
+ 400 
+ h—d
+ ->
+ c_Ãxt
+ ) {
+ 
+ 401 
+ h—d
+ ->
+ c_Ãxt
+ ->
+ c_h—d
+  = head->c_head;
+ 
+ 402 
+ h—d
+  = h—d->
+ c_Ãxt
+ ;
+ 
+ 404 
+ h—d
+ ->
+ c_Ãxt
+  = 
+ ž
+ ;
+ 
+ 405 
+ ž
+ ->
+ c_h—d
+  = 
+ h—d
+ ->c_head;
+ 
+ 407 
+ ž
+ ->
+ c_Ãxt
+ ) {
+ 
+ 408 
+ ž
+ ->
+ c_Ãxt
+ ->
+ c_h—d
+  =ail->c_head;
+ 
+ 409 
+ ž
+  =až->
+ c_Ãxt
+ ;
+ 
+ 411  
+ ž
+ ;
+ 
+ 412 
+ 	}
+ }
+ 
+ 414 
+ CMD
+  *
+ 
+ 415 
+ 	$dodb
+ (
+ cur
+ )
+ 
+ 416 
+ CMD
+  *
+ cur
+ ;
+ 
+ 418 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 419 
+ CMD
+  *
+ h—d
+  = 
+ cur
+ ->
+ c_h—d
+ ;
+ 
+ 420 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 422 ià(!
+ h—d
+ )
+ 
+ 423 
+ h—d
+  = 
+ cur
+ ;
+ 
+ 424 ià(!
+ h—d
+ ->
+ c_lše
+ )
+ 
+ 425  
+ cur
+ ;
+ 
+ 426 
+ ¡r
+  = 
+ 	`aãtch
+ (
+ 	`¡ab_x¬¿y
+ (
+ curcmd
+ ->
+ c_fže¡ab
+ ),()
+ h—d
+ ->
+ c_lše
+ ,
+ FALSE
+ );
+ 
+ 427 ià(
+ ¡r
+  =ð&
+ ¡r_undef
+  || sŒ->
+ ¡r_nok
+ )
+ 
+ 428  
+ cur
+ ;
+ 
+ 429 
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_nv®
+  = ()
+ h—d
+ ->
+ c_lše
+ ;
+ 
+ 430 
+ ¡r
+ ->
+ ¡r_nok
+  = 1;
+ 
+ 431 
+ 	`Newz
+ (106,
+ cmd
+ ,1,
+ CMD
+ );
+ 
+ 432 
+ 	`¡r_magic
+ (
+ ¡r
+ , 
+ curcmd
+ ->
+ c_fže¡ab
+ , 0, 
+ NuÎch
+ , 0);
+ 
+ 433 
+ ¡r
+ ->
+ ¡r_magic
+ ->
+ ¡r_u
+ .
+ ¡r_cmd
+  = 
+ cmd
+ ;
+ 
+ 434 
+ cmd
+ ->
+ c_ty³
+  = 
+ C_EXPR
+ ;
+ 
+ 435 
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_¡ab
+  = 
+ NuΡab
+ ;
+ 
+ 436 
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+  = 
+ Nuάg
+ ;
+ 
+ 437 
+ cmd
+ ->
+ c_ex´
+  = 
+ 	`make_Ý
+ (
+ O_SUBR
+ , 2,
+ 
+ 438 
+ 	`¡ab2¬g
+ (
+ A_WORD
+ ,
+ DB¡ab
+ ),
+ 
+ 439 
+ Nuάg
+ ,
+ 
+ 440 
+ Nuάg
+ );
+ 
+ 441 
+ cmd
+ ->
+ c_æags
+  |ð
+ CF_COND
+ |
+ CF_DBSUB
+ |
+ CFT_D0
+ ;
+ 
+ 442 
+ cmd
+ ->
+ c_lše
+  = 
+ h—d
+ ->c_line;
+ 
+ 443 
+ cmd
+ ->
+ c_Ïb–
+  = 
+ h—d
+ ->c_label;
+ 
+ 444 
+ cmd
+ ->
+ c_fže¡ab
+  = 
+ curcmd
+ ->c_filestab;
+ 
+ 445 
+ cmd
+ ->
+ c_¡ash
+  = 
+ cur¡ash
+ ;
+ 
+ 446  
+ 	`­³nd_lše
+ (
+ cmd
+ , 
+ cur
+ );
+ 
+ 447 
+ 	}
+ }
+ 
+ 449 
+ CMD
+  *
+ 
+ 450 
+ 	$make_acmd
+ (
+ ty³
+ ,
+ ¡ab
+ ,
+ cÚd
+ ,
+ ¬g
+ )
+ 
+ 451 
+ ty³
+ ;
+ 
+ 452 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 453 
+ ARG
+  *
+ cÚd
+ ;
+ 
+ 454 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 456 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 458 
+ 	`Newz
+ (107,
+ cmd
+ ,1,
+ CMD
+ );
+ 
+ 459 
+ cmd
+ ->
+ c_ty³
+  = 
+ ty³
+ ;
+ 
+ 460 
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_¡ab
+  = 
+ ¡ab
+ ;
+ 
+ 461 
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+  = 
+ ¬g
+ ;
+ 
+ 462 
+ cmd
+ ->
+ c_ex´
+  = 
+ cÚd
+ ;
+ 
+ 463 ià(
+ cÚd
+ )
+ 
+ 464 
+ cmd
+ ->
+ c_æags
+  |ð
+ CF_COND
+ ;
+ 
+ 465 ià(
+ cmdlše
+  =ð
+ NOLINE
+ )
+ 
+ 466 
+ cmd
+ ->
+ c_lše
+  = 
+ curcmd
+ ->c_line;
+ 
+ 468 
+ cmd
+ ->
+ c_lše
+  = 
+ cmdlše
+ ;
+ 
+ 469 
+ cmdlše
+  = 
+ NOLINE
+ ;
+ 
+ 471 
+ cmd
+ ->
+ c_fže¡ab
+  = 
+ curcmd
+ ->c_filestab;
+ 
+ 472 
+ cmd
+ ->
+ c_¡ash
+  = 
+ cur¡ash
+ ;
+ 
+ 473 ià(
+ ³¾db
+ )
+ 
+ 474 
+ cmd
+  = 
+ 	`dodb
+ (cmd);
+ 
+ 475  
+ cmd
+ ;
+ 
+ 476 
+ 	}
+ }
+ 
+ 478 
+ CMD
+  *
+ 
+ 479 
+ 	$make_ccmd
+ (
+ ty³
+ ,
+ ¬g
+ ,
+ cblock
+ )
+ 
+ 480 
+ ty³
+ ;
+ 
+ 481 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 482 
+ compcmd
+  
+ cblock
+ ;
+ 
+ 484 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 486 
+ 	`Newz
+ (108,
+ cmd
+ , 1, 
+ CMD
+ );
+ 
+ 487 
+ cmd
+ ->
+ c_ty³
+  = 
+ ty³
+ ;
+ 
+ 488 
+ cmd
+ ->
+ c_ex´
+  = 
+ ¬g
+ ;
+ 
+ 489 
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+  = 
+ cblock
+ .
+ comp_Œue
+ ;
+ 
+ 490 
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+  = 
+ cblock
+ .
+ comp_®t
+ ;
+ 
+ 491 ià(
+ ¬g
+ )
+ 
+ 492 
+ cmd
+ ->
+ c_æags
+  |ð
+ CF_COND
+ ;
+ 
+ 493 ià(
+ cmdlše
+  =ð
+ NOLINE
+ )
+ 
+ 494 
+ cmd
+ ->
+ c_lše
+  = 
+ curcmd
+ ->c_line;
+ 
+ 496 
+ cmd
+ ->
+ c_lše
+  = 
+ cmdlše
+ ;
+ 
+ 497 
+ cmdlše
+  = 
+ NOLINE
+ ;
+ 
+ 499 
+ cmd
+ ->
+ c_fže¡ab
+  = 
+ curcmd
+ ->c_filestab;
+ 
+ 500 
+ cmd
+ ->
+ c_¡ash
+  = 
+ cur¡ash
+ ;
+ 
+ 501 ià(
+ ³¾db
+ )
+ 
+ 502 
+ cmd
+  = 
+ 	`dodb
+ (cmd);
+ 
+ 503  
+ cmd
+ ;
+ 
+ 504 
+ 	}
+ }
+ 
+ 506 
+ CMD
+  *
+ 
+ 507 
+ 	$make_icmd
+ (
+ ty³
+ ,
+ ¬g
+ ,
+ cblock
+ )
+ 
+ 508 
+ ty³
+ ;
+ 
+ 509 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 510 
+ compcmd
+  
+ cblock
+ ;
+ 
+ 512 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 513 
+ CMD
+  *
+ ®t
+ ;
+ 
+ 514 
+ CMD
+  *
+ cur
+ ;
+ 
+ 515 
+ CMD
+  *
+ h—d
+ ;
+ 
+ 516 
+ compcmd
+  
+ ncblock
+ ;
+ 
+ 518 
+ 	`Newz
+ (109,
+ cmd
+ , 1, 
+ CMD
+ );
+ 
+ 519 
+ h—d
+  = 
+ cmd
+ ;
+ 
+ 520 
+ cmd
+ ->
+ c_ty³
+  = 
+ ty³
+ ;
+ 
+ 521 
+ cmd
+ ->
+ c_ex´
+  = 
+ ¬g
+ ;
+ 
+ 522 
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+  = 
+ cblock
+ .
+ comp_Œue
+ ;
+ 
+ 523 
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+  = 
+ cblock
+ .
+ comp_®t
+ ;
+ 
+ 524 ià(
+ ¬g
+ )
+ 
+ 525 
+ cmd
+ ->
+ c_æags
+  |ð
+ CF_COND
+ ;
+ 
+ 526 ià(
+ cmdlše
+  =ð
+ NOLINE
+ )
+ 
+ 527 
+ cmd
+ ->
+ c_lše
+  = 
+ curcmd
+ ->c_line;
+ 
+ 529 
+ cmd
+ ->
+ c_lše
+  = 
+ cmdlše
+ ;
+ 
+ 530 
+ cmdlše
+  = 
+ NOLINE
+ ;
+ 
+ 532 
+ cmd
+ ->
+ c_fže¡ab
+  = 
+ curcmd
+ ->c_filestab;
+ 
+ 533 
+ cmd
+ ->
+ c_¡ash
+  = 
+ cur¡ash
+ ;
+ 
+ 534 
+ cur
+  = 
+ cmd
+ ;
+ 
+ 535 
+ ®t
+  = 
+ cblock
+ .
+ comp_®t
+ ;
+ 
+ 536 
+ ®t
+  &&‡É->
+ c_ty³
+  =ð
+ C_ELSIF
+ ) {
+ 
+ 537 
+ cur
+  = 
+ ®t
+ ;
+ 
+ 538 
+ ®t
+  =‡É->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+ ;
+ 
+ 540 ià(
+ ®t
+ ) {
+ 
+ 541 
+ ncblock
+ .
+ comp_Œue
+  = 
+ ®t
+ ;
+ 
+ 542 
+ ncblock
+ .
+ comp_®t
+  = 
+ NuÎcmd
+ ;
+ 
+ 543 
+ ®t
+  = 
+ 	`­³nd_lše
+ (
+ cur
+ ,
+ 	`make_ccmd
+ (
+ C_ELSE
+ ,
+ Nuάg
+ ,
+ ncblock
+ ));
+ 
+ 544 
+ cur
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+  = 
+ ®t
+ ;
+ 
+ 547 
+ ®t
+  = 
+ cur
+ ;
+ 
+ 549 
+ cur
+  = 
+ cmd
+ ;
+ 
+ 550 
+ cmd
+ ) {
+ 
+ 551 
+ cur
+  = 
+ cmd
+ ;
+ 
+ 552 
+ cmd
+  = 
+ cur
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+ ;
+ 
+ 553 
+ cur
+ ->
+ c_h—d
+  = 
+ h—d
+ ;
+ 
+ 554 ià(
+ cur
+ ->
+ c_ty³
+  =ð
+ C_ELSIF
+ )
+ 
+ 555 
+ cur
+ ->
+ c_ty³
+  = 
+ C_IF
+ ;
+ 
+ 556 ià(
+ cur
+ ->
+ c_ty³
+  =ð
+ C_IF
+ )
+ 
+ 557 
+ cur
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+  = 
+ ®t
+ ;
+ 
+ 558 ià(
+ cur
+  =ð
+ ®t
+ )
+ 
+ 560 
+ cur
+ ->
+ c_Ãxt
+  = 
+ cmd
+ ;
+ 
+ 562 ià(
+ ³¾db
+ )
+ 
+ 563 
+ cur
+  = 
+ 	`dodb
+ (cur);
+ 
+ 564  
+ cur
+ ;
+ 
+ 565 
+ 	}
+ }
+ 
+ 568 
+ 	$Ýt_¬g
+ (
+ cmd
+ ,
+ æÜæÝ
+ ,
+ acmd
+ )
+ 
+ 569 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 570 
+ æÜæÝ
+ ;
+ 
+ 571 
+ acmd
+ ;
+ 
+ 573 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 574 
+ Ýt
+  = 
+ CFT_EVAL
+ ;
+ 
+ 575 
+ su»
+  = 0;
+ 
+ 576 
+ ARG
+  *
+ ¬g2
+ ;
+ 
+ 577 
+ cڋxt
+  = 0;
+ 
+ 578 
+ æp
+  = 
+ æÜæÝ
+ ;
+ 
+ 580 ià(!
+ cmd
+ )
+ 
+ 582 ià(!(
+ ¬g
+  = 
+ cmd
+ ->
+ c_ex´
+ )) {
+ 
+ 583 
+ cmd
+ ->
+ c_æags
+  &ð~
+ CF_COND
+ ;
+ 
+ 589 ià(
+ acmd
+  && !
+ cmd
+ ->
+ ucmd
+ .acmd.
+ ac_ex´
+  && !(cmd->
+ c_æags
+  & 
+ CF_TERM
+ ) &&
+ 
+ 590 (
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_AND
+  ||‡rg->¬g_ty³ =ð
+ O_OR
+ ) ) {
+ 
+ 591 
+ 	`dehoi¡
+ (
+ ¬g
+ ,1);
+ 
+ 592 
+ ¬g
+ [2].
+ ¬g_ty³
+  &ð
+ A_MASK
+ ;
+ 
+ 593 
+ 	`dehoi¡
+ (
+ ¬g
+ ,2);
+ 
+ 594 
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+  = 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ;
+ 
+ 595 
+ cmd
+ ->
+ c_ex´
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ;
+ 
+ 596 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_OR
+ )
+ 
+ 597 
+ cmd
+ ->
+ c_æags
+  ^ð
+ CF_INVERT
+ ;
+ 
+ 598 
+ ¬g
+ ->
+ ¬g_Ën
+  = 0;
+ 
+ 599 
+ 	`ä“_¬g
+ (
+ ¬g
+ );
+ 
+ 600 
+ ¬g
+  = 
+ cmd
+ ->
+ c_ex´
+ ;
+ 
+ 605 ià(!(
+ cmd
+ ->
+ c_æags
+  & 
+ CF_TERM
+ )) {
+ 
+ 606 
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_NOT
+ ) {
+ 
+ 607 
+ 	`dehoi¡
+ (
+ ¬g
+ ,1);
+ 
+ 608 
+ cmd
+ ->
+ c_æags
+  ^ð
+ CF_INVERT
+ ;
+ 
+ 609 
+ cmd
+ ->
+ c_ex´
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ;
+ 
+ 610 
+ 	`ä“_¬g
+ (
+ ¬g
+ );
+ 
+ 611 
+ ¬g
+  = 
+ cmd
+ ->
+ c_ex´
+ ;
+ 
+ 615 ià(!
+ ¬g
+ ->
+ ¬g_Ën
+ ) {
+ 
+ 616 
+ cmd
+ ->
+ c_æags
+  |ð
+ Ýt
+ ;
+ 
+ 622 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_FLIP
+ )
+ 
+ 623 
+ cڋxt
+  |= 4;
+ 
+ 627 
+ mÜecÚ‹xt
+ :
+ 
+ 628 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_AND
+ )
+ 
+ 629 
+ cڋxt
+  |= 1;
+ 
+ 630 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_OR
+ )
+ 
+ 631 
+ cڋxt
+  |= 2;
+ 
+ 632 ià(
+ cڋxt
+  && (
+ ¬g
+ [
+ æp
+ ].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_EXPR
+ ) {
+ 
+ 633 
+ ¬g
+  =‡rg[
+ æp
+ ].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ;
+ 
+ 634 
+ æp
+  = 1;
+ 
+ 635 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_AND
+  ||‡rg->¬g_ty³ =ð
+ O_OR
+ )
+ 
+ 636 
+ mÜecÚ‹xt
+ ;
+ 
+ 638 ià((
+ cڋxt
+  & 3) == 3)
+ 
+ 641 ià(
+ ¬g
+ [
+ æp
+ ].
+ ¬g_æags
+  & (
+ AF_PRE
+ |
+ AF_POST
+ )) {
+ 
+ 642 
+ cmd
+ ->
+ c_æags
+  |ð
+ Ýt
+ ;
+ 
+ 643 ià(
+ acmd
+  && !
+ cmd
+ ->
+ ucmd
+ .acmd.
+ ac_ex´
+  && !(cmd->
+ c_æags
+  & 
+ CF_TERM
+ )
+ 
+ 644 && 
+ cmd
+ ->
+ c_ex´
+ ->
+ ¬g_ty³
+  =ð
+ O_ITEM
+ ) {
+ 
+ 645 
+ ¬g
+ [
+ æp
+ ].
+ ¬g_æags
+  &ð~
+ AF_POST
+ ;
+ 
+ 646 
+ ¬g
+ [
+ æp
+ ].
+ ¬g_æags
+  |ð
+ AF_PRE
+ ;
+ 
+ 651 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ITEM
+  ||‡rg->¬g_ty³ =ð
+ O_FLIP
+  ||
+ 
+ 652 
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_AND
+  ||‡rg->¬g_ty³ =ð
+ O_OR
+ ) {
+ 
+ 653 ià((
+ ¬g
+ [
+ æp
+ ].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_SINGLE
+ ) {
+ 
+ 654 
+ Ýt
+  = (
+ 	`¡r_Œue
+ (
+ ¬g
+ [
+ æp
+ ].
+ ¬g_±r
+ .
+ ¬g_¡r
+ è? 
+ CFT_TRUE
+  : 
+ CFT_FALSE
+ );
+ 
+ 655 
+ cmd
+ ->
+ c_shÜt
+  = 
+ 	`¡r_smake
+ (
+ ¬g
+ [
+ æp
+ ].
+ ¬g_±r
+ .
+ ¬g_¡r
+ );
+ 
+ 656 
+ l™”®
+ ;
+ 
+ 658 ià((
+ ¬g
+ [
+ æp
+ ].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_STAB
+  ||
+ 
+ 659 (
+ ¬g
+ [
+ æp
+ ].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_LVAL
+ ) {
+ 
+ 660 
+ cmd
+ ->
+ c_¡ab
+  = 
+ ¬g
+ [
+ æp
+ ].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 661 ià(!
+ cڋxt
+ )
+ 
+ 662 
+ ¬g
+ [
+ æp
+ ].
+ ¬g_±r
+ .
+ ¬g_¡ab
+  = 
+ NuΡab
+ ;
+ 
+ 663 
+ Ýt
+  = 
+ CFT_REG
+ ;
+ 
+ 664 
+ l™”®
+ :
+ 
+ 665 ià(!
+ cڋxt
+ ) {
+ 
+ 666 
+ 	`¬g_ä“
+ (
+ ¬g
+ );
+ 
+ 667 
+ cmd
+ ->
+ c_ex´
+  = 
+ Nuάg
+ ;
+ 
+ 669 ià(!(
+ cڋxt
+  & 1))
+ 
+ 670 
+ cmd
+ ->
+ c_æags
+  |ð
+ CF_EQSURE
+ ;
+ 
+ 671 ià(!(
+ cڋxt
+  & 2))
+ 
+ 672 
+ cmd
+ ->
+ c_æags
+  |ð
+ CF_NESURE
+ ;
+ 
+ 675 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_MATCH
+  ||‡rg->¬g_ty³ =ð
+ O_SUBST
+  ||
+ 
+ 676 
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_NMATCH
+  ||‡rg->¬g_ty³ =ð
+ O_NSUBST
+ ) {
+ 
+ 677 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  =ð
+ A_STAB
+  ||‡rg[1].¬g_ty³ =ð
+ A_LVAL
+ ) &&
+ 
+ 678 (
+ ¬g
+ [2].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_SPAT
+  &&
+ 
+ 679 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+ ->
+ ¥©_shÜt
+  ) {
+ 
+ 680 
+ cmd
+ ->
+ c_¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 681 
+ cmd
+ ->
+ c_shÜt
+  = 
+ 	`¡r_smake
+ (
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+ ->
+ ¥©_shÜt
+ );
+ 
+ 682 
+ cmd
+ ->
+ c_¦’
+  = 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+ ->
+ ¥©_¦’
+ ;
+ 
+ 683 ià(
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_ALL
+  &&
+ 
+ 684 !(
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_ONCE
+ ) &&
+ 
+ 685 (
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_MATCH
+  ||‡rg->¬g_ty³ =ð
+ O_NMATCH
+ ) )
+ 
+ 686 
+ su»
+  |ð
+ CF_EQSURE
+ ;
+ 
+ 688 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  !ð
+ O_SUBST
+ ) {
+ 
+ 689 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+ ->
+ ¥©_shÜt
+  = 
+ NuΡr
+ ;
+ 
+ 690 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+ ->
+ ¥©_¦’
+  = 0;
+ 
+ 692 
+ su»
+  |ð
+ CF_NESURE
+ ;
+ 
+ 693 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_NMATCH
+  ||‡rg->¬g_ty³ =ð
+ O_NSUBST
+ )
+ 
+ 694 
+ cmd
+ ->
+ c_æags
+  |ð
+ CF_FIRSTNEG
+ ;
+ 
+ 695 ià(
+ cڋxt
+  & 1) {
+ 
+ 696 ià(
+ cmd
+ ->
+ c_æags
+  & 
+ CF_FIRSTNEG
+ )
+ 
+ 697 
+ su»
+  &ð~
+ CF_NESURE
+ ;
+ 
+ 699 
+ su»
+  &ð~
+ CF_EQSURE
+ ;
+ 
+ 701 ià(
+ cڋxt
+  & 2) {
+ 
+ 702 ià(
+ cmd
+ ->
+ c_æags
+  & 
+ CF_FIRSTNEG
+ )
+ 
+ 703 
+ su»
+  &ð~
+ CF_EQSURE
+ ;
+ 
+ 705 
+ su»
+  &ð~
+ CF_NESURE
+ ;
+ 
+ 707 ià(
+ su»
+  & (
+ CF_EQSURE
+ |
+ CF_NESURE
+ )) {
+ 
+ 708 ià(
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_SCANFIRST
+ )
+ 
+ 709 
+ Ýt
+  = 
+ CFT_SCAN
+ ;
+ 
+ 711 
+ Ýt
+  = 
+ CFT_ANCHOR
+ ;
+ 
+ 712 ià(
+ su»
+  =ð(
+ CF_EQSURE
+ |
+ CF_NESURE
+ )
+ 
+ 713 && 
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_MATCH
+ 
+ 
+ 714 && 
+ cڋxt
+  & 4
+ 
+ 715 && 
+ æÜæÝ
+  == 1) {
+ 
+ 716 
+ 	`¥©_ä“
+ (
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+ );
+ 
+ 717 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+  = 
+ Nu봩
+ ;
+ 
+ 720 
+ cmd
+ ->
+ c_¥©
+  = 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+ ;
+ 
+ 721 
+ cmd
+ ->
+ c_æags
+  |ð
+ su»
+ ;
+ 
+ 725 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_SEQ
+  ||‡rg->¬g_ty³ =ð
+ O_SNE
+  ||
+ 
+ 726 
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_SLT
+  ||‡rg->¬g_ty³ =ð
+ O_SGT
+ ) {
+ 
+ 727 ià(
+ ¬g
+ [1].
+ ¬g_ty³
+  =ð
+ A_STAB
+  ||‡rg[1].¬g_ty³ =ð
+ A_LVAL
+ ) {
+ 
+ 728 ià(
+ ¬g
+ [2].
+ ¬g_ty³
+  =ð
+ A_SINGLE
+ ) {
+ 
+ 729 *
+ junk
+  = 
+ 	`¡r_g‘
+ (
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¡r
+ );
+ 
+ 731 
+ cmd
+ ->
+ c_¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 732 
+ cmd
+ ->
+ c_shÜt
+  = 
+ 	`¡r_smake
+ (
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¡r
+ );
+ 
+ 733 
+ cmd
+ ->
+ c_¦’
+  = cmd->
+ c_shÜt
+ ->
+ ¡r_cur
+ +1;
+ 
+ 734 
+ ¬g
+ ->
+ ¬g_ty³
+ ) {
+ 
+ 735 
+ O_SLT
+ : 
+ O_SGT
+ :
+ 
+ 736 
+ su»
+  |ð
+ CF_EQSURE
+ ;
+ 
+ 737 
+ cmd
+ ->
+ c_æags
+  |ð
+ CF_FIRSTNEG
+ ;
+ 
+ 739 
+ O_SNE
+ :
+ 
+ 740 
+ cmd
+ ->
+ c_æags
+  |ð
+ CF_FIRSTNEG
+ ;
+ 
+ 742 
+ O_SEQ
+ :
+ 
+ 743 
+ su»
+  |ð
+ CF_NESURE
+ |
+ CF_EQSURE
+ ;
+ 
+ 746 ià(
+ cڋxt
+  & 1) {
+ 
+ 747 ià(
+ cmd
+ ->
+ c_æags
+  & 
+ CF_FIRSTNEG
+ )
+ 
+ 748 
+ su»
+  &ð~
+ CF_NESURE
+ ;
+ 
+ 750 
+ su»
+  &ð~
+ CF_EQSURE
+ ;
+ 
+ 752 ià(
+ cڋxt
+  & 2) {
+ 
+ 753 ià(
+ cmd
+ ->
+ c_æags
+  & 
+ CF_FIRSTNEG
+ )
+ 
+ 754 
+ su»
+  &ð~
+ CF_EQSURE
+ ;
+ 
+ 756 
+ su»
+  &ð~
+ CF_NESURE
+ ;
+ 
+ 758 ià(
+ su»
+  & (
+ CF_EQSURE
+ |
+ CF_NESURE
+ )) {
+ 
+ 759 
+ Ýt
+  = 
+ CFT_STROP
+ ;
+ 
+ 760 
+ cmd
+ ->
+ c_æags
+  |ð
+ su»
+ ;
+ 
+ 765 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_EQ
+  ||‡rg->¬g_ty³ =ð
+ O_NE
+  ||
+ 
+ 766 
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_LE
+  ||‡rg->¬g_ty³ =ð
+ O_GE
+  ||
+ 
+ 767 
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_LT
+  ||‡rg->¬g_ty³ =ð
+ O_GT
+ ) {
+ 
+ 768 ià(
+ ¬g
+ [1].
+ ¬g_ty³
+  =ð
+ A_STAB
+  ||‡rg[1].¬g_ty³ =ð
+ A_LVAL
+ ) {
+ 
+ 769 ià(
+ ¬g
+ [2].
+ ¬g_ty³
+  =ð
+ A_SINGLE
+ ) {
+ 
+ 770 
+ cmd
+ ->
+ c_¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 771 ià(
+ dow¬n
+ ) {
+ 
+ 772 
+ STR
+  *
+ ¡r
+  = 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 774 ià((!
+ ¡r
+ ->
+ ¡r_nok
+  && !
+ 	`looks_like_numb”
+ (str)))
+ 
+ 775 
+ 	`w¬n
+ ("Possible use of == on string value");
+ 
+ 777 
+ cmd
+ ->
+ c_shÜt
+  = 
+ 	`¡r_nmake
+ (
+ 	`¡r_gnum
+ (
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¡r
+ ));
+ 
+ 778 
+ cmd
+ ->
+ c_¦’
+  = 
+ ¬g
+ ->
+ ¬g_ty³
+ ;
+ 
+ 779 
+ su»
+  |ð
+ CF_NESURE
+ |
+ CF_EQSURE
+ ;
+ 
+ 780 ià(
+ cڋxt
+  & 1) {
+ 
+ 781 
+ su»
+  &ð~
+ CF_EQSURE
+ ;
+ 
+ 783 ià(
+ cڋxt
+  & 2) {
+ 
+ 784 
+ su»
+  &ð~
+ CF_NESURE
+ ;
+ 
+ 786 ià(
+ su»
+  & (
+ CF_EQSURE
+ |
+ CF_NESURE
+ )) {
+ 
+ 787 
+ Ýt
+  = 
+ CFT_NUMOP
+ ;
+ 
+ 788 
+ cmd
+ ->
+ c_æags
+  |ð
+ su»
+ ;
+ 
+ 793 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ASSIGN
+  &&
+ 
+ 794 (
+ ¬g
+ [1].
+ ¬g_ty³
+  =ð
+ A_STAB
+  ||‡rg[1].¬g_ty³ =ð
+ A_LVAL
+ ) &&
+ 
+ 795 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+  =ð
+ def¡ab
+  &&
+ 
+ 796 
+ ¬g
+ [2].
+ ¬g_ty³
+  =ð
+ A_EXPR
+  ) {
+ 
+ 797 
+ ¬g2
+  = 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ;
+ 
+ 798 ià(
+ ¬g2
+ ->
+ ¬g_ty³
+  =ð
+ O_ITEM
+  &&‡rg2[1].¬g_ty³ =ð
+ A_READ
+ ) {
+ 
+ 799 
+ Ýt
+  = 
+ CFT_GETS
+ ;
+ 
+ 800 
+ cmd
+ ->
+ c_¡ab
+  = 
+ ¬g2
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 801 ià(!(
+ 	`¡ab_io
+ (
+ ¬g2
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ )->
+ æags
+  & 
+ IOF_ARGV
+ )) {
+ 
+ 802 
+ 	`ä“_¬g
+ (
+ ¬g2
+ );
+ 
+ 803 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¬g
+  = 
+ Nuάg
+ ;
+ 
+ 804 
+ 	`ä“_¬g
+ (
+ ¬g
+ );
+ 
+ 805 
+ cmd
+ ->
+ c_ex´
+  = 
+ Nuάg
+ ;
+ 
+ 809 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_CHOP
+  &&
+ 
+ 810 (
+ ¬g
+ [1].
+ ¬g_ty³
+  =ð
+ A_STAB
+  ||‡rg[1].¬g_ty³ =ð
+ A_LVAL
+ ) ) {
+ 
+ 811 
+ Ýt
+  = 
+ CFT_CHOP
+ ;
+ 
+ 812 
+ cmd
+ ->
+ c_¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 813 
+ 	`ä“_¬g
+ (
+ ¬g
+ );
+ 
+ 814 
+ cmd
+ ->
+ c_ex´
+  = 
+ Nuάg
+ ;
+ 
+ 816 ià(
+ cڋxt
+  & 4)
+ 
+ 817 
+ Ýt
+  |ð
+ CF_FLIP
+ ;
+ 
+ 818 
+ cmd
+ ->
+ c_æags
+  |ð
+ Ýt
+ ;
+ 
+ 820 ià(
+ cmd
+ ->
+ c_æags
+  & 
+ CF_FLIP
+ ) {
+ 
+ 821 ià(
+ æÜæÝ
+  == 1) {
+ 
+ 822 
+ ¬g
+  = 
+ cmd
+ ->
+ c_ex´
+ ;
+ 
+ 823 
+ 	`New
+ (110,
+ ¬g
+ [3].
+ ¬g_±r
+ .
+ ¬g_cmd
+ , 1, 
+ CMD
+ );
+ 
+ 824 
+ 	`CÝy
+ (
+ cmd
+ , 
+ ¬g
+ [3].
+ ¬g_±r
+ .
+ ¬g_cmd
+ , 1, 
+ CMD
+ );
+ 
+ 825 
+ 	`New
+ (111,
+ ¬g
+ [4].
+ ¬g_±r
+ .
+ ¬g_cmd
+ ,1,
+ CMD
+ );
+ 
+ 826 
+ 	`CÝy
+ (
+ cmd
+ , 
+ ¬g
+ [4].
+ ¬g_±r
+ .
+ ¬g_cmd
+ , 1, 
+ CMD
+ );
+ 
+ 827 
+ 	`Ýt_¬g
+ (
+ ¬g
+ [4].
+ ¬g_±r
+ .
+ ¬g_cmd
+ ,2,
+ acmd
+ );
+ 
+ 828 
+ ¬g
+ ->
+ ¬g_Ën
+  = 2;
+ 
+ 831 ià((
+ Ýt
+  & 
+ CF_OPTIMIZE
+ è=ð
+ CFT_EVAL
+ )
+ 
+ 832 
+ cmd
+ ->
+ c_æags
+  = (cmd->c_æag & ~
+ CF_OPTIMIZE
+ è| 
+ CFT_UNFLIP
+ ;
+ 
+ 835 
+ 	}
+ }
+ 
+ 837 
+ CMD
+  *
+ 
+ 838 
+ 	$add_Ïb–
+ (
+ lbl
+ ,
+ cmd
+ )
+ 
+ 839 *
+ lbl
+ ;
+ 
+ 840 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 842 ià(
+ cmd
+ )
+ 
+ 843 
+ cmd
+ ->
+ c_Ïb–
+  = 
+ lbl
+ ;
+ 
+ 844  
+ cmd
+ ;
+ 
+ 845 
+ 	}
+ }
+ 
+ 847 
+ CMD
+  *
+ 
+ 848 
+ 	$addcÚd
+ (
+ cmd
+ , 
+ ¬g
+ )
+ 
+ 849 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 850 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 852 
+ cmd
+ ->
+ c_ex´
+  = 
+ ¬g
+ ;
+ 
+ 853 
+ cmd
+ ->
+ c_æags
+  |ð
+ CF_COND
+ ;
+ 
+ 854  
+ cmd
+ ;
+ 
+ 855 
+ 	}
+ }
+ 
+ 857 
+ CMD
+  *
+ 
+ 858 
+ 	$addloÝ
+ (
+ cmd
+ , 
+ ¬g
+ )
+ 
+ 859 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 860 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 862 
+ 	`whže_io
+ ();
+ 
+ 864 
+ cmd
+ ->
+ c_ex´
+  = 
+ ¬g
+ ;
+ 
+ 865 
+ cmd
+ ->
+ c_æags
+  |ð
+ CF_COND
+ |
+ CF_LOOP
+ ;
+ 
+ 867 ià(!(
+ cmd
+ ->
+ c_æags
+  & 
+ CF_INVERT
+ ))
+ 
+ 868 
+ 	`whže_io
+ (
+ cmd
+ );
+ 
+ 870 ià(
+ cmd
+ ->
+ c_ty³
+  =ð
+ C_BLOCK
+ )
+ 
+ 871 
+ cmd
+ ->
+ c_æags
+  &ð~
+ CF_COND
+ ;
+ 
+ 873 
+ ¬g
+  = 
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ ;
+ 
+ 874 ià(
+ ¬g
+  &&‡rg->
+ ¬g_ty³
+  =ð
+ O_ITEM
+  &&‡rg[1].¬g_ty³ =ð
+ A_CMD
+ )
+ 
+ 875 
+ cmd
+ ->
+ c_æags
+  &ð~
+ CF_COND
+ ;
+ 
+ 876 ià(
+ ¬g
+  && (¬g->
+ ¬g_æags
+  & 
+ AF_DEPR
+ ) &&
+ 
+ 877 (
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_SUBR
+  ||‡rg->¬g_ty³ =ð
+ O_DBSUBR
+ ) )
+ 
+ 878 
+ cmd
+ ->
+ c_æags
+  &ð~
+ CF_COND
+ ;
+ 
+ 880  
+ cmd
+ ;
+ 
+ 881 
+ 	}
+ }
+ 
+ 883 
+ CMD
+  *
+ 
+ 884 
+ 	$šv”t
+ (
+ cmd
+ )
+ 
+ 885 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 887 
+ CMD
+  *
+ rg
+  = 
+ cmd
+ ;
+ 
+ 888 ià(
+ rg
+ ->
+ c_h—d
+ )
+ 
+ 889 
+ rg
+  =¬g->
+ c_h—d
+ ;
+ 
+ 890 ià(
+ rg
+ ->
+ c_æags
+  & 
+ CF_DBSUB
+ )
+ 
+ 891 
+ rg
+  =¬g->
+ c_Ãxt
+ ;
+ 
+ 892 
+ rg
+ ->
+ c_æags
+  ^ð
+ CF_INVERT
+ ;
+ 
+ 893  
+ cmd
+ ;
+ 
+ 894 
+ 	}
+ }
+ 
+ 896 
+ 	$yy”rÜ
+ (
+ s
+ )
+ 
+ 897 *
+ s
+ ;
+ 
+ 899 
+ tmpbuf
+ [258];
+ 
+ 900 
+ tmp2buf
+ [258];
+ 
+ 901 *
+ Šame
+  = 
+ tmpbuf
+ ;
+ 
+ 903 ià(
+ buåŒ
+  > 
+ ÞdÞdbuåŒ
+  && bufptr - oldoldbufptr < 200 &&
+ 
+ 904 
+ ÞdÞdbuåŒ
+  !ð
+ ÞdbuåŒ
+  && oldbuåŒ !ð
+ buåŒ
+ ) {
+ 
+ 905 
+ 	`is¥aû
+ (*
+ ÞdÞdbuåŒ
+ ))
+ 
+ 906 
+ ÞdÞdbuåŒ
+ ++;
+ 
+ 907 
+ 	`¡ºýy
+ (
+ tmp2buf
+ , 
+ ÞdÞdbuåŒ
+ , 
+ buåŒ
+  - oldoldbufptr);
+ 
+ 908 
+ tmp2buf
+ [
+ buåŒ
+  - 
+ ÞdÞdbuåŒ
+ ] = '\0';
+ 
+ 909 
+ 	`¥rštf
+ (
+ Šame
+ ,"Ãxˆ2ok’ \"%s\"",
+ tmp2buf
+ );
+ 
+ 911 ià(
+ buåŒ
+  > 
+ ÞdbuåŒ
+  && bufptr - oldbufptr < 200 &&
+ 
+ 912 
+ ÞdbuåŒ
+  !ð
+ buåŒ
+ ) {
+ 
+ 913 
+ 	`is¥aû
+ (*
+ ÞdbuåŒ
+ ))
+ 
+ 914 
+ ÞdbuåŒ
+ ++;
+ 
+ 915 
+ 	`¡ºýy
+ (
+ tmp2buf
+ , 
+ ÞdbuåŒ
+ , 
+ buåŒ
+  - oldbufptr);
+ 
+ 916 
+ tmp2buf
+ [
+ buåŒ
+  - 
+ ÞdbuåŒ
+ ] = '\0';
+ 
+ 917 
+ 	`¥rštf
+ (
+ Šame
+ ,"Ãxˆtok’ \"%s\"",
+ tmp2buf
+ );
+ 
+ 919 ià(
+ yych¬
+  > 256)
+ 
+ 920 
+ Šame
+  = "nextoken ???";
+ 
+ 921 ià(!
+ yych¬
+ )
+ 
+ 922 ()
+ 	`¡rýy
+ (
+ Šame
+ ,"at EOF");
+ 
+ 923 ià(
+ yych¬
+  < 32)
+ 
+ 924 ()
+ 	`¥rštf
+ (
+ Šame
+ ,"Ãxˆch¬ ^%c",
+ yych¬
+ +64);
+ 
+ 925 ià(
+ yych¬
+  == 127)
+ 
+ 926 ()
+ 	`¡rýy
+ (
+ Šame
+ ,"at EOF");
+ 
+ 928 ()
+ 	`¥rštf
+ (
+ Šame
+ ,"Ãxˆch¬ %c",
+ yych¬
+ );
+ 
+ 929 ()
+ 	`¥rštf
+ (
+ buf
+ , "%s in file %s‡t†ine %d, %s\n",
+ 
+ 930 
+ s
+ ,
+ 	`¡ab_v®
+ (
+ curcmd
+ ->
+ c_fže¡ab
+ )->
+ ¡r_±r
+ ,curcmd->
+ c_lše
+ ,
+ Šame
+ );
+ 
+ 931 ià(
+ curcmd
+ ->
+ c_lše
+  =ð
+ muÉi_’d
+  && 
+ muÉi_¡¬t
+  < multi_end)
+ 
+ 932 
+ 	`¥rštf
+ (
+ buf
+ +
+ 	`¡¾’
+ (buf),
+ 
+ 934 
+ muÉi_Ý’
+ ,
+ muÉi_þo£
+ ,
+ muÉi_¡¬t
+ );
+ 
+ 935 ià(
+ š_ev®
+ )
+ 
+ 936 
+ 	`¡r_ÿt
+ (
+ 	`¡ab_v®
+ (
+ 	`¡ab’t
+ ("@",
+ TRUE
+ )),
+ buf
+ );
+ 
+ 938 
+ 	`åuts
+ (
+ buf
+ ,
+ ¡d”r
+ );
+ 
+ 939 ià(++
+ ”rÜ_couÁ
+  >= 10)
+ 
+ 940 
+ 	`çl
+ ("%s hasoo manyƒrrors.\n",
+ 
+ 941 
+ 	`¡ab_v®
+ (
+ curcmd
+ ->
+ c_fže¡ab
+ )->
+ ¡r_±r
+ );
+ 
+ 942 
+ 	}
+ }
+ 
+ 945 
+ 	$whže_io
+ (
+ cmd
+ )
+ 
+ 946 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 948 
+ ARG
+  *
+ ¬g
+  = 
+ cmd
+ ->
+ c_ex´
+ ;
+ 
+ 949 
+ STAB
+  *
+ asgn¡ab
+ ;
+ 
+ 953 ià(
+ ¬g
+  &&‡rg->
+ ¬g_ty³
+  =ð
+ O_ITEM
+  &&‡rg[1].¬g_ty³ =ð
+ A_READ
+ ) {
+ 
+ 954 
+ cmd
+ ->
+ c_æags
+  &ð~
+ CF_OPTIMIZE
+ ;
+ 
+ 955 
+ cmd
+ ->
+ c_æags
+  |ð
+ CFT_GETS
+ ;
+ 
+ 956 
+ cmd
+ ->
+ c_¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 957 ià(
+ 	`¡ab_io
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ )->
+ æags
+  & 
+ IOF_ARGV
+ ) {
+ 
+ 958 
+ cmd
+ ->
+ c_ex´
+  = 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ O_ASSIGN
+ , 2,
+ 
+ 959 
+ 	`¡ab2¬g
+ (
+ A_LVAL
+ ,
+ def¡ab
+ ), 
+ ¬g
+ , 
+ Nuάg
+ ));
+ 
+ 962 
+ 	`ä“_¬g
+ (
+ ¬g
+ );
+ 
+ 963 
+ cmd
+ ->
+ c_ex´
+  = 
+ Nuάg
+ ;
+ 
+ 966 ià(
+ ¬g
+  &&‡rg->
+ ¬g_ty³
+  =ð
+ O_ITEM
+  &&‡rg[1].¬g_ty³ =ð
+ A_INDREAD
+ ) {
+ 
+ 967 
+ cmd
+ ->
+ c_æags
+  &ð~
+ CF_OPTIMIZE
+ ;
+ 
+ 968 
+ cmd
+ ->
+ c_æags
+  |ð
+ CFT_INDGETS
+ ;
+ 
+ 969 
+ cmd
+ ->
+ c_¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 970 
+ 	`ä“_¬g
+ (
+ ¬g
+ );
+ 
+ 971 
+ cmd
+ ->
+ c_ex´
+  = 
+ Nuάg
+ ;
+ 
+ 973 ià(
+ ¬g
+  &&‡rg->
+ ¬g_ty³
+  =ð
+ O_ITEM
+  &&‡rg[1].¬g_ty³ =ð
+ A_GLOB
+ ) {
+ 
+ 974 ià((
+ cmd
+ ->
+ c_æags
+  & 
+ CF_OPTIMIZE
+ è=ð
+ CFT_ARRAY
+ )
+ 
+ 975 
+ asgn¡ab
+  = 
+ cmd
+ ->
+ c_¡ab
+ ;
+ 
+ 977 
+ asgn¡ab
+  = 
+ def¡ab
+ ;
+ 
+ 978 
+ cmd
+ ->
+ c_ex´
+  = 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ O_ASSIGN
+ , 2,
+ 
+ 979 
+ 	`¡ab2¬g
+ (
+ A_LVAL
+ ,
+ asgn¡ab
+ ), 
+ ¬g
+ , 
+ Nuάg
+ ));
+ 
+ 980 
+ cmd
+ ->
+ c_æags
+  &ð~
+ CF_OPTIMIZE
+ ;
+ 
+ 982 
+ 	}
+ }
+ 
+ 984 
+ CMD
+  *
+ 
+ 985 
+ 	$wÝt
+ (
+ cmd
+ )
+ 
+ 986 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 988 
+ CMD
+  *
+ ž
+ ;
+ 
+ 989 
+ CMD
+  *
+ Ãwž
+ ;
+ 
+ 990 
+ i
+ ;
+ 
+ 992 ià(
+ cmd
+ ->
+ c_ex´
+  && (cmd->
+ c_æags
+  & 
+ CF_OPTIMIZE
+ è=ð
+ CFT_FALSE
+ )
+ 
+ 993 
+ 	`Ýt_¬g
+ (
+ cmd
+ ,1, cmd->
+ c_ty³
+  =ð
+ C_EXPR
+ );
+ 
+ 995 
+ 	`whže_io
+ (
+ cmd
+ );
+ 
+ 999 
+ ž
+  = 
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ;
+ 
+ 1000 ià(
+ ž
+  =ð
+ NuÎcmd
+ )
+ 
+ 1001  
+ cmd
+ ;
+ 
+ 1002 
+ 	`New
+ (112,
+ Ãwž
+ , 1, 
+ CMD
+ );
+ 
+ 1005 ià(
+ ž
+ ->
+ c_ty³
+  =ð
+ C_EXPR
+  &&
+ 
+ 1006 
+ ž
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+  &&
+ 
+ 1007 
+ ž
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ ->
+ ¬g_ty³
+  =ð
+ O_NEXT
+  &&
+ 
+ 1008 (
+ ž
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ ->
+ ¬g_Ën
+  == 0 ||
+ 
+ 1009 (
+ cmd
+ ->
+ c_Ïb–
+  &&
+ 
+ 1010 
+ 	`¡rEQ
+ (
+ cmd
+ ->
+ c_Ïb–
+ ,
+ 
+ 1011 
+ ž
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡r
+ ->
+ ¡r_±r
+ ) )))
+ 
+ 1013 
+ 	`¬g_ä“
+ (
+ ž
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ );
+ 
+ 1014 
+ ž
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+  = 
+ Nuάg
+ ;
+ 
+ 1015 
+ ž
+ ->
+ c_ty³
+  = 
+ C_NEXT
+ ;
+ 
+ 1016 ià(
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+  !ð
+ NuÎcmd
+ )
+ 
+ 1017 
+ ž
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+  = 
+ cmd
+ ->ucmd.ccmd.cc_alt;
+ 
+ 1019 
+ ž
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+  = 
+ Ãwž
+ ;
+ 
+ 1020 
+ ž
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+  = 
+ NuÎcmd
+ ;
+ 
+ 1022 ià(
+ ž
+ ->
+ c_ty³
+  =ð
+ C_IF
+  && !ž->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+ ) {
+ 
+ 1023 ià(
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+  !ð
+ NuÎcmd
+ )
+ 
+ 1024 
+ ž
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+  = 
+ cmd
+ ->ucmd.ccmd.cc_alt;
+ 
+ 1026 
+ ž
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+  = 
+ Ãwž
+ ;
+ 
+ 1028 ià(
+ ž
+ ->
+ c_ty³
+  =ð
+ C_CSWITCH
+  ||až->c_ty³ =ð
+ C_NSWITCH
+ ) {
+ 
+ 1029 ià(
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+  !ð
+ NuÎcmd
+ ) {
+ 
+ 1030 
+ i
+  = 
+ ž
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_max
+ ; i >= 0; i--)
+ 
+ 1031 ià(!
+ ž
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_Ãxt
+ [
+ i
+ ])
+ 
+ 1032 
+ ž
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_Ãxt
+ [
+ i
+ ] = 
+ cmd
+ ->ucmd.
+ ccmd
+ .
+ cc_®t
+ ;
+ 
+ 1035 
+ i
+  = 
+ ž
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_max
+ ; i >= 0; i--)
+ 
+ 1036 ià(!
+ ž
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_Ãxt
+ [
+ i
+ ])
+ 
+ 1037 
+ ž
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_Ãxt
+ [
+ i
+ ] = 
+ Ãwž
+ ;
+ 
+ 1041 ià(!
+ ž
+ ->
+ c_Ãxt
+ )
+ 
+ 1043 
+ ž
+  =až->
+ c_Ãxt
+ ;
+ 
+ 1048 ià(
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+  !ð
+ NuÎcmd
+ ) {
+ 
+ 1049 
+ ž
+ ->
+ c_Ãxt
+  = 
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+ ;
+ 
+ 1050 
+ ž
+  =až->
+ c_Ãxt
+ ;
+ 
+ 1053 ià(
+ ž
+ ->
+ c_ty³
+  =ð
+ C_EXPR
+  &&
+ 
+ 1054 
+ ž
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+  &&
+ 
+ 1055 
+ ž
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ ->
+ ¬g_ty³
+  =ð
+ O_NEXT
+  &&
+ 
+ 1056 (
+ ž
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ ->
+ ¬g_Ën
+  == 0 ||
+ 
+ 1057 (
+ cmd
+ ->
+ c_Ïb–
+  &&
+ 
+ 1058 
+ 	`¡rEQ
+ (
+ cmd
+ ->
+ c_Ïb–
+ ,
+ 
+ 1059 
+ ž
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡r
+ ->
+ ¡r_±r
+ ) )))
+ 
+ 1061 
+ 	`¬g_ä“
+ (
+ ž
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ );
+ 
+ 1062 
+ ž
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+  = 
+ Nuάg
+ ;
+ 
+ 1063 
+ ž
+ ->
+ c_ty³
+  = 
+ C_NEXT
+ ;
+ 
+ 1064 
+ ž
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+  = 
+ Ãwž
+ ;
+ 
+ 1065 
+ ž
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+  = 
+ NuÎcmd
+ ;
+ 
+ 1067 ià(
+ ž
+ ->
+ c_ty³
+  =ð
+ C_IF
+  && !ž->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+ ) {
+ 
+ 1068 
+ ž
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+  = 
+ Ãwž
+ ;
+ 
+ 1070 ià(
+ ž
+ ->
+ c_ty³
+  =ð
+ C_CSWITCH
+  ||až->c_ty³ =ð
+ C_NSWITCH
+ ) {
+ 
+ 1071 
+ i
+  = 
+ ž
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_max
+ ; i >= 0; i--)
+ 
+ 1072 ià(!
+ ž
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_Ãxt
+ [
+ i
+ ])
+ 
+ 1073 
+ ž
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_Ãxt
+ [
+ i
+ ] = 
+ Ãwž
+ ;
+ 
+ 1076 ià(!
+ ž
+ ->
+ c_Ãxt
+ )
+ 
+ 1078 
+ ž
+  =až->
+ c_Ãxt
+ ;
+ 
+ 1080  ; 
+ ž
+ ->
+ c_Ãxt
+ ;ail =ail->c_next) ;
+ 
+ 1089 
+ ž
+ ->
+ c_Ãxt
+  = 
+ Ãwž
+ ;
+ 
+ 1090 
+ ž
+  = 
+ Ãwž
+ ;
+ 
+ 1091 ià(!
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+ )
+ 
+ 1092 
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+  = 
+ ž
+ ;
+ 
+ 1094 #iâdeà
+ lšt
+ 
+ 
+ 1095 ()
+ 	`bcÝy
+ ((*)
+ cmd
+ , (*)
+ ž
+ , (
+ CMD
+ ));
+ 
+ 1097 
+ ž
+ ->
+ c_ty³
+  = 
+ C_EXPR
+ ;
+ 
+ 1098 
+ ž
+ ->
+ c_æags
+  ^ð
+ CF_INVERT
+ ;
+ 
+ 1099 
+ ž
+ ->
+ c_Ãxt
+  =až->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ;
+ 
+ 1100 
+ ž
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+  = 
+ 	`make_Ý
+ (
+ O_LAST
+ ,0,
+ Nuάg
+ ,Nullarg,Nullarg);
+ 
+ 1101 
+ ž
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_¡ab
+  = 
+ NuΡab
+ ;
+ 
+ 1102  
+ cmd
+ ;
+ 
+ 1103 
+ 	}
+ }
+ 
+ 1105 
+ CMD
+  *
+ 
+ 1106 
+ 	$ov”
+ (
+ —ch¡ab
+ ,
+ cmd
+ )
+ 
+ 1107 
+ STAB
+  *
+ —ch¡ab
+ ;
+ 
+ 1108 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 1112 
+ cmd
+ ->
+ c_æags
+  &ð~
+ CF_OPTIMIZE
+ ;
+ 
+ 1113 
+ cmd
+ ->
+ c_æags
+  |ð
+ CFT_ARRAY
+ ;
+ 
+ 1114 
+ cmd
+ ->
+ c_¡ab
+  = 
+ —ch¡ab
+ ;
+ 
+ 1115 
+ cmd
+ ->
+ c_shÜt
+  = 
+ 	`¡r_Ãw
+ (0);
+ 
+ 1116 
+ cmd
+ ->
+ c_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+  = -1;
+ 
+ 1118  
+ cmd
+ ;
+ 
+ 1119 
+ 	}
+ }
+ 
+ 1121 
+ 	$cmd_ä“
+ (
+ cmd
+ )
+ 
+ 1122 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 1124 
+ CMD
+  *
+ toä“
+ ;
+ 
+ 1125 
+ CMD
+  *
+ h—d
+  = 
+ cmd
+ ;
+ 
+ 1127 
+ cmd
+ ) {
+ 
+ 1128 ià(
+ cmd
+ ->
+ c_ty³
+  !ð
+ C_WHILE
+ ) {
+ 
+ 1129 ià(
+ cmd
+ ->
+ c_Ïb–
+ ) {
+ 
+ 1130 
+ 	`Saãä“
+ (
+ cmd
+ ->
+ c_Ïb–
+ );
+ 
+ 1131 
+ cmd
+ ->
+ c_Ïb–
+  = 
+ NuÎch
+ ;
+ 
+ 1133 ià(
+ cmd
+ ->
+ c_shÜt
+ ) {
+ 
+ 1134 
+ 	`¡r_ä“
+ (
+ cmd
+ ->
+ c_shÜt
+ );
+ 
+ 1135 
+ cmd
+ ->
+ c_shÜt
+  = 
+ NuΡr
+ ;
+ 
+ 1137 ià(
+ cmd
+ ->
+ c_ex´
+ ) {
+ 
+ 1138 
+ 	`¬g_ä“
+ (
+ cmd
+ ->
+ c_ex´
+ );
+ 
+ 1139 
+ cmd
+ ->
+ c_ex´
+  = 
+ Nuάg
+ ;
+ 
+ 1142 
+ cmd
+ ->
+ c_ty³
+ ) {
+ 
+ 1143 
+ C_WHILE
+ :
+ 
+ 1144 
+ C_BLOCK
+ :
+ 
+ 1145 
+ C_ELSE
+ :
+ 
+ 1146 
+ C_IF
+ :
+ 
+ 1147 ià(
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ) {
+ 
+ 1148 
+ 	`cmd_ä“
+ (
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ );
+ 
+ 1149 
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+  = 
+ NuÎcmd
+ ;
+ 
+ 1152 
+ C_EXPR
+ :
+ 
+ 1153 ià(
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ ) {
+ 
+ 1154 
+ 	`¬g_ä“
+ (
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ );
+ 
+ 1155 
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+  = 
+ Nuάg
+ ;
+ 
+ 1159 
+ toä“
+  = 
+ cmd
+ ;
+ 
+ 1160 
+ cmd
+  = cmd->
+ c_Ãxt
+ ;
+ 
+ 1161 ià(
+ toä“
+  !ð
+ h—d
+ )
+ 
+ 1162 
+ 	`Saãä“
+ (
+ toä“
+ );
+ 
+ 1163 ià(
+ cmd
+  && cmd =ð
+ h—d
+ )
+ 
+ 1166 
+ 	`Saãä“
+ (
+ h—d
+ );
+ 
+ 1167 
+ 	}
+ }
+ 
+ 1169 
+ 	$¬g_ä“
+ (
+ ¬g
+ )
+ 
+ 1170 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 1172 
+ i
+ ;
+ 
+ 1174 
+ i
+  = 1; i <ð
+ ¬g
+ ->
+ ¬g_Ën
+ ; i++) {
+ 
+ 1175 
+ ¬g
+ [
+ i
+ ].
+ ¬g_ty³
+  & 
+ A_MASK
+ ) {
+ 
+ 1176 
+ A_NULL
+ :
+ 
+ 1177 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_TRANS
+ ) {
+ 
+ 1178 
+ 	`Saãä“
+ (
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_cv®
+ );
+ 
+ 1179 
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_cv®
+  = 
+ NuÎch
+ ;
+ 
+ 1182 
+ A_LEXPR
+ :
+ 
+ 1183 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_AASSIGN
+  &&
+ 
+ 1184 
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_LARRAY
+ ) {
+ 
+ 1185 *
+ Çme
+  =
+ 
+ 1186 
+ 	`¡ab_Çme
+ (
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¬g
+ [1].¬g_±r.
+ ¬g_¡ab
+ );
+ 
+ 1188 ià(
+ 	`¡ºEQ
+ ("_GEN_",
+ Çme
+ , 5))
+ 
+ 1189 
+ 	`hd–‘e
+ (
+ def¡ash
+ ,
+ Çme
+ ,
+ 	`¡¾’
+ (name));
+ 
+ 1192 
+ A_EXPR
+ :
+ 
+ 1193 
+ 	`¬g_ä“
+ (
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¬g
+ );
+ 
+ 1194 
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¬g
+  = 
+ Nuάg
+ ;
+ 
+ 1196 
+ A_CMD
+ :
+ 
+ 1197 
+ 	`cmd_ä“
+ (
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_cmd
+ );
+ 
+ 1198 
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_cmd
+  = 
+ NuÎcmd
+ ;
+ 
+ 1200 
+ A_WORD
+ :
+ 
+ 1201 
+ A_STAB
+ :
+ 
+ 1202 
+ A_LVAL
+ :
+ 
+ 1203 
+ A_READ
+ :
+ 
+ 1204 
+ A_GLOB
+ :
+ 
+ 1205 
+ A_ARYLEN
+ :
+ 
+ 1206 
+ A_LARYLEN
+ :
+ 
+ 1207 
+ A_ARYSTAB
+ :
+ 
+ 1208 
+ A_LARYSTAB
+ :
+ 
+ 1210 
+ A_SINGLE
+ :
+ 
+ 1211 
+ A_DOUBLE
+ :
+ 
+ 1212 
+ A_BACKTICK
+ :
+ 
+ 1213 
+ 	`¡r_ä“
+ (
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¡r
+ );
+ 
+ 1214 
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¡r
+  = 
+ NuΡr
+ ;
+ 
+ 1216 
+ A_SPAT
+ :
+ 
+ 1217 
+ 	`¥©_ä“
+ (
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¥©
+ );
+ 
+ 1218 
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¥©
+  = 
+ Nu봩
+ ;
+ 
+ 1222 
+ 	`ä“_¬g
+ (
+ ¬g
+ );
+ 
+ 1223 
+ 	}
+ }
+ 
+ 1225 
+ 	$¥©_ä“
+ (
+ ¥©
+ )
+ 
+ 1226 
+ SPAT
+  *
+ ¥©
+ ;
+ 
+ 1228 
+ SPAT
+  *
+ ¥
+ ;
+ 
+ 1229 
+ HENT
+  *
+ ’Œy
+ ;
+ 
+ 1231 ià(
+ ¥©
+ ->
+ ¥©_ruÁime
+ ) {
+ 
+ 1232 
+ 	`¬g_ä“
+ (
+ ¥©
+ ->
+ ¥©_ruÁime
+ );
+ 
+ 1233 
+ ¥©
+ ->
+ ¥©_ruÁime
+  = 
+ Nuάg
+ ;
+ 
+ 1235 ià(
+ ¥©
+ ->
+ ¥©_»¶
+ ) {
+ 
+ 1236 
+ 	`¬g_ä“
+ (
+ ¥©
+ ->
+ ¥©_»¶
+ );
+ 
+ 1237 
+ ¥©
+ ->
+ ¥©_»¶
+  = 
+ Nuάg
+ ;
+ 
+ 1239 ià(
+ ¥©
+ ->
+ ¥©_shÜt
+ ) {
+ 
+ 1240 
+ 	`¡r_ä“
+ (
+ ¥©
+ ->
+ ¥©_shÜt
+ );
+ 
+ 1241 
+ ¥©
+ ->
+ ¥©_shÜt
+  = 
+ NuΡr
+ ;
+ 
+ 1243 ià(
+ ¥©
+ ->
+ ¥©_»gexp
+ ) {
+ 
+ 1244 
+ 	`»gä“
+ (
+ ¥©
+ ->
+ ¥©_»gexp
+ );
+ 
+ 1245 
+ ¥©
+ ->
+ ¥©_»gexp
+  = 
+ 	`NuÎ
+ (
+ REGEXP
+ *);
+ 
+ 1250 
+ ’Œy
+  = 
+ def¡ash
+ ->
+ tbl_¬¿y
+ ['_'];ƒÁry;ƒÁry =ƒÁry->
+ h’t_Ãxt
+ ) {
+ 
+ 1251 
+ HASH
+  *
+ ¡ash
+ ;
+ 
+ 1252 
+ STAB
+  *
+ ¡ab
+  = (STAB*)
+ ’Œy
+ ->
+ h’t_v®
+ ;
+ 
+ 1254 ià(!
+ ¡ab
+ )
+ 
+ 1256 
+ ¡ash
+  = 
+ 	`¡ab_hash
+ (
+ ¡ab
+ );
+ 
+ 1257 ià(!
+ ¡ash
+  || ssh->
+ tbl_¥©roÙ
+  =ð
+ 	`NuÎ
+ (
+ SPAT
+ *))
+ 
+ 1259 ià(
+ ¡ash
+ ->
+ tbl_¥©roÙ
+  =ð
+ ¥©
+ )
+ 
+ 1260 
+ ¡ash
+ ->
+ tbl_¥©roÙ
+  = 
+ ¥©
+ ->
+ ¥©_Ãxt
+ ;
+ 
+ 1262 
+ ¥
+  = 
+ ¡ash
+ ->
+ tbl_¥©roÙ
+ ;
+ 
+ 1263 
+ ¥
+  && sp->
+ ¥©_Ãxt
+  !ð
+ ¥©
+ ;
+ 
+ 1264 
+ ¥
+  = sp->
+ ¥©_Ãxt
+ )
+ 
+ 1266 ià(
+ ¥
+ )
+ 
+ 1267 
+ ¥
+ ->
+ ¥©_Ãxt
+  = 
+ ¥©
+ ->spat_next;
+ 
+ 1270 
+ 	`Saãä“
+ (
+ ¥©
+ );
+ 
+ 1271 
+ 	}
+ }
+ 
+ 1278 
+ 	$cmd_to§ve
+ (
+ cmd
+ ,
+ wžl§ve
+ )
+ 
+ 1279 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 1280 
+ wžl§ve
+ ;
+ 
+ 1282 
+ CMD
+  *
+ h—d
+  = 
+ cmd
+ ;
+ 
+ 1283 
+ should§ve
+  = 
+ FALSE
+ ;
+ 
+ 1284 
+ tmp§ve
+ ;
+ 
+ 1285 
+ CMD
+  *
+ ϡcmd
+  = 
+ NuÎcmd
+ ;
+ 
+ 1287 
+ cmd
+ ) {
+ 
+ 1288 ià(
+ cmd
+ ->
+ c_ex´
+ )
+ 
+ 1289 
+ should§ve
+  |ð
+ 	`¬g_to§ve
+ (
+ cmd
+ ->
+ c_ex´
+ ,
+ wžl§ve
+ );
+ 
+ 1290 
+ cmd
+ ->
+ c_ty³
+ ) {
+ 
+ 1291 
+ C_WHILE
+ :
+ 
+ 1292 ià(
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ) {
+ 
+ 1293 
+ tmp§ve
+  = 
+ 	`cmd_to§ve
+ (
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ,
+ wžl§ve
+ );
+ 
+ 1298 ià(
+ tmp§ve
+  && (
+ cmd
+ ->
+ c_æags
+  & 
+ CF_OPTIMIZE
+ è=ð
+ CFT_ARRAY
+ ) {
+ 
+ 1299 ià(
+ ϡcmd
+  &&
+ 
+ 1300 
+ ϡcmd
+ ->
+ c_ty³
+  =ð
+ C_EXPR
+  &&
+ 
+ 1301 
+ ϡcmd
+ ->
+ c_ex´
+ ) {
+ 
+ 1302 
+ ARG
+  *
+ ¬g
+  = 
+ ϡcmd
+ ->
+ c_ex´
+ ;
+ 
+ 1304 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ASSIGN
+  &&
+ 
+ 1305 
+ ¬g
+ [1].
+ ¬g_ty³
+  =ð
+ A_LEXPR
+  &&
+ 
+ 1306 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_LARRAY
+  &&
+ 
+ 1307 
+ 	`¡ºEQ
+ ("_GEN_",
+ 
+ 1308 
+ 	`¡ab_Çme
+ (
+ 
+ 1309 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¬g
+ [1].¬g_±r.
+ ¬g_¡ab
+ ),
+ 
+ 1311 ()
+ 	`loÿlize
+ (
+ ¬g
+ );
+ 
+ 1317 ()
+ 	`­ush
+ (
+ to§ve
+ ,
+ cmd
+ ->
+ c_shÜt
+ );
+ 
+ 1319 
+ should§ve
+  |ð
+ tmp§ve
+ ;
+ 
+ 1322 
+ C_BLOCK
+ :
+ 
+ 1323 
+ C_ELSE
+ :
+ 
+ 1324 
+ C_IF
+ :
+ 
+ 1325 ià(
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ )
+ 
+ 1326 
+ should§ve
+  |ð
+ 	`cmd_to§ve
+ (
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ,
+ wžl§ve
+ );
+ 
+ 1328 
+ C_EXPR
+ :
+ 
+ 1329 ià(
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ )
+ 
+ 1330 
+ should§ve
+  |ð
+ 	`¬g_to§ve
+ (
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ ,
+ wžl§ve
+ );
+ 
+ 1333 
+ ϡcmd
+  = 
+ cmd
+ ;
+ 
+ 1334 
+ cmd
+  = cmd->
+ c_Ãxt
+ ;
+ 
+ 1335 ià(
+ cmd
+  && cmd =ð
+ h—d
+ )
+ 
+ 1338  
+ should§ve
+ ;
+ 
+ 1339 
+ 	}
+ }
+ 
+ 1342 
+ 	$¬g_to§ve
+ (
+ ¬g
+ ,
+ wžl§ve
+ )
+ 
+ 1343 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 1344 
+ wžl§ve
+ ;
+ 
+ 1346 
+ i
+ ;
+ 
+ 1347 
+ should§ve
+  = 
+ FALSE
+ ;
+ 
+ 1349 
+ i
+  = 
+ ¬g
+ ->
+ ¬g_Ën
+ ; i >= 1; i--) {
+ 
+ 1350 
+ ¬g
+ [
+ i
+ ].
+ ¬g_ty³
+  & 
+ A_MASK
+ ) {
+ 
+ 1351 
+ A_NULL
+ :
+ 
+ 1353 
+ A_LEXPR
+ :
+ 
+ 1354 
+ A_EXPR
+ :
+ 
+ 1355 
+ should§ve
+  |ð
+ 	`¬g_to§ve
+ (
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ,shouldsave);
+ 
+ 1357 
+ A_CMD
+ :
+ 
+ 1358 
+ should§ve
+  |ð
+ 	`cmd_to§ve
+ (
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_cmd
+ ,shouldsave);
+ 
+ 1360 
+ A_WORD
+ :
+ 
+ 1361 
+ A_STAB
+ :
+ 
+ 1362 
+ A_LVAL
+ :
+ 
+ 1363 
+ A_READ
+ :
+ 
+ 1364 
+ A_GLOB
+ :
+ 
+ 1365 
+ A_ARYLEN
+ :
+ 
+ 1366 
+ A_SINGLE
+ :
+ 
+ 1367 
+ A_DOUBLE
+ :
+ 
+ 1368 
+ A_BACKTICK
+ :
+ 
+ 1370 
+ A_SPAT
+ :
+ 
+ 1371 
+ should§ve
+  |ð
+ 	`¥©_to§ve
+ (
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¥©
+ );
+ 
+ 1375 
+ ¬g
+ ->
+ ¬g_ty³
+ ) {
+ 
+ 1376 
+ O_RETURN
+ :
+ 
+ 1377 
+ §w_»tuº
+  = 
+ TRUE
+ ;
+ 
+ 1379 
+ O_EVAL
+ :
+ 
+ 1380 
+ O_SUBR
+ :
+ 
+ 1381 
+ should§ve
+  = 
+ TRUE
+ ;
+ 
+ 1384 ià(
+ wžl§ve
+ )
+ 
+ 1385 ()
+ 	`­ush
+ (
+ to§ve
+ ,
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ );
+ 
+ 1386  
+ should§ve
+ ;
+ 
+ 1387 
+ 	}
+ }
+ 
+ 1390 
+ 	$¥©_to§ve
+ (
+ ¥©
+ )
+ 
+ 1391 
+ SPAT
+  *
+ ¥©
+ ;
+ 
+ 1393 
+ should§ve
+  = 
+ FALSE
+ ;
+ 
+ 1395 ià(
+ ¥©
+ ->
+ ¥©_ruÁime
+ )
+ 
+ 1396 
+ should§ve
+  |ð
+ 	`¬g_to§ve
+ (
+ ¥©
+ ->
+ ¥©_ruÁime
+ ,
+ FALSE
+ );
+ 
+ 1397 ià(
+ ¥©
+ ->
+ ¥©_»¶
+ ) {
+ 
+ 1398 
+ should§ve
+  |ð
+ 	`¬g_to§ve
+ (
+ ¥©
+ ->
+ ¥©_»¶
+ ,
+ FALSE
+ );
+ 
+ 1401  
+ should§ve
+ ;
+ 
+ 1402 
+ 	}
+ }
+ 
+ 	@consarg.c
+ 
+ 17 
+ 	~"EXTERN.h
+ "
+ 
+ 18 
+ 	~"³¾.h
+ "
+ 
+ 19 
+ nÙhšg_š_commÚ
+ ();
+ 
+ 20 
+ ¬g_commÚ
+ ();
+ 
+ 21 
+ ¥©_commÚ
+ ();
+ 
+ 23 
+ ARG
+  *
+ 
+ 24 
+ 	$make_¥l™
+ (
+ ¡ab
+ ,
+ ¬g
+ ,
+ lim¬g
+ )
+ 
+ 25 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 26 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 27 
+ ARG
+  *
+ lim¬g
+ ;
+ 
+ 29 
+ SPAT
+  *
+ ¥©
+ ;
+ 
+ 31 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  !ð
+ O_MATCH
+ ) {
+ 
+ 32 
+ 	`Newz
+ (201,
+ ¥©
+ ,1,
+ SPAT
+ );
+ 
+ 33 
+ ¥©
+ ->
+ ¥©_Ãxt
+  = 
+ cur¡ash
+ ->
+ tbl_¥©roÙ
+ ;
+ 
+ 34 
+ cur¡ash
+ ->
+ tbl_¥©roÙ
+  = 
+ ¥©
+ ;
+ 
+ 36 
+ ¥©
+ ->
+ ¥©_ruÁime
+  = 
+ ¬g
+ ;
+ 
+ 37 
+ ¬g
+  = 
+ 	`make_m©ch
+ (
+ O_MATCH
+ ,
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ def¡ab
+ ),
+ ¥©
+ );
+ 
+ 39 
+ 	`R’ew
+ (
+ ¬g
+ ,4,
+ ARG
+ );
+ 
+ 40 
+ ¬g
+ ->
+ ¬g_Ën
+  = 3;
+ 
+ 41 ià(
+ lim¬g
+ ) {
+ 
+ 42 ià(
+ lim¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ITEM
+ ) {
+ 
+ 43 
+ 	`CÝy
+ (
+ lim¬g
+ +1,
+ ¬g
+ +3,1,
+ ARG
+ );
+ 
+ 44 
+ lim¬g
+ [1].
+ ¬g_ty³
+  = 
+ A_NULL
+ ;
+ 
+ 45 
+ 	`¬g_ä“
+ (
+ lim¬g
+ );
+ 
+ 48 
+ ¬g
+ [3].
+ ¬g_æags
+  = 0;
+ 
+ 49 
+ ¬g
+ [3].
+ ¬g_ty³
+  = 
+ A_EXPR
+ ;
+ 
+ 50 
+ ¬g
+ [3].
+ ¬g_±r
+ .
+ ¬g_¬g
+  = 
+ lim¬g
+ ;
+ 
+ 54 
+ ¬g
+ [3].
+ ¬g_ty³
+  = 
+ A_NULL
+ ;
+ 
+ 55 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_SPLIT
+ ;
+ 
+ 56 
+ ¥©
+  = 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+ ;
+ 
+ 57 
+ ¥©
+ ->
+ ¥©_»¶
+  = 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ 	`¯dd
+ (
+ ¡ab
+ ));
+ 
+ 58 ià(
+ ¥©
+ ->
+ ¥©_shÜt
+ ) {
+ 
+ 59 ià(!((
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_SCANFIRST
+ ) &&
+ 
+ 60 (
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_ALL
+ ) )) {
+ 
+ 61 
+ 	`¡r_ä“
+ (
+ ¥©
+ ->
+ ¥©_shÜt
+ );
+ 
+ 62 
+ ¥©
+ ->
+ ¥©_shÜt
+  = 
+ NuΡr
+ ;
+ 
+ 65  
+ ¬g
+ ;
+ 
+ 66 
+ 	}
+ }
+ 
+ 68 
+ ARG
+  *
+ 
+ 69 
+ 	$mod_m©ch
+ (
+ ty³
+ ,
+ Ëá
+ ,
+ ·t
+ )
+ 
+ 70 
+ ARG
+  *
+ Ëá
+ ;
+ 
+ 71 
+ ARG
+  *
+ ·t
+ ;
+ 
+ 74 
+ SPAT
+  *
+ ¥©
+ ;
+ 
+ 75 
+ ARG
+  *
+ Ãw¬g
+ ;
+ 
+ 77 ià(!
+ ·t
+ )
+ 
+ 78  
+ Nuάg
+ ;
+ 
+ 80 ià((
+ ·t
+ ->
+ ¬g_ty³
+  =ð
+ O_MATCH
+  ||
+ 
+ 81 
+ ·t
+ ->
+ ¬g_ty³
+  =ð
+ O_SUBST
+  ||
+ 
+ 82 
+ ·t
+ ->
+ ¬g_ty³
+  =ð
+ O_TRANS
+  ||
+ 
+ 83 
+ ·t
+ ->
+ ¬g_ty³
+  =ð
+ O_SPLIT
+ 
+ 
+ 85 
+ ·t
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+  =ð
+ def¡ab
+  ) {
+ 
+ 86 
+ ·t
+ ->
+ ¬g_ty³
+ ) {
+ 
+ 87 
+ O_MATCH
+ :
+ 
+ 88 
+ Ãw¬g
+  = 
+ 	`make_Ý
+ (
+ ty³
+  =ð
+ O_MATCH
+  ? O_MATCH : 
+ O_NMATCH
+ ,
+ 
+ 89 
+ ·t
+ ->
+ ¬g_Ën
+ ,
+ 
+ 90 
+ Ëá
+ ,
+ Nuάg
+ ,Nullarg);
+ 
+ 92 
+ O_SUBST
+ :
+ 
+ 93 
+ Ãw¬g
+  = 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ ty³
+  =ð
+ O_MATCH
+  ? 
+ O_SUBST
+  : 
+ O_NSUBST
+ ,
+ 
+ 94 
+ ·t
+ ->
+ ¬g_Ën
+ ,
+ 
+ 95 
+ Ëá
+ ,
+ Nuάg
+ ,Nullarg));
+ 
+ 97 
+ O_TRANS
+ :
+ 
+ 98 
+ Ãw¬g
+  = 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ ty³
+  =ð
+ O_MATCH
+  ? 
+ O_TRANS
+  : 
+ O_NTRANS
+ ,
+ 
+ 99 
+ ·t
+ ->
+ ¬g_Ën
+ ,
+ 
+ 100 
+ Ëá
+ ,
+ Nuάg
+ ,Nullarg));
+ 
+ 102 
+ O_SPLIT
+ :
+ 
+ 103 
+ Ãw¬g
+  = 
+ 	`make_Ý
+ (
+ ty³
+  =ð
+ O_MATCH
+  ? 
+ O_SPLIT
+  : O_SPLIT,
+ 
+ 104 
+ ·t
+ ->
+ ¬g_Ën
+ ,
+ 
+ 105 
+ Ëá
+ ,
+ Nuάg
+ ,Nullarg);
+ 
+ 108 ià(
+ ·t
+ ->
+ ¬g_Ën
+  >= 2) {
+ 
+ 109 
+ Ãw¬g
+ [2].
+ ¬g_ty³
+  = 
+ ·t
+ [2].arg_type;
+ 
+ 110 
+ Ãw¬g
+ [2].
+ ¬g_±r
+  = 
+ ·t
+ [2].arg_ptr;
+ 
+ 111 
+ Ãw¬g
+ [2].
+ ¬g_Ën
+  = 
+ ·t
+ [2].arg_len;
+ 
+ 112 
+ Ãw¬g
+ [2].
+ ¬g_æags
+  = 
+ ·t
+ [2].arg_flags;
+ 
+ 113 ià(
+ ·t
+ ->
+ ¬g_Ën
+  >= 3) {
+ 
+ 114 
+ Ãw¬g
+ [3].
+ ¬g_ty³
+  = 
+ ·t
+ [3].arg_type;
+ 
+ 115 
+ Ãw¬g
+ [3].
+ ¬g_±r
+  = 
+ ·t
+ [3].arg_ptr;
+ 
+ 116 
+ Ãw¬g
+ [3].
+ ¬g_Ën
+  = 
+ ·t
+ [3].arg_len;
+ 
+ 117 
+ Ãw¬g
+ [3].
+ ¬g_æags
+  = 
+ ·t
+ [3].arg_flags;
+ 
+ 120 
+ 	`ä“_¬g
+ (
+ ·t
+ );
+ 
+ 123 
+ 	`Newz
+ (202,
+ ¥©
+ ,1,
+ SPAT
+ );
+ 
+ 124 
+ ¥©
+ ->
+ ¥©_Ãxt
+  = 
+ cur¡ash
+ ->
+ tbl_¥©roÙ
+ ;
+ 
+ 125 
+ cur¡ash
+ ->
+ tbl_¥©roÙ
+  = 
+ ¥©
+ ;
+ 
+ 127 
+ ¥©
+ ->
+ ¥©_ruÁime
+  = 
+ ·t
+ ;
+ 
+ 128 
+ Ãw¬g
+  = 
+ 	`make_Ý
+ (
+ ty³
+ ,2,
+ Ëá
+ ,
+ Nuάg
+ ,Nullarg);
+ 
+ 129 
+ Ãw¬g
+ [2].
+ ¬g_ty³
+  = 
+ A_SPAT
+  | 
+ A_DONT
+ ;
+ 
+ 130 
+ Ãw¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+  = 
+ ¥©
+ ;
+ 
+ 133  
+ Ãw¬g
+ ;
+ 
+ 134 
+ 	}
+ }
+ 
+ 136 
+ ARG
+  *
+ 
+ 137 
+ 	$make_Ý
+ (
+ ty³
+ ,
+ ÃwËn
+ ,
+ ¬g1
+ ,
+ ¬g2
+ ,
+ ¬g3
+ )
+ 
+ 138 
+ ty³
+ ;
+ 
+ 139 
+ ÃwËn
+ ;
+ 
+ 140 
+ ARG
+  *
+ ¬g1
+ ;
+ 
+ 141 
+ ARG
+  *
+ ¬g2
+ ;
+ 
+ 142 
+ ARG
+  *
+ ¬g3
+ ;
+ 
+ 144 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 145 
+ ARG
+  *
+ chld
+ ;
+ 
+ 146 
+ dßrg
+ ;
+ 
+ 147 
+ i
+ ;
+ 
+ 148 
+ ARG
+  *
+ ¬g4
+ ;
+ 
+ 149 
+ ARG
+  *
+ ¬g5
+ ;
+ 
+ 151 
+ ¬g
+  = 
+ 	`Ý_Ãw
+ (
+ ÃwËn
+ );
+ 
+ 152 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ ty³
+ ;
+ 
+ 153 ià(
+ chld
+  = 
+ ¬g1
+ ) {
+ 
+ 154 ià(
+ chld
+ ->
+ ¬g_ty³
+  =ð
+ O_ITEM
+  &&
+ 
+ 155 (
+ hoi¡abË
+ [ 
+ i
+  = (
+ chld
+ [1].
+ ¬g_ty³
+ &
+ A_MASK
+ )] || i =ð
+ A_LVAL
+  ||
+ 
+ 156 (
+ i
+  =ð
+ A_LEXPR
+  &&
+ 
+ 157 (
+ chld
+ [1].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_LIST
+  ||
+ 
+ 158 
+ chld
+ [1].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ARRAY
+  ||
+ 
+ 159 
+ chld
+ [1].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_HASH
+  ))))
+ 
+ 161 
+ ¬g
+ [1].
+ ¬g_ty³
+  = 
+ chld
+ [1].arg_type;
+ 
+ 162 
+ ¬g
+ [1].
+ ¬g_±r
+  = 
+ chld
+ [1].arg_ptr;
+ 
+ 163 
+ ¬g
+ [1].
+ ¬g_æags
+  |ð
+ chld
+ [1].arg_flags;
+ 
+ 164 
+ ¬g
+ [1].
+ ¬g_Ën
+  = 
+ chld
+ [1].arg_len;
+ 
+ 165 
+ 	`ä“_¬g
+ (
+ chld
+ );
+ 
+ 168 
+ ¬g
+ [1].
+ ¬g_ty³
+  = 
+ A_EXPR
+ ;
+ 
+ 169 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¬g
+  = 
+ chld
+ ;
+ 
+ 172 ià(
+ chld
+  = 
+ ¬g2
+ ) {
+ 
+ 173 ià(
+ chld
+ ->
+ ¬g_ty³
+  =ð
+ O_ITEM
+  &&
+ 
+ 174 (
+ hoi¡abË
+ [
+ chld
+ [1].
+ ¬g_ty³
+ &
+ A_MASK
+ ] ||
+ 
+ 175 (
+ ty³
+  =ð
+ O_ASSIGN
+  &&
+ 
+ 176 ((
+ chld
+ [1].
+ ¬g_ty³
+  =ð
+ A_READ
+  && !(
+ ¬g
+ [1].¬g_ty³ & 
+ A_DONT
+ ))
+ 
+ 178 (
+ chld
+ [1].
+ ¬g_ty³
+  =ð
+ A_INDREAD
+  && !(
+ ¬g
+ [1].¬g_ty³ & 
+ A_DONT
+ ))
+ 
+ 180 (
+ chld
+ [1].
+ ¬g_ty³
+  =ð
+ A_GLOB
+  && !(
+ ¬g
+ [1].¬g_ty³ & 
+ A_DONT
+ ))
+ 
+ 182 
+ ¬g
+ [2].
+ ¬g_ty³
+  = 
+ chld
+ [1].arg_type;
+ 
+ 183 
+ ¬g
+ [2].
+ ¬g_±r
+  = 
+ chld
+ [1].arg_ptr;
+ 
+ 184 
+ ¬g
+ [2].
+ ¬g_Ën
+  = 
+ chld
+ [1].arg_len;
+ 
+ 185 
+ 	`ä“_¬g
+ (
+ chld
+ );
+ 
+ 188 
+ ¬g
+ [2].
+ ¬g_ty³
+  = 
+ A_EXPR
+ ;
+ 
+ 189 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¬g
+  = 
+ chld
+ ;
+ 
+ 192 ià(
+ chld
+  = 
+ ¬g3
+ ) {
+ 
+ 193 ià(
+ chld
+ ->
+ ¬g_ty³
+  =ð
+ O_ITEM
+  && 
+ hoi¡abË
+ [chld[1].¬g_ty³&
+ A_MASK
+ ]) {
+ 
+ 194 
+ ¬g
+ [3].
+ ¬g_ty³
+  = 
+ chld
+ [1].arg_type;
+ 
+ 195 
+ ¬g
+ [3].
+ ¬g_±r
+  = 
+ chld
+ [1].arg_ptr;
+ 
+ 196 
+ ¬g
+ [3].
+ ¬g_Ën
+  = 
+ chld
+ [1].arg_len;
+ 
+ 197 
+ 	`ä“_¬g
+ (
+ chld
+ );
+ 
+ 200 
+ ¬g
+ [3].
+ ¬g_ty³
+  = 
+ A_EXPR
+ ;
+ 
+ 201 
+ ¬g
+ [3].
+ ¬g_±r
+ .
+ ¬g_¬g
+  = 
+ chld
+ ;
+ 
+ 204 ià(
+ ÃwËn
+  >ð4 && (
+ chld
+  = 
+ ¬g4
+ )) {
+ 
+ 205 ià(
+ chld
+ ->
+ ¬g_ty³
+  =ð
+ O_ITEM
+  && 
+ hoi¡abË
+ [chld[1].¬g_ty³&
+ A_MASK
+ ]) {
+ 
+ 206 
+ ¬g
+ [4].
+ ¬g_ty³
+  = 
+ chld
+ [1].arg_type;
+ 
+ 207 
+ ¬g
+ [4].
+ ¬g_±r
+  = 
+ chld
+ [1].arg_ptr;
+ 
+ 208 
+ ¬g
+ [4].
+ ¬g_Ën
+  = 
+ chld
+ [1].arg_len;
+ 
+ 209 
+ 	`ä“_¬g
+ (
+ chld
+ );
+ 
+ 212 
+ ¬g
+ [4].
+ ¬g_ty³
+  = 
+ A_EXPR
+ ;
+ 
+ 213 
+ ¬g
+ [4].
+ ¬g_±r
+ .
+ ¬g_¬g
+  = 
+ chld
+ ;
+ 
+ 216 ià(
+ ÃwËn
+  >ð5 && (
+ chld
+  = 
+ ¬g5
+ )) {
+ 
+ 217 ià(
+ chld
+ ->
+ ¬g_ty³
+  =ð
+ O_ITEM
+  && 
+ hoi¡abË
+ [chld[1].¬g_ty³&
+ A_MASK
+ ]) {
+ 
+ 218 
+ ¬g
+ [5].
+ ¬g_ty³
+  = 
+ chld
+ [1].arg_type;
+ 
+ 219 
+ ¬g
+ [5].
+ ¬g_±r
+  = 
+ chld
+ [1].arg_ptr;
+ 
+ 220 
+ ¬g
+ [5].
+ ¬g_Ën
+  = 
+ chld
+ [1].arg_len;
+ 
+ 221 
+ 	`ä“_¬g
+ (
+ chld
+ );
+ 
+ 224 
+ ¬g
+ [5].
+ ¬g_ty³
+  = 
+ A_EXPR
+ ;
+ 
+ 225 
+ ¬g
+ [5].
+ ¬g_±r
+ .
+ ¬g_¬g
+  = 
+ chld
+ ;
+ 
+ 228 
+ dßrg
+  = 
+ ݬgs
+ [
+ ty³
+ ];
+ 
+ 229 
+ i
+  = 1; i <ð
+ ÃwËn
+ ; ++i) {
+ 
+ 230 ià(!(
+ dßrg
+  & 1))
+ 
+ 231 
+ ¬g
+ [
+ i
+ ].
+ ¬g_ty³
+  |ð
+ A_DONT
+ ;
+ 
+ 232 ià(
+ dßrg
+  & 2)
+ 
+ 233 
+ ¬g
+ [
+ i
+ ].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 234 
+ dßrg
+  >>= 2;
+ 
+ 236 #ifdeà
+ DEBUGGING
+ 
+ 
+ 237 ià(
+ debug
+  & 16) {
+ 
+ 238 
+ 	`årštf
+ (
+ ¡d”r
+ ,"%lx <ðmake_Ý(%s",
+ ¬g
+ ,
+ ÝÇme
+ [¬g->
+ ¬g_ty³
+ ]);
+ 
+ 239 ià(
+ ¬g1
+ )
+ 
+ 240 
+ 	`årštf
+ (
+ ¡d”r
+ ,",%s=%lx",
+ 
+ 241 
+ ¬gÇme
+ [
+ ¬g
+ [1].
+ ¬g_ty³
+ &
+ A_MASK
+ ],¬g[1].
+ ¬g_±r
+ .
+ ¬g_¬g
+ );
+ 
+ 242 ià(
+ ¬g2
+ )
+ 
+ 243 
+ 	`årštf
+ (
+ ¡d”r
+ ,",%s=%lx",
+ 
+ 244 
+ ¬gÇme
+ [
+ ¬g
+ [2].
+ ¬g_ty³
+ &
+ A_MASK
+ ],¬g[2].
+ ¬g_±r
+ .
+ ¬g_¬g
+ );
+ 
+ 245 ià(
+ ¬g3
+ )
+ 
+ 246 
+ 	`årštf
+ (
+ ¡d”r
+ ,",%s=%lx",
+ 
+ 247 
+ ¬gÇme
+ [
+ ¬g
+ [3].
+ ¬g_ty³
+ &
+ A_MASK
+ ],¬g[3].
+ ¬g_±r
+ .
+ ¬g_¬g
+ );
+ 
+ 248 ià(
+ ÃwËn
+  >= 4)
+ 
+ 249 
+ 	`årštf
+ (
+ ¡d”r
+ ,",%s=%lx",
+ 
+ 250 
+ ¬gÇme
+ [
+ ¬g
+ [4].
+ ¬g_ty³
+ &
+ A_MASK
+ ],¬g[4].
+ ¬g_±r
+ .
+ ¬g_¬g
+ );
+ 
+ 251 ià(
+ ÃwËn
+  >= 5)
+ 
+ 252 
+ 	`årštf
+ (
+ ¡d”r
+ ,",%s=%lx",
+ 
+ 253 
+ ¬gÇme
+ [
+ ¬g
+ [5].
+ ¬g_ty³
+ &
+ A_MASK
+ ],¬g[5].
+ ¬g_±r
+ .
+ ¬g_¬g
+ );
+ 
+ 254 
+ 	`årštf
+ (
+ ¡d”r
+ ,")\n");
+ 
+ 257 
+ 	`ev®¡©ic
+ (
+ ¬g
+ );
+ 
+ 258  
+ ¬g
+ ;
+ 
+ 259 
+ 	}
+ }
+ 
+ 262 
+ 	$ev®¡©ic
+ (
+ ¬g
+ )
+ 
+ 263 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 265 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 266 
+ STR
+  *
+ s1
+ ;
+ 
+ 267 
+ STR
+  *
+ s2
+ ;
+ 
+ 268 
+ v®ue
+ ;
+ 
+ 269 *
+ tmps
+ ;
+ 
+ 270 
+ i
+ ;
+ 
+ 271 
+ tm¶Úg
+ ;
+ 
+ 272 
+ tmp2
+ ;
+ 
+ 273 
+ 	`exp
+ (), 
+ 	`log
+ (), 
+ 	`sq¹
+ (), 
+ 	`modf
+ ();
+ 
+ 274 *
+ 	`üy±
+ ();
+ 
+ 275 
+ 	`sš
+ (), 
+ 	`cos
+ (), 
+ 	`©ª2
+ (), 
+ 	`pow
+ ();
+ 
+ 277 ià(!
+ ¬g
+  || !¬g->
+ ¬g_Ën
+ )
+ 
+ 280 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  =ð
+ A_SINGLE
+  ||‡rg->¬g_ty³ =ð
+ O_AELEM
+ ) &&
+ 
+ 281 (
+ ¬g
+ ->
+ ¬g_Ën
+  =ð1 ||‡rg[2].
+ ¬g_ty³
+  =ð
+ A_SINGLE
+ ) ) {
+ 
+ 282 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (20,0);
+ 
+ 283 
+ s1
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 284 ià(
+ ¬g
+ ->
+ ¬g_Ën
+  > 1)
+ 
+ 285 
+ s2
+  = 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 287 
+ s2
+  = 
+ NuΡr
+ ;
+ 
+ 288 
+ ¬g
+ ->
+ ¬g_ty³
+ ) {
+ 
+ 289 
+ O_AELEM
+ :
+ 
+ 290 
+ i
+  = ()
+ 	`¡r_gnum
+ (
+ s2
+ );
+ 
+ 291 ià(
+ i
+  < 32767 && i >= 0) {
+ 
+ 292 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_ITEM
+ ;
+ 
+ 293 
+ ¬g
+ ->
+ ¬g_Ën
+  = 1;
+ 
+ 294 
+ ¬g
+ [1].
+ ¬g_ty³
+  = 
+ A_ARYSTAB
+ ;
+ 
+ 295 
+ ¬g
+ [1].
+ ¬g_Ën
+  = 
+ i
+ ;
+ 
+ 296 
+ 	`¡r_ä“
+ (
+ s2
+ );
+ 
+ 297 
+ ¬g
+ [2].
+ ¬g_ty³
+  = 
+ A_NULL
+ ;
+ 
+ 298 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¡r
+  = 
+ NuΡr
+ ;
+ 
+ 302 
+ 	`¡r_ä“
+ (
+ ¡r
+ );
+ 
+ 303 
+ ¡r
+  = 
+ NuΡr
+ ;
+ 
+ 305 
+ O_CONCAT
+ :
+ 
+ 306 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,
+ s1
+ );
+ 
+ 307 
+ 	`¡r_sÿt
+ (
+ ¡r
+ ,
+ s2
+ );
+ 
+ 309 
+ O_REPEAT
+ :
+ 
+ 310 
+ i
+  = ()
+ 	`¡r_gnum
+ (
+ s2
+ );
+ 
+ 311 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ s1
+ );
+ 
+ 312 
+ 	`¡r_n£t
+ (
+ ¡r
+ ,"",0);
+ 
+ 313 
+ 	`STR_GROW
+ (
+ ¡r
+ , 
+ i
+  * 
+ s1
+ ->
+ ¡r_cur
+  + 1);
+ 
+ 314 
+ 	`»³©ýy
+ (
+ ¡r
+ ->
+ ¡r_±r
+ , 
+ tmps
+ , 
+ s1
+ ->
+ ¡r_cur
+ , 
+ i
+ );
+ 
+ 315 
+ ¡r
+ ->
+ ¡r_cur
+  = 
+ i
+  * 
+ s1
+ ->str_cur;
+ 
+ 316 
+ ¡r
+ ->
+ ¡r_±r
+ [¡r->
+ ¡r_cur
+ ] = '\0';
+ 
+ 318 
+ O_MULTIPLY
+ :
+ 
+ 319 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 320 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,
+ v®ue
+  * 
+ 	`¡r_gnum
+ (
+ s2
+ ));
+ 
+ 322 
+ O_DIVIDE
+ :
+ 
+ 323 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s2
+ );
+ 
+ 324 ià(
+ v®ue
+  == 0.0)
+ 
+ 325 
+ 	`yy”rÜ
+ ("Illegal division by constant zero");
+ 
+ 327 #ifdeà
+ üay
+ 
+ 
+ 330 
+ x
+ ;
+ 
+ 331 
+ k
+ ;
+ 
+ 332 
+ x
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 333 ià(()()
+ x
+  == x &&
+ 
+ 334 ()()
+ v®ue
+  == value &&
+ 
+ 335 (
+ k
+  = ()
+ x
+ /()
+ v®ue
+ )*()value == ()x) {
+ 
+ 336 
+ v®ue
+  = 
+ k
+ ;
+ 
+ 338 
+ v®ue
+  = 
+ x
+ /value;
+ 
+ 340 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,
+ v®ue
+ );
+ 
+ 343 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,
+ 	`¡r_gnum
+ (
+ s1
+ è/ 
+ v®ue
+ );
+ 
+ 346 
+ O_MODULO
+ :
+ 
+ 347 
+ tm¶Úg
+  = ()
+ 	`¡r_gnum
+ (
+ s2
+ );
+ 
+ 348 ià(
+ tm¶Úg
+  == 0L) {
+ 
+ 349 
+ 	`yy”rÜ
+ ("Illegal modulus of constant zero");
+ 
+ 352 
+ tmp2
+  = ()
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 353 #iâdeà
+ lšt
+ 
+ 
+ 354 ià(
+ tmp2
+  >= 0)
+ 
+ 355 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(
+ tmp2
+  % 
+ tm¶Úg
+ ));
+ 
+ 357 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()((
+ tm¶Úg
+ -((-
+ tmp2
+  - 1) %mplong)) - 1));
+ 
+ 359 
+ tmp2
+  =mp2;
+ 
+ 362 
+ O_ADD
+ :
+ 
+ 363 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 364 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,
+ v®ue
+  + 
+ 	`¡r_gnum
+ (
+ s2
+ ));
+ 
+ 366 
+ O_SUBTRACT
+ :
+ 
+ 367 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 368 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,
+ v®ue
+  - 
+ 	`¡r_gnum
+ (
+ s2
+ ));
+ 
+ 370 
+ O_LEFT_SHIFT
+ :
+ 
+ 371 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 372 
+ i
+  = ()
+ 	`¡r_gnum
+ (
+ s2
+ );
+ 
+ 373 #iâdeà
+ lšt
+ 
+ 
+ 374 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()((()
+ v®ue
+ è<< 
+ i
+ ));
+ 
+ 377 
+ O_RIGHT_SHIFT
+ :
+ 
+ 378 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 379 
+ i
+  = ()
+ 	`¡r_gnum
+ (
+ s2
+ );
+ 
+ 380 #iâdeà
+ lšt
+ 
+ 
+ 381 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()((()
+ v®ue
+ è>> 
+ i
+ ));
+ 
+ 384 
+ O_LT
+ :
+ 
+ 385 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 386 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,(
+ v®ue
+  < 
+ 	`¡r_gnum
+ (
+ s2
+ )) ? 1.0 : 0.0);
+ 
+ 388 
+ O_GT
+ :
+ 
+ 389 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 390 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,(
+ v®ue
+  > 
+ 	`¡r_gnum
+ (
+ s2
+ )) ? 1.0 : 0.0);
+ 
+ 392 
+ O_LE
+ :
+ 
+ 393 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 394 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,(
+ v®ue
+  <ð
+ 	`¡r_gnum
+ (
+ s2
+ )) ? 1.0 : 0.0);
+ 
+ 396 
+ O_GE
+ :
+ 
+ 397 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 398 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,(
+ v®ue
+  >ð
+ 	`¡r_gnum
+ (
+ s2
+ )) ? 1.0 : 0.0);
+ 
+ 400 
+ O_EQ
+ :
+ 
+ 401 ià(
+ dow¬n
+ ) {
+ 
+ 402 ià((!
+ s1
+ ->
+ ¡r_nok
+  && !
+ 	`looks_like_numb”
+ (s1)) ||
+ 
+ 403 (!
+ s2
+ ->
+ ¡r_nok
+  && !
+ 	`looks_like_numb”
+ (s2)) )
+ 
+ 404 
+ 	`w¬n
+ ("Possible use of == on string value");
+ 
+ 406 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 407 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,(
+ v®ue
+  =ð
+ 	`¡r_gnum
+ (
+ s2
+ )) ? 1.0 : 0.0);
+ 
+ 409 
+ O_NE
+ :
+ 
+ 410 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 411 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,(
+ v®ue
+  !ð
+ 	`¡r_gnum
+ (
+ s2
+ )) ? 1.0 : 0.0);
+ 
+ 413 
+ O_NCMP
+ :
+ 
+ 414 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 415 
+ v®ue
+  -ð
+ 	`¡r_gnum
+ (
+ s2
+ );
+ 
+ 416 ià(
+ v®ue
+  > 0.0)
+ 
+ 417 
+ v®ue
+  = 1.0;
+ 
+ 418 ià(
+ v®ue
+  < 0.0)
+ 
+ 419 
+ v®ue
+  = -1.0;
+ 
+ 420 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,
+ v®ue
+ );
+ 
+ 422 
+ O_BIT_AND
+ :
+ 
+ 423 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 424 #iâdeà
+ lšt
+ 
+ 
+ 425 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(
+ 	`U_L
+ (
+ v®ue
+ è& U_L(
+ 	`¡r_gnum
+ (
+ s2
+ ))));
+ 
+ 428 
+ O_XOR
+ :
+ 
+ 429 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 430 #iâdeà
+ lšt
+ 
+ 
+ 431 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(
+ 	`U_L
+ (
+ v®ue
+ è^ U_L(
+ 	`¡r_gnum
+ (
+ s2
+ ))));
+ 
+ 434 
+ O_BIT_OR
+ :
+ 
+ 435 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 436 #iâdeà
+ lšt
+ 
+ 
+ 437 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(
+ 	`U_L
+ (
+ v®ue
+ è| U_L(
+ 	`¡r_gnum
+ (
+ s2
+ ))));
+ 
+ 440 
+ O_AND
+ :
+ 
+ 441 ià(
+ 	`¡r_Œue
+ (
+ s1
+ ))
+ 
+ 442 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,
+ s2
+ );
+ 
+ 444 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,
+ s1
+ );
+ 
+ 446 
+ O_OR
+ :
+ 
+ 447 ià(
+ 	`¡r_Œue
+ (
+ s1
+ ))
+ 
+ 448 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,
+ s1
+ );
+ 
+ 450 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,
+ s2
+ );
+ 
+ 452 
+ O_COND_EXPR
+ :
+ 
+ 453 ià((
+ ¬g
+ [3].
+ ¬g_ty³
+  & 
+ A_MASK
+ è!ð
+ A_SINGLE
+ ) {
+ 
+ 454 
+ 	`¡r_ä“
+ (
+ ¡r
+ );
+ 
+ 455 
+ ¡r
+  = 
+ NuΡr
+ ;
+ 
+ 458 ià(
+ 	`¡r_Œue
+ (
+ s1
+ ))
+ 
+ 459 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,
+ s2
+ );
+ 
+ 461 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,
+ ¬g
+ [3].
+ ¬g_±r
+ .
+ ¬g_¡r
+ );
+ 
+ 462 
+ 	`¡r_ä“
+ (
+ ¬g
+ [3].
+ ¬g_±r
+ .
+ ¬g_¡r
+ );
+ 
+ 463 
+ ¬g
+ [3].
+ ¬g_±r
+ .
+ ¬g_¡r
+  = 
+ NuΡr
+ ;
+ 
+ 466 
+ O_NEGATE
+ :
+ 
+ 467 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(-
+ 	`¡r_gnum
+ (
+ s1
+ )));
+ 
+ 469 
+ O_NOT
+ :
+ 
+ 470 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(!
+ 	`¡r_Œue
+ (
+ s1
+ )));
+ 
+ 472 
+ O_COMPLEMENT
+ :
+ 
+ 473 #iâdeà
+ lšt
+ 
+ 
+ 474 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(~
+ 	`U_L
+ (
+ 	`¡r_gnum
+ (
+ s1
+ ))));
+ 
+ 477 
+ O_SIN
+ :
+ 
+ 478 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,
+ 	`sš
+ (
+ 	`¡r_gnum
+ (
+ s1
+ )));
+ 
+ 480 
+ O_COS
+ :
+ 
+ 481 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,
+ 	`cos
+ (
+ 	`¡r_gnum
+ (
+ s1
+ )));
+ 
+ 483 
+ O_ATAN2
+ :
+ 
+ 484 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 485 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,
+ 	`©ª2
+ (
+ v®ue
+ , 
+ 	`¡r_gnum
+ (
+ s2
+ )));
+ 
+ 487 
+ O_POW
+ :
+ 
+ 488 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 489 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,
+ 	`pow
+ (
+ v®ue
+ , 
+ 	`¡r_gnum
+ (
+ s2
+ )));
+ 
+ 491 
+ O_LENGTH
+ :
+ 
+ 492 
+ 	`¡r_num£t
+ (
+ ¡r
+ , ()
+ 	`¡r_Ën
+ (
+ s1
+ ));
+ 
+ 494 
+ O_SLT
+ :
+ 
+ 495 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(
+ 	`¡r_cmp
+ (
+ s1
+ ,
+ s2
+ ) < 0));
+ 
+ 497 
+ O_SGT
+ :
+ 
+ 498 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(
+ 	`¡r_cmp
+ (
+ s1
+ ,
+ s2
+ ) > 0));
+ 
+ 500 
+ O_SLE
+ :
+ 
+ 501 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(
+ 	`¡r_cmp
+ (
+ s1
+ ,
+ s2
+ ) <= 0));
+ 
+ 503 
+ O_SGE
+ :
+ 
+ 504 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(
+ 	`¡r_cmp
+ (
+ s1
+ ,
+ s2
+ ) >= 0));
+ 
+ 506 
+ O_SEQ
+ :
+ 
+ 507 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(
+ 	`¡r_eq
+ (
+ s1
+ ,
+ s2
+ )));
+ 
+ 509 
+ O_SNE
+ :
+ 
+ 510 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(!
+ 	`¡r_eq
+ (
+ s1
+ ,
+ s2
+ )));
+ 
+ 512 
+ O_SCMP
+ :
+ 
+ 513 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(
+ 	`¡r_cmp
+ (
+ s1
+ ,
+ s2
+ )));
+ 
+ 515 
+ O_CRYPT
+ :
+ 
+ 516 #ifdeà
+ HAS_CRYPT
+ 
+ 
+ 517 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ s1
+ );
+ 
+ 518 
+ 	`¡r_£t
+ (
+ ¡r
+ ,
+ 	`üy±
+ (
+ tmps
+ ,
+ 	`¡r_g‘
+ (
+ s2
+ )));
+ 
+ 520 
+ 	`yy”rÜ
+ (
+ 
+ 524 
+ O_EXP
+ :
+ 
+ 525 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,
+ 	`exp
+ (
+ 	`¡r_gnum
+ (
+ s1
+ )));
+ 
+ 527 
+ O_LOG
+ :
+ 
+ 528 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,
+ 	`log
+ (
+ 	`¡r_gnum
+ (
+ s1
+ )));
+ 
+ 530 
+ O_SQRT
+ :
+ 
+ 531 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,
+ 	`sq¹
+ (
+ 	`¡r_gnum
+ (
+ s1
+ )));
+ 
+ 533 
+ O_INT
+ :
+ 
+ 534 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ s1
+ );
+ 
+ 535 ià(
+ v®ue
+  >= 0.0)
+ 
+ 536 ()
+ 	`modf
+ (
+ v®ue
+ ,&value);
+ 
+ 538 ()
+ 	`modf
+ (-
+ v®ue
+ ,&value);
+ 
+ 539 
+ v®ue
+  = -value;
+ 
+ 541 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,
+ v®ue
+ );
+ 
+ 543 
+ O_ORD
+ :
+ 
+ 544 #iâdeà
+ I286
+ 
+ 
+ 545 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(*
+ 	`¡r_g‘
+ (
+ s1
+ )));
+ 
+ 548 
+ z­c
+ ;
+ 
+ 549 *
+ z­s
+ ;
+ 
+ 551 
+ z­s
+  = 
+ 	`¡r_g‘
+ (
+ s1
+ );
+ 
+ 552 
+ z­c
+  = (è*
+ z­s
+ ;
+ 
+ 553 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(
+ z­c
+ ));
+ 
+ 558 ià(
+ ¡r
+ ) {
+ 
+ 559 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_ITEM
+ ;
+ 
+ 560 
+ 	`¡r_ä“
+ (
+ s1
+ );
+ 
+ 561 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡r
+  = 
+ ¡r
+ ;
+ 
+ 562 ià(
+ s2
+ ) {
+ 
+ 563 
+ 	`¡r_ä“
+ (
+ s2
+ );
+ 
+ 564 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¡r
+  = 
+ NuΡr
+ ;
+ 
+ 565 
+ ¬g
+ [2].
+ ¬g_ty³
+  = 
+ A_NULL
+ ;
+ 
+ 569 
+ 	}
+ }
+ 
+ 571 
+ ARG
+  *
+ 
+ 572 
+ 	$l
+ (
+ ¬g
+ )
+ 
+ 573 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 575 
+ i
+ ;
+ 
+ 576 
+ ARG
+  *
+ ¬g1
+ ;
+ 
+ 577 
+ ARG
+  *
+ ¬g2
+ ;
+ 
+ 578 
+ SPAT
+  *
+ ¥©
+ ;
+ 
+ 579 
+ ¬ghog
+  = 0;
+ 
+ 581 
+ i
+  = 
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ ;
+ 
+ 583 
+ ¬g
+ ->
+ ¬g_æags
+  |ð
+ AF_COMMON
+ ;
+ 
+ 586 ià(
+ i
+  =ð
+ A_ARYLEN
+ ) {
+ 
+ 587 
+ ¬g
+ [1].
+ ¬g_ty³
+  = 
+ A_LARYLEN
+ ;
+ 
+ 588  
+ ¬g
+ ;
+ 
+ 590 ià(
+ i
+  =ð
+ A_ARYSTAB
+ ) {
+ 
+ 591 
+ ¬g
+ [1].
+ ¬g_ty³
+  = 
+ A_LARYSTAB
+ ;
+ 
+ 592  
+ ¬g
+ ;
+ 
+ 597 ià(
+ i
+  =ð
+ A_EXPR
+  || i =ð
+ A_LEXPR
+ ) {
+ 
+ 598 
+ ¬g1
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ;
+ 
+ 600 ià(
+ ¬g1
+ ->
+ ¬g_ty³
+  =ð
+ O_LIST
+  ||‡rg1->¬g_ty³ =ð
+ O_ITEM
+ ) {
+ 
+ 602 ià(
+ ¬g
+ ->
+ ¬g_Ën
+  > 1) {
+ 
+ 603 
+ 	`dehoi¡
+ (
+ ¬g
+ ,2);
+ 
+ 604 
+ ¬g2
+  = 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ;
+ 
+ 605 ià(
+ 	`nÙhšg_š_commÚ
+ (
+ ¬g1
+ ,
+ ¬g2
+ ))
+ 
+ 606 
+ ¬g
+ ->
+ ¬g_æags
+  &ð~
+ AF_COMMON
+ ;
+ 
+ 607 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ASSIGN
+ ) {
+ 
+ 608 ià(
+ ¬g1
+ ->
+ ¬g_æags
+  & 
+ AF_LOCAL
+ )
+ 
+ 609 
+ ¬g
+ ->
+ ¬g_æags
+  |ð
+ AF_LOCAL
+ ;
+ 
+ 610 
+ ¬g
+ [1].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 611 
+ ¬g
+ [2].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 614 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  !ð
+ O_CHOP
+ )
+ 
+ 615 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_ASSIGN
+ ;
+ 
+ 616 
+ i
+  = 
+ ¬g1
+ ->
+ ¬g_Ën
+ ; i >= 1; i--) {
+ 
+ 617 
+ ¬g1
+ [
+ i
+ ].
+ ¬g_ty³
+ ) {
+ 
+ 618 
+ A_STAR
+ : 
+ A_LSTAR
+ :
+ 
+ 619 
+ ¬g1
+ [
+ i
+ ].
+ ¬g_ty³
+  = 
+ A_LSTAR
+ ;
+ 
+ 621 
+ A_STAB
+ : 
+ A_LVAL
+ :
+ 
+ 622 
+ ¬g1
+ [
+ i
+ ].
+ ¬g_ty³
+  = 
+ A_LVAL
+ ;
+ 
+ 624 
+ A_ARYLEN
+ : 
+ A_LARYLEN
+ :
+ 
+ 625 
+ ¬g1
+ [
+ i
+ ].
+ ¬g_ty³
+  = 
+ A_LARYLEN
+ ;
+ 
+ 627 
+ A_ARYSTAB
+ : 
+ A_LARYSTAB
+ :
+ 
+ 628 
+ ¬g1
+ [
+ i
+ ].
+ ¬g_ty³
+  = 
+ A_LARYSTAB
+ ;
+ 
+ 630 
+ A_EXPR
+ : 
+ A_LEXPR
+ :
+ 
+ 631 
+ ¬g1
+ [
+ i
+ ].
+ ¬g_ty³
+  = 
+ A_LEXPR
+ ;
+ 
+ 632 
+ ¬g1
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ->
+ ¬g_ty³
+ ) {
+ 
+ 633 
+ O_ARRAY
+ : 
+ O_LARRAY
+ :
+ 
+ 634 
+ ¬g1
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ->
+ ¬g_ty³
+  = 
+ O_LARRAY
+ ;
+ 
+ 635 
+ ¬ghog
+  = 1;
+ 
+ 637 
+ O_AELEM
+ : 
+ O_LAELEM
+ :
+ 
+ 638 
+ ¬g1
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ->
+ ¬g_ty³
+  = 
+ O_LAELEM
+ ;
+ 
+ 640 
+ O_HASH
+ : 
+ O_LHASH
+ :
+ 
+ 641 
+ ¬g1
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ->
+ ¬g_ty³
+  = 
+ O_LHASH
+ ;
+ 
+ 642 
+ ¬ghog
+  = 1;
+ 
+ 644 
+ O_HELEM
+ : 
+ O_LHELEM
+ :
+ 
+ 645 
+ ¬g1
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ->
+ ¬g_ty³
+  = 
+ O_LHELEM
+ ;
+ 
+ 647 
+ O_ASLICE
+ : 
+ O_LASLICE
+ :
+ 
+ 648 
+ ¬g1
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ->
+ ¬g_ty³
+  = 
+ O_LASLICE
+ ;
+ 
+ 650 
+ O_HSLICE
+ : 
+ O_LHSLICE
+ :
+ 
+ 651 
+ ¬g1
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ->
+ ¬g_ty³
+  = 
+ O_LHSLICE
+ ;
+ 
+ 654 
+ žl_™em
+ ;
+ 
+ 658 
+ žl_™em
+ :
+ 
+ 659 ()
+ 	`¥rštf
+ (
+ tok’buf
+ , "Illegal item (%s)‡s†value",
+ 
+ 660 
+ ¬gÇme
+ [
+ ¬g1
+ [
+ i
+ ].
+ ¬g_ty³
+ &
+ A_MASK
+ ]);
+ 
+ 661 
+ 	`yy”rÜ
+ (
+ tok’buf
+ );
+ 
+ 664 ià(
+ ¬g
+ ->
+ ¬g_Ën
+  > 1) {
+ 
+ 665 ià(
+ ¬g2
+ ->
+ ¬g_ty³
+  =ð
+ O_SPLIT
+  && !¬g2[3].¬g_ty³ && !
+ ¬ghog
+ ) {
+ 
+ 666 
+ ¬g2
+ [3].
+ ¬g_ty³
+  = 
+ A_SINGLE
+ ;
+ 
+ 667 
+ ¬g2
+ [3].
+ ¬g_±r
+ .
+ ¬g_¡r
+  =
+ 
+ 668 
+ 	`¡r_nmake
+ (()
+ ¬g1
+ ->
+ ¬g_Ën
+  + 1);
+ 
+ 672 ià(
+ ¬g1
+ ->
+ ¬g_ty³
+  =ð
+ O_AELEM
+  ||‡rg1->¬g_ty³ =ð
+ O_LAELEM
+ )
+ 
+ 673 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_DEFINED
+ )
+ 
+ 674 
+ ¬g1
+ ->
+ ¬g_ty³
+  = 
+ O_AELEM
+ ;
+ 
+ 676 
+ ¬g1
+ ->
+ ¬g_ty³
+  = 
+ O_LAELEM
+ ;
+ 
+ 677 ià(
+ ¬g1
+ ->
+ ¬g_ty³
+  =ð
+ O_ARRAY
+  ||‡rg1->¬g_ty³ =ð
+ O_LARRAY
+ ) {
+ 
+ 678 
+ ¬g1
+ ->
+ ¬g_ty³
+  = 
+ O_LARRAY
+ ;
+ 
+ 679 ià(
+ ¬g
+ ->
+ ¬g_Ën
+  > 1) {
+ 
+ 680 
+ 	`dehoi¡
+ (
+ ¬g
+ ,2);
+ 
+ 681 
+ ¬g2
+  = 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ;
+ 
+ 682 ià(
+ ¬g2
+ ->
+ ¬g_ty³
+  =ð
+ O_SPLIT
+ ) {
+ 
+ 683 
+ ¥©
+  = 
+ ¬g2
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+ ;
+ 
+ 684 ià(!(
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_ONCE
+ ) &&
+ 
+ 685 
+ 	`nÙhšg_š_commÚ
+ (
+ ¬g1
+ ,
+ ¥©
+ ->
+ ¥©_»¶
+ )) {
+ 
+ 686 
+ ¥©
+ ->
+ ¥©_»¶
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+  =
+ 
+ 687 
+ ¬g1
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 688 
+ ¬g1
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+  = 
+ NuΡab
+ ;
+ 
+ 689 
+ ¥©
+ ->
+ ¥©_æags
+  |ð
+ SPAT_ONCE
+ ;
+ 
+ 690 
+ 	`¬g_ä“
+ (
+ ¬g1
+ );
+ 
+ 691 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¬g
+  = 
+ Nuάg
+ ;
+ 
+ 692 
+ 	`ä“_¬g
+ (
+ ¬g
+ );
+ 
+ 693  
+ ¬g2
+ ;
+ 
+ 696 ià(
+ 	`nÙhšg_š_commÚ
+ (
+ ¬g1
+ ,
+ ¬g2
+ ))
+ 
+ 697 
+ ¬g
+ ->
+ ¬g_æags
+  &ð~
+ AF_COMMON
+ ;
+ 
+ 698 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ASSIGN
+ ) {
+ 
+ 699 
+ ¬g
+ [1].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 700 
+ ¬g
+ [2].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 703 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ASSIGN
+ )
+ 
+ 704 
+ ¬g
+ [1].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 706 ià(
+ ¬g1
+ ->
+ ¬g_ty³
+  =ð
+ O_HELEM
+  ||‡rg1->¬g_ty³ =ð
+ O_LHELEM
+ )
+ 
+ 707 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_DEFINED
+ )
+ 
+ 708 
+ ¬g1
+ ->
+ ¬g_ty³
+  = 
+ O_HELEM
+ ;
+ 
+ 710 
+ ¬g1
+ ->
+ ¬g_ty³
+  = 
+ O_LHELEM
+ ;
+ 
+ 711 ià(
+ ¬g1
+ ->
+ ¬g_ty³
+  =ð
+ O_HASH
+  ||‡rg1->¬g_ty³ =ð
+ O_LHASH
+ ) {
+ 
+ 712 
+ ¬g1
+ ->
+ ¬g_ty³
+  = 
+ O_LHASH
+ ;
+ 
+ 713 ià(
+ ¬g
+ ->
+ ¬g_Ën
+  > 1) {
+ 
+ 714 
+ 	`dehoi¡
+ (
+ ¬g
+ ,2);
+ 
+ 715 
+ ¬g2
+  = 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ;
+ 
+ 716 ià(
+ 	`nÙhšg_š_commÚ
+ (
+ ¬g1
+ ,
+ ¬g2
+ ))
+ 
+ 717 
+ ¬g
+ ->
+ ¬g_æags
+  &ð~
+ AF_COMMON
+ ;
+ 
+ 718 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ASSIGN
+ ) {
+ 
+ 719 
+ ¬g
+ [1].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 720 
+ ¬g
+ [2].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 723 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ASSIGN
+ )
+ 
+ 724 
+ ¬g
+ [1].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 726 ià(
+ ¬g1
+ ->
+ ¬g_ty³
+  =ð
+ O_ASLICE
+ ) {
+ 
+ 727 
+ ¬g1
+ ->
+ ¬g_ty³
+  = 
+ O_LASLICE
+ ;
+ 
+ 728 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ASSIGN
+ ) {
+ 
+ 729 
+ 	`dehoi¡
+ (
+ ¬g
+ ,2);
+ 
+ 730 
+ ¬g
+ [1].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 731 
+ ¬g
+ [2].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 734 ià(
+ ¬g1
+ ->
+ ¬g_ty³
+  =ð
+ O_HSLICE
+ ) {
+ 
+ 735 
+ ¬g1
+ ->
+ ¬g_ty³
+  = 
+ O_LHSLICE
+ ;
+ 
+ 736 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ASSIGN
+ ) {
+ 
+ 737 
+ 	`dehoi¡
+ (
+ ¬g
+ ,2);
+ 
+ 738 
+ ¬g
+ [1].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 739 
+ ¬g
+ [2].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 742 ià((
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_DEFINED
+  ||‡rg->¬g_ty³ =ð
+ O_UNDEF
+ ) &&
+ 
+ 743 (
+ ¬g1
+ ->
+ ¬g_ty³
+  =ð(
+ ³¾db
+  ? 
+ O_DBSUBR
+  : 
+ O_SUBR
+ )) ) {
+ 
+ 744 
+ ¬g
+ [1].
+ ¬g_ty³
+  |ð
+ A_DONT
+ ;
+ 
+ 746 ià(
+ ¬g1
+ ->
+ ¬g_ty³
+  =ð
+ O_SUBSTR
+  ||‡rg1->¬g_ty³ =ð
+ O_VEC
+ ) {
+ 
+ 747 ()
+ 	`l
+ (
+ ¬g1
+ );
+ 
+ 748 
+ 	`R’ewc
+ (
+ ¬g1
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ , 1, 
+ l¡ršg
+ , 
+ STR
+ );
+ 
+ 751 ià(
+ ¬g1
+ ->
+ ¬g_ty³
+  =ð
+ O_ASSIGN
+ ) {
+ 
+ 756 ()
+ 	`¥rštf
+ (
+ tok’buf
+ ,
+ 
+ 757 "IÎeg®ƒx´essiÚ (%sèa lv®ue",
+ ÝÇme
+ [
+ ¬g1
+ ->
+ ¬g_ty³
+ ]);
+ 
+ 758 
+ 	`yy”rÜ
+ (
+ tok’buf
+ );
+ 
+ 760 
+ ¬g
+ [1].
+ ¬g_ty³
+  = 
+ A_LEXPR
+  | (¬g[1].¬g_ty³ & 
+ A_DONT
+ );
+ 
+ 761 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ASSIGN
+  && (
+ ¬g1
+ [1].
+ ¬g_æags
+  & 
+ AF_ARYOK
+ )) {
+ 
+ 762 
+ ¬g
+ [1].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 763 ià(
+ ¬g
+ ->
+ ¬g_Ën
+  > 1)
+ 
+ 764 
+ ¬g
+ [2].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 766 #ifdeà
+ DEBUGGING
+ 
+ 
+ 767 ià(
+ debug
+  & 16)
+ 
+ 768 
+ 	`årštf
+ (
+ ¡d”r
+ ,"lval LEXPR\n");
+ 
+ 770  
+ ¬g
+ ;
+ 
+ 772 ià(
+ i
+  =ð
+ A_STAR
+  || i =ð
+ A_LSTAR
+ ) {
+ 
+ 773 
+ ¬g
+ [1].
+ ¬g_ty³
+  = 
+ A_LSTAR
+  | (¬g[1].¬g_ty³ & 
+ A_DONT
+ );
+ 
+ 774  
+ ¬g
+ ;
+ 
+ 779 ià(
+ i
+  !ð
+ A_STAB
+  && i !ð
+ A_LVAL
+ ) {
+ 
+ 780 ()
+ 	`¥rštf
+ (
+ tok’buf
+ ,
+ 
+ 781 "IÎeg® i‹m (%sèa lv®ue",
+ ¬gÇme
+ [
+ ¬g
+ [1].
+ ¬g_ty³
+ &
+ A_MASK
+ ]);
+ 
+ 782 
+ 	`yy”rÜ
+ (
+ tok’buf
+ );
+ 
+ 784 
+ ¬g
+ [1].
+ ¬g_ty³
+  = 
+ A_LVAL
+  | (¬g[1].¬g_ty³ & 
+ A_DONT
+ );
+ 
+ 785 #ifdeà
+ DEBUGGING
+ 
+ 
+ 786 ià(
+ debug
+  & 16)
+ 
+ 787 
+ 	`årštf
+ (
+ ¡d”r
+ ,"lval LVAL\n");
+ 
+ 789  
+ ¬g
+ ;
+ 
+ 790 
+ 	}
+ }
+ 
+ 792 
+ ARG
+  *
+ 
+ 793 
+ 	$fixl
+ (
+ ty³
+ ,
+ ¬g
+ )
+ 
+ 794 
+ ty³
+ ;
+ 
+ 795 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 797 ià(
+ ty³
+  =ð
+ O_DEFINED
+  ||y³ =ð
+ O_UNDEF
+ ) {
+ 
+ 798 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  !ð
+ O_ITEM
+ )
+ 
+ 799 
+ ¬g
+  = 
+ 	`hide_¬y
+ (arg);
+ 
+ 800 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ITEM
+ ) {
+ 
+ 801 
+ ty³
+  = 
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ ;
+ 
+ 802 ià(
+ ty³
+  =ð
+ A_EXPR
+  ||y³ =ð
+ A_LEXPR
+ )
+ 
+ 803 
+ ¬g
+ [1].
+ ¬g_ty³
+  = 
+ A_LEXPR
+ |
+ A_DONT
+ ;
+ 
+ 806  
+ ¬g
+ ;
+ 
+ 807 
+ 	}
+ }
+ 
+ 809 
+ 	$dehoi¡
+ (
+ ¬g
+ ,
+ i
+ )
+ 
+ 810 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 812 
+ ARG
+  *
+ tm·rg
+ ;
+ 
+ 814 ià(
+ ¬g
+ [
+ i
+ ].
+ ¬g_ty³
+  !ð
+ A_EXPR
+ ) {
+ 
+ 815 
+ tm·rg
+  = 
+ 	`make_Ý
+ (
+ O_ITEM
+ ,1,
+ Nuάg
+ ,Nullarg,Nullarg);
+ 
+ 816 
+ tm·rg
+ [1] = 
+ ¬g
+ [
+ i
+ ];
+ 
+ 817 
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¬g
+  = 
+ tm·rg
+ ;
+ 
+ 818 
+ ¬g
+ [
+ i
+ ].
+ ¬g_ty³
+  = 
+ A_EXPR
+ ;
+ 
+ 820 
+ 	}
+ }
+ 
+ 822 
+ ARG
+  *
+ 
+ 823 
+ 	$addæags
+ (
+ i
+ ,
+ æags
+ ,
+ ¬g
+ )
+ 
+ 824 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 826 
+ ¬g
+ [
+ i
+ ].
+ ¬g_æags
+  |ð
+ æags
+ ;
+ 
+ 827  
+ ¬g
+ ;
+ 
+ 828 
+ 	}
+ }
+ 
+ 830 
+ ARG
+  *
+ 
+ 831 
+ 	$hide_¬y
+ (
+ ¬g
+ )
+ 
+ 832 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 834 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ARRAY
+  ||‡rg->¬g_ty³ =ð
+ O_HASH
+ )
+ 
+ 835  
+ 	`make_Ý
+ (
+ O_ITEM
+ ,1,
+ ¬g
+ ,
+ Nuάg
+ ,Nullarg);
+ 
+ 836  
+ ¬g
+ ;
+ 
+ 837 
+ 	}
+ }
+ 
+ 841 
+ ARG
+  *
+ 
+ 842 
+ 	$jmaybe
+ (
+ ¬g
+ )
+ 
+ 843 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 845 ià(
+ ¬g
+  &&‡rg->
+ ¬g_ty³
+  =ð
+ O_COMMA
+ ) {
+ 
+ 846 
+ ¬g
+  = 
+ 	`li¡ish
+ (arg);
+ 
+ 847 
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_JOIN
+ , 2,
+ 
+ 848 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ 	`¡ab’t
+ (";",
+ TRUE
+ )),
+ 
+ 849 
+ 	`make_li¡
+ (
+ ¬g
+ ),
+ 
+ 850 
+ Nuάg
+ );
+ 
+ 852  
+ ¬g
+ ;
+ 
+ 853 
+ 	}
+ }
+ 
+ 855 
+ ARG
+  *
+ 
+ 856 
+ 	$make_li¡
+ (
+ ¬g
+ )
+ 
+ 857 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 859 
+ i
+ ;
+ 
+ 860 
+ ARG
+  *
+ node
+ ;
+ 
+ 861 
+ ARG
+  *
+ nxŠode
+ ;
+ 
+ 862 
+ j
+ ;
+ 
+ 863 
+ STR
+  *
+ tmp¡r
+ ;
+ 
+ 865 ià(!
+ ¬g
+ ) {
+ 
+ 866 
+ ¬g
+  = 
+ 	`Ý_Ãw
+ (0);
+ 
+ 867 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_LIST
+ ;
+ 
+ 869 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  !ð
+ O_COMMA
+ ) {
+ 
+ 870 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  !ð
+ O_ARRAY
+ )
+ 
+ 871 
+ ¬g
+ ->
+ ¬g_æags
+  |ð
+ AF_LISTISH
+ ;
+ 
+ 872 
+ ¬g
+ ->
+ ¬g_æags
+  |ð
+ AF_LISTISH
+ ;
+ 
+ 873  
+ ¬g
+ ;
+ 
+ 875 
+ i
+  = 2, 
+ node
+  = 
+ ¬g
+ ; ; i++) {
+ 
+ 876 ià(
+ node
+ ->
+ ¬g_Ën
+  < 2)
+ 
+ 878 ià(
+ node
+ [1].
+ ¬g_ty³
+  !ð
+ A_EXPR
+ )
+ 
+ 880 
+ node
+  =‚ode[1].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ;
+ 
+ 881 ià(
+ node
+ ->
+ ¬g_ty³
+  !ð
+ O_COMMA
+ )
+ 
+ 884 ià(
+ i
+  > 2) {
+ 
+ 885 
+ node
+  = 
+ ¬g
+ ;
+ 
+ 886 
+ ¬g
+  = 
+ 	`Ý_Ãw
+ (
+ i
+ );
+ 
+ 887 
+ tmp¡r
+  = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 888 #ifdeà
+ STRUCTCOPY
+ 
+ 
+ 889 *
+ ¬g
+  = *
+ node
+ ;
+ 
+ 891 ()
+ 	`bcÝy
+ ((*)
+ node
+ , (*)
+ ¬g
+ , (
+ ARG
+ ));
+ 
+ 893 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+  = 
+ tmp¡r
+ ;
+ 
+ 894 
+ j
+  = 
+ i
+ ; ; ) {
+ 
+ 895 #ifdeà
+ STRUCTCOPY
+ 
+ 
+ 896 
+ ¬g
+ [
+ j
+ ] = 
+ node
+ [2];
+ 
+ 898 ()
+ 	`bcÝy
+ ((*)(
+ node
+ +2), (*)(
+ ¬g
+ +
+ j
+ ), (
+ ARG
+ ));
+ 
+ 900 
+ ¬g
+ [
+ j
+ ].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 901 --
+ j
+ ;
+ 
+ 902 ià(
+ j
+  < 2) {
+ 
+ 903 #ifdeà
+ STRUCTCOPY
+ 
+ 
+ 904 
+ ¬g
+ [1] = 
+ node
+ [1];
+ 
+ 906 ()
+ 	`bcÝy
+ ((*)(
+ node
+ +1), (*)(
+ ¬g
+ +1), (
+ ARG
+ ));
+ 
+ 908 
+ 	`ä“_¬g
+ (
+ node
+ );
+ 
+ 911 
+ nxŠode
+  = 
+ node
+ [1].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ;
+ 
+ 912 
+ 	`ä“_¬g
+ (
+ node
+ );
+ 
+ 913 
+ node
+  = 
+ nxŠode
+ ;
+ 
+ 916 
+ ¬g
+ [1].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 917 
+ ¬g
+ [2].
+ ¬g_æags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 918 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_LIST
+ ;
+ 
+ 919 
+ ¬g
+ ->
+ ¬g_Ën
+  = 
+ i
+ ;
+ 
+ 920  
+ ¬g
+ ;
+ 
+ 921 
+ 	}
+ }
+ 
+ 925 
+ ARG
+  *
+ 
+ 926 
+ 	$li¡ish
+ (
+ ¬g
+ )
+ 
+ 927 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 929 ià(
+ ¬g
+ ->
+ ¬g_æags
+  & 
+ AF_LISTISH
+ )
+ 
+ 930 
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_LIST
+ ,1,¬g,
+ Nuάg
+ ,Nullarg);
+ 
+ 931  
+ ¬g
+ ;
+ 
+ 932 
+ 	}
+ }
+ 
+ 934 
+ ARG
+  *
+ 
+ 935 
+ 	$mayb–i¡ish
+ (
+ Ýty³
+ , 
+ ¬g
+ )
+ 
+ 936 
+ Ýty³
+ ;
+ 
+ 937 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 939 
+ ARG
+  *
+ tm·rg
+  = 
+ ¬g
+ ;
+ 
+ 941 ià(
+ Ýty³
+  =ð
+ O_RETURN
+  && 
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ITEM
+  &&
+ 
+ 942 
+ ¬g
+ [1].
+ ¬g_ty³
+  =ð
+ A_EXPR
+  && (
+ tm·rg
+  =‡rg[1].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ) &&
+ 
+ 943 ((
+ tm·rg
+ ->
+ ¬g_æags
+  & 
+ AF_LISTISH
+ è|| (tm·rg->
+ ¬g_ty³
+  =ð
+ O_ARRAY
+ ) )) {
+ 
+ 944 
+ tm·rg
+  = 
+ 	`li¡ish
+ (tmparg);
+ 
+ 945 
+ 	`ä“_¬g
+ (
+ ¬g
+ );
+ 
+ 946 
+ ¬g
+  = 
+ tm·rg
+ ;
+ 
+ 948 ià(
+ Ýty³
+  =ð
+ O_PRTF
+  ||
+ 
+ 949 (
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ASLICE
+  ||‡rg->¬g_ty³ =ð
+ O_HSLICE
+  ||
+ 
+ 950 
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_F_OR_R
+ ) )
+ 
+ 951 
+ ¬g
+  = 
+ 	`li¡ish
+ (arg);
+ 
+ 952  
+ ¬g
+ ;
+ 
+ 953 
+ 	}
+ }
+ 
+ 957 
+ ARG
+  *
+ 
+ 958 
+ 	$loÿlize
+ (
+ ¬g
+ )
+ 
+ 959 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 961 
+ ¬g
+ ->
+ ¬g_æags
+  |ð
+ AF_LOCAL
+ ;
+ 
+ 962  
+ ¬g
+ ;
+ 
+ 963 
+ 	}
+ }
+ 
+ 965 
+ ARG
+  *
+ 
+ 966 
+ 	$rÿtmaybe
+ (
+ ¬g
+ )
+ 
+ 967 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 969 
+ ARG
+  *
+ ¬g2
+ ;
+ 
+ 971 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_CONCAT
+  &&‡rg[2].¬g_ty³ =ð
+ A_EXPR
+ ) {
+ 
+ 972 
+ ¬g2
+  = 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ;
+ 
+ 973 ià(
+ ¬g2
+ ->
+ ¬g_ty³
+  =ð
+ O_ITEM
+  &&‡rg2[1].¬g_ty³ =ð
+ A_READ
+ ) {
+ 
+ 974 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_RCAT
+ ;
+ 
+ 975 
+ ¬g
+ [2].
+ ¬g_ty³
+  = 
+ ¬g2
+ [1].arg_type;
+ 
+ 976 
+ ¬g
+ [2].
+ ¬g_±r
+  = 
+ ¬g2
+ [1].arg_ptr;
+ 
+ 977 
+ 	`ä“_¬g
+ (
+ ¬g2
+ );
+ 
+ 980  
+ ¬g
+ ;
+ 
+ 981 
+ 	}
+ }
+ 
+ 983 
+ ARG
+  *
+ 
+ 984 
+ 	$¡ab2¬g
+ (
+ ©y³
+ ,
+ ¡ab
+ )
+ 
+ 985 
+ ©y³
+ ;
+ 
+ 986 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 988 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 990 
+ ¬g
+  = 
+ 	`Ý_Ãw
+ (1);
+ 
+ 991 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_ITEM
+ ;
+ 
+ 992 
+ ¬g
+ [1].
+ ¬g_ty³
+  = 
+ ©y³
+ ;
+ 
+ 993 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+  = 
+ ¡ab
+ ;
+ 
+ 994  
+ ¬g
+ ;
+ 
+ 995 
+ 	}
+ }
+ 
+ 997 
+ ARG
+  *
+ 
+ 998 
+ 	$cv®_to_¬g
+ (
+ cv®
+ )
+ 
+ 999 *
+ cv®
+ ;
+ 
+ 1001 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 1003 
+ ¬g
+  = 
+ 	`Ý_Ãw
+ (1);
+ 
+ 1004 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_ITEM
+ ;
+ 
+ 1005 
+ ¬g
+ [1].
+ ¬g_ty³
+  = 
+ A_SINGLE
+ ;
+ 
+ 1006 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡r
+  = 
+ 	`¡r_make
+ (
+ cv®
+ ,0);
+ 
+ 1007 
+ 	`Saãä“
+ (
+ cv®
+ );
+ 
+ 1008  
+ ¬g
+ ;
+ 
+ 1009 
+ 	}
+ }
+ 
+ 1011 
+ ARG
+  *
+ 
+ 1012 
+ 	$Ý_Ãw
+ (
+ num¬gs
+ )
+ 
+ 1013 
+ num¬gs
+ ;
+ 
+ 1015 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 1017 
+ 	`Newz
+ (203,
+ ¬g
+ , 
+ num¬gs
+  + 1, 
+ ARG
+ );
+ 
+ 1018 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+  = 
+ 	`SŒ_Ãw
+ (21,0);
+ 
+ 1019 
+ ¬g
+ ->
+ ¬g_Ën
+  = 
+ num¬gs
+ ;
+ 
+ 1020  
+ ¬g
+ ;
+ 
+ 1021 
+ 	}
+ }
+ 
+ 1024 
+ 	$ä“_¬g
+ (
+ ¬g
+ )
+ 
+ 1025 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 1027 
+ 	`¡r_ä“
+ (
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ );
+ 
+ 1028 
+ 	`Saãä“
+ (
+ ¬g
+ );
+ 
+ 1029 
+ 	}
+ }
+ 
+ 1031 
+ ARG
+  *
+ 
+ 1032 
+ 	$make_m©ch
+ (
+ ty³
+ ,
+ ex´
+ ,
+ ¥©
+ )
+ 
+ 1033 
+ ty³
+ ;
+ 
+ 1034 
+ ARG
+  *
+ ex´
+ ;
+ 
+ 1035 
+ SPAT
+  *
+ ¥©
+ ;
+ 
+ 1037 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 1039 
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ ty³
+ ,2,
+ ex´
+ ,
+ Nuάg
+ ,Nullarg);
+ 
+ 1041 
+ ¬g
+ [2].
+ ¬g_ty³
+  = 
+ A_SPAT
+ |
+ A_DONT
+ ;
+ 
+ 1042 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+  = 
+ ¥©
+ ;
+ 
+ 1043 #ifdeà
+ DEBUGGING
+ 
+ 
+ 1044 ià(
+ debug
+  & 16)
+ 
+ 1045 
+ 	`årštf
+ (
+ ¡d”r
+ ,"make_m©ch SPAT=%lx\n",()
+ ¥©
+ );
+ 
+ 1048 ià(
+ ty³
+  =ð
+ O_SUBST
+  ||y³ =ð
+ O_NSUBST
+ ) {
+ 
+ 1049 ià(
+ ¬g
+ [1].
+ ¬g_ty³
+  !ð
+ A_STAB
+ ) {
+ 
+ 1050 
+ 	`yy”rÜ
+ ("Illegal†value");
+ 
+ 1052 
+ ¬g
+ [1].
+ ¬g_ty³
+  = 
+ A_LVAL
+ ;
+ 
+ 1054  
+ ¬g
+ ;
+ 
+ 1055 
+ 	}
+ }
+ 
+ 1057 
+ ARG
+  *
+ 
+ 1058 
+ 	$cmd_to_¬g
+ (
+ cmd
+ )
+ 
+ 1059 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 1061 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 1063 
+ ¬g
+  = 
+ 	`Ý_Ãw
+ (1);
+ 
+ 1064 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_ITEM
+ ;
+ 
+ 1065 
+ ¬g
+ [1].
+ ¬g_ty³
+  = 
+ A_CMD
+ ;
+ 
+ 1066 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_cmd
+  = 
+ cmd
+ ;
+ 
+ 1067  
+ ¬g
+ ;
+ 
+ 1068 
+ 	}
+ }
+ 
+ 1073 
+ 	$nÙhšg_š_commÚ
+ (
+ ¬g1
+ ,
+ ¬g2
+ )
+ 
+ 1074 
+ ARG
+  *
+ ¬g1
+ ;
+ 
+ 1075 
+ ARG
+  *
+ ¬g2
+ ;
+ 
+ 1077 
+ thi£x´
+  = 0;
+ 
+ 1079 
+ thi£x´
+ ++;
+ 
+ 1080 ià(
+ 	`¬g_commÚ
+ (
+ ¬g1
+ ,
+ thi£x´
+ ,1))
+ 
+ 1082 
+ 	`¡ab_Ï¡ex´
+ (
+ def¡ab
+ èð
+ thi£x´
+ ;
+ 
+ 1083 ià(
+ 	`¬g_commÚ
+ (
+ ¬g2
+ ,
+ thi£x´
+ ,0))
+ 
+ 1086 
+ 	}
+ }
+ 
+ 1093 
+ 	$¬g_commÚ
+ (
+ ¬g
+ ,
+ ex´num
+ ,
+ m¬kšg
+ )
+ 
+ 1094 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 1095 
+ ex´num
+ ;
+ 
+ 1096 
+ m¬kšg
+ ;
+ 
+ 1098 
+ i
+ ;
+ 
+ 1100 ià(!
+ ¬g
+ )
+ 
+ 1102 
+ i
+  = 
+ ¬g
+ ->
+ ¬g_Ën
+ ; i >= 1; i--) {
+ 
+ 1103 
+ ¬g
+ [
+ i
+ ].
+ ¬g_ty³
+  & 
+ A_MASK
+ ) {
+ 
+ 1104 
+ A_NULL
+ :
+ 
+ 1106 
+ A_LEXPR
+ :
+ 
+ 1107 
+ A_EXPR
+ :
+ 
+ 1108 ià(
+ 	`¬g_commÚ
+ (
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ,
+ ex´num
+ ,
+ m¬kšg
+ ))
+ 
+ 1111 
+ A_CMD
+ :
+ 
+ 1113 
+ A_STAR
+ :
+ 
+ 1114 
+ A_LSTAR
+ :
+ 
+ 1115 
+ A_STAB
+ :
+ 
+ 1116 
+ A_LVAL
+ :
+ 
+ 1117 
+ A_ARYLEN
+ :
+ 
+ 1118 
+ A_LARYLEN
+ :
+ 
+ 1119 ià(
+ m¬kšg
+ )
+ 
+ 1120 
+ 	`¡ab_Ï¡ex´
+ (
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ èð
+ ex´num
+ ;
+ 
+ 1121 ià(
+ 	`¡ab_Ï¡ex´
+ (
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ è=ð
+ ex´num
+ )
+ 
+ 1124 
+ A_DOUBLE
+ :
+ 
+ 1125 
+ A_BACKTICK
+ :
+ 
+ 1127 *
+ s
+  = 
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¡r
+ ->
+ ¡r_±r
+ ;
+ 
+ 1128 *
+ £nd
+  = 
+ s
+  + 
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 1129 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 1131 *
+ s
+ ) {
+ 
+ 1132 ià(*
+ s
+  == '$' && s[1]) {
+ 
+ 1133 
+ s
+  = 
+ 	`sÿnid’t
+ (s,
+ £nd
+ ,
+ tok’buf
+ );
+ 
+ 1134 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ tok’buf
+ ,
+ TRUE
+ );
+ 
+ 1135 ià(
+ m¬kšg
+ )
+ 
+ 1136 
+ 	`¡ab_Ï¡ex´
+ (
+ ¡ab
+ èð
+ ex´num
+ ;
+ 
+ 1137 ià(
+ 	`¡ab_Ï¡ex´
+ (
+ ¡ab
+ è=ð
+ ex´num
+ )
+ 
+ 1141 ià(*
+ s
+  == '\\' && s[1])
+ 
+ 1142 
+ s
+ ++;
+ 
+ 1143 
+ s
+ ++;
+ 
+ 1147 
+ A_SPAT
+ :
+ 
+ 1148 ià(
+ 	`¥©_commÚ
+ (
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¥©
+ ,
+ ex´num
+ ,
+ m¬kšg
+ ))
+ 
+ 1151 
+ A_READ
+ :
+ 
+ 1152 
+ A_INDREAD
+ :
+ 
+ 1153 
+ A_GLOB
+ :
+ 
+ 1154 
+ A_WORD
+ :
+ 
+ 1155 
+ A_SINGLE
+ :
+ 
+ 1159 
+ ¬g
+ ->
+ ¬g_ty³
+ ) {
+ 
+ 1160 
+ O_ARRAY
+ :
+ 
+ 1161 
+ O_LARRAY
+ :
+ 
+ 1162 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_STAB
+ )
+ 
+ 1163 ()
+ 	`¯dd
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ );
+ 
+ 1165 
+ O_HASH
+ :
+ 
+ 1166 
+ O_LHASH
+ :
+ 
+ 1167 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_STAB
+ )
+ 
+ 1168 ()
+ 	`hadd
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ );
+ 
+ 1170 
+ O_EVAL
+ :
+ 
+ 1171 
+ O_SUBR
+ :
+ 
+ 1172 
+ O_DBSUBR
+ :
+ 
+ 1176 
+ 	}
+ }
+ 
+ 1179 
+ 	$¥©_commÚ
+ (
+ ¥©
+ ,
+ ex´num
+ ,
+ m¬kšg
+ )
+ 
+ 1180 
+ SPAT
+  *
+ ¥©
+ ;
+ 
+ 1181 
+ ex´num
+ ;
+ 
+ 1182 
+ m¬kšg
+ ;
+ 
+ 1184 ià(
+ ¥©
+ ->
+ ¥©_ruÁime
+ )
+ 
+ 1185 ià(
+ 	`¬g_commÚ
+ (
+ ¥©
+ ->
+ ¥©_ruÁime
+ ,
+ ex´num
+ ,
+ m¬kšg
+ ))
+ 
+ 1187 ià(
+ ¥©
+ ->
+ ¥©_»¶
+ ) {
+ 
+ 1188 ià(
+ 	`¬g_commÚ
+ (
+ ¥©
+ ->
+ ¥©_»¶
+ ,
+ ex´num
+ ,
+ m¬kšg
+ ))
+ 
+ 1192 
+ 	}
+ }
+ 
+ 	@doarg.c
+ 
+ 18 
+ 	~"EXTERN.h
+ "
+ 
+ 19 
+ 	~"³¾.h
+ "
+ 
+ 21 #ià!
+ defšed
+ (
+ NSIG
+ è|| defšed(
+ M_UNIX
+ è|| defšed(
+ M_XENIX
+ )
+ 
+ 22 
+ 	~<sigÇl.h
+ >
+ 
+ 25 

+ fÞd
+ [];
+ 
+ 27 #ifdeà
+ BUGGY_MSC
+ 
+ 
+ 28 #´agm¨
+ funùiÚ
+ (
+ memcmp
+ )
+ 
+ 32 
+ 	$do_sub¡
+ (
+ ¡r
+ ,
+ ¬g
+ ,
+ ¥
+ )
+ 
+ 33 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 34 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 35 
+ ¥
+ ;
+ 
+ 37 
+ SPAT
+  *
+ ¥©
+ ;
+ 
+ 38 
+ SPAT
+  *
+ r¥©
+ ;
+ 
+ 39 
+ STR
+  *
+ d¡r
+ ;
+ 
+ 40 *
+ s
+  = 
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 41 *
+ ¡»nd
+  = 
+ s
+  + 
+ ¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 42 *
+ m
+ ;
+ 
+ 43 *
+ c
+ ;
+ 
+ 44 *
+ d
+ ;
+ 
+ 45 
+ þ’
+ ;
+ 
+ 46 
+ ™”s
+  = 0;
+ 
+ 47 
+ max™”s
+  = (
+ ¡»nd
+  - 
+ s
+ ) + 10;
+ 
+ 48 
+ i
+ ;
+ 
+ 49 
+ boÞ
+  
+ Úû
+ ;
+ 
+ 50 *
+ Üig
+ ;
+ 
+ 51 
+ §ãba£
+ ;
+ 
+ 53 
+ r¥©
+  = 
+ ¥©
+  = 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+ ;
+ 
+ 54 ià(!
+ ¥©
+  || !
+ s
+ )
+ 
+ 55 
+ 	`çl
+ ("panic: do_subst");
+ 
+ 56 ià(
+ ¥©
+ ->
+ ¥©_ruÁime
+ ) {
+ 
+ 57 
+ nošŒp
+  = "|)";
+ 
+ 58 ()
+ 	`ev®
+ (
+ ¥©
+ ->
+ ¥©_ruÁime
+ ,
+ G_SCALAR
+ ,
+ ¥
+ );
+ 
+ 59 
+ m
+  = 
+ 	`¡r_g‘
+ (
+ d¡r
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1]);
+ 
+ 60 
+ nošŒp
+  = "";
+ 
+ 61 ià(
+ ¥©
+ ->
+ ¥©_»gexp
+ ) {
+ 
+ 62 
+ 	`»gä“
+ (
+ ¥©
+ ->
+ ¥©_»gexp
+ );
+ 
+ 63 
+ ¥©
+ ->
+ ¥©_»gexp
+  = 
+ 	`NuÎ
+ (
+ REGEXP
+ *);
+ 
+ 65 
+ ¥©
+ ->
+ ¥©_»gexp
+  = 
+ 	`»gcomp
+ (
+ m
+ ,m+
+ d¡r
+ ->
+ ¡r_cur
+ ,
+ 
+ 66 
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_FOLD
+ );
+ 
+ 67 ià(
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_KEEP
+ ) {
+ 
+ 68 
+ 	`¬g_ä“
+ (
+ ¥©
+ ->
+ ¥©_ruÁime
+ );
+ 
+ 69 
+ ¥©
+ ->
+ ¥©_ruÁime
+  = 
+ Nuάg
+ ;
+ 
+ 72 #ifdeà
+ DEBUGGING
+ 
+ 
+ 73 ià(
+ debug
+  & 8) {
+ 
+ 74 
+ 	`deb
+ ("2.SPAT /%s/\n",
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ´ecomp
+ );
+ 
+ 77 
+ §ãba£
+  = ((!
+ ¥©
+ ->
+ ¥©_»gexp
+  || !¥©->¥©_»gexp->
+ Ŭ’s
+ ) &&
+ 
+ 78 !
+ §wam³r§nd
+ );
+ 
+ 79 ià(!*
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ´ecomp
+  && 
+ Ï¡¥©
+ )
+ 
+ 80 
+ ¥©
+  = 
+ Ï¡¥©
+ ;
+ 
+ 81 
+ Üig
+  = 
+ m
+  = 
+ s
+ ;
+ 
+ 82 ià(
+ hšt
+ ) {
+ 
+ 83 ià(
+ hšt
+  < 
+ s
+  || hšˆ> 
+ ¡»nd
+ )
+ 
+ 84 
+ 	`çl
+ ("panic: hint in do_match");
+ 
+ 85 
+ s
+  = 
+ hšt
+ ;
+ 
+ 86 
+ hšt
+  = 
+ NuÎch
+ ;
+ 
+ 87 ià(
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ »gback
+  >= 0) {
+ 
+ 88 
+ s
+  -ð
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ »gback
+ ;
+ 
+ 89 ià(
+ s
+  < 
+ m
+ )
+ 
+ 90 
+ s
+  = 
+ m
+ ;
+ 
+ 93 
+ s
+  = 
+ m
+ ;
+ 
+ 95 ià(
+ ¥©
+ ->
+ ¥©_shÜt
+ ) {
+ 
+ 96 ià(
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_SCANFIRST
+ ) {
+ 
+ 97 ià(
+ ¡r
+ ->
+ ¡r_pok
+  & 
+ SP_STUDIED
+ ) {
+ 
+ 98 ià(
+ sü—mfœ¡
+ [
+ ¥©
+ ->
+ ¥©_shÜt
+ ->
+ ¡r_¿»
+ ] < 0)
+ 
+ 99 
+ nÝe
+ ;
+ 
+ 100 ià(!(
+ s
+  = 
+ 	`sü—mš¡r
+ (
+ ¡r
+ ,
+ ¥©
+ ->
+ ¥©_shÜt
+ )))
+ 
+ 101 
+ nÝe
+ ;
+ 
+ 103 #iâdeà
+ lšt
+ 
+ 
+ 104 ià(!(
+ s
+  = 
+ 	`fbmš¡r
+ ((*)s, (*)
+ ¡»nd
+ ,
+ 
+ 105 
+ ¥©
+ ->
+ ¥©_shÜt
+ )))
+ 
+ 106 
+ nÝe
+ ;
+ 
+ 108 ià(
+ s
+  && 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ »gback
+  >= 0) {
+ 
+ 109 ++
+ ¥©
+ ->
+ ¥©_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+ ;
+ 
+ 110 
+ s
+  -ð
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ »gback
+ ;
+ 
+ 111 ià(
+ s
+  < 
+ m
+ )
+ 
+ 112 
+ s
+  = 
+ m
+ ;
+ 
+ 115 
+ s
+  = 
+ m
+ ;
+ 
+ 117 ià(!
+ muÉžše
+  && (*
+ ¥©
+ ->
+ ¥©_shÜt
+ ->
+ ¡r_±r
+  !ð*
+ s
+  ||
+ 
+ 118 
+ 	`bcmp
+ (
+ ¥©
+ ->
+ ¥©_shÜt
+ ->
+ ¡r_±r
+ , 
+ s
+ , s·t->
+ ¥©_¦’
+ ) ))
+ 
+ 119 
+ nÝe
+ ;
+ 
+ 120 ià(--
+ ¥©
+ ->
+ ¥©_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+  < 0) {
+ 
+ 121 
+ 	`¡r_ä“
+ (
+ ¥©
+ ->
+ ¥©_shÜt
+ );
+ 
+ 122 
+ ¥©
+ ->
+ ¥©_shÜt
+  = 
+ NuΡr
+ ;
+ 
+ 125 
+ Úû
+  = ((
+ r¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_ONCE
+ ) != 0);
+ 
+ 126 ià(
+ r¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_CONST
+ ) {
+ 
+ 127 ià((
+ r¥©
+ ->
+ ¥©_»¶
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_SINGLE
+ )
+ 
+ 128 
+ d¡r
+  = 
+ r¥©
+ ->
+ ¥©_»¶
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 130 ()
+ 	`ev®
+ (
+ r¥©
+ ->
+ ¥©_»¶
+ ,
+ G_SCALAR
+ ,
+ ¥
+ );
+ 
+ 131 
+ d¡r
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1];
+ 
+ 133 
+ c
+  = 
+ 	`¡r_g‘
+ (
+ d¡r
+ );
+ 
+ 134 
+ þ’
+  = 
+ d¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 135 ià(
+ þ’
+  <ð
+ ¥©
+ ->
+ ¥©_¦’
+  + ()¥©->
+ ¥©_»gexp
+ ->
+ »gback
+ ) {
+ 
+ 137 ià(
+ 	`»gexec
+ (
+ ¥©
+ ->
+ ¥©_»gexp
+ , 
+ s
+ , 
+ ¡»nd
+ , 
+ Üig
+ , 0,
+ 
+ 138 
+ ¡r
+ ->
+ ¡r_pok
+  & 
+ SP_STUDIED
+  ? sΠ: 
+ NuΡr
+ , 
+ §ãba£
+ )) {
+ 
+ 139 ià(
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+ )
+ 
+ 140 
+ lÚg_way
+ ;
+ 
+ 141 
+ d
+  = 
+ s
+ ;
+ 
+ 142 
+ Ï¡¥©
+  = 
+ ¥©
+ ;
+ 
+ 143 
+ ¡r
+ ->
+ ¡r_pok
+  = 
+ SP_VALID
+ ;
+ 
+ 144 ià(
+ Úû
+ ) {
+ 
+ 145 
+ m
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ¡¬
+ [0];
+ 
+ 146 
+ d
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ’dp
+ [0];
+ 
+ 147 
+ s
+  = 
+ Üig
+ ;
+ 
+ 148 ià(
+ m
+  - 
+ s
+  > 
+ ¡»nd
+  - 
+ d
+ ) {
+ 
+ 149 ià(
+ þ’
+ ) {
+ 
+ 150 ()
+ 	`bcÝy
+ (
+ c
+ , 
+ m
+ , 
+ þ’
+ );
+ 
+ 151 
+ m
+  +ð
+ þ’
+ ;
+ 
+ 153 
+ i
+  = 
+ ¡»nd
+  - 
+ d
+ ;
+ 
+ 154 ià(
+ i
+  > 0) {
+ 
+ 155 ()
+ 	`bcÝy
+ (
+ d
+ , 
+ m
+ , 
+ i
+ );
+ 
+ 156 
+ m
+  +ð
+ i
+ ;
+ 
+ 158 *
+ m
+  = '\0';
+ 
+ 159 
+ ¡r
+ ->
+ ¡r_cur
+  = 
+ m
+  - 
+ s
+ ;
+ 
+ 160 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 161 
+ 	`¡r_num£t
+ (
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ , 1.0);
+ 
+ 162 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [++
+ ¥
+ ] = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 163  
+ ¥
+ ;
+ 
+ 165 ià(
+ i
+  = 
+ m
+  - 
+ s
+ ) {
+ 
+ 166 
+ d
+  -ð
+ þ’
+ ;
+ 
+ 167 
+ m
+  = 
+ d
+ ;
+ 
+ 168 
+ 	`¡r_chÝ
+ (
+ ¡r
+ ,
+ d
+ -
+ i
+ );
+ 
+ 169 
+ s
+  +ð
+ i
+ ;
+ 
+ 170 
+ i
+ --)
+ 
+ 171 *--
+ d
+  = *--
+ s
+ ;
+ 
+ 172 ià(
+ þ’
+ )
+ 
+ 173 ()
+ 	`bcÝy
+ (
+ c
+ , 
+ m
+ , 
+ þ’
+ );
+ 
+ 174 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 175 
+ 	`¡r_num£t
+ (
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ , 1.0);
+ 
+ 176 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [++
+ ¥
+ ] = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 177  
+ ¥
+ ;
+ 
+ 179 ià(
+ þ’
+ ) {
+ 
+ 180 
+ d
+  -ð
+ þ’
+ ;
+ 
+ 181 
+ 	`¡r_chÝ
+ (
+ ¡r
+ ,
+ d
+ );
+ 
+ 182 ()
+ 	`bcÝy
+ (
+ c
+ ,
+ d
+ ,
+ þ’
+ );
+ 
+ 183 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 184 
+ 	`¡r_num£t
+ (
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ , 1.0);
+ 
+ 185 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [++
+ ¥
+ ] = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 186  
+ ¥
+ ;
+ 
+ 189 
+ 	`¡r_chÝ
+ (
+ ¡r
+ ,
+ d
+ );
+ 
+ 190 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 191 
+ 	`¡r_num£t
+ (
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ , 1.0);
+ 
+ 192 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [++
+ ¥
+ ] = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 193  
+ ¥
+ ;
+ 
+ 198 ià(
+ ™”s
+ ++ > 
+ max™”s
+ )
+ 
+ 199 
+ 	`çl
+ ("Substitution†oop");
+ 
+ 200 
+ m
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ¡¬
+ [0];
+ 
+ 201 ià(
+ i
+  = 
+ m
+  - 
+ s
+ ) {
+ 
+ 202 ià(
+ s
+  !ð
+ d
+ )
+ 
+ 203 ()
+ 	`bcÝy
+ (
+ s
+ ,
+ d
+ ,
+ i
+ );
+ 
+ 204 
+ d
+  +ð
+ i
+ ;
+ 
+ 206 ià(
+ þ’
+ ) {
+ 
+ 207 ()
+ 	`bcÝy
+ (
+ c
+ ,
+ d
+ ,
+ þ’
+ );
+ 
+ 208 
+ d
+  +ð
+ þ’
+ ;
+ 
+ 210 
+ s
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ’dp
+ [0];
+ 
+ 211 } 
+ 	`»gexec
+ (
+ ¥©
+ ->
+ ¥©_»gexp
+ , 
+ s
+ , 
+ ¡»nd
+ , 
+ Üig
+ , s =ð
+ m
+ ,
+ 
+ 212 
+ NuΡr
+ , 
+ TRUE
+ ));
+ 
+ 213 ià(
+ s
+  !ð
+ d
+ ) {
+ 
+ 214 
+ i
+  = 
+ ¡»nd
+  - 
+ s
+ ;
+ 
+ 215 
+ ¡r
+ ->
+ ¡r_cur
+  = 
+ d
+  - sŒ->
+ ¡r_±r
+  + 
+ i
+ ;
+ 
+ 216 ()
+ 	`bcÝy
+ (
+ s
+ ,
+ d
+ ,
+ i
+ +1);
+ 
+ 218 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 219 
+ 	`¡r_num£t
+ (
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ , ()
+ ™”s
+ );
+ 
+ 220 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [++
+ ¥
+ ] = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 221  
+ ¥
+ ;
+ 
+ 223 
+ 	`¡r_num£t
+ (
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ , 0.0);
+ 
+ 224 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [++
+ ¥
+ ] = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 225  
+ ¥
+ ;
+ 
+ 229 
+ c
+  = 
+ NuÎch
+ ;
+ 
+ 230 ià(
+ 	`»gexec
+ (
+ ¥©
+ ->
+ ¥©_»gexp
+ , 
+ s
+ , 
+ ¡»nd
+ , 
+ Üig
+ , 0,
+ 
+ 231 
+ ¡r
+ ->
+ ¡r_pok
+  & 
+ SP_STUDIED
+  ? sΠ: 
+ NuΡr
+ , 
+ §ãba£
+ )) {
+ 
+ 232 
+ lÚg_way
+ :
+ 
+ 233 
+ d¡r
+  = 
+ 	`SŒ_Ãw
+ (25,
+ 	`¡r_Ën
+ (
+ ¡r
+ ));
+ 
+ 234 
+ 	`¡r_n£t
+ (
+ d¡r
+ ,
+ m
+ ,
+ s
+ -m);
+ 
+ 235 ià(
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+ )
+ 
+ 236 
+ cur¥©
+  = 
+ ¥©
+ ;
+ 
+ 237 
+ Ï¡¥©
+  = 
+ ¥©
+ ;
+ 
+ 239 ià(
+ ™”s
+ ++ > 
+ max™”s
+ )
+ 
+ 240 
+ 	`çl
+ ("Substitution†oop");
+ 
+ 241 ià(
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+ 
+ 
+ 242 && 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+  !ð
+ Üig
+ ) {
+ 
+ 243 
+ m
+  = 
+ s
+ ;
+ 
+ 244 
+ s
+  = 
+ Üig
+ ;
+ 
+ 245 
+ Üig
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+ ;
+ 
+ 246 
+ s
+  = 
+ Üig
+  + (
+ m
+  - s);
+ 
+ 247 
+ ¡»nd
+  = 
+ s
+  + (¡»nd - 
+ m
+ );
+ 
+ 249 
+ m
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ¡¬
+ [0];
+ 
+ 250 
+ 	`¡r_nÿt
+ (
+ d¡r
+ ,
+ s
+ ,
+ m
+ -s);
+ 
+ 251 
+ s
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ’dp
+ [0];
+ 
+ 252 ià(
+ c
+ ) {
+ 
+ 253 ià(
+ þ’
+ )
+ 
+ 254 
+ 	`¡r_nÿt
+ (
+ d¡r
+ ,
+ c
+ ,
+ þ’
+ );
+ 
+ 257 *
+ mysubba£
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+ ;
+ 
+ 259 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+  = 
+ NuÎch
+ ;
+ 
+ 260 ()
+ 	`ev®
+ (
+ r¥©
+ ->
+ ¥©_»¶
+ ,
+ G_SCALAR
+ ,
+ ¥
+ );
+ 
+ 261 
+ 	`¡r_sÿt
+ (
+ d¡r
+ ,
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1]);
+ 
+ 262 ià(
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+ )
+ 
+ 263 
+ 	`Saãä“
+ (
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+ );
+ 
+ 264 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+  = 
+ mysubba£
+ ;
+ 
+ 266 ià(
+ Úû
+ )
+ 
+ 268 } 
+ 	`»gexec
+ (
+ ¥©
+ ->
+ ¥©_»gexp
+ , 
+ s
+ , 
+ ¡»nd
+ , 
+ Üig
+ , s =ð
+ m
+ , 
+ NuΡr
+ ,
+ 
+ 269 
+ §ãba£
+ ));
+ 
+ 270 
+ 	`¡r_nÿt
+ (
+ d¡r
+ ,
+ s
+ ,
+ ¡»nd
+  - s);
+ 
+ 271 
+ 	`¡r_»¶aû
+ (
+ ¡r
+ ,
+ d¡r
+ );
+ 
+ 272 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 273 
+ 	`¡r_num£t
+ (
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ , ()
+ ™”s
+ );
+ 
+ 274 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [++
+ ¥
+ ] = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 275  
+ ¥
+ ;
+ 
+ 277 
+ 	`¡r_num£t
+ (
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ , 0.0);
+ 
+ 278 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [++
+ ¥
+ ] = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 279  
+ ¥
+ ;
+ 
+ 281 
+ nÝe
+ :
+ 
+ 282 ++
+ ¥©
+ ->
+ ¥©_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+ ;
+ 
+ 283 
+ 	`¡r_num£t
+ (
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ , 0.0);
+ 
+ 284 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [++
+ ¥
+ ] = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 285  
+ ¥
+ ;
+ 
+ 286 
+ 	}
+ }
+ 
+ 287 #ifdeà
+ BUGGY_MSC
+ 
+ 
+ 288 #´agm¨
+ šŒšsic
+ (
+ memcmp
+ )
+ 
+ 292 
+ 	$do_λs
+ (
+ ¡r
+ ,
+ ¬g
+ )
+ 
+ 293 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 294 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 296 *
+ tbl
+ ;
+ 
+ 297 *
+ s
+ ;
+ 
+ 298 
+ m©ches
+  = 0;
+ 
+ 299 
+ ch
+ ;
+ 
+ 300 *
+ £nd
+ ;
+ 
+ 301 *
+ d
+ ;
+ 
+ 302 
+ squash
+  = 
+ ¬g
+ [2].
+ ¬g_Ën
+  & 1;
+ 
+ 304 
+ tbl
+  = (*è
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_cv®
+ ;
+ 
+ 305 
+ s
+  = 
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 306 
+ £nd
+  = 
+ s
+  + 
+ ¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 307 ià(!
+ tbl
+  || !
+ s
+ )
+ 
+ 308 
+ 	`çl
+ ("panic: do_trans");
+ 
+ 309 #ifdeà
+ DEBUGGING
+ 
+ 
+ 310 ià(
+ debug
+  & 8) {
+ 
+ 311 
+ 	`deb
+ ("2.TBL\n");
+ 
+ 314 ià(!
+ ¬g
+ [2].
+ ¬g_Ën
+ ) {
+ 
+ 315 
+ s
+  < 
+ £nd
+ ) {
+ 
+ 316 ià((
+ ch
+  = 
+ tbl
+ [*
+ s
+  & 0377]) >= 0) {
+ 
+ 317 
+ m©ches
+ ++;
+ 
+ 318 *
+ s
+  = 
+ ch
+ ;
+ 
+ 320 
+ s
+ ++;
+ 
+ 324 
+ d
+  = 
+ s
+ ;
+ 
+ 325 
+ s
+  < 
+ £nd
+ ) {
+ 
+ 326 ià((
+ ch
+  = 
+ tbl
+ [*
+ s
+  & 0377]) >= 0) {
+ 
+ 327 *
+ d
+  = 
+ ch
+ ;
+ 
+ 328 ià(
+ m©ches
+ ++ && 
+ squash
+ ) {
+ 
+ 329 ià(
+ d
+ [-1] == *d)
+ 
+ 330 
+ m©ches
+ --;
+ 
+ 332 
+ d
+ ++;
+ 
+ 335 
+ d
+ ++;
+ 
+ 337 ià(
+ ch
+  == -1)
+ 
+ 338 *
+ d
+ ++ = *
+ s
+ ;
+ 
+ 339 
+ s
+ ++;
+ 
+ 341 
+ m©ches
+  +ð
+ £nd
+  - 
+ d
+ ;
+ 
+ 342 *
+ d
+  = '\0';
+ 
+ 343 
+ ¡r
+ ->
+ ¡r_cur
+  = 
+ d
+  - sŒ->
+ ¡r_±r
+ ;
+ 
+ 345 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 346  
+ m©ches
+ ;
+ 
+ 347 
+ 	}
+ }
+ 
+ 350 
+ 	$do_još
+ (
+ ¡r
+ ,
+ ¬gÏ¡
+ )
+ 
+ 351 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 352 *
+ ¬gÏ¡
+ ;
+ 
+ 354 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 355 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 356 
+ ™ems
+  = 
+ ¬gÏ¡
+ [2] - 
+ ¥
+ ;
+ 
+ 357 *
+ d–im
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [
+ ¥
+ ]);
+ 
+ 358 
+ d–imËn
+  = 
+ ¡
+ [
+ ¥
+ ]->
+ ¡r_cur
+ ;
+ 
+ 360 
+ ¡
+  +ð++
+ ¥
+ ;
+ 
+ 361 ià(
+ ™ems
+ -- > 0)
+ 
+ 362 
+ 	`¡r_s£t
+ (
+ ¡r
+ , *
+ ¡
+ ++);
+ 
+ 364 
+ 	`¡r_£t
+ (
+ ¡r
+ ,"");
+ 
+ 365 ià(
+ d–imËn
+ ) {
+ 
+ 366 ; 
+ ™ems
+  > 0; i‹ms--,
+ ¡
+ ++) {
+ 
+ 367 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,
+ d–im
+ ,
+ d–imËn
+ );
+ 
+ 368 
+ 	`¡r_sÿt
+ (
+ ¡r
+ ,*
+ ¡
+ );
+ 
+ 372 ; 
+ ™ems
+  > 0; i‹ms--,
+ ¡
+ ++)
+ 
+ 373 
+ 	`¡r_sÿt
+ (
+ ¡r
+ ,*
+ ¡
+ );
+ 
+ 375 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 376 
+ 	}
+ }
+ 
+ 379 
+ 	$do_·ck
+ (
+ ¡r
+ ,
+ ¬gÏ¡
+ )
+ 
+ 380 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 381 *
+ ¬gÏ¡
+ ;
+ 
+ 383 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 384 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 385 
+ ™ems
+ ;
+ 
+ 386 *
+ ·t
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [
+ ¥
+ ]);
+ 
+ 387 *
+ ·‹nd
+  = 
+ ·t
+  + 
+ ¡
+ [
+ ¥
+ ]->
+ ¡r_cur
+ ;
+ 
+ 388 
+ Ën
+ ;
+ 
+ 389 
+ d©umty³
+ ;
+ 
+ 390 
+ STR
+  *
+ äom¡r
+ ;
+ 
+ 391 *
+ nuÎ10
+  = "\0\0\0\0\0\0\0\0\0\0";
+ 
+ 392 *
+ ¥aû10
+  = " ";
+ 
+ 395 
+ ach¬
+ ;
+ 
+ 396 
+ ashÜt
+ ;
+ 
+ 397 
+ ašt
+ ;
+ 
+ 398 
+ aušt
+ ;
+ 
+ 399 
+ ®Úg
+ ;
+ 
+ 400 
+ aulÚg
+ ;
+ 
+ 401 *
+ ­Œ
+ ;
+ 
+ 402 
+ aæßt
+ ;
+ 
+ 403 
+ adoubË
+ ;
+ 
+ 405 
+ ™ems
+  = 
+ ¬gÏ¡
+ [2] - 
+ ¥
+ ;
+ 
+ 406 
+ ¡
+  +ð++
+ ¥
+ ;
+ 
+ 407 
+ 	`¡r_n£t
+ (
+ ¡r
+ ,"",0);
+ 
+ 408 
+ ·t
+  < 
+ ·‹nd
+ ) {
+ 
+ 409 
+ 	#NEXTFROM
+  (
+ ™ems
+ -- > 0 ? *
+ ¡
+ ++ : &
+ ¡r_no
+ )
+ 
+ 	)
+ 
+ 410 
+ d©umty³
+  = *
+ ·t
+ ++;
+ 
+ 411 ià(*
+ ·t
+  == '*') {
+ 
+ 412 
+ Ën
+  = 
+ 	`šdex
+ ("@Xxu",
+ d©umty³
+ è? 0 : 
+ ™ems
+ ;
+ 
+ 413 
+ ·t
+ ++;
+ 
+ 415 ià(
+ 	`isdig™
+ (*
+ ·t
+ )) {
+ 
+ 416 
+ Ën
+  = *
+ ·t
+ ++ - '0';
+ 
+ 417 
+ 	`isdig™
+ (*
+ ·t
+ ))
+ 
+ 418 
+ Ën
+  = (ËÀ* 10è+ (*
+ ·t
+ ++ - '0');
+ 
+ 421 
+ Ën
+  = 1;
+ 
+ 422 
+ d©umty³
+ ) {
+ 
+ 426 
+ 	`çl
+ ("% may only be used in unpack");
+ 
+ 428 
+ Ën
+  -ð
+ ¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 429 ià(
+ Ën
+  > 0)
+ 
+ 430 
+ grow
+ ;
+ 
+ 431 
+ Ën
+  = -len;
+ 
+ 432 ià(
+ Ën
+  > 0)
+ 
+ 433 
+ shršk
+ ;
+ 
+ 436 
+ shršk
+ :
+ 
+ 437 ià(
+ ¡r
+ ->
+ ¡r_cur
+  < 
+ Ën
+ )
+ 
+ 438 
+ 	`çl
+ ("X outside of string");
+ 
+ 439 
+ ¡r
+ ->
+ ¡r_cur
+  -ð
+ Ën
+ ;
+ 
+ 440 
+ ¡r
+ ->
+ ¡r_±r
+ [¡r->
+ ¡r_cur
+ ] = '\0';
+ 
+ 443 
+ grow
+ :
+ 
+ 444 
+ Ën
+  >= 10) {
+ 
+ 445 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,
+ nuÎ10
+ ,10);
+ 
+ 446 
+ Ën
+  -= 10;
+ 
+ 448 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,
+ nuÎ10
+ ,
+ Ën
+ );
+ 
+ 452 
+ äom¡r
+  = 
+ NEXTFROM
+ ;
+ 
+ 453 
+ ­Œ
+  = 
+ 	`¡r_g‘
+ (
+ äom¡r
+ );
+ 
+ 454 ià(
+ ·t
+ [-1] == '*')
+ 
+ 455 
+ Ën
+  = 
+ äom¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 456 ià(
+ äom¡r
+ ->
+ ¡r_cur
+  > 
+ Ën
+ )
+ 
+ 457 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,
+ ­Œ
+ ,
+ Ën
+ );
+ 
+ 459 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,
+ ­Œ
+ ,
+ äom¡r
+ ->
+ ¡r_cur
+ );
+ 
+ 460 
+ Ën
+  -ð
+ äom¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 461 ià(
+ d©umty³
+  == 'A') {
+ 
+ 462 
+ Ën
+  >= 10) {
+ 
+ 463 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,
+ ¥aû10
+ ,10);
+ 
+ 464 
+ Ën
+  -= 10;
+ 
+ 466 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,
+ ¥aû10
+ ,
+ Ën
+ );
+ 
+ 469 
+ Ën
+  >= 10) {
+ 
+ 470 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,
+ nuÎ10
+ ,10);
+ 
+ 471 
+ Ën
+  -= 10;
+ 
+ 473 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,
+ nuÎ10
+ ,
+ Ën
+ );
+ 
+ 480 *
+ §v•©
+  = 
+ ·t
+ ;
+ 
+ 481 
+ §ve™ems
+  = 
+ ™ems
+ ;
+ 
+ 483 
+ äom¡r
+  = 
+ NEXTFROM
+ ;
+ 
+ 484 
+ ­Œ
+  = 
+ 	`¡r_g‘
+ (
+ äom¡r
+ );
+ 
+ 485 ià(
+ ·t
+ [-1] == '*')
+ 
+ 486 
+ Ën
+  = 
+ äom¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 487 
+ ·t
+  = 
+ ­Œ
+ ;
+ 
+ 488 
+ ašt
+  = 
+ ¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 489 
+ ¡r
+ ->
+ ¡r_cur
+  +ð(
+ Ën
+ +7)/8;
+ 
+ 490 
+ 	`STR_GROW
+ (
+ ¡r
+ , sŒ->
+ ¡r_cur
+  + 1);
+ 
+ 491 
+ ­Œ
+  = 
+ ¡r
+ ->
+ ¡r_±r
+  + 
+ ašt
+ ;
+ 
+ 492 ià(
+ Ën
+  > 
+ äom¡r
+ ->
+ ¡r_cur
+ )
+ 
+ 493 
+ Ën
+  = 
+ äom¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 494 
+ ašt
+  = 
+ Ën
+ ;
+ 
+ 495 
+ ™ems
+  = 0;
+ 
+ 496 ià(
+ d©umty³
+  == 'B') {
+ 
+ 497 
+ Ën
+  = 0;†’++ < 
+ ašt
+ ;) {
+ 
+ 498 
+ ™ems
+  |ð*
+ ·t
+ ++ & 1;
+ 
+ 499 ià(
+ Ën
+  & 7)
+ 
+ 500 
+ ™ems
+  <<= 1;
+ 
+ 502 *
+ ­Œ
+ ++ = 
+ ™ems
+  & 0xff;
+ 
+ 503 
+ ™ems
+  = 0;
+ 
+ 508 
+ Ën
+  = 0;†’++ < 
+ ašt
+ ;) {
+ 
+ 509 ià(*
+ ·t
+ ++ & 1)
+ 
+ 510 
+ ™ems
+  |= 128;
+ 
+ 511 ià(
+ Ën
+  & 7)
+ 
+ 512 
+ ™ems
+  >>= 1;
+ 
+ 514 *
+ ­Œ
+ ++ = 
+ ™ems
+  & 0xff;
+ 
+ 515 
+ ™ems
+  = 0;
+ 
+ 519 ià(
+ ašt
+  & 7) {
+ 
+ 520 ià(
+ d©umty³
+  == 'B')
+ 
+ 521 
+ ™ems
+  <<ð7 - (
+ ašt
+  & 7);
+ 
+ 523 
+ ™ems
+  >>ð7 - (
+ ašt
+  & 7);
+ 
+ 524 *
+ ­Œ
+ ++ = 
+ ™ems
+  & 0xff;
+ 
+ 526 
+ ·t
+  = 
+ ¡r
+ ->
+ ¡r_±r
+  + sŒ->
+ ¡r_cur
+ ;
+ 
+ 527 
+ ­Œ
+  <ð
+ ·t
+ )
+ 
+ 528 *
+ ­Œ
+ ++ = '\0';
+ 
+ 530 
+ ·t
+  = 
+ §v•©
+ ;
+ 
+ 531 
+ ™ems
+  = 
+ §ve™ems
+ ;
+ 
+ 537 *
+ §v•©
+  = 
+ ·t
+ ;
+ 
+ 538 
+ §ve™ems
+  = 
+ ™ems
+ ;
+ 
+ 540 
+ äom¡r
+  = 
+ NEXTFROM
+ ;
+ 
+ 541 
+ ­Œ
+  = 
+ 	`¡r_g‘
+ (
+ äom¡r
+ );
+ 
+ 542 ià(
+ ·t
+ [-1] == '*')
+ 
+ 543 
+ Ën
+  = 
+ äom¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 544 
+ ·t
+  = 
+ ­Œ
+ ;
+ 
+ 545 
+ ašt
+  = 
+ ¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 546 
+ ¡r
+ ->
+ ¡r_cur
+  +ð(
+ Ën
+ +1)/2;
+ 
+ 547 
+ 	`STR_GROW
+ (
+ ¡r
+ , sŒ->
+ ¡r_cur
+  + 1);
+ 
+ 548 
+ ­Œ
+  = 
+ ¡r
+ ->
+ ¡r_±r
+  + 
+ ašt
+ ;
+ 
+ 549 ià(
+ Ën
+  > 
+ äom¡r
+ ->
+ ¡r_cur
+ )
+ 
+ 550 
+ Ën
+  = 
+ äom¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 551 
+ ašt
+  = 
+ Ën
+ ;
+ 
+ 552 
+ ™ems
+  = 0;
+ 
+ 553 ià(
+ d©umty³
+  == 'H') {
+ 
+ 554 
+ Ën
+  = 0;†’++ < 
+ ašt
+ ;) {
+ 
+ 555 ià(
+ 	`i§Íha
+ (*
+ ·t
+ ))
+ 
+ 556 
+ ™ems
+  |ð((*
+ ·t
+ ++ & 15) + 9) & 15;
+ 
+ 558 
+ ™ems
+  |ð*
+ ·t
+ ++ & 15;
+ 
+ 559 ià(
+ Ën
+  & 1)
+ 
+ 560 
+ ™ems
+  <<= 4;
+ 
+ 562 *
+ ­Œ
+ ++ = 
+ ™ems
+  & 0xff;
+ 
+ 563 
+ ™ems
+  = 0;
+ 
+ 568 
+ Ën
+  = 0;†’++ < 
+ ašt
+ ;) {
+ 
+ 569 ià(
+ 	`i§Íha
+ (*
+ ·t
+ ))
+ 
+ 570 
+ ™ems
+  |ð(((*
+ ·t
+ ++ & 15) + 9) & 15) << 4;
+ 
+ 572 
+ ™ems
+  |ð(*
+ ·t
+ ++ & 15) << 4;
+ 
+ 573 ià(
+ Ën
+  & 1)
+ 
+ 574 
+ ™ems
+  >>= 4;
+ 
+ 576 *
+ ­Œ
+ ++ = 
+ ™ems
+  & 0xff;
+ 
+ 577 
+ ™ems
+  = 0;
+ 
+ 581 ià(
+ ašt
+  & 1)
+ 
+ 582 *
+ ­Œ
+ ++ = 
+ ™ems
+  & 0xff;
+ 
+ 583 
+ ·t
+  = 
+ ¡r
+ ->
+ ¡r_±r
+  + sŒ->
+ ¡r_cur
+ ;
+ 
+ 584 
+ ­Œ
+  <ð
+ ·t
+ )
+ 
+ 585 *
+ ­Œ
+ ++ = '\0';
+ 
+ 587 
+ ·t
+  = 
+ §v•©
+ ;
+ 
+ 588 
+ ™ems
+  = 
+ §ve™ems
+ ;
+ 
+ 593 
+ Ën
+ -- > 0) {
+ 
+ 594 
+ äom¡r
+  = 
+ NEXTFROM
+ ;
+ 
+ 595 
+ ašt
+  = ()
+ 	`¡r_gnum
+ (
+ äom¡r
+ );
+ 
+ 596 
+ ach¬
+  = 
+ ašt
+ ;
+ 
+ 597 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,&
+ ach¬
+ ,());
+ 
+ 603 
+ Ën
+ -- > 0) {
+ 
+ 604 
+ äom¡r
+  = 
+ NEXTFROM
+ ;
+ 
+ 605 
+ aæßt
+  = ()
+ 	`¡r_gnum
+ (
+ äom¡r
+ );
+ 
+ 606 
+ 	`¡r_nÿt
+ (
+ ¡r
+ , (*)&
+ aæßt
+ ,  ());
+ 
+ 611 
+ Ën
+ -- > 0) {
+ 
+ 612 
+ äom¡r
+  = 
+ NEXTFROM
+ ;
+ 
+ 613 
+ adoubË
+  = ()
+ 	`¡r_gnum
+ (
+ äom¡r
+ );
+ 
+ 614 
+ 	`¡r_nÿt
+ (
+ ¡r
+ , (*)&
+ adoubË
+ ,  ());
+ 
+ 618 
+ Ën
+ -- > 0) {
+ 
+ 619 
+ äom¡r
+  = 
+ NEXTFROM
+ ;
+ 
+ 620 
+ ashÜt
+  = ()
+ 	`¡r_gnum
+ (
+ äom¡r
+ );
+ 
+ 621 #ifdeà
+ HAS_HTONS
+ 
+ 
+ 622 
+ ashÜt
+  = 
+ 	`htÚs
+ (ashort);
+ 
+ 624 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,(*)&
+ ashÜt
+ ,());
+ 
+ 629 
+ Ën
+ -- > 0) {
+ 
+ 630 
+ äom¡r
+  = 
+ NEXTFROM
+ ;
+ 
+ 631 
+ ashÜt
+  = ()
+ 	`¡r_gnum
+ (
+ äom¡r
+ );
+ 
+ 632 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,(*)&
+ ashÜt
+ ,());
+ 
+ 636 
+ Ën
+ -- > 0) {
+ 
+ 637 
+ äom¡r
+  = 
+ NEXTFROM
+ ;
+ 
+ 638 
+ aušt
+  = 
+ 	`U_I
+ (
+ 	`¡r_gnum
+ (
+ äom¡r
+ ));
+ 
+ 639 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,(*)&
+ aušt
+ ,());
+ 
+ 643 
+ Ën
+ -- > 0) {
+ 
+ 644 
+ äom¡r
+  = 
+ NEXTFROM
+ ;
+ 
+ 645 
+ ašt
+  = ()
+ 	`¡r_gnum
+ (
+ äom¡r
+ );
+ 
+ 646 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,(*)&
+ ašt
+ ,());
+ 
+ 650 
+ Ën
+ -- > 0) {
+ 
+ 651 
+ äom¡r
+  = 
+ NEXTFROM
+ ;
+ 
+ 652 
+ aulÚg
+  = 
+ 	`U_L
+ (
+ 	`¡r_gnum
+ (
+ äom¡r
+ ));
+ 
+ 653 #ifdeà
+ HAS_HTONL
+ 
+ 
+ 654 
+ aulÚg
+  = 
+ 	`htÚl
+ (aulong);
+ 
+ 656 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,(*)&
+ aulÚg
+ ,());
+ 
+ 660 
+ Ën
+ -- > 0) {
+ 
+ 661 
+ äom¡r
+  = 
+ NEXTFROM
+ ;
+ 
+ 662 
+ aulÚg
+  = 
+ 	`U_L
+ (
+ 	`¡r_gnum
+ (
+ äom¡r
+ ));
+ 
+ 663 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,(*)&
+ aulÚg
+ ,());
+ 
+ 667 
+ Ën
+ -- > 0) {
+ 
+ 668 
+ äom¡r
+  = 
+ NEXTFROM
+ ;
+ 
+ 669 
+ ®Úg
+  = ()
+ 	`¡r_gnum
+ (
+ äom¡r
+ );
+ 
+ 670 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,(*)&
+ ®Úg
+ ,());
+ 
+ 674 
+ Ën
+ -- > 0) {
+ 
+ 675 
+ äom¡r
+  = 
+ NEXTFROM
+ ;
+ 
+ 676 
+ ­Œ
+  = 
+ 	`¡r_g‘
+ (
+ äom¡r
+ );
+ 
+ 677 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,(*)&
+ ­Œ
+ ,(*));
+ 
+ 681 
+ äom¡r
+  = 
+ NEXTFROM
+ ;
+ 
+ 682 
+ ­Œ
+  = 
+ 	`¡r_g‘
+ (
+ äom¡r
+ );
+ 
+ 683 
+ ašt
+  = 
+ äom¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 684 
+ 	`STR_GROW
+ (
+ ¡r
+ ,
+ ašt
+  * 4 / 3);
+ 
+ 685 ià(
+ Ën
+  <= 1)
+ 
+ 686 
+ Ën
+  = 45;
+ 
+ 688 
+ Ën
+  =†en / 3 * 3;
+ 
+ 689 
+ ašt
+  > 0) {
+ 
+ 690 
+ todo
+ ;
+ 
+ 692 ià(
+ ašt
+  > 
+ Ën
+ )
+ 
+ 693 
+ todo
+  = 
+ Ën
+ ;
+ 
+ 695 
+ todo
+  = 
+ ašt
+ ;
+ 
+ 696 
+ 	`dÛncodes
+ (
+ ¡r
+ , 
+ ­Œ
+ , 
+ todo
+ );
+ 
+ 697 
+ ašt
+  -ð
+ todo
+ ;
+ 
+ 698 
+ ­Œ
+  +ð
+ todo
+ ;
+ 
+ 703 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 704 
+ 	}
+ }
+ 
+ 705 #undeà
+ NEXTFROM
+ 
+ 
+ 707 
+ 	$dÛncodes
+ (
+ ¡r
+ , 
+ s
+ , 
+ Ën
+ )
+ 
+ 708 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 709 *
+ s
+ ;
+ 
+ 710 
+ Ën
+ ;
+ 
+ 712 
+ hunk
+ [5];
+ 
+ 714 *
+ hunk
+  = 
+ Ën
+  + ' ';
+ 
+ 715 
+ 	`¡r_nÿt
+ (
+ ¡r
+ , 
+ hunk
+ , 1);
+ 
+ 716 
+ hunk
+ [4] = '\0';
+ 
+ 717 
+ Ën
+  > 0) {
+ 
+ 718 
+ hunk
+ [0] = ' ' + (077 & (*
+ s
+  >> 2));
+ 
+ 719 
+ hunk
+ [1] = ' ' + (077 & ((*
+ s
+  << 4) & 060 | (s[1] >> 4) & 017));
+ 
+ 720 
+ hunk
+ [2] = ' ' + (077 & ((
+ s
+ [1] << 2) & 074 | (s[2] >> 6) & 03));
+ 
+ 721 
+ hunk
+ [3] = ' ' + (077 & (
+ s
+ [2] & 077));
+ 
+ 722 
+ 	`¡r_nÿt
+ (
+ ¡r
+ , 
+ hunk
+ , 4);
+ 
+ 723 
+ s
+  += 3;
+ 
+ 724 
+ Ën
+  -= 3;
+ 
+ 726 
+ s
+  = 
+ ¡r
+ ->
+ ¡r_±r
+ ; *s; s++) {
+ 
+ 727 ià(*
+ s
+  == ' ')
+ 
+ 728 *
+ s
+  = '`';
+ 
+ 730 
+ 	`¡r_nÿt
+ (
+ ¡r
+ , "\n", 1);
+ 
+ 731 
+ 	}
+ }
+ 
+ 734 
+ 	$do_¥rštf
+ (
+ ¡r
+ ,
+ Ën
+ ,
+ §rg
+ )
+ 
+ 735 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 736 
+ Ën
+ ;
+ 
+ 737 
+ STR
+  **
+ §rg
+ ;
+ 
+ 739 *
+ s
+ ;
+ 
+ 740 *
+ t
+ ;
+ 
+ 741 *
+ f
+ ;
+ 
+ 742 
+ boÞ
+  
+ dÞÚg
+ ;
+ 
+ 743 
+ ch
+ ;
+ 
+ 744 
+ STR
+  *
+ §rgnuÎ
+  = &
+ ¡r_no
+ ;
+ 
+ 745 *
+ £nd
+ ;
+ 
+ 746 *
+ xs
+ ;
+ 
+ 747 
+ xËn
+ ;
+ 
+ 748 
+ v®ue
+ ;
+ 
+ 749 *
+ Üigs
+ ;
+ 
+ 751 
+ 	`¡r_£t
+ (
+ ¡r
+ ,"");
+ 
+ 752 
+ Ën
+ --;
+ 
+ 753 
+ Üigs
+  = 
+ t
+  = 
+ s
+  = 
+ 	`¡r_g‘
+ (*
+ §rg
+ );
+ 
+ 754 
+ £nd
+  = 
+ s
+  + (*
+ §rg
+ )->
+ ¡r_cur
+ ;
+ 
+ 755 
+ §rg
+ ++;
+ 
+ 756  ; ; 
+ Ën
+ --) {
+ 
+ 757 ià(
+ Ën
+  <ð0 || !*
+ §rg
+ ) {
+ 
+ 758 
+ §rg
+  = &
+ §rgnuÎ
+ ;
+ 
+ 759 
+ Ën
+  = 0;
+ 
+ 761  ; 
+ t
+  < 
+ £nd
+  && *t != '%';++) ;
+ 
+ 762 ià(
+ t
+  >ð
+ £nd
+ )
+ 
+ 764 
+ f
+  = 
+ t
+ ;
+ 
+ 765 *
+ buf
+  = '\0';
+ 
+ 766 
+ xs
+  = 
+ buf
+ ;
+ 
+ 767 
+ dÞÚg
+  = 
+ FALSE
+ ;
+ 
+ 768 
+ t
+ ++; < 
+ £nd
+ ;++) {
+ 
+ 769 *
+ t
+ ) {
+ 
+ 771 
+ ch
+  = *(++
+ t
+ );
+ 
+ 772 *
+ t
+  = '\0';
+ 
+ 773 ()
+ 	`¥rštf
+ (
+ xs
+ ,
+ f
+ );
+ 
+ 774 
+ Ën
+ ++;
+ 
+ 775 
+ xËn
+  = 
+ 	`¡¾’
+ (
+ xs
+ );
+ 
+ 782 
+ dÞÚg
+  = 
+ TRUE
+ ;
+ 
+ 785 
+ ch
+  = *(++
+ t
+ );
+ 
+ 786 *
+ t
+  = '\0';
+ 
+ 787 
+ xËn
+  = ()
+ 	`¡r_gnum
+ (*(
+ §rg
+ ++));
+ 
+ 788 ià(
+ 	`¡rEQ
+ (
+ f
+ ,"%c")) {
+ 
+ 789 *
+ xs
+  = 
+ xËn
+ ;
+ 
+ 790 
+ xs
+ [1] = '\0';
+ 
+ 791 
+ xËn
+  = 1;
+ 
+ 794 ()
+ 	`¥rštf
+ (
+ xs
+ ,
+ f
+ ,
+ xËn
+ );
+ 
+ 795 
+ xËn
+  = 
+ 	`¡¾’
+ (
+ xs
+ );
+ 
+ 799 
+ dÞÚg
+  = 
+ TRUE
+ ;
+ 
+ 802 
+ ch
+  = *(++
+ t
+ );
+ 
+ 803 *
+ t
+  = '\0';
+ 
+ 804 ià(
+ dÞÚg
+ )
+ 
+ 805 ()
+ 	`¥rštf
+ (
+ xs
+ ,
+ f
+ ,()
+ 	`¡r_gnum
+ (*(
+ §rg
+ ++)));
+ 
+ 807 ()
+ 	`¥rštf
+ (
+ xs
+ ,
+ f
+ ,()
+ 	`¡r_gnum
+ (*(
+ §rg
+ ++)));
+ 
+ 808 
+ xËn
+  = 
+ 	`¡¾’
+ (
+ xs
+ );
+ 
+ 811 
+ dÞÚg
+  = 
+ TRUE
+ ;
+ 
+ 814 
+ ch
+  = *(++
+ t
+ );
+ 
+ 815 *
+ t
+  = '\0';
+ 
+ 816 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (*(
+ §rg
+ ++));
+ 
+ 817 ià(
+ dÞÚg
+ )
+ 
+ 818 ()
+ 	`¥rštf
+ (
+ xs
+ ,
+ f
+ ,
+ 	`U_L
+ (
+ v®ue
+ ));
+ 
+ 820 ()
+ 	`¥rštf
+ (
+ xs
+ ,
+ f
+ ,
+ 	`U_I
+ (
+ v®ue
+ ));
+ 
+ 821 
+ xËn
+  = 
+ 	`¡¾’
+ (
+ xs
+ );
+ 
+ 824 
+ ch
+  = *(++
+ t
+ );
+ 
+ 825 *
+ t
+  = '\0';
+ 
+ 826 ()
+ 	`¥rštf
+ (
+ xs
+ ,
+ f
+ ,
+ 	`¡r_gnum
+ (*(
+ §rg
+ ++)));
+ 
+ 827 
+ xËn
+  = 
+ 	`¡¾’
+ (
+ xs
+ );
+ 
+ 830 
+ ch
+  = *(++
+ t
+ );
+ 
+ 831 *
+ t
+  = '\0';
+ 
+ 832 
+ xs
+  = 
+ 	`¡r_g‘
+ (*
+ §rg
+ );
+ 
+ 833 
+ xËn
+  = (*
+ §rg
+ )->
+ ¡r_cur
+ ;
+ 
+ 834 ià(*
+ xs
+  == 'S' && xs[1] == 't' && xs[2] == 'B' && xs[3] == '\0'
+ 
+ 835 && 
+ xËn
+  =ð(
+ STBP
+ )) {
+ 
+ 836 
+ STR
+  *
+ tmp¡r
+  = 
+ 	`SŒ_Ãw
+ (24,0);
+ 
+ 838 
+ 	`¡ab_fuÎÇme
+ (
+ tmp¡r
+ , ((
+ STAB
+ *)(*
+ §rg
+ )));
+ 
+ 839 
+ 	`¥rštf
+ (
+ tok’buf
+ ,"*%s",
+ tmp¡r
+ ->
+ ¡r_±r
+ );
+ 
+ 841 
+ xs
+  = 
+ tok’buf
+ ;
+ 
+ 842 
+ xËn
+  = 
+ 	`¡¾’
+ (
+ tok’buf
+ );
+ 
+ 843 
+ 	`¡r_ä“
+ (
+ tmp¡r
+ );
+ 
+ 845 
+ §rg
+ ++;
+ 
+ 846 ià(
+ 	`¡rEQ
+ (
+ f
+ ,"%s")) {
+ 
+ 849 
+ 	`¡rýy
+ (
+ tok’buf
+ +64,
+ f
+ );
+ 
+ 850 *
+ t
+  = 
+ ch
+ ;
+ 
+ 851 ()
+ 	`¥rštf
+ (
+ buf
+ ,
+ tok’buf
+ +64,
+ xs
+ );
+ 
+ 852 
+ xs
+  = 
+ buf
+ ;
+ 
+ 853 
+ xËn
+  = 
+ 	`¡¾’
+ (
+ xs
+ );
+ 
+ 857 *
+ t
+  = 
+ ch
+ ;
+ 
+ 858 
+ 	`STR_GROW
+ (
+ ¡r
+ , sŒ->
+ ¡r_cur
+  + (
+ f
+  - 
+ s
+ è+ 
+ Ën
+  + 1);
+ 
+ 859 
+ 	`¡r_nÿt
+ (
+ ¡r
+ , 
+ s
+ , 
+ f
+  - s);
+ 
+ 860 
+ 	`¡r_nÿt
+ (
+ ¡r
+ , 
+ xs
+ , 
+ xËn
+ );
+ 
+ 861 
+ s
+  = 
+ t
+ ;
+ 
+ 865 
+ 	`¡r_nÿt
+ (
+ ¡r
+ , 
+ s
+ , 
+ t
+  - s);
+ 
+ 866 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 867 
+ 	}
+ }
+ 
+ 869 
+ STR
+  *
+ 
+ 870 
+ 	$do_push
+ (
+ ¬y
+ ,
+ ¬gÏ¡
+ )
+ 
+ 871 
+ ARRAY
+  *
+ ¬y
+ ;
+ 
+ 872 *
+ ¬gÏ¡
+ ;
+ 
+ 874 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 875 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 876 
+ ™ems
+  = 
+ ¬gÏ¡
+ [2] - 
+ ¥
+ ;
+ 
+ 877 
+ STR
+  *
+ ¡r
+  = &
+ ¡r_undef
+ ;
+ 
+ 879 
+ ¡
+  +ð++
+ ¥
+ ; 
+ ™ems
+  > 0; items--,st++) {
+ 
+ 880 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (26,0);
+ 
+ 881 ià(*
+ ¡
+ )
+ 
+ 882 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,*
+ ¡
+ );
+ 
+ 883 ()
+ 	`­ush
+ (
+ ¬y
+ ,
+ ¡r
+ );
+ 
+ 885  
+ ¡r
+ ;
+ 
+ 886 
+ 	}
+ }
+ 
+ 889 
+ 	$do_unshiá
+ (
+ ¬y
+ ,
+ ¬gÏ¡
+ )
+ 
+ 890 
+ ARRAY
+  *
+ ¬y
+ ;
+ 
+ 891 *
+ ¬gÏ¡
+ ;
+ 
+ 893 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 894 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 895 
+ ™ems
+  = 
+ ¬gÏ¡
+ [2] - 
+ ¥
+ ;
+ 
+ 896 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 897 
+ i
+ ;
+ 
+ 899 
+ 	`aunshiá
+ (
+ ¬y
+ ,
+ ™ems
+ );
+ 
+ 900 
+ i
+  = 0;
+ 
+ 901 
+ ¡
+  +ð++
+ ¥
+ ; 
+ i
+  < 
+ ™ems
+ ; i++,st++) {
+ 
+ 902 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (27,0);
+ 
+ 903 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,*
+ ¡
+ );
+ 
+ 904 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,
+ i
+ ,
+ ¡r
+ );
+ 
+ 906 
+ 	}
+ }
+ 
+ 909 
+ 	$do_subr
+ (
+ ¬g
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 910 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 911 
+ gimme
+ ;
+ 
+ 912 *
+ ¬gÏ¡
+ ;
+ 
+ 914 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 915 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 916 
+ ™ems
+  = 
+ ¬gÏ¡
+ [2] - 
+ ¥
+ ;
+ 
+ 917 
+ SUBR
+  *
+ sub
+ ;
+ 
+ 918 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 919 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 920 
+ Þd§ve
+  = 
+ §ve¡ack
+ ->
+ ¬y_fžl
+ ;
+ 
+ 921 
+ Þdtmps_ba£
+  = 
+ tmps_ba£
+ ;
+ 
+ 922 
+ ha§rgs
+  = ((
+ ¬g
+ [2].
+ ¬g_ty³
+  & 
+ A_MASK
+ è!ð
+ A_NULL
+ );
+ 
+ 923 
+ CSV
+  *
+ csv
+ ;
+ 
+ 925 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 926 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 928 
+ STR
+  *
+ tmp¡r
+  = 
+ 	`¡ab_v®
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ );
+ 
+ 930 ià(
+ tmp¡r
+ )
+ 
+ 931 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ tmp¡r
+ ),
+ TRUE
+ );
+ 
+ 933 
+ ¡ab
+  = 
+ NuΡab
+ ;
+ 
+ 935 ià(!
+ ¡ab
+ )
+ 
+ 936 
+ 	`çl
+ ("Undefined subroutine called");
+ 
+ 937 ià(!(
+ sub
+  = 
+ 	`¡ab_sub
+ (
+ ¡ab
+ ))) {
+ 
+ 938 
+ STR
+  *
+ tmp¡r
+  = 
+ ¬g
+ [0].
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 940 
+ 	`¡ab_fuÎÇme
+ (
+ tmp¡r
+ , 
+ ¡ab
+ );
+ 
+ 941 
+ 	`çl
+ ("Undefšed subroutš\"%s\" c®Ëd",
+ tmp¡r
+ ->
+ ¡r_±r
+ );
+ 
+ 943 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_DBSUBR
+  && !
+ sub
+ ->
+ u£rsub
+ ) {
+ 
+ 944 
+ ¡r
+  = 
+ 	`¡ab_v®
+ (
+ DBsub
+ );
+ 
+ 945 
+ 	`§ve™em
+ (
+ ¡r
+ );
+ 
+ 946 
+ 	`¡ab_fuÎÇme
+ (
+ ¡r
+ ,
+ ¡ab
+ );
+ 
+ 947 
+ sub
+  = 
+ 	`¡ab_sub
+ (
+ DBsub
+ );
+ 
+ 948 ià(!
+ sub
+ )
+ 
+ 949 
+ 	`çl
+ ("No DBsub„outine");
+ 
+ 951 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (15, (
+ CSV
+ ));
+ 
+ 952 
+ ¡r
+ ->
+ ¡r_¡©e
+  = 
+ SS_SCSV
+ ;
+ 
+ 953 ()
+ 	`­ush
+ (
+ §ve¡ack
+ ,
+ ¡r
+ );
+ 
+ 954 
+ csv
+  = (
+ CSV
+ *)
+ ¡r
+ ->
+ ¡r_±r
+ ;
+ 
+ 955 
+ csv
+ ->
+ sub
+  = sub;
+ 
+ 956 
+ csv
+ ->
+ ¡ab
+  = stab;
+ 
+ 957 
+ csv
+ ->
+ curcsv
+  = curcsv;
+ 
+ 958 
+ csv
+ ->
+ curcmd
+  = curcmd;
+ 
+ 959 
+ csv
+ ->
+ d•th
+  = 
+ sub
+ ->depth;
+ 
+ 960 
+ csv
+ ->
+ wª¼ay
+  = 
+ gimme
+ ;
+ 
+ 961 
+ csv
+ ->
+ ha§rgs
+  = hasargs;
+ 
+ 962 
+ curcsv
+  = 
+ csv
+ ;
+ 
+ 963 ià(
+ sub
+ ->
+ u£rsub
+ ) {
+ 
+ 964 
+ csv
+ ->
+ ha§rgs
+  = 0;
+ 
+ 965 
+ csv
+ ->
+ §v—¼ay
+  = 
+ 	`NuÎ
+ (
+ ARRAY
+ *);;
+ 
+ 966 
+ csv
+ ->
+ ¬g¬¿y
+  = 
+ 	`NuÎ
+ (
+ ARRAY
+ *);
+ 
+ 967 
+ ¡
+ [
+ ¥
+ ] = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 968 ià(!
+ ha§rgs
+ )
+ 
+ 969 
+ ™ems
+  = 0;
+ 
+ 970  (*
+ sub
+ ->
+ u£rsub
+ )(sub->
+ u£ršdex
+ ,
+ ¥
+ ,
+ ™ems
+ );
+ 
+ 972 ià(
+ ha§rgs
+ ) {
+ 
+ 973 
+ csv
+ ->
+ §v—¼ay
+  = 
+ 	`¡ab_x¬¿y
+ (
+ def¡ab
+ );
+ 
+ 974 
+ csv
+ ->
+ ¬g¬¿y
+  = 
+ 	`açke
+ (
+ def¡ab
+ , 
+ ™ems
+ , &
+ ¡
+ [
+ ¥
+ +1]);
+ 
+ 975 
+ 	`¡ab_x¬¿y
+ (
+ def¡ab
+ èð
+ csv
+ ->
+ ¬g¬¿y
+ ;
+ 
+ 977 
+ sub
+ ->
+ d•th
+ ++;
+ 
+ 978 ià(
+ sub
+ ->
+ d•th
+  >= 2) {
+ 
+ 979 ià(
+ sub
+ ->
+ d•th
+  =ð100 && 
+ dow¬n
+ )
+ 
+ 980 
+ 	`w¬n
+ ("D“°»cursiÚ oÀsubroutš\"%s\"",
+ 	`¡ab_Çme
+ (
+ ¡ab
+ ));
+ 
+ 981 
+ 	`§v–i¡
+ (
+ sub
+ ->
+ to§ve
+ ->
+ ¬y_¬¿y
+ ,sub->to§ve->
+ ¬y_fžl
+ );
+ 
+ 983 
+ tmps_ba£
+  = 
+ tmps_max
+ ;
+ 
+ 984 
+ ¥
+  = 
+ 	`cmd_exec
+ (
+ sub
+ ->
+ cmd
+ ,
+ gimme
+ , --sp);
+ 
+ 985 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 987 
+ tmps_ba£
+  = 
+ Þdtmps_ba£
+ ;
+ 
+ 988 
+ ™ems
+  = 
+ ¬gÏ¡
+ [0] + 1; i‹m <ð
+ ¥
+ ; items++)
+ 
+ 989 
+ ¡
+ [
+ ™ems
+ ] = 
+ 	`¡r_m܏l
+ (st[items]);
+ 
+ 991 
+ 	`»¡Ü–i¡
+ (
+ Þd§ve
+ );
+ 
+ 992  
+ ¥
+ ;
+ 
+ 993 
+ 	}
+ }
+ 
+ 996 
+ 	$do_assign
+ (
+ ¬g
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 997 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 998 
+ gimme
+ ;
+ 
+ 999 *
+ ¬gÏ¡
+ ;
+ 
+ 1002 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1003 
+ STR
+  **
+ fœ¡»Ëm
+  = 
+ ¡
+  + 
+ ¬gÏ¡
+ [1] + 1;
+ 
+ 1004 
+ STR
+  **
+ fœ¡ËËm
+  = 
+ ¡
+  + 
+ ¬gÏ¡
+ [0] + 1;
+ 
+ 1005 
+ STR
+  **
+ Ï¡»Ëm
+  = 
+ ¡
+  + 
+ ¬gÏ¡
+ [2];
+ 
+ 1006 
+ STR
+  **
+ Ï¡ËËm
+  = 
+ ¡
+  + 
+ ¬gÏ¡
+ [1];
+ 
+ 1007 
+ STR
+  **
+ »Ëm
+ ;
+ 
+ 1008 
+ STR
+  **
+ ËËm
+ ;
+ 
+ 1010 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1011 
+ ARRAY
+  *
+ ¬y
+ ;
+ 
+ 1012 
+ mak–oÿl
+ ;
+ 
+ 1013 
+ HASH
+  *
+ hash
+ ;
+ 
+ 1014 
+ i
+ ;
+ 
+ 1016 
+ mak–oÿl
+  = (
+ ¬g
+ ->
+ ¬g_æags
+  & 
+ AF_LOCAL
+ );
+ 
+ 1017 
+ loÿlizšg
+  = 
+ mak–oÿl
+ ;
+ 
+ 1018 
+ d–aymagic
+  = 
+ DM_DELAY
+ ;
+ 
+ 1024 ià(
+ ¬g
+ ->
+ ¬g_æags
+  & 
+ AF_COMMON
+ ) {
+ 
+ 1025 
+ »Ëm
+  = 
+ fœ¡»Ëm
+ ;„–em <ð
+ Ï¡»Ëm
+ ;„elem++) {
+ 
+ 1026 ià(
+ ¡r
+  = *
+ »Ëm
+ )
+ 
+ 1027 *
+ »Ëm
+  = 
+ 	`¡r_m܏l
+ (
+ ¡r
+ );
+ 
+ 1030 
+ »Ëm
+  = 
+ fœ¡»Ëm
+ ;
+ 
+ 1031 
+ ËËm
+  = 
+ fœ¡ËËm
+ ;
+ 
+ 1032 
+ ¬y
+  = 
+ 	`NuÎ
+ (
+ ARRAY
+ *);
+ 
+ 1033 
+ hash
+  = 
+ 	`NuÎ
+ (
+ HASH
+ *);
+ 
+ 1034 
+ ËËm
+  <ð
+ Ï¡ËËm
+ ) {
+ 
+ 1035 
+ ¡r
+  = *
+ ËËm
+ ++;
+ 
+ 1036 ià(
+ ¡r
+ ->
+ ¡r_¡©e
+  >ð
+ SS_HASH
+ ) {
+ 
+ 1037 ià(
+ ¡r
+ ->
+ ¡r_¡©e
+  =ð
+ SS_ARY
+ ) {
+ 
+ 1038 ià(
+ mak–oÿl
+ )
+ 
+ 1039 
+ ¬y
+  = 
+ 	`§v—ry
+ (
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_¡ab
+ );
+ 
+ 1041 
+ ¬y
+  = 
+ 	`¡ab_¬¿y
+ (
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_¡ab
+ );
+ 
+ 1042 
+ ¬y
+ ->
+ ¬y_fžl
+  = -1;
+ 
+ 1044 
+ i
+  = 0;
+ 
+ 1045 
+ »Ëm
+  <ð
+ Ï¡»Ëm
+ ) {
+ 
+ 1046 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (28,0);
+ 
+ 1047 ià(*
+ »Ëm
+ )
+ 
+ 1048 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,*
+ »Ëm
+ );
+ 
+ 1049 *(
+ »Ëm
+ ++èð
+ ¡r
+ ;
+ 
+ 1050 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,
+ i
+ ++,
+ ¡r
+ );
+ 
+ 1053 ià(
+ ¡r
+ ->
+ ¡r_¡©e
+  =ð
+ SS_HASH
+ ) {
+ 
+ 1054 *
+ tmps
+ ;
+ 
+ 1055 
+ STR
+  *
+ tmp¡r
+ ;
+ 
+ 1056 
+ magic
+  = 0;
+ 
+ 1057 
+ STAB
+  *
+ tmp¡ab
+  = 
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_¡ab
+ ;
+ 
+ 1059 ià(
+ mak–oÿl
+ )
+ 
+ 1060 
+ hash
+  = 
+ 	`§vehash
+ (
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_¡ab
+ );
+ 
+ 1062 
+ hash
+  = 
+ 	`¡ab_hash
+ (
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_¡ab
+ );
+ 
+ 1063 ià(
+ tmp¡ab
+  =ð
+ ’v¡ab
+ ) {
+ 
+ 1064 
+ magic
+  = 'E';
+ 
+ 1065 
+ ’vœÚ
+ [0] = 
+ NuÎch
+ ;
+ 
+ 1067 ià(
+ tmp¡ab
+  =ð
+ sig¡ab
+ ) {
+ 
+ 1068 
+ magic
+  = 'S';
+ 
+ 1069 #iâdeà
+ NSIG
+ 
+ 
+ 1070 
+ 	#NSIG
+  32
+ 
+ 	)
+ 
+ 1072 
+ i
+  = 1; i < 
+ NSIG
+ ; i++)
+ 
+ 1073 
+ 	`sigÇl
+ (
+ i
+ , 
+ SIG_DFL
+ );
+ 
+ 1075 #ifdeà
+ SOME_DBM
+ 
+ 
+ 1076 ià(
+ hash
+ ->
+ tbl_dbm
+ )
+ 
+ 1077 
+ magic
+  = 'D';
+ 
+ 1079 
+ 	`hþ—r
+ (
+ hash
+ , 
+ magic
+  == 'D');
+ 
+ 1082 
+ »Ëm
+  < 
+ Ï¡»Ëm
+ ) {
+ 
+ 1083 ià(*
+ »Ëm
+ )
+ 
+ 1084 
+ ¡r
+  = *(
+ »Ëm
+ ++);
+ 
+ 1086 
+ ¡r
+  = &
+ ¡r_no
+ , 
+ »Ëm
+ ++;
+ 
+ 1087 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 1088 
+ tmp¡r
+  = 
+ 	`SŒ_Ãw
+ (29,0);
+ 
+ 1089 ià(*
+ »Ëm
+ )
+ 
+ 1090 
+ 	`¡r_s£t
+ (
+ tmp¡r
+ ,*
+ »Ëm
+ );
+ 
+ 1091 *(
+ »Ëm
+ ++èð
+ tmp¡r
+ ;
+ 
+ 1092 ()
+ 	`h¡Üe
+ (
+ hash
+ ,
+ tmps
+ ,
+ ¡r
+ ->
+ ¡r_cur
+ ,
+ tmp¡r
+ ,0);
+ 
+ 1093 ià(
+ magic
+ ) {
+ 
+ 1094 
+ 	`¡r_magic
+ (
+ tmp¡r
+ , 
+ tmp¡ab
+ , 
+ magic
+ , 
+ tmps
+ , 
+ ¡r
+ ->
+ ¡r_cur
+ );
+ 
+ 1095 
+ 	`¡ab£t
+ (
+ tmp¡r
+ ->
+ ¡r_magic
+ ,mpstr);
+ 
+ 1100 
+ 	`çl
+ ("panic: do_assign");
+ 
+ 1103 ià(
+ mak–oÿl
+ )
+ 
+ 1104 
+ 	`§ve™em
+ (
+ ¡r
+ );
+ 
+ 1105 ià(
+ »Ëm
+  <ð
+ Ï¡»Ëm
+ ) {
+ 
+ 1106 
+ 	`¡r_s£t
+ (
+ ¡r
+ , *
+ »Ëm
+ );
+ 
+ 1107 *(
+ »Ëm
+ ++èð
+ ¡r
+ ;
+ 
+ 1110 
+ 	`¡r_s£t
+ (
+ ¡r
+ , &
+ ¡r_undef
+ );
+ 
+ 1111 ià(
+ gimme
+  =ð
+ G_ARRAY
+ ) {
+ 
+ 1112 
+ i
+  = ++
+ Ï¡»Ëm
+  - 
+ fœ¡»Ëm
+ ;
+ 
+ 1113 
+ »Ëm
+ ++;
+ 
+ 1114 
+ 	`a¡Üe
+ (
+ ¡ack
+ ,
+ i
+ ,
+ ¡r
+ );
+ 
+ 1115 ià(
+ ¡
+  !ð
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ) {
+ 
+ 1116 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1117 
+ fœ¡»Ëm
+  = 
+ ¡
+  + 
+ ¬gÏ¡
+ [1] + 1;
+ 
+ 1118 
+ fœ¡ËËm
+  = 
+ ¡
+  + 
+ ¬gÏ¡
+ [0] + 1;
+ 
+ 1119 
+ Ï¡ËËm
+  = 
+ ¡
+  + 
+ ¬gÏ¡
+ [1];
+ 
+ 1120 
+ Ï¡»Ëm
+  = 
+ ¡
+  + 
+ i
+ ;
+ 
+ 1121 
+ »Ëm
+  = 
+ Ï¡»Ëm
+  + 1;
+ 
+ 1125 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 1128 ià(
+ d–aymagic
+  > 1) {
+ 
+ 1129 ià(
+ d–aymagic
+  & 
+ DM_REUID
+ ) {
+ 
+ 1130 #ifdeà
+ HAS_SETREUID
+ 
+ 
+ 1131 
+ 	`£Œeuid
+ (
+ uid
+ ,
+ euid
+ );
+ 
+ 1133 ià(
+ uid
+  !ð
+ euid
+  || 
+ 	`£tuid
+ (uid) < 0)
+ 
+ 1134 
+ 	`çl
+ ("No setreuid‡vailable");
+ 
+ 1137 ià(
+ d–aymagic
+  & 
+ DM_REGID
+ ) {
+ 
+ 1138 #ifdeà
+ HAS_SETREGID
+ 
+ 
+ 1139 
+ 	`£Œegid
+ (
+ gid
+ ,
+ egid
+ );
+ 
+ 1141 ià(
+ gid
+  !ð
+ egid
+  || 
+ 	`£tgid
+ (gid) < 0)
+ 
+ 1142 
+ 	`çl
+ ("No setregid‡vailable");
+ 
+ 1146 
+ d–aymagic
+  = 0;
+ 
+ 1147 
+ loÿlizšg
+  = 
+ FALSE
+ ;
+ 
+ 1148 ià(
+ gimme
+  =ð
+ G_ARRAY
+ ) {
+ 
+ 1149 
+ i
+  = 
+ Ï¡»Ëm
+  - 
+ fœ¡»Ëm
+  + 1;
+ 
+ 1150 ià(
+ ¬y
+  || 
+ hash
+ )
+ 
+ 1151 
+ 	`CÝy
+ (
+ fœ¡»Ëm
+ , 
+ fœ¡ËËm
+ , 
+ i
+ , 
+ STR
+ *);
+ 
+ 1152  
+ ¬gÏ¡
+ [0] + 
+ i
+ ;
+ 
+ 1155 
+ 	`¡r_num£t
+ (
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ,()(
+ ¬gÏ¡
+ [2] -‡rglast[1]));
+ 
+ 1156 *
+ fœ¡ËËm
+  = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 1157  
+ ¬gÏ¡
+ [0] + 1;
+ 
+ 1159 
+ 	}
+ }
+ 
+ 1162 
+ 	$do_¡udy
+ (
+ ¡r
+ ,
+ ¬g
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1163 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1164 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 1165 
+ gimme
+ ;
+ 
+ 1166 *
+ ¬gÏ¡
+ ;
+ 
+ 1168 *
+ s
+ ;
+ 
+ 1169 
+ pos
+  = 
+ ¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 1170 
+ ch
+ ;
+ 
+ 1171 *
+ sfœ¡
+ ;
+ 
+ 1172 *
+ ¢ext
+ ;
+ 
+ 1173 
+ maxsü—m
+  = -1;
+ 
+ 1174 
+ STR
+  *
+ Ï¡sü—m
+  = 
+ NuΡr
+ ;
+ 
+ 1175 
+ »tv®
+ ;
+ 
+ 1176 
+ »rg
+  = 
+ ¬gÏ¡
+ [0] + 1;
+ 
+ 1178 #iâdeà
+ lšt
+ 
+ 
+ 1179 
+ s
+  = (*)(
+ 	`¡r_g‘
+ (
+ ¡r
+ ));
+ 
+ 1181 
+ s
+  = 
+ 	`NuÎ
+ (*);
+ 
+ 1183 ià(
+ Ï¡sü—m
+ )
+ 
+ 1184 
+ Ï¡sü—m
+ ->
+ ¡r_pok
+  &ð~
+ SP_STUDIED
+ ;
+ 
+ 1185 
+ Ï¡sü—m
+  = 
+ ¡r
+ ;
+ 
+ 1186 ià(
+ pos
+  <= 0) {
+ 
+ 1187 
+ »tv®
+  = 0;
+ 
+ 1188 
+ »t
+ ;
+ 
+ 1190 ià(
+ pos
+  > 
+ maxsü—m
+ ) {
+ 
+ 1191 ià(
+ maxsü—m
+  < 0) {
+ 
+ 1192 
+ maxsü—m
+  = 
+ pos
+  + 80;
+ 
+ 1193 
+ 	`New
+ (301,
+ sü—mfœ¡
+ , 256, );
+ 
+ 1194 
+ 	`New
+ (302,
+ sü—mÃxt
+ , 
+ maxsü—m
+ , );
+ 
+ 1197 
+ maxsü—m
+  = 
+ pos
+  +…os / 4;
+ 
+ 1198 
+ 	`R’ew
+ (
+ sü—mÃxt
+ , 
+ maxsü—m
+ , );
+ 
+ 1202 
+ sfœ¡
+  = 
+ sü—mfœ¡
+ ;
+ 
+ 1203 
+ ¢ext
+  = 
+ sü—mÃxt
+ ;
+ 
+ 1205 ià(!
+ sfœ¡
+  || !
+ ¢ext
+ )
+ 
+ 1206 
+ 	`çl
+ ("do_study: out of memory");
+ 
+ 1208 
+ ch
+  = 256; ch; --ch)
+ 
+ 1209 *
+ sfœ¡
+ ++ = -1;
+ 
+ 1210 
+ sfœ¡
+  -= 256;
+ 
+ 1212 --
+ pos
+  >= 0) {
+ 
+ 1213 
+ ch
+  = 
+ s
+ [
+ pos
+ ];
+ 
+ 1214 ià(
+ sfœ¡
+ [
+ ch
+ ] >= 0)
+ 
+ 1215 
+ ¢ext
+ [
+ pos
+ ] = 
+ sfœ¡
+ [
+ ch
+ ] -…os;
+ 
+ 1217 
+ ¢ext
+ [
+ pos
+ ] = -pos;
+ 
+ 1218 
+ sfœ¡
+ [
+ ch
+ ] = 
+ pos
+ ;
+ 
+ 1224 ià(
+ §wi
+ )
+ 
+ 1225 
+ sfœ¡
+ [
+ fÞd
+ [
+ ch
+ ]] = 
+ pos
+ ;
+ 
+ 1228 
+ ¡r
+ ->
+ ¡r_pok
+  |ð
+ SP_STUDIED
+ ;
+ 
+ 1229 
+ »tv®
+  = 1;
+ 
+ 1230 
+ »t
+ :
+ 
+ 1231 
+ 	`¡r_num£t
+ (
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ,()
+ »tv®
+ );
+ 
+ 1232 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [
+ »rg
+ ] = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 1233  
+ »rg
+ ;
+ 
+ 1234 
+ 	}
+ }
+ 
+ 1237 
+ 	$do_defšed
+ (
+ ¡r
+ ,
+ ¬g
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1238 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1239 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 1240 
+ gimme
+ ;
+ 
+ 1241 *
+ ¬gÏ¡
+ ;
+ 
+ 1243 
+ ty³
+ ;
+ 
+ 1244 
+ »rg
+  = 
+ ¬gÏ¡
+ [0] + 1;
+ 
+ 1245 
+ »tv®
+ ;
+ 
+ 1246 
+ ARRAY
+  *
+ ¬y
+ ;
+ 
+ 1247 
+ HASH
+  *
+ hash
+ ;
+ 
+ 1249 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è!ð
+ A_LEXPR
+ )
+ 
+ 1250 
+ 	`çl
+ ("Illegal‡rgumento defined()");
+ 
+ 1251 
+ ¬g
+  =‡rg[1].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ;
+ 
+ 1252 
+ ty³
+  = 
+ ¬g
+ ->
+ ¬g_ty³
+ ;
+ 
+ 1254 ià(
+ ty³
+  =ð
+ O_SUBR
+  ||y³ =ð
+ O_DBSUBR
+ )
+ 
+ 1255 
+ »tv®
+  = 
+ 	`¡ab_sub
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ) != 0;
+ 
+ 1256 ià(
+ ty³
+  =ð
+ O_ARRAY
+  ||y³ =ð
+ O_LARRAY
+  ||
+ 
+ 1257 
+ ty³
+  =ð
+ O_ASLICE
+  ||y³ =ð
+ O_LASLICE
+  )
+ 
+ 1258 
+ »tv®
+  = ((
+ ¬y
+  = 
+ 	`¡ab_x¬¿y
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ )) != 0
+ 
+ 1259 && 
+ ¬y
+ ->
+ ¬y_max
+  >= 0 );
+ 
+ 1260 ià(
+ ty³
+  =ð
+ O_HASH
+  ||y³ =ð
+ O_LHASH
+  ||
+ 
+ 1261 
+ ty³
+  =ð
+ O_HSLICE
+  ||y³ =ð
+ O_LHSLICE
+  )
+ 
+ 1262 
+ »tv®
+  = ((
+ hash
+  = 
+ 	`¡ab_xhash
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ )) != 0
+ 
+ 1263 && 
+ hash
+ ->
+ tbl_¬¿y
+ );
+ 
+ 1265 
+ »tv®
+  = 
+ FALSE
+ ;
+ 
+ 1266 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()
+ »tv®
+ );
+ 
+ 1267 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [
+ »rg
+ ] = 
+ ¡r
+ ;
+ 
+ 1268  
+ »rg
+ ;
+ 
+ 1269 
+ 	}
+ }
+ 
+ 1272 
+ 	$do_undef
+ (
+ ¡r
+ ,
+ ¬g
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1273 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1274 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 1275 
+ gimme
+ ;
+ 
+ 1276 *
+ ¬gÏ¡
+ ;
+ 
+ 1278 
+ ty³
+ ;
+ 
+ 1279 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 1280 
+ »rg
+  = 
+ ¬gÏ¡
+ [0] + 1;
+ 
+ 1282 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è!ð
+ A_LEXPR
+ )
+ 
+ 1283 
+ 	`çl
+ ("Illegal‡rgumento undef()");
+ 
+ 1284 
+ ¬g
+  =‡rg[1].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ;
+ 
+ 1285 
+ ty³
+  = 
+ ¬g
+ ->
+ ¬g_ty³
+ ;
+ 
+ 1287 ià(
+ ty³
+  =ð
+ O_ARRAY
+  ||y³ =ð
+ O_LARRAY
+ ) {
+ 
+ 1288 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1289 
+ 	`aä“
+ (
+ 	`¡ab_x¬¿y
+ (
+ ¡ab
+ ));
+ 
+ 1290 
+ 	`¡ab_x¬¿y
+ (
+ ¡ab
+ èð
+ 	`NuÎ
+ (
+ ARRAY
+ *);
+ 
+ 1292 ià(
+ ty³
+  =ð
+ O_HASH
+  ||y³ =ð
+ O_LHASH
+ ) {
+ 
+ 1293 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1294 ià(
+ ¡ab
+  =ð
+ ’v¡ab
+ )
+ 
+ 1295 
+ ’vœÚ
+ [0] = 
+ NuÎch
+ ;
+ 
+ 1296 ià(
+ ¡ab
+  =ð
+ sig¡ab
+ ) {
+ 
+ 1297 
+ i
+ ;
+ 
+ 1299 
+ i
+  = 1; i < 
+ NSIG
+ ; i++)
+ 
+ 1300 
+ 	`sigÇl
+ (
+ i
+ , 
+ SIG_DFL
+ );
+ 
+ 1302 ()
+ 	`hä“
+ (
+ 	`¡ab_xhash
+ (
+ ¡ab
+ ), 
+ TRUE
+ );
+ 
+ 1303 
+ 	`¡ab_xhash
+ (
+ ¡ab
+ èð
+ 	`NuÎ
+ (
+ HASH
+ *);
+ 
+ 1305 ià(
+ ty³
+  =ð
+ O_SUBR
+  ||y³ =ð
+ O_DBSUBR
+ ) {
+ 
+ 1306 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1307 ià(
+ 	`¡ab_sub
+ (
+ ¡ab
+ )) {
+ 
+ 1308 
+ 	`cmd_ä“
+ (
+ 	`¡ab_sub
+ (
+ ¡ab
+ )->
+ cmd
+ );
+ 
+ 1309 
+ 	`¡ab_sub
+ (
+ ¡ab
+ )->
+ cmd
+  = 
+ NuÎcmd
+ ;
+ 
+ 1310 
+ 	`aä“
+ (
+ 	`¡ab_sub
+ (
+ ¡ab
+ )->
+ to§ve
+ );
+ 
+ 1311 
+ 	`Saãä“
+ (
+ 	`¡ab_sub
+ (
+ ¡ab
+ ));
+ 
+ 1312 
+ 	`¡ab_sub
+ (
+ ¡ab
+ èð
+ 	`NuÎ
+ (
+ SUBR
+ *);
+ 
+ 1316 
+ 	`çl
+ ("Can't undefinehat kind of object");
+ 
+ 1317 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,0.0);
+ 
+ 1318 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [
+ »rg
+ ] = 
+ ¡r
+ ;
+ 
+ 1319  
+ »rg
+ ;
+ 
+ 1320 
+ 	}
+ }
+ 
+ 1323 
+ 	$do_vec
+ (
+ lv®ue
+ ,
+ a¡r
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1324 
+ lv®ue
+ ;
+ 
+ 1325 
+ STR
+  *
+ a¡r
+ ;
+ 
+ 1326 *
+ ¬gÏ¡
+ ;
+ 
+ 1328 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1329 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 1330 
+ STR
+  *
+ ¡r
+  = 
+ ¡
+ [++
+ ¥
+ ];
+ 
+ 1331 
+ off£t
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 1332 
+ size
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 1333 *
+ s
+  = (*)
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 1334 
+ »Šum
+ ;
+ 
+ 1335 
+ Ën
+ ;
+ 
+ 1337 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 1338 
+ off£t
+  *ð
+ size
+ ;
+ 
+ 1339 
+ Ën
+  = (
+ off£t
+  + 
+ size
+  + 7) / 8;
+ 
+ 1340 ià(
+ off£t
+  < 0 || 
+ size
+  < 1)
+ 
+ 1341 
+ »Šum
+  = 0;
+ 
+ 1342 ià(!
+ lv®ue
+  && 
+ Ën
+  > 
+ ¡r
+ ->
+ ¡r_cur
+ )
+ 
+ 1343 
+ »Šum
+  = 0;
+ 
+ 1345 ià(
+ Ën
+  > 
+ ¡r
+ ->
+ ¡r_cur
+ ) {
+ 
+ 1346 
+ 	`STR_GROW
+ (
+ ¡r
+ ,
+ Ën
+ );
+ 
+ 1347 ()
+ 	`bz”o
+ (
+ ¡r
+ ->
+ ¡r_±r
+  + sŒ->
+ ¡r_cur
+ , 
+ Ën
+  - str->str_cur);
+ 
+ 1348 
+ ¡r
+ ->
+ ¡r_cur
+  = 
+ Ën
+ ;
+ 
+ 1350 
+ s
+  = (*)
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 1351 ià(
+ size
+  < 8)
+ 
+ 1352 
+ »Šum
+  = (
+ s
+ [
+ off£t
+  >> 3] >> (off£ˆ& 7)è& ((1 << 
+ size
+ ) - 1);
+ 
+ 1354 
+ off£t
+  >>= 3;
+ 
+ 1355 ià(
+ size
+  == 8)
+ 
+ 1356 
+ »Šum
+  = 
+ s
+ [
+ off£t
+ ];
+ 
+ 1357 ià(
+ size
+  == 16)
+ 
+ 1358 
+ »Šum
+  = (
+ s
+ [
+ off£t
+ ] << 8) + s[offset+1];
+ 
+ 1359 ià(
+ size
+  == 32)
+ 
+ 1360 
+ »Šum
+  = (
+ s
+ [
+ off£t
+ ] << 24) + (s[offset + 1] << 16) +
+ 
+ 1361 (
+ s
+ [
+ off£t
+  + 2] << 8) + s[offset+3];
+ 
+ 1364 ià(
+ lv®ue
+ ) {
+ 
+ 1365 
+ l¡ršg
+  *
+ l¡r
+  = (l¡ršg*)
+ a¡r
+ ;
+ 
+ 1367 
+ a¡r
+ ->
+ ¡r_magic
+  = 
+ ¡r
+ ;
+ 
+ 1368 
+ ¡
+ [
+ ¥
+ ]->
+ ¡r_¿»
+  = 'v';
+ 
+ 1369 
+ l¡r
+ ->
+ l¡r_off£t
+  = 
+ off£t
+ ;
+ 
+ 1370 
+ l¡r
+ ->
+ l¡r_Ën
+  = 
+ size
+ ;
+ 
+ 1374 
+ 	`¡r_num£t
+ (
+ a¡r
+ ,()
+ »Šum
+ );
+ 
+ 1375 
+ ¡
+ [
+ ¥
+ ] = 
+ a¡r
+ ;
+ 
+ 1376  
+ ¥
+ ;
+ 
+ 1377 
+ 	}
+ }
+ 
+ 1380 
+ 	$do_vec£t
+ (
+ m¡r
+ ,
+ ¡r
+ )
+ 
+ 1381 
+ STR
+  *
+ m¡r
+ ;
+ 
+ 1382 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1384 
+ l¡ršg
+  *
+ l¡r
+  = (l¡ršg*)
+ ¡r
+ ;
+ 
+ 1385 
+ off£t
+ ;
+ 
+ 1386 
+ size
+ ;
+ 
+ 1387 *
+ s
+  = (*)
+ m¡r
+ ->
+ ¡r_±r
+ ;
+ 
+ 1388 
+ lv®
+  = 
+ 	`U_L
+ (
+ 	`¡r_gnum
+ (
+ ¡r
+ ));
+ 
+ 1389 
+ mask
+ ;
+ 
+ 1391 
+ m¡r
+ ->
+ ¡r_¿»
+  = 0;
+ 
+ 1392 
+ ¡r
+ ->
+ ¡r_magic
+  = 
+ NuΡr
+ ;
+ 
+ 1393 
+ off£t
+  = 
+ l¡r
+ ->
+ l¡r_off£t
+ ;
+ 
+ 1394 
+ size
+  = 
+ l¡r
+ ->
+ l¡r_Ën
+ ;
+ 
+ 1395 ià(
+ size
+  < 8) {
+ 
+ 1396 
+ mask
+  = (1 << 
+ size
+ ) - 1;
+ 
+ 1397 
+ size
+  = 
+ off£t
+  & 7;
+ 
+ 1398 
+ lv®
+  &ð
+ mask
+ ;
+ 
+ 1399 
+ off£t
+  >>= 3;
+ 
+ 1400 
+ s
+ [
+ off£t
+ ] &ð~(
+ mask
+  << 
+ size
+ );
+ 
+ 1401 
+ s
+ [
+ off£t
+ ] |ð
+ lv®
+  << 
+ size
+ ;
+ 
+ 1404 ià(
+ size
+  == 8)
+ 
+ 1405 
+ s
+ [
+ off£t
+ ] = 
+ lv®
+  & 255;
+ 
+ 1406 ià(
+ size
+  == 16) {
+ 
+ 1407 
+ s
+ [
+ off£t
+ ] = (
+ lv®
+  >> 8) & 255;
+ 
+ 1408 
+ s
+ [
+ off£t
+ +1] = 
+ lv®
+  & 255;
+ 
+ 1410 ià(
+ size
+  == 32) {
+ 
+ 1411 
+ s
+ [
+ off£t
+ ] = (
+ lv®
+  >> 24) & 255;
+ 
+ 1412 
+ s
+ [
+ off£t
+ +1] = (
+ lv®
+  >> 16) & 255;
+ 
+ 1413 
+ s
+ [
+ off£t
+ +2] = (
+ lv®
+  >> 8) & 255;
+ 
+ 1414 
+ s
+ [
+ off£t
+ +3] = 
+ lv®
+  & 255;
+ 
+ 1417 
+ 	}
+ }
+ 
+ 1419 
+ 	$do_chÝ
+ (
+ a¡r
+ ,
+ ¡r
+ )
+ 
+ 1420 
+ STR
+  *
+ a¡r
+ ;
+ 
+ 1421 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1423 *
+ tmps
+ ;
+ 
+ 1424 
+ i
+ ;
+ 
+ 1425 
+ ARRAY
+  *
+ ¬y
+ ;
+ 
+ 1426 
+ HASH
+  *
+ hash
+ ;
+ 
+ 1427 
+ HENT
+  *
+ ’Œy
+ ;
+ 
+ 1429 ià(!
+ ¡r
+ )
+ 
+ 1431 ià(
+ ¡r
+ ->
+ ¡r_¡©e
+  =ð
+ SS_ARY
+ ) {
+ 
+ 1432 
+ ¬y
+  = 
+ 	`¡ab_¬¿y
+ (
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_¡ab
+ );
+ 
+ 1433 
+ i
+  = 0; i <ð
+ ¬y
+ ->
+ ¬y_fžl
+ ; i++)
+ 
+ 1434 
+ 	`do_chÝ
+ (
+ a¡r
+ ,
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ i
+ ]);
+ 
+ 1437 ià(
+ ¡r
+ ->
+ ¡r_¡©e
+  =ð
+ SS_HASH
+ ) {
+ 
+ 1438 
+ hash
+  = 
+ 	`¡ab_hash
+ (
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_¡ab
+ );
+ 
+ 1439 ()
+ 	`h™”š™
+ (
+ hash
+ );
+ 
+ 1440 
+ ’Œy
+  = 
+ 	`h™”Ãxt
+ (
+ hash
+ ))
+ 
+ 1441 
+ 	`do_chÝ
+ (
+ a¡r
+ ,
+ 	`h™”v®
+ (
+ hash
+ ,
+ ’Œy
+ ));
+ 
+ 1444 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 1445 ià(!
+ tmps
+ )
+ 
+ 1447 
+ tmps
+  +ð
+ ¡r
+ ->
+ ¡r_cur
+  - (str->str_cur != 0);
+ 
+ 1448 
+ 	`¡r_n£t
+ (
+ a¡r
+ ,
+ tmps
+ ,1);
+ 
+ 1449 *
+ tmps
+  = '\0';
+ 
+ 1450 
+ ¡r
+ ->
+ ¡r_cur
+  = 
+ tmps
+  - sŒ->
+ ¡r_±r
+ ;
+ 
+ 1451 
+ ¡r
+ ->
+ ¡r_nok
+  = 0;
+ 
+ 1452 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 1453 
+ 	}
+ }
+ 
+ 1455 
+ 	$do_vÝ
+ (
+ Ýty³
+ ,
+ ¡r
+ ,
+ Ëá
+ ,
+ right
+ )
+ 
+ 1456 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1457 
+ STR
+  *
+ Ëá
+ ;
+ 
+ 1458 
+ STR
+  *
+ right
+ ;
+ 
+ 1460 *
+ s
+ ;
+ 
+ 1461 *
+ l
+  = 
+ 	`¡r_g‘
+ (
+ Ëá
+ );
+ 
+ 1462 *
+ r
+  = 
+ 	`¡r_g‘
+ (
+ right
+ );
+ 
+ 1463 
+ Ën
+ ;
+ 
+ 1465 
+ Ën
+  = 
+ Ëá
+ ->
+ ¡r_cur
+ ;
+ 
+ 1466 ià(
+ Ën
+  > 
+ right
+ ->
+ ¡r_cur
+ )
+ 
+ 1467 
+ Ën
+  = 
+ right
+ ->
+ ¡r_cur
+ ;
+ 
+ 1468 ià(
+ ¡r
+ ->
+ ¡r_cur
+  > 
+ Ën
+ )
+ 
+ 1469 
+ ¡r
+ ->
+ ¡r_cur
+  = 
+ Ën
+ ;
+ 
+ 1470 ià(
+ ¡r
+ ->
+ ¡r_cur
+  < 
+ Ën
+ ) {
+ 
+ 1471 
+ 	`STR_GROW
+ (
+ ¡r
+ ,
+ Ën
+ );
+ 
+ 1472 ()
+ 	`bz”o
+ (
+ ¡r
+ ->
+ ¡r_±r
+  + sŒ->
+ ¡r_cur
+ , 
+ Ën
+  - str->str_cur);
+ 
+ 1473 
+ ¡r
+ ->
+ ¡r_cur
+  = 
+ Ën
+ ;
+ 
+ 1475 
+ s
+  = 
+ ¡r
+ ->
+ ¡r_±r
+ ;
+ 
+ 1476 ià(!
+ s
+ ) {
+ 
+ 1477 
+ 	`¡r_n£t
+ (
+ ¡r
+ ,"",0);
+ 
+ 1478 
+ s
+  = 
+ ¡r
+ ->
+ ¡r_±r
+ ;
+ 
+ 1480 
+ Ýty³
+ ) {
+ 
+ 1481 
+ O_BIT_AND
+ :
+ 
+ 1482 
+ Ën
+ --)
+ 
+ 1483 *
+ s
+ ++ = *
+ l
+ ++ & *
+ r
+ ++;
+ 
+ 1485 
+ O_XOR
+ :
+ 
+ 1486 
+ Ën
+ --)
+ 
+ 1487 *
+ s
+ ++ = *
+ l
+ ++ ^ *
+ r
+ ++;
+ 
+ 1488 
+ mÝ_up
+ ;
+ 
+ 1489 
+ O_BIT_OR
+ :
+ 
+ 1490 
+ Ën
+ --)
+ 
+ 1491 *
+ s
+ ++ = *
+ l
+ ++ | *
+ r
+ ++;
+ 
+ 1492 
+ mÝ_up
+ :
+ 
+ 1493 
+ Ën
+  = 
+ ¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 1494 ià(
+ right
+ ->
+ ¡r_cur
+  > 
+ Ën
+ )
+ 
+ 1495 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,
+ right
+ ->
+ ¡r_±r
+ +
+ Ën
+ ,right->
+ ¡r_cur
+  -†en);
+ 
+ 1496 ià(
+ Ëá
+ ->
+ ¡r_cur
+  > 
+ Ën
+ )
+ 
+ 1497 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,
+ Ëá
+ ->
+ ¡r_±r
+ +
+ Ën
+ ,Ëá->
+ ¡r_cur
+  -†en);
+ 
+ 1500 
+ 	}
+ }
+ 
+ 1503 
+ 	$do_sysÿÎ
+ (
+ ¬gÏ¡
+ )
+ 
+ 1504 *
+ ¬gÏ¡
+ ;
+ 
+ 1506 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1507 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 1508 
+ ™ems
+  = 
+ ¬gÏ¡
+ [2] - 
+ ¥
+ ;
+ 
+ 1509 
+ ¬g
+ [8];
+ 
+ 1510 
+ i
+  = 0;
+ 
+ 1511 
+ »tv®
+  = -1;
+ 
+ 1513 #ifdeà
+ HAS_SYSCALL
+ 
+ 
+ 1514 #ifdeà
+ TAINT
+ 
+ 
+ 1515 
+ ¡
+  +ð++
+ ¥
+ ; 
+ ™ems
+ --; st++)
+ 
+ 1516 
+ š‹d
+  |ð(*
+ ¡
+ )->
+ ¡r_š‹d
+ ;
+ 
+ 1517 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1518 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 1519 
+ ™ems
+  = 
+ ¬gÏ¡
+ [2] - 
+ ¥
+ ;
+ 
+ 1521 #ifdeà
+ TAINT
+ 
+ 
+ 1522 
+ 	`šrÝ”
+ ("Insecure dependency in syscall");
+ 
+ 1528 
+ ™ems
+ --) {
+ 
+ 1529 ià(
+ ¡
+ [++
+ ¥
+ ]->
+ ¡r_nok
+  || !
+ i
+ )
+ 
+ 1530 
+ ¬g
+ [
+ i
+ ++] = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [
+ ¥
+ ]);
+ 
+ 1531 #iâdeà
+ lšt
+ 
+ 
+ 1533 
+ ¬g
+ [
+ i
+ ++] = ()
+ ¡
+ [
+ ¥
+ ]->
+ ¡r_±r
+ ;
+ 
+ 1536 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 1537 
+ ™ems
+  = 
+ ¬gÏ¡
+ [2] - 
+ ¥
+ ;
+ 
+ 1538 
+ ™ems
+ ) {
+ 
+ 1540 
+ 	`çl
+ ("Too few‡rgso syscall");
+ 
+ 1542 
+ »tv®
+  = 
+ 	`sysÿÎ
+ (
+ ¬g
+ [0]);
+ 
+ 1545 
+ »tv®
+  = 
+ 	`sysÿÎ
+ (
+ ¬g
+ [0],arg[1]);
+ 
+ 1548 
+ »tv®
+  = 
+ 	`sysÿÎ
+ (
+ ¬g
+ [0],arg[1],arg[2]);
+ 
+ 1551 
+ »tv®
+  = 
+ 	`sysÿÎ
+ (
+ ¬g
+ [0],arg[1],arg[2],arg[3]);
+ 
+ 1554 
+ »tv®
+  = 
+ 	`sysÿÎ
+ (
+ ¬g
+ [0],arg[1],arg[2],arg[3],arg[4]);
+ 
+ 1557 
+ »tv®
+  = 
+ 	`sysÿÎ
+ (
+ ¬g
+ [0],arg[1],arg[2],arg[3],arg[4],arg[5]);
+ 
+ 1560 
+ »tv®
+  = 
+ 	`sysÿÎ
+ (
+ ¬g
+ [0],arg[1],arg[2],arg[3],arg[4],arg[5],arg[6]);
+ 
+ 1563 
+ »tv®
+  = 
+ 	`sysÿÎ
+ (
+ ¬g
+ [0],arg[1],arg[2],arg[3],arg[4],arg[5],arg[6],
+ 
+ 1564 
+ ¬g
+ [7]);
+ 
+ 1567  
+ »tv®
+ ;
+ 
+ 1569 
+ 	`çl
+ ("syscall() unimplemented");
+ 
+ 1571 
+ 	}
+ }
+ 
+ 	@doio.c
+ 
+ 17 
+ 	~"EXTERN.h
+ "
+ 
+ 18 
+ 	~"³¾.h
+ "
+ 
+ 20 #ifdeà
+ HAS_SOCKET
+ 
+ 
+ 21 
+ 	~<sys/sock‘.h
+ >
+ 
+ 22 
+ 	~<Ãtdb.h
+ >
+ 
+ 25 #ifdeà
+ HAS_SELECT
+ 
+ 
+ 26 #ifdeà
+ I_SYS_SELECT
+ 
+ 
+ 27 #iâdeà
+ I_SYS_TIME
+ 
+ 
+ 28 
+ 	~<sys/£Ëù.h
+ >
+ 
+ 33 #ià
+ defšed
+ (
+ HAS_MSG
+ è|| defšed(
+ HAS_SEM
+ è|| defšed(
+ HAS_SHM
+ )
+ 
+ 34 
+ 	~<sys/c.h
+ >
+ 
+ 35 #ifdeà
+ HAS_MSG
+ 
+ 
+ 36 
+ 	~<sys/msg.h
+ >
+ 
+ 38 #ifdeà
+ HAS_SEM
+ 
+ 
+ 39 
+ 	~<sys/£m.h
+ >
+ 
+ 41 #ifdeà
+ HAS_SHM
+ 
+ 
+ 42 
+ 	~<sys/shm.h
+ >
+ 
+ 46 #ifdeà
+ I_PWD
+ 
+ 
+ 47 
+ 	~<pwd.h
+ >
+ 
+ 49 #ifdeà
+ I_GRP
+ 
+ 
+ 50 
+ 	~<g½.h
+ >
+ 
+ 52 #ifdeà
+ I_UTIME
+ 
+ 
+ 53 
+ 	~<utime.h
+ >
+ 
+ 55 #ifdeà
+ I_FCNTL
+ 
+ 
+ 56 
+ 	~<fúŽ.h
+ >
+ 
+ 58 #ifdeà
+ I_SYS_FILE
+ 
+ 
+ 59 
+ 	~<sys/fže.h
+ >
+ 
+ 62 
+ 	gÏ¡¡©v®
+  = -1;
+ 
+ 63 
+ 	gÏ¡¡y³
+  = 
+ O_STAT
+ ;
+ 
+ 65 
+ boÞ
+ 
+ 
+ 66 
+ 	$do_ݒ
+ (
+ ¡ab
+ ,
+ Çme
+ ,
+ Ën
+ )
+ 
+ 67 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 68 *
+ Çme
+ ;
+ 
+ 69 
+ Ën
+ ;
+ 
+ 71 
+ FILE
+  *
+ å
+ ;
+ 
+ 72 
+ STIO
+  *
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ );
+ 
+ 73 *
+ myÇme
+  = 
+ 	`§ve¡r
+ (
+ Çme
+ );
+ 
+ 74 
+ »suÉ
+ ;
+ 
+ 75 
+ fd
+ ;
+ 
+ 76 
+ wr™šg
+  = 0;
+ 
+ 77 
+ mode
+ [3];
+ 
+ 79 
+ Çme
+  = 
+ myÇme
+ ;
+ 
+ 80 
+ fÜk´oûss
+  = 1;
+ 
+ 81 
+ Ën
+  && 
+ 	`is¥aû
+ (
+ Çme
+ [len-1]))
+ 
+ 82 
+ Çme
+ [--
+ Ën
+ ] = '\0';
+ 
+ 83 ià(!
+ ¡io
+ )
+ 
+ 84 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ èð
+ 	`¡io_Ãw
+ ();
+ 
+ 85 ià(
+ ¡io
+ ->
+ iå
+ ) {
+ 
+ 86 
+ fd
+  = 
+ 	`fž’o
+ (
+ ¡io
+ ->
+ iå
+ );
+ 
+ 87 ià(
+ ¡io
+ ->
+ ty³
+  == '|')
+ 
+ 88 
+ »suÉ
+  = 
+ 	`mypþo£
+ (
+ ¡io
+ ->
+ iå
+ );
+ 
+ 89 ià(
+ ¡io
+ ->
+ ty³
+  == '-')
+ 
+ 90 
+ »suÉ
+  = 0;
+ 
+ 91 ià(
+ ¡io
+ ->
+ iå
+  !ð¡io->
+ oå
+ ) {
+ 
+ 92 ià(
+ ¡io
+ ->
+ oå
+ ) {
+ 
+ 93 
+ »suÉ
+  = 
+ 	`fþo£
+ (
+ ¡io
+ ->
+ oå
+ );
+ 
+ 94 
+ 	`fþo£
+ (
+ ¡io
+ ->
+ iå
+ );
+ 
+ 97 
+ »suÉ
+  = 
+ 	`fþo£
+ (
+ ¡io
+ ->
+ iå
+ );
+ 
+ 100 
+ »suÉ
+  = 
+ 	`fþo£
+ (
+ ¡io
+ ->
+ iå
+ );
+ 
+ 101 ià(
+ »suÉ
+  =ð
+ EOF
+  && 
+ fd
+  > 2)
+ 
+ 102 
+ 	`årštf
+ (
+ ¡d”r
+ ,"Warning: unableo close filehandle %s…roperly.\n",
+ 
+ 103 
+ 	`¡ab_Çme
+ (
+ ¡ab
+ ));
+ 
+ 104 
+ ¡io
+ ->
+ oå
+  = stio->
+ iå
+  = 
+ NuÎå
+ ;
+ 
+ 106 ià(*
+ Çme
+  =ð'+' && 
+ Ën
+  > 1 &&‚ame[len-1] != '|') {
+ 
+ 107 
+ mode
+ [1] = *
+ Çme
+ ++;
+ 
+ 108 
+ mode
+ [2] = '\0';
+ 
+ 109 --
+ Ën
+ ;
+ 
+ 110 
+ wr™šg
+  = 1;
+ 
+ 113 
+ mode
+ [1] = '\0';
+ 
+ 115 
+ ¡io
+ ->
+ ty³
+  = *
+ Çme
+ ;
+ 
+ 116 ià(*
+ Çme
+  == '|') {
+ 
+ 117 
+ Çme
+ ++; 
+ 	`is¥aû
+ (*name);‚ame++) ;
+ 
+ 118 #ifdeà
+ TAINT
+ 
+ 
+ 119 
+ 	`š‹nv
+ ();
+ 
+ 120 
+ 	`šrÝ”
+ ("Insecure dependency in…iped open");
+ 
+ 122 
+ å
+  = 
+ 	`mypݒ
+ (
+ Çme
+ ,"w");
+ 
+ 123 
+ wr™šg
+  = 1;
+ 
+ 125 ià(*
+ Çme
+  == '>') {
+ 
+ 126 #ifdeà
+ TAINT
+ 
+ 
+ 127 
+ 	`šrÝ”
+ ("Insecure dependency in open");
+ 
+ 129 
+ Çme
+ ++;
+ 
+ 130 ià(*
+ Çme
+  == '>') {
+ 
+ 131 
+ mode
+ [0] = 
+ ¡io
+ ->
+ ty³
+  = 'a';
+ 
+ 132 
+ Çme
+ ++;
+ 
+ 135 
+ mode
+ [0] = 'w';
+ 
+ 136 
+ wr™šg
+  = 1;
+ 
+ 137 ià(*
+ Çme
+  == '&') {
+ 
+ 138 
+ du¶ic™y
+ :
+ 
+ 139 
+ Çme
+ ++;
+ 
+ 140 
+ 	`is¥aû
+ (*
+ Çme
+ ))
+ 
+ 141 
+ Çme
+ ++;
+ 
+ 142 ià(
+ 	`isdig™
+ (*
+ Çme
+ ))
+ 
+ 143 
+ fd
+  = 
+ 	`©oi
+ (
+ Çme
+ );
+ 
+ 145 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ Çme
+ ,
+ FALSE
+ );
+ 
+ 146 ià(!
+ ¡ab
+  || !
+ 	`¡ab_io
+ (stab))
+ 
+ 147  
+ FALSE
+ ;
+ 
+ 148 ià(
+ 	`¡ab_io
+ (
+ ¡ab
+ è&& sb_io(¡ab)->
+ iå
+ ) {
+ 
+ 149 
+ fd
+  = 
+ 	`fž’o
+ (
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ iå
+ );
+ 
+ 150 ià(
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ ty³
+  == 's')
+ 
+ 151 
+ ¡io
+ ->
+ ty³
+  = 's';
+ 
+ 154 
+ fd
+  = -1;
+ 
+ 156 ià(!(
+ å
+  = 
+ 	`fdݒ
+ (
+ fd
+  = 
+ 	`dup
+ (fd),
+ mode
+ ))) {
+ 
+ 157 
+ 	`þo£
+ (
+ fd
+ );
+ 
+ 161 
+ 	`is¥aû
+ (*
+ Çme
+ ))
+ 
+ 162 
+ Çme
+ ++;
+ 
+ 163 ià(
+ 	`¡rEQ
+ (
+ Çme
+ ,"-")) {
+ 
+ 164 
+ å
+  = 
+ ¡dout
+ ;
+ 
+ 165 
+ ¡io
+ ->
+ ty³
+  = '-';
+ 
+ 168 
+ å
+  = 
+ 	`fݒ
+ (
+ Çme
+ ,
+ mode
+ );
+ 
+ 173 ià(*
+ Çme
+  == '<') {
+ 
+ 174 
+ mode
+ [0] = 'r';
+ 
+ 175 
+ Çme
+ ++;
+ 
+ 176 
+ 	`is¥aû
+ (*
+ Çme
+ ))
+ 
+ 177 
+ Çme
+ ++;
+ 
+ 178 ià(*
+ Çme
+  == '&')
+ 
+ 179 
+ du¶ic™y
+ ;
+ 
+ 180 ià(
+ 	`¡rEQ
+ (
+ Çme
+ ,"-")) {
+ 
+ 181 
+ å
+  = 
+ ¡dš
+ ;
+ 
+ 182 
+ ¡io
+ ->
+ ty³
+  = '-';
+ 
+ 185 
+ å
+  = 
+ 	`fݒ
+ (
+ Çme
+ ,
+ mode
+ );
+ 
+ 187 ià(
+ Çme
+ [
+ Ën
+ -1] == '|') {
+ 
+ 188 #ifdeà
+ TAINT
+ 
+ 
+ 189 
+ 	`š‹nv
+ ();
+ 
+ 190 
+ 	`šrÝ”
+ ("Insecure dependency in…iped open");
+ 
+ 192 
+ Çme
+ [--
+ Ën
+ ] = '\0';
+ 
+ 193 
+ Ën
+  && 
+ 	`is¥aû
+ (
+ Çme
+ [len-1]))
+ 
+ 194 
+ Çme
+ [--
+ Ën
+ ] = '\0';
+ 
+ 195 ; 
+ 	`is¥aû
+ (*
+ Çme
+ );‚ame++) ;
+ 
+ 196 
+ å
+  = 
+ 	`mypݒ
+ (
+ Çme
+ ,"r");
+ 
+ 197 
+ ¡io
+ ->
+ ty³
+  = '|';
+ 
+ 200 
+ ¡io
+ ->
+ ty³
+  = '<';
+ 
+ 201 ; 
+ 	`is¥aû
+ (*
+ Çme
+ );‚ame++) ;
+ 
+ 202 ià(
+ 	`¡rEQ
+ (
+ Çme
+ ,"-")) {
+ 
+ 203 
+ å
+  = 
+ ¡dš
+ ;
+ 
+ 204 
+ ¡io
+ ->
+ ty³
+  = '-';
+ 
+ 207 
+ å
+  = 
+ 	`fݒ
+ (
+ Çme
+ ,"r");
+ 
+ 210 
+ 	`Saãä“
+ (
+ myÇme
+ );
+ 
+ 211 ià(!
+ å
+ )
+ 
+ 212  
+ FALSE
+ ;
+ 
+ 213 ià(
+ ¡io
+ ->
+ ty³
+  &&
+ 
+ 214 
+ ¡io
+ ->
+ ty³
+  != '|' && stio->type != '-') {
+ 
+ 215 ià(
+ 	`f¡©
+ (
+ 	`fž’o
+ (
+ å
+ ),&
+ ¡©buf
+ ) < 0) {
+ 
+ 216 ()
+ 	`fþo£
+ (
+ å
+ );
+ 
+ 217  
+ FALSE
+ ;
+ 
+ 219 ià(
+ 	`S_ISSOCK
+ (
+ ¡©buf
+ .
+ ¡_mode
+ ))
+ 
+ 220 
+ ¡io
+ ->
+ ty³
+  = 's';
+ 
+ 221 #ifdeà
+ S_IFMT
+ 
+ 
+ 222 ià(!(
+ ¡©buf
+ .
+ ¡_mode
+  & 
+ S_IFMT
+ ))
+ 
+ 223 
+ ¡io
+ ->
+ ty³
+  = 's';
+ 
+ 226 #ià
+ 	`defšed
+ (
+ HAS_FCNTL
+ è&& defšed(
+ F_SETFD
+ )
+ 
+ 227 
+ fd
+  = 
+ 	`fž’o
+ (
+ å
+ );
+ 
+ 228 
+ 	`fúŽ
+ (
+ fd
+ ,
+ F_SETFD
+ ,fd >= 3);
+ 
+ 230 
+ ¡io
+ ->
+ iå
+  = 
+ å
+ ;
+ 
+ 231 ià(
+ wr™šg
+ ) {
+ 
+ 232 ià(
+ ¡io
+ ->
+ ty³
+  != 's')
+ 
+ 233 
+ ¡io
+ ->
+ oå
+  = 
+ å
+ ;
+ 
+ 235 ià(!(
+ ¡io
+ ->
+ oå
+  = 
+ 	`fdݒ
+ (
+ 	`fž’o
+ (
+ å
+ ),"w"))) {
+ 
+ 236 
+ 	`fþo£
+ (
+ å
+ );
+ 
+ 237 
+ ¡io
+ ->
+ iå
+  = 
+ NuÎå
+ ;
+ 
+ 240  
+ TRUE
+ ;
+ 
+ 241 
+ 	}
+ }
+ 
+ 243 
+ FILE
+  *
+ 
+ 244 
+ 	$Ãxrgv
+ (
+ ¡ab
+ )
+ 
+ 245 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 247 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 248 
+ fžedev
+ ;
+ 
+ 249 
+ fžešo
+ ;
+ 
+ 250 
+ fžeuid
+ ;
+ 
+ 251 
+ fžegid
+ ;
+ 
+ 252 
+ fžemode
+  = 0;
+ 
+ 253 
+ ϡfd
+ ;
+ 
+ 254 *
+ ÞdÇme
+ ;
+ 
+ 256 ià(!
+ ¬gvout¡ab
+ )
+ 
+ 257 
+ ¬gvout¡ab
+  = 
+ 	`¡ab’t
+ ("ARGVOUT",
+ TRUE
+ );
+ 
+ 258 ià(
+ fžemode
+  & (
+ S_ISUID
+ |
+ S_ISGID
+ )) {
+ 
+ 259 
+ 	`fæush
+ (
+ 	`¡ab_io
+ (
+ ¬gvout¡ab
+ )->
+ iå
+ );
+ 
+ 260 #ifdeà
+ HAS_FCHMOD
+ 
+ 
+ 261 ()
+ 	`fchmod
+ (
+ ϡfd
+ ,
+ fžemode
+ );
+ 
+ 263 ()
+ 	`chmod
+ (
+ ÞdÇme
+ ,
+ fžemode
+ );
+ 
+ 266 
+ fžemode
+  = 0;
+ 
+ 267 
+ 	`®’
+ (
+ 	`¡ab_x¬¿y
+ (
+ ¡ab
+ )) >= 0) {
+ 
+ 268 
+ ¡r
+  = 
+ 	`ashiá
+ (
+ 	`¡ab_x¬¿y
+ (
+ ¡ab
+ ));
+ 
+ 269 
+ 	`¡r_s£t
+ (
+ 	`¡ab_v®
+ (
+ ¡ab
+ ),
+ ¡r
+ );
+ 
+ 270 
+ 	`STABSET
+ (
+ 	`¡ab_v®
+ (
+ ¡ab
+ ));
+ 
+ 271 
+ ÞdÇme
+  = 
+ 	`¡r_g‘
+ (
+ 	`¡ab_v®
+ (
+ ¡ab
+ ));
+ 
+ 272 ià(
+ 	`do_ݒ
+ (
+ ¡ab
+ ,
+ ÞdÇme
+ ,
+ 	`¡ab_v®
+ (¡ab)->
+ ¡r_cur
+ )) {
+ 
+ 273 ià(
+ š¶aû
+ ) {
+ 
+ 274 #ifdeà
+ TAINT
+ 
+ 
+ 275 
+ 	`šrÝ”
+ ("Insecure dependency in inplace open");
+ 
+ 277 ià(
+ 	`¡rEQ
+ (
+ ÞdÇme
+ ,"-")) {
+ 
+ 278 
+ 	`¡r_ä“
+ (
+ ¡r
+ );
+ 
+ 279 
+ defout¡ab
+  = 
+ 	`¡ab’t
+ ("STDOUT",
+ TRUE
+ );
+ 
+ 280  
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ iå
+ ;
+ 
+ 282 
+ fžedev
+  = 
+ ¡©buf
+ .
+ ¡_dev
+ ;
+ 
+ 283 
+ fžešo
+  = 
+ ¡©buf
+ .
+ ¡_šo
+ ;
+ 
+ 284 
+ fžemode
+  = 
+ ¡©buf
+ .
+ ¡_mode
+ ;
+ 
+ 285 
+ fžeuid
+  = 
+ ¡©buf
+ .
+ ¡_uid
+ ;
+ 
+ 286 
+ fžegid
+  = 
+ ¡©buf
+ .
+ ¡_gid
+ ;
+ 
+ 287 ià(!
+ 	`S_ISREG
+ (
+ fžemode
+ )) {
+ 
+ 288 
+ 	`w¬n
+ ("Can't do inplaceƒdit: %s is‚ot‡„egular file",
+ 
+ 289 
+ ÞdÇme
+  );
+ 
+ 290 
+ 	`do_þo£
+ (
+ ¡ab
+ ,
+ FALSE
+ );
+ 
+ 291 
+ 	`¡r_ä“
+ (
+ ¡r
+ );
+ 
+ 294 ià(*
+ š¶aû
+ ) {
+ 
+ 295 #ifdeà
+ SUFFIX
+ 
+ 
+ 296 
+ 	`add_suffix
+ (
+ ¡r
+ ,
+ š¶aû
+ );
+ 
+ 298 
+ 	`¡r_ÿt
+ (
+ ¡r
+ ,
+ š¶aû
+ );
+ 
+ 300 #iâdeà
+ FLEXFILENAMES
+ 
+ 
+ 301 ià(
+ 	`¡©
+ (
+ ¡r
+ ->
+ ¡r_±r
+ ,&
+ ¡©buf
+ ) >= 0
+ 
+ 302 && 
+ ¡©buf
+ .
+ ¡_dev
+  =ð
+ fžedev
+ 
+ 
+ 303 && 
+ ¡©buf
+ .
+ ¡_šo
+  =ð
+ fžešo
+  ) {
+ 
+ 304 
+ 	`w¬n
+ ("Can't do inplaceƒdit: %s > 14 characters",
+ 
+ 305 
+ ¡r
+ ->
+ ¡r_±r
+  );
+ 
+ 306 
+ 	`do_þo£
+ (
+ ¡ab
+ ,
+ FALSE
+ );
+ 
+ 307 
+ 	`¡r_ä“
+ (
+ ¡r
+ );
+ 
+ 311 #ifdeà
+ HAS_RENAME
+ 
+ 
+ 312 #iâdeà
+ MSDOS
+ 
+ 
+ 313 ià(
+ 	`Ȃme
+ (
+ ÞdÇme
+ ,
+ ¡r
+ ->
+ ¡r_±r
+ ) < 0) {
+ 
+ 314 
+ 	`w¬n
+ ("Can't„ename %so %s: %s, skipping file",
+ 
+ 315 
+ ÞdÇme
+ , 
+ ¡r
+ ->
+ ¡r_±r
+ , 
+ 	`¡»¼Ü
+ (
+ Ӽo
+ ) );
+ 
+ 316 
+ 	`do_þo£
+ (
+ ¡ab
+ ,
+ FALSE
+ );
+ 
+ 317 
+ 	`¡r_ä“
+ (
+ ¡r
+ );
+ 
+ 321 
+ 	`do_þo£
+ (
+ ¡ab
+ ,
+ FALSE
+ );
+ 
+ 322 ()
+ 	`uƚk
+ (
+ ¡r
+ ->
+ ¡r_±r
+ );
+ 
+ 323 ()
+ 	`Ȃme
+ (
+ ÞdÇme
+ ,
+ ¡r
+ ->
+ ¡r_±r
+ );
+ 
+ 324 
+ 	`do_ݒ
+ (
+ ¡ab
+ ,
+ ¡r
+ ->
+ ¡r_±r
+ ,
+ 	`¡ab_v®
+ (¡ab)->
+ ¡r_cur
+ );
+ 
+ 327 ()
+ 	`UNLINK
+ (
+ ¡r
+ ->
+ ¡r_±r
+ );
+ 
+ 328 ià(
+ 	`lšk
+ (
+ ÞdÇme
+ ,
+ ¡r
+ ->
+ ¡r_±r
+ ) < 0) {
+ 
+ 329 
+ 	`w¬n
+ ("Can't„ename %so %s: %s, skipping file",
+ 
+ 330 
+ ÞdÇme
+ , 
+ ¡r
+ ->
+ ¡r_±r
+ , 
+ 	`¡»¼Ü
+ (
+ Ӽo
+ ) );
+ 
+ 331 
+ 	`do_þo£
+ (
+ ¡ab
+ ,
+ FALSE
+ );
+ 
+ 332 
+ 	`¡r_ä“
+ (
+ ¡r
+ );
+ 
+ 335 ()
+ 	`UNLINK
+ (
+ ÞdÇme
+ );
+ 
+ 339 #iâdeà
+ MSDOS
+ 
+ 
+ 340 ià(
+ 	`UNLINK
+ (
+ ÞdÇme
+ ) < 0) {
+ 
+ 341 
+ 	`w¬n
+ ("Can't„ename %so %s: %s, skipping file",
+ 
+ 342 
+ ÞdÇme
+ , 
+ ¡r
+ ->
+ ¡r_±r
+ , 
+ 	`¡»¼Ü
+ (
+ Ӽo
+ ) );
+ 
+ 343 
+ 	`do_þo£
+ (
+ ¡ab
+ ,
+ FALSE
+ );
+ 
+ 344 
+ 	`¡r_ä“
+ (
+ ¡r
+ );
+ 
+ 348 
+ 	`çl
+ ("Can't do inplaceƒdit without backup");
+ 
+ 352 
+ 	`¡r_n£t
+ (
+ ¡r
+ ,">",1);
+ 
+ 353 
+ 	`¡r_ÿt
+ (
+ ¡r
+ ,
+ ÞdÇme
+ );
+ 
+ 354 
+ Ӽo
+  = 0;
+ 
+ 355 ià(!
+ 	`do_ݒ
+ (
+ ¬gvout¡ab
+ ,
+ ¡r
+ ->
+ ¡r_±r
+ ,¡r->
+ ¡r_cur
+ )) {
+ 
+ 356 
+ 	`w¬n
+ ("Can't do inplaceƒdit on %s: %s",
+ 
+ 357 
+ ÞdÇme
+ , 
+ 	`¡»¼Ü
+ (
+ Ӽo
+ ) );
+ 
+ 358 
+ 	`do_þo£
+ (
+ ¡ab
+ ,
+ FALSE
+ );
+ 
+ 359 
+ 	`¡r_ä“
+ (
+ ¡r
+ );
+ 
+ 362 
+ defout¡ab
+  = 
+ ¬gvout¡ab
+ ;
+ 
+ 363 
+ ϡfd
+  = 
+ 	`fž’o
+ (
+ 	`¡ab_io
+ (
+ ¬gvout¡ab
+ )->
+ iå
+ );
+ 
+ 364 ()
+ 	`f¡©
+ (
+ ϡfd
+ ,&
+ ¡©buf
+ );
+ 
+ 365 #ifdeà
+ HAS_FCHMOD
+ 
+ 
+ 366 ()
+ 	`fchmod
+ (
+ ϡfd
+ ,
+ fžemode
+ );
+ 
+ 368 ()
+ 	`chmod
+ (
+ ÞdÇme
+ ,
+ fžemode
+ );
+ 
+ 370 ià(
+ fžeuid
+  !ð
+ ¡©buf
+ .
+ ¡_uid
+  || 
+ fžegid
+  !ð¡©buf.
+ ¡_gid
+ ) {
+ 
+ 371 #ifdeà
+ HAS_FCHOWN
+ 
+ 
+ 372 ()
+ 	`fchown
+ (
+ ϡfd
+ ,
+ fžeuid
+ ,
+ fžegid
+ );
+ 
+ 374 #ifdeà
+ HAS_CHOWN
+ 
+ 
+ 375 ()
+ 	`chown
+ (
+ ÞdÇme
+ ,
+ fžeuid
+ ,
+ fžegid
+ );
+ 
+ 380 
+ 	`¡r_ä“
+ (
+ ¡r
+ );
+ 
+ 381  
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ iå
+ ;
+ 
+ 384 
+ 	`årštf
+ (
+ ¡d”r
+ ,"Cª'ˆÝ’ %s: %s\n",
+ 	`¡r_g‘
+ (
+ ¡r
+ ), 
+ 	`¡»¼Ü
+ (
+ Ӽo
+ ));
+ 
+ 385 
+ 	`¡r_ä“
+ (
+ ¡r
+ );
+ 
+ 387 ià(
+ š¶aû
+ ) {
+ 
+ 388 ()
+ 	`do_þo£
+ (
+ ¬gvout¡ab
+ ,
+ FALSE
+ );
+ 
+ 389 
+ defout¡ab
+  = 
+ 	`¡ab’t
+ ("STDOUT",
+ TRUE
+ );
+ 
+ 391  
+ NuÎå
+ ;
+ 
+ 392 
+ 	}
+ }
+ 
+ 394 #ifdeà
+ HAS_PIPE
+ 
+ 
+ 396 
+ 	$do_pe
+ (
+ ¡r
+ , 
+ r¡ab
+ , 
+ w¡ab
+ )
+ 
+ 397 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 398 
+ STAB
+  *
+ r¡ab
+ ;
+ 
+ 399 
+ STAB
+  *
+ w¡ab
+ ;
+ 
+ 401 
+ STIO
+  *
+ r¡io
+ ;
+ 
+ 402 
+ STIO
+  *
+ w¡io
+ ;
+ 
+ 403 
+ fd
+ [2];
+ 
+ 405 ià(!
+ r¡ab
+ )
+ 
+ 406 
+ badex™
+ ;
+ 
+ 407 ià(!
+ w¡ab
+ )
+ 
+ 408 
+ badex™
+ ;
+ 
+ 410 
+ r¡io
+  = 
+ 	`¡ab_io
+ (
+ r¡ab
+ );
+ 
+ 411 
+ w¡io
+  = 
+ 	`¡ab_io
+ (
+ w¡ab
+ );
+ 
+ 413 ià(!
+ r¡io
+ )
+ 
+ 414 
+ r¡io
+  = 
+ 	`¡ab_io
+ (
+ r¡ab
+ èð
+ 	`¡io_Ãw
+ ();
+ 
+ 415 ià(
+ r¡io
+ ->
+ iå
+ )
+ 
+ 416 
+ 	`do_þo£
+ (
+ r¡ab
+ ,
+ FALSE
+ );
+ 
+ 417 ià(!
+ w¡io
+ )
+ 
+ 418 
+ w¡io
+  = 
+ 	`¡ab_io
+ (
+ w¡ab
+ èð
+ 	`¡io_Ãw
+ ();
+ 
+ 419 ià(
+ w¡io
+ ->
+ iå
+ )
+ 
+ 420 
+ 	`do_þo£
+ (
+ w¡ab
+ ,
+ FALSE
+ );
+ 
+ 422 ià(
+ 	`pe
+ (
+ fd
+ ) < 0)
+ 
+ 423 
+ badex™
+ ;
+ 
+ 424 
+ r¡io
+ ->
+ iå
+  = 
+ 	`fdݒ
+ (
+ fd
+ [0], "r");
+ 
+ 425 
+ w¡io
+ ->
+ oå
+  = 
+ 	`fdݒ
+ (
+ fd
+ [1], "w");
+ 
+ 426 
+ w¡io
+ ->
+ iå
+  = w¡io->
+ oå
+ ;
+ 
+ 427 
+ r¡io
+ ->
+ ty³
+  = '<';
+ 
+ 428 
+ w¡io
+ ->
+ ty³
+  = '>';
+ 
+ 429 ià(!
+ r¡io
+ ->
+ iå
+  || !
+ w¡io
+ ->
+ oå
+ ) {
+ 
+ 430 ià(
+ r¡io
+ ->
+ iå
+ è
+ 	`fþo£
+ (rstio->ifp);
+ 
+ 431 
+ 	`þo£
+ (
+ fd
+ [0]);
+ 
+ 432 ià(
+ w¡io
+ ->
+ oå
+ è
+ 	`fþo£
+ (wstio->ofp);
+ 
+ 433 
+ 	`þo£
+ (
+ fd
+ [1]);
+ 
+ 434 
+ badex™
+ ;
+ 
+ 437 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_yes
+ );
+ 
+ 440 
+ badex™
+ :
+ 
+ 441 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_undef
+ );
+ 
+ 443 
+ 	}
+ }
+ 
+ 446 
+ boÞ
+ 
+ 
+ 447 
+ 	$do_þo£
+ (
+ ¡ab
+ ,
+ ex¶ic™
+ )
+ 
+ 448 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 449 
+ boÞ
+  
+ ex¶ic™
+ ;
+ 
+ 451 
+ boÞ
+  
+ »tv®
+  = 
+ FALSE
+ ;
+ 
+ 452 
+ STIO
+  *
+ ¡io
+ ;
+ 
+ 453 
+ ¡©us
+ ;
+ 
+ 455 ià(!
+ ¡ab
+ )
+ 
+ 456 
+ ¡ab
+  = 
+ ¬gv¡ab
+ ;
+ 
+ 457 ià(!
+ ¡ab
+ )
+ 
+ 458  
+ FALSE
+ ;
+ 
+ 459 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ );
+ 
+ 460 ià(!
+ ¡io
+ ) {
+ 
+ 461 ià(
+ dow¬n
+  && 
+ ex¶ic™
+ )
+ 
+ 462 
+ 	`w¬n
+ ("Clo£ oÀunÝ’ed fž<%s>",
+ 	`¡ab_Çme
+ (
+ ¡ab
+ ));
+ 
+ 463  
+ FALSE
+ ;
+ 
+ 465 ià(
+ ¡io
+ ->
+ iå
+ ) {
+ 
+ 466 ià(
+ ¡io
+ ->
+ ty³
+  == '|') {
+ 
+ 467 
+ ¡©us
+  = 
+ 	`mypþo£
+ (
+ ¡io
+ ->
+ iå
+ );
+ 
+ 468 
+ »tv®
+  = (
+ ¡©us
+  == 0);
+ 
+ 469 
+ ¡©usv®ue
+  = ()
+ ¡©us
+  & 0xffff;
+ 
+ 471 ià(
+ ¡io
+ ->
+ ty³
+  == '-')
+ 
+ 472 
+ »tv®
+  = 
+ TRUE
+ ;
+ 
+ 474 ià(
+ ¡io
+ ->
+ oå
+  && stio->oå !ð¡io->
+ iå
+ ) {
+ 
+ 475 
+ »tv®
+  = (
+ 	`fþo£
+ (
+ ¡io
+ ->
+ oå
+ è!ð
+ EOF
+ );
+ 
+ 476 
+ 	`fþo£
+ (
+ ¡io
+ ->
+ iå
+ );
+ 
+ 479 
+ »tv®
+  = (
+ 	`fþo£
+ (
+ ¡io
+ ->
+ iå
+ è!ð
+ EOF
+ );
+ 
+ 481 
+ ¡io
+ ->
+ oå
+  = stio->
+ iå
+  = 
+ NuÎå
+ ;
+ 
+ 483 ià(
+ ex¶ic™
+ )
+ 
+ 484 
+ ¡io
+ ->
+ lšes
+  = 0;
+ 
+ 485 
+ ¡io
+ ->
+ ty³
+  = ' ';
+ 
+ 486  
+ »tv®
+ ;
+ 
+ 487 
+ 	}
+ }
+ 
+ 489 
+ boÞ
+ 
+ 
+ 490 
+ 	$do_eof
+ (
+ ¡ab
+ )
+ 
+ 491 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 493 
+ STIO
+  *
+ ¡io
+ ;
+ 
+ 494 
+ ch
+ ;
+ 
+ 496 ià(!
+ ¡ab
+ ) {
+ 
+ 497 ià(
+ ¬gv¡ab
+ )
+ 
+ 498 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¬gv¡ab
+ );
+ 
+ 500  
+ TRUE
+ ;
+ 
+ 503 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ );
+ 
+ 505 ià(!
+ ¡io
+ )
+ 
+ 506  
+ TRUE
+ ;
+ 
+ 508 
+ ¡io
+ ->
+ iå
+ ) {
+ 
+ 510 #ifdeà
+ STDSTDIO
+ 
+ 
+ 511 ià(
+ ¡io
+ ->
+ iå
+ ->
+ _út
+  > 0)
+ 
+ 512  
+ FALSE
+ ;
+ 
+ 515 
+ ch
+  = 
+ 	`g‘c
+ (
+ ¡io
+ ->
+ iå
+ );
+ 
+ 516 ià(
+ ch
+  !ð
+ EOF
+ ) {
+ 
+ 517 ()
+ 	`ung‘c
+ (
+ ch
+ , 
+ ¡io
+ ->
+ iå
+ );
+ 
+ 518  
+ FALSE
+ ;
+ 
+ 520 #ifdeà
+ STDSTDIO
+ 
+ 
+ 521 ià(
+ ¡io
+ ->
+ iå
+ ->
+ _út
+  < -1)
+ 
+ 522 
+ ¡io
+ ->
+ iå
+ ->
+ _út
+  = -1;
+ 
+ 524 ià(!
+ ¡ab
+ ) {
+ 
+ 525 ià(!
+ 	`Ãxrgv
+ (
+ ¬gv¡ab
+ ))
+ 
+ 526  
+ TRUE
+ ;
+ 
+ 529  
+ TRUE
+ ;
+ 
+ 531  
+ TRUE
+ ;
+ 
+ 532 
+ 	}
+ }
+ 
+ 535 
+ 	$do_‹Î
+ (
+ ¡ab
+ )
+ 
+ 536 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 538 
+ STIO
+  *
+ ¡io
+ ;
+ 
+ 540 ià(!
+ ¡ab
+ )
+ 
+ 541 
+ phoÛy
+ ;
+ 
+ 543 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ );
+ 
+ 544 ià(!
+ ¡io
+  || !¡io->
+ iå
+ )
+ 
+ 545 
+ phoÛy
+ ;
+ 
+ 547 ià(
+ 	`ãof
+ (
+ ¡io
+ ->
+ iå
+ ))
+ 
+ 548 ()
+ 	`f£ek
+  (
+ ¡io
+ ->
+ iå
+ , 0L, 2);
+ 
+ 550  
+ 	`á–l
+ (
+ ¡io
+ ->
+ iå
+ );
+ 
+ 552 
+ phoÛy
+ :
+ 
+ 553 ià(
+ dow¬n
+ )
+ 
+ 554 
+ 	`w¬n
+ ("tell() on unopened file");
+ 
+ 556 
+ 	}
+ }
+ 
+ 558 
+ boÞ
+ 
+ 
+ 559 
+ 	$do_£ek
+ (
+ ¡ab
+ , 
+ pos
+ , 
+ wh’û
+ )
+ 
+ 560 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 561 
+ pos
+ ;
+ 
+ 562 
+ wh’û
+ ;
+ 
+ 564 
+ STIO
+  *
+ ¡io
+ ;
+ 
+ 566 ià(!
+ ¡ab
+ )
+ 
+ 567 
+ nuts
+ ;
+ 
+ 569 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ );
+ 
+ 570 ià(!
+ ¡io
+  || !¡io->
+ iå
+ )
+ 
+ 571 
+ nuts
+ ;
+ 
+ 573 ià(
+ 	`ãof
+ (
+ ¡io
+ ->
+ iå
+ ))
+ 
+ 574 ()
+ 	`f£ek
+  (
+ ¡io
+ ->
+ iå
+ , 0L, 2);
+ 
+ 576  
+ 	`f£ek
+ (
+ ¡io
+ ->
+ iå
+ , 
+ pos
+ , 
+ wh’û
+ ) >= 0;
+ 
+ 578 
+ nuts
+ :
+ 
+ 579 ià(
+ dow¬n
+ )
+ 
+ 580 
+ 	`w¬n
+ ("seek() on unopened file");
+ 
+ 581  
+ FALSE
+ ;
+ 
+ 582 
+ 	}
+ }
+ 
+ 585 
+ 	$do_ùl
+ (
+ Ýty³
+ ,
+ ¡ab
+ ,
+ func
+ ,
+ ¬g¡r
+ )
+ 
+ 586 
+ Ýty³
+ ;
+ 
+ 587 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 588 
+ func
+ ;
+ 
+ 589 
+ STR
+  *
+ ¬g¡r
+ ;
+ 
+ 591 
+ STIO
+  *
+ ¡io
+ ;
+ 
+ 592 *
+ s
+ ;
+ 
+ 593 
+ »tv®
+ ;
+ 
+ 595 ià(!
+ ¡ab
+  || !
+ ¬g¡r
+ )
+ 
+ 597 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ );
+ 
+ 598 ià(!
+ ¡io
+ )
+ 
+ 601 ià(
+ ¬g¡r
+ ->
+ ¡r_pok
+  || !¬g¡r->
+ ¡r_nok
+ ) {
+ 
+ 602 ià(!
+ ¬g¡r
+ ->
+ ¡r_pok
+ )
+ 
+ 603 
+ s
+  = 
+ 	`¡r_g‘
+ (
+ ¬g¡r
+ );
+ 
+ 605 #ifdeà
+ IOCPARM_MASK
+ 
+ 
+ 606 #iâdeà
+ IOCPARM_LEN
+ 
+ 
+ 607 
+ 	#IOCPARM_LEN
+ (
+ x
+ è(((xè>> 16è& 
+ IOCPARM_MASK
+ )
+ 
+ 	)
+ 
+ 610 #ifdeà
+ IOCPARM_LEN
+ 
+ 
+ 611 
+ »tv®
+  = 
+ 	`IOCPARM_LEN
+ (
+ func
+ );
+ 
+ 613 
+ »tv®
+  = 256;
+ 
+ 615 ià(
+ ¬g¡r
+ ->
+ ¡r_cur
+  < 
+ »tv®
+ ) {
+ 
+ 616 
+ 	`SŒ_Grow
+ (
+ ¬g¡r
+ ,
+ »tv®
+ +1);
+ 
+ 617 
+ ¬g¡r
+ ->
+ ¡r_cur
+  = 
+ »tv®
+ ;
+ 
+ 620 
+ s
+  = 
+ ¬g¡r
+ ->
+ ¡r_±r
+ ;
+ 
+ 621 
+ s
+ [
+ ¬g¡r
+ ->
+ ¡r_cur
+ ] = 17;
+ 
+ 624 
+ »tv®
+  = ()
+ 	`¡r_gnum
+ (
+ ¬g¡r
+ );
+ 
+ 625 #ifdeà
+ MSDOS
+ 
+ 
+ 626 
+ s
+  = (*)()
+ »tv®
+ ;
+ 
+ 628 
+ s
+  = (*)
+ »tv®
+ ;
+ 
+ 632 #iâdeà
+ lšt
+ 
+ 
+ 633 ià(
+ Ýty³
+  =ð
+ O_IOCTL
+ )
+ 
+ 634 
+ »tv®
+  = 
+ 	`ioùl
+ (
+ 	`fž’o
+ (
+ ¡io
+ ->
+ iå
+ ), 
+ func
+ , 
+ s
+ );
+ 
+ 636 #ifdeà
+ MSDOS
+ 
+ 
+ 637 
+ 	`çl
+ ("fcntl is‚ot implemented");
+ 
+ 639 #ifdeà
+ HAS_FCNTL
+ 
+ 
+ 640 
+ »tv®
+  = 
+ 	`fúŽ
+ (
+ 	`fž’o
+ (
+ ¡io
+ ->
+ iå
+ ), 
+ func
+ , 
+ s
+ );
+ 
+ 642 
+ 	`çl
+ ("fcntl is‚ot implemented");
+ 
+ 646 
+ »tv®
+  = 0;
+ 
+ 649 ià(
+ ¬g¡r
+ ->
+ ¡r_pok
+ ) {
+ 
+ 650 ià(
+ s
+ [
+ ¬g¡r
+ ->
+ ¡r_cur
+ ] != 17)
+ 
+ 651 
+ 	`çl
+ ("Return value overflowed string");
+ 
+ 652 
+ s
+ [
+ ¬g¡r
+ ->
+ ¡r_cur
+ ] = 0;
+ 
+ 654  
+ »tv®
+ ;
+ 
+ 655 
+ 	}
+ }
+ 
+ 658 
+ 	$do_¡©
+ (
+ ¡r
+ ,
+ ¬g
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 659 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 660 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 661 
+ gimme
+ ;
+ 
+ 662 *
+ ¬gÏ¡
+ ;
+ 
+ 664 
+ ARRAY
+  *
+ ¬y
+  = 
+ ¡ack
+ ;
+ 
+ 665 
+ ¥
+  = 
+ ¬gÏ¡
+ [0] + 1;
+ 
+ 666 
+ max
+  = 13;
+ 
+ 668 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ ) {
+ 
+ 669 
+ tmp¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 670 ià(
+ tmp¡ab
+  !ð
+ def¡ab
+ ) {
+ 
+ 671 
+ Ï¡¡y³
+  = 
+ O_STAT
+ ;
+ 
+ 672 
+ ¡©¡ab
+  = 
+ tmp¡ab
+ ;
+ 
+ 673 
+ 	`¡r_£t
+ (
+ ¡©Çme
+ ,"");
+ 
+ 674 ià(!
+ 	`¡ab_io
+ (
+ tmp¡ab
+ è|| !¡ab_ioÑmp¡ab)->
+ iå
+  ||
+ 
+ 675 
+ 	`f¡©
+ (
+ 	`fž’o
+ (
+ 	`¡ab_io
+ (
+ tmp¡ab
+ )->
+ iå
+ ),&
+ ¡©ÿche
+ ) < 0) {
+ 
+ 676 
+ max
+  = 0;
+ 
+ 677 
+ Ï¡¡©v®
+  = -1;
+ 
+ 680 ià(
+ Ï¡¡©v®
+  < 0)
+ 
+ 681 
+ max
+  = 0;
+ 
+ 684 
+ 	`¡r_£t
+ (
+ ¡©Çme
+ ,
+ 	`¡r_g‘
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ ]));
+ 
+ 685 
+ ¡©¡ab
+  = 
+ NuΡab
+ ;
+ 
+ 686 #ifdeà
+ HAS_LSTAT
+ 
+ 
+ 687 
+ Ï¡¡y³
+  = 
+ ¬g
+ ->
+ ¬g_ty³
+ ;
+ 
+ 688 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_LSTAT
+ )
+ 
+ 689 
+ Ï¡¡©v®
+  = 
+ 	`l¡©
+ (
+ 	`¡r_g‘
+ (
+ ¡©Çme
+ ),&
+ ¡©ÿche
+ );
+ 
+ 692 
+ Ï¡¡©v®
+  = 
+ 	`¡©
+ (
+ 	`¡r_g‘
+ (
+ ¡©Çme
+ ),&
+ ¡©ÿche
+ );
+ 
+ 693 ià(
+ Ï¡¡©v®
+  < 0)
+ 
+ 694 
+ max
+  = 0;
+ 
+ 697 ià(
+ gimme
+  !ð
+ G_ARRAY
+ ) {
+ 
+ 698 ià(
+ max
+ )
+ 
+ 699 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_yes
+ );
+ 
+ 701 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_undef
+ );
+ 
+ 702 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 703 
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 704  
+ ¥
+ ;
+ 
+ 706 
+ ¥
+ --;
+ 
+ 707 ià(
+ max
+ ) {
+ 
+ 708 #iâdeà
+ lšt
+ 
+ 
+ 709 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 
+ 710 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ ¡©ÿche
+ .
+ ¡_dev
+ )));
+ 
+ 711 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 
+ 712 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ ¡©ÿche
+ .
+ ¡_šo
+ )));
+ 
+ 713 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 
+ 714 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ ¡©ÿche
+ .
+ ¡_mode
+ )));
+ 
+ 715 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 
+ 716 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ ¡©ÿche
+ .
+ ¡_Æšk
+ )));
+ 
+ 717 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 
+ 718 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ ¡©ÿche
+ .
+ ¡_uid
+ )));
+ 
+ 719 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 
+ 720 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ ¡©ÿche
+ .
+ ¡_gid
+ )));
+ 
+ 721 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 
+ 722 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ ¡©ÿche
+ .
+ ¡_rdev
+ )));
+ 
+ 723 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 
+ 724 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ ¡©ÿche
+ .
+ ¡_size
+ )));
+ 
+ 725 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 
+ 726 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ ¡©ÿche
+ .
+ ¡_©ime
+ )));
+ 
+ 727 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 
+ 728 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ ¡©ÿche
+ .
+ ¡_mtime
+ )));
+ 
+ 729 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 
+ 730 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ ¡©ÿche
+ .
+ ¡_ùime
+ )));
+ 
+ 731 #ifdeà
+ STATBLOCKS
+ 
+ 
+ 732 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 
+ 733 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ ¡©ÿche
+ .
+ ¡_blksize
+ )));
+ 
+ 734 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 
+ 735 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ ¡©ÿche
+ .
+ ¡_blocks
+ )));
+ 
+ 737 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 
+ 738 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_make
+ ("",0)));
+ 
+ 739 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 
+ 740 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_make
+ ("",0)));
+ 
+ 743 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 	`¡r_nmake
+ (0.0));
+ 
+ 746  
+ ¥
+ ;
+ 
+ 747 
+ 	}
+ }
+ 
+ 749 #ià!
+ defšed
+ (
+ HAS_TRUNCATE
+ è&& !defšed(
+ HAS_CHSIZE
+ è&& defšed(
+ F_FREESP
+ )
+ 
+ 751 
+ 	#HAS_CHSIZE
+ 
+ 
+ 	)
+ 
+ 753 
+ 	$chsize
+ (
+ fd
+ , 
+ Ëngth
+ )
+ 
+ 754 
+ fd
+ ;
+ 
+ 755 
+ off_t
+  
+ Ëngth
+ ;
+ 
+ 757 

+ 	`l£ek
+ ();
+ 
+ 758 
+ æock
+  
+ æ
+ ;
+ 
+ 759 
+ ¡©
+  
+ fžebuf
+ ;
+ 
+ 761 ià(
+ 	`f¡©
+ (
+ fd
+ , &
+ fžebuf
+ ) < 0)
+ 
+ 764 ià(
+ fžebuf
+ .
+ ¡_size
+  < 
+ Ëngth
+ ) {
+ 
+ 768 ià((
+ 	`l£ek
+ (
+ fd
+ , (
+ Ëngth
+  - 1), 0)) < 0)
+ 
+ 773 ià((
+ 	`wr™e
+ (
+ fd
+ , "", 1)) != 1)
+ 
+ 779 
+ æ
+ .
+ l_wh’û
+  = 0;
+ 
+ 780 
+ æ
+ .
+ l_Ën
+  = 0;
+ 
+ 781 
+ æ
+ .
+ l_¡¬t
+  = 
+ Ëngth
+ ;
+ 
+ 782 
+ æ
+ .
+ l_ty³
+  = 
+ F_WRLCK
+ ;
+ 
+ 792 ià(
+ 	`fúŽ
+ (
+ fd
+ , 
+ F_FREESP
+ , &
+ æ
+ ) < 0)
+ 
+ 798 
+ 	}
+ }
+ 
+ 802 
+ 	$do_Œunÿ‹
+ (
+ ¡r
+ ,
+ ¬g
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 803 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 804 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 805 
+ gimme
+ ;
+ 
+ 806 *
+ ¬gÏ¡
+ ;
+ 
+ 808 
+ ARRAY
+  *
+ ¬y
+  = 
+ ¡ack
+ ;
+ 
+ 809 
+ ¥
+  = 
+ ¬gÏ¡
+ [0] + 1;
+ 
+ 810 
+ off_t
+  
+ Ën
+  = (off_t)
+ 	`¡r_gnum
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1]);
+ 
+ 811 
+ »suÉ
+  = 1;
+ 
+ 812 
+ STAB
+  *
+ tmp¡ab
+ ;
+ 
+ 814 #ià
+ 	`defšed
+ (
+ HAS_TRUNCATE
+ è|| defšed(
+ HAS_CHSIZE
+ )
+ 
+ 815 #ifdeà
+ HAS_TRUNCATE
+ 
+ 
+ 816 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ ) {
+ 
+ 817 
+ tmp¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 818 ià(!
+ 	`¡ab_io
+ (
+ tmp¡ab
+ ) ||
+ 
+ 819 
+ 	`árunÿ‹
+ (
+ 	`fž’o
+ (
+ 	`¡ab_io
+ (
+ tmp¡ab
+ )->
+ iå
+ ), 
+ Ën
+ ) < 0)
+ 
+ 820 
+ »suÉ
+  = 0;
+ 
+ 822 ià(
+ 	`Œunÿ‹
+ (
+ 	`¡r_g‘
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ ]), 
+ Ën
+ ) < 0)
+ 
+ 823 
+ »suÉ
+  = 0;
+ 
+ 825 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ ) {
+ 
+ 826 
+ tmp¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 827 ià(!
+ 	`¡ab_io
+ (
+ tmp¡ab
+ ) ||
+ 
+ 828 
+ 	`chsize
+ (
+ 	`fž’o
+ (
+ 	`¡ab_io
+ (
+ tmp¡ab
+ )->
+ iå
+ ), 
+ Ën
+ ) < 0)
+ 
+ 829 
+ »suÉ
+  = 0;
+ 
+ 832 
+ tmpfd
+ ;
+ 
+ 834 ià((
+ tmpfd
+  = 
+ 	`ݒ
+ (
+ 	`¡r_g‘
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ ]), 0)) < 0)
+ 
+ 835 
+ »suÉ
+  = 0;
+ 
+ 837 ià(
+ 	`chsize
+ (
+ tmpfd
+ , 
+ Ën
+ ) < 0)
+ 
+ 838 
+ »suÉ
+  = 0;
+ 
+ 839 
+ 	`þo£
+ (
+ tmpfd
+ );
+ 
+ 844 ià(
+ »suÉ
+ )
+ 
+ 845 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_yes
+ );
+ 
+ 847 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_undef
+ );
+ 
+ 848 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 849 
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 850  
+ ¥
+ ;
+ 
+ 852 
+ 	`çl
+ ("truncate‚ot implemented");
+ 
+ 854 
+ 	}
+ }
+ 
+ 857 
+ 	$looks_like_numb”
+ (
+ ¡r
+ )
+ 
+ 858 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 860 *
+ s
+ ;
+ 
+ 861 *
+ £nd
+ ;
+ 
+ 863 ià(!
+ ¡r
+ ->
+ ¡r_pok
+ )
+ 
+ 864  
+ TRUE
+ ;
+ 
+ 865 
+ s
+  = 
+ ¡r
+ ->
+ ¡r_±r
+ ;
+ 
+ 866 
+ £nd
+  = 
+ s
+  + 
+ ¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 867 
+ 	`is¥aû
+ (*
+ s
+ ))
+ 
+ 868 
+ s
+ ++;
+ 
+ 869 ià(
+ s
+  >ð
+ £nd
+ )
+ 
+ 870  
+ FALSE
+ ;
+ 
+ 871 ià(*
+ s
+  == '+' || *s == '-')
+ 
+ 872 
+ s
+ ++;
+ 
+ 873 
+ 	`isdig™
+ (*
+ s
+ ))
+ 
+ 874 
+ s
+ ++;
+ 
+ 875 ià(
+ s
+  =ð
+ £nd
+ )
+ 
+ 876  
+ TRUE
+ ;
+ 
+ 877 ià(*
+ s
+  == '.')
+ 
+ 878 
+ s
+ ++;
+ 
+ 879 ià(
+ s
+  =ð
+ ¡r
+ ->
+ ¡r_±r
+ )
+ 
+ 880  
+ FALSE
+ ;
+ 
+ 881 
+ 	`isdig™
+ (*
+ s
+ ))
+ 
+ 882 
+ s
+ ++;
+ 
+ 883 ià(
+ s
+  =ð
+ £nd
+ )
+ 
+ 884  
+ TRUE
+ ;
+ 
+ 885 ià(*
+ s
+  == 'e' || *s == 'E') {
+ 
+ 886 
+ s
+ ++;
+ 
+ 887 ià(*
+ s
+  == '+' || *s == '-')
+ 
+ 888 
+ s
+ ++;
+ 
+ 889 
+ 	`isdig™
+ (*
+ s
+ ))
+ 
+ 890 
+ s
+ ++;
+ 
+ 892 
+ 	`is¥aû
+ (*
+ s
+ ))
+ 
+ 893 
+ s
+ ++;
+ 
+ 894 ià(
+ s
+  >ð
+ £nd
+ )
+ 
+ 895  
+ TRUE
+ ;
+ 
+ 896  
+ FALSE
+ ;
+ 
+ 897 
+ 	}
+ }
+ 
+ 899 
+ boÞ
+ 
+ 
+ 900 
+ 	$do_´št
+ (
+ ¡r
+ ,
+ å
+ )
+ 
+ 901 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 902 
+ FILE
+  *
+ å
+ ;
+ 
+ 904 *
+ tmps
+ ;
+ 
+ 906 ià(!
+ å
+ ) {
+ 
+ 907 ià(
+ dow¬n
+ )
+ 
+ 908 
+ 	`w¬n
+ ("printo unopened file");
+ 
+ 909  
+ FALSE
+ ;
+ 
+ 911 ià(!
+ ¡r
+ )
+ 
+ 912  
+ TRUE
+ ;
+ 
+ 913 ià(
+ ofmt
+  &&
+ 
+ 914 ((
+ ¡r
+ ->
+ ¡r_nok
+  && sŒ->
+ ¡r_u
+ .
+ ¡r_nv®
+  != 0.0)
+ 
+ 915 || (
+ 	`looks_like_numb”
+ (
+ ¡r
+ è&& 
+ 	`¡r_gnum
+ (str) != 0.0) ) ) {
+ 
+ 916 
+ 	`årštf
+ (
+ å
+ , 
+ ofmt
+ , 
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_nv®
+ );
+ 
+ 917  !
+ 	`ã¼Ü
+ (
+ å
+ );
+ 
+ 920 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 921 ià(*
+ tmps
+  == 'S' &&mps[1] == 't' &&mps[2] == 'B' &&mps[3] == '\0'
+ 
+ 922 && 
+ ¡r
+ ->
+ ¡r_cur
+  =ð(
+ STBP
+ è&& 
+ 	`¡¾’
+ (
+ tmps
+ ) < str->str_cur) {
+ 
+ 923 
+ STR
+  *
+ tmp¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_undef
+ );
+ 
+ 924 
+ 	`¡ab_fuÎÇme
+ (
+ tmp¡r
+ ,((
+ STAB
+ *)
+ ¡r
+ ));
+ 
+ 925 
+ ¡r
+  = 
+ tmp¡r
+ ;
+ 
+ 926 
+ tmps
+  = 
+ ¡r
+ ->
+ ¡r_±r
+ ;
+ 
+ 927 
+ 	`putc
+ ('*',
+ å
+ );
+ 
+ 929 ià(
+ ¡r
+ ->
+ ¡r_cur
+  && (
+ 	`fwr™e
+ (
+ tmps
+ ,1,¡r->¡r_cur,
+ å
+ è=ð0 || 
+ 	`ã¼Ü
+ (fp)))
+ 
+ 930  
+ FALSE
+ ;
+ 
+ 932  
+ TRUE
+ ;
+ 
+ 933 
+ 	}
+ }
+ 
+ 935 
+ boÞ
+ 
+ 
+ 936 
+ 	$do_­ršt
+ (
+ ¬g
+ ,
+ å
+ ,
+ ¬gÏ¡
+ )
+ 
+ 937 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 938 
+ FILE
+  *
+ å
+ ;
+ 
+ 939 *
+ ¬gÏ¡
+ ;
+ 
+ 941 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 942 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 943 
+ »tv®
+ ;
+ 
+ 944 
+ ™ems
+  = 
+ ¬gÏ¡
+ [2] - 
+ ¥
+ ;
+ 
+ 946 ià(!
+ å
+ ) {
+ 
+ 947 ià(
+ dow¬n
+ )
+ 
+ 948 
+ 	`w¬n
+ ("printo unopened file");
+ 
+ 949  
+ FALSE
+ ;
+ 
+ 951 
+ ¡
+  +ð++
+ ¥
+ ;
+ 
+ 952 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_PRTF
+ ) {
+ 
+ 953 
+ 	`do_¥rštf
+ (
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ,
+ ™ems
+ ,
+ ¡
+ );
+ 
+ 954 
+ »tv®
+  = 
+ 	`do_´št
+ (
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ,
+ å
+ );
+ 
+ 957 
+ »tv®
+  = (
+ ™ems
+  <= 0);
+ 
+ 958 ; 
+ ™ems
+  > 0; i‹ms--,
+ ¡
+ ++) {
+ 
+ 959 ià(
+ »tv®
+  && 
+ of¦’
+ ) {
+ 
+ 960 ià(
+ 	`fwr™e
+ (
+ ofs
+ , 1, 
+ of¦’
+ , 
+ å
+ è=ð0 || 
+ 	`ã¼Ü
+ (fp)) {
+ 
+ 961 
+ »tv®
+  = 
+ FALSE
+ ;
+ 
+ 965 ià(!(
+ »tv®
+  = 
+ 	`do_´št
+ (*
+ ¡
+ , 
+ å
+ )))
+ 
+ 968 ià(
+ »tv®
+  && 
+ ܦ’
+ )
+ 
+ 969 ià(
+ 	`fwr™e
+ (
+ Üs
+ , 1, 
+ ܦ’
+ , 
+ å
+ è=ð0 || 
+ 	`ã¼Ü
+ (fp))
+ 
+ 970 
+ »tv®
+  = 
+ FALSE
+ ;
+ 
+ 972  
+ »tv®
+ ;
+ 
+ 973 
+ 	}
+ }
+ 
+ 976 
+ 	$my¡©
+ (
+ ¬g
+ ,
+ ¡r
+ )
+ 
+ 977 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 978 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 980 
+ STIO
+  *
+ ¡io
+ ;
+ 
+ 982 
+ Ï¡¡y³
+  = 
+ O_STAT
+ ;
+ 
+ 983 ià(
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_DONT
+ ) {
+ 
+ 984 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ );
+ 
+ 985 ià(
+ ¡io
+  && stio->
+ iå
+ ) {
+ 
+ 986 
+ ¡©¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 987 
+ 	`¡r_£t
+ (
+ ¡©Çme
+ ,"");
+ 
+ 988  (
+ Ï¡¡©v®
+  = 
+ 	`f¡©
+ (
+ 	`fž’o
+ (
+ ¡io
+ ->
+ iå
+ ), &
+ ¡©ÿche
+ ));
+ 
+ 991 ià(
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+  =ð
+ def¡ab
+ )
+ 
+ 992  
+ Ï¡¡©v®
+ ;
+ 
+ 993 ià(
+ dow¬n
+ )
+ 
+ 994 
+ 	`w¬n
+ ("Stat on unopened file <%s>",
+ 
+ 995 
+ 	`¡ab_Çme
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ));
+ 
+ 996 
+ ¡©¡ab
+  = 
+ NuΡab
+ ;
+ 
+ 997 
+ 	`¡r_£t
+ (
+ ¡©Çme
+ ,"");
+ 
+ 998  (
+ Ï¡¡©v®
+  = -1);
+ 
+ 1002 
+ ¡©¡ab
+  = 
+ NuΡab
+ ;
+ 
+ 1003 
+ 	`¡r_£t
+ (
+ ¡©Çme
+ ,
+ 	`¡r_g‘
+ (
+ ¡r
+ ));
+ 
+ 1004  (
+ Ï¡¡©v®
+  = 
+ 	`¡©
+ (
+ 	`¡r_g‘
+ (
+ ¡r
+ ),&
+ ¡©ÿche
+ ));
+ 
+ 1006 
+ 	}
+ }
+ 
+ 1009 
+ 	$myl¡©
+ (
+ ¬g
+ ,
+ ¡r
+ )
+ 
+ 1010 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 1011 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1013 ià(
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_DONT
+ ) {
+ 
+ 1014 ià(
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+  =ð
+ def¡ab
+ ) {
+ 
+ 1015 ià(
+ Ï¡¡y³
+  !ð
+ O_LSTAT
+ )
+ 
+ 1016 
+ 	`çl
+ ("The stat…receding -l _ wasn't‡n†stat");
+ 
+ 1017  
+ Ï¡¡©v®
+ ;
+ 
+ 1019 
+ 	`çl
+ ("You can't use -l on‡ filehandle");
+ 
+ 1022 
+ Ï¡¡y³
+  = 
+ O_LSTAT
+ ;
+ 
+ 1023 
+ ¡©¡ab
+  = 
+ NuΡab
+ ;
+ 
+ 1024 
+ 	`¡r_£t
+ (
+ ¡©Çme
+ ,
+ 	`¡r_g‘
+ (
+ ¡r
+ ));
+ 
+ 1025 #ifdeà
+ HAS_LSTAT
+ 
+ 
+ 1026  (
+ Ï¡¡©v®
+  = 
+ 	`l¡©
+ (
+ 	`¡r_g‘
+ (
+ ¡r
+ ),&
+ ¡©ÿche
+ ));
+ 
+ 1028  (
+ Ï¡¡©v®
+  = 
+ 	`¡©
+ (
+ 	`¡r_g‘
+ (
+ ¡r
+ ),&
+ ¡©ÿche
+ ));
+ 
+ 1030 
+ 	}
+ }
+ 
+ 1032 
+ STR
+  *
+ 
+ 1033 
+ 	$do_á‹xt
+ (
+ ¬g
+ ,
+ ¡r
+ )
+ 
+ 1034 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 1035 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1037 
+ i
+ ;
+ 
+ 1038 
+ Ën
+ ;
+ 
+ 1039 
+ odd
+  = 0;
+ 
+ 1040 
+ STDCHAR
+  
+ tbuf
+ [512];
+ 
+ 1041 
+ STDCHAR
+  *
+ s
+ ;
+ 
+ 1042 
+ STIO
+  *
+ ¡io
+ ;
+ 
+ 1044 ià(
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_DONT
+ ) {
+ 
+ 1045 ià(
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+  =ð
+ def¡ab
+ ) {
+ 
+ 1046 ià(
+ ¡©¡ab
+ )
+ 
+ 1047 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡©¡ab
+ );
+ 
+ 1049 
+ ¡r
+  = 
+ ¡©Çme
+ ;
+ 
+ 1050 
+ »®ly_fž’ame
+ ;
+ 
+ 1054 
+ ¡©¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1055 
+ 	`¡r_£t
+ (
+ ¡©Çme
+ ,"");
+ 
+ 1056 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡©¡ab
+ );
+ 
+ 1058 ià(
+ ¡io
+  && stio->
+ iå
+ ) {
+ 
+ 1059 #ifdeà
+ STDSTDIO
+ 
+ 
+ 1060 
+ 	`f¡©
+ (
+ 	`fž’o
+ (
+ ¡io
+ ->
+ iå
+ ),&
+ ¡©ÿche
+ );
+ 
+ 1061 ià(
+ ¡io
+ ->
+ iå
+ ->
+ _út
+  <= 0) {
+ 
+ 1062 
+ i
+  = 
+ 	`g‘c
+ (
+ ¡io
+ ->
+ iå
+ );
+ 
+ 1063 ià(
+ i
+  !ð
+ EOF
+ )
+ 
+ 1064 ()
+ 	`ung‘c
+ (
+ i
+ ,
+ ¡io
+ ->
+ iå
+ );
+ 
+ 1066 ià(
+ ¡io
+ ->
+ iå
+ ->
+ _út
+  <= 0)
+ 
+ 1067  &
+ ¡r_yes
+ ;
+ 
+ 1068 
+ Ën
+  = 
+ ¡io
+ ->
+ iå
+ ->
+ _út
+  + (¡io->iå->
+ _±r
+  - stio->iå->
+ _ba£
+ );
+ 
+ 1069 
+ s
+  = 
+ ¡io
+ ->
+ iå
+ ->
+ _ba£
+ ;
+ 
+ 1071 
+ 	`çl
+ ("-T‡nd -B‚ot implemented on filehandles\n");
+ 
+ 1075 ià(
+ dow¬n
+ )
+ 
+ 1076 
+ 	`w¬n
+ ("Test on unopened file <%s>",
+ 
+ 1077 
+ 	`¡ab_Çme
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ));
+ 
+ 1078  &
+ ¡r_undef
+ ;
+ 
+ 1082 
+ ¡©¡ab
+  = 
+ NuΡab
+ ;
+ 
+ 1083 
+ 	`¡r_£t
+ (
+ ¡©Çme
+ ,
+ 	`¡r_g‘
+ (
+ ¡r
+ ));
+ 
+ 1084 
+ »®ly_fž’ame
+ :
+ 
+ 1085 
+ i
+  = 
+ 	`ݒ
+ (
+ 	`¡r_g‘
+ (
+ ¡r
+ ),0);
+ 
+ 1086 ià(
+ i
+  < 0)
+ 
+ 1087  &
+ ¡r_undef
+ ;
+ 
+ 1088 
+ 	`f¡©
+ (
+ i
+ ,&
+ ¡©ÿche
+ );
+ 
+ 1089 
+ Ën
+  = 
+ 	`»ad
+ (
+ i
+ ,
+ tbuf
+ ,512);
+ 
+ 1090 ()
+ 	`þo£
+ (
+ i
+ );
+ 
+ 1091 ià(
+ Ën
+  <= 0)
+ 
+ 1092  &
+ ¡r_yes
+ ;
+ 
+ 1093 
+ s
+  = 
+ tbuf
+ ;
+ 
+ 1098 
+ i
+  = 0; i < 
+ Ën
+ ; i++,
+ s
+ ++) {
+ 
+ 1099 ià(!*
+ s
+ ) {
+ 
+ 1100 
+ odd
+  +ð
+ Ën
+ ;
+ 
+ 1103 ià(*
+ s
+  & 128)
+ 
+ 1104 
+ odd
+ ++;
+ 
+ 1105 ià(*
+ s
+  < 32 &&
+ 
+ 1106 *
+ s
+  != '\n' && *s != '\r' && *s != '\b' &&
+ 
+ 1107 *
+ s
+  != '\t' && *s != '\f' && *s != 27)
+ 
+ 1108 
+ odd
+ ++;
+ 
+ 1111 ià((
+ odd
+  * 10 > 
+ Ën
+ è=ð(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_FTTEXT
+ ))
+ 
+ 1112  &
+ ¡r_no
+ ;
+ 
+ 1114  &
+ ¡r_yes
+ ;
+ 
+ 1115 
+ 	}
+ }
+ 
+ 1117 
+ boÞ
+ 
+ 
+ 1118 
+ 	$do_«xec
+ (
+ »®ly
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1119 
+ STR
+  *
+ »®ly
+ ;
+ 
+ 1120 *
+ ¬gÏ¡
+ ;
+ 
+ 1122 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1123 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 1124 
+ ™ems
+  = 
+ ¬gÏ¡
+ [2] - 
+ ¥
+ ;
+ 
+ 1125 **
+ a
+ ;
+ 
+ 1126 **
+ ¬gv
+ ;
+ 
+ 1127 *
+ tmps
+ ;
+ 
+ 1129 ià(
+ ™ems
+ ) {
+ 
+ 1130 
+ 	`New
+ (401,
+ ¬gv
+ , 
+ ™ems
+ +1, *);
+ 
+ 1131 
+ a
+  = 
+ ¬gv
+ ;
+ 
+ 1132 
+ ¡
+  +ð++
+ ¥
+ ; 
+ ™ems
+  > 0; items--,st++) {
+ 
+ 1133 ià(*
+ ¡
+ )
+ 
+ 1134 *
+ a
+ ++ = 
+ 	`¡r_g‘
+ (*
+ ¡
+ );
+ 
+ 1136 *
+ a
+ ++ = "";
+ 
+ 1138 *
+ a
+  = 
+ NuÎch
+ ;
+ 
+ 1139 #ifdeà
+ TAINT
+ 
+ 
+ 1140 ià(*
+ ¬gv
+ [0] != '/')
+ 
+ 1141 
+ 	`š‹nv
+ ();
+ 
+ 1143 ià(
+ »®ly
+  && *(
+ tmps
+  = 
+ 	`¡r_g‘
+ (really)))
+ 
+ 1144 
+ 	`execvp
+ (
+ tmps
+ ,
+ ¬gv
+ );
+ 
+ 1146 
+ 	`execvp
+ (
+ ¬gv
+ [0],argv);
+ 
+ 1147 
+ 	`Saãä“
+ (
+ ¬gv
+ );
+ 
+ 1149  
+ FALSE
+ ;
+ 
+ 1150 
+ 	}
+ }
+ 
+ 1152 **
+ 	gArgv
+  = 
+ NuÎ
+ (**);
+ 
+ 1153 *
+ 	gCmd
+  = 
+ NuÎch
+ ;
+ 
+ 1156 
+ 	$do_execä“
+ ()
+ 
+ 1158 ià(
+ Argv
+ ) {
+ 
+ 1159 
+ 	`Saãä“
+ (
+ Argv
+ );
+ 
+ 1160 
+ Argv
+  = 
+ 	`NuÎ
+ (**);
+ 
+ 1162 ià(
+ Cmd
+ ) {
+ 
+ 1163 
+ 	`Saãä“
+ (
+ Cmd
+ );
+ 
+ 1164 
+ Cmd
+  = 
+ NuÎch
+ ;
+ 
+ 1166 
+ 	}
+ }
+ 
+ 1168 
+ boÞ
+ 
+ 
+ 1169 
+ 	$do_exec
+ (
+ cmd
+ )
+ 
+ 1170 *
+ cmd
+ ;
+ 
+ 1172 **
+ a
+ ;
+ 
+ 1173 *
+ s
+ ;
+ 
+ 1174 
+ æags
+ [10];
+ 
+ 1176 #ifdeà
+ TAINT
+ 
+ 
+ 1177 
+ 	`š‹nv
+ ();
+ 
+ 1178 
+ 	`šrÝ”
+ ("Insecure dependency inƒxec");
+ 
+ 1183 #ifdeà
+ CSH
+ 
+ 
+ 1184 ià(
+ 	`¡ºEQ
+ (
+ cmd
+ ,
+ cshÇme
+ ,
+ cshËn
+ ) && strnEQ(cmd+cshlen," -c",3)) {
+ 
+ 1185 
+ 	`¡rýy
+ (
+ æags
+ ,"-c");
+ 
+ 1186 
+ s
+  = 
+ cmd
+ +
+ cshËn
+ +3;
+ 
+ 1187 ià(*
+ s
+  == 'f') {
+ 
+ 1188 
+ s
+ ++;
+ 
+ 1189 
+ 	`¡rÿt
+ (
+ æags
+ ,"f");
+ 
+ 1191 ià(*
+ s
+  == ' ')
+ 
+ 1192 
+ s
+ ++;
+ 
+ 1193 ià(*
+ s
+ ++ == '\'') {
+ 
+ 1194 *
+ ncmd
+  = 
+ s
+ ;
+ 
+ 1196 *
+ s
+ )
+ 
+ 1197 
+ s
+ ++;
+ 
+ 1198 ià(
+ s
+ [-1] == '\n')
+ 
+ 1199 *--
+ s
+  = '\0';
+ 
+ 1200 ià(
+ s
+ [-1] == '\'') {
+ 
+ 1201 *--
+ s
+  = '\0';
+ 
+ 1202 
+ 	`exeþ
+ (
+ cshÇme
+ ,"csh", 
+ æags
+ ,
+ ncmd
+ ,(*)0);
+ 
+ 1203 *
+ s
+  = '\'';
+ 
+ 1204  
+ FALSE
+ ;
+ 
+ 1212 
+ s
+  = 
+ cmd
+ ; * && 
+ 	`i§Íha
+ (*s); s++) ;
+ 
+ 1213 ià(*
+ s
+  == '=')
+ 
+ 1214 
+ dosh–l
+ ;
+ 
+ 1215 
+ s
+  = 
+ cmd
+ ; *s; s++) {
+ 
+ 1216 ià(*
+ s
+  !ð' ' && !
+ 	`i§Íha
+ (*sè&& 
+ 	`šdex
+ ("$&*(){}[]'\";\\|?<>~`\n",*s)) {
+ 
+ 1217 ià(*
+ s
+  == '\n' && !s[1]) {
+ 
+ 1218 *
+ s
+  = '\0';
+ 
+ 1221 
+ dosh–l
+ :
+ 
+ 1222 
+ 	`exeþ
+ ("/bš/sh","sh","-c",
+ cmd
+ ,(*)0);
+ 
+ 1223  
+ FALSE
+ ;
+ 
+ 1226 
+ 	`New
+ (402,
+ Argv
+ , (
+ s
+  - 
+ cmd
+ ) / 2 + 2, *);
+ 
+ 1227 
+ Cmd
+  = 
+ 	`n§ve¡r
+ (
+ cmd
+ , 
+ s
+ -cmd);
+ 
+ 1228 
+ a
+  = 
+ Argv
+ ;
+ 
+ 1229 
+ s
+  = 
+ Cmd
+ ; *s;) {
+ 
+ 1230 *
+ s
+  && 
+ 	`is¥aû
+ (*s)) s++;
+ 
+ 1231 ià(*
+ s
+ )
+ 
+ 1232 *(
+ a
+ ++èð
+ s
+ ;
+ 
+ 1233 *
+ s
+  && !
+ 	`is¥aû
+ (*s)) s++;
+ 
+ 1234 ià(*
+ s
+ )
+ 
+ 1235 *
+ s
+ ++ = '\0';
+ 
+ 1237 *
+ a
+  = 
+ NuÎch
+ ;
+ 
+ 1238 ià(
+ Argv
+ [0]) {
+ 
+ 1239 
+ 	`execvp
+ (
+ Argv
+ [0],Argv);
+ 
+ 1240 ià(
+ Ӽo
+  =ð
+ ENOEXEC
+ ) {
+ 
+ 1241 
+ 	`do_execä“
+ ();
+ 
+ 1242 
+ dosh–l
+ ;
+ 
+ 1245 
+ 	`do_execä“
+ ();
+ 
+ 1246  
+ FALSE
+ ;
+ 
+ 1247 
+ 	}
+ }
+ 
+ 1249 #ifdeà
+ HAS_SOCKET
+ 
+ 
+ 1251 
+ 	$do_sock‘
+ (
+ ¡ab
+ , 
+ ¬gÏ¡
+ )
+ 
+ 1252 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 1253 *
+ ¬gÏ¡
+ ;
+ 
+ 1255 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1256 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 1257 
+ STIO
+  *
+ ¡io
+ ;
+ 
+ 1258 
+ domaš
+ , 
+ ty³
+ , 
+ ´ÙocÞ
+ , 
+ fd
+ ;
+ 
+ 1260 ià(!
+ ¡ab
+ )
+ 
+ 1261  
+ FALSE
+ ;
+ 
+ 1263 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ );
+ 
+ 1264 ià(!
+ ¡io
+ )
+ 
+ 1265 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ èð
+ 	`¡io_Ãw
+ ();
+ 
+ 1266 ià(
+ ¡io
+ ->
+ iå
+ )
+ 
+ 1267 
+ 	`do_þo£
+ (
+ ¡ab
+ ,
+ FALSE
+ );
+ 
+ 1269 
+ domaš
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 1270 
+ ty³
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 1271 
+ ´ÙocÞ
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 1272 #ifdeà
+ TAINT
+ 
+ 
+ 1273 
+ 	`šrÝ”
+ ("Insecure dependency in socket");
+ 
+ 1275 
+ fd
+  = 
+ 	`sock‘
+ (
+ domaš
+ ,
+ ty³
+ ,
+ ´ÙocÞ
+ );
+ 
+ 1276 ià(
+ fd
+  < 0)
+ 
+ 1277  
+ FALSE
+ ;
+ 
+ 1278 
+ ¡io
+ ->
+ iå
+  = 
+ 	`fdݒ
+ (
+ fd
+ , "r");
+ 
+ 1279 
+ ¡io
+ ->
+ oå
+  = 
+ 	`fdݒ
+ (
+ fd
+ , "w");
+ 
+ 1280 
+ ¡io
+ ->
+ ty³
+  = 's';
+ 
+ 1281 ià(!
+ ¡io
+ ->
+ iå
+  || !¡io->
+ oå
+ ) {
+ 
+ 1282 ià(
+ ¡io
+ ->
+ iå
+ è
+ 	`fþo£
+ (stio->ifp);
+ 
+ 1283 ià(
+ ¡io
+ ->
+ oå
+ è
+ 	`fþo£
+ (stio->ofp);
+ 
+ 1284 ià(!
+ ¡io
+ ->
+ iå
+  && !¡io->
+ oå
+ è
+ 	`þo£
+ (
+ fd
+ );
+ 
+ 1285  
+ FALSE
+ ;
+ 
+ 1288  
+ TRUE
+ ;
+ 
+ 1289 
+ 	}
+ }
+ 
+ 1292 
+ 	$do_bšd
+ (
+ ¡ab
+ , 
+ ¬gÏ¡
+ )
+ 
+ 1293 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 1294 *
+ ¬gÏ¡
+ ;
+ 
+ 1296 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1297 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 1298 
+ STIO
+  *
+ ¡io
+ ;
+ 
+ 1299 *
+ addr
+ ;
+ 
+ 1301 ià(!
+ ¡ab
+ )
+ 
+ 1302 
+ nuts
+ ;
+ 
+ 1304 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ );
+ 
+ 1305 ià(!
+ ¡io
+  || !¡io->
+ iå
+ )
+ 
+ 1306 
+ nuts
+ ;
+ 
+ 1308 
+ addr
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 1309 #ifdeà
+ TAINT
+ 
+ 
+ 1310 
+ 	`šrÝ”
+ ("Insecure dependency in bind");
+ 
+ 1312  
+ 	`bšd
+ (
+ 	`fž’o
+ (
+ ¡io
+ ->
+ iå
+ ), (*è
+ addr
+ , 
+ ¡
+ [
+ ¥
+ ]->
+ ¡r_cur
+ ) >= 0;
+ 
+ 1314 
+ nuts
+ :
+ 
+ 1315 ià(
+ dow¬n
+ )
+ 
+ 1316 
+ 	`w¬n
+ ("bind() on closed fd");
+ 
+ 1317  
+ FALSE
+ ;
+ 
+ 1319 
+ 	}
+ }
+ 
+ 1322 
+ 	$do_cÚÃù
+ (
+ ¡ab
+ , 
+ ¬gÏ¡
+ )
+ 
+ 1323 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 1324 *
+ ¬gÏ¡
+ ;
+ 
+ 1326 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1327 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 1328 
+ STIO
+  *
+ ¡io
+ ;
+ 
+ 1329 *
+ addr
+ ;
+ 
+ 1331 ià(!
+ ¡ab
+ )
+ 
+ 1332 
+ nuts
+ ;
+ 
+ 1334 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ );
+ 
+ 1335 ià(!
+ ¡io
+  || !¡io->
+ iå
+ )
+ 
+ 1336 
+ nuts
+ ;
+ 
+ 1338 
+ addr
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 1339 #ifdeà
+ TAINT
+ 
+ 
+ 1340 
+ 	`šrÝ”
+ ("Insecure dependency in connect");
+ 
+ 1342  
+ 	`cÚÃù
+ (
+ 	`fž’o
+ (
+ ¡io
+ ->
+ iå
+ ), (*è
+ addr
+ , 
+ ¡
+ [
+ ¥
+ ]->
+ ¡r_cur
+ ) >= 0;
+ 
+ 1344 
+ nuts
+ :
+ 
+ 1345 ià(
+ dow¬n
+ )
+ 
+ 1346 
+ 	`w¬n
+ ("connect() on closed fd");
+ 
+ 1347  
+ FALSE
+ ;
+ 
+ 1349 
+ 	}
+ }
+ 
+ 1352 
+ 	$do_li¡’
+ (
+ ¡ab
+ , 
+ ¬gÏ¡
+ )
+ 
+ 1353 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 1354 *
+ ¬gÏ¡
+ ;
+ 
+ 1356 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1357 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 1358 
+ STIO
+  *
+ ¡io
+ ;
+ 
+ 1359 
+ backlog
+ ;
+ 
+ 1361 ià(!
+ ¡ab
+ )
+ 
+ 1362 
+ nuts
+ ;
+ 
+ 1364 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ );
+ 
+ 1365 ià(!
+ ¡io
+  || !¡io->
+ iå
+ )
+ 
+ 1366 
+ nuts
+ ;
+ 
+ 1368 
+ backlog
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 1369  
+ 	`li¡’
+ (
+ 	`fž’o
+ (
+ ¡io
+ ->
+ iå
+ ), 
+ backlog
+ ) >= 0;
+ 
+ 1371 
+ nuts
+ :
+ 
+ 1372 ià(
+ dow¬n
+ )
+ 
+ 1373 
+ 	`w¬n
+ ("listen() on closed fd");
+ 
+ 1374  
+ FALSE
+ ;
+ 
+ 1375 
+ 	}
+ }
+ 
+ 1378 
+ 	$do_acû±
+ (
+ ¡r
+ , 
+ n¡ab
+ , 
+ g¡ab
+ )
+ 
+ 1379 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1380 
+ STAB
+  *
+ n¡ab
+ ;
+ 
+ 1381 
+ STAB
+  *
+ g¡ab
+ ;
+ 
+ 1383 
+ STIO
+  *
+ n¡io
+ ;
+ 
+ 1384 
+ STIO
+  *
+ g¡io
+ ;
+ 
+ 1385 
+ Ën
+  =  
+ buf
+ ;
+ 
+ 1386 
+ fd
+ ;
+ 
+ 1388 ià(!
+ n¡ab
+ )
+ 
+ 1389 
+ badex™
+ ;
+ 
+ 1390 ià(!
+ g¡ab
+ )
+ 
+ 1391 
+ nuts
+ ;
+ 
+ 1393 
+ g¡io
+  = 
+ 	`¡ab_io
+ (
+ g¡ab
+ );
+ 
+ 1394 
+ n¡io
+  = 
+ 	`¡ab_io
+ (
+ n¡ab
+ );
+ 
+ 1396 ià(!
+ g¡io
+  || !g¡io->
+ iå
+ )
+ 
+ 1397 
+ nuts
+ ;
+ 
+ 1398 ià(!
+ n¡io
+ )
+ 
+ 1399 
+ n¡io
+  = 
+ 	`¡ab_io
+ (
+ n¡ab
+ èð
+ 	`¡io_Ãw
+ ();
+ 
+ 1400 ià(
+ n¡io
+ ->
+ iå
+ )
+ 
+ 1401 
+ 	`do_þo£
+ (
+ n¡ab
+ ,
+ FALSE
+ );
+ 
+ 1403 
+ fd
+  = 
+ 	`acû±
+ (
+ 	`fž’o
+ (
+ g¡io
+ ->
+ iå
+ ),(*)
+ buf
+ ,&
+ Ën
+ );
+ 
+ 1404 ià(
+ fd
+  < 0)
+ 
+ 1405 
+ badex™
+ ;
+ 
+ 1406 
+ n¡io
+ ->
+ iå
+  = 
+ 	`fdݒ
+ (
+ fd
+ , "r");
+ 
+ 1407 
+ n¡io
+ ->
+ oå
+  = 
+ 	`fdݒ
+ (
+ fd
+ , "w");
+ 
+ 1408 
+ n¡io
+ ->
+ ty³
+  = 's';
+ 
+ 1409 ià(!
+ n¡io
+ ->
+ iå
+  || !n¡io->
+ oå
+ ) {
+ 
+ 1410 ià(
+ n¡io
+ ->
+ iå
+ è
+ 	`fþo£
+ (nstio->ifp);
+ 
+ 1411 ià(
+ n¡io
+ ->
+ oå
+ è
+ 	`fþo£
+ (nstio->ofp);
+ 
+ 1412 ià(!
+ n¡io
+ ->
+ iå
+  && !n¡io->
+ oå
+ è
+ 	`þo£
+ (
+ fd
+ );
+ 
+ 1413 
+ badex™
+ ;
+ 
+ 1416 
+ 	`¡r_n£t
+ (
+ ¡r
+ , 
+ buf
+ , 
+ Ën
+ );
+ 
+ 1419 
+ nuts
+ :
+ 
+ 1420 ià(
+ dow¬n
+ )
+ 
+ 1421 
+ 	`w¬n
+ ("accept() on closed fd");
+ 
+ 1422 
+ badex™
+ :
+ 
+ 1423 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_undef
+ );
+ 
+ 1425 
+ 	}
+ }
+ 
+ 1428 
+ 	$do_shutdown
+ (
+ ¡ab
+ , 
+ ¬gÏ¡
+ )
+ 
+ 1429 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 1430 *
+ ¬gÏ¡
+ ;
+ 
+ 1432 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1433 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 1434 
+ STIO
+  *
+ ¡io
+ ;
+ 
+ 1435 
+ how
+ ;
+ 
+ 1437 ià(!
+ ¡ab
+ )
+ 
+ 1438 
+ nuts
+ ;
+ 
+ 1440 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ );
+ 
+ 1441 ià(!
+ ¡io
+  || !¡io->
+ iå
+ )
+ 
+ 1442 
+ nuts
+ ;
+ 
+ 1444 
+ how
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 1445  
+ 	`shutdown
+ (
+ 	`fž’o
+ (
+ ¡io
+ ->
+ iå
+ ), 
+ how
+ ) >= 0;
+ 
+ 1447 
+ nuts
+ :
+ 
+ 1448 ià(
+ dow¬n
+ )
+ 
+ 1449 
+ 	`w¬n
+ ("shutdown() on closed fd");
+ 
+ 1450  
+ FALSE
+ ;
+ 
+ 1452 
+ 	}
+ }
+ 
+ 1455 
+ 	$do_sÝt
+ (
+ Ýty³
+ , 
+ ¡ab
+ , 
+ ¬gÏ¡
+ )
+ 
+ 1456 
+ Ýty³
+ ;
+ 
+ 1457 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 1458 *
+ ¬gÏ¡
+ ;
+ 
+ 1460 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1461 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 1462 
+ STIO
+  *
+ ¡io
+ ;
+ 
+ 1463 
+ fd
+ ;
+ 
+ 1464 
+ lvl
+ ;
+ 
+ 1465 
+ ݊ame
+ ;
+ 
+ 1467 ià(!
+ ¡ab
+ )
+ 
+ 1468 
+ nuts
+ ;
+ 
+ 1470 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ );
+ 
+ 1471 ià(!
+ ¡io
+  || !¡io->
+ iå
+ )
+ 
+ 1472 
+ nuts
+ ;
+ 
+ 1474 
+ fd
+  = 
+ 	`fž’o
+ (
+ ¡io
+ ->
+ iå
+ );
+ 
+ 1475 
+ lvl
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [
+ ¥
+ +1]);
+ 
+ 1476 
+ ݊ame
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [
+ ¥
+ +2]);
+ 
+ 1477 
+ Ýty³
+ ) {
+ 
+ 1478 
+ O_GSOCKOPT
+ :
+ 
+ 1479 
+ ¡
+ [
+ ¥
+ ] = 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_Ãw
+ (257));
+ 
+ 1480 
+ ¡
+ [
+ ¥
+ ]->
+ ¡r_cur
+  = 256;
+ 
+ 1481 
+ ¡
+ [
+ ¥
+ ]->
+ ¡r_pok
+  = 1;
+ 
+ 1482 ià(
+ 	`g‘sockÝt
+ (
+ fd
+ , 
+ lvl
+ , 
+ ݊ame
+ , 
+ ¡
+ [
+ ¥
+ ]->
+ ¡r_±r
+ , &¡[¥]->
+ ¡r_cur
+ ) < 0)
+ 
+ 1483 
+ nuts
+ ;
+ 
+ 1485 
+ O_SSOCKOPT
+ :
+ 
+ 1486 
+ ¡
+ [
+ ¥
+ ] = st[sp+3];
+ 
+ 1487 ià(
+ 	`£tsockÝt
+ (
+ fd
+ , 
+ lvl
+ , 
+ ݊ame
+ , 
+ ¡
+ [
+ ¥
+ ]->
+ ¡r_±r
+ , st[¥]->
+ ¡r_cur
+ ) < 0)
+ 
+ 1488 
+ nuts
+ ;
+ 
+ 1489 
+ ¡
+ [
+ ¥
+ ] = &
+ ¡r_yes
+ ;
+ 
+ 1493  
+ ¥
+ ;
+ 
+ 1495 
+ nuts
+ :
+ 
+ 1496 ià(
+ dow¬n
+ )
+ 
+ 1497 
+ 	`w¬n
+ ("[gs]etsockopt() on closed fd");
+ 
+ 1498 
+ ¡
+ [
+ ¥
+ ] = &
+ ¡r_undef
+ ;
+ 
+ 1499  
+ ¥
+ ;
+ 
+ 1501 
+ 	}
+ }
+ 
+ 1504 
+ 	$do_g‘sockÇme
+ (
+ Ýty³
+ , 
+ ¡ab
+ , 
+ ¬gÏ¡
+ )
+ 
+ 1505 
+ Ýty³
+ ;
+ 
+ 1506 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 1507 *
+ ¬gÏ¡
+ ;
+ 
+ 1509 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1510 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 1511 
+ STIO
+  *
+ ¡io
+ ;
+ 
+ 1512 
+ fd
+ ;
+ 
+ 1514 ià(!
+ ¡ab
+ )
+ 
+ 1515 
+ nuts
+ ;
+ 
+ 1517 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ );
+ 
+ 1518 ià(!
+ ¡io
+  || !¡io->
+ iå
+ )
+ 
+ 1519 
+ nuts
+ ;
+ 
+ 1521 
+ ¡
+ [
+ ¥
+ ] = 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_Ãw
+ (257));
+ 
+ 1522 
+ ¡
+ [
+ ¥
+ ]->
+ ¡r_cur
+  = 256;
+ 
+ 1523 
+ ¡
+ [
+ ¥
+ ]->
+ ¡r_pok
+  = 1;
+ 
+ 1524 
+ fd
+  = 
+ 	`fž’o
+ (
+ ¡io
+ ->
+ iå
+ );
+ 
+ 1525 
+ Ýty³
+ ) {
+ 
+ 1526 
+ O_GETSOCKNAME
+ :
+ 
+ 1527 ià(
+ 	`g‘sockÇme
+ (
+ fd
+ , (*è
+ ¡
+ [
+ ¥
+ ]->
+ ¡r_±r
+ , &¡[¥]->
+ ¡r_cur
+ ) < 0)
+ 
+ 1528 
+ nuts2
+ ;
+ 
+ 1530 
+ O_GETPEERNAME
+ :
+ 
+ 1531 ià(
+ 	`g‘³”Çme
+ (
+ fd
+ , (*è
+ ¡
+ [
+ ¥
+ ]->
+ ¡r_±r
+ , &¡[¥]->
+ ¡r_cur
+ ) < 0)
+ 
+ 1532 
+ nuts2
+ ;
+ 
+ 1536  
+ ¥
+ ;
+ 
+ 1538 
+ nuts
+ :
+ 
+ 1539 ià(
+ dow¬n
+ )
+ 
+ 1540 
+ 	`w¬n
+ ("get{sock,peer}name() on closed fd");
+ 
+ 1541 
+ nuts2
+ :
+ 
+ 1542 
+ ¡
+ [
+ ¥
+ ] = &
+ ¡r_undef
+ ;
+ 
+ 1543  
+ ¥
+ ;
+ 
+ 1545 
+ 	}
+ }
+ 
+ 1548 
+ 	$do_gh’t
+ (
+ which
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1549 
+ which
+ ;
+ 
+ 1550 
+ gimme
+ ;
+ 
+ 1551 *
+ ¬gÏ¡
+ ;
+ 
+ 1553 
+ ARRAY
+  *
+ ¬y
+  = 
+ ¡ack
+ ;
+ 
+ 1554 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 1555 **
+ –em
+ ;
+ 
+ 1556 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1557 
+ ho¡’t
+  *
+ 	`g‘ho¡byÇme
+ ();
+ 
+ 1558 
+ ho¡’t
+  *
+ 	`g‘ho¡byaddr
+ ();
+ 
+ 1559 #ifdeà
+ HAS_GETHOSTENT
+ 
+ 
+ 1560 
+ ho¡’t
+  *
+ 	`g‘ho¡’t
+ ();
+ 
+ 1562 
+ ho¡’t
+  *
+ h’t
+ ;
+ 
+ 1563 
+ Ën
+ ;
+ 
+ 1565 ià(
+ gimme
+  !ð
+ G_ARRAY
+ ) {
+ 
+ 1566 
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ 	`¡r_m܏l
+ (&
+ ¡r_undef
+ ));
+ 
+ 1567  
+ ¥
+ ;
+ 
+ 1570 ià(
+ which
+  =ð
+ O_GHBYNAME
+ ) {
+ 
+ 1571 *
+ Çme
+  = 
+ 	`¡r_g‘
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1]);
+ 
+ 1573 
+ h’t
+  = 
+ 	`g‘ho¡byÇme
+ (
+ Çme
+ );
+ 
+ 1575 ià(
+ which
+  =ð
+ O_GHBYADDR
+ ) {
+ 
+ 1576 
+ STR
+  *
+ addr¡r
+  = 
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1];
+ 
+ 1577 
+ add¹y³
+  = ()
+ 	`¡r_gnum
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +2]);
+ 
+ 1578 *
+ addr
+  = 
+ 	`¡r_g‘
+ (
+ addr¡r
+ );
+ 
+ 1580 
+ h’t
+  = 
+ 	`g‘ho¡byaddr
+ (
+ addr
+ ,
+ addr¡r
+ ->
+ ¡r_cur
+ ,
+ add¹y³
+ );
+ 
+ 1583 #ifdeà
+ HAS_GETHOSTENT
+ 
+ 
+ 1584 
+ h’t
+  = 
+ 	`g‘ho¡’t
+ ();
+ 
+ 1586 
+ 	`çl
+ ("gethostent‚ot implemented");
+ 
+ 1588 ià(
+ h’t
+ ) {
+ 
+ 1589 #iâdeà
+ lšt
+ 
+ 
+ 1590 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1591 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ h’t
+ ->
+ h_Çme
+ );
+ 
+ 1592 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1593 
+ –em
+  = 
+ h’t
+ ->
+ h_®Ÿ£s
+ ; *elem;ƒlem++) {
+ 
+ 1594 
+ 	`¡r_ÿt
+ (
+ ¡r
+ , *
+ –em
+ );
+ 
+ 1595 ià(
+ –em
+ [1])
+ 
+ 1596 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ," ",1);
+ 
+ 1598 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1599 
+ 	`¡r_num£t
+ (
+ ¡r
+ , ()
+ h’t
+ ->
+ h_add¹y³
+ );
+ 
+ 1600 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1601 
+ Ën
+  = 
+ h’t
+ ->
+ h_Ëngth
+ ;
+ 
+ 1602 
+ 	`¡r_num£t
+ (
+ ¡r
+ , ()
+ Ën
+ );
+ 
+ 1603 #ifdeà
+ h_addr
+ 
+ 
+ 1604 
+ –em
+  = 
+ h’t
+ ->
+ h_addr_li¡
+ ; *elem;ƒlem++) {
+ 
+ 1605 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1606 
+ 	`¡r_n£t
+ (
+ ¡r
+ , *
+ –em
+ , 
+ Ën
+ );
+ 
+ 1609 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1610 
+ 	`¡r_n£t
+ (
+ ¡r
+ , 
+ h’t
+ ->
+ h_addr
+ , 
+ Ën
+ );
+ 
+ 1613 
+ –em
+  = 
+ NuÎch
+ ;
+ 
+ 1614 
+ –em
+  =ƒlem;
+ 
+ 1615 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1619  
+ ¥
+ ;
+ 
+ 1620 
+ 	}
+ }
+ 
+ 1623 
+ 	$do_gÃÁ
+ (
+ which
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1624 
+ which
+ ;
+ 
+ 1625 
+ gimme
+ ;
+ 
+ 1626 *
+ ¬gÏ¡
+ ;
+ 
+ 1628 
+ ARRAY
+  *
+ ¬y
+  = 
+ ¡ack
+ ;
+ 
+ 1629 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 1630 **
+ –em
+ ;
+ 
+ 1631 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1632 
+ ËÁ
+  *
+ 	`g‘ÃtbyÇme
+ ();
+ 
+ 1633 
+ ËÁ
+  *
+ 	`g‘Ãtbyaddr
+ ();
+ 
+ 1634 
+ ËÁ
+  *
+ 	`g‘ËÁ
+ ();
+ 
+ 1635 
+ ËÁ
+  *
+ ÃÁ
+ ;
+ 
+ 1637 ià(
+ gimme
+  !ð
+ G_ARRAY
+ ) {
+ 
+ 1638 
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ 	`¡r_m܏l
+ (&
+ ¡r_undef
+ ));
+ 
+ 1639  
+ ¥
+ ;
+ 
+ 1642 ià(
+ which
+  =ð
+ O_GNBYNAME
+ ) {
+ 
+ 1643 *
+ Çme
+  = 
+ 	`¡r_g‘
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1]);
+ 
+ 1645 
+ ÃÁ
+  = 
+ 	`g‘ÃtbyÇme
+ (
+ Çme
+ );
+ 
+ 1647 ià(
+ which
+  =ð
+ O_GNBYADDR
+ ) {
+ 
+ 1648 
+ addr
+  = 
+ 	`U_L
+ (
+ 	`¡r_gnum
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1]));
+ 
+ 1649 
+ add¹y³
+  = ()
+ 	`¡r_gnum
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +2]);
+ 
+ 1651 
+ ÃÁ
+  = 
+ 	`g‘Ãtbyaddr
+ (()
+ addr
+ ,
+ add¹y³
+ );
+ 
+ 1654 
+ ÃÁ
+  = 
+ 	`g‘ËÁ
+ ();
+ 
+ 1656 ià(
+ ÃÁ
+ ) {
+ 
+ 1657 #iâdeà
+ lšt
+ 
+ 
+ 1658 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1659 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ ÃÁ
+ ->
+ n_Çme
+ );
+ 
+ 1660 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1661 
+ –em
+  = 
+ ÃÁ
+ ->
+ n_®Ÿ£s
+ ; *elem;ƒlem++) {
+ 
+ 1662 
+ 	`¡r_ÿt
+ (
+ ¡r
+ , *
+ –em
+ );
+ 
+ 1663 ià(
+ –em
+ [1])
+ 
+ 1664 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ," ",1);
+ 
+ 1666 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1667 
+ 	`¡r_num£t
+ (
+ ¡r
+ , ()
+ ÃÁ
+ ->
+ n_add¹y³
+ );
+ 
+ 1668 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1669 
+ 	`¡r_num£t
+ (
+ ¡r
+ , ()
+ ÃÁ
+ ->
+ n_Ãt
+ );
+ 
+ 1671 
+ –em
+  = 
+ NuÎch
+ ;
+ 
+ 1672 
+ –em
+  =ƒlem;
+ 
+ 1673 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1677  
+ ¥
+ ;
+ 
+ 1678 
+ 	}
+ }
+ 
+ 1681 
+ 	$do_g³Á
+ (
+ which
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1682 
+ which
+ ;
+ 
+ 1683 
+ gimme
+ ;
+ 
+ 1684 *
+ ¬gÏ¡
+ ;
+ 
+ 1686 
+ ARRAY
+  *
+ ¬y
+  = 
+ ¡ack
+ ;
+ 
+ 1687 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 1688 **
+ –em
+ ;
+ 
+ 1689 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1690 
+ ´ÙÛÁ
+  *
+ 	`g‘´ÙobyÇme
+ ();
+ 
+ 1691 
+ ´ÙÛÁ
+  *
+ 	`g‘´Ùobynumb”
+ ();
+ 
+ 1692 
+ ´ÙÛÁ
+  *
+ 	`g‘´ÙÛÁ
+ ();
+ 
+ 1693 
+ ´ÙÛÁ
+  *
+ ³Á
+ ;
+ 
+ 1695 ià(
+ gimme
+  !ð
+ G_ARRAY
+ ) {
+ 
+ 1696 
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ 	`¡r_m܏l
+ (&
+ ¡r_undef
+ ));
+ 
+ 1697  
+ ¥
+ ;
+ 
+ 1700 ià(
+ which
+  =ð
+ O_GPBYNAME
+ ) {
+ 
+ 1701 *
+ Çme
+  = 
+ 	`¡r_g‘
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1]);
+ 
+ 1703 
+ ³Á
+  = 
+ 	`g‘´ÙobyÇme
+ (
+ Çme
+ );
+ 
+ 1705 ià(
+ which
+  =ð
+ O_GPBYNUMBER
+ ) {
+ 
+ 1706 
+ ´Ùo
+  = ()
+ 	`¡r_gnum
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1]);
+ 
+ 1708 
+ ³Á
+  = 
+ 	`g‘´Ùobynumb”
+ (
+ ´Ùo
+ );
+ 
+ 1711 
+ ³Á
+  = 
+ 	`g‘´ÙÛÁ
+ ();
+ 
+ 1713 ià(
+ ³Á
+ ) {
+ 
+ 1714 #iâdeà
+ lšt
+ 
+ 
+ 1715 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1716 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ ³Á
+ ->
+ p_Çme
+ );
+ 
+ 1717 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1718 
+ –em
+  = 
+ ³Á
+ ->
+ p_®Ÿ£s
+ ; *elem;ƒlem++) {
+ 
+ 1719 
+ 	`¡r_ÿt
+ (
+ ¡r
+ , *
+ –em
+ );
+ 
+ 1720 ià(
+ –em
+ [1])
+ 
+ 1721 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ," ",1);
+ 
+ 1723 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1724 
+ 	`¡r_num£t
+ (
+ ¡r
+ , ()
+ ³Á
+ ->
+ p_´Ùo
+ );
+ 
+ 1726 
+ –em
+  = 
+ NuÎch
+ ;
+ 
+ 1727 
+ –em
+  =ƒlem;
+ 
+ 1728 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1732  
+ ¥
+ ;
+ 
+ 1733 
+ 	}
+ }
+ 
+ 1736 
+ 	$do_g£Á
+ (
+ which
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1737 
+ which
+ ;
+ 
+ 1738 
+ gimme
+ ;
+ 
+ 1739 *
+ ¬gÏ¡
+ ;
+ 
+ 1741 
+ ARRAY
+  *
+ ¬y
+  = 
+ ¡ack
+ ;
+ 
+ 1742 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 1743 **
+ –em
+ ;
+ 
+ 1744 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1745 
+ £rv’t
+  *
+ 	`g‘£rvbyÇme
+ ();
+ 
+ 1746 
+ £rv’t
+  *
+ 	`g‘£rvbynumb”
+ ();
+ 
+ 1747 
+ £rv’t
+  *
+ 	`g‘£rv’t
+ ();
+ 
+ 1748 
+ £rv’t
+  *
+ £Á
+ ;
+ 
+ 1750 ià(
+ gimme
+  !ð
+ G_ARRAY
+ ) {
+ 
+ 1751 
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ 	`¡r_m܏l
+ (&
+ ¡r_undef
+ ));
+ 
+ 1752  
+ ¥
+ ;
+ 
+ 1755 ià(
+ which
+  =ð
+ O_GSBYNAME
+ ) {
+ 
+ 1756 *
+ Çme
+  = 
+ 	`¡r_g‘
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1]);
+ 
+ 1757 *
+ ´Ùo
+  = 
+ 	`¡r_g‘
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +2]);
+ 
+ 1759 ià(
+ ´Ùo
+  && !*proto)
+ 
+ 1760 
+ ´Ùo
+  = 
+ NuÎch
+ ;
+ 
+ 1762 
+ £Á
+  = 
+ 	`g‘£rvbyÇme
+ (
+ Çme
+ ,
+ ´Ùo
+ );
+ 
+ 1764 ià(
+ which
+  =ð
+ O_GSBYPORT
+ ) {
+ 
+ 1765 
+ pÜt
+  = ()
+ 	`¡r_gnum
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1]);
+ 
+ 1766 *
+ ´Ùo
+  = 
+ 	`¡r_g‘
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +2]);
+ 
+ 1768 
+ £Á
+  = 
+ 	`g‘£rvbypÜt
+ (
+ pÜt
+ ,
+ ´Ùo
+ );
+ 
+ 1771 
+ £Á
+  = 
+ 	`g‘£rv’t
+ ();
+ 
+ 1772 ià(
+ £Á
+ ) {
+ 
+ 1773 #iâdeà
+ lšt
+ 
+ 
+ 1774 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1775 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ £Á
+ ->
+ s_Çme
+ );
+ 
+ 1776 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1777 
+ –em
+  = 
+ £Á
+ ->
+ s_®Ÿ£s
+ ; *elem;ƒlem++) {
+ 
+ 1778 
+ 	`¡r_ÿt
+ (
+ ¡r
+ , *
+ –em
+ );
+ 
+ 1779 ià(
+ –em
+ [1])
+ 
+ 1780 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ," ",1);
+ 
+ 1782 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1783 #ifdeà
+ HAS_NTOHS
+ 
+ 
+ 1784 
+ 	`¡r_num£t
+ (
+ ¡r
+ , ()
+ 	`Áohs
+ (
+ £Á
+ ->
+ s_pÜt
+ ));
+ 
+ 1786 
+ 	`¡r_num£t
+ (
+ ¡r
+ , ()(
+ £Á
+ ->
+ s_pÜt
+ ));
+ 
+ 1788 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1789 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ £Á
+ ->
+ s_´Ùo
+ );
+ 
+ 1791 
+ –em
+  = 
+ NuÎch
+ ;
+ 
+ 1792 
+ –em
+  =ƒlem;
+ 
+ 1793 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1797  
+ ¥
+ ;
+ 
+ 1798 
+ 	}
+ }
+ 
+ 1802 #ifdeà
+ HAS_SELECT
+ 
+ 
+ 1804 
+ 	$do_£Ëù
+ (
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1805 
+ gimme
+ ;
+ 
+ 1806 *
+ ¬gÏ¡
+ ;
+ 
+ 1808 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1809 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 1810 
+ i
+ ;
+ 
+ 1811 
+ j
+ ;
+ 
+ 1812 *
+ s
+ ;
+ 
+ 1813 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1814 
+ v®ue
+ ;
+ 
+ 1815 
+ maxËn
+  = 0;
+ 
+ 1816 
+ nfound
+ ;
+ 
+ 1817 
+ timev®
+  
+ timebuf
+ ;
+ 
+ 1818 
+ timev®
+  *
+ tbuf
+  = &
+ timebuf
+ ;
+ 
+ 1819 
+ growsize
+ ;
+ 
+ 1820 #ià
+ BYTEORDER
+  != 0x1234 && BYTEORDER != 0x12345678
+ 
+ 1821 
+ masksize
+ ;
+ 
+ 1822 
+ off£t
+ ;
+ 
+ 1823 *
+ fd_£ts
+ [4];
+ 
+ 1824 
+ k
+ ;
+ 
+ 1826 #ià
+ BYTEORDER
+  & 0xf0000
+ 
+ 1827 
+ 	#ORDERBYTE
+  (0x88888888 - 
+ BYTEORDER
+ )
+ 
+ 	)
+ 
+ 1829 
+ 	#ORDERBYTE
+  (0x4444 - 
+ BYTEORDER
+ )
+ 
+ 	)
+ 
+ 1834 
+ i
+  = 1; i <= 3; i++) {
+ 
+ 1835 
+ j
+  = 
+ ¡
+ [
+ ¥
+ +
+ i
+ ]->
+ ¡r_cur
+ ;
+ 
+ 1836 ià(
+ maxËn
+  < 
+ j
+ )
+ 
+ 1837 
+ maxËn
+  = 
+ j
+ ;
+ 
+ 1840 #ià
+ BYTEORDER
+  == 0x1234 || BYTEORDER == 0x12345678
+ 
+ 1841 
+ growsize
+  = 
+ maxËn
+ ;
+ 
+ 1843 #ifdeà
+ NFDBITS
+ 
+ 
+ 1845 #iâdeà
+ NBBY
+ 
+ 
+ 1846 
+ 	#NBBY
+  8
+ 
+ 	)
+ 
+ 1849 
+ masksize
+  = 
+ NFDBITS
+  / 
+ NBBY
+ ;
+ 
+ 1851 
+ masksize
+  = ();
+ 
+ 1853 
+ growsize
+  = 
+ maxËn
+  + (
+ masksize
+  - (maxlen % masksize));
+ 
+ 1854 
+ 	`Z”o
+ (&
+ fd_£ts
+ [0], 4, *);
+ 
+ 1857 
+ i
+  = 1; i <= 3; i++) {
+ 
+ 1858 
+ ¡r
+  = 
+ ¡
+ [
+ ¥
+ +
+ i
+ ];
+ 
+ 1859 
+ j
+  = 
+ ¡r
+ ->
+ ¡r_Ën
+ ;
+ 
+ 1860 ià(
+ j
+  < 
+ growsize
+ ) {
+ 
+ 1861 ià(
+ ¡r
+ ->
+ ¡r_pok
+ ) {
+ 
+ 1862 
+ 	`SŒ_Grow
+ (
+ ¡r
+ ,
+ growsize
+ );
+ 
+ 1863 
+ s
+  = 
+ 	`¡r_g‘
+ (
+ ¡r
+ è+ 
+ j
+ ;
+ 
+ 1864 ++
+ j
+  <ð
+ growsize
+ ) {
+ 
+ 1865 *
+ s
+ ++ = '\0';
+ 
+ 1868 ià(
+ ¡r
+ ->
+ ¡r_±r
+ ) {
+ 
+ 1869 
+ 	`Saãä“
+ (
+ ¡r
+ ->
+ ¡r_±r
+ );
+ 
+ 1870 
+ ¡r
+ ->
+ ¡r_±r
+  = 
+ NuÎch
+ ;
+ 
+ 1873 #ià
+ BYTEORDER
+  != 0x1234 && BYTEORDER != 0x12345678
+ 
+ 1874 
+ s
+  = 
+ ¡r
+ ->
+ ¡r_±r
+ ;
+ 
+ 1875 ià(
+ s
+ ) {
+ 
+ 1876 
+ 	`New
+ (403, 
+ fd_£ts
+ [
+ i
+ ], 
+ growsize
+ , );
+ 
+ 1877 
+ off£t
+  = 0; off£ˆ< 
+ growsize
+ ; off£ˆ+ð
+ masksize
+ ) {
+ 
+ 1878 
+ j
+  = 0, 
+ k
+ =
+ ORDERBYTE
+ ; j < 
+ masksize
+ ; j++, (k >>= 4))
+ 
+ 1879 
+ fd_£ts
+ [
+ i
+ ][
+ j
+ +
+ off£t
+ ] = 
+ s
+ [(
+ k
+  % 
+ masksize
+ ) + offset];
+ 
+ 1884 
+ ¡r
+  = 
+ ¡
+ [
+ ¥
+ +4];
+ 
+ 1885 ià(
+ ¡r
+ ->
+ ¡r_nok
+  || sŒ->
+ ¡r_pok
+ ) {
+ 
+ 1886 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡r
+ );
+ 
+ 1887 ià(
+ v®ue
+  < 0.0)
+ 
+ 1888 
+ v®ue
+  = 0.0;
+ 
+ 1889 
+ timebuf
+ .
+ tv_£c
+  = ()
+ v®ue
+ ;
+ 
+ 1890 
+ v®ue
+  -ð()
+ timebuf
+ .
+ tv_£c
+ ;
+ 
+ 1891 
+ timebuf
+ .
+ tv_u£c
+  = ()(
+ v®ue
+  * 1000000.0);
+ 
+ 1894 
+ tbuf
+  = 
+ 	`NuÎ
+ (
+ timev®
+ *);
+ 
+ 1896 #ià
+ BYTEORDER
+  == 0x1234 || BYTEORDER == 0x12345678
+ 
+ 1897 
+ nfound
+  = 
+ 	`£Ëù
+ (
+ 
+ 1898 
+ maxËn
+  * 8,
+ 
+ 1899 
+ ¡
+ [
+ ¥
+ +1]->
+ ¡r_±r
+ ,
+ 
+ 1900 
+ ¡
+ [
+ ¥
+ +2]->
+ ¡r_±r
+ ,
+ 
+ 1901 
+ ¡
+ [
+ ¥
+ +3]->
+ ¡r_±r
+ ,
+ 
+ 1902 
+ tbuf
+ );
+ 
+ 1904 
+ nfound
+  = 
+ 	`£Ëù
+ (
+ 
+ 1905 
+ maxËn
+  * 8,
+ 
+ 1906 (*)
+ fd_£ts
+ [1],
+ 
+ 1907 (*)
+ fd_£ts
+ [2],
+ 
+ 1908 (*)
+ fd_£ts
+ [3],
+ 
+ 1909 
+ tbuf
+ );
+ 
+ 1910 
+ i
+  = 1; i <= 3; i++) {
+ 
+ 1911 ià(
+ fd_£ts
+ [
+ i
+ ]) {
+ 
+ 1912 
+ ¡r
+  = 
+ ¡
+ [
+ ¥
+ +
+ i
+ ];
+ 
+ 1913 
+ s
+  = 
+ ¡r
+ ->
+ ¡r_±r
+ ;
+ 
+ 1914 
+ off£t
+  = 0; off£ˆ< 
+ growsize
+ ; off£ˆ+ð
+ masksize
+ ) {
+ 
+ 1915 
+ j
+  = 0, 
+ k
+ =
+ ORDERBYTE
+ ; j < 
+ masksize
+ ; j++, (k >>= 4))
+ 
+ 1916 
+ s
+ [(
+ k
+  % 
+ masksize
+ è+ 
+ off£t
+ ] = 
+ fd_£ts
+ [
+ i
+ ][
+ j
+ +offset];
+ 
+ 1922 
+ ¡
+ [++
+ ¥
+ ] = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ );
+ 
+ 1923 
+ 	`¡r_num£t
+ (
+ ¡
+ [
+ ¥
+ ], ()
+ nfound
+ );
+ 
+ 1924 ià(
+ gimme
+  =ð
+ G_ARRAY
+  && 
+ tbuf
+ ) {
+ 
+ 1925 
+ v®ue
+  = ()(
+ timebuf
+ .
+ tv_£c
+ ) +
+ 
+ 1926 ()(
+ timebuf
+ .
+ tv_u£c
+ ) / 1000000.0;
+ 
+ 1927 
+ ¡
+ [++
+ ¥
+ ] = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ );
+ 
+ 1928 
+ 	`¡r_num£t
+ (
+ ¡
+ [
+ ¥
+ ], 
+ v®ue
+ );
+ 
+ 1930  
+ ¥
+ ;
+ 
+ 1931 
+ 	}
+ }
+ 
+ 1934 #ifdeà
+ HAS_SOCKET
+ 
+ 
+ 1936 
+ 	$do_¥aœ
+ (
+ ¡ab1
+ , 
+ ¡ab2
+ , 
+ ¬gÏ¡
+ )
+ 
+ 1937 
+ STAB
+  *
+ ¡ab1
+ ;
+ 
+ 1938 
+ STAB
+  *
+ ¡ab2
+ ;
+ 
+ 1939 *
+ ¬gÏ¡
+ ;
+ 
+ 1941 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1942 
+ ¥
+  = 
+ ¬gÏ¡
+ [2];
+ 
+ 1943 
+ STIO
+  *
+ ¡io1
+ ;
+ 
+ 1944 
+ STIO
+  *
+ ¡io2
+ ;
+ 
+ 1945 
+ domaš
+ , 
+ ty³
+ , 
+ ´ÙocÞ
+ , 
+ fd
+ [2];
+ 
+ 1947 ià(!
+ ¡ab1
+  || !
+ ¡ab2
+ )
+ 
+ 1948  
+ FALSE
+ ;
+ 
+ 1950 
+ ¡io1
+  = 
+ 	`¡ab_io
+ (
+ ¡ab1
+ );
+ 
+ 1951 
+ ¡io2
+  = 
+ 	`¡ab_io
+ (
+ ¡ab2
+ );
+ 
+ 1952 ià(!
+ ¡io1
+ )
+ 
+ 1953 
+ ¡io1
+  = 
+ 	`¡ab_io
+ (
+ ¡ab1
+ èð
+ 	`¡io_Ãw
+ ();
+ 
+ 1954 ià(
+ ¡io1
+ ->
+ iå
+ )
+ 
+ 1955 
+ 	`do_þo£
+ (
+ ¡ab1
+ ,
+ FALSE
+ );
+ 
+ 1956 ià(!
+ ¡io2
+ )
+ 
+ 1957 
+ ¡io2
+  = 
+ 	`¡ab_io
+ (
+ ¡ab2
+ èð
+ 	`¡io_Ãw
+ ();
+ 
+ 1958 ià(
+ ¡io2
+ ->
+ iå
+ )
+ 
+ 1959 
+ 	`do_þo£
+ (
+ ¡ab2
+ ,
+ FALSE
+ );
+ 
+ 1961 
+ domaš
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 1962 
+ ty³
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 1963 
+ ´ÙocÞ
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 1964 #ifdeà
+ TAINT
+ 
+ 
+ 1965 
+ 	`šrÝ”
+ ("Insecure dependency in socketpair");
+ 
+ 1967 #ifdeà
+ HAS_SOCKETPAIR
+ 
+ 
+ 1968 ià(
+ 	`sock‘·œ
+ (
+ domaš
+ ,
+ ty³
+ ,
+ ´ÙocÞ
+ ,
+ fd
+ ) < 0)
+ 
+ 1969  
+ FALSE
+ ;
+ 
+ 1971 
+ 	`çl
+ ("Socketpair unimplemented");
+ 
+ 1973 
+ ¡io1
+ ->
+ iå
+  = 
+ 	`fdݒ
+ (
+ fd
+ [0], "r");
+ 
+ 1974 
+ ¡io1
+ ->
+ oå
+  = 
+ 	`fdݒ
+ (
+ fd
+ [0], "w");
+ 
+ 1975 
+ ¡io1
+ ->
+ ty³
+  = 's';
+ 
+ 1976 
+ ¡io2
+ ->
+ iå
+  = 
+ 	`fdݒ
+ (
+ fd
+ [1], "r");
+ 
+ 1977 
+ ¡io2
+ ->
+ oå
+  = 
+ 	`fdݒ
+ (
+ fd
+ [1], "w");
+ 
+ 1978 
+ ¡io2
+ ->
+ ty³
+  = 's';
+ 
+ 1979 ià(!
+ ¡io1
+ ->
+ iå
+  || !¡io1->
+ oå
+  || !
+ ¡io2
+ ->ifp || !stio2->ofp) {
+ 
+ 1980 ià(
+ ¡io1
+ ->
+ iå
+ è
+ 	`fþo£
+ (stio1->ifp);
+ 
+ 1981 ià(
+ ¡io1
+ ->
+ oå
+ è
+ 	`fþo£
+ (stio1->ofp);
+ 
+ 1982 ià(!
+ ¡io1
+ ->
+ iå
+  && !¡io1->
+ oå
+ è
+ 	`þo£
+ (
+ fd
+ [0]);
+ 
+ 1983 ià(
+ ¡io2
+ ->
+ iå
+ è
+ 	`fþo£
+ (stio2->ifp);
+ 
+ 1984 ià(
+ ¡io2
+ ->
+ oå
+ è
+ 	`fþo£
+ (stio2->ofp);
+ 
+ 1985 ià(!
+ ¡io2
+ ->
+ iå
+  && !¡io2->
+ oå
+ è
+ 	`þo£
+ (
+ fd
+ [1]);
+ 
+ 1986  
+ FALSE
+ ;
+ 
+ 1989  
+ TRUE
+ ;
+ 
+ 1990 
+ 	}
+ }
+ 
+ 1995 
+ 	$do_gpw’t
+ (
+ which
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1996 
+ which
+ ;
+ 
+ 1997 
+ gimme
+ ;
+ 
+ 1998 *
+ ¬gÏ¡
+ ;
+ 
+ 2000 #ifdeà
+ I_PWD
+ 
+ 
+ 2001 
+ ARRAY
+  *
+ ¬y
+  = 
+ ¡ack
+ ;
+ 
+ 2002 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 2003 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 2004 
+ ·sswd
+  *
+ 	`g‘pwÇm
+ ();
+ 
+ 2005 
+ ·sswd
+  *
+ 	`g‘pwuid
+ ();
+ 
+ 2006 
+ ·sswd
+  *
+ 	`g‘pw’t
+ ();
+ 
+ 2007 
+ ·sswd
+  *
+ pw’t
+ ;
+ 
+ 2009 ià(
+ gimme
+  !ð
+ G_ARRAY
+ ) {
+ 
+ 2010 
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ 	`¡r_m܏l
+ (&
+ ¡r_undef
+ ));
+ 
+ 2011  
+ ¥
+ ;
+ 
+ 2014 ià(
+ which
+  =ð
+ O_GPWNAM
+ ) {
+ 
+ 2015 *
+ Çme
+  = 
+ 	`¡r_g‘
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1]);
+ 
+ 2017 
+ pw’t
+  = 
+ 	`g‘pwÇm
+ (
+ Çme
+ );
+ 
+ 2019 ià(
+ which
+  =ð
+ O_GPWUID
+ ) {
+ 
+ 2020 
+ uid
+  = ()
+ 	`¡r_gnum
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1]);
+ 
+ 2022 
+ pw’t
+  = 
+ 	`g‘pwuid
+ (
+ uid
+ );
+ 
+ 2025 
+ pw’t
+  = 
+ 	`g‘pw’t
+ ();
+ 
+ 2027 ià(
+ pw’t
+ ) {
+ 
+ 2028 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 2029 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ pw’t
+ ->
+ pw_Çme
+ );
+ 
+ 2030 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 2031 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ pw’t
+ ->
+ pw_·sswd
+ );
+ 
+ 2032 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 2033 
+ 	`¡r_num£t
+ (
+ ¡r
+ , ()
+ pw’t
+ ->
+ pw_uid
+ );
+ 
+ 2034 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 2035 
+ 	`¡r_num£t
+ (
+ ¡r
+ , ()
+ pw’t
+ ->
+ pw_gid
+ );
+ 
+ 2036 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 2037 #ifdeà
+ PWCHANGE
+ 
+ 
+ 2038 
+ 	`¡r_num£t
+ (
+ ¡r
+ , ()
+ pw’t
+ ->
+ pw_chªge
+ );
+ 
+ 2040 #ifdeà
+ PWQUOTA
+ 
+ 
+ 2041 
+ 	`¡r_num£t
+ (
+ ¡r
+ , ()
+ pw’t
+ ->
+ pw_quÙa
+ );
+ 
+ 2043 #ifdeà
+ PWAGE
+ 
+ 
+ 2044 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ pw’t
+ ->
+ pw_age
+ );
+ 
+ 2048 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 2049 #ifdeà
+ PWCLASS
+ 
+ 
+ 2050 
+ 	`¡r_£t
+ (
+ ¡r
+ ,
+ pw’t
+ ->
+ pw_þass
+ );
+ 
+ 2052 #ifdeà
+ PWCOMMENT
+ 
+ 
+ 2053 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ pw’t
+ ->
+ pw_comm’t
+ );
+ 
+ 2056 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 2057 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ pw’t
+ ->
+ pw_gecos
+ );
+ 
+ 2058 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 2059 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ pw’t
+ ->
+ pw_dœ
+ );
+ 
+ 2060 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 2061 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ pw’t
+ ->
+ pw_sh–l
+ );
+ 
+ 2062 #ifdeà
+ PWEXPIRE
+ 
+ 
+ 2063 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 2064 
+ 	`¡r_num£t
+ (
+ ¡r
+ , ()
+ pw’t
+ ->
+ pw_expœe
+ );
+ 
+ 2068  
+ ¥
+ ;
+ 
+ 2070 
+ 	`çl
+ ("password„outines‚ot implemented");
+ 
+ 2072 
+ 	}
+ }
+ 
+ 2075 
+ 	$do_gg»Á
+ (
+ which
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 2076 
+ which
+ ;
+ 
+ 2077 
+ gimme
+ ;
+ 
+ 2078 *
+ ¬gÏ¡
+ ;
+ 
+ 2080 #ifdeà
+ I_GRP
+ 
+ 
+ 2081 
+ ARRAY
+  *
+ ¬y
+  = 
+ ¡ack
+ ;
+ 
+ 2082 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 2083 **
+ –em
+ ;
+ 
+ 2084 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 2085 
+ group
+  *
+ 	`g‘gºam
+ ();
+ 
+ 2086 
+ group
+  *
+ 	`g‘grgid
+ ();
+ 
+ 2087 
+ group
+  *
+ 	`g‘g»Á
+ ();
+ 
+ 2088 
+ group
+  *
+ g»Á
+ ;
+ 
+ 2090 ià(
+ gimme
+  !ð
+ G_ARRAY
+ ) {
+ 
+ 2091 
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ 	`¡r_m܏l
+ (&
+ ¡r_undef
+ ));
+ 
+ 2092  
+ ¥
+ ;
+ 
+ 2095 ià(
+ which
+  =ð
+ O_GGRNAM
+ ) {
+ 
+ 2096 *
+ Çme
+  = 
+ 	`¡r_g‘
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1]);
+ 
+ 2098 
+ g»Á
+  = 
+ 	`g‘gºam
+ (
+ Çme
+ );
+ 
+ 2100 ià(
+ which
+  =ð
+ O_GGRGID
+ ) {
+ 
+ 2101 
+ gid
+  = ()
+ 	`¡r_gnum
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1]);
+ 
+ 2103 
+ g»Á
+  = 
+ 	`g‘grgid
+ (
+ gid
+ );
+ 
+ 2106 
+ g»Á
+  = 
+ 	`g‘g»Á
+ ();
+ 
+ 2108 ià(
+ g»Á
+ ) {
+ 
+ 2109 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 2110 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ g»Á
+ ->
+ gr_Çme
+ );
+ 
+ 2111 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 2112 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ g»Á
+ ->
+ gr_·sswd
+ );
+ 
+ 2113 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 2114 
+ 	`¡r_num£t
+ (
+ ¡r
+ , ()
+ g»Á
+ ->
+ gr_gid
+ );
+ 
+ 2115 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 2116 
+ –em
+  = 
+ g»Á
+ ->
+ gr_mem
+ ; *elem;ƒlem++) {
+ 
+ 2117 
+ 	`¡r_ÿt
+ (
+ ¡r
+ , *
+ –em
+ );
+ 
+ 2118 ià(
+ –em
+ [1])
+ 
+ 2119 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ," ",1);
+ 
+ 2123  
+ ¥
+ ;
+ 
+ 2125 
+ 	`çl
+ ("group„outines‚ot implemented");
+ 
+ 2127 
+ 	}
+ }
+ 
+ 2130 
+ 	$do_dœÝ
+ (
+ Ýty³
+ ,
+ ¡ab
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 2131 
+ Ýty³
+ ;
+ 
+ 2132 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 2133 
+ gimme
+ ;
+ 
+ 2134 *
+ ¬gÏ¡
+ ;
+ 
+ 2136 #ià
+ 	`defšed
+ (
+ DIRENT
+ è&& defšed(
+ HAS_READDIR
+ )
+ 
+ 2137 
+ ARRAY
+  *
+ ¬y
+  = 
+ ¡ack
+ ;
+ 
+ 2138 
+ STR
+  **
+ ¡
+  = 
+ ¬y
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 2139 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 2140 
+ STIO
+  *
+ ¡io
+ ;
+ 
+ 2141 
+ ®Úg
+ ;
+ 
+ 2142 #iâdeà
+ ‹Îdœ
+ 
+ 
+ 2143 
+ 	`‹Îdœ
+ ();
+ 
+ 2145 
+ DIRENT
+  *
+ 	`»addœ
+ ();
+ 
+ 2146 
+ DIRENT
+  *
+ dp
+ ;
+ 
+ 2148 ià(!
+ ¡ab
+ )
+ 
+ 2149 
+ nÝe
+ ;
+ 
+ 2150 ià(!(
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ )))
+ 
+ 2151 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ èð
+ 	`¡io_Ãw
+ ();
+ 
+ 2152 ià(!
+ ¡io
+ ->
+ dœp
+  && 
+ Ýty³
+  !ð
+ O_OPENDIR
+ )
+ 
+ 2153 
+ nÝe
+ ;
+ 
+ 2154 
+ ¡
+ [
+ ¥
+ ] = &
+ ¡r_yes
+ ;
+ 
+ 2155 
+ Ýty³
+ ) {
+ 
+ 2156 
+ O_OPENDIR
+ :
+ 
+ 2157 ià(
+ ¡io
+ ->
+ dœp
+ )
+ 
+ 2158 
+ 	`þo£dœ
+ (
+ ¡io
+ ->
+ dœp
+ );
+ 
+ 2159 ià(!(
+ ¡io
+ ->
+ dœp
+  = 
+ 	`Ý’dœ
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [
+ ¥
+ +1]))))
+ 
+ 2160 
+ nÝe
+ ;
+ 
+ 2162 
+ O_READDIR
+ :
+ 
+ 2163 ià(
+ gimme
+  =ð
+ G_ARRAY
+ ) {
+ 
+ 2164 --
+ ¥
+ ;
+ 
+ 2165 
+ dp
+  = 
+ 	`»addœ
+ (
+ ¡io
+ ->
+ dœp
+ )) {
+ 
+ 2166 #ifdeà
+ DIRNAMLEN
+ 
+ 
+ 2167 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 
+ 2168 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_make
+ (
+ dp
+ ->
+ d_Çme
+ ,dp->
+ d_ÇmËn
+ )));
+ 
+ 2170 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 
+ 2171 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_make
+ (
+ dp
+ ->
+ d_Çme
+ ,0)));
+ 
+ 2176 ià(!(
+ dp
+  = 
+ 	`»addœ
+ (
+ ¡io
+ ->
+ dœp
+ )))
+ 
+ 2177 
+ nÝe
+ ;
+ 
+ 2178 
+ ¡
+ [
+ ¥
+ ] = 
+ 	`¡r_m܏l
+ (&
+ ¡r_undef
+ );
+ 
+ 2179 #ifdeà
+ DIRNAMLEN
+ 
+ 
+ 2180 
+ 	`¡r_n£t
+ (
+ ¡
+ [
+ ¥
+ ], 
+ dp
+ ->
+ d_Çme
+ , dp->
+ d_ÇmËn
+ );
+ 
+ 2182 
+ 	`¡r_£t
+ (
+ ¡
+ [
+ ¥
+ ], 
+ dp
+ ->
+ d_Çme
+ );
+ 
+ 2186 #ià
+ MACH
+ 
+ 
+ 2187 
+ O_TELLDIR
+ :
+ 
+ 2188 
+ O_SEEKDIR
+ :
+ 
+ 2189 
+ nÝe
+ ;
+ 
+ 2191 
+ O_TELLDIR
+ :
+ 
+ 2192 
+ ¡
+ [
+ ¥
+ ] = 
+ 	`¡r_m܏l
+ (&
+ ¡r_undef
+ );
+ 
+ 2193 
+ 	`¡r_num£t
+ (
+ ¡
+ [
+ ¥
+ ], ()
+ 	`‹Îdœ
+ (
+ ¡io
+ ->
+ dœp
+ ));
+ 
+ 2195 
+ O_SEEKDIR
+ :
+ 
+ 2196 
+ ¡
+ [
+ ¥
+ ] = 
+ 	`¡r_m܏l
+ (&
+ ¡r_undef
+ );
+ 
+ 2197 
+ ®Úg
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [
+ ¥
+ +1]);
+ 
+ 2198 ()
+ 	`£ekdœ
+ (
+ ¡io
+ ->
+ dœp
+ ,
+ ®Úg
+ );
+ 
+ 2201 
+ O_REWINDDIR
+ :
+ 
+ 2202 
+ ¡
+ [
+ ¥
+ ] = 
+ 	`¡r_m܏l
+ (&
+ ¡r_undef
+ );
+ 
+ 2203 ()
+ 	`»wšddœ
+ (
+ ¡io
+ ->
+ dœp
+ );
+ 
+ 2205 
+ O_CLOSEDIR
+ :
+ 
+ 2206 
+ ¡
+ [
+ ¥
+ ] = 
+ 	`¡r_m܏l
+ (&
+ ¡r_undef
+ );
+ 
+ 2207 ()
+ 	`þo£dœ
+ (
+ ¡io
+ ->
+ dœp
+ );
+ 
+ 2208 
+ ¡io
+ ->
+ dœp
+  = 0;
+ 
+ 2211  
+ ¥
+ ;
+ 
+ 2213 
+ nÝe
+ :
+ 
+ 2214 
+ ¡
+ [
+ ¥
+ ] = &
+ ¡r_undef
+ ;
+ 
+ 2215  
+ ¥
+ ;
+ 
+ 2218 
+ 	`çl
+ ("Unimplemented directory operation");
+ 
+ 2220 
+ 	}
+ }
+ 
+ 2222 
+ 	$­¶y
+ (
+ ty³
+ ,
+ ¬gÏ¡
+ )
+ 
+ 2223 
+ ty³
+ ;
+ 
+ 2224 *
+ ¬gÏ¡
+ ;
+ 
+ 2226 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 2227 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 2228 
+ ™ems
+  = 
+ ¬gÏ¡
+ [2] - 
+ ¥
+ ;
+ 
+ 2229 
+ v®
+ ;
+ 
+ 2230 
+ v®2
+ ;
+ 
+ 2231 
+ tÙ
+  = 0;
+ 
+ 2232 *
+ s
+ ;
+ 
+ 2234 #ifdeà
+ TAINT
+ 
+ 
+ 2235 
+ ¡
+  +ð++
+ ¥
+ ; 
+ ™ems
+ --; st++)
+ 
+ 2236 
+ š‹d
+  |ð(*
+ ¡
+ )->
+ ¡r_š‹d
+ ;
+ 
+ 2237 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 2238 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 2239 
+ ™ems
+  = 
+ ¬gÏ¡
+ [2] - 
+ ¥
+ ;
+ 
+ 2241 
+ ty³
+ ) {
+ 
+ 2242 
+ O_CHMOD
+ :
+ 
+ 2243 #ifdeà
+ TAINT
+ 
+ 
+ 2244 
+ 	`šrÝ”
+ ("Insecure dependency in chmod");
+ 
+ 2246 ià(--
+ ™ems
+  > 0) {
+ 
+ 2247 
+ tÙ
+  = 
+ ™ems
+ ;
+ 
+ 2248 
+ v®
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2249 
+ ™ems
+ --) {
+ 
+ 2250 ià(
+ 	`chmod
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [++
+ ¥
+ ]),
+ v®
+ ))
+ 
+ 2251 
+ tÙ
+ --;
+ 
+ 2255 #ifdeà
+ HAS_CHOWN
+ 
+ 
+ 2256 
+ O_CHOWN
+ :
+ 
+ 2257 #ifdeà
+ TAINT
+ 
+ 
+ 2258 
+ 	`šrÝ”
+ ("Insecure dependency in chown");
+ 
+ 2260 ià(
+ ™ems
+  > 2) {
+ 
+ 2261 
+ ™ems
+  -= 2;
+ 
+ 2262 
+ tÙ
+  = 
+ ™ems
+ ;
+ 
+ 2263 
+ v®
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2264 
+ v®2
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2265 
+ ™ems
+ --) {
+ 
+ 2266 ià(
+ 	`chown
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [++
+ ¥
+ ]),
+ v®
+ ,
+ v®2
+ ))
+ 
+ 2267 
+ tÙ
+ --;
+ 
+ 2272 #ifdeà
+ HAS_KILL
+ 
+ 
+ 2273 
+ O_KILL
+ :
+ 
+ 2274 #ifdeà
+ TAINT
+ 
+ 
+ 2275 
+ 	`šrÝ”
+ ("Insecure dependency in kill");
+ 
+ 2277 ià(--
+ ™ems
+  > 0) {
+ 
+ 2278 
+ tÙ
+  = 
+ ™ems
+ ;
+ 
+ 2279 
+ s
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2280 ià(
+ 	`isuµ”
+ (*
+ s
+ )) {
+ 
+ 2281 ià(*
+ s
+  == 'S' && s[1] == 'I' && s[2] == 'G')
+ 
+ 2282 
+ s
+  += 3;
+ 
+ 2283 ià(!(
+ v®
+  = 
+ 	`whichsig
+ (
+ s
+ )))
+ 
+ 2284 
+ 	`çl
+ ("UÄecognized sigÇÈÇm\"%s\"",
+ s
+ );
+ 
+ 2287 
+ v®
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [
+ ¥
+ ]);
+ 
+ 2288 ià(
+ v®
+  < 0) {
+ 
+ 2289 
+ v®
+  = -val;
+ 
+ 2290 
+ ™ems
+ --) {
+ 
+ 2291 
+ ´oc
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2292 #ifdeà
+ HAS_KILLPG
+ 
+ 
+ 2293 ià(
+ 	`kžÍg
+ (
+ ´oc
+ ,
+ v®
+ ))
+ 
+ 2295 ià(
+ 	`kžl
+ (-
+ ´oc
+ ,
+ v®
+ ))
+ 
+ 2297 
+ tÙ
+ --;
+ 
+ 2301 
+ ™ems
+ --) {
+ 
+ 2302 ià(
+ 	`kžl
+ (()(
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ])),
+ v®
+ ))
+ 
+ 2303 
+ tÙ
+ --;
+ 
+ 2309 
+ O_UNLINK
+ :
+ 
+ 2310 #ifdeà
+ TAINT
+ 
+ 
+ 2311 
+ 	`šrÝ”
+ ("Insecure dependency in unlink");
+ 
+ 2313 
+ tÙ
+  = 
+ ™ems
+ ;
+ 
+ 2314 
+ ™ems
+ --) {
+ 
+ 2315 
+ s
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2316 ià(
+ euid
+  || 
+ un§ã
+ ) {
+ 
+ 2317 ià(
+ 	`UNLINK
+ (
+ s
+ ))
+ 
+ 2318 
+ tÙ
+ --;
+ 
+ 2321 #ifdeà
+ HAS_LSTAT
+ 
+ 
+ 2322 ià(
+ 	`l¡©
+ (
+ s
+ ,&
+ ¡©buf
+ è< 0 || 
+ 	`S_ISDIR
+ (¡©buf.
+ ¡_mode
+ ))
+ 
+ 2324 ià(
+ 	`¡©
+ (
+ s
+ ,&
+ ¡©buf
+ è< 0 || 
+ 	`S_ISDIR
+ (¡©buf.
+ ¡_mode
+ ))
+ 
+ 2326 
+ tÙ
+ --;
+ 
+ 2328 ià(
+ 	`UNLINK
+ (
+ s
+ ))
+ 
+ 2329 
+ tÙ
+ --;
+ 
+ 2334 
+ O_UTIME
+ :
+ 
+ 2335 #ifdeà
+ TAINT
+ 
+ 
+ 2336 
+ 	`šrÝ”
+ ("Insecure dependency in utime");
+ 
+ 2338 ià(
+ ™ems
+  > 2) {
+ 
+ 2339 #ifdeà
+ I_UTIME
+ 
+ 
+ 2340 
+ utimbuf
+  
+ utbuf
+ ;
+ 
+ 2343 
+ aùime
+ ;
+ 
+ 2344 
+ modtime
+ ;
+ 
+ 2345 } 
+ utbuf
+ ;
+ 
+ 2348 
+ 	`Z”o
+ (&
+ utbuf
+ ,  utbuf, );
+ 
+ 2349 
+ utbuf
+ .
+ aùime
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2350 
+ utbuf
+ .
+ modtime
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2351 
+ ™ems
+  -= 2;
+ 
+ 2352 #iâdeà
+ lšt
+ 
+ 
+ 2353 
+ tÙ
+  = 
+ ™ems
+ ;
+ 
+ 2354 
+ ™ems
+ --) {
+ 
+ 2355 ià(
+ 	`utime
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [++
+ ¥
+ ]),&
+ utbuf
+ ))
+ 
+ 2356 
+ tÙ
+ --;
+ 
+ 2361 
+ ™ems
+  = 0;
+ 
+ 2364  
+ tÙ
+ ;
+ 
+ 2365 
+ 	}
+ }
+ 
+ 2370 
+ 	$ÿndo
+ (
+ b™
+ , 
+ efãùive
+ , 
+ ¡©buå
+ )
+ 
+ 2371 
+ b™
+ ;
+ 
+ 2372 
+ efãùive
+ ;
+ 
+ 2373 
+ ¡©
+  *
+ ¡©buå
+ ;
+ 
+ 2375 #ifdeà
+ MSDOS
+ 
+ 
+ 2394  (
+ b™
+  & 
+ ¡©buå
+ ->
+ ¡_mode
+ è? 
+ TRUE
+  : 
+ FALSE
+ ;
+ 
+ 2397 ià((
+ efãùive
+  ? 
+ euid
+  : 
+ uid
+ ) == 0) {
+ 
+ 2398 ià(
+ b™
+  =ð
+ S_IXUSR
+ ) {
+ 
+ 2399 ià(
+ ¡©buå
+ ->
+ ¡_mode
+  & 0111 || 
+ 	`S_ISDIR
+ (statbufp->st_mode))
+ 
+ 2400  
+ TRUE
+ ;
+ 
+ 2403  
+ TRUE
+ ;
+ 
+ 2404  
+ FALSE
+ ;
+ 
+ 2406 ià(
+ ¡©buå
+ ->
+ ¡_uid
+  =ð(
+ efãùive
+  ? 
+ euid
+  : 
+ uid
+ ) ) {
+ 
+ 2407 ià(
+ ¡©buå
+ ->
+ ¡_mode
+  & 
+ b™
+ )
+ 
+ 2408  
+ TRUE
+ ;
+ 
+ 2410 ià(
+ 	`šgroup
+ (()
+ ¡©buå
+ ->
+ ¡_gid
+ ,
+ efãùive
+ )) {
+ 
+ 2411 ià(
+ ¡©buå
+ ->
+ ¡_mode
+  & 
+ b™
+  >> 3)
+ 
+ 2412  
+ TRUE
+ ;
+ 
+ 2414 ià(
+ ¡©buå
+ ->
+ ¡_mode
+  & 
+ b™
+  >> 6)
+ 
+ 2415  
+ TRUE
+ ;
+ 
+ 2416  
+ FALSE
+ ;
+ 
+ 2418 
+ 	}
+ }
+ 
+ 2421 
+ 	$šgroup
+ (
+ ‹¡gid
+ ,
+ efãùive
+ )
+ 
+ 2422 
+ ‹¡gid
+ ;
+ 
+ 2423 
+ efãùive
+ ;
+ 
+ 2425 ià(
+ ‹¡gid
+  =ð(
+ efãùive
+  ? 
+ egid
+  : 
+ gid
+ ))
+ 
+ 2426  
+ TRUE
+ ;
+ 
+ 2427 #ifdeà
+ HAS_GETGROUPS
+ 
+ 
+ 2428 #iâdeà
+ NGROUPS
+ 
+ 
+ 2429 
+ 	#NGROUPS
+  32
+ 
+ 	)
+ 
+ 2432 
+ GROUPSTYPE
+  
+ g¬y
+ [
+ NGROUPS
+ ];
+ 
+ 2433 
+ ªum
+ ;
+ 
+ 2435 
+ ªum
+  = 
+ 	`g‘groups
+ (
+ NGROUPS
+ ,
+ g¬y
+ );
+ 
+ 2436 --
+ ªum
+  >= 0)
+ 
+ 2437 ià(
+ g¬y
+ [
+ ªum
+ ] =ð
+ ‹¡gid
+ )
+ 
+ 2438  
+ TRUE
+ ;
+ 
+ 2441  
+ FALSE
+ ;
+ 
+ 2442 
+ 	}
+ }
+ 
+ 2444 #ià
+ defšed
+ (
+ HAS_MSG
+ è|| defšed(
+ HAS_SEM
+ è|| defšed(
+ HAS_SHM
+ )
+ 
+ 2447 
+ 	$do_cg‘
+ (
+ Ýty³
+ , 
+ ¬gÏ¡
+ )
+ 
+ 2448 
+ Ýty³
+ ;
+ 
+ 2449 *
+ ¬gÏ¡
+ ;
+ 
+ 2451 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 2452 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 2453 
+ key_t
+  
+ key
+ ;
+ 
+ 2454 
+ n
+ , 
+ æags
+ ;
+ 
+ 2456 
+ key
+  = (
+ key_t
+ )
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2457 
+ n
+  = (
+ Ýty³
+  =ð
+ O_MSGGET
+ è? 0 : ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2458 
+ æags
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2459 
+ Ӽo
+  = 0;
+ 
+ 2460 
+ Ýty³
+ )
+ 
+ 2462 #ifdeà
+ HAS_MSG
+ 
+ 
+ 2463 
+ O_MSGGET
+ :
+ 
+ 2464  
+ 	`msgg‘
+ (
+ key
+ , 
+ æags
+ );
+ 
+ 2466 #ifdeà
+ HAS_SEM
+ 
+ 
+ 2467 
+ O_SEMGET
+ :
+ 
+ 2468  
+ 	`£mg‘
+ (
+ key
+ , 
+ n
+ , 
+ æags
+ );
+ 
+ 2470 #ifdeà
+ HAS_SHM
+ 
+ 
+ 2471 
+ O_SHMGET
+ :
+ 
+ 2472  
+ 	`shmg‘
+ (
+ key
+ , 
+ n
+ , 
+ æags
+ );
+ 
+ 2474 #ià!
+ 	`defšed
+ (
+ HAS_MSG
+ è|| !defšed(
+ HAS_SEM
+ è|| !defšed(
+ HAS_SHM
+ )
+ 
+ 2476 
+ 	`çl
+ ("% nÙ im¶em’‹d", 
+ ÝÇme
+ [
+ Ýty³
+ ]);
+ 
+ 2480 
+ 	}
+ }
+ 
+ 2483 
+ 	$do_cùl
+ (
+ Ýty³
+ , 
+ ¬gÏ¡
+ )
+ 
+ 2484 
+ Ýty³
+ ;
+ 
+ 2485 *
+ ¬gÏ¡
+ ;
+ 
+ 2487 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 2488 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 2489 
+ STR
+  *
+ a¡r
+ ;
+ 
+ 2490 *
+ a
+ ;
+ 
+ 2491 
+ id
+ , 
+ n
+ , 
+ cmd
+ , 
+ šfosize
+ , 
+ g‘šfo
+ , 
+ »t
+ ;
+ 
+ 2493 
+ id
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2494 
+ n
+  = (
+ Ýty³
+  =ð
+ O_SEMCTL
+ è? ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]) : 0;
+ 
+ 2495 
+ cmd
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2496 
+ a¡r
+  = 
+ ¡
+ [++
+ ¥
+ ];
+ 
+ 2498 
+ šfosize
+  = 0;
+ 
+ 2499 
+ g‘šfo
+  = (
+ cmd
+  =ð
+ IPC_STAT
+ );
+ 
+ 2501 
+ Ýty³
+ )
+ 
+ 2503 #ifdeà
+ HAS_MSG
+ 
+ 
+ 2504 
+ O_MSGCTL
+ :
+ 
+ 2505 ià(
+ cmd
+  =ð
+ IPC_STAT
+  || cmd =ð
+ IPC_SET
+ )
+ 
+ 2506 
+ šfosize
+  = (
+ msqid_ds
+ );
+ 
+ 2509 #ifdeà
+ HAS_SHM
+ 
+ 
+ 2510 
+ O_SHMCTL
+ :
+ 
+ 2511 ià(
+ cmd
+  =ð
+ IPC_STAT
+  || cmd =ð
+ IPC_SET
+ )
+ 
+ 2512 
+ šfosize
+  = (
+ shmid_ds
+ );
+ 
+ 2515 #ifdeà
+ HAS_SEM
+ 
+ 
+ 2516 
+ O_SEMCTL
+ :
+ 
+ 2517 ià(
+ cmd
+  =ð
+ IPC_STAT
+  || cmd =ð
+ IPC_SET
+ )
+ 
+ 2518 
+ šfosize
+  = (
+ £mid_ds
+ );
+ 
+ 2519 ià(
+ cmd
+  =ð
+ GETALL
+  || cmd =ð
+ SETALL
+ )
+ 
+ 2521 
+ £mid_ds
+  
+ £mds
+ ;
+ 
+ 2522 ià(
+ 	`£mùl
+ (
+ id
+ , 0, 
+ IPC_STAT
+ , &
+ £mds
+ ) == -1)
+ 
+ 2524 
+ g‘šfo
+  = (
+ cmd
+  =ð
+ GETALL
+ );
+ 
+ 2525 #ifdeà
+ _POSIX_SOURCE
+ 
+ 
+ 2526 
+ ushÜt
+  
+ 	tushÜt_t
+ ;
+ 
+ 2527 
+ šfosize
+  = 
+ £mds
+ .
+ £m_n£ms
+  * (
+ ushÜt_t
+ );
+ 
+ 2529 
+ šfosize
+  = 
+ £mds
+ .
+ £m_n£ms
+  * (
+ ushÜt
+ );
+ 
+ 2534 #ià!
+ 	`defšed
+ (
+ HAS_MSG
+ è|| !defšed(
+ HAS_SEM
+ è|| !defšed(
+ HAS_SHM
+ )
+ 
+ 2536 
+ 	`çl
+ ("% nÙ im¶em’‹d", 
+ ÝÇme
+ [
+ Ýty³
+ ]);
+ 
+ 2540 ià(
+ šfosize
+ )
+ 
+ 2542 ià(
+ g‘šfo
+ )
+ 
+ 2544 
+ 	`STR_GROW
+ (
+ a¡r
+ , 
+ šfosize
+ +1);
+ 
+ 2545 
+ a
+  = 
+ 	`¡r_g‘
+ (
+ a¡r
+ );
+ 
+ 2549 
+ a
+  = 
+ 	`¡r_g‘
+ (
+ a¡r
+ );
+ 
+ 2550 ià(
+ a¡r
+ ->
+ ¡r_cur
+  !ð
+ šfosize
+ )
+ 
+ 2552 
+ Ӽo
+  = 
+ EINVAL
+ ;
+ 
+ 2559 
+ i
+  = ()
+ 	`¡r_gnum
+ (
+ a¡r
+ );
+ 
+ 2560 
+ a
+  = (*)
+ i
+ ;
+ 
+ 2562 
+ Ӽo
+  = 0;
+ 
+ 2563 
+ Ýty³
+ )
+ 
+ 2565 #ifdeà
+ HAS_MSG
+ 
+ 
+ 2566 
+ O_MSGCTL
+ :
+ 
+ 2567 
+ »t
+  = 
+ 	`msgùl
+ (
+ id
+ , 
+ cmd
+ , 
+ a
+ );
+ 
+ 2570 #ifdeà
+ HAS_SEM
+ 
+ 
+ 2571 
+ O_SEMCTL
+ :
+ 
+ 2572 
+ »t
+  = 
+ 	`£mùl
+ (
+ id
+ , 
+ n
+ , 
+ cmd
+ , 
+ a
+ );
+ 
+ 2575 #ifdeà
+ HAS_SHM
+ 
+ 
+ 2576 
+ O_SHMCTL
+ :
+ 
+ 2577 
+ »t
+  = 
+ 	`shmùl
+ (
+ id
+ , 
+ cmd
+ , 
+ a
+ );
+ 
+ 2581 ià(
+ g‘šfo
+  && 
+ »t
+  >= 0) {
+ 
+ 2582 
+ a¡r
+ ->
+ ¡r_cur
+  = 
+ šfosize
+ ;
+ 
+ 2583 
+ a¡r
+ ->
+ ¡r_±r
+ [
+ šfosize
+ ] = '\0';
+ 
+ 2585  
+ »t
+ ;
+ 
+ 2586 
+ 	}
+ }
+ 
+ 2589 
+ 	$do_msg¢d
+ (
+ ¬gÏ¡
+ )
+ 
+ 2590 *
+ ¬gÏ¡
+ ;
+ 
+ 2592 #ifdeà
+ HAS_MSG
+ 
+ 
+ 2593 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 2594 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 2595 
+ STR
+  *
+ m¡r
+ ;
+ 
+ 2596 *
+ mbuf
+ ;
+ 
+ 2597 
+ id
+ , 
+ msize
+ , 
+ æags
+ ;
+ 
+ 2599 
+ id
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2600 
+ m¡r
+  = 
+ ¡
+ [++
+ ¥
+ ];
+ 
+ 2601 
+ æags
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2602 
+ mbuf
+  = 
+ 	`¡r_g‘
+ (
+ m¡r
+ );
+ 
+ 2603 ià((
+ msize
+  = 
+ m¡r
+ ->
+ ¡r_cur
+  - ()) < 0) {
+ 
+ 2604 
+ Ӽo
+  = 
+ EINVAL
+ ;
+ 
+ 2607 
+ Ӽo
+  = 0;
+ 
+ 2608  
+ 	`msg¢d
+ (
+ id
+ , 
+ mbuf
+ , 
+ msize
+ , 
+ æags
+ );
+ 
+ 2610 
+ 	`çl
+ ("msgsnd‚ot implemented");
+ 
+ 2612 
+ 	}
+ }
+ 
+ 2615 
+ 	$do_msgrcv
+ (
+ ¬gÏ¡
+ )
+ 
+ 2616 *
+ ¬gÏ¡
+ ;
+ 
+ 2618 #ifdeà
+ HAS_MSG
+ 
+ 
+ 2619 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 2620 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 2621 
+ STR
+  *
+ m¡r
+ ;
+ 
+ 2622 *
+ mbuf
+ ;
+ 
+ 2623 
+ mty³
+ ;
+ 
+ 2624 
+ id
+ , 
+ msize
+ , 
+ æags
+ , 
+ »t
+ ;
+ 
+ 2626 
+ id
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2627 
+ m¡r
+  = 
+ ¡
+ [++
+ ¥
+ ];
+ 
+ 2628 
+ msize
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2629 
+ mty³
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2630 
+ æags
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2631 
+ mbuf
+  = 
+ 	`¡r_g‘
+ (
+ m¡r
+ );
+ 
+ 2632 ià(
+ m¡r
+ ->
+ ¡r_cur
+  < ()+
+ msize
+ +1) {
+ 
+ 2633 
+ 	`STR_GROW
+ (
+ m¡r
+ , ()+
+ msize
+ +1);
+ 
+ 2634 
+ mbuf
+  = 
+ 	`¡r_g‘
+ (
+ m¡r
+ );
+ 
+ 2636 
+ Ӽo
+  = 0;
+ 
+ 2637 
+ »t
+  = 
+ 	`msgrcv
+ (
+ id
+ , 
+ mbuf
+ , 
+ msize
+ , 
+ mty³
+ , 
+ æags
+ );
+ 
+ 2638 ià(
+ »t
+  >= 0) {
+ 
+ 2639 
+ m¡r
+ ->
+ ¡r_cur
+  = ()+
+ »t
+ ;
+ 
+ 2640 
+ m¡r
+ ->
+ ¡r_±r
+ [()+
+ »t
+ ] = '\0';
+ 
+ 2642  
+ »t
+ ;
+ 
+ 2644 
+ 	`çl
+ ("msgrcv‚ot implemented");
+ 
+ 2646 
+ 	}
+ }
+ 
+ 2649 
+ 	$do_£mÝ
+ (
+ ¬gÏ¡
+ )
+ 
+ 2650 *
+ ¬gÏ¡
+ ;
+ 
+ 2652 #ifdeà
+ HAS_SEM
+ 
+ 
+ 2653 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 2654 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 2655 
+ STR
+  *
+ ݡr
+ ;
+ 
+ 2656 *
+ Ýbuf
+ ;
+ 
+ 2657 
+ id
+ , 
+ Ýsize
+ ;
+ 
+ 2659 
+ id
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2660 
+ ݡr
+  = 
+ ¡
+ [++
+ ¥
+ ];
+ 
+ 2661 
+ Ýbuf
+  = 
+ 	`¡r_g‘
+ (
+ ݡr
+ );
+ 
+ 2662 
+ Ýsize
+  = 
+ ݡr
+ ->
+ ¡r_cur
+ ;
+ 
+ 2663 ià(
+ Ýsize
+  < (
+ £mbuf
+ )
+ 
+ 2664 || (
+ Ýsize
+  % (
+ £mbuf
+ )) != 0) {
+ 
+ 2665 
+ Ӽo
+  = 
+ EINVAL
+ ;
+ 
+ 2668 
+ Ӽo
+  = 0;
+ 
+ 2669  
+ 	`£mÝ
+ (
+ id
+ , 
+ Ýbuf
+ , 
+ Ýsize
+ /(
+ £mbuf
+ ));
+ 
+ 2671 
+ 	`çl
+ ("semop‚ot implemented");
+ 
+ 2673 
+ 	}
+ }
+ 
+ 2676 
+ 	$do_shmio
+ (
+ Ýty³
+ , 
+ ¬gÏ¡
+ )
+ 
+ 2677 
+ Ýty³
+ ;
+ 
+ 2678 *
+ ¬gÏ¡
+ ;
+ 
+ 2680 #ifdeà
+ HAS_SHM
+ 
+ 
+ 2681 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 2682 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 2683 
+ STR
+  *
+ m¡r
+ ;
+ 
+ 2684 *
+ mbuf
+ , *
+ shm
+ ;
+ 
+ 2685 
+ id
+ , 
+ mpos
+ , 
+ msize
+ ;
+ 
+ 2686 
+ shmid_ds
+  
+ shmds
+ ;
+ 
+ 2687 
*
+ 	`shm©
+ ();
+ 
+ 2689 
+ id
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2690 
+ m¡r
+  = 
+ ¡
+ [++
+ ¥
+ ];
+ 
+ 2691 
+ mpos
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2692 
+ msize
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [++
+ ¥
+ ]);
+ 
+ 2693 
+ Ӽo
+  = 0;
+ 
+ 2694 ià(
+ 	`shmùl
+ (
+ id
+ , 
+ IPC_STAT
+ , &
+ shmds
+ ) == -1)
+ 
+ 2696 ià(
+ mpos
+  < 0 || 
+ msize
+  < 0 || mpo + msiz> 
+ shmds
+ .
+ shm_£gsz
+ ) {
+ 
+ 2697 
+ Ӽo
+  = 
+ EFAULT
+ ;
+ 
+ 2700 
+ shm
+  = 
+ 	`shm©
+ (
+ id
+ , (*)
+ NULL
+ , (
+ Ýty³
+  =ð
+ O_SHMREAD
+ è? 
+ SHM_RDONLY
+  : 0);
+ 
+ 2701 ià(
+ shm
+  == (*)-1)
+ 
+ 2703 
+ mbuf
+  = 
+ 	`¡r_g‘
+ (
+ m¡r
+ );
+ 
+ 2704 ià(
+ Ýty³
+  =ð
+ O_SHMREAD
+ ) {
+ 
+ 2705 ià(
+ m¡r
+ ->
+ ¡r_cur
+  < 
+ msize
+ ) {
+ 
+ 2706 
+ 	`STR_GROW
+ (
+ m¡r
+ , 
+ msize
+ +1);
+ 
+ 2707 
+ mbuf
+  = 
+ 	`¡r_g‘
+ (
+ m¡r
+ );
+ 
+ 2709 
+ 	`bcÝy
+ (
+ shm
+  + 
+ mpos
+ , 
+ mbuf
+ , 
+ msize
+ );
+ 
+ 2710 
+ m¡r
+ ->
+ ¡r_cur
+  = 
+ msize
+ ;
+ 
+ 2711 
+ m¡r
+ ->
+ ¡r_±r
+ [
+ msize
+ ] = '\0';
+ 
+ 2714 
+ n
+ ;
+ 
+ 2716 ià((
+ n
+  = 
+ m¡r
+ ->
+ ¡r_cur
+ è> 
+ msize
+ )
+ 
+ 2717 
+ n
+  = 
+ msize
+ ;
+ 
+ 2718 
+ 	`bcÝy
+ (
+ mbuf
+ , 
+ shm
+  + 
+ mpos
+ , 
+ n
+ );
+ 
+ 2719 ià(
+ n
+  < 
+ msize
+ )
+ 
+ 2720 
+ 	`bz”o
+ (
+ shm
+  + 
+ mpos
+  + 
+ n
+ , 
+ msize
+  -‚);
+ 
+ 2722  
+ 	`shmdt
+ (
+ shm
+ );
+ 
+ 2724 
+ 	`çl
+ ("shm I/O‚ot implemented");
+ 
+ 2726 
+ 	}
+ }
+ 
+ 	@dolist.c
+ 
+ 14 
+ 	~"EXTERN.h
+ "
+ 
+ 15 
+ 	~"³¾.h
+ "
+ 
+ 18 #ifdeà
+ BUGGY_MSC
+ 
+ 
+ 19 #´agm¨
+ funùiÚ
+ (
+ memcmp
+ )
+ 
+ 23 
+ 	$do_m©ch
+ (
+ ¡r
+ ,
+ ¬g
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 24 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 25 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 26 
+ gimme
+ ;
+ 
+ 27 *
+ ¬gÏ¡
+ ;
+ 
+ 29 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 30 
+ SPAT
+  *
+ ¥©
+  = 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+ ;
+ 
+ 31 *
+ t
+ ;
+ 
+ 32 
+ ¥
+  = 
+ ¬gÏ¡
+ [0] + 1;
+ 
+ 33 
+ STR
+  *
+ ¤ch¡r
+  = 
+ ¡
+ [
+ ¥
+ ];
+ 
+ 34 *
+ s
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [
+ ¥
+ ]);
+ 
+ 35 *
+ ¡»nd
+  = 
+ s
+  + 
+ ¡
+ [
+ ¥
+ ]->
+ ¡r_cur
+ ;
+ 
+ 36 
+ STR
+  *
+ tmp¡r
+ ;
+ 
+ 37 *
+ myhšt
+  = 
+ hšt
+ ;
+ 
+ 39 
+ hšt
+  = 
+ NuÎch
+ ;
+ 
+ 40 ià(!
+ ¥©
+ ) {
+ 
+ 41 ià(
+ gimme
+  =ð
+ G_ARRAY
+ )
+ 
+ 42  --
+ ¥
+ ;
+ 
+ 43 
+ 	`¡r_£t
+ (
+ ¡r
+ ,
+ Yes
+ );
+ 
+ 44 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 45 
+ ¡
+ [
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 46  
+ ¥
+ ;
+ 
+ 48 ià(!
+ s
+ )
+ 
+ 49 
+ 	`çl
+ ("panic: do_match");
+ 
+ 50 ià(
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_USED
+ ) {
+ 
+ 51 #ifdeà
+ DEBUGGING
+ 
+ 
+ 52 ià(
+ debug
+  & 8)
+ 
+ 53 
+ 	`deb
+ ("2.SPAT USED\n");
+ 
+ 55 ià(
+ gimme
+  =ð
+ G_ARRAY
+ )
+ 
+ 56  --
+ ¥
+ ;
+ 
+ 57 
+ 	`¡r_£t
+ (
+ ¡r
+ ,
+ No
+ );
+ 
+ 58 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 59 
+ ¡
+ [
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 60  
+ ¥
+ ;
+ 
+ 62 --
+ ¥
+ ;
+ 
+ 63 ià(
+ ¥©
+ ->
+ ¥©_ruÁime
+ ) {
+ 
+ 64 
+ nošŒp
+  = "|)";
+ 
+ 65 
+ ¥
+  = 
+ 	`ev®
+ (
+ ¥©
+ ->
+ ¥©_ruÁime
+ ,
+ G_SCALAR
+ ,sp);
+ 
+ 66 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 67 
+ t
+  = 
+ 	`¡r_g‘
+ (
+ tmp¡r
+  = 
+ ¡
+ [
+ ¥
+ --]);
+ 
+ 68 
+ nošŒp
+  = "";
+ 
+ 69 #ifdeà
+ DEBUGGING
+ 
+ 
+ 70 ià(
+ debug
+  & 8)
+ 
+ 71 
+ 	`deb
+ ("2.SPAT /%s/\n",
+ t
+ );
+ 
+ 73 ià(
+ ¥©
+ ->
+ ¥©_»gexp
+ ) {
+ 
+ 74 
+ 	`»gä“
+ (
+ ¥©
+ ->
+ ¥©_»gexp
+ );
+ 
+ 75 
+ ¥©
+ ->
+ ¥©_»gexp
+  = 
+ 	`NuÎ
+ (
+ REGEXP
+ *);
+ 
+ 77 
+ ¥©
+ ->
+ ¥©_»gexp
+  = 
+ 	`»gcomp
+ (
+ t
+ ,t+
+ tmp¡r
+ ->
+ ¡r_cur
+ ,
+ 
+ 78 
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_FOLD
+ );
+ 
+ 79 ià(!*
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ´ecomp
+  && 
+ Ï¡¥©
+ )
+ 
+ 80 
+ ¥©
+  = 
+ Ï¡¥©
+ ;
+ 
+ 81 ià(
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_KEEP
+ ) {
+ 
+ 82 ià(
+ ¥©
+ ->
+ ¥©_ruÁime
+ )
+ 
+ 83 
+ 	`¬g_ä“
+ (
+ ¥©
+ ->
+ ¥©_ruÁime
+ );
+ 
+ 84 
+ ¥©
+ ->
+ ¥©_ruÁime
+  = 
+ Nuάg
+ ;
+ 
+ 86 ià(!
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ Ŭ’s
+ )
+ 
+ 87 
+ gimme
+  = 
+ G_SCALAR
+ ;
+ 
+ 88 ià(
+ 	`»gexec
+ (
+ ¥©
+ ->
+ ¥©_»gexp
+ , 
+ s
+ , 
+ ¡»nd
+ , s, 0,
+ 
+ 89 
+ ¤ch¡r
+ ->
+ ¡r_pok
+  & 
+ SP_STUDIED
+  ? srch¡¸: 
+ NuΡr
+ ,
+ 
+ 90 
+ gimme
+  =ð
+ G_ARRAY
+ )) {
+ 
+ 91 ià(
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+ )
+ 
+ 92 
+ cur¥©
+  = 
+ ¥©
+ ;
+ 
+ 93 
+ Ï¡¥©
+  = 
+ ¥©
+ ;
+ 
+ 94 
+ gÙcha
+ ;
+ 
+ 97 ià(
+ gimme
+  =ð
+ G_ARRAY
+ )
+ 
+ 98  
+ ¥
+ ;
+ 
+ 99 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_no
+ );
+ 
+ 100 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 101 
+ ¡
+ [++
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 102  
+ ¥
+ ;
+ 
+ 106 #ifdeà
+ DEBUGGING
+ 
+ 
+ 107 ià(
+ debug
+  & 8) {
+ 
+ 108 
+ ch
+ ;
+ 
+ 110 ià(
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_ONCE
+ )
+ 
+ 111 
+ ch
+  = '?';
+ 
+ 113 
+ ch
+  = '/';
+ 
+ 114 
+ 	`deb
+ ("2.SPAT %c%s%c\n",
+ ch
+ ,
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ´ecomp
+ ,ch);
+ 
+ 117 ià(!*
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ´ecomp
+  && 
+ Ï¡¥©
+ )
+ 
+ 118 
+ ¥©
+  = 
+ Ï¡¥©
+ ;
+ 
+ 119 
+ t
+  = 
+ s
+ ;
+ 
+ 120 ià(
+ myhšt
+ ) {
+ 
+ 121 ià(
+ myhšt
+  < 
+ s
+  || myhšˆ> 
+ ¡»nd
+ )
+ 
+ 122 
+ 	`çl
+ ("panic: hint in do_match");
+ 
+ 123 
+ s
+  = 
+ myhšt
+ ;
+ 
+ 124 ià(
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ »gback
+  >= 0) {
+ 
+ 125 
+ s
+  -ð
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ »gback
+ ;
+ 
+ 126 ià(
+ s
+  < 
+ t
+ )
+ 
+ 127 
+ s
+  = 
+ t
+ ;
+ 
+ 130 
+ s
+  = 
+ t
+ ;
+ 
+ 132 ià(
+ ¥©
+ ->
+ ¥©_shÜt
+ ) {
+ 
+ 133 ià(
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_SCANFIRST
+ ) {
+ 
+ 134 ià(
+ ¤ch¡r
+ ->
+ ¡r_pok
+  & 
+ SP_STUDIED
+ ) {
+ 
+ 135 ià(
+ sü—mfœ¡
+ [
+ ¥©
+ ->
+ ¥©_shÜt
+ ->
+ ¡r_¿»
+ ] < 0)
+ 
+ 136 
+ nÝe
+ ;
+ 
+ 137 ià(!(
+ s
+  = 
+ 	`sü—mš¡r
+ (
+ ¤ch¡r
+ ,
+ ¥©
+ ->
+ ¥©_shÜt
+ )))
+ 
+ 138 
+ nÝe
+ ;
+ 
+ 139 ià(
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_ALL
+ )
+ 
+ 140 
+ yup
+ ;
+ 
+ 142 #iâdeà
+ lšt
+ 
+ 
+ 143 ià(!(
+ s
+  = 
+ 	`fbmš¡r
+ ((*)s,
+ 
+ 144 (*)
+ ¡»nd
+ , 
+ ¥©
+ ->
+ ¥©_shÜt
+ )))
+ 
+ 145 
+ nÝe
+ ;
+ 
+ 147 ià(
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_ALL
+ )
+ 
+ 148 
+ yup
+ ;
+ 
+ 149 ià(
+ s
+  && 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ »gback
+  >= 0) {
+ 
+ 150 ++
+ ¥©
+ ->
+ ¥©_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+ ;
+ 
+ 151 
+ s
+  -ð
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ »gback
+ ;
+ 
+ 152 ià(
+ s
+  < 
+ t
+ )
+ 
+ 153 
+ s
+  = 
+ t
+ ;
+ 
+ 156 
+ s
+  = 
+ t
+ ;
+ 
+ 158 ià(!
+ muÉžše
+  && (*
+ ¥©
+ ->
+ ¥©_shÜt
+ ->
+ ¡r_±r
+  !ð*
+ s
+  ||
+ 
+ 159 
+ 	`bcmp
+ (
+ ¥©
+ ->
+ ¥©_shÜt
+ ->
+ ¡r_±r
+ , 
+ s
+ , s·t->
+ ¥©_¦’
+ ) ))
+ 
+ 160 
+ nÝe
+ ;
+ 
+ 161 ià(--
+ ¥©
+ ->
+ ¥©_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+  < 0) {
+ 
+ 162 
+ 	`¡r_ä“
+ (
+ ¥©
+ ->
+ ¥©_shÜt
+ );
+ 
+ 163 
+ ¥©
+ ->
+ ¥©_shÜt
+  = 
+ NuΡr
+ ;
+ 
+ 166 ià(!
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ Ŭ’s
+ )
+ 
+ 167 
+ gimme
+  = 
+ G_SCALAR
+ ;
+ 
+ 168 ià(
+ 	`»gexec
+ (
+ ¥©
+ ->
+ ¥©_»gexp
+ , 
+ s
+ , 
+ ¡»nd
+ , 
+ t
+ , 0,
+ 
+ 169 
+ ¤ch¡r
+ ->
+ ¡r_pok
+  & 
+ SP_STUDIED
+  ? srch¡¸: 
+ NuΡr
+ ,
+ 
+ 170 
+ gimme
+  =ð
+ G_ARRAY
+ )) {
+ 
+ 171 ià(
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+ )
+ 
+ 172 
+ cur¥©
+  = 
+ ¥©
+ ;
+ 
+ 173 
+ Ï¡¥©
+  = 
+ ¥©
+ ;
+ 
+ 174 ià(
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_ONCE
+ )
+ 
+ 175 
+ ¥©
+ ->
+ ¥©_æags
+  |ð
+ SPAT_USED
+ ;
+ 
+ 176 
+ gÙcha
+ ;
+ 
+ 179 ià(
+ gimme
+  =ð
+ G_ARRAY
+ )
+ 
+ 180  
+ ¥
+ ;
+ 
+ 181 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_no
+ );
+ 
+ 182 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 183 
+ ¡
+ [++
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 184  
+ ¥
+ ;
+ 
+ 189 
+ gÙcha
+ :
+ 
+ 190 ià(
+ gimme
+  =ð
+ G_ARRAY
+ ) {
+ 
+ 191 
+ ™”s
+ , 
+ i
+ , 
+ Ën
+ ;
+ 
+ 193 
+ ™”s
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ Ŭ’s
+ ;
+ 
+ 194 ià(
+ ¥
+  + 
+ ™”s
+  >ð
+ ¡ack
+ ->
+ ¬y_max
+ ) {
+ 
+ 195 
+ 	`a¡Üe
+ (
+ ¡ack
+ ,
+ ¥
+  + 
+ ™”s
+ , 
+ NuΡr
+ );
+ 
+ 196 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 199 
+ i
+  = 1; i <ð
+ ™”s
+ ; i++) {
+ 
+ 200 
+ ¡
+ [++
+ ¥
+ ] = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ );
+ 
+ 201 ià(
+ s
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ¡¬
+ [
+ i
+ ]) {
+ 
+ 202 
+ Ën
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ’dp
+ [
+ i
+ ] - 
+ s
+ ;
+ 
+ 203 ià(
+ Ën
+  > 0)
+ 
+ 204 
+ 	`¡r_n£t
+ (
+ ¡
+ [
+ ¥
+ ],
+ s
+ ,
+ Ën
+ );
+ 
+ 207  
+ ¥
+ ;
+ 
+ 210 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_yes
+ );
+ 
+ 211 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 212 
+ ¡
+ [++
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 213  
+ ¥
+ ;
+ 
+ 216 
+ yup
+ :
+ 
+ 217 ++
+ ¥©
+ ->
+ ¥©_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+ ;
+ 
+ 218 
+ Ï¡¥©
+  = 
+ ¥©
+ ;
+ 
+ 219 ià(
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_ONCE
+ )
+ 
+ 220 
+ ¥©
+ ->
+ ¥©_æags
+  |ð
+ SPAT_USED
+ ;
+ 
+ 221 ià(
+ §wam³r§nd
+ ) {
+ 
+ 222 *
+ tmps
+ ;
+ 
+ 224 ià(
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+ )
+ 
+ 225 
+ 	`Saãä“
+ (
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+ );
+ 
+ 226 
+ tmps
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+  = 
+ 	`n§ve¡r
+ (
+ t
+ ,
+ ¡»nd
+ -t);
+ 
+ 227 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ sub’d
+  = 
+ tmps
+  + (
+ ¡»nd
+ -
+ t
+ );
+ 
+ 228 
+ tmps
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ¡¬
+ [0] =mp + (
+ s
+  - 
+ t
+ );
+ 
+ 229 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ’dp
+ [0] = 
+ tmps
+  + s·t->
+ ¥©_shÜt
+ ->
+ ¡r_cur
+ ;
+ 
+ 230 
+ cur¥©
+  = 
+ ¥©
+ ;
+ 
+ 232 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_yes
+ );
+ 
+ 233 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 234 
+ ¡
+ [++
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 235  
+ ¥
+ ;
+ 
+ 237 
+ nÝe
+ :
+ 
+ 238 ++
+ ¥©
+ ->
+ ¥©_shÜt
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+ ;
+ 
+ 239 ià(
+ gimme
+  =ð
+ G_ARRAY
+ )
+ 
+ 240  
+ ¥
+ ;
+ 
+ 241 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_no
+ );
+ 
+ 242 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 243 
+ ¡
+ [++
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 244  
+ ¥
+ ;
+ 
+ 245 
+ 	}
+ }
+ 
+ 247 #ifdeà
+ BUGGY_MSC
+ 
+ 
+ 248 #´agm¨
+ šŒšsic
+ (
+ memcmp
+ )
+ 
+ 252 
+ 	$do_¥l™
+ (
+ ¡r
+ ,
+ ¥©
+ ,
+ lim™
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 253 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 254 
+ SPAT
+  *
+ ¥©
+ ;
+ 
+ 255 
+ lim™
+ ;
+ 
+ 256 
+ gimme
+ ;
+ 
+ 257 *
+ ¬gÏ¡
+ ;
+ 
+ 259 
+ ARRAY
+  *
+ ¬y
+  = 
+ ¡ack
+ ;
+ 
+ 260 
+ STR
+  **
+ ¡
+  = 
+ ¬y
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 261 
+ ¥
+  = 
+ ¬gÏ¡
+ [0] + 1;
+ 
+ 262 *
+ s
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [
+ ¥
+ ]);
+ 
+ 263 *
+ ¡»nd
+  = 
+ s
+  + 
+ ¡
+ [
+ ¥
+ --]->
+ ¡r_cur
+ ;
+ 
+ 264 
+ STR
+  *
+ d¡r
+ ;
+ 
+ 265 *
+ m
+ ;
+ 
+ 266 
+ ™”s
+  = 0;
+ 
+ 267 
+ max™”s
+  = (
+ ¡»nd
+  - 
+ s
+ ) + 10;
+ 
+ 268 
+ i
+ ;
+ 
+ 269 *
+ Üig
+ ;
+ 
+ 270 
+ Üiglim™
+  = 
+ lim™
+ ;
+ 
+ 271 
+ »®¬¿y
+  = 0;
+ 
+ 273 ià(!
+ ¥©
+  || !
+ s
+ )
+ 
+ 274 
+ 	`çl
+ ("panic: do_split");
+ 
+ 275 ià(
+ ¥©
+ ->
+ ¥©_ruÁime
+ ) {
+ 
+ 276 
+ nošŒp
+  = "|)";
+ 
+ 277 
+ ¥
+  = 
+ 	`ev®
+ (
+ ¥©
+ ->
+ ¥©_ruÁime
+ ,
+ G_SCALAR
+ ,sp);
+ 
+ 278 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 279 
+ m
+  = 
+ 	`¡r_g‘
+ (
+ d¡r
+  = 
+ ¡
+ [
+ ¥
+ --]);
+ 
+ 280 
+ nošŒp
+  = "";
+ 
+ 281 ià(*
+ m
+  =ð' ' && 
+ d¡r
+ ->
+ ¡r_cur
+  == 1) {
+ 
+ 282 
+ 	`¡r_£t
+ (
+ d¡r
+ ,"\\s+");
+ 
+ 283 
+ m
+  = 
+ d¡r
+ ->
+ ¡r_±r
+ ;
+ 
+ 284 
+ ¥©
+ ->
+ ¥©_æags
+  |ð
+ SPAT_SKIPWHITE
+ ;
+ 
+ 286 ià(
+ ¥©
+ ->
+ ¥©_»gexp
+ ) {
+ 
+ 287 
+ 	`»gä“
+ (
+ ¥©
+ ->
+ ¥©_»gexp
+ );
+ 
+ 288 
+ ¥©
+ ->
+ ¥©_»gexp
+  = 
+ 	`NuÎ
+ (
+ REGEXP
+ *);
+ 
+ 290 
+ ¥©
+ ->
+ ¥©_»gexp
+  = 
+ 	`»gcomp
+ (
+ m
+ ,m+
+ d¡r
+ ->
+ ¡r_cur
+ ,
+ 
+ 291 
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_FOLD
+ );
+ 
+ 292 ià(
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_KEEP
+  ||
+ 
+ 293 (
+ ¥©
+ ->
+ ¥©_ruÁime
+ ->
+ ¬g_ty³
+  =ð
+ O_ITEM
+  &&
+ 
+ 294 (
+ ¥©
+ ->
+ ¥©_ruÁime
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_SINGLE
+ ) ) {
+ 
+ 295 
+ 	`¬g_ä“
+ (
+ ¥©
+ ->
+ ¥©_ruÁime
+ );
+ 
+ 296 
+ ¥©
+ ->
+ ¥©_ruÁime
+  = 
+ Nuάg
+ ;
+ 
+ 299 #ifdeà
+ DEBUGGING
+ 
+ 
+ 300 ià(
+ debug
+  & 8) {
+ 
+ 301 
+ 	`deb
+ ("2.SPAT /%s/\n",
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ´ecomp
+ );
+ 
+ 304 
+ ¬y
+  = 
+ 	`¡ab_x¬¿y
+ (
+ ¥©
+ ->
+ ¥©_»¶
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ );
+ 
+ 305 ià(
+ ¬y
+  && (
+ gimme
+  !ð
+ G_ARRAY
+  || (
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_ONCE
+ ))) {
+ 
+ 306 
+ »®¬¿y
+  = 1;
+ 
+ 307 ià(!(
+ ¬y
+ ->
+ ¬y_æags
+  & 
+ ARF_REAL
+ )) {
+ 
+ 308 
+ ¬y
+ ->
+ ¬y_æags
+  |ð
+ ARF_REAL
+ ;
+ 
+ 309 
+ i
+  = 
+ ¬y
+ ->
+ ¬y_fžl
+ ; i >= 0; i--)
+ 
+ 310 
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ i
+ ] = 
+ NuΡr
+ ;
+ 
+ 312 
+ ¬y
+ ->
+ ¬y_fžl
+  = -1;
+ 
+ 313 
+ ¥
+  = -1;
+ 
+ 316 
+ ¬y
+  = 
+ ¡ack
+ ;
+ 
+ 317 
+ Üig
+  = 
+ s
+ ;
+ 
+ 318 ià(
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_SKIPWHITE
+ ) {
+ 
+ 319 
+ 	`i§scii
+ (*
+ s
+ è&& 
+ 	`is¥aû
+ (*s))
+ 
+ 320 
+ s
+ ++;
+ 
+ 322 ià(!
+ lim™
+ )
+ 
+ 323 
+ lim™
+  = 
+ max™”s
+  + 2;
+ 
+ 324 ià(
+ 	`¡rEQ
+ ("\\s+",
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ´ecomp
+ )) {
+ 
+ 325 --
+ lim™
+ ) {
+ 
+ 326 
+ m
+  = 
+ s
+ ; m < 
+ ¡»nd
+  && !(
+ 	`i§scii
+ (*m)&&
+ 	`is¥aû
+ (*m)); m++) ;
+ 
+ 327 ià(
+ m
+  >ð
+ ¡»nd
+ )
+ 
+ 329 
+ d¡r
+  = 
+ 	`SŒ_Ãw
+ (30,
+ m
+ -
+ s
+ );
+ 
+ 330 
+ 	`¡r_n£t
+ (
+ d¡r
+ ,
+ s
+ ,
+ m
+ -s);
+ 
+ 331 ià(!
+ »®¬¿y
+ )
+ 
+ 332 
+ 	`¡r_2m܏l
+ (
+ d¡r
+ );
+ 
+ 333 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ d¡r
+ );
+ 
+ 334 
+ s
+  = 
+ m
+  + 1; s < 
+ ¡»nd
+  && 
+ 	`i§scii
+ (*sè&& 
+ 	`is¥aû
+ (*s); s++) ;
+ 
+ 337 ià(
+ 	`¡rEQ
+ ("^",
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ´ecomp
+ )) {
+ 
+ 338 --
+ lim™
+ ) {
+ 
+ 339 
+ m
+  = 
+ s
+ ; m < 
+ ¡»nd
+  && *m != '\n'; m++) ;
+ 
+ 340 
+ m
+ ++;
+ 
+ 341 ià(
+ m
+  >ð
+ ¡»nd
+ )
+ 
+ 343 
+ d¡r
+  = 
+ 	`SŒ_Ãw
+ (30,
+ m
+ -
+ s
+ );
+ 
+ 344 
+ 	`¡r_n£t
+ (
+ d¡r
+ ,
+ s
+ ,
+ m
+ -s);
+ 
+ 345 ià(!
+ »®¬¿y
+ )
+ 
+ 346 
+ 	`¡r_2m܏l
+ (
+ d¡r
+ );
+ 
+ 347 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ d¡r
+ );
+ 
+ 348 
+ s
+  = 
+ m
+ ;
+ 
+ 351 ià(
+ ¥©
+ ->
+ ¥©_shÜt
+ ) {
+ 
+ 352 
+ i
+  = 
+ ¥©
+ ->
+ ¥©_shÜt
+ ->
+ ¡r_cur
+ ;
+ 
+ 353 ià(
+ i
+  == 1) {
+ 
+ 354 
+ fÞd
+  = (
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_FOLD
+ );
+ 
+ 356 
+ i
+  = *
+ ¥©
+ ->
+ ¥©_shÜt
+ ->
+ ¡r_±r
+ ;
+ 
+ 357 ià(
+ fÞd
+  && 
+ 	`isuµ”
+ (
+ i
+ ))
+ 
+ 358 
+ i
+  = 
+ 	`tÞow”
+ (i);
+ 
+ 359 --
+ lim™
+ ) {
+ 
+ 360 ià(
+ fÞd
+ ) {
+ 
+ 361  
+ m
+  = 
+ s
+ ;
+ 
+ 362 
+ m
+  < 
+ ¡»nd
+  && *m !ð
+ i
+  &&
+ 
+ 363 (!
+ 	`isuµ”
+ (*
+ m
+ è|| 
+ 	`tÞow”
+ (*mè!ð
+ i
+ );
+ 
+ 364 
+ m
+ ++)
+ 
+ 368 
+ m
+  = 
+ s
+ ; m < 
+ ¡»nd
+  && *m !ð
+ i
+ ; m++) ;
+ 
+ 369 ià(
+ m
+  >ð
+ ¡»nd
+ )
+ 
+ 371 
+ d¡r
+  = 
+ 	`SŒ_Ãw
+ (30,
+ m
+ -
+ s
+ );
+ 
+ 372 
+ 	`¡r_n£t
+ (
+ d¡r
+ ,
+ s
+ ,
+ m
+ -s);
+ 
+ 373 ià(!
+ »®¬¿y
+ )
+ 
+ 374 
+ 	`¡r_2m܏l
+ (
+ d¡r
+ );
+ 
+ 375 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ d¡r
+ );
+ 
+ 376 
+ s
+  = 
+ m
+  + 1;
+ 
+ 380 #iâdeà
+ lšt
+ 
+ 
+ 381 
+ s
+  < 
+ ¡»nd
+  && --
+ lim™
+  &&
+ 
+ 382 (
+ m
+ =
+ 	`fbmš¡r
+ ((*)
+ s
+ , (*)
+ ¡»nd
+ ,
+ 
+ 383 
+ ¥©
+ ->
+ ¥©_shÜt
+ )) )
+ 
+ 386 
+ d¡r
+  = 
+ 	`SŒ_Ãw
+ (31,
+ m
+ -
+ s
+ );
+ 
+ 387 
+ 	`¡r_n£t
+ (
+ d¡r
+ ,
+ s
+ ,
+ m
+ -s);
+ 
+ 388 ià(!
+ »®¬¿y
+ )
+ 
+ 389 
+ 	`¡r_2m܏l
+ (
+ d¡r
+ );
+ 
+ 390 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ d¡r
+ );
+ 
+ 391 
+ s
+  = 
+ m
+  + 
+ i
+ ;
+ 
+ 396 
+ max™”s
+  +ð(
+ ¡»nd
+  - 
+ s
+ è* 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ Ŭ’s
+ ;
+ 
+ 397 
+ s
+  < 
+ ¡»nd
+  && --
+ lim™
+  &&
+ 
+ 398 
+ 	`»gexec
+ (
+ ¥©
+ ->
+ ¥©_»gexp
+ , 
+ s
+ , 
+ ¡»nd
+ , 
+ Üig
+ , 1, 
+ NuΡr
+ , 
+ TRUE
+ ) ) {
+ 
+ 399 ià(
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+ 
+ 
+ 400 && 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+  !ð
+ Üig
+ ) {
+ 
+ 401 
+ m
+  = 
+ s
+ ;
+ 
+ 402 
+ s
+  = 
+ Üig
+ ;
+ 
+ 403 
+ Üig
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ subba£
+ ;
+ 
+ 404 
+ s
+  = 
+ Üig
+  + (
+ m
+  - s);
+ 
+ 405 
+ ¡»nd
+  = 
+ s
+  + (¡»nd - 
+ m
+ );
+ 
+ 407 
+ m
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ¡¬
+ [0];
+ 
+ 408 
+ d¡r
+  = 
+ 	`SŒ_Ãw
+ (32,
+ m
+ -
+ s
+ );
+ 
+ 409 
+ 	`¡r_n£t
+ (
+ d¡r
+ ,
+ s
+ ,
+ m
+ -s);
+ 
+ 410 ià(!
+ »®¬¿y
+ )
+ 
+ 411 
+ 	`¡r_2m܏l
+ (
+ d¡r
+ );
+ 
+ 412 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ d¡r
+ );
+ 
+ 413 ià(
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ Ŭ’s
+ ) {
+ 
+ 414 
+ i
+  = 1; i <ð
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ Ŭ’s
+ ; i++) {
+ 
+ 415 
+ s
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ¡¬
+ [
+ i
+ ];
+ 
+ 416 
+ m
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ’dp
+ [
+ i
+ ];
+ 
+ 417 
+ d¡r
+  = 
+ 	`SŒ_Ãw
+ (33,
+ m
+ -
+ s
+ );
+ 
+ 418 
+ 	`¡r_n£t
+ (
+ d¡r
+ ,
+ s
+ ,
+ m
+ -s);
+ 
+ 419 ià(!
+ »®¬¿y
+ )
+ 
+ 420 
+ 	`¡r_2m܏l
+ (
+ d¡r
+ );
+ 
+ 421 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ d¡r
+ );
+ 
+ 424 
+ s
+  = 
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ’dp
+ [0];
+ 
+ 427 ià(
+ »®¬¿y
+ )
+ 
+ 428 
+ ™”s
+  = 
+ ¥
+  + 1;
+ 
+ 430 
+ ™”s
+  = 
+ ¥
+  - 
+ ¬gÏ¡
+ [0];
+ 
+ 431 ià(
+ ™”s
+  > 
+ max™”s
+ )
+ 
+ 432 
+ 	`çl
+ ("Split†oop");
+ 
+ 433 ià(
+ s
+  < 
+ ¡»nd
+  || 
+ Üiglim™
+ ) {
+ 
+ 434 
+ d¡r
+  = 
+ 	`SŒ_Ãw
+ (34,
+ ¡»nd
+ -
+ s
+ );
+ 
+ 435 
+ 	`¡r_n£t
+ (
+ d¡r
+ ,
+ s
+ ,
+ ¡»nd
+ -s);
+ 
+ 436 ià(!
+ »®¬¿y
+ )
+ 
+ 437 
+ 	`¡r_2m܏l
+ (
+ d¡r
+ );
+ 
+ 438 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ d¡r
+ );
+ 
+ 439 
+ ™”s
+ ++;
+ 
+ 442 #iâdeà
+ I286x
+ 
+ 
+ 443 
+ ™”s
+  > 0 && 
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ ]->
+ ¡r_cur
+  == 0)
+ 
+ 444 
+ ™”s
+ --,
+ ¥
+ --;
+ 
+ 446 *
+ z­s
+ ;
+ 
+ 447 
+ z­b
+ ;
+ 
+ 449 ià(
+ ™”s
+  > 0) {
+ 
+ 450 
+ z­s
+  = 
+ 	`¡r_g‘
+ (
+ 	`aãtch
+ (
+ ¬y
+ ,
+ ¥
+ ,
+ FALSE
+ ));
+ 
+ 451 
+ z­b
+  = (è*
+ z­s
+ ;
+ 
+ 454 
+ ™”s
+  > 0 && (!
+ z­b
+ )) {
+ 
+ 455 
+ ™”s
+ --,
+ ¥
+ --;
+ 
+ 456 ià(
+ ™”s
+  > 0) {
+ 
+ 457 
+ z­s
+  = 
+ 	`¡r_g‘
+ (
+ 	`aãtch
+ (
+ ¬y
+ ,
+ ™”s
+ -1,
+ FALSE
+ ));
+ 
+ 458 
+ z­b
+  = (è*
+ z­s
+ ;
+ 
+ 463 ià(
+ »®¬¿y
+ ) {
+ 
+ 464 
+ ¬y
+ ->
+ ¬y_fžl
+  = 
+ ¥
+ ;
+ 
+ 465 ià(
+ gimme
+  =ð
+ G_ARRAY
+ ) {
+ 
+ 466 
+ ¥
+ ++;
+ 
+ 467 
+ 	`a¡Üe
+ (
+ ¡ack
+ , 
+ ¬gÏ¡
+ [0] + 1 + 
+ ¥
+ , 
+ NuΡr
+ );
+ 
+ 468 
+ 	`CÝy
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ , 
+ ¡ack
+ ->¬y_¬¿y + 
+ ¬gÏ¡
+ [0] + 1, 
+ ¥
+ , 
+ STR
+ *);
+ 
+ 469  
+ ¬gÏ¡
+ [0] + 
+ ¥
+ ;
+ 
+ 473 ià(
+ gimme
+  =ð
+ G_ARRAY
+ )
+ 
+ 474  
+ ¥
+ ;
+ 
+ 476 
+ ¥
+  = 
+ ¬gÏ¡
+ [0] + 1;
+ 
+ 477 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()
+ ™”s
+ );
+ 
+ 478 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 479 
+ ¡
+ [
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 480  
+ ¥
+ ;
+ 
+ 481 
+ 	}
+ }
+ 
+ 484 
+ 	$do_uÅack
+ (
+ ¡r
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 485 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 486 
+ gimme
+ ;
+ 
+ 487 *
+ ¬gÏ¡
+ ;
+ 
+ 489 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 490 
+ ¥
+  = 
+ ¬gÏ¡
+ [0] + 1;
+ 
+ 491 *
+ ·t
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [
+ ¥
+ ++]);
+ 
+ 492 *
+ s
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [
+ ¥
+ ]);
+ 
+ 493 *
+ ¡»nd
+  = 
+ s
+  + 
+ ¡
+ [
+ ¥
+ --]->
+ ¡r_cur
+ ;
+ 
+ 494 *
+ ¡rbeg
+  = 
+ s
+ ;
+ 
+ 495 *
+ ·‹nd
+  = 
+ ·t
+  + 
+ ¡
+ [
+ ¥
+ ]->
+ ¡r_cur
+ ;
+ 
+ 496 
+ d©umty³
+ ;
+ 
+ 497 
+ Ën
+ ;
+ 
+ 498 
+ b™s
+ ;
+ 
+ 501 
+ ashÜt
+ ;
+ 
+ 502 
+ ašt
+ ;
+ 
+ 503 
+ ®Úg
+ ;
+ 
+ 504 
+ aushÜt
+ ;
+ 
+ 505 
+ aušt
+ ;
+ 
+ 506 
+ aulÚg
+ ;
+ 
+ 507 *
+ ­Œ
+ ;
+ 
+ 508 
+ aæßt
+ ;
+ 
+ 509 
+ adoubË
+ ;
+ 
+ 510 
+ checksum
+  = 0;
+ 
+ 511 
+ culÚg
+ ;
+ 
+ 512 
+ cdoubË
+ ;
+ 
+ 514 ià(
+ gimme
+  !ð
+ G_ARRAY
+ ) {
+ 
+ 515 
+ ·‹nd
+  = 
+ ·t
+ ; !
+ 	`i§Íha
+ (*patend);…atend++);
+ 
+ 516 ià(
+ 	`šdex
+ ("aAbBhH", *
+ ·‹nd
+ è|| *
+ ·t
+  == '%') {
+ 
+ 517 
+ ·‹nd
+ ++;
+ 
+ 518 
+ 	`isdig™
+ (*
+ ·‹nd
+ ) || *patend == '*')
+ 
+ 519 
+ ·‹nd
+ ++;
+ 
+ 522 
+ ·‹nd
+ ++;
+ 
+ 524 
+ ¥
+ --;
+ 
+ 525 
+ ·t
+  < 
+ ·‹nd
+ ) {
+ 
+ 526 
+ »·r£
+ :
+ 
+ 527 
+ d©umty³
+  = *
+ ·t
+ ++;
+ 
+ 528 ià(
+ ·t
+  >ð
+ ·‹nd
+ )
+ 
+ 529 
+ Ën
+  = 1;
+ 
+ 530 ià(*
+ ·t
+  == '*') {
+ 
+ 531 
+ Ën
+  = 
+ ¡»nd
+  - 
+ ¡rbeg
+ ;
+ 
+ 532 
+ ·t
+ ++;
+ 
+ 534 ià(
+ 	`isdig™
+ (*
+ ·t
+ )) {
+ 
+ 535 
+ Ën
+  = *
+ ·t
+ ++ - '0';
+ 
+ 536 
+ 	`isdig™
+ (*
+ ·t
+ ))
+ 
+ 537 
+ Ën
+  = (ËÀ* 10è+ (*
+ ·t
+ ++ - '0');
+ 
+ 540 
+ Ën
+  = (
+ d©umty³
+  != '@');
+ 
+ 541 
+ d©umty³
+ ) {
+ 
+ 545 ià(
+ Ën
+  =ð1 && 
+ ·t
+ [-1] != '1')
+ 
+ 546 
+ Ën
+  = 16;
+ 
+ 547 
+ checksum
+  = 
+ Ën
+ ;
+ 
+ 548 
+ culÚg
+  = 0;
+ 
+ 549 
+ cdoubË
+  = 0;
+ 
+ 550 ià(
+ ·t
+  < 
+ ·‹nd
+ )
+ 
+ 551 
+ »·r£
+ ;
+ 
+ 554 ià(
+ Ën
+  > 
+ ¡»nd
+  - 
+ s
+ )
+ 
+ 555 
+ 	`çl
+ ("@ outside of string");
+ 
+ 556 
+ s
+  = 
+ ¡rbeg
+  + 
+ Ën
+ ;
+ 
+ 559 ià(
+ Ën
+  > 
+ s
+  - 
+ ¡rbeg
+ )
+ 
+ 560 
+ 	`çl
+ ("X outside of string");
+ 
+ 561 
+ s
+  -ð
+ Ën
+ ;
+ 
+ 564 ià(
+ Ën
+  > 
+ ¡»nd
+  - 
+ s
+ )
+ 
+ 565 
+ 	`çl
+ ("x outside of string");
+ 
+ 566 
+ s
+  +ð
+ Ën
+ ;
+ 
+ 570 ià(
+ Ën
+  > 
+ ¡»nd
+  - 
+ s
+ )
+ 
+ 571 
+ Ën
+  = 
+ ¡»nd
+  - 
+ s
+ ;
+ 
+ 572 ià(
+ checksum
+ )
+ 
+ 573 
+ uch¬_checksum
+ ;
+ 
+ 574 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (35,
+ Ën
+ );
+ 
+ 575 
+ 	`¡r_n£t
+ (
+ ¡r
+ ,
+ s
+ ,
+ Ën
+ );
+ 
+ 576 
+ s
+  +ð
+ Ën
+ ;
+ 
+ 577 ià(
+ d©umty³
+  == 'A') {
+ 
+ 578 
+ ­Œ
+  = 
+ s
+ ;
+ 
+ 579 
+ s
+  = 
+ ¡r
+ ->
+ ¡r_±r
+  + 
+ Ën
+  - 1;
+ 
+ 580 
+ s
+  >ð
+ ¡r
+ ->
+ ¡r_±r
+  && (!* || (
+ 	`i§scii
+ (*s)&&
+ 	`is¥aû
+ (*s))))
+ 
+ 581 
+ s
+ --;
+ 
+ 582 *++
+ s
+  = '\0';
+ 
+ 583 
+ ¡r
+ ->
+ ¡r_cur
+  = 
+ s
+  - sŒ->
+ ¡r_±r
+ ;
+ 
+ 584 
+ s
+  = 
+ ­Œ
+ ;
+ 
+ 586 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ , ++
+ ¥
+ , 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ ));
+ 
+ 590 ià(
+ ·t
+ [-1] =ð'*' || 
+ Ën
+  > (
+ ¡»nd
+  - 
+ s
+ ) * 8)
+ 
+ 591 
+ Ën
+  = (
+ ¡»nd
+  - 
+ s
+ ) * 8;
+ 
+ 592 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (35, 
+ Ën
+  + 1);
+ 
+ 593 
+ ¡r
+ ->
+ ¡r_cur
+  = 
+ Ën
+ ;
+ 
+ 594 
+ ¡r
+ ->
+ ¡r_pok
+  = 1;
+ 
+ 595 
+ ­Œ
+  = 
+ ·t
+ ;
+ 
+ 596 
+ ·t
+  = 
+ ¡r
+ ->
+ ¡r_±r
+ ;
+ 
+ 597 ià(
+ d©umty³
+  == 'b') {
+ 
+ 598 
+ ašt
+  = 
+ Ën
+ ;
+ 
+ 599 
+ Ën
+  = 0;†’ < 
+ ašt
+ ;†en++) {
+ 
+ 600 ià(
+ Ën
+  & 7)
+ 
+ 601 
+ b™s
+  >>= 1;
+ 
+ 603 
+ b™s
+  = *
+ s
+ ++;
+ 
+ 604 *
+ ·t
+ ++ = '0' + (
+ b™s
+  & 1);
+ 
+ 608 
+ ašt
+  = 
+ Ën
+ ;
+ 
+ 609 
+ Ën
+  = 0;†’ < 
+ ašt
+ ;†en++) {
+ 
+ 610 ià(
+ Ën
+  & 7)
+ 
+ 611 
+ b™s
+  <<= 1;
+ 
+ 613 
+ b™s
+  = *
+ s
+ ++;
+ 
+ 614 *
+ ·t
+ ++ = '0' + ((
+ b™s
+  & 128) != 0);
+ 
+ 617 *
+ ·t
+  = '\0';
+ 
+ 618 
+ ·t
+  = 
+ ­Œ
+ ;
+ 
+ 619 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ , ++
+ ¥
+ , 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ ));
+ 
+ 623 ià(
+ ·t
+ [-1] =ð'*' || 
+ Ën
+  > (
+ ¡»nd
+  - 
+ s
+ ) * 2)
+ 
+ 624 
+ Ën
+  = (
+ ¡»nd
+  - 
+ s
+ ) * 2;
+ 
+ 625 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (35, 
+ Ën
+  + 1);
+ 
+ 626 
+ ¡r
+ ->
+ ¡r_cur
+  = 
+ Ën
+ ;
+ 
+ 627 
+ ¡r
+ ->
+ ¡r_pok
+  = 1;
+ 
+ 628 
+ ­Œ
+  = 
+ ·t
+ ;
+ 
+ 629 
+ ·t
+  = 
+ ¡r
+ ->
+ ¡r_±r
+ ;
+ 
+ 630 ià(
+ d©umty³
+  == 'h') {
+ 
+ 631 
+ ašt
+  = 
+ Ën
+ ;
+ 
+ 632 
+ Ën
+  = 0;†’ < 
+ ašt
+ ;†en++) {
+ 
+ 633 ià(
+ Ën
+  & 1)
+ 
+ 634 
+ b™s
+  >>= 4;
+ 
+ 636 
+ b™s
+  = *
+ s
+ ++;
+ 
+ 637 *
+ ·t
+ ++ = 
+ hexdig™
+ [
+ b™s
+  & 15];
+ 
+ 641 
+ ašt
+  = 
+ Ën
+ ;
+ 
+ 642 
+ Ën
+  = 0;†’ < 
+ ašt
+ ;†en++) {
+ 
+ 643 ià(
+ Ën
+  & 1)
+ 
+ 644 
+ b™s
+  <<= 4;
+ 
+ 646 
+ b™s
+  = *
+ s
+ ++;
+ 
+ 647 *
+ ·t
+ ++ = 
+ hexdig™
+ [(
+ b™s
+  >> 4) & 15];
+ 
+ 650 *
+ ·t
+  = '\0';
+ 
+ 651 
+ ·t
+  = 
+ ­Œ
+ ;
+ 
+ 652 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ , ++
+ ¥
+ , 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ ));
+ 
+ 655 ià(
+ Ën
+  > 
+ ¡»nd
+  - 
+ s
+ )
+ 
+ 656 
+ Ën
+  = 
+ ¡»nd
+  - 
+ s
+ ;
+ 
+ 657 ià(
+ checksum
+ ) {
+ 
+ 658 
+ Ën
+ -- > 0) {
+ 
+ 659 
+ ašt
+  = *
+ s
+ ++;
+ 
+ 660 ià(
+ ašt
+  >= 128)
+ 
+ 661 
+ ašt
+  -= 256;
+ 
+ 662 
+ culÚg
+  +ð
+ ašt
+ ;
+ 
+ 666 
+ Ën
+ -- > 0) {
+ 
+ 667 
+ ašt
+  = *
+ s
+ ++;
+ 
+ 668 ià(
+ ašt
+  >= 128)
+ 
+ 669 
+ ašt
+  -= 256;
+ 
+ 670 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (36,0);
+ 
+ 671 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()
+ ašt
+ );
+ 
+ 672 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ , ++
+ ¥
+ , 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ ));
+ 
+ 677 ià(
+ Ën
+  > 
+ ¡»nd
+  - 
+ s
+ )
+ 
+ 678 
+ Ën
+  = 
+ ¡»nd
+  - 
+ s
+ ;
+ 
+ 679 ià(
+ checksum
+ ) {
+ 
+ 680 
+ uch¬_checksum
+ :
+ 
+ 681 
+ Ën
+ -- > 0) {
+ 
+ 682 
+ aušt
+  = *
+ s
+ ++ & 255;
+ 
+ 683 
+ culÚg
+  +ð
+ aušt
+ ;
+ 
+ 687 
+ Ën
+ -- > 0) {
+ 
+ 688 
+ aušt
+  = *
+ s
+ ++ & 255;
+ 
+ 689 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (37,0);
+ 
+ 690 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()
+ aušt
+ );
+ 
+ 691 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ , ++
+ ¥
+ , 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ ));
+ 
+ 696 
+ ®Úg
+  = (
+ ¡»nd
+  - 
+ s
+ ) / ();
+ 
+ 697 ià(
+ Ën
+  > 
+ ®Úg
+ )
+ 
+ 698 
+ Ën
+  = 
+ ®Úg
+ ;
+ 
+ 699 ià(
+ checksum
+ ) {
+ 
+ 700 
+ Ën
+ -- > 0) {
+ 
+ 701 
+ 	`bcÝy
+ (
+ s
+ ,(*)&
+ ashÜt
+ ,());
+ 
+ 702 
+ s
+  += ();
+ 
+ 703 
+ culÚg
+  +ð
+ ashÜt
+ ;
+ 
+ 707 
+ Ën
+ -- > 0) {
+ 
+ 708 
+ 	`bcÝy
+ (
+ s
+ ,(*)&
+ ashÜt
+ ,());
+ 
+ 709 
+ s
+  += ();
+ 
+ 710 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (38,0);
+ 
+ 711 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()
+ ashÜt
+ );
+ 
+ 712 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ , ++
+ ¥
+ , 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ ));
+ 
+ 718 
+ ®Úg
+  = (
+ ¡»nd
+  - 
+ s
+ ) / ();
+ 
+ 719 ià(
+ Ën
+  > 
+ ®Úg
+ )
+ 
+ 720 
+ Ën
+  = 
+ ®Úg
+ ;
+ 
+ 721 ià(
+ checksum
+ ) {
+ 
+ 722 
+ Ën
+ -- > 0) {
+ 
+ 723 
+ 	`bcÝy
+ (
+ s
+ ,(*)&
+ aushÜt
+ ,());
+ 
+ 724 
+ s
+  += ();
+ 
+ 725 #ifdeà
+ HAS_NTOHS
+ 
+ 
+ 726 ià(
+ d©umty³
+  == 'n')
+ 
+ 727 
+ aushÜt
+  = 
+ 	`Áohs
+ (aushort);
+ 
+ 729 
+ culÚg
+  +ð
+ aushÜt
+ ;
+ 
+ 733 
+ Ën
+ -- > 0) {
+ 
+ 734 
+ 	`bcÝy
+ (
+ s
+ ,(*)&
+ aushÜt
+ ,());
+ 
+ 735 
+ s
+  += ();
+ 
+ 736 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (39,0);
+ 
+ 737 #ifdeà
+ HAS_NTOHS
+ 
+ 
+ 738 ià(
+ d©umty³
+  == 'n')
+ 
+ 739 
+ aushÜt
+  = 
+ 	`Áohs
+ (aushort);
+ 
+ 741 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()
+ aushÜt
+ );
+ 
+ 742 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ , ++
+ ¥
+ , 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ ));
+ 
+ 747 
+ ®Úg
+  = (
+ ¡»nd
+  - 
+ s
+ ) / ();
+ 
+ 748 ià(
+ Ën
+  > 
+ ®Úg
+ )
+ 
+ 749 
+ Ën
+  = 
+ ®Úg
+ ;
+ 
+ 750 ià(
+ checksum
+ ) {
+ 
+ 751 
+ Ën
+ -- > 0) {
+ 
+ 752 
+ 	`bcÝy
+ (
+ s
+ ,(*)&
+ ašt
+ ,());
+ 
+ 753 
+ s
+  += ();
+ 
+ 754 ià(
+ checksum
+  > 32)
+ 
+ 755 
+ cdoubË
+  +ð()
+ ašt
+ ;
+ 
+ 757 
+ culÚg
+  +ð
+ ašt
+ ;
+ 
+ 761 
+ Ën
+ -- > 0) {
+ 
+ 762 
+ 	`bcÝy
+ (
+ s
+ ,(*)&
+ ašt
+ ,());
+ 
+ 763 
+ s
+  += ();
+ 
+ 764 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (40,0);
+ 
+ 765 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()
+ ašt
+ );
+ 
+ 766 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ , ++
+ ¥
+ , 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ ));
+ 
+ 771 
+ ®Úg
+  = (
+ ¡»nd
+  - 
+ s
+ ) / ();
+ 
+ 772 ià(
+ Ën
+  > 
+ ®Úg
+ )
+ 
+ 773 
+ Ën
+  = 
+ ®Úg
+ ;
+ 
+ 774 ià(
+ checksum
+ ) {
+ 
+ 775 
+ Ën
+ -- > 0) {
+ 
+ 776 
+ 	`bcÝy
+ (
+ s
+ ,(*)&
+ aušt
+ ,());
+ 
+ 777 
+ s
+  += ();
+ 
+ 778 ià(
+ checksum
+  > 32)
+ 
+ 779 
+ cdoubË
+  +ð()
+ aušt
+ ;
+ 
+ 781 
+ culÚg
+  +ð
+ aušt
+ ;
+ 
+ 785 
+ Ën
+ -- > 0) {
+ 
+ 786 
+ 	`bcÝy
+ (
+ s
+ ,(*)&
+ aušt
+ ,());
+ 
+ 787 
+ s
+  += ();
+ 
+ 788 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (41,0);
+ 
+ 789 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()
+ aušt
+ );
+ 
+ 790 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ , ++
+ ¥
+ , 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ ));
+ 
+ 795 
+ ®Úg
+  = (
+ ¡»nd
+  - 
+ s
+ ) / ();
+ 
+ 796 ià(
+ Ën
+  > 
+ ®Úg
+ )
+ 
+ 797 
+ Ën
+  = 
+ ®Úg
+ ;
+ 
+ 798 ià(
+ checksum
+ ) {
+ 
+ 799 
+ Ën
+ -- > 0) {
+ 
+ 800 
+ 	`bcÝy
+ (
+ s
+ ,(*)&
+ ®Úg
+ ,());
+ 
+ 801 
+ s
+  += ();
+ 
+ 802 ià(
+ checksum
+  > 32)
+ 
+ 803 
+ cdoubË
+  +ð()
+ ®Úg
+ ;
+ 
+ 805 
+ culÚg
+  +ð
+ ®Úg
+ ;
+ 
+ 809 
+ Ën
+ -- > 0) {
+ 
+ 810 
+ 	`bcÝy
+ (
+ s
+ ,(*)&
+ ®Úg
+ ,());
+ 
+ 811 
+ s
+  += ();
+ 
+ 812 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (42,0);
+ 
+ 813 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()
+ ®Úg
+ );
+ 
+ 814 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ , ++
+ ¥
+ , 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ ));
+ 
+ 820 
+ ®Úg
+  = (
+ ¡»nd
+  - 
+ s
+ ) / ();
+ 
+ 821 ià(
+ Ën
+  > 
+ ®Úg
+ )
+ 
+ 822 
+ Ën
+  = 
+ ®Úg
+ ;
+ 
+ 823 ià(
+ checksum
+ ) {
+ 
+ 824 
+ Ën
+ -- > 0) {
+ 
+ 825 
+ 	`bcÝy
+ (
+ s
+ ,(*)&
+ aulÚg
+ ,());
+ 
+ 826 
+ s
+  += ();
+ 
+ 827 #ifdeà
+ HAS_NTOHL
+ 
+ 
+ 828 ià(
+ d©umty³
+  == 'N')
+ 
+ 829 
+ aulÚg
+  = 
+ 	`Áohl
+ (aulong);
+ 
+ 831 ià(
+ checksum
+  > 32)
+ 
+ 832 
+ cdoubË
+  +ð()
+ aulÚg
+ ;
+ 
+ 834 
+ culÚg
+  +ð
+ aulÚg
+ ;
+ 
+ 838 
+ Ën
+ -- > 0) {
+ 
+ 839 
+ 	`bcÝy
+ (
+ s
+ ,(*)&
+ aulÚg
+ ,());
+ 
+ 840 
+ s
+  += ();
+ 
+ 841 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (43,0);
+ 
+ 842 #ifdeà
+ HAS_NTOHL
+ 
+ 
+ 843 ià(
+ d©umty³
+  == 'N')
+ 
+ 844 
+ aulÚg
+  = 
+ 	`Áohl
+ (aulong);
+ 
+ 846 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()
+ aulÚg
+ );
+ 
+ 847 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ , ++
+ ¥
+ , 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ ));
+ 
+ 852 
+ ®Úg
+  = (
+ ¡»nd
+  - 
+ s
+ ) / (*);
+ 
+ 853 ià(
+ Ën
+  > 
+ ®Úg
+ )
+ 
+ 854 
+ Ën
+  = 
+ ®Úg
+ ;
+ 
+ 855 
+ Ën
+ -- > 0) {
+ 
+ 856 ià((*è> 
+ ¡»nd
+  - 
+ s
+ )
+ 
+ 859 
+ 	`bcÝy
+ (
+ s
+ ,(*)&
+ ­Œ
+ ,(*));
+ 
+ 860 
+ s
+  += (*);
+ 
+ 862 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (44,0);
+ 
+ 863 ià(
+ ­Œ
+ )
+ 
+ 864 
+ 	`¡r_£t
+ (
+ ¡r
+ ,
+ ­Œ
+ );
+ 
+ 865 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ , ++
+ ¥
+ , 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ ));
+ 
+ 871 
+ ®Úg
+  = (
+ ¡»nd
+  - 
+ s
+ ) / ();
+ 
+ 872 ià(
+ Ën
+  > 
+ ®Úg
+ )
+ 
+ 873 
+ Ën
+  = 
+ ®Úg
+ ;
+ 
+ 874 ià(
+ checksum
+ ) {
+ 
+ 875 
+ Ën
+ -- > 0) {
+ 
+ 876 
+ 	`bcÝy
+ (
+ s
+ , (*)&
+ aæßt
+ , ());
+ 
+ 877 
+ s
+  += ();
+ 
+ 878 
+ cdoubË
+  +ð
+ aæßt
+ ;
+ 
+ 882 
+ Ën
+ -- > 0) {
+ 
+ 883 
+ 	`bcÝy
+ (
+ s
+ , (*)&
+ aæßt
+ , ());
+ 
+ 884 
+ s
+  += ();
+ 
+ 885 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (47, 0);
+ 
+ 886 
+ 	`¡r_num£t
+ (
+ ¡r
+ , ()
+ aæßt
+ );
+ 
+ 887 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ , ++
+ ¥
+ , 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ ));
+ 
+ 893 
+ ®Úg
+  = (
+ ¡»nd
+  - 
+ s
+ ) / ();
+ 
+ 894 ià(
+ Ën
+  > 
+ ®Úg
+ )
+ 
+ 895 
+ Ën
+  = 
+ ®Úg
+ ;
+ 
+ 896 ià(
+ checksum
+ ) {
+ 
+ 897 
+ Ën
+ -- > 0) {
+ 
+ 898 
+ 	`bcÝy
+ (
+ s
+ , (*)&
+ adoubË
+ , ());
+ 
+ 899 
+ s
+  += ();
+ 
+ 900 
+ cdoubË
+  +ð
+ adoubË
+ ;
+ 
+ 904 
+ Ën
+ -- > 0) {
+ 
+ 905 
+ 	`bcÝy
+ (
+ s
+ , (*)&
+ adoubË
+ , ());
+ 
+ 906 
+ s
+  += ();
+ 
+ 907 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (48, 0);
+ 
+ 908 
+ 	`¡r_num£t
+ (
+ ¡r
+ , ()
+ adoubË
+ );
+ 
+ 909 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ , ++
+ ¥
+ , 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ ));
+ 
+ 914 
+ ®Úg
+  = (
+ ¡»nd
+  - 
+ s
+ ) * 3 / 4;
+ 
+ 915 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (42,
+ ®Úg
+ );
+ 
+ 916 
+ s
+  < 
+ ¡»nd
+  && *s > ' ' && *s < 'a') {
+ 
+ 917 
+ a
+ ,
+ b
+ ,
+ c
+ ,
+ d
+ ;
+ 
+ 918 
+ hunk
+ [4];
+ 
+ 920 
+ hunk
+ [3] = '\0';
+ 
+ 921 
+ Ën
+  = (*
+ s
+ ++ - ' ') & 077;
+ 
+ 922 
+ Ën
+  > 0) {
+ 
+ 923 ià(
+ s
+  < 
+ ¡»nd
+  && *s >= ' ')
+ 
+ 924 
+ a
+  = (*
+ s
+ ++ - ' ') & 077;
+ 
+ 926 
+ a
+  = 0;
+ 
+ 927 ià(
+ s
+  < 
+ ¡»nd
+  && *s >= ' ')
+ 
+ 928 
+ b
+  = (*
+ s
+ ++ - ' ') & 077;
+ 
+ 930 
+ b
+  = 0;
+ 
+ 931 ià(
+ s
+  < 
+ ¡»nd
+  && *s >= ' ')
+ 
+ 932 
+ c
+  = (*
+ s
+ ++ - ' ') & 077;
+ 
+ 934 
+ c
+  = 0;
+ 
+ 935 ià(
+ s
+  < 
+ ¡»nd
+  && *s >= ' ')
+ 
+ 936 
+ d
+  = (*
+ s
+ ++ - ' ') & 077;
+ 
+ 938 
+ d
+  = 0;
+ 
+ 939 
+ hunk
+ [0] = 
+ a
+  << 2 | 
+ b
+  >> 4;
+ 
+ 940 
+ hunk
+ [1] = 
+ b
+  << 4 | 
+ c
+  >> 2;
+ 
+ 941 
+ hunk
+ [2] = 
+ c
+  << 6 | 
+ d
+ ;
+ 
+ 942 
+ 	`¡r_nÿt
+ (
+ ¡r
+ ,
+ hunk
+ , 
+ Ën
+  > 3 ? 3 :†en);
+ 
+ 943 
+ Ën
+  -= 3;
+ 
+ 945 ià(*
+ s
+  == '\n')
+ 
+ 946 
+ s
+ ++;
+ 
+ 947 ià(
+ s
+ [1] == '\n')
+ 
+ 948 
+ s
+  += 2;
+ 
+ 950 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ , ++
+ ¥
+ , 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ ));
+ 
+ 953 ià(
+ checksum
+ ) {
+ 
+ 954 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (42,0);
+ 
+ 955 ià(
+ 	`šdex
+ ("fFdD", 
+ d©umty³
+ ) ||
+ 
+ 956 (
+ checksum
+  > 32 && 
+ 	`šdex
+ ("iIlLN", 
+ d©umty³
+ )) ) {
+ 
+ 957 
+ 	`modf
+ ();
+ 
+ 958 
+ ŒoubË
+ ;
+ 
+ 960 
+ adoubË
+  = 1.0;
+ 
+ 961 
+ checksum
+  >= 16) {
+ 
+ 962 
+ checksum
+  -= 16;
+ 
+ 963 
+ adoubË
+  *= 65536.0;
+ 
+ 965 
+ checksum
+  >= 4) {
+ 
+ 966 
+ checksum
+  -= 4;
+ 
+ 967 
+ adoubË
+  *= 16.0;
+ 
+ 969 
+ checksum
+ --)
+ 
+ 970 
+ adoubË
+  *= 2.0;
+ 
+ 971 
+ ®Úg
+  = (1 << 
+ checksum
+ ) - 1;
+ 
+ 972 
+ cdoubË
+  < 0.0)
+ 
+ 973 
+ cdoubË
+  +ð
+ adoubË
+ ;
+ 
+ 974 
+ cdoubË
+  = 
+ 	`modf
+ (cdoubË / 
+ adoubË
+ , &
+ ŒoubË
+ ) *‡double;
+ 
+ 975 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,
+ cdoubË
+ );
+ 
+ 978 ià(
+ checksum
+  < 32) {
+ 
+ 979 
+ ®Úg
+  = (1 << 
+ checksum
+ ) - 1;
+ 
+ 980 
+ culÚg
+  &ð()
+ ®Úg
+ ;
+ 
+ 982 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()
+ culÚg
+ );
+ 
+ 984 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ , ++
+ ¥
+ , 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ ));
+ 
+ 985 
+ checksum
+  = 0;
+ 
+ 988  
+ ¥
+ ;
+ 
+ 989 
+ 	}
+ }
+ 
+ 992 
+ 	$do_¦iû
+ (
+ ¡ab
+ ,
+ ¡r
+ ,
+ num¬¿y
+ ,
+ lv®
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 993 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 994 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 995 
+ num¬¿y
+ ;
+ 
+ 996 
+ lv®
+ ;
+ 
+ 997 
+ gimme
+ ;
+ 
+ 998 *
+ ¬gÏ¡
+ ;
+ 
+ 1000 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1001 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 1002 
+ max
+  = 
+ ¬gÏ¡
+ [2];
+ 
+ 1003 *
+ tmps
+ ;
+ 
+ 1004 
+ Ën
+ ;
+ 
+ 1005 
+ magic
+  = 0;
+ 
+ 1006 
+ ARRAY
+  *
+ ¬y
+ ;
+ 
+ 1007 
+ HASH
+  *
+ hash
+ ;
+ 
+ 1008 
+ Þd¬yba£
+  = 
+ ¬yba£
+ ;
+ 
+ 1010 ià(
+ num¬¿y
+ ) {
+ 
+ 1011 ià(
+ num¬¿y
+  == 2) {
+ 
+ 1012 
+ ¬y
+  = 
+ ¡ack
+ ;
+ 
+ 1013 
+ ¬y
+ ->
+ ¬y_fžl
+  = 
+ ¬gÏ¡
+ [3];
+ 
+ 1014 
+ ¬yba£
+  -ð
+ max
+  + 1;
+ 
+ 1015 
+ ¡
+ [
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 1016 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(
+ ¥
+  - 1));
+ 
+ 1019 
+ ¬y
+  = 
+ 	`¡ab_¬¿y
+ (
+ ¡ab
+ );
+ 
+ 1022 ià(
+ lv®
+ ) {
+ 
+ 1023 ià(
+ ¡ab
+  =ð
+ ’v¡ab
+ )
+ 
+ 1024 
+ magic
+  = 'E';
+ 
+ 1025 ià(
+ ¡ab
+  =ð
+ sig¡ab
+ )
+ 
+ 1026 
+ magic
+  = 'S';
+ 
+ 1027 #ifdeà
+ SOME_DBM
+ 
+ 
+ 1028 ià(
+ 	`¡ab_hash
+ (
+ ¡ab
+ )->
+ tbl_dbm
+ )
+ 
+ 1029 
+ magic
+  = 'D';
+ 
+ 1032 
+ hash
+  = 
+ 	`¡ab_hash
+ (
+ ¡ab
+ );
+ 
+ 1035 ià(
+ gimme
+  =ð
+ G_ARRAY
+ ) {
+ 
+ 1036 ià(
+ num¬¿y
+ ) {
+ 
+ 1037 
+ ¥
+  < 
+ max
+ ) {
+ 
+ 1038 ià(
+ ¡
+ [++
+ ¥
+ ]) {
+ 
+ 1039 
+ ¡
+ [
+ ¥
+ -1] = 
+ 	`aãtch
+ (
+ ¬y
+ ,
+ 
+ 1040 (()
+ 	`¡r_gnum
+ (
+ ¡
+ [
+ ¥
+ ])è- 
+ ¬yba£
+ , 
+ lv®
+ );
+ 
+ 1043 
+ ¡
+ [
+ ¥
+ -1] = &
+ ¡r_undef
+ ;
+ 
+ 1047 
+ ¥
+  < 
+ max
+ ) {
+ 
+ 1048 ià(
+ ¡
+ [++
+ ¥
+ ]) {
+ 
+ 1049 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [
+ ¥
+ ]);
+ 
+ 1050 
+ Ën
+  = 
+ ¡
+ [
+ ¥
+ ]->
+ ¡r_cur
+ ;
+ 
+ 1051 
+ ¡
+ [
+ ¥
+ -1] = 
+ 	`hãtch
+ (
+ hash
+ ,
+ tmps
+ ,
+ Ën
+ , 
+ lv®
+ );
+ 
+ 1052 ià(
+ magic
+ )
+ 
+ 1053 
+ 	`¡r_magic
+ (
+ ¡
+ [
+ ¥
+ -1],
+ ¡ab
+ ,
+ magic
+ ,
+ tmps
+ ,
+ Ën
+ );
+ 
+ 1056 
+ ¡
+ [
+ ¥
+ -1] = &
+ ¡r_undef
+ ;
+ 
+ 1059 
+ ¥
+ --;
+ 
+ 1062 ià(
+ num¬¿y
+ ) {
+ 
+ 1063 ià(
+ ¡
+ [
+ max
+ ])
+ 
+ 1064 
+ ¡
+ [
+ ¥
+ ] = 
+ 	`aãtch
+ (
+ ¬y
+ ,
+ 
+ 1065 (()
+ 	`¡r_gnum
+ (
+ ¡
+ [
+ max
+ ])è- 
+ ¬yba£
+ , 
+ lv®
+ );
+ 
+ 1067 
+ ¡
+ [
+ ¥
+ ] = &
+ ¡r_undef
+ ;
+ 
+ 1070 ià(
+ ¡
+ [
+ max
+ ]) {
+ 
+ 1071 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [
+ max
+ ]);
+ 
+ 1072 
+ Ën
+  = 
+ ¡
+ [
+ max
+ ]->
+ ¡r_cur
+ ;
+ 
+ 1073 
+ ¡
+ [
+ ¥
+ ] = 
+ 	`hãtch
+ (
+ hash
+ ,
+ tmps
+ ,
+ Ën
+ , 
+ lv®
+ );
+ 
+ 1074 ià(
+ magic
+ )
+ 
+ 1075 
+ 	`¡r_magic
+ (
+ ¡
+ [
+ ¥
+ ],
+ ¡ab
+ ,
+ magic
+ ,
+ tmps
+ ,
+ Ën
+ );
+ 
+ 1078 
+ ¡
+ [
+ ¥
+ ] = &
+ ¡r_undef
+ ;
+ 
+ 1081 
+ ¬yba£
+  = 
+ Þd¬yba£
+ ;
+ 
+ 1082  
+ ¥
+ ;
+ 
+ 1083 
+ 	}
+ }
+ 
+ 1086 
+ 	$do_¥liû
+ (
+ ¬y
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1087 
+ ARRAY
+  *
+ ¬y
+ ;
+ 
+ 1088 
+ gimme
+ ;
+ 
+ 1089 *
+ ¬gÏ¡
+ ;
+ 
+ 1091 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1092 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 1093 
+ max
+  = 
+ ¬gÏ¡
+ [2] + 1;
+ 
+ 1094 
+ STR
+  **
+ ¤c
+ ;
+ 
+ 1095 
+ STR
+  **
+ d¡
+ ;
+ 
+ 1096 
+ i
+ ;
+ 
+ 1097 
+ off£t
+ ;
+ 
+ 1098 
+ Ëngth
+ ;
+ 
+ 1099 
+ ÃwËn
+ ;
+ 
+ 1100 
+ aá”
+ ;
+ 
+ 1101 
+ diff
+ ;
+ 
+ 1102 
+ STR
+  **
+ tm·ryv®
+ ;
+ 
+ 1104 ià(++
+ ¥
+  < 
+ max
+ ) {
+ 
+ 1105 
+ off£t
+  = (()
+ 	`¡r_gnum
+ (
+ ¡
+ [
+ ¥
+ ])è- 
+ ¬yba£
+ ;
+ 
+ 1106 ià(
+ off£t
+  < 0)
+ 
+ 1107 
+ off£t
+  +ð
+ ¬y
+ ->
+ ¬y_fžl
+  + 1;
+ 
+ 1108 ià(++
+ ¥
+  < 
+ max
+ ) {
+ 
+ 1109 
+ Ëngth
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [
+ ¥
+ ++]);
+ 
+ 1110 ià(
+ Ëngth
+  < 0)
+ 
+ 1111 
+ Ëngth
+  = 0;
+ 
+ 1114 
+ Ëngth
+  = 
+ ¬y
+ ->
+ ¬y_max
+ ;
+ 
+ 1117 
+ off£t
+  = 0;
+ 
+ 1118 
+ Ëngth
+  = 
+ ¬y
+ ->
+ ¬y_max
+ ;
+ 
+ 1120 ià(
+ off£t
+  < 0) {
+ 
+ 1121 
+ Ëngth
+  +ð
+ off£t
+ ;
+ 
+ 1122 
+ off£t
+  = 0;
+ 
+ 1123 ià(
+ Ëngth
+  < 0)
+ 
+ 1124 
+ Ëngth
+  = 0;
+ 
+ 1126 ià(
+ off£t
+  > 
+ ¬y
+ ->
+ ¬y_fžl
+  + 1)
+ 
+ 1127 
+ off£t
+  = 
+ ¬y
+ ->
+ ¬y_fžl
+  + 1;
+ 
+ 1128 
+ aá”
+  = 
+ ¬y
+ ->
+ ¬y_fžl
+  + 1 - (
+ off£t
+  + 
+ Ëngth
+ );
+ 
+ 1129 ià(
+ aá”
+  < 0) {
+ 
+ 1130 
+ Ëngth
+  +ð
+ aá”
+ ;
+ 
+ 1131 
+ aá”
+  = 0;
+ 
+ 1132 ià(!
+ ¬y
+ ->
+ ¬y_®loc
+ ) {
+ 
+ 1133 
+ 	`afžl
+ (
+ ¬y
+ ,0);
+ 
+ 1134 
+ 	`afžl
+ (
+ ¬y
+ ,-1);
+ 
+ 1140 
+ ÃwËn
+  = 
+ max
+  - 
+ ¥
+ ;
+ 
+ 1141 
+ diff
+  = 
+ ÃwËn
+  - 
+ Ëngth
+ ;
+ 
+ 1143 ià(
+ diff
+  < 0) {
+ 
+ 1144 ià(
+ ÃwËn
+ ) {
+ 
+ 1145 
+ 	`New
+ (451, 
+ tm·ryv®
+ , 
+ ÃwËn
+ , 
+ STR
+ *);
+ 
+ 1146 
+ 	`CÝy
+ (
+ ¡
+ +
+ ¥
+ , 
+ tm·ryv®
+ , 
+ ÃwËn
+ , 
+ STR
+ *);
+ 
+ 1149 
+ ¥
+  = 
+ ¬gÏ¡
+ [0] + 1;
+ 
+ 1150 ià(
+ gimme
+  =ð
+ G_ARRAY
+ ) {
+ 
+ 1151 ià(
+ ¥
+  + 
+ Ëngth
+  >ð
+ ¡ack
+ ->
+ ¬y_max
+ ) {
+ 
+ 1152 
+ 	`a¡Üe
+ (
+ ¡ack
+ ,
+ ¥
+  + 
+ Ëngth
+ , 
+ NuΡr
+ );
+ 
+ 1153 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1155 
+ 	`CÝy
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ +
+ off£t
+ , 
+ ¡
+ +
+ ¥
+ , 
+ Ëngth
+ , 
+ STR
+ *);
+ 
+ 1156 ià(
+ ¬y
+ ->
+ ¬y_æags
+  & 
+ ARF_REAL
+ ) {
+ 
+ 1157 
+ i
+  = 
+ Ëngth
+ , 
+ d¡
+  = 
+ ¡
+ +
+ ¥
+ ; i; i--)
+ 
+ 1158 
+ 	`¡r_2m܏l
+ (*
+ d¡
+ ++);
+ 
+ 1160 
+ ¥
+  +ð
+ Ëngth
+  - 1;
+ 
+ 1163 
+ ¡
+ [
+ ¥
+ ] = 
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ off£t
+ +
+ Ëngth
+ -1];
+ 
+ 1164 ià(
+ ¬y
+ ->
+ ¬y_æags
+  & 
+ ARF_REAL
+ )
+ 
+ 1165 
+ 	`¡r_2m܏l
+ (
+ ¡
+ [
+ ¥
+ ]);
+ 
+ 1167 
+ ¬y
+ ->
+ ¬y_fžl
+  +ð
+ diff
+ ;
+ 
+ 1171 ià(
+ off£t
+  < 
+ aá”
+ ) {
+ 
+ 1172 ià(
+ off£t
+ ) {
+ 
+ 1173 
+ ¤c
+  = &
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ off£t
+ -1];
+ 
+ 1174 
+ d¡
+  = 
+ ¤c
+  - 
+ diff
+ ;
+ 
+ 1175 
+ i
+  = 
+ off£t
+ ; i > 0; i--)
+ 
+ 1176 *
+ d¡
+ -- = *
+ ¤c
+ --;
+ 
+ 1178 
+ 	`Z”o
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ , -
+ diff
+ , 
+ STR
+ *);
+ 
+ 1179 
+ ¬y
+ ->
+ ¬y_¬¿y
+  -ð
+ diff
+ ;
+ 
+ 1180 
+ ¬y
+ ->
+ ¬y_max
+  +ð
+ diff
+ ;
+ 
+ 1183 ià(
+ aá”
+ ) {
+ 
+ 1184 
+ ¤c
+  = 
+ ¬y
+ ->
+ ¬y_¬¿y
+  + 
+ off£t
+  + 
+ Ëngth
+ ;
+ 
+ 1185 
+ d¡
+  = 
+ ¤c
+  + 
+ diff
+ ;
+ 
+ 1186 
+ 	`CÝy
+ (
+ ¤c
+ , 
+ d¡
+ , 
+ aá”
+ , 
+ STR
+ *);
+ 
+ 1188 
+ 	`Z”o
+ (&
+ ¬y
+ ->
+ ¬y_¬¿y
+ [¬y->
+ ¬y_fžl
+ +1], -
+ diff
+ , 
+ STR
+ *);
+ 
+ 1191 ià(
+ ÃwËn
+ ) {
+ 
+ 1192 
+ ¤c
+  = 
+ tm·ryv®
+ , 
+ d¡
+  = 
+ ¬y
+ ->
+ ¬y_¬¿y
+  + 
+ off£t
+ ;
+ 
+ 1193 
+ ÃwËn
+ ;‚ewlen--) {
+ 
+ 1194 *
+ d¡
+  = 
+ 	`SŒ_Ãw
+ (46,0);
+ 
+ 1195 
+ 	`¡r_s£t
+ (*
+ d¡
+ ++,*
+ ¤c
+ ++);
+ 
+ 1197 
+ 	`Saãä“
+ (
+ tm·ryv®
+ );
+ 
+ 1201 ià(
+ Ëngth
+ ) {
+ 
+ 1202 
+ 	`New
+ (452, 
+ tm·ryv®
+ , 
+ Ëngth
+ , 
+ STR
+ *);
+ 
+ 1203 
+ 	`CÝy
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ +
+ off£t
+ , 
+ tm·ryv®
+ , 
+ Ëngth
+ , 
+ STR
+ *);
+ 
+ 1206 ià(
+ diff
+  > 0) {
+ 
+ 1210 ià(
+ off£t
+  < 
+ aá”
+  && 
+ diff
+  <ð
+ ¬y
+ ->
+ ¬y_¬¿y
+  -‡ry->
+ ¬y_®loc
+ ) {
+ 
+ 1211 ià(
+ off£t
+ ) {
+ 
+ 1212 
+ ¤c
+  = 
+ ¬y
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1213 
+ d¡
+  = 
+ ¤c
+  - 
+ diff
+ ;
+ 
+ 1214 
+ 	`CÝy
+ (
+ ¤c
+ , 
+ d¡
+ , 
+ off£t
+ , 
+ STR
+ *);
+ 
+ 1216 
+ ¬y
+ ->
+ ¬y_¬¿y
+  -ð
+ diff
+ ;
+ 
+ 1217 
+ ¬y
+ ->
+ ¬y_max
+  +ð
+ diff
+ ;
+ 
+ 1218 
+ ¬y
+ ->
+ ¬y_fžl
+  +ð
+ diff
+ ;
+ 
+ 1221 ià(
+ ¬y
+ ->
+ ¬y_fžl
+  + 
+ diff
+  >ð¬y->
+ ¬y_max
+ )
+ 
+ 1222 
+ 	`a¡Üe
+ (
+ ¬y
+ ,‡ry->
+ ¬y_fžl
+  + 
+ diff
+ , 
+ NuΡr
+ );
+ 
+ 1224 
+ ¬y
+ ->
+ ¬y_fžl
+  +ð
+ diff
+ ;
+ 
+ 1225 ià(
+ aá”
+ ) {
+ 
+ 1226 
+ d¡
+  = 
+ ¬y
+ ->
+ ¬y_¬¿y
+  +‡ry->
+ ¬y_fžl
+ ;
+ 
+ 1227 
+ ¤c
+  = 
+ d¡
+  - 
+ diff
+ ;
+ 
+ 1228 
+ i
+  = 
+ aá”
+ ; i; i--) {
+ 
+ 1229 ià(*
+ d¡
+ )
+ 
+ 1230 
+ 	`¡r_ä“
+ (*
+ d¡
+ );
+ 
+ 1231 *
+ d¡
+ -- = *
+ ¤c
+ ;
+ 
+ 1232 *
+ ¤c
+ -- = 
+ NuΡr
+ ;
+ 
+ 1238 
+ ¤c
+  = 
+ ¡
+ +
+ ¥
+ , 
+ d¡
+  = 
+ ¬y
+ ->
+ ¬y_¬¿y
+  + 
+ off£t
+ ; 
+ ÃwËn
+ ;‚ewlen--) {
+ 
+ 1239 *
+ d¡
+  = 
+ 	`SŒ_Ãw
+ (46,0);
+ 
+ 1240 
+ 	`¡r_s£t
+ (*
+ d¡
+ ++,*
+ ¤c
+ ++);
+ 
+ 1242 
+ ¥
+  = 
+ ¬gÏ¡
+ [0] + 1;
+ 
+ 1243 ià(
+ gimme
+  =ð
+ G_ARRAY
+ ) {
+ 
+ 1244 ià(
+ Ëngth
+ ) {
+ 
+ 1245 
+ 	`CÝy
+ (
+ tm·ryv®
+ , 
+ ¡
+ +
+ ¥
+ , 
+ Ëngth
+ , 
+ STR
+ *);
+ 
+ 1246 ià(
+ ¬y
+ ->
+ ¬y_æags
+  & 
+ ARF_REAL
+ ) {
+ 
+ 1247 
+ i
+  = 
+ Ëngth
+ , 
+ d¡
+  = 
+ ¡
+ +
+ ¥
+ ; i; i--)
+ 
+ 1248 
+ 	`¡r_2m܏l
+ (*
+ d¡
+ ++);
+ 
+ 1250 
+ 	`Saãä“
+ (
+ tm·ryv®
+ );
+ 
+ 1252 
+ ¥
+  +ð
+ Ëngth
+  - 1;
+ 
+ 1254 ià(
+ Ëngth
+ ) {
+ 
+ 1255 
+ ¡
+ [
+ ¥
+ ] = 
+ tm·ryv®
+ [
+ Ëngth
+ -1];
+ 
+ 1256 ià(
+ ¬y
+ ->
+ ¬y_æags
+  & 
+ ARF_REAL
+ )
+ 
+ 1257 
+ 	`¡r_2m܏l
+ (
+ ¡
+ [
+ ¥
+ ]);
+ 
+ 1258 
+ 	`Saãä“
+ (
+ tm·ryv®
+ );
+ 
+ 1261 
+ ¡
+ [
+ ¥
+ ] = &
+ ¡r_undef
+ ;
+ 
+ 1263  
+ ¥
+ ;
+ 
+ 1264 
+ 	}
+ }
+ 
+ 1267 
+ 	$do_g»p
+ (
+ ¬g
+ ,
+ ¡r
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1268 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 1269 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1270 
+ gimme
+ ;
+ 
+ 1271 *
+ ¬gÏ¡
+ ;
+ 
+ 1273 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1274 
+ d¡
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 1275 
+ ¤c
+  = 
+ d¡
+  + 1;
+ 
+ 1276 
+ ¥
+  = 
+ ¬gÏ¡
+ [2];
+ 
+ 1277 
+ i
+  = 
+ ¥
+  - 
+ ¬gÏ¡
+ [1];
+ 
+ 1278 
+ Þd§ve
+  = 
+ §ve¡ack
+ ->
+ ¬y_fžl
+ ;
+ 
+ 1279 
+ SPAT
+  *
+ Þd¥©
+  = 
+ cur¥©
+ ;
+ 
+ 1280 
+ Þdtmps_ba£
+  = 
+ tmps_ba£
+ ;
+ 
+ 1282 
+ 	`§ve¥Œ
+ (&
+ 	`¡ab_v®
+ (
+ def¡ab
+ ));
+ 
+ 1283 
+ tmps_ba£
+  = 
+ tmps_max
+ ;
+ 
+ 1284 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è!ð
+ A_EXPR
+ ) {
+ 
+ 1285 
+ ¬g
+ [1].
+ ¬g_ty³
+  &ð
+ A_MASK
+ ;
+ 
+ 1286 
+ 	`dehoi¡
+ (
+ ¬g
+ ,1);
+ 
+ 1287 
+ ¬g
+ [1].
+ ¬g_ty³
+  |ð
+ A_DONT
+ ;
+ 
+ 1289 
+ ¬g
+  =‡rg[1].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ;
+ 
+ 1290 
+ i
+ -- > 0) {
+ 
+ 1291 ià(
+ ¡
+ [
+ ¤c
+ ])
+ 
+ 1292 
+ 	`¡ab_v®
+ (
+ def¡ab
+ èð
+ ¡
+ [
+ ¤c
+ ];
+ 
+ 1294 
+ 	`¡ab_v®
+ (
+ def¡ab
+ èð
+ 	`¡r_m܏l
+ (&
+ ¡r_undef
+ );
+ 
+ 1295 ()
+ 	`ev®
+ (
+ ¬g
+ ,
+ G_SCALAR
+ ,
+ ¥
+ );
+ 
+ 1296 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1297 ià(
+ 	`¡r_Œue
+ (
+ ¡
+ [
+ ¥
+ +1]))
+ 
+ 1298 
+ ¡
+ [
+ d¡
+ ++] = st[
+ ¤c
+ ];
+ 
+ 1299 
+ ¤c
+ ++;
+ 
+ 1300 
+ cur¥©
+  = 
+ Þd¥©
+ ;
+ 
+ 1302 
+ 	`»¡Ü–i¡
+ (
+ Þd§ve
+ );
+ 
+ 1303 
+ tmps_ba£
+  = 
+ Þdtmps_ba£
+ ;
+ 
+ 1304 ià(
+ gimme
+  !ð
+ G_ARRAY
+ ) {
+ 
+ 1305 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(
+ d¡
+  - 
+ ¬gÏ¡
+ [1]));
+ 
+ 1306 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 1307 
+ ¡
+ [
+ ¬gÏ¡
+ [0]+1] = 
+ ¡r
+ ;
+ 
+ 1308  
+ ¬gÏ¡
+ [0]+1;
+ 
+ 1310  
+ ¬gÏ¡
+ [0] + (
+ d¡
+  -‡rglast[1]);
+ 
+ 1311 
+ 	}
+ }
+ 
+ 1314 
+ 	$do_»v”£
+ (
+ ¬gÏ¡
+ )
+ 
+ 1315 *
+ ¬gÏ¡
+ ;
+ 
+ 1317 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1318 
+ STR
+  **
+ up
+  = &
+ ¡
+ [
+ ¬gÏ¡
+ [1]];
+ 
+ 1319 
+ STR
+  **
+ down
+  = &
+ ¡
+ [
+ ¬gÏ¡
+ [2]];
+ 
+ 1320 
+ i
+  = 
+ ¬gÏ¡
+ [2] -‡rglast[1];
+ 
+ 1322 
+ i
+ -- > 0) {
+ 
+ 1323 *
+ up
+ ++ = *
+ down
+ ;
+ 
+ 1324 ià(
+ i
+ -- > 0)
+ 
+ 1325 *
+ down
+ -- = *
+ up
+ ;
+ 
+ 1327 
+ i
+  = 
+ ¬gÏ¡
+ [2] -‡rglast[1];
+ 
+ 1328 
+ 	`CÝy
+ (
+ down
+ +1,
+ up
+ ,
+ i
+ /2,
+ STR
+ *);
+ 
+ 1329  
+ ¬gÏ¡
+ [2] - 1;
+ 
+ 1330 
+ 	}
+ }
+ 
+ 1333 
+ 	$do_¤ev”£
+ (
+ ¡r
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1334 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1335 *
+ ¬gÏ¡
+ ;
+ 
+ 1337 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1338 *
+ up
+ ;
+ 
+ 1339 *
+ down
+ ;
+ 
+ 1340 
+ tmp
+ ;
+ 
+ 1342 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,
+ ¡
+ [
+ ¬gÏ¡
+ [2]]);
+ 
+ 1343 
+ up
+  = 
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 1344 ià(
+ ¡r
+ ->
+ ¡r_cur
+  > 1) {
+ 
+ 1345 
+ down
+  = 
+ ¡r
+ ->
+ ¡r_±r
+  + sŒ->
+ ¡r_cur
+  - 1;
+ 
+ 1346 
+ down
+  > 
+ up
+ ) {
+ 
+ 1347 
+ tmp
+  = *
+ up
+ ;
+ 
+ 1348 *
+ up
+ ++ = *
+ down
+ ;
+ 
+ 1349 *
+ down
+ -- = 
+ tmp
+ ;
+ 
+ 1352 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 1353 
+ ¡
+ [
+ ¬gÏ¡
+ [0]+1] = 
+ ¡r
+ ;
+ 
+ 1354  
+ ¬gÏ¡
+ [0]+1;
+ 
+ 1355 
+ 	}
+ }
+ 
+ 1357 
+ CMD
+  *
+ 	gsÜtcmd
+ ;
+ 
+ 1358 
+ HASH
+  *
+ 	gsÜt¡ash
+  = 
+ NuÎ
+ (HASH*);
+ 
+ 1359 
+ STAB
+  *
+ 	gfœ¡¡ab
+  = 
+ NuΡab
+ ;
+ 
+ 1360 
+ STAB
+  *
+ 	g£cÚd¡ab
+  = 
+ NuΡab
+ ;
+ 
+ 1363 
+ 	$do_sÜt
+ (
+ ¡r
+ ,
+ ¡ab
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1364 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1365 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 1366 
+ gimme
+ ;
+ 
+ 1367 *
+ ¬gÏ¡
+ ;
+ 
+ 1369 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1370 
+ ¥
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 1371 
+ STR
+  **
+ up
+ ;
+ 
+ 1372 
+ max
+  = 
+ ¬gÏ¡
+ [2] - 
+ ¥
+ ;
+ 
+ 1373 
+ i
+ ;
+ 
+ 1374 
+ 	`sÜtcmp
+ ();
+ 
+ 1375 
+ 	`sÜtsub
+ ();
+ 
+ 1376 
+ STR
+  *
+ Þdfœ¡
+ ;
+ 
+ 1377 
+ STR
+  *
+ Þd£cÚd
+ ;
+ 
+ 1378 
+ ARRAY
+  *
+ Þd¡ack
+ ;
+ 
+ 1379 
+ ARRAY
+  *
+ sÜt¡ack
+  = 
+ 	`NuÎ
+ (ARRAY*);
+ 
+ 1381 ià(
+ gimme
+  !ð
+ G_ARRAY
+ ) {
+ 
+ 1382 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_undef
+ );
+ 
+ 1383 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 1384 
+ ¡
+ [
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 1385  
+ ¥
+ ;
+ 
+ 1387 
+ up
+  = &
+ ¡
+ [
+ ¥
+ ];
+ 
+ 1388 
+ ¡
+  +ð
+ ¥
+ ;
+ 
+ 1389 
+ i
+  = 1; i <ð
+ max
+ ; i++) {
+ 
+ 1390 ià(*
+ up
+  = 
+ ¡
+ [
+ i
+ ]) {
+ 
+ 1391 ià(!(*
+ up
+ )->
+ ¡r_pok
+ )
+ 
+ 1392 ()
+ 	`¡r_2±r
+ (*
+ up
+ );
+ 
+ 1394 (*
+ up
+ )->
+ ¡r_pok
+  &ð~
+ SP_TEMP
+ ;
+ 
+ 1395 
+ up
+ ++;
+ 
+ 1398 
+ ¡
+  -ð
+ ¥
+ ;
+ 
+ 1399 
+ max
+  = 
+ up
+  - &
+ ¡
+ [
+ ¥
+ ];
+ 
+ 1400 
+ ¥
+ --;
+ 
+ 1401 ià(
+ max
+  > 1) {
+ 
+ 1402 ià(
+ ¡ab
+ ) {
+ 
+ 1403 
+ Þdtmps_ba£
+  = 
+ tmps_ba£
+ ;
+ 
+ 1405 ià(!
+ 	`¡ab_sub
+ (
+ ¡ab
+ è|| !(
+ sÜtcmd
+  = sb_sub(¡ab)->
+ cmd
+ ))
+ 
+ 1406 
+ 	`çl
+ ("Undefšed subroutš\"%s\" iÀsÜt", 
+ 	`¡ab_Çme
+ (
+ ¡ab
+ ));
+ 
+ 1407 ià(!
+ sÜt¡ack
+ ) {
+ 
+ 1408 
+ sÜt¡ack
+  = 
+ 	`ªew
+ (
+ NuΡab
+ );
+ 
+ 1409 
+ 	`a¡Üe
+ (
+ sÜt¡ack
+ , 0, 
+ NuΡr
+ );
+ 
+ 1410 
+ 	`aþ—r
+ (
+ sÜt¡ack
+ );
+ 
+ 1411 
+ sÜt¡ack
+ ->
+ ¬y_æags
+  = 0;
+ 
+ 1413 
+ Þd¡ack
+  = 
+ ¡ack
+ ;
+ 
+ 1414 
+ ¡ack
+  = 
+ sÜt¡ack
+ ;
+ 
+ 1415 
+ tmps_ba£
+  = 
+ tmps_max
+ ;
+ 
+ 1416 ià(
+ sÜt¡ash
+  !ð
+ 	`¡ab_¡ash
+ (
+ ¡ab
+ )) {
+ 
+ 1417 
+ fœ¡¡ab
+  = 
+ 	`¡ab’t
+ ("a",
+ TRUE
+ );
+ 
+ 1418 
+ £cÚd¡ab
+  = 
+ 	`¡ab’t
+ ("b",
+ TRUE
+ );
+ 
+ 1419 
+ sÜt¡ash
+  = 
+ 	`¡ab_¡ash
+ (
+ ¡ab
+ );
+ 
+ 1421 
+ Þdfœ¡
+  = 
+ 	`¡ab_v®
+ (
+ fœ¡¡ab
+ );
+ 
+ 1422 
+ Þd£cÚd
+  = 
+ 	`¡ab_v®
+ (
+ £cÚd¡ab
+ );
+ 
+ 1423 #iâdeà
+ lšt
+ 
+ 
+ 1424 
+ 	`qsÜt
+ ((*)(
+ ¡
+ +
+ ¥
+ +1),
+ max
+ ,(
+ STR
+ *),
+ sÜtsub
+ );
+ 
+ 1426 
+ 	`qsÜt
+ (
+ NuÎch
+ ,
+ max
+ ,(
+ STR
+ *),
+ sÜtsub
+ );
+ 
+ 1428 
+ 	`¡ab_v®
+ (
+ fœ¡¡ab
+ èð
+ Þdfœ¡
+ ;
+ 
+ 1429 
+ 	`¡ab_v®
+ (
+ £cÚd¡ab
+ èð
+ Þd£cÚd
+ ;
+ 
+ 1430 
+ tmps_ba£
+  = 
+ Þdtmps_ba£
+ ;
+ 
+ 1431 
+ ¡ack
+  = 
+ Þd¡ack
+ ;
+ 
+ 1433 #iâdeà
+ lšt
+ 
+ 
+ 1435 
+ 	`qsÜt
+ ((*)(
+ ¡
+ +
+ ¥
+ +1),
+ max
+ ,(
+ STR
+ *),
+ sÜtcmp
+ );
+ 
+ 1438  
+ ¥
+ +
+ max
+ ;
+ 
+ 1439 
+ 	}
+ }
+ 
+ 1442 
+ 	$sÜtsub
+ (
+ ¡r1
+ ,
+ ¡r2
+ )
+ 
+ 1443 
+ STR
+  **
+ ¡r1
+ ;
+ 
+ 1444 
+ STR
+  **
+ ¡r2
+ ;
+ 
+ 1446 
+ 	`¡ab_v®
+ (
+ fœ¡¡ab
+ èð*
+ ¡r1
+ ;
+ 
+ 1447 
+ 	`¡ab_v®
+ (
+ £cÚd¡ab
+ èð*
+ ¡r2
+ ;
+ 
+ 1448 
+ 	`cmd_exec
+ (
+ sÜtcmd
+ ,
+ G_SCALAR
+ ,-1);
+ 
+ 1449  ()
+ 	`¡r_gnum
+ (*
+ ¡ack
+ ->
+ ¬y_¬¿y
+ );
+ 
+ 1450 
+ 	}
+ }
+ 
+ 1452 
+ 	$sÜtcmp
+ (
+ ¡½1
+ ,
+ ¡½2
+ )
+ 
+ 1453 
+ STR
+  **
+ ¡½1
+ ;
+ 
+ 1454 
+ STR
+  **
+ ¡½2
+ ;
+ 
+ 1456 
+ STR
+  *
+ ¡r1
+  = *
+ ¡½1
+ ;
+ 
+ 1457 
+ STR
+  *
+ ¡r2
+  = *
+ ¡½2
+ ;
+ 
+ 1458 
+ »tv®
+ ;
+ 
+ 1460 ià(
+ ¡r1
+ ->
+ ¡r_cur
+  < 
+ ¡r2
+ ->str_cur) {
+ 
+ 1461 ià(
+ »tv®
+  = 
+ 	`memcmp
+ (
+ ¡r1
+ ->
+ ¡r_±r
+ , 
+ ¡r2
+ ->¡r_±r, sŒ1->
+ ¡r_cur
+ ))
+ 
+ 1462  
+ »tv®
+ ;
+ 
+ 1466 ià(
+ »tv®
+  = 
+ 	`memcmp
+ (
+ ¡r1
+ ->
+ ¡r_±r
+ , 
+ ¡r2
+ ->¡r_±r, sŒ2->
+ ¡r_cur
+ ))
+ 
+ 1467  
+ »tv®
+ ;
+ 
+ 1468 ià(
+ ¡r1
+ ->
+ ¡r_cur
+  =ð
+ ¡r2
+ ->str_cur)
+ 
+ 1472 
+ 	}
+ }
+ 
+ 1475 
+ 	$do_¿nge
+ (
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1476 
+ gimme
+ ;
+ 
+ 1477 *
+ ¬gÏ¡
+ ;
+ 
+ 1479 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1480 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 1481 
+ i
+ ;
+ 
+ 1482 
+ ARRAY
+  *
+ ¬y
+  = 
+ ¡ack
+ ;
+ 
+ 1483 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1484 
+ max
+ ;
+ 
+ 1486 ià(
+ gimme
+  !ð
+ G_ARRAY
+ )
+ 
+ 1487 
+ 	`çl
+ ("panic: do_range");
+ 
+ 1489 ià(
+ ¡
+ [
+ ¥
+ +1]->
+ ¡r_nok
+  || !¡[¥+1]->
+ ¡r_pok
+  ||
+ 
+ 1490 (
+ 	`looks_like_numb”
+ (
+ ¡
+ [
+ ¥
+ +1]è&& *¡[¥+1]->
+ ¡r_±r
+  != '0') ) {
+ 
+ 1491 
+ i
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [
+ ¥
+ +1]);
+ 
+ 1492 
+ max
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [
+ ¥
+ +2]);
+ 
+ 1493 
+ i
+  <ð
+ max
+ ) {
+ 
+ 1494 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_no
+ ));
+ 
+ 1495 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()
+ i
+ ++);
+ 
+ 1499 
+ STR
+  *
+ fš®
+  = 
+ 	`¡r_m܏l
+ (
+ ¡
+ [
+ ¥
+ +2]);
+ 
+ 1500 *
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ fš®
+ );
+ 
+ 1502 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (
+ ¡
+ [
+ ¥
+ +1]);
+ 
+ 1503 !
+ ¡r
+ ->
+ ¡r_nok
+  && sŒ->
+ ¡r_cur
+  <ð
+ fš®
+ ->str_cur &&
+ 
+ 1504 
+ 	`¡rNE
+ (
+ ¡r
+ ->
+ ¡r_±r
+ ,
+ tmps
+ ) ) {
+ 
+ 1505 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+ );
+ 
+ 1506 
+ ¡r
+  = 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_smake
+ (str));
+ 
+ 1507 
+ 	`¡r_šc
+ (
+ ¡r
+ );
+ 
+ 1509 ià(
+ 	`¡rEQ
+ (
+ ¡r
+ ->
+ ¡r_±r
+ ,
+ tmps
+ ))
+ 
+ 1510 ()
+ 	`a¡Üe
+ (
+ ¬y
+ , ++
+ ¥
+ , 
+ ¡r
+ );
+ 
+ 1512  
+ ¥
+ ;
+ 
+ 1513 
+ 	}
+ }
+ 
+ 1516 
+ 	$do_»³©¬y
+ (
+ ¬gÏ¡
+ )
+ 
+ 1517 *
+ ¬gÏ¡
+ ;
+ 
+ 1519 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1520 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 1521 
+ ™ems
+  = 
+ ¬gÏ¡
+ [1] - 
+ ¥
+ ;
+ 
+ 1522 
+ couÁ
+  = (è
+ 	`¡r_gnum
+ (
+ ¡
+ [
+ ¬gÏ¡
+ [2]]);
+ 
+ 1523 
+ ARRAY
+  *
+ ¬y
+  = 
+ ¡ack
+ ;
+ 
+ 1524 
+ i
+ ;
+ 
+ 1525 
+ max
+ ;
+ 
+ 1527 
+ max
+  = 
+ ™ems
+  * 
+ couÁ
+ ;
+ 
+ 1528 ià(
+ max
+  > 0 && 
+ ¥
+  + max > 
+ ¡ack
+ ->
+ ¬y_max
+ ) {
+ 
+ 1529 
+ 	`a¡Üe
+ (
+ ¡ack
+ , 
+ ¥
+  + 
+ max
+ , 
+ NuΡr
+ );
+ 
+ 1530 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1532 ià(
+ couÁ
+  > 1) {
+ 
+ 1533 
+ i
+  = 
+ ¬gÏ¡
+ [1]; i > 
+ ¥
+ ; i--)
+ 
+ 1534 
+ ¡
+ [
+ i
+ ]->
+ ¡r_pok
+  &ð~
+ SP_TEMP
+ ;
+ 
+ 1535 
+ 	`»³©ýy
+ ((*)&
+ ¡
+ [
+ ¬gÏ¡
+ [1]+1], (*)&¡[
+ ¥
+ +1],
+ 
+ 1536 
+ ™ems
+  * (
+ STR
+ *), 
+ couÁ
+ );
+ 
+ 1538 
+ ¥
+  +ð
+ max
+ ;
+ 
+ 1540  
+ ¥
+ ;
+ 
+ 1541 
+ 	}
+ }
+ 
+ 1544 
+ 	$do_ÿΔ
+ (
+ ¬g
+ ,
+ max¬g
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1545 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 1546 
+ max¬g
+ ;
+ 
+ 1547 
+ gimme
+ ;
+ 
+ 1548 *
+ ¬gÏ¡
+ ;
+ 
+ 1550 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1551 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 1552 
+ CSV
+  *
+ csv
+  = 
+ curcsv
+ ;
+ 
+ 1553 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1554 
+ couÁ
+  = 0;
+ 
+ 1556 ià(!
+ csv
+ )
+ 
+ 1557 
+ 	`çl
+ ("There is‚o caller");
+ 
+ 1558 ià(
+ max¬g
+ )
+ 
+ 1559 
+ couÁ
+  = (è
+ 	`¡r_gnum
+ (
+ ¡
+ [
+ ¥
+ +1]);
+ 
+ 1561 ià(!
+ csv
+ )
+ 
+ 1562  
+ ¥
+ ;
+ 
+ 1563 ià(
+ DBsub
+  && 
+ csv
+ ->
+ curcsv
+  && csv->curcsv->
+ sub
+  =ð
+ 	`¡ab_sub
+ (DBsub))
+ 
+ 1564 
+ couÁ
+ ++;
+ 
+ 1565 ià(!
+ couÁ
+ --)
+ 
+ 1567 
+ csv
+  = csv->
+ curcsv
+ ;
+ 
+ 1569 ià(
+ gimme
+  !ð
+ G_ARRAY
+ ) {
+ 
+ 1570 
+ STR
+  *
+ ¡r
+  = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 1571 
+ 	`¡r_£t
+ (
+ ¡r
+ ,
+ csv
+ ->
+ curcmd
+ ->
+ c_¡ash
+ ->
+ tbl_Çme
+ );
+ 
+ 1572 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 1573 
+ ¡
+ [++
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 1574  
+ ¥
+ ;
+ 
+ 1577 #iâdeà
+ lšt
+ 
+ 
+ 1578 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ ,++
+ ¥
+ ,
+ 
+ 1579 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_make
+ (
+ csv
+ ->
+ curcmd
+ ->
+ c_¡ash
+ ->
+ tbl_Çme
+ ,0)) );
+ 
+ 1580 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ ,++
+ ¥
+ ,
+ 
+ 1581 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_make
+ (
+ 	`¡ab_v®
+ (
+ csv
+ ->
+ curcmd
+ ->
+ c_fže¡ab
+ )->
+ ¡r_±r
+ ,0)) );
+ 
+ 1582 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ ,++
+ ¥
+ ,
+ 
+ 1583 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ csv
+ ->
+ curcmd
+ ->
+ c_lše
+ )) );
+ 
+ 1584 ià(!
+ max¬g
+ )
+ 
+ 1585  
+ ¥
+ ;
+ 
+ 1586 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (49,0);
+ 
+ 1587 
+ 	`¡ab_fuÎÇme
+ (
+ ¡r
+ , 
+ csv
+ ->
+ ¡ab
+ );
+ 
+ 1588 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ ,++
+ ¥
+ , 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ ));
+ 
+ 1589 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ ,++
+ ¥
+ ,
+ 
+ 1590 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ csv
+ ->
+ ha§rgs
+ )) );
+ 
+ 1591 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ ,++
+ ¥
+ ,
+ 
+ 1592 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ csv
+ ->
+ wª¼ay
+ )) );
+ 
+ 1593 ià(
+ csv
+ ->
+ ha§rgs
+ ) {
+ 
+ 1594 
+ ARRAY
+  *
+ ¬y
+  = 
+ csv
+ ->
+ ¬g¬¿y
+ ;
+ 
+ 1596 ià(
+ db¬gs
+ ->
+ ¬y_max
+  < 
+ ¬y
+ ->
+ ¬y_fžl
+ )
+ 
+ 1597 
+ 	`a¡Üe
+ (
+ db¬gs
+ ,
+ ¬y
+ ->
+ ¬y_fžl
+ ,
+ NuΡr
+ );
+ 
+ 1598 
+ 	`CÝy
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ , 
+ db¬gs
+ ->¬y_¬¿y,‡ry->
+ ¬y_fžl
+ +1, 
+ STR
+ *);
+ 
+ 1599 
+ db¬gs
+ ->
+ ¬y_fžl
+  = 
+ ¬y
+ ->ary_fill;
+ 
+ 1602 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ ,++
+ ¥
+ ,
+ 
+ 1603 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_make
+ ("",0)));
+ 
+ 1605  
+ ¥
+ ;
+ 
+ 1606 
+ 	}
+ }
+ 
+ 1609 
+ 	$do_tms
+ (
+ ¡r
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1610 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1611 
+ gimme
+ ;
+ 
+ 1612 *
+ ¬gÏ¡
+ ;
+ 
+ 1614 #ifdeà
+ MSDOS
+ 
+ 
+ 1617 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1618 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 1620 ià(
+ gimme
+  !ð
+ G_ARRAY
+ ) {
+ 
+ 1621 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_undef
+ );
+ 
+ 1622 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 1623 
+ ¡
+ [++
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 1624  
+ ¥
+ ;
+ 
+ 1626 ()
+ 	`times
+ (&
+ timesbuf
+ );
+ 
+ 1628 #iâdeà
+ HZ
+ 
+ 
+ 1629 
+ 	#HZ
+  60
+ 
+ 	)
+ 
+ 1632 #iâdeà
+ lšt
+ 
+ 
+ 1633 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ ,++
+ ¥
+ ,
+ 
+ 1634 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ ((()
+ timesbuf
+ .
+ tms_utime
+ )/
+ HZ
+ )));
+ 
+ 1635 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ ,++
+ ¥
+ ,
+ 
+ 1636 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ ((()
+ timesbuf
+ .
+ tms_¡ime
+ )/
+ HZ
+ )));
+ 
+ 1637 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ ,++
+ ¥
+ ,
+ 
+ 1638 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ ((()
+ timesbuf
+ .
+ tms_cutime
+ )/
+ HZ
+ )));
+ 
+ 1639 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ ,++
+ ¥
+ ,
+ 
+ 1640 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ ((()
+ timesbuf
+ .
+ tms_c¡ime
+ )/
+ HZ
+ )));
+ 
+ 1642 ()
+ 	`a¡Üe
+ (
+ ¡ack
+ ,++
+ ¥
+ ,
+ 
+ 1643 
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (0.0)));
+ 
+ 1645  
+ ¥
+ ;
+ 
+ 1647 
+ 	}
+ }
+ 
+ 1650 
+ 	$do_time
+ (
+ ¡r
+ ,
+ tmbuf
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1651 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1652 
+ tm
+  *
+ tmbuf
+ ;
+ 
+ 1653 
+ gimme
+ ;
+ 
+ 1654 *
+ ¬gÏ¡
+ ;
+ 
+ 1656 
+ ARRAY
+  *
+ ¬y
+  = 
+ ¡ack
+ ;
+ 
+ 1657 
+ STR
+  **
+ ¡
+  = 
+ ¬y
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1658 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 1660 ià(!
+ tmbuf
+  || 
+ gimme
+  !ð
+ G_ARRAY
+ ) {
+ 
+ 1661 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_undef
+ );
+ 
+ 1662 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 1663 
+ ¡
+ [++
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 1664  
+ ¥
+ ;
+ 
+ 1666 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ tmbuf
+ ->
+ tm_£c
+ )));
+ 
+ 1667 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ tmbuf
+ ->
+ tm_mš
+ )));
+ 
+ 1668 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ tmbuf
+ ->
+ tm_hour
+ )));
+ 
+ 1669 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ tmbuf
+ ->
+ tm_mday
+ )));
+ 
+ 1670 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ tmbuf
+ ->
+ tm_mÚ
+ )));
+ 
+ 1671 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ tmbuf
+ ->
+ tm_y—r
+ )));
+ 
+ 1672 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ tmbuf
+ ->
+ tm_wday
+ )));
+ 
+ 1673 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ tmbuf
+ ->
+ tm_yday
+ )));
+ 
+ 1674 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 	`¡r_2m܏l
+ (
+ 	`¡r_nmake
+ (()
+ tmbuf
+ ->
+ tm_isd¡
+ )));
+ 
+ 1675  
+ ¥
+ ;
+ 
+ 1676 
+ 	}
+ }
+ 
+ 1679 
+ 	$do_kv
+ (
+ ¡r
+ ,
+ hash
+ ,
+ kv
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1680 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1681 
+ HASH
+  *
+ hash
+ ;
+ 
+ 1682 
+ kv
+ ;
+ 
+ 1683 
+ gimme
+ ;
+ 
+ 1684 *
+ ¬gÏ¡
+ ;
+ 
+ 1686 
+ ARRAY
+  *
+ ¬y
+  = 
+ ¡ack
+ ;
+ 
+ 1687 
+ STR
+  **
+ ¡
+  = 
+ ¬y
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1688 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 1689 
+ i
+ ;
+ 
+ 1690 
+ HENT
+  *
+ ’Œy
+ ;
+ 
+ 1691 *
+ tmps
+ ;
+ 
+ 1692 
+ STR
+  *
+ tmp¡r
+ ;
+ 
+ 1693 
+ dokeys
+  = (
+ kv
+  =ð
+ O_KEYS
+  || kv =ð
+ O_HASH
+ );
+ 
+ 1694 
+ dov®ues
+  = (
+ kv
+  =ð
+ O_VALUES
+  || kv =ð
+ O_HASH
+ );
+ 
+ 1696 ià(
+ gimme
+  !ð
+ G_ARRAY
+ ) {
+ 
+ 1697 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_undef
+ );
+ 
+ 1698 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 1699 
+ ¡
+ [++
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 1700  
+ ¥
+ ;
+ 
+ 1702 ()
+ 	`h™”š™
+ (
+ hash
+ );
+ 
+ 1703 
+ ’Œy
+  = 
+ 	`h™”Ãxt
+ (
+ hash
+ )) {
+ 
+ 1704 ià(
+ dokeys
+ ) {
+ 
+ 1705 
+ tmps
+  = 
+ 	`h™”key
+ (
+ ’Œy
+ ,&
+ i
+ );
+ 
+ 1706 ià(!
+ i
+ )
+ 
+ 1707 
+ tmps
+  = "";
+ 
+ 1708 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 	`¡r_2m܏l
+ (
+ 	`¡r_make
+ (
+ tmps
+ ,
+ i
+ )));
+ 
+ 1710 ià(
+ dov®ues
+ ) {
+ 
+ 1711 
+ tmp¡r
+  = 
+ 	`SŒ_Ãw
+ (45,0);
+ 
+ 1712 #ifdeà
+ DEBUGGING
+ 
+ 
+ 1713 ià(
+ debug
+  & 8192) {
+ 
+ 1714 
+ 	`¥rštf
+ (
+ buf
+ ,"%d%%%d=%d\n",
+ ’Œy
+ ->
+ h’t_hash
+ ,
+ 
+ 1715 
+ hash
+ ->
+ tbl_max
+ +1,
+ ’Œy
+ ->
+ h’t_hash
+  & hash->tbl_max);
+ 
+ 1716 
+ 	`¡r_£t
+ (
+ tmp¡r
+ ,
+ buf
+ );
+ 
+ 1720 
+ 	`¡r_s£t
+ (
+ tmp¡r
+ ,
+ 	`h™”v®
+ (
+ hash
+ ,
+ ’Œy
+ ));
+ 
+ 1721 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,++
+ ¥
+ ,
+ 	`¡r_2m܏l
+ (
+ tmp¡r
+ ));
+ 
+ 1724  
+ ¥
+ ;
+ 
+ 1725 
+ 	}
+ }
+ 
+ 1728 
+ 	$do_—ch
+ (
+ ¡r
+ ,
+ hash
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 1729 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 1730 
+ HASH
+  *
+ hash
+ ;
+ 
+ 1731 
+ gimme
+ ;
+ 
+ 1732 *
+ ¬gÏ¡
+ ;
+ 
+ 1734 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1735 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 1736 
+ STR
+  *
+ my¡rk
+  = 
+ NuΡr
+ ;
+ 
+ 1737 
+ HENT
+  *
+ ’Œy
+  = 
+ 	`h™”Ãxt
+ (
+ hash
+ );
+ 
+ 1738 
+ i
+ ;
+ 
+ 1739 *
+ tmps
+ ;
+ 
+ 1741 ià(
+ my¡rk
+ ) {
+ 
+ 1742 
+ 	`¡r_ä“
+ (
+ my¡rk
+ );
+ 
+ 1743 
+ my¡rk
+  = 
+ NuΡr
+ ;
+ 
+ 1746 ià(
+ ’Œy
+ ) {
+ 
+ 1747 ià(
+ gimme
+  =ð
+ G_ARRAY
+ ) {
+ 
+ 1748 
+ tmps
+  = 
+ 	`h™”key
+ (
+ ’Œy
+ , &
+ i
+ );
+ 
+ 1749 ià(!
+ i
+ )
+ 
+ 1750 
+ tmps
+  = "";
+ 
+ 1751 
+ ¡
+ [++
+ ¥
+ ] = 
+ my¡rk
+  = 
+ 	`¡r_make
+ (
+ tmps
+ ,
+ i
+ );
+ 
+ 1753 
+ ¡
+ [++
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 1754 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,
+ 	`h™”v®
+ (
+ hash
+ ,
+ ’Œy
+ ));
+ 
+ 1755 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 1756  
+ ¥
+ ;
+ 
+ 1759  
+ ¥
+ ;
+ 
+ 1760 
+ 	}
+ }
+ 
+ 	@dump.c
+ 
+ 14 
+ 	~"EXTERN.h
+ "
+ 
+ 15 
+ 	~"³¾.h
+ "
+ 
+ 17 #ifdeà
+ DEBUGGING
+ 
+ 
+ 18 
+ 	gdum¶vl
+  = 0;
+ 
+ 20 
+ 	$dump_®l
+ ()
+ 
+ 22 
+ i
+ ;
+ 
+ 23 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 24 
+ HENT
+  *
+ ’Œy
+ ;
+ 
+ 25 
+ STR
+  *
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_undef
+ );
+ 
+ 27 
+ 	`dump_cmd
+ (
+ maš_roÙ
+ ,
+ NuÎcmd
+ );
+ 
+ 28 
+ i
+  = 0; i <= 127; i++) {
+ 
+ 29 
+ ’Œy
+  = 
+ def¡ash
+ ->
+ tbl_¬¿y
+ [
+ i
+ ];ƒÁry;ƒÁry =ƒÁry->
+ h’t_Ãxt
+ ) {
+ 
+ 30 
+ ¡ab
+  = (
+ STAB
+ *)
+ ’Œy
+ ->
+ h’t_v®
+ ;
+ 
+ 31 ià(
+ 	`¡ab_sub
+ (
+ ¡ab
+ )) {
+ 
+ 32 
+ 	`¡ab_fuÎÇme
+ (
+ ¡r
+ ,
+ ¡ab
+ );
+ 
+ 33 
+ 	`dump
+ ("\nSUB % ð", 
+ ¡r
+ ->
+ ¡r_±r
+ );
+ 
+ 34 
+ 	`dump_cmd
+ (
+ 	`¡ab_sub
+ (
+ ¡ab
+ )->
+ cmd
+ ,
+ NuÎcmd
+ );
+ 
+ 38 
+ 	}
+ }
+ 
+ 40 
+ 	$dump_cmd
+ (
+ cmd
+ ,
+ ®t
+ )
+ 
+ 41 
+ CMD
+  *
+ cmd
+ ;
+ 
+ 42 
+ CMD
+  *
+ ®t
+ ;
+ 
+ 44 
+ 	`årštf
+ (
+ ¡d”r
+ ,"{\n");
+ 
+ 45 
+ cmd
+ ) {
+ 
+ 46 
+ dum¶vl
+ ++;
+ 
+ 47 
+ 	`dump
+ ("C_TYPE = %s\n",
+ cmdÇme
+ [
+ cmd
+ ->
+ c_ty³
+ ]);
+ 
+ 48 
+ 	`dump
+ ("C_ADDR = 0x%lx\n",
+ cmd
+ );
+ 
+ 49 
+ 	`dump
+ ("C_NEXT = 0x%lx\n",
+ cmd
+ ->
+ c_Ãxt
+ );
+ 
+ 50 ià(
+ cmd
+ ->
+ c_lše
+ )
+ 
+ 51 
+ 	`dump
+ ("C_LINE = %d (0x%lx)\n",
+ cmd
+ ->
+ c_lše
+ ,cmd);
+ 
+ 52 ià(
+ cmd
+ ->
+ c_Ïb–
+ )
+ 
+ 53 
+ 	`dump
+ ("C_LABEL = \"%s\"\n",
+ cmd
+ ->
+ c_Ïb–
+ );
+ 
+ 54 
+ 	`dump
+ ("C_OPT = CFT_%s\n",
+ cmdÝt
+ [
+ cmd
+ ->
+ c_æags
+  & 
+ CF_OPTIMIZE
+ ]);
+ 
+ 55 *
+ buf
+  = '\0';
+ 
+ 56 ià(
+ cmd
+ ->
+ c_æags
+  & 
+ CF_FIRSTNEG
+ )
+ 
+ 57 ()
+ 	`¡rÿt
+ (
+ buf
+ ,"FIRSTNEG,");
+ 
+ 58 ià(
+ cmd
+ ->
+ c_æags
+  & 
+ CF_NESURE
+ )
+ 
+ 59 ()
+ 	`¡rÿt
+ (
+ buf
+ ,"NESURE,");
+ 
+ 60 ià(
+ cmd
+ ->
+ c_æags
+  & 
+ CF_EQSURE
+ )
+ 
+ 61 ()
+ 	`¡rÿt
+ (
+ buf
+ ,"EQSURE,");
+ 
+ 62 ià(
+ cmd
+ ->
+ c_æags
+  & 
+ CF_COND
+ )
+ 
+ 63 ()
+ 	`¡rÿt
+ (
+ buf
+ ,"COND,");
+ 
+ 64 ià(
+ cmd
+ ->
+ c_æags
+  & 
+ CF_LOOP
+ )
+ 
+ 65 ()
+ 	`¡rÿt
+ (
+ buf
+ ,"LOOP,");
+ 
+ 66 ià(
+ cmd
+ ->
+ c_æags
+  & 
+ CF_INVERT
+ )
+ 
+ 67 ()
+ 	`¡rÿt
+ (
+ buf
+ ,"INVERT,");
+ 
+ 68 ià(
+ cmd
+ ->
+ c_æags
+  & 
+ CF_ONCE
+ )
+ 
+ 69 ()
+ 	`¡rÿt
+ (
+ buf
+ ,"ONCE,");
+ 
+ 70 ià(
+ cmd
+ ->
+ c_æags
+  & 
+ CF_FLIP
+ )
+ 
+ 71 ()
+ 	`¡rÿt
+ (
+ buf
+ ,"FLIP,");
+ 
+ 72 ià(
+ cmd
+ ->
+ c_æags
+  & 
+ CF_TERM
+ )
+ 
+ 73 ()
+ 	`¡rÿt
+ (
+ buf
+ ,"TERM,");
+ 
+ 74 ià(*
+ buf
+ )
+ 
+ 75 
+ buf
+ [
+ 	`¡¾’
+ (buf)-1] = '\0';
+ 
+ 76 
+ 	`dump
+ ("C_FLAGS = (%s)\n",
+ buf
+ );
+ 
+ 77 ià(
+ cmd
+ ->
+ c_shÜt
+ ) {
+ 
+ 78 
+ 	`dump
+ ("C_SHORT = \"%s\"\n",
+ 	`¡r_³ek
+ (
+ cmd
+ ->
+ c_shÜt
+ ));
+ 
+ 79 
+ 	`dump
+ ("C_SLEN = \"%d\"\n",
+ cmd
+ ->
+ c_¦’
+ );
+ 
+ 81 ià(
+ cmd
+ ->
+ c_¡ab
+ ) {
+ 
+ 82 
+ 	`dump
+ ("C_STAB = ");
+ 
+ 83 
+ 	`dump_¡ab
+ (
+ cmd
+ ->
+ c_¡ab
+ );
+ 
+ 85 ià(
+ cmd
+ ->
+ c_¥©
+ ) {
+ 
+ 86 
+ 	`dump
+ ("C_SPAT = ");
+ 
+ 87 
+ 	`dump_¥©
+ (
+ cmd
+ ->
+ c_¥©
+ );
+ 
+ 89 ià(
+ cmd
+ ->
+ c_ex´
+ ) {
+ 
+ 90 
+ 	`dump
+ ("C_EXPR = ");
+ 
+ 91 
+ 	`dump_¬g
+ (
+ cmd
+ ->
+ c_ex´
+ );
+ 
+ 93 
+ 	`dump
+ ("C_EXPR = NULL\n");
+ 
+ 94 
+ cmd
+ ->
+ c_ty³
+ ) {
+ 
+ 95 
+ C_NEXT
+ :
+ 
+ 96 
+ C_WHILE
+ :
+ 
+ 97 
+ C_BLOCK
+ :
+ 
+ 98 
+ C_ELSE
+ :
+ 
+ 99 
+ C_IF
+ :
+ 
+ 100 ià(
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ) {
+ 
+ 101 
+ 	`dump
+ ("CC_TRUE = ");
+ 
+ 102 
+ 	`dump_cmd
+ (
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_Œue
+ ,cmd->ucmd.ccmd.
+ cc_®t
+ );
+ 
+ 105 
+ 	`dump
+ ("CC_TRUE = NULL\n");
+ 
+ 106 ià(
+ cmd
+ ->
+ c_ty³
+  =ð
+ C_IF
+  && cmd->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+ ) {
+ 
+ 107 
+ 	`dump
+ ("CC_ENDELSE = 0x%lx\n",
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+ );
+ 
+ 109 ià(
+ cmd
+ ->
+ c_ty³
+  =ð
+ C_NEXT
+  && cmd->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+ ) {
+ 
+ 110 
+ 	`dump
+ ("CC_NEXT = 0x%lx\n",
+ cmd
+ ->
+ ucmd
+ .
+ ccmd
+ .
+ cc_®t
+ );
+ 
+ 113 
+ 	`dump
+ ("CC_ALT = NULL\n");
+ 
+ 115 
+ C_EXPR
+ :
+ 
+ 116 ià(
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_¡ab
+ ) {
+ 
+ 117 
+ 	`dump
+ ("AC_STAB = ");
+ 
+ 118 
+ 	`dump_¡ab
+ (
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_¡ab
+ );
+ 
+ 120 
+ 	`dump
+ ("AC_STAB = NULL\n");
+ 
+ 121 ià(
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ ) {
+ 
+ 122 
+ 	`dump
+ ("AC_EXPR = ");
+ 
+ 123 
+ 	`dump_¬g
+ (
+ cmd
+ ->
+ ucmd
+ .
+ acmd
+ .
+ ac_ex´
+ );
+ 
+ 125 
+ 	`dump
+ ("AC_EXPR = NULL\n");
+ 
+ 127 
+ C_CSWITCH
+ :
+ 
+ 128 
+ C_NSWITCH
+ :
+ 
+ 130 
+ max
+ , 
+ i
+ ;
+ 
+ 132 
+ max
+  = 
+ cmd
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_max
+ ;
+ 
+ 133 
+ 	`dump
+ ("SC_MIN = (%d)\n",
+ cmd
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_off£t
+  + 1);
+ 
+ 134 
+ 	`dump
+ ("SC_MAX = (%d)\n", 
+ max
+  + 
+ cmd
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_off£t
+  - 1);
+ 
+ 135 
+ 	`dump
+ ("SC_NEXT[LT] = 0x%lx\n", 
+ cmd
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_Ãxt
+ [0]);
+ 
+ 136 
+ i
+  = 1; i < 
+ max
+ ; i++)
+ 
+ 137 
+ 	`dump
+ ("SC_NEXT[%d] = 0x%lx\n", 
+ i
+  + 
+ cmd
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_off£t
+ ,
+ 
+ 138 
+ cmd
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_Ãxt
+ [
+ i
+ ]);
+ 
+ 139 
+ 	`dump
+ ("SC_NEXT[GT] = 0x%lx\n", 
+ cmd
+ ->
+ ucmd
+ .
+ scmd
+ .
+ sc_Ãxt
+ [
+ max
+ ]);
+ 
+ 143 
+ cmd
+  = cmd->
+ c_Ãxt
+ ;
+ 
+ 144 ià(
+ cmd
+  && cmd->
+ c_h—d
+  == cmd) {
+ 
+ 145 
+ 	`dump
+ ("C_NEXT = HEAD\n");
+ 
+ 146 
+ dum¶vl
+ --;
+ 
+ 147 
+ 	`dump
+ ("}\n");
+ 
+ 150 
+ dum¶vl
+ --;
+ 
+ 151 
+ 	`dump
+ ("}\n");
+ 
+ 152 ià(
+ cmd
+ )
+ 
+ 153 ià(
+ cmd
+  =ð
+ ®t
+ )
+ 
+ 154 
+ 	`dump
+ ("CONT 0x%lx {\n",
+ cmd
+ );
+ 
+ 156 
+ 	`dump
+ ("{\n");
+ 
+ 158 
+ 	}
+ }
+ 
+ 160 
+ 	$dump_¬g
+ (
+ ¬g
+ )
+ 
+ 161 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 163 
+ i
+ ;
+ 
+ 165 
+ 	`årštf
+ (
+ ¡d”r
+ ,"{\n");
+ 
+ 166 
+ dum¶vl
+ ++;
+ 
+ 167 
+ 	`dump
+ ("OP_TYPE = %s\n",
+ ÝÇme
+ [
+ ¬g
+ ->
+ ¬g_ty³
+ ]);
+ 
+ 168 
+ 	`dump
+ ("OP_LEN = %d\n",
+ ¬g
+ ->
+ ¬g_Ën
+ );
+ 
+ 169 ià(
+ ¬g
+ ->
+ ¬g_æags
+ ) {
+ 
+ 170 
+ 	`dump_æags
+ (
+ buf
+ ,
+ ¬g
+ ->
+ ¬g_æags
+ );
+ 
+ 171 
+ 	`dump
+ ("OP_FLAGS = (%s)\n",
+ buf
+ );
+ 
+ 173 
+ i
+  = 1; i <ð
+ ¬g
+ ->
+ ¬g_Ën
+ ; i++) {
+ 
+ 174 
+ 	`dump
+ ("[%d]ARG_TYPE = %s%s\n",
+ i
+ ,
+ ¬gÇme
+ [
+ ¬g
+ [i].
+ ¬g_ty³
+  & 
+ A_MASK
+ ],
+ 
+ 175 
+ ¬g
+ [
+ i
+ ].
+ ¬g_ty³
+  & 
+ A_DONT
+  ? " (unevaluated)" : "");
+ 
+ 176 ià(
+ ¬g
+ [
+ i
+ ].
+ ¬g_Ën
+ )
+ 
+ 177 
+ 	`dump
+ ("[%d]ARG_LEN = %d\n",
+ i
+ ,
+ ¬g
+ [i].
+ ¬g_Ën
+ );
+ 
+ 178 ià(
+ ¬g
+ [
+ i
+ ].
+ ¬g_æags
+ ) {
+ 
+ 179 
+ 	`dump_æags
+ (
+ buf
+ ,
+ ¬g
+ [
+ i
+ ].
+ ¬g_æags
+ );
+ 
+ 180 
+ 	`dump
+ ("[%d]ARG_FLAGS = (%s)\n",
+ i
+ ,
+ buf
+ );
+ 
+ 182 
+ ¬g
+ [
+ i
+ ].
+ ¬g_ty³
+  & 
+ A_MASK
+ ) {
+ 
+ 183 
+ A_NULL
+ :
+ 
+ 184 ià(
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_TRANS
+ ) {
+ 
+ 185 *
+ tbl
+  = (*)
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_cv®
+ ;
+ 
+ 186 
+ i
+ ;
+ 
+ 188 
+ i
+  = 0; i < 256; i++) {
+ 
+ 189 ià(
+ tbl
+ [
+ i
+ ] >= 0)
+ 
+ 190 
+ 	`dump
+ (" %d -> %d\n", 
+ i
+ , 
+ tbl
+ [i]);
+ 
+ 191 ià(
+ tbl
+ [
+ i
+ ] == -2)
+ 
+ 192 
+ 	`dump
+ (" %d -> DELETE\n", 
+ i
+ );
+ 
+ 196 
+ A_LEXPR
+ :
+ 
+ 197 
+ A_EXPR
+ :
+ 
+ 198 
+ 	`dump
+ ("[%d]ARG_ARG = ",
+ i
+ );
+ 
+ 199 
+ 	`dump_¬g
+ (
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¬g
+ );
+ 
+ 201 
+ A_CMD
+ :
+ 
+ 202 
+ 	`dump
+ ("[%d]ARG_CMD = ",
+ i
+ );
+ 
+ 203 
+ 	`dump_cmd
+ (
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_cmd
+ ,
+ NuÎcmd
+ );
+ 
+ 205 
+ A_WORD
+ :
+ 
+ 206 
+ A_STAB
+ :
+ 
+ 207 
+ A_LVAL
+ :
+ 
+ 208 
+ A_READ
+ :
+ 
+ 209 
+ A_GLOB
+ :
+ 
+ 210 
+ A_ARYLEN
+ :
+ 
+ 211 
+ A_ARYSTAB
+ :
+ 
+ 212 
+ A_LARYSTAB
+ :
+ 
+ 213 
+ 	`dump
+ ("[%d]ARG_STAB = ",
+ i
+ );
+ 
+ 214 
+ 	`dump_¡ab
+ (
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ );
+ 
+ 216 
+ A_SINGLE
+ :
+ 
+ 217 
+ A_DOUBLE
+ :
+ 
+ 218 
+ A_BACKTICK
+ :
+ 
+ 219 
+ 	`dump
+ ("[%d]ARG_STR = '%s'\n",
+ i
+ ,
+ 	`¡r_³ek
+ (
+ ¬g
+ [i].
+ ¬g_±r
+ .
+ ¬g_¡r
+ ));
+ 
+ 221 
+ A_SPAT
+ :
+ 
+ 222 
+ 	`dump
+ ("[%d]ARG_SPAT = ",
+ i
+ );
+ 
+ 223 
+ 	`dump_¥©
+ (
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¥©
+ );
+ 
+ 227 
+ dum¶vl
+ --;
+ 
+ 228 
+ 	`dump
+ ("}\n");
+ 
+ 229 
+ 	}
+ }
+ 
+ 231 
+ 	$dump_æags
+ (
+ b
+ ,
+ æags
+ )
+ 
+ 232 *
+ b
+ ;
+ 
+ 233 
+ æags
+ ;
+ 
+ 235 *
+ b
+  = '\0';
+ 
+ 236 ià(
+ æags
+  & 
+ AF_ARYOK
+ )
+ 
+ 237 ()
+ 	`¡rÿt
+ (
+ b
+ ,"ARYOK,");
+ 
+ 238 ià(
+ æags
+  & 
+ AF_POST
+ )
+ 
+ 239 ()
+ 	`¡rÿt
+ (
+ b
+ ,"POST,");
+ 
+ 240 ià(
+ æags
+  & 
+ AF_PRE
+ )
+ 
+ 241 ()
+ 	`¡rÿt
+ (
+ b
+ ,"PRE,");
+ 
+ 242 ià(
+ æags
+  & 
+ AF_UP
+ )
+ 
+ 243 ()
+ 	`¡rÿt
+ (
+ b
+ ,"UP,");
+ 
+ 244 ià(
+ æags
+  & 
+ AF_COMMON
+ )
+ 
+ 245 ()
+ 	`¡rÿt
+ (
+ b
+ ,"COMMON,");
+ 
+ 246 ià(
+ æags
+  & 
+ AF_DEPR
+ )
+ 
+ 247 ()
+ 	`¡rÿt
+ (
+ b
+ ,"DEPR,");
+ 
+ 248 ià(
+ æags
+  & 
+ AF_LISTISH
+ )
+ 
+ 249 ()
+ 	`¡rÿt
+ (
+ b
+ ,"LISTISH,");
+ 
+ 250 ià(
+ æags
+  & 
+ AF_LOCAL
+ )
+ 
+ 251 ()
+ 	`¡rÿt
+ (
+ b
+ ,"LOCAL,");
+ 
+ 252 ià(*
+ b
+ )
+ 
+ 253 
+ b
+ [
+ 	`¡¾’
+ (b)-1] = '\0';
+ 
+ 254 
+ 	}
+ }
+ 
+ 256 
+ 	$dump_¡ab
+ (
+ ¡ab
+ )
+ 
+ 257 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 259 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 261 ià(!
+ ¡ab
+ ) {
+ 
+ 262 
+ 	`årštf
+ (
+ ¡d”r
+ ,"{}\n");
+ 
+ 265 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (&
+ ¡r_undef
+ );
+ 
+ 266 
+ dum¶vl
+ ++;
+ 
+ 267 
+ 	`årštf
+ (
+ ¡d”r
+ ,"{\n");
+ 
+ 268 
+ 	`¡ab_fuÎÇme
+ (
+ ¡r
+ ,
+ ¡ab
+ );
+ 
+ 269 
+ 	`dump
+ ("STAB_NAME = %s\n", 
+ ¡r
+ ->
+ ¡r_±r
+ );
+ 
+ 270 
+ dum¶vl
+ --;
+ 
+ 271 
+ 	`dump
+ ("}\n");
+ 
+ 272 
+ 	}
+ }
+ 
+ 274 
+ 	$dump_¥©
+ (
+ ¥©
+ )
+ 
+ 275 
+ SPAT
+  *
+ ¥©
+ ;
+ 
+ 277 
+ ch
+ ;
+ 
+ 279 ià(!
+ ¥©
+ ) {
+ 
+ 280 
+ 	`årštf
+ (
+ ¡d”r
+ ,"{}\n");
+ 
+ 283 
+ 	`årštf
+ (
+ ¡d”r
+ ,"{\n");
+ 
+ 284 
+ dum¶vl
+ ++;
+ 
+ 285 ià(
+ ¥©
+ ->
+ ¥©_ruÁime
+ ) {
+ 
+ 286 
+ 	`dump
+ ("SPAT_RUNTIME = ");
+ 
+ 287 
+ 	`dump_¬g
+ (
+ ¥©
+ ->
+ ¥©_ruÁime
+ );
+ 
+ 289 ià(
+ ¥©
+ ->
+ ¥©_æags
+  & 
+ SPAT_ONCE
+ )
+ 
+ 290 
+ ch
+  = '?';
+ 
+ 292 
+ ch
+  = '/';
+ 
+ 293 
+ 	`dump
+ ("SPAT_PRE %c%s%c\n",
+ ch
+ ,
+ ¥©
+ ->
+ ¥©_»gexp
+ ->
+ ´ecomp
+ ,ch);
+ 
+ 295 ià(
+ ¥©
+ ->
+ ¥©_»¶
+ ) {
+ 
+ 296 
+ 	`dump
+ ("SPAT_REPL = ");
+ 
+ 297 
+ 	`dump_¬g
+ (
+ ¥©
+ ->
+ ¥©_»¶
+ );
+ 
+ 299 ià(
+ ¥©
+ ->
+ ¥©_shÜt
+ ) {
+ 
+ 300 
+ 	`dump
+ ("SPAT_SHORT = \"%s\"\n",
+ 	`¡r_³ek
+ (
+ ¥©
+ ->
+ ¥©_shÜt
+ ));
+ 
+ 302 
+ dum¶vl
+ --;
+ 
+ 303 
+ 	`dump
+ ("}\n");
+ 
+ 304 
+ 	}
+ }
+ 
+ 307 
+ 	$dump
+ (
+ ¬g1
+ ,
+ ¬g2
+ ,
+ ¬g3
+ ,
+ ¬g4
+ ,
+ ¬g5
+ )
+ 
+ 308 *
+ ¬g1
+ ;
+ 
+ 309 
+ ¬g2
+ , 
+ ¬g3
+ , 
+ ¬g4
+ , 
+ ¬g5
+ ;
+ 
+ 311 
+ i
+ ;
+ 
+ 313 
+ i
+  = 
+ dum¶vl
+ *4; i; i--)
+ 
+ 314 ()
+ 	`putc
+ (' ',
+ ¡d”r
+ );
+ 
+ 315 
+ 	`årštf
+ (
+ ¡d”r
+ ,
+ ¬g1
+ , 
+ ¬g2
+ , 
+ ¬g3
+ , 
+ ¬g4
+ , 
+ ¬g5
+ );
+ 
+ 316 
+ 	}
+ }
+ 
+ 319 #ifdeà
+ DEBUG
+ 
+ 
+ 321 
+ 	$showšput
+ ()
+ 
+ 323 *
+ s
+  = 
+ 	`¡r_g‘
+ (
+ lše¡r
+ );
+ 
+ 324 
+ fd
+ ;
+ 
+ 325 
+ cmd
+ [] =
+ 
+ 329 ià(
+ rså
+  !ð
+ ¡dš
+  || 
+ 	`¡ºEQ
+ (
+ s
+ ,"#!",2))
+ 
+ 330  
+ s
+ ;
+ 
+ 331 ; *
+ s
+ ; s++) {
+ 
+ 332 ià(*
+ s
+  & 0200) {
+ 
+ 333 
+ fd
+  = 
+ 	`ü—t
+ ("/tmp/.foo",0600);
+ 
+ 334 
+ 	`wr™e
+ (
+ fd
+ ,
+ 	`¡r_g‘
+ (
+ lše¡r
+ ),lše¡r->
+ ¡r_cur
+ );
+ 
+ 335 
+ s
+  = 
+ 	`¡r_g‘s
+ (
+ lše¡r
+ ,
+ rså
+ ,0)) {
+ 
+ 336 
+ 	`wr™e
+ (
+ fd
+ ,
+ s
+ ,
+ lše¡r
+ ->
+ ¡r_cur
+ );
+ 
+ 338 ()
+ 	`þo£
+ (
+ fd
+ );
+ 
+ 339 
+ s
+ =
+ cmd
+ ; *s; s++)
+ 
+ 340 ià(*
+ s
+  < ' ')
+ 
+ 341 *
+ s
+  += 96;
+ 
+ 342 
+ rså
+  = 
+ 	`mypݒ
+ (
+ cmd
+ ,"r");
+ 
+ 343 
+ s
+  = 
+ 	`¡r_g‘s
+ (
+ lše¡r
+ ,
+ rså
+ ,0);
+ 
+ 344  
+ s
+ ;
+ 
+ 347  
+ 	`¡r_g‘
+ (
+ lše¡r
+ );
+ 
+ 348 
+ 	}
+ }
+ 
+ 	@eval.c
+ 
+ 18 
+ 	~"EXTERN.h
+ "
+ 
+ 19 
+ 	~"³¾.h
+ "
+ 
+ 21 #ià!
+ defšed
+ (
+ NSIG
+ è|| defšed(
+ M_UNIX
+ è|| defšed(
+ M_XENIX
+ )
+ 
+ 22 
+ 	~<sigÇl.h
+ >
+ 
+ 25 #ifdeà
+ I_FCNTL
+ 
+ 
+ 26 
+ 	~<fúŽ.h
+ >
+ 
+ 28 #ifdeà
+ I_SYS_FILE
+ 
+ 
+ 29 
+ 	~<sys/fže.h
+ >
+ 
+ 31 #ifdeà
+ I_VFORK
+ 
+ 
+ 32 
+ 	~<vfÜk.h
+ >
+ 
+ 35 #ifdeà
+ VOIDSIG
+ 
+ 
+ 36 (*
+ 	gihªd
+ )();
+ 
+ 37 (*
+ 	gqhªd
+ )();
+ 
+ 39 (*
+ 	gihªd
+ )();
+ 
+ 40 (*
+ 	gqhªd
+ )();
+ 
+ 43 
+ ARG
+  *
+ 	gdeb¬g
+ ;
+ 
+ 44 
+ STR
+  
+ 	g¡r_¬gs
+ ;
+ 
+ 45 
+ STAB
+  *
+ 	g¡ab2
+ ;
+ 
+ 46 
+ STIO
+  *
+ 	g¡io
+ ;
+ 
+ 47 
+ l¡ršg
+  *
+ 	gl¡r
+ ;
+ 
+ 48 
+ 	gÞd_rsch¬
+ ;
+ 
+ 49 
+ 	gÞd_r¦’
+ ;
+ 
+ 51 
+ sš
+ (), 
+ cos
+ (), 
+ ©ª2
+ (), 
+ pow
+ ();
+ 
+ 53 *
+ g‘logš
+ ();
+ 
+ 56 
+ 	$ev®
+ (
+ ¬g
+ ,
+ gimme
+ ,
+ ¥
+ )
+ 
+ 57 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 58 
+ gimme
+ ;
+ 
+ 59 
+ ¥
+ ;
+ 
+ 61 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 62 
+ ªum
+ ;
+ 
+ 63 
+ Ýty³
+ ;
+ 
+ 64 
+ STR
+  **
+ ¡
+ ;
+ 
+ 65 
+ max¬g
+ ;
+ 
+ 66 
+ v®ue
+ ;
+ 
+ 67 *
+ tmps
+ ;
+ 
+ 68 *
+ tmps2
+ ;
+ 
+ 69 
+ ¬gæags
+ ;
+ 
+ 70 
+ ¬gty³
+ ;
+ 
+ 71 
+ ¬g±r
+ ‡rgptr;
+ 
+ 72 
+ ¬gÏ¡
+ [8];
+ 
+ 73 
+ tm¶Úg
+ ;
+ 
+ 74 
+ wh’
+ ;
+ 
+ 75 
+ FILE
+  *
+ å
+ ;
+ 
+ 76 
+ STR
+  *
+ tmp¡r
+ ;
+ 
+ 77 
+ FCMD
+  *
+ fÜm
+ ;
+ 
+ 78 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 79 
+ ARRAY
+  *
+ ¬y
+ ;
+ 
+ 80 
+ boÞ
+  
+ assignšg
+  = 
+ FALSE
+ ;
+ 
+ 81 
+ 	`exp
+ (), 
+ 	`log
+ (), 
+ 	`sq¹
+ (), 
+ 	`modf
+ ();
+ 
+ 82 *
+ 	`üy±
+ (), *
+ 	`g‘’v
+ ();
+ 
+ 83 

+ 	`grow_dËv–
+ ();
+ 
+ 85 ià(!
+ ¬g
+ )
+ 
+ 86 
+ §y_undef
+ ;
+ 
+ 87 
+ Ýty³
+  = 
+ ¬g
+ ->
+ ¬g_ty³
+ ;
+ 
+ 88 
+ max¬g
+  = 
+ ¬g
+ ->
+ ¬g_Ën
+ ;
+ 
+ 89 
+ ¬gÏ¡
+ [0] = 
+ ¥
+ ;
+ 
+ 90 
+ ¡r
+  = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 91 ià(
+ ¥
+  + 
+ max¬g
+  > 
+ ¡ack
+ ->
+ ¬y_max
+ )
+ 
+ 92 
+ 	`a¡Üe
+ (
+ ¡ack
+ , 
+ ¥
+  + 
+ max¬g
+ , 
+ NuΡr
+ );
+ 
+ 93 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 95 #ifdeà
+ DEBUGGING
+ 
+ 
+ 96 ià(
+ debug
+ ) {
+ 
+ 97 ià(
+ debug
+  & 8) {
+ 
+ 98 
+ 	`deb
+ ("% (%lxè%d‡rgs:\n",
+ ÝÇme
+ [
+ Ýty³
+ ],
+ ¬g
+ ,
+ max¬g
+ );
+ 
+ 100 
+ debÇme
+ [
+ dËv–
+ ] = 
+ ÝÇme
+ [
+ Ýty³
+ ][0];
+ 
+ 101 
+ debd–im
+ [
+ dËv–
+ ] = ':';
+ 
+ 102 ià(++
+ dËv–
+  >ð
+ dlmax
+ )
+ 
+ 103 
+ 	`grow_dËv–
+ ();
+ 
+ 107 
+ ªum
+  = 1;‡num <ð
+ max¬g
+ ;‡num++) {
+ 
+ 108 
+ ¬gæags
+  = 
+ ¬g
+ [
+ ªum
+ ].
+ ¬g_æags
+ ;
+ 
+ 109 
+ ¬gty³
+  = 
+ ¬g
+ [
+ ªum
+ ].
+ ¬g_ty³
+ ;
+ 
+ 110 
+ ¬g±r
+  = 
+ ¬g
+ [
+ ªum
+ ].
+ ¬g_±r
+ ;
+ 
+ 111 
+ »_ev®
+ :
+ 
+ 112 
+ ¬gty³
+ ) {
+ 
+ 114 
+ ¡
+ [++
+ ¥
+ ] = &
+ ¡r_undef
+ ;
+ 
+ 115 #ifdeà
+ DEBUGGING
+ 
+ 
+ 116 
+ tmps
+  = "NULL";
+ 
+ 119 
+ A_EXPR
+ :
+ 
+ 120 #ifdeà
+ DEBUGGING
+ 
+ 
+ 121 ià(
+ debug
+  & 8) {
+ 
+ 122 
+ tmps
+  = "EXPR";
+ 
+ 123 
+ 	`deb
+ ("%d.EXPR =>\n",
+ ªum
+ );
+ 
+ 126 
+ ¥
+  = 
+ 	`ev®
+ (
+ ¬g±r
+ .
+ ¬g_¬g
+ ,
+ 
+ 127 (
+ ¬gæags
+  & 
+ AF_ARYOK
+ è? 
+ G_ARRAY
+  : 
+ G_SCALAR
+ , 
+ ¥
+ );
+ 
+ 128 ià(
+ ¥
+  + (
+ max¬g
+  - 
+ ªum
+ è> 
+ ¡ack
+ ->
+ ¬y_max
+ )
+ 
+ 129 
+ 	`a¡Üe
+ (
+ ¡ack
+ , 
+ ¥
+  + (
+ max¬g
+  - 
+ ªum
+ ), 
+ NuΡr
+ );
+ 
+ 130 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 132 
+ A_CMD
+ :
+ 
+ 133 #ifdeà
+ DEBUGGING
+ 
+ 
+ 134 ià(
+ debug
+  & 8) {
+ 
+ 135 
+ tmps
+  = "CMD";
+ 
+ 136 
+ 	`deb
+ ("%d.CMD (%lxè=>\n",
+ ªum
+ ,
+ ¬g±r
+ .
+ ¬g_cmd
+ );
+ 
+ 139 
+ ¥
+  = 
+ 	`cmd_exec
+ (
+ ¬g±r
+ .
+ ¬g_cmd
+ , 
+ gimme
+ , sp);
+ 
+ 140 ià(
+ ¥
+  + (
+ max¬g
+  - 
+ ªum
+ è> 
+ ¡ack
+ ->
+ ¬y_max
+ )
+ 
+ 141 
+ 	`a¡Üe
+ (
+ ¡ack
+ , 
+ ¥
+  + (
+ max¬g
+  - 
+ ªum
+ ), 
+ NuΡr
+ );
+ 
+ 142 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 144 
+ A_LARYSTAB
+ :
+ 
+ 145 ++
+ ¥
+ ;
+ 
+ 146 
+ Ýty³
+ ) {
+ 
+ 147 
+ O_ITEM2
+ : 
+ ¬gty³
+  = 2; ;
+ 
+ 148 
+ O_ITEM3
+ : 
+ ¬gty³
+  = 3; ;
+ 
+ 149 : 
+ ¬gty³
+  = 
+ ªum
+ ; ;
+ 
+ 151 
+ ¡r
+  = 
+ 	`aãtch
+ (
+ 	`¡ab_¬¿y
+ (
+ ¬g±r
+ .
+ ¬g_¡ab
+ ),
+ 
+ 152 
+ ¬g
+ [
+ ¬gty³
+ ].
+ ¬g_Ën
+  - 
+ ¬yba£
+ , 
+ TRUE
+ );
+ 
+ 153 #ifdeà
+ DEBUGGING
+ 
+ 
+ 154 ià(
+ debug
+  & 8) {
+ 
+ 155 ()
+ 	`¥rštf
+ (
+ buf
+ ,"LARYSTAB $%s[%d]",
+ 	`¡ab_Çme
+ (
+ ¬g±r
+ .
+ ¬g_¡ab
+ ),
+ 
+ 156 
+ ¬g
+ [
+ ¬gty³
+ ].
+ ¬g_Ën
+ );
+ 
+ 157 
+ tmps
+  = 
+ buf
+ ;
+ 
+ 160 
+ do_üem’t
+ ;
+ 
+ 161 
+ A_ARYSTAB
+ :
+ 
+ 162 
+ Ýty³
+ ) {
+ 
+ 163 
+ O_ITEM2
+ : 
+ ¬gty³
+  = 2; ;
+ 
+ 164 
+ O_ITEM3
+ : 
+ ¬gty³
+  = 3; ;
+ 
+ 165 : 
+ ¬gty³
+  = 
+ ªum
+ ; ;
+ 
+ 167 
+ ¡
+ [++
+ ¥
+ ] = 
+ 	`aãtch
+ (
+ 	`¡ab_¬¿y
+ (
+ ¬g±r
+ .
+ ¬g_¡ab
+ ),
+ 
+ 168 
+ ¬g
+ [
+ ¬gty³
+ ].
+ ¬g_Ën
+  - 
+ ¬yba£
+ , 
+ FALSE
+ );
+ 
+ 169 #ifdeà
+ DEBUGGING
+ 
+ 
+ 170 ià(
+ debug
+  & 8) {
+ 
+ 171 ()
+ 	`¥rštf
+ (
+ buf
+ ,"ARYSTAB $%s[%d]",
+ 	`¡ab_Çme
+ (
+ ¬g±r
+ .
+ ¬g_¡ab
+ ),
+ 
+ 172 
+ ¬g
+ [
+ ¬gty³
+ ].
+ ¬g_Ën
+ );
+ 
+ 173 
+ tmps
+  = 
+ buf
+ ;
+ 
+ 177 
+ A_STAR
+ :
+ 
+ 178 
+ ¡ab
+  = 
+ ¬g±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 179 
+ ¡
+ [++
+ ¥
+ ] = (
+ STR
+ *)
+ ¡ab
+ ;
+ 
+ 180 ià(!
+ 	`¡ab_x¬¿y
+ (
+ ¡ab
+ ))
+ 
+ 181 
+ 	`¯dd
+ (
+ ¡ab
+ );
+ 
+ 182 ià(!
+ 	`¡ab_xhash
+ (
+ ¡ab
+ ))
+ 
+ 183 
+ 	`hadd
+ (
+ ¡ab
+ );
+ 
+ 184 ià(!
+ 	`¡ab_io
+ (
+ ¡ab
+ ))
+ 
+ 185 
+ 	`¡ab_io
+ (
+ ¡ab
+ èð
+ 	`¡io_Ãw
+ ();
+ 
+ 186 #ifdeà
+ DEBUGGING
+ 
+ 
+ 187 ià(
+ debug
+  & 8) {
+ 
+ 188 ()
+ 	`¥rštf
+ (
+ buf
+ ,"STAR *%s",
+ 	`¡ab_Çme
+ (
+ ¬g±r
+ .
+ ¬g_¡ab
+ ));
+ 
+ 189 
+ tmps
+  = 
+ buf
+ ;
+ 
+ 193 
+ A_LSTAR
+ :
+ 
+ 194 
+ ¡r
+  = 
+ ¡
+ [++
+ ¥
+ ] = (
+ STR
+ *)
+ ¬g±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 195 #ifdeà
+ DEBUGGING
+ 
+ 
+ 196 ià(
+ debug
+  & 8) {
+ 
+ 197 ()
+ 	`¥rštf
+ (
+ buf
+ ,"LSTAR *%s",
+ 	`¡ab_Çme
+ (
+ ¬g±r
+ .
+ ¬g_¡ab
+ ));
+ 
+ 198 
+ tmps
+  = 
+ buf
+ ;
+ 
+ 202 
+ A_STAB
+ :
+ 
+ 203 
+ ¡
+ [++
+ ¥
+ ] = 
+ 	`STAB_STR
+ (
+ ¬g±r
+ .
+ ¬g_¡ab
+ );
+ 
+ 204 #ifdeà
+ DEBUGGING
+ 
+ 
+ 205 ià(
+ debug
+  & 8) {
+ 
+ 206 ()
+ 	`¥rštf
+ (
+ buf
+ ,"STAB $%s",
+ 	`¡ab_Çme
+ (
+ ¬g±r
+ .
+ ¬g_¡ab
+ ));
+ 
+ 207 
+ tmps
+  = 
+ buf
+ ;
+ 
+ 211 
+ A_LEXPR
+ :
+ 
+ 212 #ifdeà
+ DEBUGGING
+ 
+ 
+ 213 ià(
+ debug
+  & 8) {
+ 
+ 214 
+ tmps
+  = "LEXPR";
+ 
+ 215 
+ 	`deb
+ ("%d.LEXPR =>\n",
+ ªum
+ );
+ 
+ 218 ià(
+ ¬gæags
+  & 
+ AF_ARYOK
+ ) {
+ 
+ 219 
+ ¥
+  = 
+ 	`ev®
+ (
+ ¬g±r
+ .
+ ¬g_¬g
+ , 
+ G_ARRAY
+ , sp);
+ 
+ 220 ià(
+ ¥
+  + (
+ max¬g
+  - 
+ ªum
+ è> 
+ ¡ack
+ ->
+ ¬y_max
+ )
+ 
+ 221 
+ 	`a¡Üe
+ (
+ ¡ack
+ , 
+ ¥
+  + (
+ max¬g
+  - 
+ ªum
+ ), 
+ NuΡr
+ );
+ 
+ 222 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 225 
+ ¥
+  = 
+ 	`ev®
+ (
+ ¬g±r
+ .
+ ¬g_¬g
+ , 
+ G_SCALAR
+ , sp);
+ 
+ 226 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 227 
+ ¡r
+  = 
+ ¡
+ [
+ ¥
+ ];
+ 
+ 228 
+ do_üem’t
+ ;
+ 
+ 231 
+ A_LVAL
+ :
+ 
+ 232 #ifdeà
+ DEBUGGING
+ 
+ 
+ 233 ià(
+ debug
+  & 8) {
+ 
+ 234 ()
+ 	`¥rštf
+ (
+ buf
+ ,"LVAL $%s",
+ 	`¡ab_Çme
+ (
+ ¬g±r
+ .
+ ¬g_¡ab
+ ));
+ 
+ 235 
+ tmps
+  = 
+ buf
+ ;
+ 
+ 238 ++
+ ¥
+ ;
+ 
+ 239 
+ ¡r
+  = 
+ 	`STAB_STR
+ (
+ ¬g±r
+ .
+ ¬g_¡ab
+ );
+ 
+ 240 ià(!
+ ¡r
+ )
+ 
+ 241 
+ 	`çl
+ ("panic: A_LVAL");
+ 
+ 242 
+ do_üem’t
+ :
+ 
+ 243 
+ assignšg
+  = 
+ TRUE
+ ;
+ 
+ 244 ià(
+ ¬gæags
+  & 
+ AF_PRE
+ ) {
+ 
+ 245 ià(
+ ¬gæags
+  & 
+ AF_UP
+ )
+ 
+ 246 
+ 	`¡r_šc
+ (
+ ¡r
+ );
+ 
+ 248 
+ 	`¡r_dec
+ (
+ ¡r
+ );
+ 
+ 249 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 250 
+ ¡
+ [
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 251 
+ ¡r
+  = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 253 ià(
+ ¬gæags
+  & 
+ AF_POST
+ ) {
+ 
+ 254 
+ ¡
+ [
+ ¥
+ ] = 
+ 	`¡r_m܏l
+ (
+ ¡r
+ );
+ 
+ 255 ià(
+ ¬gæags
+  & 
+ AF_UP
+ )
+ 
+ 256 
+ 	`¡r_šc
+ (
+ ¡r
+ );
+ 
+ 258 
+ 	`¡r_dec
+ (
+ ¡r
+ );
+ 
+ 259 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 260 
+ ¡r
+  = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 263 
+ ¡
+ [
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 265 
+ A_LARYLEN
+ :
+ 
+ 266 ++
+ ¥
+ ;
+ 
+ 267 
+ ¡ab
+  = 
+ ¬g±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 268 
+ ¡r
+  = 
+ 	`¡ab_¬¿y
+ (
+ ¬g±r
+ .
+ ¬g_¡ab
+ )->
+ ¬y_magic
+ ;
+ 
+ 269 ià(
+ Ýty³
+  !ð
+ O_SASSIGN
+  || 
+ ¬gæags
+  & (
+ AF_PRE
+ |
+ AF_POST
+ ))
+ 
+ 270 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,()(
+ 	`¡ab_¬¿y
+ (
+ ¡ab
+ )->
+ ¬y_fžl
+ +
+ ¬yba£
+ ));
+ 
+ 271 #ifdeà
+ DEBUGGING
+ 
+ 
+ 272 
+ tmps
+  = "LARYLEN";
+ 
+ 274 ià(!
+ ¡r
+ )
+ 
+ 275 
+ 	`çl
+ ("panic: A_LEXPR");
+ 
+ 276 
+ do_üem’t
+ ;
+ 
+ 277 
+ A_ARYLEN
+ :
+ 
+ 278 
+ ¡ab
+  = 
+ ¬g±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 279 
+ ¡
+ [++
+ ¥
+ ] = 
+ 	`¡ab_¬¿y
+ (
+ ¡ab
+ )->
+ ¬y_magic
+ ;
+ 
+ 280 
+ 	`¡r_num£t
+ (
+ ¡
+ [
+ ¥
+ ],()(
+ 	`¡ab_¬¿y
+ (
+ ¡ab
+ )->
+ ¬y_fžl
+ +
+ ¬yba£
+ ));
+ 
+ 281 #ifdeà
+ DEBUGGING
+ 
+ 
+ 282 
+ tmps
+  = "ARYLEN";
+ 
+ 285 
+ A_SINGLE
+ :
+ 
+ 286 
+ ¡
+ [++
+ ¥
+ ] = 
+ ¬g±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 287 #ifdeà
+ DEBUGGING
+ 
+ 
+ 288 
+ tmps
+  = "SINGLE";
+ 
+ 291 
+ A_DOUBLE
+ :
+ 
+ 292 (è
+ 	`š‹½
+ (
+ ¡r
+ ,
+ ¬g±r
+ .
+ ¬g_¡r
+ ,
+ ¥
+ );
+ 
+ 293 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 294 
+ ¡
+ [++
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 295 #ifdeà
+ DEBUGGING
+ 
+ 
+ 296 
+ tmps
+  = "DOUBLE";
+ 
+ 299 
+ A_BACKTICK
+ :
+ 
+ 300 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ 	`š‹½
+ (
+ ¡r
+ ,
+ ¬g±r
+ .
+ ¬g_¡r
+ ,
+ ¥
+ ));
+ 
+ 301 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 302 #ifdeà
+ TAINT
+ 
+ 
+ 303 
+ 	`šrÝ”
+ ("Insecure dependency in ``");
+ 
+ 305 
+ å
+  = 
+ 	`mypݒ
+ (
+ tmps
+ ,"r");
+ 
+ 306 
+ 	`¡r_£t
+ (
+ ¡r
+ ,"");
+ 
+ 307 ià(
+ å
+ ) {
+ 
+ 308 ià(
+ gimme
+  =ð
+ G_SCALAR
+ ) {
+ 
+ 309 
+ 	`¡r_g‘s
+ (
+ ¡r
+ ,
+ å
+ ,¡r->
+ ¡r_cur
+ è!ð
+ NuÎch
+ )
+ 
+ 314 ià(++
+ ¥
+  > 
+ ¡ack
+ ->
+ ¬y_max
+ ) {
+ 
+ 315 
+ 	`a¡Üe
+ (
+ ¡ack
+ , 
+ ¥
+ , 
+ NuΡr
+ );
+ 
+ 316 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 318 
+ ¡r
+  = 
+ ¡
+ [
+ ¥
+ ] = 
+ 	`SŒ_Ãw
+ (56,80);
+ 
+ 319 ià(
+ 	`¡r_g‘s
+ (
+ ¡r
+ ,
+ å
+ ,0è=ð
+ NuÎch
+ ) {
+ 
+ 320 
+ ¥
+ --;
+ 
+ 323 ià(
+ ¡r
+ ->
+ ¡r_Ën
+  - sŒ->
+ ¡r_cur
+  > 20) {
+ 
+ 324 
+ ¡r
+ ->
+ ¡r_Ën
+  = sŒ->
+ ¡r_cur
+ +1;
+ 
+ 325 
+ 	`R’ew
+ (
+ ¡r
+ ->
+ ¡r_±r
+ , sŒ->
+ ¡r_Ën
+ , );
+ 
+ 327 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ );
+ 
+ 330 
+ ¡©usv®ue
+  = 
+ 	`mypþo£
+ (
+ å
+ );
+ 
+ 333 
+ ¡©usv®ue
+  = -1;
+ 
+ 335 ià(
+ gimme
+  =ð
+ G_SCALAR
+ )
+ 
+ 336 
+ ¡
+ [++
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 337 #ifdeà
+ DEBUGGING
+ 
+ 
+ 338 
+ tmps
+  = "BACK";
+ 
+ 341 
+ A_WANTARRAY
+ :
+ 
+ 343 ià(
+ curcsv
+ ->
+ wª¼ay
+  =ð
+ G_ARRAY
+ )
+ 
+ 344 
+ ¡
+ [++
+ ¥
+ ] = &
+ ¡r_yes
+ ;
+ 
+ 346 
+ ¡
+ [++
+ ¥
+ ] = &
+ ¡r_no
+ ;
+ 
+ 348 #ifdeà
+ DEBUGGING
+ 
+ 
+ 349 
+ tmps
+  = "WANTARRAY";
+ 
+ 352 
+ A_INDREAD
+ :
+ 
+ 353 
+ Ï¡_š_¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ 	`STAB_STR
+ (
+ ¬g±r
+ .
+ ¬g_¡ab
+ )),
+ TRUE
+ );
+ 
+ 354 
+ Þd_rsch¬
+  = 
+ rsch¬
+ ;
+ 
+ 355 
+ Þd_r¦’
+  = 
+ r¦’
+ ;
+ 
+ 356 
+ do_»ad
+ ;
+ 
+ 357 
+ A_GLOB
+ :
+ 
+ 358 
+ ¬gæags
+  |ð
+ AF_POST
+ ;
+ 
+ 359 
+ Ï¡_š_¡ab
+  = 
+ ¬g±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 360 
+ Þd_rsch¬
+  = 
+ rsch¬
+ ;
+ 
+ 361 
+ Þd_r¦’
+  = 
+ r¦’
+ ;
+ 
+ 362 
+ r¦’
+  = 1;
+ 
+ 363 #ifdeà
+ MSDOS
+ 
+ 
+ 364 
+ rsch¬
+  = 0;
+ 
+ 366 #ifdeà
+ CSH
+ 
+ 
+ 367 
+ rsch¬
+  = 0;
+ 
+ 369 
+ rsch¬
+  = '\n';
+ 
+ 372 
+ do_»ad
+ ;
+ 
+ 373 
+ A_READ
+ :
+ 
+ 374 
+ Ï¡_š_¡ab
+  = 
+ ¬g±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 375 
+ Þd_rsch¬
+  = 
+ rsch¬
+ ;
+ 
+ 376 
+ Þd_r¦’
+  = 
+ r¦’
+ ;
+ 
+ 377 
+ do_»ad
+ :
+ 
+ 378 ià(
+ ªum
+  > 1)
+ 
+ 379 
+ gimme
+  = 
+ G_SCALAR
+ ;
+ 
+ 380 ià(
+ gimme
+  =ð
+ G_ARRAY
+ )
+ 
+ 381 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (57,0);
+ 
+ 382 ++
+ ¥
+ ;
+ 
+ 383 
+ å
+  = 
+ NuÎå
+ ;
+ 
+ 384 ià(
+ 	`¡ab_io
+ (
+ Ï¡_š_¡ab
+ )) {
+ 
+ 385 
+ å
+  = 
+ 	`¡ab_io
+ (
+ Ï¡_š_¡ab
+ )->
+ iå
+ ;
+ 
+ 386 ià(!
+ å
+ ) {
+ 
+ 387 ià(
+ 	`¡ab_io
+ (
+ Ï¡_š_¡ab
+ )->
+ æags
+  & 
+ IOF_ARGV
+ ) {
+ 
+ 388 ià(
+ 	`¡ab_io
+ (
+ Ï¡_š_¡ab
+ )->
+ æags
+  & 
+ IOF_START
+ ) {
+ 
+ 389 
+ 	`¡ab_io
+ (
+ Ï¡_š_¡ab
+ )->
+ æags
+  &ð~
+ IOF_START
+ ;
+ 
+ 390 
+ 	`¡ab_io
+ (
+ Ï¡_š_¡ab
+ )->
+ lšes
+  = 0;
+ 
+ 391 ià(
+ 	`®’
+ (
+ 	`¡ab_¬¿y
+ (
+ Ï¡_š_¡ab
+ )) < 0) {
+ 
+ 392 
+ tmp¡r
+  = 
+ 	`¡r_make
+ ("-",1);
+ 
+ 393 ()
+ 	`­ush
+ (
+ 	`¡ab_¬¿y
+ (
+ Ï¡_š_¡ab
+ ), 
+ tmp¡r
+ );
+ 
+ 396 
+ å
+  = 
+ 	`Ãxrgv
+ (
+ Ï¡_š_¡ab
+ );
+ 
+ 397 ià(!
+ å
+ ) {
+ 
+ 398 ()
+ 	`do_þo£
+ (
+ Ï¡_š_¡ab
+ ,
+ FALSE
+ );
+ 
+ 399 
+ 	`¡ab_io
+ (
+ Ï¡_š_¡ab
+ )->
+ æags
+  |ð
+ IOF_START
+ ;
+ 
+ 402 ià(
+ ¬gty³
+  =ð
+ A_GLOB
+ ) {
+ 
+ 403 (è
+ 	`š‹½
+ (
+ ¡r
+ ,
+ 	`¡ab_v®
+ (
+ Ï¡_š_¡ab
+ ),
+ ¥
+ );
+ 
+ 404 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 405 
+ tmp¡r
+  = 
+ 	`SŒ_Ãw
+ (55,0);
+ 
+ 406 #ifdeà
+ MSDOS
+ 
+ 
+ 407 
+ 	`¡r_£t
+ (
+ tmp¡r
+ , "perlglob ");
+ 
+ 408 
+ 	`¡r_sÿt
+ (
+ tmp¡r
+ ,
+ ¡r
+ );
+ 
+ 409 
+ 	`¡r_ÿt
+ (
+ tmp¡r
+ ," |");
+ 
+ 411 #ifdeà
+ CSH
+ 
+ 
+ 412 
+ 	`¡r_n£t
+ (
+ tmp¡r
+ ,
+ cshÇme
+ ,
+ cshËn
+ );
+ 
+ 413 
+ 	`¡r_ÿt
+ (
+ tmp¡r
+ ," -cf 'set‚onomatch; glob ");
+ 
+ 414 
+ 	`¡r_sÿt
+ (
+ tmp¡r
+ ,
+ ¡r
+ );
+ 
+ 415 
+ 	`¡r_ÿt
+ (
+ tmp¡r
+ ,"'|");
+ 
+ 417 
+ 	`¡r_£t
+ (
+ tmp¡r
+ , "echo ");
+ 
+ 418 
+ 	`¡r_sÿt
+ (
+ tmp¡r
+ ,
+ ¡r
+ );
+ 
+ 419 
+ 	`¡r_ÿt
+ (
+ tmp¡r
+ ,
+ 
+ 423 ()
+ 	`do_ݒ
+ (
+ Ï¡_š_¡ab
+ ,
+ tmp¡r
+ ->
+ ¡r_±r
+ ,
+ 
+ 424 
+ tmp¡r
+ ->
+ ¡r_cur
+ );
+ 
+ 425 
+ å
+  = 
+ 	`¡ab_io
+ (
+ Ï¡_š_¡ab
+ )->
+ iå
+ ;
+ 
+ 426 
+ 	`¡r_ä“
+ (
+ tmp¡r
+ );
+ 
+ 430 ià(!
+ å
+  && 
+ dow¬n
+ )
+ 
+ 431 
+ 	`w¬n
+ ("R—d oÀþo£d fžehªdË <%s>",
+ 	`¡ab_Çme
+ (
+ Ï¡_š_¡ab
+ ));
+ 
+ 432 
+ wh’
+  = 
+ ¡r
+ ->
+ ¡r_Ën
+ ;
+ 
+ 433 ià(!
+ wh’
+ )
+ 
+ 434 
+ 	`SŒ_Grow
+ (
+ ¡r
+ ,80);
+ 
+ 435 
+ k“pgošg
+ :
+ 
+ 436 ià(!
+ å
+ )
+ 
+ 437 
+ ¡
+ [
+ ¥
+ ] = &
+ ¡r_undef
+ ;
+ 
+ 438 ià(!
+ 	`¡r_g‘s
+ (
+ ¡r
+ ,
+ å
+ , 
+ Ýty³
+  =ð
+ O_RCAT
+  ? sŒ->
+ ¡r_cur
+  : 0)) {
+ 
+ 439 
+ 	`þ—»¼
+ (
+ å
+ );
+ 
+ 440 ià(
+ 	`¡ab_io
+ (
+ Ï¡_š_¡ab
+ )->
+ æags
+  & 
+ IOF_ARGV
+ ) {
+ 
+ 441 
+ å
+  = 
+ 	`Ãxrgv
+ (
+ Ï¡_š_¡ab
+ );
+ 
+ 442 ià(
+ å
+ )
+ 
+ 443 
+ k“pgošg
+ ;
+ 
+ 444 ()
+ 	`do_þo£
+ (
+ Ï¡_š_¡ab
+ ,
+ FALSE
+ );
+ 
+ 445 
+ 	`¡ab_io
+ (
+ Ï¡_š_¡ab
+ )->
+ æags
+  |ð
+ IOF_START
+ ;
+ 
+ 447 ià(
+ ¬gæags
+  & 
+ AF_POST
+ ) {
+ 
+ 448 ()
+ 	`do_þo£
+ (
+ Ï¡_š_¡ab
+ ,
+ FALSE
+ );
+ 
+ 450 
+ ¡
+ [
+ ¥
+ ] = &
+ ¡r_undef
+ ;
+ 
+ 451 
+ rsch¬
+  = 
+ Þd_rsch¬
+ ;
+ 
+ 452 
+ r¦’
+  = 
+ Þd_r¦’
+ ;
+ 
+ 453 ià(
+ gimme
+  =ð
+ G_ARRAY
+ ) {
+ 
+ 454 --
+ ¥
+ ;
+ 
+ 455 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ );
+ 
+ 456 
+ ¬¿y_»tuº
+ ;
+ 
+ 461 
+ 	`¡ab_io
+ (
+ Ï¡_š_¡ab
+ )->
+ lšes
+ ++;
+ 
+ 462 
+ ¡
+ [
+ ¥
+ ] = 
+ ¡r
+ ;
+ 
+ 463 #ifdeà
+ TAINT
+ 
+ 
+ 464 
+ ¡r
+ ->
+ ¡r_š‹d
+  = 1;
+ 
+ 466 ià(
+ ¬gæags
+  & 
+ AF_POST
+ ) {
+ 
+ 467 ià(
+ ¡r
+ ->
+ ¡r_cur
+  > 0)
+ 
+ 468 
+ ¡r
+ ->
+ ¡r_cur
+ --;
+ 
+ 469 ià(
+ ¡r
+ ->
+ ¡r_±r
+ [¡r->
+ ¡r_cur
+ ] =ð
+ rsch¬
+ )
+ 
+ 470 
+ ¡r
+ ->
+ ¡r_±r
+ [¡r->
+ ¡r_cur
+ ] = '\0';
+ 
+ 472 
+ ¡r
+ ->
+ ¡r_cur
+ ++;
+ 
+ 473 
+ tmps
+  = 
+ ¡r
+ ->
+ ¡r_±r
+ ; *tmps;mps++)
+ 
+ 474 ià(!
+ 	`i§Íha
+ (*
+ tmps
+ è&& !
+ 	`isdig™
+ (*tmps) &&
+ 
+ 475 
+ 	`šdex
+ ("$&*(){}[]'\";\\|?<>~`",*
+ tmps
+ ))
+ 
+ 477 ià(*
+ tmps
+  && 
+ 	`¡©
+ (
+ ¡r
+ ->
+ ¡r_±r
+ ,&
+ ¡©buf
+ ) < 0)
+ 
+ 478 
+ k“pgošg
+ ;
+ 
+ 480 ià(
+ gimme
+  =ð
+ G_ARRAY
+ ) {
+ 
+ 481 ià(
+ ¡r
+ ->
+ ¡r_Ën
+  - sŒ->
+ ¡r_cur
+  > 20) {
+ 
+ 482 
+ ¡r
+ ->
+ ¡r_Ën
+  = sŒ->
+ ¡r_cur
+ +1;
+ 
+ 483 
+ 	`R’ew
+ (
+ ¡r
+ ->
+ ¡r_±r
+ , sŒ->
+ ¡r_Ën
+ , );
+ 
+ 485 
+ 	`¡r_2m܏l
+ (
+ ¡r
+ );
+ 
+ 486 ià(++
+ ¥
+  > 
+ ¡ack
+ ->
+ ¬y_max
+ ) {
+ 
+ 487 
+ 	`a¡Üe
+ (
+ ¡ack
+ , 
+ ¥
+ , 
+ NuΡr
+ );
+ 
+ 488 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 490 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (58,80);
+ 
+ 491 
+ k“pgošg
+ ;
+ 
+ 493 ià(!
+ wh’
+  && 
+ ¡r
+ ->
+ ¡r_Ën
+  - sŒ->
+ ¡r_cur
+  > 80) {
+ 
+ 495 ià(
+ ¡r
+ ->
+ ¡r_cur
+  < 60)
+ 
+ 496 
+ ¡r
+ ->
+ ¡r_Ën
+  = 80;
+ 
+ 498 
+ ¡r
+ ->
+ ¡r_Ën
+  = sŒ->
+ ¡r_cur
+ +40;
+ 
+ 499 
+ 	`R’ew
+ (
+ ¡r
+ ->
+ ¡r_±r
+ , sŒ->
+ ¡r_Ën
+ , );
+ 
+ 502 
+ rsch¬
+  = 
+ Þd_rsch¬
+ ;
+ 
+ 503 
+ r¦’
+  = 
+ Þd_r¦’
+ ;
+ 
+ 504 #ifdeà
+ DEBUGGING
+ 
+ 
+ 505 
+ tmps
+  = "READ";
+ 
+ 509 #ifdeà
+ DEBUGGING
+ 
+ 
+ 510 ià(
+ debug
+  & 8)
+ 
+ 511 
+ 	`deb
+ ("%d.% ð'%s'\n",
+ ªum
+ ,
+ tmps
+ ,
+ 	`¡r_³ek
+ (
+ ¡
+ [
+ ¥
+ ]));
+ 
+ 513 ià(
+ ªum
+  < 8)
+ 
+ 514 
+ ¬gÏ¡
+ [
+ ªum
+ ] = 
+ ¥
+ ;
+ 
+ 517 
+ ¡
+  +ð
+ ¬gÏ¡
+ [0];
+ 
+ 518 #ifdeà
+ SMALLSWITCHES
+ 
+ 
+ 519 ià(
+ Ýty³
+  < 
+ O_CHOWN
+ )
+ 
+ 521 
+ Ýty³
+ ) {
+ 
+ 522 
+ O_RCAT
+ :
+ 
+ 523 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 525 
+ O_ITEM
+ :
+ 
+ 526 ià(
+ gimme
+  =ð
+ G_ARRAY
+ )
+ 
+ 527 
+ ¬¿y_»tuº
+ ;
+ 
+ 529 
+ O_SCALAR
+ :
+ 
+ 530 
+ 	`STR_SSET
+ (
+ ¡r
+ ,
+ ¡
+ [1]);
+ 
+ 531 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 533 
+ O_ITEM2
+ :
+ 
+ 534 ià(
+ gimme
+  =ð
+ G_ARRAY
+ )
+ 
+ 535 
+ ¬¿y_»tuº
+ ;
+ 
+ 536 --
+ ªum
+ ;
+ 
+ 537 
+ 	`STR_SSET
+ (
+ ¡r
+ ,
+ ¡
+ [
+ ¬gÏ¡
+ [
+ ªum
+ ]-arglast[0]]);
+ 
+ 538 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 540 
+ O_ITEM3
+ :
+ 
+ 541 ià(
+ gimme
+  =ð
+ G_ARRAY
+ )
+ 
+ 542 
+ ¬¿y_»tuº
+ ;
+ 
+ 543 --
+ ªum
+ ;
+ 
+ 544 
+ 	`STR_SSET
+ (
+ ¡r
+ ,
+ ¡
+ [
+ ¬gÏ¡
+ [
+ ªum
+ ]-arglast[0]]);
+ 
+ 545 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 547 
+ O_CONCAT
+ :
+ 
+ 548 
+ 	`STR_SSET
+ (
+ ¡r
+ ,
+ ¡
+ [1]);
+ 
+ 549 
+ 	`¡r_sÿt
+ (
+ ¡r
+ ,
+ ¡
+ [2]);
+ 
+ 550 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 552 
+ O_REPEAT
+ :
+ 
+ 553 ià(
+ gimme
+  =ð
+ G_ARRAY
+  && 
+ ¬g
+ [1].
+ ¬g_æags
+  & 
+ AF_ARYOK
+ ) {
+ 
+ 554 
+ ¥
+  = 
+ 	`do_»³©¬y
+ (
+ ¬gÏ¡
+ );
+ 
+ 555 
+ ¬¿y_»tuº
+ ;
+ 
+ 557 
+ 	`STR_SSET
+ (
+ ¡r
+ ,
+ ¡
+ [
+ ¬gÏ¡
+ [1] -‡rglast[0]]);
+ 
+ 558 
+ ªum
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [
+ ¬gÏ¡
+ [2] -‡rglast[0]]);
+ 
+ 559 ià(
+ ªum
+  >= 1) {
+ 
+ 560 
+ tmp¡r
+  = 
+ 	`SŒ_Ãw
+ (50, 0);
+ 
+ 561 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 562 
+ 	`¡r_n£t
+ (
+ tmp¡r
+ ,
+ tmps
+ ,
+ ¡r
+ ->
+ ¡r_cur
+ );
+ 
+ 563 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ tmp¡r
+ );
+ 
+ 564 
+ 	`STR_GROW
+ (
+ ¡r
+ , (
+ ªum
+  * sŒ->
+ ¡r_cur
+ ) + 1);
+ 
+ 565 
+ 	`»³©ýy
+ (
+ ¡r
+ ->
+ ¡r_±r
+ , 
+ tmps
+ , 
+ tmp¡r
+ ->
+ ¡r_cur
+ , 
+ ªum
+ );
+ 
+ 566 
+ ¡r
+ ->
+ ¡r_cur
+  *ð
+ ªum
+ ;
+ 
+ 567 
+ ¡r
+ ->
+ ¡r_±r
+ [¡r->
+ ¡r_cur
+ ] = '\0';
+ 
+ 568 
+ ¡r
+ ->
+ ¡r_nok
+  = 0;
+ 
+ 569 
+ 	`¡r_ä“
+ (
+ tmp¡r
+ );
+ 
+ 572 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_no
+ );
+ 
+ 573 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 575 
+ O_MATCH
+ :
+ 
+ 576 
+ ¥
+  = 
+ 	`do_m©ch
+ (
+ ¡r
+ ,
+ ¬g
+ ,
+ 
+ 577 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 578 ià(
+ gimme
+  =ð
+ G_ARRAY
+ )
+ 
+ 579 
+ ¬¿y_»tuº
+ ;
+ 
+ 580 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 582 
+ O_NMATCH
+ :
+ 
+ 583 
+ ¥
+  = 
+ 	`do_m©ch
+ (
+ ¡r
+ ,
+ ¬g
+ ,
+ 
+ 584 
+ G_SCALAR
+ ,
+ ¬gÏ¡
+ );
+ 
+ 585 
+ 	`¡r_s£t
+ (
+ ¡r
+ , 
+ 	`¡r_Œue
+ (¡rè? &
+ ¡r_no
+  : &
+ ¡r_yes
+ );
+ 
+ 586 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 588 
+ O_SUBST
+ :
+ 
+ 589 
+ ¥
+  = 
+ 	`do_sub¡
+ (
+ ¡r
+ ,
+ ¬g
+ ,
+ ¬gÏ¡
+ [0]);
+ 
+ 590 
+ ¬¿y_»tuº
+ ;
+ 
+ 591 
+ O_NSUBST
+ :
+ 
+ 592 
+ ¥
+  = 
+ 	`do_sub¡
+ (
+ ¡r
+ ,
+ ¬g
+ ,
+ ¬gÏ¡
+ [0]);
+ 
+ 593 
+ ¡r
+  = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 594 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ 	`¡r_Œue
+ (¡rè? 
+ No
+  : 
+ Yes
+ );
+ 
+ 595 
+ ¬¿y_»tuº
+ ;
+ 
+ 596 
+ O_ASSIGN
+ :
+ 
+ 597 ià(
+ ¬g
+ [1].
+ ¬g_æags
+  & 
+ AF_ARYOK
+ ) {
+ 
+ 598 ià(
+ ¬g
+ ->
+ ¬g_Ën
+  == 1) {
+ 
+ 599 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_LOCAL
+ ;
+ 
+ 600 
+ loÿl
+ ;
+ 
+ 603 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_AASSIGN
+ ;
+ 
+ 604 
+ ¯ssign
+ ;
+ 
+ 608 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_SASSIGN
+ ;
+ 
+ 609 
+ §ssign
+ ;
+ 
+ 611 
+ O_LOCAL
+ :
+ 
+ 612 
+ loÿl
+ :
+ 
+ 613 
+ ¬gÏ¡
+ [2] =‡rglast[1];
+ 
+ 615 
+ O_AASSIGN
+ :
+ 
+ 616 
+ ¯ssign
+ :
+ 
+ 617 
+ ¥
+  = 
+ 	`do_assign
+ (
+ ¬g
+ ,
+ 
+ 618 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 619 
+ ¬¿y_»tuº
+ ;
+ 
+ 620 
+ O_SASSIGN
+ :
+ 
+ 621 
+ §ssign
+ :
+ 
+ 622 
+ 	`STR_SSET
+ (
+ ¡r
+ , 
+ ¡
+ [2]);
+ 
+ 623 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 625 
+ O_CHOP
+ :
+ 
+ 626 
+ ¡
+  -ð
+ ¬gÏ¡
+ [0];
+ 
+ 627 
+ ¡r
+  = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 628 
+ ¥
+  = 
+ ¬gÏ¡
+ [0] + 1; sp <=‡rglast[1]; sp++)
+ 
+ 629 
+ 	`do_chÝ
+ (
+ ¡r
+ ,
+ ¡
+ [
+ ¥
+ ]);
+ 
+ 630 
+ ¡
+  +ð
+ ¬gÏ¡
+ [0];
+ 
+ 632 
+ O_DEFINED
+ :
+ 
+ 633 ià(
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_DONT
+ ) {
+ 
+ 634 
+ ¥
+  = 
+ 	`do_defšed
+ (
+ ¡r
+ ,
+ ¬g
+ ,
+ 
+ 635 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 636 
+ ¬¿y_»tuº
+ ;
+ 
+ 638 ià(
+ ¡r
+ ->
+ ¡r_pok
+  || sŒ->
+ ¡r_nok
+ )
+ 
+ 639 
+ §y_yes
+ ;
+ 
+ 640 
+ §y_no
+ ;
+ 
+ 641 
+ O_UNDEF
+ :
+ 
+ 642 ià(
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_DONT
+ ) {
+ 
+ 643 
+ ¥
+  = 
+ 	`do_undef
+ (
+ ¡r
+ ,
+ ¬g
+ ,
+ 
+ 644 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 645 
+ ¬¿y_»tuº
+ ;
+ 
+ 647 ià(
+ ¡r
+  !ð
+ 	`¡ab_v®
+ (
+ def¡ab
+ )) {
+ 
+ 648 ià(
+ ¡r
+ ->
+ ¡r_Ën
+ ) {
+ 
+ 649 ià(
+ ¡r
+ ->
+ ¡r_¡©e
+  =ð
+ SS_INCR
+ )
+ 
+ 650 
+ 	`SŒ_Grow
+ (
+ ¡r
+ ,0);
+ 
+ 651 
+ 	`Saãä“
+ (
+ ¡r
+ ->
+ ¡r_±r
+ );
+ 
+ 652 
+ ¡r
+ ->
+ ¡r_±r
+  = 
+ NuÎch
+ ;
+ 
+ 653 
+ ¡r
+ ->
+ ¡r_Ën
+  = 0;
+ 
+ 655 
+ ¡r
+ ->
+ ¡r_pok
+  = sŒ->
+ ¡r_nok
+  = 0;
+ 
+ 656 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 658 
+ §y_undef
+ ;
+ 
+ 659 
+ O_STUDY
+ :
+ 
+ 660 
+ ¥
+  = 
+ 	`do_¡udy
+ (
+ ¡r
+ ,
+ ¬g
+ ,
+ 
+ 661 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 662 
+ ¬¿y_»tuº
+ ;
+ 
+ 663 
+ O_POW
+ :
+ 
+ 664 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 665 
+ v®ue
+  = 
+ 	`pow
+ (v®ue,
+ 	`¡r_gnum
+ (
+ ¡
+ [2]));
+ 
+ 666 
+ dÚum£t
+ ;
+ 
+ 667 
+ O_MULTIPLY
+ :
+ 
+ 668 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 669 
+ v®ue
+  *ð
+ 	`¡r_gnum
+ (
+ ¡
+ [2]);
+ 
+ 670 
+ dÚum£t
+ ;
+ 
+ 671 
+ O_DIVIDE
+ :
+ 
+ 672 ià((
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [2])) == 0.0)
+ 
+ 673 
+ 	`çl
+ ("Illegal division by zero");
+ 
+ 674 #ifdeà
+ üay
+ 
+ 
+ 677 
+ x
+ ;
+ 
+ 678 
+ k
+ ;
+ 
+ 679 
+ x
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 680 ià(()()
+ x
+  == x &&
+ 
+ 681 ()()
+ v®ue
+  == value &&
+ 
+ 682 (
+ k
+  = ()
+ x
+ /()
+ v®ue
+ )*()value == ()x) {
+ 
+ 683 
+ v®ue
+  = 
+ k
+ ;
+ 
+ 685 
+ v®ue
+  = 
+ x
+ /value;
+ 
+ 689 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]) / value;
+ 
+ 691 
+ dÚum£t
+ ;
+ 
+ 692 
+ O_MODULO
+ :
+ 
+ 693 
+ tm¶Úg
+  = (è
+ 	`¡r_gnum
+ (
+ ¡
+ [2]);
+ 
+ 694 ià(
+ tm¶Úg
+  == 0L)
+ 
+ 695 
+ 	`çl
+ ("Illegal modulus zero");
+ 
+ 696 
+ wh’
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 697 #iâdeà
+ lšt
+ 
+ 
+ 698 ià(
+ wh’
+  >= 0)
+ 
+ 699 
+ v®ue
+  = ()(
+ wh’
+  % 
+ tm¶Úg
+ );
+ 
+ 701 
+ v®ue
+  = ()(
+ tm¶Úg
+  - ((-
+ wh’
+  - 1) %mplong)) - 1;
+ 
+ 703 
+ dÚum£t
+ ;
+ 
+ 704 
+ O_ADD
+ :
+ 
+ 705 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 706 
+ v®ue
+  +ð
+ 	`¡r_gnum
+ (
+ ¡
+ [2]);
+ 
+ 707 
+ dÚum£t
+ ;
+ 
+ 708 
+ O_SUBTRACT
+ :
+ 
+ 709 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 710 
+ v®ue
+  -ð
+ 	`¡r_gnum
+ (
+ ¡
+ [2]);
+ 
+ 711 
+ dÚum£t
+ ;
+ 
+ 712 
+ O_LEFT_SHIFT
+ :
+ 
+ 713 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 714 
+ ªum
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [2]);
+ 
+ 715 #iâdeà
+ lšt
+ 
+ 
+ 716 
+ v®ue
+  = ()(
+ 	`U_L
+ (v®ueè<< 
+ ªum
+ );
+ 
+ 718 
+ dÚum£t
+ ;
+ 
+ 719 
+ O_RIGHT_SHIFT
+ :
+ 
+ 720 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 721 
+ ªum
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [2]);
+ 
+ 722 #iâdeà
+ lšt
+ 
+ 
+ 723 
+ v®ue
+  = ()(
+ 	`U_L
+ (v®ueè>> 
+ ªum
+ );
+ 
+ 725 
+ dÚum£t
+ ;
+ 
+ 726 
+ O_LT
+ :
+ 
+ 727 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 728 
+ v®ue
+  = (v®u< 
+ 	`¡r_gnum
+ (
+ ¡
+ [2])) ? 1.0 : 0.0;
+ 
+ 729 
+ dÚum£t
+ ;
+ 
+ 730 
+ O_GT
+ :
+ 
+ 731 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 732 
+ v®ue
+  = (v®u> 
+ 	`¡r_gnum
+ (
+ ¡
+ [2])) ? 1.0 : 0.0;
+ 
+ 733 
+ dÚum£t
+ ;
+ 
+ 734 
+ O_LE
+ :
+ 
+ 735 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 736 
+ v®ue
+  = (v®u<ð
+ 	`¡r_gnum
+ (
+ ¡
+ [2])) ? 1.0 : 0.0;
+ 
+ 737 
+ dÚum£t
+ ;
+ 
+ 738 
+ O_GE
+ :
+ 
+ 739 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 740 
+ v®ue
+  = (v®u>ð
+ 	`¡r_gnum
+ (
+ ¡
+ [2])) ? 1.0 : 0.0;
+ 
+ 741 
+ dÚum£t
+ ;
+ 
+ 742 
+ O_EQ
+ :
+ 
+ 743 ià(
+ dow¬n
+ ) {
+ 
+ 744 ià((!
+ ¡
+ [1]->
+ ¡r_nok
+  && !
+ 	`looks_like_numb”
+ (st[1])) ||
+ 
+ 745 (!
+ ¡
+ [2]->
+ ¡r_nok
+  && !
+ 	`looks_like_numb”
+ (st[2])) )
+ 
+ 746 
+ 	`w¬n
+ ("Possible use of == on string value");
+ 
+ 748 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 749 
+ v®ue
+  = (v®u=ð
+ 	`¡r_gnum
+ (
+ ¡
+ [2])) ? 1.0 : 0.0;
+ 
+ 750 
+ dÚum£t
+ ;
+ 
+ 751 
+ O_NE
+ :
+ 
+ 752 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 753 
+ v®ue
+  = (v®u!ð
+ 	`¡r_gnum
+ (
+ ¡
+ [2])) ? 1.0 : 0.0;
+ 
+ 754 
+ dÚum£t
+ ;
+ 
+ 755 
+ O_NCMP
+ :
+ 
+ 756 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 757 
+ v®ue
+  -ð
+ 	`¡r_gnum
+ (
+ ¡
+ [2]);
+ 
+ 758 ià(
+ v®ue
+  > 0.0)
+ 
+ 759 
+ v®ue
+  = 1.0;
+ 
+ 760 ià(
+ v®ue
+  < 0.0)
+ 
+ 761 
+ v®ue
+  = -1.0;
+ 
+ 762 
+ dÚum£t
+ ;
+ 
+ 763 
+ O_BIT_AND
+ :
+ 
+ 764 ià(!
+ §wvec
+  || 
+ ¡
+ [1]->
+ ¡r_nok
+  || st[2]->str_nok) {
+ 
+ 765 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 766 #iâdeà
+ lšt
+ 
+ 
+ 767 
+ v®ue
+  = ()(
+ 	`U_L
+ (v®ueè& U_L(
+ 	`¡r_gnum
+ (
+ ¡
+ [2])));
+ 
+ 769 
+ dÚum£t
+ ;
+ 
+ 772 
+ 	`do_vÝ
+ (
+ Ýty³
+ ,
+ ¡r
+ ,
+ ¡
+ [1],st[2]);
+ 
+ 774 
+ O_XOR
+ :
+ 
+ 775 ià(!
+ §wvec
+  || 
+ ¡
+ [1]->
+ ¡r_nok
+  || st[2]->str_nok) {
+ 
+ 776 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 777 #iâdeà
+ lšt
+ 
+ 
+ 778 
+ v®ue
+  = ()(
+ 	`U_L
+ (v®ueè^ U_L(
+ 	`¡r_gnum
+ (
+ ¡
+ [2])));
+ 
+ 780 
+ dÚum£t
+ ;
+ 
+ 783 
+ 	`do_vÝ
+ (
+ Ýty³
+ ,
+ ¡r
+ ,
+ ¡
+ [1],st[2]);
+ 
+ 785 
+ O_BIT_OR
+ :
+ 
+ 786 ià(!
+ §wvec
+  || 
+ ¡
+ [1]->
+ ¡r_nok
+  || st[2]->str_nok) {
+ 
+ 787 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 788 #iâdeà
+ lšt
+ 
+ 
+ 789 
+ v®ue
+  = ()(
+ 	`U_L
+ (v®ueè| U_L(
+ 	`¡r_gnum
+ (
+ ¡
+ [2])));
+ 
+ 791 
+ dÚum£t
+ ;
+ 
+ 794 
+ 	`do_vÝ
+ (
+ Ýty³
+ ,
+ ¡r
+ ,
+ ¡
+ [1],st[2]);
+ 
+ 797 
+ O_AND
+ :
+ 
+ 798 ià(
+ 	`¡r_Œue
+ (
+ ¡
+ [1])) {
+ 
+ 799 
+ ªum
+  = 2;
+ 
+ 800 
+ Ýty³
+  = 
+ O_ITEM2
+ ;
+ 
+ 801 
+ ¬gæags
+  = 
+ ¬g
+ [
+ ªum
+ ].
+ ¬g_æags
+ ;
+ 
+ 802 ià(
+ gimme
+  =ð
+ G_ARRAY
+ )
+ 
+ 803 
+ ¬gæags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 804 
+ ¬gty³
+  = 
+ ¬g
+ [
+ ªum
+ ].
+ ¬g_ty³
+  & 
+ A_MASK
+ ;
+ 
+ 805 
+ ¬g±r
+  = 
+ ¬g
+ [
+ ªum
+ ].
+ ¬g_±r
+ ;
+ 
+ 806 
+ max¬g
+  = 
+ ªum
+  = 1;
+ 
+ 807 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 808 
+ ¡
+  -ð
+ ¥
+ ;
+ 
+ 809 
+ »_ev®
+ ;
+ 
+ 812 ià(
+ assignšg
+ ) {
+ 
+ 813 
+ 	`¡r_s£t
+ (
+ ¡r
+ , 
+ ¡
+ [1]);
+ 
+ 814 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 817 
+ ¡r
+  = 
+ ¡
+ [1];
+ 
+ 820 
+ O_OR
+ :
+ 
+ 821 ià(
+ 	`¡r_Œue
+ (
+ ¡
+ [1])) {
+ 
+ 822 ià(
+ assignšg
+ ) {
+ 
+ 823 
+ 	`¡r_s£t
+ (
+ ¡r
+ , 
+ ¡
+ [1]);
+ 
+ 824 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 827 
+ ¡r
+  = 
+ ¡
+ [1];
+ 
+ 831 
+ ªum
+  = 2;
+ 
+ 832 
+ Ýty³
+  = 
+ O_ITEM2
+ ;
+ 
+ 833 
+ ¬gæags
+  = 
+ ¬g
+ [
+ ªum
+ ].
+ ¬g_æags
+ ;
+ 
+ 834 ià(
+ gimme
+  =ð
+ G_ARRAY
+ )
+ 
+ 835 
+ ¬gæags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 836 
+ ¬gty³
+  = 
+ ¬g
+ [
+ ªum
+ ].
+ ¬g_ty³
+  & 
+ A_MASK
+ ;
+ 
+ 837 
+ ¬g±r
+  = 
+ ¬g
+ [
+ ªum
+ ].
+ ¬g_±r
+ ;
+ 
+ 838 
+ max¬g
+  = 
+ ªum
+  = 1;
+ 
+ 839 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 840 
+ ¡
+  -ð
+ ¥
+ ;
+ 
+ 841 
+ »_ev®
+ ;
+ 
+ 843 
+ O_COND_EXPR
+ :
+ 
+ 844 
+ ªum
+  = (
+ 	`¡r_Œue
+ (
+ ¡
+ [1]) ? 2 : 3);
+ 
+ 845 
+ Ýty³
+  = (
+ ªum
+  =ð2 ? 
+ O_ITEM2
+  : 
+ O_ITEM3
+ );
+ 
+ 846 
+ ¬gæags
+  = 
+ ¬g
+ [
+ ªum
+ ].
+ ¬g_æags
+ ;
+ 
+ 847 ià(
+ gimme
+  =ð
+ G_ARRAY
+ )
+ 
+ 848 
+ ¬gæags
+  |ð
+ AF_ARYOK
+ ;
+ 
+ 849 
+ ¬gty³
+  = 
+ ¬g
+ [
+ ªum
+ ].
+ ¬g_ty³
+  & 
+ A_MASK
+ ;
+ 
+ 850 
+ ¬g±r
+  = 
+ ¬g
+ [
+ ªum
+ ].
+ ¬g_±r
+ ;
+ 
+ 851 
+ max¬g
+  = 
+ ªum
+  = 1;
+ 
+ 852 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 853 
+ ¡
+  -ð
+ ¥
+ ;
+ 
+ 854 
+ »_ev®
+ ;
+ 
+ 855 
+ O_COMMA
+ :
+ 
+ 856 ià(
+ gimme
+  =ð
+ G_ARRAY
+ )
+ 
+ 857 
+ ¬¿y_»tuº
+ ;
+ 
+ 858 
+ ¡r
+  = 
+ ¡
+ [2];
+ 
+ 860 
+ O_NEGATE
+ :
+ 
+ 861 
+ v®ue
+  = -
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 862 
+ dÚum£t
+ ;
+ 
+ 863 
+ O_NOT
+ :
+ 
+ 864 
+ v®ue
+  = (è!
+ 	`¡r_Œue
+ (
+ ¡
+ [1]);
+ 
+ 865 
+ dÚum£t
+ ;
+ 
+ 866 
+ O_COMPLEMENT
+ :
+ 
+ 867 ià(!
+ §wvec
+  || 
+ ¡
+ [1]->
+ ¡r_nok
+ ) {
+ 
+ 868 #iâdeà
+ lšt
+ 
+ 
+ 869 
+ v®ue
+  = (è~
+ 	`U_L
+ (
+ 	`¡r_gnum
+ (
+ ¡
+ [1]));
+ 
+ 871 
+ dÚum£t
+ ;
+ 
+ 874 
+ 	`STR_SSET
+ (
+ ¡r
+ ,
+ ¡
+ [1]);
+ 
+ 875 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 876 
+ ªum
+  = 
+ ¡r
+ ->
+ ¡r_cur
+ ;‡num;‡num--, 
+ tmps
+ ++)
+ 
+ 877 *
+ tmps
+  = ~*tmps;
+ 
+ 880 
+ O_SELECT
+ :
+ 
+ 881 
+ 	`¡ab_fuÎÇme
+ (
+ ¡r
+ ,
+ defout¡ab
+ );
+ 
+ 882 ià(
+ max¬g
+  > 0) {
+ 
+ 883 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 884 
+ defout¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 886 
+ defout¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 887 ià(!
+ 	`¡ab_io
+ (
+ defout¡ab
+ ))
+ 
+ 888 
+ 	`¡ab_io
+ (
+ defout¡ab
+ èð
+ 	`¡io_Ãw
+ ();
+ 
+ 889 
+ curout¡ab
+  = 
+ defout¡ab
+ ;
+ 
+ 891 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 893 
+ O_WRITE
+ :
+ 
+ 894 ià(
+ max¬g
+  == 0)
+ 
+ 895 
+ ¡ab
+  = 
+ defout¡ab
+ ;
+ 
+ 896 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ ) {
+ 
+ 897 ià(!(
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ))
+ 
+ 898 
+ ¡ab
+  = 
+ defout¡ab
+ ;
+ 
+ 901 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 902 ià(!
+ 	`¡ab_io
+ (
+ ¡ab
+ )) {
+ 
+ 903 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ No
+ );
+ 
+ 904 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 907 
+ curout¡ab
+  = 
+ ¡ab
+ ;
+ 
+ 908 
+ å
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ oå
+ ;
+ 
+ 909 
+ deb¬g
+  = 
+ ¬g
+ ;
+ 
+ 910 ià(
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ fmt_¡ab
+ )
+ 
+ 911 
+ fÜm
+  = 
+ 	`¡ab_fÜm
+ (
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ fmt_¡ab
+ );
+ 
+ 913 
+ fÜm
+  = 
+ 	`¡ab_fÜm
+ (
+ ¡ab
+ );
+ 
+ 914 ià(!
+ fÜm
+  || !
+ å
+ ) {
+ 
+ 915 ià(
+ dow¬n
+ ) {
+ 
+ 916 ià(
+ fÜm
+ )
+ 
+ 917 
+ 	`w¬n
+ ("No format for filehandle");
+ 
+ 919 ià(
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ iå
+ )
+ 
+ 920 
+ 	`w¬n
+ ("Filehandle only opened for input");
+ 
+ 922 
+ 	`w¬n
+ ("Write on closed filehandle");
+ 
+ 925 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ No
+ );
+ 
+ 926 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 929 
+ 	`fÜm©
+ (&
+ ouŒec
+ ,
+ fÜm
+ ,
+ ¥
+ );
+ 
+ 930 
+ 	`do_wr™e
+ (&
+ ouŒec
+ ,
+ 	`¡ab_io
+ (
+ ¡ab
+ ),
+ ¥
+ );
+ 
+ 931 ià(
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ æags
+  & 
+ IOF_FLUSH
+ )
+ 
+ 932 ()
+ 	`fæush
+ (
+ å
+ );
+ 
+ 933 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ Yes
+ );
+ 
+ 934 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 936 
+ O_DBMOPEN
+ :
+ 
+ 937 #ifdeà
+ SOME_DBM
+ 
+ 
+ 938 
+ ªum
+  = 
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ ;
+ 
+ 939 ià(
+ ªum
+  =ð
+ A_WORD
+  ||‡num =ð
+ A_STAB
+ )
+ 
+ 940 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 942 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 943 ià(
+ ¡
+ [3]->
+ ¡r_nok
+  || st[3]->
+ ¡r_pok
+ )
+ 
+ 944 
+ ªum
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [3]);
+ 
+ 946 
+ ªum
+  = -1;
+ 
+ 947 
+ v®ue
+  = ()
+ 	`hdbmݒ
+ (
+ 	`¡ab_hash
+ (
+ ¡ab
+ ),
+ 	`¡r_g‘
+ (
+ ¡
+ [2]),
+ ªum
+ );
+ 
+ 948 
+ dÚum£t
+ ;
+ 
+ 950 
+ 	`çl
+ ("No dbm or‚dbm onhis machine");
+ 
+ 952 
+ O_DBMCLOSE
+ :
+ 
+ 953 #ifdeà
+ SOME_DBM
+ 
+ 
+ 954 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 955 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 957 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 958 
+ 	`hdbmþo£
+ (
+ 	`¡ab_hash
+ (
+ ¡ab
+ ));
+ 
+ 959 
+ §y_yes
+ ;
+ 
+ 961 
+ 	`çl
+ ("No dbm or‚dbm onhis machine");
+ 
+ 963 
+ O_OPEN
+ :
+ 
+ 964 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 965 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 967 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 968 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [2]);
+ 
+ 969 ià(
+ 	`do_ݒ
+ (
+ ¡ab
+ ,
+ tmps
+ ,
+ ¡
+ [2]->
+ ¡r_cur
+ )) {
+ 
+ 970 
+ v®ue
+  = ()
+ fÜk´oûss
+ ;
+ 
+ 971 
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ lšes
+  = 0;
+ 
+ 972 
+ dÚum£t
+ ;
+ 
+ 974 ià(
+ fÜk´oûss
+  == 0)
+ 
+ 975 
+ §y_z”o
+ ;
+ 
+ 977 
+ §y_undef
+ ;
+ 
+ 979 
+ O_TRANS
+ :
+ 
+ 980 
+ v®ue
+  = (è
+ 	`do_λs
+ (
+ ¡r
+ ,
+ ¬g
+ );
+ 
+ 981 
+ ¡r
+  = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 982 
+ dÚum£t
+ ;
+ 
+ 983 
+ O_NTRANS
+ :
+ 
+ 984 
+ 	`¡r_£t
+ (
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ , 
+ 	`do_λs
+ (
+ ¡r
+ ,¬gè=ð0 ? 
+ Yes
+  : 
+ No
+ );
+ 
+ 985 
+ ¡r
+  = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 987 
+ O_CLOSE
+ :
+ 
+ 988 ià(
+ max¬g
+  == 0)
+ 
+ 989 
+ ¡ab
+  = 
+ defout¡ab
+ ;
+ 
+ 990 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 991 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 993 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 994 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ 	`do_þo£
+ (
+ ¡ab
+ ,
+ TRUE
+ è? 
+ Yes
+  : 
+ No
+  );
+ 
+ 995 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 997 
+ O_EACH
+ :
+ 
+ 998 
+ ¥
+  = 
+ 	`do_—ch
+ (
+ ¡r
+ ,
+ 	`¡ab_hash
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ),
+ 
+ 999 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1000 
+ ¬¿y_»tuº
+ ;
+ 
+ 1001 
+ O_VALUES
+ :
+ 
+ 1002 
+ O_KEYS
+ :
+ 
+ 1003 
+ ¥
+  = 
+ 	`do_kv
+ (
+ ¡r
+ ,
+ 	`¡ab_hash
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ), 
+ Ýty³
+ ,
+ 
+ 1004 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1005 
+ ¬¿y_»tuº
+ ;
+ 
+ 1006 
+ O_LARRAY
+ :
+ 
+ 1007 
+ ¡r
+ ->
+ ¡r_nok
+  = sŒ->
+ ¡r_pok
+  = 0;
+ 
+ 1008 
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1009 
+ ¡r
+ ->
+ ¡r_¡©e
+  = 
+ SS_ARY
+ ;
+ 
+ 1011 
+ O_ARRAY
+ :
+ 
+ 1012 
+ ¬y
+  = 
+ 	`¡ab_¬¿y
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ );
+ 
+ 1013 
+ max¬g
+  = 
+ ¬y
+ ->
+ ¬y_fžl
+  + 1;
+ 
+ 1014 ià(
+ gimme
+  =ð
+ G_ARRAY
+ ) {
+ 
+ 1015 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 1016 
+ ¡
+  -ð
+ ¥
+ ;
+ 
+ 1017 ià(
+ max¬g
+  > 0 && 
+ ¥
+  + max¬g > 
+ ¡ack
+ ->
+ ¬y_max
+ ) {
+ 
+ 1018 
+ 	`a¡Üe
+ (
+ ¡ack
+ ,
+ ¥
+  + 
+ max¬g
+ , 
+ NuΡr
+ );
+ 
+ 1019 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1021 
+ ¡
+  +ð
+ ¥
+ ;
+ 
+ 1022 
+ 	`CÝy
+ (
+ ¬y
+ ->
+ ¬y_¬¿y
+ , &
+ ¡
+ [1], 
+ max¬g
+ , 
+ STR
+ *);
+ 
+ 1023 
+ ¥
+  +ð
+ max¬g
+ ;
+ 
+ 1024 
+ ¬¿y_»tuº
+ ;
+ 
+ 1027 
+ v®ue
+  = ()
+ max¬g
+ ;
+ 
+ 1028 
+ dÚum£t
+ ;
+ 
+ 1030 
+ O_AELEM
+ :
+ 
+ 1031 
+ ªum
+  = (()
+ 	`¡r_gnum
+ (
+ ¡
+ [2])è- 
+ ¬yba£
+ ;
+ 
+ 1032 
+ ¡r
+  = 
+ 	`aãtch
+ (
+ 	`¡ab_¬¿y
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ),
+ ªum
+ ,
+ FALSE
+ );
+ 
+ 1034 
+ O_DELETE
+ :
+ 
+ 1035 
+ tmp¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1036 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [2]);
+ 
+ 1037 
+ ¡r
+  = 
+ 	`hd–‘e
+ (
+ 	`¡ab_hash
+ (
+ tmp¡ab
+ ),
+ tmps
+ ,
+ ¡
+ [2]->
+ ¡r_cur
+ );
+ 
+ 1038 ià(
+ tmp¡ab
+  =ð
+ ’v¡ab
+ )
+ 
+ 1039 
+ 	`my_£‹nv
+ (
+ tmps
+ ,
+ NuÎch
+ );
+ 
+ 1040 ià(!
+ ¡r
+ )
+ 
+ 1041 
+ §y_undef
+ ;
+ 
+ 1043 
+ O_LHASH
+ :
+ 
+ 1044 
+ ¡r
+ ->
+ ¡r_nok
+  = sŒ->
+ ¡r_pok
+  = 0;
+ 
+ 1045 
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1046 
+ ¡r
+ ->
+ ¡r_¡©e
+  = 
+ SS_HASH
+ ;
+ 
+ 1048 
+ O_HASH
+ :
+ 
+ 1049 ià(
+ gimme
+  =ð
+ G_ARRAY
+ ) {
+ 
+ 1050 
+ ¥
+  = 
+ 	`do_kv
+ (
+ ¡r
+ ,
+ 	`¡ab_hash
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ), 
+ Ýty³
+ ,
+ 
+ 1051 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1052 
+ ¬¿y_»tuº
+ ;
+ 
+ 1055 
+ tmp¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1056 ià(!
+ 	`¡ab_hash
+ (
+ tmp¡ab
+ )->
+ tbl_fžl
+ )
+ 
+ 1057 
+ §y_z”o
+ ;
+ 
+ 1058 
+ 	`¥rštf
+ (
+ buf
+ ,"%d/%d",
+ 	`¡ab_hash
+ (
+ tmp¡ab
+ )->
+ tbl_fžl
+ ,
+ 
+ 1059 
+ 	`¡ab_hash
+ (
+ tmp¡ab
+ )->
+ tbl_max
+ +1);
+ 
+ 1060 
+ 	`¡r_£t
+ (
+ ¡r
+ ,
+ buf
+ );
+ 
+ 1063 
+ O_HELEM
+ :
+ 
+ 1064 
+ tmp¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1065 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [2]);
+ 
+ 1066 
+ ¡r
+  = 
+ 	`hãtch
+ (
+ 	`¡ab_hash
+ (
+ tmp¡ab
+ ),
+ tmps
+ ,
+ ¡
+ [2]->
+ ¡r_cur
+ ,
+ FALSE
+ );
+ 
+ 1068 
+ O_LAELEM
+ :
+ 
+ 1069 
+ ªum
+  = (()
+ 	`¡r_gnum
+ (
+ ¡
+ [2])è- 
+ ¬yba£
+ ;
+ 
+ 1070 
+ ¡r
+  = 
+ 	`aãtch
+ (
+ 	`¡ab_¬¿y
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ),
+ ªum
+ ,
+ TRUE
+ );
+ 
+ 1071 ià(!
+ ¡r
+  || sŒ =ð&
+ ¡r_undef
+ )
+ 
+ 1072 
+ 	`çl
+ ("Assignm’ˆtØnÚ-ü—bË v®ue, subsüˆ%d",
+ ªum
+ );
+ 
+ 1074 
+ O_LHELEM
+ :
+ 
+ 1075 
+ tmp¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1076 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [2]);
+ 
+ 1077 
+ ªum
+  = 
+ ¡
+ [2]->
+ ¡r_cur
+ ;
+ 
+ 1078 
+ ¡r
+  = 
+ 	`hãtch
+ (
+ 	`¡ab_hash
+ (
+ tmp¡ab
+ ),
+ tmps
+ ,
+ ªum
+ ,
+ TRUE
+ );
+ 
+ 1079 ià(!
+ ¡r
+  || sŒ =ð&
+ ¡r_undef
+ )
+ 
+ 1080 
+ 	`çl
+ ("Assignm’ˆtØnÚ-ü—bË v®ue, subsüˆ\"%s\"",
+ tmps
+ );
+ 
+ 1081 ià(
+ tmp¡ab
+  =ð
+ ’v¡ab
+ )
+ 
+ 1082 
+ 	`¡r_magic
+ (
+ ¡r
+ , 
+ tmp¡ab
+ , 'E', 
+ tmps
+ , 
+ ªum
+ );
+ 
+ 1084 ià(
+ tmp¡ab
+  =ð
+ sig¡ab
+ )
+ 
+ 1085 
+ 	`¡r_magic
+ (
+ ¡r
+ , 
+ tmp¡ab
+ , 'S', 
+ tmps
+ , 
+ ªum
+ );
+ 
+ 1086 #ifdeà
+ SOME_DBM
+ 
+ 
+ 1087 ià(
+ 	`¡ab_hash
+ (
+ tmp¡ab
+ )->
+ tbl_dbm
+ )
+ 
+ 1088 
+ 	`¡r_magic
+ (
+ ¡r
+ , 
+ tmp¡ab
+ , 'D', 
+ tmps
+ , 
+ ªum
+ );
+ 
+ 1090 ià(
+ ³¾db
+  && 
+ tmp¡ab
+  =ð
+ DBlše
+ )
+ 
+ 1091 
+ 	`¡r_magic
+ (
+ ¡r
+ , 
+ tmp¡ab
+ , 'L', 
+ tmps
+ , 
+ ªum
+ );
+ 
+ 1093 
+ O_LSLICE
+ :
+ 
+ 1094 
+ ªum
+  = 2;
+ 
+ 1095 
+ ¬gty³
+  = 
+ FALSE
+ ;
+ 
+ 1096 
+ do_¦iû_®»ady
+ ;
+ 
+ 1097 
+ O_ASLICE
+ :
+ 
+ 1098 
+ ªum
+  = 1;
+ 
+ 1099 
+ ¬gty³
+  = 
+ FALSE
+ ;
+ 
+ 1100 
+ do_¦iû_®»ady
+ ;
+ 
+ 1101 
+ O_HSLICE
+ :
+ 
+ 1102 
+ ªum
+  = 0;
+ 
+ 1103 
+ ¬gty³
+  = 
+ FALSE
+ ;
+ 
+ 1104 
+ do_¦iû_®»ady
+ ;
+ 
+ 1105 
+ O_LASLICE
+ :
+ 
+ 1106 
+ ªum
+  = 1;
+ 
+ 1107 
+ ¬gty³
+  = 
+ TRUE
+ ;
+ 
+ 1108 
+ do_¦iû_®»ady
+ ;
+ 
+ 1109 
+ O_LHSLICE
+ :
+ 
+ 1110 
+ ªum
+  = 0;
+ 
+ 1111 
+ ¬gty³
+  = 
+ TRUE
+ ;
+ 
+ 1112 
+ do_¦iû_®»ady
+ :
+ 
+ 1113 
+ ¥
+  = 
+ 	`do_¦iû
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ,
+ ¡r
+ ,
+ ªum
+ ,
+ ¬gty³
+ ,
+ 
+ 1114 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1115 
+ ¬¿y_»tuº
+ ;
+ 
+ 1116 
+ O_SPLICE
+ :
+ 
+ 1117 
+ ¥
+  = 
+ 	`do_¥liû
+ (
+ 	`¡ab_¬¿y
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ),
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1118 
+ ¬¿y_»tuº
+ ;
+ 
+ 1119 
+ O_PUSH
+ :
+ 
+ 1120 ià(
+ ¬gÏ¡
+ [2] -‡rglast[1] != 1)
+ 
+ 1121 
+ ¡r
+  = 
+ 	`do_push
+ (
+ 	`¡ab_¬¿y
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ),
+ ¬gÏ¡
+ );
+ 
+ 1123 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (51,0);
+ 
+ 1124 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,
+ ¡
+ [2]);
+ 
+ 1125 ()
+ 	`­ush
+ (
+ 	`¡ab_¬¿y
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ),
+ ¡r
+ );
+ 
+ 1128 
+ O_POP
+ :
+ 
+ 1129 
+ ¡r
+  = 
+ 	`­Ý
+ (
+ ¬y
+  = 
+ 	`¡ab_¬¿y
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ));
+ 
+ 1130 
+ ¡©iÿliz©iÚ
+ ;
+ 
+ 1131 
+ O_SHIFT
+ :
+ 
+ 1132 
+ ¡r
+  = 
+ 	`ashiá
+ (
+ ¬y
+  = 
+ 	`¡ab_¬¿y
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ));
+ 
+ 1133 
+ ¡©iÿliz©iÚ
+ :
+ 
+ 1134 ià(!
+ ¡r
+ )
+ 
+ 1135 
+ §y_undef
+ ;
+ 
+ 1136 ià(
+ ¬y
+ ->
+ ¬y_æags
+  & 
+ ARF_REAL
+ )
+ 
+ 1137 ()
+ 	`¡r_2m܏l
+ (
+ ¡r
+ );
+ 
+ 1139 
+ O_UNPACK
+ :
+ 
+ 1140 
+ ¥
+  = 
+ 	`do_uÅack
+ (
+ ¡r
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1141 
+ ¬¿y_»tuº
+ ;
+ 
+ 1142 
+ O_SPLIT
+ :
+ 
+ 1143 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [3]);
+ 
+ 1144 
+ ¥
+  = 
+ 	`do_¥l™
+ (
+ ¡r
+ , 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¥©
+ , ()
+ v®ue
+ ,
+ 
+ 1145 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1146 
+ ¬¿y_»tuº
+ ;
+ 
+ 1147 
+ O_LENGTH
+ :
+ 
+ 1148 ià(
+ max¬g
+  < 1)
+ 
+ 1149 
+ v®ue
+  = ()
+ 	`¡r_Ën
+ (
+ 	`¡ab_v®
+ (
+ def¡ab
+ ));
+ 
+ 1151 
+ v®ue
+  = ()
+ 	`¡r_Ën
+ (
+ ¡
+ [1]);
+ 
+ 1152 
+ dÚum£t
+ ;
+ 
+ 1153 
+ O_SPRINTF
+ :
+ 
+ 1154 
+ 	`do_¥rštf
+ (
+ ¡r
+ , 
+ ¥
+ -
+ ¬gÏ¡
+ [0], 
+ ¡
+ +1);
+ 
+ 1156 
+ O_SUBSTR
+ :
+ 
+ 1157 
+ ªum
+  = (()
+ 	`¡r_gnum
+ (
+ ¡
+ [2])è- 
+ ¬yba£
+ ;
+ 
+ 1158 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1159 ià(
+ ¬gty³
+  = (
+ ¡r
+  =ð
+ ¡
+ [1]))
+ 
+ 1160 
+ ¡r
+  = 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 1161 ià(
+ ªum
+  < 0)
+ 
+ 1162 
+ ªum
+  +ð
+ ¡
+ [1]->
+ ¡r_cur
+  + 
+ ¬yba£
+ ;
+ 
+ 1163 ià(
+ ªum
+  < 0 ||‡num > 
+ ¡
+ [1]->
+ ¡r_cur
+ )
+ 
+ 1164 
+ 	`¡r_n£t
+ (
+ ¡r
+ ,"",0);
+ 
+ 1166 
+ Ýty³
+  = 
+ max¬g
+  < 3 ? 
+ ¡
+ [1]->
+ ¡r_cur
+  : ()
+ 	`¡r_gnum
+ (st[3]);
+ 
+ 1167 ià(
+ Ýty³
+  < 0)
+ 
+ 1168 
+ Ýty³
+  = 0;
+ 
+ 1169 
+ tmps
+  +ð
+ ªum
+ ;
+ 
+ 1170 
+ ªum
+  = 
+ ¡
+ [1]->
+ ¡r_cur
+  -‡num;
+ 
+ 1171 ià(
+ ªum
+  > 
+ Ýty³
+ )
+ 
+ 1172 
+ ªum
+  = 
+ Ýty³
+ ;
+ 
+ 1173 
+ 	`¡r_n£t
+ (
+ ¡r
+ , 
+ tmps
+ , 
+ ªum
+ );
+ 
+ 1174 ià(
+ ¬gty³
+ ) {
+ 
+ 1175 
+ l¡r
+  = (
+ l¡ršg
+ *)
+ ¡r
+ ;
+ 
+ 1176 
+ ¡r
+ ->
+ ¡r_magic
+  = 
+ ¡
+ [1];
+ 
+ 1177 
+ ¡
+ [1]->
+ ¡r_¿»
+  = 's';
+ 
+ 1178 
+ l¡r
+ ->
+ l¡r_off£t
+  = 
+ tmps
+  - 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1179 
+ l¡r
+ ->
+ l¡r_Ën
+  = 
+ ªum
+ ;
+ 
+ 1183 
+ O_PACK
+ :
+ 
+ 1184 ()
+ 	`do_·ck
+ (
+ ¡r
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1186 
+ O_GREP
+ :
+ 
+ 1187 
+ ¥
+  = 
+ 	`do_g»p
+ (
+ ¬g
+ ,
+ ¡r
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1188 
+ ¬¿y_»tuº
+ ;
+ 
+ 1189 
+ O_JOIN
+ :
+ 
+ 1190 
+ 	`do_još
+ (
+ ¡r
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1192 
+ O_SLT
+ :
+ 
+ 1193 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1194 
+ v®ue
+  = (è(
+ 	`¡r_cmp
+ (
+ ¡
+ [1],st[2]) < 0);
+ 
+ 1195 
+ dÚum£t
+ ;
+ 
+ 1196 
+ O_SGT
+ :
+ 
+ 1197 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1198 
+ v®ue
+  = (è(
+ 	`¡r_cmp
+ (
+ ¡
+ [1],st[2]) > 0);
+ 
+ 1199 
+ dÚum£t
+ ;
+ 
+ 1200 
+ O_SLE
+ :
+ 
+ 1201 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1202 
+ v®ue
+  = (è(
+ 	`¡r_cmp
+ (
+ ¡
+ [1],st[2]) <= 0);
+ 
+ 1203 
+ dÚum£t
+ ;
+ 
+ 1204 
+ O_SGE
+ :
+ 
+ 1205 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1206 
+ v®ue
+  = (è(
+ 	`¡r_cmp
+ (
+ ¡
+ [1],st[2]) >= 0);
+ 
+ 1207 
+ dÚum£t
+ ;
+ 
+ 1208 
+ O_SEQ
+ :
+ 
+ 1209 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1210 
+ v®ue
+  = (è
+ 	`¡r_eq
+ (
+ ¡
+ [1],st[2]);
+ 
+ 1211 
+ dÚum£t
+ ;
+ 
+ 1212 
+ O_SNE
+ :
+ 
+ 1213 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1214 
+ v®ue
+  = (è!
+ 	`¡r_eq
+ (
+ ¡
+ [1],st[2]);
+ 
+ 1215 
+ dÚum£t
+ ;
+ 
+ 1216 
+ O_SCMP
+ :
+ 
+ 1217 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1218 
+ v®ue
+  = (è
+ 	`¡r_cmp
+ (
+ ¡
+ [1],st[2]);
+ 
+ 1219 
+ dÚum£t
+ ;
+ 
+ 1220 
+ O_SUBR
+ :
+ 
+ 1221 
+ ¥
+  = 
+ 	`do_subr
+ (
+ ¬g
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1222 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+  + 
+ ¬gÏ¡
+ [0];
+ 
+ 1223 
+ ¬¿y_»tuº
+ ;
+ 
+ 1224 
+ O_DBSUBR
+ :
+ 
+ 1225 
+ ¥
+  = 
+ 	`do_subr
+ (
+ ¬g
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1226 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+  + 
+ ¬gÏ¡
+ [0];
+ 
+ 1227 
+ ¬¿y_»tuº
+ ;
+ 
+ 1228 
+ O_CALLER
+ :
+ 
+ 1229 
+ ¥
+  = 
+ 	`do_ÿΔ
+ (
+ ¬g
+ ,
+ max¬g
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1230 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+  + 
+ ¬gÏ¡
+ [0];
+ 
+ 1231 
+ ¬¿y_»tuº
+ ;
+ 
+ 1232 
+ O_SORT
+ :
+ 
+ 1233 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 1234 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1236 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 1237 
+ ¥
+  = 
+ 	`do_sÜt
+ (
+ ¡r
+ ,
+ ¡ab
+ ,
+ 
+ 1238 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1239 
+ ¬¿y_»tuº
+ ;
+ 
+ 1240 
+ O_REVERSE
+ :
+ 
+ 1241 ià(
+ gimme
+  =ð
+ G_ARRAY
+ )
+ 
+ 1242 
+ ¥
+  = 
+ 	`do_»v”£
+ (
+ ¬gÏ¡
+ );
+ 
+ 1244 
+ ¥
+  = 
+ 	`do_¤ev”£
+ (
+ ¡r
+ , 
+ ¬gÏ¡
+ );
+ 
+ 1245 
+ ¬¿y_»tuº
+ ;
+ 
+ 1246 
+ O_WARN
+ :
+ 
+ 1247 ià(
+ ¬gÏ¡
+ [2] -‡rglast[1] != 1) {
+ 
+ 1248 
+ 	`do_još
+ (
+ ¡r
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1249 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 1252 
+ ¡r
+  = 
+ ¡
+ [2];
+ 
+ 1253 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [2]);
+ 
+ 1255 ià(!
+ tmps
+  || !*tmps)
+ 
+ 1256 
+ tmps
+  = "Warning: something's wrong";
+ 
+ 1257 
+ 	`w¬n
+ ("%s",
+ tmps
+ );
+ 
+ 1258 
+ §y_yes
+ ;
+ 
+ 1259 
+ O_DIE
+ :
+ 
+ 1260 ià(
+ ¬gÏ¡
+ [2] -‡rglast[1] != 1) {
+ 
+ 1261 
+ 	`do_još
+ (
+ ¡r
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1262 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 1265 
+ ¡r
+  = 
+ ¡
+ [2];
+ 
+ 1266 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [2]);
+ 
+ 1268 ià(!
+ tmps
+  || !*tmps)
+ 
+ 1269 
+ tmps
+  = "Died";
+ 
+ 1270 
+ 	`çl
+ ("%s",
+ tmps
+ );
+ 
+ 1271 
+ §y_z”o
+ ;
+ 
+ 1272 
+ O_PRTF
+ :
+ 
+ 1273 
+ O_PRINT
+ :
+ 
+ 1274 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 1275 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1277 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 1278 ià(!
+ ¡ab
+ )
+ 
+ 1279 
+ ¡ab
+  = 
+ defout¡ab
+ ;
+ 
+ 1280 ià(!
+ 	`¡ab_io
+ (
+ ¡ab
+ )) {
+ 
+ 1281 ià(
+ dow¬n
+ )
+ 
+ 1282 
+ 	`w¬n
+ ("Filehandle‚ever opened");
+ 
+ 1283 
+ §y_z”o
+ ;
+ 
+ 1285 ià(!(
+ å
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ oå
+ )) {
+ 
+ 1286 ià(
+ dow¬n
+ ) {
+ 
+ 1287 ià(
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ iå
+ )
+ 
+ 1288 
+ 	`w¬n
+ ("Filehandle opened only for input");
+ 
+ 1290 
+ 	`w¬n
+ ("Print on closed filehandle");
+ 
+ 1292 
+ §y_z”o
+ ;
+ 
+ 1295 ià(
+ Ýty³
+  =ð
+ O_PRTF
+  || 
+ ¬gÏ¡
+ [2] -‡rglast[1] != 1)
+ 
+ 1296 
+ v®ue
+  = ()
+ 	`do_­ršt
+ (
+ ¬g
+ ,
+ å
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1298 
+ v®ue
+  = ()
+ 	`do_´št
+ (
+ ¡
+ [2],
+ å
+ );
+ 
+ 1299 ià(
+ ܦ’
+  && 
+ Ýty³
+  =ð
+ O_PRINT
+ )
+ 
+ 1300 ià(
+ 	`fwr™e
+ (
+ Üs
+ , 1, 
+ ܦ’
+ , 
+ å
+ ) == 0)
+ 
+ 1301 
+ §y_z”o
+ ;
+ 
+ 1303 ià(
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ æags
+  & 
+ IOF_FLUSH
+ )
+ 
+ 1304 ià(
+ 	`fæush
+ (
+ å
+ è=ð
+ EOF
+ )
+ 
+ 1305 
+ §y_z”o
+ ;
+ 
+ 1307 
+ dÚum£t
+ ;
+ 
+ 1308 
+ O_CHDIR
+ :
+ 
+ 1309 ià(
+ max¬g
+  < 1)
+ 
+ 1310 
+ tmps
+  = 
+ NuÎch
+ ;
+ 
+ 1312 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1313 ià(!
+ tmps
+  || !*tmps) {
+ 
+ 1314 
+ tmp¡r
+  = 
+ 	`hãtch
+ (
+ 	`¡ab_hash
+ (
+ ’v¡ab
+ ),"HOME",4,
+ FALSE
+ );
+ 
+ 1315 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ tmp¡r
+ );
+ 
+ 1317 ià(!
+ tmps
+  || !*tmps) {
+ 
+ 1318 
+ tmp¡r
+  = 
+ 	`hãtch
+ (
+ 	`¡ab_hash
+ (
+ ’v¡ab
+ ),"LOGDIR",6,
+ FALSE
+ );
+ 
+ 1319 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ tmp¡r
+ );
+ 
+ 1321 #ifdeà
+ TAINT
+ 
+ 
+ 1322 
+ 	`šrÝ”
+ ("Insecure dependency in chdir");
+ 
+ 1324 
+ v®ue
+  = ()(
+ 	`chdœ
+ (
+ tmps
+ ) >= 0);
+ 
+ 1325 
+ dÚum£t
+ ;
+ 
+ 1326 
+ O_EXIT
+ :
+ 
+ 1327 ià(
+ max¬g
+  < 1)
+ 
+ 1328 
+ ªum
+  = 0;
+ 
+ 1330 
+ ªum
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 1331 
+ 	`ex™
+ (
+ ªum
+ );
+ 
+ 1332 
+ §y_z”o
+ ;
+ 
+ 1333 
+ O_RESET
+ :
+ 
+ 1334 ià(
+ max¬g
+  < 1)
+ 
+ 1335 
+ tmps
+  = "";
+ 
+ 1337 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1338 
+ 	`¡r_»£t
+ (
+ tmps
+ ,
+ curcmd
+ ->
+ c_¡ash
+ );
+ 
+ 1339 
+ v®ue
+  = 1.0;
+ 
+ 1340 
+ dÚum£t
+ ;
+ 
+ 1341 
+ O_LIST
+ :
+ 
+ 1342 ià(
+ gimme
+  =ð
+ G_ARRAY
+ )
+ 
+ 1343 
+ ¬¿y_»tuº
+ ;
+ 
+ 1344 ià(
+ max¬g
+  > 0)
+ 
+ 1345 
+ ¡r
+  = 
+ ¡
+ [
+ ¥
+  - 
+ ¬gÏ¡
+ [0]];
+ 
+ 1347 
+ ¡r
+  = &
+ ¡r_undef
+ ;
+ 
+ 1349 
+ O_EOF
+ :
+ 
+ 1350 ià(
+ max¬g
+  <= 0)
+ 
+ 1351 
+ ¡ab
+  = 
+ Ï¡_š_¡ab
+ ;
+ 
+ 1352 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 1353 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1355 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 1356 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ 	`do_eof
+ (
+ ¡ab
+ è? 
+ Yes
+  : 
+ No
+ );
+ 
+ 1357 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 1359 
+ O_GETC
+ :
+ 
+ 1360 ià(
+ max¬g
+  <= 0)
+ 
+ 1361 
+ ¡ab
+  = 
+ ¡dš¡ab
+ ;
+ 
+ 1362 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 1363 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1365 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 1366 ià(!
+ ¡ab
+ )
+ 
+ 1367 
+ ¡ab
+  = 
+ ¬gv¡ab
+ ;
+ 
+ 1368 ià(!
+ ¡ab
+  || 
+ 	`do_eof
+ (stab))
+ 
+ 1369 
+ §y_undef
+ ;
+ 
+ 1371 #ifdeà
+ TAINT
+ 
+ 
+ 1372 
+ š‹d
+  = 1;
+ 
+ 1374 
+ 	`¡r_£t
+ (
+ ¡r
+ ," ");
+ 
+ 1375 *
+ ¡r
+ ->
+ ¡r_±r
+  = 
+ 	`g‘c
+ (
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ iå
+ );
+ 
+ 1377 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 1379 
+ O_TELL
+ :
+ 
+ 1380 ià(
+ max¬g
+  <= 0)
+ 
+ 1381 
+ ¡ab
+  = 
+ Ï¡_š_¡ab
+ ;
+ 
+ 1382 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 1383 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1385 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 1386 #iâdeà
+ lšt
+ 
+ 
+ 1387 
+ v®ue
+  = ()
+ 	`do_‹Î
+ (
+ ¡ab
+ );
+ 
+ 1389 ()
+ 	`do_‹Î
+ (
+ ¡ab
+ );
+ 
+ 1391 
+ dÚum£t
+ ;
+ 
+ 1392 
+ O_RECV
+ :
+ 
+ 1393 
+ O_READ
+ :
+ 
+ 1394 
+ O_SYSREAD
+ :
+ 
+ 1395 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 1396 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1398 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 1399 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [2]);
+ 
+ 1400 
+ ªum
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [3]);
+ 
+ 1401 
+ Ӽo
+  = 0;
+ 
+ 1402 
+ max¬g
+  = 
+ ¥
+  - 
+ ¬gÏ¡
+ [0];
+ 
+ 1403 ià(
+ max¬g
+  > 4)
+ 
+ 1404 
+ 	`w¬n
+ ("Too many‡rgs on„ead");
+ 
+ 1405 ià(
+ max¬g
+  == 4)
+ 
+ 1406 
+ max¬g
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [4]);
+ 
+ 1408 
+ max¬g
+  = 0;
+ 
+ 1409 ià(!
+ 	`¡ab_io
+ (
+ ¡ab
+ è|| !¡ab_io(¡ab)->
+ iå
+ )
+ 
+ 1410 
+ §y_undef
+ ;
+ 
+ 1411 #ifdeà
+ HAS_SOCKET
+ 
+ 
+ 1412 ià(
+ Ýty³
+  =ð
+ O_RECV
+ ) {
+ 
+ 1413 
+ ¬gty³
+  =  
+ buf
+ ;
+ 
+ 1414 
+ 	`STR_GROW
+ (
+ ¡
+ [2], 
+ ªum
+ +1), (
+ tmps
+  = 
+ 	`¡r_g‘
+ (st[2]));
+ 
+ 1415 
+ ªum
+  = 
+ 	`»cväom
+ (
+ 	`fž’o
+ (
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ iå
+ ), 
+ tmps
+ ,‡num, 
+ max¬g
+ ,
+ 
+ 1416 
+ buf
+ , &
+ ¬gty³
+ );
+ 
+ 1417 ià(
+ ªum
+  >= 0) {
+ 
+ 1418 
+ ¡
+ [2]->
+ ¡r_cur
+  = 
+ ªum
+ ;
+ 
+ 1419 
+ ¡
+ [2]->
+ ¡r_±r
+ [
+ ªum
+ ] = '\0';
+ 
+ 1420 
+ 	`¡r_n£t
+ (
+ ¡r
+ ,
+ buf
+ ,
+ ¬gty³
+ );
+ 
+ 1423 
+ 	`¡r_s£t
+ (
+ ¡r
+ ,&
+ ¡r_undef
+ );
+ 
+ 1427 ià(
+ Ýty³
+  =ð
+ O_RECV
+ )
+ 
+ 1428 
+ badsock
+ ;
+ 
+ 1430 
+ 	`STR_GROW
+ (
+ ¡
+ [2], 
+ ªum
+ +
+ max¬g
+ +1), (
+ tmps
+  = 
+ 	`¡r_g‘
+ (st[2]));
+ 
+ 1431 #ifdeà
+ HAS_SOCKET
+ 
+ 
+ 1432 ià(
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ ty³
+  == 's') {
+ 
+ 1433 
+ ¬gty³
+  =  
+ buf
+ ;
+ 
+ 1434 
+ ªum
+  = 
+ 	`»cväom
+ (
+ 	`fž’o
+ (
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ iå
+ ), 
+ tmps
+ +
+ max¬g
+ ,‡num, 0,
+ 
+ 1435 
+ buf
+ , &
+ ¬gty³
+ );
+ 
+ 1439 ià(
+ Ýty³
+  =ð
+ O_SYSREAD
+ ) {
+ 
+ 1440 
+ ªum
+  = 
+ 	`»ad
+ (
+ 	`fž’o
+ (
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ iå
+ ), 
+ tmps
+ +
+ max¬g
+ ,‡num);
+ 
+ 1443 
+ ªum
+  = 
+ 	`ä—d
+ (
+ tmps
+ +
+ max¬g
+ , 1,‡num, 
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ iå
+ );
+ 
+ 1444 ià(
+ ªum
+  < 0)
+ 
+ 1445 
+ §y_undef
+ ;
+ 
+ 1446 
+ ¡
+ [2]->
+ ¡r_cur
+  = 
+ ªum
+ +
+ max¬g
+ ;
+ 
+ 1447 
+ ¡
+ [2]->
+ ¡r_±r
+ [
+ ªum
+ +
+ max¬g
+ ] = '\0';
+ 
+ 1448 
+ v®ue
+  = ()
+ ªum
+ ;
+ 
+ 1449 
+ dÚum£t
+ ;
+ 
+ 1450 
+ O_SYSWRITE
+ :
+ 
+ 1451 
+ O_SEND
+ :
+ 
+ 1452 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 1453 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1455 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 1456 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [2]);
+ 
+ 1457 
+ ªum
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [3]);
+ 
+ 1458 
+ Ӽo
+  = 0;
+ 
+ 1459 
+ ¡io
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ );
+ 
+ 1460 
+ max¬g
+  = 
+ ¥
+  - 
+ ¬gÏ¡
+ [0];
+ 
+ 1461 ià(!
+ ¡io
+  || !¡io->
+ iå
+ ) {
+ 
+ 1462 
+ ªum
+  = -1;
+ 
+ 1463 ià(
+ dow¬n
+ ) {
+ 
+ 1464 ià(
+ Ýty³
+  =ð
+ O_SYSWRITE
+ )
+ 
+ 1465 
+ 	`w¬n
+ ("Syswrite on closed filehandle");
+ 
+ 1467 
+ 	`w¬n
+ ("Send on closed socket");
+ 
+ 1470 ià(
+ Ýty³
+  =ð
+ O_SYSWRITE
+ ) {
+ 
+ 1471 ià(
+ max¬g
+  > 4)
+ 
+ 1472 
+ 	`w¬n
+ ("Too many‡rgs on syswrite");
+ 
+ 1473 ià(
+ max¬g
+  == 4)
+ 
+ 1474 
+ Ýty³
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [4]);
+ 
+ 1476 
+ Ýty³
+  = 0;
+ 
+ 1477 
+ ªum
+  = 
+ 	`wr™e
+ (
+ 	`fž’o
+ (
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ iå
+ ), 
+ tmps
+ +
+ Ýty³
+ ,‡num);
+ 
+ 1479 #ifdeà
+ HAS_SOCKET
+ 
+ 
+ 1480 ià(
+ max¬g
+  >= 4) {
+ 
+ 1481 ià(
+ max¬g
+  > 4)
+ 
+ 1482 
+ 	`w¬n
+ ("Too many‡rgs on send");
+ 
+ 1483 
+ tmps2
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [4]);
+ 
+ 1484 
+ ªum
+  = 
+ 	`£ndto
+ (
+ 	`fž’o
+ (
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ iå
+ ), 
+ tmps
+ , 
+ ¡
+ [2]->
+ ¡r_cur
+ ,
+ 
+ 1485 
+ ªum
+ , 
+ tmps2
+ , 
+ ¡
+ [4]->
+ ¡r_cur
+ );
+ 
+ 1488 
+ ªum
+  = 
+ 	`£nd
+ (
+ 	`fž’o
+ (
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ iå
+ ), 
+ tmps
+ , 
+ ¡
+ [2]->
+ ¡r_cur
+ ,‡num);
+ 
+ 1491 
+ badsock
+ ;
+ 
+ 1493 ià(
+ ªum
+  < 0)
+ 
+ 1494 
+ §y_undef
+ ;
+ 
+ 1495 
+ v®ue
+  = ()
+ ªum
+ ;
+ 
+ 1496 
+ dÚum£t
+ ;
+ 
+ 1497 
+ O_SEEK
+ :
+ 
+ 1498 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 1499 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 1501 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 1502 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [2]);
+ 
+ 1503 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ 	`do_£ek
+ (
+ ¡ab
+ ,
+ 
+ 1504 ()
+ v®ue
+ , ()
+ 	`¡r_gnum
+ (
+ ¡
+ [3]èè? 
+ Yes
+  : 
+ No
+ );
+ 
+ 1505 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 1507 
+ O_RETURN
+ :
+ 
+ 1508 
+ tmps
+  = "_SUB_";
+ 
+ 1509 
+ Ýty³
+  = 
+ O_LAST
+ ;
+ 
+ 1510 ià(
+ curcsv
+  && curcsv->
+ wª¼ay
+  =ð
+ G_ARRAY
+ ) {
+ 
+ 1511 
+ Ï¡»t¡r
+  = 
+ NuΡr
+ ;
+ 
+ 1512 
+ Ï¡¥ba£
+  = 
+ ¬gÏ¡
+ [1];
+ 
+ 1513 
+ ϡsize
+  = 
+ ¬gÏ¡
+ [2] -‡rglast[1];
+ 
+ 1516 
+ Ï¡»t¡r
+  = 
+ 	`¡r_m܏l
+ (
+ ¡
+ [
+ ¬gÏ¡
+ [2] -‡rglast[0]]);
+ 
+ 1517 
+ dÝÝ
+ ;
+ 
+ 1518 
+ O_REDO
+ :
+ 
+ 1519 
+ O_NEXT
+ :
+ 
+ 1520 
+ O_LAST
+ :
+ 
+ 1521 ià(
+ max¬g
+  > 0) {
+ 
+ 1522 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡r
+ );
+ 
+ 1523 
+ dÝÝ
+ :
+ 
+ 1524 
+ loÝ_±r
+  >ð0 && (!
+ loÝ_¡ack
+ [loÝ_±r].
+ loÝ_Ïb–
+  ||
+ 
+ 1525 
+ 	`¡rNE
+ (
+ tmps
+ ,
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_Ïb–
+ ) )) {
+ 
+ 1526 #ifdeà
+ DEBUGGING
+ 
+ 
+ 1527 ià(
+ debug
+  & 4) {
+ 
+ 1528 
+ 	`deb
+ ("(Skpšg†ab– #%d %s)\n",
+ loÝ_±r
+ ,
+ 
+ 1529 
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_Ïb–
+ );
+ 
+ 1532 
+ loÝ_±r
+ --;
+ 
+ 1534 #ifdeà
+ DEBUGGING
+ 
+ 
+ 1535 ià(
+ debug
+  & 4) {
+ 
+ 1536 
+ 	`deb
+ ("(Found†ab– #%d %s)\n",
+ loÝ_±r
+ ,
+ 
+ 1537 
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_Ïb–
+ );
+ 
+ 1541 ià(
+ loÝ_±r
+  < 0) {
+ 
+ 1542 ià(
+ tmps
+  && 
+ 	`¡rEQ
+ (tmps, "_SUB_"))
+ 
+ 1543 
+ 	`çl
+ ("Can't„eturn outside‡ subroutine");
+ 
+ 1544 
+ 	`çl
+ ("Bad†ab–: %s", 
+ max¬g
+  > 0 ? 
+ tmps
+  : "<null>");
+ 
+ 1546 ià(!
+ Ï¡»t¡r
+  && 
+ Ýty³
+  =ð
+ O_LAST
+  && 
+ ϡsize
+ ) {
+ 
+ 1547 
+ ¡
+  -ð
+ ¬gÏ¡
+ [0];
+ 
+ 1548 
+ ¡
+  +ð
+ Ï¡¥ba£
+  + 1;
+ 
+ 1549 
+ Ýty³
+  = 
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_¥
+  - 
+ Ï¡¥ba£
+ ;
+ 
+ 1550 ià(
+ Ýty³
+ ) {
+ 
+ 1551 
+ ªum
+  = 
+ ϡsize
+ ;‡num > 0;‡num--,
+ ¡
+ ++)
+ 
+ 1552 
+ ¡
+ [
+ Ýty³
+ ] = 
+ 	`¡r_m܏l
+ (st[0]);
+ 
+ 1554 
+ 	`lÚgjmp
+ (
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_’v
+ , 
+ O_LAST
+ );
+ 
+ 1556 
+ 	`lÚgjmp
+ (
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_’v
+ , 
+ Ýty³
+ );
+ 
+ 1557 
+ O_DUMP
+ :
+ 
+ 1558 
+ O_GOTO
+ :
+ 
+ 1559 
+ gÙo_rg
+  = 
+ 	`¡r_g‘
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡r
+ );
+ 
+ 1560 ià(!*
+ gÙo_rg
+ )
+ 
+ 1561 
+ gÙo_rg
+  = 
+ NuÎch
+ ;
+ 
+ 1562 ià(
+ Ýty³
+  =ð
+ O_DUMP
+ ) {
+ 
+ 1563 
+ do_undump
+  = 1;
+ 
+ 1564 
+ 	`my_uÃxec
+ ();
+ 
+ 1566 
+ 	`lÚgjmp
+ (
+ tÝ_’v
+ , 1);
+ 
+ 1567 
+ O_INDEX
+ :
+ 
+ 1568 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1569 ià(
+ max¬g
+  < 3)
+ 
+ 1570 
+ ªum
+  = 0;
+ 
+ 1572 
+ ªum
+  = (è
+ 	`¡r_gnum
+ (
+ ¡
+ [3]è- 
+ ¬yba£
+ ;
+ 
+ 1573 ià(
+ ªum
+  < 0)
+ 
+ 1574 
+ ªum
+  = 0;
+ 
+ 1575 ià(
+ ªum
+  > 
+ ¡
+ [1]->
+ ¡r_cur
+ )
+ 
+ 1576 
+ ªum
+  = 
+ ¡
+ [1]->
+ ¡r_cur
+ ;
+ 
+ 1578 #iâdeà
+ lšt
+ 
+ 
+ 1579 ià(!(
+ tmps2
+  = 
+ 	`fbmš¡r
+ ((*)
+ tmps
+  + 
+ ªum
+ ,
+ 
+ 1580 (*)
+ tmps
+  + 
+ ¡
+ [1]->
+ ¡r_cur
+ , st[2])))
+ 
+ 1582 ià(
+ tmps2
+  = 
+ 	`fbmš¡r
+ (
+ 	`NuÎ
+ (*),NuÎ(*),
+ NuΡr
+ ))
+ 
+ 1584 
+ v®ue
+  = ()(-1 + 
+ ¬yba£
+ );
+ 
+ 1586 
+ v®ue
+  = ()(
+ tmps2
+  - 
+ tmps
+  + 
+ ¬yba£
+ );
+ 
+ 1587 
+ dÚum£t
+ ;
+ 
+ 1588 
+ O_RINDEX
+ :
+ 
+ 1589 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1590 
+ tmps2
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [2]);
+ 
+ 1591 ià(
+ max¬g
+  < 3)
+ 
+ 1592 
+ ªum
+  = 
+ ¡
+ [1]->
+ ¡r_cur
+ ;
+ 
+ 1594 
+ ªum
+  = (è
+ 	`¡r_gnum
+ (
+ ¡
+ [3]è- 
+ ¬yba£
+  + st[2]->
+ ¡r_cur
+ ;
+ 
+ 1595 ià(
+ ªum
+  < 0)
+ 
+ 1596 
+ ªum
+  = 0;
+ 
+ 1597 ià(
+ ªum
+  > 
+ ¡
+ [1]->
+ ¡r_cur
+ )
+ 
+ 1598 
+ ªum
+  = 
+ ¡
+ [1]->
+ ¡r_cur
+ ;
+ 
+ 1600 #iâdeà
+ lšt
+ 
+ 
+ 1601 ià(!(
+ tmps2
+  = 
+ 	`ºš¡r
+ (
+ tmps
+ ,mp + 
+ ªum
+ ,
+ 
+ 1602 
+ tmps2
+ ,mps2 + 
+ ¡
+ [2]->
+ ¡r_cur
+ )))
+ 
+ 1604 ià(
+ tmps2
+  = 
+ 	`ºš¡r
+ (
+ NuÎch
+ ,Nullch,Nullch,Nullch))
+ 
+ 1606 
+ v®ue
+  = ()(-1 + 
+ ¬yba£
+ );
+ 
+ 1608 
+ v®ue
+  = ()(
+ tmps2
+  - 
+ tmps
+  + 
+ ¬yba£
+ );
+ 
+ 1609 
+ dÚum£t
+ ;
+ 
+ 1610 
+ O_TIME
+ :
+ 
+ 1611 #iâdeà
+ lšt
+ 
+ 
+ 1612 
+ v®ue
+  = (è
+ 	`time
+ (
+ 	`NuÎ
+ (*));
+ 
+ 1614 
+ dÚum£t
+ ;
+ 
+ 1615 
+ O_TMS
+ :
+ 
+ 1616 
+ ¥
+  = 
+ 	`do_tms
+ (
+ ¡r
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1617 
+ ¬¿y_»tuº
+ ;
+ 
+ 1618 
+ O_LOCALTIME
+ :
+ 
+ 1619 ià(
+ max¬g
+  < 1)
+ 
+ 1620 ()
+ 	`time
+ (&
+ wh’
+ );
+ 
+ 1622 
+ wh’
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 1623 
+ ¥
+  = 
+ 	`do_time
+ (
+ ¡r
+ ,
+ 	`loÿÉime
+ (&
+ wh’
+ ),
+ 
+ 1624 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1625 
+ ¬¿y_»tuº
+ ;
+ 
+ 1626 
+ O_GMTIME
+ :
+ 
+ 1627 ià(
+ max¬g
+  < 1)
+ 
+ 1628 ()
+ 	`time
+ (&
+ wh’
+ );
+ 
+ 1630 
+ wh’
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 1631 
+ ¥
+  = 
+ 	`do_time
+ (
+ ¡r
+ ,
+ 	`gmtime
+ (&
+ wh’
+ ),
+ 
+ 1632 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1633 
+ ¬¿y_»tuº
+ ;
+ 
+ 1634 
+ O_TRUNCATE
+ :
+ 
+ 1635 
+ ¥
+  = 
+ 	`do_Œunÿ‹
+ (
+ ¡r
+ ,
+ ¬g
+ ,
+ 
+ 1636 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1637 
+ ¬¿y_»tuº
+ ;
+ 
+ 1638 
+ O_LSTAT
+ :
+ 
+ 1639 
+ O_STAT
+ :
+ 
+ 1640 
+ ¥
+  = 
+ 	`do_¡©
+ (
+ ¡r
+ ,
+ ¬g
+ ,
+ 
+ 1641 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1642 
+ ¬¿y_»tuº
+ ;
+ 
+ 1643 
+ O_CRYPT
+ :
+ 
+ 1644 #ifdeà
+ HAS_CRYPT
+ 
+ 
+ 1645 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1646 #ifdeà
+ FCRYPT
+ 
+ 
+ 1647 
+ 	`¡r_£t
+ (
+ ¡r
+ ,
+ 	`füy±
+ (
+ tmps
+ ,
+ 	`¡r_g‘
+ (
+ ¡
+ [2])));
+ 
+ 1649 
+ 	`¡r_£t
+ (
+ ¡r
+ ,
+ 	`üy±
+ (
+ tmps
+ ,
+ 	`¡r_g‘
+ (
+ ¡
+ [2])));
+ 
+ 1652 
+ 	`çl
+ (
+ 
+ 1656 
+ O_ATAN2
+ :
+ 
+ 1657 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 1658 
+ v®ue
+  = 
+ 	`©ª2
+ (v®ue,
+ 	`¡r_gnum
+ (
+ ¡
+ [2]));
+ 
+ 1659 
+ dÚum£t
+ ;
+ 
+ 1660 
+ O_SIN
+ :
+ 
+ 1661 ià(
+ max¬g
+  < 1)
+ 
+ 1662 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ 	`¡ab_v®
+ (
+ def¡ab
+ ));
+ 
+ 1664 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 1665 
+ v®ue
+  = 
+ 	`sš
+ (value);
+ 
+ 1666 
+ dÚum£t
+ ;
+ 
+ 1667 
+ O_COS
+ :
+ 
+ 1668 ià(
+ max¬g
+  < 1)
+ 
+ 1669 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ 	`¡ab_v®
+ (
+ def¡ab
+ ));
+ 
+ 1671 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 1672 
+ v®ue
+  = 
+ 	`cos
+ (value);
+ 
+ 1673 
+ dÚum£t
+ ;
+ 
+ 1674 
+ O_RAND
+ :
+ 
+ 1675 ià(
+ max¬g
+  < 1)
+ 
+ 1676 
+ v®ue
+  = 1.0;
+ 
+ 1678 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 1679 ià(
+ v®ue
+  == 0.0)
+ 
+ 1680 
+ v®ue
+  = 1.0;
+ 
+ 1681 #ià
+ RANDBITS
+  == 31
+ 
+ 1682 
+ v®ue
+  = 
+ 	`¿nd
+ () * value / 2147483648.0;
+ 
+ 1684 #ià
+ RANDBITS
+  == 16
+ 
+ 1685 
+ v®ue
+  = 
+ 	`¿nd
+ () * value / 65536.0;
+ 
+ 1687 #ià
+ RANDBITS
+  == 15
+ 
+ 1688 
+ v®ue
+  = 
+ 	`¿nd
+ () * value / 32768.0;
+ 
+ 1690 
+ v®ue
+  = 
+ 	`¿nd
+ (è* v®u/ ()((()1è<< 
+ RANDBITS
+ );
+ 
+ 1694 
+ dÚum£t
+ ;
+ 
+ 1695 
+ O_SRAND
+ :
+ 
+ 1696 ià(
+ max¬g
+  < 1) {
+ 
+ 1697 ()
+ 	`time
+ (&
+ wh’
+ );
+ 
+ 1698 
+ ªum
+  = 
+ wh’
+ ;
+ 
+ 1701 
+ ªum
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 1702 ()
+ 	`¤ªd
+ (
+ ªum
+ );
+ 
+ 1703 
+ §y_yes
+ ;
+ 
+ 1704 
+ O_EXP
+ :
+ 
+ 1705 ià(
+ max¬g
+  < 1)
+ 
+ 1706 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ 	`¡ab_v®
+ (
+ def¡ab
+ ));
+ 
+ 1708 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 1709 
+ v®ue
+  = 
+ 	`exp
+ (value);
+ 
+ 1710 
+ dÚum£t
+ ;
+ 
+ 1711 
+ O_LOG
+ :
+ 
+ 1712 ià(
+ max¬g
+  < 1)
+ 
+ 1713 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ 	`¡ab_v®
+ (
+ def¡ab
+ ));
+ 
+ 1715 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 1716 ià(
+ v®ue
+  <= 0.0)
+ 
+ 1717 
+ 	`çl
+ ("Cª'ˆklog oà%g\n", 
+ v®ue
+ );
+ 
+ 1718 
+ v®ue
+  = 
+ 	`log
+ (value);
+ 
+ 1719 
+ dÚum£t
+ ;
+ 
+ 1720 
+ O_SQRT
+ :
+ 
+ 1721 ià(
+ max¬g
+  < 1)
+ 
+ 1722 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ 	`¡ab_v®
+ (
+ def¡ab
+ ));
+ 
+ 1724 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 1725 ià(
+ v®ue
+  < 0.0)
+ 
+ 1726 
+ 	`çl
+ ("Cª'ˆksq¹ oà%g\n", 
+ v®ue
+ );
+ 
+ 1727 
+ v®ue
+  = 
+ 	`sq¹
+ (value);
+ 
+ 1728 
+ dÚum£t
+ ;
+ 
+ 1729 
+ O_INT
+ :
+ 
+ 1730 ià(
+ max¬g
+  < 1)
+ 
+ 1731 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ 	`¡ab_v®
+ (
+ def¡ab
+ ));
+ 
+ 1733 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 1734 ià(
+ v®ue
+  >= 0.0)
+ 
+ 1735 ()
+ 	`modf
+ (
+ v®ue
+ ,&value);
+ 
+ 1737 ()
+ 	`modf
+ (-
+ v®ue
+ ,&value);
+ 
+ 1738 
+ v®ue
+  = -value;
+ 
+ 1740 
+ dÚum£t
+ ;
+ 
+ 1741 
+ O_ORD
+ :
+ 
+ 1742 ià(
+ max¬g
+  < 1)
+ 
+ 1743 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ 	`¡ab_v®
+ (
+ def¡ab
+ ));
+ 
+ 1745 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1746 #iâdeà
+ I286
+ 
+ 
+ 1747 
+ v®ue
+  = (è(*
+ tmps
+  & 255);
+ 
+ 1749 
+ ªum
+  = (è*
+ tmps
+ ;
+ 
+ 1750 
+ v®ue
+  = (è(
+ ªum
+  & 255);
+ 
+ 1752 
+ dÚum£t
+ ;
+ 
+ 1753 
+ O_ALARM
+ :
+ 
+ 1754 #ifdeà
+ HAS_ALARM
+ 
+ 
+ 1755 ià(
+ max¬g
+  < 1)
+ 
+ 1756 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ 	`¡ab_v®
+ (
+ def¡ab
+ ));
+ 
+ 1758 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1759 ià(!
+ tmps
+ )
+ 
+ 1760 
+ tmps
+  = "0";
+ 
+ 1761 
+ ªum
+  = 
+ 	`®¬m
+ (()
+ 	`©oi
+ (
+ tmps
+ ));
+ 
+ 1762 ià(
+ ªum
+  < 0)
+ 
+ 1763 
+ §y_undef
+ ;
+ 
+ 1764 
+ v®ue
+  = ()
+ ªum
+ ;
+ 
+ 1765 
+ dÚum£t
+ ;
+ 
+ 1767 
+ 	`çl
+ ("Unsupported function‡larm");
+ 
+ 1770 
+ O_SLEEP
+ :
+ 
+ 1771 ià(
+ max¬g
+  < 1)
+ 
+ 1772 
+ tmps
+  = 
+ NuÎch
+ ;
+ 
+ 1774 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1775 ()
+ 	`time
+ (&
+ wh’
+ );
+ 
+ 1776 ià(!
+ tmps
+  || !*tmps)
+ 
+ 1777 
+ 	`¦“p
+ ((32767<<16)+32767);
+ 
+ 1779 
+ 	`¦“p
+ (()
+ 	`©oi
+ (
+ tmps
+ ));
+ 
+ 1780 #iâdeà
+ lšt
+ 
+ 
+ 1781 
+ v®ue
+  = ()
+ wh’
+ ;
+ 
+ 1782 ()
+ 	`time
+ (&
+ wh’
+ );
+ 
+ 1783 
+ v®ue
+  = (()
+ wh’
+ ) - value;
+ 
+ 1785 
+ dÚum£t
+ ;
+ 
+ 1786 
+ O_RANGE
+ :
+ 
+ 1787 
+ ¥
+  = 
+ 	`do_¿nge
+ (
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1788 
+ ¬¿y_»tuº
+ ;
+ 
+ 1789 
+ O_F_OR_R
+ :
+ 
+ 1790 ià(
+ gimme
+  =ð
+ G_ARRAY
+ ) {
+ 
+ 1792 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_SINGLE
+  &&
+ 
+ 1793 (
+ ¬g
+ [2].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_SINGLE
+ ) {
+ 
+ 1794 
+ ¡
+ [2] = 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¡r
+ ;
+ 
+ 1795 
+ ¥
+  = 
+ 	`do_¿nge
+ (
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1796 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1797 
+ max¬g
+  = 
+ ¥
+  - 
+ ¬gÏ¡
+ [0];
+ 
+ 1798 
+ 	`¡r_ä“
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡r
+ );
+ 
+ 1799 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡r
+  = 
+ NuΡr
+ ;
+ 
+ 1800 
+ 	`¡r_ä“
+ (
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¡r
+ );
+ 
+ 1801 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¡r
+  = 
+ NuΡr
+ ;
+ 
+ 1802 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_ARRAY
+ ;
+ 
+ 1803 
+ ¬g
+ [1].
+ ¬g_ty³
+  = 
+ A_STAB
+ |
+ A_DONT
+ ;
+ 
+ 1804 
+ ¬g
+ ->
+ ¬g_Ën
+  = 1;
+ 
+ 1805 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+  = 
+ 	`¯dd
+ (
+ 	`g’¡ab
+ ());
+ 
+ 1806 
+ ¬y
+  = 
+ 	`¡ab_¬¿y
+ (
+ ¡ab
+ );
+ 
+ 1807 
+ 	`afžl
+ (
+ ¬y
+ ,
+ max¬g
+  - 1);
+ 
+ 1808 
+ ªum
+  = 
+ max¬g
+ ;
+ 
+ 1809 
+ ¡
+  +ð
+ ¬gÏ¡
+ [0]+1;
+ 
+ 1810 
+ max¬g
+ -- > 0)
+ 
+ 1811 
+ ¬y
+ ->
+ ¬y_¬¿y
+ [
+ max¬g
+ ] = 
+ 	`¡r_smake
+ (
+ ¡
+ [maxarg]);
+ 
+ 1812 
+ ¡
+  -ð
+ ¬gÏ¡
+ [0]+1;
+ 
+ 1813 
+ ¬¿y_»tuº
+ ;
+ 
+ 1815 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ Ýty³
+  = 
+ O_RANGE
+ ;
+ 
+ 1816 
+ max¬g
+  = 
+ ¬g
+ ->
+ ¬g_Ën
+  = 2;
+ 
+ 1817 
+ ªum
+  = 2;
+ 
+ 1818 
+ ¬g
+ [
+ ªum
+ ].
+ ¬g_æags
+  &ð~
+ AF_ARYOK
+ ;
+ 
+ 1819 
+ ¬gæags
+  = 
+ ¬g
+ [
+ ªum
+ ].
+ ¬g_æags
+ ;
+ 
+ 1820 
+ ¬gty³
+  = 
+ ¬g
+ [
+ ªum
+ ].
+ ¬g_ty³
+  & 
+ A_MASK
+ ;
+ 
+ 1821 
+ ¬g
+ [
+ ªum
+ ].
+ ¬g_ty³
+  = 
+ ¬gty³
+ ;
+ 
+ 1822 
+ ¬g±r
+  = 
+ ¬g
+ [
+ ªum
+ ].
+ ¬g_±r
+ ;
+ 
+ 1823 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 1824 
+ ¡
+  -ð
+ ¥
+ ;
+ 
+ 1825 
+ ¥
+ ++;
+ 
+ 1826 
+ »_ev®
+ ;
+ 
+ 1828 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_FLIP
+ ;
+ 
+ 1830 
+ O_FLIP
+ :
+ 
+ 1831 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_SINGLE
+  ?
+ 
+ 1832 
+ Ï¡_š_¡ab
+  && ()
+ 	`¡r_gnum
+ (
+ ¡
+ [1]è=ð
+ 	`¡ab_io
+ Öa¡_š_¡ab)->
+ lšes
+ 
+ 
+ 1834 
+ 	`¡r_Œue
+ (
+ ¡
+ [1]) ) {
+ 
+ 1835 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,0.0);
+ 
+ 1836 
+ ªum
+  = 2;
+ 
+ 1837 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ Ýty³
+  = 
+ O_FLOP
+ ;
+ 
+ 1838 
+ ¬g
+ [2].
+ ¬g_ty³
+  &ð~
+ A_DONT
+ ;
+ 
+ 1839 
+ ¬g
+ [1].
+ ¬g_ty³
+  |ð
+ A_DONT
+ ;
+ 
+ 1840 
+ ¬gæags
+  = 
+ ¬g
+ [2].
+ ¬g_æags
+ ;
+ 
+ 1841 
+ ¬gty³
+  = 
+ ¬g
+ [2].
+ ¬g_ty³
+  & 
+ A_MASK
+ ;
+ 
+ 1842 
+ ¬g±r
+  = 
+ ¬g
+ [2].
+ ¬g_±r
+ ;
+ 
+ 1843 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 1844 
+ ¡
+  -ð
+ ¥
+ ++;
+ 
+ 1845 
+ »_ev®
+ ;
+ 
+ 1847 
+ 	`¡r_£t
+ (
+ ¡r
+ ,"");
+ 
+ 1849 
+ O_FLOP
+ :
+ 
+ 1850 
+ 	`¡r_šc
+ (
+ ¡r
+ );
+ 
+ 1851 ià((
+ ¬g
+ [2].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_SINGLE
+  ?
+ 
+ 1852 
+ Ï¡_š_¡ab
+  && ()
+ 	`¡r_gnum
+ (
+ ¡
+ [2]è=ð
+ 	`¡ab_io
+ Öa¡_š_¡ab)->
+ lšes
+ 
+ 
+ 1854 
+ 	`¡r_Œue
+ (
+ ¡
+ [2]) ) {
+ 
+ 1855 
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_FLIP
+ ;
+ 
+ 1856 
+ ¬g
+ [1].
+ ¬g_ty³
+  &ð~
+ A_DONT
+ ;
+ 
+ 1857 
+ ¬g
+ [2].
+ ¬g_ty³
+  |ð
+ A_DONT
+ ;
+ 
+ 1858 
+ 	`¡r_ÿt
+ (
+ ¡r
+ ,"E0");
+ 
+ 1861 
+ O_FORK
+ :
+ 
+ 1862 #ifdeà
+ HAS_FORK
+ 
+ 
+ 1863 
+ ªum
+  = 
+ 	`fÜk
+ ();
+ 
+ 1864 ià(
+ ªum
+  < 0)
+ 
+ 1865 
+ §y_undef
+ ;
+ 
+ 1866 ià(!
+ ªum
+ ) {
+ 
+ 1867 ià(
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ ("$",
+ ®l¡abs
+ ))
+ 
+ 1868 
+ 	`¡r_num£t
+ (
+ 	`STAB_STR
+ (
+ tmp¡ab
+ ),()
+ 	`g‘pid
+ ());
+ 
+ 1869 
+ 	`hþ—r
+ (
+ pid¡©us
+ );
+ 
+ 1871 
+ v®ue
+  = ()
+ ªum
+ ;
+ 
+ 1872 
+ dÚum£t
+ ;
+ 
+ 1874 
+ 	`çl
+ ("Unsupported function fork");
+ 
+ 1877 
+ O_WAIT
+ :
+ 
+ 1878 #ifdeà
+ HAS_WAIT
+ 
+ 
+ 1879 #iâdeà
+ lšt
+ 
+ 
+ 1880 
+ ªum
+  = 
+ 	`wa™
+ (&
+ ¬gæags
+ );
+ 
+ 1881 ià(
+ ªum
+  > 0)
+ 
+ 1882 
+ 	`pidgÚe
+ (
+ ªum
+ ,
+ ¬gæags
+ );
+ 
+ 1883 
+ v®ue
+  = ()
+ ªum
+ ;
+ 
+ 1885 
+ ¡©usv®ue
+  = ()
+ ¬gæags
+ ;
+ 
+ 1886 
+ dÚum£t
+ ;
+ 
+ 1888 
+ 	`çl
+ ("Unsupported function wait");
+ 
+ 1891 
+ O_WAITPID
+ :
+ 
+ 1892 #ifdeà
+ HAS_WAIT
+ 
+ 
+ 1893 #iâdeà
+ lšt
+ 
+ 
+ 1894 
+ ªum
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 1895 
+ Ýty³
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [2]);
+ 
+ 1896 
+ ªum
+  = 
+ 	`wa™4pid
+ ×num, &
+ ¬gæags
+ ,
+ Ýty³
+ );
+ 
+ 1897 
+ v®ue
+  = ()
+ ªum
+ ;
+ 
+ 1899 
+ ¡©usv®ue
+  = ()
+ ¬gæags
+ ;
+ 
+ 1900 
+ dÚum£t
+ ;
+ 
+ 1902 
+ 	`çl
+ ("Unsupported function wait");
+ 
+ 1905 
+ O_SYSTEM
+ :
+ 
+ 1906 #ifdeà
+ HAS_FORK
+ 
+ 
+ 1907 #ifdeà
+ TAINT
+ 
+ 
+ 1908 ià(
+ ¬gÏ¡
+ [2] -‡rglast[1] == 1) {
+ 
+ 1909 
+ 	`š‹nv
+ ();
+ 
+ 1910 
+ š‹d
+  |ð
+ ¡
+ [2]->
+ ¡r_š‹d
+ ;
+ 
+ 1911 
+ 	`šrÝ”
+ ("Insecure dependency in system");
+ 
+ 1914 (
+ ªum
+  = 
+ 	`vfÜk
+ ()) == -1) {
+ 
+ 1915 ià(
+ Ӽo
+  !ð
+ EAGAIN
+ ) {
+ 
+ 1916 
+ v®ue
+  = -1.0;
+ 
+ 1917 
+ dÚum£t
+ ;
+ 
+ 1919 
+ 	`¦“p
+ (5);
+ 
+ 1921 ià(
+ ªum
+  > 0) {
+ 
+ 1922 #iâdeà
+ lšt
+ 
+ 
+ 1923 
+ ihªd
+  = 
+ 	`sigÇl
+ (
+ SIGINT
+ , 
+ SIG_IGN
+ );
+ 
+ 1924 
+ qhªd
+  = 
+ 	`sigÇl
+ (
+ SIGQUIT
+ , 
+ SIG_IGN
+ );
+ 
+ 1925 
+ ¬gty³
+  = 
+ 	`wa™4pid
+ (
+ ªum
+ , &
+ ¬gæags
+ , 0);
+ 
+ 1927 
+ ihªd
+  = 
+ qhªd
+  = 0;
+ 
+ 1929 ()
+ 	`sigÇl
+ (
+ SIGINT
+ , 
+ ihªd
+ );
+ 
+ 1930 ()
+ 	`sigÇl
+ (
+ SIGQUIT
+ , 
+ qhªd
+ );
+ 
+ 1931 
+ ¡©usv®ue
+  = ()
+ ¬gæags
+ ;
+ 
+ 1932 ià(
+ ¬gty³
+  < 0)
+ 
+ 1933 
+ v®ue
+  = -1.0;
+ 
+ 1935 
+ v®ue
+  = ()(()
+ ¬gæags
+  & 0xffff);
+ 
+ 1937 
+ 	`do_execä“
+ ();
+ 
+ 1938 
+ dÚum£t
+ ;
+ 
+ 1940 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_STAB
+ )
+ 
+ 1941 
+ v®ue
+  = ()
+ 	`do_«xec
+ (
+ ¡
+ [1],
+ ¬gÏ¡
+ );
+ 
+ 1942 ià(
+ ¬gÏ¡
+ [2] -‡rglast[1] != 1)
+ 
+ 1943 
+ v®ue
+  = ()
+ 	`do_«xec
+ (
+ NuΡr
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1945 
+ v®ue
+  = ()
+ 	`do_exec
+ (
+ 	`¡r_g‘
+ (
+ 	`¡r_m܏l
+ (
+ ¡
+ [2])));
+ 
+ 1947 
+ 	`_ex™
+ (-1);
+ 
+ 1949 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_STAB
+ )
+ 
+ 1950 
+ v®ue
+  = ()
+ 	`do_a¥awn
+ (
+ ¡
+ [1],
+ ¬gÏ¡
+ );
+ 
+ 1951 ià(
+ ¬gÏ¡
+ [2] -‡rglast[1] != 1)
+ 
+ 1952 
+ v®ue
+  = ()
+ 	`do_a¥awn
+ (
+ NuΡr
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1954 
+ v®ue
+  = ()
+ 	`do_¥awn
+ (
+ 	`¡r_g‘
+ (
+ 	`¡r_m܏l
+ (
+ ¡
+ [2])));
+ 
+ 1956 
+ dÚum£t
+ ;
+ 
+ 1958 
+ O_EXEC_OP
+ :
+ 
+ 1959 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_STAB
+ )
+ 
+ 1960 
+ v®ue
+  = ()
+ 	`do_«xec
+ (
+ ¡
+ [1],
+ ¬gÏ¡
+ );
+ 
+ 1961 ià(
+ ¬gÏ¡
+ [2] -‡rglast[1] != 1)
+ 
+ 1962 
+ v®ue
+  = ()
+ 	`do_«xec
+ (
+ NuΡr
+ ,
+ ¬gÏ¡
+ );
+ 
+ 1964 
+ v®ue
+  = ()
+ 	`do_exec
+ (
+ 	`¡r_g‘
+ (
+ 	`¡r_m܏l
+ (
+ ¡
+ [2])));
+ 
+ 1966 
+ dÚum£t
+ ;
+ 
+ 1967 
+ O_HEX
+ :
+ 
+ 1968 ià(
+ max¬g
+  < 1)
+ 
+ 1969 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ 	`¡ab_v®
+ (
+ def¡ab
+ ));
+ 
+ 1971 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1972 
+ v®ue
+  = ()
+ 	`sÿnhex
+ (
+ tmps
+ , 99, &
+ ¬gty³
+ );
+ 
+ 1973 
+ dÚum£t
+ ;
+ 
+ 1975 
+ O_OCT
+ :
+ 
+ 1976 ià(
+ max¬g
+  < 1)
+ 
+ 1977 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ 	`¡ab_v®
+ (
+ def¡ab
+ ));
+ 
+ 1979 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 1980 *
+ tmps
+  && 
+ 	`i§scii
+ (*tmpsè&& (
+ 	`is¥aû
+ (*tmps) || *tmps == '0'))
+ 
+ 1981 
+ tmps
+ ++;
+ 
+ 1982 ià(*
+ tmps
+  == 'x')
+ 
+ 1983 
+ v®ue
+  = ()
+ 	`sÿnhex
+ (++
+ tmps
+ , 99, &
+ ¬gty³
+ );
+ 
+ 1985 
+ v®ue
+  = ()
+ 	`sÿnoù
+ (
+ tmps
+ , 99, &
+ ¬gty³
+ );
+ 
+ 1986 
+ dÚum£t
+ ;
+ 
+ 1991 
+ ¬¿y_»tuº
+ :
+ 
+ 1992 #ifdeà
+ DEBUGGING
+ 
+ 
+ 1993 ià(
+ debug
+ ) {
+ 
+ 1994 
+ dËv–
+ --;
+ 
+ 1995 ià(
+ debug
+  & 8) {
+ 
+ 1996 
+ ªum
+  = 
+ ¥
+  - 
+ ¬gÏ¡
+ [0];
+ 
+ 1997 
+ ªum
+ ) {
+ 
+ 1999 
+ 	`deb
+ ("% RETURNS ()\n",
+ ÝÇme
+ [
+ Ýty³
+ ]);
+ 
+ 2002 
+ 	`deb
+ ("% RETURNS (\"%s\")\n",
+ ÝÇme
+ [
+ Ýty³
+ ],
+ 	`¡r_g‘
+ (
+ ¡
+ [1]));
+ 
+ 2005 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 2006 
+ 	`deb
+ ("% RETURNS %d ARGS (\"%s\",%s\"%s\")\n",
+ ÝÇme
+ [
+ Ýty³
+ ],
+ 
+ 2007 
+ ªum
+ ,
+ tmps
+ ,ªum==2?"":"...,",
+ 	`¡r_g‘
+ (
+ ¡
+ [anum]));
+ 
+ 2013  
+ ¥
+ ;
+ 
+ 2015 
+ §y_yes
+ :
+ 
+ 2016 
+ ¡r
+  = &
+ ¡r_yes
+ ;
+ 
+ 2017 
+ nÜm®_»tuº
+ ;
+ 
+ 2019 
+ §y_no
+ :
+ 
+ 2020 
+ ¡r
+  = &
+ ¡r_no
+ ;
+ 
+ 2021 
+ nÜm®_»tuº
+ ;
+ 
+ 2023 
+ §y_undef
+ :
+ 
+ 2024 
+ ¡r
+  = &
+ ¡r_undef
+ ;
+ 
+ 2025 
+ nÜm®_»tuº
+ ;
+ 
+ 2027 
+ §y_z”o
+ :
+ 
+ 2028 
+ v®ue
+  = 0.0;
+ 
+ 2031 
+ dÚum£t
+ :
+ 
+ 2032 
+ 	`¡r_num£t
+ (
+ ¡r
+ ,
+ v®ue
+ );
+ 
+ 2033 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 2034 
+ ¡
+ [1] = 
+ ¡r
+ ;
+ 
+ 2035 #ifdeà
+ DEBUGGING
+ 
+ 
+ 2036 ià(
+ debug
+ ) {
+ 
+ 2037 
+ dËv–
+ --;
+ 
+ 2038 ià(
+ debug
+  & 8)
+ 
+ 2039 
+ 	`deb
+ ("% RETURNS \"%f\"\n",
+ ÝÇme
+ [
+ Ýty³
+ ],
+ v®ue
+ );
+ 
+ 2042  
+ ¬gÏ¡
+ [0] + 1;
+ 
+ 2043 #ifdeà
+ SMALLSWITCHES
+ 
+ 
+ 2046 
+ Ýty³
+ ) {
+ 
+ 2048 
+ O_CHOWN
+ :
+ 
+ 2049 #ifdeà
+ HAS_CHOWN
+ 
+ 
+ 2050 
+ v®ue
+  = ()
+ 	`­¶y
+ (
+ Ýty³
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2051 
+ dÚum£t
+ ;
+ 
+ 2053 
+ 	`çl
+ ("Unsupported function chown");
+ 
+ 2056 
+ O_KILL
+ :
+ 
+ 2057 #ifdeà
+ HAS_KILL
+ 
+ 
+ 2058 
+ v®ue
+  = ()
+ 	`­¶y
+ (
+ Ýty³
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2059 
+ dÚum£t
+ ;
+ 
+ 2061 
+ 	`çl
+ ("Unsupported function kill");
+ 
+ 2064 
+ O_UNLINK
+ :
+ 
+ 2065 
+ O_CHMOD
+ :
+ 
+ 2066 
+ O_UTIME
+ :
+ 
+ 2067 
+ v®ue
+  = ()
+ 	`­¶y
+ (
+ Ýty³
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2068 
+ dÚum£t
+ ;
+ 
+ 2069 
+ O_UMASK
+ :
+ 
+ 2070 #ifdeà
+ HAS_UMASK
+ 
+ 
+ 2071 ià(
+ max¬g
+  < 1) {
+ 
+ 2072 
+ ªum
+  = 
+ 	`umask
+ (0);
+ 
+ 2073 ()
+ 	`umask
+ (
+ ªum
+ );
+ 
+ 2076 
+ ªum
+  = 
+ 	`umask
+ (()
+ 	`¡r_gnum
+ (
+ ¡
+ [1]));
+ 
+ 2077 
+ v®ue
+  = ()
+ ªum
+ ;
+ 
+ 2078 #ifdeà
+ TAINT
+ 
+ 
+ 2079 
+ 	`šrÝ”
+ ("Insecure dependency in umask");
+ 
+ 2081 
+ dÚum£t
+ ;
+ 
+ 2083 
+ 	`çl
+ ("Unsupported function umask");
+ 
+ 2086 #ià
+ 	`defšed
+ (
+ HAS_MSG
+ è|| defšed(
+ HAS_SEM
+ è|| defšed(
+ HAS_SHM
+ )
+ 
+ 2087 
+ O_MSGGET
+ :
+ 
+ 2088 
+ O_SHMGET
+ :
+ 
+ 2089 
+ O_SEMGET
+ :
+ 
+ 2090 ià((
+ ªum
+  = 
+ 	`do_cg‘
+ (
+ Ýty³
+ , 
+ ¬gÏ¡
+ )) == -1)
+ 
+ 2091 
+ §y_undef
+ ;
+ 
+ 2092 
+ v®ue
+  = ()
+ ªum
+ ;
+ 
+ 2093 
+ dÚum£t
+ ;
+ 
+ 2094 
+ O_MSGCTL
+ :
+ 
+ 2095 
+ O_SHMCTL
+ :
+ 
+ 2096 
+ O_SEMCTL
+ :
+ 
+ 2097 
+ ªum
+  = 
+ 	`do_cùl
+ (
+ Ýty³
+ , 
+ ¬gÏ¡
+ );
+ 
+ 2098 ià(
+ ªum
+  == -1)
+ 
+ 2099 
+ §y_undef
+ ;
+ 
+ 2100 ià(
+ ªum
+  != 0) {
+ 
+ 2101 
+ v®ue
+  = ()
+ ªum
+ ;
+ 
+ 2102 
+ dÚum£t
+ ;
+ 
+ 2104 
+ 	`¡r_£t
+ (
+ ¡r
+ ,"0 butrue");
+ 
+ 2105 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 2107 
+ O_MSGSND
+ :
+ 
+ 2108 
+ v®ue
+  = ()(
+ 	`do_msg¢d
+ (
+ ¬gÏ¡
+ ) >= 0);
+ 
+ 2109 
+ dÚum£t
+ ;
+ 
+ 2110 
+ O_MSGRCV
+ :
+ 
+ 2111 
+ v®ue
+  = ()(
+ 	`do_msgrcv
+ (
+ ¬gÏ¡
+ ) >= 0);
+ 
+ 2112 
+ dÚum£t
+ ;
+ 
+ 2113 
+ O_SEMOP
+ :
+ 
+ 2114 
+ v®ue
+  = ()(
+ 	`do_£mÝ
+ (
+ ¬gÏ¡
+ ) >= 0);
+ 
+ 2115 
+ dÚum£t
+ ;
+ 
+ 2116 
+ O_SHMREAD
+ :
+ 
+ 2117 
+ O_SHMWRITE
+ :
+ 
+ 2118 
+ v®ue
+  = ()(
+ 	`do_shmio
+ (
+ Ýty³
+ , 
+ ¬gÏ¡
+ ) >= 0);
+ 
+ 2119 
+ dÚum£t
+ ;
+ 
+ 2121 
+ O_MSGGET
+ :
+ 
+ 2122 
+ O_MSGCTL
+ :
+ 
+ 2123 
+ O_MSGSND
+ :
+ 
+ 2124 
+ O_MSGRCV
+ :
+ 
+ 2125 
+ O_SEMGET
+ :
+ 
+ 2126 
+ O_SEMCTL
+ :
+ 
+ 2127 
+ O_SEMOP
+ :
+ 
+ 2128 
+ O_SHMGET
+ :
+ 
+ 2129 
+ O_SHMCTL
+ :
+ 
+ 2130 
+ O_SHMREAD
+ :
+ 
+ 2131 
+ O_SHMWRITE
+ :
+ 
+ 2132 
+ 	`çl
+ ("System V IPC is‚ot implemented onhis machine");
+ 
+ 2134 
+ O_RENAME
+ :
+ 
+ 2135 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 2136 
+ tmps2
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [2]);
+ 
+ 2137 #ifdeà
+ TAINT
+ 
+ 
+ 2138 
+ 	`šrÝ”
+ ("Insecure dependency in„ename");
+ 
+ 2140 #ifdeà
+ HAS_RENAME
+ 
+ 
+ 2141 
+ v®ue
+  = ()(
+ 	`Ȃme
+ (
+ tmps
+ ,
+ tmps2
+ ) >= 0);
+ 
+ 2143 ià(
+ 	`§me_dœ’t
+ (
+ tmps2
+ , 
+ tmps
+ ))
+ 
+ 2144 
+ ªum
+  = 1;
+ 
+ 2146 ià(
+ euid
+  || 
+ 	`¡©
+ (
+ tmps2
+ ,&
+ ¡©buf
+ è< 0 || !
+ 	`S_ISDIR
+ (¡©buf.
+ ¡_mode
+ ))
+ 
+ 2147 ()
+ 	`UNLINK
+ (
+ tmps2
+ );
+ 
+ 2148 ià(!(
+ ªum
+  = 
+ 	`lšk
+ (
+ tmps
+ ,
+ tmps2
+ )))
+ 
+ 2149 
+ ªum
+  = 
+ 	`UNLINK
+ (
+ tmps
+ );
+ 
+ 2151 
+ v®ue
+  = ()(
+ ªum
+  >= 0);
+ 
+ 2153 
+ dÚum£t
+ ;
+ 
+ 2154 
+ O_LINK
+ :
+ 
+ 2155 #ifdeà
+ HAS_LINK
+ 
+ 
+ 2156 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 2157 
+ tmps2
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [2]);
+ 
+ 2158 #ifdeà
+ TAINT
+ 
+ 
+ 2159 
+ 	`šrÝ”
+ ("Insecure dependency in†ink");
+ 
+ 2161 
+ v®ue
+  = ()(
+ 	`lšk
+ (
+ tmps
+ ,
+ tmps2
+ ) >= 0);
+ 
+ 2162 
+ dÚum£t
+ ;
+ 
+ 2164 
+ 	`çl
+ ("Unsupported function†ink");
+ 
+ 2167 
+ O_MKDIR
+ :
+ 
+ 2168 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 2169 
+ ªum
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [2]);
+ 
+ 2170 #ifdeà
+ TAINT
+ 
+ 
+ 2171 
+ 	`šrÝ”
+ ("Insecure dependency in mkdir");
+ 
+ 2173 #ifdeà
+ HAS_MKDIR
+ 
+ 
+ 2174 
+ v®ue
+  = ()(
+ 	`mkdœ
+ (
+ tmps
+ ,
+ ªum
+ ) >= 0);
+ 
+ 2175 
+ dÚum£t
+ ;
+ 
+ 2177 ()
+ 	`¡rýy
+ (
+ buf
+ ,"mkdir ");
+ 
+ 2179 #ià!
+ 	`defšed
+ (
+ HAS_MKDIR
+ è|| !defšed(
+ HAS_RMDIR
+ )
+ 
+ 2180 
+ Úe_lš”
+ :
+ 
+ 2181 
+ tmps2
+  = 
+ buf
+ +6; *
+ tmps
+ ; ) {
+ 
+ 2182 *
+ tmps2
+ ++ = '\\';
+ 
+ 2183 *
+ tmps2
+ ++ = *
+ tmps
+ ++;
+ 
+ 2185 ()
+ 	`¡rýy
+ (
+ tmps2
+ ," 2>&1");
+ 
+ 2186 
+ rså
+  = 
+ 	`mypݒ
+ (
+ buf
+ ,"r");
+ 
+ 2187 ià(
+ rså
+ ) {
+ 
+ 2188 *
+ buf
+  = '\0';
+ 
+ 2189 
+ tmps2
+  = 
+ 	`fg‘s
+ (
+ buf
+ , buf,
+ rså
+ );
+ 
+ 2190 ()
+ 	`mypþo£
+ (
+ rså
+ );
+ 
+ 2191 ià(
+ tmps2
+  !ð
+ NuÎch
+ ) {
+ 
+ 2192 
+ Ӽo
+  = 1;ƒ¼nØ< 
+ sys_ü
+ ;ƒrrno++) {
+ 
+ 2193 ià(
+ 	`š¡r
+ (
+ buf
+ ,
+ sys_”¾i¡
+ [
+ Ӽo
+ ]))
+ 
+ 2194 
+ §y_z”o
+ ;
+ 
+ 2196 
+ Ӽo
+  = 0;
+ 
+ 2197 #iâdeà
+ EACCES
+ 
+ 
+ 2198 
+ 	#EACCES
+  
+ EPERM
+ 
+ 
+ 	)
+ 
+ 2200 ià(
+ 	`š¡r
+ (
+ buf
+ ,"cannot make"))
+ 
+ 2201 
+ Ӽo
+  = 
+ EEXIST
+ ;
+ 
+ 2202 ià(
+ 	`š¡r
+ (
+ buf
+ ,"existing file"))
+ 
+ 2203 
+ Ӽo
+  = 
+ EEXIST
+ ;
+ 
+ 2204 ià(
+ 	`š¡r
+ (
+ buf
+ ,"ileƒxists"))
+ 
+ 2205 
+ Ӽo
+  = 
+ EEXIST
+ ;
+ 
+ 2206 ià(
+ 	`š¡r
+ (
+ buf
+ ,"non-exist"))
+ 
+ 2207 
+ Ӽo
+  = 
+ ENOENT
+ ;
+ 
+ 2208 ià(
+ 	`š¡r
+ (
+ buf
+ ,"does‚otƒxist"))
+ 
+ 2209 
+ Ӽo
+  = 
+ ENOENT
+ ;
+ 
+ 2210 ià(
+ 	`š¡r
+ (
+ buf
+ ,"notƒmpty"))
+ 
+ 2211 
+ Ӽo
+  = 
+ EBUSY
+ ;
+ 
+ 2212 ià(
+ 	`š¡r
+ (
+ buf
+ ,"cannot‡ccess"))
+ 
+ 2213 
+ Ӽo
+  = 
+ EACCES
+ ;
+ 
+ 2215 
+ Ӽo
+  = 
+ EPERM
+ ;
+ 
+ 2216 
+ §y_z”o
+ ;
+ 
+ 2219 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 2220 
+ ªum
+  = (
+ 	`¡©
+ (
+ tmps
+ ,&
+ ¡©buf
+ ) >= 0);
+ 
+ 2221 ià(
+ Ýty³
+  =ð
+ O_RMDIR
+ )
+ 
+ 2222 
+ ªum
+  = !anum;
+ 
+ 2223 ià(
+ ªum
+ )
+ 
+ 2224 
+ Ӽo
+  = 0;
+ 
+ 2226 
+ Ӽo
+  = 
+ EACCES
+ ;
+ 
+ 2227 
+ v®ue
+  = ()
+ ªum
+ ;
+ 
+ 2229 
+ dÚum£t
+ ;
+ 
+ 2232 
+ §y_z”o
+ ;
+ 
+ 2234 
+ O_RMDIR
+ :
+ 
+ 2235 ià(
+ max¬g
+  < 1)
+ 
+ 2236 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ 	`¡ab_v®
+ (
+ def¡ab
+ ));
+ 
+ 2238 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 2239 #ifdeà
+ TAINT
+ 
+ 
+ 2240 
+ 	`šrÝ”
+ ("Insecure dependency in„mdir");
+ 
+ 2242 #ifdeà
+ HAS_RMDIR
+ 
+ 
+ 2243 
+ v®ue
+  = ()(
+ 	`rmdœ
+ (
+ tmps
+ ) >= 0);
+ 
+ 2244 
+ dÚum£t
+ ;
+ 
+ 2246 ()
+ 	`¡rýy
+ (
+ buf
+ ,"rmdir ");
+ 
+ 2247 
+ Úe_lš”
+ ;
+ 
+ 2249 
+ O_GETPPID
+ :
+ 
+ 2250 #ifdeà
+ HAS_GETPPID
+ 
+ 
+ 2251 
+ v®ue
+  = ()
+ 	`g‘µid
+ ();
+ 
+ 2252 
+ dÚum£t
+ ;
+ 
+ 2254 
+ 	`çl
+ ("Unsupported function getppid");
+ 
+ 2257 
+ O_GETPGRP
+ :
+ 
+ 2258 #ifdeà
+ HAS_GETPGRP
+ 
+ 
+ 2259 ià(
+ max¬g
+  < 1)
+ 
+ 2260 
+ ªum
+  = 0;
+ 
+ 2262 
+ ªum
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 2263 
+ v®ue
+  = ()
+ 	`g‘pg½
+ (
+ ªum
+ );
+ 
+ 2264 
+ dÚum£t
+ ;
+ 
+ 2266 
+ 	`çl
+ ("The getpgrp() function is unimplemented onhis machine");
+ 
+ 2269 
+ O_SETPGRP
+ :
+ 
+ 2270 #ifdeà
+ HAS_SETPGRP
+ 
+ 
+ 2271 
+ ¬gty³
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 2272 
+ ªum
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [2]);
+ 
+ 2273 #ifdeà
+ TAINT
+ 
+ 
+ 2274 
+ 	`šrÝ”
+ ("Insecure dependency in setpgrp");
+ 
+ 2276 
+ v®ue
+  = ()(
+ 	`£g½
+ (
+ ¬gty³
+ ,
+ ªum
+ ) >= 0);
+ 
+ 2277 
+ dÚum£t
+ ;
+ 
+ 2279 
+ 	`çl
+ ("The setpgrp() function is unimplemented onhis machine");
+ 
+ 2282 
+ O_GETPRIORITY
+ :
+ 
+ 2283 #ifdeà
+ HAS_GETPRIORITY
+ 
+ 
+ 2284 
+ ¬gty³
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 2285 
+ ªum
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [2]);
+ 
+ 2286 
+ v®ue
+  = ()
+ 	`g‘´iÜ™y
+ (
+ ¬gty³
+ ,
+ ªum
+ );
+ 
+ 2287 
+ dÚum£t
+ ;
+ 
+ 2289 
+ 	`çl
+ ("The getpriority() function is unimplemented onhis machine");
+ 
+ 2292 
+ O_SETPRIORITY
+ :
+ 
+ 2293 #ifdeà
+ HAS_SETPRIORITY
+ 
+ 
+ 2294 
+ ¬gty³
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [1]);
+ 
+ 2295 
+ ªum
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [2]);
+ 
+ 2296 
+ Ýty³
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [3]);
+ 
+ 2297 #ifdeà
+ TAINT
+ 
+ 
+ 2298 
+ 	`šrÝ”
+ ("Insecure dependency in setpriority");
+ 
+ 2300 
+ v®ue
+  = ()(
+ 	`£riÜ™y
+ (
+ ¬gty³
+ ,
+ ªum
+ ,
+ Ýty³
+ ) >= 0);
+ 
+ 2301 
+ dÚum£t
+ ;
+ 
+ 2303 
+ 	`çl
+ ("The setpriority() function is unimplemented onhis machine");
+ 
+ 2306 
+ O_CHROOT
+ :
+ 
+ 2307 #ifdeà
+ HAS_CHROOT
+ 
+ 
+ 2308 ià(
+ max¬g
+  < 1)
+ 
+ 2309 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ 	`¡ab_v®
+ (
+ def¡ab
+ ));
+ 
+ 2311 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 2312 #ifdeà
+ TAINT
+ 
+ 
+ 2313 
+ 	`šrÝ”
+ ("Insecure dependency in chroot");
+ 
+ 2315 
+ v®ue
+  = ()(
+ 	`chroÙ
+ (
+ tmps
+ ) >= 0);
+ 
+ 2316 
+ dÚum£t
+ ;
+ 
+ 2318 
+ 	`çl
+ ("Unsupported function chroot");
+ 
+ 2321 
+ O_FCNTL
+ :
+ 
+ 2322 
+ O_IOCTL
+ :
+ 
+ 2323 ià(
+ max¬g
+  <= 0)
+ 
+ 2324 
+ ¡ab
+  = 
+ Ï¡_š_¡ab
+ ;
+ 
+ 2325 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2326 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2328 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 2329 
+ ¬gty³
+  = 
+ 	`U_I
+ (
+ 	`¡r_gnum
+ (
+ ¡
+ [2]));
+ 
+ 2330 #ifdeà
+ TAINT
+ 
+ 
+ 2331 
+ 	`šrÝ”
+ ("Insecure dependency in ioctl");
+ 
+ 2333 
+ ªum
+  = 
+ 	`do_ùl
+ (
+ Ýty³
+ ,
+ ¡ab
+ ,
+ ¬gty³
+ ,
+ ¡
+ [3]);
+ 
+ 2334 ià(
+ ªum
+  == -1)
+ 
+ 2335 
+ §y_undef
+ ;
+ 
+ 2336 ià(
+ ªum
+  != 0) {
+ 
+ 2337 
+ v®ue
+  = ()
+ ªum
+ ;
+ 
+ 2338 
+ dÚum£t
+ ;
+ 
+ 2340 
+ 	`¡r_£t
+ (
+ ¡r
+ ,"0 butrue");
+ 
+ 2341 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 2343 
+ O_FLOCK
+ :
+ 
+ 2344 #ifdeà
+ HAS_FLOCK
+ 
+ 
+ 2345 ià(
+ max¬g
+  <= 0)
+ 
+ 2346 
+ ¡ab
+  = 
+ Ï¡_š_¡ab
+ ;
+ 
+ 2347 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2348 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2350 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 2351 ià(
+ ¡ab
+  && 
+ 	`¡ab_io
+ (stab))
+ 
+ 2352 
+ å
+  = 
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ iå
+ ;
+ 
+ 2354 
+ å
+  = 
+ NuÎå
+ ;
+ 
+ 2355 ià(
+ å
+ ) {
+ 
+ 2356 
+ ¬gty³
+  = ()
+ 	`¡r_gnum
+ (
+ ¡
+ [2]);
+ 
+ 2357 
+ v®ue
+  = ()(
+ 	`æock
+ (
+ 	`fž’o
+ (
+ å
+ ),
+ ¬gty³
+ ) >= 0);
+ 
+ 2360 
+ v®ue
+  = 0;
+ 
+ 2361 
+ dÚum£t
+ ;
+ 
+ 2363 
+ 	`çl
+ ("The flock() function is unimplemented onhis machine");
+ 
+ 2366 
+ O_UNSHIFT
+ :
+ 
+ 2367 
+ ¬y
+  = 
+ 	`¡ab_¬¿y
+ (
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ );
+ 
+ 2368 ià(
+ ¬gÏ¡
+ [2] -‡rglast[1] != 1)
+ 
+ 2369 
+ 	`do_unshiá
+ (
+ ¬y
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2371 
+ STR
+  *
+ tmp¡r
+  = 
+ 	`SŒ_Ãw
+ (52,0);
+ 
+ 2372 
+ 	`¡r_s£t
+ (
+ tmp¡r
+ ,
+ ¡
+ [2]);
+ 
+ 2373 
+ 	`aunshiá
+ (
+ ¬y
+ ,1);
+ 
+ 2374 ()
+ 	`a¡Üe
+ (
+ ¬y
+ ,0,
+ tmp¡r
+ );
+ 
+ 2376 
+ v®ue
+  = ()(
+ ¬y
+ ->
+ ¬y_fžl
+  + 1);
+ 
+ 2377 
+ dÚum£t
+ ;
+ 
+ 2379 
+ O_REQUIRE
+ :
+ 
+ 2380 
+ O_DOFILE
+ :
+ 
+ 2381 
+ O_EVAL
+ :
+ 
+ 2382 ià(
+ max¬g
+  < 1)
+ 
+ 2383 
+ tmp¡r
+  = 
+ 	`¡ab_v®
+ (
+ def¡ab
+ );
+ 
+ 2385 
+ tmp¡r
+  =
+ 
+ 2386 (
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è!ð
+ A_NULL
+  ? 
+ ¡
+ [1] : 
+ 	`¡ab_v®
+ (
+ def¡ab
+ );
+ 
+ 2387 #ifdeà
+ TAINT
+ 
+ 
+ 2388 
+ š‹d
+  |ð
+ tmp¡r
+ ->
+ ¡r_š‹d
+ ;
+ 
+ 2389 
+ 	`šrÝ”
+ ("Insecure dependency inƒval");
+ 
+ 2391 
+ ¥
+  = 
+ 	`do_ev®
+ (
+ tmp¡r
+ , 
+ Ýty³
+ , 
+ curcmd
+ ->
+ c_¡ash
+ ,
+ 
+ 2392 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2393 
+ ¬¿y_»tuº
+ ;
+ 
+ 2395 
+ O_FTRREAD
+ :
+ 
+ 2396 
+ ¬gty³
+  = 0;
+ 
+ 2397 
+ ªum
+  = 
+ S_IRUSR
+ ;
+ 
+ 2398 
+ check_³rm
+ ;
+ 
+ 2399 
+ O_FTRWRITE
+ :
+ 
+ 2400 
+ ¬gty³
+  = 0;
+ 
+ 2401 
+ ªum
+  = 
+ S_IWUSR
+ ;
+ 
+ 2402 
+ check_³rm
+ ;
+ 
+ 2403 
+ O_FTREXEC
+ :
+ 
+ 2404 
+ ¬gty³
+  = 0;
+ 
+ 2405 
+ ªum
+  = 
+ S_IXUSR
+ ;
+ 
+ 2406 
+ check_³rm
+ ;
+ 
+ 2407 
+ O_FTEREAD
+ :
+ 
+ 2408 
+ ¬gty³
+  = 1;
+ 
+ 2409 
+ ªum
+  = 
+ S_IRUSR
+ ;
+ 
+ 2410 
+ check_³rm
+ ;
+ 
+ 2411 
+ O_FTEWRITE
+ :
+ 
+ 2412 
+ ¬gty³
+  = 1;
+ 
+ 2413 
+ ªum
+  = 
+ S_IWUSR
+ ;
+ 
+ 2414 
+ check_³rm
+ ;
+ 
+ 2415 
+ O_FTEEXEC
+ :
+ 
+ 2416 
+ ¬gty³
+  = 1;
+ 
+ 2417 
+ ªum
+  = 
+ S_IXUSR
+ ;
+ 
+ 2418 
+ check_³rm
+ :
+ 
+ 2419 ià(
+ 	`my¡©
+ (
+ ¬g
+ ,
+ ¡
+ [1]) < 0)
+ 
+ 2420 
+ §y_undef
+ ;
+ 
+ 2421 ià(
+ 	`ÿndo
+ (
+ ªum
+ ,
+ ¬gty³
+ ,&
+ ¡©ÿche
+ ))
+ 
+ 2422 
+ §y_yes
+ ;
+ 
+ 2423 
+ §y_no
+ ;
+ 
+ 2425 
+ O_FTIS
+ :
+ 
+ 2426 ià(
+ 	`my¡©
+ (
+ ¬g
+ ,
+ ¡
+ [1]) < 0)
+ 
+ 2427 
+ §y_undef
+ ;
+ 
+ 2428 
+ §y_yes
+ ;
+ 
+ 2429 
+ O_FTEOWNED
+ :
+ 
+ 2430 
+ O_FTROWNED
+ :
+ 
+ 2431 ià(
+ 	`my¡©
+ (
+ ¬g
+ ,
+ ¡
+ [1]) < 0)
+ 
+ 2432 
+ §y_undef
+ ;
+ 
+ 2433 ià(
+ ¡©ÿche
+ .
+ ¡_uid
+  =ð(
+ Ýty³
+  =ð
+ O_FTEOWNED
+  ? 
+ euid
+  : 
+ uid
+ ) )
+ 
+ 2434 
+ §y_yes
+ ;
+ 
+ 2435 
+ §y_no
+ ;
+ 
+ 2436 
+ O_FTZERO
+ :
+ 
+ 2437 ià(
+ 	`my¡©
+ (
+ ¬g
+ ,
+ ¡
+ [1]) < 0)
+ 
+ 2438 
+ §y_undef
+ ;
+ 
+ 2439 ià(!
+ ¡©ÿche
+ .
+ ¡_size
+ )
+ 
+ 2440 
+ §y_yes
+ ;
+ 
+ 2441 
+ §y_no
+ ;
+ 
+ 2442 
+ O_FTSIZE
+ :
+ 
+ 2443 ià(
+ 	`my¡©
+ (
+ ¬g
+ ,
+ ¡
+ [1]) < 0)
+ 
+ 2444 
+ §y_undef
+ ;
+ 
+ 2445 
+ v®ue
+  = ()
+ ¡©ÿche
+ .
+ ¡_size
+ ;
+ 
+ 2446 
+ dÚum£t
+ ;
+ 
+ 2448 
+ O_FTMTIME
+ :
+ 
+ 2449 ià(
+ 	`my¡©
+ (
+ ¬g
+ ,
+ ¡
+ [1]) < 0)
+ 
+ 2450 
+ §y_undef
+ ;
+ 
+ 2451 
+ v®ue
+  = ()(
+ ba£time
+  - 
+ ¡©ÿche
+ .
+ ¡_mtime
+ ) / 86400.0;
+ 
+ 2452 
+ dÚum£t
+ ;
+ 
+ 2453 
+ O_FTATIME
+ :
+ 
+ 2454 ià(
+ 	`my¡©
+ (
+ ¬g
+ ,
+ ¡
+ [1]) < 0)
+ 
+ 2455 
+ §y_undef
+ ;
+ 
+ 2456 
+ v®ue
+  = ()(
+ ba£time
+  - 
+ ¡©ÿche
+ .
+ ¡_©ime
+ ) / 86400.0;
+ 
+ 2457 
+ dÚum£t
+ ;
+ 
+ 2458 
+ O_FTCTIME
+ :
+ 
+ 2459 ià(
+ 	`my¡©
+ (
+ ¬g
+ ,
+ ¡
+ [1]) < 0)
+ 
+ 2460 
+ §y_undef
+ ;
+ 
+ 2461 
+ v®ue
+  = ()(
+ ba£time
+  - 
+ ¡©ÿche
+ .
+ ¡_ùime
+ ) / 86400.0;
+ 
+ 2462 
+ dÚum£t
+ ;
+ 
+ 2464 
+ O_FTSOCK
+ :
+ 
+ 2465 ià(
+ 	`my¡©
+ (
+ ¬g
+ ,
+ ¡
+ [1]) < 0)
+ 
+ 2466 
+ §y_undef
+ ;
+ 
+ 2467 ià(
+ 	`S_ISSOCK
+ (
+ ¡©ÿche
+ .
+ ¡_mode
+ ))
+ 
+ 2468 
+ §y_yes
+ ;
+ 
+ 2469 
+ §y_no
+ ;
+ 
+ 2470 
+ O_FTCHR
+ :
+ 
+ 2471 ià(
+ 	`my¡©
+ (
+ ¬g
+ ,
+ ¡
+ [1]) < 0)
+ 
+ 2472 
+ §y_undef
+ ;
+ 
+ 2473 ià(
+ 	`S_ISCHR
+ (
+ ¡©ÿche
+ .
+ ¡_mode
+ ))
+ 
+ 2474 
+ §y_yes
+ ;
+ 
+ 2475 
+ §y_no
+ ;
+ 
+ 2476 
+ O_FTBLK
+ :
+ 
+ 2477 ià(
+ 	`my¡©
+ (
+ ¬g
+ ,
+ ¡
+ [1]) < 0)
+ 
+ 2478 
+ §y_undef
+ ;
+ 
+ 2479 ià(
+ 	`S_ISBLK
+ (
+ ¡©ÿche
+ .
+ ¡_mode
+ ))
+ 
+ 2480 
+ §y_yes
+ ;
+ 
+ 2481 
+ §y_no
+ ;
+ 
+ 2482 
+ O_FTFILE
+ :
+ 
+ 2483 ià(
+ 	`my¡©
+ (
+ ¬g
+ ,
+ ¡
+ [1]) < 0)
+ 
+ 2484 
+ §y_undef
+ ;
+ 
+ 2485 ià(
+ 	`S_ISREG
+ (
+ ¡©ÿche
+ .
+ ¡_mode
+ ))
+ 
+ 2486 
+ §y_yes
+ ;
+ 
+ 2487 
+ §y_no
+ ;
+ 
+ 2488 
+ O_FTDIR
+ :
+ 
+ 2489 ià(
+ 	`my¡©
+ (
+ ¬g
+ ,
+ ¡
+ [1]) < 0)
+ 
+ 2490 
+ §y_undef
+ ;
+ 
+ 2491 ià(
+ 	`S_ISDIR
+ (
+ ¡©ÿche
+ .
+ ¡_mode
+ ))
+ 
+ 2492 
+ §y_yes
+ ;
+ 
+ 2493 
+ §y_no
+ ;
+ 
+ 2494 
+ O_FTPIPE
+ :
+ 
+ 2495 ià(
+ 	`my¡©
+ (
+ ¬g
+ ,
+ ¡
+ [1]) < 0)
+ 
+ 2496 
+ §y_undef
+ ;
+ 
+ 2497 ià(
+ 	`S_ISFIFO
+ (
+ ¡©ÿche
+ .
+ ¡_mode
+ ))
+ 
+ 2498 
+ §y_yes
+ ;
+ 
+ 2499 
+ §y_no
+ ;
+ 
+ 2500 
+ O_FTLINK
+ :
+ 
+ 2501 ià(
+ 	`myl¡©
+ (
+ ¬g
+ ,
+ ¡
+ [1]) < 0)
+ 
+ 2502 
+ §y_undef
+ ;
+ 
+ 2503 ià(
+ 	`S_ISLNK
+ (
+ ¡©ÿche
+ .
+ ¡_mode
+ ))
+ 
+ 2504 
+ §y_yes
+ ;
+ 
+ 2505 
+ §y_no
+ ;
+ 
+ 2506 
+ O_SYMLINK
+ :
+ 
+ 2507 #ifdeà
+ HAS_SYMLINK
+ 
+ 
+ 2508 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 2509 
+ tmps2
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [2]);
+ 
+ 2510 #ifdeà
+ TAINT
+ 
+ 
+ 2511 
+ 	`šrÝ”
+ ("Insecure dependency in symlink");
+ 
+ 2513 
+ v®ue
+  = ()(
+ 	`symlšk
+ (
+ tmps
+ ,
+ tmps2
+ ) >= 0);
+ 
+ 2514 
+ dÚum£t
+ ;
+ 
+ 2516 
+ 	`çl
+ ("Unsupported function symlink");
+ 
+ 2518 
+ O_READLINK
+ :
+ 
+ 2519 #ifdeà
+ HAS_SYMLINK
+ 
+ 
+ 2520 ià(
+ max¬g
+  < 1)
+ 
+ 2521 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ 	`¡ab_v®
+ (
+ def¡ab
+ ));
+ 
+ 2523 
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]);
+ 
+ 2524 
+ ªum
+  = 
+ 	`»adlšk
+ (
+ tmps
+ ,
+ buf
+ , buf);
+ 
+ 2525 ià(
+ ªum
+  < 0)
+ 
+ 2526 
+ §y_undef
+ ;
+ 
+ 2527 
+ 	`¡r_n£t
+ (
+ ¡r
+ ,
+ buf
+ ,
+ ªum
+ );
+ 
+ 2530 
+ §y_undef
+ ;
+ 
+ 2532 
+ O_FTSUID
+ :
+ 
+ 2533 #ifdeà
+ S_ISUID
+ 
+ 
+ 2534 
+ ªum
+  = 
+ S_ISUID
+ ;
+ 
+ 2535 
+ check_xid
+ ;
+ 
+ 2537 
+ §y_no
+ ;
+ 
+ 2539 
+ O_FTSGID
+ :
+ 
+ 2540 #ifdeà
+ S_ISGID
+ 
+ 
+ 2541 
+ ªum
+  = 
+ S_ISGID
+ ;
+ 
+ 2542 
+ check_xid
+ ;
+ 
+ 2544 
+ §y_no
+ ;
+ 
+ 2546 
+ O_FTSVTX
+ :
+ 
+ 2547 #ifdeà
+ S_ISVTX
+ 
+ 
+ 2548 
+ ªum
+  = 
+ S_ISVTX
+ ;
+ 
+ 2550 
+ §y_no
+ ;
+ 
+ 2552 
+ check_xid
+ :
+ 
+ 2553 ià(
+ 	`my¡©
+ (
+ ¬g
+ ,
+ ¡
+ [1]) < 0)
+ 
+ 2554 
+ §y_undef
+ ;
+ 
+ 2555 ià(
+ ¡©ÿche
+ .
+ ¡_mode
+  & 
+ ªum
+ )
+ 
+ 2556 
+ §y_yes
+ ;
+ 
+ 2557 
+ §y_no
+ ;
+ 
+ 2558 
+ O_FTTTY
+ :
+ 
+ 2559 ià(
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_DONT
+ ) {
+ 
+ 2560 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2561 
+ tmps
+  = "";
+ 
+ 2564 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ tmps
+  = 
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ FALSE
+ );
+ 
+ 2565 ià(
+ ¡ab
+  && 
+ 	`¡ab_io
+ (¡abè&& sb_io(¡ab)->
+ iå
+ )
+ 
+ 2566 
+ ªum
+  = 
+ 	`fž’o
+ (
+ 	`¡ab_io
+ (
+ ¡ab
+ )->
+ iå
+ );
+ 
+ 2567 ià(
+ 	`isdig™
+ (*
+ tmps
+ ))
+ 
+ 2568 
+ ªum
+  = 
+ 	`©oi
+ (
+ tmps
+ );
+ 
+ 2570 
+ §y_undef
+ ;
+ 
+ 2571 ià(
+ 	`i§‰y
+ (
+ ªum
+ ))
+ 
+ 2572 
+ §y_yes
+ ;
+ 
+ 2573 
+ §y_no
+ ;
+ 
+ 2574 
+ O_FTTEXT
+ :
+ 
+ 2575 
+ O_FTBINARY
+ :
+ 
+ 2576 
+ ¡r
+  = 
+ 	`do_á‹xt
+ (
+ ¬g
+ ,
+ ¡
+ [1]);
+ 
+ 2578 #ifdeà
+ HAS_SOCKET
+ 
+ 
+ 2579 
+ O_SOCKET
+ :
+ 
+ 2580 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2581 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2583 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 2584 #iâdeà
+ lšt
+ 
+ 
+ 2585 
+ v®ue
+  = ()
+ 	`do_sock‘
+ (
+ ¡ab
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2587 ()
+ 	`do_sock‘
+ (
+ ¡ab
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2589 
+ dÚum£t
+ ;
+ 
+ 2590 
+ O_BIND
+ :
+ 
+ 2591 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2592 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2594 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 2595 #iâdeà
+ lšt
+ 
+ 
+ 2596 
+ v®ue
+  = ()
+ 	`do_bšd
+ (
+ ¡ab
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2598 ()
+ 	`do_bšd
+ (
+ ¡ab
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2600 
+ dÚum£t
+ ;
+ 
+ 2601 
+ O_CONNECT
+ :
+ 
+ 2602 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2603 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2605 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 2606 #iâdeà
+ lšt
+ 
+ 
+ 2607 
+ v®ue
+  = ()
+ 	`do_cÚÃù
+ (
+ ¡ab
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2609 ()
+ 	`do_cÚÃù
+ (
+ ¡ab
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2611 
+ dÚum£t
+ ;
+ 
+ 2612 
+ O_LISTEN
+ :
+ 
+ 2613 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2614 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2616 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 2617 #iâdeà
+ lšt
+ 
+ 
+ 2618 
+ v®ue
+  = ()
+ 	`do_li¡’
+ (
+ ¡ab
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2620 ()
+ 	`do_li¡’
+ (
+ ¡ab
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2622 
+ dÚum£t
+ ;
+ 
+ 2623 
+ O_ACCEPT
+ :
+ 
+ 2624 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2625 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2627 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 2628 ià((
+ ¬g
+ [2].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2629 
+ ¡ab2
+  = 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2631 
+ ¡ab2
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [2]),
+ TRUE
+ );
+ 
+ 2632 
+ 	`do_acû±
+ (
+ ¡r
+ ,
+ ¡ab
+ ,
+ ¡ab2
+ );
+ 
+ 2633 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 2635 
+ O_GHBYNAME
+ :
+ 
+ 2636 ià(
+ max¬g
+  < 1)
+ 
+ 2637 
+ §y_undef
+ ;
+ 
+ 2638 
+ O_GHBYADDR
+ :
+ 
+ 2639 
+ O_GHOSTENT
+ :
+ 
+ 2640 
+ ¥
+  = 
+ 	`do_gh’t
+ (
+ Ýty³
+ ,
+ 
+ 2641 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2642 
+ ¬¿y_»tuº
+ ;
+ 
+ 2643 
+ O_GNBYNAME
+ :
+ 
+ 2644 ià(
+ max¬g
+  < 1)
+ 
+ 2645 
+ §y_undef
+ ;
+ 
+ 2646 
+ O_GNBYADDR
+ :
+ 
+ 2647 
+ O_GNETENT
+ :
+ 
+ 2648 
+ ¥
+  = 
+ 	`do_gÃÁ
+ (
+ Ýty³
+ ,
+ 
+ 2649 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2650 
+ ¬¿y_»tuº
+ ;
+ 
+ 2651 
+ O_GPBYNAME
+ :
+ 
+ 2652 ià(
+ max¬g
+  < 1)
+ 
+ 2653 
+ §y_undef
+ ;
+ 
+ 2654 
+ O_GPBYNUMBER
+ :
+ 
+ 2655 
+ O_GPROTOENT
+ :
+ 
+ 2656 
+ ¥
+  = 
+ 	`do_g³Á
+ (
+ Ýty³
+ ,
+ 
+ 2657 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2658 
+ ¬¿y_»tuº
+ ;
+ 
+ 2659 
+ O_GSBYNAME
+ :
+ 
+ 2660 ià(
+ max¬g
+  < 1)
+ 
+ 2661 
+ §y_undef
+ ;
+ 
+ 2662 
+ O_GSBYPORT
+ :
+ 
+ 2663 
+ O_GSERVENT
+ :
+ 
+ 2664 
+ ¥
+  = 
+ 	`do_g£Á
+ (
+ Ýty³
+ ,
+ 
+ 2665 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2666 
+ ¬¿y_»tuº
+ ;
+ 
+ 2667 
+ O_SHOSTENT
+ :
+ 
+ 2668 
+ v®ue
+  = (è
+ 	`£tho¡’t
+ (()
+ 	`¡r_gnum
+ (
+ ¡
+ [1]));
+ 
+ 2669 
+ dÚum£t
+ ;
+ 
+ 2670 
+ O_SNETENT
+ :
+ 
+ 2671 
+ v®ue
+  = (è
+ 	`£Š‘’t
+ (()
+ 	`¡r_gnum
+ (
+ ¡
+ [1]));
+ 
+ 2672 
+ dÚum£t
+ ;
+ 
+ 2673 
+ O_SPROTOENT
+ :
+ 
+ 2674 
+ v®ue
+  = (è
+ 	`£rÙÛÁ
+ (()
+ 	`¡r_gnum
+ (
+ ¡
+ [1]));
+ 
+ 2675 
+ dÚum£t
+ ;
+ 
+ 2676 
+ O_SSERVENT
+ :
+ 
+ 2677 
+ v®ue
+  = (è
+ 	`£t£rv’t
+ (()
+ 	`¡r_gnum
+ (
+ ¡
+ [1]));
+ 
+ 2678 
+ dÚum£t
+ ;
+ 
+ 2679 
+ O_EHOSTENT
+ :
+ 
+ 2680 
+ v®ue
+  = (è
+ 	`’dho¡’t
+ ();
+ 
+ 2681 
+ dÚum£t
+ ;
+ 
+ 2682 
+ O_ENETENT
+ :
+ 
+ 2683 
+ v®ue
+  = (è
+ 	`’dËÁ
+ ();
+ 
+ 2684 
+ dÚum£t
+ ;
+ 
+ 2685 
+ O_EPROTOENT
+ :
+ 
+ 2686 
+ v®ue
+  = (è
+ 	`’d´ÙÛÁ
+ ();
+ 
+ 2687 
+ dÚum£t
+ ;
+ 
+ 2688 
+ O_ESERVENT
+ :
+ 
+ 2689 
+ v®ue
+  = (è
+ 	`’d£rv’t
+ ();
+ 
+ 2690 
+ dÚum£t
+ ;
+ 
+ 2691 
+ O_SOCKPAIR
+ :
+ 
+ 2692 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2693 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2695 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 2696 ià((
+ ¬g
+ [2].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2697 
+ ¡ab2
+  = 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2699 
+ ¡ab2
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [2]),
+ TRUE
+ );
+ 
+ 2700 #iâdeà
+ lšt
+ 
+ 
+ 2701 
+ v®ue
+  = ()
+ 	`do_¥aœ
+ (
+ ¡ab
+ ,
+ ¡ab2
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2703 ()
+ 	`do_¥aœ
+ (
+ ¡ab
+ ,
+ ¡ab2
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2705 
+ dÚum£t
+ ;
+ 
+ 2706 
+ O_SHUTDOWN
+ :
+ 
+ 2707 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2708 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2710 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 2711 #iâdeà
+ lšt
+ 
+ 
+ 2712 
+ v®ue
+  = ()
+ 	`do_shutdown
+ (
+ ¡ab
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2714 ()
+ 	`do_shutdown
+ (
+ ¡ab
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2716 
+ dÚum£t
+ ;
+ 
+ 2717 
+ O_GSOCKOPT
+ :
+ 
+ 2718 
+ O_SSOCKOPT
+ :
+ 
+ 2719 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2720 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2722 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 2723 
+ ¥
+  = 
+ 	`do_sÝt
+ (
+ Ýty³
+ ,
+ ¡ab
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2724 
+ ¬¿y_»tuº
+ ;
+ 
+ 2725 
+ O_GETSOCKNAME
+ :
+ 
+ 2726 
+ O_GETPEERNAME
+ :
+ 
+ 2727 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2728 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2730 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 2731 ià(!
+ ¡ab
+ )
+ 
+ 2732 
+ §y_undef
+ ;
+ 
+ 2733 
+ ¥
+  = 
+ 	`do_g‘sockÇme
+ (
+ Ýty³
+ ,
+ ¡ab
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2734 
+ ¬¿y_»tuº
+ ;
+ 
+ 2737 
+ O_SOCKET
+ :
+ 
+ 2738 
+ O_BIND
+ :
+ 
+ 2739 
+ O_CONNECT
+ :
+ 
+ 2740 
+ O_LISTEN
+ :
+ 
+ 2741 
+ O_ACCEPT
+ :
+ 
+ 2742 
+ O_SOCKPAIR
+ :
+ 
+ 2743 
+ O_GHBYNAME
+ :
+ 
+ 2744 
+ O_GHBYADDR
+ :
+ 
+ 2745 
+ O_GHOSTENT
+ :
+ 
+ 2746 
+ O_GNBYNAME
+ :
+ 
+ 2747 
+ O_GNBYADDR
+ :
+ 
+ 2748 
+ O_GNETENT
+ :
+ 
+ 2749 
+ O_GPBYNAME
+ :
+ 
+ 2750 
+ O_GPBYNUMBER
+ :
+ 
+ 2751 
+ O_GPROTOENT
+ :
+ 
+ 2752 
+ O_GSBYNAME
+ :
+ 
+ 2753 
+ O_GSBYPORT
+ :
+ 
+ 2754 
+ O_GSERVENT
+ :
+ 
+ 2755 
+ O_SHOSTENT
+ :
+ 
+ 2756 
+ O_SNETENT
+ :
+ 
+ 2757 
+ O_SPROTOENT
+ :
+ 
+ 2758 
+ O_SSERVENT
+ :
+ 
+ 2759 
+ O_EHOSTENT
+ :
+ 
+ 2760 
+ O_ENETENT
+ :
+ 
+ 2761 
+ O_EPROTOENT
+ :
+ 
+ 2762 
+ O_ESERVENT
+ :
+ 
+ 2763 
+ O_SHUTDOWN
+ :
+ 
+ 2764 
+ O_GSOCKOPT
+ :
+ 
+ 2765 
+ O_SSOCKOPT
+ :
+ 
+ 2766 
+ O_GETSOCKNAME
+ :
+ 
+ 2767 
+ O_GETPEERNAME
+ :
+ 
+ 2768 
+ badsock
+ :
+ 
+ 2769 
+ 	`çl
+ ("Unsupported socket function");
+ 
+ 2771 
+ O_SSELECT
+ :
+ 
+ 2772 #ifdeà
+ HAS_SELECT
+ 
+ 
+ 2773 
+ ¥
+  = 
+ 	`do_£Ëù
+ (
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2774 
+ ¬¿y_»tuº
+ ;
+ 
+ 2776 
+ 	`çl
+ ("select‚ot implemented");
+ 
+ 2778 
+ O_FILENO
+ :
+ 
+ 2779 ià(
+ max¬g
+  < 1)
+ 
+ 2780 
+ §y_undef
+ ;
+ 
+ 2781 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2782 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2784 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 2785 ià(!
+ ¡ab
+  || !(
+ ¡io
+  = 
+ 	`¡ab_io
+ (¡ab)è|| !(
+ å
+  = stio->
+ iå
+ ))
+ 
+ 2786 
+ §y_undef
+ ;
+ 
+ 2787 
+ v®ue
+  = 
+ 	`fž’o
+ (
+ å
+ );
+ 
+ 2788 
+ dÚum£t
+ ;
+ 
+ 2789 
+ O_BINMODE
+ :
+ 
+ 2790 ià(
+ max¬g
+  < 1)
+ 
+ 2791 
+ §y_undef
+ ;
+ 
+ 2792 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2793 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2795 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 2796 ià(!
+ ¡ab
+  || !(
+ ¡io
+  = 
+ 	`¡ab_io
+ (¡ab)è|| !(
+ å
+  = stio->
+ iå
+ ))
+ 
+ 2797 
+ §y_undef
+ ;
+ 
+ 2798 #ifdeà
+ MSDOS
+ 
+ 
+ 2799 
+ 	`¡r_£t
+ (
+ ¡r
+ , (
+ 	`£tmode
+ (
+ 	`fž’o
+ (
+ å
+ ), 
+ O_BINARY
+ è!ð-1è? 
+ Yes
+  : 
+ No
+ );
+ 
+ 2801 
+ 	`¡r_£t
+ (
+ ¡r
+ , 
+ Yes
+ );
+ 
+ 2803 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 2805 
+ O_VEC
+ :
+ 
+ 2806 
+ ¥
+  = 
+ 	`do_vec
+ (
+ ¡r
+  =ð
+ ¡
+ [1], 
+ ¬g
+ ->
+ ¬g_±r
+ .
+ ¬g_¡r
+ , 
+ ¬gÏ¡
+ );
+ 
+ 2807 
+ ¬¿y_»tuº
+ ;
+ 
+ 2808 
+ O_GPWNAM
+ :
+ 
+ 2809 
+ O_GPWUID
+ :
+ 
+ 2810 
+ O_GPWENT
+ :
+ 
+ 2811 #ifdeà
+ HAS_PASSWD
+ 
+ 
+ 2812 
+ ¥
+  = 
+ 	`do_gpw’t
+ (
+ Ýty³
+ ,
+ 
+ 2813 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2814 
+ ¬¿y_»tuº
+ ;
+ 
+ 2815 
+ O_SPWENT
+ :
+ 
+ 2816 
+ v®ue
+  = (è
+ 	`£w’t
+ ();
+ 
+ 2817 
+ dÚum£t
+ ;
+ 
+ 2818 
+ O_EPWENT
+ :
+ 
+ 2819 
+ v®ue
+  = (è
+ 	`’dpw’t
+ ();
+ 
+ 2820 
+ dÚum£t
+ ;
+ 
+ 2822 
+ O_EPWENT
+ :
+ 
+ 2823 
+ O_SPWENT
+ :
+ 
+ 2824 
+ 	`çl
+ ("Unsupported…assword function");
+ 
+ 2827 
+ O_GGRNAM
+ :
+ 
+ 2828 
+ O_GGRGID
+ :
+ 
+ 2829 
+ O_GGRENT
+ :
+ 
+ 2830 #ifdeà
+ HAS_GROUP
+ 
+ 
+ 2831 
+ ¥
+  = 
+ 	`do_gg»Á
+ (
+ Ýty³
+ ,
+ 
+ 2832 
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2833 
+ ¬¿y_»tuº
+ ;
+ 
+ 2834 
+ O_SGRENT
+ :
+ 
+ 2835 
+ v®ue
+  = (è
+ 	`£tg»Á
+ ();
+ 
+ 2836 
+ dÚum£t
+ ;
+ 
+ 2837 
+ O_EGRENT
+ :
+ 
+ 2838 
+ v®ue
+  = (è
+ 	`’dg»Á
+ ();
+ 
+ 2839 
+ dÚum£t
+ ;
+ 
+ 2841 
+ O_EGRENT
+ :
+ 
+ 2842 
+ O_SGRENT
+ :
+ 
+ 2843 
+ 	`çl
+ ("Unsupported group function");
+ 
+ 2846 
+ O_GETLOGIN
+ :
+ 
+ 2847 #ifdeà
+ HAS_GETLOGIN
+ 
+ 
+ 2848 ià(!(
+ tmps
+  = 
+ 	`g‘logš
+ ()))
+ 
+ 2849 
+ §y_undef
+ ;
+ 
+ 2850 
+ 	`¡r_£t
+ (
+ ¡r
+ ,
+ tmps
+ );
+ 
+ 2852 
+ 	`çl
+ ("Unsupported function getlogin");
+ 
+ 2855 
+ O_OPENDIR
+ :
+ 
+ 2856 
+ O_READDIR
+ :
+ 
+ 2857 
+ O_TELLDIR
+ :
+ 
+ 2858 
+ O_SEEKDIR
+ :
+ 
+ 2859 
+ O_REWINDDIR
+ :
+ 
+ 2860 
+ O_CLOSEDIR
+ :
+ 
+ 2861 ià(
+ max¬g
+  < 1)
+ 
+ 2862 
+ §y_undef
+ ;
+ 
+ 2863 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2864 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2866 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 2867 ià(!
+ ¡ab
+ )
+ 
+ 2868 
+ §y_undef
+ ;
+ 
+ 2869 
+ ¥
+  = 
+ 	`do_dœÝ
+ (
+ Ýty³
+ ,
+ ¡ab
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ );
+ 
+ 2870 
+ ¬¿y_»tuº
+ ;
+ 
+ 2871 
+ O_SYSCALL
+ :
+ 
+ 2872 
+ v®ue
+  = ()
+ 	`do_sysÿÎ
+ (
+ ¬gÏ¡
+ );
+ 
+ 2873 
+ dÚum£t
+ ;
+ 
+ 2874 
+ O_PIPE
+ :
+ 
+ 2875 #ifdeà
+ HAS_PIPE
+ 
+ 
+ 2876 ià((
+ ¬g
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2877 
+ ¡ab
+  = 
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2879 
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [1]),
+ TRUE
+ );
+ 
+ 2880 ià((
+ ¬g
+ [2].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_WORD
+ )
+ 
+ 2881 
+ ¡ab2
+  = 
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¡ab
+ ;
+ 
+ 2883 
+ ¡ab2
+  = 
+ 	`¡ab’t
+ (
+ 	`¡r_g‘
+ (
+ ¡
+ [2]),
+ TRUE
+ );
+ 
+ 2884 
+ 	`do_pe
+ (
+ ¡r
+ ,
+ ¡ab
+ ,
+ ¡ab2
+ );
+ 
+ 2885 
+ 	`STABSET
+ (
+ ¡r
+ );
+ 
+ 2887 
+ 	`çl
+ ("Unsupported function…ipe");
+ 
+ 2892 
+ nÜm®_»tuº
+ :
+ 
+ 2893 
+ ¡
+ [1] = 
+ ¡r
+ ;
+ 
+ 2894 #ifdeà
+ DEBUGGING
+ 
+ 
+ 2895 ià(
+ debug
+ ) {
+ 
+ 2896 
+ dËv–
+ --;
+ 
+ 2897 ià(
+ debug
+  & 8)
+ 
+ 2898 
+ 	`deb
+ ("% RETURNS \"%s\"\n",
+ ÝÇme
+ [
+ Ýty³
+ ],
+ 	`¡r_g‘
+ (
+ ¡r
+ ));
+ 
+ 2901  
+ ¬gÏ¡
+ [0] + 1;
+ 
+ 2902 
+ 	}
+ }
+ 
+ 	@form.c
+ 
+ 14 
+ 	~"EXTERN.h
+ "
+ 
+ 15 
+ 	~"³¾.h
+ "
+ 
+ 20 
+ 	$fÜm_·r£¬gs
+ (
+ fcmd
+ )
+ 
+ 21 
+ FCMD
+  *
+ fcmd
+ ;
+ 
+ 23 
+ i
+ ;
+ 
+ 24 
+ ARG
+  *
+ ¬g
+ ;
+ 
+ 25 
+ ™ems
+ ;
+ 
+ 26 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 27 
+ ARG
+  *
+ 	`·r£li¡
+ ();
+ 
+ 28 
+ lše_t
+  
+ Þdlše
+  = 
+ curcmd
+ ->
+ c_lše
+ ;
+ 
+ 29 
+ Þd§ve
+  = 
+ §ve¡ack
+ ->
+ ¬y_fžl
+ ;
+ 
+ 31 
+ ¡r
+  = 
+ fcmd
+ ->
+ f_uŬ£d
+ ;
+ 
+ 32 
+ curcmd
+ ->
+ c_lše
+  = 
+ fcmd
+ ->
+ f_lše
+ ;
+ 
+ 33 
+ fcmd
+ ->
+ f_uŬ£d
+  = 
+ NuΡr
+ ;
+ 
+ 34 ()
+ 	`§veh±r
+ (&
+ cur¡ash
+ );
+ 
+ 35 
+ cur¡ash
+  = 
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_hash
+ ;
+ 
+ 36 
+ ¬g
+  = 
+ 	`·r£li¡
+ (
+ ¡r
+ );
+ 
+ 37 
+ 	`»¡Ü–i¡
+ (
+ Þd§ve
+ );
+ 
+ 39 
+ ™ems
+  = 
+ ¬g
+ ->
+ ¬g_Ën
+  - 1;
+ 
+ 40 
+ i
+  = 1; i <ð
+ ™ems
+ ; i++) {
+ 
+ 41 ià(!
+ fcmd
+  || fcmd->
+ f_ty³
+  =ð
+ F_NULL
+ )
+ 
+ 42 
+ 	`çl
+ ("Too many field values");
+ 
+ 43 
+ 	`dehoi¡
+ (
+ ¬g
+ ,
+ i
+ );
+ 
+ 44 
+ fcmd
+ ->
+ f_ex´
+  = 
+ 	`make_Ý
+ (
+ O_ITEM
+ ,1,
+ 
+ 45 
+ ¬g
+ [
+ i
+ ].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ,
+ Nuάg
+ ,Nullarg);
+ 
+ 46 ià(
+ fcmd
+ ->
+ f_æags
+  & 
+ FC_CHOP
+ ) {
+ 
+ 47 ià((
+ fcmd
+ ->
+ f_ex´
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_STAB
+ )
+ 
+ 48 
+ fcmd
+ ->
+ f_ex´
+ [1].
+ ¬g_ty³
+  = 
+ A_LVAL
+ ;
+ 
+ 49 ià((
+ fcmd
+ ->
+ f_ex´
+ [1].
+ ¬g_ty³
+  & 
+ A_MASK
+ è=ð
+ A_EXPR
+ )
+ 
+ 50 
+ fcmd
+ ->
+ f_ex´
+ [1].
+ ¬g_ty³
+  = 
+ A_LEXPR
+ ;
+ 
+ 52 
+ 	`çl
+ ("^ field„equires scalar†value");
+ 
+ 54 
+ fcmd
+  = fcmd->
+ f_Ãxt
+ ;
+ 
+ 56 ià(
+ fcmd
+  && fcmd->
+ f_ty³
+ )
+ 
+ 57 
+ 	`çl
+ ("Notƒnough field values");
+ 
+ 58 
+ curcmd
+ ->
+ c_lše
+  = 
+ Þdlše
+ ;
+ 
+ 59 
+ 	`Saãä“
+ (
+ ¬g
+ );
+ 
+ 60 
+ 	`¡r_ä“
+ (
+ ¡r
+ );
+ 
+ 61 
+ 	}
+ }
+ 
+ 63 
+ 	gÃwsize
+ ;
+ 
+ 65 
+ 	#CHKLEN
+ (
+ ®low
+ ) \
+ 
+ 66 
+ Ãwsize
+  = (
+ d
+  - 
+ Üec
+ ->
+ o_¡r
+ è+ (
+ ®low
+ ); \
+ 
+ 67 ià(
+ Ãwsize
+  >ð
+ cu¾’
+ ) { \
+ 
+ 68 
+ cu¾’
+  = 
+ d
+  - 
+ Üec
+ ->
+ o_¡r
+ ; \
+ 
+ 69 
+ 	`GROWSTR
+ (&
+ Üec
+ ->
+ o_¡r
+ ,&Üec->
+ o_Ën
+ ,Üec->o_ËÀ+ (
+ ®low
+ )); \
+ 
+ 70 
+ d
+  = 
+ Üec
+ ->
+ o_¡r
+  + 
+ cu¾’
+ ; \
+ 
+ 71 
+ cu¾’
+  = 
+ Üec
+ ->
+ o_Ën
+  - 2; \
+ 
+ 72 }
+ 
+ 	)
+ 
+ 74 
+ 	$fÜm©
+ (
+ Üec
+ ,
+ fcmd
+ ,
+ ¥
+ )
+ 
+ 75 
+ ouŒec
+  *
+ Üec
+ ;
+ 
+ 76 
+ FCMD
+  *
+ fcmd
+ ;
+ 
+ 77 
+ ¥
+ ;
+ 
+ 79 *
+ d
+  = 
+ Üec
+ ->
+ o_¡r
+ ;
+ 
+ 80 *
+ s
+ ;
+ 
+ 81 
+ cu¾’
+  = 
+ Üec
+ ->
+ o_Ën
+  - 2;
+ 
+ 82 
+ size
+ ;
+ 
+ 83 
+ FCMD
+  *
+ Ãxtfcmd
+ ;
+ 
+ 84 
+ FCMD
+  *
+ lšebeg
+  = 
+ fcmd
+ ;
+ 
+ 85 
+ tmpch¬
+ ;
+ 
+ 86 *
+ t
+ ;
+ 
+ 87 
+ CMD
+  
+ mycmd
+ ;
+ 
+ 88 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 89 *
+ chÝh”e
+ ;
+ 
+ 91 
+ mycmd
+ .
+ c_ty³
+  = 
+ C_NULL
+ ;
+ 
+ 92 
+ Üec
+ ->
+ o_lšes
+  = 0;
+ 
+ 93 ; 
+ fcmd
+ ; fcmd = 
+ Ãxtfcmd
+ ) {
+ 
+ 94 
+ Ãxtfcmd
+  = 
+ fcmd
+ ->
+ f_Ãxt
+ ;
+ 
+ 95 
+ 	`CHKLEN
+ (
+ fcmd
+ ->
+ f_´esize
+ );
+ 
+ 96 ià(
+ s
+  = 
+ fcmd
+ ->
+ f_´e
+ ) {
+ 
+ 97 *
+ s
+ ) {
+ 
+ 98 ià(*
+ s
+  == '\n') {
+ 
+ 99 
+ d
+  > 
+ Üec
+ ->
+ o_¡r
+  && (d[-1] == ' ' || d[-1] == '\t'))
+ 
+ 100 
+ d
+ --;
+ 
+ 101 ià(
+ fcmd
+ ->
+ f_æags
+  & 
+ FC_NOBLANK
+ ) {
+ 
+ 102 ià(
+ d
+  =ð
+ Üec
+ ->
+ o_¡r
+  || d[-1] == '\n') {
+ 
+ 103 
+ Üec
+ ->
+ o_lšes
+ --;
+ 
+ 104 
+ lšebeg
+  = 
+ fcmd
+ ->
+ f_Ãxt
+ ;
+ 
+ 107 ià(
+ fcmd
+ ->
+ f_æags
+  & 
+ FC_REPEAT
+ )
+ 
+ 108 
+ Ãxtfcmd
+  = 
+ lšebeg
+ ;
+ 
+ 110 
+ lšebeg
+  = 
+ fcmd
+ ->
+ f_Ãxt
+ ;
+ 
+ 113 
+ lšebeg
+  = 
+ fcmd
+ ->
+ f_Ãxt
+ ;
+ 
+ 115 *
+ d
+ ++ = *
+ s
+ ++;
+ 
+ 118 ià(
+ fcmd
+ ->
+ f_uŬ£d
+ )
+ 
+ 119 
+ 	`fÜm_·r£¬gs
+ (
+ fcmd
+ );
+ 
+ 120 
+ fcmd
+ ->
+ f_ty³
+ ) {
+ 
+ 121 
+ F_NULL
+ :
+ 
+ 122 
+ Üec
+ ->
+ o_lšes
+ ++;
+ 
+ 124 
+ F_LEFT
+ :
+ 
+ 125 ()
+ 	`ev®
+ (
+ fcmd
+ ->
+ f_ex´
+ ,
+ G_SCALAR
+ ,
+ ¥
+ );
+ 
+ 126 
+ ¡r
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1];
+ 
+ 127 
+ s
+  = 
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 128 
+ size
+  = 
+ fcmd
+ ->
+ f_size
+ ;
+ 
+ 129 
+ 	`CHKLEN
+ (
+ size
+ );
+ 
+ 130 
+ chÝh”e
+  = 
+ NuÎch
+ ;
+ 
+ 131 
+ size
+  && *
+ s
+  && *s != '\n') {
+ 
+ 132 ià(*
+ s
+  == '\t')
+ 
+ 133 *
+ s
+  = ' ';
+ 
+ 134 
+ size
+ --;
+ 
+ 135 ià(*
+ s
+  && 
+ 	`šdex
+ (
+ chݣt
+ ,(*
+ d
+ ++ = *s++)))
+ 
+ 136 
+ chÝh”e
+  = 
+ s
+ ;
+ 
+ 137 ià(*
+ s
+  =ð'\n' && (
+ fcmd
+ ->
+ f_æags
+  & 
+ FC_CHOP
+ ))
+ 
+ 138 *
+ s
+  = ' ';
+ 
+ 140 ià(
+ size
+ )
+ 
+ 141 
+ chÝh”e
+  = 
+ s
+ ;
+ 
+ 142 ià(
+ chÝh”e
+  && chÝh”< 
+ s
+  && * && 
+ 	`šdex
+ (
+ chݣt
+ ,*s))
+ 
+ 143 
+ chÝh”e
+  = 
+ s
+ ;
+ 
+ 144 ià(
+ fcmd
+ ->
+ f_æags
+  & 
+ FC_CHOP
+ ) {
+ 
+ 145 ià(!
+ chÝh”e
+ )
+ 
+ 146 
+ chÝh”e
+  = 
+ s
+ ;
+ 
+ 147 
+ size
+  +ð(
+ s
+  - 
+ chÝh”e
+ );
+ 
+ 148 
+ d
+  -ð(
+ s
+  - 
+ chÝh”e
+ );
+ 
+ 149 ià(
+ fcmd
+ ->
+ f_æags
+  & 
+ FC_MORE
+  &&
+ 
+ 150 *
+ chÝh”e
+  && 
+ 	`¡rNE
+ (chophere,"\n")) {
+ 
+ 151 
+ size
+  < 3) {
+ 
+ 152 
+ d
+ --;
+ 
+ 153 
+ size
+ ++;
+ 
+ 155 
+ d
+ [-1] =ð' ' && 
+ size
+  < 
+ fcmd
+ ->
+ f_size
+ ) {
+ 
+ 156 
+ d
+ --;
+ 
+ 157 
+ size
+ ++;
+ 
+ 159 *
+ d
+ ++ = '.';
+ 
+ 160 *
+ d
+ ++ = '.';
+ 
+ 161 *
+ d
+ ++ = '.';
+ 
+ 162 
+ size
+  -= 3;
+ 
+ 164 *
+ chÝh”e
+  && 
+ 	`šdex
+ (
+ chݣt
+ ,*chophere))
+ 
+ 165 
+ chÝh”e
+ ++;
+ 
+ 166 
+ 	`¡r_chÝ
+ (
+ ¡r
+ ,
+ chÝh”e
+ );
+ 
+ 168 ià(
+ fcmd
+ ->
+ f_Ãxt
+  && fcmd->f_Ãxt->
+ f_´e
+ [0] == '\n')
+ 
+ 169 
+ size
+  = 0;
+ 
+ 170 
+ size
+ ) {
+ 
+ 171 
+ size
+ --;
+ 
+ 172 *
+ d
+ ++ = ' ';
+ 
+ 175 
+ F_RIGHT
+ :
+ 
+ 176 ()
+ 	`ev®
+ (
+ fcmd
+ ->
+ f_ex´
+ ,
+ G_SCALAR
+ ,
+ ¥
+ );
+ 
+ 177 
+ ¡r
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1];
+ 
+ 178 
+ t
+  = 
+ s
+  = 
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 179 
+ size
+  = 
+ fcmd
+ ->
+ f_size
+ ;
+ 
+ 180 
+ 	`CHKLEN
+ (
+ size
+ );
+ 
+ 181 
+ chÝh”e
+  = 
+ NuÎch
+ ;
+ 
+ 182 
+ size
+  && *
+ s
+  && *s != '\n') {
+ 
+ 183 ià(*
+ s
+  == '\t')
+ 
+ 184 *
+ s
+  = ' ';
+ 
+ 185 
+ size
+ --;
+ 
+ 186 ià(*
+ s
+  && 
+ 	`šdex
+ (
+ chݣt
+ ,*s++))
+ 
+ 187 
+ chÝh”e
+  = 
+ s
+ ;
+ 
+ 188 ià(*
+ s
+  =ð'\n' && (
+ fcmd
+ ->
+ f_æags
+  & 
+ FC_CHOP
+ ))
+ 
+ 189 *
+ s
+  = ' ';
+ 
+ 191 ià(
+ size
+ )
+ 
+ 192 
+ chÝh”e
+  = 
+ s
+ ;
+ 
+ 193 ià(
+ chÝh”e
+  && chÝh”< 
+ s
+  && * && 
+ 	`šdex
+ (
+ chݣt
+ ,*s))
+ 
+ 194 
+ chÝh”e
+  = 
+ s
+ ;
+ 
+ 195 ià(
+ fcmd
+ ->
+ f_æags
+  & 
+ FC_CHOP
+ ) {
+ 
+ 196 ià(!
+ chÝh”e
+ )
+ 
+ 197 
+ chÝh”e
+  = 
+ s
+ ;
+ 
+ 198 
+ size
+  +ð(
+ s
+  - 
+ chÝh”e
+ );
+ 
+ 199 
+ s
+  = 
+ chÝh”e
+ ;
+ 
+ 200 *
+ chÝh”e
+  && 
+ 	`šdex
+ (
+ chݣt
+ ,*chophere))
+ 
+ 201 
+ chÝh”e
+ ++;
+ 
+ 203 
+ tmpch¬
+  = *
+ s
+ ;
+ 
+ 204 *
+ s
+  = '\0';
+ 
+ 205 
+ size
+ ) {
+ 
+ 206 
+ size
+ --;
+ 
+ 207 *
+ d
+ ++ = ' ';
+ 
+ 209 
+ size
+  = 
+ s
+  - 
+ t
+ ;
+ 
+ 210 ()
+ 	`bcÝy
+ (
+ t
+ ,
+ d
+ ,
+ size
+ );
+ 
+ 211 
+ d
+  +ð
+ size
+ ;
+ 
+ 212 *
+ s
+  = 
+ tmpch¬
+ ;
+ 
+ 213 ià(
+ fcmd
+ ->
+ f_æags
+  & 
+ FC_CHOP
+ )
+ 
+ 214 
+ 	`¡r_chÝ
+ (
+ ¡r
+ ,
+ chÝh”e
+ );
+ 
+ 216 
+ F_CENTER
+ : {
+ 
+ 217 
+ h®fsize
+ ;
+ 
+ 219 ()
+ 	`ev®
+ (
+ fcmd
+ ->
+ f_ex´
+ ,
+ G_SCALAR
+ ,
+ ¥
+ );
+ 
+ 220 
+ ¡r
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1];
+ 
+ 221 
+ t
+  = 
+ s
+  = 
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 222 
+ size
+  = 
+ fcmd
+ ->
+ f_size
+ ;
+ 
+ 223 
+ 	`CHKLEN
+ (
+ size
+ );
+ 
+ 224 
+ chÝh”e
+  = 
+ NuÎch
+ ;
+ 
+ 225 
+ size
+  && *
+ s
+  && *s != '\n') {
+ 
+ 226 ià(*
+ s
+  == '\t')
+ 
+ 227 *
+ s
+  = ' ';
+ 
+ 228 
+ size
+ --;
+ 
+ 229 ià(*
+ s
+  && 
+ 	`šdex
+ (
+ chݣt
+ ,*s++))
+ 
+ 230 
+ chÝh”e
+  = 
+ s
+ ;
+ 
+ 231 ià(*
+ s
+  =ð'\n' && (
+ fcmd
+ ->
+ f_æags
+  & 
+ FC_CHOP
+ ))
+ 
+ 232 *
+ s
+  = ' ';
+ 
+ 234 ià(
+ size
+ )
+ 
+ 235 
+ chÝh”e
+  = 
+ s
+ ;
+ 
+ 236 ià(
+ chÝh”e
+  && chÝh”< 
+ s
+  && * && 
+ 	`šdex
+ (
+ chݣt
+ ,*s))
+ 
+ 237 
+ chÝh”e
+  = 
+ s
+ ;
+ 
+ 238 ià(
+ fcmd
+ ->
+ f_æags
+  & 
+ FC_CHOP
+ ) {
+ 
+ 239 ià(!
+ chÝh”e
+ )
+ 
+ 240 
+ chÝh”e
+  = 
+ s
+ ;
+ 
+ 241 
+ size
+  +ð(
+ s
+  - 
+ chÝh”e
+ );
+ 
+ 242 
+ s
+  = 
+ chÝh”e
+ ;
+ 
+ 243 *
+ chÝh”e
+  && 
+ 	`šdex
+ (
+ chݣt
+ ,*chophere))
+ 
+ 244 
+ chÝh”e
+ ++;
+ 
+ 246 
+ tmpch¬
+  = *
+ s
+ ;
+ 
+ 247 *
+ s
+  = '\0';
+ 
+ 248 
+ h®fsize
+  = 
+ size
+  / 2;
+ 
+ 249 
+ size
+  > 
+ h®fsize
+ ) {
+ 
+ 250 
+ size
+ --;
+ 
+ 251 *
+ d
+ ++ = ' ';
+ 
+ 253 
+ size
+  = 
+ s
+  - 
+ t
+ ;
+ 
+ 254 ()
+ 	`bcÝy
+ (
+ t
+ ,
+ d
+ ,
+ size
+ );
+ 
+ 255 
+ d
+  +ð
+ size
+ ;
+ 
+ 256 *
+ s
+  = 
+ tmpch¬
+ ;
+ 
+ 257 ià(
+ fcmd
+ ->
+ f_Ãxt
+  && fcmd->f_Ãxt->
+ f_´e
+ [0] == '\n')
+ 
+ 258 
+ size
+  = 0;
+ 
+ 260 
+ size
+  = 
+ h®fsize
+ ;
+ 
+ 261 
+ size
+ ) {
+ 
+ 262 
+ size
+ --;
+ 
+ 263 *
+ d
+ ++ = ' ';
+ 
+ 265 ià(
+ fcmd
+ ->
+ f_æags
+  & 
+ FC_CHOP
+ )
+ 
+ 266 
+ 	`¡r_chÝ
+ (
+ ¡r
+ ,
+ chÝh”e
+ );
+ 
+ 269 
+ F_LINES
+ :
+ 
+ 270 ()
+ 	`ev®
+ (
+ fcmd
+ ->
+ f_ex´
+ ,
+ G_SCALAR
+ ,
+ ¥
+ );
+ 
+ 271 
+ ¡r
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1];
+ 
+ 272 
+ s
+  = 
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 273 
+ size
+  = 
+ 	`¡r_Ën
+ (
+ ¡r
+ );
+ 
+ 274 
+ 	`CHKLEN
+ (
+ size
+ +1);
+ 
+ 275 
+ Üec
+ ->
+ o_lšes
+  +ð
+ 	`couÁlšes
+ (
+ s
+ ,
+ size
+ ) - 1;
+ 
+ 276 ()
+ 	`bcÝy
+ (
+ s
+ ,
+ d
+ ,
+ size
+ );
+ 
+ 277 
+ d
+  +ð
+ size
+ ;
+ 
+ 278 ià(
+ size
+  && 
+ s
+ [size-1] != '\n') {
+ 
+ 279 *
+ d
+ ++ = '\n';
+ 
+ 280 
+ Üec
+ ->
+ o_lšes
+ ++;
+ 
+ 282 
+ lšebeg
+  = 
+ fcmd
+ ->
+ f_Ãxt
+ ;
+ 
+ 284 
+ F_DECIMAL
+ : {
+ 
+ 285 
+ v®ue
+ ;
+ 
+ 287 ()
+ 	`ev®
+ (
+ fcmd
+ ->
+ f_ex´
+ ,
+ G_SCALAR
+ ,
+ ¥
+ );
+ 
+ 288 
+ ¡r
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ [
+ ¥
+ +1];
+ 
+ 289 
+ size
+  = 
+ fcmd
+ ->
+ f_size
+ ;
+ 
+ 290 
+ 	`CHKLEN
+ (
+ size
+ );
+ 
+ 293 ià((
+ fcmd
+ ->
+ f_æags
+  & 
+ FC_CHOP
+ è&& !
+ ¡r
+ ->
+ ¡r_pok
+  && !¡r->
+ ¡r_nok
+ ) {
+ 
+ 294 
+ size
+ ) {
+ 
+ 295 
+ size
+ --;
+ 
+ 296 *
+ d
+ ++ = ' ';
+ 
+ 300 
+ v®ue
+  = 
+ 	`¡r_gnum
+ (
+ ¡r
+ );
+ 
+ 301 ià(
+ fcmd
+ ->
+ f_æags
+  & 
+ FC_DP
+ ) {
+ 
+ 302 
+ 	`¥rštf
+ (
+ d
+ , "%#*.*f", 
+ size
+ , 
+ fcmd
+ ->
+ f_decim®s
+ , 
+ v®ue
+ );
+ 
+ 304 
+ 	`¥rštf
+ (
+ d
+ , "%*.0f", 
+ size
+ , 
+ v®ue
+ );
+ 
+ 306 
+ d
+  +ð
+ size
+ ;
+ 
+ 311 
+ 	`CHKLEN
+ (1);
+ 
+ 312 *
+ d
+ ++ = '\0';
+ 
+ 313 
+ 	}
+ }
+ 
+ 315 
+ 	$couÁlšes
+ (
+ s
+ ,
+ size
+ )
+ 
+ 316 *
+ s
+ ;
+ 
+ 317 
+ size
+ ;
+ 
+ 319 
+ couÁ
+  = 0;
+ 
+ 321 
+ size
+ --) {
+ 
+ 322 ià(*
+ s
+ ++ == '\n')
+ 
+ 323 
+ couÁ
+ ++;
+ 
+ 325  
+ couÁ
+ ;
+ 
+ 326 
+ 	}
+ }
+ 
+ 328 
+ 	$do_wr™e
+ (
+ Üec
+ ,
+ ¡io
+ ,
+ ¥
+ )
+ 
+ 329 
+ ouŒec
+  *
+ Üec
+ ;
+ 
+ 330 
+ STIO
+  *
+ ¡io
+ ;
+ 
+ 331 
+ ¥
+ ;
+ 
+ 333 
+ FILE
+  *
+ oå
+  = 
+ ¡io
+ ->ofp;
+ 
+ 335 #ifdeà
+ DEBUGGING
+ 
+ 
+ 336 ià(
+ debug
+  & 256)
+ 
+ 337 
+ 	`årštf
+ (
+ ¡d”r
+ ,"left=%ld,odo=%ld\n",
+ 
+ 338 ()
+ ¡io
+ ->
+ lšes_Ëá
+ , ()
+ Üec
+ ->
+ o_lšes
+ );
+ 
+ 340 ià(
+ ¡io
+ ->
+ lšes_Ëá
+  < 
+ Üec
+ ->
+ o_lšes
+ ) {
+ 
+ 341 ià(!
+ ¡io
+ ->
+ tÝ_¡ab
+ ) {
+ 
+ 342 
+ STAB
+  *
+ tݡab
+ ;
+ 
+ 344 ià(!
+ ¡io
+ ->
+ tÝ_Çme
+ )
+ 
+ 345 
+ ¡io
+ ->
+ tÝ_Çme
+  = 
+ 	`§ve¡r
+ ("top");
+ 
+ 346 
+ tݡab
+  = 
+ 	`¡ab’t
+ (
+ ¡io
+ ->
+ tÝ_Çme
+ ,
+ FALSE
+ );
+ 
+ 347 ià(!
+ tݡab
+  || !
+ 	`¡ab_fÜm
+ (topstab)) {
+ 
+ 348 
+ ¡io
+ ->
+ lšes_Ëá
+  = 100000000;
+ 
+ 349 
+ fÜg‘_tÝ
+ ;
+ 
+ 351 
+ ¡io
+ ->
+ tÝ_¡ab
+  = 
+ tݡab
+ ;
+ 
+ 353 ià(
+ ¡io
+ ->
+ lšes_Ëá
+  >ð0 && stio->
+ ·ge
+  > 0)
+ 
+ 354 ()
+ 	`putc
+ ('\f',
+ oå
+ );
+ 
+ 355 
+ ¡io
+ ->
+ lšes_Ëá
+  = stio->
+ ·ge_Ën
+ ;
+ 
+ 356 
+ ¡io
+ ->
+ ·ge
+ ++;
+ 
+ 357 
+ 	`fÜm©
+ (&
+ tݻc
+ ,
+ 	`¡ab_fÜm
+ (
+ ¡io
+ ->
+ tÝ_¡ab
+ ),
+ ¥
+ );
+ 
+ 358 
+ 	`åuts
+ (
+ tݻc
+ .
+ o_¡r
+ ,
+ oå
+ );
+ 
+ 359 
+ ¡io
+ ->
+ lšes_Ëá
+  -ð
+ tݻc
+ .
+ o_lšes
+ ;
+ 
+ 361 
+ fÜg‘_tÝ
+ :
+ 
+ 362 
+ 	`åuts
+ (
+ Üec
+ ->
+ o_¡r
+ ,
+ oå
+ );
+ 
+ 363 
+ ¡io
+ ->
+ lšes_Ëá
+  -ð
+ Üec
+ ->
+ o_lšes
+ ;
+ 
+ 364 
+ 	}
+ }
+ 
+ 	@form.h
+ 
+ 14 
+ 	#F_NULL
+  0
+ 
+ 	)
+ 
+ 15 
+ 	#F_LEFT
+  1
+ 
+ 	)
+ 
+ 16 
+ 	#F_RIGHT
+  2
+ 
+ 	)
+ 
+ 17 
+ 	#F_CENTER
+  3
+ 
+ 	)
+ 
+ 18 
+ 	#F_LINES
+  4
+ 
+ 	)
+ 
+ 19 
+ 	#F_DECIMAL
+  5
+ 
+ 	)
+ 
+ 21 
+ 	sfÜmcmd
+  {
+ 
+ 22 
+ fÜmcmd
+  *
+ 	mf_Ãxt
+ ;
+ 
+ 23 
+ ARG
+  *
+ 	mf_ex´
+ ;
+ 
+ 24 
+ STR
+  *
+ 	mf_uŬ£d
+ ;
+ 
+ 25 
+ lše_t
+  
+ 	mf_lše
+ ;
+ 
+ 26 *
+ 	mf_´e
+ ;
+ 
+ 27 
+ 	mf_´esize
+ ;
+ 
+ 28 
+ 	mf_size
+ ;
+ 
+ 29 
+ 	mf_decim®s
+ ;
+ 
+ 30 
+ 	mf_ty³
+ ;
+ 
+ 31 
+ 	mf_æags
+ ;
+ 
+ 34 
+ 	#FC_CHOP
+  1
+ 
+ 	)
+ 
+ 35 
+ 	#FC_NOBLANK
+  2
+ 
+ 	)
+ 
+ 36 
+ 	#FC_MORE
+  4
+ 
+ 	)
+ 
+ 37 
+ 	#FC_REPEAT
+  8
+ 
+ 	)
+ 
+ 38 
+ 	#FC_DP
+  16
+ 
+ 	)
+ 
+ 40 
+ 	#NuÎfcmd
+  
+ 	`NuÎ
+ (
+ FCMD
+ *)
+ 
+ 	)
+ 
+ 42 
+ EXT
+  *
+ chݣt
+  
+ INIT
+ (" \n-");
+ 
+ 	@handy.h
+ 
+ 14 #ifdeà
+ NULL
+ 
+ 
+ 15 #undeà
+ NULL
+ 
+ 
+ 17 #iâdeà
+ I286
+ 
+ 
+ 18 
+ 	#NULL
+  0
+ 
+ 	)
+ 
+ 20 
+ 	#NULL
+  0L
+ 
+ 	)
+ 
+ 22 
+ 	#NuÎ
+ (
+ ty³
+ è(Ñy³)
+ NULL
+ )
+ 
+ 	)
+ 
+ 23 
+ 	#NuÎch
+  
+ 	`NuÎ
+ (*)
+ 
+ 	)
+ 
+ 24 
+ 	#NuÎå
+  
+ 	`NuÎ
+ (
+ FILE
+ *)
+ 
+ 	)
+ 
+ 26 #ifdeà
+ UTS
+ 
+ 
+ 27 
+ 	#boÞ
+  
+ 
+ 	)
+ 
+ 29 
+ 	#boÞ
+  
+ 
+ 	)
+ 
+ 32 #ifdeà
+ TRUE
+ 
+ 
+ 33 #undeà
+ TRUE
+ 
+ 
+ 35 #ifdeà
+ FALSE
+ 
+ 
+ 36 #undeà
+ FALSE
+ 
+ 
+ 38 
+ 	#TRUE
+  (1)
+ 
+ 	)
+ 
+ 39 
+ 	#FALSE
+  (0)
+ 
+ 	)
+ 
+ 41 
+ 	#CŽ
+ (
+ ch
+ è(ch & 037)
+ 
+ 	)
+ 
+ 43 
+ 	#¡rNE
+ (
+ s1
+ ,
+ s2
+ è(
+ 	`¡rcmp
+ (s1,s2))
+ 
+ 	)
+ 
+ 44 
+ 	#¡rEQ
+ (
+ s1
+ ,
+ s2
+ è(!
+ 	`¡rcmp
+ (s1,s2))
+ 
+ 	)
+ 
+ 45 
+ 	#¡rLT
+ (
+ s1
+ ,
+ s2
+ è(
+ 	`¡rcmp
+ (s1,s2è< 0)
+ 
+ 	)
+ 
+ 46 
+ 	#¡rLE
+ (
+ s1
+ ,
+ s2
+ è(
+ 	`¡rcmp
+ (s1,s2è<ð0)
+ 
+ 	)
+ 
+ 47 
+ 	#¡rGT
+ (
+ s1
+ ,
+ s2
+ è(
+ 	`¡rcmp
+ (s1,s2è> 0)
+ 
+ 	)
+ 
+ 48 
+ 	#¡rGE
+ (
+ s1
+ ,
+ s2
+ è(
+ 	`¡rcmp
+ (s1,s2è>ð0)
+ 
+ 	)
+ 
+ 49 
+ 	#¡ºNE
+ (
+ s1
+ ,
+ s2
+ ,
+ l
+ è(
+ 	`¡ºcmp
+ (s1,s2,l))
+ 
+ 	)
+ 
+ 50 
+ 	#¡ºEQ
+ (
+ s1
+ ,
+ s2
+ ,
+ l
+ è(!
+ 	`¡ºcmp
+ (s1,s2,l))
+ 
+ 	)
+ 
+ 52 
+ 	#MEM_SIZE
+  
+ 
+ 	)
+ 
+ 55 
+ 	tlše_t
+ ;
+ 
+ 56 #ifdeà
+ lšt
+ 
+ 
+ 57 
+ 	#NOLINE
+  ((
+ lše_t
+ )0)
+ 
+ 	)
+ 
+ 59 
+ 	#NOLINE
+  ((
+ lše_t
+ è65535)
+ 
+ 	)
+ 
+ 62 #iâdeà
+ lšt
+ 
+ 
+ 63 #iâdeà
+ LEAKTEST
+ 
+ 
+ 64 *
+ §ãm®loc
+ ();
+ 
+ 65 *
+ §ã»®loc
+ ();
+ 
+ 66 
+ §ãä“
+ ();
+ 
+ 67 #iâdeà
+ MSDOS
+ 
+ 
+ 68 
+ 	#New
+ (
+ x
+ ,
+ v
+ ,
+ n
+ ,
+ t
+ è(v = (t*)
+ 	`§ãm®loc
+ ((
+ MEM_SIZE
+ )(Òè* Ñ))))
+ 
+ 	)
+ 
+ 69 
+ 	#Newc
+ (
+ x
+ ,
+ v
+ ,
+ n
+ ,
+ t
+ ,
+ c
+ è(v = (c*)
+ 	`§ãm®loc
+ ((
+ MEM_SIZE
+ )(Òè* Ñ))))
+ 
+ 	)
+ 
+ 70 
+ 	#Newz
+ (
+ x
+ ,
+ v
+ ,
+ n
+ ,
+ t
+ è(v = (t*)
+ 	`§ãm®loc
+ ((
+ MEM_SIZE
+ )((n) * (t)))), \
+ 
+ 71 
+ 	`bz”o
+ ((*)(
+ v
+ ), (
+ n
+ è* (
+ t
+ ))
+ 
+ 	)
+ 
+ 72 
+ 	#R’ew
+ (
+ v
+ ,
+ n
+ ,
+ t
+ è(v = (t*)
+ 	`§ã»®loc
+ ((*)(v),(
+ MEM_SIZE
+ )(Ò)*Ñ))))
+ 
+ 	)
+ 
+ 73 
+ 	#R’ewc
+ (
+ v
+ ,
+ n
+ ,
+ t
+ ,
+ c
+ è(v = (c*)
+ 	`§ã»®loc
+ ((*)(v),(
+ MEM_SIZE
+ )(Ò)*Ñ))))
+ 
+ 	)
+ 
+ 75 
+ 	#New
+ (
+ x
+ ,
+ v
+ ,
+ n
+ ,
+ t
+ è(v = (t*)
+ 	`§ãm®loc
+ ((()Òè* Ñ))))
+ 
+ 	)
+ 
+ 76 
+ 	#Newc
+ (
+ x
+ ,
+ v
+ ,
+ n
+ ,
+ t
+ ,
+ c
+ è(v = (c*)
+ 	`§ãm®loc
+ ((()Òè* Ñ))))
+ 
+ 	)
+ 
+ 77 
+ 	#Newz
+ (
+ x
+ ,
+ v
+ ,
+ n
+ ,
+ t
+ è(v = (t*)
+ 	`§ãm®loc
+ ((()(n) * (t)))), \
+ 
+ 78 
+ 	`bz”o
+ ((*)(
+ v
+ ), (
+ n
+ è* (
+ t
+ ))
+ 
+ 	)
+ 
+ 79 
+ 	#R’ew
+ (
+ v
+ ,
+ n
+ ,
+ t
+ è(v = (t*)
+ 	`§ã»®loc
+ ((*)(v),(()Ò)*Ñ))))
+ 
+ 	)
+ 
+ 80 
+ 	#R’ewc
+ (
+ v
+ ,
+ n
+ ,
+ t
+ ,
+ c
+ è(v = (c*)
+ 	`§ã»®loc
+ ((*)(v),(()Ò)*Ñ))))
+ 
+ 	)
+ 
+ 83 #ifdeà
+ IGNOREFREE
+ 
+ 
+ 84 
+ 	#Saãä“
+ (
+ d
+ è{};
+ 
+ 	)
+ 
+ 86 
+ 	#Saãä“
+ (
+ d
+ è
+ 	`§ãä“
+ ((*)d)
+ 
+ 	)
+ 
+ 89 
+ 	#SŒ_Ãw
+ (
+ x
+ ,
+ Ën
+ è
+ 	`¡r_Ãw
+ ֒)
+ 
+ 	)
+ 
+ 91 *
+ §ãxm®loc
+ ();
+ 
+ 92 *
+ §ãx»®loc
+ ();
+ 
+ 93 
+ §ãxä“
+ ();
+ 
+ 94 
+ 	#New
+ (
+ x
+ ,
+ v
+ ,
+ n
+ ,
+ t
+ è(v = (t*)
+ 	`§ãxm®loc
+ (x,(
+ MEM_SIZE
+ )(Òè* Ñ))))
+ 
+ 	)
+ 
+ 95 
+ 	#Newc
+ (
+ x
+ ,
+ v
+ ,
+ n
+ ,
+ t
+ ,
+ c
+ è(v = (c*)
+ 	`§ãxm®loc
+ (x,(
+ MEM_SIZE
+ )(Òè* Ñ))))
+ 
+ 	)
+ 
+ 96 
+ 	#Newz
+ (
+ x
+ ,
+ v
+ ,
+ n
+ ,
+ t
+ è(v = (t*)
+ 	`§ãxm®loc
+ (x,(
+ MEM_SIZE
+ )((n) * (t)))), \
+ 
+ 97 
+ 	`bz”o
+ ((*)(
+ v
+ ), (
+ n
+ è* (
+ t
+ ))
+ 
+ 	)
+ 
+ 98 
+ 	#R’ew
+ (
+ v
+ ,
+ n
+ ,
+ t
+ è(v = (t*)
+ 	`§ãx»®loc
+ ((*)(v),(
+ MEM_SIZE
+ )(Ò)*Ñ))))
+ 
+ 	)
+ 
+ 99 
+ 	#R’ewc
+ (
+ v
+ ,
+ n
+ ,
+ t
+ ,
+ c
+ è(v = (c*)
+ 	`§ãx»®loc
+ ((*)(v),(
+ MEM_SIZE
+ )(Ò)*Ñ))))
+ 
+ 	)
+ 
+ 100 
+ 	#Saãä“
+ (
+ d
+ è
+ 	`§ãxä“
+ ((*)d)
+ 
+ 	)
+ 
+ 101 
+ 	#SŒ_Ãw
+ (
+ x
+ ,
+ Ën
+ è
+ 	`¡r_Ãw
+ (x,Ën)
+ 
+ 	)
+ 
+ 102 
+ 	#MAXXCOUNT
+  1200
+ 
+ 	)
+ 
+ 103 
+ 	gxcouÁ
+ [
+ MAXXCOUNT
+ ];
+ 
+ 104 
+ 	gÏ¡xcouÁ
+ [
+ MAXXCOUNT
+ ];
+ 
+ 106 
+ 	#CÝy
+ (
+ s
+ ,
+ d
+ ,
+ n
+ ,
+ t
+ è()
+ 	`bcÝy
+ ((*)(s),(*)(d), (nè* Ñ))
+ 
+ 	)
+ 
+ 107 
+ 	#Z”o
+ (
+ d
+ ,
+ n
+ ,
+ t
+ è()
+ 	`bz”o
+ ((*)(d), (nè* Ñ))
+ 
+ 	)
+ 
+ 109 
+ 	#New
+ (
+ x
+ ,
+ v
+ ,
+ n
+ ,
+ s
+ è(v = 
+ 	`NuÎ
+ ( *))
+ 
+ 	)
+ 
+ 110 
+ 	#Newc
+ (
+ x
+ ,
+ v
+ ,
+ n
+ ,
+ s
+ ,
+ c
+ è(v = 
+ 	`NuÎ
+ ( *))
+ 
+ 	)
+ 
+ 111 
+ 	#Newz
+ (
+ x
+ ,
+ v
+ ,
+ n
+ ,
+ s
+ è(v = 
+ 	`NuÎ
+ ( *))
+ 
+ 	)
+ 
+ 112 
+ 	#R’ew
+ (
+ v
+ ,
+ n
+ ,
+ s
+ è(v = 
+ 	`NuÎ
+ ( *))
+ 
+ 	)
+ 
+ 113 
+ 	#CÝy
+ (
+ s
+ ,
+ d
+ ,
+ n
+ ,
+ t
+ )
+ 
+ 	)
+ 
+ 114 
+ 	#Z”o
+ (
+ d
+ ,
+ n
+ ,
+ t
+ )
+ 
+ 	)
+ 
+ 115 
+ 	#Saãä“
+ (
+ d
+ èd = 
+ 	)
+ d
+ 
+ 	@hash.c
+ 
+ 14 
+ 	~"EXTERN.h
+ "
+ 
+ 15 
+ 	~"³¾.h
+ "
+ 
+ 17 
+ 	gcÛff
+ [] = {
+ 
+ 27 
+ hä“’Œ›s
+ ();
+ 
+ 29 
+ STR
+  *
+ 
+ 30 
+ 	$hãtch
+ (
+ tb
+ ,
+ key
+ ,
+ kËn
+ ,
+ lv®
+ )
+ 
+ 31 
+ HASH
+  *
+ tb
+ ;
+ 
+ 32 *
+ key
+ ;
+ 
+ 33 
+ kËn
+ ;
+ 
+ 34 
+ lv®
+ ;
+ 
+ 36 *
+ s
+ ;
+ 
+ 37 
+ i
+ ;
+ 
+ 38 
+ hash
+ ;
+ 
+ 39 
+ HENT
+  *
+ ’Œy
+ ;
+ 
+ 40 
+ maxi
+ ;
+ 
+ 41 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 42 #ifdeà
+ SOME_DBM
+ 
+ 
+ 43 
+ d©um
+  
+ dkey
+ ,
+ dcÚ‹Á
+ ;
+ 
+ 46 ià(!
+ tb
+ )
+ 
+ 47  &
+ ¡r_undef
+ ;
+ 
+ 48 ià(!
+ tb
+ ->
+ tbl_¬¿y
+ ) {
+ 
+ 49 ià(
+ lv®
+ )
+ 
+ 50 
+ 	`Newz
+ (503,
+ tb
+ ->
+ tbl_¬¿y
+ ,b->
+ tbl_max
+  + 1, 
+ HENT
+ *);
+ 
+ 52  &
+ ¡r_undef
+ ;
+ 
+ 62 ià(!
+ tb
+ ->
+ tbl_cÛffsize
+ )
+ 
+ 63 
+ hash
+  = *
+ key
+  + 128 * key[1] + 128 * key[
+ kËn
+ -1];
+ 
+ 65 ià(
+ kËn
+  < 
+ tb
+ ->
+ tbl_cÛffsize
+ )
+ 
+ 66 
+ maxi
+  = 
+ kËn
+ ;
+ 
+ 68 
+ maxi
+  = 
+ tb
+ ->
+ tbl_cÛffsize
+ ;
+ 
+ 69 
+ s
+ =
+ key
+ , 
+ i
+ =0, 
+ hash
+  = 0;
+ 
+ 70 
+ i
+  < 
+ maxi
+ ;
+ 
+ 71 
+ s
+ ++, 
+ i
+ ++, 
+ hash
+  *= 5) {
+ 
+ 72 
+ hash
+  +ð*
+ s
+  * 
+ cÛff
+ [
+ i
+ ];
+ 
+ 76 
+ ’Œy
+  = 
+ tb
+ ->
+ tbl_¬¿y
+ [
+ hash
+  &b->
+ tbl_max
+ ];
+ 
+ 77 ; 
+ ’Œy
+ ;ƒÁry =ƒÁry->
+ h’t_Ãxt
+ ) {
+ 
+ 78 ià(
+ ’Œy
+ ->
+ h’t_hash
+  !ð
+ hash
+ )
+ 
+ 80 ià(
+ ’Œy
+ ->
+ h’t_kËn
+  !ð
+ kËn
+ )
+ 
+ 82 ià(
+ 	`bcmp
+ (
+ ’Œy
+ ->
+ h’t_key
+ ,
+ key
+ ,
+ kËn
+ ))
+ 
+ 84  
+ ’Œy
+ ->
+ h’t_v®
+ ;
+ 
+ 86 #ifdeà
+ SOME_DBM
+ 
+ 
+ 87 ià(
+ tb
+ ->
+ tbl_dbm
+ ) {
+ 
+ 88 
+ dkey
+ .
+ d±r
+  = 
+ key
+ ;
+ 
+ 89 
+ dkey
+ .
+ dsize
+  = 
+ kËn
+ ;
+ 
+ 90 #ifdeà
+ HAS_GDBM
+ 
+ 
+ 91 
+ dcÚ‹Á
+  = 
+ 	`gdbm_ãtch
+ (
+ tb
+ ->
+ tbl_dbm
+ ,
+ dkey
+ );
+ 
+ 93 
+ dcÚ‹Á
+  = 
+ 	`dbm_ãtch
+ (
+ tb
+ ->
+ tbl_dbm
+ ,
+ dkey
+ );
+ 
+ 95 ià(
+ dcÚ‹Á
+ .
+ d±r
+ ) {
+ 
+ 96 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (60,
+ dcÚ‹Á
+ .
+ dsize
+ );
+ 
+ 97 
+ 	`¡r_n£t
+ (
+ ¡r
+ ,
+ dcÚ‹Á
+ .
+ d±r
+ ,dcÚ‹Á.
+ dsize
+ );
+ 
+ 98 
+ 	`h¡Üe
+ (
+ tb
+ ,
+ key
+ ,
+ kËn
+ ,
+ ¡r
+ ,
+ hash
+ );
+ 
+ 99  
+ ¡r
+ ;
+ 
+ 103 ià(
+ lv®
+ ) {
+ 
+ 104 
+ ¡r
+  = 
+ 	`SŒ_Ãw
+ (61,0);
+ 
+ 105 
+ 	`h¡Üe
+ (
+ tb
+ ,
+ key
+ ,
+ kËn
+ ,
+ ¡r
+ ,
+ hash
+ );
+ 
+ 106  
+ ¡r
+ ;
+ 
+ 108  &
+ ¡r_undef
+ ;
+ 
+ 109 
+ 	}
+ }
+ 
+ 111 
+ boÞ
+ 
+ 
+ 112 
+ 	$h¡Üe
+ (
+ tb
+ ,
+ key
+ ,
+ kËn
+ ,
+ v®
+ ,
+ hash
+ )
+ 
+ 113 
+ HASH
+  *
+ tb
+ ;
+ 
+ 114 *
+ key
+ ;
+ 
+ 115 
+ kËn
+ ;
+ 
+ 116 
+ STR
+  *
+ v®
+ ;
+ 
+ 117 
+ hash
+ ;
+ 
+ 119 *
+ s
+ ;
+ 
+ 120 
+ i
+ ;
+ 
+ 121 
+ HENT
+  *
+ ’Œy
+ ;
+ 
+ 122 
+ HENT
+  **
+ ÛÁry
+ ;
+ 
+ 123 
+ maxi
+ ;
+ 
+ 125 ià(!
+ tb
+ )
+ 
+ 126  
+ FALSE
+ ;
+ 
+ 128 ià(
+ hash
+ )
+ 
+ 130 ià(!
+ tb
+ ->
+ tbl_cÛffsize
+ )
+ 
+ 131 
+ hash
+  = *
+ key
+  + 128 * key[1] + 128 * key[
+ kËn
+ -1];
+ 
+ 133 ià(
+ kËn
+  < 
+ tb
+ ->
+ tbl_cÛffsize
+ )
+ 
+ 134 
+ maxi
+  = 
+ kËn
+ ;
+ 
+ 136 
+ maxi
+  = 
+ tb
+ ->
+ tbl_cÛffsize
+ ;
+ 
+ 137 
+ s
+ =
+ key
+ , 
+ i
+ =0, 
+ hash
+  = 0;
+ 
+ 138 
+ i
+  < 
+ maxi
+ ;
+ 
+ 139 
+ s
+ ++, 
+ i
+ ++, 
+ hash
+  *= 5) {
+ 
+ 140 
+ hash
+  +ð*
+ s
+  * 
+ cÛff
+ [
+ i
+ ];
+ 
+ 144 ià(!
+ tb
+ ->
+ tbl_¬¿y
+ )
+ 
+ 145 
+ 	`Newz
+ (505,
+ tb
+ ->
+ tbl_¬¿y
+ ,b->
+ tbl_max
+  + 1, 
+ HENT
+ *);
+ 
+ 147 
+ ÛÁry
+  = &(
+ tb
+ ->
+ tbl_¬¿y
+ [
+ hash
+  &b->
+ tbl_max
+ ]);
+ 
+ 148 
+ i
+  = 1;
+ 
+ 150 
+ ’Œy
+  = *
+ ÛÁry
+ ;ƒÁry; 
+ i
+ =0,ƒÁry =ƒÁry->
+ h’t_Ãxt
+ ) {
+ 
+ 151 ià(
+ ’Œy
+ ->
+ h’t_hash
+  !ð
+ hash
+ )
+ 
+ 153 ià(
+ ’Œy
+ ->
+ h’t_kËn
+  !ð
+ kËn
+ )
+ 
+ 155 ià(
+ 	`bcmp
+ (
+ ’Œy
+ ->
+ h’t_key
+ ,
+ key
+ ,
+ kËn
+ ))
+ 
+ 157 
+ 	`Saãä“
+ (
+ ’Œy
+ ->
+ h’t_v®
+ );
+ 
+ 158 
+ ’Œy
+ ->
+ h’t_v®
+  = 
+ v®
+ ;
+ 
+ 159  
+ TRUE
+ ;
+ 
+ 161 
+ 	`New
+ (501,
+ ’Œy
+ , 1, 
+ HENT
+ );
+ 
+ 163 
+ ’Œy
+ ->
+ h’t_kËn
+  = 
+ kËn
+ ;
+ 
+ 164 
+ ’Œy
+ ->
+ h’t_key
+  = 
+ 	`n§ve¡r
+ (
+ key
+ ,
+ kËn
+ );
+ 
+ 165 
+ ’Œy
+ ->
+ h’t_v®
+  = 
+ v®
+ ;
+ 
+ 166 
+ ’Œy
+ ->
+ h’t_hash
+  = 
+ hash
+ ;
+ 
+ 167 
+ ’Œy
+ ->
+ h’t_Ãxt
+  = *
+ ÛÁry
+ ;
+ 
+ 168 *
+ ÛÁry
+  = 
+ ’Œy
+ ;
+ 
+ 172 ià(
+ i
+ ) {
+ 
+ 173 
+ tb
+ ->
+ tbl_fžl
+ ++;
+ 
+ 174 #ifdeà
+ SOME_DBM
+ 
+ 
+ 175 ià(
+ tb
+ ->
+ tbl_dbm
+  &&b->
+ tbl_max
+  >ð
+ DBM_CACHE_MAX
+ )
+ 
+ 176  
+ FALSE
+ ;
+ 
+ 178 ià(
+ tb
+ ->
+ tbl_fžl
+  >b->
+ tbl_do¥l™
+ )
+ 
+ 179 
+ 	`h¥l™
+ (
+ tb
+ );
+ 
+ 181 #ifdeà
+ SOME_DBM
+ 
+ 
+ 182 ià(
+ tb
+ ->
+ tbl_dbm
+ ) {
+ 
+ 183 
+ 	`h’td–ayä“
+ ();
+ 
+ 185 
+ ’Œy
+  = 
+ tb
+ ->
+ tbl_¬¿y
+ [
+ hash
+  &b->
+ tbl_max
+ ];
+ 
+ 186 
+ ÛÁry
+  = &
+ ’Œy
+ ->
+ h’t_Ãxt
+ ;
+ 
+ 187 
+ ’Œy
+  = *
+ ÛÁry
+ ;
+ 
+ 188 
+ ’Œy
+ ) {
+ 
+ 189 *
+ ÛÁry
+  = 
+ ’Œy
+ ->
+ h’t_Ãxt
+ ;
+ 
+ 190 
+ 	`h’td–ayä“
+ (
+ ’Œy
+ );
+ 
+ 191 
+ ’Œy
+  = *
+ ÛÁry
+ ;
+ 
+ 196  
+ FALSE
+ ;
+ 
+ 197 
+ 	}
+ }
+ 
+ 199 
+ STR
+  *
+ 
+ 200 
+ 	$hd–‘e
+ (
+ tb
+ ,
+ key
+ ,
+ kËn
+ )
+ 
+ 201 
+ HASH
+  *
+ tb
+ ;
+ 
+ 202 *
+ key
+ ;
+ 
+ 203 
+ kËn
+ ;
+ 
+ 205 *
+ s
+ ;
+ 
+ 206 
+ i
+ ;
+ 
+ 207 
+ hash
+ ;
+ 
+ 208 
+ HENT
+  *
+ ’Œy
+ ;
+ 
+ 209 
+ HENT
+  **
+ ÛÁry
+ ;
+ 
+ 210 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 211 
+ maxi
+ ;
+ 
+ 212 #ifdeà
+ SOME_DBM
+ 
+ 
+ 213 
+ d©um
+  
+ dkey
+ ;
+ 
+ 216 ià(!
+ tb
+  || !tb->
+ tbl_¬¿y
+ )
+ 
+ 217  
+ NuΡr
+ ;
+ 
+ 218 ià(!
+ tb
+ ->
+ tbl_cÛffsize
+ )
+ 
+ 219 
+ hash
+  = *
+ key
+  + 128 * key[1] + 128 * key[
+ kËn
+ -1];
+ 
+ 221 ià(
+ kËn
+  < 
+ tb
+ ->
+ tbl_cÛffsize
+ )
+ 
+ 222 
+ maxi
+  = 
+ kËn
+ ;
+ 
+ 224 
+ maxi
+  = 
+ tb
+ ->
+ tbl_cÛffsize
+ ;
+ 
+ 225 
+ s
+ =
+ key
+ , 
+ i
+ =0, 
+ hash
+  = 0;
+ 
+ 226 
+ i
+  < 
+ maxi
+ ;
+ 
+ 227 
+ s
+ ++, 
+ i
+ ++, 
+ hash
+  *= 5) {
+ 
+ 228 
+ hash
+  +ð*
+ s
+  * 
+ cÛff
+ [
+ i
+ ];
+ 
+ 232 
+ ÛÁry
+  = &(
+ tb
+ ->
+ tbl_¬¿y
+ [
+ hash
+  &b->
+ tbl_max
+ ]);
+ 
+ 233 
+ ’Œy
+  = *
+ ÛÁry
+ ;
+ 
+ 234 
+ i
+  = 1;
+ 
+ 235 ; 
+ ’Œy
+ ; 
+ i
+ =0, 
+ ÛÁry
+  = &’Œy->
+ h’t_Ãxt
+ ,ƒntry = *oentry) {
+ 
+ 236 ià(
+ ’Œy
+ ->
+ h’t_hash
+  !ð
+ hash
+ )
+ 
+ 238 ià(
+ ’Œy
+ ->
+ h’t_kËn
+  !ð
+ kËn
+ )
+ 
+ 240 ià(
+ 	`bcmp
+ (
+ ’Œy
+ ->
+ h’t_key
+ ,
+ key
+ ,
+ kËn
+ ))
+ 
+ 242 *
+ ÛÁry
+  = 
+ ’Œy
+ ->
+ h’t_Ãxt
+ ;
+ 
+ 243 
+ ¡r
+  = 
+ 	`¡r_m܏l
+ (
+ ’Œy
+ ->
+ h’t_v®
+ );
+ 
+ 244 
+ 	`h’tä“
+ (
+ ’Œy
+ );
+ 
+ 245 ià(
+ i
+ )
+ 
+ 246 
+ tb
+ ->
+ tbl_fžl
+ --;
+ 
+ 247 #ifdeà
+ SOME_DBM
+ 
+ 
+ 248 
+ do_dbm_d–‘e
+ :
+ 
+ 249 ià(
+ tb
+ ->
+ tbl_dbm
+ ) {
+ 
+ 250 
+ dkey
+ .
+ d±r
+  = 
+ key
+ ;
+ 
+ 251 
+ dkey
+ .
+ dsize
+  = 
+ kËn
+ ;
+ 
+ 252 #ifdeà
+ HAS_GDBM
+ 
+ 
+ 253 
+ 	`gdbm_d–‘e
+ (
+ tb
+ ->
+ tbl_dbm
+ ,
+ dkey
+ );
+ 
+ 255 
+ 	`dbm_d–‘e
+ (
+ tb
+ ->
+ tbl_dbm
+ ,
+ dkey
+ );
+ 
+ 259  
+ ¡r
+ ;
+ 
+ 261 #ifdeà
+ SOME_DBM
+ 
+ 
+ 262 
+ ¡r
+  = 
+ NuΡr
+ ;
+ 
+ 263 
+ do_dbm_d–‘e
+ ;
+ 
+ 265  
+ NuΡr
+ ;
+ 
+ 267 
+ 	}
+ }
+ 
+ 269 
+ 	$h¥l™
+ (
+ tb
+ )
+ 
+ 270 
+ HASH
+  *
+ tb
+ ;
+ 
+ 272 
+ Þdsize
+  = 
+ tb
+ ->
+ tbl_max
+  + 1;
+ 
+ 273 
+ Ãwsize
+  = 
+ Þdsize
+  * 2;
+ 
+ 274 
+ i
+ ;
+ 
+ 275 
+ HENT
+  **
+ a
+ ;
+ 
+ 276 
+ HENT
+  **
+ b
+ ;
+ 
+ 277 
+ HENT
+  *
+ ’Œy
+ ;
+ 
+ 278 
+ HENT
+  **
+ ÛÁry
+ ;
+ 
+ 280 
+ a
+  = 
+ tb
+ ->
+ tbl_¬¿y
+ ;
+ 
+ 281 
+ 	`R’ew
+ (
+ a
+ , 
+ Ãwsize
+ , 
+ HENT
+ *);
+ 
+ 282 
+ 	`Z”o
+ (&
+ a
+ [
+ Þdsize
+ ], oldsize, 
+ HENT
+ *);
+ 
+ 283 
+ tb
+ ->
+ tbl_max
+  = --
+ Ãwsize
+ ;
+ 
+ 284 
+ tb
+ ->
+ tbl_do¥l™
+  =b->
+ tbl_max
+  * 
+ FILLPCT
+  / 100;
+ 
+ 285 
+ tb
+ ->
+ tbl_¬¿y
+  = 
+ a
+ ;
+ 
+ 287 
+ i
+ =0; i<
+ Þdsize
+ ; i++,
+ a
+ ++) {
+ 
+ 288 ià(!*
+ a
+ )
+ 
+ 290 
+ b
+  = 
+ a
+ +
+ Þdsize
+ ;
+ 
+ 291 
+ ÛÁry
+  = 
+ a
+ , 
+ ’Œy
+  = *a;ƒntry;ƒntry = *oentry) {
+ 
+ 292 ià((
+ ’Œy
+ ->
+ h’t_hash
+  & 
+ Ãwsize
+ è!ð
+ i
+ ) {
+ 
+ 293 *
+ ÛÁry
+  = 
+ ’Œy
+ ->
+ h’t_Ãxt
+ ;
+ 
+ 294 
+ ’Œy
+ ->
+ h’t_Ãxt
+  = *
+ b
+ ;
+ 
+ 295 ià(!*
+ b
+ )
+ 
+ 296 
+ tb
+ ->
+ tbl_fžl
+ ++;
+ 
+ 297 *
+ b
+  = 
+ ’Œy
+ ;
+ 
+ 301 
+ ÛÁry
+  = &
+ ’Œy
+ ->
+ h’t_Ãxt
+ ;
+ 
+ 303 ià(!*
+ a
+ )
+ 
+ 304 
+ tb
+ ->
+ tbl_fžl
+ --;
+ 
+ 306 
+ 	}
+ }
+ 
+ 308 
+ HASH
+  *
+ 
+ 309 
+ 	$hÃw
+ (
+ look©
+ )
+ 
+ 310 
+ look©
+ ;
+ 
+ 312 
+ HASH
+  *
+ tb
+ ;
+ 
+ 314 
+ 	`Newz
+ (502,
+ tb
+ , 1, 
+ HASH
+ );
+ 
+ 315 ià(
+ look©
+ ) {
+ 
+ 316 
+ tb
+ ->
+ tbl_cÛffsize
+  = 
+ look©
+ ;
+ 
+ 317 
+ tb
+ ->
+ tbl_max
+  = 7;
+ 
+ 318 
+ tb
+ ->
+ tbl_do¥l™
+  =b->
+ tbl_max
+  * 
+ FILLPCT
+  / 100;
+ 
+ 321 
+ tb
+ ->
+ tbl_max
+  = 127;
+ 
+ 322 
+ tb
+ ->
+ tbl_do¥l™
+  = 128;
+ 
+ 324 
+ tb
+ ->
+ tbl_fžl
+  = 0;
+ 
+ 325 #ifdeà
+ SOME_DBM
+ 
+ 
+ 326 
+ tb
+ ->
+ tbl_dbm
+  = 0;
+ 
+ 328 ()
+ 	`h™”š™
+ (
+ tb
+ );
+ 
+ 329  
+ tb
+ ;
+ 
+ 330 
+ 	}
+ }
+ 
+ 333 
+ 	$h’tä“
+ (
+ h’t
+ )
+ 
+ 334 
+ HENT
+  *
+ h’t
+ ;
+ 
+ 336 ià(!
+ h’t
+ )
+ 
+ 338 
+ 	`¡r_ä“
+ (
+ h’t
+ ->
+ h’t_v®
+ );
+ 
+ 339 
+ 	`Saãä“
+ (
+ h’t
+ ->
+ h’t_key
+ );
+ 
+ 340 
+ 	`Saãä“
+ (
+ h’t
+ );
+ 
+ 341 
+ 	}
+ }
+ 
+ 344 
+ 	$h’td–ayä“
+ (
+ h’t
+ )
+ 
+ 345 
+ HENT
+  *
+ h’t
+ ;
+ 
+ 347 ià(!
+ h’t
+ )
+ 
+ 349 
+ 	`¡r_2m܏l
+ (
+ h’t
+ ->
+ h’t_v®
+ );
+ 
+ 350 
+ 	`Saãä“
+ (
+ h’t
+ ->
+ h’t_key
+ );
+ 
+ 351 
+ 	`Saãä“
+ (
+ h’t
+ );
+ 
+ 352 
+ 	}
+ }
+ 
+ 355 
+ 	$hþ—r
+ (
+ tb
+ ,
+ dodbm
+ )
+ 
+ 356 
+ HASH
+  *
+ tb
+ ;
+ 
+ 357 
+ dodbm
+ ;
+ 
+ 359 ià(!
+ tb
+ )
+ 
+ 361 
+ 	`hä“’Œ›s
+ (
+ tb
+ ,
+ dodbm
+ );
+ 
+ 362 
+ tb
+ ->
+ tbl_fžl
+  = 0;
+ 
+ 363 #iâdeà
+ lšt
+ 
+ 
+ 364 ià(
+ tb
+ ->
+ tbl_¬¿y
+ )
+ 
+ 365 ()
+ 	`bz”o
+ ((*)
+ tb
+ ->
+ tbl_¬¿y
+ , (tb->
+ tbl_max
+  + 1è* (
+ HENT
+ *));
+ 
+ 367 
+ 	}
+ }
+ 
+ 370 
+ 	$hä“’Œ›s
+ (
+ tb
+ ,
+ dodbm
+ )
+ 
+ 371 
+ HASH
+  *
+ tb
+ ;
+ 
+ 372 
+ dodbm
+ ;
+ 
+ 374 
+ HENT
+  *
+ h’t
+ ;
+ 
+ 375 
+ HENT
+  *
+ oh’t
+  = 
+ 	`NuÎ
+ (HENT*);
+ 
+ 376 #ifdeà
+ SOME_DBM
+ 
+ 
+ 377 
+ d©um
+  
+ dkey
+ ;
+ 
+ 378 
+ d©um
+  
+ Ãxtdkey
+ ;
+ 
+ 379 #ifdeà
+ HAS_GDBM
+ 
+ 
+ 380 
+ GDBM_FILE
+  
+ Þd_dbm
+ ;
+ 
+ 382 #ifdeà
+ HAS_NDBM
+ 
+ 
+ 383 
+ DBM
+  *
+ Þd_dbm
+ ;
+ 
+ 385 
+ Þd_dbm
+ ;
+ 
+ 390 ià(!
+ tb
+  || !tb->
+ tbl_¬¿y
+ )
+ 
+ 392 #ifdeà
+ SOME_DBM
+ 
+ 
+ 393 ià((
+ Þd_dbm
+  = 
+ tb
+ ->
+ tbl_dbm
+ è&& 
+ dodbm
+ ) {
+ 
+ 394 #ifdeà
+ HAS_GDBM
+ 
+ 
+ 395 
+ dkey
+  = 
+ 	`gdbm_fœ¡key
+ (
+ tb
+ ->
+ tbl_dbm
+ ), dkey.
+ d±r
+ ) {
+ 
+ 397 
+ dkey
+  = 
+ 	`dbm_fœ¡key
+ (
+ tb
+ ->
+ tbl_dbm
+ ), dkey.
+ d±r
+ ) {
+ 
+ 400 #ifdeà
+ HAS_GDBM
+ 
+ 
+ 401 
+ Ãxtdkey
+  = 
+ 	`gdbm_Ãxtkey
+ (
+ tb
+ ->
+ tbl_dbm
+ , 
+ dkey
+ );
+ 
+ 403 #ifdeà
+ HAS_NDBM
+ 
+ 
+ 404 #ifdeà
+ _CX_UX
+ 
+ 
+ 405 
+ Ãxtdkey
+  = 
+ 	`dbm_Ãxtkey
+ (
+ tb
+ ->
+ tbl_dbm
+ , 
+ dkey
+ );
+ 
+ 407 
+ Ãxtdkey
+  = 
+ 	`dbm_Ãxtkey
+ (
+ tb
+ ->
+ tbl_dbm
+ );
+ 
+ 410 
+ Ãxtdkey
+  = 
+ 	`Ãxtkey
+ (
+ dkey
+ );
+ 
+ 413 #ifdeà
+ HAS_GDBM
+ 
+ 
+ 414 
+ 	`gdbm_d–‘e
+ (
+ tb
+ ->
+ tbl_dbm
+ ,
+ dkey
+ );
+ 
+ 416 
+ 	`dbm_d–‘e
+ (
+ tb
+ ->
+ tbl_dbm
+ ,
+ dkey
+ );
+ 
+ 418 
+ dkey
+  = 
+ Ãxtdkey
+ ;
+ 
+ 419 } 
+ dkey
+ .
+ d±r
+ );
+ 
+ 422 
+ tb
+ ->
+ tbl_dbm
+  = 0;
+ 
+ 424 ()
+ 	`h™”š™
+ (
+ tb
+ );
+ 
+ 425 
+ h’t
+  = 
+ 	`h™”Ãxt
+ (
+ tb
+ )) {
+ 
+ 426 
+ 	`h’tä“
+ (
+ oh’t
+ );
+ 
+ 427 
+ oh’t
+  = 
+ h’t
+ ;
+ 
+ 429 
+ 	`h’tä“
+ (
+ oh’t
+ );
+ 
+ 430 #ifdeà
+ SOME_DBM
+ 
+ 
+ 431 
+ tb
+ ->
+ tbl_dbm
+  = 
+ Þd_dbm
+ ;
+ 
+ 433 
+ 	}
+ }
+ 
+ 436 
+ 	$hä“
+ (
+ tb
+ ,
+ dodbm
+ )
+ 
+ 437 
+ HASH
+  *
+ tb
+ ;
+ 
+ 438 
+ dodbm
+ ;
+ 
+ 440 ià(!
+ tb
+ )
+ 
+ 442 
+ 	`hä“’Œ›s
+ (
+ tb
+ ,
+ dodbm
+ );
+ 
+ 443 
+ 	`Saãä“
+ (
+ tb
+ ->
+ tbl_¬¿y
+ );
+ 
+ 444 
+ 	`Saãä“
+ (
+ tb
+ );
+ 
+ 445 
+ 	}
+ }
+ 
+ 448 
+ 	$h™”š™
+ (
+ tb
+ )
+ 
+ 449 
+ HASH
+  *
+ tb
+ ;
+ 
+ 451 
+ tb
+ ->
+ tbl_r™”
+  = -1;
+ 
+ 452 
+ tb
+ ->
+ tbl_e™”
+  = 
+ 	`NuÎ
+ (
+ HENT
+ *);
+ 
+ 453  
+ tb
+ ->
+ tbl_fžl
+ ;
+ 
+ 454 
+ 	}
+ }
+ 
+ 456 
+ HENT
+  *
+ 
+ 457 
+ 	$h™”Ãxt
+ (
+ tb
+ )
+ 
+ 458 
+ HASH
+  *
+ tb
+ ;
+ 
+ 460 
+ HENT
+  *
+ ’Œy
+ ;
+ 
+ 461 #ifdeà
+ SOME_DBM
+ 
+ 
+ 462 
+ d©um
+  
+ key
+ ;
+ 
+ 465 
+ ’Œy
+  = 
+ tb
+ ->
+ tbl_e™”
+ ;
+ 
+ 466 #ifdeà
+ SOME_DBM
+ 
+ 
+ 467 ià(
+ tb
+ ->
+ tbl_dbm
+ ) {
+ 
+ 468 ià(
+ ’Œy
+ ) {
+ 
+ 469 #ifdeà
+ HAS_GDBM
+ 
+ 
+ 470 
+ key
+ .
+ d±r
+  = 
+ ’Œy
+ ->
+ h’t_key
+ ;
+ 
+ 471 
+ key
+ .
+ dsize
+  = 
+ ’Œy
+ ->
+ h’t_kËn
+ ;
+ 
+ 472 
+ key
+  = 
+ 	`gdbm_Ãxtkey
+ (
+ tb
+ ->
+ tbl_dbm
+ , key);
+ 
+ 474 #ifdeà
+ HAS_NDBM
+ 
+ 
+ 475 #ifdeà
+ _CX_UX
+ 
+ 
+ 476 
+ key
+ .
+ d±r
+  = 
+ ’Œy
+ ->
+ h’t_key
+ ;
+ 
+ 477 
+ key
+ .
+ dsize
+  = 
+ ’Œy
+ ->
+ h’t_kËn
+ ;
+ 
+ 478 
+ key
+  = 
+ 	`dbm_Ãxtkey
+ (
+ tb
+ ->
+ tbl_dbm
+ , key);
+ 
+ 480 
+ key
+  = 
+ 	`dbm_Ãxtkey
+ (
+ tb
+ ->
+ tbl_dbm
+ );
+ 
+ 483 
+ key
+ .
+ d±r
+  = 
+ ’Œy
+ ->
+ h’t_key
+ ;
+ 
+ 484 
+ key
+ .
+ dsize
+  = 
+ ’Œy
+ ->
+ h’t_kËn
+ ;
+ 
+ 485 
+ key
+  = 
+ 	`Ãxtkey
+ (key);
+ 
+ 490 
+ 	`Newz
+ (504,
+ ’Œy
+ , 1, 
+ HENT
+ );
+ 
+ 491 
+ tb
+ ->
+ tbl_e™”
+  = 
+ ’Œy
+ ;
+ 
+ 492 #ifdeà
+ HAS_GDBM
+ 
+ 
+ 493 
+ key
+  = 
+ 	`gdbm_fœ¡key
+ (
+ tb
+ ->
+ tbl_dbm
+ );
+ 
+ 495 
+ key
+  = 
+ 	`dbm_fœ¡key
+ (
+ tb
+ ->
+ tbl_dbm
+ );
+ 
+ 498 
+ ’Œy
+ ->
+ h’t_key
+  = 
+ key
+ .
+ d±r
+ ;
+ 
+ 499 
+ ’Œy
+ ->
+ h’t_kËn
+  = 
+ key
+ .
+ dsize
+ ;
+ 
+ 500 ià(!
+ key
+ .
+ d±r
+ ) {
+ 
+ 501 ià(
+ ’Œy
+ ->
+ h’t_v®
+ )
+ 
+ 502 
+ 	`¡r_ä“
+ (
+ ’Œy
+ ->
+ h’t_v®
+ );
+ 
+ 503 
+ 	`Saãä“
+ (
+ ’Œy
+ );
+ 
+ 504 
+ tb
+ ->
+ tbl_e™”
+  = 
+ 	`NuÎ
+ (
+ HENT
+ *);
+ 
+ 505  
+ 	`NuÎ
+ (
+ HENT
+ *);
+ 
+ 507  
+ ’Œy
+ ;
+ 
+ 510 ià(!
+ tb
+ ->
+ tbl_¬¿y
+ )
+ 
+ 511 
+ 	`Newz
+ (506,
+ tb
+ ->
+ tbl_¬¿y
+ ,b->
+ tbl_max
+  + 1, 
+ HENT
+ *);
+ 
+ 513 ià(
+ ’Œy
+ )
+ 
+ 514 
+ ’Œy
+  =ƒÁry->
+ h’t_Ãxt
+ ;
+ 
+ 515 ià(!
+ ’Œy
+ ) {
+ 
+ 516 
+ tb
+ ->
+ tbl_r™”
+ ++;
+ 
+ 517 ià(
+ tb
+ ->
+ tbl_r™”
+  >b->
+ tbl_max
+ ) {
+ 
+ 518 
+ tb
+ ->
+ tbl_r™”
+  = -1;
+ 
+ 521 
+ ’Œy
+  = 
+ tb
+ ->
+ tbl_¬¿y
+ [tb->
+ tbl_r™”
+ ];
+ 
+ 523 } !
+ ’Œy
+ );
+ 
+ 525 
+ tb
+ ->
+ tbl_e™”
+  = 
+ ’Œy
+ ;
+ 
+ 526  
+ ’Œy
+ ;
+ 
+ 527 
+ 	}
+ }
+ 
+ 530 
+ 	$h™”key
+ (
+ ’Œy
+ ,
+ »Ž’
+ )
+ 
+ 531 
+ HENT
+  *
+ ’Œy
+ ;
+ 
+ 532 *
+ »Ž’
+ ;
+ 
+ 534 *
+ »Ž’
+  = 
+ ’Œy
+ ->
+ h’t_kËn
+ ;
+ 
+ 535  
+ ’Œy
+ ->
+ h’t_key
+ ;
+ 
+ 536 
+ 	}
+ }
+ 
+ 538 
+ STR
+  *
+ 
+ 539 
+ 	$h™”v®
+ (
+ tb
+ ,
+ ’Œy
+ )
+ 
+ 540 
+ HASH
+  *
+ tb
+ ;
+ 
+ 541 
+ HENT
+  *
+ ’Œy
+ ;
+ 
+ 543 #ifdeà
+ SOME_DBM
+ 
+ 
+ 544 
+ d©um
+  
+ key
+ , 
+ cÚ‹Á
+ ;
+ 
+ 546 ià(
+ tb
+ ->
+ tbl_dbm
+ ) {
+ 
+ 547 
+ key
+ .
+ d±r
+  = 
+ ’Œy
+ ->
+ h’t_key
+ ;
+ 
+ 548 
+ key
+ .
+ dsize
+  = 
+ ’Œy
+ ->
+ h’t_kËn
+ ;
+ 
+ 549 #ifdeà
+ HAS_GDBM
+ 
+ 
+ 550 
+ cÚ‹Á
+  = 
+ 	`gdbm_ãtch
+ (
+ tb
+ ->
+ tbl_dbm
+ ,
+ key
+ );
+ 
+ 552 
+ cÚ‹Á
+  = 
+ 	`dbm_ãtch
+ (
+ tb
+ ->
+ tbl_dbm
+ ,
+ key
+ );
+ 
+ 554 ià(!
+ ’Œy
+ ->
+ h’t_v®
+ )
+ 
+ 555 
+ ’Œy
+ ->
+ h’t_v®
+  = 
+ 	`SŒ_Ãw
+ (62,0);
+ 
+ 556 
+ 	`¡r_n£t
+ (
+ ’Œy
+ ->
+ h’t_v®
+ ,
+ cÚ‹Á
+ .
+ d±r
+ ,cÚ‹Á.
+ dsize
+ );
+ 
+ 559  
+ ’Œy
+ ->
+ h’t_v®
+ ;
+ 
+ 560 
+ 	}
+ }
+ 
+ 562 #ifdeà
+ SOME_DBM
+ 
+ 
+ 564 #iâdeà
+ O_CREAT
+ 
+ 
+ 565 #ifdeà
+ I_FCNTL
+ 
+ 
+ 566 
+ 	~<fúŽ.h
+ >
+ 
+ 568 #ifdeà
+ I_SYS_FILE
+ 
+ 
+ 569 
+ 	~<sys/fže.h
+ >
+ 
+ 573 #iâdeà
+ O_RDONLY
+ 
+ 
+ 574 
+ 	#O_RDONLY
+  0
+ 
+ 	)
+ 
+ 576 #iâdeà
+ O_RDWR
+ 
+ 
+ 577 
+ 	#O_RDWR
+  2
+ 
+ 	)
+ 
+ 579 #iâdeà
+ O_CREAT
+ 
+ 
+ 580 
+ 	#O_CREAT
+  01000
+ 
+ 	)
+ 
+ 583 #ifdeà
+ HAS_ODBM
+ 
+ 
+ 584 
+ 	gdbm»fút
+  = 0;
+ 
+ 587 
+ boÞ
+ 
+ 
+ 588 
+ 	$hdbmݒ
+ (
+ tb
+ ,
+ âame
+ ,
+ mode
+ )
+ 
+ 589 
+ HASH
+  *
+ tb
+ ;
+ 
+ 590 *
+ âame
+ ;
+ 
+ 591 
+ mode
+ ;
+ 
+ 593 ià(!
+ tb
+ )
+ 
+ 594  
+ FALSE
+ ;
+ 
+ 595 #ifdeà
+ HAS_ODBM
+ 
+ 
+ 596 ià(
+ tb
+ ->
+ tbl_dbm
+ )
+ 
+ 597  
+ TRUE
+ ;
+ 
+ 599 ià(
+ tb
+ ->
+ tbl_dbm
+ ) {
+ 
+ 600 
+ 	`hdbmþo£
+ (
+ tb
+ );
+ 
+ 601 
+ tb
+ ->
+ tbl_dbm
+  = 0;
+ 
+ 603 
+ 	`hþ—r
+ (
+ tb
+ , 
+ FALSE
+ );
+ 
+ 604 #ifdeà
+ HAS_GDBM
+ 
+ 
+ 605 ià(
+ mode
+  >= 0)
+ 
+ 606 
+ tb
+ ->
+ tbl_dbm
+  = 
+ 	`gdbm_ݒ
+ (
+ âame
+ , 0, 
+ GDBM_WRCREAT
+ ,
+ mode
+ , (*è
+ NULL
+ );
+ 
+ 607 ià(!
+ tb
+ ->
+ tbl_dbm
+ )
+ 
+ 608 
+ tb
+ ->
+ tbl_dbm
+  = 
+ 	`gdbm_ݒ
+ (
+ âame
+ , 0, 
+ GDBM_WRITER
+ , 
+ mode
+ , (*è
+ NULL
+ );
+ 
+ 609 ià(!
+ tb
+ ->
+ tbl_dbm
+ )
+ 
+ 610 
+ tb
+ ->
+ tbl_dbm
+  = 
+ 	`gdbm_ݒ
+ (
+ âame
+ , 0, 
+ GDBM_READER
+ , 
+ mode
+ , (*è
+ NULL
+ );
+ 
+ 612 #ifdeà
+ HAS_NDBM
+ 
+ 
+ 613 ià(
+ mode
+  >= 0)
+ 
+ 614 
+ tb
+ ->
+ tbl_dbm
+  = 
+ 	`dbm_ݒ
+ (
+ âame
+ , 
+ O_RDWR
+ |
+ O_CREAT
+ , 
+ mode
+ );
+ 
+ 615 ià(!
+ tb
+ ->
+ tbl_dbm
+ )
+ 
+ 616 
+ tb
+ ->
+ tbl_dbm
+  = 
+ 	`dbm_ݒ
+ (
+ âame
+ , 
+ O_RDWR
+ , 
+ mode
+ );
+ 
+ 617 ià(!
+ tb
+ ->
+ tbl_dbm
+ )
+ 
+ 618 
+ tb
+ ->
+ tbl_dbm
+  = 
+ 	`dbm_ݒ
+ (
+ âame
+ , 
+ O_RDONLY
+ , 
+ mode
+ );
+ 
+ 620 ià(
+ dbm»fút
+ ++)
+ 
+ 621 
+ 	`çl
+ ("Old dbm can only open one database");
+ 
+ 622 
+ 	`¥rštf
+ (
+ buf
+ ,"%s.dœ",
+ âame
+ );
+ 
+ 623 ià(
+ 	`¡©
+ (
+ buf
+ , &
+ ¡©buf
+ ) < 0) {
+ 
+ 624 ià(
+ mode
+  < 0 || 
+ 	`þo£
+ (
+ 	`ü—t
+ (
+ buf
+ ,mode)) < 0)
+ 
+ 625  
+ FALSE
+ ;
+ 
+ 626 
+ 	`¥rštf
+ (
+ buf
+ ,"%s.·g",
+ âame
+ );
+ 
+ 627 ià(
+ 	`þo£
+ (
+ 	`ü—t
+ (
+ buf
+ ,
+ mode
+ )) < 0)
+ 
+ 628  
+ FALSE
+ ;
+ 
+ 630 
+ tb
+ ->
+ tbl_dbm
+  = 
+ 	`dbmš™
+ (
+ âame
+ ) >= 0;
+ 
+ 633 ià(!
+ tb
+ ->
+ tbl_¬¿y
+  &&b->
+ tbl_dbm
+  != 0)
+ 
+ 634 
+ 	`Newz
+ (507,
+ tb
+ ->
+ tbl_¬¿y
+ ,b->
+ tbl_max
+  + 1, 
+ HENT
+ *);
+ 
+ 635  
+ tb
+ ->
+ tbl_dbm
+  != 0;
+ 
+ 636 
+ 	}
+ }
+ 
+ 639 
+ 	$hdbmþo£
+ (
+ tb
+ )
+ 
+ 640 
+ HASH
+  *
+ tb
+ ;
+ 
+ 642 ià(
+ tb
+  &&b->
+ tbl_dbm
+ ) {
+ 
+ 643 #ifdeà
+ HAS_GDBM
+ 
+ 
+ 644 
+ 	`gdbm_þo£
+ (
+ tb
+ ->
+ tbl_dbm
+ );
+ 
+ 645 
+ tb
+ ->
+ tbl_dbm
+  = 0;
+ 
+ 647 #ifdeà
+ HAS_NDBM
+ 
+ 
+ 648 
+ 	`dbm_þo£
+ (
+ tb
+ ->
+ tbl_dbm
+ );
+ 
+ 649 
+ tb
+ ->
+ tbl_dbm
+  = 0;
+ 
+ 655 ià(
+ dow¬n
+ )
+ 
+ 656 
+ 	`w¬n
+ ("Close on unopened dbm file");
+ 
+ 657 
+ 	}
+ }
+ 
+ 659 
+ boÞ
+ 
+ 
+ 660 
+ 	$hdbm¡Üe
+ (
+ tb
+ ,
+ key
+ ,
+ kËn
+ ,
+ ¡r
+ )
+ 
+ 661 
+ HASH
+  *
+ tb
+ ;
+ 
+ 662 *
+ key
+ ;
+ 
+ 663 
+ kËn
+ ;
+ 
+ 664 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 666 
+ d©um
+  
+ dkey
+ , 
+ dcÚ‹Á
+ ;
+ 
+ 667 
+ ”rÜ
+ ;
+ 
+ 669 ià(!
+ tb
+  || !tb->
+ tbl_dbm
+ )
+ 
+ 670  
+ FALSE
+ ;
+ 
+ 671 
+ dkey
+ .
+ d±r
+  = 
+ key
+ ;
+ 
+ 672 
+ dkey
+ .
+ dsize
+  = 
+ kËn
+ ;
+ 
+ 673 
+ dcÚ‹Á
+ .
+ d±r
+  = 
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 674 
+ dcÚ‹Á
+ .
+ dsize
+  = 
+ ¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 675 #ifdeà
+ HAS_GDBM
+ 
+ 
+ 676 
+ ”rÜ
+  = 
+ 	`gdbm_¡Üe
+ (
+ tb
+ ->
+ tbl_dbm
+ , 
+ dkey
+ , 
+ dcÚ‹Á
+ , 
+ GDBM_REPLACE
+ );
+ 
+ 678 
+ ”rÜ
+  = 
+ 	`dbm_¡Üe
+ (
+ tb
+ ->
+ tbl_dbm
+ , 
+ dkey
+ , 
+ dcÚ‹Á
+ , 
+ DBM_REPLACE
+ );
+ 
+ 680 ià(
+ ”rÜ
+ ) {
+ 
+ 681 ià(
+ Ӽo
+  =ð
+ EPERM
+ )
+ 
+ 682 
+ 	`çl
+ ("No write…ermissiono dbm file");
+ 
+ 683 
+ 	`w¬n
+ ("dbm stܐ»tuºed %d,ƒ¼nØ%d, key \"%s\"",
+ ”rÜ
+ ,
+ Ӽo
+ ,
+ key
+ );
+ 
+ 684 #ifdeà
+ HAS_NDBM
+ 
+ 
+ 685 
+ 	`dbm_þ—»¼
+ (
+ tb
+ ->
+ tbl_dbm
+ );
+ 
+ 688  !
+ ”rÜ
+ ;
+ 
+ 689 
+ 	}
+ }
+ 
+ 	@hash.h
+ 
+ 14 
+ 	#FILLPCT
+  80
+ 
+ 	)
+ 
+ 15 
+ 	#DBM_CACHE_MAX
+  63
+ 
+ 	)
+ 
+ 18 
+ 	#COEFFSIZE
+  (16 * 8è
+ 
+ 	)
+ 
+ 20 
+ h’Œy
+  
+ 	tHENT
+ ;
+ 
+ 22 
+ 	sh’Œy
+  {
+ 
+ 23 
+ HENT
+  *
+ 	mh’t_Ãxt
+ ;
+ 
+ 24 *
+ 	mh’t_key
+ ;
+ 
+ 25 
+ STR
+  *
+ 	mh’t_v®
+ ;
+ 
+ 26 
+ 	mh’t_hash
+ ;
+ 
+ 27 
+ 	mh’t_kËn
+ ;
+ 
+ 30 
+ 	shtbl
+  {
+ 
+ 31 
+ HENT
+  **
+ 	mtbl_¬¿y
+ ;
+ 
+ 32 
+ 	mtbl_max
+ ;
+ 
+ 33 
+ 	mtbl_do¥l™
+ ;
+ 
+ 34 
+ 	mtbl_fžl
+ ;
+ 
+ 35 
+ 	mtbl_r™”
+ ;
+ 
+ 36 
+ HENT
+  *
+ 	mtbl_e™”
+ ;
+ 
+ 37 
+ SPAT
+  *
+ 	mtbl_¥©roÙ
+ ;
+ 
+ 38 *
+ 	mtbl_Çme
+ ;
+ 
+ 39 #ifdeà
+ SOME_DBM
+ 
+ 
+ 40 #ifdeà
+ HAS_GDBM
+ 
+ 
+ 41 
+ GDBM_FILE
+  
+ 	mtbl_dbm
+ ;
+ 
+ 43 #ifdeà
+ HAS_NDBM
+ 
+ 
+ 44 
+ DBM
+  *
+ 	mtbl_dbm
+ ;
+ 
+ 46 
+ 	mtbl_dbm
+ ;
+ 
+ 50 
+ 	mtbl_cÛffsize
+ ;
+ 
+ 53 
+ STR
+  *
+ hãtch
+ ();
+ 
+ 54 
+ boÞ
+  
+ h¡Üe
+ ();
+ 
+ 55 
+ STR
+  *
+ hd–‘e
+ ();
+ 
+ 56 
+ HASH
+  *
+ hÃw
+ ();
+ 
+ 57 
+ hþ—r
+ ();
+ 
+ 58 
+ h’tä“
+ ();
+ 
+ 59 
+ h™”š™
+ ();
+ 
+ 60 
+ HENT
+  *
+ h™”Ãxt
+ ();
+ 
+ 61 *
+ h™”key
+ ();
+ 
+ 62 
+ STR
+  *
+ h™”v®
+ ();
+ 
+ 63 
+ boÞ
+  
+ hdbmݒ
+ ();
+ 
+ 64 
+ hdbmþo£
+ ();
+ 
+ 65 
+ boÞ
+  
+ hdbm¡Üe
+ ();
+ 
+ 	@malloc.c
+ 
+ 12 #iâdeà
+ lšt
+ 
+ 
+ 13 
+ 	gsccsid
+ [] = "@(#)malloc.c 4.3 (Berkeley) 9/16/83";
+ 
+ 15 #ifdeà
+ DEBUGGING
+ 
+ 
+ 16 
+ 	#RCHECK
+ 
+ 
+ 	)
+ 
+ 30 
+ 	~"EXTERN.h
+ "
+ 
+ 31 
+ 	~"³¾.h
+ "
+ 
+ 33 
+ fšdbuck‘
+ (), 
+ mÜecÜe
+ ();
+ 
+ 37 
+ 	#u_ch¬
+  
+ 
+ 	)
+ 
+ 38 
+ 	#u_št
+  
+ 
+ 	)
+ 
+ 39 
+ 	#u_shÜt
+  
+ 
+ 	)
+ 
+ 50 
+ 	uov”h—d
+  {
+ 
+ 51 
+ ov”h—d
+  *
+ 	mov_Ãxt
+ ;
+ 
+ 52 #ià
+ ALIGNBYTES
+  > 4
+ 
+ 53 
+ 	m¡rut
+ ;
+ 
+ 56 
+ u_ch¬
+  
+ 	movu_magic
+ ;
+ 
+ 57 
+ u_ch¬
+  
+ 	movu_šdex
+ ;
+ 
+ 58 #ifdeà
+ RCHECK
+ 
+ 
+ 59 
+ u_shÜt
+  
+ 	movu_size
+ ;
+ 
+ 60 
+ u_št
+  
+ 	movu_rmagic
+ ;
+ 
+ 62 } 
+ 	movu
+ ;
+ 
+ 63 
+ 	#ov_magic
+  
+ ovu
+ .
+ ovu_magic
+ 
+ 
+ 	)
+ 
+ 64 
+ 	#ov_šdex
+  
+ ovu
+ .
+ ovu_šdex
+ 
+ 
+ 	)
+ 
+ 65 
+ 	#ov_size
+  
+ ovu
+ .
+ ovu_size
+ 
+ 
+ 	)
+ 
+ 66 
+ 	#ov_rmagic
+  
+ ovu
+ .
+ ovu_rmagic
+ 
+ 
+ 	)
+ 
+ 69 
+ 	#MAGIC
+  0xfà
+ 
+ 	)
+ 
+ 70 
+ 	#OLDMAGIC
+  0x7à
+ 
+ 	)
+ 
+ 71 
+ 	#RMAGIC
+  0x55555555
+ 
+ 	)
+ 
+ 72 #ifdeà
+ RCHECK
+ 
+ 
+ 73 
+ 	#RSLOP
+   (
+ u_št
+ )
+ 
+ 	)
+ 
+ 75 
+ 	#RSLOP
+  0
+ 
+ 	)
+ 
+ 83 
+ 	#NBUCKETS
+  30
+ 
+ 	)
+ 
+ 84 
+ ov”h—d
+  *
+ 	gÃxtf
+ [
+ NBUCKETS
+ ];
+ 
+ 85 
*
+ sbrk
+ ();
+ 
+ 87 #ifdeà
+ MSTATS
+ 
+ 
+ 92 
+ u_št
+  
+ 	gnm®loc
+ [
+ NBUCKETS
+ ];
+ 
+ 93 
+ 	~<¡dio.h
+ >
+ 
+ 96 #ifdeà
+ debug
+ 
+ 
+ 97 
+ 	#ASSERT
+ (
+ p
+ èià(!Õ)è
+ 	`bÙch
+ ("p"); 
+ 
+ 	)
+ 
+ 99 
+ 	$bÙch
+ (
+ s
+ )
+ 
+ 100 *
+ s
+ ;
+ 
+ 103 
+ 	`´štf
+ ("as£¹iÚ bÙched: %s\n", 
+ s
+ );
+ 
+ 104 
+ 	`abÜt
+ ();
+ 
+ 105 
+ 	}
+ }
+ 
+ 107 
+ 	#ASSERT
+ (
+ p
+ )
+ 
+ 	)
+ 
+ 110 
+ MALLOCPTRTYPE
+  *
+ 
+ 111 
+ 	$m®loc
+ (
+ nby‹s
+ )
+ 
+ 112 
+ nby‹s
+ ;
+ 
+ 114 
+ ov”h—d
+  *
+ p
+ ;
+ 
+ 115 
+ buck‘
+  = 0;
+ 
+ 116 
+ shiár
+ ;
+ 
+ 124 
+ nby‹s
+  +ð (
+ ov”h—d
+ è+ 
+ RSLOP
+ ;
+ 
+ 125 
+ nby‹s
+  = (nbytes + 3) &~ 3;
+ 
+ 126 
+ shiár
+  = (
+ nby‹s
+  - 1) >> 2;
+ 
+ 128 
+ shiár
+  >>= 1)
+ 
+ 129 
+ buck‘
+ ++;
+ 
+ 134 ià(
+ Ãxtf
+ [
+ buck‘
+ ] =ð
+ NULL
+ )
+ 
+ 135 
+ 	`mÜecÜe
+ (
+ buck‘
+ );
+ 
+ 136 ià((
+ p
+  = (
+ ov”h—d
+  *)
+ Ãxtf
+ [
+ buck‘
+ ]è=ð
+ NULL
+ )
+ 
+ 137  (
+ NULL
+ );
+ 
+ 139 #ifdeà
+ RCHECK
+ 
+ 
+ 140 ià(*((*)
+ p
+ è& ((
+ ov”h—d
+ ) - 1))
+ 
+ 141 #iâdeà
+ I286
+ 
+ 
+ 142 
+ 	`årštf
+ (
+ ¡d”r
+ ,"CÜru± m®loø±¸0x%x‡ˆ0x%x\n",*((*)
+ p
+ ),p);
+ 
+ 144 
+ 	`årštf
+ (
+ ¡d”r
+ ,"CÜru± m®loø±¸0x%lx‡ˆ0x%lx\n",*((*)
+ p
+ ),p);
+ 
+ 147 
+ Ãxtf
+ [
+ buck‘
+ ] = 
+ p
+ ->
+ ov_Ãxt
+ ;
+ 
+ 148 
+ p
+ ->
+ ov_magic
+  = 
+ MAGIC
+ ;
+ 
+ 149 
+ p
+ ->
+ ov_šdex
+ ð
+ buck‘
+ ;
+ 
+ 150 #ifdeà
+ MSTATS
+ 
+ 
+ 151 
+ nm®loc
+ [
+ buck‘
+ ]++;
+ 
+ 153 #ifdeà
+ RCHECK
+ 
+ 
+ 158 ià(
+ nby‹s
+  <= 0x10000)
+ 
+ 159 
+ p
+ ->
+ ov_size
+  = 
+ nby‹s
+  - 1;
+ 
+ 160 
+ p
+ ->
+ ov_rmagic
+  = 
+ RMAGIC
+ ;
+ 
+ 161 *((
+ u_št
+  *)((
+ ÿddr_t
+ )
+ p
+  + 
+ nby‹s
+  - 
+ RSLOP
+ )èð
+ RMAGIC
+ ;
+ 
+ 163  ((*)(
+ p
+  + 1));
+ 
+ 164 
+ 	}
+ }
+ 
+ 170 
+ 	$mÜecÜe
+ (
+ buck‘
+ )
+ 
+ 171 
+ buck‘
+ ;
+ 
+ 173 
+ ov”h—d
+  *
+ Ý
+ ;
+ 
+ 174 
+ ºu
+ ;
+ 
+ 175 
+ nblks
+ ;
+ 
+ 176 
+ siz
+ ;
+ 
+ 178 ià(
+ Ãxtf
+ [
+ buck‘
+ ])
+ 
+ 185 
+ Ý
+  = (
+ ov”h—d
+  *)
+ 	`sbrk
+ (0);
+ 
+ 186 #iâdeà
+ I286
+ 
+ 
+ 187 ià(()
+ Ý
+  & 0x3ff)
+ 
+ 188 ()
+ 	`sbrk
+ (1024 - (()
+ Ý
+  & 0x3ff));
+ 
+ 193 #iâdeà
+ I286
+ 
+ 
+ 195 
+ ºu
+  = (
+ buck‘
+  <= 8) ? 11 : bucket + 3;
+ 
+ 199 
+ ºu
+  = (
+ buck‘
+  <= 11) ? 14 : bucket + 3;
+ 
+ 201 
+ nblks
+  = 1 << (
+ ºu
+  - (
+ buck‘
+  + 3));
+ 
+ 202 ià(
+ ºu
+  < 
+ buck‘
+ )
+ 
+ 203 
+ ºu
+  = 
+ buck‘
+ ;
+ 
+ 204 
+ Ý
+  = (
+ ov”h—d
+  *)
+ 	`sbrk
+ (1 << 
+ ºu
+ );
+ 
+ 206 ià(()
+ Ý
+  == -1)
+ 
+ 212 #iâdeà
+ I286
+ 
+ 
+ 213 ià(()
+ Ý
+  & 7) {
+ 
+ 214 
+ Ý
+  = (
+ ov”h—d
+  *)((()op + 8) &~ 7);
+ 
+ 215 
+ nblks
+ --;
+ 
+ 224 
+ Ãxtf
+ [
+ buck‘
+ ] = 
+ Ý
+ ;
+ 
+ 225 
+ siz
+  = 1 << (
+ buck‘
+  + 3);
+ 
+ 226 --
+ nblks
+  > 0) {
+ 
+ 227 
+ Ý
+ ->
+ ov_Ãxt
+  = (
+ ov”h—d
+  *)((
+ ÿddr_t
+ )Ý + 
+ siz
+ );
+ 
+ 228 
+ Ý
+  = (
+ ov”h—d
+  *)((
+ ÿddr_t
+ )Ý + 
+ siz
+ );
+ 
+ 230 
+ 	}
+ }
+ 
+ 233 
+ 	$ä“
+ (
+ tý
+ )
+ 
+ 234 *
+ tý
+ ;
+ 
+ 236 * 
+ ý
+  = 
+ tý
+ ;
+ 
+ 237 
+ size
+ ;
+ 
+ 238 
+ ov”h—d
+  *
+ Ý
+ ;
+ 
+ 240 #ifdeà
+ IGNOREFREE
+ 
+ 
+ 243 ià(
+ ý
+  =ð
+ NULL
+ )
+ 
+ 245 
+ Ý
+  = (
+ ov”h—d
+  *)((
+ ÿddr_t
+ )
+ ý
+  -  (overhead));
+ 
+ 246 #ifdeà
+ debug
+ 
+ 
+ 247 
+ 	`ASSERT
+ (
+ Ý
+ ->
+ ov_magic
+  =ð
+ MAGIC
+ );
+ 
+ 249 ià(
+ Ý
+ ->
+ ov_magic
+  !ð
+ MAGIC
+ ) {
+ 
+ 250 
+ 	`w¬n
+ ("%s free() ignored",
+ 
+ 251 
+ Ý
+ ->
+ ov_magic
+  =ð
+ OLDMAGIC
+  ? "Duplicate" : "Bad");
+ 
+ 254 
+ Ý
+ ->
+ ov_magic
+  = 
+ OLDMAGIC
+ ;
+ 
+ 256 #ifdeà
+ RCHECK
+ 
+ 
+ 257 
+ 	`ASSERT
+ (
+ Ý
+ ->
+ ov_rmagic
+  =ð
+ RMAGIC
+ );
+ 
+ 258 ià(
+ Ý
+ ->
+ ov_šdex
+  <= 13)
+ 
+ 259 
+ 	`ASSERT
+ (*(
+ u_št
+  *)((
+ ÿddr_t
+ )
+ Ý
+  + op->
+ ov_size
+  + 1 - 
+ RSLOP
+ è=ð
+ RMAGIC
+ );
+ 
+ 261 
+ 	`ASSERT
+ (
+ Ý
+ ->
+ ov_šdex
+  < 
+ NBUCKETS
+ );
+ 
+ 262 
+ size
+  = 
+ Ý
+ ->
+ ov_šdex
+ ;
+ 
+ 263 
+ Ý
+ ->
+ ov_Ãxt
+  = 
+ Ãxtf
+ [
+ size
+ ];
+ 
+ 264 
+ Ãxtf
+ [
+ size
+ ] = 
+ Ý
+ ;
+ 
+ 265 #ifdeà
+ MSTATS
+ 
+ 
+ 266 
+ nm®loc
+ [
+ size
+ ]--;
+ 
+ 269 
+ 	}
+ }
+ 
+ 282 
+ 	g»®l_¤chËn
+  = 4;
+ 
+ 284 
+ MALLOCPTRTYPE
+  *
+ 
+ 285 
+ 	$»®loc
+ (
+ tý
+ , 
+ nby‹s
+ )
+ 
+ 286 *
+ tý
+ ;
+ 
+ 287 
+ nby‹s
+ ;
+ 
+ 289 * 
+ ý
+  = 
+ tý
+ ;
+ 
+ 290 
+ u_št
+  
+ Úb
+ ;
+ 
+ 291 
+ ov”h—d
+  *
+ Ý
+ ;
+ 
+ 292 *
+ »s
+ ;
+ 
+ 293 
+ i
+ ;
+ 
+ 294 
+ was_®loûd
+  = 0;
+ 
+ 296 ià(
+ ý
+  =ð
+ NULL
+ )
+ 
+ 297  (
+ 	`m®loc
+ (
+ nby‹s
+ ));
+ 
+ 298 
+ Ý
+  = (
+ ov”h—d
+  *)((
+ ÿddr_t
+ )
+ ý
+  -  (overhead));
+ 
+ 299 ià(
+ Ý
+ ->
+ ov_magic
+  =ð
+ MAGIC
+ ) {
+ 
+ 300 
+ was_®loûd
+ ++;
+ 
+ 301 
+ i
+  = 
+ Ý
+ ->
+ ov_šdex
+ ;
+ 
+ 314 ià((
+ i
+  = 
+ 	`fšdbuck‘
+ (
+ Ý
+ , 1)) < 0 &&
+ 
+ 315 (
+ i
+  = 
+ 	`fšdbuck‘
+ (
+ Ý
+ , 
+ »®l_¤chËn
+ )) < 0)
+ 
+ 316 
+ i
+  = 0;
+ 
+ 318 
+ Úb
+  = (1 << (
+ i
+  + 3)è-  (*
+ Ý
+ è- 
+ RSLOP
+ ;
+ 
+ 320 ià(
+ was_®loûd
+  &&
+ 
+ 321 
+ nby‹s
+  <ð
+ Úb
+  &&‚by‹ > (Úb >> 1è- (*
+ Ý
+ è- 
+ RSLOP
+ ) {
+ 
+ 322 #ifdeà
+ RCHECK
+ 
+ 
+ 327 ià(
+ Ý
+ ->
+ ov_šdex
+  <= 13) {
+ 
+ 334 
+ nby‹s
+  +ð (
+ ov”h—d
+ è+ 
+ RSLOP
+ ;
+ 
+ 335 
+ nby‹s
+  = (nbytes + 3) &~ 3;
+ 
+ 336 
+ Ý
+ ->
+ ov_size
+  = 
+ nby‹s
+  - 1;
+ 
+ 337 *((
+ u_št
+  *)((
+ ÿddr_t
+ )
+ Ý
+  + 
+ nby‹s
+  - 
+ RSLOP
+ )èð
+ RMAGIC
+ ;
+ 
+ 340 (
+ ý
+ );
+ 
+ 342 ià((
+ »s
+  = 
+ 	`m®loc
+ (
+ nby‹s
+ )è=ð
+ NULL
+ )
+ 
+ 343  (
+ NULL
+ );
+ 
+ 344 ià(
+ ý
+  !ð
+ »s
+ )
+ 
+ 345 ()
+ 	`bcÝy
+ (
+ ý
+ , 
+ »s
+ , ()((
+ nby‹s
+  < 
+ Úb
+ ) ?‚bytes : onb));
+ 
+ 346 ià(
+ was_®loûd
+ )
+ 
+ 347 
+ 	`ä“
+ (
+ ý
+ );
+ 
+ 348  (
+ »s
+ );
+ 
+ 349 
+ 	}
+ }
+ 
+ 357 
+ 	$fšdbuck‘
+ (
+ ä“p
+ , 
+ ¤chËn
+ )
+ 
+ 358 
+ ov”h—d
+  *
+ ä“p
+ ;
+ 
+ 359 
+ ¤chËn
+ ;
+ 
+ 361 
+ ov”h—d
+  *
+ p
+ ;
+ 
+ 362 
+ i
+ , 
+ j
+ ;
+ 
+ 364 
+ i
+  = 0; i < 
+ NBUCKETS
+ ; i++) {
+ 
+ 365 
+ j
+  = 0;
+ 
+ 366 
+ p
+  = 
+ Ãxtf
+ [
+ i
+ ];… && 
+ j
+  !ð
+ ¤chËn
+ ;… =…->
+ ov_Ãxt
+ ) {
+ 
+ 367 ià(
+ p
+  =ð
+ ä“p
+ )
+ 
+ 368  (
+ i
+ );
+ 
+ 369 
+ j
+ ++;
+ 
+ 373 
+ 	}
+ }
+ 
+ 375 #ifdeà
+ MSTATS
+ 
+ 
+ 383 
+ 	$m¡©s
+ (
+ s
+ )
+ 
+ 384 *
+ s
+ ;
+ 
+ 386 
+ i
+ , 
+ j
+ ;
+ 
+ 387 
+ ov”h—d
+  *
+ p
+ ;
+ 
+ 388 
+ tÙä“
+  = 0,
+ 
+ 389 
+ tÙu£d
+  = 0;
+ 
+ 391 
+ 	`årštf
+ (
+ ¡d”r
+ , "MemÜy‡ÎoÿtiÚ sti¡ic %s\nä“:\t", 
+ s
+ );
+ 
+ 392 
+ i
+  = 0; i < 
+ NBUCKETS
+ ; i++) {
+ 
+ 393 
+ j
+  = 0, 
+ p
+  = 
+ Ãxtf
+ [
+ i
+ ];…;… =…->
+ ov_Ãxt
+ , j++)
+ 
+ 395 
+ 	`årštf
+ (
+ ¡d”r
+ , " %d", 
+ j
+ );
+ 
+ 396 
+ tÙä“
+  +ð
+ j
+  * (1 << (
+ i
+  + 3));
+ 
+ 398 
+ 	`årštf
+ (
+ ¡d”r
+ , "\nused:\t");
+ 
+ 399 
+ i
+  = 0; i < 
+ NBUCKETS
+ ; i++) {
+ 
+ 400 
+ 	`årštf
+ (
+ ¡d”r
+ , " %d", 
+ nm®loc
+ [
+ i
+ ]);
+ 
+ 401 
+ tÙu£d
+  +ð
+ nm®loc
+ [
+ i
+ ] * (1 << (i + 3));
+ 
+ 403 
+ 	`årštf
+ (
+ ¡d”r
+ , "\n\tTotal in use: %d,otal free: %d\n",
+ 
+ 404 
+ tÙu£d
+ , 
+ tÙä“
+ );
+ 
+ 405 
+ 	}
+ }
+ 
+ 	@patch-malloc.c
+ 
+ 1 
*
+ m®loc
+ ();
+ 
+ 2 
*
+ bZa
+ (), *
+ bZr
+ (), *
+ bZc
+ ();
+ 
+ 3 

+ ä“
+ ();
+ 
+ 6 
+ 	$m®loc
+ (
+ n
+ )
+ 
+ 7 
+ n
+ ;
+ 
+ 9  
+ 	`bZa
+ (
+ n
+ );
+ 
+ 10 
+ 	}
+ }
+ 
+ 13 
+ 	$ÿÎoc
+ (
+ n
+ )
+ 
+ 14 
+ n
+ ;
+ 
+ 18 
+ 	}
+ }
+ 
+ 20 
+ 	$ä“
+ (
+ p
+ )
+ 
+ 21 *
+ p
+ ;
+ 
+ 23 
+ 	`bZf
+ (
+ p
+ );
+ 
+ 24 
+ 	}
+ }
+ 
+ 27 
+ 	$»®loc
+ (
+ ý
+ , 
+ nby‹s
+ )
+ 
+ 28 *
+ ý
+ ;
+ 
+ 29 
+ nby‹s
+ ;
+ 
+ 31  
+ 	`bZr
+ (
+ ý
+ , 
+ nby‹s
+ );
+ 
+ 32 
+ 	}
+ }
+ 
+ 	@patchlevel.h
+ 
+ 1 
+ 	#PATCHLEVEL
+  3
+ 
+ 	)
+ 
+ 	@perl.c
+ 
+ 1 
+ 	grcsid
+ [] = "$RCSfile: cscope.out,v $$Revision: 1.1.2.1 $$Date: 2004/03/01 23:59:12 $\nPatch†evel: ###\n";
+ 
+ 17 
+ 	~"EXTERN.h
+ "
+ 
+ 18 
+ 	~"³¾.h
+ "
+ 
+ 19 
+ 	~"³¾y.h
+ "
+ 
+ 20 #ifdeà
+ MSDOS
+ 
+ 
+ 21 
+ 	~"·tchËv.h
+ "
+ 
+ 23 
+ 	~"·tchËv–.h
+ "
+ 
+ 26 #ifdeà
+ IAMSUID
+ 
+ 
+ 27 #iâdeà
+ DOSUID
+ 
+ 
+ 28 
+ 	#DOSUID
+ 
+ 
+ 	)
+ 
+ 32 #ifdeà
+ SETUID_SCRIPTS_ARE_SECURE_NOW
+ 
+ 
+ 33 #ifdeà
+ DOSUID
+ 
+ 
+ 34 #undeà
+ DOSUID
+ 
+ 
+ 38 * 
+ mÜesw™ches
+ ();
+ 
+ 39 * 
+ 	gcddœ
+ ;
+ 
+ 40 
+ boÞ
+  
+ 	gmšus_c
+ ;
+ 
+ 41 
+ 	g·tchËv–
+ [6];
+ 
+ 42 *
+ 	gÄs
+  = "\n";
+ 
+ 43 
+ 	gÄsch¬
+  = '\n';
+ 
+ 44 
+ 	gĦ’
+  = 1;
+ 
+ 46 
+ 	$maš
+ (
+ ¬gc
+ ,
+ ¬gv
+ ,
+ ’v
+ )
+ 
+ 47 
+ ¬gc
+ ;
+ 
+ 48 **
+ ¬gv
+ ;
+ 
+ 49 **
+ ’v
+ ;
+ 
+ 51 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 52 *
+ s
+ ;
+ 
+ 53 *
+ 	`šdex
+ (), *
+ 	`¡rýy
+ (), *
+ 	`g‘’v
+ ();
+ 
+ 54 
+ boÞ
+  
+ do£¬ch
+  = 
+ FALSE
+ ;
+ 
+ 55 #ifdeà
+ DOSUID
+ 
+ 
+ 56 *
+ v®id¬g
+  = "";
+ 
+ 59 #ifdeà
+ SETUID_SCRIPTS_ARE_SECURE_NOW
+ 
+ 
+ 60 #ifdeà
+ IAMSUID
+ 
+ 
+ 61 #undeà
+ IAMSUID
+ 
+ 
+ 62 
+ 	`çl
+ ("suidperl is‚o†onger‚eeded sincehe kernel can‚owƒxecute\n\
+ …erl scripts securely.\n");
+ 
+ 67 #ifdeà
+ BWGC
+ 
+ 
+ 69 
+ 	`gc_š™
+ ();
+ 
+ 70 
+ 	`gc_š™
+ ();
+ 
+ 74 
+ Üig¬gv
+  = 
+ ¬gv
+ ;
+ 
+ 75 
+ Üig¬gc
+  = 
+ ¬gc
+ ;
+ 
+ 76 
+ Üig’vœÚ
+  = 
+ ’vœÚ
+ ;
+ 
+ 77 
+ uid
+  = ()
+ 	`g‘uid
+ ();
+ 
+ 78 
+ euid
+  = ()
+ 	`g‘euid
+ ();
+ 
+ 79 
+ gid
+  = ()
+ 	`g‘gid
+ ();
+ 
+ 80 
+ egid
+  = ()
+ 	`g‘egid
+ ();
+ 
+ 81 
+ 	`¥rštf
+ (
+ ·tchËv–
+ ,"%3.3s%2.2d", 
+ 	`šdex
+ (
+ rcsid
+ ,'4'), 
+ PATCHLEVEL
+ );
+ 
+ 82 #ifdeà
+ MSDOS
+ 
+ 
+ 88 ()
+ 	`fþo£
+ (
+ ¡daux
+ );
+ 
+ 89 ()
+ 	`fþo£
+ (
+ ¡d´n
+ );
+ 
+ 91 ià(
+ do_undump
+ ) {
+ 
+ 92 
+ Üigfž’ame
+  = 
+ 	`§ve¡r
+ (
+ ¬gv
+ [0]);
+ 
+ 93 
+ do_undump
+  = 0;
+ 
+ 94 
+ loÝ_±r
+  = -1;
+ 
+ 95 
+ ju¡_do™
+ ;
+ 
+ 97 ()
+ 	`¥rštf
+ (
+ 	`šdex
+ (
+ rcsid
+ ,'#'), "%d\n", 
+ PATCHLEVEL
+ );
+ 
+ 98 
+ lše¡r
+  = 
+ 	`SŒ_Ãw
+ (65,80);
+ 
+ 99 
+ 	`¡r_n£t
+ (
+ lše¡r
+ ,"",0);
+ 
+ 100 
+ ¡r
+  = 
+ 	`¡r_make
+ ("",0);
+ 
+ 101 
+ cur¡ash
+  = 
+ def¡ash
+  = 
+ 	`hÃw
+ (0);
+ 
+ 102 
+ cur¡Çme
+  = 
+ 	`¡r_make
+ ("main",4);
+ 
+ 103 
+ 	`¡ab_xhash
+ (
+ 	`¡ab’t
+ ("_maš",
+ TRUE
+ )èð
+ def¡ash
+ ;
+ 
+ 104 
+ def¡ash
+ ->
+ tbl_Çme
+  = "main";
+ 
+ 105 
+ šc¡ab
+  = 
+ 	`hadd
+ (
+ 	`¯dd
+ (
+ 	`¡ab’t
+ ("INC",
+ TRUE
+ )));
+ 
+ 106 
+ šc¡ab
+ ->
+ ¡r_pok
+  |ð
+ SP_MULTI
+ ;
+ 
+ 107 
+ ¬gc
+ --,
+ ¬gv
+ ++;‡rgc > 0;‡rgc--,argv++) {
+ 
+ 108 ià(
+ ¬gv
+ [0][0] != '-' || !argv[0][1])
+ 
+ 110 #ifdeà
+ DOSUID
+ 
+ 
+ 111 ià(*
+ v®id¬g
+ )
+ 
+ 112 
+ v®id¬g
+  = " PHOOEY ";
+ 
+ 114 
+ v®id¬g
+  = 
+ ¬gv
+ [0];
+ 
+ 116 
+ s
+  = 
+ ¬gv
+ [0]+1;
+ 
+ 117 
+ »sw™ch
+ :
+ 
+ 118 *
+ s
+ ) {
+ 
+ 132 ià(
+ s
+  = 
+ 	`mÜesw™ches
+ (s))
+ 
+ 133 
+ »sw™ch
+ ;
+ 
+ 137 #ifdeà
+ TAINT
+ 
+ 
+ 138 ià(
+ euid
+  !ð
+ uid
+  || 
+ egid
+  !ð
+ gid
+ )
+ 
+ 139 
+ 	`çl
+ ("No -e‡llowed in setuid scripts");
+ 
+ 141 ià(!
+ e_å
+ ) {
+ 
+ 142 
+ e_tm²ame
+  = 
+ 	`§ve¡r
+ (
+ TMPPATH
+ );
+ 
+ 143 ()
+ 	`mk‹mp
+ (
+ e_tm²ame
+ );
+ 
+ 144 
+ e_å
+  = 
+ 	`fݒ
+ (
+ e_tm²ame
+ ,"w");
+ 
+ 145 ià(!
+ e_å
+ )
+ 
+ 146 
+ 	`çl
+ ("Cannot openemporary file");
+ 
+ 148 ià(
+ ¬gv
+ [1]) {
+ 
+ 149 
+ 	`åuts
+ (
+ ¬gv
+ [1],
+ e_å
+ );
+ 
+ 150 
+ ¬gc
+ --,
+ ¬gv
+ ++;
+ 
+ 152 ()
+ 	`putc
+ ('\n', 
+ e_å
+ );
+ 
+ 155 #ifdeà
+ TAINT
+ 
+ 
+ 156 ià(
+ euid
+  !ð
+ uid
+  || 
+ egid
+  !ð
+ gid
+ )
+ 
+ 157 
+ 	`çl
+ ("No -I‡llowed in setuid scripts");
+ 
+ 159 
+ 	`¡r_ÿt
+ (
+ ¡r
+ ,"-");
+ 
+ 160 
+ 	`¡r_ÿt
+ (
+ ¡r
+ ,
+ s
+ );
+ 
+ 161 
+ 	`¡r_ÿt
+ (
+ ¡r
+ ," ");
+ 
+ 162 ià(*++
+ s
+ ) {
+ 
+ 163 ()
+ 	`­ush
+ (
+ 	`¡ab_¬¿y
+ (
+ šc¡ab
+ ),
+ 	`¡r_make
+ (
+ s
+ ,0));
+ 
+ 165 ià(
+ ¬gv
+ [1]) {
+ 
+ 166 ()
+ 	`­ush
+ (
+ 	`¡ab_¬¿y
+ (
+ šc¡ab
+ ),
+ 	`¡r_make
+ (
+ ¬gv
+ [1],0));
+ 
+ 167 
+ 	`¡r_ÿt
+ (
+ ¡r
+ ,
+ ¬gv
+ [1]);
+ 
+ 168 
+ ¬gc
+ --,
+ ¬gv
+ ++;
+ 
+ 169 
+ 	`¡r_ÿt
+ (
+ ¡r
+ ," ");
+ 
+ 173 #ifdeà
+ TAINT
+ 
+ 
+ 174 ià(
+ euid
+  !ð
+ uid
+  || 
+ egid
+  !ð
+ gid
+ )
+ 
+ 175 
+ 	`çl
+ ("No -P‡llowed in setuid scripts");
+ 
+ 177 
+ ´•roûss
+  = 
+ TRUE
+ ;
+ 
+ 178 
+ s
+ ++;
+ 
+ 179 
+ »sw™ch
+ ;
+ 
+ 181 #ifdeà
+ TAINT
+ 
+ 
+ 182 ià(
+ euid
+  !ð
+ uid
+  || 
+ egid
+  !ð
+ gid
+ )
+ 
+ 183 
+ 	`çl
+ ("No -s‡llowed in setuid scripts");
+ 
+ 185 
+ dosw™ches
+  = 
+ TRUE
+ ;
+ 
+ 186 
+ s
+ ++;
+ 
+ 187 
+ »sw™ch
+ ;
+ 
+ 189 
+ do£¬ch
+  = 
+ TRUE
+ ;
+ 
+ 190 
+ s
+ ++;
+ 
+ 191 
+ »sw™ch
+ ;
+ 
+ 193 
+ dÛxŒaù
+  = 
+ TRUE
+ ;
+ 
+ 194 
+ s
+ ++;
+ 
+ 195 ià(*
+ s
+ )
+ 
+ 196 
+ cddœ
+  = 
+ 	`§ve¡r
+ (
+ s
+ );
+ 
+ 199 
+ ¬gc
+ --,
+ ¬gv
+ ++;
+ 
+ 200 
+ sw™ch_’d
+ ;
+ 
+ 204 
+ 	`çl
+ ("UÄecognized sw™ch: -%s",
+ s
+ );
+ 
+ 207 
+ sw™ch_’d
+ :
+ 
+ 208 ià(
+ e_å
+ ) {
+ 
+ 209 ()
+ 	`fþo£
+ (
+ e_å
+ );
+ 
+ 210 
+ ¬gc
+ ++,
+ ¬gv
+ --;
+ 
+ 211 
+ ¬gv
+ [0] = 
+ e_tm²ame
+ ;
+ 
+ 214 #ifdeà
+ MSDOS
+ 
+ 
+ 215 
+ 	#PERLLIB_SEP
+  ';'
+ 
+ 	)
+ 
+ 217 
+ 	#PERLLIB_SEP
+  ':'
+ 
+ 	)
+ 
+ 219 #iâdeà
+ TAINT
+ 
+ 
+ 221 * 
+ s2
+  = 
+ 	`g‘’v
+ ("PERLLIB");
+ 
+ 223 iàÐ
+ s2
+  ) {
+ 
+ 225  *
+ s2
+  ) {
+ 
+ 227  *
+ s2
+  =ð
+ PERLLIB_SEP
+  ) {
+ 
+ 230 
+ s2
+ ++;
+ 
+ 232 iàÐ(
+ s
+  = 
+ 	`šdex
+ (
+ s2
+ ,
+ PERLLIB_SEP
+ )è!ð
+ NuÎch
+  ) {
+ 
+ 233 ()
+ 	`­ush
+ (
+ 	`¡ab_¬¿y
+ (
+ šc¡ab
+ ),
+ 	`¡r_make
+ (
+ s2
+ ,()(
+ s
+ -s2)));
+ 
+ 234 
+ s2
+  = 
+ s
+ +1;
+ 
+ 236 ()
+ 	`­ush
+ (
+ 	`¡ab_¬¿y
+ (
+ šc¡ab
+ ),
+ 	`¡r_make
+ (
+ s2
+ ,0));
+ 
+ 244 #iâdeà
+ PRIVLIB
+ 
+ 
+ 245 
+ 	#PRIVLIB
+  "/u¤/loÿl/lib/³¾"
+ 
+ 	)
+ 
+ 247 ()
+ 	`­ush
+ (
+ 	`¡ab_¬¿y
+ (
+ šc¡ab
+ ),
+ 	`¡r_make
+ (
+ PRIVLIB
+ ,0));
+ 
+ 248 ()
+ 	`­ush
+ (
+ 	`¡ab_¬¿y
+ (
+ šc¡ab
+ ),
+ 	`¡r_make
+ (".",1));
+ 
+ 250 
+ 	`¡r_£t
+ (&
+ ¡r_no
+ ,
+ No
+ );
+ 
+ 251 
+ 	`¡r_£t
+ (&
+ ¡r_yes
+ ,
+ Yes
+ );
+ 
+ 255 ià(
+ ¬gv
+ [0] =ð
+ NuÎch
+ )
+ 
+ 256 #ifdeà
+ MSDOS
+ 
+ 
+ 258 iàÐ
+ 	`i§‰y
+ (
+ 	`fž’o
+ (
+ ¡dš
+ )) )
+ 
+ 259 
+ 	`mÜesw™ches
+ ("v");
+ 
+ 260 
+ ¬gv
+ [0] = "-";
+ 
+ 263 
+ ¬gv
+ [0] = "-";
+ 
+ 265 ià(
+ do£¬ch
+  && !
+ 	`šdex
+ (
+ ¬gv
+ [0], '/'è&& (
+ s
+  = 
+ 	`g‘’v
+ ("PATH"))) {
+ 
+ 266 *
+ xfound
+  = 
+ NuÎch
+ , *
+ xçžed
+  = Nullch;
+ 
+ 267 
+ Ën
+ ;
+ 
+ 269 
+ buãnd
+  = 
+ s
+  + 
+ 	`¡¾’
+ (s);
+ 
+ 270 *
+ s
+ ) {
+ 
+ 271 #iâdeà
+ MSDOS
+ 
+ 
+ 272 
+ s
+  = 
+ 	`ýytžl
+ (
+ tok’buf
+ ,s,
+ buãnd
+ ,':',&
+ Ën
+ );
+ 
+ 274 
+ Ën
+  = 0; *
+ s
+  && * !ð';'; 
+ tok’buf
+ [len++] = *s++);
+ 
+ 275 
+ tok’buf
+ [
+ Ën
+ ] = '\0';
+ 
+ 277 ià(*
+ s
+ )
+ 
+ 278 
+ s
+ ++;
+ 
+ 279 #iâdeà
+ MSDOS
+ 
+ 
+ 280 ià(
+ Ën
+  && 
+ tok’buf
+ [len-1] != '/')
+ 
+ 282 ià(
+ Ën
+  && 
+ tok’buf
+ [len-1] != '\\')
+ 
+ 284 ()
+ 	`¡rÿt
+ (
+ tok’buf
+ +
+ Ën
+ ,"/");
+ 
+ 285 ()
+ 	`¡rÿt
+ (
+ tok’buf
+ +
+ Ën
+ ,
+ ¬gv
+ [0]);
+ 
+ 286 #ifdeà
+ DEBUGGING
+ 
+ 
+ 287 ià(
+ debug
+  & 1)
+ 
+ 288 
+ 	`årštf
+ (
+ ¡d”r
+ ,"Lookšg fÜ %s\n",
+ tok’buf
+ );
+ 
+ 290 ià(
+ 	`¡©
+ (
+ tok’buf
+ ,&
+ ¡©buf
+ ) < 0)
+ 
+ 292 ià(
+ 	`S_ISREG
+ (
+ ¡©buf
+ .
+ ¡_mode
+ )
+ 
+ 293 && 
+ 	`ÿndo
+ (
+ S_IRUSR
+ ,
+ TRUE
+ ,&
+ ¡©buf
+ è&& cªdo(
+ S_IXUSR
+ ,TRUE,&statbuf)) {
+ 
+ 294 
+ xfound
+  = 
+ tok’buf
+ ;
+ 
+ 297 ià(!
+ xçžed
+ )
+ 
+ 298 
+ xçžed
+  = 
+ 	`§ve¡r
+ (
+ tok’buf
+ );
+ 
+ 300 ià(!
+ xfound
+ )
+ 
+ 301 
+ 	`çl
+ ("Cª'ˆexecu‹ %s", 
+ xçžed
+  ? xçžed : 
+ ¬gv
+ [0] );
+ 
+ 302 ià(
+ xçžed
+ )
+ 
+ 303 
+ 	`Saãä“
+ (
+ xçžed
+ );
+ 
+ 304 
+ ¬gv
+ [0] = 
+ 	`§ve¡r
+ (
+ xfound
+ );
+ 
+ 307 
+ fdpid
+  = 
+ 	`ªew
+ (
+ NuΡab
+ );
+ 
+ 308 
+ pid¡©us
+  = 
+ 	`hÃw
+ (
+ COEFFSIZE
+ );
+ 
+ 310 
+ Üigfž’ame
+  = 
+ 	`§ve¡r
+ (
+ ¬gv
+ [0]);
+ 
+ 311 
+ curcmd
+ ->
+ c_fže¡ab
+  = 
+ 	`f¡ab
+ (
+ Üigfž’ame
+ );
+ 
+ 312 ià(
+ 	`¡rEQ
+ (
+ Üigfž’ame
+ ,"-"))
+ 
+ 313 
+ ¬gv
+ [0] = "";
+ 
+ 314 ià(
+ ´•roûss
+ ) {
+ 
+ 315 
+ 	`¡r_ÿt
+ (
+ ¡r
+ ,"-I");
+ 
+ 316 
+ 	`¡r_ÿt
+ (
+ ¡r
+ ,
+ PRIVLIB
+ );
+ 
+ 317 ()
+ 	`¥rštf
+ (
+ buf
+ , "\
+ %ssed %s -e '/^[^#]/b' \
+ -e '/^#[ ]*include[ ]/b' \
+ -e '/^#[ ]*define[ ]/b' \
+ -e '/^#[ ]*if[ ]/b' \
+ -e '/^#[ ]*ifdef[ ]/b' \
+ -e '/^#[ ]*ifndef[ ]/b' \
+ -e '/^#[ ]*else/b' \
+ -e '/^#[ ]*endif/b' \
+ -e 's/^#.*//' \
+ %s | %s -C %s %s",
+ 
+ 328 #ifdeà
+ MSDOS
+ 
+ 
+ 333 (
+ dÛxŒaù
+  ? "-e '1,/^#/d\n'" : ""),
+ 
+ 334 
+ ¬gv
+ [0], 
+ CPPSTDIN
+ , 
+ 	`¡r_g‘
+ (
+ ¡r
+ ), 
+ CPPMINUS
+ );
+ 
+ 335 #ifdeà
+ DEBUGGING
+ 
+ 
+ 336 ià(
+ debug
+  & 64) {
+ 
+ 337 
+ 	`åuts
+ (
+ buf
+ ,
+ ¡d”r
+ );
+ 
+ 338 
+ 	`åuts
+ ("\n",
+ ¡d”r
+ );
+ 
+ 341 
+ dÛxŒaù
+  = 
+ FALSE
+ ;
+ 
+ 342 #ifdeà
+ IAMSUID
+ 
+ 
+ 343 ià(
+ euid
+  !ð
+ uid
+  && !euid)
+ 
+ 344 #ifdeà
+ HAS_SETEUID
+ 
+ 
+ 345 ()
+ 	`£‹uid
+ (
+ uid
+ );
+ 
+ 347 #ifdeà
+ HAS_SETREUID
+ 
+ 
+ 348 ()
+ 	`£Œeuid
+ (-1, 
+ uid
+ );
+ 
+ 350 
+ 	`£tuid
+ (
+ uid
+ );
+ 
+ 354 
+ rså
+  = 
+ 	`mypݒ
+ (
+ buf
+ ,"r");
+ 
+ 356 ià(!*
+ ¬gv
+ [0])
+ 
+ 357 
+ rså
+  = 
+ ¡dš
+ ;
+ 
+ 359 
+ rså
+  = 
+ 	`fݒ
+ (
+ ¬gv
+ [0],"r");
+ 
+ 360 ià(
+ rså
+  =ð
+ NuÎå
+ ) {
+ 
+ 361 #ifdeà
+ DOSUID
+ 
+ 
+ 362 #iâdeà
+ IAMSUID
+ 
+ 
+ 363 ià(
+ euid
+  && 
+ 	`¡©
+ (
+ 	`¡ab_v®
+ (
+ curcmd
+ ->
+ c_fže¡ab
+ )->
+ ¡r_±r
+ ,&
+ ¡©buf
+ ) >= 0 &&
+ 
+ 364 
+ ¡©buf
+ .
+ ¡_mode
+  & (
+ S_ISUID
+ |
+ S_ISGID
+ )) {
+ 
+ 365 ()
+ 	`¥rštf
+ (
+ buf
+ , "%s/¥”l%s", 
+ BIN
+ , 
+ ·tchËv–
+ );
+ 
+ 366 
+ 	`execv
+ (
+ buf
+ , 
+ Üig¬gv
+ );
+ 
+ 367 
+ 	`çl
+ ("Can't do setuid\n");
+ 
+ 371 
+ 	`çl
+ ("Can't open…erl script \"%s\": %s\n",
+ 
+ 372 
+ 	`¡ab_v®
+ (
+ curcmd
+ ->
+ c_fže¡ab
+ )->
+ ¡r_±r
+ , 
+ 	`¡»¼Ü
+ (
+ Ӽo
+ ));
+ 
+ 374 
+ 	`¡r_ä“
+ (
+ ¡r
+ );
+ 
+ 375 
+ ¡r
+  = 
+ NuΡr
+ ;
+ 
+ 404 #ifdeà
+ DOSUID
+ 
+ 
+ 405 ià(
+ 	`f¡©
+ (
+ 	`fž’o
+ (
+ rså
+ ),&
+ ¡©buf
+ ) < 0)
+ 
+ 406 
+ 	`çl
+ ("Cª'ˆ¡© süˆ\"%s\"",
+ Üigfž’ame
+ );
+ 
+ 407 ià(
+ ¡©buf
+ .
+ ¡_mode
+  & (
+ S_ISUID
+ |
+ S_ISGID
+ )) {
+ 
+ 408 
+ Ën
+ ;
+ 
+ 410 #ifdeà
+ IAMSUID
+ 
+ 
+ 411 #iâdeà
+ HAS_SETREUID
+ 
+ 
+ 420 ià(
+ 	`acûss
+ (
+ 	`¡ab_v®
+ (
+ curcmd
+ ->
+ c_fže¡ab
+ )->
+ ¡r_±r
+ ,1))
+ 
+ 421 
+ 	`çl
+ ("Permission denied");
+ 
+ 429 
+ ¡©
+  
+ tmp¡©buf
+ ;
+ 
+ 431 ià(
+ 	`£Œeuid
+ (
+ euid
+ ,
+ uid
+ è< 0 || 
+ 	`g‘uid
+ (è!ðeuid || 
+ 	`g‘euid
+ () != uid)
+ 
+ 432 
+ 	`çl
+ ("Can't swap uid‡ndƒuid");
+ 
+ 433 ià(
+ 	`¡©
+ (
+ 	`¡ab_v®
+ (
+ curcmd
+ ->
+ c_fže¡ab
+ )->
+ ¡r_±r
+ ,&
+ tmp¡©buf
+ ) < 0)
+ 
+ 434 
+ 	`çl
+ ("Permission denied");
+ 
+ 435 ià(
+ tmp¡©buf
+ .
+ ¡_dev
+  !ð
+ ¡©buf
+ .st_dev ||
+ 
+ 436 
+ tmp¡©buf
+ .
+ ¡_šo
+  !ð
+ ¡©buf
+ .st_ino) {
+ 
+ 437 ()
+ 	`fþo£
+ (
+ rså
+ );
+ 
+ 438 ià(
+ rså
+  = 
+ 	`mypݒ
+ ("/bin/mail„oot","w")) {
+ 
+ 439 
+ 	`årštf
+ (
+ rså
+ ,
+ 
+ 442 
+ uid
+ ,
+ tmp¡©buf
+ .
+ ¡_dev
+ ,mp¡©buf.
+ ¡_šo
+ ,
+ 
+ 443 
+ ¡©buf
+ .
+ ¡_dev
+ , stbuf.
+ ¡_šo
+ ,
+ 
+ 444 
+ 	`¡ab_v®
+ (
+ curcmd
+ ->
+ c_fže¡ab
+ )->
+ ¡r_±r
+ ,
+ 
+ 445 
+ ¡©buf
+ .
+ ¡_uid
+ , stbuf.
+ ¡_gid
+ );
+ 
+ 446 ()
+ 	`mypþo£
+ (
+ rså
+ );
+ 
+ 448 
+ 	`çl
+ ("Permission denied\n");
+ 
+ 450 ià(
+ 	`£Œeuid
+ (
+ uid
+ ,
+ euid
+ è< 0 || 
+ 	`g‘uid
+ (è!ðuid || 
+ 	`g‘euid
+ () !=ƒuid)
+ 
+ 451 
+ 	`çl
+ ("Can't„eswap uid‡ndƒuid");
+ 
+ 452 ià(!
+ 	`ÿndo
+ (
+ S_IXUSR
+ ,
+ FALSE
+ ,&
+ ¡©buf
+ ))
+ 
+ 453 
+ 	`çl
+ ("Permission denied\n");
+ 
+ 458 ià(!
+ 	`S_ISREG
+ (
+ ¡©buf
+ .
+ ¡_mode
+ ))
+ 
+ 459 
+ 	`çl
+ ("Permission denied");
+ 
+ 460 ià(
+ ¡©buf
+ .
+ ¡_mode
+  & 
+ S_IWOTH
+ )
+ 
+ 461 
+ 	`çl
+ ("Setuid/gid script is writable by world");
+ 
+ 462 
+ dosw™ches
+  = 
+ FALSE
+ ;
+ 
+ 463 
+ curcmd
+ ->
+ c_lše
+ ++;
+ 
+ 464 ià(
+ 	`fg‘s
+ (
+ tok’buf
+ ,ok’buf, 
+ rså
+ è=ð
+ NuÎch
+  ||
+ 
+ 465 
+ 	`¡ºNE
+ (
+ tok’buf
+ ,"#!",2) )
+ 
+ 466 
+ 	`çl
+ ("No #!†ine");
+ 
+ 467 
+ s
+  = 
+ tok’buf
+ +2;
+ 
+ 468 ià(*
+ s
+  == ' ') s++;
+ 
+ 469 !
+ 	`is¥aû
+ (*
+ s
+ )) s++;
+ 
+ 470 ià(
+ 	`¡ºNE
+ (
+ s
+ -4,"perl",4) && strnNE(s-9,"perl",4))
+ 
+ 471 
+ 	`çl
+ ("Not‡…erl script");
+ 
+ 472 *
+ s
+  == ' ' || *s == '\t') s++;
+ 
+ 478 
+ Ën
+  = 
+ 	`¡¾’
+ (
+ v®id¬g
+ );
+ 
+ 479 ià(
+ 	`¡rEQ
+ (
+ v®id¬g
+ ," PHOOEY ") ||
+ 
+ 480 
+ 	`¡ºNE
+ (
+ s
+ ,
+ v®id¬g
+ ,
+ Ën
+ è|| !
+ 	`is¥aû
+ (s[len]))
+ 
+ 481 
+ 	`çl
+ ("Args must match #!†ine");
+ 
+ 483 #iâdeà
+ IAMSUID
+ 
+ 
+ 484 ià(
+ euid
+  !ð
+ uid
+  && (
+ ¡©buf
+ .
+ ¡_mode
+  & 
+ S_ISUID
+ ) &&
+ 
+ 485 
+ euid
+  =ð
+ ¡©buf
+ .
+ ¡_uid
+ )
+ 
+ 486 ià(!
+ do_undump
+ )
+ 
+ 487 
+ 	`çl
+ ("YOU HAVEN'T DISABLED SET-ID SCRIPTS IN THE KERNEL YET!\n\
+  YOUR KERNEL, PUT A C WRAPPER AROUND THIS SCRIPT, OR USE -u AND UNDUMP!\n");
+ 
+ 491 ià(
+ euid
+ ) {
+ 
+ 492 ()
+ 	`fþo£
+ (
+ rså
+ );
+ 
+ 493 #iâdeà
+ IAMSUID
+ 
+ 
+ 494 ()
+ 	`¥rštf
+ (
+ buf
+ , "%s/¥”l%s", 
+ BIN
+ , 
+ ·tchËv–
+ );
+ 
+ 495 
+ 	`execv
+ (
+ buf
+ , 
+ Üig¬gv
+ );
+ 
+ 497 
+ 	`çl
+ ("Can't do setuid\n");
+ 
+ 500 ià(
+ ¡©buf
+ .
+ ¡_mode
+  & 
+ S_ISGID
+  && stbuf.
+ ¡_gid
+  !ð
+ egid
+ )
+ 
+ 501 #ifdeà
+ HAS_SETEGID
+ 
+ 
+ 502 ()
+ 	`£‹gid
+ (
+ ¡©buf
+ .
+ ¡_gid
+ );
+ 
+ 504 #ifdeà
+ HAS_SETREGID
+ 
+ 
+ 505 ()
+ 	`£Œegid
+ ((
+ GIDTYPE
+ )-1,
+ ¡©buf
+ .
+ ¡_gid
+ );
+ 
+ 507 
+ 	`£tgid
+ (
+ ¡©buf
+ .
+ ¡_gid
+ );
+ 
+ 510 ià(
+ ¡©buf
+ .
+ ¡_mode
+  & 
+ S_ISUID
+ ) {
+ 
+ 511 ià(
+ ¡©buf
+ .
+ ¡_uid
+  !ð
+ euid
+ )
+ 
+ 512 #ifdeà
+ HAS_SETEUID
+ 
+ 
+ 513 ()
+ 	`£‹uid
+ (
+ ¡©buf
+ .
+ ¡_uid
+ );
+ 
+ 515 #ifdeà
+ HAS_SETREUID
+ 
+ 
+ 516 ()
+ 	`£Œeuid
+ ((
+ UIDTYPE
+ )-1,
+ ¡©buf
+ .
+ ¡_uid
+ );
+ 
+ 518 
+ 	`£tuid
+ (
+ ¡©buf
+ .
+ ¡_uid
+ );
+ 
+ 522 ià(
+ uid
+ )
+ 
+ 523 #ifdeà
+ HAS_SETEUID
+ 
+ 
+ 524 ()
+ 	`£‹uid
+ ((
+ UIDTYPE
+ )
+ uid
+ );
+ 
+ 526 #ifdeà
+ HAS_SETREUID
+ 
+ 
+ 527 ()
+ 	`£Œeuid
+ ((
+ UIDTYPE
+ )-1,(UIDTYPE)
+ uid
+ );
+ 
+ 529 
+ 	`£tuid
+ ((
+ UIDTYPE
+ )
+ uid
+ );
+ 
+ 532 
+ uid
+  = ()
+ 	`g‘uid
+ ();
+ 
+ 533 
+ euid
+  = ()
+ 	`g‘euid
+ ();
+ 
+ 534 
+ gid
+  = ()
+ 	`g‘gid
+ ();
+ 
+ 535 
+ egid
+  = ()
+ 	`g‘egid
+ ();
+ 
+ 536 ià(!
+ 	`ÿndo
+ (
+ S_IXUSR
+ ,
+ TRUE
+ ,&
+ ¡©buf
+ ))
+ 
+ 537 
+ 	`çl
+ ("Permission denied\n");
+ 
+ 539 #ifdeà
+ IAMSUID
+ 
+ 
+ 540 ià(
+ ´•roûss
+ )
+ 
+ 541 
+ 	`çl
+ ("-P‚ot‡llowed for setuid/setgid script\n");
+ 
+ 543 
+ 	`çl
+ ("Script is‚ot setuid/setgid in suidperl\n");
+ 
+ 545 #iâdeà
+ TAINT
+ 
+ 
+ 547 ià(
+ euid
+  !ð
+ uid
+  || 
+ egid
+  !ð
+ gid
+ ) {
+ 
+ 548 ()
+ 	`fþo£
+ (
+ rså
+ );
+ 
+ 549 ()
+ 	`¥rštf
+ (
+ buf
+ , "%s/”l%s", 
+ BIN
+ , 
+ ·tchËv–
+ );
+ 
+ 550 
+ 	`execv
+ (
+ buf
+ , 
+ Üig¬gv
+ );
+ 
+ 551 
+ 	`çl
+ ("Can't„un setuid script withaint checks");
+ 
+ 556 #iâdeà
+ TAINT
+ 
+ 
+ 557 ià(
+ euid
+  !ð
+ uid
+  || 
+ egid
+  !ð
+ gid
+ ) {
+ 
+ 558 #iâdeà
+ SETUID_SCRIPTS_ARE_SECURE_NOW
+ 
+ 
+ 559 
+ 	`f¡©
+ (
+ 	`fž’o
+ (
+ rså
+ ),&
+ ¡©buf
+ );
+ 
+ 560 ià((
+ euid
+  !ð
+ uid
+  &&ƒuid =ð
+ ¡©buf
+ .
+ ¡_uid
+  && stbuf.
+ ¡_mode
+  & 
+ S_ISUID
+ )
+ 
+ 562 (
+ egid
+  !ð
+ gid
+  &&ƒgid =ð
+ ¡©buf
+ .
+ ¡_gid
+  && stbuf.
+ ¡_mode
+  & 
+ S_ISGID
+ )
+ 
+ 564 ià(!
+ do_undump
+ )
+ 
+ 565 
+ 	`çl
+ ("YOU HAVEN'T DISABLED SET-ID SCRIPTS IN THE KERNEL YET!\n\
+  YOUR KERNEL, PUT A C WRAPPER AROUND THIS SCRIPT, OR USE -u AND UNDUMP!\n");
+ 
+ 569 ()
+ 	`fþo£
+ (
+ rså
+ );
+ 
+ 570 ()
+ 	`¥rštf
+ (
+ buf
+ , "%s/”l%s", 
+ BIN
+ , 
+ ·tchËv–
+ );
+ 
+ 571 
+ 	`execv
+ (
+ buf
+ , 
+ Üig¬gv
+ );
+ 
+ 572 
+ 	`çl
+ ("Can't„un setuid script withaint checks");
+ 
+ 577 #ià!
+ 	`defšed
+ (
+ IAMSUID
+ è&& !defšed(
+ TAINT
+ )
+ 
+ 581 
+ dÛxŒaù
+ ) {
+ 
+ 582 ià((
+ s
+  = 
+ 	`¡r_g‘s
+ (
+ lše¡r
+ , 
+ rså
+ , 0)è=ð
+ NuÎch
+ )
+ 
+ 583 
+ 	`çl
+ ("No Perl script found in input\n");
+ 
+ 584 ià(*
+ s
+  =ð'#' && s[1] =ð'!' && 
+ 	`š¡r
+ (s,"perl")) {
+ 
+ 585 
+ 	`ung‘c
+ ('\n',
+ rså
+ );
+ 
+ 586 
+ dÛxŒaù
+  = 
+ FALSE
+ ;
+ 
+ 587 ià(
+ s
+  = 
+ 	`š¡r
+ (s,"perl -")) {
+ 
+ 588 
+ s
+  += 6;
+ 
+ 589 
+ s
+  = 
+ 	`mÜesw™ches
+ (s)) ;
+ 
+ 591 ià(
+ cddœ
+  && 
+ 	`chdœ
+ (cddir) < 0)
+ 
+ 592 
+ 	`çl
+ ("Cª'ˆchdœØ%s",
+ cddœ
+ );
+ 
+ 597 
+ def¡ab
+  = 
+ 	`¡ab’t
+ ("_",
+ TRUE
+ );
+ 
+ 599 ià(
+ ³¾db
+ ) {
+ 
+ 600 
+ deb¡ash
+  = 
+ 	`hÃw
+ (0);
+ 
+ 601 
+ 	`¡ab_xhash
+ (
+ 	`¡ab’t
+ ("_DB",
+ TRUE
+ )èð
+ deb¡ash
+ ;
+ 
+ 602 
+ cur¡ash
+  = 
+ deb¡ash
+ ;
+ 
+ 603 
+ db¬gs
+  = 
+ 	`¡ab_x¬¿y
+ (
+ 	`¯dd
+ ((
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ ("¬gs",
+ TRUE
+ ))));
+ 
+ 604 
+ tmp¡ab
+ ->
+ ¡r_pok
+  |ð
+ SP_MULTI
+ ;
+ 
+ 605 
+ db¬gs
+ ->
+ ¬y_æags
+  = 0;
+ 
+ 606 
+ subÇme
+  = 
+ 	`¡r_make
+ ("main",4);
+ 
+ 607 
+ DB¡ab
+  = 
+ 	`¡ab’t
+ ("DB",
+ TRUE
+ );
+ 
+ 608 
+ DB¡ab
+ ->
+ ¡r_pok
+  |ð
+ SP_MULTI
+ ;
+ 
+ 609 
+ DBlše
+  = 
+ 	`¡ab’t
+ ("dblše",
+ TRUE
+ );
+ 
+ 610 
+ DBlše
+ ->
+ ¡r_pok
+  |ð
+ SP_MULTI
+ ;
+ 
+ 611 
+ DBsub
+  = 
+ 	`hadd
+ (
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ ("sub",
+ TRUE
+ ));
+ 
+ 612 
+ tmp¡ab
+ ->
+ ¡r_pok
+  |ð
+ SP_MULTI
+ ;
+ 
+ 613 
+ DBsšgË
+  = 
+ 	`¡ab_v®
+ ((
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ ("sšgË",
+ TRUE
+ )));
+ 
+ 614 
+ tmp¡ab
+ ->
+ ¡r_pok
+  |ð
+ SP_MULTI
+ ;
+ 
+ 615 
+ DBŒaû
+  = 
+ 	`¡ab_v®
+ ((
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ ("Œaû",
+ TRUE
+ )));
+ 
+ 616 
+ tmp¡ab
+ ->
+ ¡r_pok
+  |ð
+ SP_MULTI
+ ;
+ 
+ 617 
+ DBsigÇl
+  = 
+ 	`¡ab_v®
+ ((
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ ("sigÇl",
+ TRUE
+ )));
+ 
+ 618 
+ tmp¡ab
+ ->
+ ¡r_pok
+  |ð
+ SP_MULTI
+ ;
+ 
+ 619 
+ cur¡ash
+  = 
+ def¡ash
+ ;
+ 
+ 624 
+ buãnd
+  = 
+ buåŒ
+  = 
+ 	`¡r_g‘
+ (
+ lše¡r
+ );
+ 
+ 626 
+ §ve¡ack
+  = 
+ 	`ªew
+ (
+ NuΡab
+ );
+ 
+ 627 
+ ¡ack
+  = 
+ 	`ªew
+ (
+ NuΡab
+ );
+ 
+ 628 
+ ¡ack
+ ->
+ ¬y_æags
+  = 0;
+ 
+ 629 
+ 	`afžl
+ (
+ ¡ack
+ ,63);‡fill(stack,-1);
+ 
+ 630 
+ 	`afžl
+ (
+ §ve¡ack
+ ,63);‡fill(savestack,-1);
+ 
+ 634 
+ ”rÜ_couÁ
+  = 0;
+ 
+ 635 ià(
+ 	`yy·r£
+ (è|| 
+ ”rÜ_couÁ
+ ) {
+ 
+ 636 ià(
+ mšus_c
+ )
+ 
+ 637 
+ 	`çl
+ ("% had compž©iÚƒ¼Üs.\n", 
+ Üigfž’ame
+ );
+ 
+ 639 
+ 	`çl
+ ("Execution of %s‡borted dueo compilationƒrrors.\n",
+ 
+ 640 
+ Üigfž’ame
+ );
+ 
+ 644 
+ 	`New
+ (50,
+ loÝ_¡ack
+ ,128,
+ loÝ
+ );
+ 
+ 645 #ifdeà
+ DEBUGGING
+ 
+ 
+ 646 ià(
+ debug
+ ) {
+ 
+ 647 
+ 	`New
+ (51,
+ debÇme
+ ,128,);
+ 
+ 648 
+ 	`New
+ (52,
+ debd–im
+ ,128,);
+ 
+ 651 
+ cur¡ash
+  = 
+ def¡ash
+ ;
+ 
+ 653 
+ ´•roûss
+  = 
+ FALSE
+ ;
+ 
+ 654 ià(
+ e_å
+ ) {
+ 
+ 655 
+ e_å
+  = 
+ NuÎå
+ ;
+ 
+ 656 ()
+ 	`UNLINK
+ (
+ e_tm²ame
+ );
+ 
+ 661 ià(
+ sig¡ab
+  = 
+ 	`¡ab’t
+ ("SIG",
+ ®l¡abs
+ )) {
+ 
+ 662 
+ sig¡ab
+ ->
+ ¡r_pok
+  |ð
+ SP_MULTI
+ ;
+ 
+ 663 ()
+ 	`hadd
+ (
+ sig¡ab
+ );
+ 
+ 666 
+ 	`magiÿlize
+ ("!#?^~=-%.+&*()<>,\\/[|`':\004\t\024\027");
+ 
+ 667 
+ 	`u£rš™
+ ();
+ 
+ 669 
+ am³r¡ab
+  = 
+ 	`¡ab’t
+ ("&",
+ ®l¡abs
+ );
+ 
+ 670 
+ Ëá¡ab
+  = 
+ 	`¡ab’t
+ ("`",
+ ®l¡abs
+ );
+ 
+ 671 
+ right¡ab
+  = 
+ 	`¡ab’t
+ ("'",
+ ®l¡abs
+ );
+ 
+ 672 
+ §wam³r§nd
+  = (
+ am³r¡ab
+  || 
+ Ëá¡ab
+  || 
+ right¡ab
+ );
+ 
+ 673 ià(
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ (":",
+ ®l¡abs
+ ))
+ 
+ 674 
+ 	`¡r_£t
+ (
+ 	`STAB_STR
+ (
+ tmp¡ab
+ ),
+ chݣt
+ );
+ 
+ 675 ià(
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ ("\024",
+ ®l¡abs
+ ))
+ 
+ 676 
+ 	`time
+ (&
+ ba£time
+ );
+ 
+ 679 ià(
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ (";",
+ ®l¡abs
+ ))
+ 
+ 680 
+ 	`¡r_£t
+ (
+ 	`STAB_STR
+ (
+ tmp¡ab
+ ),"\034");
+ 
+ 681 ià(
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ ("]",
+ ®l¡abs
+ )) {
+ 
+ 682 
+ ¡r
+  = 
+ 	`STAB_STR
+ (
+ tmp¡ab
+ );
+ 
+ 683 
+ 	`¡r_£t
+ (
+ ¡r
+ ,
+ rcsid
+ );
+ 
+ 684 
+ ¡r
+ ->
+ ¡r_u
+ .
+ ¡r_nv®
+  = 
+ 	`©of
+ (
+ ·tchËv–
+ );
+ 
+ 685 
+ ¡r
+ ->
+ ¡r_nok
+  = 1;
+ 
+ 687 
+ 	`¡r_n£t
+ (
+ 	`¡ab_v®
+ (
+ 	`¡ab’t
+ ("\"", 
+ TRUE
+ )), " ", 1);
+ 
+ 689 
+ ¡dš¡ab
+  = 
+ 	`¡ab’t
+ ("STDIN",
+ TRUE
+ );
+ 
+ 690 
+ ¡dš¡ab
+ ->
+ ¡r_pok
+  |ð
+ SP_MULTI
+ ;
+ 
+ 691 
+ 	`¡ab_io
+ (
+ ¡dš¡ab
+ èð
+ 	`¡io_Ãw
+ ();
+ 
+ 692 
+ 	`¡ab_io
+ (
+ ¡dš¡ab
+ )->
+ iå
+  = 
+ ¡dš
+ ;
+ 
+ 693 
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ ("¡dš",
+ TRUE
+ );
+ 
+ 694 
+ 	`¡ab_io
+ (
+ tmp¡ab
+ èð¡ab_io(
+ ¡dš¡ab
+ );
+ 
+ 695 
+ tmp¡ab
+ ->
+ ¡r_pok
+  |ð
+ SP_MULTI
+ ;
+ 
+ 697 
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ ("STDOUT",
+ TRUE
+ );
+ 
+ 698 
+ tmp¡ab
+ ->
+ ¡r_pok
+  |ð
+ SP_MULTI
+ ;
+ 
+ 699 
+ 	`¡ab_io
+ (
+ tmp¡ab
+ èð
+ 	`¡io_Ãw
+ ();
+ 
+ 700 
+ 	`¡ab_io
+ (
+ tmp¡ab
+ )->
+ oå
+  = sb_ioÑmp¡ab)->
+ iå
+  = 
+ ¡dout
+ ;
+ 
+ 701 
+ defout¡ab
+  = 
+ tmp¡ab
+ ;
+ 
+ 702 
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ ("¡dout",
+ TRUE
+ );
+ 
+ 703 
+ 	`¡ab_io
+ (
+ tmp¡ab
+ èð¡ab_io(
+ defout¡ab
+ );
+ 
+ 704 
+ tmp¡ab
+ ->
+ ¡r_pok
+  |ð
+ SP_MULTI
+ ;
+ 
+ 706 
+ curout¡ab
+  = 
+ 	`¡ab’t
+ ("STDERR",
+ TRUE
+ );
+ 
+ 707 
+ curout¡ab
+ ->
+ ¡r_pok
+  |ð
+ SP_MULTI
+ ;
+ 
+ 708 
+ 	`¡ab_io
+ (
+ curout¡ab
+ èð
+ 	`¡io_Ãw
+ ();
+ 
+ 709 
+ 	`¡ab_io
+ (
+ curout¡ab
+ )->
+ oå
+  = sb_io(curout¡ab)->
+ iå
+  = 
+ ¡d”r
+ ;
+ 
+ 710 
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ ("¡d”r",
+ TRUE
+ );
+ 
+ 711 
+ 	`¡ab_io
+ (
+ tmp¡ab
+ èð¡ab_io(
+ curout¡ab
+ );
+ 
+ 712 
+ tmp¡ab
+ ->
+ ¡r_pok
+  |ð
+ SP_MULTI
+ ;
+ 
+ 713 
+ curout¡ab
+  = 
+ defout¡ab
+ ;
+ 
+ 715 
+ ¡©Çme
+  = 
+ 	`SŒ_Ãw
+ (66,0);
+ 
+ 719 
+ rs
+  = 
+ Äs
+ ;
+ 
+ 720 
+ r¦’
+  = 
+ Ħ’
+ ;
+ 
+ 721 
+ rsch¬
+  = 
+ Äsch¬
+ ;
+ 
+ 722 
+ 	`¡r_n£t
+ (
+ 	`¡ab_v®
+ (
+ 	`¡ab’t
+ ("/", 
+ TRUE
+ )), 
+ rs
+ , 
+ r¦’
+ );
+ 
+ 724 ià(
+ do_undump
+ )
+ 
+ 725 
+ 	`my_uÃxec
+ ();
+ 
+ 727 
+ ju¡_do™
+ :
+ 
+ 728 
+ ¬gc
+ --,
+ ¬gv
+ ++;
+ 
+ 729 ià(
+ dosw™ches
+ ) {
+ 
+ 730 ; 
+ ¬gc
+  > 0 && **
+ ¬gv
+  == '-';‡rgc--,argv++) {
+ 
+ 731 ià(
+ ¬gv
+ [0][1] == '-') {
+ 
+ 732 
+ ¬gc
+ --,
+ ¬gv
+ ++;
+ 
+ 735 ià(
+ s
+  = 
+ 	`šdex
+ (
+ ¬gv
+ [0], '=')) {
+ 
+ 736 *
+ s
+ ++ = '\0';
+ 
+ 737 
+ 	`¡r_£t
+ (
+ 	`¡ab_v®
+ (
+ 	`¡ab’t
+ (
+ ¬gv
+ [0]+1,
+ TRUE
+ )),
+ s
+ );
+ 
+ 740 
+ 	`¡r_num£t
+ (
+ 	`¡ab_v®
+ (
+ 	`¡ab’t
+ (
+ ¬gv
+ [0]+1,
+ TRUE
+ )),()1.0);
+ 
+ 743 #ifdeà
+ TAINT
+ 
+ 
+ 744 
+ š‹d
+  = 1;
+ 
+ 746 ià(
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ ("0",
+ ®l¡abs
+ )) {
+ 
+ 747 
+ 	`¡r_£t
+ (
+ 	`¡ab_v®
+ (
+ tmp¡ab
+ ),
+ Üigfž’ame
+ );
+ 
+ 748 
+ 	`magiúame
+ ("0", 
+ NuÎch
+ , 0);
+ 
+ 750 ià(
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ ("\020",
+ ®l¡abs
+ ))
+ 
+ 751 
+ 	`¡r_£t
+ (
+ 	`¡ab_v®
+ (
+ tmp¡ab
+ ),
+ Üig¬gv
+ [0]);
+ 
+ 752 ià(
+ ¬gv¡ab
+  = 
+ 	`¡ab’t
+ ("ARGV",
+ ®l¡abs
+ )) {
+ 
+ 753 
+ ¬gv¡ab
+ ->
+ ¡r_pok
+  |ð
+ SP_MULTI
+ ;
+ 
+ 754 ()
+ 	`¯dd
+ (
+ ¬gv¡ab
+ );
+ 
+ 755 
+ 	`aþ—r
+ (
+ 	`¡ab_¬¿y
+ (
+ ¬gv¡ab
+ ));
+ 
+ 756 ; 
+ ¬gc
+  > 0;‡rgc--,
+ ¬gv
+ ++) {
+ 
+ 757 ()
+ 	`­ush
+ (
+ 	`¡ab_¬¿y
+ (
+ ¬gv¡ab
+ ),
+ 	`¡r_make
+ (
+ ¬gv
+ [0],0));
+ 
+ 760 #ifdeà
+ TAINT
+ 
+ 
+ 761 (è
+ 	`¡ab’t
+ ("ENV",
+ TRUE
+ );
+ 
+ 763 ià(
+ ’v¡ab
+  = 
+ 	`¡ab’t
+ ("ENV",
+ ®l¡abs
+ )) {
+ 
+ 764 
+ ’v¡ab
+ ->
+ ¡r_pok
+  |ð
+ SP_MULTI
+ ;
+ 
+ 765 ()
+ 	`hadd
+ (
+ ’v¡ab
+ );
+ 
+ 766 
+ 	`hþ—r
+ (
+ 	`¡ab_hash
+ (
+ ’v¡ab
+ ), 
+ FALSE
+ );
+ 
+ 767 ià(
+ ’v
+  !ð
+ ’vœÚ
+ )
+ 
+ 768 
+ ’vœÚ
+ [0] = 
+ NuÎch
+ ;
+ 
+ 769 ; *
+ ’v
+ ;ƒnv++) {
+ 
+ 770 ià(!(
+ s
+  = 
+ 	`šdex
+ (*
+ ’v
+ ,'=')))
+ 
+ 772 *
+ s
+ ++ = '\0';
+ 
+ 773 
+ ¡r
+  = 
+ 	`¡r_make
+ (
+ s
+ --,0);
+ 
+ 774 
+ 	`¡r_magic
+ (
+ ¡r
+ , 
+ ’v¡ab
+ , 'E', *
+ ’v
+ , 
+ s
+  - *env);
+ 
+ 775 ()
+ 	`h¡Üe
+ (
+ 	`¡ab_hash
+ (
+ ’v¡ab
+ ), *
+ ’v
+ , 
+ s
+  - *’v, 
+ ¡r
+ , 0);
+ 
+ 776 *
+ s
+  = '=';
+ 
+ 779 #ifdeà
+ TAINT
+ 
+ 
+ 780 
+ š‹d
+  = 0;
+ 
+ 782 ià(
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ ("$",
+ ®l¡abs
+ ))
+ 
+ 783 
+ 	`¡r_num£t
+ (
+ 	`STAB_STR
+ (
+ tmp¡ab
+ ),()
+ 	`g‘pid
+ ());
+ 
+ 785 ià(
+ dow¬n
+ ) {
+ 
+ 786 
+ 	`¡ab_check
+ ('A','Z');
+ 
+ 787 
+ 	`¡ab_check
+ ('a','z');
+ 
+ 790 ià(
+ 	`£tjmp
+ (
+ tÝ_’v
+ ))
+ 
+ 791 
+ loÝ_±r
+  = -1;
+ 
+ 793 #ifdeà
+ DEBUGGING
+ 
+ 
+ 794 ià(
+ debug
+  & 1024)
+ 
+ 795 
+ 	`dump_®l
+ ();
+ 
+ 796 ià(
+ debug
+ )
+ 
+ 797 
+ 	`årštf
+ (
+ ¡d”r
+ ,"\nEXECUTING...\n\n");
+ 
+ 800 ià(
+ mšus_c
+ ) {
+ 
+ 801 
+ 	`årštf
+ (
+ ¡d”r
+ ,"% syÁax OK\n", 
+ Üigfž’ame
+ );
+ 
+ 802 
+ 	`ex™
+ (0);
+ 
+ 807 (è
+ 	`cmd_exec
+ (
+ maš_roÙ
+ ,
+ G_SCALAR
+ ,-1);
+ 
+ 809 ià(
+ gÙo_rg
+ )
+ 
+ 810 
+ 	`çl
+ ("Cª'ˆfšd†ab– \"%s\"--abÜtšg",
+ gÙo_rg
+ );
+ 
+ 811 
+ 	`ex™
+ (0);
+ 
+ 813 
+ 	}
+ }
+ 
+ 816 
+ 	$magiÿlize
+ (
+ li¡
+ )
+ 
+ 817 *
+ li¡
+ ;
+ 
+ 819 
+ sym
+ [2];
+ 
+ 821 
+ sym
+ [1] = '\0';
+ 
+ 822 *
+ sym
+  = *
+ li¡
+ ++)
+ 
+ 823 
+ 	`magiúame
+ (
+ sym
+ , 
+ NuÎch
+ , 0);
+ 
+ 824 
+ 	}
+ }
+ 
+ 827 
+ 	$magiúame
+ (
+ sym
+ ,
+ Çme
+ ,
+ ÇmËn
+ )
+ 
+ 828 *
+ sym
+ ;
+ 
+ 829 *
+ Çme
+ ;
+ 
+ 830 
+ ÇmËn
+ ;
+ 
+ 832 
+ STAB
+  *
+ ¡ab
+ ;
+ 
+ 834 ià(
+ ¡ab
+  = 
+ 	`¡ab’t
+ (
+ sym
+ ,
+ ®l¡abs
+ )) {
+ 
+ 835 
+ 	`¡ab_æags
+ (
+ ¡ab
+ èð
+ SF_VMAGIC
+ ;
+ 
+ 836 
+ 	`¡r_magic
+ (
+ 	`¡ab_v®
+ (
+ ¡ab
+ ), sb, 0, 
+ Çme
+ , 
+ ÇmËn
+ );
+ 
+ 838 
+ 	}
+ }
+ 
+ 843 
+ 	$do_ev®
+ (
+ ¡r
+ ,
+ Ýty³
+ ,
+ ¡ash
+ ,
+ gimme
+ ,
+ ¬gÏ¡
+ )
+ 
+ 844 
+ STR
+  *
+ ¡r
+ ;
+ 
+ 845 
+ Ýty³
+ ;
+ 
+ 846 
+ HASH
+  *
+ ¡ash
+ ;
+ 
+ 847 
+ gimme
+ ;
+ 
+ 848 *
+ ¬gÏ¡
+ ;
+ 
+ 850 
+ STR
+  **
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 851 
+ »tv®
+ ;
+ 
+ 852 
+ CMD
+  *
+ myroÙ
+  = 
+ NuÎcmd
+ ;
+ 
+ 853 
+ ARRAY
+  *
+ ¬
+ ;
+ 
+ 854 
+ i
+ ;
+ 
+ 855 
+ CMD
+  * 
+ VOLATILE
+  
+ Þdcurcmd
+  = 
+ curcmd
+ ;
+ 
+ 856 
+ VOLATILE
+  
+ Þdtmps_ba£
+  = 
+ tmps_ba£
+ ;
+ 
+ 857 
+ VOLATILE
+  
+ Þd§ve
+  = 
+ §ve¡ack
+ ->
+ ¬y_fžl
+ ;
+ 
+ 858 
+ VOLATILE
+  
+ Þd³¾db
+  = 
+ ³¾db
+ ;
+ 
+ 859 
+ SPAT
+  * 
+ VOLATILE
+  
+ Þd¥©
+  = 
+ cur¥©
+ ;
+ 
+ 860 
+ SPAT
+  * 
+ VOLATILE
+  
+ Þdl¥©
+  = 
+ Ï¡¥©
+ ;
+ 
+ 861 *
+ Ï¡_ev®
+  = 
+ NuÎch
+ ;
+ 
+ 862 
+ CMD
+  *
+ Ï¡_roÙ
+  = 
+ NuÎcmd
+ ;
+ 
+ 863 
+ VOLATILE
+  
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 864 *
+ ¥ecfž’ame
+ ;
+ 
+ 865 *
+ tmpfž’ame
+ ;
+ 
+ 866 
+ ·rsšg
+  = 1;
+ 
+ 868 
+ tmps_ba£
+  = 
+ tmps_max
+ ;
+ 
+ 869 ià(
+ cur¡ash
+  !ð
+ ¡ash
+ ) {
+ 
+ 870 ()
+ 	`§veh±r
+ (&
+ cur¡ash
+ );
+ 
+ 871 
+ cur¡ash
+  = 
+ ¡ash
+ ;
+ 
+ 873 
+ 	`¡r_£t
+ (
+ 	`¡ab_v®
+ (
+ 	`¡ab’t
+ ("@",
+ TRUE
+ )),"");
+ 
+ 874 ià(
+ curcmd
+ ->
+ c_lše
+  == 0)
+ 
+ 875 
+ ³¾db
+  = 
+ FALSE
+ ;
+ 
+ 876 
+ curcmd
+  = &
+ compžšg
+ ;
+ 
+ 877 ià(
+ Ýty³
+  =ð
+ O_EVAL
+ ) {
+ 
+ 878 
+ curcmd
+ ->
+ c_fže¡ab
+  = 
+ 	`f¡ab
+ ("(eval)");
+ 
+ 879 
+ curcmd
+ ->
+ c_lše
+  = 1;
+ 
+ 880 
+ 	`¡r_s£t
+ (
+ lše¡r
+ ,
+ ¡r
+ );
+ 
+ 881 
+ 	`¡r_ÿt
+ (
+ lše¡r
+ ,";");
+ 
+ 884 ià(
+ Ï¡_roÙ
+  && !
+ š_ev®
+ ) {
+ 
+ 885 
+ 	`Saãä“
+ (
+ Ï¡_ev®
+ );
+ 
+ 886 
+ Ï¡_ev®
+  = 
+ NuÎch
+ ;
+ 
+ 887 
+ 	`cmd_ä“
+ (
+ Ï¡_roÙ
+ );
+ 
+ 888 
+ Ï¡_roÙ
+  = 
+ NuÎcmd
+ ;
+ 
+ 890 
+ ¥ecfž’ame
+  = 
+ 	`¡r_g‘
+ (
+ ¡r
+ );
+ 
+ 891 
+ 	`¡r_£t
+ (
+ lše¡r
+ ,"");
+ 
+ 892 ià(
+ Ýty³
+  =ð
+ O_REQUIRE
+  && &
+ ¡r_undef
+  !=
+ 
+ 893 
+ 	`hãtch
+ (
+ 	`¡ab_hash
+ (
+ šc¡ab
+ ), 
+ ¥ecfž’ame
+ , 
+ 	`¡¾’
+ (specfilename), 0)) {
+ 
+ 894 
+ curcmd
+  = 
+ Þdcurcmd
+ ;
+ 
+ 895 
+ tmps_ba£
+  = 
+ Þdtmps_ba£
+ ;
+ 
+ 896 
+ ¡
+ [++
+ ¥
+ ] = &
+ ¡r_yes
+ ;
+ 
+ 897 
+ ³¾db
+  = 
+ Þd³¾db
+ ;
+ 
+ 898  
+ ¥
+ ;
+ 
+ 900 
+ tmpfž’ame
+  = 
+ 	`§ve¡r
+ (
+ ¥ecfž’ame
+ );
+ 
+ 901 ià(
+ 	`šdex
+ ("/.", *
+ tmpfž’ame
+ ))
+ 
+ 902 
+ rså
+  = 
+ 	`fݒ
+ (
+ tmpfž’ame
+ ,"r");
+ 
+ 904 
+ ¬
+  = 
+ 	`¡ab_¬¿y
+ (
+ šc¡ab
+ );
+ 
+ 905 
+ i
+  = 0; i <ð
+ ¬
+ ->
+ ¬y_fžl
+ ; i++) {
+ 
+ 906 ()
+ 	`¥rštf
+ (
+ buf
+ , "%s/%s",
+ 
+ 907 
+ 	`¡r_g‘
+ (
+ 	`aãtch
+ (
+ ¬
+ ,
+ i
+ ,
+ TRUE
+ )), 
+ ¥ecfž’ame
+ );
+ 
+ 908 
+ rså
+  = 
+ 	`fݒ
+ (
+ buf
+ ,"r");
+ 
+ 909 ià(
+ rså
+ ) {
+ 
+ 910 *
+ s
+  = 
+ buf
+ ;
+ 
+ 912 ià(*
+ s
+  == '.' && s[1] == '/')
+ 
+ 913 
+ s
+  += 2;
+ 
+ 914 
+ 	`Saãä“
+ (
+ tmpfž’ame
+ );
+ 
+ 915 
+ tmpfž’ame
+  = 
+ 	`§ve¡r
+ (
+ s
+ );
+ 
+ 920 
+ curcmd
+ ->
+ c_fže¡ab
+  = 
+ 	`f¡ab
+ (
+ tmpfž’ame
+ );
+ 
+ 921 
+ 	`Saãä“
+ (
+ tmpfž’ame
+ );
+ 
+ 922 
+ tmpfž’ame
+  = 
+ NuÎch
+ ;
+ 
+ 923 ià(!
+ rså
+ ) {
+ 
+ 924 
+ curcmd
+  = 
+ Þdcurcmd
+ ;
+ 
+ 925 
+ tmps_ba£
+  = 
+ Þdtmps_ba£
+ ;
+ 
+ 926 ià(
+ Ýty³
+  =ð
+ O_REQUIRE
+ ) {
+ 
+ 927 
+ 	`¥rštf
+ (
+ tok’buf
+ ,"Cª'ˆloÿ‹ % š @INC", 
+ ¥ecfž’ame
+ );
+ 
+ 928 ià(
+ 	`š¡r
+ (
+ tok’buf
+ ,".h "))
+ 
+ 929 
+ 	`¡rÿt
+ (
+ tok’buf
+ ," (change .ho .ph maybe?)");
+ 
+ 930 ià(
+ 	`š¡r
+ (
+ tok’buf
+ ,".ph "))
+ 
+ 931 
+ 	`¡rÿt
+ (
+ tok’buf
+ ," (did you„un h2ph?)");
+ 
+ 932 
+ 	`çl
+ ("%s",
+ tok’buf
+ );
+ 
+ 934 ià(
+ gimme
+  !ð
+ G_ARRAY
+ )
+ 
+ 935 
+ ¡
+ [++
+ ¥
+ ] = &
+ ¡r_undef
+ ;
+ 
+ 936 
+ ³¾db
+  = 
+ Þd³¾db
+ ;
+ 
+ 937  
+ ¥
+ ;
+ 
+ 939 
+ curcmd
+ ->
+ c_lše
+  = 0;
+ 
+ 941 
+ š_ev®
+ ++;
+ 
+ 942 
+ ÞdÞdbuåŒ
+  = 
+ ÞdbuåŒ
+  = 
+ buåŒ
+  = 
+ 	`¡r_g‘
+ (
+ lše¡r
+ );
+ 
+ 943 
+ buãnd
+  = 
+ buåŒ
+  + 
+ lše¡r
+ ->
+ ¡r_cur
+ ;
+ 
+ 944 ià(++
+ loÝ_±r
+  >ð
+ loÝ_max
+ ) {
+ 
+ 945 
+ loÝ_max
+  += 128;
+ 
+ 946 
+ 	`R’ew
+ (
+ loÝ_¡ack
+ , 
+ loÝ_max
+ , 
+ loÝ
+ );
+ 
+ 948 
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_Ïb–
+  = "_EVAL_";
+ 
+ 949 
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_¥
+  = 
+ ¥
+ ;
+ 
+ 950 #ifdeà
+ DEBUGGING
+ 
+ 
+ 951 ià(
+ debug
+  & 4) {
+ 
+ 952 
+ 	`deb
+ ("(Pushšg†ab– #%d _EVAL_)\n", 
+ loÝ_±r
+ );
+ 
+ 955 
+ ev®_roÙ
+  = 
+ NuÎcmd
+ ;
+ 
+ 956 ià(
+ 	`£tjmp
+ (
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_’v
+ )) {
+ 
+ 957 
+ »tv®
+  = 1;
+ 
+ 960 
+ ”rÜ_couÁ
+  = 0;
+ 
+ 961 ià(
+ rså
+ ) {
+ 
+ 962 
+ »tv®
+  = 
+ 	`yy·r£
+ ();
+ 
+ 963 
+ »tv®
+  |ð
+ ”rÜ_couÁ
+ ;
+ 
+ 965 ià(
+ Ï¡_roÙ
+  && *
+ buåŒ
+  =ð*
+ Ï¡_ev®
+  && 
+ 	`¡rEQ
+ (bufptr,last_eval)){
+ 
+ 966 
+ »tv®
+  = 0;
+ 
+ 967 
+ ev®_roÙ
+  = 
+ Ï¡_roÙ
+ ;
+ 
+ 969 ià(
+ š_ev®
+  == 1) {
+ 
+ 970 ià(
+ Ï¡_roÙ
+ ) {
+ 
+ 971 
+ 	`Saãä“
+ (
+ Ï¡_ev®
+ );
+ 
+ 972 
+ Ï¡_ev®
+  = 
+ NuÎch
+ ;
+ 
+ 973 
+ 	`cmd_ä“
+ (
+ Ï¡_roÙ
+ );
+ 
+ 975 
+ Ï¡_roÙ
+  = 
+ NuÎcmd
+ ;
+ 
+ 976 
+ Ï¡_ev®
+  = 
+ 	`§ve¡r
+ (
+ buåŒ
+ );
+ 
+ 977 
+ »tv®
+  = 
+ 	`yy·r£
+ ();
+ 
+ 978 
+ »tv®
+  |ð
+ ”rÜ_couÁ
+ ;
+ 
+ 979 ià(!
+ »tv®
+ )
+ 
+ 980 
+ Ï¡_roÙ
+  = 
+ ev®_roÙ
+ ;
+ 
+ 981 ià(!
+ Ï¡_roÙ
+ ) {
+ 
+ 982 
+ 	`Saãä“
+ (
+ Ï¡_ev®
+ );
+ 
+ 983 
+ Ï¡_ev®
+  = 
+ NuÎch
+ ;
+ 
+ 987 
+ »tv®
+  = 
+ 	`yy·r£
+ ();
+ 
+ 989 
+ myroÙ
+  = 
+ ev®_roÙ
+ ;
+ 
+ 991 ià(
+ »tv®
+ ) {
+ 
+ 992 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 993 
+ ¥
+  = 
+ ¬gÏ¡
+ [0];
+ 
+ 994 ià(
+ gimme
+  !ð
+ G_ARRAY
+ )
+ 
+ 995 
+ ¡
+ [++
+ ¥
+ ] = &
+ ¡r_undef
+ ;
+ 
+ 996 ià(
+ ·rsšg
+ ) {
+ 
+ 997 #iâdeà
+ MANGLEDPARSE
+ 
+ 
+ 998 #ifdeà
+ DEBUGGING
+ 
+ 
+ 999 ià(
+ debug
+  & 128)
+ 
+ 1000 
+ 	`årštf
+ (
+ ¡d”r
+ ,"F»ešgƒv®_roÙ %lx\n",()
+ ev®_roÙ
+ );
+ 
+ 1002 
+ 	`cmd_ä“
+ (
+ ev®_roÙ
+ );
+ 
+ 1004 ià(
+ ev®_roÙ
+  =ð
+ Ï¡_roÙ
+ )
+ 
+ 1005 
+ Ï¡_roÙ
+  = 
+ NuÎcmd
+ ;
+ 
+ 1006 
+ ev®_roÙ
+  = 
+ myroÙ
+  = 
+ NuÎcmd
+ ;
+ 
+ 1008 ià(
+ rså
+ ) {
+ 
+ 1009 
+ 	`fþo£
+ (
+ rså
+ );
+ 
+ 1010 
+ rså
+  = 0;
+ 
+ 1014 
+ ·rsšg
+  = 0;
+ 
+ 1015 
+ ¥
+  = 
+ 	`cmd_exec
+ (
+ ev®_roÙ
+ ,
+ gimme
+ ,sp);
+ 
+ 1016 
+ ¡
+  = 
+ ¡ack
+ ->
+ ¬y_¬¿y
+ ;
+ 
+ 1017 
+ i
+  = 
+ ¬gÏ¡
+ [0] + 1; i <ð
+ ¥
+ ; i++)
+ 
+ 1018 
+ ¡
+ [
+ i
+ ] = 
+ 	`¡r_m܏l
+ (st[i]);
+ 
+ 1020 ià(
+ š_ev®
+  !ð1 && 
+ myroÙ
+  !ð
+ Ï¡_roÙ
+ )
+ 
+ 1021 
+ 	`cmd_ä“
+ (
+ myroÙ
+ );
+ 
+ 1024 
+ ³¾db
+  = 
+ Þd³¾db
+ ;
+ 
+ 1025 
+ š_ev®
+ --;
+ 
+ 1026 #ifdeà
+ DEBUGGING
+ 
+ 
+ 1027 ià(
+ debug
+  & 4) {
+ 
+ 1028 *
+ tmps
+  = 
+ loÝ_¡ack
+ [
+ loÝ_±r
+ ].
+ loÝ_Ïb–
+ ;
+ 
+ 1029 
+ 	`deb
+ ("(PÝpšg†ab– #%d %s)\n",
+ loÝ_±r
+ ,
+ 
+ 1030 
+ tmps
+  ?mps : "" );
+ 
+ 1033 
+ loÝ_±r
+ --;
+ 
+ 1034 
+ tmps_ba£
+  = 
+ Þdtmps_ba£
+ ;
+ 
+ 1035 
+ cur¥©
+  = 
+ Þd¥©
+ ;
+ 
+ 1036 
+ Ï¡¥©
+  = 
+ Þdl¥©
+ ;
+ 
+ 1037 ià(
+ §ve¡ack
+ ->
+ ¬y_fžl
+  > 
+ Þd§ve
+ )
+ 
+ 1038 
+ 	`»¡Ü–i¡
+ (
+ Þd§ve
+ );
+ 
+ 1040 ià(
+ Ýty³
+  !ð
+ O_EVAL
+ ) {
+ 
+ 1041 ià(
+ »tv®
+ ) {
+ 
+ 1042 ià(
+ Ýty³
+  =ð
+ O_REQUIRE
+ )
+ 
+ 1043 
+ 	`çl
+ ("%s", 
+ 	`¡r_g‘
+ (
+ 	`¡ab_v®
+ (
+ 	`¡ab’t
+ ("@",
+ TRUE
+ ))));
+ 
+ 1046 
+ curcmd
+  = 
+ Þdcurcmd
+ ;
+ 
+ 1047 ià(
+ gimme
+  =ð
+ G_SCALAR
+  ? 
+ 	`¡r_Œue
+ (
+ ¡
+ [
+ ¥
+ ]è: s°> 
+ ¬gÏ¡
+ [0]) {
+ 
+ 1048 ()
+ 	`h¡Üe
+ (
+ 	`¡ab_hash
+ (
+ šc¡ab
+ ), 
+ ¥ecfž’ame
+ ,
+ 
+ 1049 
+ 	`¡¾’
+ (
+ ¥ecfž’ame
+ ), 
+ 	`¡r_smake
+ (
+ 	`¡ab_v®
+ (
+ curcmd
+ ->
+ c_fže¡ab
+ )),
+ 
+ 1052 ià(
+ Ýty³
+  =ð
+ O_REQUIRE
+ )
+ 
+ 1053 
+ 	`çl
+ ("% did‚Ù„‘uº‡ruv®ue", 
+ ¥ecfž’ame
+ );
+ 
+ 1056 
+ curcmd
+  = 
+ Þdcurcmd
+ ;
+ 
+ 1057  
+ ¥
+ ;
+ 
+ 1058 
+ 	}
+ }
+ 
+ 1063 
+ 	$mÜesw™ches
+ (
+ s
+ )
+ 
+ 1064 *
+ s
+ ;
+ 
+ 1066 
+ numËn
+ ;
+ 
+ 1068 
+ »sw™ch
+ :
+ 
+ 1069 *
+ s
+ ) {
+ 
+ 1071 
+ Äsch¬
+  = 
+ 	`sÿnoù
+ (
+ s
+ , 4, &
+ numËn
+ );
+ 
+ 1072 
+ Äs
+  = 
+ 	`n§ve¡r
+ ("\n",1);
+ 
+ 1073 *
+ Äs
+  = 
+ Äsch¬
+ ;
+ 
+ 1074 ià(
+ Äsch¬
+  > 0377) {
+ 
+ 1075 
+ Ħ’
+  = 0;
+ 
+ 1076 
+ Äs
+  = "";
+ 
+ 1078 ià(!
+ Äsch¬
+  && 
+ numËn
+  >= 2) {
+ 
+ 1079 
+ Ħ’
+  = 2;
+ 
+ 1080 
+ Äs
+  = "\n\n";
+ 
+ 1081 
+ Äsch¬
+  = '\n';
+ 
+ 1083  
+ s
+  + 
+ numËn
+ ;
+ 
+ 1085 
+ mšus_a
+  = 
+ TRUE
+ ;
+ 
+ 1086 
+ s
+ ++;
+ 
+ 1087  
+ s
+ ;
+ 
+ 1089 
+ mšus_c
+  = 
+ TRUE
+ ;
+ 
+ 1090 
+ s
+ ++;
+ 
+ 1091  
+ s
+ ;
+ 
+ 1093 #ifdeà
+ TAINT
+ 
+ 
+ 1094 ià(
+ euid
+  !ð
+ uid
+  || 
+ egid
+  !ð
+ gid
+ )
+ 
+ 1095 
+ 	`çl
+ ("No -d‡llowed in setuid scripts");
+ 
+ 1097 
+ ³¾db
+  = 
+ TRUE
+ ;
+ 
+ 1098 
+ s
+ ++;
+ 
+ 1099  
+ s
+ ;
+ 
+ 1101 #ifdeà
+ DEBUGGING
+ 
+ 
+ 1102 #ifdeà
+ TAINT
+ 
+ 
+ 1103 ià(
+ euid
+  !ð
+ uid
+  || 
+ egid
+  !ð
+ gid
+ )
+ 
+ 1104 
+ 	`çl
+ ("No -D‡llowed in setuid scripts");
+ 
+ 1106 
+ debug
+  = 
+ 	`©oi
+ (
+ s
+ +1) | 32768;
+ 
+ 1108 
+ 	`w¬n
+ ("Recompile…erl with -DDEBUGGINGo use -D switch\n");
+ 
+ 1110 
+ s
+ ++; 
+ 	`isdig™
+ (*s); s++) ;
+ 
+ 1111  
+ s
+ ;
+ 
+ 1113 
+ š¶aû
+  = 
+ 	`§ve¡r
+ (
+ s
+ +1);
+ 
+ 1114 
+ s
+  = 
+ š¶aû
+ ; * && !
+ 	`is¥aû
+ (*s); s++) ;
+ 
+ 1115 *
+ s
+  = '\0';
+ 
+ 1118 #ifdeà
+ TAINT
+ 
+ 
+ 1119 ià(
+ euid
+  !ð
+ uid
+  || 
+ egid
+  !ð
+ gid
+ )
+ 
+ 1120 
+ 	`çl
+ ("No -I‡llowed in setuid scripts");
+ 
+ 1122 ià(*++
+ s
+ ) {
+ 
+ 1123 ()
+ 	`­ush
+ (
+ 	`¡ab_¬¿y
+ (
+ šc¡ab
+ ),
+ 	`¡r_make
+ (
+ s
+ ,0));
+ 
+ 1126 
+ 	`çl
+ ("No space‡llowed‡fter -I");
+ 
+ 1129 
+ mšus_l
+  = 
+ TRUE
+ ;
+ 
+ 1130 
+ s
+ ++;
+ 
+ 1131 ià(
+ 	`isdig™
+ (*
+ s
+ )) {
+ 
+ 1132 
+ Üs
+  = 
+ 	`§ve¡r
+ ("\n");
+ 
+ 1133 
+ ܦ’
+  = 1;
+ 
+ 1134 *
+ Üs
+  = 
+ 	`sÿnoù
+ (
+ s
+ , 3 + (* =ð'0'), &
+ numËn
+ );
+ 
+ 1135 
+ s
+  +ð
+ numËn
+ ;
+ 
+ 1138 
+ Üs
+  = 
+ 	`n§ve¡r
+ (
+ Äs
+ ,
+ Ħ’
+ );
+ 
+ 1139 
+ ܦ’
+  = 
+ Ħ’
+ ;
+ 
+ 1141  
+ s
+ ;
+ 
+ 1143 
+ mšus_n
+  = 
+ TRUE
+ ;
+ 
+ 1144 
+ s
+ ++;
+ 
+ 1145  
+ s
+ ;
+ 
+ 1147 
+ mšus_p
+  = 
+ TRUE
+ ;
+ 
+ 1148 
+ s
+ ++;
+ 
+ 1149  
+ s
+ ;
+ 
+ 1151 
+ do_undump
+  = 
+ TRUE
+ ;
+ 
+ 1152 
+ s
+ ++;
+ 
+ 1153  
+ s
+ ;
+ 
+ 1155 
+ un§ã
+  = 
+ TRUE
+ ;
+ 
+ 1156 
+ s
+ ++;
+ 
+ 1157  
+ s
+ ;
+ 
+ 1159 
+ 	`åuts
+ ("\nThi i ³¾, v”siÚ 4.0\n\n",
+ ¡dout
+ );
+ 
+ 1160 
+ 	`åuts
+ (
+ rcsid
+ ,
+ ¡dout
+ );
+ 
+ 1161 
+ 	`åuts
+ ("\nCÝyrighˆ(cè1989, 1990, 1991, L¬ry W®l\n",
+ ¡dout
+ );
+ 
+ 1162 #ifdeà
+ MSDOS
+ 
+ 
+ 1163 
+ 	`åuts
+ ("MS-DOS…ort Copyright (c) 1989, 1990, Diomidis Spinellis\n",
+ 
+ 1164 
+ ¡dout
+ );
+ 
+ 1165 #ifdeà
+ OS2
+ 
+ 
+ 1166 
+ 	`åuts
+ ("OS/2…ort Copyright (c) 1990, Raymond Chen, Kai Uwe Rommel\n",
+ 
+ 1167 
+ ¡dout
+ );
+ 
+ 1170 
+ 	`åuts
+ ("\n\
+  may bcÝ›d oÆy und”h‹rm oàthGNU G’”® PubliøLiûn£,\n\
+  cÝy oàwhich cª bfound w™hhP”È4.0 di¡ributiÚ k™.\n",
+ ¡dout
+ );
+ 
+ 1173 #ifdeà
+ MSDOS
+ 
+ 
+ 1174 
+ 	`u§ge
+ (
+ Üig¬gv
+ [0]);
+ 
+ 1176 
+ 	`ex™
+ (0);
+ 
+ 1178 
+ dow¬n
+  = 
+ TRUE
+ ;
+ 
+ 1179 
+ s
+ ++;
+ 
+ 1180  
+ s
+ ;
+ 
+ 1186 
+ 	`çl
+ ("Sw™ch m—nšgËs aá” -x: -%s",
+ s
+ );
+ 
+ 1188  
+ NuÎch
+ ;
+ 
+ 1189 
+ 	}
+ }
+ 
+ 1195 
+ 	$my_uÃxec
+ ()
+ 
+ 1197 #ifdeà
+ UNEXEC
+ 
+ 
+ 1198 
+ ¡©us
+ ;
+ 
+ 1199 

+ ‘ext
+ ;
+ 
+ 1200 
+ dum²ame
+ [
+ BUFSIZ
+ ];
+ 
+ 1201 
+ ³¾·th
+ [256];
+ 
+ 1203 
+ 	`¥rštf
+  (
+ dum²ame
+ , "%s.³¾dump", 
+ Üigfž’ame
+ );
+ 
+ 1204 
+ 	`¥rštf
+  (
+ ³¾·th
+ , "%s/³¾", 
+ BIN
+ );
+ 
+ 1206 
+ ¡©us
+  = 
+ 	`uÃxec
+ (
+ dum²ame
+ , 
+ ³¾·th
+ , &
+ ‘ext
+ , 
+ 	`sbrk
+ (0), 0);
+ 
+ 1207 ià(
+ ¡©us
+ )
+ 
+ 1208 
+ 	`årštf
+ (
+ ¡d”r
+ , "uÃxeøoà% štØ% çžed!\n", 
+ ³¾·th
+ , 
+ dum²ame
+ );
+ 
+ 1209 
+ 	`ex™
+ (
+ ¡©us
+ );
+ 
+ 1211 #iâdeà
+ SIGABRT
+ 
+ 
+ 1212 
+ 	#SIGABRT
+  
+ SIGILL
+ 
+ 
+ 	)
+ 
+ 1214 #iâdeà
+ SIGILL
+ 
+ 
+ 1215 
+ 	#SIGILL
+  6
+ 
+ 	)
+ 
+ 1217 
+ 	`kžl
+ (
+ 	`g‘pid
+ (),
+ SIGABRT
+ );
+ 
+ 1219 
+ 	}
+ }
+ 
+ 	@perl.h
+ 
+ 17 
+ 	#VOIDWANT
+  1
+ 
+ 	)
+ 
+ 18 
+ 	~"cÚfig.h
+ "
+ 
+ 20 #ifdeà
+ MSDOS
+ 
+ 
+ 30 
+ 	#HAS_ALARM
+ 
+ 
+ 	)
+ 
+ 31 
+ 	#HAS_CHOWN
+ 
+ 
+ 	)
+ 
+ 32 
+ 	#HAS_CHROOT
+ 
+ 
+ 	)
+ 
+ 33 
+ 	#HAS_FORK
+ 
+ 
+ 	)
+ 
+ 34 
+ 	#HAS_GETLOGIN
+ 
+ 
+ 	)
+ 
+ 35 
+ 	#HAS_GETPPID
+ 
+ 
+ 	)
+ 
+ 36 
+ 	#HAS_KILL
+ 
+ 
+ 	)
+ 
+ 37 
+ 	#HAS_LINK
+ 
+ 
+ 	)
+ 
+ 38 
+ 	#HAS_PIPE
+ 
+ 
+ 	)
+ 
+ 39 
+ 	#HAS_WAIT
+ 
+ 
+ 	)
+ 
+ 40 
+ 	#HAS_UMASK
+ 
+ 
+ 	)
+ 
+ 45 
+ 	#HAS_GROUP
+ 
+ 
+ 	)
+ 
+ 46 
+ 	#HAS_PASSWD
+ 
+ 
+ 	)
+ 
+ 50 #ià
+ defšed
+ (
+ HASVOLATILE
+ è|| defšed(
+ __STDC__
+ )
+ 
+ 51 
+ 	#VOLATILE
+  vÞ©že
+ 
+ 	)
+ 
+ 53 
+ 	#VOLATILE
+ 
+ 
+ 	)
+ 
+ 56 #ifdeà
+ IAMSUID
+ 
+ 
+ 57 #iâdeà
+ TAINT
+ 
+ 
+ 58 
+ 	#TAINT
+ 
+ 
+ 	)
+ 
+ 62 #iâdeà
+ HAS_VFORK
+ 
+ 
+ 63 
+ 	#vfÜk
+  
+ fÜk
+ 
+ 
+ 	)
+ 
+ 66 #ifdeà
+ HAS_GETPGRP2
+ 
+ 
+ 67 #iâdeà
+ HAS_GETPGRP
+ 
+ 
+ 68 
+ 	#HAS_GETPGRP
+ 
+ 
+ 	)
+ 
+ 70 
+ 	#g‘pg½
+  
+ g‘pg½2
+ 
+ 
+ 	)
+ 
+ 73 #ifdeà
+ HAS_SETPGRP2
+ 
+ 
+ 74 #iâdeà
+ HAS_SETPGRP
+ 
+ 
+ 75 
+ 	#HAS_SETPGRP
+ 
+ 
+ 	)
+ 
+ 77 
+ 	#£g½
+  
+ £g½2
+ 
+ 
+ 	)
+ 
+ 80 
+ 	~<¡dio.h
+ >
+ 
+ 81 
+ 	~<ùy³.h
+ >
+ 
+ 82 
+ 	~<£tjmp.h
+ >
+ 
+ 83 #iâdeà
+ MSDOS
+ 
+ 
+ 84 
+ 	~<sys/·¿m.h
+ >
+ 
+ 86 #ifdeà
+ __STDC__
+ 
+ 
+ 89 
+ 	~<¡ršg.h
+ >
+ 
+ 92 #ià
+ defšed
+ (
+ HAS_MEMCMP
+ è&& defšed(
+ ms
+ è&& 
+ BYTEORDER
+  == 0x1234
+ 
+ 93 #undeà
+ HAS_MEMCMP
+ 
+ 
+ 96 #ifdeà
+ HAS_MEMCPY
+ 
+ 
+ 98 #iâdeà
+ __STDC__
+ 
+ 
+ 99 #iâdeà
+ memýy
+ 
+ 
+ 100 
* 
+ memýy
+ (), *
+ mem£t
+ ();
+ 
+ 101 

+ memcmp
+ ();
+ 
+ 105 
+ 	#bcÝy
+ (
+ s1
+ ,
+ s2
+ ,
+ l
+ è
+ 	`memýy
+ (s2,s1,l)
+ 
+ 	)
+ 
+ 106 
+ 	#bz”o
+ (
+ s
+ ,
+ l
+ è
+ 	`mem£t
+ (s,0,l)
+ 
+ 	)
+ 
+ 109 #iâdeà
+ HAS_BCMP
+ 
+ 
+ 110 
+ 	#bcmp
+ (
+ s1
+ ,
+ s2
+ ,
+ l
+ è
+ 	`memcmp
+ (s1,s2,l)
+ 
+ 	)
+ 
+ 113 #iâdeà
+ _TYPES_
+ 
+ 
+ 114 #iâdeà
+ majÜ
+ 
+ 
+ 115 
+ 	~<sys/ty³s.h
+ >
+ 
+ 119 #ifdeà
+ I_NETINET_IN
+ 
+ 
+ 120 
+ 	~<Ãtš‘/š.h
+ >
+ 
+ 123 
+ 	~<sys/¡©.h
+ >
+ 
+ 125 #ifdeà
+ I_TIME
+ 
+ 
+ 126 
+ 	~<time.h
+ >
+ 
+ 129 #ifdeà
+ I_SYS_TIME
+ 
+ 
+ 130 #ifdeà
+ SYSTIMEKERNEL
+ 
+ 
+ 131 
+ 	#KERNEL
+ 
+ 
+ 	)
+ 
+ 133 
+ 	~<sys/time.h
+ >
+ 
+ 134 #ifdeà
+ SYSTIMEKERNEL
+ 
+ 
+ 135 #undeà
+ KERNEL
+ 
+ 
+ 139 #iâdeà
+ MSDOS
+ 
+ 
+ 140 
+ 	~<sys/times.h
+ >
+ 
+ 143 #ià
+ defšed
+ (
+ HAS_STRERROR
+ è&& (!defšed(
+ HAS_MKDIR
+ è|| !defšed(
+ HAS_RMDIR
+ ))
+ 
+ 144 #undeà
+ HAS_STRERROR
+ 
+ 
+ 147 
+ 	~<Ӽo.h
+ >
+ 
+ 148 #iâdeà
+ MSDOS
+ 
+ 
+ 149 #iâdeà
+ Ӽo
+ 
+ 
+ 150 

+ Ӽo
+ ;
+ 
+ 154 #iâdeà
+ ¡»¼Ü
+ 
+ 
+ 155 #ifdeà
+ HAS_STRERROR
+ 
+ 
+ 156 *
+ ¡»¼Ü
+ ();
+ 
+ 158 

+ sys_ü
+ ;
+ 
+ 159 
*
+ sys_”¾i¡
+ [];
+ 
+ 160 
+ 	#¡»¼Ü
+ (
+ e
+ è(Óè< 0 || (eè>ð
+ sys_ü
+  ? "(unknown)" : 
+ sys_”¾i¡
+ [e])
+ 
+ 	)
+ 
+ 164 #ifdeà
+ I_SYSIOCTL
+ 
+ 
+ 165 #iâdeà
+ _IOCTL_
+ 
+ 
+ 166 
+ 	~<sys/ioùl.h
+ >
+ 
+ 170 #ià
+ defšed
+ (
+ mc300
+ è|| defšed(
+ mc500
+ è|| defšed(
+ mc700
+ )
+ 
+ 171 #ifdeà
+ HAS_SOCKETPAIR
+ 
+ 
+ 172 #undeà
+ HAS_SOCKETPAIR
+ 
+ 
+ 174 #ifdeà
+ HAS_NDBM
+ 
+ 
+ 175 #undeà
+ HAS_NDBM
+ 
+ 
+ 179 #ifdeà
+ HAS_GDBM
+ 
+ 
+ 180 #ifdeà
+ I_GDBM
+ 
+ 
+ 181 
+ 	~<gdbm.h
+ >
+ 
+ 183 
+ 	#SOME_DBM
+ 
+ 
+ 	)
+ 
+ 184 #ifdeà
+ HAS_NDBM
+ 
+ 
+ 185 #undeà
+ HAS_NDBM
+ 
+ 
+ 187 #ifdeà
+ HAS_ODBM
+ 
+ 
+ 188 #undeà
+ HAS_ODBM
+ 
+ 
+ 191 #ifdeà
+ HAS_NDBM
+ 
+ 
+ 192 
+ 	~<ndbm.h
+ >
+ 
+ 193 
+ 	#SOME_DBM
+ 
+ 
+ 	)
+ 
+ 194 #ifdeà
+ HAS_ODBM
+ 
+ 
+ 195 #undeà
+ HAS_ODBM
+ 
+ 
+ 198 #ifdeà
+ HAS_ODBM
+ 
+ 
+ 199 #ifdeà
+ NULL
+ 
+ 
+ 200 #undeà
+ NULL
+ 
+ 
+ 202 
+ 	~<dbm.h
+ >
+ 
+ 203 #ifdeà
+ NULL
+ 
+ 
+ 204 #undeà
+ NULL
+ 
+ 
+ 206 
+ 	#NULL
+  0
+ 
+ 	)
+ 
+ 207 
+ 	#SOME_DBM
+ 
+ 
+ 	)
+ 
+ 208 
+ 	#dbm_ãtch
+ (
+ db
+ ,
+ dkey
+ è
+ 	`ãtch
+ (dkey)
+ 
+ 	)
+ 
+ 209 
+ 	#dbm_d–‘e
+ (
+ db
+ ,
+ dkey
+ è
+ 	`d–‘e
+ (dkey)
+ 
+ 	)
+ 
+ 210 
+ 	#dbm_¡Üe
+ (
+ db
+ ,
+ dkey
+ ,
+ dcÚ‹Á
+ ,
+ æags
+ è
+ 	`¡Üe
+ (dkey,dcÚ‹Á)
+ 
+ 	)
+ 
+ 211 
+ 	#dbm_þo£
+ (
+ db
+ è
+ 	`dbmþo£
+ ()
+ 
+ 	)
+ 
+ 212 
+ 	#dbm_fœ¡key
+ (
+ db
+ è
+ 	`fœ¡key
+ ()
+ 
+ 	)
+ 
+ 216 #ifdeà
+ SOME_DBM
+ 
+ 
+ 217 
+ EXT
+  *
+ 	gdbmkey
+ ;
+ 
+ 218 
+ EXT
+  
+ 	gdbmËn
+ ;
+ 
+ 221 #ià
+ INTSIZE
+  == 2
+ 
+ 222 
+ 	#htÚi
+  
+ htÚs
+ 
+ 
+ 	)
+ 
+ 223 
+ 	#Áohi
+  
+ Áohs
+ 
+ 
+ 	)
+ 
+ 225 
+ 	#htÚi
+  
+ htÚl
+ 
+ 
+ 	)
+ 
+ 226 
+ 	#Áohi
+  
+ Áohl
+ 
+ 
+ 	)
+ 
+ 229 #ià
+ defšed
+ (
+ I_DIRENT
+ )
+ 
+ 230 
+ 	~<dœ’t.h
+ >
+ 
+ 231 
+ 	#DIRENT
+  
+ dœ’t
+ 
+ 
+ 	)
+ 
+ 233 #ifdeà
+ I_SYS_NDIR
+ 
+ 
+ 234 
+ 	~<sys/ndœ.h
+ >
+ 
+ 235 
+ 	#DIRENT
+  
+ dœeù
+ 
+ 
+ 	)
+ 
+ 237 #ifdeà
+ I_SYS_DIR
+ 
+ 
+ 238 #ifdeà
+ hp9000s500
+ 
+ 
+ 239 
+ 	~<ndœ.h
+ >
+ 
+ 241 
+ 	~<sys/dœ.h
+ >
+ 
+ 243 
+ 	#DIRENT
+  
+ dœeù
+ 
+ 
+ 	)
+ 
+ 254 #iâdeà
+ S_IFMT
+ 
+ 
+ 255 #ifdeà
+ _S_IFMT
+ 
+ 
+ 256 
+ 	#S_IFMT
+  
+ _S_IFMT
+ 
+ 
+ 	)
+ 
+ 258 
+ 	#S_IFMT
+  0170000
+ 
+ 	)
+ 
+ 262 #iâdeà
+ S_ISDIR
+ 
+ 
+ 263 
+ 	#S_ISDIR
+ (
+ m
+ è((m & 
+ S_IFMT
+ è=ð
+ S_IFDIR
+ )
+ 
+ 	)
+ 
+ 266 #iâdeà
+ S_ISCHR
+ 
+ 
+ 267 
+ 	#S_ISCHR
+ (
+ m
+ è((m & 
+ S_IFMT
+ è=ð
+ S_IFCHR
+ )
+ 
+ 	)
+ 
+ 270 #iâdeà
+ S_ISBLK
+ 
+ 
+ 271 #ifdeà
+ S_IFBLK
+ 
+ 
+ 272 
+ 	#S_ISBLK
+ (
+ m
+ è((m & 
+ S_IFMT
+ è=ð
+ S_IFBLK
+ )
+ 
+ 	)
+ 
+ 274 
+ 	#S_ISBLK
+ (
+ m
+ è(0)
+ 
+ 	)
+ 
+ 278 #iâdeà
+ S_ISREG
+ 
+ 
+ 279 
+ 	#S_ISREG
+ (
+ m
+ è((m & 
+ S_IFMT
+ è=ð
+ S_IFREG
+ )
+ 
+ 	)
+ 
+ 282 #iâdeà
+ S_ISFIFO
+ 
+ 
+ 283 #ifdeà
+ S_IFIFO
+ 
+ 
+ 284 
+ 	#S_ISFIFO
+ (
+ m
+ è((m & 
+ S_IFMT
+ è=ð
+ S_IFIFO
+ )
+ 
+ 	)
+ 
+ 286 
+ 	#S_ISFIFO
+ (
+ m
+ è(0)
+ 
+ 	)
+ 
+ 290 #iâdeà
+ S_ISLNK
+ 
+ 
+ 291 #ifdeà
+ _S_ISLNK
+ 
+ 
+ 292 
+ 	#S_ISLNK
+ (
+ m
+ è
+ 	`_S_ISLNK
+ (m)
+ 
+ 	)
+ 
+ 294 #ifdeà
+ _S_IFLNK
+ 
+ 
+ 295 
+ 	#S_ISLNK
+ (
+ m
+ è((m & 
+ S_IFMT
+ è=ð
+ _S_IFLNK
+ )
+ 
+ 	)
+ 
+ 297 #ifdeà
+ S_IFLNK
+ 
+ 
+ 298 
+ 	#S_ISLNK
+ (
+ m
+ è((m & 
+ S_IFMT
+ è=ð
+ S_IFLNK
+ )
+ 
+ 	)
+ 
+ 300 
+ 	#S_ISLNK
+ (
+ m
+ è(0)
+ 
+ 	)
+ 
+ 306 #iâdeà
+ S_ISSOCK
+ 
+ 
+ 307 #ifdeà
+ _S_ISSOCK
+ 
+ 
+ 308 
+ 	#S_ISSOCK
+ (
+ m
+ è
+ 	`_S_ISSOCK
+ (m)
+ 
+ 	)
+ 
+ 310 #ifdeà
+ _S_IFSOCK
+ 
+ 
+ 311 
+ 	#S_ISSOCK
+ (
+ m
+ è((m & 
+ S_IFMT
+ è=ð
+ _S_IFSOCK
+ )
+ 
+ 	)
+ 
+ 313 #ifdeà
+ S_IFSOCK
+ 
+ 
+ 314 
+ 	#S_ISSOCK
+ (
+ m
+ è((m & 
+ S_IFMT
+ è=ð
+ S_IFSOCK
+ )
+ 
+ 	)
+ 
+ 316 
+ 	#S_ISSOCK
+ (
+ m
+ è(0)
+ 
+ 	)
+ 
+ 322 #iâdeà
+ S_IRUSR
+ 
+ 
+ 323 #ifdeà
+ S_IREAD
+ 
+ 
+ 324 
+ 	#S_IRUSR
+  
+ S_IREAD
+ 
+ 
+ 	)
+ 
+ 325 
+ 	#S_IWUSR
+  
+ S_IWRITE
+ 
+ 
+ 	)
+ 
+ 326 
+ 	#S_IXUSR
+  
+ S_IEXEC
+ 
+ 
+ 	)
+ 
+ 328 
+ 	#S_IRUSR
+  0400
+ 
+ 	)
+ 
+ 329 
+ 	#S_IWUSR
+  0200
+ 
+ 	)
+ 
+ 330 
+ 	#S_IXUSR
+  0100
+ 
+ 	)
+ 
+ 332 
+ 	#S_IRGRP
+  (
+ S_IRUSR
+ >>3)
+ 
+ 	)
+ 
+ 333 
+ 	#S_IWGRP
+  (
+ S_IWUSR
+ >>3)
+ 
+ 	)
+ 
+ 334 
+ 	#S_IXGRP
+  (
+ S_IXUSR
+ >>3)
+ 
+ 	)
+ 
+ 335 
+ 	#S_IROTH
+  (
+ S_IRUSR
+ >>6)
+ 
+ 	)
+ 
+ 336 
+ 	#S_IWOTH
+  (
+ S_IWUSR
+ >>6)
+ 
+ 	)
+ 
+ 337 
+ 	#S_IXOTH
+  (
+ S_IXUSR
+ >>6)
+ 
+ 	)
+ 
+ 340 #iâdeà
+ S_ISUID
+ 
+ 
+ 341 
+ 	#S_ISUID
+  04000
+ 
+ 	)
+ 
+ 344 #iâdeà
+ S_ISGID
+ 
+ 
+ 345 
+ 	#S_ISGID
+  02000
+ 
+ 	)
+ 
+ 348 
+ 	tSTRLEN
+ ;
+ 
+ 350 
+ ¬g
+  
+ 	tARG
+ ;
+ 
+ 351 
+ cmd
+  
+ 	tCMD
+ ;
+ 
+ 352 
+ fÜmcmd
+  
+ 	tFCMD
+ ;
+ 
+ 353 
+ sÿÅ©
+  
+ 	tSPAT
+ ;
+ 
+ 354 
+ ¡io
+  
+ 	tSTIO
+ ;
+ 
+ 355 
+ sub
+  
+ 	tSUBR
+ ;
+ 
+ 356 
+ ¡ršg
+  
+ 	tSTR
+ ;
+ 
+ 357 
+ ©bl
+  
+ 	tARRAY
+ ;
+ 
+ 358 
+ htbl
+  
+ 	tHASH
+ ;
+ 
+ 359 
+ »gexp
+  
+ 	tREGEXP
+ ;
+ 
+ 360 
+ ¡ab±rs
+  
+ 	tSTBP
+ ;
+ 
+ 361 
+ ¡ab
+  
+ 	tSTAB
+ ;
+ 
+ 362 
+ ÿΧve
+  
+ 	tCSV
+ ;
+ 
+ 364 
+ 	~"hªdy.h
+ "
+ 
+ 365 
+ 	~"»gexp.h
+ "
+ 
+ 366 
+ 	~"¡r.h
+ "
+ 
+ 367 
+ 	~"utž.h
+ "
+ 
+ 368 
+ 	~"fÜm.h
+ "
+ 
+ 369 
+ 	~"¡ab.h
+ "
+ 
+ 370 
+ 	~"¥©.h
+ "
+ 
+ 371 
+ 	~"¬g.h
+ "
+ 
+ 372 
+ 	~"cmd.h
+ "
+ 
+ 373 
+ 	~"¬¿y.h
+ "
+ 
+ 374 
+ 	~"hash.h
+ "
+ 
+ 376 #ià
+ defšed
+ (
+ iAPX286
+ è|| defšed(
+ M_I286
+ è|| defšed(
+ I80286
+ )
+ 
+ 377 
+ 	#I286
+ 
+ 
+ 	)
+ 
+ 380 #iâdef 
+ __STDC__
+ 
+ 
+ 381 #ifdeà
+ CHARSPRINTF
+ 
+ 
+ 382 *
+ ¥rštf
+ ();
+ 
+ 384 
+ ¥rštf
+ ();
+ 
+ 388 
+ EXT
+  *
+ Yes
+  
+ INIT
+ ("1");
+ 
+ 389 
+ EXT
+  *
+ No
+  
+ INIT
+ ("");
+ 
+ 394 
+ 	#G_SCALAR
+  0
+ 
+ 	)
+ 
+ 395 
+ 	#G_ARRAY
+  1
+ 
+ 	)
+ 
+ 397 #ifdeà
+ CRIPPLED_CC
+ 
+ 
+ 398 
+ ¡r_Œue
+ ();
+ 
+ 400 
+ 	#¡r_Œue
+ (
+ ¡r
+ è(
+ SŒ
+  = (str), \
+ 
+ 401 (
+ SŒ
+ ->
+ ¡r_pok
+  ? \
+ 
+ 402 ((*
+ SŒ
+ ->
+ ¡r_±r
+  > '0' || \
+ 
+ 403 
+ SŒ
+ ->
+ ¡r_cur
+  > 1 || \
+ 
+ 404 (
+ SŒ
+ ->
+ ¡r_cur
+  && *SŒ->
+ ¡r_±r
+  != '0')) ? 1 : 0) \
+ 
+ 406 (
+ SŒ
+ ->
+ ¡r_nok
+  ? (SŒ->
+ ¡r_u
+ .
+ ¡r_nv®
+  !ð0.0è: 0 ) ))
+ 
+ 	)
+ 
+ 409 #ifdeà
+ DEBUGGING
+ 
+ 
+ 410 
+ 	#¡r_³ek
+ (
+ ¡r
+ è(
+ SŒ
+  = (str), \
+ 
+ 411 (
+ SŒ
+ ->
+ ¡r_pok
+  ? \
+ 
+ 412 
+ SŒ
+ ->
+ ¡r_±r
+  : \
+ 
+ 413 (
+ SŒ
+ ->
+ ¡r_nok
+  ? \
+ 
+ 414 (
+ 	`¥rštf
+ (
+ tok’buf
+ ,"num(%g)",
+ SŒ
+ ->
+ ¡r_u
+ .
+ ¡r_nv®
+ ), \
+ 
+ 415 (*)
+ tok’buf
+ ) : \
+ 
+ 416 "" )))
+ 
+ 	)
+ 
+ 419 #ifdeà
+ CRIPPLED_CC
+ 
+ 
+ 420 *
+ ¡r_g‘
+ ();
+ 
+ 422 #ifdeà
+ TAINT
+ 
+ 
+ 423 
+ 	#¡r_g‘
+ (
+ ¡r
+ è(
+ SŒ
+  = (¡r), 
+ š‹d
+  |ðSŒ->
+ ¡r_š‹d
+ , \
+ 
+ 424 (
+ SŒ
+ ->
+ ¡r_pok
+  ? SŒ->
+ ¡r_±r
+  : 
+ 	`¡r_2±r
+ (SŒ)))
+ 
+ 	)
+ 
+ 426 
+ 	#¡r_g‘
+ (
+ ¡r
+ è(
+ SŒ
+  = (¡r), (SŒ->
+ ¡r_pok
+  ? SŒ->
+ ¡r_±r
+  : 
+ 	`¡r_2±r
+ (SŒ)))
+ 
+ 	)
+ 
+ 430 #ifdeà
+ CRIPPLED_CC
+ 
+ 
+ 431 
+ ¡r_gnum
+ ();
+ 
+ 433 #ifdeà
+ TAINT
+ 
+ 
+ 434 
+ 	#¡r_gnum
+ (
+ ¡r
+ è(
+ SŒ
+  = (¡r), 
+ š‹d
+  |ðSŒ->
+ ¡r_š‹d
+ , \
+ 
+ 435 (
+ SŒ
+ ->
+ ¡r_nok
+  ? SŒ->
+ ¡r_u
+ .
+ ¡r_nv®
+  : 
+ 	`¡r_2num
+ (SŒ)))
+ 
+ 	)
+ 
+ 437 
+ 	#¡r_gnum
+ (
+ ¡r
+ è(
+ SŒ
+  = (¡r), (SŒ->
+ ¡r_nok
+  ? SŒ->
+ ¡r_u
+ .
+ ¡r_nv®
+  : 
+ 	`¡r_2num
+ (SŒ)))
+ 
+ 	)
+ 
+ 440 
+ EXT
+  
+ STR
+  *
+ 	gSŒ
+ ;
+ 
+ 442 
+ 	#GROWSTR
+ (
+ µ
+ ,
+ Í
+ ,
+ Ën
+ èià(*Öpè< (Ën)è
+ 	`grow¡r
+ Õp,Í,Ën)
+ 
+ 	)
+ 
+ 444 #iâdeà
+ MSDOS
+ 
+ 
+ 445 
+ 	#STR_GROW
+ (
+ ¡r
+ ,
+ Ën
+ èià((¡r)->
+ ¡r_Ën
+  < (Ën)è
+ 	`¡r_grow
+ (¡r,Ën)
+ 
+ 	)
+ 
+ 446 
+ 	#SŒ_Grow
+  
+ ¡r_grow
+ 
+ 
+ 	)
+ 
+ 449 
+ 	#STR_GROW
+ (
+ ¡r
+ ,
+ Ën
+ èià((¡r)->
+ ¡r_Ën
+  < ()len) \
+ 
+ 450 
+ 	`¡r_grow
+ (
+ ¡r
+ ,()
+ Ën
+ )
+ 
+ 	)
+ 
+ 451 
+ 	#SŒ_Grow
+ (
+ ¡r
+ ,
+ Ën
+ è
+ 	`¡r_grow
+ (¡r,()Ö’))
+ 
+ 	)
+ 
+ 454 #iâdeà
+ BYTEORDER
+ 
+ 
+ 455 
+ 	#BYTEORDER
+  0x1234
+ 
+ 	)
+ 
+ 458 #ià
+ defšed
+ (
+ htÚl
+ è&& !defšed(
+ HAS_HTONL
+ )
+ 
+ 459 
+ 	#HAS_HTONL
+ 
+ 
+ 	)
+ 
+ 461 #ià
+ defšed
+ (
+ htÚs
+ è&& !defšed(
+ HAS_HTONS
+ )
+ 
+ 462 
+ 	#HAS_HTONS
+ 
+ 
+ 	)
+ 
+ 464 #ià
+ defšed
+ (
+ Áohl
+ è&& !defšed(
+ HAS_NTOHL
+ )
+ 
+ 465 
+ 	#HAS_NTOHL
+ 
+ 
+ 	)
+ 
+ 467 #ià
+ defšed
+ (
+ Áohs
+ è&& !defšed(
+ HAS_NTOHS
+ )
+ 
+ 468 
+ 	#HAS_NTOHS
+ 
+ 
+ 	)
+ 
+ 470 #iâdeà
+ HAS_HTONL
+ 
+ 
+ 471 #ià(
+ BYTEORDER
+  & 0xffff) != 0x4321
+ 
+ 472 
+ 	#HAS_HTONS
+ 
+ 
+ 	)
+ 
+ 473 
+ 	#HAS_HTONL
+ 
+ 
+ 	)
+ 
+ 474 
+ 	#HAS_NTOHS
+ 
+ 
+ 	)
+ 
+ 475 
+ 	#HAS_NTOHL
+ 
+ 
+ 	)
+ 
+ 476 
+ 	#MYSWAP
+ 
+ 
+ 	)
+ 
+ 477 
+ 	#htÚs
+  
+ my_sw­
+ 
+ 
+ 	)
+ 
+ 478 
+ 	#htÚl
+  
+ my_htÚl
+ 
+ 
+ 	)
+ 
+ 479 
+ 	#Áohs
+  
+ my_sw­
+ 
+ 
+ 	)
+ 
+ 480 
+ 	#Áohl
+  
+ my_Áohl
+ 
+ 
+ 	)
+ 
+ 483 #ià(
+ BYTEORDER
+  & 0xffff) == 0x4321
+ 
+ 484 #undeà
+ HAS_HTONS
+ 
+ 
+ 485 #undeà
+ HAS_HTONL
+ 
+ 
+ 486 #undeà
+ HAS_NTOHS
+ 
+ 
+ 487 #undeà
+ HAS_NTOHL
+ 
+ 
+ 491 #ifdeà
+ CASTNEGFLOAT
+ 
+ 
+ 492 
+ 	#U_S
+ (
+ wh©
+ è(()(wh©))
+ 
+ 	)
+ 
+ 493 
+ 	#U_I
+ (
+ wh©
+ è(()(wh©))
+ 
+ 	)
+ 
+ 494 
+ 	#U_L
+ (
+ wh©
+ è(()(wh©))
+ 
+ 	)
+ 
+ 496 
+ ÿ¡ulÚg
+ ();
+ 
+ 497 
+ 	#U_S
+ (
+ wh©
+ è(()
+ 	`ÿ¡ulÚg
+ (wh©))
+ 
+ 	)
+ 
+ 498 
+ 	#U_I
+ (
+ wh©
+ è(()
+ 	`ÿ¡ulÚg
+ (wh©))
+ 
+ 	)
+ 
+ 499 
+ 	#U_L
+ (
+ wh©
+ è(
+ 	`ÿ¡ulÚg
+ (wh©))
+ 
+ 	)
+ 
+ 502 
+ CMD
+  *
+ add_Ïb–
+ ();
+ 
+ 503 
+ CMD
+  *
+ block_h—d
+ ();
+ 
+ 504 
+ CMD
+  *
+ ­³nd_lše
+ ();
+ 
+ 505 
+ CMD
+  *
+ make_acmd
+ ();
+ 
+ 506 
+ CMD
+  *
+ make_ccmd
+ ();
+ 
+ 507 
+ CMD
+  *
+ make_icmd
+ ();
+ 
+ 508 
+ CMD
+  *
+ šv”t
+ ();
+ 
+ 509 
+ CMD
+  *
+ addcÚd
+ ();
+ 
+ 510 
+ CMD
+  *
+ addloÝ
+ ();
+ 
+ 511 
+ CMD
+  *
+ wÝt
+ ();
+ 
+ 512 
+ CMD
+  *
+ ov”
+ ();
+ 
+ 514 
+ STAB
+  *
+ ¡ab’t
+ ();
+ 
+ 515 
+ STAB
+  *
+ g’¡ab
+ ();
+ 
+ 517 
+ ARG
+  *
+ ¡ab2¬g
+ ();
+ 
+ 518 
+ ARG
+  *
+ Ý_Ãw
+ ();
+ 
+ 519 
+ ARG
+  *
+ make_Ý
+ ();
+ 
+ 520 
+ ARG
+  *
+ make_m©ch
+ ();
+ 
+ 521 
+ ARG
+  *
+ make_¥l™
+ ();
+ 
+ 522 
+ ARG
+  *
+ rÿtmaybe
+ ();
+ 
+ 523 
+ ARG
+  *
+ li¡ish
+ ();
+ 
+ 524 
+ ARG
+  *
+ mayb–i¡ish
+ ();
+ 
+ 525 
+ ARG
+  *
+ loÿlize
+ ();
+ 
+ 526 
+ ARG
+  *
+ fixev®
+ ();
+ 
+ 527 
+ ARG
+  *
+ jmaybe
+ ();
+ 
+ 528 
+ ARG
+  *
+ l
+ ();
+ 
+ 529 
+ ARG
+  *
+ fixl
+ ();
+ 
+ 530 
+ ARG
+  *
+ mod_m©ch
+ ();
+ 
+ 531 
+ ARG
+  *
+ make_li¡
+ ();
+ 
+ 532 
+ ARG
+  *
+ cmd_to_¬g
+ ();
+ 
+ 533 
+ ARG
+  *
+ addæags
+ ();
+ 
+ 534 
+ ARG
+  *
+ hide_¬y
+ ();
+ 
+ 535 
+ ARG
+  *
+ cv®_to_¬g
+ ();
+ 
+ 537 
+ STR
+  *
+ ¡r_Ãw
+ ();
+ 
+ 538 
+ STR
+  *
+ ¡ab_¡r
+ ();
+ 
+ 540 
+ do_—ch
+ ();
+ 
+ 541 
+ do_subr
+ ();
+ 
+ 542 
+ do_m©ch
+ ();
+ 
+ 543 
+ do_uÅack
+ ();
+ 
+ 544 
+ ev®
+ ();
+ 
+ 545 
+ do_ev®
+ ();
+ 
+ 546 
+ do_assign
+ ();
+ 
+ 548 
+ SUBR
+  *
+ make_sub
+ ();
+ 
+ 550 
+ FCMD
+  *
+ lßd_fÜm©
+ ();
+ 
+ 552 *
+ sÿÅ©
+ ();
+ 
+ 553 *
+ sÿnsub¡
+ ();
+ 
+ 554 *
+ sÿÁ¿ns
+ ();
+ 
+ 555 *
+ sÿn¡r
+ ();
+ 
+ 556 *
+ sÿnid’t
+ ();
+ 
+ 557 *
+ ¡r_­³nd_tžl
+ ();
+ 
+ 558 *
+ ¡r_g‘s
+ ();
+ 
+ 559 *
+ ¡r_grow
+ ();
+ 
+ 561 
+ boÞ
+  
+ do_ݒ
+ ();
+ 
+ 562 
+ boÞ
+  
+ do_þo£
+ ();
+ 
+ 563 
+ boÞ
+  
+ do_´št
+ ();
+ 
+ 564 
+ boÞ
+  
+ do_­ršt
+ ();
+ 
+ 565 
+ boÞ
+  
+ do_exec
+ ();
+ 
+ 566 
+ boÞ
+  
+ do_«xec
+ ();
+ 
+ 568 
+ do_sub¡
+ ();
+ 
+ 569 
+ ÿndo
+ ();
+ 
+ 570 
+ šgroup
+ ();
+ 
+ 572 
+ ¡r_»¶aû
+ ();
+ 
+ 573 
+ ¡r_šc
+ ();
+ 
+ 574 
+ ¡r_dec
+ ();
+ 
+ 575 
+ ¡r_ä“
+ ();
+ 
+ 576 
+ ¡ab_þ—r
+ ();
+ 
+ 577 
+ do_još
+ ();
+ 
+ 578 
+ do_¥rštf
+ ();
+ 
+ 579 
+ do_acû±
+ ();
+ 
+ 580 
+ do_pe
+ ();
+ 
+ 581 
+ do_vec£t
+ ();
+ 
+ 582 
+ do_unshiá
+ ();
+ 
+ 583 
+ do_execä“
+ ();
+ 
+ 584 
+ magiÿlize
+ ();
+ 
+ 585 
+ magiúame
+ ();
+ 
+ 586 
+ §v–i¡
+ ();
+ 
+ 587 
+ §ve™em
+ ();
+ 
+ 588 
+ §vešt
+ ();
+ 
+ 589 
+ §v–Úg
+ ();
+ 
+ 590 
+ §ve¥Œ
+ ();
+ 
+ 591 
+ §veh±r
+ ();
+ 
+ 592 
+ »¡Ü–i¡
+ ();
+ 
+ 593 
+ »³©ýy
+ ();
+ 
+ 594 
+ HASH
+  *
+ §vehash
+ ();
+ 
+ 595 
+ ARRAY
+  *
+ §v—ry
+ ();
+ 
+ 597 
+ EXT
+  **
+ 	gÜig¬gv
+ ;
+ 
+ 598 
+ EXT
+  
+ 	gÜig¬gc
+ ;
+ 
+ 599 
+ EXT
+  **
+ 	gÜig’vœÚ
+ ;
+ 
+ 600 
**
+ ’vœÚ
+ ;
+ 
+ 602 
+ EXT
+  
+ lše_t
+  
+ sublše
+  
+ INIT
+ (0);
+ 
+ 603 
+ EXT
+  
+ STR
+  *
+ subÇme
+  
+ INIT
+ (
+ NuΡr
+ );
+ 
+ 604 
+ EXT
+  
+ ¬yba£
+  
+ INIT
+ (0);
+ 
+ 606 
+ 	souŒec
+  {
+ 
+ 607 
+ 	mo_lšes
+ ;
+ 
+ 608 *
+ 	mo_¡r
+ ;
+ 
+ 609 
+ 	mo_Ën
+ ;
+ 
+ 612 
+ EXT
+  
+ ouŒec
+  
+ 	gouŒec
+ ;
+ 
+ 613 
+ EXT
+  
+ ouŒec
+  
+ 	gtݻc
+ ;
+ 
+ 615 
+ EXT
+  
+ STAB
+  *
+ ¡dš¡ab
+  
+ INIT
+ (
+ NuΡab
+ );
+ 
+ 616 
+ EXT
+  
+ STAB
+  *
+ Ï¡_š_¡ab
+  
+ INIT
+ (
+ NuΡab
+ );
+ 
+ 617 
+ EXT
+  
+ STAB
+  *
+ def¡ab
+  
+ INIT
+ (
+ NuΡab
+ );
+ 
+ 618 
+ EXT
+  
+ STAB
+  *
+ ¬gv¡ab
+  
+ INIT
+ (
+ NuΡab
+ );
+ 
+ 619 
+ EXT
+  
+ STAB
+  *
+ ’v¡ab
+  
+ INIT
+ (
+ NuΡab
+ );
+ 
+ 620 
+ EXT
+  
+ STAB
+  *
+ sig¡ab
+  
+ INIT
+ (
+ NuΡab
+ );
+ 
+ 621 
+ EXT
+  
+ STAB
+  *
+ defout¡ab
+  
+ INIT
+ (
+ NuΡab
+ );
+ 
+ 622 
+ EXT
+  
+ STAB
+  *
+ curout¡ab
+  
+ INIT
+ (
+ NuΡab
+ );
+ 
+ 623 
+ EXT
+  
+ STAB
+  *
+ ¬gvout¡ab
+  
+ INIT
+ (
+ NuΡab
+ );
+ 
+ 624 
+ EXT
+  
+ STAB
+  *
+ šc¡ab
+  
+ INIT
+ (
+ NuΡab
+ );
+ 
+ 625 
+ EXT
+  
+ STAB
+  *
+ Ëá¡ab
+  
+ INIT
+ (
+ NuΡab
+ );
+ 
+ 626 
+ EXT
+  
+ STAB
+  *
+ am³r¡ab
+  
+ INIT
+ (
+ NuΡab
+ );
+ 
+ 627 
+ EXT
+  
+ STAB
+  *
+ right¡ab
+  
+ INIT
+ (
+ NuΡab
+ );
+ 
+ 628 
+ EXT
+  
+ STAB
+  *
+ DB¡ab
+  
+ INIT
+ (
+ NuΡab
+ );
+ 
+ 629 
+ EXT
+  
+ STAB
+  *
+ DBlše
+  
+ INIT
+ (
+ NuΡab
+ );
+ 
+ 630 
+ EXT
+  
+ STAB
+  *
+ DBsub
+  
+ INIT
+ (
+ NuΡab
+ );
+ 
+ 632 
+ EXT
+  
+ HASH
+  *
+ 	gdef¡ash
+ ;
+ 
+ 633 
+ EXT
+  
+ HASH
+  *
+ 	gcur¡ash
+ ;
+ 
+ 634 
+ EXT
+  
+ HASH
+  *
+ 	gdeb¡ash
+ ;
+ 
+ 636 
+ EXT
+  
+ STR
+  *
+ 	gcur¡Çme
+ ;
+ 
+ 638 
+ EXT
+  
+ STR
+  *
+ ä“¡¼oÙ
+  
+ INIT
+ (
+ NuΡr
+ );
+ 
+ 639 
+ EXT
+  
+ STR
+  *
+ Ï¡»t¡r
+  
+ INIT
+ (
+ NuΡr
+ );
+ 
+ 640 
+ EXT
+  
+ STR
+  *
+ DBsšgË
+  
+ INIT
+ (
+ NuΡr
+ );
+ 
+ 641 
+ EXT
+  
+ STR
+  *
+ DBŒaû
+  
+ INIT
+ (
+ NuΡr
+ );
+ 
+ 642 
+ EXT
+  
+ STR
+  *
+ DBsigÇl
+  
+ INIT
+ (
+ NuΡr
+ );
+ 
+ 644 
+ EXT
+  
+ 	gÏ¡¥ba£
+ ;
+ 
+ 645 
+ EXT
+  
+ 	gϡsize
+ ;
+ 
+ 647 
+ EXT
+  *
+ hexdig™
+  
+ INIT
+ ("0123456789abcdef0123456789ABCDEF");
+ 
+ 648 
+ EXT
+  *
+ 	gÜigfž’ame
+ ;
+ 
+ 649 
+ EXT
+  
+ FILE
+  * 
+ VOLATILE
+  
+ 	grså
+ ;
+ 
+ 650 
+ EXT
+  
+ 	gbuf
+ [1024];
+ 
+ 651 
+ EXT
+  *
+ 	gbuåŒ
+ ;
+ 
+ 652 
+ EXT
+  *
+ 	gÞdbuåŒ
+ ;
+ 
+ 653 
+ EXT
+  *
+ 	gÞdÞdbuåŒ
+ ;
+ 
+ 654 
+ EXT
+  *
+ 	gbuãnd
+ ;
+ 
+ 656 
+ EXT
+  
+ STR
+  *
+ lše¡r
+  
+ INIT
+ (
+ NuΡr
+ );
+ 
+ 658 
+ EXT
+  *
+ rs
+  
+ INIT
+ ("\n");
+ 
+ 659 
+ EXT
+  
+ rsch¬
+  
+ INIT
+ ('\n');
+ 
+ 660 
+ EXT
+  
+ r¦’
+  
+ INIT
+ (1);
+ 
+ 661 
+ EXT
+  *
+ ofs
+  
+ INIT
+ (
+ NuÎch
+ );
+ 
+ 662 
+ EXT
+  
+ of¦’
+  
+ INIT
+ (0);
+ 
+ 663 
+ EXT
+  *
+ Üs
+  
+ INIT
+ (
+ NuÎch
+ );
+ 
+ 664 
+ EXT
+  
+ ܦ’
+  
+ INIT
+ (0);
+ 
+ 665 
+ EXT
+  *
+ ofmt
+  
+ INIT
+ (
+ NuÎch
+ );
+ 
+ 666 
+ EXT
+  *
+ š¶aû
+  
+ INIT
+ (
+ NuÎch
+ );
+ 
+ 667 
+ EXT
+  *
+ nošŒp
+  
+ INIT
+ ("");
+ 
+ 669 
+ EXT
+  
+ boÞ
+  
+ ´•roûss
+  
+ INIT
+ (
+ FALSE
+ );
+ 
+ 670 
+ EXT
+  
+ boÞ
+  
+ mšus_n
+  
+ INIT
+ (
+ FALSE
+ );
+ 
+ 671 
+ EXT
+  
+ boÞ
+  
+ mšus_p
+  
+ INIT
+ (
+ FALSE
+ );
+ 
+ 672 
+ EXT
+  
+ boÞ
+  
+ mšus_l
+  
+ INIT
+ (
+ FALSE
+ );
+ 
+ 673 
+ EXT
+  
+ boÞ
+  
+ mšus_a
+  
+ INIT
+ (
+ FALSE
+ );
+ 
+ 674 
+ EXT
+  
+ boÞ
+  
+ dosw™ches
+  
+ INIT
+ (
+ FALSE
+ );
+ 
+ 675 
+ EXT
+  
+ boÞ
+  
+ dow¬n
+  
+ INIT
+ (
+ FALSE
+ );
+ 
+ 676 
+ EXT
+  
+ boÞ
+  
+ dÛxŒaù
+  
+ INIT
+ (
+ FALSE
+ );
+ 
+ 677 
+ EXT
+  
+ boÞ
+  
+ ®l¡abs
+  
+ INIT
+ (
+ FALSE
+ );
+ 
+ 678 
+ EXT
+  
+ boÞ
+  
+ §wam³r§nd
+  
+ INIT
+ (
+ FALSE
+ );
+ 
+ 679 
+ EXT
+  
+ boÞ
+  
+ §w¡udy
+  
+ INIT
+ (
+ FALSE
+ );
+ 
+ 680 
+ EXT
+  
+ boÞ
+  
+ §wi
+  
+ INIT
+ (
+ FALSE
+ );
+ 
+ 681 
+ EXT
+  
+ boÞ
+  
+ §wvec
+  
+ INIT
+ (
+ FALSE
+ );
+ 
+ 682 
+ EXT
+  
+ boÞ
+  
+ loÿlizšg
+  
+ INIT
+ (
+ FALSE
+ );
+ 
+ 684 #ifdeà
+ CSH
+ 
+ 
+ 685 *
+ cshÇme
+  
+ INIT
+ (
+ CSH
+ );
+ 
+ 686 
+ cshËn
+  
+ INIT
+ (0);
+ 
+ 689 #ifdeà
+ TAINT
+ 
+ 
+ 690 
+ EXT
+  
+ boÞ
+  
+ š‹d
+  
+ INIT
+ (
+ FALSE
+ );
+ 
+ 693 #iâdeà
+ MSDOS
+ 
+ 
+ 694 
+ 	#TMPPATH
+  "/tmp/³¾-eXXXXXX"
+ 
+ 	)
+ 
+ 696 
+ 	#TMPPATH
+  "¶XXXXXX"
+ 
+ 	)
+ 
+ 698 
+ EXT
+  *
+ 	ge_tm²ame
+ ;
+ 
+ 699 
+ EXT
+  
+ FILE
+  *
+ e_å
+  
+ INIT
+ (
+ NuÎå
+ );
+ 
+ 701 
+ EXT
+  
+ 	gtok’buf
+ [256];
+ 
+ 702 
+ EXT
+  
+ ex³ù‹rm
+  
+ INIT
+ (
+ TRUE
+ );
+ 
+ 703 
+ EXT
+  
+ VOLATILE
+  
+ š_ev®
+  
+ INIT
+ (
+ FALSE
+ );
+ 
+ 704 
+ EXT
+  
+ muÉžše
+  
+ INIT
+ (0);
+ 
+ 705 
+ EXT
+  
+ 	gfÜk´oûss
+ ;
+ 
+ 706 
+ EXT
+  
+ do_undump
+  
+ INIT
+ (0);
+ 
+ 707 
+ EXT
+  
+ ”rÜ_couÁ
+  
+ INIT
+ (0);
+ 
+ 708 
+ EXT
+  
+ muÉi_¡¬t
+  
+ INIT
+ (0);
+ 
+ 709 
+ EXT
+  
+ muÉi_’d
+  
+ INIT
+ (0);
+ 
+ 710 
+ EXT
+  
+ muÉi_Ý’
+  
+ INIT
+ (0);
+ 
+ 711 
+ EXT
+  
+ muÉi_þo£
+  
+ INIT
+ (0);
+ 
+ 713 
+ FILE
+  *
+ pݒ
+ ();
+ 
+ 715 
+ STR
+  *
+ š‹½
+ ();
+ 
+ 716 
+ ä“_¬g
+ ();
+ 
+ 717 
+ STIO
+  *
+ ¡io_Ãw
+ ();
+ 
+ 719 
+ EXT
+  
+ ¡©
+  
+ 	g¡©buf
+ ;
+ 
+ 720 
+ EXT
+  
+ ¡©
+  
+ 	g¡©ÿche
+ ;
+ 
+ 721 
+ STAB
+  *
+ ¡©¡ab
+  
+ INIT
+ (
+ NuΡab
+ );
+ 
+ 722 
+ STR
+  *
+ 	g¡©Çme
+ ;
+ 
+ 723 #iâdeà
+ MSDOS
+ 
+ 
+ 724 
+ EXT
+  
+ tms
+  
+ 	gtimesbuf
+ ;
+ 
+ 726 
+ EXT
+  
+ 	guid
+ ;
+ 
+ 727 
+ EXT
+  
+ 	geuid
+ ;
+ 
+ 728 
+ EXT
+  
+ 	ggid
+ ;
+ 
+ 729 
+ EXT
+  
+ 	gegid
+ ;
+ 
+ 730 
+ UIDTYPE
+  
+ g‘uid
+ ();
+ 
+ 731 
+ UIDTYPE
+  
+ g‘euid
+ ();
+ 
+ 732 
+ GIDTYPE
+  
+ g‘gid
+ ();
+ 
+ 733 
+ GIDTYPE
+  
+ g‘egid
+ ();
+ 
+ 734 
+ EXT
+  
+ 	gun§ã
+ ;
+ 
+ 736 #ifdeà
+ DEBUGGING
+ 
+ 
+ 737 
+ EXT
+  
+ VOLATILE
+  
+ debug
+  
+ INIT
+ (0);
+ 
+ 738 
+ EXT
+  
+ dËv–
+  
+ INIT
+ (0);
+ 
+ 739 
+ EXT
+  
+ dlmax
+  
+ INIT
+ (128);
+ 
+ 740 
+ EXT
+  *
+ 	gdebÇme
+ ;
+ 
+ 741 
+ EXT
+  *
+ 	gdebd–im
+ ;
+ 
+ 742 
+ 	#YYDEBUG
+  1
+ 
+ 	)
+ 
+ 744 
+ EXT
+  
+ ³¾db
+  
+ INIT
+ (0);
+ 
+ 745 
+ 	#YYMAXDEPTH
+  300
+ 
+ 	)
+ 
+ 747 
+ EXT
+  
+ lše_t
+  
+ cmdlše
+  
+ INIT
+ (
+ NOLINE
+ );
+ 
+ 749 
+ EXT
+  
+ STR
+  
+ 	g¡r_undef
+ ;
+ 
+ 750 
+ EXT
+  
+ STR
+  
+ 	g¡r_no
+ ;
+ 
+ 751 
+ EXT
+  
+ STR
+  
+ 	g¡r_yes
+ ;
+ 
+ 755 
+ EXT
+  
+ 	sloÝ
+  {
+ 
+ 756 *
+ 	mloÝ_Ïb–
+ ;
+ 
+ 757 
+ 	mloÝ_¥
+ ;
+ 
+ 758 
+ jmp_buf
+  
+ 	mloÝ_’v
+ ;
+ 
+ 759 } *
+ 	gloÝ_¡ack
+ ;
+ 
+ 761 
+ EXT
+  
+ loÝ_±r
+  
+ INIT
+ (-1);
+ 
+ 762 
+ EXT
+  
+ loÝ_max
+  
+ INIT
+ (128);
+ 
+ 764 
+ EXT
+  
+ jmp_buf
+  
+ 	gtÝ_’v
+ ;
+ 
+ 766 
+ EXT
+  * 
+ VOLATILE
+  
+ gÙo_rg
+  
+ INIT
+ (
+ NuÎch
+ );
+ 
+ 768 
+ 	sufuncs
+  {
+ 
+ 769 (*
+ 	muf_v®
+ )();
+ 
+ 770 (*
+ 	muf_£t
+ )();
+ 
+ 771 
+ 	muf_šdex
+ ;
+ 
+ 774 
+ EXT
+  
+ ARRAY
+  *
+ 	g¡ack
+ ;
+ 
+ 776 
+ EXT
+  
+ ARRAY
+  * 
+ VOLATILE
+  
+ 	g§ve¡ack
+ ;
+ 
+ 778 
+ EXT
+  
+ ARRAY
+  *
+ 	gto§ve
+ ;
+ 
+ 780 
+ EXT
+  
+ ARRAY
+  *
+ 	glš—ry
+ ;
+ 
+ 781 
+ EXT
+  
+ ARRAY
+  *
+ 	gdb¬gs
+ ;
+ 
+ 783 
+ EXT
+  
+ ARRAY
+  *
+ 	gfdpid
+ ;
+ 
+ 784 
+ EXT
+  
+ HASH
+  *
+ 	gpid¡©us
+ ;
+ 
+ 786 
+ EXT
+  *
+ 	gdi
+ ;
+ 
+ 787 
+ EXT
+  *
+ 	gdc
+ ;
+ 
+ 788 
+ EXT
+  *
+ 	gds
+ ;
+ 
+ 791 
+ EXT
+  
+ ba£time
+  
+ INIT
+ (0);
+ 
+ 792 *
+ mk‹mp
+ ();
+ 
+ 793 #iâdeà
+ __STDC__
+ 
+ 
+ 795 
+ ©of
+ ();
+ 
+ 796 
+ time
+ ();
+ 
+ 797 
+ tm
+  *
+ gmtime
+ (), *
+ loÿÉime
+ ();
+ 
+ 798 *
+ šdex
+ (), *
+ ršdex
+ ();
+ 
+ 799 *
+ ¡rýy
+ (), *
+ ¡rÿt
+ ();
+ 
+ 802 #ifdeà
+ EUNICE
+ 
+ 
+ 803 
+ 	#UNLINK
+  
+ uÆnk
+ 
+ 
+ 	)
+ 
+ 804 
+ uÆnk
+ ();
+ 
+ 806 
+ 	#UNLINK
+  
+ uƚk
+ 
+ 
+ 	)
+ 
+ 809 #iâdeà
+ HAS_SETREUID
+ 
+ 
+ 810 #ifdeà
+ HAS_SETRESUID
+ 
+ 
+ 811 
+ 	#£Œeuid
+ (
+ r
+ ,
+ e
+ è
+ 	`£Œesuid
+ Ô,e,-1)
+ 
+ 	)
+ 
+ 812 
+ 	#HAS_SETREUID
+ 
+ 
+ 	)
+ 
+ 815 #iâdeà
+ HAS_SETREGID
+ 
+ 
+ 816 #ifdeà
+ HAS_SETRESGID
+ 
+ 
+ 817 
+ 	#£Œegid
+ (
+ r
+ ,
+ e
+ è
+ 	`£Œesgid
+ Ô,e,-1)
+ 
+ 	)
+ 
+ 818 
+ 	#HAS_SETREGID
+ 
+ 
+ 	)
+ 
+ 822 #iâdeà
+ åuts
+ 
+ 
+ 823 
+ 	#åuts
+ (
+ ¡r
+ ,
+ å
+ è
+ 	`årštf
+ (å,"%s",¡r)
+ 
+ 	)
+ 
+ 	@perly.c
+ 
+ 1 #iâdeà
+ lšt
+ 
+ 
+ 3 
+ 	gyyrcsid
+ [] = "$FreeBSD: src/usr.bin/yacc/skeleton.c,v 1.28 2000/01/17 02:04:06 bde Exp $";
+ 
+ 5 
+ 	~<¡dlib.h
+ >
+ 
+ 6 
+ 	#YYBYACC
+  1
+ 
+ 	)
+ 
+ 7 
+ 	#YYMAJOR
+  1
+ 
+ 	)
+ 
+ 8 
+ 	#YYMINOR
+  9
+ 
+ 	)
+ 
+ 9 
+ 	#YYLEX
+  
+ 	`yyËx
+ ()
+ 
+ 	)
+ 
+ 10 
+ 	#YYEMPTY
+  -1
+ 
+ 	)
+ 
+ 11 
+ 	#yyþ—rš
+  (
+ yych¬
+ =(
+ YYEMPTY
+ ))
+ 
+ 	)
+ 
+ 12 
+ 	#yy”rok
+  (
+ yy”ræag
+ =0)
+ 
+ 	)
+ 
+ 13 
+ 	#YYRECOVERING
+ (è(
+ yy”ræag
+ !=0)
+ 
+ 	)
+ 
+ 14 
+ yygrow¡ack
+ ();
+ 
+ 15 
+ 	#YYPREFIX
+  "yy"
+ 
+ 	)
+ 
+ 17 
+ 	~"INTERN.h
+ "
+ 
+ 18 
+ 	~"³¾.h
+ "
+ 
+ 20 
+ STAB
+  *
+ 	gsü¡ab
+ ;
+ 
+ 21 
+ ARG
+  *
+ 	g¬g4
+ ;
+ 
+ 22 
+ ARG
+  *
+ 	g¬g5
+ ;
+ 
+ 26 
+ 	miv®
+ ;
+ 
+ 27 *
+ 	mcv®
+ ;
+ 
+ 28 
+ ARG
+  *
+ 	m¬g
+ ;
+ 
+ 29 
+ CMD
+  *
+ 	mcmdv®
+ ;
+ 
+ 30 
+ compcmd
+  
+ 	mcompv®
+ ;
+ 
+ 31 
+ STAB
+  *
+ 	m¡abv®
+ ;
+ 
+ 32 
+ FCMD
+  *
+ 	mfÜmv®
+ ;
+ 
+ 33 } 
+ 	tYYSTYPE
+ ;
+ 
+ 35 
+ 	#YYERRCODE
+  256
+ 
+ 	)
+ 
+ 36 
+ 	#WORD
+  257
+ 
+ 	)
+ 
+ 37 
+ 	#APPEND
+  258
+ 
+ 	)
+ 
+ 38 
+ 	#OPEN
+  259
+ 
+ 	)
+ 
+ 39 
+ 	#SSELECT
+  260
+ 
+ 	)
+ 
+ 40 
+ 	#LOOPEX
+  261
+ 
+ 	)
+ 
+ 41 
+ 	#USING
+  262
+ 
+ 	)
+ 
+ 42 
+ 	#FORMAT
+  263
+ 
+ 	)
+ 
+ 43 
+ 	#DO
+  264
+ 
+ 	)
+ 
+ 44 
+ 	#SHIFT
+  265
+ 
+ 	)
+ 
+ 45 
+ 	#PUSH
+  266
+ 
+ 	)
+ 
+ 46 
+ 	#POP
+  267
+ 
+ 	)
+ 
+ 47 
+ 	#LVALFUN
+  268
+ 
+ 	)
+ 
+ 48 
+ 	#WHILE
+  269
+ 
+ 	)
+ 
+ 49 
+ 	#UNTIL
+  270
+ 
+ 	)
+ 
+ 50 
+ 	#IF
+  271
+ 
+ 	)
+ 
+ 51 
+ 	#UNLESS
+  272
+ 
+ 	)
+ 
+ 52 
+ 	#ELSE
+  273
+ 
+ 	)
+ 
+ 53 
+ 	#ELSIF
+  274
+ 
+ 	)
+ 
+ 54 
+ 	#CONTINUE
+  275
+ 
+ 	)
+ 
+ 55 
+ 	#SPLIT
+  276
+ 
+ 	)
+ 
+ 56 
+ 	#FLIST
+  277
+ 
+ 	)
+ 
+ 57 
+ 	#FOR
+  278
+ 
+ 	)
+ 
+ 58 
+ 	#FILOP
+  279
+ 
+ 	)
+ 
+ 59 
+ 	#FILOP2
+  280
+ 
+ 	)
+ 
+ 60 
+ 	#FILOP3
+  281
+ 
+ 	)
+ 
+ 61 
+ 	#FILOP4
+  282
+ 
+ 	)
+ 
+ 62 
+ 	#FILOP22
+  283
+ 
+ 	)
+ 
+ 63 
+ 	#FILOP25
+  284
+ 
+ 	)
+ 
+ 64 
+ 	#FUNC0
+  285
+ 
+ 	)
+ 
+ 65 
+ 	#FUNC1
+  286
+ 
+ 	)
+ 
+ 66 
+ 	#FUNC2
+  287
+ 
+ 	)
+ 
+ 67 
+ 	#FUNC2x
+  288
+ 
+ 	)
+ 
+ 68 
+ 	#FUNC3
+  289
+ 
+ 	)
+ 
+ 69 
+ 	#FUNC4
+  290
+ 
+ 	)
+ 
+ 70 
+ 	#FUNC5
+  291
+ 
+ 	)
+ 
+ 71 
+ 	#HSHFUN
+  292
+ 
+ 	)
+ 
+ 72 
+ 	#HSHFUN3
+  293
+ 
+ 	)
+ 
+ 73 
+ 	#FLIST2
+  294
+ 
+ 	)
+ 
+ 74 
+ 	#SUB
+  295
+ 
+ 	)
+ 
+ 75 
+ 	#FILETEST
+  296
+ 
+ 	)
+ 
+ 76 
+ 	#LOCAL
+  297
+ 
+ 	)
+ 
+ 77 
+ 	#DELETE
+  298
+ 
+ 	)
+ 
+ 78 
+ 	#RELOP
+  299
+ 
+ 	)
+ 
+ 79 
+ 	#EQOP
+  300
+ 
+ 	)
+ 
+ 80 
+ 	#MULOP
+  301
+ 
+ 	)
+ 
+ 81 
+ 	#ADDOP
+  302
+ 
+ 	)
+ 
+ 82 
+ 	#PACKAGE
+  303
+ 
+ 	)
+ 
+ 83 
+ 	#AMPER
+  304
+ 
+ 	)
+ 
+ 84 
+ 	#FORMLIST
+  305
+ 
+ 	)
+ 
+ 85 
+ 	#REG
+  306
+ 
+ 	)
+ 
+ 86 
+ 	#ARYLEN
+  307
+ 
+ 	)
+ 
+ 87 
+ 	#ARY
+  308
+ 
+ 	)
+ 
+ 88 
+ 	#HSH
+  309
+ 
+ 	)
+ 
+ 89 
+ 	#STAR
+  310
+ 
+ 	)
+ 
+ 90 
+ 	#SUBST
+  311
+ 
+ 	)
+ 
+ 91 
+ 	#PATTERN
+  312
+ 
+ 	)
+ 
+ 92 
+ 	#RSTRING
+  313
+ 
+ 	)
+ 
+ 93 
+ 	#TRANS
+  314
+ 
+ 	)
+ 
+ 94 
+ 	#LISTOP
+  315
+ 
+ 	)
+ 
+ 95 
+ 	#DOTDOT
+  316
+ 
+ 	)
+ 
+ 96 
+ 	#OROR
+  317
+ 
+ 	)
+ 
+ 97 
+ 	#ANDAND
+  318
+ 
+ 	)
+ 
+ 98 
+ 	#UNIOP
+  319
+ 
+ 	)
+ 
+ 99 
+ 	#LS
+  320
+ 
+ 	)
+ 
+ 100 
+ 	#RS
+  321
+ 
+ 	)
+ 
+ 101 
+ 	#MATCH
+  322
+ 
+ 	)
+ 
+ 102 
+ 	#NMATCH
+  323
+ 
+ 	)
+ 
+ 103 
+ 	#UMINUS
+  324
+ 
+ 	)
+ 
+ 104 
+ 	#POW
+  325
+ 
+ 	)
+ 
+ 105 
+ 	#INC
+  326
+ 
+ 	)
+ 
+ 106 
+ 	#DEC
+  327
+ 
+ 	)
+ 
+ 107 cڡ 
+ 	gyylhs
+ [] = { -1,
+ 
+ 128 cڡ 
+ 	gyyËn
+ [] = { 2,
+ 
+ 149 cڡ 
+ 	gyydeäed
+ [] = { 1,
+ 
+ 192 cڡ 
+ 	gyydgÙo
+ [] = { 1,
+ 
+ 197 cڡ 
+ 	gyysšdex
+ [] = { 0,
+ 
+ 240 cڡ 
+ 	gyyršdex
+ [] = { 0,
+ 
+ 283 cڡ 
+ 	gyygšdex
+ [] = { 0,
+ 
+ 288 
+ 	#YYTABLESIZE
+  6272
+ 
+ 	)
+ 
+ 289 cڡ 
+ 	gyybË
+ [] = { 88,
+ 
+ 919 cڡ 
+ 	gyycheck
+ [] = { 18,
+ 
+ 1549 
+ 	#YYFINAL
+  1
+ 
+ 	)
+ 
+ 1550 #iâdeà
+ YYDEBUG
+ 
+ 
+ 1551 
+ 	#YYDEBUG
+  0
+ 
+ 	)
+ 
+ 1553 
+ 	#YYMAXTOKEN
+  327
+ 
+ 	)
+ 
+ 1554 #ià
+ YYDEBUG
+ 
+ 
+ 1555 cڡ * cڡ 
+ 	gyyÇme
+ [] = {
+ 
+ 1572 cڡ * cڡ 
+ 	gyyruË
+ [] = {
+ 
+ 1757 #ià
+ YYDEBUG
+ 
+ 
+ 1758 
+ 	~<¡dio.h
+ >
+ 
+ 1760 #ifdeà
+ YYSTACKSIZE
+ 
+ 
+ 1761 #undeà
+ YYMAXDEPTH
+ 
+ 
+ 1762 
+ 	#YYMAXDEPTH
+  
+ YYSTACKSIZE
+ 
+ 
+ 	)
+ 
+ 1764 #ifdeà
+ YYMAXDEPTH
+ 
+ 
+ 1765 
+ 	#YYSTACKSIZE
+  
+ YYMAXDEPTH
+ 
+ 
+ 	)
+ 
+ 1767 
+ 	#YYSTACKSIZE
+  10000
+ 
+ 	)
+ 
+ 1768 
+ 	#YYMAXDEPTH
+  10000
+ 
+ 	)
+ 
+ 1771 
+ 	#YYINITSTACKSIZE
+  200
+ 
+ 	)
+ 
+ 1772 
+ 	gyydebug
+ ;
+ 
+ 1773 
+ 	gyyüs
+ ;
+ 
+ 1774 
+ 	gyy”ræag
+ ;
+ 
+ 1775 
+ 	gyych¬
+ ;
+ 
+ 1776 *
+ 	gyys¥
+ ;
+ 
+ 1777 
+ YYSTYPE
+  *
+ 	gyyv¥
+ ;
+ 
+ 1778 
+ YYSTYPE
+  
+ 	gyyv®
+ ;
+ 
+ 1779 
+ YYSTYPE
+  
+ 	gyylv®
+ ;
+ 
+ 1780 *
+ 	gyyss
+ ;
+ 
+ 1781 *
+ 	gyys¦im
+ ;
+ 
+ 1782 
+ YYSTYPE
+  *
+ 	gyyvs
+ ;
+ 
+ 1783 
+ 	gyy¡acksize
+ ;
+ 
+ 1788 
+ 	$yygrow¡ack
+ ()
+ 
+ 1790 
+ Ãwsize
+ , 
+ i
+ ;
+ 
+ 1791 *
+ Ãwss
+ ;
+ 
+ 1792 
+ YYSTYPE
+  *
+ Ãwvs
+ ;
+ 
+ 1794 ià((
+ Ãwsize
+  = 
+ yy¡acksize
+ ) == 0)
+ 
+ 1795 
+ Ãwsize
+  = 
+ YYINITSTACKSIZE
+ ;
+ 
+ 1796 ià(
+ Ãwsize
+  >ð
+ YYMAXDEPTH
+ )
+ 
+ 1798 ià((
+ Ãwsize
+  *ð2è> 
+ YYMAXDEPTH
+ )
+ 
+ 1799 
+ Ãwsize
+  = 
+ YYMAXDEPTH
+ ;
+ 
+ 1800 
+ i
+  = 
+ yys¥
+  - 
+ yyss
+ ;
+ 
+ 1801 
+ Ãwss
+  = 
+ yyss
+  ? (*)
+ 	`»®loc
+ (yyss, 
+ Ãwsize
+  *  *newss) :
+ 
+ 1802 (*)
+ 	`m®loc
+ (
+ Ãwsize
+  *  *
+ Ãwss
+ );
+ 
+ 1803 ià(
+ Ãwss
+  =ð
+ NULL
+ )
+ 
+ 1805 
+ yyss
+  = 
+ Ãwss
+ ;
+ 
+ 1806 
+ yys¥
+  = 
+ Ãwss
+  + 
+ i
+ ;
+ 
+ 1807 
+ Ãwvs
+  = 
+ yyvs
+  ? (
+ YYSTYPE
+  *)
+ 	`»®loc
+ (yyvs, 
+ Ãwsize
+  *  *newvs) :
+ 
+ 1808 (
+ YYSTYPE
+  *)
+ 	`m®loc
+ (
+ Ãwsize
+  *  *
+ Ãwvs
+ );
+ 
+ 1809 ià(
+ Ãwvs
+  =ð
+ NULL
+ )
+ 
+ 1811 
+ yyvs
+  = 
+ Ãwvs
+ ;
+ 
+ 1812 
+ yyv¥
+  = 
+ Ãwvs
+  + 
+ i
+ ;
+ 
+ 1813 
+ yy¡acksize
+  = 
+ Ãwsize
+ ;
+ 
+ 1814 
+ yys¦im
+  = 
+ yyss
+  + 
+ Ãwsize
+  - 1;
+ 
+ 1816 
+ 	}
+ }
+ 
+ 1818 
+ 	#YYABORT
+  
+ yyabÜt
+ 
+ 
+ 	)
+ 
+ 1819 
+ 	#YYREJECT
+  
+ yyabÜt
+ 
+ 
+ 	)
+ 
+ 1820 
+ 	#YYACCEPT
+  
+ yyacû±
+ 
+ 
+ 	)
+ 
+ 1821 
+ 	#YYERROR
+  
+ yy”¾ab
+ 
+ 
+ 	)
+ 
+ 1823 #iâdeà
+ YYPARSE_PARAM
+ 
+ 
+ 1824 #ià
+ defšed
+ (
+ __ýlu¥lus
+ è|| 
+ __STDC__
+ 
+ 
+ 1825 
+ 	#YYPARSE_PARAM_ARG
+  
+ 
+ 	)
+ 
+ 1826 
+ 	#YYPARSE_PARAM_DECL
+ 
+ 
+ 	)
+ 
+ 1828 
+ 	#YYPARSE_PARAM_ARG
+ 
+ 
+ 	)
+ 
+ 1829 
+ 	#YYPARSE_PARAM_DECL
+ 
+ 
+ 	)
+ 
+ 1832 #iâdeà
+ YYPARSE_PARAM_TYPE
+ 
+ 
+ 1833 
+ 	#YYPARSE_PARAM_TYPE
+  *
+ 
+ 	)
+ 
+ 1835 #ià
+ defšed
+ (
+ __ýlu¥lus
+ è|| 
+ __STDC__
+ 
+ 
+ 1836 
+ 	#YYPARSE_PARAM_ARG
+  
+ YYPARSE_PARAM_TYPE
+  
+ YYPARSE_PARAM
+ 
+ 
+ 	)
+ 
+ 1837 
+ 	#YYPARSE_PARAM_DECL
+ 
+ 
+ 	)
+ 
+ 1839 
+ 	#YYPARSE_PARAM_ARG
+  
+ YYPARSE_PARAM
+ 
+ 
+ 	)
+ 
+ 1840 
+ 	#YYPARSE_PARAM_DECL
+  
+ YYPARSE_PARAM_TYPE
+  
+ YYPARSE_PARAM
+ ;
+ 
+ 	)
+ 
+ 1845 
+ 	$yy·r£
+  (
+ YYPARSE_PARAM_ARG
+ )
+ 
+ 1846 
+ YYPARSE_PARAM_DECL
+ 
+ 
+ 1848 
+ yym
+ , 
+ yyn
+ , 
+ yy¡©e
+ ;
+ 
+ 1849 #ià
+ YYDEBUG
+ 
+ 
+ 1850 cڡ *
+ yys
+ ;
+ 
+ 1852 ià((
+ yys
+  = 
+ 	`g‘’v
+ ("YYDEBUG")))
+ 
+ 1854 
+ yyn
+  = *
+ yys
+ ;
+ 
+ 1855 ià(
+ yyn
+  >= '0' && yyn <= '9')
+ 
+ 1856 
+ yydebug
+  = 
+ yyn
+  - '0';
+ 
+ 1860 
+ yyüs
+  = 0;
+ 
+ 1861 
+ yy”ræag
+  = 0;
+ 
+ 1862 
+ yych¬
+  = (-1);
+ 
+ 1864 ià(
+ yyss
+  =ð
+ NULL
+  && 
+ 	`yygrow¡ack
+ ()è
+ yyovӾow
+ ;
+ 
+ 1865 
+ yys¥
+  = 
+ yyss
+ ;
+ 
+ 1866 
+ yyv¥
+  = 
+ yyvs
+ ;
+ 
+ 1867 *
+ yys¥
+  = 
+ yy¡©e
+  = 0;
+ 
+ 1869 
+ yyloÝ
+ :
+ 
+ 1870 ià((
+ yyn
+  = 
+ yydeäed
+ [
+ yy¡©e
+ ])è
+ yy»duû
+ ;
+ 
+ 1871 ià(
+ yych¬
+  < 0)
+ 
+ 1873 ià((
+ yych¬
+  = 
+ 	`yyËx
+ ()) < 0) yychar = 0;
+ 
+ 1874 #ià
+ YYDEBUG
+ 
+ 
+ 1875 ià(
+ yydebug
+ )
+ 
+ 1877 
+ yys
+  = 0;
+ 
+ 1878 ià(
+ yych¬
+  <ð
+ YYMAXTOKEN
+ è
+ yys
+  = 
+ yyÇme
+ [yychar];
+ 
+ 1879 ià(!
+ yys
+ ) yys = "illegal-symbol";
+ 
+ 1880 
+ 	`´štf
+ ("%sdebug: state %d,„eading %d (%s)\n",
+ 
+ 1881 
+ YYPREFIX
+ , 
+ yy¡©e
+ , 
+ yych¬
+ , 
+ yys
+ );
+ 
+ 1885 ià((
+ yyn
+  = 
+ yysšdex
+ [
+ yy¡©e
+ ]è&& (yyÀ+ð
+ yych¬
+ ) >= 0 &&
+ 
+ 1886 
+ yyn
+  <ð
+ YYTABLESIZE
+  && 
+ yycheck
+ [yyn] =ð
+ yych¬
+ )
+ 
+ 1888 #ià
+ YYDEBUG
+ 
+ 
+ 1889 ià(
+ yydebug
+ )
+ 
+ 1890 
+ 	`´štf
+ ("%sdebug: state %d, shiftingo state %d\n",
+ 
+ 1891 
+ YYPREFIX
+ , 
+ yy¡©e
+ , 
+ yybË
+ [
+ yyn
+ ]);
+ 
+ 1893 ià(
+ yys¥
+  >ð
+ yys¦im
+  && 
+ 	`yygrow¡ack
+ ())
+ 
+ 1895 
+ yyovӾow
+ ;
+ 
+ 1897 *++
+ yys¥
+  = 
+ yy¡©e
+  = 
+ yybË
+ [
+ yyn
+ ];
+ 
+ 1898 *++
+ yyv¥
+  = 
+ yylv®
+ ;
+ 
+ 1899 
+ yych¬
+  = (-1);
+ 
+ 1900 ià(
+ yy”ræag
+  > 0) --yyerrflag;
+ 
+ 1901 
+ yyloÝ
+ ;
+ 
+ 1903 ià((
+ yyn
+  = 
+ yyršdex
+ [
+ yy¡©e
+ ]è&& (yyÀ+ð
+ yych¬
+ ) >= 0 &&
+ 
+ 1904 
+ yyn
+  <ð
+ YYTABLESIZE
+  && 
+ yycheck
+ [yyn] =ð
+ yych¬
+ )
+ 
+ 1906 
+ yyn
+  = 
+ yybË
+ [yyn];
+ 
+ 1907 
+ yy»duû
+ ;
+ 
+ 1909 ià(
+ yy”ræag
+ è
+ yyš»cov”y
+ ;
+ 
+ 1910 #ià
+ 	`defšed
+ (
+ lšt
+ è|| defšed(
+ __GNUC__
+ )
+ 
+ 1911 
+ yyÃw”rÜ
+ ;
+ 
+ 1913 
+ yyÃw”rÜ
+ :
+ 
+ 1914 
+ 	`yy”rÜ
+ ("syntaxƒrror");
+ 
+ 1915 #ià
+ 	`defšed
+ (
+ lšt
+ è|| defšed(
+ __GNUC__
+ )
+ 
+ 1916 
+ yy”¾ab
+ ;
+ 
+ 1918 
+ yy”¾ab
+ :
+ 
+ 1919 ++
+ yyüs
+ ;
+ 
+ 1920 
+ yyš»cov”y
+ :
+ 
+ 1921 ià(
+ yy”ræag
+  < 3)
+ 
+ 1923 
+ yy”ræag
+  = 3;
+ 
+ 1926 ià((
+ yyn
+  = 
+ yysšdex
+ [*
+ yys¥
+ ]è&& (yyÀ+ð
+ YYERRCODE
+ ) >= 0 &&
+ 
+ 1927 
+ yyn
+  <ð
+ YYTABLESIZE
+  && 
+ yycheck
+ [yyn] =ð
+ YYERRCODE
+ )
+ 
+ 1929 #ià
+ YYDEBUG
+ 
+ 
+ 1930 ià(
+ yydebug
+ )
+ 
+ 1931 
+ 	`´štf
+ ("%sdebug: s‹ %d,ƒ¼Ü„ecov”y shiášg\
+  s‹ %d\n", 
+ YYPREFIX
+ , *
+ yys¥
+ , 
+ yybË
+ [
+ yyn
+ ]);
+ 
+ 1934 ià(
+ yys¥
+  >ð
+ yys¦im
+  && 
+ 	`yygrow¡ack
+ ())
+ 
+ 1936 
+ yyovӾow
+ ;
+ 
+ 1938 *++
+ yys¥
+  = 
+ yy¡©e
+  = 
+ yybË
+ [
+ yyn
+ ];
+ 
+ 1939 *++
+ yyv¥
+  = 
+ yylv®
+ ;
+ 
+ 1940 
+ yyloÝ
+ ;
+ 
+ 1944 #ià
+ YYDEBUG
+ 
+ 
+ 1945 ià(
+ yydebug
+ )
+ 
+ 1946 
+ 	`´štf
+ ("%sdebug:ƒrror„ecovery discarding state %d\n",
+ 
+ 1947 
+ YYPREFIX
+ , *
+ yys¥
+ );
+ 
+ 1949 ià(
+ yys¥
+  <ð
+ yyss
+ è
+ yyabÜt
+ ;
+ 
+ 1950 --
+ yys¥
+ ;
+ 
+ 1951 --
+ yyv¥
+ ;
+ 
+ 1957 ià(
+ yych¬
+  =ð0è
+ yyabÜt
+ ;
+ 
+ 1958 #ià
+ YYDEBUG
+ 
+ 
+ 1959 ià(
+ yydebug
+ )
+ 
+ 1961 
+ yys
+  = 0;
+ 
+ 1962 ià(
+ yych¬
+  <ð
+ YYMAXTOKEN
+ è
+ yys
+  = 
+ yyÇme
+ [yychar];
+ 
+ 1963 ià(!
+ yys
+ ) yys = "illegal-symbol";
+ 
+ 1964 
+ 	`´štf
+ ("%sdebug: state %d,ƒrror„ecovery discardsoken %d (%s)\n",
+ 
+ 1965 
+ YYPREFIX
+ , 
+ yy¡©e
+ , 
+ yych¬
+ , 
+ yys
+ );
+ 
+ 1968 
+ yych¬
+  = (-1);
+ 
+ 1969 
+ yyloÝ
+ ;
+ 
+ 1971 
+ yy»duû
+ :
+ 
+ 1972 #ià
+ YYDEBUG
+ 
+ 
+ 1973 ià(
+ yydebug
+ )
+ 
+ 1974 
+ 	`´štf
+ ("%sdebug: state %d,„educing by„ule %d (%s)\n",
+ 
+ 1975 
+ YYPREFIX
+ , 
+ yy¡©e
+ , 
+ yyn
+ , 
+ yyruË
+ [yyn]);
+ 
+ 1977 
+ yym
+  = 
+ yyËn
+ [
+ yyn
+ ];
+ 
+ 1978 
+ yyv®
+  = 
+ yyv¥
+ [1-
+ yym
+ ];
+ 
+ 1979 
+ yyn
+ )
+ 
+ 1984 #ià
+ 	`defšed
+ (
+ YYDEBUG
+ è&& defšed(
+ DEBUGGING
+ )
+ 
+ 1985 
+ yydebug
+  = (
+ debug
+  & 1);
+ 
+ 1991 { ià(
+ š_ev®
+ )
+ 
+ 1992 
+ ev®_roÙ
+  = 
+ 	`block_h—d
+ (
+ yyv¥
+ [0].
+ cmdv®
+ );
+ 
+ 1994 
+ maš_roÙ
+  = 
+ 	`block_h—d
+ (
+ yyv¥
+ [0].
+ cmdv®
+ ); }
+ 
+ 1998 { 
+ yyv®
+ .
+ compv®
+ .
+ comp_Œue
+  = 
+ yyv¥
+ [-2].
+ cmdv®
+ ; yyv®.compv®.
+ comp_®t
+  = yyvsp[0].cmdval; }
+ 
+ 2002 { 
+ yyv®
+ .
+ compv®
+ .
+ comp_Œue
+  = 
+ yyv¥
+ [-1].
+ cmdv®
+ ; yyv®.compv®.
+ comp_®t
+  = yyvsp[0].cmdval; }
+ 
+ 2006 { 
+ yyv®
+ .
+ cmdv®
+  = 
+ NuÎcmd
+ ; }
+ 
+ 2010 { 
+ yyv®
+ .
+ cmdv®
+  = 
+ yyv¥
+ [0].cmdval; }
+ 
+ 2014 { 
+ cmdlše
+  = 
+ yyv¥
+ [-4].
+ iv®
+ ;
+ 
+ 2015 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`make_ccmd
+ (
+ C_ELSIF
+ ,
+ yyv¥
+ [-2].
+ ¬g
+ ,yyv¥[0].
+ compv®
+ ); }
+ 
+ 2019 { 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`block_h—d
+ (
+ yyv¥
+ [-1].cmdval);
+ 
+ 2020 ià(
+ §ve¡ack
+ ->
+ ¬y_fžl
+  > 
+ yyv¥
+ [-2].
+ iv®
+ )
+ 
+ 2021 
+ 	`»¡Ü–i¡
+ (
+ yyv¥
+ [-2].
+ iv®
+ ); }
+ 
+ 2025 { 
+ yyv®
+ .
+ iv®
+  = 
+ §ve¡ack
+ ->
+ ¬y_fžl
+ ; }
+ 
+ 2029 { 
+ yyv®
+ .
+ cmdv®
+  = 
+ NuÎcmd
+ ; }
+ 
+ 2033 { 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`­³nd_lše
+ (
+ yyv¥
+ [-1].cmdval,yyvsp[0].cmdval); }
+ 
+ 2037 { 
+ yyv®
+ .
+ cmdv®
+  = 
+ NuÎcmd
+ ; }
+ 
+ 2041 { 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`add_Ïb–
+ (
+ yyv¥
+ [-1].
+ cv®
+ ,yyvsp[0].cmdval); }
+ 
+ 2045 { ià(
+ yyv¥
+ [-1].
+ cv®
+  !ð
+ NuÎch
+ ) {
+ 
+ 2046 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`add_Ïb–
+ (
+ yyv¥
+ [-1].
+ cv®
+ , 
+ 	`make_acmd
+ (
+ C_EXPR
+ , 
+ NuΡab
+ ,
+ 
+ 2047 
+ Nuάg
+ , Nullarg) );
+ 
+ 2050 
+ yyv®
+ .
+ cmdv®
+  = 
+ NuÎcmd
+ ;
+ 
+ 2051 
+ cmdlše
+  = 
+ NOLINE
+ ;
+ 
+ 2056 { 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`add_Ïb–
+ (
+ yyv¥
+ [-2].
+ cv®
+ ,yyvsp[-1].cmdval); }
+ 
+ 2060 { 
+ yyv®
+ .
+ cmdv®
+  = 
+ NuÎcmd
+ ; }
+ 
+ 2064 { 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`make_acmd
+ (
+ C_EXPR
+ , 
+ NuΡab
+ , 
+ yyv¥
+ [0].
+ ¬g
+ , 
+ Nuάg
+ ); }
+ 
+ 2068 { 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`addcÚd
+ (
+ 
+ 2069 
+ 	`make_acmd
+ (
+ C_EXPR
+ , 
+ NuΡab
+ , 
+ Nuάg
+ , 
+ yyv¥
+ [-2].
+ ¬g
+ ), yyvsp[0].arg); }
+ 
+ 2073 { 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`addcÚd
+ (
+ 	`šv”t
+ (
+ 
+ 2074 
+ 	`make_acmd
+ (
+ C_EXPR
+ , 
+ NuΡab
+ , 
+ Nuάg
+ , 
+ yyv¥
+ [-2].
+ ¬g
+ )), yyvsp[0].arg); }
+ 
+ 2078 { 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`addloÝ
+ (
+ 
+ 2079 
+ 	`make_acmd
+ (
+ C_EXPR
+ , 
+ NuΡab
+ , 
+ Nuάg
+ , 
+ yyv¥
+ [-2].
+ ¬g
+ ), yyvsp[0].arg); }
+ 
+ 2083 { 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`addloÝ
+ (
+ 	`šv”t
+ (
+ 
+ 2084 
+ 	`make_acmd
+ (
+ C_EXPR
+ , 
+ NuΡab
+ , 
+ Nuάg
+ , 
+ yyv¥
+ [-2].
+ ¬g
+ )), yyvsp[0].arg); }
+ 
+ 2088 { 
+ cmdlše
+  = 
+ yyv¥
+ [-4].
+ iv®
+ ;
+ 
+ 2089 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`make_icmd
+ (
+ C_IF
+ ,
+ yyv¥
+ [-2].
+ ¬g
+ ,yyv¥[0].
+ compv®
+ ); }
+ 
+ 2093 { 
+ cmdlše
+  = 
+ yyv¥
+ [-4].
+ iv®
+ ;
+ 
+ 2094 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`šv”t
+ (
+ 	`make_icmd
+ (
+ C_IF
+ ,
+ yyv¥
+ [-2].
+ ¬g
+ ,yyv¥[0].
+ compv®
+ )); }
+ 
+ 2098 { 
+ cmdlše
+  = 
+ yyv¥
+ [-2].
+ iv®
+ ;
+ 
+ 2099 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`make_ccmd
+ (
+ C_IF
+ ,
+ 	`cmd_to_¬g
+ (
+ yyv¥
+ [-1].cmdv®),yyv¥[0].
+ compv®
+ ); }
+ 
+ 2103 { 
+ cmdlše
+  = 
+ yyv¥
+ [-2].
+ iv®
+ ;
+ 
+ 2104 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`šv”t
+ (
+ 	`make_ccmd
+ (
+ C_IF
+ ,
+ 	`cmd_to_¬g
+ (
+ yyv¥
+ [-1].cmdv®),yyv¥[0].
+ compv®
+ )); }
+ 
+ 2108 { 
+ cmdlše
+  = 
+ yyv¥
+ [-4].
+ iv®
+ ;
+ 
+ 2109 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`wÝt
+ (
+ 	`add_Ïb–
+ (
+ yyv¥
+ [-5].
+ cv®
+ ,
+ 
+ 2110 
+ 	`make_ccmd
+ (
+ C_WHILE
+ ,
+ yyv¥
+ [-2].
+ ¬g
+ ,yyv¥[0].
+ compv®
+ ) )); }
+ 
+ 2114 { 
+ cmdlše
+  = 
+ yyv¥
+ [-4].
+ iv®
+ ;
+ 
+ 2115 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`wÝt
+ (
+ 	`add_Ïb–
+ (
+ yyv¥
+ [-5].
+ cv®
+ ,
+ 
+ 2116 
+ 	`šv”t
+ (
+ 	`make_ccmd
+ (
+ C_WHILE
+ ,
+ yyv¥
+ [-2].
+ ¬g
+ ,yyv¥[0].
+ compv®
+ )) )); }
+ 
+ 2120 { 
+ cmdlše
+  = 
+ yyv¥
+ [-2].
+ iv®
+ ;
+ 
+ 2121 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`wÝt
+ (
+ 	`add_Ïb–
+ (
+ yyv¥
+ [-3].
+ cv®
+ ,
+ 
+ 2122 
+ 	`make_ccmd
+ (
+ C_WHILE
+ , 
+ 	`cmd_to_¬g
+ (
+ yyv¥
+ [-1].
+ cmdv®
+ ),yyv¥[0].
+ compv®
+ ) )); }
+ 
+ 2126 { 
+ cmdlše
+  = 
+ yyv¥
+ [-2].
+ iv®
+ ;
+ 
+ 2127 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`wÝt
+ (
+ 	`add_Ïb–
+ (
+ yyv¥
+ [-3].
+ cv®
+ ,
+ 
+ 2128 
+ 	`šv”t
+ (
+ 	`make_ccmd
+ (
+ C_WHILE
+ , 
+ 	`cmd_to_¬g
+ (
+ yyv¥
+ [-1].
+ cmdv®
+ ),yyv¥[0].
+ compv®
+ )) )); }
+ 
+ 2132 { 
+ cmdlše
+  = 
+ yyv¥
+ [-5].
+ iv®
+ ;
+ 
+ 2145 ià(
+ yyv¥
+ [-2].
+ ¬g
+ ->
+ ¬g_ty³
+  !ð
+ O_ARRAY
+ ) {
+ 
+ 2146 
+ sü¡ab
+  = 
+ 	`¯dd
+ (
+ 	`g’¡ab
+ ());
+ 
+ 2147 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`­³nd_lše
+ (
+ 
+ 2148 
+ 	`make_acmd
+ (
+ C_EXPR
+ , 
+ NuΡab
+ ,
+ 
+ 2149 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ O_ASSIGN
+ ,2,
+ 
+ 2150 
+ 	`li¡ish
+ (
+ 	`make_Ý
+ (
+ O_ARRAY
+ , 1,
+ 
+ 2151 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ sü¡ab
+ ),
+ 
+ 2152 
+ Nuάg
+ ,Nullarg )),
+ 
+ 2153 
+ 	`li¡ish
+ (
+ 	`make_li¡
+ (
+ yyv¥
+ [-2].
+ ¬g
+ )),
+ 
+ 2154 
+ Nuάg
+ )),
+ 
+ 2155 
+ Nuάg
+ ),
+ 
+ 2156 
+ 	`wÝt
+ (
+ 	`ov”
+ (
+ yyv¥
+ [-4].
+ ¡abv®
+ ,
+ 	`add_Ïb–
+ (yyv¥[-6].
+ cv®
+ ,
+ 
+ 2157 
+ 	`make_ccmd
+ (
+ C_WHILE
+ ,
+ 
+ 2158 
+ 	`make_Ý
+ (
+ O_ARRAY
+ , 1,
+ 
+ 2159 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ sü¡ab
+ ),
+ 
+ 2160 
+ Nuάg
+ ,Nullarg ),
+ 
+ 2161 
+ yyv¥
+ [0].
+ compv®
+ )))));
+ 
+ 2162 
+ yyv®
+ .
+ cmdv®
+ ->
+ c_lše
+  = 
+ yyv¥
+ [-5].
+ iv®
+ ;
+ 
+ 2163 
+ yyv®
+ .
+ cmdv®
+ ->
+ c_h—d
+ ->
+ c_lše
+  = 
+ yyv¥
+ [-5].
+ iv®
+ ;
+ 
+ 2166 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`wÝt
+ (
+ 	`ov”
+ (
+ yyv¥
+ [-4].
+ ¡abv®
+ ,
+ 	`add_Ïb–
+ (yyv¥[-6].
+ cv®
+ ,
+ 
+ 2167 
+ 	`make_ccmd
+ (
+ C_WHILE
+ ,
+ yyv¥
+ [-2].
+ ¬g
+ ,yyv¥[0].
+ compv®
+ ) )));
+ 
+ 2173 { 
+ cmdlše
+  = 
+ yyv¥
+ [-4].
+ iv®
+ ;
+ 
+ 2174 ià(
+ yyv¥
+ [-2].
+ ¬g
+ ->
+ ¬g_ty³
+  !ð
+ O_ARRAY
+ ) {
+ 
+ 2175 
+ sü¡ab
+  = 
+ 	`¯dd
+ (
+ 	`g’¡ab
+ ());
+ 
+ 2176 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`­³nd_lše
+ (
+ 
+ 2177 
+ 	`make_acmd
+ (
+ C_EXPR
+ , 
+ NuΡab
+ ,
+ 
+ 2178 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ O_ASSIGN
+ ,2,
+ 
+ 2179 
+ 	`li¡ish
+ (
+ 	`make_Ý
+ (
+ O_ARRAY
+ , 1,
+ 
+ 2180 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ sü¡ab
+ ),
+ 
+ 2181 
+ Nuάg
+ ,Nullarg )),
+ 
+ 2182 
+ 	`li¡ish
+ (
+ 	`make_li¡
+ (
+ yyv¥
+ [-2].
+ ¬g
+ )),
+ 
+ 2183 
+ Nuάg
+ )),
+ 
+ 2184 
+ Nuάg
+ ),
+ 
+ 2185 
+ 	`wÝt
+ (
+ 	`ov”
+ (
+ def¡ab
+ ,
+ 	`add_Ïb–
+ (
+ yyv¥
+ [-5].
+ cv®
+ ,
+ 
+ 2186 
+ 	`make_ccmd
+ (
+ C_WHILE
+ ,
+ 
+ 2187 
+ 	`make_Ý
+ (
+ O_ARRAY
+ , 1,
+ 
+ 2188 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ sü¡ab
+ ),
+ 
+ 2189 
+ Nuάg
+ ,Nullarg ),
+ 
+ 2190 
+ yyv¥
+ [0].
+ compv®
+ )))));
+ 
+ 2191 
+ yyv®
+ .
+ cmdv®
+ ->
+ c_lše
+  = 
+ yyv¥
+ [-4].
+ iv®
+ ;
+ 
+ 2192 
+ yyv®
+ .
+ cmdv®
+ ->
+ c_h—d
+ ->
+ c_lše
+  = 
+ yyv¥
+ [-4].
+ iv®
+ ;
+ 
+ 2195 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`wÝt
+ (
+ 	`ov”
+ (
+ def¡ab
+ ,
+ 	`add_Ïb–
+ (
+ yyv¥
+ [-5].
+ cv®
+ ,
+ 
+ 2196 
+ 	`make_ccmd
+ (
+ C_WHILE
+ ,
+ yyv¥
+ [-2].
+ ¬g
+ ,yyv¥[0].
+ compv®
+ ) )));
+ 
+ 2202 { 
+ yyv®
+ .
+ compv®
+ .
+ comp_Œue
+  = 
+ yyv¥
+ [0].
+ cmdv®
+ ;
+ 
+ 2203 
+ yyv®
+ .
+ compv®
+ .
+ comp_®t
+  = 
+ yyv¥
+ [-2].
+ cmdv®
+ ;
+ 
+ 2204 
+ cmdlše
+  = 
+ yyv¥
+ [-8].
+ iv®
+ ;
+ 
+ 2205 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`­³nd_lše
+ (
+ yyv¥
+ [-6].cmdv®,
+ 	`wÝt
+ (
+ 	`add_Ïb–
+ (yyv¥[-9].
+ cv®
+ ,
+ 
+ 2206 
+ 	`make_ccmd
+ (
+ C_WHILE
+ ,
+ yyv¥
+ [-4].
+ ¬g
+ ,
+ yyv®
+ .
+ compv®
+ ) ))); }
+ 
+ 2210 { 
+ yyv®
+ .
+ cmdv®
+  = 
+ 	`add_Ïb–
+ (
+ yyv¥
+ [-1].
+ cv®
+ ,
+ 	`make_ccmd
+ (
+ C_BLOCK
+ ,
+ Nuάg
+ ,yyv¥[0].
+ compv®
+ )); }
+ 
+ 2214 { 
+ yyv®
+ .
+ cmdv®
+  = 
+ NuÎcmd
+ ; }
+ 
+ 2218 { ()
+ 	`sÿn¡r
+ ("1"); 
+ yyv®
+ .
+ ¬g
+  = 
+ yylv®
+ .arg; }
+ 
+ 2222 { 
+ yyv®
+ .
+ cv®
+  = 
+ NuÎch
+ ; }
+ 
+ 2226 { 
+ yyv®
+ .
+ iv®
+  = 0; }
+ 
+ 2230 { 
+ yyv®
+ .
+ iv®
+  = 0; }
+ 
+ 2234 { 
+ yyv®
+ .
+ iv®
+  = 0; }
+ 
+ 2238 { ià(
+ 	`¡rEQ
+ (
+ yyv¥
+ [-2].
+ cv®
+ ,"stdout"))
+ 
+ 2239 
+ 	`make_fÜm
+ (
+ 	`¡ab’t
+ ("STDOUT",
+ TRUE
+ ),
+ yyv¥
+ [0].
+ fÜmv®
+ );
+ 
+ 2240 ià(
+ 	`¡rEQ
+ (
+ yyv¥
+ [-2].
+ cv®
+ ,"stderr"))
+ 
+ 2241 
+ 	`make_fÜm
+ (
+ 	`¡ab’t
+ ("STDERR",
+ TRUE
+ ),
+ yyv¥
+ [0].
+ fÜmv®
+ );
+ 
+ 2243 
+ 	`make_fÜm
+ (
+ 	`¡ab’t
+ (
+ yyv¥
+ [-2].
+ cv®
+ ,
+ TRUE
+ ),yyv¥[0].
+ fÜmv®
+ );
+ 
+ 2244 
+ 	`Saãä“
+ (
+ yyv¥
+ [-2].
+ cv®
+ ); yyv¥[-2].cv® = 
+ NuÎch
+ ; }
+ 
+ 2248 { 
+ 	`make_fÜm
+ (
+ 	`¡ab’t
+ ("STDOUT",
+ TRUE
+ ),
+ yyv¥
+ [0].
+ fÜmv®
+ ); }
+ 
+ 2252 { 
+ 	`make_sub
+ (
+ yyv¥
+ [-1].
+ cv®
+ ,yyv¥[0].
+ cmdv®
+ ); }
+ 
+ 2256 { 
+ tmpbuf
+ [256];
+ 
+ 2257 
+ STAB
+  *
+ tmp¡ab
+ ;
+ 
+ 2259 
+ 	`§veh±r
+ (&
+ cur¡ash
+ );
+ 
+ 2260 
+ 	`§ve™em
+ (
+ cur¡Çme
+ );
+ 
+ 2261 
+ 	`¡r_£t
+ (
+ cur¡Çme
+ ,
+ yyv¥
+ [-1].
+ cv®
+ );
+ 
+ 2262 
+ 	`¥rštf
+ (
+ tmpbuf
+ ,"'_%s",
+ yyv¥
+ [-1].
+ cv®
+ );
+ 
+ 2263 
+ tmp¡ab
+  = 
+ 	`¡ab’t
+ (
+ tmpbuf
+ ,
+ TRUE
+ );
+ 
+ 2264 ià(!
+ 	`¡ab_xhash
+ (
+ tmp¡ab
+ ))
+ 
+ 2265 
+ 	`¡ab_xhash
+ (
+ tmp¡ab
+ èð
+ 	`hÃw
+ (0);
+ 
+ 2266 
+ cur¡ash
+  = 
+ 	`¡ab_xhash
+ (
+ tmp¡ab
+ );
+ 
+ 2267 ià(!
+ cur¡ash
+ ->
+ tbl_Çme
+ )
+ 
+ 2268 
+ cur¡ash
+ ->
+ tbl_Çme
+  = 
+ 	`§ve¡r
+ (
+ yyv¥
+ [-1].
+ cv®
+ );
+ 
+ 2269 
+ cur¡ash
+ ->
+ tbl_cÛffsize
+  = 0;
+ 
+ 2270 
+ 	`Saãä“
+ (
+ yyv¥
+ [-1].
+ cv®
+ ); yyv¥[-1].cv® = 
+ NuÎch
+ ;
+ 
+ 2271 
+ cmdlše
+  = 
+ NOLINE
+ ;
+ 
+ 2276 { 
+ yyv®
+ .
+ ¬g
+  = 
+ yyv¥
+ [0].arg; }
+ 
+ 2280 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_COMMA
+ , 2, 
+ yyv¥
+ [-2].¬g, yyv¥[0].¬g, 
+ Nuάg
+ ); }
+ 
+ 2284 { 
+ yyv®
+ .
+ ¬g
+  = 
+ yyv¥
+ [0].arg; }
+ 
+ 2288 { 
+ yyv¥
+ [-2].
+ ¬g
+  = 
+ 	`li¡ish
+ (yyvsp[-2].arg);
+ 
+ 2289 ià(
+ yyv¥
+ [-2].
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_ASSIGN
+  && yyv¥[-2].¬g->
+ ¬g_Ën
+  == 1)
+ 
+ 2290 
+ yyv¥
+ [-2].
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_ITEM
+ ;
+ 
+ 2291 ià(
+ yyv¥
+ [-2].
+ ¬g
+ ->
+ ¬g_ty³
+  =ð
+ O_LIST
+ )
+ 
+ 2292 
+ yyv¥
+ [0].
+ ¬g
+  = 
+ 	`li¡ish
+ (yyvsp[0].arg);
+ 
+ 2293 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ O_ASSIGN
+ , 2, 
+ yyv¥
+ [-2].¬g, yyv¥[0].¬g, 
+ Nuάg
+ )); }
+ 
+ 2297 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ O_POW
+ , 2, 
+ yyv¥
+ [-3].¬g, yyv¥[0].¬g, 
+ Nuάg
+ )); }
+ 
+ 2301 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ yyv¥
+ [-2].
+ iv®
+ , 2, yyv¥[-3].¬g, yyv¥[0].¬g, 
+ Nuάg
+ )); }
+ 
+ 2305 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`rÿtmaybe
+ (
+ 	`l
+ (
+ 	`make_Ý
+ (
+ yyv¥
+ [-2].
+ iv®
+ , 2, yyv¥[-3].¬g, yyv¥[0].¬g, 
+ Nuάg
+ )));}
+ 
+ 2309 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ O_LEFT_SHIFT
+ , 2, 
+ yyv¥
+ [-3].¬g, yyv¥[0].¬g, 
+ Nuάg
+ )); }
+ 
+ 2313 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ O_RIGHT_SHIFT
+ , 2, 
+ yyv¥
+ [-3].¬g, yyv¥[0].¬g, 
+ Nuάg
+ )); }
+ 
+ 2317 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ O_BIT_AND
+ , 2, 
+ yyv¥
+ [-3].¬g, yyv¥[0].¬g, 
+ Nuάg
+ )); }
+ 
+ 2321 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ O_XOR
+ , 2, 
+ yyv¥
+ [-3].¬g, yyv¥[0].¬g, 
+ Nuάg
+ )); }
+ 
+ 2325 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ O_BIT_OR
+ , 2, 
+ yyv¥
+ [-3].¬g, yyv¥[0].¬g, 
+ Nuάg
+ )); }
+ 
+ 2329 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_POW
+ , 2, 
+ yyv¥
+ [-2].¬g, yyv¥[0].¬g, 
+ Nuάg
+ ); }
+ 
+ 2333 { ià(
+ yyv¥
+ [-1].
+ iv®
+  =ð
+ O_REPEAT
+ )
+ 
+ 2334 
+ yyv¥
+ [-2].
+ ¬g
+  = 
+ 	`li¡ish
+ (yyvsp[-2].arg);
+ 
+ 2335 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-1].
+ iv®
+ , 2, yyv¥[-2].¬g, yyv¥[0].¬g, 
+ Nuάg
+ );
+ 
+ 2336 ià(
+ yyv¥
+ [-1].
+ iv®
+  =ð
+ O_REPEAT
+ ) {
+ 
+ 2337 ià(
+ yyv®
+ .
+ ¬g
+ [1].
+ ¬g_ty³
+  !ð
+ A_EXPR
+  ||
+ 
+ 2338 
+ yyv®
+ .
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¬g
+ ->
+ ¬g_ty³
+  !ð
+ O_LIST
+ )
+ 
+ 2339 
+ yyv®
+ .
+ ¬g
+ [1].
+ ¬g_æags
+  &ð~
+ AF_ARYOK
+ ;
+ 
+ 2344 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-1].
+ iv®
+ , 2, yyv¥[-2].¬g, yyv¥[0].¬g, 
+ Nuάg
+ ); }
+ 
+ 2348 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_LEFT_SHIFT
+ , 2, 
+ yyv¥
+ [-2].¬g, yyv¥[0].¬g, 
+ Nuάg
+ ); }
+ 
+ 2352 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_RIGHT_SHIFT
+ , 2, 
+ yyv¥
+ [-2].¬g, yyv¥[0].¬g, 
+ Nuάg
+ ); }
+ 
+ 2356 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-1].
+ iv®
+ , 2, yyv¥[-2].¬g, yyv¥[0].¬g, 
+ Nuάg
+ ); }
+ 
+ 2360 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-1].
+ iv®
+ , 2, yyv¥[-2].¬g, yyv¥[0].¬g, 
+ Nuάg
+ ); }
+ 
+ 2364 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_BIT_AND
+ , 2, 
+ yyv¥
+ [-2].¬g, yyv¥[0].¬g, 
+ Nuάg
+ ); }
+ 
+ 2368 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_XOR
+ , 2, 
+ yyv¥
+ [-2].¬g, yyv¥[0].¬g, 
+ Nuάg
+ ); }
+ 
+ 2372 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_BIT_OR
+ , 2, 
+ yyv¥
+ [-2].¬g, yyv¥[0].¬g, 
+ Nuάg
+ ); }
+ 
+ 2376 { 
+ ¬g4
+  = 
+ Nuάg
+ ;
+ 
+ 2377 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_F_OR_R
+ , 4, 
+ yyv¥
+ [-2].¬g, yyv¥[0].¬g, 
+ Nuάg
+ ); }
+ 
+ 2381 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_AND
+ , 2, 
+ yyv¥
+ [-2].¬g, yyv¥[0].¬g, 
+ Nuάg
+ ); }
+ 
+ 2385 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_OR
+ , 2, 
+ yyv¥
+ [-2].¬g, yyv¥[0].¬g, 
+ Nuάg
+ ); }
+ 
+ 2389 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_COND_EXPR
+ , 3, 
+ yyv¥
+ [-4].arg, yyvsp[-2].arg, yyvsp[0].arg); }
+ 
+ 2393 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`mod_m©ch
+ (
+ O_MATCH
+ , 
+ yyv¥
+ [-2].arg, yyvsp[0].arg); }
+ 
+ 2397 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`mod_m©ch
+ (
+ O_NMATCH
+ , 
+ yyv¥
+ [-2].arg, yyvsp[0].arg); }
+ 
+ 2401 { 
+ yyv®
+ .
+ ¬g
+  = 
+ yyv¥
+ [0].arg; }
+ 
+ 2405 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_NEGATE
+ , 1, 
+ yyv¥
+ [0].¬g, 
+ Nuάg
+ , Nullarg); }
+ 
+ 2409 { 
+ yyv®
+ .
+ ¬g
+  = 
+ yyv¥
+ [0].arg; }
+ 
+ 2413 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_NOT
+ , 1, 
+ yyv¥
+ [0].¬g, 
+ Nuάg
+ , Nullarg); }
+ 
+ 2417 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_COMPLEMENT
+ , 1, 
+ yyv¥
+ [0].¬g, 
+ Nuάg
+ , Nullarg);}
+ 
+ 2421 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`addæags
+ (1, 
+ AF_POST
+ |
+ AF_UP
+ ,
+ 
+ 2422 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ O_ITEM
+ ,1,
+ yyv¥
+ [-1].
+ ¬g
+ ,
+ Nuάg
+ ,Nullarg))); }
+ 
+ 2426 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`addæags
+ (1, 
+ AF_POST
+ ,
+ 
+ 2427 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ O_ITEM
+ ,1,
+ yyv¥
+ [-1].
+ ¬g
+ ,
+ Nuάg
+ ,Nullarg))); }
+ 
+ 2431 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`addæags
+ (1, 
+ AF_PRE
+ |
+ AF_UP
+ ,
+ 
+ 2432 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ O_ITEM
+ ,1,
+ yyv¥
+ [0].
+ ¬g
+ ,
+ Nuάg
+ ,Nullarg))); }
+ 
+ 2436 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`addæags
+ (1, 
+ AF_PRE
+ ,
+ 
+ 2437 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ O_ITEM
+ ,1,
+ yyv¥
+ [0].
+ ¬g
+ ,
+ Nuάg
+ ,Nullarg))); }
+ 
+ 2441 { 
+ ݬgs
+ [
+ yyv¥
+ [-1].
+ iv®
+ ] = 0;
+ 
+ 2442 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-1].
+ iv®
+ , 1,
+ 
+ 2443 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ 	`¡ab’t
+ (
+ yyv¥
+ [0].
+ cv®
+ ,
+ TRUE
+ )),
+ 
+ 2444 
+ Nuάg
+ , Nullarg);
+ 
+ 2449 { 
+ ݬgs
+ [
+ yyv¥
+ [-1].
+ iv®
+ ] = 1;
+ 
+ 2450 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-1].
+ iv®
+ , 1, yyv¥[0].¬g, 
+ Nuάg
+ , Nullarg); }
+ 
+ 2454 { 
+ ݬgs
+ [
+ yyv¥
+ [0].
+ iv®
+ ] = (yyv¥[0].iv® !ð
+ O_FTTTY
+ );
+ 
+ 2455 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [0].
+ iv®
+ , 1,
+ 
+ 2456 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ 
+ 2457 
+ yyv¥
+ [0].
+ iv®
+  =ð
+ O_FTTTY
+ ?
+ 	`¡ab’t
+ ("STDIN",
+ TRUE
+ ):
+ def¡ab
+ ),
+ 
+ 2458 
+ Nuάg
+ , Nullarg); }
+ 
+ 2462 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`l
+ (
+ 	`loÿlize
+ (
+ 	`make_Ý
+ (
+ O_ASSIGN
+ , 1,
+ 
+ 2463 
+ 	`loÿlize
+ (
+ 	`li¡ish
+ (
+ 	`make_li¡
+ (
+ yyv¥
+ [-1].
+ ¬g
+ ))),
+ 
+ 2464 
+ Nuάg
+ ,Nullarg))); }
+ 
+ 2468 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_li¡
+ (
+ yyv¥
+ [-2].arg); }
+ 
+ 2472 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_li¡
+ (
+ yyv¥
+ [-1].arg); }
+ 
+ 2476 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_li¡
+ (
+ Nuάg
+ ); }
+ 
+ 2480 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_DOFILE
+ ,2,
+ yyv¥
+ [0].¬g,
+ Nuάg
+ ,Nullarg);
+ 
+ 2481 
+ ®l¡abs
+  = 
+ TRUE
+ ;}
+ 
+ 2485 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`cmd_to_¬g
+ (
+ yyv¥
+ [0].
+ cmdv®
+ ); }
+ 
+ 2489 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ yyv¥
+ [0].
+ ¡abv®
+ ); }
+ 
+ 2493 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`¡ab2¬g
+ (
+ A_STAR
+ ,
+ yyv¥
+ [0].
+ ¡abv®
+ ); }
+ 
+ 2497 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_AELEM
+ , 2,
+ 
+ 2498 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ 	`¯dd
+ (
+ yyv¥
+ [-3].
+ ¡abv®
+ )), yyv¥[-1].
+ ¬g
+ , 
+ Nuάg
+ ); }
+ 
+ 2502 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_HASH
+ , 1,
+ 
+ 2503 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ yyv¥
+ [0].
+ ¡abv®
+ ),
+ 
+ 2504 
+ Nuάg
+ , Nullarg); }
+ 
+ 2508 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_ARRAY
+ , 1,
+ 
+ 2509 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ yyv¥
+ [0].
+ ¡abv®
+ ),
+ 
+ 2510 
+ Nuάg
+ , Nullarg); }
+ 
+ 2514 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_HELEM
+ , 2,
+ 
+ 2515 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ 	`hadd
+ (
+ yyv¥
+ [-3].
+ ¡abv®
+ )),
+ 
+ 2516 
+ 	`jmaybe
+ (
+ yyv¥
+ [-1].
+ ¬g
+ ),
+ 
+ 2517 
+ Nuάg
+ ); }
+ 
+ 2521 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_LSLICE
+ , 3,
+ 
+ 2522 
+ Nuάg
+ ,
+ 
+ 2523 
+ 	`li¡ish
+ (
+ 	`make_li¡
+ (
+ yyv¥
+ [-1].
+ ¬g
+ )),
+ 
+ 2524 
+ 	`li¡ish
+ (
+ 	`make_li¡
+ (
+ yyv¥
+ [-4].
+ ¬g
+ ))); }
+ 
+ 2528 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_LSLICE
+ , 3,
+ 
+ 2529 
+ Nuάg
+ ,
+ 
+ 2530 
+ 	`li¡ish
+ (
+ 	`make_li¡
+ (
+ yyv¥
+ [-1].
+ ¬g
+ )),
+ 
+ 2531 
+ Nuάg
+ ); }
+ 
+ 2535 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_ASLICE
+ , 2,
+ 
+ 2536 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ 	`¯dd
+ (
+ yyv¥
+ [-3].
+ ¡abv®
+ )),
+ 
+ 2537 
+ 	`li¡ish
+ (
+ 	`make_li¡
+ (
+ yyv¥
+ [-1].
+ ¬g
+ )),
+ 
+ 2538 
+ Nuάg
+ ); }
+ 
+ 2542 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_HSLICE
+ , 2,
+ 
+ 2543 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ 	`hadd
+ (
+ yyv¥
+ [-3].
+ ¡abv®
+ )),
+ 
+ 2544 
+ 	`li¡ish
+ (
+ 	`make_li¡
+ (
+ yyv¥
+ [-1].
+ ¬g
+ )),
+ 
+ 2545 
+ Nuάg
+ ); }
+ 
+ 2549 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_DELETE
+ , 2,
+ 
+ 2550 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ 	`hadd
+ (
+ yyv¥
+ [-3].
+ ¡abv®
+ )),
+ 
+ 2551 
+ 	`jmaybe
+ (
+ yyv¥
+ [-1].
+ ¬g
+ ),
+ 
+ 2552 
+ Nuάg
+ ); }
+ 
+ 2556 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`¡ab2¬g
+ (
+ A_ARYLEN
+ ,
+ yyv¥
+ [0].
+ ¡abv®
+ ); }
+ 
+ 2560 { 
+ yyv®
+ .
+ ¬g
+  = 
+ yyv¥
+ [0].arg; }
+ 
+ 2564 { 
+ yyv®
+ .
+ ¬g
+  = 
+ yyv¥
+ [0].arg; }
+ 
+ 2568 { 
+ yyv®
+ .
+ ¬g
+  = 
+ yyv¥
+ [0].arg; }
+ 
+ 2572 { 
+ yyv®
+ .
+ ¬g
+  = 
+ yyv¥
+ [0].arg; }
+ 
+ 2576 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ ((
+ ³¾db
+  ? 
+ O_DBSUBR
+  : 
+ O_SUBR
+ ), 2,
+ 
+ 2577 
+ 	`¡ab2¬g
+ (
+ A_WORD
+ ,
+ 	`¡ab’t
+ (
+ yyv¥
+ [-3].
+ cv®
+ ,
+ TRUE
+ )),
+ 
+ 2578 
+ 	`make_li¡
+ (
+ yyv¥
+ [-1].
+ ¬g
+ ),
+ 
+ 2579 
+ Nuάg
+ ); 
+ 	`Saãä“
+ (
+ yyv¥
+ [-3].
+ cv®
+ ); yyv¥[-3].cv® = 
+ NuÎch
+ ;
+ 
+ 2580 
+ yyv®
+ .
+ ¬g
+ ->
+ ¬g_æags
+  |ð
+ AF_DEPR
+ ; }
+ 
+ 2584 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ ((
+ ³¾db
+  ? 
+ O_DBSUBR
+  : 
+ O_SUBR
+ ), 2,
+ 
+ 2585 
+ 	`¡ab2¬g
+ (
+ A_WORD
+ ,
+ 	`¡ab’t
+ (
+ yyv¥
+ [-3].
+ cv®
+ ,
+ TRUE
+ )),
+ 
+ 2586 
+ 	`make_li¡
+ (
+ yyv¥
+ [-1].
+ ¬g
+ ),
+ 
+ 2587 
+ Nuάg
+ ); 
+ 	`Saãä“
+ (
+ yyv¥
+ [-3].
+ cv®
+ ); yyv¥[-3].cv® = 
+ NuÎch
+ ; }
+ 
+ 2591 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ ((
+ ³¾db
+  ? 
+ O_DBSUBR
+  : 
+ O_SUBR
+ ), 2,
+ 
+ 2592 
+ 	`¡ab2¬g
+ (
+ A_WORD
+ ,
+ 	`¡ab’t
+ (
+ yyv¥
+ [-2].
+ cv®
+ ,
+ TRUE
+ )),
+ 
+ 2593 
+ 	`make_li¡
+ (
+ Nuάg
+ ),
+ 
+ 2594 
+ Nuάg
+ );
+ 
+ 2595 
+ yyv®
+ .
+ ¬g
+ ->
+ ¬g_æags
+  |ð
+ AF_DEPR
+ ; }
+ 
+ 2599 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ ((
+ ³¾db
+  ? 
+ O_DBSUBR
+  : 
+ O_SUBR
+ ), 2,
+ 
+ 2600 
+ 	`¡ab2¬g
+ (
+ A_WORD
+ ,
+ 	`¡ab’t
+ (
+ yyv¥
+ [-2].
+ cv®
+ ,
+ TRUE
+ )),
+ 
+ 2601 
+ 	`make_li¡
+ (
+ Nuάg
+ ),
+ 
+ 2602 
+ Nuάg
+ ); }
+ 
+ 2606 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ ((
+ ³¾db
+  ? 
+ O_DBSUBR
+  : 
+ O_SUBR
+ ), 2,
+ 
+ 2607 
+ 	`¡ab2¬g
+ (
+ A_WORD
+ ,
+ 	`¡ab’t
+ (
+ yyv¥
+ [0].
+ cv®
+ ,
+ TRUE
+ )),
+ 
+ 2608 
+ Nuάg
+ ,
+ 
+ 2609 
+ Nuάg
+ ); }
+ 
+ 2613 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ ((
+ ³¾db
+  ? 
+ O_DBSUBR
+  : 
+ O_SUBR
+ ), 2,
+ 
+ 2614 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ yyv¥
+ [-3].
+ ¡abv®
+ ),
+ 
+ 2615 
+ 	`make_li¡
+ (
+ yyv¥
+ [-1].
+ ¬g
+ ),
+ 
+ 2616 
+ Nuάg
+ );
+ 
+ 2617 
+ yyv®
+ .
+ ¬g
+ ->
+ ¬g_æags
+  |ð
+ AF_DEPR
+ ; }
+ 
+ 2621 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ ((
+ ³¾db
+  ? 
+ O_DBSUBR
+  : 
+ O_SUBR
+ ), 2,
+ 
+ 2622 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ yyv¥
+ [-3].
+ ¡abv®
+ ),
+ 
+ 2623 
+ 	`make_li¡
+ (
+ yyv¥
+ [-1].
+ ¬g
+ ),
+ 
+ 2624 
+ Nuάg
+ ); }
+ 
+ 2628 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ ((
+ ³¾db
+  ? 
+ O_DBSUBR
+  : 
+ O_SUBR
+ ), 2,
+ 
+ 2629 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ yyv¥
+ [-2].
+ ¡abv®
+ ),
+ 
+ 2630 
+ 	`make_li¡
+ (
+ Nuάg
+ ),
+ 
+ 2631 
+ Nuάg
+ );
+ 
+ 2632 
+ yyv®
+ .
+ ¬g
+ ->
+ ¬g_æags
+  |ð
+ AF_DEPR
+ ; }
+ 
+ 2636 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ ((
+ ³¾db
+  ? 
+ O_DBSUBR
+  : 
+ O_SUBR
+ ), 2,
+ 
+ 2637 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ yyv¥
+ [-2].
+ ¡abv®
+ ),
+ 
+ 2638 
+ 	`make_li¡
+ (
+ Nuάg
+ ),
+ 
+ 2639 
+ Nuάg
+ ); }
+ 
+ 2643 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ ((
+ ³¾db
+  ? 
+ O_DBSUBR
+  : 
+ O_SUBR
+ ), 2,
+ 
+ 2644 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ yyv¥
+ [0].
+ ¡abv®
+ ),
+ 
+ 2645 
+ Nuάg
+ ,
+ 
+ 2646 
+ Nuάg
+ ); }
+ 
+ 2650 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [0].
+ iv®
+ ,0,
+ Nuάg
+ ,Nullarg,Nullarg); }
+ 
+ 2654 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-1].
+ iv®
+ ,1,
+ 	`cv®_to_¬g
+ (yyv¥[0].
+ cv®
+ ),
+ 
+ 2655 
+ Nuάg
+ ,Nullarg); }
+ 
+ 2659 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [0].
+ iv®
+ ,0,
+ Nuάg
+ ,Nullarg,Nullarg); }
+ 
+ 2663 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-1].
+ iv®
+ ,1,yyv¥[0].¬g,
+ Nuάg
+ ,Nullarg); }
+ 
+ 2667 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_SELECT
+ , 0, 
+ Nuάg
+ , Nullarg, Nullarg);}
+ 
+ 2671 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_SELECT
+ , 1, 
+ yyv¥
+ [-1].¬g, 
+ Nuάg
+ , Nullarg); }
+ 
+ 2675 { 
+ ¬g4
+  = 
+ yyv¥
+ [-1].
+ ¬g
+ ;
+ 
+ 2676 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_SSELECT
+ , 4, 
+ yyv¥
+ [-4].arg, yyvsp[-3].arg, yyvsp[-2].arg); }
+ 
+ 2680 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_OPEN
+ , 2,
+ 
+ 2681 
+ 	`¡ab2¬g
+ (
+ A_WORD
+ ,
+ 	`¡ab’t
+ (
+ yyv¥
+ [0].
+ cv®
+ ,
+ TRUE
+ )),
+ 
+ 2682 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ 	`¡ab’t
+ (
+ yyv¥
+ [0].
+ cv®
+ ,
+ TRUE
+ )),
+ 
+ 2683 
+ Nuάg
+ ); }
+ 
+ 2687 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_OPEN
+ , 2,
+ 
+ 2688 
+ 	`¡ab2¬g
+ (
+ A_WORD
+ ,
+ 	`¡ab’t
+ (
+ yyv¥
+ [-1].
+ cv®
+ ,
+ TRUE
+ )),
+ 
+ 2689 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ 	`¡ab’t
+ (
+ yyv¥
+ [-1].
+ cv®
+ ,
+ TRUE
+ )),
+ 
+ 2690 
+ Nuάg
+ ); }
+ 
+ 2694 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_OPEN
+ , 2,
+ 
+ 2695 
+ yyv¥
+ [-2].
+ ¬g
+ ,
+ 
+ 2696 
+ yyv¥
+ [-1].
+ ¬g
+ , 
+ Nuάg
+ ); }
+ 
+ 2700 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-3].
+ iv®
+ , 1,
+ 
+ 2701 
+ yyv¥
+ [-1].
+ ¬g
+ ,
+ 
+ 2702 
+ Nuάg
+ , Nullarg); }
+ 
+ 2706 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-1].
+ iv®
+ , 1,
+ 
+ 2707 
+ 	`¡ab2¬g
+ (
+ A_WORD
+ ,
+ 	`¡ab’t
+ (
+ yyv¥
+ [0].
+ cv®
+ ,
+ TRUE
+ )),
+ 
+ 2708 
+ Nuάg
+ , Nullarg);
+ 
+ 2709 
+ 	`Saãä“
+ (
+ yyv¥
+ [0].
+ cv®
+ ); yyv¥[0].cv® = 
+ NuÎch
+ ; }
+ 
+ 2713 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-1].
+ iv®
+ , 1,
+ 
+ 2714 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ yyv¥
+ [0].
+ ¡abv®
+ ),
+ 
+ 2715 
+ Nuάg
+ , Nullarg); }
+ 
+ 2719 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-2].
+ iv®
+ , 1,
+ 
+ 2720 
+ 	`¡ab2¬g
+ (
+ A_WORD
+ ,
+ NuΡab
+ ),
+ 
+ 2721 
+ Nuάg
+ , Nullarg); }
+ 
+ 2725 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [0].
+ iv®
+ , 0,
+ 
+ 2726 
+ Nuάg
+ , Nullarg, Nullarg); }
+ 
+ 2730 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-4].
+ iv®
+ , 2, yyv¥[-2].¬g, yyv¥[-1].¬g, 
+ Nuάg
+ ); }
+ 
+ 2734 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-5].
+ iv®
+ , 3, yyv¥[-3].¬g, yyv¥[-2].¬g, 
+ 	`make_li¡
+ (yyvsp[-1].arg)); }
+ 
+ 2738 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-5].
+ iv®
+ , 2, yyv¥[-3].¬g, yyv¥[-1].¬g, 
+ Nuάg
+ ); }
+ 
+ 2742 { 
+ ¬g4
+  = 
+ yyv¥
+ [-1].
+ ¬g
+ ; 
+ yyv®
+ .¬g = 
+ 	`make_Ý
+ (yyv¥[-6].
+ iv®
+ , 4, yyvsp[-4].arg, yyvsp[-3].arg, yyvsp[-2].arg); }
+ 
+ 2746 { 
+ ¬g4
+  = 
+ yyv¥
+ [-2].
+ ¬g
+ ; 
+ ¬g5
+  = yyvsp[-1].arg;
+ 
+ 2747 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-8].
+ iv®
+ , 5, yyvsp[-6].arg, yyvsp[-4].arg, yyvsp[-3].arg); }
+ 
+ 2751 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-4].
+ iv®
+ , 2,
+ 
+ 2752 
+ yyv¥
+ [-2].
+ ¬g
+ ,
+ 
+ 2753 
+ 	`make_li¡
+ (
+ yyv¥
+ [-1].
+ ¬g
+ ),
+ 
+ 2754 
+ Nuάg
+ ); }
+ 
+ 2758 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_POP
+ , 1, 
+ yyv¥
+ [0].¬g, 
+ Nuάg
+ , Nullarg); }
+ 
+ 2762 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_POP
+ , 1, 
+ yyv¥
+ [-1].¬g, 
+ Nuάg
+ , Nullarg); }
+ 
+ 2766 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_SHIFT
+ , 1, 
+ yyv¥
+ [0].¬g, 
+ Nuάg
+ , Nullarg); }
+ 
+ 2770 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_SHIFT
+ , 1, 
+ yyv¥
+ [-1].¬g, 
+ Nuάg
+ , Nullarg); }
+ 
+ 2774 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ O_SHIFT
+ , 1,
+ 
+ 2775 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ 
+ 2776 
+ 	`¯dd
+ (
+ 	`¡ab’t
+ (
+ sublše
+  ? "_" : "ARGV", 
+ TRUE
+ ))),
+ 
+ 2777 
+ Nuάg
+ , Nullarg); }
+ 
+ 2781 { 
+ p
+ []="/\\s+/";
+ 
+ 2782 *
+ Þd’d
+  = 
+ buãnd
+ ;
+ 
+ 2783 
+ ARG
+  *
+ Þd¬g
+  = 
+ yylv®
+ .
+ ¬g
+ ;
+ 
+ 2785 
+ buãnd
+ =
+ p
+ +5;
+ 
+ 2786 ()
+ 	`sÿÅ©
+ (
+ p
+ );
+ 
+ 2787 
+ buãnd
+ =
+ Þd’d
+ ;
+ 
+ 2788 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_¥l™
+ (
+ def¡ab
+ ,
+ yylv®
+ .¬g,
+ Nuάg
+ );
+ 
+ 2789 
+ yylv®
+ .
+ ¬g
+  = 
+ Þd¬g
+ ; }
+ 
+ 2793 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`mod_m©ch
+ (
+ O_MATCH
+ , 
+ yyv¥
+ [-2].arg,
+ 
+ 2794 
+ 	`make_¥l™
+ (
+ def¡ab
+ ,
+ yyv¥
+ [-3].
+ ¬g
+ ,yyvsp[-1].arg));}
+ 
+ 2798 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`mod_m©ch
+ (
+ O_MATCH
+ , 
+ yyv¥
+ [-1].arg,
+ 
+ 2799 
+ 	`make_¥l™
+ (
+ def¡ab
+ ,
+ yyv¥
+ [-2].
+ ¬g
+ ,
+ Nuάg
+ ) ); }
+ 
+ 2803 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`mod_m©ch
+ (
+ O_MATCH
+ ,
+ 
+ 2804 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ def¡ab
+ ),
+ 
+ 2805 
+ 	`make_¥l™
+ (
+ def¡ab
+ ,
+ yyv¥
+ [-1].
+ ¬g
+ ,
+ Nuάg
+ ) ); }
+ 
+ 2809 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-4].
+ iv®
+ , 2,
+ 
+ 2810 
+ yyv¥
+ [-2].
+ ¬g
+ ,
+ 
+ 2811 
+ 	`li¡ish
+ (
+ 	`make_li¡
+ (
+ yyv¥
+ [-1].
+ ¬g
+ )),
+ 
+ 2812 
+ Nuάg
+ ); }
+ 
+ 2816 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-3].
+ iv®
+ , 1,
+ 
+ 2817 
+ 	`make_li¡
+ (
+ yyv¥
+ [-1].
+ ¬g
+ ),
+ 
+ 2818 
+ Nuάg
+ ,
+ 
+ 2819 
+ Nuάg
+ ); }
+ 
+ 2823 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ yyv¥
+ [-1].
+ iv®
+ , 1, 
+ 	`fixl
+ (yyvsp[-1].ival,yyvsp[0].arg),
+ 
+ 2824 
+ Nuάg
+ , Nullarg)); }
+ 
+ 2828 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`l
+ (
+ 	`make_Ý
+ (
+ yyv¥
+ [0].
+ iv®
+ , 1,
+ 
+ 2829 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ def¡ab
+ ),
+ 
+ 2830 
+ Nuάg
+ , Nullarg)); }
+ 
+ 2834 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [0].
+ iv®
+ , 0, 
+ Nuάg
+ , Nullarg, Nullarg); }
+ 
+ 2838 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-2].
+ iv®
+ , 0, 
+ Nuάg
+ , Nullarg, Nullarg); }
+ 
+ 2842 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-2].
+ iv®
+ , 0, 
+ Nuάg
+ , Nullarg, Nullarg); }
+ 
+ 2846 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-3].
+ iv®
+ , 1, yyv¥[-1].¬g, 
+ Nuάg
+ , Nullarg); }
+ 
+ 2850 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-4].
+ iv®
+ , 2, yyv¥[-2].¬g, yyv¥[-1].¬g, 
+ Nuάg
+ );
+ 
+ 2851 ià(
+ yyv¥
+ [-4].
+ iv®
+  =ð
+ O_INDEX
+  && 
+ yyv®
+ .
+ ¬g
+ [2].
+ ¬g_ty³
+  =ð
+ A_SINGLE
+ )
+ 
+ 2852 
+ 	`fbmcompže
+ (
+ yyv®
+ .
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¡r
+ ,0); }
+ 
+ 2856 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-4].
+ iv®
+ , 2, yyv¥[-2].¬g, yyv¥[-1].¬g, 
+ Nuάg
+ );
+ 
+ 2857 ià(
+ yyv¥
+ [-4].
+ iv®
+  =ð
+ O_INDEX
+  && 
+ yyv®
+ .
+ ¬g
+ [2].
+ ¬g_ty³
+  =ð
+ A_SINGLE
+ )
+ 
+ 2858 
+ 	`fbmcompže
+ (
+ yyv®
+ .
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¡r
+ ,0); }
+ 
+ 2862 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-5].
+ iv®
+ , 3, yyvsp[-3].arg, yyvsp[-2].arg, yyvsp[-1].arg);
+ 
+ 2863 ià(
+ yyv¥
+ [-5].
+ iv®
+  =ð
+ O_INDEX
+  && 
+ yyv®
+ .
+ ¬g
+ [2].
+ ¬g_ty³
+  =ð
+ A_SINGLE
+ )
+ 
+ 2864 
+ 	`fbmcompže
+ (
+ yyv®
+ .
+ ¬g
+ [2].
+ ¬g_±r
+ .
+ ¬g_¡r
+ ,0); }
+ 
+ 2868 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-5].
+ iv®
+ , 3, yyvsp[-3].arg, yyvsp[-2].arg, yyvsp[-1].arg); }
+ 
+ 2872 { 
+ ¬g4
+  = 
+ yyv¥
+ [-1].
+ ¬g
+ ;
+ 
+ 2873 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-6].
+ iv®
+ , 4, yyvsp[-4].arg, yyvsp[-3].arg, yyvsp[-2].arg); }
+ 
+ 2877 { 
+ ¬g4
+  = 
+ yyv¥
+ [-2].
+ ¬g
+ ; 
+ ¬g5
+  = yyvsp[-1].arg;
+ 
+ 2878 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-7].
+ iv®
+ , 5, yyvsp[-5].arg, yyvsp[-4].arg, yyvsp[-3].arg); }
+ 
+ 2882 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-3].
+ iv®
+ , 1,
+ 
+ 2883 
+ yyv¥
+ [-1].
+ ¬g
+ ,
+ 
+ 2884 
+ Nuάg
+ ,
+ 
+ 2885 
+ Nuάg
+ ); }
+ 
+ 2889 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-1].
+ iv®
+ , 1,
+ 
+ 2890 
+ yyv¥
+ [0].
+ ¬g
+ ,
+ 
+ 2891 
+ Nuάg
+ ,
+ 
+ 2892 
+ Nuάg
+ ); }
+ 
+ 2896 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-5].
+ iv®
+ , 3, yyvsp[-3].arg, yyvsp[-2].arg, yyvsp[-1].arg); }
+ 
+ 2900 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [0].
+ iv®
+ ,2,
+ 
+ 2901 
+ 	`¡ab2¬g
+ (
+ A_WORD
+ ,
+ NuΡab
+ ),
+ 
+ 2902 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ def¡ab
+ ),
+ 
+ 2903 
+ Nuάg
+ ); }
+ 
+ 2907 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-1].
+ iv®
+ ,2,
+ 
+ 2908 
+ 	`¡ab2¬g
+ (
+ A_WORD
+ ,
+ NuΡab
+ ),
+ 
+ 2909 
+ 	`mayb–i¡ish
+ (
+ yyv¥
+ [-1].
+ iv®
+ ,
+ 	`make_li¡
+ (yyv¥[0].
+ ¬g
+ )),
+ 
+ 2910 
+ Nuάg
+ ); }
+ 
+ 2914 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-1].
+ iv®
+ ,2,
+ 
+ 2915 
+ 	`¡ab2¬g
+ (
+ A_WORD
+ ,
+ 	`¡ab’t
+ (
+ yyv¥
+ [0].
+ cv®
+ ,
+ TRUE
+ )),
+ 
+ 2916 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ def¡ab
+ ),
+ 
+ 2917 
+ Nuάg
+ ); }
+ 
+ 2921 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-2].
+ iv®
+ ,2,
+ 
+ 2922 
+ 	`¡ab2¬g
+ (
+ A_WORD
+ ,
+ 	`¡ab’t
+ (
+ yyv¥
+ [-1].
+ cv®
+ ,
+ TRUE
+ )),
+ 
+ 2923 
+ 	`mayb–i¡ish
+ (
+ yyv¥
+ [-2].
+ iv®
+ ,
+ 	`make_li¡
+ (yyv¥[0].
+ ¬g
+ )),
+ 
+ 2924 
+ Nuάg
+ ); 
+ 	`Saãä“
+ (
+ yyv¥
+ [-1].
+ cv®
+ ); yyv¥[-1].cv® = 
+ NuÎch
+ ; }
+ 
+ 2928 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`make_Ý
+ (
+ yyv¥
+ [-2].
+ iv®
+ ,2,
+ 
+ 2929 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ yyv¥
+ [-1].
+ ¡abv®
+ ),
+ 
+ 2930 
+ 	`mayb–i¡ish
+ (
+ yyv¥
+ [-2].
+ iv®
+ ,
+ 	`make_li¡
+ (yyv¥[0].
+ ¬g
+ )),
+ 
+ 2931 
+ Nuάg
+ ); }
+ 
+ 2935 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`¡ab2¬g
+ (
+ A_WORD
+ ,
+ 	`¡ab’t
+ (
+ yyv¥
+ [0].
+ cv®
+ ,
+ TRUE
+ ));
+ 
+ 2936 
+ 	`Saãä“
+ (
+ yyv¥
+ [0].
+ cv®
+ ); yyv¥[0].cv® = 
+ NuÎch
+ ;}
+ 
+ 2940 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`¡ab2¬g
+ (
+ A_WORD
+ ,
+ 	`¯dd
+ (
+ 	`¡ab’t
+ (
+ yyv¥
+ [0].
+ cv®
+ ,
+ TRUE
+ )));
+ 
+ 2941 
+ 	`Saãä“
+ (
+ yyv¥
+ [0].
+ cv®
+ ); yyv¥[0].cv® = 
+ NuÎch
+ ; }
+ 
+ 2945 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ yyv¥
+ [0].
+ ¡abv®
+ ); }
+ 
+ 2949 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`¡ab2¬g
+ (
+ A_WORD
+ ,
+ 	`hadd
+ (
+ 	`¡ab’t
+ (
+ yyv¥
+ [0].
+ cv®
+ ,
+ TRUE
+ )));
+ 
+ 2950 
+ 	`Saãä“
+ (
+ yyv¥
+ [0].
+ cv®
+ ); yyv¥[0].cv® = 
+ NuÎch
+ ; }
+ 
+ 2954 { 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`¡ab2¬g
+ (
+ A_STAB
+ ,
+ yyv¥
+ [0].
+ ¡abv®
+ ); }
+ 
+ 2958 { *
+ s
+ ;
+ 
+ 2959 
+ yyv®
+ .
+ ¬g
+  = 
+ 	`Ý_Ãw
+ (1);
+ 
+ 2960 
+ yyv®
+ .
+ ¬g
+ ->
+ ¬g_ty³
+  = 
+ O_ITEM
+ ;
+ 
+ 2961 
+ yyv®
+ .
+ ¬g
+ [1].
+ ¬g_ty³
+  = 
+ A_SINGLE
+ ;
+ 
+ 2962 
+ yyv®
+ .
+ ¬g
+ [1].
+ ¬g_±r
+ .
+ ¬g_¡r
+  = 
+ 	`¡r_make
+ (
+ yyv¥
+ [0].
+ cv®
+ ,0);
+ 
+ 2963 
+ s
+  = 
+ yyv¥
+ [0].
+ cv®
+ ; * && 
+ 	`i¦ow”
+ (*s); s++) ;
+ 
+ 2964 ià(
+ dow¬n
+  && !*
+ s
+ )
+ 
+ 2965 
+ 	`w¬n
+ (
+ 
+ 2967 
+ yyv¥
+ [0].
+ cv®
+  );
+ 
+ 2972 
+ yys¥
+  -ð
+ yym
+ ;
+ 
+ 2973 
+ yy¡©e
+  = *
+ yys¥
+ ;
+ 
+ 2974 
+ yyv¥
+  -ð
+ yym
+ ;
+ 
+ 2975 
+ yym
+  = 
+ yylhs
+ [
+ yyn
+ ];
+ 
+ 2976 ià(
+ yy¡©e
+  =ð0 && 
+ yym
+  == 0)
+ 
+ 2978 #ià
+ YYDEBUG
+ 
+ 
+ 2979 ià(
+ yydebug
+ )
+ 
+ 2980 
+ 	`´štf
+ ("%sdebug:‡á”„eduùiÚ, shiášg from s‹ 0o\
+  %d\n", 
+ YYPREFIX
+ , 
+ YYFINAL
+ );
+ 
+ 2983 
+ yy¡©e
+  = 
+ YYFINAL
+ ;
+ 
+ 2984 *++
+ yys¥
+  = 
+ YYFINAL
+ ;
+ 
+ 2985 *++
+ yyv¥
+  = 
+ yyv®
+ ;
+ 
+ 2986 ià(
+ yych¬
+  < 0)
+ 
+ 2988 ià((
+ yych¬
+  = 
+ 	`yyËx
+ ()) < 0) yychar = 0;
+ 
+ 2989 #ià
+ YYDEBUG
+ 
+ 
+ 2990 ià(
+ yydebug
+ )
+ 
+ 2992 
+ yys
+  = 0;
+ 
+ 2993 ià(
+ yych¬
+  <ð
+ YYMAXTOKEN
+ è
+ yys
+  = 
+ yyÇme
+ [yychar];
+ 
+ 2994 ià(!
+ yys
+ ) yys = "illegal-symbol";
+ 
+ 2995 
+ 	`´štf
+ ("%sdebug: state %d,„eading %d (%s)\n",
+ 
+ 2996 
+ YYPREFIX
+ , 
+ YYFINAL
+ , 
+ yych¬
+ , 
+ yys
+ );
+ 
+ 3000 ià(
+ yych¬
+  =ð0è
+ yyacû±
+ ;
+ 
+ 3001 
+ yyloÝ
+ ;
+ 
+ 3003 ià((
+ yyn
+  = 
+ yygšdex
+ [
+ yym
+ ]è&& (yyÀ+ð
+ yy¡©e
+ ) >= 0 &&
+ 
+ 3004 
+ yyn
+  <ð
+ YYTABLESIZE
+  && 
+ yycheck
+ [yyn] =ð
+ yy¡©e
+ )
+ 
+ 3005 
+ yy¡©e
+  = 
+ yybË
+ [
+ yyn
+ ];
+ 
+ 3007 
+ yy¡©e
+  = 
+ yydgÙo
+ [
+ yym
+ ];
+ 
+ 3008 #ià
+ YYDEBUG
+ 
+ 
+ 3009 ià(
+ yydebug
+ )
+ 
+ 3010 
+ 	`´štf
+ ("%sdebug:‡á”„eduùiÚ, shiášg from s‹ %d \
+  s‹ %d\n", 
+ YYPREFIX
+ , *
+ yys¥
+ , 
+ yy¡©e
+ );
+ 
+ 3013 ià(
+ yys¥
+  >ð
+ yys¦im
+  && 
+ 	`yygrow¡ack
+ ())
+ 
+ 3015 
+ yyovӾow
+ ;
+ 
+ 3017 *++
+ yys¥
+  = 
+ yy¡©e
+ ;
+ 
+ 3018 *++
+ yyv¥
+  = 
+ yyv®
+ ;
+ 
+ 3019 
+ yyloÝ
+ ;
+ 
+ 3020 
+ yyovӾow
+ :
+ 
+ 3021 
+ 	`yy”rÜ
+ ("yacc stack overflow");
+ 
+ 3022 
+ yyabÜt
+ :
+ 
+ 3024 
+ yyacû±
+ :
+ 
+ 3026 
+ 	}
+ }
+ 
+ 	@perly.h
+ 
+ 1 #iâdeà
+ YYERRCODE
+ 
+ 
+ 2 
+ 	#YYERRCODE
+  256
+ 
+ 	)
+ 
+ 5 
+ 	#WORD
+  257
+ 
+ 	)
+ 
+ 6 
+ 	#APPEND
+  258
+ 
+ 	)
+ 
+ 7 
+ 	#OPEN
+  259
+ 
+ 	)
+ 
+ 8 
+ 	#SSELECT
+  260
+ 
+ 	)
+ 
+ 9 
+ 	#LOOPEX
+  261
+ 
+ 	)
+ 
+ 10 
+ 	#USING
+  262
+ 
+ 	)
+ 
+ 11 
+ 	#FORMAT
+  263
+ 
+ 	)
+ 
+ 12 
+ 	#DO
+  264
+ 
+ 	)
+ 
+ 13 
+ 	#SHIFT
+  265
+ 
+ 	)
+ 
+ 14 
+ 	#PUSH
+  266
+ 
+ 	)
+ 
+ 15 
+ 	#POP
+  267
+ 
+ 	)
+ 
+ 16 
+ 	#LVALFUN
+  268
+ 
+ 	)
+ 
+ 17 
+ 	#WHILE
+  269
+ 
+ 	)
+ 
+ 18 
+ 	#UNTIL
+  270
+ 
+ 	)
+ 
+ 19 
+ 	#IF
+  271
+ 
+ 	)
+ 
+ 20 
+ 	#UNLESS
+  272
+ 
+ 	)
+ 
+ 21 
+ 	#ELSE
+  273
+ 
+ 	)
+ 
+ 22 
+ 	#ELSIF
+  274
+ 
+ 	)
+ 
+ 23 
+ 	#CONTINUE
+  275
+ 
+ 	)
+ 
+ 24 
+ 	#SPLIT
+  276
+ 
+ 	)
+ 
+ 25 
+ 	#FLIST
+  277
+ 
+ 	)
+ 
+ 26 
+ 	#FOR
+  278
+ 
+ 	)
+ 
+ 27 
+ 	#FILOP
+  279
+ 
+ 	)
+ 
+ 28 
+ 	#FILOP2
+  280
+ 
+ 	)
+ 
+ 29 
+ 	#FILOP3
+  281
+ 
+ 	)
+ 
+ 30 
+ 	#FILOP4
+  282
+ 
+ 	)
+ 
+ 31 
+ 	#FILOP22
+  283
+ 
+ 	)
+ 
+ 32 
+ 	#FILOP25
+  284
+ 
+ 	)
+ 
+ 33 
+ 	#FUNC0
+  285
+ 
+ 	)
+ 
+ 34 
+ 	#FUNC1
+  286
+ 
+ 	)
+ 
+ 35 
+ 	#FUNC2
+  287
+ 
+ 	)
+ 
+ 36 
+ 	#FUNC2x
+  288
+ 
+ 	)
+ 
+ 37 
+ 	#FUNC3
+  289
+ 
+ 	)
+ 
+ 38 
+ 	#FUNC4
+  290
+ 
+ 	)
+ 
+ 39 
+ 	#FUNC5
+  291
+ 
+ 	)
+ 
+ 40 
+ 	#HSHFUN
+  292
+ 
+ 	)
+ 
+ 41 
+ 	#HSHFUN3
+  293
+ 
+ 	)
+ 
+ 42 
+ 	#FLIST2
+  294
+ 
+ 	)
+ 
+ 43 
+ 	#SUB
+  295
+ 
+ 	)
+ 
+ 44 
+ 	#FILETEST
+  296
+ 
+ 	)
+ 
+ 45 
+ 	#LOCAL
+  297
+ 
+ 	)
+ 
+ 46 
+ 	#DELETE
+  298
+ 
+ 	)
+ 
+ 47 
+ 	#RELOP
+  299
+ 
+ 	)
+ 
+ 48 
+ 	#EQOP
+  300
+ 
+ 	)
+ 
+ 49 
+ 	#MULOP
+  301
+ 
+ 	)
+ 
+ 50 
+ 	#ADDOP
+  302
+ 
+ 	)
+ 
+ 51 
+ 	#PACKAGE
+  303
+ 
+ 	)
+ 
+ 52 
+ 	#AMPER
+  304
+ 
+ 	)
+ 
+ 53 
+ 	#FORMLIST
+  305
+ 
+ 	)
+ 
+ 54 
+ 	#REG
+  306
+ 
+ 	)
+ 
+ 55 
+ 	#ARYLEN
+  307
+ 
+ 	)
+ 
+ 56 
+ 	#ARY
+  308
+ 
+ 	)
+ 
+ 57 
+ 	#HSH
+  309
+ 
+ 	)
+ 
+ 58 
+ 	#STAR
+  310
+ 
+ 	)
+ 
+ 59 
+ 	#SUBST
+  311
+ 
+ 	)
+ 
+ 60 
+ 	#PATTERN
+  312
+ 
+ 	)
+ 
+ 61 
+ 	#RSTRING
+  313
+ 
+ 	)
+ 
+ 62 
+ 	#TRANS
+  314
+ 
+ 	)
+ 
+ 63 
+ 	#LISTOP
+  315
+ 
+ 	)
+ 
+ 64 
+ 	#DOTDOT
+  316
+ 
+ 	)
+ 
+ 65 
+ 	#OROR
+  317
+ 
+ 	)
+ 
+ 66 
+ 	#ANDAND
+  318
+ 
+ 	)
+ 
+ 67 
+ 	#UNIOP
+  319
+ 
+ 	)
+ 
+ 68 
+ 	#LS
+  320
+ 
+ 	)
+ 
+ 69 
+ 	#RS
+  321
+ 
+ 	)
+ 
+ 70 
+ 	#MATCH
+  322
+ 
+ 	)
+ 
+ 71 
+ 	#NMATCH
+  323
+ 
+ 	)
+ 
+ 72 
+ 	#UMINUS
+  324
+ 
+ 	)
+ 
+ 73 
+ 	#POW
+  325
+ 
+ 	)
+ 
+ 74 
+ 	#INC
+  326
+ 
+ 	)
+ 
+ 75 
+ 	#DEC
+  327
+ 
+ 	)
+ 
+ 77 
+ 	miv®
+ ;
+ 
+ 78 *
+ 	mcv®
+ ;
+ 
+ 79 
+ ARG
+  *
+ 	m¬g
+ ;
+ 
+ 80 
+ CMD
+  *
+ 	mcmdv®
+ ;
+ 
+ 81 
+ compcmd
+  
+ 	mcompv®
+ ;
+ 
+ 82 
+ STAB
+  *
+ 	m¡abv®
+ ;
+ 
+ 83 
+ FCMD
+  *
+ 	mfÜmv®
+ ;
+ 
+ 84 } 
+ 	tYYSTYPE
+ ;
+ 
+ 85 
+ YYSTYPE
+  
+ yylv®
+ ;
+ 
+ 86 
+ YYSTYPE
+  
+ yylv®
+ ;
+ 
+ 	@regcomp.c
+ 
+ 53 
+ 	~"EXTERN.h
+ "
+ 
+ 54 
+ 	~"³¾.h
+ "
+ 
+ 55 
+ 	~"INTERN.h
+ "
+ 
+ 56 
+ 	~"»gcomp.h
+ "
+ 
+ 58 #ifdeà
+ MSDOS
+ 
+ 
+ 59 #ià
+ defšed
+ (
+ BUGGY_MSC6
+ )
+ 
+ 61 #´agm¨
+ Ýtimize
+ ("a",
+ off
+ )
+ 
+ 63 #´agm¨
+ Ýtimize
+ ("w",
+ Ú
+  )
+ 
+ 67 #iâdeà
+ STATIC
+ 
+ 
+ 68 
+ 	#STATIC
+  
+ 
+ 	)
+ 
+ 71 
+ 	#ISMULT1
+ (
+ c
+ è((cè=ð'*' || (cè=ð'+' || (cè=ð'?')
+ 
+ 	)
+ 
+ 72 
+ 	#ISMULT2
+ (
+ s
+ ) ((*s) == '*' || (*s) == '+' || (*s) == '?' || \
+ 
+ 73 ((*
+ s
+ è=ð'{' && 
+ 	`»gcu¾y
+ (s)))
+ 
+ 	)
+ 
+ 74 
+ 	#META
+  "^$.[()|?+*\\"
+ 
+ 	)
+ 
+ 76 #ifdeà
+ SPSTART
+ 
+ 
+ 77 #undeà
+ SPSTART
+ 
+ 
+ 82 
+ 	#HASWIDTH
+  01
+ 
+ 	)
+ 
+ 83 
+ 	#SIMPLE
+  02
+ 
+ 	)
+ 
+ 84 
+ 	#SPSTART
+  04
+ 
+ 	)
+ 
+ 85 
+ 	#WORST
+  0
+ 
+ 	)
+ 
+ 90 *
+ 	g»g´ecomp
+ ;
+ 
+ 91 *
+ 	g»g·r£
+ ;
+ 
+ 92 *
+ 	g»gx’d
+ ;
+ 
+ 93 
+ 	g»gŬ
+ ;
+ 
+ 94 *
+ 	g»gcode
+ ;
+ 
+ 95 
+ 	g»gsize
+ ;
+ 
+ 96 
+ 	g»gfÞd
+ ;
+ 
+ 97 
+ 	g»g§wb¿ck‘
+ ;
+ 
+ 102 
+ STATIC
+  
+ »gcu¾y
+ ();
+ 
+ 103 
+ STATIC
+  *
+ »g
+ ();
+ 
+ 104 
+ STATIC
+  *
+ »gb¿nch
+ ();
+ 
+ 105 
+ STATIC
+  *
+ »gp›û
+ ();
+ 
+ 106 
+ STATIC
+  *
+ »g©om
+ ();
+ 
+ 107 
+ STATIC
+  *
+ »gþass
+ ();
+ 
+ 108 
+ STATIC
+  *
+ »gnode
+ ();
+ 
+ 109 
+ STATIC
+  *
+ »gªode
+ ();
+ 
+ 110 
+ STATIC
+  
+ »gc
+ ();
+ 
+ 111 
+ STATIC
+  
+ »gš£¹
+ ();
+ 
+ 112 
+ STATIC
+  
+ »gž
+ ();
+ 
+ 113 
+ STATIC
+  
+ »gݏž
+ ();
+ 
+ 130 
+ »gexp
+  *
+ 
+ 131 
+ 	$»gcomp
+ (
+ exp
+ ,
+ x’d
+ ,
+ fÞd
+ )
+ 
+ 132 *
+ exp
+ ;
+ 
+ 133 *
+ x’d
+ ;
+ 
+ 134 
+ fÞd
+ ;
+ 
+ 136 
+ »gexp
+  *
+ r
+ ;
+ 
+ 137 *
+ sÿn
+ ;
+ 
+ 138 
+ STR
+  *
+ lÚgish
+ ;
+ 
+ 139 
+ STR
+  *
+ lÚge¡
+ ;
+ 
+ 140 
+ Ën
+ ;
+ 
+ 141 *
+ fœ¡
+ ;
+ 
+ 142 
+ æags
+ ;
+ 
+ 143 
+ backish
+ ;
+ 
+ 144 
+ backe¡
+ ;
+ 
+ 145 
+ curback
+ ;
+ 
+ 146 
*
+ 	`§ãm®loc
+ ();
+ 
+ 147 
*
+ 	`§ve¡r
+ ();
+ 
+ 148 
+ §w¶us
+  = 0;
+ 
+ 150 ià(
+ exp
+  =ð
+ NULL
+ )
+ 
+ 151 
+ 	`çl
+ ("NULL„egexp‡rgument");
+ 
+ 154 
+ »gfÞd
+  = 
+ fÞd
+ ;
+ 
+ 155 
+ »g·r£
+  = 
+ exp
+ ;
+ 
+ 156 
+ »gx’d
+  = 
+ x’d
+ ;
+ 
+ 157 
+ »g´ecomp
+  = 
+ 	`n§ve¡r
+ (
+ exp
+ ,
+ x’d
+ -exp);
+ 
+ 158 
+ »g§wb¿ck‘
+  = 0;
+ 
+ 159 
+ »gŬ
+  = 1;
+ 
+ 160 
+ »gsize
+  = 0L;
+ 
+ 161 
+ »gcode
+  = &
+ »gdummy
+ ;
+ 
+ 162 
+ 	`»gc
+ (
+ MAGIC
+ );
+ 
+ 163 ià(
+ 	`»g
+ (0, &
+ æags
+ è=ð
+ NULL
+ ) {
+ 
+ 164 
+ 	`Saãä“
+ (
+ »g´ecomp
+ );
+ 
+ 165 
+ »g´ecomp
+  = 
+ NuÎch
+ ;
+ 
+ 166 (
+ NULL
+ );
+ 
+ 170 ià(
+ »gsize
+  >= 32767L)
+ 
+ 171 
+ 	`FAIL
+ ("regexpoo big");
+ 
+ 174 
+ 	`Newc
+ (1001, 
+ r
+ , (
+ »gexp
+ è+ ()
+ »gsize
+ , ,„egexp);
+ 
+ 175 ià(
+ r
+  =ð
+ NULL
+ )
+ 
+ 176 
+ 	`FAIL
+ ("regexp out of space");
+ 
+ 179 ià(
+ »g§wb¿ck‘
+ )
+ 
+ 180 
+ 	`bcÝy
+ (
+ »g´ecomp
+ ,
+ exp
+ ,
+ x’d
+ -exp);
+ 
+ 181 
+ r
+ ->
+ ´ecomp
+  = 
+ »g´ecomp
+ ;
+ 
+ 182 
+ r
+ ->
+ subba£
+  = 
+ NULL
+ ;
+ 
+ 183 
+ »g·r£
+  = 
+ exp
+ ;
+ 
+ 184 
+ »gŬ
+  = 1;
+ 
+ 185 
+ »gcode
+  = 
+ r
+ ->
+ ´og¿m
+ ;
+ 
+ 186 
+ 	`»gc
+ (
+ MAGIC
+ );
+ 
+ 187 ià(
+ 	`»g
+ (0, &
+ æags
+ è=ð
+ NULL
+ )
+ 
+ 188 (
+ NULL
+ );
+ 
+ 191 
+ r
+ ->
+ »g¡¬t
+  = 
+ NuΡr
+ ;
+ 
+ 192 
+ r
+ ->
+ »gªch
+  = 0;
+ 
+ 193 
+ r
+ ->
+ »gmu¡
+  = 
+ NuΡr
+ ;
+ 
+ 194 
+ r
+ ->
+ »gback
+  = -1;
+ 
+ 195 
+ r
+ ->
+ »g¡þass
+  = 
+ NuÎch
+ ;
+ 
+ 196 
+ sÿn
+  = 
+ r
+ ->
+ ´og¿m
+ +1;
+ 
+ 197 ià(
+ 	`OP
+ (
+ 	`»gÃxt
+ (
+ sÿn
+ )è=ð
+ END
+ ) {
+ 
+ 198 
+ sÿn
+  = 
+ 	`NEXTOPER
+ (scan);
+ 
+ 200 
+ fœ¡
+  = 
+ sÿn
+ ;
+ 
+ 201 
+ 	`OP
+ (
+ fœ¡
+ è=ð
+ OPEN
+  ||
+ 
+ 202 (
+ 	`OP
+ (
+ fœ¡
+ è=ð
+ BRANCH
+  && OP(
+ 	`»gÃxt
+ (first)) != BRANCH) ||
+ 
+ 203 (
+ 	`OP
+ (
+ fœ¡
+ è=ð
+ PLUS
+ ) ||
+ 
+ 204 (
+ 	`OP
+ (
+ fœ¡
+ è=ð
+ CURLY
+  && 
+ 	`ARG1
+ (first) > 0) ) {
+ 
+ 205 ià(
+ 	`OP
+ (
+ fœ¡
+ è=ð
+ PLUS
+ )
+ 
+ 206 
+ §w¶us
+  = 2;
+ 
+ 208 
+ fœ¡
+  +ð
+ »g¬gËn
+ [
+ 	`OP
+ (first)];
+ 
+ 209 
+ fœ¡
+  = 
+ 	`NEXTOPER
+ (first);
+ 
+ 213 ià(
+ 	`OP
+ (
+ fœ¡
+ è=ð
+ EXACTLY
+ ) {
+ 
+ 214 
+ r
+ ->
+ »g¡¬t
+  =
+ 
+ 215 
+ 	`¡r_make
+ (
+ 	`OPERAND
+ (
+ fœ¡
+ )+1,*OPERAND(first));
+ 
+ 216 ià(
+ r
+ ->
+ »g¡¬t
+ ->
+ ¡r_cur
+  > !(
+ §w¡udy
+ |
+ fÞd
+ ))
+ 
+ 217 
+ 	`fbmcompže
+ (
+ r
+ ->
+ »g¡¬t
+ ,
+ fÞd
+ );
+ 
+ 219 ià((
+ exp
+  = 
+ 	`šdex
+ (
+ sim¶e
+ ,
+ 	`OP
+ (
+ fœ¡
+ ))) &&ƒxp > simple)
+ 
+ 220 
+ r
+ ->
+ »g¡þass
+  = 
+ fœ¡
+ ;
+ 
+ 221 ià(
+ 	`OP
+ (
+ fœ¡
+ è=ð
+ BOUND
+  || OP(fœ¡è=ð
+ NBOUND
+ )
+ 
+ 222 
+ r
+ ->
+ »g¡þass
+  = 
+ fœ¡
+ ;
+ 
+ 223 ià(
+ 	`OP
+ (
+ fœ¡
+ è=ð
+ BOL
+  ||
+ 
+ 224 (
+ 	`OP
+ (
+ fœ¡
+ è=ð
+ STAR
+  && OP(
+ 	`NEXTOPER
+ (fœ¡)è=ð
+ ANY
+ ) )
+ 
+ 225 
+ r
+ ->
+ »gªch
+  = 1;
+ 
+ 226 
+ r
+ ->
+ »gªch
+  |ð
+ §w¶us
+ ;
+ 
+ 228 #ifdeà
+ DEBUGGING
+ 
+ 
+ 229 ià(
+ debug
+  & 512)
+ 
+ 230 
+ 	`årštf
+ (
+ ¡d”r
+ ,"first %d‚ext %d offset %d\n",
+ 
+ 231 
+ 	`OP
+ (
+ fœ¡
+ ), OP(
+ 	`NEXTOPER
+ (fœ¡)), fœ¡ - 
+ sÿn
+ );
+ 
+ 244 
+ lÚgish
+  = 
+ 	`¡r_make
+ ("",0);
+ 
+ 245 
+ lÚge¡
+  = 
+ 	`¡r_make
+ ("",0);
+ 
+ 246 
+ Ën
+  = 0;
+ 
+ 247 
+ curback
+  = 0;
+ 
+ 248 
+ backish
+  = 0;
+ 
+ 249 
+ backe¡
+  = 0;
+ 
+ 250 
+ 	`OP
+ (
+ sÿn
+ è!ð
+ END
+ ) {
+ 
+ 251 ià(
+ 	`OP
+ (
+ sÿn
+ è=ð
+ BRANCH
+ ) {
+ 
+ 252 ià(
+ 	`OP
+ (
+ 	`»gÃxt
+ (
+ sÿn
+ )è=ð
+ BRANCH
+ ) {
+ 
+ 253 
+ curback
+  = -30000;
+ 
+ 254 
+ 	`OP
+ (
+ sÿn
+ è=ð
+ BRANCH
+ )
+ 
+ 255 
+ sÿn
+  = 
+ 	`»gÃxt
+ (scan);
+ 
+ 258 
+ sÿn
+  = 
+ 	`NEXTOPER
+ (scan);
+ 
+ 260 ià(
+ 	`OP
+ (
+ sÿn
+ è=ð
+ EXACTLY
+ ) {
+ 
+ 261 *
+ t
+ ;
+ 
+ 263 
+ fœ¡
+  = 
+ sÿn
+ ;
+ 
+ 264 
+ 	`OP
+ (
+ t
+  = 
+ 	`»gÃxt
+ (
+ sÿn
+ )è=ð
+ CLOSE
+ )
+ 
+ 265 
+ sÿn
+  = 
+ t
+ ;
+ 
+ 266 ià(
+ curback
+  - 
+ backish
+  =ð
+ Ën
+ ) {
+ 
+ 267 
+ 	`¡r_nÿt
+ (
+ lÚgish
+ , 
+ 	`OPERAND
+ (
+ fœ¡
+ )+1,
+ 
+ 268 *
+ 	`OPERAND
+ (
+ fœ¡
+ ));
+ 
+ 269 
+ Ën
+  +ð*
+ 	`OPERAND
+ (
+ fœ¡
+ );
+ 
+ 270 
+ curback
+  +ð*
+ 	`OPERAND
+ (
+ fœ¡
+ );
+ 
+ 271 
+ fœ¡
+  = 
+ 	`»gÃxt
+ (
+ sÿn
+ );
+ 
+ 273 ià(*
+ 	`OPERAND
+ (
+ fœ¡
+ è>ð
+ Ën
+  + (
+ curback
+  >= 0)) {
+ 
+ 274 
+ Ën
+  = *
+ 	`OPERAND
+ (
+ fœ¡
+ );
+ 
+ 275 
+ 	`¡r_n£t
+ (
+ lÚgish
+ , 
+ 	`OPERAND
+ (
+ fœ¡
+ )+1,
+ Ën
+ );
+ 
+ 276 
+ backish
+  = 
+ curback
+ ;
+ 
+ 277 
+ curback
+  +ð
+ Ën
+ ;
+ 
+ 278 
+ fœ¡
+  = 
+ 	`»gÃxt
+ (
+ sÿn
+ );
+ 
+ 281 
+ curback
+  +ð*
+ 	`OPERAND
+ (
+ fœ¡
+ );
+ 
+ 283 ià(
+ 	`šdex
+ (
+ v¬›s
+ ,
+ 	`OP
+ (
+ sÿn
+ ))) {
+ 
+ 284 
+ curback
+  = -30000;
+ 
+ 285 
+ Ën
+  = 0;
+ 
+ 286 ià(
+ lÚgish
+ ->
+ ¡r_cur
+  > 
+ lÚge¡
+ ->str_cur) {
+ 
+ 287 
+ 	`¡r_s£t
+ (
+ lÚge¡
+ ,
+ lÚgish
+ );
+ 
+ 288 
+ backe¡
+  = 
+ backish
+ ;
+ 
+ 290 
+ 	`¡r_n£t
+ (
+ lÚgish
+ ,"",0);
+ 
+ 292 ià(
+ 	`šdex
+ (
+ sim¶e
+ ,
+ 	`OP
+ (
+ sÿn
+ ))) {
+ 
+ 293 
+ curback
+ ++;
+ 
+ 294 
+ Ën
+  = 0;
+ 
+ 295 ià(
+ lÚgish
+ ->
+ ¡r_cur
+  > 
+ lÚge¡
+ ->str_cur) {
+ 
+ 296 
+ 	`¡r_s£t
+ (
+ lÚge¡
+ ,
+ lÚgish
+ );
+ 
+ 297 
+ backe¡
+  = 
+ backish
+ ;
+ 
+ 299 
+ 	`¡r_n£t
+ (
+ lÚgish
+ ,"",0);
+ 
+ 301 
+ sÿn
+  = 
+ 	`»gÃxt
+ (scan);
+ 
+ 306 ià(
+ lÚgish
+ ->
+ ¡r_cur
+  + (
+ 	`OP
+ (
+ fœ¡
+ è=ð
+ EOL
+ è> 
+ lÚge¡
+ ->str_cur) {
+ 
+ 307 
+ 	`¡r_s£t
+ (
+ lÚge¡
+ ,
+ lÚgish
+ );
+ 
+ 308 
+ backe¡
+  = 
+ backish
+ ;
+ 
+ 311 
+ 	`¡r_n£t
+ (
+ lÚgish
+ ,"",0);
+ 
+ 312 ià(
+ lÚge¡
+ ->
+ ¡r_cur
+ 
+ 
+ 314 (!
+ r
+ ->
+ »g¡¬t
+ 
+ 
+ 316 !
+ 	`fbmš¡r
+ (
+ r
+ ->
+ »g¡¬t
+ ->
+ ¡r_±r
+ ,
+ 
+ 317 
+ r
+ ->
+ »g¡¬t
+ ->
+ ¡r_±r
+  +„->»g¡¬t->
+ ¡r_cur
+ ,
+ 
+ 318 
+ lÚge¡
+ )
+ 
+ 322 
+ r
+ ->
+ »gmu¡
+  = 
+ lÚge¡
+ ;
+ 
+ 323 ià(
+ backe¡
+  < 0)
+ 
+ 324 
+ backe¡
+  = -1;
+ 
+ 325 
+ r
+ ->
+ »gback
+  = 
+ backe¡
+ ;
+ 
+ 326 ià(
+ lÚge¡
+ ->
+ ¡r_cur
+ 
+ 
+ 327 > !(
+ §w¡udy
+  || 
+ fÞd
+  || 
+ 	`OP
+ (
+ fœ¡
+ è=ð
+ EOL
+ ) )
+ 
+ 328 
+ 	`fbmcompže
+ (
+ r
+ ->
+ »gmu¡
+ ,
+ fÞd
+ );
+ 
+ 329 
+ r
+ ->
+ »gmu¡
+ ->
+ ¡r_u
+ .
+ ¡r_u£ful
+  = 100;
+ 
+ 330 ià(
+ 	`OP
+ (
+ fœ¡
+ è=ð
+ EOL
+  && 
+ lÚgish
+ ->
+ ¡r_cur
+ )
+ 
+ 331 
+ r
+ ->
+ »gmu¡
+ ->
+ ¡r_pok
+  |ð
+ SP_TAIL
+ ;
+ 
+ 334 
+ 	`¡r_ä“
+ (
+ lÚge¡
+ );
+ 
+ 335 
+ lÚge¡
+  = 
+ NuΡr
+ ;
+ 
+ 337 
+ 	`¡r_ä“
+ (
+ lÚgish
+ );
+ 
+ 340 
+ r
+ ->
+ do_fÞdšg
+  = 
+ fÞd
+ ;
+ 
+ 341 
+ r
+ ->
+ Ŭ’s
+  = 
+ »gŬ
+  - 1;
+ 
+ 342 
+ 	`New
+ (1002, 
+ r
+ ->
+ ¡¬
+ , 
+ »gŬ
+ , *);
+ 
+ 343 
+ 	`New
+ (1002, 
+ r
+ ->
+ ’dp
+ , 
+ »gŬ
+ , *);
+ 
+ 344 #ifdeà
+ DEBUGGING
+ 
+ 
+ 345 ià(
+ debug
+  & 512)
+ 
+ 346 
+ 	`»gdump
+ (
+ r
+ );
+ 
+ 348 (
+ r
+ );
+ 
+ 349 
+ 	}
+ }
+ 
+ 361 
+ 	$»g
+ (
+ ·»n
+ , 
+ æagp
+ )
+ 
+ 362 
+ ·»n
+ ;
+ 
+ 363 *
+ æagp
+ ;
+ 
+ 365 *
+ »t
+ ;
+ 
+ 366 *
+ br
+ ;
+ 
+ 367 *
+ ’d”
+ ;
+ 
+ 368 
+ ·ºo
+ ;
+ 
+ 369 
+ æags
+ ;
+ 
+ 371 *
+ æagp
+  = 
+ HASWIDTH
+ ;
+ 
+ 374 ià(
+ ·»n
+ ) {
+ 
+ 375 
+ ·ºo
+  = 
+ »gŬ
+ ;
+ 
+ 376 
+ »gŬ
+ ++;
+ 
+ 377 
+ »t
+  = 
+ 	`»gªode
+ (
+ OPEN
+ , 
+ ·ºo
+ );
+ 
+ 379 
+ »t
+  = 
+ NULL
+ ;
+ 
+ 382 
+ br
+  = 
+ 	`»gb¿nch
+ (&
+ æags
+ );
+ 
+ 383 ià(
+ br
+  =ð
+ NULL
+ )
+ 
+ 384 (
+ NULL
+ );
+ 
+ 385 ià(
+ »t
+  !ð
+ NULL
+ )
+ 
+ 386 
+ 	`»gž
+ (
+ »t
+ , 
+ br
+ );
+ 
+ 388 
+ »t
+  = 
+ br
+ ;
+ 
+ 389 ià(!(
+ æags
+ &
+ HASWIDTH
+ ))
+ 
+ 390 *
+ æagp
+  &ð~
+ HASWIDTH
+ ;
+ 
+ 391 *
+ æagp
+  |ð
+ æags
+ &
+ SPSTART
+ ;
+ 
+ 392 *
+ »g·r£
+  == '|') {
+ 
+ 393 
+ »g·r£
+ ++;
+ 
+ 394 
+ br
+  = 
+ 	`»gb¿nch
+ (&
+ æags
+ );
+ 
+ 395 ià(
+ br
+  =ð
+ NULL
+ )
+ 
+ 396 (
+ NULL
+ );
+ 
+ 397 
+ 	`»gž
+ (
+ »t
+ , 
+ br
+ );
+ 
+ 398 ià(!(
+ æags
+ &
+ HASWIDTH
+ ))
+ 
+ 399 *
+ æagp
+  &ð~
+ HASWIDTH
+ ;
+ 
+ 400 *
+ æagp
+  |ð
+ æags
+ &
+ SPSTART
+ ;
+ 
+ 404 ià(
+ ·»n
+ )
+ 
+ 405 
+ ’d”
+  = 
+ 	`»gªode
+ (
+ CLOSE
+ , 
+ ·ºo
+ );
+ 
+ 407 
+ ’d”
+  = 
+ 	`»gnode
+ (
+ END
+ );
+ 
+ 408 
+ 	`»gž
+ (
+ »t
+ , 
+ ’d”
+ );
+ 
+ 411 
+ br
+  = 
+ »t
+ ; b¸!ð
+ NULL
+ ; b¸ð
+ 	`»gÃxt
+ (br))
+ 
+ 412 
+ 	`»gݏž
+ (
+ br
+ , 
+ ’d”
+ );
+ 
+ 415 ià(
+ ·»n
+  && *
+ »g·r£
+ ++ != ')') {
+ 
+ 416 
+ 	`FAIL
+ ("unmatched () in„egexp");
+ 
+ 417 } ià(!
+ ·»n
+  && 
+ »g·r£
+  < 
+ »gx’d
+ ) {
+ 
+ 418 ià(*
+ »g·r£
+  == ')') {
+ 
+ 419 
+ 	`FAIL
+ ("unmatched () in„egexp");
+ 
+ 421 
+ 	`FAIL
+ ("junk onƒnd of„egexp");
+ 
+ 425 (
+ »t
+ );
+ 
+ 426 
+ 	}
+ }
+ 
+ 434 
+ 	$»gb¿nch
+ (
+ æagp
+ )
+ 
+ 435 *
+ æagp
+ ;
+ 
+ 437 *
+ »t
+ ;
+ 
+ 438 *
+ chaš
+ ;
+ 
+ 439 *
+ Ï‹¡
+ ;
+ 
+ 440 
+ æags
+ ;
+ 
+ 442 *
+ æagp
+  = 
+ WORST
+ ;
+ 
+ 444 
+ »t
+  = 
+ 	`»gnode
+ (
+ BRANCH
+ );
+ 
+ 445 
+ chaš
+  = 
+ NULL
+ ;
+ 
+ 446 
+ »g·r£
+  < 
+ »gx’d
+  && *regparse != '|' && *regparse != ')') {
+ 
+ 447 
+ Ï‹¡
+  = 
+ 	`»gp›û
+ (&
+ æags
+ );
+ 
+ 448 ià(
+ Ï‹¡
+  =ð
+ NULL
+ )
+ 
+ 449 (
+ NULL
+ );
+ 
+ 450 *
+ æagp
+  |ð
+ æags
+ &
+ HASWIDTH
+ ;
+ 
+ 451 ià(
+ chaš
+  =ð
+ NULL
+ )
+ 
+ 452 *
+ æagp
+  |ð
+ æags
+ &
+ SPSTART
+ ;
+ 
+ 454 
+ 	`»gž
+ (
+ chaš
+ , 
+ Ï‹¡
+ );
+ 
+ 455 
+ chaš
+  = 
+ Ï‹¡
+ ;
+ 
+ 457 ià(
+ chaš
+  =ð
+ NULL
+ )
+ 
+ 458 (è
+ 	`»gnode
+ (
+ NOTHING
+ );
+ 
+ 460 (
+ »t
+ );
+ 
+ 461 
+ 	}
+ }
+ 
+ 473 
+ 	$»gp›û
+ (
+ æagp
+ )
+ 
+ 474 *
+ æagp
+ ;
+ 
+ 476 *
+ »t
+ ;
+ 
+ 477 
+ Ý
+ ;
+ 
+ 478 *
+ Ãxt
+ ;
+ 
+ 479 
+ æags
+ ;
+ 
+ 480 *
+ Üig·r£
+  = 
+ »g·r£
+ ;
+ 
+ 481 
+ ÜigŬ
+  = 
+ »gŬ
+ ;
+ 
+ 482 *
+ max
+ ;
+ 
+ 483 
+ ™”
+ ;
+ 
+ 484 
+ ch
+ ;
+ 
+ 486 
+ »t
+  = 
+ 	`»g©om
+ (&
+ æags
+ );
+ 
+ 487 ià(
+ »t
+  =ð
+ NULL
+ )
+ 
+ 488 (
+ NULL
+ );
+ 
+ 490 
+ Ý
+  = *
+ »g·r£
+ ;
+ 
+ 500 ià(
+ Ý
+  =ð'{' && 
+ 	`»gcu¾y
+ (
+ »g·r£
+ )) {
+ 
+ 501 
+ Ãxt
+  = 
+ »g·r£
+  + 1;
+ 
+ 502 
+ max
+  = 
+ NuÎch
+ ;
+ 
+ 503 
+ 	`isdig™
+ (*
+ Ãxt
+ ) || *next == ',') {
+ 
+ 504 ià(*
+ Ãxt
+  == ',') {
+ 
+ 505 ià(
+ max
+ )
+ 
+ 508 
+ max
+  = 
+ Ãxt
+ ;
+ 
+ 510 
+ Ãxt
+ ++;
+ 
+ 512 ià(*
+ Ãxt
+  == '}') {
+ 
+ 513 ià(!
+ max
+ )
+ 
+ 514 
+ max
+  = 
+ Ãxt
+ ;
+ 
+ 515 
+ »g·r£
+ ++;
+ 
+ 516 
+ ™”
+  = 
+ 	`©oi
+ (
+ »g·r£
+ );
+ 
+ 517 ià(
+ æags
+ &
+ SIMPLE
+ ) {
+ 
+ 518 
+ tmp
+ ;
+ 
+ 520 
+ 	`»gš£¹
+ (
+ CURLY
+ , 
+ »t
+ );
+ 
+ 521 ià(
+ ™”
+  > 0)
+ 
+ 522 *
+ æagp
+  = (
+ WORST
+ |
+ HASWIDTH
+ );
+ 
+ 523 ià(*
+ max
+  == ',')
+ 
+ 524 
+ max
+ ++;
+ 
+ 526 
+ max
+  = 
+ »g·r£
+ ;
+ 
+ 527 
+ tmp
+  = 
+ 	`©oi
+ (
+ max
+ );
+ 
+ 528 ià(
+ tmp
+  &&m°< 
+ ™”
+ )
+ 
+ 529 
+ 	`çl
+ ("Can't do {n,m} with‚ > m");
+ 
+ 530 ià(
+ »gcode
+  !ð&
+ »gdummy
+ ) {
+ 
+ 531 #ifdeà
+ REGALIGN
+ 
+ 
+ 532 *(*)(
+ »t
+ +3èð
+ ™”
+ ;
+ 
+ 533 *(*)(
+ »t
+ +5èð
+ tmp
+ ;
+ 
+ 535 
+ »t
+ [3] = 
+ ™”
+  >> 8;„et[4] = iter & 0377;
+ 
+ 536 
+ »t
+ [5] = 
+ tmp
+  >> 8;„et[6] =mp & 0377;
+ 
+ 539 
+ »g·r£
+  = 
+ Ãxt
+ ;
+ 
+ 540 
+ á_check
+ ;
+ 
+ 542 
+ »g§wb¿ck‘
+ ++;
+ 
+ 543 ià(
+ ™”
+  > 0) {
+ 
+ 544 
+ ch
+  = *
+ max
+ ;
+ 
+ 545 
+ 	`¥rštf
+ (
+ »g·r£
+ ,"%.*d", 
+ max
+ -»g·r£, 
+ ™”
+  - 1);
+ 
+ 546 *
+ max
+  = 
+ ch
+ ;
+ 
+ 547 ià(*
+ max
+  == ',' && max[1] != '}') {
+ 
+ 548 ià(
+ 	`©oi
+ (
+ max
+ +1) <= 0)
+ 
+ 549 
+ 	`çl
+ ("Can't do {n,m} with‚ > m");
+ 
+ 550 
+ ch
+  = *
+ Ãxt
+ ;
+ 
+ 551 
+ 	`¥rštf
+ (
+ max
+ +1,"%.*d", 
+ Ãxt
+ -(max+1), 
+ 	`©oi
+ (max+1) - 1);
+ 
+ 552 *
+ Ãxt
+  = 
+ ch
+ ;
+ 
+ 554 ià(
+ ™”
+  !ð1 || *
+ max
+  == ',') {
+ 
+ 555 
+ »g·r£
+  = 
+ Üig·r£
+ ;
+ 
+ 556 
+ »gŬ
+  = 
+ ÜigŬ
+ ;
+ 
+ 559 
+ »g·r£
+  = 
+ Ãxt
+ ;
+ 
+ 560 
+ á_check
+ ;
+ 
+ 562 *
+ æagp
+  = 
+ æags
+ ;
+ 
+ 563  
+ »t
+ ;
+ 
+ 565 ià(*
+ max
+  == ',') {
+ 
+ 566 
+ max
+ ++;
+ 
+ 567 
+ ™”
+  = 
+ 	`©oi
+ (
+ max
+ );
+ 
+ 568 ià(
+ max
+  =ð
+ Ãxt
+ ) {
+ 
+ 569 
+ »g·r£
+  = 
+ Ãxt
+ ;
+ 
+ 570 
+ Ý
+  = '*';
+ 
+ 572 ià(
+ ™”
+  > 0) {
+ 
+ 573 
+ Ý
+  = '?';
+ 
+ 574 
+ ch
+  = *
+ Ãxt
+ ;
+ 
+ 575 
+ 	`¥rštf
+ (
+ max
+ ,"%.*d", 
+ Ãxt
+ -max, 
+ ™”
+  - 1);
+ 
+ 576 *
+ Ãxt
+  = 
+ ch
+ ;
+ 
+ 577 ià(
+ ™”
+  == 1)
+ 
+ 578 
+ »g·r£
+  = 
+ Ãxt
+ ;
+ 
+ 580 
+ »g·r£
+  = 
+ Üig·r£
+  - 1;
+ 
+ 581 
+ »gŬ
+  = 
+ ÜigŬ
+ ;
+ 
+ 585 
+ 	`çl
+ ("Can't do {n,0}");
+ 
+ 588 
+ 	`çl
+ ("Can't do {0}");
+ 
+ 592 ià(!
+ 	`ISMULT1
+ (
+ Ý
+ )) {
+ 
+ 593 *
+ æagp
+  = 
+ æags
+ ;
+ 
+ 594 (
+ »t
+ );
+ 
+ 597 ià(!(
+ æags
+ &
+ HASWIDTH
+ è&& 
+ Ý
+  != '?')
+ 
+ 598 
+ 	`FAIL
+ ("regexp *+ operand could beƒmpty");
+ 
+ 599 *
+ æagp
+  = (
+ Ý
+  !ð'+'è? (
+ WORST
+ |
+ SPSTART
+ è: (WORST|
+ HASWIDTH
+ );
+ 
+ 601 ià(
+ Ý
+  =ð'*' && (
+ æags
+ &
+ SIMPLE
+ ))
+ 
+ 602 
+ 	`»gš£¹
+ (
+ STAR
+ , 
+ »t
+ );
+ 
+ 603 ià(
+ Ý
+  == '*') {
+ 
+ 605 
+ 	`»gš£¹
+ (
+ BRANCH
+ , 
+ »t
+ );
+ 
+ 606 
+ 	`»gݏž
+ (
+ »t
+ , 
+ 	`»gnode
+ (
+ BACK
+ ));
+ 
+ 607 
+ 	`»gݏž
+ (
+ »t
+ ,„et);
+ 
+ 608 
+ 	`»gž
+ (
+ »t
+ , 
+ 	`»gnode
+ (
+ BRANCH
+ ));
+ 
+ 609 
+ 	`»gž
+ (
+ »t
+ , 
+ 	`»gnode
+ (
+ NOTHING
+ ));
+ 
+ 610 } ià(
+ Ý
+  =ð'+' && (
+ æags
+ &
+ SIMPLE
+ ))
+ 
+ 611 
+ 	`»gš£¹
+ (
+ PLUS
+ , 
+ »t
+ );
+ 
+ 612 ià(
+ Ý
+  == '+') {
+ 
+ 614 
+ Ãxt
+  = 
+ 	`»gnode
+ (
+ BRANCH
+ );
+ 
+ 615 
+ 	`»gž
+ (
+ »t
+ , 
+ Ãxt
+ );
+ 
+ 616 
+ 	`»gž
+ (
+ 	`»gnode
+ (
+ BACK
+ ), 
+ »t
+ );
+ 
+ 617 
+ 	`»gž
+ (
+ Ãxt
+ , 
+ 	`»gnode
+ (
+ BRANCH
+ ));
+ 
+ 618 
+ 	`»gž
+ (
+ »t
+ , 
+ 	`»gnode
+ (
+ NOTHING
+ ));
+ 
+ 619 } ià(
+ Ý
+  == '?') {
+ 
+ 621 
+ 	`»gš£¹
+ (
+ BRANCH
+ , 
+ »t
+ );
+ 
+ 622 
+ 	`»gž
+ (
+ »t
+ , 
+ 	`»gnode
+ (
+ BRANCH
+ ));
+ 
+ 623 
+ Ãxt
+  = 
+ 	`»gnode
+ (
+ NOTHING
+ );
+ 
+ 624 
+ 	`»gž
+ (
+ »t
+ , 
+ Ãxt
+ );
+ 
+ 625 
+ 	`»gݏž
+ (
+ »t
+ , 
+ Ãxt
+ );
+ 
+ 627 
+ á_check
+ :
+ 
+ 628 
+ »g·r£
+ ++;
+ 
+ 629 ià(
+ 	`ISMULT2
+ (
+ »g·r£
+ ))
+ 
+ 630 
+ 	`FAIL
+ ("nested *?+ in„egexp");
+ 
+ 632 (
+ »t
+ );
+ 
+ 633 
+ 	}
+ }
+ 
+ 646 
+ 	$»g©om
+ (
+ æagp
+ )
+ 
+ 647 *
+ æagp
+ ;
+ 
+ 649 *
+ »t
+ ;
+ 
+ 650 
+ æags
+ ;
+ 
+ 652 *
+ æagp
+  = 
+ WORST
+ ;
+ 
+ 654 *
+ »g·r£
+ ++) {
+ 
+ 656 
+ »t
+  = 
+ 	`»gnode
+ (
+ BOL
+ );
+ 
+ 659 
+ »t
+  = 
+ 	`»gnode
+ (
+ EOL
+ );
+ 
+ 662 
+ »t
+  = 
+ 	`»gnode
+ (
+ ANY
+ );
+ 
+ 663 *
+ æagp
+  |ð
+ HASWIDTH
+ |
+ SIMPLE
+ ;
+ 
+ 666 
+ »t
+  = 
+ 	`»gþass
+ ();
+ 
+ 667 *
+ æagp
+  |ð
+ HASWIDTH
+ |
+ SIMPLE
+ ;
+ 
+ 670 
+ »t
+  = 
+ 	`»g
+ (1, &
+ æags
+ );
+ 
+ 671 ià(
+ »t
+  =ð
+ NULL
+ )
+ 
+ 672 (
+ NULL
+ );
+ 
+ 673 *
+ æagp
+  |ð
+ æags
+ &(
+ HASWIDTH
+ |
+ SPSTART
+ );
+ 
+ 677 
+ 	`FAIL
+ ("internal urp in„egexp");
+ 
+ 682 
+ 	`FAIL
+ ("?+* follows‚othing in„egexp");
+ 
+ 685 *
+ »g·r£
+ ) {
+ 
+ 687 
+ »t
+  = 
+ 	`»gnode
+ (
+ ALNUM
+ );
+ 
+ 688 *
+ æagp
+  |ð
+ HASWIDTH
+ |
+ SIMPLE
+ ;
+ 
+ 689 
+ »g·r£
+ ++;
+ 
+ 692 
+ »t
+  = 
+ 	`»gnode
+ (
+ NALNUM
+ );
+ 
+ 693 *
+ æagp
+  |ð
+ HASWIDTH
+ |
+ SIMPLE
+ ;
+ 
+ 694 
+ »g·r£
+ ++;
+ 
+ 697 
+ »t
+  = 
+ 	`»gnode
+ (
+ BOUND
+ );
+ 
+ 698 *
+ æagp
+  |ð
+ SIMPLE
+ ;
+ 
+ 699 
+ »g·r£
+ ++;
+ 
+ 702 
+ »t
+  = 
+ 	`»gnode
+ (
+ NBOUND
+ );
+ 
+ 703 *
+ æagp
+  |ð
+ SIMPLE
+ ;
+ 
+ 704 
+ »g·r£
+ ++;
+ 
+ 707 
+ »t
+  = 
+ 	`»gnode
+ (
+ SPACE
+ );
+ 
+ 708 *
+ æagp
+  |ð
+ HASWIDTH
+ |
+ SIMPLE
+ ;
+ 
+ 709 
+ »g·r£
+ ++;
+ 
+ 712 
+ »t
+  = 
+ 	`»gnode
+ (
+ NSPACE
+ );
+ 
+ 713 *
+ æagp
+  |ð
+ HASWIDTH
+ |
+ SIMPLE
+ ;
+ 
+ 714 
+ »g·r£
+ ++;
+ 
+ 717 
+ »t
+  = 
+ 	`»gnode
+ (
+ DIGIT
+ );
+ 
+ 718 *
+ æagp
+  |ð
+ HASWIDTH
+ |
+ SIMPLE
+ ;
+ 
+ 719 
+ »g·r£
+ ++;
+ 
+ 722 
+ »t
+  = 
+ 	`»gnode
+ (
+ NDIGIT
+ );
+ 
+ 723 *
+ æagp
+  |ð
+ HASWIDTH
+ |
+ SIMPLE
+ ;
+ 
+ 724 
+ »g·r£
+ ++;
+ 
+ 735 
+ defch¬
+ ;
+ 
+ 739 
+ num
+  = 
+ 	`©oi
+ (
+ »g·r£
+ );
+ 
+ 741 ià(
+ num
+  > 9 &&‚um >ð
+ »gŬ
+ )
+ 
+ 742 
+ defch¬
+ ;
+ 
+ 744 
+ »t
+  = 
+ 	`»gªode
+ (
+ REF
+ , 
+ num
+ );
+ 
+ 745 
+ 	`i§scii
+ (*
+ »g·r£
+ è&& 
+ 	`isdig™
+ (*regparse))
+ 
+ 746 
+ »g·r£
+ ++;
+ 
+ 747 *
+ æagp
+  |ð
+ SIMPLE
+ ;
+ 
+ 752 ià(
+ »g·r£
+  >ð
+ »gx’d
+ )
+ 
+ 753 
+ 	`FAIL
+ ("trailing \\ in„egexp");
+ 
+ 756 
+ defch¬
+ ;
+ 
+ 760 
+ Ën
+ ;
+ 
+ 761 
+ ’d”
+ ;
+ 
+ 762 *
+ p
+ ;
+ 
+ 763 *
+ Þdp
+ ;
+ 
+ 764 
+ numËn
+ ;
+ 
+ 766 
+ defch¬
+ :
+ 
+ 767 
+ »t
+  = 
+ 	`»gnode
+ (
+ EXACTLY
+ );
+ 
+ 768 
+ 	`»gc
+ (0);
+ 
+ 769 
+ Ën
+ =0, 
+ p
+ =
+ »g·r£
+ -1;
+ 
+ 770 
+ Ën
+  < 127 && 
+ p
+  < 
+ »gx’d
+ ;
+ 
+ 771 
+ Ën
+ ++)
+ 
+ 773 
+ Þdp
+  = 
+ p
+ ;
+ 
+ 774 *
+ p
+ ) {
+ 
+ 782 
+ loÝdÚe
+ ;
+ 
+ 784 *++
+ p
+ ) {
+ 
+ 793 --
+ p
+ ;
+ 
+ 794 
+ loÝdÚe
+ ;
+ 
+ 796 
+ ’d”
+  = '\n';
+ 
+ 797 
+ p
+ ++;
+ 
+ 800 
+ ’d”
+  = '\r';
+ 
+ 801 
+ p
+ ++;
+ 
+ 804 
+ ’d”
+  = '\t';
+ 
+ 805 
+ p
+ ++;
+ 
+ 808 
+ ’d”
+  = '\f';
+ 
+ 809 
+ p
+ ++;
+ 
+ 812 
+ ’d”
+  = '\033';
+ 
+ 813 
+ p
+ ++;
+ 
+ 816 
+ ’d”
+  = '\007';
+ 
+ 817 
+ p
+ ++;
+ 
+ 820 
+ ’d”
+  = 
+ 	`sÿnhex
+ (++
+ p
+ , 2, &
+ numËn
+ );
+ 
+ 821 
+ p
+  +ð
+ numËn
+ ;
+ 
+ 824 
+ p
+ ++;
+ 
+ 825 
+ ’d”
+  = *
+ p
+ ++;
+ 
+ 826 ià(
+ 	`i¦ow”
+ (
+ ’d”
+ ))
+ 
+ 827 
+ ’d”
+  = 
+ 	`touµ”
+ (ender);
+ 
+ 828 
+ ’d”
+  ^= 64;
+ 
+ 832 ià(*
+ p
+  == '0' ||
+ 
+ 833 (
+ 	`isdig™
+ (
+ p
+ [1]è&& 
+ 	`©oi
+ Õè>ð
+ »gŬ
+ ) ) {
+ 
+ 834 
+ ’d”
+  = 
+ 	`sÿnoù
+ (
+ p
+ , 3, &
+ numËn
+ );
+ 
+ 835 
+ p
+  +ð
+ numËn
+ ;
+ 
+ 838 --
+ p
+ ;
+ 
+ 839 
+ loÝdÚe
+ ;
+ 
+ 843 ià(
+ p
+  >ð
+ »gx’d
+ )
+ 
+ 844 
+ 	`FAIL
+ ("trailing \\ in„egexp");
+ 
+ 847 
+ ’d”
+  = *
+ p
+ ++;
+ 
+ 852 
+ ’d”
+  = *
+ p
+ ++;
+ 
+ 855 ià(
+ »gfÞd
+  && 
+ 	`isuµ”
+ (
+ ’d”
+ ))
+ 
+ 856 
+ ’d”
+  = 
+ 	`tÞow”
+ (ender);
+ 
+ 857 ià(
+ 	`ISMULT2
+ (
+ p
+ )) {
+ 
+ 858 ià(
+ Ën
+ )
+ 
+ 859 
+ p
+  = 
+ Þdp
+ ;
+ 
+ 861 
+ Ën
+ ++;
+ 
+ 862 
+ 	`»gc
+ (
+ ’d”
+ );
+ 
+ 866 
+ 	`»gc
+ (
+ ’d”
+ );
+ 
+ 868 
+ loÝdÚe
+ :
+ 
+ 869 
+ »g·r£
+  = 
+ p
+ ;
+ 
+ 870 ià(
+ Ën
+  <= 0)
+ 
+ 871 
+ 	`FAIL
+ ("internal disaster in„egexp");
+ 
+ 872 *
+ æagp
+  |ð
+ HASWIDTH
+ ;
+ 
+ 873 ià(
+ Ën
+  == 1)
+ 
+ 874 *
+ æagp
+  |ð
+ SIMPLE
+ ;
+ 
+ 875 ià(
+ »gcode
+  !ð&
+ »gdummy
+ )
+ 
+ 876 *
+ 	`OPERAND
+ (
+ »t
+ èð
+ Ën
+ ;
+ 
+ 877 
+ 	`»gc
+ ('\0');
+ 
+ 882 (
+ »t
+ );
+ 
+ 883 
+ 	}
+ }
+ 
+ 886 
+ 	$»g£t
+ (
+ b™s
+ ,
+ def
+ ,
+ c
+ )
+ 
+ 887 *
+ b™s
+ ;
+ 
+ 888 
+ def
+ ;
+ 
+ 889 
+ c
+ ;
+ 
+ 891 ià(
+ »gcode
+  =ð&
+ »gdummy
+ )
+ 
+ 893 
+ c
+  &= 255;
+ 
+ 894 ià(
+ def
+ )
+ 
+ 895 
+ b™s
+ [
+ c
+  >> 3] &= ~(1 << (c & 7));
+ 
+ 897 
+ b™s
+ [
+ c
+  >> 3] |= (1 << (c & 7));
+ 
+ 898 
+ 	}
+ }
+ 
+ 901 
+ 	$»gþass
+ ()
+ 
+ 903 *
+ b™s
+ ;
+ 
+ 904 
+ þass
+ ;
+ 
+ 905 
+ Ï¡þass
+ ;
+ 
+ 906 
+ ¿nge
+  = 0;
+ 
+ 907 *
+ »t
+ ;
+ 
+ 908 
+ def
+ ;
+ 
+ 909 
+ numËn
+ ;
+ 
+ 911 
+ »t
+  = 
+ 	`»gnode
+ (
+ ANYOF
+ );
+ 
+ 912 ià(*
+ »g·r£
+  == '^') {
+ 
+ 913 
+ »g·r£
+ ++;
+ 
+ 914 
+ def
+  = 0;
+ 
+ 916 
+ def
+  = 255;
+ 
+ 918 
+ b™s
+  = 
+ »gcode
+ ;
+ 
+ 919 
+ þass
+  = 0; class < 32; class++)
+ 
+ 920 
+ 	`»gc
+ (
+ def
+ );
+ 
+ 921 ià(*
+ »g·r£
+  == ']' || *regparse == '-')
+ 
+ 922 
+ skcÚd
+ ;
+ 
+ 923 
+ »g·r£
+  < 
+ »gx’d
+  && *regparse != ']') {
+ 
+ 924 
+ skcÚd
+ :
+ 
+ 925 
+ þass
+  = 
+ 	`UCHARAT
+ (
+ »g·r£
+ ++);
+ 
+ 926 ià(
+ þass
+  == '\\') {
+ 
+ 927 
+ þass
+  = 
+ 	`UCHARAT
+ (
+ »g·r£
+ ++);
+ 
+ 928 
+ þass
+ ) {
+ 
+ 930 
+ þass
+  = 'a'; class <= 'z'; class++)
+ 
+ 931 
+ 	`»g£t
+ (
+ b™s
+ ,
+ def
+ ,
+ þass
+ );
+ 
+ 932 
+ þass
+  = 'A'; class <= 'Z'; class++)
+ 
+ 933 
+ 	`»g£t
+ (
+ b™s
+ ,
+ def
+ ,
+ þass
+ );
+ 
+ 934 
+ þass
+  = '0'; class <= '9'; class++)
+ 
+ 935 
+ 	`»g£t
+ (
+ b™s
+ ,
+ def
+ ,
+ þass
+ );
+ 
+ 936 
+ 	`»g£t
+ (
+ b™s
+ ,
+ def
+ ,'_');
+ 
+ 937 
+ Ï¡þass
+  = 1234;
+ 
+ 940 
+ 	`»g£t
+ (
+ b™s
+ ,
+ def
+ ,' ');
+ 
+ 941 
+ 	`»g£t
+ (
+ b™s
+ ,
+ def
+ ,'\t');
+ 
+ 942 
+ 	`»g£t
+ (
+ b™s
+ ,
+ def
+ ,'\r');
+ 
+ 943 
+ 	`»g£t
+ (
+ b™s
+ ,
+ def
+ ,'\f');
+ 
+ 944 
+ 	`»g£t
+ (
+ b™s
+ ,
+ def
+ ,'\n');
+ 
+ 945 
+ Ï¡þass
+  = 1234;
+ 
+ 948 
+ þass
+  = '0'; class <= '9'; class++)
+ 
+ 949 
+ 	`»g£t
+ (
+ b™s
+ ,
+ def
+ ,
+ þass
+ );
+ 
+ 950 
+ Ï¡þass
+  = 1234;
+ 
+ 953 
+ þass
+  = '\n';
+ 
+ 956 
+ þass
+  = '\r';
+ 
+ 959 
+ þass
+  = '\t';
+ 
+ 962 
+ þass
+  = '\f';
+ 
+ 965 
+ þass
+  = '\b';
+ 
+ 968 
+ þass
+  = '\033';
+ 
+ 971 
+ þass
+  = '\007';
+ 
+ 974 
+ þass
+  = 
+ 	`sÿnhex
+ (
+ »g·r£
+ , 2, &
+ numËn
+ );
+ 
+ 975 
+ »g·r£
+  +ð
+ numËn
+ ;
+ 
+ 978 
+ þass
+  = *
+ »g·r£
+ ++;
+ 
+ 979 ià(
+ 	`i¦ow”
+ (
+ þass
+ ))
+ 
+ 980 
+ þass
+  = 
+ 	`touµ”
+ (class);
+ 
+ 981 
+ þass
+  ^= 64;
+ 
+ 985 
+ þass
+  = 
+ 	`sÿnoù
+ (--
+ »g·r£
+ , 3, &
+ numËn
+ );
+ 
+ 986 
+ »g·r£
+  +ð
+ numËn
+ ;
+ 
+ 990 ià(
+ ¿nge
+ ) {
+ 
+ 991 ià(
+ Ï¡þass
+  > 
+ þass
+ )
+ 
+ 992 
+ 	`FAIL
+ ("invalid []„ange in„egexp");
+ 
+ 993 
+ ¿nge
+  = 0;
+ 
+ 996 
+ Ï¡þass
+  = 
+ þass
+ ;
+ 
+ 997 ià(*
+ »g·r£
+  =ð'-' &&„eg·r£+1 < 
+ »gx’d
+  &&
+ 
+ 998 
+ »g·r£
+ [1] != ']') {
+ 
+ 999 
+ »g·r£
+ ++;
+ 
+ 1000 
+ ¿nge
+  = 1;
+ 
+ 1004  ; 
+ Ï¡þass
+  <ð
+ þass
+ ;†astclass++) {
+ 
+ 1005 
+ 	`»g£t
+ (
+ b™s
+ ,
+ def
+ ,
+ Ï¡þass
+ );
+ 
+ 1006 ià(
+ »gfÞd
+  && 
+ 	`isuµ”
+ (
+ Ï¡þass
+ ))
+ 
+ 1007 
+ 	`»g£t
+ (
+ b™s
+ ,
+ def
+ ,
+ 	`tÞow”
+ (
+ Ï¡þass
+ ));
+ 
+ 1009 
+ Ï¡þass
+  = 
+ þass
+ ;
+ 
+ 1011 ià(*
+ »g·r£
+  != ']')
+ 
+ 1012 
+ 	`FAIL
+ ("unmatched [] in„egexp");
+ 
+ 1013 
+ »g·r£
+ ++;
+ 
+ 1014  
+ »t
+ ;
+ 
+ 1015 
+ 	}
+ }
+ 
+ 1021 
+ 	$»gnode
+ (
+ Ý
+ )
+ 
+ 1022 
+ Ý
+ ;
+ 
+ 1024 *
+ »t
+ ;
+ 
+ 1025 *
+ ±r
+ ;
+ 
+ 1027 
+ »t
+  = 
+ »gcode
+ ;
+ 
+ 1028 ià(
+ »t
+  =ð&
+ »gdummy
+ ) {
+ 
+ 1029 #ifdeà
+ REGALIGN
+ 
+ 
+ 1030 ià(!(
+ »gsize
+  & 1))
+ 
+ 1031 
+ »gsize
+ ++;
+ 
+ 1033 
+ »gsize
+  += 3;
+ 
+ 1034 (
+ »t
+ );
+ 
+ 1037 #ifdeà
+ REGALIGN
+ 
+ 
+ 1038 #iâdeà
+ lšt
+ 
+ 
+ 1039 ià(!(()
+ »t
+  & 1))
+ 
+ 1040 *
+ »t
+ ++ = 127;
+ 
+ 1043 
+ ±r
+  = 
+ »t
+ ;
+ 
+ 1044 *
+ ±r
+ ++ = 
+ Ý
+ ;
+ 
+ 1045 *
+ ±r
+ ++ = '\0';
+ 
+ 1046 *
+ ±r
+ ++ = '\0';
+ 
+ 1047 
+ »gcode
+  = 
+ ±r
+ ;
+ 
+ 1049 (
+ »t
+ );
+ 
+ 1050 
+ 	}
+ }
+ 
+ 1056 
+ 	$»gªode
+ (
+ Ý
+ , 
+ ¬g
+ )
+ 
+ 1057 
+ Ý
+ ;
+ 
+ 1058 
+ ¬g
+ ;
+ 
+ 1060 *
+ »t
+ ;
+ 
+ 1061 *
+ ±r
+ ;
+ 
+ 1063 
+ »t
+  = 
+ »gcode
+ ;
+ 
+ 1064 ià(
+ »t
+  =ð&
+ »gdummy
+ ) {
+ 
+ 1065 #ifdeà
+ REGALIGN
+ 
+ 
+ 1066 ià(!(
+ »gsize
+  & 1))
+ 
+ 1067 
+ »gsize
+ ++;
+ 
+ 1069 
+ »gsize
+  += 5;
+ 
+ 1070 (
+ »t
+ );
+ 
+ 1073 #ifdeà
+ REGALIGN
+ 
+ 
+ 1074 #iâdeà
+ lšt
+ 
+ 
+ 1075 ià(!(()
+ »t
+  & 1))
+ 
+ 1076 *
+ »t
+ ++ = 127;
+ 
+ 1079 
+ ±r
+  = 
+ »t
+ ;
+ 
+ 1080 *
+ ±r
+ ++ = 
+ Ý
+ ;
+ 
+ 1081 *
+ ±r
+ ++ = '\0';
+ 
+ 1082 *
+ ±r
+ ++ = '\0';
+ 
+ 1083 #ifdeà
+ REGALIGN
+ 
+ 
+ 1084 *(*)(
+ »t
+ +3èð
+ ¬g
+ ;
+ 
+ 1086 
+ »t
+ [3] = 
+ ¬g
+  >> 8;„et[4] =‡rg & 0377;
+ 
+ 1088 
+ ±r
+  += 2;
+ 
+ 1089 
+ »gcode
+  = 
+ ±r
+ ;
+ 
+ 1091 (
+ »t
+ );
+ 
+ 1092 
+ 	}
+ }
+ 
+ 1098 
+ 	$»gc
+ (
+ b
+ )
+ 
+ 1099 
+ b
+ ;
+ 
+ 1101 ià(
+ »gcode
+  !ð&
+ »gdummy
+ )
+ 
+ 1102 *
+ »gcode
+ ++ = 
+ b
+ ;
+ 
+ 1104 
+ »gsize
+ ++;
+ 
+ 1105 
+ 	}
+ }
+ 
+ 1113 
+ 	$»gš£¹
+ (
+ Ý
+ , 
+ Ýnd
+ )
+ 
+ 1114 
+ Ý
+ ;
+ 
+ 1115 *
+ Ýnd
+ ;
+ 
+ 1117 *
+ ¤c
+ ;
+ 
+ 1118 *
+ d¡
+ ;
+ 
+ 1119 *
+ ¶aû
+ ;
+ 
+ 1120 
+ off£t
+  = (
+ Ý
+  =ð
+ CURLY
+  ? 4 : 0);
+ 
+ 1122 ià(
+ »gcode
+  =ð&
+ »gdummy
+ ) {
+ 
+ 1123 #ifdeà
+ REGALIGN
+ 
+ 
+ 1124 
+ »gsize
+  +ð4 + 
+ off£t
+ ;
+ 
+ 1126 
+ »gsize
+  +ð3 + 
+ off£t
+ ;
+ 
+ 1131 
+ ¤c
+  = 
+ »gcode
+ ;
+ 
+ 1132 #ifdeà
+ REGALIGN
+ 
+ 
+ 1133 
+ »gcode
+  +ð4 + 
+ off£t
+ ;
+ 
+ 1135 
+ »gcode
+  +ð3 + 
+ off£t
+ ;
+ 
+ 1137 
+ d¡
+  = 
+ »gcode
+ ;
+ 
+ 1138 
+ ¤c
+  > 
+ Ýnd
+ )
+ 
+ 1139 *--
+ d¡
+  = *--
+ ¤c
+ ;
+ 
+ 1141 
+ ¶aû
+  = 
+ Ýnd
+ ;
+ 
+ 1142 *
+ ¶aû
+ ++ = 
+ Ý
+ ;
+ 
+ 1143 *
+ ¶aû
+ ++ = '\0';
+ 
+ 1144 *
+ ¶aû
+ ++ = '\0';
+ 
+ 1145 
+ off£t
+ -- > 0)
+ 
+ 1146 *
+ ¶aû
+ ++ = '\0';
+ 
+ 1147 
+ 	}
+ }
+ 
+ 1153 
+ 	$»gž
+ (
+ p
+ , 
+ v®
+ )
+ 
+ 1154 *
+ p
+ ;
+ 
+ 1155 *
+ v®
+ ;
+ 
+ 1157 *
+ sÿn
+ ;
+ 
+ 1158 *
+ ‹mp
+ ;
+ 
+ 1159 
+ off£t
+ ;
+ 
+ 1161 ià(
+ p
+  =ð&
+ »gdummy
+ )
+ 
+ 1165 
+ sÿn
+  = 
+ p
+ ;
+ 
+ 1167 
+ ‹mp
+  = 
+ 	`»gÃxt
+ (
+ sÿn
+ );
+ 
+ 1168 ià(
+ ‹mp
+  =ð
+ NULL
+ )
+ 
+ 1170 
+ sÿn
+  = 
+ ‹mp
+ ;
+ 
+ 1173 #ifdeà
+ REGALIGN
+ 
+ 
+ 1174 
+ off£t
+  = 
+ v®
+  - 
+ sÿn
+ ;
+ 
+ 1175 #iâdeà
+ lšt
+ 
+ 
+ 1176 *(*)(
+ sÿn
+ +1èð
+ off£t
+ ;
+ 
+ 1178 
+ off£t
+  = offset;
+ 
+ 1181 ià(
+ 	`OP
+ (
+ sÿn
+ è=ð
+ BACK
+ )
+ 
+ 1182 
+ off£t
+  = 
+ sÿn
+  - 
+ v®
+ ;
+ 
+ 1184 
+ off£t
+  = 
+ v®
+  - 
+ sÿn
+ ;
+ 
+ 1185 *(
+ sÿn
+ +1èð(
+ off£t
+ >>8)&0377;
+ 
+ 1186 *(
+ sÿn
+ +2èð
+ off£t
+ &0377;
+ 
+ 1188 
+ 	}
+ }
+ 
+ 1194 
+ 	$»gݏž
+ (
+ p
+ , 
+ v®
+ )
+ 
+ 1195 *
+ p
+ ;
+ 
+ 1196 *
+ v®
+ ;
+ 
+ 1199 ià(
+ p
+  =ð
+ NULL
+  ||… =ð&
+ »gdummy
+  || 
+ 	`OP
+ Õè!ð
+ BRANCH
+ )
+ 
+ 1201 
+ 	`»gž
+ (
+ 	`NEXTOPER
+ (
+ p
+ ), 
+ v®
+ );
+ 
+ 1202 
+ 	}
+ }
+ 
+ 1207 
+ STATIC
+  
+ 
+ 1208 
+ 	$»gcu¾y
+ (
+ s
+ )
+ 
+ 1209 *
+ s
+ ;
+ 
+ 1211 ià(*
+ s
+ ++ != '{')
+ 
+ 1212  
+ FALSE
+ ;
+ 
+ 1213 ià(!
+ 	`isdig™
+ (*
+ s
+ ))
+ 
+ 1214  
+ FALSE
+ ;
+ 
+ 1215 
+ 	`isdig™
+ (*
+ s
+ ))
+ 
+ 1216 
+ s
+ ++;
+ 
+ 1217 ià(*
+ s
+  == ',')
+ 
+ 1218 
+ s
+ ++;
+ 
+ 1219 
+ 	`isdig™
+ (*
+ s
+ ))
+ 
+ 1220 
+ s
+ ++;
+ 
+ 1221 ià(*
+ s
+  != '}')
+ 
+ 1222  
+ FALSE
+ ;
+ 
+ 1223  
+ TRUE
+ ;
+ 
+ 1224 
+ 	}
+ }
+ 
+ 1226 #ifdeà
+ DEBUGGING
+ 
+ 
+ 1232 
+ 	$»gdump
+ (
+ r
+ )
+ 
+ 1233 
+ »gexp
+  *
+ r
+ ;
+ 
+ 1235 *
+ s
+ ;
+ 
+ 1236 
+ Ý
+  = 
+ EXACTL