[sword-cvs] sword/bindings/swig/perl Sword.cxx,1.10,1.11 Sword.pm,1.8,1.9

sword@www.crosswire.org sword@www.crosswire.org
Fri, 16 May 2003 12:49:54 -0700


Update of /usr/local/cvsroot/sword/bindings/swig/perl
In directory www:/tmp/cvs-serv2734/perl

Modified Files:
	Sword.cxx Sword.pm 
Log Message:
added getShortText function to Swig bindings

Index: Sword.cxx
===================================================================
RCS file: /usr/local/cvsroot/sword/bindings/swig/perl/Sword.cxx,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Sword.cxx	24 Mar 2003 22:56:24 -0000	1.10
--- Sword.cxx	16 May 2003 19:49:52 -0000	1.11
***************
*** 1,5 ****
  /* ----------------------------------------------------------------------------
   * This file was automatically generated by SWIG (http://www.swig.org).
!  * Version 1.3.18
   * 
   * This file is not intended to be easily readable and contains a number of 
--- 1,5 ----
  /* ----------------------------------------------------------------------------
   * This file was automatically generated by SWIG (http://www.swig.org).
!  * Version 1.3.17u-20030317-1807
   * 
   * This file is not intended to be easily readable and contains a number of 
***************
*** 91,95 ****
  SWIGIMPORT(void *)           SWIG_TypeCast(swig_type_info *, void *);
  SWIGIMPORT(swig_type_info *) SWIG_TypeDynamicCast(swig_type_info *, void **);
- SWIGIMPORT(const char *)     SWIG_TypeName(const swig_type_info *);
  SWIGIMPORT(swig_type_info *) SWIG_TypeQuery(const char *);
  SWIGIMPORT(void)             SWIG_TypeClientData(swig_type_info *, void *);
--- 91,94 ----
***************
*** 134,138 ****
      tc++;
    }
-   if (next) next->prev = head;  /**/
    head->next = next;
    return ret;
--- 133,136 ----
***************
*** 158,162 ****
        if (ty->next) ty->next->prev = s;
        ty->next = s;
-       s->prev = ty;  /**/
        return s;
      }
--- 156,159 ----
***************
*** 187,196 ****
  }
  
- /* Return the name associated with this type */
- SWIGRUNTIME(const char *)
- SWIG_TypeName(const swig_type_info *ty) {
-   return ty->name;
- }
- 
  /* Search for a swig_type_info structure */
  SWIGRUNTIME(swig_type_info *)
--- 184,187 ----
***************
*** 518,573 ****
  
  
- #ifdef do_open
-   #undef do_open
- #endif
- #ifdef do_close
-   #undef do_close
- #endif
- #ifdef scalar
-   #undef scalar
- #endif
- #ifdef list
-   #undef list
- #endif
- #ifdef apply
-   #undef apply
- #endif
- #ifdef convert
-   #undef convert
- #endif
- #ifdef Error
-   #undef Error
- #endif
- #ifdef form
-   #undef form
- #endif
- #ifdef vform
-   #undef vform
- #endif
- #ifdef LABEL
-   #undef LABEL
- #endif
- #ifdef METHOD
-   #undef METHOD
- #endif
- #ifdef Move
-   #undef Move
- #endif
- #ifdef yylex
-   #undef yylex
- #endif
- #ifdef yyparse
-   #undef yyparse
- #endif
- #ifdef yyerror
-   #undef yyerror
- #endif
- #ifdef invert
-   #undef invert
- #endif
- #ifdef ref
-   #undef ref
- #endif
- 
  
  /* -------- TYPES TABLE (BEGIN) -------- */
--- 509,512 ----
***************
*** 1489,1498 ****
          {
              if (arg1->prefixPath) delete [] arg1->prefixPath;
!             if (arg2) {
!                 arg1->prefixPath = (char *) (new char[strlen(arg2)+1]);
!                 strcpy((char *) arg1->prefixPath,arg2);
!             }else {
!                 arg1->prefixPath = 0;
!             }
          }
          
--- 1428,1433 ----
          {
              if (arg1->prefixPath) delete [] arg1->prefixPath;
!             arg1->prefixPath = (char *) (new char[strlen(arg2)+1]);
!             strcpy((char *) arg1->prefixPath,arg2);
          }
          
***************
*** 1559,1568 ****
          {
              if (arg1->configPath) delete [] arg1->configPath;
!             if (arg2) {
!                 arg1->configPath = (char *) (new char[strlen(arg2)+1]);
!                 strcpy((char *) arg1->configPath,arg2);
!             }else {
!                 arg1->configPath = 0;
!             }
          }
          
--- 1494,1499 ----
          {
              if (arg1->configPath) delete [] arg1->configPath;
!             arg1->configPath = (char *) (new char[strlen(arg2)+1]);
!             strcpy((char *) arg1->configPath,arg2);
          }
          
***************
*** 4869,4872 ****
--- 4800,4836 ----
  
  
+ XS(_wrap_VerseKey_getShortText) {
+     char _swigmsg[SWIG_MAX_ERRMSG] = "";
+     const char *_swigerr = _swigmsg;
+     {
+         VerseKey *arg1 = (VerseKey *) 0 ;
+         char *result;
+         int argvi = 0;
+         dXSARGS;
+         
+         if ((items < 1) || (items > 1)) {
+             SWIG_croak("Usage: VerseKey_getShortText(self);");
+         }
+         {
+             if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_VerseKey,0) < 0) {
+                 SWIG_croak("Type error in argument 1 of VerseKey_getShortText. Expected _p_VerseKey");
+             }
+         }
+         result = (char *)((VerseKey const *)arg1)->getShortText();
+         
+         ST(argvi) = sv_newmortal();
+         if (result) {
+             sv_setpv((SV*)ST(argvi++), (char *) result);
+         }else {
+             sv_setsv((SV*)ST(argvi++), &PL_sv_undef);
+         }
+         XSRETURN(argvi);
+         fail:
+         (void) _swigerr;
+     }
+     croak(_swigerr);
+ }
+ 
+ 
  XS(_wrap_VerseKey_Traversable) {
      char _swigmsg[SWIG_MAX_ERRMSG] = "";
***************
*** 9183,9186 ****
--- 9147,9151 ----
  {"Swordc::VerseKey_getText", _wrap_VerseKey_getText},
  {"Swordc::VerseKey_getRangeText", _wrap_VerseKey_getRangeText},
+ {"Swordc::VerseKey_getShortText", _wrap_VerseKey_getShortText},
  {"Swordc::VerseKey_Traversable", _wrap_VerseKey_Traversable},
  {"Swordc::VerseKey_decrement", _wrap_VerseKey_decrement},

Index: Sword.pm
===================================================================
RCS file: /usr/local/cvsroot/sword/bindings/swig/perl/Sword.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Sword.pm	24 Feb 2003 06:59:16 -0000	1.8
--- Sword.pm	16 May 2003 19:49:52 -0000	1.9
***************
*** 525,528 ****
--- 525,529 ----
  *getText = *Swordc::VerseKey_getText;
  *getRangeText = *Swordc::VerseKey_getRangeText;
+ *getShortText = *Swordc::VerseKey_getShortText;
  *Traversable = *Swordc::VerseKey_Traversable;
  *decrement = *Swordc::VerseKey_decrement;