perl 3.0 patch #32 patch #29, continued

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

diff --git a/form.h b/form.h
index ee055a5..f8c9788 100644 (file)
--- a/form.h
+++ b/form.h
@@ -1,4 +1,4 @@
-/* $Header: form.h,v 3.0 89/10/18 15:17:39 lwall Locked $
+/* $Header: form.h,v 3.0.1.1 90/10/15 17:26:57 lwall Locked $
  *
  *    Copyright (c) 1989, Larry Wall
  *
@@ -6,6 +6,9 @@
  *    as specified in the README file that comes with the perl 3.0 kit.
  *
  * $Log:       form.h,v $
+ * Revision 3.0.1.1  90/10/15  17:26:57  lwall
+ * patch29: added @###.## fields to format
+ * 
  * Revision 3.0  89/10/18  15:17:39  lwall
  * 3.0 baseline
  * 
@@ -16,6 +19,7 @@
 #define F_RIGHT 2
 #define F_CENTER 3
 #define F_LINES 4
+#define F_DECIMAL 5
 
 struct formcmd {
     struct formcmd *f_next;
@@ -25,6 +29,7 @@ struct formcmd {
     char *f_pre;
     short f_presize;
     short f_size;
+    short f_decimals;
     char f_type;
     char f_flags;
 };
@@ -33,6 +38,7 @@ struct formcmd {
 #define FC_NOBLANK 2
 #define FC_MORE 4
 #define FC_REPEAT 8
+#define FC_DP 16
 
 #define Nullfcmd Null(FCMD*)