smalltalk-tng

view r3/barewords.tng @ 323:454c18798969

find changesets by author, revision, files, or words in the commit message
merger
author Tony Garnock-Jones <tonygarnockjones@gmail.com>
date Tue Feb 07 11:34:20 2012 -0500 (3 months ago)
parents
children
line source
1 define [
2 .proto: [.list: .nil]
3
4 (x=[.list: _] .initialize: aList):
5 (x \ [.list: aList])
6
7 (x=[.list: l] .with: aThing):
8 (x \ [.list: (l .with: aThing)])
9
10 (x=[.list: l] .handle):
11 (l .do: [eachItem: eachItem .print])
12 ];;
13
14
15 define [
16 proto: [list: nil]
17
18 (.x=[list: _] initialize: .aList):
19 (.x \ [list: .aList])
20
21 (.x=[list: .l] with: .aThing):
22 (.x \ [list: (.l with: .aThing)])
23
24 (.x=[list: .l] handle):
25 (.l do: [.eachItem: .eachItem print])
26 ];;
27
28
29 "
30 The problem is really barewords. (Or applications, if you want to look at it that way.)
31 What if application got syntax? f $ x
32 $ looks like S, for Send
33
34 We need to do something about bindings, too.
35 var=pattern ?
36 var@pattern ?
37 "
38
39 define [
40 proto: [list: nil]
41
42 (x=[list: _] initialize: aList=_):
43 (x \ [list: aList])
44
45 (x=[list: l=_] with: aThing=_):
46 (x \ [list: (l with: aThing)])
47
48 (x=[list: l=_] handle):
49 (l do: [eachItem=_: eachItem print])
50 ];;
51
52
53
54
55 [self
56
57 .list: .nil
58
59 [.initialize: aList]:
60 (self \ [.list: aList])
61
62 [.with: aThing]:
63 (self \ [.list: (self.list .with: aThing)])
64
65 .handle:
66 (self.list [.do: [eachItem: eachItem.print]])
67 ];;
68
69
70 [.self
71
72 list: nil
73
74 [initialize: .aList]:
75 (.self \ [list: .aList])
76
77 [with: .aThing]:
78 (.self \ [list: (.self list with: .aThing)])
79
80 handle:
81 (.self list [do: [.eachItem: .eachItem print]])
82 ];;
83
84
85
86 initialize: aList
87 list := aList.
88
89 add: aThing
90 list add: aThing.
91
92 handle
93 list do: [:eachItem | eachItem print].