perl 3.0 patch #22 patch #19, continued

[p5sagit/p5-mst-13.2.git] / form.h

diff --git a/form.h b/form.h
index 3b7aa95..ee055a5 100644 (file)
--- 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-");