diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/sbr/RCS/strindex.c,v

   1 head    2.3;
   2 access;
   3 symbols;
   4 locks; strict;
   5 comment @ * @;
   6
   7
   8 2.3
   9 date    92.12.15.00.20.22;      author jromine; state Exp;
  10 branches;
  11 next    2.2;
  12
  13 2.2
  14 date    90.04.05.15.30.30;      author sources; state Exp;
  15 branches;
  16 next    2.1;
  17
  18 2.1
  19 date    90.04.05.14.44.25;      author sources; state Exp;
  20 branches;
  21 next    2.0;
  22
  23 2.0
  24 date    89.11.17.15.57.26;      author sources; state Exp;
  25 branches;
  26 next    1.1;
  27
  28 1.1
  29 date    89.11.17.15.44.28;      author sources; state Exp;
  30 branches;
  31 next    ;
  32
  33
  34 desc
  35 @@
  36
  37
  38 2.3
  39 log
  40 @endif sugar
  41 @
  42 text
  43 @/* strindex.c - "unsigned" lexical index */
  44 #ifndef lint
  45 static char ident[] = "@@(#)$Id: strindex.c,v 2.2 1990/04/05 15:30:30 sources Exp jromine $";
  46 #endif  /* lint */
  47
  48
  49 int  stringdex (p1, p2)
  50 register char  *p1,
  51                *p2;
  52 {
  53     register char  *p;
  54
  55     if (p1 == 0 || p2 == 0) return(-1);         /* XXX */
  56
  57     for (p = p2; *p; p++)
  58         if (uprf (p, p1))
  59             return (p - p2);
  60
  61     return (-1);
  62 }
  63 @
  64
  65
  66 2.2
  67 log
  68 @add ID
  69 @
  70 text
  71 @d3 2
  72 a4 2
  73 static char ident[] = "@@(#)$Id:$";
  74 #endif  lint
  75 @
  76
  77
  78 2.1
  79 log
  80 @add ID
  81 @
  82 text
  83 @d3 1
  84 a3 1
  85 static char ident[] = "$Id:";
  86 @
  87
  88
  89 2.0
  90 log
  91 @changes for SUN40 shared libraries and NNTP under bbc
  92 @
  93 text
  94 @d2 3
  95 @
  96
  97
  98 1.1
  99 log
 100 @Initial revision
 101 @
 102 text
 103 @d10 2
 104 @