home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / perl / Source / H / Form < prev    next >
Encoding:
Text File  |  1991-02-09  |  1.1 KB  |  50 lines
  1. /* $Header: form.h,v 3.0.1.1 90/10/15 17:26:57 lwall Locked $
  2.  *
  3.  *    Copyright (c) 1989, Larry Wall
  4.  *
  5.  *    You may distribute under the terms of the GNU General Public License
  6.  *    as specified in the README file that comes with the perl 3.0 kit.
  7.  *
  8.  * $Log:    form.h,v $
  9.  * Revision 3.0.1.1  90/10/15  17:26:57  lwall
  10.  * patch29: added @###.## fields to format
  11.  * 
  12.  * Revision 3.0  89/10/18  15:17:39  lwall
  13.  * 3.0 baseline
  14.  * 
  15.  */
  16.  
  17. #define F_NULL 0
  18. #define F_LEFT 1
  19. #define F_RIGHT 2
  20. #define F_CENTER 3
  21. #define F_LINES 4
  22. #define F_DECIMAL 5
  23.  
  24. struct formcmd {
  25.     struct formcmd *f_next;
  26.     ARG *f_expr;
  27.     STR *f_unparsed;
  28.     line_t f_line;
  29.     char *f_pre;
  30.     short f_presize;
  31.     short f_size;
  32.     short f_decimals;
  33.     char f_type;
  34.     char f_flags;
  35. };
  36.  
  37. #define FC_CHOP 1
  38. #define FC_NOBLANK 2
  39. #define FC_MORE 4
  40. #define FC_REPEAT 8
  41. #define FC_DP 16
  42.  
  43. #define Nullfcmd Null(FCMD*)
  44.  
  45. EXT char *chopset INIT(" \n-");
  46.  
  47. extern void format PROTO((struct outrec *, FCMD *, int));
  48. extern int countlines PROTO((char *, int));
  49. extern void do_write PROTO((struct outrec *, STIO *, int));
  50.