git.marmaro.de Git - mmh/blob - docs/historical/mh-6.8.5/uip/RCS/spop.c,v

   1 head    1.8;
   2 access;
   3 symbols;
   4 locks; strict;
   5 comment @ * @;
   6
   7
   8 1.8
   9 date    93.08.25.17.28.24;      author jromine; state Exp;
  10 branches;
  11 next    1.7;
  12
  13 1.7
  14 date    93.08.20.15.55.23;      author jromine; state Exp;
  15 branches;
  16 next    1.6;
  17
  18 1.6
  19 date    92.11.04.01.04.35;      author jromine; state Exp;
  20 branches;
  21 next    1.5;
  22
  23 1.5
  24 date    92.02.03.17.57.22;      author jromine; state Exp;
  25 branches;
  26 next    1.4;
  27
  28 1.4
  29 date    90.04.05.15.02.39;      author sources; state Exp;
  30 branches;
  31 next    1.3;
  32
  33 1.3
  34 date    90.04.02.16.34.57;      author sources; state Exp;
  35 branches;
  36 next    1.2;
  37
  38 1.2
  39 date    90.02.06.13.32.29;      author sources; state Exp;
  40 branches;
  41 next    1.1;
  42
  43 1.1
  44 date    90.02.06.13.32.13;      author sources; state Exp;
  45 branches;
  46 next    ;
  47
  48
  49 desc
  50 @@
  51
  52
  53 1.8
  54 log
  55 @off_t fixes for BSD44
  56 @
  57 text
  58 @#ifndef        SPOP
  59 /* sbboards.c - MH style mailer to write to a ZOTnet BBoard */
  60 #else   SPOP
  61 /* spop.c - MH style mailer to write to a POP subscriber */
  62 #endif  SPOP
  63 #ifndef lint
  64 static char ident[] = "@@(#)$Id: spop.c,v 1.7 1993/08/20 15:55:23 jromine Exp jromine $";
  65 #endif  lint
  66
  67 #ifndef SPOP
  68
  69 /* This program acts like the MMDF ch_bboards channel: it does local
  70    delivery to a ZOTnet BBoard and/or addition re-distribution to other
  71    recipients of the BBoard.  This program can function both as a SendMail
  72    mailer and an MH .mh_receive file, depending on whether SENDMTS or
  73    MHMTS is set.  Currently, the MHMTS version of this program does not do
  74    re-distribution.
  75
  76    This program should be used ONLY if you have "bboards on" set in your
  77    MH configuration, and if you have "mts sendmail" or "mts mh" set as well.
  78  */
  79
  80 #else   SPOP
  81
  82 /* This program acts like the MMDF-II ch_pop channel: it does local
  83    delivery for non-local users.  These users are known as POP subscribers
  84    and use the Post Office Protocol with a POP server in order to access
  85    their maildrop.
  86  */
  87
  88 #endif  SPOP
  89
  90 #undef  DISTRIBUTE
  91 #ifdef  SENDMTS
  92 #ifndef SPOP
  93 #define DISTRIBUTE
  94 #endif  not SPOP
  95 #endif  SENDMTS
  96
  97 #include "../h/mh.h"
  98 #ifndef SPOP
  99 #include "../h/addrsbr.h"
 100 #endif  not SPOP
 101 #include "../h/dropsbr.h"
 102 #include "../zotnet/bboards.h"
 103 #include "../zotnet/tws.h"
 104 #include <stdio.h>
 105 #include "../zotnet/mts.h"
 106 #include <pwd.h>
 107 #ifndef SYS5
 108 #include <sysexits.h>
 109 #else   SYS5
 110 #define EX_CANTCREAT    1
 111 #define EX_IOERR        1
 112 #define EX_NOINPUT      1
 113 #define EX_NOUSER       1
 114 #define EX_OK           0
 115 #define EX_OSERR        1
 116 #define EX_OSFILE       1
 117 #define EX_UNAVAILABLE  1
 118 #define EX_USAGE        1
 119 #endif  SYS5
 120 #ifdef  DISTRIBUTE
 121 #include "../mts/sendmail/smail.h"
 122 #endif  DISTRIBUTE
 123 #ifdef LOCALE
 124 #include        <locale.h>
 125 #endif
 126
 127
 128 #define NBB     100
 129
 130 #ifndef SPOP
 131 #define ENTITY  "bboard"
 132 #else   SPOP
 133 #define ENTITY  "subscriber"
 134 #endif  SPOP
 135
 136 /* \f */
 137
 138 static int  bb_fderr;
 139
 140 static int  bb_uid;
 141 static int  bb_gid;
 142
 143 int    dst_rcpt ();
 144
 145
 146 #ifndef SPOP
 147 static char bb_from[BUFSIZ];
 148 static char bb_head[BUFSIZ];
 149 static char bb_home[BUFSIZ];
 150 static char bb_time[BUFSIZ];
 151 #ifdef  DISTRIBUTE
 152 static char bb_rept[BUFSIZ];
 153 #endif  DISTRIBUTE
 154 #else   SPOP
 155 #define bb_head NULLCP
 156 #endif  SPOP
 157
 158 static struct bboard  *bb[NBB];
 159
 160
 161 off_t   lseek ();
 162
 163 #ifndef __STDC__
 164 #ifdef  SYS5
 165 struct passwd  *getpwnam ();
 166 #endif  /* SYS5 */
 167 #endif
 168
 169 /* hack */
 170 #define adios   my_adios
 171 static  localmail(), arginit();
 172 static int      lose(), copyfile();
 173 static void     adios();
 174 /* \f */
 175
 176 /* ARGSUSED */
 177
 178 main (argc, argv, envp)
 179 int     argc;
 180 char  **argv,
 181       **envp;
 182 {
 183     int     fd;
 184     char    tmpfil[BUFSIZ];
 185
 186 #ifdef LOCALE
 187         setlocale(LC_ALL, "");
 188 #endif
 189 #ifdef  MHMTS
 190     if (argc != 5)
 191         adios (EX_USAGE, NULL, "you lose really big");
 192 #endif  MHMTS
 193     arginit (argv);
 194
 195     fflush (stdout);
 196     discard (stdout);           /* XXX: reference discard to help loader */
 197
 198     fd = copyfile (fileno (stdin), tmpfil);
 199     (void) unlink (tmpfil);
 200
 201     localmail (fd);
 202 #ifdef  DISTRIBUTE
 203     distribute (fd);
 204     notify (fd);
 205 #endif  DISTRIBUTE
 206
 207     exit (EX_OK);
 208 }
 209
 210 /* \f */
 211
 212 static  localmail (fd)
 213 int     fd;
 214 {
 215     int     i,
 216             md;
 217     register struct bboard  *bp;
 218
 219     for (i = 0; bp = bb[i]; i++)
 220         if (bp -> bb_file && *bp -> bb_file) {
 221             (void) lseek (fd, (off_t)0, 0);
 222 #ifndef SPOP
 223             if ((md = mbx_open (bp -> bb_file, bb_uid, bb_gid, BBMODE))
 224 #else   SPOP
 225             if ((md = mbx_open (bp -> bb_file, bb_uid, bb_gid, POMODE))
 226 #endif  SPOP
 227                     == NOTOK) {
 228                 (void) lose ("unable to open %s", bp -> bb_file);
 229                 continue;
 230             }
 231 #ifndef SPOP
 232             if (mbx_init (bp) != NOTOK)
 233 #endif  not SPOP
 234                 (void) mbx_copy (bp -> bb_file, md, fd, 1, bb_head, 0);
 235             (void) mbx_close (bp -> bb_file, md);
 236         }
 237 }
 238
 239 /* \f */
 240
 241 #ifndef SPOP
 242 static int  mbx_init (bp)
 243 register struct bboard  *bp;
 244 {
 245     int     fd,
 246             clear;
 247     register struct bboard  *ip;
 248     register FILE *fp;
 249
 250     if ((fd = mbx_Xopen (bp -> bb_info, bb_uid, bb_gid, BBMODE, &clear))
 251             == NOTOK)
 252         return lose ("unable to lock and open %s", bp -> bb_info);
 253     if ((fp = fdopen (fd, "w")) == NULL) {
 254         (void) mbx_close (bp -> bb_info, fd);
 255         return lose ("unable to fdopen %s", bp -> bb_info);
 256     }
 257
 258     if ((ip = getbbnam (bp -> bb_name)) == NULL) {
 259         (void) lkfclose (fp, bp -> bb_info);
 260         return lose ("unable to get information on BBoard %s", bp -> bb_name);
 261     }
 262     (void) strcpy (bb_time, dtimenow ());
 263     (void) sprintf (bb_head, "BBoard-ID: %d\nBB-Posted: %s\n",
 264             bp -> bb_maxima = ++ip -> bb_maxima, bb_time);
 265
 266     fprintf (fp, "%d\n%s\n", bp -> bb_maxima, bb_time);
 267     (void) lkfclose (fp, bp -> bb_info);
 268
 269     return OK;
 270 }
 271 #endif  not SPOP
 272
 273 /* \f */
 274
 275 #ifdef  DISTRIBUTE
 276 static  distribute (fd)
 277 int     fd;
 278 {
 279     int     i;
 280     register struct bboard  *bp;
 281
 282     for (i = 0; bp = bb[i]; i++)
 283         if (bp -> bb_dist && *bp -> bb_dist)
 284             break;
 285     if (bp == NULL)
 286         return;
 287
 288     if (dst_init () == NOTOK) {
 289         dst_lose ();
 290         return;
 291     }
 292     for (i = 0; bp = bb[i]; i++)
 293         if (bp -> bb_dist && *bp -> bb_dist)
 294             if (dst_adrs (bp) == NOTOK) {
 295                 dst_lose ();
 296                 return;
 297             }
 298     if (dst_text (fd) == NOTOK || dst_end () == NOTOK)
 299         dst_lose ();
 300 }
 301
 302 /* \f */
 303
 304 static int  dst_init ()
 305 {
 306     int     retval;
 307
 308     if (rp_isbad (retval = sm_init (NULLCP, NULLCP, 0, 0, 0, 0, 0))
 309             || rp_isbad (retval = sm_winit (S_MAIL, bb_from)))
 310         return lose ("problem initializing SendMail; %s",
 311                 rp_string (retval));
 312
 313     return OK;
 314 }
 315
 316 /* \f */
 317
 318 static int  dst_adrs (bp)
 319 register struct bboard  *bp;
 320 {
 321     if (getbbdist (bp, dst_rcpt))
 322         return lose ("getbbdist failed: %s", getbberr ());
 323
 324     return OK;
 325 }
 326
 327 /* \f */
 328
 329 static int  dst_rcpt (mbox, host)
 330 register char   *mbox,
 331                 *host;
 332 {
 333     int     retval;
 334
 335     switch (retval = sm_wadr (mbox, host, NULLCP)) {
 336         case RP_OK:
 337             return OK;
 338
 339         case RP_NO:
 340         case RP_USER:
 341             (void) lose ("%s@@%s: loses; %s", mbox, host, rp_string (retval));
 342             return OK;          /* fail-soft */
 343
 344         default:
 345             return lose ("%s@@%s: unexpected response; %s",
 346                     mbox, host, rp_string (retval));
 347     }
 348 }
 349
 350 /* \f */
 351
 352 static int  dst_text (fd)
 353 int     fd;
 354 {
 355     int     i,
 356             retval;
 357     char    buffer[BUFSIZ];
 358
 359     if (rp_isbad (retval = sm_waend ()))
 360         return lose ("problem ending addresses; %s", rp_string (retval));
 361
 362     (void) lseek (fd, (off_t)0, 0);
 363     while ((i = read (fd, buffer, sizeof buffer)) > 0)
 364         if (rp_isbad (retval = sm_wtxt (buffer, i)))
 365             return lose ("problem writing text; %s", rp_string (retval));
 366
 367     return (i != NOTOK ? OK : lose ("error reading from file"));
 368 }
 369
 370 /* \f */
 371
 372 static int  dst_end ()
 373 {
 374     int     retval;
 375
 376     switch (retval = sm_wtend ()) {
 377         case RP_OK:
 378             (void) sm_end (OK);
 379             return OK;
 380
 381         case RP_NO:
 382         case RP_NDEL:
 383             return lose ("posting failed; %s", rp_string (retval));
 384
 385         default:
 386             return lose ("unexpected response; %s", rp_string (retval));
 387     }
 388 }
 389
 390 /* \f */
 391
 392 static  dst_lose ()
 393 {
 394     (void) sm_end (NOTOK);
 395 }
 396
 397 /* \f */
 398
 399 /* VARARGS1 */
 400
 401 static int  lose (fmt, a, b, c, d)
 402 char   *fmt,
 403        *a,
 404        *b,
 405        *c,
 406        *d;
 407 {
 408     int     fd,
 409             i;
 410     char   *bp,
 411             buffer[BUFSIZ];
 412
 413     if (bb_fderr == NOTOK) {
 414         if ((fd = open ("/dev/null", 0)) == NOTOK)
 415             adios (EX_OSERR, "/dev/null", "unable to open");
 416         bb_fderr = copyfile (fd, bb_rept);
 417     }
 418
 419     (void) sprintf (bp = buffer, fmt, a, b, c, d);
 420     bp += strlen (bp);
 421     bp += strlen (strcpy(bp, "\n"));
 422     i = bp - buffer;
 423     if (write (bb_fderr, buffer, i) != i)
 424         adios (EX_IOERR, bb_rept, "error writing");
 425
 426     return NOTOK;
 427 }
 428
 429 /* \f */
 430
 431 static  notify (fd)
 432 int     fd;
 433 {
 434     int     i;
 435     char    buffer[BUFSIZ];
 436
 437     if (bb_fderr == NOTOK)
 438         return;
 439
 440     if (rp_isbad (sm_init (NULLCP, NULLCP, 0, 0, 0, 0, 0))
 441             || rp_isbad (sm_winit (S_MAIL, bb_from)))
 442         goto sm_err;
 443
 444     switch (sm_wadr (bb_from, NULLCP, NULLCP)) {
 445         case RP_OK:
 446             for (i = 0; bb[i]; i++) {
 447                 (void) sprintf (buffer, "local-%s-request", bb[i] -> bb_name);
 448                 (void) sm_wadr (buffer, LocalName (), NULLCP);
 449             }
 450             break;
 451
 452         default:
 453             goto sm_err;
 454     }
 455
 456     if (rp_isbad (sm_waend ()))
 457         goto sm_err;
 458
 459     (void) sprintf (buffer,
 460             "Date: %s\nFrom: %s\nTo: %s\nSubject: BBoards Failure\n\n",
 461             dtimenow (), bb_from, bb_from);
 462     if (rp_isbad (sm_wtxt (buffer, strlen (buffer))))
 463         goto sm_err;
 464
 465     for (i = 0; bb[i]; i++) {
 466         (void) sprintf (buffer, "BBoard %s\n", bb[i] -> bb_name);
 467         if (rp_isbad (sm_wtxt (buffer, strlen (buffer))))
 468             goto sm_err;
 469     }
 470
 471     (void) lseek (bb_fderr, (off_t)0, 0);
 472     while ((i = read (bb_fderr, buffer, sizeof buffer)) > 0)
 473         if (rp_isbad (sm_wtxt (buffer, i)))
 474             goto sm_err;
 475
 476     (void) strcpy (buffer, "\n------- Forwarded Message\n\n");
 477     if (rp_isbad (sm_wtxt (buffer, strlen (buffer))) || encap (fd) == NOTOK)
 478         goto sm_err;
 479     (void) strcpy (buffer, "\n------- End of Forwarded Message\n\n");
 480     if (rp_isbad (sm_wtxt (buffer, strlen (buffer))))
 481         goto sm_err;
 482
 483     switch (sm_wtend ()) {
 484         case RP_OK:
 485             (void) unlink (bb_rept);
 486             (void) sm_end (OK);
 487             return;
 488
 489         default:
 490     sm_err: ;
 491             adios (EX_UNAVAILABLE, NULLCP,
 492                     "failed and unable to post advisory, see %s for details",
 493                     bb_rept);
 494     }
 495 }
 496
 497 /* \f */
 498
 499 /* very similar to sbr/cpydgst.c */
 500
 501 #define S1      0
 502 #define S2      1
 503
 504 #define output(c)       if (bp >= dp) flush (), *bp++ = c; else *bp++ = c
 505 #define flush()         if ((j = bp - outbuf) \
 506                                 && rp_isbad (sm_wtxt (outbuf, j))) \
 507                             return NOTOK; \
 508                         else \
 509                             bp = outbuf
 510
 511 static int  encap (fd)
 512 register int    fd;
 513 {
 514     register int    i,
 515                     state;
 516     register char  *cp,
 517                    *ep;
 518     char    buffer[BUFSIZ];
 519     register int    j;
 520     register char  *bp,
 521                    *dp;
 522     char    outbuf[BUFSIZ];
 523
 524     (void) lseek (fd, (off_t)0, 0);
 525
 526     dp = (bp = outbuf) + sizeof outbuf;
 527     for (state = S1; (i = read (fd, buffer, sizeof buffer)) > 0;)
 528         for (ep = (cp = buffer) + i; cp < ep; cp++) {
 529             if (*cp == NULL)
 530                 continue;
 531             switch (state) {
 532                 case S1:
 533                     if (*cp == '-') {
 534                         output ('-');
 535                         output (' ');
 536                     }
 537                     state = S2; /* fall */
 538
 539                 case S2:
 540                     output (*cp);
 541                     if (*cp == '\n')
 542                         state = S1;
 543                     break;
 544             }
 545         }
 546
 547     if (i == NOTOK)
 548         return NOTOK;
 549     flush ();
 550
 551     return OK;
 552 }
 553 #endif  DISTRIBUTE
 554
 555 /* \f */
 556
 557 #ifndef DISTRIBUTE
 558 /* VARARGS1 */
 559
 560 static int  lose (fmt, a, b, c, d)
 561 char   *fmt,
 562        *a,
 563        *b,
 564        *c,
 565        *d;
 566 {
 567     adios (EX_UNAVAILABLE, NULLCP, fmt, a, b, c, d);/* NOTREACHED */
 568 }
 569 #endif  not DISTRIBUTE
 570
 571 /* \f */
 572
 573 static  arginit (vec)
 574 register char  **vec;
 575 {
 576     register int    i;
 577 #ifdef  MHMTS
 578     register char  *ap;
 579 #endif  MHMTS
 580     char    addr[BUFSIZ];
 581     register struct bboard *bp;
 582     register struct passwd *pw;
 583
 584     invo_name = r1bindex (*vec++, '/');
 585     m_foil (NULLCP);
 586     mts_init (invo_name);
 587
 588 #ifndef SPOP
 589     if ((pw = getpwnam (BBOARDS)) == NULL)
 590         adios (EX_OSFILE, NULLCP, "no entry for ~%s", BBOARDS);
 591 #else   SPOP
 592     if ((pw = getpwnam (POPUID)) == NULL || !setpwinfo (pw, POPDB, 1))
 593         adios (EX_OSFILE, NULLCP, "%s", pw ? getbberr () : "POP user-id unknown");
 594 #endif  SPOP
 595
 596     if (pw -> pw_uid != geteuid ())
 597 #ifndef SPOP
 598     adios (EX_OSERR, NULLCP, "not running setuid to %s", BBOARDS);
 599 #else   SPOP
 600     adios (EX_OSERR, NULLCP, "not running setuid to %s", POPUID);
 601 #endif  SPOP
 602
 603     bb_uid = pw -> pw_uid;
 604     bb_gid = pw -> pw_gid;
 605 #ifndef SPOP
 606     (void) strcpy (bb_from, adrsprintf (pw -> pw_name, LocalName ()));
 607     (void) strcpy (bb_home, pw -> pw_dir);
 608 #endif  not SPOP
 609
 610 #ifdef  MHMTS
 611     vec += 3;
 612 #endif  MHMTS
 613     if (*vec == NULL)
 614         adios (EX_USAGE, NULLCP, "usage: %s %s [%s ...]",
 615                 invo_name, ENTITY, ENTITY);
 616
 617     for (i = 0; *vec; vec++) {
 618 #ifdef  MHMTS
 619         if (ap = index (*vec, '.'))
 620             *vec = ++ap;
 621 #endif  MHMTS
 622         make_lower (addr, *vec);
 623
 624         if ((bp = getbbnam (addr)) == NULL
 625                 && (bp = getbbaka (addr)) == NULL)
 626             adios (EX_NOUSER, NULLCP, "no such %s as %s", ENTITY, *vec);
 627         if ((bb[i++] = getbbcpy (bp)) == NULL)
 628             adios (EX_UNAVAILABLE, NULLCP, "insufficient memory on %s", *vec);
 629
 630         if (i >= NBB - 1)
 631             adios (EX_USAGE, NULLCP, "too many %ss, starting with %s",
 632                     ENTITY, *vec);
 633     }
 634     bb[i] = NULL;
 635
 636     (void) umask (0022);
 637
 638     bb_fderr = NOTOK;
 639 }
 640
 641 /* \f */
 642
 643 static int  copyfile (qd, tmpfil)
 644 int     qd;
 645 register char   *tmpfil;
 646 {
 647     int     i,
 648             fd;
 649     char    buffer[BUFSIZ];
 650
 651     (void) strcpy (tmpfil, m_tmpfil (invo_name));
 652     if ((fd = creat (tmpfil, 0600)) == NOTOK)
 653         adios (EX_CANTCREAT, tmpfil, "unable to create");
 654     (void) close (fd);
 655     if ((fd = open (tmpfil, 2)) == NOTOK)
 656         adios (EX_NOINPUT, tmpfil, "unable to re-open");
 657
 658     (void) lseek (qd, (off_t)0, 0);
 659     while ((i = read (qd, buffer, sizeof buffer)) > 0)
 660         if (write (fd, buffer, i) != i)
 661             adios (EX_IOERR, tmpfil, "error writing");
 662     if (i == NOTOK)
 663         adios (EX_IOERR, "input", "error reading");
 664
 665     (void) lseek (fd, (off_t)0, 0);
 666
 667     return fd;
 668 }
 669
 670 /* \f */
 671
 672 /* VARARGS3 */
 673
 674 #ifdef  MHMTS
 675 /* ARGSUSED */
 676 #endif  MHMTS
 677
 678 static  void adios (code, what, fmt, a, b, c, d, e, f)
 679 int     code;
 680 char   *what,
 681        *fmt,
 682        *a,
 683        *b,
 684        *c,
 685        *d,
 686        *e,
 687        *f;
 688 {
 689     advise (what, fmt, a, b, c, d, e, f);
 690 #ifdef  SENDMTS
 691     done (code);
 692 #endif  SENDMTS
 693 #ifdef  MHMTS
 694     done (1);
 695 #endif  MHMTS
 696 }
 697 @
 698
 699
 700 1.7
 701 log
 702 @fixup for onex/queued interface
 703 @
 704 text
 705 @d7 1
 706 a7 1
 707 static char ident[] = "@@(#)$Id: spop.c,v 1.6 1992/11/04 01:04:35 jromine Exp jromine $";
 708 d104 1
 709 a104 1
 710 long    lseek ();
 711 d164 1
 712 a164 1
 713             (void) lseek (fd, 0L, 0);
 714 d305 1
 715 a305 1
 716     (void) lseek (fd, 0L, 0);
 717 d414 1
 718 a414 1
 719     (void) lseek (bb_fderr, 0L, 0);
 720 d467 1
 721 a467 1
 722     (void) lseek (fd, 0L, 0);
 723 d601 1
 724 a601 1
 725     (void) lseek (qd, 0L, 0);
 726 d608 1
 727 a608 1
 728     (void) lseek (fd, 0L, 0);
 729 @
 730
 731
 732 1.6
 733 log
 734 @LOCALE
 735 isupper with isalpha
 736 @
 737 text
 738 @d7 1
 739 a7 1
 740 static char ident[] = "@@(#)$Id: spop.c,v 1.5 1992/02/03 17:57:22 jromine Exp jromine $";
 741 d251 1
 742 a251 1
 743     if (rp_isbad (retval = sm_init (NULLCP, NULLCP, 0, 0, 0))
 744 d383 1
 745 a383 1
 746     if (rp_isbad (sm_init (NULLCP, NULLCP, 0, 0, 0))
 747 @
 748
 749
 750 1.5
 751 log
 752 @STDC/SYS5/getpw
 753 @
 754 text
 755 @d7 1
 756 a7 1
 757 static char ident[] = "@@(#)$Id: spop.c,v 1.4 1990/04/05 15:02:39 sources Exp jromine $";
 758 d66 3
 759 d129 3
 760 @
 761
 762
 763 1.4
 764 log
 765 @add ID
 766 @
 767 text
 768 @d7 1
 769 a7 1
 770 static char ident[] = "@@(#)$Id:$";
 771 d103 1
 772 d106 2
 773 a107 1
 774 #endif  SYS5
 775 @
 776
 777
 778 1.3
 779 log
 780 @adios -> myadios
 781 @
 782 text
 783 @d6 3
 784 @
 785
 786
 787 1.2
 788 log
 789 @ANSI Compilance
 790 @
 791 text
 792 @d104 2
 793 @
 794
 795
 796 1.1
 797 log
 798 @Initial revision
 799 @
 800 text
 801 @d104 3
 802 @