summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-08-17 11:38:09 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-08-17 12:02:19 +0200
commit22dc528bcebd30bd8a274fca0d7d728e917c7ec2 (patch)
treef6a4ae7df7e09740009d04e2ff1dbf63cfe8c44c
parent3f11cb6b3ddd03d3211dd355cbac23884fa5a6e3 (diff)
MLKForm class cluster: Add a couple of accessors to forms that are only processed indirectly.
-rw-r--r--MLKForm.h8
-rw-r--r--MLKForm.m26
2 files changed, 34 insertions, 0 deletions
diff --git a/MLKForm.h b/MLKForm.h
index 29483ef..ac08241 100644
--- a/MLKForm.h
+++ b/MLKForm.h
@@ -91,6 +91,7 @@
{
id _body;
NSArray *_bodyForms;
+ id _bodyContext;
}
-(void) splitDeclarationsAndBody:(id)object;
@@ -319,6 +320,10 @@
}
+(Class) dispatchClassForObject:(id)object;
+
+-(id) name;
+-(id) lambdaListName;
+-(id) bodyForms;
@end
@@ -329,6 +334,9 @@
}
+(Class) dispatchClassForObject:(id)object;
+
+-(id) name;
+-(id) valueForm;
@end
diff --git a/MLKForm.m b/MLKForm.m
index a5bebe5..b7be502 100644
--- a/MLKForm.m
+++ b/MLKForm.m
@@ -246,6 +246,7 @@
rest = [rest cdr];
}
+ LASSIGN (_bodyContext, context);
LASSIGN (_bodyForms, bodyForms);
}
@@ -883,6 +884,21 @@
inContext:newContext];
return self;
}
+
+-(id) name
+{
+ return _name;
+}
+
+-(id) lambdaListName
+{
+ return _lambdaListName;
+}
+
+-(id) bodyForms
+{
+ return _bodyForms;
+}
@end
@@ -914,6 +930,16 @@
{
return [[super subforms] arrayByAddingObject:_valueForm];
}
+
+-(id) name
+{
+ return _name;
+}
+
+-(id) valueForm
+{
+ return _valueForm;
+}
@end