From a687059cbaf2c6fdccb5e0fae2aee80ec15625a8 Mon Sep 17 00:00:00 2001
From: Larry Wall <larry@wall.org>
Date: Wed, 18 Oct 1989 00:00:00 +0000
Subject: perl 3.0: (no announcement message available)

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.
---
 form.h | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

(limited to 'form.h')

diff --git a/form.h b/form.h
index 3b7aa95178..ee055a5f5b 100644
--- a/form.h
+++ b/form.h
@@ -1,8 +1,13 @@
-/* $Header: form.h,v 2.0 88/06/05 00:09:01 root Exp $
+/* $Header: form.h,v 3.0 89/10/18 15:17:39 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:	form.h,v $
- * Revision 2.0  88/06/05  00:09:01  root
- * Baseline version 2.0.
+ * Revision 3.0  89/10/18  15:17:39  lwall
+ * 3.0 baseline
  * 
  */
 
@@ -15,6 +20,8 @@
 struct formcmd {
     struct formcmd *f_next;
     ARG *f_expr;
+    STR *f_unparsed;
+    line_t f_line;
     char *f_pre;
     short f_presize;
     short f_size;
@@ -25,5 +32,8 @@ struct formcmd {
 #define FC_CHOP 1
 #define FC_NOBLANK 2
 #define FC_MORE 4
+#define FC_REPEAT 8
 
 #define Nullfcmd Null(FCMD*)
+
+EXT char *chopset INIT(" \n-");
-- 
cgit v1.2.1