diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/support/pop/popaka.c

   1 /* popaka.c - generate POP entries for MMDF-II alias file */
   2 #ifndef lint
   3 static char ident[] = "@(#)$Id: popaka.c,v 1.5 1992/12/15 00:20:22 jromine Exp $";
   4 #endif  /* lint */
   5
   6 #include <stdio.h>
   7 #include "../zotnet/bboards.h"
   8
   9 static process();
  10 /* \f */
  11
  12 /* ARGSUSED */
  13
  14 main (argc, argv)
  15 int     argc;
  16 char  **argv;
  17 {
  18     struct bboard  *bb;
  19
  20     if (!setbbinfo (POPUID, POPDB, 1)) {
  21         fprintf (stderr, "setbbinfo(%s, %s, 1) failed -- %s\n",
  22                 POPUID, POPDB, getbberr ());
  23         exit (1);
  24     }
  25
  26     (void) setbbent (SB_STAY);
  27     while (bb = getbbent ())
  28         process (bb);
  29     (void) endbbent ();
  30
  31     exit (0);
  32 }
  33
  34 /* \f */
  35
  36 static  process (bb)
  37 struct bboard  *bb;
  38 {
  39     printf ("%s: %s@pop\n", bb -> bb_name, bb -> bb_name);
  40 }