diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-06 17:22:12 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-06 17:22:12 +0200 |
commit | d6851c5e380e025b6e55dff661b8c83ffbabd34d (patch) | |
tree | ddc511094f7247f0c0fd31537322e92f6abc0979 /MLKForeignProcedure.h | |
parent | 757b74dbcbb78eee894b0bdb916923ffb2d8e99b (diff) |
Add %FOREIGN-LAMBDA.
Diffstat (limited to 'MLKForeignProcedure.h')
-rw-r--r-- | MLKForeignProcedure.h | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/MLKForeignProcedure.h b/MLKForeignProcedure.h new file mode 100644 index 0000000..d424de4 --- /dev/null +++ b/MLKForeignProcedure.h @@ -0,0 +1,47 @@ +/* -*- mode: objc; coding: utf-8 -*- */ +/* Toilet Lisp, a Common Lisp subset for the Étoilé runtime. + * Copyright (C) 2008 Matthias Andreas Benkard. + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or (at + * your option) any later version. + * + * This program is distributed in the hope that it will be useful, but + * WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see <http://www.gnu.org/licenses/>. + */ + +#import "MLKFuncallable.h" +#import "MLKLispValue.h" +#import "MLKLexicalContext.h" +#import "MLKLexicalEnvironment.h" + +#import <Foundation/NSArray.h> +#import <Foundation/NSString.h> + +#import "functions.h" + + +@interface MLKForeignProcedure : MLKLispValue <MLKFuncallable> +{ + void *_code; + MLKForeignType *_argumentTypes; + MLKForeignType _returnType; +} + +-(id) initWithCode:(void *)code + argumentTypes:(NSArray *)argTypes + returnType:(id)returnType; + +-(NSArray *) applyToArray:(NSArray *)arguments; + +-(NSString *) description; +-(NSString *) descriptionForLisp; + +-(void) dealloc; +@end |