blob: 8a79a992309e7a877974ef2dc51cbfdc7ad0b2ed (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
/* -*- 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 <Foundation/NSArray.h>
/* Class: MLKCons
A cons cell.
A cons cell (or simply: a cons) is an ordered pair whose first
element is called the car and whose second element is called the cdr
of the cons. Cons cells are mutable by default.
Note that nil is explicitely allowed as both the car and cdr of a
cons cell. In fact, when representing linked lists using cons cells,
nil in the cdr of the last cons cell is what conventionally marks the
end of a list.
*/
@interface MLKCons : NSObject <NSCopying>
{
id _car;
id _cdr;
}
/* Method: +cons:with:
Cons two objects together.
Arguments:
car - The car of the new cons cell.
cdr - The cdr of the new cons cell.
Returns: A newly allocated cons.
*/
+(MLKCons*) cons:(id)car with:(id)cdr;
/* Method: +listWithArray:
Make a linked list of cons cells out of an array. */
+(MLKCons*) listWithArray:(NSArray *)array;
/* Method: -initWithCar:cdr:
Initialise a new cons cell with a car and cdr.
Arguments:
car - The car of the cons cell.
cdr - The cdr of the cons cell.
Returns: The initialised cons cell.
*/
-(MLKCons*) initWithCar:(id)car cdr:(id)cdr;
/* Method: -car
The car of the cons cell.
Returns: An object (may be nil).
*/
-(id) car;
/* Method: -cdr
The cdr of the cons cell.
Returns: An object (may be nil).
*/
-(id) cdr;
/* Method: -setCar:
Change the car of the cons cell.
Arguments:
value - The new value.
*/
-(void) setCar:(id)value;
/* Method: -setCdr:
Change the cdr of the cons cell.
Arguments:
value - The new value.
*/
-(void) setCdr:(id)value;
/* Method: -array
Return the content of the linked list represented by this cons cell as an array.
*/
-(NSArray *) array;
-(void) appendObject:(id)object;
-(MLKCons *) listByAppendingObject:(id)object;
-(MLKCons *) copyList;
-(int) length;
-(NSString *) bareDescriptionForLisp; // description without
// parentheses, for internal use
// only
-(NSString *) descriptionForLisp;
-(id) copyWithZone:(NSZone *)zone;
-(BOOL) isEqual:(id)object;
-(void) dealloc;
@end
|
