[Swig-cvs] SWIG/Source/Modules allegrocl.cxx,1.12,1.13

[Matthias K. <mk...@us...>]

Update of /cvsroot/swig/SWIG/Source/Modules
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8861

Modified Files:
	allegrocl.cxx 
Log Message:
Make several helper functions "static".


Index: allegrocl.cxx
===================================================================
RCS file: /cvsroot/swig/SWIG/Source/Modules/allegrocl.cxx,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** allegrocl.cxx	24 Apr 2005 20:34:51 -0000	1.12
--- allegrocl.cxx	13 Jul 2005 11:35:55 -0000	1.13
***************
*** 22,28 ****
  } defined_foreign_types;
  
! const char *identifier_converter="identifier-convert-null";
  
! int any_varargs(ParmList *pl) {
    Parm *p;
    
--- 22,28 ----
  } defined_foreign_types;
  
! static const char *identifier_converter="identifier-convert-null";
  
! static int any_varargs(ParmList *pl) {
    Parm *p;
    
***************
*** 38,42 ****
  /* utilities */
  /* returns new string w/ parens stripped */
! String *strip_parens(String *string) {
  	char *s=Char(string), *p;
  	int len=Len(string);
--- 38,42 ----
  /* utilities */
  /* returns new string w/ parens stripped */
! static String *strip_parens(String *string) {
  	char *s=Char(string), *p;
  	int len=Len(string);
***************
*** 63,67 ****
  
  
! String *convert_literal(String *num_param, String *type) {
  	String *num=strip_parens(num_param), *res;
  	char *s=Char(num);
--- 63,67 ----
  
  
! static String *convert_literal(String *num_param, String *type) {
  	String *num=strip_parens(num_param), *res;
  	char *s=Char(num);
***************
*** 101,105 ****
  }
  
! void add_defined_foreign_type(String *type) {
    if (!defined_foreign_types.count) {
      /* Make fresh */
--- 101,105 ----
  }
  
! static void add_defined_foreign_type(String *type) {
    if (!defined_foreign_types.count) {
      /* Make fresh */
***************
*** 126,130 ****
  
  
! String *get_ffi_type(SwigType *ty, const String_or_char *name) {
    Hash *typemap = Swig_typemap_search("ffitype", ty, name, 0);
    if (typemap) {
--- 126,130 ----
  
  
! static String *get_ffi_type(SwigType *ty, const String_or_char *name) {
    Hash *typemap = Swig_typemap_search("ffitype", ty, name, 0);
    if (typemap) {
***************
*** 170,174 ****
  }
  
! String *get_lisp_type(SwigType *ty, const String_or_char *name)
  {
    Hash *typemap = Swig_typemap_search("lisptype", ty, name, 0);
--- 170,174 ----
  }
  
! static String *get_lisp_type(SwigType *ty, const String_or_char *name)
  {
    Hash *typemap = Swig_typemap_search("lisptype", ty, name, 0);