diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/conf/mhconfig.c

   1 /* mhconfig.c - configure MH */
   2 /* cc [-DSYS5] mhconfig.c -o mhconfig */
   3 #ifndef lint
   4 static char ident[] = "@(#)$Id: mhconfig.c,v 2.73 1996/02/08 19:07:47 jromine Exp $";
   5 #endif  /* lint */
   6
   7 #include <ctype.h>
   8 #include <stdio.h>
   9 #ifdef  hpux
  10 #define SYS5
  11 #endif
  12 #ifdef  SYS5
  13 #define index   strchr
  14 #define rindex  strrchr
  15 #endif /* SYS5 */
  16
  17 static void insopt(), mkopts();
  18
  19 extern  char *strcpy(), *malloc(), *index(), *rindex();
  20 #ifdef  notdef
  21 extern  char *sprintf();        /* rely on stdio.h to declare this */
  22 #endif
  23
  24 #define BANNER  "This is %s, for generic UNIX (MH.6 configuration program)\n\n"
  25
  26
  27 #define SED             "config.sed"
  28 #define SEDOC           "doc/config.sed"
  29 #define MAKE            "../%s/Makefile"
  30
  31 #define WARNING "This file is automatically generated.  Do not edit!"
  32 #define MHRELEASE       "6.8.4"         /* for version: "Maj.min.pat" */
  33 #define MHCENTERFOOT    "MH.6.8"        /* for nroff page footers */
  34 #define MHLEFTFOOT      "[mh.6]"        /* [mh.6]    MH.6.6   page# */
  35 #define MHSLIBVER       "3.2"           /* SunOS4 shared library version */
  36
  37 #define NOTOK   (-1)
  38
  39 #define NULLCP  ((char *) 0)
  40
  41 #define SVAL(s) (s ? s : "")
  42
  43 #define QUOTE   '\\'
  44
  45 /* \f */
  46
  47 static int   smtp = 0;
  48 static int   mpop = 0;
  49
  50 static int   sedP = 1;
  51 static int   filesP = 1;
  52 static int   docP = 1;
  53 static int   makeP = 1;
  54
  55 static char *myname = "mhconfig";
  56 static char *config = NULL;
  57 static char *myopts = NULL;
  58
  59 static char *binpath = "/usr/local";
  60 static char *bbhome = "/usr/spool/bboards";
  61 static char *bboards = "off";
  62 static char *bbdelivery = "off";
  63 static char *ccoptions = NULL;
  64 static char *chownpath = "/etc/chown";
  65 static char *compiler = "/bin/cc";
  66 static char *copy = "cp";
  67 static char *curses = "-lcurses -ltermlib";
  68 static char *debug = "off";
  69 static char *editor = "prompter";
  70 static char *etcpath = "/usr/local/lib/mh";
  71 static char *ldoptions = NULL;
  72 static char *ldoptlibs = NULL;
  73 static char *lex = "lex -nt";
  74 static char *ln = "ln";
  75 static char *mailgroup = "off";
  76 static char *mailpath = "/usr/spool/mail";
  77 static char *maildir = NULL;
  78 static char *mailfile = NULL;
  79 static char *mancat = "man";
  80 static char *mandir = "/usr/man";
  81 static char *manuals = "standard";
  82 static char *mf = "off";
  83 static char *mts = "sendmail";
  84 static char *poppath = "/usr/etc";
  85 static char *removeit = "mv -f";
  86 static char *regtest = "off";
  87 static char *oldload = "off";
  88 static char *options = NULL;
  89 static char *pop = "off";
  90 static char *ranlib = "on";
  91 static char *sharedlib = "off";
  92 static char *signl = "int";
  93 static char *slibdir = "/usr/local/lib";
  94 static char *slflags = "-pic";
  95 static char *sprntf = NULL;
  96
  97 /* \f */
  98
  99 #define unknown         0
 100 #define mmdf            1
 101 #define mmdf2           2
 102 #define mh              3
 103 #define sendmail        4
 104 static int mtsnum = unknown;
 105
 106 static struct mtsopt {
 107     char  *mtskey;
 108     char  *optval;
 109     int    code;
 110     int    mtsflags;
 111 #define NOFLAGS 0x00
 112 #define DOSMTP  0x01
 113 #define NOMF    0x02
 114 } mtsopts[] = {
 115     "mmdf", "MMDFMTS MMDFI", mmdf, NOFLAGS,
 116     "mmdf/smtp", "SENDMTS SMTP", mmdf, DOSMTP,
 117     "mmdf2", "MMDFMTS MMDFII", mmdf2, NOFLAGS,
 118     "mmdf2/smtp", "SENDMTS MMDFII SMTP", mmdf2, DOSMTP,
 119     "mh", "MHMTS", mh, NOFLAGS,
 120     "sendmail", "SENDMTS", sendmail, NOMF,
 121     "sendmail/smtp", "SENDMTS SMTP", sendmail, NOMF,
 122     "zmailer", "ZMAILER SENDMTS", sendmail, NOMF,
 123     "zmailer/smtp", "ZMAILER SENDMTS SMTP", sendmail, NOMF,
 124     NULL, NULL, unknown, NOFLAGS
 125 };
 126
 127 /* other options which cause sed BEGIN/END configuration changes */
 128
 129 static struct copt {
 130     char *c_name;
 131     int   c_value;
 132 }       copts[] = {
 133     "APOP", 0,  /* authenticated pop */
 134     "BSD43", 0, /* sgid ttys */
 135     "BSD44", 0, /* manual headings */
 136     "KPOP", 0,  /* KERBEROS pop */
 137     "HESIOD", 0,
 138     "MIME", 0,  /* multi-media extensions */
 139     "MPOP", 0,  /* mobile pop */
 140     "MSGID", 0, /* slocal dup surpression */
 141     "NORUSERPASS", 0, /* no ruserpass(3) */
 142     "TMA", 0,   /* trusted mail */
 143     "TTYD", 0,
 144     "UCI", 0,
 145     NULL, 0
 146 };
 147
 148
 149
 150 /* \f */
 151
 152 static struct bind {
 153     char   *keyword;
 154
 155     char  **value;
 156
 157     int     flags;
 158 #define BD_NIL  0x00
 159 #define BD_ADD  0x01
 160 }                   binds[] = {
 161                         "bin", &binpath, BD_NIL,
 162                         "bbhome", &bbhome, BD_NIL,
 163                         "bboards", &bboards, BD_NIL,
 164                         "bbdelivery", &bbdelivery, BD_NIL,
 165                         "ccoptions", &ccoptions, BD_ADD,
 166                         "chown", &chownpath, BD_NIL,
 167                         "cc", &compiler, BD_NIL,
 168                         "cp", &copy, BD_NIL,
 169                         "curses", &curses, BD_NIL,
 170                         "debug", &debug, BD_NIL,
 171                         "editor", &editor, BD_NIL,
 172                         "etc", &etcpath, BD_NIL,
 173                         "ldoptions", &ldoptions, BD_ADD,
 174                         "ldoptlibs", &ldoptlibs, BD_ADD,
 175                         "lex", &lex, BD_NIL,
 176                         "ln", &ln, BD_NIL,
 177                         "mail", &mailpath, BD_NIL,
 178                         "mailgroup", &mailgroup, BD_NIL,
 179                         "mandir", &mandir, BD_NIL,
 180                         "manuals", &manuals, BD_NIL,
 181                         "mf", &mf, BD_NIL,
 182                         "mts", &mts, BD_NIL,
 183                         "oldload", &oldload, BD_NIL,
 184                         "options", &options, BD_ADD,
 185                         "pop", &pop, BD_NIL,
 186                         "popdir", &poppath, BD_NIL,
 187                         "ranlib", &ranlib, BD_NIL,
 188                         "remove", &removeit, BD_NIL,
 189                         "regtest", &regtest, BD_NIL,
 190                         "sharedlib", &sharedlib, BD_NIL,
 191                         "signal", &signl, BD_NIL,
 192                         "slflags", &slflags, BD_NIL,
 193                         "slibdir", &slibdir, BD_NIL,
 194                         "sprintf", &sprntf, BD_NIL,
 195                         NULL
 196 };
 197
 198 /* \f */
 199
 200 char   *files[] = {
 201     "../support/bboards/bboards.daily",
 202     "../support/bboards/bboards.weekly",
 203     "../support/bboards/crontab",
 204     "../support/bboards/MakeBBoards",
 205     "../config/config.c",
 206     "../zotnet/mts/mts.c",
 207     "../zotnet/mts/mtstailor",
 208     "../support/general/MailAliases",
 209     "../mts/sendmail/bboardsMH.m4",
 210     "../mts/sendmail/popMH.m4",
 211     NULL
 212 };
 213
 214 static struct pair {
 215     char   *infile;
 216     char   *outfile;
 217 }                  makefiles[] = {
 218                         "makefiles/MH-Makefile", ".",
 219                         "makefiles/config","config",
 220                         "makefiles/dist","dist",
 221                         "makefiles/doc","doc",
 222                         "makefiles/mtsM","mts",
 223                             "makefiles/mts/mh","mts/mh",
 224                             "makefiles/mts/mmdf","mts/mmdf",
 225                             "makefiles/mts/sendmail","mts/sendmail",
 226                         "makefiles/papers","papers",
 227                         "makefiles/sbr","sbr",
 228                         "makefiles/supportM","support",
 229                             "makefiles/support/bboards","support/bboards",
 230                             "makefiles/support/general","support/general",
 231                             "makefiles/support/pop","support/pop",
 232                         "makefiles/uip","uip",
 233                         "makefiles/zotnetM","zotnet",
 234                             "makefiles/zotnet/bboards","zotnet/bboards",
 235                             "makefiles/zotnet/mf","zotnet/mf",
 236                             "makefiles/zotnet/mts","zotnet/mts",
 237                             "makefiles/zotnet/tws","zotnet/tws",
 238                         NULL
 239 };
 240
 241
 242 static do_sed(), do_sedfile(), do_files(), do_doc(), do_make();
 243 static shell(), arginit(), add_option(), trim();
 244
 245 static char   *stradd (), *strdup (), *tail ();
 246
 247 long    time ();
 248
 249 /* \f */
 250
 251 /* ARGSUSED */
 252
 253 main (argc, argv, envp)
 254 int     argc;
 255 char  **argv,
 256       **envp;
 257 {
 258     arginit (argv);
 259
 260     if (sedP)
 261         do_sed ();
 262     if (filesP)
 263         do_files ();
 264     if (docP)
 265         do_doc ();
 266     if (makeP)
 267         do_make ();
 268
 269 #ifdef  notdef
 270     printf ("Don't forget to edit \"config/mtstailor\"\n");
 271 #endif
 272     if (filesP || makeP)
 273         printf ("Don't forget to run \"make clean\" in the top directory before compiling\n");
 274
 275     exit (0);
 276 }
 277
 278 /* \f */
 279
 280 static  do_sed () {
 281     if (docP != 2)
 282         do_sedfile (SED, 0);
 283     do_sedfile (SEDOC, smtp);
 284 }
 285
 286 static do_alldoc (fp)
 287 FILE *fp;
 288 {
 289     fprintf (fp, "%s\n%s\n%s\n%s\n",    /* turn @BEGIN: XX into #ifdef XX */
 290         "s!^@BEGIN: \\(.*\\)$!.br\\",   /* for MH wizard manual set */
 291         ".ti 0i\\",
 292         "#ifdef \\1\\",
 293         ".br!"
 294     );
 295     fprintf (fp, "%s\n%s\n%s\n%s\n",
 296         "s!^@END: \\(.*\\)$!.br\\",
 297         ".ti 0i\\",
 298         "#endif /* \\1\\ */",
 299         ".br!"
 300     );
 301 }
 302
 303 /* \f */
 304
 305 static do_sedfile (sed, flag)
 306 char    *sed;
 307 int     flag;
 308 {
 309     int     i;
 310     FILE * fp;
 311     struct copt *op;
 312
 313     if ((fp = fopen (sed, "w")) == NULL)
 314         adios (sed, "unable to write");
 315     printf ("generating %s\n", sed);
 316
 317     if (docP == 2) {
 318         printf ("...using special all-doc format.\n");
 319         printf ("Be sure to reconfigure before compiling.\n");
 320         do_alldoc(fp);  /* hack up doc/config.sed */
 321     }
 322
 323     fprintf (fp, "s%%@(MHCONFIGFILE)%%%s%%g\n", SVAL(config));
 324     fprintf (fp, "s%%@(MHWARNING)%%%s%%g\n", WARNING);
 325     fprintf (fp, "s%%@(MHRELEASE)%%%s%%g\n", MHRELEASE);
 326     fprintf (fp, "s%%@(MHCENTERFOOT)%%%s%%g\n", MHCENTERFOOT);
 327     fprintf (fp, "s%%@(MHLEFTFOOT)%%%s%%g\n", MHLEFTFOOT);
 328     fprintf (fp, "s%%@(MHBINPATH)%%%s%%g\n", SVAL (binpath));
 329     fprintf (fp, "s%%@(MHETCPATH)%%%s%%g\n", SVAL (etcpath));
 330     fprintf (fp, "s%%@(MHPOPDPATH)%%%s%%g\n", SVAL (poppath));
 331     fprintf (fp, "s%%@(MHCHOWNPATH)%%%s%%g\n", SVAL (chownpath));
 332     fprintf (fp, "s%%@(MHDROPATH)%%%s%%g\n", SVAL (maildir));
 333     fprintf (fp, "s%%@(MHDROPFIL)%%%s%%g\n", SVAL (mailfile));
 334     if (maildir)
 335         fprintf (fp, "s%%@(MHDROPLOC)%%%s/$USER%%g\n", SVAL (maildir));
 336     else
 337         fprintf (fp, "s%%@(MHDROPLOC)%%$HOME/%s%%g\n", SVAL (mailfile));
 338     fprintf (fp, "s%%@(MHDROPHAK)%%%s%%g\n",/* HACK */
 339         maildir ? maildir : "/usr/spool/mail");
 340
 341     fprintf (fp, "s%%@(MHMANDIR)%%%s%%g\n", mandir);
 342     fprintf (fp, "s%%@(MHCATMAN)%%%s%%g\n",
 343         strcmp(mancat, "cat") == 0 ? "| nroff -man" : "");
 344     if (strcmp (manuals, "standard") == 0 || strcmp (manuals, "gen") == 0)
 345         for (i = 1; i <= 8; i++) {
 346             fprintf (fp, "s%%@(MHMANDIR%d)%%%s%d%%g\n", i, mancat, i);
 347             fprintf (fp, "s%%@(MHMANEXT%d)%%%d%%g\n", i, i);
 348         }
 349     else
 350         for (i = 1; i <= 8; i++) {
 351             fprintf (fp, "s%%@(MHMANDIR%d)%%%s%c%%g\n", i, mancat,
 352                     strcmp (manuals, "new") == 0 ? 'n'
 353                     : strcmp (manuals, "old") == 0 ? 'o'
 354                     : strcmp (manuals, "bsd44") == 0 ? i + '0'
 355                     : 'l');
 356             fprintf (fp, "s%%@(MHMANEXT%d)%%%c%%g\n", i,
 357                     strcmp (manuals, "new") == 0 ? 'n'
 358                     : strcmp (manuals, "old") == 0 ? 'o'
 359                     : strcmp (manuals, "bsd44") == 0 ? '0'
 360                     : 'l');
 361         }
 362
 363 /* \f */
 364
 365     if (strcmp (regtest, "on") == 0)
 366         fprintf (fp, "s%%@(MHHOSTVER)%%%s%%g\n", "-n");
 367     else
 368         fprintf (fp, "s%%@(MHHOSTVER)%%%s%%g\n", "");
 369
 370     if (strcmp (manuals, "gen") == 0 || strcmp (manuals, "none") == 0)
 371         fprintf (fp, "s%%@(MHMANGEN)%%%s%%g\n", "#"); /* comment char */
 372     else
 373         fprintf (fp, "s%%@(MHMANGEN)%%%s%%g\n", "");
 374
 375     fprintf (fp, "s%%@(MHEDITOR)%%%s%%g\n", SVAL (editor));
 376     fprintf (fp, "s%%@(MHCONFIG)%%%s%%g\n", SVAL (myopts));
 377     fprintf (fp, "s%%@(MHCOMPILER)%%%s%%g\n", SVAL (compiler));
 378     fprintf (fp, "s%%@(CP)%%%s%%g\n", SVAL (copy));
 379     fprintf (fp, "s%%@(LN)%%%s%%g\n", SVAL (ln));
 380     fprintf (fp, "s%%@(LEX)%%%s%%g\n", SVAL (lex));
 381     if (ccoptions)
 382         fprintf (fp, "s%%@(MHOPTIONS)%%%s %s%%g\n",
 383                 SVAL (options), SVAL (ccoptions));
 384     else
 385         fprintf (fp, "s%%@(MHOPTIONS)%%%s %s%%g\n",
 386                 SVAL (options), "-O");
 387     fprintf (fp, "s%%@(LDOPTIONS)%%%s%%g\n", SVAL (ldoptions));
 388     fprintf (fp, "s%%@(LDOPTLIB)%%%s%%g\n", SVAL (ldoptlibs));
 389     fprintf (fp, "s%%@(LDCURSES)%%%s%%g\n", SVAL (curses));
 390
 391     if (strcmp (bboards, "off") == 0)
 392         fprintf (fp, "/^@BEGIN: BBOARDS$/,/^@END: BBOARDS$/d\n");
 393     else
 394         fprintf (fp, "/^@BEGIN: BBOARDS$/d\n/^@END: BBOARDS$/d\n");
 395     fprintf (fp, "s%%@(BBHOME)%%%s%%g\n", SVAL (bbhome));
 396     if (strcmp (bbdelivery, "off") == 0)
 397         fprintf (fp, "/^@BEGIN: BBSERVER$/,/^@END: BBSERVER$/d\n");
 398     else
 399         fprintf (fp, "/^@BEGIN: BBSERVER$/d\n/^@END: BBSERVER$/d\n");
 400
 401     if (strcmp (debug, "on") == 0) {
 402         fprintf (fp, "/^@BEGIN: DEBUG$/d\n/^@END: DEBUG$/d\n");
 403         fprintf (fp, "/^@BEGIN: OPTIM$/,/^@END: OPTIM$/d\n");
 404     }
 405     else {
 406         fprintf (fp, "/^@BEGIN: DEBUG$/,/^@END: DEBUG$/d\n");
 407         fprintf (fp, "/^@BEGIN: OPTIM$/d\n/^@END: OPTIM$/d\n");
 408     }
 409
 410     if (strcmp (mailgroup, "off")) { /* for SYS5 sgid-inc */
 411         fprintf (fp, "/^@BEGIN: MAILGROUP$/d\n/^@END: MAILGROUP$/d\n");
 412         fprintf (fp, "s%%@(MAILGROUP)%%%s%%g\n", SVAL (mailgroup));
 413     }
 414     else
 415         fprintf (fp, "/^@BEGIN: MAILGROUP$/,/^@END: MAILGROUP$/d\n");
 416
 417     if (strcmp (oldload, "on") == 0)
 418         fprintf (fp, "/^@BEGIN: OLDLOAD$/d\n/^@END: OLDLOAD$/d\n");
 419     else
 420         fprintf (fp, "/^@BEGIN: OLDLOAD$/,/^@END: OLDLOAD$/d\n");
 421     if (strcmp (oldload, "off") == 0)
 422         fprintf (fp, "/^@BEGIN: NEWLOAD$/d\n/^@END: NEWLOAD$/d\n");
 423     else
 424         fprintf (fp, "/^@BEGIN: NEWLOAD$/,/^@END: NEWLOAD$/d\n");
 425
 426 /* \f */
 427
 428     if (strcmp (ranlib, "on") == 0) {
 429         fprintf (fp, "/^@BEGIN: RANLIB$/d\n/^@END: RANLIB$/d\n");
 430         fprintf (fp, "/^@BEGIN: LORDER$/,/^@END: LORDER$/d\n");
 431     }
 432     else {
 433         fprintf (fp, "/^@BEGIN: LORDER$/d\n/^@END: LORDER$/d\n");
 434         fprintf (fp, "/^@BEGIN: RANLIB$/,/^@END: RANLIB$/d\n");
 435     }
 436
 437     if (strcmp (sharedlib, "off")) {    /* if not off */
 438         fprintf (fp, "/^@BEGIN: SHAREDLIB$/d\n/^@END: SHAREDLIB$/d\n");
 439         fprintf (fp, "/^@BEGIN: STDLIB$/,/^@END: STDLIB$/d\n");
 440         fprintf (fp, "s%%@(SLIBDIR)%%%s%%g\n", slibdir);
 441         fprintf (fp, "s%%@(SLIBVER)%%%s%%g\n", MHSLIBVER);
 442         fprintf (fp, "s%%@(SLFLAGS)%%%s%%g\n", SVAL(slflags));
 443         if (strcmp (sharedlib, "secure") == 0)
 444             fprintf (fp, "s%%@(SLDFLAG)%%-L%s%%g\n",slibdir);
 445         else
 446             fprintf (fp, "s%%@(SLDFLAG)%%%%g\n");
 447     }
 448     else {
 449         fprintf (fp, "/^@BEGIN: STDLIB$/d\n/^@END: STDLIB$/d\n");
 450         fprintf (fp, "/^@BEGIN: SHAREDLIB$/,/^@END: SHAREDLIB$/d\n");
 451     }
 452     if (strcmp (sharedlib, "sun4") == 0 || strcmp (sharedlib, "on") == 0)
 453         fprintf (fp, "/^@BEGIN: SUN4SHLIB$/d\n/^@END: SUN4SHLIB$/d\n");
 454     else
 455         fprintf (fp, "/^@BEGIN: SUN4SHLIB$/,/^@END: SUN4SHLIB$/d\n");
 456     if (strcmp (sharedlib, "sys5") == 0)
 457         fprintf (fp, "/^@BEGIN: SYS5SHLIB$/d\n/^@END: SYS5SHLIB$/d\n");
 458     else
 459         fprintf (fp, "/^@BEGIN: SYS5SHLIB$/,/^@END: SYS5SHLIB$/d\n");
 460
 461 /* \f */
 462
 463     if (flag || ((mtsnum == mmdf || mtsnum == mmdf2) && !smtp)) {
 464         fprintf (fp, "/^@BEGIN: MMDFMTS$/d\n/^@END: MMDFMTS$/d\n");
 465         if (mtsnum == mmdf)
 466             fprintf (fp, "/^@BEGIN: MMDFIMTS$/d\n/^@END: MMDFIMTS$/d\n");
 467         else
 468             fprintf (fp, "/^@BEGIN: MMDFIMTS$/,/^@END: MMDFIMTS$/d\n");
 469         if (mtsnum == mmdf2)
 470             fprintf (fp, "/^@BEGIN: MMDFIIMTS$/d\n/^@END: MMDFIIMTS$/d\n");
 471         else
 472             fprintf (fp, "/^@BEGIN: MMDFIIMTS$/,/^@END: MMDFIIMTS$/d\n");
 473     }
 474     else {
 475         fprintf (fp, "/^@BEGIN: MMDFMTS$/,/^@END: MMDFMTS$/d\n");
 476         fprintf (fp, "/^@BEGIN: MMDFIMTS$/,/^@END: MMDFIMTS$/d\n");
 477         fprintf (fp, "/^@BEGIN: MMDFIIMTS$/,/^@END: MMDFIIMTS$/d\n");
 478     }
 479
 480     if (mtsnum == mh)
 481         fprintf (fp, "/^@BEGIN: MHMTS$/d\n/^@END: MHMTS$/d\n");
 482     else
 483         fprintf (fp, "/^@BEGIN: MHMTS$/,/^@END: MHMTS$/d\n");
 484
 485     if (!flag && (mtsnum == sendmail || smtp))
 486         fprintf (fp, "/^@BEGIN: SENDMTS$/d\n/^@END: SENDMTS$/d\n");
 487     else
 488         fprintf (fp, "/^@BEGIN: SENDMTS$/,/^@END: SENDMTS$/d\n");
 489
 490     switch (mtsnum) {
 491         case mh:
 492         case sendmail:
 493         case mmdf:
 494             fprintf (fp, "/^@BEGIN: SENDMTSHACK$/d\n/^@END: SENDMTSHACK$/d\n");
 495             break;
 496
 497         default:
 498             fprintf (fp, "/^@BEGIN: SENDMTSHACK$/,/^@END: SENDMTSHACK$/d\n");
 499             break;
 500     }
 501
 502 /* \f */
 503
 504     /* special hack for support/pop/popser.c */
 505     fprintf (fp, "s%%@(POPUUMBOX)%%%s%%g\n",
 506             mtsnum == sendmail ? "-DPOPUUMBOX" : "");
 507
 508     if (smtp)
 509         fprintf (fp, "/^@BEGIN: SMTP$/d\n/^@END: SMTP$/d\n");
 510     else
 511         fprintf (fp, "/^@BEGIN: SMTP$/,/^@END: SMTP$/d\n");
 512
 513     if (strcmp (pop, "on") == 0)
 514         fprintf (fp, "/^@BEGIN: POP$/d\n/^@END: POP$/d\n");
 515     else
 516         fprintf (fp, "/^@BEGIN: POP$/,/^@END: POP$/d\n");
 517
 518     if (strcmp (bboards, "pop") == 0)
 519         fprintf (fp, "/^@BEGIN: BPOP$/d\n/^@END: BPOP$/d\n");
 520     else
 521         fprintf (fp, "/^@BEGIN: BPOP$/,/^@END: BPOP$/d\n");
 522
 523     if (strcmp (bboards, "nntp") == 0)
 524         fprintf (fp, "/^@BEGIN: NNTP$/d\n/^@END: NNTP$/d\n");
 525     else
 526         fprintf (fp, "/^@BEGIN: NNTP$/,/^@END: NNTP$/d\n");
 527
 528     if (strcmp (mf, "on") == 0)
 529         fprintf (fp, "/^@BEGIN: MF$/d\n/^@END: MF$/d\n");
 530     else
 531         fprintf (fp, "/^@BEGIN: MF$/,/^@END: MF$/d\n");
 532
 533     fprintf (fp, "s%%@(MHREMOVE)%%%s%%g\n", SVAL (removeit));
 534
 535     for (op = copts; op->c_name; op++) {
 536         fprintf (fp, op->c_value ? "/^@BEGIN: %s$/d\n/^@END: %s$/d\n" :
 537                                  "/^@BEGIN: %s$/,/^@END: %s$/d\n",
 538                      op->c_name, op->c_name);
 539     }
 540
 541     (void) fclose (fp);
 542 }
 543
 544 /* \f */
 545
 546 static  do_files () {
 547     char  **pp;
 548
 549     for (pp = files; *pp; pp++)
 550         shell ("rm -f %s; sed -f %s < config/%s > %s",
 551                 *pp, SED, tail (*pp), *pp);
 552 }
 553
 554
 555 static  do_doc () {
 556     shell ("./mhdoc");
 557 }
 558
 559
 560 static  do_make () {
 561     char    buffer[BUFSIZ];
 562     struct pair *pp;
 563
 564     for (pp = makefiles; pp -> infile; pp++) {
 565         (void) sprintf (buffer, MAKE, pp -> outfile);
 566         shell ("rm -f %s; sed -f %s < %s > %s",
 567                 buffer, SED, pp -> infile, buffer);
 568     }
 569 }
 570
 571 /* \f */
 572
 573 /* VARARGS */
 574
 575 static  shell (fmt, a, b, c, d)
 576 char   *fmt,
 577        *a,
 578        *b,
 579        *c,
 580        *d;
 581 {
 582     char    buffer[BUFSIZ];
 583
 584     (void) sprintf (buffer, fmt, a, b, c, d);
 585     printf ("%s\n", buffer);
 586     (void) fflush (stdout);
 587
 588     if (system (buffer))
 589         adios (NULLCP, "failed");
 590 }
 591
 592 /* \f */
 593
 594 static  arginit (vec)
 595 char  **vec;
 596 {
 597     int     i;
 598     char   *ap,
 599            *cp,
 600            *dp,
 601             buffer[BUFSIZ];
 602     struct bind *bp;
 603     FILE * fp;
 604
 605     myname = tail (*vec);
 606     printf (BANNER, myname);
 607     (void) fflush (stdout);
 608
 609     for (vec++; *vec; vec++) {
 610         if (strcmp (*vec, "-D") == 0) {
 611             sedP = 1; filesP = makeP = 0; docP = 2;
 612             continue;
 613         }
 614         if (strcmp (*vec, "-s") == 0) {
 615             sedP = !sedP;
 616             continue;
 617         }
 618         if (strcmp (*vec, "-f") == 0) {
 619             filesP = !filesP;
 620             continue;
 621         }
 622         if (strcmp (*vec, "-d") == 0) {
 623             docP = !docP;
 624             continue;
 625         }
 626         if (strcmp (*vec, "-m") == 0) {
 627             makeP = !makeP;
 628             continue;
 629         }
 630         if (strcmp (*vec, "-help") == 0) {
 631             printf ("usage: %s [opt] file\n", myname);
 632             printf ("%s\n%s\n%s\n%s\n",
 633                 " -s\tno sed files", " -f\tno config files",
 634                 " -d\tno doc files", " -m\tno makefiles");
 635             exit (0);
 636         }
 637         break;
 638     }
 639     if ((config = *vec) == NULL || vec[1] != NULL) /* no arg or too many */
 640         adios (NULLCP, "usage: %s file", myname);
 641
 642 /* \f */
 643
 644     if ((fp = fopen (config, "r")) == NULL)
 645         adios (config, "unable to read");
 646
 647     while (fgets (buffer, sizeof buffer, fp)) {
 648         if (ap = index (buffer, '\n'))
 649             *ap-- = '\0';
 650         else
 651             ap = &buffer[strlen (buffer) - 1];
 652         while (ap >= buffer)
 653             if (isspace (*ap))
 654                 *ap = '\0';
 655             else
 656                 break;
 657         for (cp = buffer; isspace (*cp); cp++)
 658             continue;
 659         if (*cp == '\0' || *cp == '#')
 660             continue;
 661         for (ap = cp; *ap; ap++)
 662             if (isspace (*ap) || *ap == ':') {
 663                 *ap++ = '\0';
 664                 while (isspace (*ap))
 665                     ap++;
 666                 break;
 667             }
 668         for (bp = binds; bp -> keyword; bp++)
 669             if (strcmp (bp -> keyword, cp) == 0)
 670                 break;
 671         if (bp -> keyword == NULL)
 672             adios (NULLCP, "unknown option %s in %s", cp, config);
 673         else
 674             if (*(bp -> value) == NULL || !(bp -> flags & BD_ADD))
 675                 *(bp -> value) = strdup (ap);
 676             else
 677                 *(bp -> value) = stradd (ap, stradd (" ", *(bp -> value)));
 678     }
 679
 680     (void) fclose (fp);
 681
 682 /* \f */
 683
 684     if (binpath == NULL)
 685         adios (NULLCP, "bin must be specified in %s", config);
 686     trim (binpath);
 687
 688     if (strcmp (bboards, "on") && strcmp (bboards, "off") &&
 689         strcmp (bboards, "pop") && strcmp (bboards, "nntp"))
 690         adios (NULLCP, "bboards should be %s not %s",
 691                 "either \"on\", \"off\", \"pop\" or \"nntp\"", bboards);
 692     if (strcmp (bboards, "off") == 0 && strcmp (bbdelivery, "off"))
 693         adios (NULLCP,
 694             "you cannot have \"bbdelivery\" \"%s\" with \"bboards\" \"%s\"",
 695             bbdelivery, bboards);
 696     if (bbhome == NULL)
 697         adios (NULLCP, "bbhome must be specified in %s", config);
 698     trim (bbhome);
 699
 700     if (strcmp (debug, "on") && strcmp (debug, "off"))
 701         adios (NULLCP, "debug should be either \"on\" or \"off\", not %s",
 702                 debug);
 703
 704     if (etcpath == NULL)
 705         adios (NULLCP, "etc must be specified in %s", config);
 706     trim (etcpath);
 707
 708     if (strcmp (mailgroup, "off"))      /* if not "off" */
 709         add_option ("MAILGROUP");
 710     if (mailpath == NULL)
 711         adios (NULLCP, "mail must be specified in %s", config);
 712     trim (mailpath);
 713     if (*mailpath == '/')
 714         maildir = mailpath;
 715     else
 716         mailfile = mailpath;
 717
 718     if (cp = index (manuals, '/')) {    /* "standard/cat" */
 719         *cp++ = 0;
 720         mancat = cp;
 721         if (strcmp (mancat, "cat"))
 722             adios (NULLCP,"invalid manuals setting: %s/%s",manuals, mancat);
 723     }
 724     if (strcmp (manuals, "standard")
 725             && strcmp (manuals, "bsd44")
 726             && strcmp (manuals, "local")
 727             && strcmp (manuals, "new")
 728             && strcmp (manuals, "old")
 729             && strcmp (manuals, "gen")
 730             && strcmp (manuals, "none"))
 731         adios (NULLCP,"invalid manuals setting: %s",manuals);
 732
 733     if (mts == NULL)
 734         adios (NULLCP, "mts must be specified in %s", config);
 735     for (i = 0; mtsopts[i].mtskey; i++)
 736         if (strcmp (mts, mtsopts[i].mtskey) == 0)
 737             break;
 738     if ((mtsnum = mtsopts[i].code) == unknown)
 739         adios (NULLCP, "invalid mts setting: %s", mts);
 740     add_option (mtsopts[i].optval);
 741     smtp = mtsopts[i].mtsflags & DOSMTP;
 742     if (mtsopts[i].mtsflags & NOMF)
 743         mf = "off";             /* hack... */
 744
 745     if (strcmp (pop, "on") && strcmp (pop, "off"))
 746         adios (NULLCP, "pop should be either \"on\" or \"off\", not %s", pop);
 747     if (strcmp (pop, "on") == 0)
 748         add_option ("POP");
 749
 750     if (strcmp (bboards, "pop") == 0) {
 751         add_option ("BPOP");
 752         if (strcmp (pop, "on"))
 753             adios (NULLCP, "bboards \"pop\" requires pop \"on\"");
 754     }
 755     else if (strcmp (bboards, "nntp") == 0) {
 756         add_option ("BPOP");/* used by msh.c & bbc.c, but see also pshsbr.c */
 757         add_option ("NNTP");
 758         if (mpop)
 759             adios (NULLCP,
 760                 "bboards \"nntp\" is incompatible with \"options MPOP\"");
 761     }
 762
 763     if (strcmp (mf, "on") && strcmp (mf, "off"))
 764         adios (NULLCP, "mf should be either \"on\" or \"off\", not %s", mf);
 765     if (strcmp (mf, "on") == 0)
 766         add_option ("MF");
 767
 768     if (sprntf && strcmp (sprntf, "char *")) {/* this defaults to "char *" */
 769         if (strcmp (sprntf, "int"))
 770             adios (NULLCP,
 771                     "sprintf should be either \"int\" or \"char *\", not %s",
 772                     sprntf);
 773         add_option ("SPRINTFTYPE=int");
 774     }
 775
 776     if (strcmp (sharedlib, "on") && strcmp (sharedlib, "off")
 777             && strcmp (sharedlib, "sun4") && strcmp (sharedlib, "sys5")
 778             && strcmp (sharedlib, "secure"))
 779         adios (NULLCP,
 780             "sharedlib should be either \"sun4\", \"sys5\", or \"off\", not %s",
 781             sharedlib);
 782
 783     (void) sprintf(buffer, "TYPESIG=%s", signl);
 784     add_option (buffer);
 785
 786 /* loop over options string and add -D ccoptions */
 787
 788     begin_myopt ();
 789     if (cp = options) {
 790         for (ap = cp; *ap; ap++)
 791             if (isspace (*ap))
 792                 *ap = ' ';
 793         options = NULL;
 794         for (ap = cp; dp = index (ap, ' '); ap = dp) {
 795             *dp++ = '\0';
 796             add_myopt (ap);
 797             (void) sprintf (buffer, "%s-D%s", options ? " " : "", ap);
 798             ap = buffer;
 799             options = stradd (ap, options);
 800             while (isspace (*dp))
 801                 dp++;
 802         }
 803         if (*ap) {
 804             add_myopt (ap);
 805             (void) sprintf (buffer, "%s-D%s", options ? " " : "", ap);
 806             ap = buffer;
 807             options = stradd (ap, options);
 808         }
 809         free (cp);
 810     }
 811     end_myopt ();
 812     if (strcmp (bboards, "nntp") == 0 && mpop)
 813         adios (NULLCP,
 814                 "bboards \"nntp\" is incompatible with \"options MPOP\"");
 815 }
 816
 817 /* \f */
 818
 819 static  add_option (s)
 820 char   *s;
 821 {
 822     options = options ? stradd (s, stradd (" ", options)) : strdup (s);
 823 }
 824
 825
 826 begin_myopt () {
 827     myopts = strdup ("char *options[] = {");
 828 }
 829
 830
 831 add_myopt (s)
 832 char   *s;
 833 {
 834     int     len;
 835     char   *bp,
 836             buffer[BUFSIZ];
 837     struct copt *op;
 838     static int  nameoutput = 0;
 839     static int  linepos = 0;
 840     static int  outputlinelen = 72;
 841
 842     for (op = copts; op->c_name; op++)
 843         if (!strncmp (op->c_name,s,strlen(op->c_name))) {
 844             op->c_value = 1;
 845             break;
 846         }
 847
 848     if (strcmp (s, "MPOP") == 0)
 849         mpop = 1;
 850     if (smtp && strcmp (s, "BERK") == 0) {
 851         fprintf (stderr, "\"options BERK\" overriding smtp suffix...\n");
 852         smtp = 0;
 853     }
 854     if (!nameoutput) {
 855         printf ("%s: ", bp = "options");
 856         linepos += (nameoutput = strlen (bp) + 2);
 857     }
 858     len = strlen (s);
 859     if (linepos != nameoutput)
 860         if (len + linepos + 3 > outputlinelen)
 861             printf ("\n%*s", linepos = nameoutput, "");
 862         else
 863             printf (" "), linepos++;
 864     printf ("[%s]", s);
 865     linepos += len + 2;
 866     (void) fflush (stdout);
 867
 868     bp = buffer;
 869     *bp++ = '"';
 870     while (*s) {
 871         if (*s == '"')
 872             *bp++ = QUOTE, *bp++ = QUOTE;
 873         *bp++ = *s++;
 874     }
 875     (void) strcpy (bp, "\", ");
 876     insopt (buffer);
 877 }
 878
 879
 880 end_myopt () {
 881     printf ("\n");
 882     (void) fflush (stdout);
 883     mkopts();
 884     myopts = stradd ("NULL};", myopts);
 885 }
 886
 887 /* \f */
 888
 889 static  trim (s)
 890 char   *s;
 891 {
 892     char   *p;
 893
 894     if (s == NULL || (p = rindex (s, '/')) == NULL)
 895         return;
 896     if (*++p == '\0')
 897         *--p = '\0';
 898 }
 899
 900
 901 static char *tail (s)
 902 char   *s;
 903 {
 904     char   *p;
 905
 906     if (p = rindex (s, '/'))
 907         p++;
 908     return ((p == NULL || *p == '\0') ? s : p);
 909 }
 910
 911 /* \f */
 912
 913 static char *stradd (s1, s2)
 914 char   *s1,
 915        *s2;
 916 {
 917     char   *p;
 918
 919     if (s1 == NULL || *s1 == '\0')
 920         return s2;
 921     if (s2 == NULL)
 922         return strdup (s1);
 923     if ((p = malloc ((unsigned) (strlen (s1) + strlen (s2) + 2))) == NULL)
 924         adios (NULLCP, "insufficient memory");
 925
 926     (void) sprintf (p, "%s%s", s2, s1);
 927     if (s2)
 928         free (s2);
 929     return p;
 930 }
 931
 932
 933 static char *strdup (s)
 934 char   *s;
 935 {
 936     char   *p;
 937
 938     if ((p = malloc ((unsigned) (strlen (s) + 1))) == NULL)
 939         adios (NULLCP, "insufficient memory");
 940
 941     (void) strcpy (p, s);
 942     return p;
 943 }
 944
 945 /* \f */
 946
 947 #ifdef  notdef
 948 /* these used to be for SYS5 machines, but now this is compiled
 949  * with -DSYS5 which redefines the SYS5 str[r]chr names to [r]index.
 950  */
 951 static char *index (s, c)
 952 char   *s,
 953         c;
 954 {
 955     char    i;
 956
 957     while (i = *s++)
 958         if (i == c)
 959             return (s - 1);
 960
 961     return NULL;
 962 }
 963
 964
 965 static char *rindex (s, c)
 966 char   *s,
 967         c;
 968 {
 969     char    i,
 970            *t;
 971
 972     t = NULL;
 973     while (i = *s++)
 974         if (i == c)
 975             t = s - 1;
 976
 977     return t;
 978 }
 979 #endif /* notdef */
 980
 981 /* \f */
 982
 983 /* VARARGS */
 984
 985 adios (what, fmt, a, b, c)
 986 char   *what,
 987        *fmt,
 988        *a,
 989        *b,
 990        *c;
 991 {
 992     (void) fflush (stdout);
 993
 994     fprintf (stderr, "%s: ", myname);
 995     fprintf (stderr, fmt, a, b, c);
 996     if (what) {
 997         (void) fputc (' ', stderr);
 998         perror (what);
 999     }
1000     else
1001         (void) fputc ('\n', stderr);
1002
1003     exit (1);
1004 }
1005
1006 /* quick and dirty ordering of options for readability */
1007
1008 struct opt {
1009     char *s;
1010     struct opt *n;
1011 };
1012
1013 static struct opt *optp = (struct opt *)NULL;
1014
1015 static void
1016 insopt(s)
1017 char *s;        /* string for sorting */
1018 {
1019     struct opt  *p,
1020                 *np,
1021                 *lp = (struct opt *)NULL;
1022
1023     if ((np = (struct opt *) malloc ((unsigned) sizeof (struct opt))) ==
1024             (struct opt *)NULL)
1025         adios (NULL, "unable to malloc opt");
1026     np -> s = strdup(s);
1027     np -> n = (struct opt *)NULL;
1028
1029     for (p = optp; p; lp = p, p = p -> n) {
1030         if (strcmp (p->s, s) > 0)
1031             break;
1032     }
1033     if (p)
1034         np -> n = p;
1035     if (lp)
1036         lp -> n = np;
1037     else
1038         optp = np;
1039 }
1040
1041 static void
1042 mkopts()
1043 {
1044     struct opt *p;
1045
1046     for (p = optp; p; p = p -> n)
1047         myopts = stradd (p->s, myopts);
1048 }