Hiding internal functions

diff --git a/pcrs.c b/pcrs.c
index a748a3b..8b23322 100644 (file)
--- a/pcrs.c
+++ b/pcrs.c
@@ -1,4 +1,4 @@
-const char pcrs_rcs[] = "$Id: pcrs.c,v 1.15 2001/09/20 16:11:06 steudten Exp $";
+const char pcrs_rcs[] = "$Id: pcrs.c,v 1.16 2001/11/30 21:32:14 jongfoster Exp $";

 
 /*********************************************************************
  *
 
 /*********************************************************************
  *


@@ -33,6 +33,10 @@ const char pcrs_rcs[] = "$Id: pcrs.c,v 1.15 2001/09/20 16:11:06 steudten Exp $";
  *
  * Revisions   :
  *    $Log: pcrs.c,v $
  *
  * Revisions   :
  *    $Log: pcrs.c,v $

+ *    Revision 1.16  2001/11/30 21:32:14  jongfoster
+ *    Fixing signed/unsigned comparison (Andreas please check this!)
+ *    One tab->space
+ *

  *    Revision 1.15  2001/09/20 16:11:06  steudten
  *
  *    Add casting for some string functions.
  *    Revision 1.15  2001/09/20 16:11:06  steudten
  *
  *    Add casting for some string functions.


@@ -124,6 +128,14 @@ const char pcrs_rcs[] = "$Id: pcrs.c,v 1.15 2001/09/20 16:11:06 steudten Exp $";
 
 const char pcrs_h_rcs[] = PCRS_H_VERSION;
 
 
 const char pcrs_h_rcs[] = PCRS_H_VERSION;
 

+/*
+ * Internal prototypes
+ */
+
+static int              pcrs_parse_perl_options(const char *optstring, int *flags);
+static pcrs_substitute *pcrs_compile_replacement(const char *replacement, int trivialflag,
+                        int capturecount, int *errptr);
+

 /*********************************************************************
  *
  * Function    :  pcrs_strerror
 /*********************************************************************
  *
  * Function    :  pcrs_strerror


@@ -191,7 +203,7 @@ const char *pcrs_strerror(const int error)
  * Returns     :  option integer suitable for pcre 
  *
  *********************************************************************/
  * Returns     :  option integer suitable for pcre 
  *
  *********************************************************************/

-int pcrs_parse_perl_options(const char *optstring, int *flags)
+static int pcrs_parse_perl_options(const char *optstring, int *flags)

 {
    size_t i;
    int rc = 0;
 {
    size_t i;
    int rc = 0;


@@ -244,7 +256,7 @@ int pcrs_parse_perl_options(const char *optstring, int *flags)
  *                the reason.
  *
  *********************************************************************/
  *                the reason.
  *
  *********************************************************************/

-pcrs_substitute *pcrs_compile_replacement(const char *replacement, int trivialflag, int capturecount, int *errptr)
+static pcrs_substitute *pcrs_compile_replacement(const char *replacement, int trivialflag, int capturecount, int *errptr)

 {
    int length, i, k, l, quoted;
    char *text;
 {
    int length, i, k, l, quoted;
    char *text;


@@ -324,7 +336,7 @@ pcrs_substitute *pcrs_compile_replacement(const char *replacement, int trivialfl
                      text[k++] = '\f';
                      break;
                   case 'a':
                      text[k++] = '\f';
                      break;
                   case 'a':

-                     text[k++] = '\a';
+                     text[k++] = 7;

                      break;
                   case 'e':
                      text[k++] = 27;
                      break;
                   case 'e':
                      text[k++] = 27;