perl 5.0 alpha 2perl-5a2

[editor's note: from history.perl.org.  The sparc executables
originally included in the distribution are not in this commit.]

1 files changed, 19 insertions, 29 deletions

diff --git a/form.h b/form.h
index 8be33e162d..6d60a43ab6 100644
--- a/form.h
+++ b/form.h
@@ -1,4 +1,4 @@
-/* $RCSfile: form.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:08:20 $
+/* $RCSfile: form.h,v $$Revision: 4.1 $$Date: 92/08/07 18:20:43 $
  *
  *    Copyright (c) 1991, Larry Wall
  *
@@ -6,6 +6,8 @@
  *    License or the Artistic License, as specified in the README file.
  *
  * $Log:	form.h,v $
+ * Revision 4.1  92/08/07  18:20:43  lwall
+ * 
  * Revision 4.0.1.1  91/06/07  11:08:20  lwall
  * patch4: new copyright notice
  * 
@@ -14,32 +16,20 @@
  * 
  */
 
-#define F_NULL 0
-#define F_LEFT 1
-#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;
-};
-
-#define FC_CHOP 1
-#define FC_NOBLANK 2
-#define FC_MORE 4
-#define FC_REPEAT 8
-#define FC_DP 16
-
-#define Nullfcmd Null(FCMD*)
+#define FF_END		0
+#define FF_LINEMARK	1
+#define FF_LITERAL	2
+#define FF_SKIP		3
+#define FF_FETCH	4
+#define FF_CHECKNL	5
+#define FF_CHECKCHOP	6
+#define FF_SPACE	7
+#define FF_HALFSPACE	8
+#define FF_ITEM		9
+#define FF_CHOP		10
+#define FF_LINEGLOB	11
+#define FF_DECIMAL	12
+#define FF_NEWLINE	13
+#define FF_BLANK	14
+#define FF_MORE		15
 
-EXT char *chopset INIT(" \n-");