jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rename the three smob types to "swig-pointer",

Browse source 
"collectable-swig-pointer", "destroyed-swig-pointer", so that the
automatically generated class metaobjects <swig-pointer> etc. do not
contain whitespace (which prints stranegly as a symbol) and do not
clash with the <swig> class metaobject of the GOOPS wrapper.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5394 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Matthias Köppe 2003-11-25 17:03:59 +00:00
commit 482ee2360f
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
SWIG/Lib/guile/guile_scm_run.swg
View file

@ -208,7 +208,7 @@ print_swig_aux (SCM swig_smob, SCM port, scm_print_state *pstate, const char *at
if (type) { if (type) {
scm_puts((char *) "#<", port); scm_puts((char *) "#<", port);
scm_puts(attribute, port); scm_puts(attribute, port);
scm_puts("swig ", port); scm_puts("swig-pointer ", port);
if (type->str != NULL) if (type->str != NULL)
scm_puts(type->str, port); scm_puts(type->str, port);
else else
@ -233,13 +233,13 @@ print_swig (SCM swig_smob, SCM port, scm_print_state *pstate)
static int static int
print_collectable_swig (SCM swig_smob, SCM port, scm_print_state *pstate) print_collectable_swig (SCM swig_smob, SCM port, scm_print_state *pstate)
{ {
return print_swig_aux(swig_smob, port, pstate, "collectable "); return print_swig_aux(swig_smob, port, pstate, "collectable-");
} }
static int static int
print_destroyed_swig (SCM swig_smob, SCM port, scm_print_state *pstate) print_destroyed_swig (SCM swig_smob, SCM port, scm_print_state *pstate)
{ {
return print_swig_aux(swig_smob, port, pstate, "destroyed "); return print_swig_aux(swig_smob, port, pstate, "destroyed-");
} }
static SCM static SCM
@ -266,20 +266,20 @@ SWIGRUNTIME(void)
SWIG_Guile_Init () SWIG_Guile_Init ()
{ {
if (!swig_tag) { if (!swig_tag) {
swig_tag = scm_make_smob_type((char*)"swig", 0); swig_tag = scm_make_smob_type((char*)"swig-pointer", 0);
scm_set_smob_print(swig_tag, print_swig); scm_set_smob_print(swig_tag, print_swig);
scm_set_smob_equalp(swig_tag, equalp_swig); scm_set_smob_equalp(swig_tag, equalp_swig);
} }
if (!swig_collectable_tag) { if (!swig_collectable_tag) {
swig_collectable_tag = scm_make_smob_type((char*)"collectable swig", 0); swig_collectable_tag = scm_make_smob_type((char*)"collectable-swig-pointer", 0);
scm_set_smob_print(swig_collectable_tag, print_collectable_swig); scm_set_smob_print(swig_collectable_tag, print_collectable_swig);
scm_set_smob_equalp(swig_collectable_tag, equalp_swig); scm_set_smob_equalp(swig_collectable_tag, equalp_swig);
scm_set_smob_free(swig_collectable_tag, free_swig); scm_set_smob_free(swig_collectable_tag, free_swig);
} }
if (!swig_destroyed_tag) { if (!swig_destroyed_tag) {
swig_destroyed_tag = scm_make_smob_type((char*)"destroyed swig", 0); swig_destroyed_tag = scm_make_smob_type((char*)"destroyed-swig-pointer", 0);
scm_set_smob_print(swig_destroyed_tag, print_destroyed_swig); scm_set_smob_print(swig_destroyed_tag, print_destroyed_swig);
scm_set_smob_equalp(swig_destroyed_tag, equalp_swig); scm_set_smob_equalp(swig_destroyed_tag, equalp_swig);
} }