|
|
1.1 ! root 1: ! 2: /* Format Types */ ! 3: /* -------------*/ ! 4: ! 5: /* types that output text */ ! 6: #define FT_COMP 1 /* the text of a component */ ! 7: #define FT_COMPF 2 /* comp text, filled */ ! 8: #define FT_LIT 3 /* literal text */ ! 9: #define FT_LITF 4 /* literal text, filled */ ! 10: #define FT_CHAR 5 /* a single ascii character */ ! 11: #define FT_NUM 6 /* "value" as decimal number */ ! 12: #define FT_NUMF 7 /* "value" as filled dec number */ ! 13: #define FT_STR 8 /* "str" as text */ ! 14: #define FT_STRF 9 /* "str" as text, filled */ ! 15: #define FT_STRFW 10 /* "str" as text, filled, width in "value" */ ! 16: #define FT_PUTADDR 11 /* split and print address line */ ! 17: ! 18: /* types that modify the "str" or "value" registers */ ! 19: #define FT_LS_COMP 12 /* set "str" to component text */ ! 20: #define FT_LS_LIT 13 /* set "str" to literal text */ ! 21: #define FT_LV_COMP 14 /* set "value" to comp (as dec. num) */ ! 22: #define FT_LV_COMPFLAG 15 /* set "value" to comp flag word */ ! 23: #define FT_LV_LIT 16 /* set "value" to literal num */ ! 24: #define FT_LV_DAT 17 /* set "value" to dat[n] */ ! 25: #define FT_LV_STRLEN 18 /* set "value" to length of "str" */ ! 26: #define FT_LV_PLUS_L 19 /* set "value" += literal */ ! 27: #define FT_LV_MINUS_L 20 /* set "value" -= literal */ ! 28: #define FT_LV_CHAR_LEFT 21 /* set "value" to char left in output */ ! 29: ! 30: #define FT_LS_MONTH 22 /* set "str" to tws month */ ! 31: #define FT_LS_LMONTH 23 /* set "str" to long tws month */ ! 32: #define FT_LS_ZONE 24 /* set "str" to tws timezone */ ! 33: #define FT_LS_DAY 25 /* set "str" to tws weekday */ ! 34: #define FT_LS_WEEKDAY 26 /* set "str" to long tws weekday */ ! 35: #define FT_LS_822DATE 27 /* set "str" to 822 date str */ ! 36: #define FT_LS_PRETTY 28 /* set "str" to pretty (?) date str */ ! 37: #define FT_LV_SEC 29 /* set "value" to tws second */ ! 38: #define FT_LV_MIN 30 /* set "value" to tws minute */ ! 39: #define FT_LV_HOUR 31 /* set "value" to tws hour */ ! 40: #define FT_LV_MDAY 32 /* set "value" to tws day of month */ ! 41: #define FT_LV_MON 33 /* set "value" to tws month */ ! 42: #define FT_LV_YEAR 34 /* set "value" to tws year */ ! 43: #define FT_LV_YDAY 35 /* set "value" to tws day of year */ ! 44: #define FT_LV_WDAY 36 /* set "value" to tws weekday */ ! 45: #define FT_LV_ZONE 37 /* set "value" to tws timezone */ ! 46: #define FT_LV_CLOCK 38 /* set "value" to tws clock */ ! 47: #define FT_LV_RCLOCK 39 /* set "value" to now - tws clock */ ! 48: #define FT_LV_DAYF 40 /* set "value" to tws day flag */ ! 49: #define FT_LV_TZONEF 41 /* set "value" to tws timezone flag */ ! 50: ! 51: #define FT_LS_PERS 42 /* set "str" to person part of addr */ ! 52: #define FT_LS_MBOX 43 /* set "str" to mbox part of addr */ ! 53: #define FT_LS_HOST 44 /* set "str" to host part of addr */ ! 54: #define FT_LS_PATH 45 /* set "str" to route part of addr */ ! 55: #define FT_LS_GNAME 46 /* set "str" to group part of addr */ ! 56: #define FT_LS_NOTE 47 /* set "str" to comment part of addr */ ! 57: #define FT_LS_822ADDR 48 /* set "str" to 822 format addr */ ! 58: #define FT_LS_FRIENDLY 49 /* set "str" to "friendly" format addr */ ! 59: #define FT_LV_HOSTTYPE 50 /* set "value" to addr host type */ ! 60: #define FT_LV_INGRPF 51 /* set "value" to addr in-group flag */ ! 61: #define FT_LV_NOHOSTF 52 /* set "value" to addr no-host flag */ ! 62: ! 63: /* pre-format processing */ ! 64: #define FT_PARSEDATE 53 /* parse comp into a date (tws) struct */ ! 65: #define FT_PARSEADDR 54 /* parse comp into a mailaddr struct */ ! 66: #define FT_FORMATADDR 55 /* let external routine format addr */ ! 67: #define FT_MYMBOX 56 /* do "mymbox" test on comp */ ! 68: ! 69: /* conditionals & control flow (must be last) */ ! 70: #define FT_SAVESTR 57 /* save current str reg */ ! 71: #define FT_DONE 58 /* stop formatting */ ! 72: #define FT_NOP 59 /* nop */ ! 73: #define FT_GOTO 60 /* (relative) goto */ ! 74: #define FT_IF_S_NULL 61 /* test if "str" null */ ! 75: #define FT_IF_S 62 /* test if "str" non-null */ ! 76: #define FT_IF_V_EQ 63 /* test if "value" = literal */ ! 77: #define FT_IF_V_NE 64 /* test if "value" != literal */ ! 78: #define FT_IF_V_GT 65 /* test if "value" > literal */ ! 79: #define FT_IF_MATCH 66 /* test if "str" contains literal */ ! 80: #define FT_IF_AMATCH 67 /* test if "str" starts with literal */ ! 81: #define FT_S_NULL 68 /* V = 1 if "str" null */ ! 82: #define FT_S_NONNULL 69 /* V = 1 if "str" non-null */ ! 83: #define FT_V_EQ 70 /* V = 1 if "value" = literal */ ! 84: #define FT_V_NE 71 /* V = 1 if "value" != literal */ ! 85: #define FT_V_GT 72 /* V = 1 if "value" > literal */ ! 86: #define FT_V_MATCH 73 /* V = 1 if "str" contains literal */ ! 87: #define FT_V_AMATCH 74 /* V = 1 if "str" starts with literal */ ! 88: ! 89: #define IF_FUNCS FT_S_NULL /* start of "if" functions */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.