Rewrite chicken example and test-suite building code
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5948 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
830e72dba7
commit
acd0b021b1
35 changed files with 315 additions and 844 deletions
|
|
@ -1674,15 +1674,9 @@ void
|
|||
CHICKEN::addMethod(String *, String *scheme_name, String *function)
|
||||
{
|
||||
#ifndef BINDING
|
||||
/* unless Chicken is run in case-sensitive mode, all symbols need
|
||||
to be lowercase. Also, the symbols need the prefix. */
|
||||
/* The symbols need the prefix. */
|
||||
String *sym = NewString(prefix);
|
||||
Append(sym, scheme_name);
|
||||
char *s = Char(sym);
|
||||
const int L = Len(sym);
|
||||
for (int i=0; i < L; i++, s++) {
|
||||
*s = tolower(*s);
|
||||
}
|
||||
|
||||
/* add symbol to Chicken internal symbol table */
|
||||
Printf(f_sym_size, "+C_SIZEOF_INTERNED_SYMBOL(%d)", Len(sym));
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue