[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;