X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=opnames.h;h=d40140d4296710f7666a763982ab6fab9ddbc175;hb=5b6782b28b8a9d505447276bdd3de3a802f641dd;hp=e9f8b4fe6febe22ffe05f88266a9ff140f7a2c4e;hpb=cd06dffe59d60ee6a2fdd7c81f8cef42c7026b36;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/opnames.h b/opnames.h
index e9f8b4f..d40140d 100644
--- a/opnames.h
+++ b/opnames.h
@@ -1,7 +1,18 @@
-/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!! 
-   This file is built by opcode.pl from its data.  Any changes made here
-   will be lost!
-*/
+/* -*- buffer-read-only: t -*-
+ *
+ *    opnames.h
+ *
+ *    Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+ *    2007 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ *
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ *  This file is built by opcode.pl from its data.  Any changes made here
+ *  will be lost!
+ */
 
 typedef enum opcode {
 	OP_NULL,	/* 0 */
@@ -247,23 +258,23 @@ typedef enum opcode {
 	OP_FTEWRITE,	/* 240 */
 	OP_FTEEXEC,	/* 241 */
 	OP_FTIS,	/* 242 */
-	OP_FTEOWNED,	/* 243 */
-	OP_FTROWNED,	/* 244 */
-	OP_FTZERO,	/* 245 */
-	OP_FTSIZE,	/* 246 */
-	OP_FTMTIME,	/* 247 */
-	OP_FTATIME,	/* 248 */
-	OP_FTCTIME,	/* 249 */
+	OP_FTSIZE,	/* 243 */
+	OP_FTMTIME,	/* 244 */
+	OP_FTATIME,	/* 245 */
+	OP_FTCTIME,	/* 246 */
+	OP_FTROWNED,	/* 247 */
+	OP_FTEOWNED,	/* 248 */
+	OP_FTZERO,	/* 249 */
 	OP_FTSOCK,	/* 250 */
 	OP_FTCHR,	/* 251 */
 	OP_FTBLK,	/* 252 */
 	OP_FTFILE,	/* 253 */
 	OP_FTDIR,	/* 254 */
 	OP_FTPIPE,	/* 255 */
-	OP_FTLINK,	/* 256 */
-	OP_FTSUID,	/* 257 */
-	OP_FTSGID,	/* 258 */
-	OP_FTSVTX,	/* 259 */
+	OP_FTSUID,	/* 256 */
+	OP_FTSGID,	/* 257 */
+	OP_FTSVTX,	/* 258 */
+	OP_FTLINK,	/* 259 */
 	OP_FTTTY,	/* 260 */
 	OP_FTTEXT,	/* 261 */
 	OP_FTBINARY,	/* 262 */
@@ -310,9 +321,9 @@ typedef enum opcode {
 	OP_MSGCTL,	/* 303 */
 	OP_MSGSND,	/* 304 */
 	OP_MSGRCV,	/* 305 */
-	OP_SEMGET,	/* 306 */
-	OP_SEMCTL,	/* 307 */
-	OP_SEMOP,	/* 308 */
+	OP_SEMOP,	/* 306 */
+	OP_SEMGET,	/* 307 */
+	OP_SEMCTL,	/* 308 */
 	OP_REQUIRE,	/* 309 */
 	OP_DOFILE,	/* 310 */
 	OP_ENTEREVAL,	/* 311 */
@@ -352,11 +363,70 @@ typedef enum opcode {
 	OP_GETLOGIN,	/* 345 */
 	OP_SYSCALL,	/* 346 */
 	OP_LOCK,	/* 347 */
-	OP_THREADSV,	/* 348 */
-	OP_SETSTATE,	/* 349 */
-	OP_METHOD_NAMED,/* 350 */
+	OP_SETSTATE,	/* 348 */
+	OP_METHOD_NAMED,/* 349 */
+	OP_DOR,		/* 350 */
+	OP_DORASSIGN,	/* 351 */
+	OP_ENTERGIVEN,	/* 352 */
+	OP_LEAVEGIVEN,	/* 353 */
+	OP_ENTERWHEN,	/* 354 */
+	OP_LEAVEWHEN,	/* 355 */
+	OP_BREAK,	/* 356 */
+	OP_CONTINUE,	/* 357 */
+	OP_SMARTMATCH,	/* 358 */
+	OP_SAY,		/* 359 */
+	OP_CUSTOM,	/* 360 */
 	OP_max		
 } opcode;
 
-#define MAXO 351
+#define MAXO 361
+#define OP_phoney_INPUT_ONLY -1
+#define OP_phoney_OUTPUT_ONLY -2
 
+
+#define OP_IS_SOCKET(op)	\
+	((op) == OP_ACCEPT || \
+	 (op) == OP_BIND || \
+	 (op) == OP_CONNECT || \
+	 (op) == OP_GETPEERNAME || \
+	 (op) == OP_GETSOCKNAME || \
+	 (op) == OP_GSOCKOPT || \
+	 (op) == OP_LISTEN || \
+	 (op) == OP_RECV || \
+	 (op) == OP_SEND || \
+	 (op) == OP_SHUTDOWN || \
+	 (op) == OP_SOCKET || \
+	 (op) == OP_SOCKPAIR || \
+	 (op) == OP_SSOCKOPT)
+
+
+#define OP_IS_FILETEST(op)	\
+	((op) == OP_FTATIME || \
+	 (op) == OP_FTBINARY || \
+	 (op) == OP_FTBLK || \
+	 (op) == OP_FTCHR || \
+	 (op) == OP_FTCTIME || \
+	 (op) == OP_FTDIR || \
+	 (op) == OP_FTEEXEC || \
+	 (op) == OP_FTEOWNED || \
+	 (op) == OP_FTEREAD || \
+	 (op) == OP_FTEWRITE || \
+	 (op) == OP_FTFILE || \
+	 (op) == OP_FTIS || \
+	 (op) == OP_FTLINK || \
+	 (op) == OP_FTMTIME || \
+	 (op) == OP_FTPIPE || \
+	 (op) == OP_FTREXEC || \
+	 (op) == OP_FTROWNED || \
+	 (op) == OP_FTRREAD || \
+	 (op) == OP_FTRWRITE || \
+	 (op) == OP_FTSGID || \
+	 (op) == OP_FTSIZE || \
+	 (op) == OP_FTSOCK || \
+	 (op) == OP_FTSUID || \
+	 (op) == OP_FTSVTX || \
+	 (op) == OP_FTTEXT || \
+	 (op) == OP_FTTTY || \
+	 (op) == OP_FTZERO)
+
+/* ex: set ro: */