perl 4.0 patch 14: patch #11, continued

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

diff --git a/form.h b/form.h
index fc2257b..8be33e1 100644 (file)
--- a/form.h
+++ b/form.h
@@ -1,8 +1,16 @@
-/* $Header: form.h,v 1.0 87/12/18 13:05:10 root Exp $
+/* $RCSfile: form.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:08:20 $
+ *
+ *    Copyright (c) 1991, Larry Wall
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
  *
  * $Log:       form.h,v $
- * Revision 1.0  87/12/18  13:05:10  root
- * Initial revision
+ * Revision 4.0.1.1  91/06/07  11:08:20  lwall
+ * patch4: new copyright notice
+ * 
+ * Revision 4.0  91/03/20  01:19:37  lwall
+ * 4.0 baseline.
  * 
  */
 
@@ -11,13 +19,17 @@
 #define F_RIGHT 2
 #define F_CENTER 3
 #define F_LINES 4
+#define F_DECIMAL 5
 
 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;
+    short f_decimals;
     char f_type;
     char f_flags;
 };
@@ -25,5 +37,9 @@ struct formcmd {
 #define FC_CHOP 1
 #define FC_NOBLANK 2
 #define FC_MORE 4
+#define FC_REPEAT 8
+#define FC_DP 16
 
 #define Nullfcmd Null(FCMD*)
+
+EXT char *chopset INIT(" \n-");