home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume21 / amd / part01 / rcs_info.c < prev    next >
C/C++ Source or Header  |  1990-04-10  |  2KB  |  95 lines
  1. /*
  2.  * $Id: rcs_info.c,v 5.1.1.1 90/01/11 17:17:42 jsp Exp Locker: jsp $
  3.  *
  4.  * Copyright (c) 1990 Jan-Simon Pendry
  5.  * Copyright (c) 1990 Imperial College of Science, Technology & Medicine
  6.  * Copyright (c) 1990 The Regents of the University of California.
  7.  * All rights reserved.
  8.  *
  9.  * This code is derived from software contributed to Berkeley by
  10.  * Jan-Simon Pendry at Imperial College, London.
  11.  *
  12.  * Redistribution and use in source and binary forms are permitted
  13.  * provided that the above copyright notice and this paragraph are
  14.  * duplicated in all such forms and that any documentation,
  15.  * advertising materials, and other materials related to such
  16.  * distribution and use acknowledge that the software was developed
  17.  * by Imperial College of Science, Technology and Medicine, London, UK.
  18.  * The names of the College and University may not be used to endorse
  19.  * or promote products derived from this software without specific
  20.  * prior written permission.
  21.  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  22.  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  23.  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  24.  *
  25.  *    %W% (Berkeley) %G%
  26.  */
  27.  
  28. /*
  29.  * Pretty-print some RCS information
  30.  */
  31.  
  32. #include "am.h"
  33.  
  34. void show_rcs_info(msg, buf)
  35. const char *msg;
  36. char *buf;
  37. {
  38.     /*
  39.      * Trivial fsm to print an RCS header without
  40.      * printing the RCS variables themselves.
  41.      */
  42.     const char *p = msg;
  43.  
  44.     enum rstate { Text, Header, Body, FQuit } st = Text;
  45.  
  46.     while (st != FQuit) {
  47.         if (st == Text || st == Body) {
  48.             /*
  49.              * Find next $
  50.              */
  51.             int len;
  52.             char *q = strchr(p, '$');
  53.             if (q) {
  54.                 /*
  55.                  * Write out upto the '$'
  56.                  */
  57.                 len = q-p-(st==Body?1:0);
  58.                 bcopy(p, buf, len);
  59.                 /*
  60.                  * Advance p
  61.                  */
  62.                 p = q+1;
  63.                 /*
  64.                  * Switch state
  65.                  */
  66.                 if (st == Body)
  67.                     st = Text;
  68.                 else
  69.                     st = Header;
  70.             } else {
  71.                 /*
  72.                  * Nothing more to do, write
  73.                  * out rest of line and quit
  74.                  */
  75.                 len = strlen(p);
  76.                 bcopy(p, buf, len);
  77.                 st = FQuit;
  78.             }
  79.             buf += len;
  80.         } else if (st == Header) {
  81.             /*
  82.              * Skip past $blah: part
  83.              */
  84.             char *q = strchr(p, ':');
  85.             if (q) {
  86.                 p = q+2;
  87.                 st = Body;
  88.             } else {
  89.                 st = FQuit;
  90.             }
  91.         }
  92.     }
  93.     *buf = '\0';
  94. }
  95.