home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / lang / perl4.035.V010.lzh / perl4.035 / src / form.h < prev    next >
Encoding:
C/C++ Source or Header  |  1992-08-05  |  920 b   |  46 lines
  1. /* $RCSfile: form.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:08:20 $
  2.  *
  3.  *    Copyright (c) 1991, Larry Wall
  4.  *
  5.  *    You may distribute under the terms of either the GNU General Public
  6.  *    License or the Artistic License, as specified in the README file.
  7.  *
  8.  * $Log:    form.h,v $
  9.  * Revision 4.0.1.1  91/06/07  11:08:20  lwall
  10.  * patch4: new copyright notice
  11.  * 
  12.  * Revision 4.0  91/03/20  01:19:37  lwall
  13.  * 4.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.