|
|
1.1 ! root 1: # ! 2: ! 3: #include "local.h" ! 4: #include <sys/types.h> ! 5: #include <signal.h> ! 6: #include <stdio.h> ! 7: ! 8: #undef isalpha ! 9: #undef isdigit ! 10: ! 11: /* ! 12: * Mail -- a mail program ! 13: * ! 14: * Commands are: ! 15: * t <message list> print out these messages ! 16: * r <message list> reply to messages ! 17: * m <user list> mail to users (analogous to send) ! 18: * e <message list> edit messages ! 19: * c [directory] chdir to dir or home if none ! 20: * x exit quickly ! 21: * w <message list> file save messages in file ! 22: * q quit, save remaining stuff in mbox ! 23: * d <message list> delete messages ! 24: * u <message list> undelete messages ! 25: * h print message headers ! 26: * ! 27: * Author: Kurt Shoens (UCB) March 25, 1978 ! 28: */ ! 29: ! 30: ! 31: #define ESCAPE '~' /* Default escape for sending */ ! 32: #define NMLSIZE 20 /* max names in a message list */ ! 33: #define PATHSIZE 35 /* Size of pathnames throughout */ ! 34: #define NAMESIZE 20 /* Max size of user name */ ! 35: #define HSHSIZE 19 /* Hash size for aliases and vars */ ! 36: #define HDRFIELDS 3 /* Number of header fields */ ! 37: #define LINESIZE 512 /* max readable line width */ ! 38: #define SCREEN 18 /* screen size in lines (effective) */ ! 39: #define STRINGSIZE ((unsigned) 128)/* Dynamic allocation units */ ! 40: #define MAXARGC 20 /* Maximum list of raw strings */ ! 41: #define NOSTR ((char *) 0) /* Null string pointer */ ! 42: #define MAXEXP 25 /* Maximum expansion of aliases */ ! 43: #define equal(a, b) (strcmp(a,b)==0)/* A nice function to string compare */ ! 44: ! 45: struct message { ! 46: short m_flag; /* flags, see below */ ! 47: short m_block; /* block number of this message */ ! 48: short m_offset; /* offset in block of message */ ! 49: unsigned m_size; /* Bytes in the message */ ! 50: short m_lines; /* Lines in the message */ ! 51: }; ! 52: ! 53: /* ! 54: * flag bits. ! 55: */ ! 56: ! 57: #define MUSED 1 /* entry is used, but this bit isn't */ ! 58: #define MDELETED 2 /* entry has been deleted */ ! 59: #define MSAVED 4 /* entry has been saved */ ! 60: #define MTOUCH 8 /* entry has been noticed */ ! 61: #define MPRESERVE 16 /* keep entry in sys mailbox */ ! 62: #define MMARK 32 /* message is marked! */ ! 63: #define MODIFY 64 /* message has been modified */ ! 64: ! 65: /* ! 66: * Format of the command description table. ! 67: * The actual table is declared and initialized ! 68: * in lex.c ! 69: */ ! 70: ! 71: struct cmd { ! 72: char *c_name; /* Name of command */ ! 73: int (*c_func)(); /* Implementor of the command */ ! 74: short c_argtype; /* Type of arglist (see below) */ ! 75: short c_msgflag; /* Required flags of messages */ ! 76: short c_msgmask; /* Relevant flags of messages */ ! 77: }; ! 78: ! 79: /* Yechh, can't initialize unions */ ! 80: ! 81: #define c_minargs c_msgflag /* Minimum argcount for RAWLIST */ ! 82: #define c_maxargs c_msgmask /* Max argcount for RAWLIST */ ! 83: ! 84: /* ! 85: * Argument types. ! 86: */ ! 87: ! 88: #define MSGLIST 0 /* Message list type */ ! 89: #define STRLIST 1 /* A pure string */ ! 90: #define RAWLIST 2 /* Shell string list */ ! 91: #define NOLIST 3 /* Just plain 0 */ ! 92: #define NDMLIST 4 /* Message list, no defaults */ ! 93: ! 94: #define P 040 /* Autoprint dot after command */ ! 95: #define I 0100 /* Interactive command bit */ ! 96: #define M 0200 /* Illegal from send mode bit */ ! 97: ! 98: /* ! 99: * Oft-used mask values ! 100: */ ! 101: ! 102: #define MMNORM (MDELETED|MSAVED)/* Look at both save and delete bits */ ! 103: #define MMNDEL MDELETED /* Look only at deleted bit */ ! 104: ! 105: /* ! 106: * Structure used to return a break down of a head ! 107: * line (hats off to Bill Joy!) ! 108: */ ! 109: ! 110: struct headline { ! 111: char *l_from; /* The name of the sender */ ! 112: char *l_tty; /* His tty string (if any) */ ! 113: char *l_date; /* The entire date string */ ! 114: }; ! 115: ! 116: #define GTO 1 /* Grab To: line */ ! 117: #define GSUBJECT 2 /* Likewise, Subject: line */ ! 118: #define GCC 4 /* And the Cc: line */ ! 119: #define GBCC 8 /* And also the Bcc: line */ ! 120: #define GMASK (GTO|GSUBJECT|GCC|GBCC) ! 121: /* Mask of places from whence */ ! 122: ! 123: #define GNL 16 /* Print blank line after */ ! 124: #define GDEL 32 /* Entity removed from list */ ! 125: #define GCOMMA 64 /* detract puts in commas */ ! 126: ! 127: /* ! 128: * Structure used to pass about the current ! 129: * state of the user-typed message header. ! 130: */ ! 131: ! 132: struct header { ! 133: char *h_to; /* Dynamic "To:" string */ ! 134: char *h_subject; /* Subject string */ ! 135: char *h_cc; /* Carbon copies string */ ! 136: char *h_bcc; /* Blind carbon copies */ ! 137: int h_seq; /* Sequence for optimization */ ! 138: }; ! 139: ! 140: /* ! 141: * Structure of namelist nodes used in processing ! 142: * the recipients of mail and aliases and all that ! 143: * kind of stuff. ! 144: */ ! 145: ! 146: struct name { ! 147: struct name *n_flink; /* Forward link in list. */ ! 148: struct name *n_blink; /* Backward list link */ ! 149: short n_type; /* From which list it came */ ! 150: char *n_name; /* This fella's name */ ! 151: }; ! 152: ! 153: /* ! 154: * Structure of a variable node. All variables are ! 155: * kept on a singly-linked list of these, rooted by ! 156: * "variables" ! 157: */ ! 158: ! 159: struct var { ! 160: struct var *v_link; /* Forward link to next variable */ ! 161: char *v_name; /* The variable's name */ ! 162: char *v_value; /* And it's current value */ ! 163: }; ! 164: ! 165: struct group { ! 166: struct group *ge_link; /* Next person in this group */ ! 167: char *ge_name; /* This person's user name */ ! 168: }; ! 169: ! 170: struct grouphead { ! 171: struct grouphead *g_link; /* Next grouphead in list */ ! 172: char *g_name; /* Name of this group */ ! 173: struct group *g_list; /* Users in group. */ ! 174: }; ! 175: ! 176: #define NIL ((struct name *) 0) /* The nil pointer for namelists */ ! 177: #define NONE ((struct cmd *) 0) /* The nil pointer to command tab */ ! 178: #define NOVAR ((struct var *) 0) /* The nil pointer to variables */ ! 179: #define NOGRP ((struct grouphead *) 0)/* The nil grouphead pointer */ ! 180: #define NOGE ((struct group *) 0) /* The nil group pointer */ ! 181: ! 182: /* ! 183: * Token values returned by the scanner used for argument lists. ! 184: * Also, sizes of scanner-related things. ! 185: */ ! 186: ! 187: #define TEOL 0 /* End of the command line */ ! 188: #define TNUMBER 1 /* A message number */ ! 189: #define TDASH 2 /* A simple dash */ ! 190: #define TSTRING 3 /* A string (possibly containing -) */ ! 191: #define TDOT 4 /* A "." */ ! 192: #define TUP 5 /* An "^" */ ! 193: #define TDOLLAR 6 /* A "$" */ ! 194: #define TSTAR 7 /* A "*" */ ! 195: #define TOPEN 8 /* An '(' */ ! 196: #define TCLOSE 9 /* A ')' */ ! 197: #define TPLUS 10 /* A '+' */ ! 198: ! 199: #define REGDEP 2 /* Maximum regret depth. */ ! 200: #define STRINGLEN 16 /* Maximum length of string token */ ! 201: ! 202: /* ! 203: * Kludges to handle the change from setexit / reset to setjmp / longjmp ! 204: */ ! 205: ! 206: #define setexit() setjmp(srbuf) ! 207: #define reset(x) longjmp(srbuf, x) ! 208: ! 209: /* ! 210: * VM/UNIX has a vfork system call which is faster than forking. If we ! 211: * don't have it, fork(2) will do . . . ! 212: */ ! 213: ! 214: #ifndef VMUNIX ! 215: #define vfork() fork() ! 216: #endif ! 217: ! 218: /* ! 219: * Forward declarations of routine types to keep lint and cc happy. ! 220: */ ! 221: ! 222: FILE *Fdopen(); ! 223: FILE *collect(); ! 224: FILE *infix(); ! 225: FILE *mesedit(); ! 226: FILE *mespipe(); ! 227: FILE *setinput(); ! 228: char **unpack(); ! 229: char *addto(); ! 230: char *arpafix(); ! 231: char *calloc(); ! 232: char *copy(); ! 233: char *copyin(); ! 234: char *detract(); ! 235: char *expand(); ! 236: char *gets(); ! 237: char *hfield(); ! 238: char *index(); ! 239: char *nameof(); ! 240: char *nextword(); ! 241: char *getenv(); ! 242: char *hcontents(); ! 243: char *netmap(); ! 244: char *netname(); ! 245: char *readtty(); ! 246: char *rename(); ! 247: char *revarpa(); ! 248: char *rindex(); ! 249: char *rpair(); ! 250: char *salloc(); ! 251: char *savestr(); ! 252: char *savestr(); ! 253: char *snarf(); ! 254: char *value(); ! 255: char *vcopy(); ! 256: char *yankword(); ! 257: off_t fsize(); ! 258: struct cmd *lex(); ! 259: struct grouphead *findgroup(); ! 260: struct name *cat(); ! 261: struct name *delname(); ! 262: struct name *elide(); ! 263: struct name *extract(); ! 264: struct name *gexpand(); ! 265: struct name *map(); ! 266: struct name *outof(); ! 267: struct name *put(); ! 268: struct name *usermap(); ! 269: struct name *verify(); ! 270: struct var *lookup(); ! 271: unsigned int msize();
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.