perl 3.0: (no announcement message available)perl-3.000

A few of the new features: (18 Oct)

    * Perl can now handle binary data correctly and has functions to pack and unpack binary structures into arrays or lists. You can now do arbitrary ioctl functions.
    * You can now pass things to subroutines by reference.
    * Debugger enhancements.
    * An array or associative array may now appear in a local() list.
    * Array values may now be interpolated into strings.
    * Subroutine names are now distinguished by prefixing with &. You can call subroutines without using do, and without passing any argument list at all.
    * You can use the new -u switch to cause perl to dump core so that you can run undump and produce a binary executable image. Alternately you can use the "dump" operator after initializing any variables and such.
    * You can now chop lists.
    * Perl now uses /bin/csh to do filename globbing, if available. This means that filenames with spaces or other strangenesses work right.
    * New functions: mkdir and rmdir, getppid, getpgrp and setpgrp, getpriority and setpriority, chroot, ioctl and fcntl, flock, readlink, lstat, rindex, pack and unpack, read, warn, dbmopen and dbmclose, dump, reverse, defined, undef.

1 files changed, 514 insertions, 14 deletions

diff --git a/arg.h b/arg.h
index efb3e3696c..ae52789eeb 100644
--- a/arg.h
+++ b/arg.h
@@ -1,8 +1,13 @@
-/* $Header: arg.h,v 2.0 88/06/05 00:08:14 root Exp $
+/* $Header: arg.h,v 3.0 89/10/18 15:08:27 lwall Locked $
+ *
+ *    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 2.0  88/06/05  00:08:14  root
- * Baseline version 2.0.
+ * Revision 3.0  89/10/18  15:08:27  lwall
+ * 3.0 baseline
  * 
  */
 
@@ -143,7 +148,111 @@
 #define O_SORT 134
 #define O_DELETE 135
 #define O_STUDY 136
-#define MAXO 137
+#define O_ATAN2 137
+#define O_SIN 138
+#define O_COS 139
+#define O_RAND 140
+#define O_SRAND 141
+#define O_POW 142
+#define O_RETURN 143
+#define O_GETC 144
+#define O_MKDIR 145
+#define O_RMDIR 146
+#define O_GETPPID 147
+#define O_GETPGRP 148
+#define O_SETPGRP 149
+#define O_GETPRIORITY 150
+#define O_SETPRIORITY 151
+#define O_CHROOT 152
+#define O_IOCTL 153
+#define O_FCNTL 154
+#define O_FLOCK 155
+#define O_RINDEX 156
+#define O_PACK 157
+#define O_UNPACK 158
+#define O_READ 159
+#define O_WARN 160
+#define O_DBMOPEN 161
+#define O_DBMCLOSE 162
+#define O_ASLICE 163
+#define O_HSLICE 164
+#define O_LASLICE 165
+#define O_LHSLICE 166
+#define O_F_OR_R 167
+#define O_RANGE 168
+#define O_RCAT 169
+#define O_AASSIGN 170
+#define O_SASSIGN 171
+#define O_DUMP 172
+#define O_REVERSE 173
+#define O_ADDROF 174
+#define O_SOCKET 175
+#define O_BIND 176
+#define O_CONNECT 177
+#define O_LISTEN 178
+#define O_ACCEPT 179
+#define O_SEND 180
+#define O_RECV 181
+#define O_SSELECT 182
+#define O_SOCKETPAIR 183
+#define O_DBSUBR 184
+#define O_DEFINED 185
+#define O_UNDEF 186
+#define O_READLINK 187
+#define O_LSTAT 188
+#define O_AELEM 189
+#define O_HELEM 190
+#define O_LAELEM 191
+#define O_LHELEM 192
+#define O_LOCAL 193
+#define O_UNUSED 194
+#define O_FILENO 195
+#define O_GHBYNAME 196
+#define O_GHBYADDR 197
+#define O_GHOSTENT 198
+#define O_SHOSTENT 199
+#define O_EHOSTENT 200
+#define O_GSBYNAME 201
+#define O_GSBYPORT 202
+#define O_GSERVENT 203
+#define O_SSERVENT 204
+#define O_ESERVENT 205
+#define O_GPBYNAME 206
+#define O_GPBYNUMBER 207
+#define O_GPROTOENT 208
+#define O_SPROTOENT 209
+#define O_EPROTOENT 210
+#define O_GNBYNAME 211
+#define O_GNBYADDR 212
+#define O_GNETENT 213
+#define O_SNETENT 214
+#define O_ENETENT 215
+#define O_VEC 216
+#define O_GREP 217
+#define O_GPWNAM 218
+#define O_GPWUID 219
+#define O_GPWENT 220
+#define O_SPWENT 221
+#define O_EPWENT 222
+#define O_GGRNAM 223
+#define O_GGRGID 224
+#define O_GGRENT 225
+#define O_SGRENT 226
+#define O_EGRENT 227
+#define O_SHUTDOWN 228
+#define O_OPENDIR 229
+#define O_READDIR 230
+#define O_TELLDIR 231
+#define O_SEEKDIR 232
+#define O_REWINDDIR 233
+#define O_CLOSEDIR 234
+#define O_GETLOGIN 235
+#define O_SYSCALL 236
+#define O_GSOCKOPT 237
+#define O_SSOCKOPT 238
+#define O_GETSOCKNAME 239
+#define O_GETPEERNAME 240
+#define MAXO 241
 
 #ifndef DOINIT
 extern char *opname[];
@@ -286,7 +395,111 @@ char *opname[] = {
     "SORT",
     "DELETE",
     "STUDY",
-    "135"
+    "ATAN2",
+    "SIN",
+    "COS",
+    "RAND",
+    "SRAND",
+    "POW",
+    "RETURN",
+    "GETC",
+    "MKDIR",
+    "RMDIR",
+    "GETPPID",
+    "GETPGRP",
+    "SETPGRP",
+    "GETPRIORITY",
+    "SETPRIORITY",
+    "CHROOT",
+    "IOCTL",
+    "FCNTL",
+    "FLOCK",
+    "RINDEX",
+    "PACK",
+    "UNPACK",
+    "READ",
+    "WARN",
+    "DBMOPEN",
+    "DBMCLOSE",
+    "ASLICE",
+    "HSLICE",
+    "LASLICE",
+    "LHSLICE",
+    "FLIP_OR_RANGE",
+    "RANGE",
+    "RCAT",
+    "AASSIGN",
+    "SASSIGN",
+    "DUMP",
+    "REVERSE",
+    "ADDRESS_OF",
+    "SOCKET",
+    "BIND",
+    "CONNECT",
+    "LISTEN",
+    "ACCEPT",
+    "SEND",
+    "RECV",
+    "SSELECT",
+    "SOCKETPAIR",
+    "DBSUBR",
+    "DEFINED",
+    "UNDEF",
+    "READLINK",
+    "LSTAT",
+    "AELEM",
+    "HELEM",
+    "LAELEM",
+    "LHELEM",
+    "LOCAL",
+    "UNUSED",
+    "FILENO",
+    "GHBYNAME",
+    "GHBYADDR",
+    "GHOSTENT",
+    "SHOSTENT",
+    "EHOSTENT",
+    "GSBYNAME",
+    "GSBYPORT",
+    "GSERVENT",
+    "SSERVENT",
+    "ESERVENT",
+    "GPBYNAME",
+    "GPBYNUMBER",
+    "GPROTOENT",
+    "SPROTOENT",
+    "EPROTOENT",
+    "GNBYNAME",
+    "GNBYADDR",
+    "GNETENT",
+    "SNETENT",
+    "ENETENT",
+    "VEC",
+    "GREP",
+    "GPWNAM",
+    "GPWUID",
+    "GPWENT",
+    "SPWENT",
+    "EPWENT",
+    "GGRNAM",
+    "GGRGID",
+    "GGRENT",
+    "SGRENT",
+    "EGRENT",
+    "SHUTDOWN",
+    "OPENDIR",
+    "READDIR",
+    "TELLDIR",
+    "SEEKDIR",
+    "REWINDDIR",
+    "CLOSEDIR",
+    "GETLOGIN",
+    "SYSCALL",
+    "GSOCKOPT",
+    "SSOCKOPT",
+    "GETSOCKNAME",
+    "GETPEERNAME",
+    "241"
 };
 #endif
 
@@ -302,11 +515,18 @@ char *opname[] = {
 #define A_SPAT 9
 #define A_LEXPR 10
 #define A_ARYLEN 11
-#define A_NUMBER 12
+#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[];
@@ -324,19 +544,46 @@ char *argname[] = {
     "SPAT",
     "LEXPR",
     "ARYLEN",
-    "NUMBER",
+    "ARYSTAB",
     "LARYLEN",
     "GLOB",
     "WORD",
     "INDREAD",
-    "17"
+    "LARYSTAB",
+    "STAR",
+    "LSTAR",
+    "WANTARRAY",
+    "21"
 };
 #endif
 
 #ifndef DOINIT
 extern bool hoistable[];
 #else
-bool hoistable[] = {0, 0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0};
+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 {
@@ -346,22 +593,25 @@ union argptr {
     SPAT	*arg_spat;
     CMD		*arg_cmd;
     STR		*arg_str;
-    double	arg_nval;
+    HASH	*arg_hash;
 };
 
 struct arg {
     union argptr arg_ptr;
     short	arg_len;
+#ifdef mips
+    short	pad;
+#endif
     unsigned char arg_type;
     unsigned char arg_flags;
 };
 
-#define AF_SPECIAL 1		/* op wants to evaluate this arg itself */
+#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_NUMERIC 32		/* return as numeric rather than string */
+#define AF_UNUSED 32		/*  */
 #define AF_LISTISH 64		/* turn into list if important */
 #define AF_LOCAL 128		/* list of local variables */
 
@@ -371,13 +621,262 @@ struct arg {
  * 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, but it sure makes it efficient.  The arg_type of the
+ * 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*)
 
-EXT char opargs[MAXO];
+#ifndef DOINIT
+EXT char opargs[MAXO+1];
+#else
+#define A(e1,e2,e3) (e1+(e2<<2)+(e3<<4))
+char opargs[MAXO+1] = {
+	A(0,0,0),	/* NULL */
+	A(1,0,0),	/* ITEM */
+	A(0,0,0),	/* ITEM2 */
+	A(0,0,0),	/* ITEM3 */
+	A(1,1,0),	/* CONCAT */
+	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,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),	/* 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),	/* WRITE */
+	A(1,1,0),	/* OPEN */
+	A(1,0,0),	/* TRANS */
+	A(1,0,0),	/* NTRANS */
+	A(1,0,0),	/* CLOSE */
+	A(0,0,0),	/* ARRAY */
+	A(0,0,0),	/* HASH */
+	A(0,0,0),	/* LARRAY */
+	A(0,0,0),	/* LHASH */
+	A(0,3,0),	/* PUSH */
+	A(0,0,0),	/* POP */
+	A(0,0,0),	/* SHIFT */
+	A(1,0,1),	/* SPLIT */
+	A(1,0,0),	/* LENGTH */
+	A(3,0,0),	/* SPRINTF */
+	A(1,1,1),	/* SUBSTR */
+	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(0,3,0),	/* SUBR */
+	A(1,3,0),	/* PRINT */
+	A(1,0,0),	/* CHDIR */
+	A(0,3,0),	/* DIE */
+	A(1,0,0),	/* EXIT */
+	A(1,0,0),	/* RESET */
+	A(3,0,0),	/* LIST */
+	A(1,0,0),	/* SELECT */
+	A(1,0,0),	/* EOF */
+	A(1,0,0),	/* TELL */
+	A(1,1,1),	/* SEEK */
+	A(0,0,0),	/* LAST */
+	A(0,0,0),	/* NEXT */
+	A(0,0,0),	/* REDO */
+	A(0,0,0),	/* GOTO */
+	A(1,1,0),	/* INDEX */
+	A(0,0,0),	/* TIME */
+	A(0,0,0),	/* TIMES */
+	A(1,0,0),	/* LOCALTIME */
+	A(1,0,0),	/* GMTIME */
+	A(1,0,0),	/* STAT */
+	A(1,1,0),	/* CRYPT */
+	A(1,0,0),	/* EXP */
+	A(1,0,0),	/* LOG */
+	A(1,0,0),	/* SQRT */
+	A(1,0,0),	/* INT */
+	A(1,3,0),	/* PRINTF */
+	A(1,0,0),	/* ORD */
+	A(1,0,0),	/* SLEEP */
+	A(1,0,0),	/* FLIP */
+	A(0,1,0),	/* FLOP */
+	A(0,0,0),	/* KEYS */
+	A(0,0,0),	/* VALUES */
+	A(0,0,0),	/* EACH */
+	A(3,0,0),	/* CHOP */
+	A(0,0,0),	/* FORK */
+	A(1,3,0),	/* EXEC */
+	A(1,3,0),	/* SYSTEM */
+	A(1,0,0),	/* OCT */
+	A(1,0,0),	/* HEX */
+	A(0,3,0),	/* CHMOD */
+	A(0,3,0),	/* CHOWN */
+	A(0,3,0),	/* KILL */
+	A(1,1,0),	/* RENAME */
+	A(0,3,0),	/* UNLINK */
+	A(1,0,0),	/* UMASK */
+	A(0,3,0),	/* UNSHIFT */
+	A(1,1,0),	/* LINK */
+	A(1,1,0),	/* REPEAT */
+	A(1,0,0),	/* EVAL */
+	A(1,0,0),	/* FTEREAD */
+	A(1,0,0),	/* FTEWRITE */
+	A(1,0,0),	/* FTEEXEC */
+	A(1,0,0),	/* FTEOWNED */
+	A(1,0,0),	/* FTRREAD */
+	A(1,0,0),	/* FTRWRITE */
+	A(1,0,0),	/* FTREXEC */
+	A(1,0,0),	/* FTROWNED */
+	A(1,0,0),	/* FTIS */
+	A(1,0,0),	/* FTZERO */
+	A(1,0,0),	/* FTSIZE */
+	A(1,0,0),	/* FTFILE */
+	A(1,0,0),	/* FTDIR */
+	A(1,0,0),	/* FTLINK */
+	A(1,1,0),	/* SYMLINK */
+	A(1,0,0),	/* FTPIPE */
+	A(1,0,0),	/* FTSOCK */
+	A(1,0,0),	/* FTBLK */
+	A(1,0,0),	/* FTCHR */
+	A(1,0,0),	/* FTSUID */
+	A(1,0,0),	/* FTSGID */
+	A(1,0,0),	/* FTSVTX */
+	A(1,0,0),	/* FTTTY */
+	A(1,0,0),	/* DOFILE */
+	A(1,0,0),	/* FTTEXT */
+	A(1,0,0),	/* FTBINARY */
+	A(0,3,0),	/* UTIME */
+	A(0,0,0),	/* WAIT */
+	A(1,3,0),	/* SORT */
+	A(0,1,0),	/* DELETE */
+	A(1,0,0),	/* STUDY */
+	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,1,0),	/* POW */
+	A(0,3,0),	/* RETURN */
+	A(1,0,0),	/* GETC */
+	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),	/* IOCTL */
+	A(1,1,1),	/* FCNTL */
+	A(1,1,0),	/* FLOCK */
+	A(1,1,0),	/* RINDEX */
+	A(1,3,0),	/* PACK */
+	A(1,1,0),	/* UNPACK */
+	A(1,1,1),	/* READ */
+	A(0,3,0),	/* WARN */
+	A(1,1,1),	/* DBMOPEN */
+	A(1,0,0),	/* DBMCLOSE */
+	A(0,3,0),	/* ASLICE */
+	A(0,3,0),	/* HSLICE */
+	A(0,3,0),	/* LASLICE */
+	A(0,3,0),	/* LHSLICE */
+	A(1,0,0),	/* F_OR_R */
+	A(1,1,0),	/* RANGE */
+	A(1,1,0),	/* RCAT */
+	A(3,3,0),	/* AASSIGN */
+	A(0,0,0),	/* SASSIGN */
+	A(0,0,0),	/* DUMP */
+	A(0,0,0),	/* REVERSE */
+	A(1,0,0),	/* ADDROF */
+	A(1,1,1),	/* SOCKET */
+	A(1,1,0),	/* BIND */
+	A(1,1,0),	/* CONNECT */
+	A(1,1,0),	/* LISTEN */
+	A(1,1,0),	/* ACCEPT */
+	A(1,1,2),	/* SEND */
+	A(1,1,1),	/* RECV */
+	A(1,1,1),	/* SSELECT */
+	A(1,1,1),	/* SOCKETPAIR */
+	A(0,3,0),	/* DBSUBR */
+	A(1,0,0),	/* DEFINED */
+	A(1,0,0),	/* UNDEF */
+	A(1,0,0),	/* READLINK */
+	A(1,0,0),	/* LSTAT */
+	A(0,1,0),	/* AELEM */
+	A(0,1,0),	/* HELEM */
+	A(0,1,0),	/* LAELEM */
+	A(0,1,0),	/* LHELEM */
+	A(1,0,0),	/* LOCAL */
+	A(0,0,0),	/* UNUSED */
+	A(1,0,0),	/* FILENO */
+	A(1,0,0),	/* GHBYNAME */
+	A(1,1,0),	/* GHBYADDR */
+	A(0,0,0),	/* GHOSTENT */
+	A(1,0,0),	/* SHOSTENT */
+	A(0,0,0),	/* EHOSTENT */
+	A(1,1,0),	/* GSBYNAME */
+	A(1,1,0),	/* GSBYPORT */
+	A(0,0,0),	/* GSERVENT */
+	A(1,0,0),	/* SSERVENT */
+	A(0,0,0),	/* ESERVENT */
+	A(1,0,0),	/* GPBYNAME */
+	A(1,0,0),	/* GPBYNUMBER */
+	A(0,0,0),	/* GPROTOENT */
+	A(1,0,0),	/* SPROTOENT */
+	A(0,0,0),	/* EPROTOENT */
+	A(1,0,0),	/* GNBYNAME */
+	A(1,1,0),	/* GNBYADDR */
+	A(0,0,0),	/* GNETENT */
+	A(1,0,0),	/* SNETENT */
+	A(0,0,0),	/* ENETENT */
+	A(1,1,1),	/* VEC */
+	A(0,3,0),	/* GREP */
+	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(1,1,0),	/* SHUTDOWN */
+	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(0,0,0),	/* GETLOGIN */
+	A(1,3,0),	/* SYSCALL */
+	A(1,1,1),	/* GSOCKOPT */
+	A(1,1,1),	/* SSOCKOPT */
+	A(1,0,0),	/* GETSOCKNAME */
+	A(1,0,0),	/* GETPEERNAME */
+	0
+};
+#undef A
+#endif
 
 int do_trans();
 int do_split();
@@ -390,3 +889,4 @@ int do_stat();
 STR *do_push();
 FILE *nextargv();
 STR *do_fttext();
+int do_slice();