MLKForm class cluster: Add instance variables.

3 files changed, 166 insertions, 11 deletions

diff --git a/GNUmakefile b/GNUmakefile
index 3f7ae93..87076d4 100644
--- a/GNUmakefile
+++ b/GNUmakefile
@@ -72,8 +72,9 @@ ToiletKit_LDFLAGS = -lgmp -lffi -ldl
 
 USE_LLVM := YES
 ifeq ($(USE_LLVM),YES)
+ADDITIONAL_OBJCCFLAGS = $(ADDITIONAL_OBJCFLAGS)
 ToiletKit_OBJCC_FILES = MLKLLVMCompiler.mm
-ToiletKit_OBJCCFLAGS = `llvm-config --cflags`
+ToiletKit_OBJCCFLAGS = `llvm-config --cflags` $(ToiletKit_OBJCFLAGS)
 ToiletKit_LDFLAGS += `llvm-config --ldflags` `llvm-config --libs`
 endif
 
diff --git a/MLKForm.h b/MLKForm.h
index ceafcb9..b918703 100644
--- a/MLKForm.h
+++ b/MLKForm.h
@@ -18,6 +18,7 @@
 
 #import "MLKForm.h"
 #import "MLKLexicalContext.h"
+#import "functions.h"
 
 #import <Foundation/NSObject.h>
 #import <Foundation/NSString.h>
@@ -84,51 +85,137 @@
 @end
 
 
+@interface MLKBodyForm : MLKCompoundForm
+{
+  id _body;
+  NSArray *_bodyForms;
+}
+@end
+
+
+@interface MLKDeclaringForm : MLKBodyForm
+{
+  id _declarations;
+  NSArray *_declarationForms;
+}
+@end
+
+
+@interface MLKDocstringForm : MLKDeclaringForm
+{
+  NSString *_documentation;
+}
+@end
+
+
 @interface MLKFunctionCallForm : MLKSimpleCompoundForm
+{
+  NSArray *_argumentForms;
+}
 @end
 
 
-@interface MLKCatchForm : MLKCompoundForm
+@interface MLKCatchForm : MLKBodyForm
+{
+  MLKForm *_tagForm;
+}
 @end
 
 
-@interface MLKSimpleDefmacroForm : MLKCompoundForm
+@interface MLKSimpleDefmacroForm : MLKDeclaringForm
+{
+  MLKSymbol *_name;
+}
 @end
 
 
-@interface MLKEvalWhenForm : MLKCompoundForm
+@interface MLKEvalWhenForm : MLKBodyForm
+{
+  BOOL _compileToplevel;
+  BOOL _loadToplevel;
+  BOOL _execute;
+}
 @end
 
 
 @interface MLKForeignLambdaForm : MLKCompoundForm
+{
+  NSString *_foreignName;
+  MLKSymbol *_name;
+  MLKForeignType _returnType;
+  MLKForeignType *_argumentTypes;
+  int _argc;
+}
+@end
+
+
+@interface MLKLambdaForm : MLKDocstringForm
+{
+  id _lambdaList;
+}
 @end
 
 
 @interface MLKFunctionForm : MLKCompoundForm
++(Class) dispatchClassForObject:(id)object;
+@end
+
+
+@interface MLKLambdaFunctionForm : MLKFunctionForm
+{
+  MLKLambdaForm *_lambdaForm;
+}
+@end
+
+
+@interface MLKSimpleFunctionForm : MLKFunctionForm
+{
+  id _functionName;
+}
 @end
 
 
 @interface MLKIfForm : MLKCompoundForm
+{
+  MLKForm *_conditionForm;
+  MLKForm *_consequentForm;
+  MLKForm *_alternativeForm;
+}
 @end
 
 
 @interface MLKInPackageForm : MLKCompoundForm
+{
+  id _packageDesignator;
+}
 @end
 
 
-@interface MLKSimpleLambdaForm : MLKCompoundForm
+@interface MLKSimpleLambdaForm : MLKDocstringForm
+{
+  MLKSymbol *_lambdaListName;
+}
 @end
 
 
-@interface MLKSimpleMacroletForm : MLKCompoundForm
+@interface MLKSimpleMacroletForm : MLKDeclaringForm
+-(id) initWithObject:(id)object
+           inContext:(MLKLexicalContext *)context
+         forCompiler:(id)compiler;
 @end
 
 
-@interface MLKSimpleFletForm : MLKCompoundForm
+@interface MLKSimpleFletForm : MLKDeclaringForm
+{
+  NSArray *_functionBindingForms;
+}
 @end
 
 
-@interface MLKLetForm : MLKCompoundForm
+@interface MLKLetForm : MLKDeclaringForm
+{
+  NSArray *_bindingForms;
+}
 @end
 
 
@@ -137,40 +224,74 @@
 
 
 @interface MLKMultipleValueCallForm : MLKCompoundForm
+{
+  id _functionForm;
+  NSArray *_subforms;
+}
 @end
 
 
-@interface MLKProgNForm : MLKCompoundForm
+@interface MLKProgNForm : MLKBodyForm
 @end
 
 
-@interface MLKProgVForm : MLKCompoundForm
+@interface MLKProgVForm : MLKBodyForm
+{
+  MLKForm *_variableListForm;
+  MLKForm *_valueListForm;
+}
 @end
 
 
 @interface MLKQuoteForm : MLKCompoundForm
+{
+  MLKForm *_quotedForm;
+}
 @end
 
 
 @interface MLKSetQForm : MLKCompoundForm
+{
+  NSArray *_variableForms;
+  NSArray *_valueForms;
+}
 @end
 
 
 @interface MLKFSetQForm : MLKCompoundForm
+{
+  NSArray *_functionNameForms;
+  NSArray *_valueForms;
+}
 @end
 
 
 @interface MLKSetForm : MLKCompoundForm
+{
+  MLKForm *_variableForm;
+  MLKForm *_valueForm;
+}
 @end
 
 
 @interface MLKFSetForm : MLKCompoundForm
+{
+  MLKForm *_functionNameForm;
+  MLKForm *_valueForm;
+}
 @end
 
 
 @interface MLKThrowForm : MLKCompoundForm
+{
+  MLKForm *_tagForm;
+  MLKForm *_valueForm;
+}
 @end
 
 
-@interface MLKUnwindProtectForm : MLKCompoundForm
+@interface MLKUnwindProtectForm : MLKBodyForm
+{
+  MLKForm *_protectedForm;
+}
 @end
diff --git a/MLKForm.m b/MLKForm.m
index 4d575e3..9e72681 100644
--- a/MLKForm.m
+++ b/MLKForm.m
@@ -209,7 +209,23 @@
 @end
 
 
+@implementation MLKBodyForm
+@end
+
+
+@implementation MLKDeclaringForm
+@end
+
+
+@implementation MLKDocstringForm
+@end
+
+
 @implementation MLKFunctionCallForm
+// -(id <MLKFuncallable>) functionInfo
+// {
+//   return [_context functionInfoForSymbol:_head];
+// }
 @end
 
 
@@ -230,6 +246,23 @@
 
 
 @implementation MLKFunctionForm
++(Class) dispatchClassForObject:(id)object
+{
+  id funname = [[object cdr] car];
+  if ([funname isKindOfClass:[MLKCons class]]
+      && [funname car] == LAMBDA)
+    return [MLKLambdaFunctionForm class];
+  else
+    return [MLKSimpleFunctionForm class];
+}
+@end
+
+
+@implementation MLKLambdaFunctionForm
+@end
+
+
+@implementation MLKSimpleFunctionForm
 @end