case mode fixes for allegrocl module

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6070 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Ahmon Dancy 2004-08-03 23:07:45 +00:00
commit 440a4592e3
3 changed files with 15 additions and 6 deletions

View file

@ -360,10 +360,9 @@ int ALLEGROCL :: classDeclaration(Node *n) {
Printf(stderr, " (name: %s)\n", name);
SWIG_exit(EXIT_FAILURE);
}
Printf(f_cl,
"(ff:def-foreign-type #.(%s \"%s\" :type :type)\n (:struct\n",
identifier_converter,
"(swig-def-foreign-type \"%s\"\n (:struct\n",
name);
for (c=firstChild(n); c; c=nextSibling(c)) {