Make a load of internal functions static

None of these are prototyped, used outside of the file they are
declared in, or documented aside from comments above the function.

Source/CParse/cscanner.c

@@ -52,7 +52,7 @@ static int rename_active = 0;
 /* Doxygen comments scanning */
 int scan_doxygen_comments = 0;
 
-int isStructuralDoxygen(String *s) {
+static int isStructuralDoxygen(String *s) {
   static const char* const structuralTags[] = {
     "addtogroup",
     "callgraph",
@@ -122,7 +122,7 @@ void Swig_cparse_cplusplusout(int v) {
  * Initialize buffers
  * ------------------------------------------------------------------------- */
 
-void scanner_init(void) {
+static void scanner_init(void) {
   scan = NewScanner();
   Scanner_idstart(scan,"%");
   scan_init = 1;

Source/Modules/contract.cxx

@@ -119,7 +119,7 @@ Hash *Contracts::ContractSplit(Node *n) {
 }
 
 /* This function looks in base classes and collects contracts found */
-void inherit_contracts(Node *c, Node *n, Hash *contracts, Hash *messages) {
+static void inherit_contracts(Node *c, Node *n, Hash *contracts, Hash *messages) {
 
   Node *b, *temp;
   String *name, *type, *local_decl, *base_decl;

Source/Modules/lang.cxx

@@ -486,7 +486,7 @@ static Node *first_nontemplate(Node *n) {
  * Handle swig pragma directives.  
  * -------------------------------------------------------------------------- */
 
-void swig_pragma(char *lang, char *name, char *value) {
+static void swig_pragma(char *lang, char *name, char *value) {
   if (strcmp(lang, "swig") == 0) {
     if (strcmp(name, "attributefunction") == 0) {
       String *nvalue = NewString(value);

Source/Modules/main.cxx

@@ -307,7 +307,7 @@ List *SWIG_output_files() {
   return all_output_files;
 }
 
-void SWIG_setfeature(const char *cfeature, const char *cvalue) {
+static void SWIG_setfeature(const char *cfeature, const char *cvalue) {
   Hash *features_hash = Swig_cparse_features();
   String *name = NewString("");
   String *fname = NewString(cfeature);
@@ -319,7 +319,7 @@ void SWIG_setfeature(const char *cfeature, const char *cvalue) {
 }
 
 
-void SWIG_setfeatures(const char *c) {
+static void SWIG_setfeatures(const char *c) {
   char feature[64];
   char *fb = feature;
   char *fe = fb + 63;

Source/Modules/swigmain.cxx

@@ -90,7 +90,7 @@ static TargetLanguageModule modules[] = {
 // Main program.    Initializes the files and starts the parser.
 //-----------------------------------------------------------------
 
-void SWIG_merge_envopt(const char *env, int oargc, char *oargv[], int *nargc, char ***nargv) {
+static void SWIG_merge_envopt(const char *env, int oargc, char *oargv[], int *nargc, char ***nargv) {
   if (!env) {
     *nargc = oargc;
     *nargv = (char **)Malloc(sizeof(char *) * (oargc + 1));

Source/Preprocessor/cpp.c

@@ -288,7 +288,7 @@ void Preprocessor_error_as_warning(int a) {
  * ----------------------------------------------------------------------------- */
 
 
-String *Macro_vararg_name(const_String_or_char_ptr str, const_String_or_char_ptr line) {
+static String *Macro_vararg_name(const_String_or_char_ptr str, const_String_or_char_ptr line) {
   String *varargname;
   char *s, *dots;
 

Source/Swig/cwrap.c

@@ -160,7 +160,7 @@ String *Swig_wrapped_var_type(SwigType *t, int varcref) {
   return ty;
 }
 
-String *Swig_wrapped_member_var_type(SwigType *t, int varcref) {
+static String *Swig_wrapped_member_var_type(SwigType *t, int varcref) {
   SwigType *ty;
 
   if (!Strstr(t, "enum $unnamed")) {
@@ -575,7 +575,7 @@ String *Swig_cconstructor_call(const_String_or_char_ptr name) {
  *
  * ----------------------------------------------------------------------------- */
 
-String *Swig_cppconstructor_base_call(const_String_or_char_ptr name, ParmList *parms, int skip_self) {
+static String *Swig_cppconstructor_base_call(const_String_or_char_ptr name, ParmList *parms, int skip_self) {
   String *func;
   String *nname;
   int i = 0;
@@ -627,11 +627,11 @@ String *Swig_cppconstructor_call(const_String_or_char_ptr name, ParmList *parms)
   return Swig_cppconstructor_base_call(name, parms, 0);
 }
 
-String *Swig_cppconstructor_nodirector_call(const_String_or_char_ptr name, ParmList *parms) {
+static String *Swig_cppconstructor_nodirector_call(const_String_or_char_ptr name, ParmList *parms) {
   return Swig_cppconstructor_base_call(name, parms, 1);
 }
 
-String *Swig_cppconstructor_director_call(const_String_or_char_ptr name, ParmList *parms) {
+static String *Swig_cppconstructor_director_call(const_String_or_char_ptr name, ParmList *parms) {
   return Swig_cppconstructor_base_call(name, parms, 0);
 }
 

Source/Swig/misc.c

@@ -394,7 +394,7 @@ String *Swig_string_escape(String *s) {
  * Hex escaping is used.
  * ----------------------------------------------------------------------------- */
 
-String *Swig_string_hexescape(String *s) {
+static String *Swig_string_hexescape(String *s) {
   String *ns;
   int c;
   ns = NewStringEmpty();
@@ -493,7 +493,7 @@ String *Swig_string_title(String *s) {
  *      camelCase  -> CamelCase
  * ----------------------------------------------------------------------------- */
 
-String *Swig_string_ccase(String *s) {
+static String *Swig_string_ccase(String *s) {
   String *ns;
   int first = 1;
   int c;
@@ -522,7 +522,7 @@ String *Swig_string_ccase(String *s) {
  *      CamelCase  -> camelCase
  * ----------------------------------------------------------------------------- */
 
-String *Swig_string_lccase(String *s) {
+static String *Swig_string_lccase(String *s) {
   String *ns;
   int first = 1;
   int after_underscore = 0;
@@ -556,7 +556,7 @@ String *Swig_string_lccase(String *s) {
  *      asFloat2  -> as_float2
  * ----------------------------------------------------------------------------- */
 
-String *Swig_string_ucase(String *s) {
+static String *Swig_string_ucase(String *s) {
   String *ns;
   int c;
   int lastC = 0;
@@ -605,7 +605,7 @@ String *Swig_string_ucase(String *s) {
  *      firstUpper -> FirstUpper 
  * ----------------------------------------------------------------------------- */
 
-String *Swig_string_first_upper(String *s) {
+static String *Swig_string_first_upper(String *s) {
   String *ns = NewStringEmpty();
   char *cs = Char(s);
   if (cs && cs[0] != 0) {
@@ -626,7 +626,7 @@ String *Swig_string_first_upper(String *s) {
  *      firstLower -> FirstLower 
  * ----------------------------------------------------------------------------- */
 
-String *Swig_string_first_lower(String *s) {
+static String *Swig_string_first_lower(String *s) {
   String *ns = NewStringEmpty();
   char *cs = Char(s);
   if (cs && cs[0] != 0) {
@@ -644,7 +644,7 @@ String *Swig_string_first_lower(String *s) {
  *      under_scores -> under-scores
  * ----------------------------------------------------------------------------- */
 
-String *Swig_string_schemify(String *s) {
+static String *Swig_string_schemify(String *s) {
   String *ns = NewString(s);
   Replaceall(ns, "_", "-");
   return ns;
@@ -657,7 +657,7 @@ String *Swig_string_schemify(String *s) {
  * real C datatypes.
  * ----------------------------------------------------------------------------- */
 
-String *Swig_string_typecode(String *s) {
+static String *Swig_string_typecode(String *s) {
   String *ns;
   int c;
   String *tc;
@@ -1032,7 +1032,7 @@ int Swig_scopename_check(const String *s) {
  * Feature removed in SWIG 4.1.0.
  * ----------------------------------------------------------------------------- */
 
-String *Swig_string_command(String *s) {
+static String *Swig_string_command(String *s) {
   Swig_error("SWIG", Getline(s), "Command encoder no longer supported - use regex encoder instead, command:%s\n", s);
   Exit(EXIT_FAILURE);
   return 0;
@@ -1046,7 +1046,7 @@ String *Swig_string_command(String *s) {
  *  Printf(stderr,"%(strip:[wx])s","wxHello") -> Hello
  * ----------------------------------------------------------------------------- */
 
-String *Swig_string_strip(String *s) {
+static String *Swig_string_strip(String *s) {
   String *ns;
   if (!Len(s)) {
     ns = NewString(s);
@@ -1076,7 +1076,7 @@ String *Swig_string_strip(String *s) {
  *  Printf(stderr,"%(rstrip:[Cls])s","HelloCls") -> Hello
  * ----------------------------------------------------------------------------- */
 
-String *Swig_string_rstrip(String *s) {
+static String *Swig_string_rstrip(String *s) {
   String *ns;
   int len = Len(s);
   if (!len) {
@@ -1216,7 +1216,7 @@ static void copy_with_maybe_case_conversion(String *dst, const char *src, int le
   }
 }
 
-String *replace_captures(int num_captures, const char *input, String *subst, size_t captures[], String *pattern, String *s)
+static String *replace_captures(int num_captures, const char *input, String *subst, size_t captures[], String *pattern, String *s)
 {
   int convertCase = 0, convertNextOnly = 0;
   String *result = NewStringEmpty();
@@ -1286,7 +1286,7 @@ String *replace_captures(int num_captures, const char *input, String *subst, siz
  *
  *   Printf(stderr,"gsl%(regex:/GSL_(.*)_/\\1/)s", "GSL_Hello_") -> gslHello
  * ----------------------------------------------------------------------------- */
-String *Swig_string_regex(String *s) {
+static String *Swig_string_regex(String *s) {
   const int pcre_options = 0;
 
   String *res = 0;

Source/Swig/typesys.c

@@ -264,7 +264,7 @@ int SwigType_typedef_class(const_String_or_char_ptr name) {
  * Returns the qualified scope name of a type table
  * ----------------------------------------------------------------------------- */
 
-String *SwigType_scope_name(Typetab *ttab) {
+static String *SwigType_scope_name(Typetab *ttab) {
   String *qname = NewString(Getattr(ttab, "name"));
   ttab = Getattr(ttab, "parent");
   while (ttab) {
@@ -1765,7 +1765,7 @@ void (*SwigType_remember_trace(void (*tf) (const SwigType *, String *, String *)
  * r_resolved hash and combine them together in a list (removing duplicate entries).
  * ----------------------------------------------------------------------------- */
 
-List *SwigType_equivalent_mangle(String *ms, Hash *checked, Hash *found) {
+static List *SwigType_equivalent_mangle(String *ms, Hash *checked, Hash *found) {
   List *l;
   Hash *h;
   Hash *ch;
@@ -1957,7 +1957,7 @@ int SwigType_issubtype(const SwigType *t1, const SwigType *t2) {
  * Modify the type table to handle C++ inheritance
  * ----------------------------------------------------------------------------- */
 
-void SwigType_inherit_equiv(File *out) {
+static void SwigType_inherit_equiv(File *out) {
   String *ckey;
   String *prefix, *base;
   String *mprefix, *mkey;