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

Warning cleanup. Etc.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5003 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2003-08-15 19:37:27 +00:00
commit 66036e07bd
4 changed files with 36 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

25
SWIG/Source/DOH/base.c
View file

@ -829,3 +829,28 @@ DohGetmark(DOH *ho) {
DohBase *h = (DohBase *) ho;
return h->flag_usermark;
}
/* -----------------------------------------------------------------------------
* DohCall()
*
* Invokes a function via DOH. A Function is represented by a hash table with
* the following attributes:
*
* "builtin" - Pointer to built-in function (if any)
*
* (Additional attributes may be added later)
*
* Returns a DOH object with result on success. Returns NULL on error
* ----------------------------------------------------------------------------- */
DOH *
DohCall(DOH *func, DOH *args) {
DOH *result;
DOH *(*builtin)(DOH *);
builtin = (DOH *(*)(DOH *)) GetVoid(func,"builtin");
if (!builtin) return 0;
result = (*builtin)(args);
return result;
}