amber-rails 0.1.0

Sign up to get free protection for your applications and to get access to all the features.
Files changed (90) hide show
  1. data/.gitignore +2 -0
  2. data/.rvmrc +4 -0
  3. data/CHANGELOG.md +3 -0
  4. data/Gemfile +2 -0
  5. data/Gemfile.lock +96 -0
  6. data/LICENSE +7 -0
  7. data/README.md +13 -0
  8. data/Rakefile +15 -0
  9. data/amber-rails.gemspec +21 -0
  10. data/app/assets/.DS_Store +0 -0
  11. data/app/assets/javascripts/.DS_Store +0 -0
  12. data/app/assets/javascripts/codemirror/codemirror.js +2144 -0
  13. data/app/assets/javascripts/codemirror/overlay.js +51 -0
  14. data/app/assets/javascripts/codemirror/runmode.js +27 -0
  15. data/app/assets/javascripts/codemirror/smalltalk/index.html +56 -0
  16. data/app/assets/javascripts/codemirror/smalltalk/smalltalk.js +134 -0
  17. data/app/assets/javascripts/html5.js +35 -0
  18. data/app/assets/javascripts/jquery.js +8981 -0
  19. data/app/assets/javascripts/jquery.textarea.js +267 -0
  20. data/app/assets/javascripts/jquery.tmpl.js +503 -0
  21. data/app/assets/javascripts/jquery.ui.js +272 -0
  22. data/app/assets/javascripts/json2.js +481 -0
  23. data/app/assets/javascripts/jtalk-development.js.coffee +4 -0
  24. data/app/assets/javascripts/jtalk-todos.js.coffee +4 -0
  25. data/app/assets/javascripts/jtalk.js.coffee +16 -0
  26. data/app/assets/javascripts/jtalk_core/boot.js +466 -0
  27. data/app/assets/javascripts/jtalk_core/st/.DS_Store +0 -0
  28. data/app/assets/javascripts/jtalk_core/st/Benchfib.js +159 -0
  29. data/app/assets/javascripts/jtalk_core/st/Canvas.js +1479 -0
  30. data/app/assets/javascripts/jtalk_core/st/Compiler.js +1587 -0
  31. data/app/assets/javascripts/jtalk_core/st/Examples.js +863 -0
  32. data/app/assets/javascripts/jtalk_core/st/HTML5.js +54 -0
  33. data/app/assets/javascripts/jtalk_core/st/IDE.js +3457 -0
  34. data/app/assets/javascripts/jtalk_core/st/JQuery.js +898 -0
  35. data/app/assets/javascripts/jtalk_core/st/Kernel.js +6761 -0
  36. data/app/assets/javascripts/jtalk_core/st/Parser.js +1655 -0
  37. data/app/assets/javascripts/jtalk_core/st/SUnit.js +1059 -0
  38. data/app/assets/stylesheets/codemirror.css +67 -0
  39. data/app/assets/stylesheets/codemirror_jtalk.css +21 -0
  40. data/app/assets/stylesheets/jtalk.css +369 -0
  41. data/app/assets/stylesheets/sunit.css +65 -0
  42. data/config/routes.rb +10 -0
  43. data/examples/todos/.gitignore +5 -0
  44. data/examples/todos/.rvmrc +4 -0
  45. data/examples/todos/Gemfile +12 -0
  46. data/examples/todos/Gemfile.lock +126 -0
  47. data/examples/todos/README +261 -0
  48. data/examples/todos/Rakefile +15 -0
  49. data/examples/todos/app/assets/images/rails.png +0 -0
  50. data/examples/todos/app/assets/javascripts/application.js.coffee +5 -0
  51. data/examples/todos/app/assets/javascripts/jtalk/Examples.deploy.js +863 -0
  52. data/examples/todos/app/assets/javascripts/jtalk/Examples.js +863 -0
  53. data/examples/todos/app/assets/smalltalk/Examples.st +397 -0
  54. data/examples/todos/app/assets/stylesheets/application.css +8 -0
  55. data/examples/todos/app/assets/stylesheets/jtalk-todos.css +154 -0
  56. data/examples/todos/app/controllers/application_controller.rb +3 -0
  57. data/examples/todos/app/controllers/todos_controller.rb +5 -0
  58. data/examples/todos/app/helpers/application_helper.rb +2 -0
  59. data/examples/todos/app/models/.gitkeep +0 -0
  60. data/examples/todos/app/views/todos/index.html.haml +16 -0
  61. data/examples/todos/config.ru +4 -0
  62. data/examples/todos/config/application.rb +31 -0
  63. data/examples/todos/config/boot.rb +6 -0
  64. data/examples/todos/config/database.yml +25 -0
  65. data/examples/todos/config/environment.rb +5 -0
  66. data/examples/todos/config/environments/development.rb +27 -0
  67. data/examples/todos/config/environments/production.rb +60 -0
  68. data/examples/todos/config/environments/test.rb +42 -0
  69. data/examples/todos/config/initializers/backtrace_silencers.rb +7 -0
  70. data/examples/todos/config/initializers/inflections.rb +10 -0
  71. data/examples/todos/config/initializers/mime_types.rb +5 -0
  72. data/examples/todos/config/initializers/secret_token.rb +7 -0
  73. data/examples/todos/config/initializers/session_store.rb +8 -0
  74. data/examples/todos/config/initializers/wrap_parameters.rb +14 -0
  75. data/examples/todos/config/locales/en.yml +5 -0
  76. data/examples/todos/config/routes.rb +3 -0
  77. data/examples/todos/log/.gitkeep +0 -0
  78. data/examples/todos/public/404.html +26 -0
  79. data/examples/todos/public/422.html +26 -0
  80. data/examples/todos/public/500.html +26 -0
  81. data/examples/todos/public/favicon.ico +0 -0
  82. data/examples/todos/public/robots.txt +5 -0
  83. data/examples/todos/script/rails +6 -0
  84. data/examples/todos/vendor/assets/stylesheets/.gitkeep +0 -0
  85. data/examples/todos/vendor/plugins/.gitkeep +0 -0
  86. data/lib/amber-rails.rb +1 -0
  87. data/lib/amber/rails.rb +30 -0
  88. data/lib/amber/rails/engine.rb +12 -0
  89. data/lib/amber/rails/version.rb +5 -0
  90. metadata +167 -0
@@ -0,0 +1,1655 @@
1
+ smalltalk.addClass('PPParser', smalltalk.Object, ['memo'], 'Parser');
2
+ smalltalk.addMethod(
3
+ '_initialize',
4
+ smalltalk.method({
5
+ selector: 'initialize',
6
+ category: 'initialization',
7
+ fn: function (){
8
+ var self=this;
9
+ self['@memo']=smalltalk.send(smalltalk.Dictionary, "_new", []);
10
+ return self;},
11
+ source: unescape('initialize%0A%09memo%20%3A%3D%20Dictionary%20new'),
12
+ messageSends: ["new"],
13
+ referencedClasses: [smalltalk.Dictionary]
14
+ }),
15
+ smalltalk.PPParser);
16
+
17
+ smalltalk.addMethod(
18
+ '_memo',
19
+ smalltalk.method({
20
+ selector: 'memo',
21
+ category: 'accessing',
22
+ fn: function (){
23
+ var self=this;
24
+ return self['@memo'];
25
+ return self;},
26
+ source: unescape('memo%0A%09%5Ememo'),
27
+ messageSends: [],
28
+ referencedClasses: []
29
+ }),
30
+ smalltalk.PPParser);
31
+
32
+ smalltalk.addMethod(
33
+ '_flatten',
34
+ smalltalk.method({
35
+ selector: 'flatten',
36
+ category: 'operations',
37
+ fn: function (){
38
+ var self=this;
39
+ return smalltalk.send(smalltalk.PPFlattenParser, "_on_", [self]);
40
+ return self;},
41
+ source: unescape('flatten%0A%09%5EPPFlattenParser%20on%3A%20self'),
42
+ messageSends: ["on:"],
43
+ referencedClasses: [smalltalk.nil]
44
+ }),
45
+ smalltalk.PPParser);
46
+
47
+ smalltalk.addMethod(
48
+ '_withSource',
49
+ smalltalk.method({
50
+ selector: 'withSource',
51
+ category: 'operations',
52
+ fn: function (){
53
+ var self=this;
54
+ return smalltalk.send(smalltalk.PPSourceParser, "_on_", [self]);
55
+ return self;},
56
+ source: unescape('withSource%0A%09%5EPPSourceParser%20on%3A%20self'),
57
+ messageSends: ["on:"],
58
+ referencedClasses: [smalltalk.nil]
59
+ }),
60
+ smalltalk.PPParser);
61
+
62
+ smalltalk.addMethod(
63
+ '__eq_eq_gt',
64
+ smalltalk.method({
65
+ selector: '==>',
66
+ category: 'operations',
67
+ fn: function (aBlock){
68
+ var self=this;
69
+ return smalltalk.send(smalltalk.PPActionParser, "_on_block_", [self, aBlock]);
70
+ return self;},
71
+ source: unescape('%3D%3D%3E%20aBlock%0A%09%5EPPActionParser%20on%3A%20self%20block%3A%20aBlock'),
72
+ messageSends: ["on:block:"],
73
+ referencedClasses: [smalltalk.nil]
74
+ }),
75
+ smalltalk.PPParser);
76
+
77
+ smalltalk.addMethod(
78
+ '__comma',
79
+ smalltalk.method({
80
+ selector: ',',
81
+ category: 'operations',
82
+ fn: function (aParser){
83
+ var self=this;
84
+ return smalltalk.send(smalltalk.PPSequenceParser, "_with_with_", [self, aParser]);
85
+ return self;},
86
+ source: unescape('%2C%20aParser%0A%09%5EPPSequenceParser%20with%3A%20self%20with%3A%20aParser'),
87
+ messageSends: ["with:with:"],
88
+ referencedClasses: [smalltalk.nil]
89
+ }),
90
+ smalltalk.PPParser);
91
+
92
+ smalltalk.addMethod(
93
+ '__slash',
94
+ smalltalk.method({
95
+ selector: '/',
96
+ category: 'operations',
97
+ fn: function (aParser){
98
+ var self=this;
99
+ return smalltalk.send(smalltalk.PPChoiceParser, "_with_with_", [self, aParser]);
100
+ return self;},
101
+ source: unescape('/%20aParser%0A%09%5EPPChoiceParser%20with%3A%20self%20with%3A%20aParser'),
102
+ messageSends: ["with:with:"],
103
+ referencedClasses: [smalltalk.nil]
104
+ }),
105
+ smalltalk.PPParser);
106
+
107
+ smalltalk.addMethod(
108
+ '_plus',
109
+ smalltalk.method({
110
+ selector: 'plus',
111
+ category: 'operations',
112
+ fn: function (){
113
+ var self=this;
114
+ return smalltalk.send(smalltalk.PPRepeatingParser, "_on_min_", [self, (1)]);
115
+ return self;},
116
+ source: unescape('plus%0A%09%5EPPRepeatingParser%20on%3A%20self%20min%3A%201'),
117
+ messageSends: ["on:min:"],
118
+ referencedClasses: [smalltalk.nil]
119
+ }),
120
+ smalltalk.PPParser);
121
+
122
+ smalltalk.addMethod(
123
+ '_star',
124
+ smalltalk.method({
125
+ selector: 'star',
126
+ category: 'operations',
127
+ fn: function (){
128
+ var self=this;
129
+ return smalltalk.send(smalltalk.PPRepeatingParser, "_on_min_", [self, (0)]);
130
+ return self;},
131
+ source: unescape('star%0A%09%5EPPRepeatingParser%20on%3A%20self%20min%3A%200'),
132
+ messageSends: ["on:min:"],
133
+ referencedClasses: [smalltalk.nil]
134
+ }),
135
+ smalltalk.PPParser);
136
+
137
+ smalltalk.addMethod(
138
+ '_not',
139
+ smalltalk.method({
140
+ selector: 'not',
141
+ category: 'operations',
142
+ fn: function (){
143
+ var self=this;
144
+ return smalltalk.send(smalltalk.PPNotParser, "_on_", [self]);
145
+ return self;},
146
+ source: unescape('not%0A%09%5EPPNotParser%20on%3A%20self'),
147
+ messageSends: ["on:"],
148
+ referencedClasses: [smalltalk.nil]
149
+ }),
150
+ smalltalk.PPParser);
151
+
152
+ smalltalk.addMethod(
153
+ '_optional',
154
+ smalltalk.method({
155
+ selector: 'optional',
156
+ category: 'operations',
157
+ fn: function (){
158
+ var self=this;
159
+ return smalltalk.send(self, "__slash", [smalltalk.send(smalltalk.PPEpsilonParser, "_new", [])]);
160
+ return self;},
161
+ source: unescape('optional%0A%09%5Eself%20/%20PPEpsilonParser%20new'),
162
+ messageSends: [unescape("/"), "new"],
163
+ referencedClasses: [smalltalk.nil]
164
+ }),
165
+ smalltalk.PPParser);
166
+
167
+ smalltalk.addMethod(
168
+ '_memoizedParse_',
169
+ smalltalk.method({
170
+ selector: 'memoizedParse:',
171
+ category: 'operations',
172
+ fn: function (aStream){
173
+ var self=this;
174
+ var start=nil;
175
+ var end=nil;
176
+ var node=nil;
177
+ start=smalltalk.send(aStream, "_position", []);
178
+ return smalltalk.send(smalltalk.send(self, "_memo", []), "_at_ifPresent_ifAbsent_", [start, (function(value){smalltalk.send(aStream, "_position_", [smalltalk.send(smalltalk.send(smalltalk.send(self, "_memo", []), "_at_", [start]), "_second", [])]);return smalltalk.send(value, "_first", []);}), (function(){node=smalltalk.send(self, "_parse_", [aStream]);end=smalltalk.send(aStream, "_position", []);smalltalk.send(smalltalk.send(self, "_memo", []), "_at_put_", [start, smalltalk.send(smalltalk.Array, "_with_with_", [node, end])]);return node;})]);
179
+ return self;},
180
+ source: unescape('memoizedParse%3A%20aStream%0A%09%7C%20start%20end%20node%20%7C%0A%09start%20%3A%3D%20aStream%20position.%0A%09%5Eself%20memo%20at%3A%20start%20%0A%09%20%20%20%20ifPresent%3A%20%5B%3Avalue%20%7C%0A%09%09aStream%20position%3A%20%28self%20memo%20at%3A%20start%29%20second.%0A%09%09value%20first%5D%0A%09%20%20%20%20ifAbsent%3A%20%5B%0A%09%09node%20%3A%3D%20self%20parse%3A%20aStream.%0A%09%09end%20%3A%3D%20aStream%20position.%0A%09%09self%20memo%20at%3A%20start%20put%3A%20%28Array%20with%3A%20node%20with%3A%20end%29.%0A%09%09node%5D'),
181
+ messageSends: ["position", "at:ifPresent:ifAbsent:", "memo", "position:", "second", "at:", "first", "parse:", "at:put:", "with:with:"],
182
+ referencedClasses: [smalltalk.Array]
183
+ }),
184
+ smalltalk.PPParser);
185
+
186
+ smalltalk.addMethod(
187
+ '_parse_',
188
+ smalltalk.method({
189
+ selector: 'parse:',
190
+ category: 'parsing',
191
+ fn: function (aStream){
192
+ var self=this;
193
+ smalltalk.send(self, "_subclassResponsibility", []);
194
+ return self;},
195
+ source: unescape('parse%3A%20aStream%0A%09self%20subclassResponsibility'),
196
+ messageSends: ["subclassResponsibility"],
197
+ referencedClasses: []
198
+ }),
199
+ smalltalk.PPParser);
200
+
201
+ smalltalk.addMethod(
202
+ '_parseAll_',
203
+ smalltalk.method({
204
+ selector: 'parseAll:',
205
+ category: 'parsing',
206
+ fn: function (aStream){
207
+ var self=this;
208
+ var result=nil;
209
+ result=smalltalk.send(smalltalk.send(smalltalk.PPSequenceParser, "_with_with_", [self, smalltalk.send(smalltalk.PPEOFParser, "_new", [])]), "_memoizedParse_", [aStream]);
210
+ return smalltalk.send(smalltalk.send(result, "_isParseFailure", []), "_ifTrue_ifFalse_", [(function(){return smalltalk.send(self, "_error_", [smalltalk.send(result, "_messageFor_", [smalltalk.send(aStream, "_contents", [])])]);}), (function(){return smalltalk.send(result, "_first", []);})]);
211
+ return self;},
212
+ source: unescape('parseAll%3A%20aStream%0A%09%7C%20result%20%7C%0A%09result%20%3A%3D%20%28PPSequenceParser%20with%3A%20self%20with%3A%20PPEOFParser%20new%29%20memoizedParse%3A%20aStream.%0A%09%5Eresult%20isParseFailure%20%0A%09%20%20%20%20ifTrue%3A%20%5Bself%20error%3A%20%28result%20messageFor%3A%20aStream%20contents%29%5D%0A%09%20%20%20%20ifFalse%3A%20%5Bresult%20first%5D'),
213
+ messageSends: ["memoizedParse:", "with:with:", "new", "ifTrue:ifFalse:", "isParseFailure", "error:", "messageFor:", "contents", "first"],
214
+ referencedClasses: [smalltalk.nil,smalltalk.nil]
215
+ }),
216
+ smalltalk.PPParser);
217
+
218
+
219
+
220
+ smalltalk.addClass('PPEOFParser', smalltalk.PPParser, [], 'Parser');
221
+ smalltalk.addMethod(
222
+ '_parse_',
223
+ smalltalk.method({
224
+ selector: 'parse:',
225
+ category: 'parsing',
226
+ fn: function (aStream){
227
+ var self=this;
228
+ return smalltalk.send(smalltalk.send(aStream, "_atEnd", []), "_ifFalse_ifTrue_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.PPFailure, "_new", []), "_reason_at_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aStream, "_contents", []), "__comma", [smalltalk.send(smalltalk.String, "_lf", [])]), "__comma", [unescape("---------------")]), "__comma", [smalltalk.send(smalltalk.String, "_lf", [])]), "__comma", ["EOF expected"]), smalltalk.send(aStream, "_position", [])]);}), (function(){return nil;})]);
229
+ return self;},
230
+ source: unescape('parse%3A%20aStream%0A%09%5EaStream%20atEnd%20%0A%09%20%20%20%20ifFalse%3A%20%5B%0A%09%09PPFailure%20new%20reason%3A%20aStream%20contents%2C%20String%20lf%2C%20%27---------------%27%2C%20String%20lf%2C%20%27EOF%20expected%27%20at%3A%20aStream%20position%5D%0A%09%20%20%20%20ifTrue%3A%20%5Bnil%5D'),
231
+ messageSends: ["ifFalse:ifTrue:", "atEnd", "reason:at:", "new", unescape("%2C"), "contents", "lf", "position"],
232
+ referencedClasses: [smalltalk.nil,smalltalk.String]
233
+ }),
234
+ smalltalk.PPEOFParser);
235
+
236
+
237
+
238
+ smalltalk.addClass('PPAnyParser', smalltalk.PPParser, [], 'Parser');
239
+ smalltalk.addMethod(
240
+ '_parse_',
241
+ smalltalk.method({
242
+ selector: 'parse:',
243
+ category: 'parsing',
244
+ fn: function (aStream){
245
+ var self=this;
246
+ return smalltalk.send(smalltalk.send(aStream, "_atEnd", []), "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.PPFailure, "_new", []), "_reason_at_", ["did not expect EOF", smalltalk.send(aStream, "_position", [])]);}), (function(){return smalltalk.send(aStream, "_next", []);})]);
247
+ return self;},
248
+ source: unescape('parse%3A%20aStream%0A%09%5EaStream%20atEnd%0A%09%20%20%20%20ifTrue%3A%20%5BPPFailure%20new%0A%09%09%09%20reason%3A%20%27did%20not%20expect%20EOF%27%20at%3A%20aStream%20position%5D%0A%09%20%20%20%20ifFalse%3A%20%5BaStream%20next%5D'),
249
+ messageSends: ["ifTrue:ifFalse:", "atEnd", "reason:at:", "new", "position", "next"],
250
+ referencedClasses: [smalltalk.nil]
251
+ }),
252
+ smalltalk.PPAnyParser);
253
+
254
+
255
+
256
+ smalltalk.addClass('PPEpsilonParser', smalltalk.PPParser, [], 'Parser');
257
+ smalltalk.addMethod(
258
+ '_parse_',
259
+ smalltalk.method({
260
+ selector: 'parse:',
261
+ category: 'parsing',
262
+ fn: function (aStream){
263
+ var self=this;
264
+ return nil;
265
+ return self;},
266
+ source: unescape('parse%3A%20aStream%0A%09%5Enil'),
267
+ messageSends: [],
268
+ referencedClasses: []
269
+ }),
270
+ smalltalk.PPEpsilonParser);
271
+
272
+
273
+
274
+ smalltalk.addClass('PPStringParser', smalltalk.PPParser, ['string'], 'Parser');
275
+ smalltalk.addMethod(
276
+ '_string',
277
+ smalltalk.method({
278
+ selector: 'string',
279
+ category: 'accessing',
280
+ fn: function (){
281
+ var self=this;
282
+ return self['@string'];
283
+ return self;},
284
+ source: unescape('string%0A%09%5Estring'),
285
+ messageSends: [],
286
+ referencedClasses: []
287
+ }),
288
+ smalltalk.PPStringParser);
289
+
290
+ smalltalk.addMethod(
291
+ '_string_',
292
+ smalltalk.method({
293
+ selector: 'string:',
294
+ category: 'accessing',
295
+ fn: function (aString){
296
+ var self=this;
297
+ self['@string']=aString;
298
+ return self;},
299
+ source: unescape('string%3A%20aString%0A%09string%20%3A%3D%20aString'),
300
+ messageSends: [],
301
+ referencedClasses: []
302
+ }),
303
+ smalltalk.PPStringParser);
304
+
305
+ smalltalk.addMethod(
306
+ '_parse_',
307
+ smalltalk.method({
308
+ selector: 'parse:',
309
+ category: 'parsing',
310
+ fn: function (aStream){
311
+ var self=this;
312
+ var position=nil;
313
+ var result=nil;
314
+ position=smalltalk.send(aStream, "_position", []);
315
+ result=smalltalk.send(aStream, "_next_", [smalltalk.send(smalltalk.send(self, "_string", []), "_size", [])]);
316
+ return smalltalk.send(smalltalk.send(result, "__eq", [smalltalk.send(self, "_string", [])]), "_ifTrue_ifFalse_", [(function(){return result;}), (function(){smalltalk.send(aStream, "_position_", [position]);return (function($rec){smalltalk.send($rec, "_reason_", [smalltalk.send(smalltalk.send(smalltalk.send("Expected ", "__comma", [smalltalk.send(self, "_string", [])]), "__comma", [" but got "]), "__comma", [smalltalk.send(smalltalk.send(result, "_at_", [position]), "_printString", [])])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(smalltalk.PPFailure, "_new", []));})]);
317
+ return self;},
318
+ source: unescape('parse%3A%20aStream%0A%09%7C%20position%20result%20%7C%0A%09position%20%3A%3D%20aStream%20position.%0A%09result%20%3A%3D%20aStream%20next%3A%20self%20string%20size.%0A%09%5Eresult%20%3D%20self%20string%0A%09%20%20%20%20ifTrue%3A%20%5Bresult%5D%0A%09%20%20%20%20ifFalse%3A%20%5B%0A%09%09aStream%20position%3A%20position.%0A%09%09PPFailure%20new%20reason%3A%20%27Expected%20%27%2C%20self%20string%2C%20%27%20but%20got%20%27%2C%20%28result%20at%3A%20position%29%20printString%3B%20yourself%5D'),
319
+ messageSends: ["position", "next:", "size", "string", "ifTrue:ifFalse:", unescape("%3D"), "position:", "reason:", unescape("%2C"), "printString", "at:", "yourself", "new"],
320
+ referencedClasses: [smalltalk.nil]
321
+ }),
322
+ smalltalk.PPStringParser);
323
+
324
+
325
+
326
+ smalltalk.addClass('PPCharacterParser', smalltalk.PPParser, ['regexp'], 'Parser');
327
+ smalltalk.addMethod(
328
+ '_string_',
329
+ smalltalk.method({
330
+ selector: 'string:',
331
+ category: 'accessing',
332
+ fn: function (aString){
333
+ var self=this;
334
+ self['@regexp']=smalltalk.send(smalltalk.RegularExpression, "_fromString_", [smalltalk.send(smalltalk.send(unescape("%5B"), "__comma", [aString]), "__comma", [unescape("%5D")])]);
335
+ return self;},
336
+ source: unescape('string%3A%20aString%0A%09regexp%20%3A%3D%20RegularExpression%20fromString%3A%20%27%5B%27%2C%20aString%2C%20%27%5D%27'),
337
+ messageSends: ["fromString:", unescape("%2C")],
338
+ referencedClasses: [smalltalk.RegularExpression]
339
+ }),
340
+ smalltalk.PPCharacterParser);
341
+
342
+ smalltalk.addMethod(
343
+ '_parse_',
344
+ smalltalk.method({
345
+ selector: 'parse:',
346
+ category: 'parsing',
347
+ fn: function (aStream){
348
+ var self=this;
349
+ return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aStream, "_peek", []), "_notNil", []), "_and_", [(function(){return smalltalk.send(self, "_match_", [smalltalk.send(aStream, "_peek", [])]);})]), "_ifTrue_ifFalse_", [(function(){return smalltalk.send(aStream, "_next", []);}), (function(){return smalltalk.send(smalltalk.send(smalltalk.PPFailure, "_new", []), "_reason_at_", ["Could not match", smalltalk.send(aStream, "_position", [])]);})]);
350
+ return self;},
351
+ source: unescape('parse%3A%20aStream%0A%09%5E%28aStream%20peek%20notNil%20and%3A%20%5Bself%20match%3A%20aStream%20peek%5D%29%0A%09%20%20%20%20ifTrue%3A%20%5BaStream%20next%5D%0A%09%20%20%20%20ifFalse%3A%20%5BPPFailure%20new%20reason%3A%20%27Could%20not%20match%27%20at%3A%20aStream%20position%5D'),
352
+ messageSends: ["ifTrue:ifFalse:", "and:", "notNil", "peek", "match:", "next", "reason:at:", "new", "position"],
353
+ referencedClasses: [smalltalk.nil]
354
+ }),
355
+ smalltalk.PPCharacterParser);
356
+
357
+ smalltalk.addMethod(
358
+ '_match_',
359
+ smalltalk.method({
360
+ selector: 'match:',
361
+ category: 'private',
362
+ fn: function (aString){
363
+ var self=this;
364
+ return smalltalk.send(aString, "_match_", [self['@regexp']]);
365
+ return self;},
366
+ source: unescape('match%3A%20aString%0A%09%5EaString%20match%3A%20regexp'),
367
+ messageSends: ["match:"],
368
+ referencedClasses: []
369
+ }),
370
+ smalltalk.PPCharacterParser);
371
+
372
+
373
+
374
+ smalltalk.addClass('PPListParser', smalltalk.PPParser, ['parsers'], 'Parser');
375
+ smalltalk.addMethod(
376
+ '_parsers',
377
+ smalltalk.method({
378
+ selector: 'parsers',
379
+ category: 'accessing',
380
+ fn: function (){
381
+ var self=this;
382
+ return smalltalk.send(self['@parsers'], "_ifNil_", [(function(){return [];})]);
383
+ return self;},
384
+ source: unescape('parsers%0A%09%5Eparsers%20ifNil%3A%20%5B%23%28%29%5D'),
385
+ messageSends: ["ifNil:"],
386
+ referencedClasses: []
387
+ }),
388
+ smalltalk.PPListParser);
389
+
390
+ smalltalk.addMethod(
391
+ '_parsers_',
392
+ smalltalk.method({
393
+ selector: 'parsers:',
394
+ category: 'accessing',
395
+ fn: function (aCollection){
396
+ var self=this;
397
+ self['@parsers']=aCollection;
398
+ return self;},
399
+ source: unescape('parsers%3A%20aCollection%0A%09parsers%20%3A%3D%20aCollection'),
400
+ messageSends: [],
401
+ referencedClasses: []
402
+ }),
403
+ smalltalk.PPListParser);
404
+
405
+ smalltalk.addMethod(
406
+ '_copyWith_',
407
+ smalltalk.method({
408
+ selector: 'copyWith:',
409
+ category: 'copying',
410
+ fn: function (aParser){
411
+ var self=this;
412
+ return smalltalk.send(smalltalk.send(self, "_class", []), "_withAll_", [smalltalk.send(smalltalk.send(self, "_parsers", []), "_copyWith_", [aParser])]);
413
+ return self;},
414
+ source: unescape('copyWith%3A%20aParser%0A%09%5Eself%20class%20withAll%3A%20%28self%20parsers%20copyWith%3A%20aParser%29'),
415
+ messageSends: ["withAll:", "class", "copyWith:", "parsers"],
416
+ referencedClasses: []
417
+ }),
418
+ smalltalk.PPListParser);
419
+
420
+
421
+ smalltalk.addMethod(
422
+ '_withAll_',
423
+ smalltalk.method({
424
+ selector: 'withAll:',
425
+ category: 'instance creation',
426
+ fn: function (aCollection){
427
+ var self=this;
428
+ return (function($rec){smalltalk.send($rec, "_parsers_", [aCollection]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
429
+ return self;},
430
+ source: unescape('withAll%3A%20aCollection%0A%09%20%20%20%20%5Eself%20new%0A%09%09parsers%3A%20aCollection%3B%0A%09%09yourself'),
431
+ messageSends: ["parsers:", "yourself", "new"],
432
+ referencedClasses: []
433
+ }),
434
+ smalltalk.PPListParser.klass);
435
+
436
+ smalltalk.addMethod(
437
+ '_with_with_',
438
+ smalltalk.method({
439
+ selector: 'with:with:',
440
+ category: 'instance creation',
441
+ fn: function (aParser, anotherParser){
442
+ var self=this;
443
+ return smalltalk.send(self, "_withAll_", [smalltalk.send(smalltalk.Array, "_with_with_", [aParser, anotherParser])]);
444
+ return self;},
445
+ source: unescape('with%3A%20aParser%20with%3A%20anotherParser%0A%09%20%20%20%20%5Eself%20withAll%3A%20%28Array%20with%3A%20aParser%20with%3A%20anotherParser%29'),
446
+ messageSends: ["withAll:", "with:with:"],
447
+ referencedClasses: [smalltalk.Array]
448
+ }),
449
+ smalltalk.PPListParser.klass);
450
+
451
+
452
+ smalltalk.addClass('PPSequenceParser', smalltalk.PPListParser, [], 'Parser');
453
+ smalltalk.addMethod(
454
+ '__comma',
455
+ smalltalk.method({
456
+ selector: ',',
457
+ category: 'copying',
458
+ fn: function (aRule){
459
+ var self=this;
460
+ return smalltalk.send(self, "_copyWith_", [aRule]);
461
+ return self;},
462
+ source: unescape('%2C%20aRule%0A%09%5Eself%20copyWith%3A%20aRule'),
463
+ messageSends: ["copyWith:"],
464
+ referencedClasses: []
465
+ }),
466
+ smalltalk.PPSequenceParser);
467
+
468
+ smalltalk.addMethod(
469
+ '_parse_',
470
+ smalltalk.method({
471
+ selector: 'parse:',
472
+ category: 'parsing',
473
+ fn: function (aStream){
474
+ var self=this;
475
+ var start=nil;
476
+ var elements=nil;
477
+ var element=nil;
478
+ start=smalltalk.send(aStream, "_position", []);
479
+ elements=[];
480
+ smalltalk.send(smalltalk.send(self, "_parsers", []), "_detect_ifNone_", [(function(each){element=smalltalk.send(each, "_memoizedParse_", [aStream]);smalltalk.send(elements, "_add_", [element]);return smalltalk.send(element, "_isParseFailure", []);}), (function(){return nil;})]);
481
+ return smalltalk.send(smalltalk.send(element, "_isParseFailure", []), "_ifFalse_ifTrue_", [(function(){return elements;}), (function(){smalltalk.send(aStream, "_position_", [start]);return element;})]);
482
+ return self;},
483
+ source: unescape('parse%3A%20aStream%0A%09%7C%20start%20elements%20element%20%7C%0A%09start%20%3A%3D%20aStream%20position.%0A%09elements%20%3A%3D%20%23%28%29.%0A%09self%20parsers%20%0A%09%20%20%20%20detect%3A%20%5B%3Aeach%20%7C%0A%09%09element%20%3A%3D%20each%20memoizedParse%3A%20aStream.%0A%09%09elements%20add%3A%20element.%0A%09%09element%20isParseFailure%5D%20%0A%09%20%20%20%20ifNone%3A%20%5B%5D.%0A%09%5Eelement%20isParseFailure%0A%09%20%20%20%20ifFalse%3A%20%5Belements%5D%0A%09%20%20%20%20ifTrue%3A%20%5BaStream%20position%3A%20start.%20element%5D'),
484
+ messageSends: ["position", "detect:ifNone:", "parsers", "memoizedParse:", "add:", "isParseFailure", "ifFalse:ifTrue:", "position:"],
485
+ referencedClasses: []
486
+ }),
487
+ smalltalk.PPSequenceParser);
488
+
489
+
490
+
491
+ smalltalk.addClass('PPChoiceParser', smalltalk.PPListParser, [], 'Parser');
492
+ smalltalk.addMethod(
493
+ '__slash',
494
+ smalltalk.method({
495
+ selector: '/',
496
+ category: 'copying',
497
+ fn: function (aRule){
498
+ var self=this;
499
+ return smalltalk.send(self, "_copyWith_", [aRule]);
500
+ return self;},
501
+ source: unescape('/%20aRule%0A%09%5Eself%20copyWith%3A%20aRule'),
502
+ messageSends: ["copyWith:"],
503
+ referencedClasses: []
504
+ }),
505
+ smalltalk.PPChoiceParser);
506
+
507
+ smalltalk.addMethod(
508
+ '_parse_',
509
+ smalltalk.method({
510
+ selector: 'parse:',
511
+ category: 'parsing',
512
+ fn: function (aStream){
513
+ var self=this;
514
+ var result=nil;
515
+ smalltalk.send(smalltalk.send(self, "_parsers", []), "_detect_ifNone_", [(function(each){result=smalltalk.send(each, "_memoizedParse_", [aStream]);return smalltalk.send(smalltalk.send(result, "_isParseFailure", []), "_not", []);}), (function(){return nil;})]);
516
+ return result;
517
+ return self;},
518
+ source: unescape('parse%3A%20aStream%0A%09%7C%20result%20%7C%0A%09self%20parsers%0A%20%20%20%20%09%20%20%20%20detect%3A%20%5B%3Aeach%20%7C%0A%09%09result%20%3A%3D%20each%20memoizedParse%3A%20aStream.%0A%09%09result%20isParseFailure%20not%5D%0A%09%20%20%20%20ifNone%3A%20%5B%5D.%0A%09%5Eresult'),
519
+ messageSends: ["detect:ifNone:", "parsers", "memoizedParse:", "not", "isParseFailure"],
520
+ referencedClasses: []
521
+ }),
522
+ smalltalk.PPChoiceParser);
523
+
524
+
525
+
526
+ smalltalk.addClass('PPDelegateParser', smalltalk.PPParser, ['parser'], 'Parser');
527
+ smalltalk.addMethod(
528
+ '_parser',
529
+ smalltalk.method({
530
+ selector: 'parser',
531
+ category: 'accessing',
532
+ fn: function (){
533
+ var self=this;
534
+ return self['@parser'];
535
+ return self;},
536
+ source: unescape('parser%0A%09%5Eparser'),
537
+ messageSends: [],
538
+ referencedClasses: []
539
+ }),
540
+ smalltalk.PPDelegateParser);
541
+
542
+ smalltalk.addMethod(
543
+ '_parser_',
544
+ smalltalk.method({
545
+ selector: 'parser:',
546
+ category: 'accessing',
547
+ fn: function (aParser){
548
+ var self=this;
549
+ self['@parser']=aParser;
550
+ return self;},
551
+ source: unescape('parser%3A%20aParser%0A%09parser%20%3A%3D%20aParser'),
552
+ messageSends: [],
553
+ referencedClasses: []
554
+ }),
555
+ smalltalk.PPDelegateParser);
556
+
557
+ smalltalk.addMethod(
558
+ '_parse_',
559
+ smalltalk.method({
560
+ selector: 'parse:',
561
+ category: 'parsing',
562
+ fn: function (aStream){
563
+ var self=this;
564
+ return smalltalk.send(smalltalk.send(self, "_parser", []), "_memoizedParse_", [aStream]);
565
+ return self;},
566
+ source: unescape('parse%3A%20aStream%0A%09%5Eself%20parser%20memoizedParse%3A%20aStream'),
567
+ messageSends: ["memoizedParse:", "parser"],
568
+ referencedClasses: []
569
+ }),
570
+ smalltalk.PPDelegateParser);
571
+
572
+
573
+ smalltalk.addMethod(
574
+ '_on_',
575
+ smalltalk.method({
576
+ selector: 'on:',
577
+ category: 'instance creation',
578
+ fn: function (aParser){
579
+ var self=this;
580
+ return (function($rec){smalltalk.send($rec, "_parser_", [aParser]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
581
+ return self;},
582
+ source: unescape('on%3A%20aParser%0A%09%20%20%20%20%5Eself%20new%0A%09%09parser%3A%20aParser%3B%0A%09%09yourself'),
583
+ messageSends: ["parser:", "yourself", "new"],
584
+ referencedClasses: []
585
+ }),
586
+ smalltalk.PPDelegateParser.klass);
587
+
588
+
589
+ smalltalk.addClass('PPAndParser', smalltalk.PPDelegateParser, [], 'Parser');
590
+ smalltalk.addMethod(
591
+ '_parse_',
592
+ smalltalk.method({
593
+ selector: 'parse:',
594
+ category: 'parsing',
595
+ fn: function (aStream){
596
+ var self=this;
597
+ return smalltalk.send(self, "_basicParse_", [aStream]);
598
+ return self;},
599
+ source: unescape('parse%3A%20aStream%0A%09%5Eself%20basicParse%3A%20aStream'),
600
+ messageSends: ["basicParse:"],
601
+ referencedClasses: []
602
+ }),
603
+ smalltalk.PPAndParser);
604
+
605
+ smalltalk.addMethod(
606
+ '_basicParse_',
607
+ smalltalk.method({
608
+ selector: 'basicParse:',
609
+ category: 'parsing',
610
+ fn: function (aStream){
611
+ var self=this;
612
+ var element=nil;
613
+ var position=nil;
614
+ position=smalltalk.send(aStream, "_position", []);
615
+ element=smalltalk.send(smalltalk.send(self, "_parser", []), "_memoizedParse_", [aStream]);
616
+ smalltalk.send(aStream, "_position_", [position]);
617
+ return element;
618
+ return self;},
619
+ source: unescape('basicParse%3A%20aStream%0A%09%7C%20element%20position%20%7C%0A%09position%20%3A%3D%20aStream%20position.%0A%09element%20%3A%3D%20self%20parser%20memoizedParse%3A%20aStream.%0A%09aStream%20position%3A%20position.%0A%09%5Eelement'),
620
+ messageSends: ["position", "memoizedParse:", "parser", "position:"],
621
+ referencedClasses: []
622
+ }),
623
+ smalltalk.PPAndParser);
624
+
625
+
626
+
627
+ smalltalk.addClass('PPNotParser', smalltalk.PPAndParser, [], 'Parser');
628
+ smalltalk.addMethod(
629
+ '_parse_',
630
+ smalltalk.method({
631
+ selector: 'parse:',
632
+ category: 'parsing',
633
+ fn: function (aStream){
634
+ var self=this;
635
+ var element=nil;
636
+ element=smalltalk.send(self, "_basicParse_", [aStream]);
637
+ return smalltalk.send(smalltalk.send(element, "_isParseFailure", []), "_ifTrue_ifFalse_", [(function(){return nil;}), (function(){return smalltalk.send(smalltalk.PPFailure, "_reason_at_", [element, smalltalk.send(aStream, "_position", [])]);})]);
638
+ return self;},
639
+ source: unescape('parse%3A%20aStream%0A%09%7C%20element%20%7C%0A%09element%20%3A%3D%20self%20basicParse%3A%20aStream.%0A%09%5Eelement%20isParseFailure%20%0A%09%20%20%20%20ifTrue%3A%20%5Bnil%5D%0A%09%20%20%20%20ifFalse%3A%20%5BPPFailure%20reason%3A%20element%20at%3A%20aStream%20position%5D'),
640
+ messageSends: ["basicParse:", "ifTrue:ifFalse:", "isParseFailure", "reason:at:", "position"],
641
+ referencedClasses: [smalltalk.nil]
642
+ }),
643
+ smalltalk.PPNotParser);
644
+
645
+
646
+
647
+ smalltalk.addClass('PPActionParser', smalltalk.PPDelegateParser, ['block'], 'Parser');
648
+ smalltalk.addMethod(
649
+ '_block',
650
+ smalltalk.method({
651
+ selector: 'block',
652
+ category: 'accessing',
653
+ fn: function (){
654
+ var self=this;
655
+ return self['@block'];
656
+ return self;},
657
+ source: unescape('block%0A%09%5Eblock'),
658
+ messageSends: [],
659
+ referencedClasses: []
660
+ }),
661
+ smalltalk.PPActionParser);
662
+
663
+ smalltalk.addMethod(
664
+ '_block_',
665
+ smalltalk.method({
666
+ selector: 'block:',
667
+ category: 'accessing',
668
+ fn: function (aBlock){
669
+ var self=this;
670
+ self['@block']=aBlock;
671
+ return self;},
672
+ source: unescape('block%3A%20aBlock%0A%09block%20%3A%3D%20aBlock'),
673
+ messageSends: [],
674
+ referencedClasses: []
675
+ }),
676
+ smalltalk.PPActionParser);
677
+
678
+ smalltalk.addMethod(
679
+ '_parse_',
680
+ smalltalk.method({
681
+ selector: 'parse:',
682
+ category: 'parsing',
683
+ fn: function (aStream){
684
+ var self=this;
685
+ var element=nil;
686
+ element=smalltalk.send(smalltalk.send(self, "_parser", []), "_memoizedParse_", [aStream]);
687
+ return smalltalk.send(smalltalk.send(element, "_isParseFailure", []), "_ifFalse_ifTrue_", [(function(){return smalltalk.send(smalltalk.send(self, "_block", []), "_value_", [element]);}), (function(){return element;})]);
688
+ return self;},
689
+ source: unescape('parse%3A%20aStream%0A%09%7C%20element%20%7C%0A%09element%20%3A%3D%20self%20parser%20memoizedParse%3A%20aStream.%0A%09%5Eelement%20isParseFailure%0A%09%20%20%20%20ifFalse%3A%20%5Bself%20block%20value%3A%20element%5D%0A%09%20%20%20%20ifTrue%3A%20%5Belement%5D'),
690
+ messageSends: ["memoizedParse:", "parser", "ifFalse:ifTrue:", "isParseFailure", "value:", "block"],
691
+ referencedClasses: []
692
+ }),
693
+ smalltalk.PPActionParser);
694
+
695
+
696
+ smalltalk.addMethod(
697
+ '_on_block_',
698
+ smalltalk.method({
699
+ selector: 'on:block:',
700
+ category: 'instance creation',
701
+ fn: function (aParser, aBlock){
702
+ var self=this;
703
+ return (function($rec){smalltalk.send($rec, "_parser_", [aParser]);smalltalk.send($rec, "_block_", [aBlock]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
704
+ return self;},
705
+ source: unescape('on%3A%20aParser%20block%3A%20aBlock%0A%09%20%20%20%20%5Eself%20new%0A%09%09parser%3A%20aParser%3B%0A%09%09block%3A%20aBlock%3B%0A%09%09yourself'),
706
+ messageSends: ["parser:", "block:", "yourself", "new"],
707
+ referencedClasses: []
708
+ }),
709
+ smalltalk.PPActionParser.klass);
710
+
711
+
712
+ smalltalk.addClass('PPFlattenParser', smalltalk.PPDelegateParser, [], 'Parser');
713
+ smalltalk.addMethod(
714
+ '_parse_',
715
+ smalltalk.method({
716
+ selector: 'parse:',
717
+ category: 'parsing',
718
+ fn: function (aStream){
719
+ var self=this;
720
+ var start=nil;
721
+ var element=nil;
722
+ var stop=nil;
723
+ start=smalltalk.send(aStream, "_position", []);
724
+ element=smalltalk.send(smalltalk.send(self, "_parser", []), "_memoizedParse_", [aStream]);
725
+ return smalltalk.send(smalltalk.send(element, "_isParseFailure", []), "_ifTrue_ifFalse_", [(function(){return element;}), (function(){return smalltalk.send(smalltalk.send(aStream, "_collection", []), "_copyFrom_to_", [smalltalk.send(start, "__plus", [(1)]), smalltalk.send(aStream, "_position", [])]);})]);
726
+ return self;},
727
+ source: unescape('parse%3A%20aStream%0A%09%7C%20start%20element%20stop%20%7C%0A%09start%20%3A%3D%20aStream%20position.%0A%09element%20%3A%3D%20self%20parser%20memoizedParse%3A%20aStream.%0A%09%5Eelement%20isParseFailure%0A%09%20%20%20%20ifTrue%3A%20%5Belement%5D%0A%09%20%20%20%20ifFalse%3A%20%5BaStream%20collection%20%0A%09%09copyFrom%3A%20start%20+%201%20%0A%09%09to%3A%20aStream%20position%5D'),
728
+ messageSends: ["position", "memoizedParse:", "parser", "ifTrue:ifFalse:", "isParseFailure", "copyFrom:to:", "collection", unescape("+")],
729
+ referencedClasses: []
730
+ }),
731
+ smalltalk.PPFlattenParser);
732
+
733
+
734
+
735
+ smalltalk.addClass('PPSourceParser', smalltalk.PPDelegateParser, [], 'Parser');
736
+ smalltalk.addMethod(
737
+ '_parse_',
738
+ smalltalk.method({
739
+ selector: 'parse:',
740
+ category: 'parsing',
741
+ fn: function (aStream){
742
+ var self=this;
743
+ var start=nil;
744
+ var element=nil;
745
+ var stop=nil;
746
+ var result=nil;
747
+ start=smalltalk.send(aStream, "_position", []);
748
+ element=smalltalk.send(smalltalk.send(self, "_parser", []), "_memoizedParse_", [aStream]);
749
+ return smalltalk.send(smalltalk.send(element, "_isParseFailure", []), "_ifTrue_ifFalse_", [(function(){return element;}), (function(){result=smalltalk.send(smalltalk.send(aStream, "_collection", []), "_copyFrom_to_", [smalltalk.send(start, "__plus", [(1)]), smalltalk.send(aStream, "_position", [])]);return smalltalk.send(smalltalk.Array, "_with_with_", [element, result]);})]);
750
+ return self;},
751
+ source: unescape('parse%3A%20aStream%0A%09%7C%20start%20element%20stop%20result%20%7C%0A%09start%20%3A%3D%20aStream%20position.%0A%09element%20%3A%3D%20self%20parser%20memoizedParse%3A%20aStream.%0A%09%5Eelement%20isParseFailure%0A%09%09ifTrue%3A%20%5Belement%5D%0A%09%09ifFalse%3A%20%5Bresult%20%3A%3D%20aStream%20collection%20copyFrom%3A%20start%20+%201%20to%3A%20aStream%20position.%0A%09%09%09Array%20with%3A%20element%20with%3A%20result%5D.'),
752
+ messageSends: ["position", "memoizedParse:", "parser", "ifTrue:ifFalse:", "isParseFailure", "copyFrom:to:", "collection", unescape("+"), "with:with:"],
753
+ referencedClasses: [smalltalk.Array]
754
+ }),
755
+ smalltalk.PPSourceParser);
756
+
757
+
758
+
759
+ smalltalk.addClass('PPRepeatingParser', smalltalk.PPDelegateParser, ['min'], 'Parser');
760
+ smalltalk.addMethod(
761
+ '_min',
762
+ smalltalk.method({
763
+ selector: 'min',
764
+ category: 'accessing',
765
+ fn: function (){
766
+ var self=this;
767
+ return self['@min'];
768
+ return self;},
769
+ source: unescape('min%0A%09%5Emin'),
770
+ messageSends: [],
771
+ referencedClasses: []
772
+ }),
773
+ smalltalk.PPRepeatingParser);
774
+
775
+ smalltalk.addMethod(
776
+ '_min_',
777
+ smalltalk.method({
778
+ selector: 'min:',
779
+ category: 'accessing',
780
+ fn: function (aNumber){
781
+ var self=this;
782
+ self['@min']=aNumber;
783
+ return self;},
784
+ source: unescape('min%3A%20aNumber%0A%09min%20%3A%3D%20aNumber'),
785
+ messageSends: [],
786
+ referencedClasses: []
787
+ }),
788
+ smalltalk.PPRepeatingParser);
789
+
790
+ smalltalk.addMethod(
791
+ '_parse_',
792
+ smalltalk.method({
793
+ selector: 'parse:',
794
+ category: 'parsing',
795
+ fn: function (aStream){
796
+ var self=this;
797
+ var start=nil;
798
+ var element=nil;
799
+ var elements=nil;
800
+ var failure=nil;
801
+ start=smalltalk.send(aStream, "_position", []);
802
+ elements=smalltalk.send(smalltalk.Array, "_new", []);
803
+ smalltalk.send((function(){return smalltalk.send(smalltalk.send(smalltalk.send(elements, "_size", []), "__lt", [smalltalk.send(self, "_min", [])]), "_and_", [(function(){return smalltalk.send(failure, "_isNil", []);})]);}), "_whileTrue_", [(function(){element=smalltalk.send(smalltalk.send(self, "_parser", []), "_memoizedParse_", [aStream]);return smalltalk.send(smalltalk.send(element, "_isParseFailure", []), "_ifFalse_ifTrue_", [(function(){return smalltalk.send(elements, "_addLast_", [element]);}), (function(){smalltalk.send(aStream, "_position_", [start]);return failure=element;})]);})]);
804
+ return smalltalk.send(failure, "_ifNil_ifNotNil_", [(function(){smalltalk.send((function(){return smalltalk.send(failure, "_isNil", []);}), "_whileTrue_", [(function(){element=smalltalk.send(smalltalk.send(self, "_parser", []), "_memoizedParse_", [aStream]);return smalltalk.send(smalltalk.send(element, "_isParseFailure", []), "_ifTrue_ifFalse_", [(function(){return failure=element;}), (function(){return smalltalk.send(elements, "_addLast_", [element]);})]);})]);return elements;}), (function(){return failure;})]);
805
+ return self;},
806
+ source: unescape('parse%3A%20aStream%0A%09%7C%20start%20element%20elements%20failure%20%7C%0A%09start%20%3A%3D%20aStream%20position.%0A%09elements%20%3A%3D%20Array%20new.%0A%09%5B%28elements%20size%20%3C%20self%20min%29%20and%3A%20%5Bfailure%20isNil%5D%5D%20whileTrue%3A%20%5B%0A%09%20%20%20%20element%20%3A%3D%20self%20parser%20memoizedParse%3A%20aStream.%0A%09%20%20%20%20element%20isParseFailure%0A%09%09%09ifFalse%3A%20%5Belements%20addLast%3A%20element%5D%0A%09%09%09ifTrue%3A%20%5BaStream%20position%3A%20start.%0A%09%09%09%09%20failure%20%3A%3D%20element%5D%5D.%0A%09%5Efailure%20ifNil%3A%20%5B%0A%09%20%20%20%20%5Bfailure%20isNil%5D%20whileTrue%3A%20%5B%0A%09%09%09element%20%3A%3D%20self%20parser%20memoizedParse%3A%20aStream.%0A%09%20%09%09element%20isParseFailure%0A%09%09%09%09ifTrue%3A%20%5Bfailure%20%3A%3D%20element%5D%0A%09%09%09%09ifFalse%3A%20%5Belements%20addLast%3A%20element%5D%5D.%0A%09%09%09%09elements%5D%0A%09%09ifNotNil%3A%20%5Bfailure%5D.'),
807
+ messageSends: ["position", "new", "whileTrue:", "and:", unescape("%3C"), "size", "min", "isNil", "memoizedParse:", "parser", "ifFalse:ifTrue:", "isParseFailure", "addLast:", "position:", "ifNil:ifNotNil:", "ifTrue:ifFalse:"],
808
+ referencedClasses: [smalltalk.Array]
809
+ }),
810
+ smalltalk.PPRepeatingParser);
811
+
812
+
813
+ smalltalk.addMethod(
814
+ '_on_min_',
815
+ smalltalk.method({
816
+ selector: 'on:min:',
817
+ category: 'instance creation',
818
+ fn: function (aParser, aNumber){
819
+ var self=this;
820
+ return (function($rec){smalltalk.send($rec, "_parser_", [aParser]);smalltalk.send($rec, "_min_", [aNumber]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
821
+ return self;},
822
+ source: unescape('on%3A%20aParser%20min%3A%20aNumber%0A%09%20%20%20%20%5Eself%20new%0A%09%09parser%3A%20aParser%3B%0A%09%09min%3A%20aNumber%3B%0A%09%09yourself'),
823
+ messageSends: ["parser:", "min:", "yourself", "new"],
824
+ referencedClasses: []
825
+ }),
826
+ smalltalk.PPRepeatingParser.klass);
827
+
828
+
829
+ smalltalk.addClass('PPFailure', smalltalk.Object, ['position', 'reason'], 'Parser');
830
+ smalltalk.addMethod(
831
+ '_position',
832
+ smalltalk.method({
833
+ selector: 'position',
834
+ category: 'accessing',
835
+ fn: function (){
836
+ var self=this;
837
+ return smalltalk.send(self['@position'], "_ifNil_", [(function(){return (0);})]);
838
+ return self;},
839
+ source: unescape('position%0A%09%5Eposition%20ifNil%3A%20%5B0%5D'),
840
+ messageSends: ["ifNil:"],
841
+ referencedClasses: []
842
+ }),
843
+ smalltalk.PPFailure);
844
+
845
+ smalltalk.addMethod(
846
+ '_position_',
847
+ smalltalk.method({
848
+ selector: 'position:',
849
+ category: 'accessing',
850
+ fn: function (aNumber){
851
+ var self=this;
852
+ self['@position']=aNumber;
853
+ return self;},
854
+ source: unescape('position%3A%20aNumber%0A%09position%20%3A%3D%20aNumber'),
855
+ messageSends: [],
856
+ referencedClasses: []
857
+ }),
858
+ smalltalk.PPFailure);
859
+
860
+ smalltalk.addMethod(
861
+ '_reason',
862
+ smalltalk.method({
863
+ selector: 'reason',
864
+ category: 'accessing',
865
+ fn: function (){
866
+ var self=this;
867
+ return smalltalk.send(self['@reason'], "_ifNil_", [(function(){return "";})]);
868
+ return self;},
869
+ source: unescape('reason%0A%09%5Ereason%20ifNil%3A%20%5B%27%27%5D'),
870
+ messageSends: ["ifNil:"],
871
+ referencedClasses: []
872
+ }),
873
+ smalltalk.PPFailure);
874
+
875
+ smalltalk.addMethod(
876
+ '_reason_',
877
+ smalltalk.method({
878
+ selector: 'reason:',
879
+ category: 'accessing',
880
+ fn: function (aString){
881
+ var self=this;
882
+ self['@reason']=aString;
883
+ return self;},
884
+ source: unescape('reason%3A%20aString%0A%09reason%20%3A%3D%20aString'),
885
+ messageSends: [],
886
+ referencedClasses: []
887
+ }),
888
+ smalltalk.PPFailure);
889
+
890
+ smalltalk.addMethod(
891
+ '_reason_at_',
892
+ smalltalk.method({
893
+ selector: 'reason:at:',
894
+ category: 'accessing',
895
+ fn: function (aString, anInteger){
896
+ var self=this;
897
+ (function($rec){smalltalk.send($rec, "_reason_", [aString]);return smalltalk.send($rec, "_position_", [anInteger]);})(self);
898
+ return self;},
899
+ source: unescape('reason%3A%20aString%20at%3A%20anInteger%0A%09self%20%0A%09%20%20%20%20reason%3A%20aString%3B%20%0A%09%20%20%20%20position%3A%20anInteger'),
900
+ messageSends: ["reason:", "position:"],
901
+ referencedClasses: []
902
+ }),
903
+ smalltalk.PPFailure);
904
+
905
+ smalltalk.addMethod(
906
+ '_isParseFailure',
907
+ smalltalk.method({
908
+ selector: 'isParseFailure',
909
+ category: 'testing',
910
+ fn: function (){
911
+ var self=this;
912
+ return true;
913
+ return self;},
914
+ source: unescape('isParseFailure%0A%09%5Etrue'),
915
+ messageSends: [],
916
+ referencedClasses: []
917
+ }),
918
+ smalltalk.PPFailure);
919
+
920
+ smalltalk.addMethod(
921
+ '_accept_',
922
+ smalltalk.method({
923
+ selector: 'accept:',
924
+ category: 'accessing',
925
+ fn: function (aVisitor){
926
+ var self=this;
927
+ smalltalk.send(aVisitor, "_visitFailure_", [self]);
928
+ return self;},
929
+ source: unescape('accept%3A%20aVisitor%0A%09aVisitor%20visitFailure%3A%20self'),
930
+ messageSends: ["visitFailure:"],
931
+ referencedClasses: []
932
+ }),
933
+ smalltalk.PPFailure);
934
+
935
+ smalltalk.addMethod(
936
+ '_asString',
937
+ smalltalk.method({
938
+ selector: 'asString',
939
+ category: 'testing',
940
+ fn: function (){
941
+ var self=this;
942
+ return smalltalk.send(smalltalk.send(self['@reason'], "__comma", [" at "]), "__comma", [smalltalk.send(self['@position'], "_asString", [])]);
943
+ return self;},
944
+ source: unescape('asString%0A%09%5Ereason%2C%20%27%20at%20%27%2C%20position%20asString'),
945
+ messageSends: [unescape("%2C"), "asString"],
946
+ referencedClasses: []
947
+ }),
948
+ smalltalk.PPFailure);
949
+
950
+
951
+ smalltalk.addMethod(
952
+ '_reason_at_',
953
+ smalltalk.method({
954
+ selector: 'reason:at:',
955
+ category: 'instance creation',
956
+ fn: function (aString, anInteger){
957
+ var self=this;
958
+ return (function($rec){smalltalk.send($rec, "_reason_at_", [aString, anInteger]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
959
+ return self;},
960
+ source: unescape('reason%3A%20aString%20at%3A%20anInteger%0A%09%20%20%20%20%5Eself%20new%0A%09%09reason%3A%20aString%20at%3A%20anInteger%3B%0A%09%09yourself'),
961
+ messageSends: ["reason:at:", "yourself", "new"],
962
+ referencedClasses: []
963
+ }),
964
+ smalltalk.PPFailure.klass);
965
+
966
+
967
+ smalltalk.addClass('SmalltalkParser', smalltalk.Object, [], 'Parser');
968
+ smalltalk.addMethod(
969
+ '_parse_',
970
+ smalltalk.method({
971
+ selector: 'parse:',
972
+ category: 'parsing',
973
+ fn: function (aStream){
974
+ var self=this;
975
+ return smalltalk.send(smalltalk.send(self, "_parser", []), "_parse_", [aStream]);
976
+ return self;},
977
+ source: unescape('parse%3A%20aStream%0A%09%5Eself%20parser%20parse%3A%20aStream'),
978
+ messageSends: ["parse:", "parser"],
979
+ referencedClasses: []
980
+ }),
981
+ smalltalk.SmalltalkParser);
982
+
983
+ smalltalk.addMethod(
984
+ '_parser',
985
+ smalltalk.method({
986
+ selector: 'parser',
987
+ category: 'grammar',
988
+ fn: function (){
989
+ var self=this;
990
+ var method=nil;
991
+ var expression=nil;
992
+ var separator=nil;
993
+ var comment=nil;
994
+ var ws=nil;
995
+ var identifier=nil;
996
+ var keyword=nil;
997
+ var className=nil;
998
+ var string=nil;
999
+ var symbol=nil;
1000
+ var number=nil;
1001
+ var literalArray=nil;
1002
+ var variable=nil;
1003
+ var reference=nil;
1004
+ var classReference=nil;
1005
+ var literal=nil;
1006
+ var ret=nil;
1007
+ var methodParser=nil;
1008
+ var expressionParser=nil;
1009
+ var keyword=nil;
1010
+ var unarySelector=nil;
1011
+ var binarySelector=nil;
1012
+ var keywordPattern=nil;
1013
+ var unaryPattern=nil;
1014
+ var binaryPattern=nil;
1015
+ var assignment=nil;
1016
+ var temps=nil;
1017
+ var blockParamList=nil;
1018
+ var block=nil;
1019
+ var expression=nil;
1020
+ var expressions=nil;
1021
+ var subexpression=nil;
1022
+ var statements=nil;
1023
+ var sequence=nil;
1024
+ var operand=nil;
1025
+ var unaryMessage=nil;
1026
+ var unarySend=nil;
1027
+ var unaryTail=nil;
1028
+ var binaryMessage=nil;
1029
+ var binarySend=nil;
1030
+ var binaryTail=nil;
1031
+ var keywordMessage=nil;
1032
+ var keywordSend=nil;
1033
+ var keywordPair=nil;
1034
+ var cascade=nil;
1035
+ var message=nil;
1036
+ var jsStatement=nil;
1037
+ separator=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.String, "_cr", []), "__comma", [smalltalk.send(smalltalk.String, "_space", [])]), "__comma", [smalltalk.send(smalltalk.String, "_lf", [])]), "__comma", [smalltalk.send(smalltalk.String, "_tab", [])]), "_asChoiceParser", []);
1038
+ comment=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%22"), "_asCharacterParser", []), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%22"), "_asParser", []), "_not", []), "__comma", [smalltalk.send(smalltalk.PPAnyParser, "_new", [])]), "_star", [])]), "__comma", [smalltalk.send(unescape("%22"), "_asCharacterParser", [])]), "_flatten", []);
1039
+ ws=smalltalk.send(smalltalk.send(separator, "__slash", [comment]), "_star", []);
1040
+ identifier=smalltalk.send(smalltalk.send(smalltalk.send(unescape("a-z"), "_asCharacterParser", []), "__comma", [smalltalk.send(smalltalk.send(unescape("a-zA-Z0-9"), "_asCharacterParser", []), "_star", [])]), "_flatten", []);
1041
+ keyword=smalltalk.send(smalltalk.send(identifier, "__comma", [smalltalk.send(":", "_asParser", [])]), "_flatten", []);
1042
+ className=smalltalk.send(smalltalk.send(smalltalk.send(unescape("A-Z"), "_asCharacterParser", []), "__comma", [smalltalk.send(smalltalk.send(unescape("a-zA-Z0-9"), "_asCharacterParser", []), "_star", [])]), "_flatten", []);
1043
+ string=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%27"), "_asParser", []), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%27%27"), "_asParser", []), "__slash", [smalltalk.send(smalltalk.send(smalltalk.send(unescape("%27"), "_asParser", []), "_not", []), "__comma", [smalltalk.send(smalltalk.PPAnyParser, "_new", [])])]), "_star", []), "_flatten", [])]), "__comma", [smalltalk.send(unescape("%27"), "_asParser", [])]), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.send(smalltalk.ValueNode, "_new", []), "_value_", [smalltalk.send(smalltalk.send(node, "_at_", [(2)]), "_replace_with_", [unescape("%27%27"), unescape("%27")])]);})]);
1044
+ symbol=smalltalk.send(smalltalk.send(smalltalk.send(unescape("%23"), "_asParser", []), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send(unescape("a-zA-Z0-9"), "_asCharacterParser", []), "_plus", []), "_flatten", [])]), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.send(smalltalk.ValueNode, "_new", []), "_value_", [smalltalk.send(node, "_second", [])]);})]);
1045
+ number=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("0-9"), "_asCharacterParser", []), "_plus", []), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send(".", "_asParser", []), "__comma", [smalltalk.send(smalltalk.send(unescape("0-9"), "_asCharacterParser", []), "_plus", [])]), "_optional", [])]), "_flatten", []), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.send(smalltalk.ValueNode, "_new", []), "_value_", [smalltalk.send(node, "_asNumber", [])]);})]);
1046
+ literal=smalltalk.send(smalltalk.PPDelegateParser, "_new", []);
1047
+ literalArray=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%23%28"), "_asParser", []), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send(ws, "__comma", [literal]), "__comma", [ws]), "_star", [])]), "__comma", [smalltalk.send(unescape("%29"), "_asParser", [])]), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.send(smalltalk.ValueNode, "_new", []), "_value_", [smalltalk.send(smalltalk.Array, "_withAll_", [smalltalk.send(smalltalk.send(node, "_second", []), "_collect_", [(function(each){return smalltalk.send(smalltalk.send(each, "_second", []), "_value", []);})])])]);})]);
1048
+ variable=smalltalk.send(identifier, "__eq_eq_gt", [(function(token){return smalltalk.send(smalltalk.send(smalltalk.VariableNode, "_new", []), "_value_", [token]);})]);
1049
+ classReference=smalltalk.send(className, "__eq_eq_gt", [(function(token){return smalltalk.send(smalltalk.send(smalltalk.ClassReferenceNode, "_new", []), "_value_", [token]);})]);
1050
+ reference=smalltalk.send(variable, "__slash", [classReference]);
1051
+ binarySelector=smalltalk.send(smalltalk.send(smalltalk.send(unescape("+*/%3D%3E%3C%2C@%25%7E-"), "_asCharacterParser", []), "_plus", []), "_flatten", []);
1052
+ unarySelector=identifier;
1053
+ keywordPattern=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(ws, "__comma", [keyword]), "__comma", [ws]), "__comma", [identifier]), "_plus", []), "__eq_eq_gt", [(function(nodes){return smalltalk.send(smalltalk.Array, "_with_with_", [smalltalk.send(smalltalk.send(nodes, "_collect_", [(function(each){return smalltalk.send(each, "_at_", [(2)]);})]), "_join_", [""]), smalltalk.send(nodes, "_collect_", [(function(each){return smalltalk.send(each, "_at_", [(4)]);})])]);})]);
1054
+ binaryPattern=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(ws, "__comma", [binarySelector]), "__comma", [ws]), "__comma", [identifier]), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.Array, "_with_with_", [smalltalk.send(node, "_second", []), smalltalk.send(smalltalk.Array, "_with_", [smalltalk.send(node, "_fourth", [])])]);})]);
1055
+ unaryPattern=smalltalk.send(smalltalk.send(ws, "__comma", [unarySelector]), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.Array, "_with_with_", [smalltalk.send(node, "_second", []), smalltalk.send(smalltalk.Array, "_new", [])]);})]);
1056
+ expression=smalltalk.send(smalltalk.PPDelegateParser, "_new", []);
1057
+ expressions=smalltalk.send(smalltalk.send(expression, "__comma", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(ws, "__comma", [smalltalk.send(".", "_asParser", [])]), "__comma", [ws]), "__comma", [expression]), "__eq_eq_gt", [(function(node){return smalltalk.send(node, "_fourth", []);})]), "_star", [])]), "__eq_eq_gt", [(function(node){var result=nil;
1058
+ result=smalltalk.send(smalltalk.Array, "_with_", [smalltalk.send(node, "_first", [])]);smalltalk.send(smalltalk.send(node, "_second", []), "_do_", [(function(each){return smalltalk.send(result, "_add_", [each]);})]);return result;})]);
1059
+ assignment=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(reference, "__comma", [ws]), "__comma", [smalltalk.send(unescape("%3A%3D"), "_asParser", [])]), "__comma", [ws]), "__comma", [expression]), "__eq_eq_gt", [(function(node){return (function($rec){smalltalk.send($rec, "_left_", [smalltalk.send(node, "_first", [])]);return smalltalk.send($rec, "_right_", [smalltalk.send(node, "_at_", [(5)])]);})(smalltalk.send(smalltalk.AssignmentNode, "_new", []));})]);
1060
+ ret=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%5E"), "_asParser", []), "__comma", [ws]), "__comma", [expression]), "__comma", [ws]), "__comma", [smalltalk.send(smalltalk.send(".", "_asParser", []), "_optional", [])]), "__eq_eq_gt", [(function(node){return (function($rec){smalltalk.send($rec, "_addNode_", [smalltalk.send(node, "_third", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(smalltalk.ReturnNode, "_new", []));})]);
1061
+ temps=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%7C"), "_asParser", []), "__comma", [smalltalk.send(smalltalk.send(ws, "__comma", [identifier]), "_star", [])]), "__comma", [ws]), "__comma", [smalltalk.send(unescape("%7C"), "_asParser", [])]), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.send(node, "_second", []), "_collect_", [(function(each){return smalltalk.send(each, "_second", []);})]);})]);
1062
+ blockParamList=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(":", "_asParser", []), "__comma", [identifier]), "__comma", [ws]), "_plus", []), "__comma", [smalltalk.send(unescape("%7C"), "_asParser", [])]), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.send(node, "_first", []), "_collect_", [(function(each){return smalltalk.send(each, "_second", []);})]);})]);
1063
+ subexpression=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%28"), "_asParser", []), "__comma", [ws]), "__comma", [expression]), "__comma", [ws]), "__comma", [smalltalk.send(unescape("%29"), "_asParser", [])]), "__eq_eq_gt", [(function(node){return smalltalk.send(node, "_third", []);})]);
1064
+ statements=smalltalk.send(smalltalk.send(smalltalk.send(ret, "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.Array, "_with_", [node]);})]), "__slash", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(expressions, "__comma", [ws]), "__comma", [smalltalk.send(".", "_asParser", [])]), "__comma", [ws]), "__comma", [ret]), "__eq_eq_gt", [(function(node){return (function($rec){smalltalk.send($rec, "_add_", [smalltalk.send(node, "_at_", [(5)])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(node, "_first", []));})])]), "__slash", [smalltalk.send(smalltalk.send(expressions, "__comma", [smalltalk.send(smalltalk.send(".", "_asParser", []), "_optional", [])]), "__eq_eq_gt", [(function(node){return smalltalk.send(node, "_first", []);})])]);
1065
+ sequence=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(temps, "_optional", []), "__comma", [ws]), "__comma", [smalltalk.send(statements, "_optional", [])]), "__comma", [ws]), "__eq_eq_gt", [(function(node){return (function($rec){smalltalk.send($rec, "_temps_", [smalltalk.send(node, "_first", [])]);smalltalk.send($rec, "_nodes_", [smalltalk.send(node, "_third", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(smalltalk.SequenceNode, "_new", []));})]);
1066
+ block=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%5B"), "_asParser", []), "__comma", [ws]), "__comma", [smalltalk.send(blockParamList, "_optional", [])]), "__comma", [ws]), "__comma", [smalltalk.send(sequence, "_optional", [])]), "__comma", [ws]), "__comma", [smalltalk.send(unescape("%5D"), "_asParser", [])]), "__eq_eq_gt", [(function(node){return (function($rec){smalltalk.send($rec, "_parameters_", [smalltalk.send(node, "_third", [])]);return smalltalk.send($rec, "_addNode_", [smalltalk.send(smalltalk.send(node, "_at_", [(5)]), "_asBlockSequenceNode", [])]);})(smalltalk.send(smalltalk.BlockNode, "_new", []));})]);
1067
+ operand=smalltalk.send(smalltalk.send(literal, "__slash", [reference]), "__slash", [subexpression]);
1068
+ smalltalk.send(literal, "_parser_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(number, "__slash", [string]), "__slash", [literalArray]), "__slash", [symbol]), "__slash", [block])]);
1069
+ unaryMessage=smalltalk.send(smalltalk.send(smalltalk.send(ws, "__comma", [unarySelector]), "__comma", [smalltalk.send(smalltalk.send(":", "_asParser", []), "_not", [])]), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.send(smalltalk.SendNode, "_new", []), "_selector_", [smalltalk.send(node, "_second", [])]);})]);
1070
+ unaryTail=smalltalk.send(smalltalk.PPDelegateParser, "_new", []);
1071
+ smalltalk.send(unaryTail, "_parser_", [smalltalk.send(smalltalk.send(unaryMessage, "__comma", [smalltalk.send(unaryTail, "_optional", [])]), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.send(node, "_second", []), "_ifNil_ifNotNil_", [(function(){return smalltalk.send(node, "_first", []);}), (function(){return smalltalk.send(smalltalk.send(node, "_second", []), "_valueForReceiver_", [smalltalk.send(node, "_first", [])]);})]);})])]);
1072
+ unarySend=smalltalk.send(smalltalk.send(operand, "__comma", [smalltalk.send(unaryTail, "_optional", [])]), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.send(node, "_second", []), "_ifNil_ifNotNil_", [(function(){return smalltalk.send(node, "_first", []);}), (function(){return smalltalk.send(smalltalk.send(node, "_second", []), "_valueForReceiver_", [smalltalk.send(node, "_first", [])]);})]);})]);
1073
+ binaryMessage=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(ws, "__comma", [binarySelector]), "__comma", [ws]), "__comma", [smalltalk.send(unarySend, "__slash", [operand])]), "__eq_eq_gt", [(function(node){return (function($rec){smalltalk.send($rec, "_selector_", [smalltalk.send(node, "_second", [])]);return smalltalk.send($rec, "_arguments_", [smalltalk.send(smalltalk.Array, "_with_", [smalltalk.send(node, "_fourth", [])])]);})(smalltalk.send(smalltalk.SendNode, "_new", []));})]);
1074
+ binaryTail=smalltalk.send(smalltalk.PPDelegateParser, "_new", []);
1075
+ smalltalk.send(binaryTail, "_parser_", [smalltalk.send(smalltalk.send(binaryMessage, "__comma", [smalltalk.send(binaryTail, "_optional", [])]), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.send(node, "_second", []), "_ifNil_ifNotNil_", [(function(){return smalltalk.send(node, "_first", []);}), (function(){return smalltalk.send(smalltalk.send(node, "_second", []), "_valueForReceiver_", [smalltalk.send(node, "_first", [])]);})]);})])]);
1076
+ binarySend=smalltalk.send(smalltalk.send(unarySend, "__comma", [smalltalk.send(binaryTail, "_optional", [])]), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.send(node, "_second", []), "_ifNil_ifNotNil_", [(function(){return smalltalk.send(node, "_first", []);}), (function(){return smalltalk.send(smalltalk.send(node, "_second", []), "_valueForReceiver_", [smalltalk.send(node, "_first", [])]);})]);})]);
1077
+ keywordPair=smalltalk.send(smalltalk.send(keyword, "__comma", [ws]), "__comma", [binarySend]);
1078
+ keywordMessage=smalltalk.send(smalltalk.send(smalltalk.send(ws, "__comma", [keywordPair]), "_plus", []), "__eq_eq_gt", [(function(nodes){return (function($rec){smalltalk.send($rec, "_selector_", [smalltalk.send(smalltalk.send(nodes, "_collect_", [(function(each){return smalltalk.send(smalltalk.send(each, "_second", []), "_first", []);})]), "_join_", [""])]);return smalltalk.send($rec, "_arguments_", [smalltalk.send(nodes, "_collect_", [(function(each){return smalltalk.send(smalltalk.send(each, "_second", []), "_third", []);})])]);})(smalltalk.send(smalltalk.SendNode, "_new", []));})]);
1079
+ keywordSend=smalltalk.send(smalltalk.send(binarySend, "__comma", [keywordMessage]), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.send(node, "_second", []), "_valueForReceiver_", [smalltalk.send(node, "_first", [])]);})]);
1080
+ message=smalltalk.send(smalltalk.send(binaryMessage, "__slash", [unaryMessage]), "__slash", [keywordMessage]);
1081
+ cascade=smalltalk.send(smalltalk.send(smalltalk.send(keywordSend, "__slash", [binarySend]), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send(ws, "__comma", [smalltalk.send(unescape("%3B"), "_asParser", [])]), "__comma", [message]), "_plus", [])]), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.send(node, "_first", []), "_cascadeNodeWithMessages_", [smalltalk.send(smalltalk.send(node, "_second", []), "_collect_", [(function(each){return smalltalk.send(each, "_third", []);})])]);})]);
1082
+ jsStatement=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%3C"), "_asParser", []), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%3E%3E"), "_asParser", []), "__slash", [smalltalk.send(smalltalk.send(smalltalk.send(unescape("%3E"), "_asParser", []), "_not", []), "__comma", [smalltalk.send(smalltalk.PPAnyParser, "_new", [])])]), "_star", []), "_flatten", [])]), "__comma", [smalltalk.send(unescape("%3E"), "_asParser", [])]), "__eq_eq_gt", [(function(node){return (function($rec){smalltalk.send($rec, "_source_", [smalltalk.send(node, "_second", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(smalltalk.JSStatementNode, "_new", []));})]);
1083
+ smalltalk.send(expression, "_parser_", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(assignment, "__slash", [cascade]), "__slash", [keywordSend]), "__slash", [binarySend]), "__slash", [jsStatement])]);
1084
+ method=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(ws, "__comma", [smalltalk.send(smalltalk.send(keywordPattern, "__slash", [binaryPattern]), "__slash", [unaryPattern])]), "__comma", [ws]), "__comma", [smalltalk.send(sequence, "_optional", [])]), "__comma", [ws]), "_withSource", []), "__eq_eq_gt", [(function(node){return (function($rec){smalltalk.send($rec, "_selector_", [smalltalk.send(smalltalk.send(smalltalk.send(node, "_first", []), "_second", []), "_first", [])]);smalltalk.send($rec, "_arguments_", [smalltalk.send(smalltalk.send(smalltalk.send(node, "_first", []), "_second", []), "_second", [])]);smalltalk.send($rec, "_addNode_", [smalltalk.send(smalltalk.send(node, "_first", []), "_fourth", [])]);smalltalk.send($rec, "_source_", [smalltalk.send(node, "_second", [])]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(smalltalk.MethodNode, "_new", []));})]);
1085
+ return smalltalk.send(smalltalk.send(method, "__comma", [smalltalk.send(smalltalk.PPEOFParser, "_new", [])]), "__eq_eq_gt", [(function(node){return smalltalk.send(node, "_first", []);})]);
1086
+ return self;},
1087
+ source: unescape('parser%0A%09%7C%20method%20expression%20separator%20comment%20ws%20identifier%20keyword%20className%20string%20symbol%20number%20literalArray%20variable%20reference%20classReference%20literal%20ret%20methodParser%20expressionParser%20keyword%20unarySelector%20binarySelector%20keywordPattern%20unaryPattern%20binaryPattern%20assignment%20temps%20blockParamList%20block%20expression%20expressions%20subexpression%20statements%20sequence%20operand%20unaryMessage%20unarySend%20unaryTail%20binaryMessage%20binarySend%20binaryTail%20keywordMessage%20keywordSend%20keywordPair%20cascade%20message%20jsStatement%20%7C%0A%09%0A%09separator%20%3A%3D%20%28String%20cr%2C%20String%20space%2C%20String%20lf%2C%20String%20tab%29%20asChoiceParser.%0A%09comment%20%3A%3D%20%28%27%22%27%20asCharacterParser%2C%20%28%27%22%27%20asParser%20not%2C%20PPAnyParser%20new%29%20star%2C%20%27%22%27%20asCharacterParser%29%20flatten.%0A%0A%09ws%20%3A%3D%20%28separator%20/%20comment%29%20star.%0A%09%0A%09identifier%20%3A%3D%20%28%27a-z%27%20asCharacterParser%2C%20%27a-zA-Z0-9%27%20asCharacterParser%20star%29%20flatten.%0A%0A%09keyword%20%3A%3D%20%28identifier%2C%20%27%3A%27%20asParser%29%20flatten.%0A%0A%09className%20%3A%3D%20%28%27A-Z%27%20asCharacterParser%2C%20%27a-zA-Z0-9%27%20asCharacterParser%20star%29%20flatten.%0A%0A%09string%20%3A%3D%20%27%27%27%27%20asParser%2C%20%28%27%27%27%27%27%27%20asParser%20/%20%28%27%27%27%27%20asParser%20not%2C%20PPAnyParser%20new%29%29%20star%20flatten%2C%20%27%27%27%27%20asParser%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%20ValueNode%20new%20value%3A%20%28%28node%20at%3A%202%29%20replace%3A%20%27%27%27%27%27%27%20with%3A%20%27%27%27%27%29%5D.%0A%0A%09symbol%20%3A%3D%20%27%23%27%20asParser%2C%20%27a-zA-Z0-9%27%20asCharacterParser%20plus%20flatten%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%20ValueNode%20new%20value%3A%20node%20second%5D.%0A%0A%09number%20%3A%3D%20%28%270-9%27%20asCharacterParser%20plus%2C%20%28%27.%27%20asParser%2C%20%270-9%27%20asCharacterParser%20plus%29%20optional%29%20flatten%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%20ValueNode%20new%20value%3A%20node%20asNumber%5D.%0A%0A%09literal%20%3A%3D%20PPDelegateParser%20new.%0A%0A%09literalArray%20%3A%3D%20%27%23%28%27%20asParser%2C%20%28ws%2C%20literal%2C%20ws%29%20star%2C%20%27%29%27%20asParser%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%20ValueNode%20new%20value%3A%20%28Array%20withAll%3A%20%28node%20second%20collect%3A%20%5B%3Aeach%20%7C%20each%20second%20value%5D%29%29%5D.%0A%0A%09variable%20%3A%3D%20identifier%20%3D%3D%3E%20%5B%3Atoken%20%7C%20VariableNode%20new%20value%3A%20token%5D.%0A%0A%09classReference%20%3A%3D%20className%20%3D%3D%3E%20%5B%3Atoken%20%7C%20ClassReferenceNode%20new%20value%3A%20token%5D.%0A%0A%09reference%20%3A%3D%20variable%20/%20classReference.%0A%0A%09binarySelector%20%3A%3D%20%27+*/%3D%3E%3C%2C@%25%7E-%27%20asCharacterParser%20plus%20flatten.%0A%0A%09unarySelector%20%3A%3D%20identifier.%0A%0A%09keywordPattern%20%3A%3D%20%28ws%2C%20keyword%2C%20ws%2C%20identifier%29%20plus%0A%09%09%3D%3D%3E%20%5B%3Anodes%20%7C%20Array%0A%09%09%09%09%20%20with%3A%20%28%28nodes%20collect%3A%20%5B%3Aeach%20%7C%20each%20at%3A%202%5D%29%20join%3A%20%27%27%29%0A%09%09%09%09%20%20with%3A%20%28nodes%20collect%3A%20%5B%3Aeach%20%7C%20each%20at%3A%204%5D%29%5D.%0A%0A%09binaryPattern%20%3A%3D%20ws%2C%20binarySelector%2C%20ws%2C%20identifier%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%20Array%20with%3A%20node%20second%20with%3A%20%28Array%20with%3A%20node%20fourth%29%5D.%0A%0A%09unaryPattern%20%3A%3D%20ws%2C%20unarySelector%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%20Array%20with%3A%20node%20second%20with%3A%20Array%20new%5D.%0A%09%0A%09expression%20%3A%3D%20PPDelegateParser%20new.%0A%0A%09expressions%20%3A%3D%20expression%2C%20%28%28ws%2C%20%27.%27%20asParser%2C%20ws%2C%20expression%29%20%3D%3D%3E%20%5B%3Anode%20%7C%20node%20fourth%5D%29%20star%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%7C%20result%20%7C%0A%09%09%20%20%20%20result%20%3A%3D%20Array%20with%3A%20node%20first.%0A%09%09%20%20%20%20node%20second%20do%3A%20%5B%3Aeach%20%7C%20result%20add%3A%20each%5D.%0A%09%09%20%20%20%20result%5D.%0A%0A%09assignment%20%3A%3D%20reference%2C%20ws%2C%20%27%3A%3D%27%20asParser%2C%20ws%2C%20expression%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%20AssignmentNode%20new%20left%3A%20node%20first%3B%20right%3A%20%28node%20at%3A%205%29%5D.%0A%0A%09ret%20%3A%3D%20%27%5E%27%20asParser%2C%20ws%2C%20expression%2C%20ws%2C%20%27.%27%20asParser%20optional%0A%09%20%20%20%20%3D%3D%3E%20%5B%3Anode%20%7C%20ReturnNode%20new%0A%09%09%09%20%20%20%20%20addNode%3A%20node%20third%3B%0A%09%09%09%20%20%20%20%20yourself%5D.%0A%0A%09temps%20%3A%3D%20%27%7C%27%20asParser%2C%20%28ws%2C%20identifier%29%20star%2C%20ws%2C%20%27%7C%27%20asParser%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%20node%20second%20collect%3A%20%5B%3Aeach%20%7C%20each%20second%5D%5D.%0A%0A%09blockParamList%20%3A%3D%20%28%27%3A%27%20asParser%2C%20identifier%2C%20ws%29%20plus%2C%20%27%7C%27%20asParser%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%20node%20first%20collect%3A%20%5B%3Aeach%20%7C%20each%20second%5D%5D.%0A%0A%09subexpression%20%3A%3D%20%27%28%27%20asParser%2C%20ws%2C%20expression%2C%20ws%2C%20%27%29%27%20asParser%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%20node%20third%5D.%0A%0A%09statements%20%3A%3D%20%28ret%20%3D%3D%3E%20%5B%3Anode%20%7C%20Array%20with%3A%20node%5D%29%20/%20%28expressions%2C%20ws%2C%20%27.%27%20asParser%2C%20ws%2C%20ret%20%3D%3D%3E%20%5B%3Anode%20%7C%20node%20first%20add%3A%20%28node%20at%3A%205%29%3B%20yourself%5D%29%20/%20%28expressions%20%2C%20%27.%27%20asParser%20optional%20%3D%3D%3E%20%5B%3Anode%20%7C%20node%20first%5D%29.%0A%0A%09sequence%20%3A%3D%20temps%20optional%2C%20ws%2C%20statements%20optional%2C%20ws%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%20SequenceNode%20new%0A%09%09%09%09%20temps%3A%20node%20first%3B%0A%09%09%09%09%20nodes%3A%20node%20third%3B%0A%09%09%09%09%20yourself%5D.%0A%0A%09block%20%3A%3D%20%27%5B%27%20asParser%2C%20ws%2C%20blockParamList%20optional%2C%20ws%2C%20sequence%20optional%2C%20ws%2C%20%27%5D%27%20asParser%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%0A%09%09%20%20%20%20BlockNode%20new%0A%09%09%09parameters%3A%20node%20third%3B%0A%09%09%09addNode%3A%20%28node%20at%3A%205%29%20asBlockSequenceNode%5D.%0A%0A%09operand%20%3A%3D%20literal%20/%20reference%20/%20subexpression.%0A%0A%09literal%20parser%3A%20number%20/%20string%20/%20literalArray%20/%20symbol%20/%20block.%0A%0A%09unaryMessage%20%3A%3D%20ws%2C%20unarySelector%2C%20%27%3A%27%20asParser%20not%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%20SendNode%20new%20selector%3A%20node%20second%5D.%0A%0A%09unaryTail%20%3A%3D%20PPDelegateParser%20new.%0A%09unaryTail%20parser%3A%20%28unaryMessage%2C%20unaryTail%20optional%0A%09%09%09%20%20%20%20%20%20%20%3D%3D%3E%20%5B%3Anode%20%7C%0A%09%09%09%09%20%20%20node%20second%0A%09%09%09%09%09%20%20%20ifNil%3A%20%5Bnode%20first%5D%0A%09%09%09%09%09%20%20%20ifNotNil%3A%20%5Bnode%20second%20valueForReceiver%3A%20node%20first%5D%5D%29.%0A%0A%09unarySend%20%3A%3D%20operand%2C%20unaryTail%20optional%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%0A%09%09%20%20%20%20node%20second%20%0A%09%09%09ifNil%3A%20%5Bnode%20first%5D%0A%09%09%09ifNotNil%3A%20%5Bnode%20second%20valueForReceiver%3A%20node%20first%5D%5D.%0A%0A%09binaryMessage%20%3A%3D%20ws%2C%20binarySelector%2C%20ws%2C%20%28unarySend%20/%20operand%29%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%0A%09%09%20%20%20%20SendNode%20new%0A%09%09%09selector%3A%20node%20second%3B%0A%09%09%09arguments%3A%20%28Array%20with%3A%20node%20fourth%29%5D.%0A%0A%09binaryTail%20%3A%3D%20PPDelegateParser%20new.%0A%09binaryTail%20parser%3A%20%28binaryMessage%2C%20binaryTail%20optional%0A%09%09%09%09%20%20%20%20%3D%3D%3E%20%5B%3Anode%20%7C%0A%09%09%09%09%09node%20second%20%0A%09%09%09%09%09%20%20%20%20ifNil%3A%20%5Bnode%20first%5D%0A%09%09%09%09%09%20%20%20%20ifNotNil%3A%20%5B%20node%20second%20valueForReceiver%3A%20node%20first%5D%5D%29.%0A%0A%09binarySend%20%3A%3D%20unarySend%2C%20binaryTail%20optional%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%0A%09%09%20%20%20%20node%20second%0A%09%09%09ifNil%3A%20%5Bnode%20first%5D%0A%09%09%09ifNotNil%3A%20%5Bnode%20second%20valueForReceiver%3A%20node%20first%5D%5D.%0A%0A%09keywordPair%20%3A%3D%20keyword%2C%20ws%2C%20binarySend.%0A%0A%09keywordMessage%20%3A%3D%20%28ws%2C%20keywordPair%29%20plus%0A%09%09%3D%3D%3E%20%5B%3Anodes%20%7C%0A%09%09%20%20%20%20SendNode%20new%0A%09%09%09selector%3A%20%28%28nodes%20collect%3A%20%5B%3Aeach%20%7C%20each%20second%20first%5D%29%20join%3A%20%27%27%29%3B%0A%09%09%09arguments%3A%20%28nodes%20collect%3A%20%5B%3Aeach%20%7C%20each%20second%20third%5D%29%5D.%0A%0A%09keywordSend%20%3A%3D%20binarySend%2C%20keywordMessage%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%0A%09%09%20%20%20%20node%20second%20valueForReceiver%3A%20node%20first%5D.%0A%0A%09message%20%3A%3D%20binaryMessage%20/%20unaryMessage%20/%20keywordMessage.%0A%0A%09cascade%20%3A%3D%20%28keywordSend%20/%20binarySend%29%2C%20%28ws%2C%20%27%3B%27%20asParser%2C%20message%29%20plus%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%0A%09%09%20%20%20%20node%20first%20cascadeNodeWithMessages%3A%20%0A%09%09%09%28node%20second%20collect%3A%20%5B%3Aeach%20%7C%20each%20third%5D%29%5D.%0A%0A%09jsStatement%20%3A%3D%20%27%3C%27%20asParser%2C%20%28%27%3E%3E%27%20asParser%20/%20%28%27%3E%27%20asParser%20not%2C%20PPAnyParser%20new%29%29%20star%20flatten%2C%20%27%3E%27%20asParser%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%20JSStatementNode%20new%0A%09%09%09source%3A%20node%20second%3B%0A%09%09%09yourself%5D.%0A%0A%09expression%20parser%3A%20assignment%20/%20cascade%20/%20keywordSend%20/%20binarySend%20/%20jsStatement.%0A%0A%09method%20%3A%3D%20%28ws%2C%20%28keywordPattern%20/%20binaryPattern%20/%20unaryPattern%29%2C%20ws%2C%20sequence%20optional%2C%20ws%29%20withSource%0A%09%20%20%20%20%3D%3D%3E%20%5B%3Anode%20%7C%0A%09%09MethodNode%20new%0A%09%09%20%20%20%20selector%3A%20node%20first%20second%20first%3B%0A%09%09%20%20%20%20arguments%3A%20node%20first%20second%20second%3B%0A%09%09%20%20%20%20addNode%3A%20node%20first%20fourth%3B%0A%09%09%20%20%20%20source%3A%20node%20second%3B%0A%09%09%20%20%20%20yourself%5D.%0A%09%0A%09%5Emethod%2C%20PPEOFParser%20new%20%3D%3D%3E%20%5B%3Anode%20%7C%20node%20first%5D'),
1088
+ messageSends: ["asChoiceParser", unescape("%2C"), "cr", "space", "lf", "tab", "flatten", "asCharacterParser", "star", "not", "asParser", "new", unescape("/"), unescape("%3D%3D%3E"), "value:", "replace:with:", "at:", "plus", "second", "optional", "asNumber", "withAll:", "collect:", "value", "with:with:", "join:", "with:", "fourth", "first", "do:", "add:", "left:", "right:", "addNode:", "third", "yourself", "temps:", "nodes:", "parameters:", "asBlockSequenceNode", "parser:", "selector:", "ifNil:ifNotNil:", "valueForReceiver:", "arguments:", "cascadeNodeWithMessages:", "source:", "withSource"],
1089
+ referencedClasses: [smalltalk.String,smalltalk.PPAnyParser,smalltalk.nil,smalltalk.PPDelegateParser,smalltalk.Array,smalltalk.nil,smalltalk.nil,smalltalk.nil,smalltalk.nil,smalltalk.nil,smalltalk.nil,smalltalk.nil,smalltalk.nil,smalltalk.nil,smalltalk.PPEOFParser]
1090
+ }),
1091
+ smalltalk.SmalltalkParser);
1092
+
1093
+
1094
+ smalltalk.addMethod(
1095
+ '_parse_',
1096
+ smalltalk.method({
1097
+ selector: 'parse:',
1098
+ category: 'instance creation',
1099
+ fn: function (aStream){
1100
+ var self=this;
1101
+ return smalltalk.send(smalltalk.send(self, "_new", []), "_parse_", [aStream]);
1102
+ return self;},
1103
+ source: unescape('parse%3A%20aStream%0A%09%20%20%20%20%5Eself%20new%0A%09%09parse%3A%20aStream'),
1104
+ messageSends: ["parse:", "new"],
1105
+ referencedClasses: []
1106
+ }),
1107
+ smalltalk.SmalltalkParser.klass);
1108
+
1109
+
1110
+ smalltalk.addClass('Chunk', smalltalk.Object, ['contents'], 'Parser');
1111
+ smalltalk.addMethod(
1112
+ '_contents',
1113
+ smalltalk.method({
1114
+ selector: 'contents',
1115
+ category: 'accessing',
1116
+ fn: function (){
1117
+ var self=this;
1118
+ return smalltalk.send(self['@contents'], "_ifNil_", [(function(){return "";})]);
1119
+ return self;},
1120
+ source: unescape('contents%0A%09%5Econtents%20ifNil%3A%20%5B%27%27%5D'),
1121
+ messageSends: ["ifNil:"],
1122
+ referencedClasses: []
1123
+ }),
1124
+ smalltalk.Chunk);
1125
+
1126
+ smalltalk.addMethod(
1127
+ '_contents_',
1128
+ smalltalk.method({
1129
+ selector: 'contents:',
1130
+ category: 'accessing',
1131
+ fn: function (aString){
1132
+ var self=this;
1133
+ self['@contents']=aString;
1134
+ return self;},
1135
+ source: unescape('contents%3A%20aString%0A%09contents%20%3A%3D%20aString'),
1136
+ messageSends: [],
1137
+ referencedClasses: []
1138
+ }),
1139
+ smalltalk.Chunk);
1140
+
1141
+ smalltalk.addMethod(
1142
+ '_isEmptyChunk',
1143
+ smalltalk.method({
1144
+ selector: 'isEmptyChunk',
1145
+ category: 'testing',
1146
+ fn: function (){
1147
+ var self=this;
1148
+ return false;
1149
+ return self;},
1150
+ source: unescape('isEmptyChunk%0A%09%5Efalse'),
1151
+ messageSends: [],
1152
+ referencedClasses: []
1153
+ }),
1154
+ smalltalk.Chunk);
1155
+
1156
+ smalltalk.addMethod(
1157
+ '_isInstructionChunk',
1158
+ smalltalk.method({
1159
+ selector: 'isInstructionChunk',
1160
+ category: 'testing',
1161
+ fn: function (){
1162
+ var self=this;
1163
+ return false;
1164
+ return self;},
1165
+ source: unescape('isInstructionChunk%0A%09%5Efalse'),
1166
+ messageSends: [],
1167
+ referencedClasses: []
1168
+ }),
1169
+ smalltalk.Chunk);
1170
+
1171
+
1172
+
1173
+ smalltalk.addClass('InstructionChunk', smalltalk.Chunk, [], 'Parser');
1174
+ smalltalk.addMethod(
1175
+ '_isInstructionChunk',
1176
+ smalltalk.method({
1177
+ selector: 'isInstructionChunk',
1178
+ category: 'testing',
1179
+ fn: function (){
1180
+ var self=this;
1181
+ return true;
1182
+ return self;},
1183
+ source: unescape('isInstructionChunk%0A%09%5Etrue'),
1184
+ messageSends: [],
1185
+ referencedClasses: []
1186
+ }),
1187
+ smalltalk.InstructionChunk);
1188
+
1189
+
1190
+
1191
+ smalltalk.addClass('EmptyChunk', smalltalk.Chunk, [], 'Parser');
1192
+ smalltalk.addMethod(
1193
+ '_isEmptyChunk',
1194
+ smalltalk.method({
1195
+ selector: 'isEmptyChunk',
1196
+ category: 'testing',
1197
+ fn: function (){
1198
+ var self=this;
1199
+ return true;
1200
+ return self;},
1201
+ source: unescape('isEmptyChunk%0A%09%5Etrue'),
1202
+ messageSends: [],
1203
+ referencedClasses: []
1204
+ }),
1205
+ smalltalk.EmptyChunk);
1206
+
1207
+
1208
+
1209
+ smalltalk.addClass('ChunkParser', smalltalk.Object, ['parser', 'separator', 'eof', 'ws', 'chunk', 'emptyChunk', 'instructionChunk'], 'Parser');
1210
+ smalltalk.addMethod(
1211
+ '_parser',
1212
+ smalltalk.method({
1213
+ selector: 'parser',
1214
+ category: 'accessing',
1215
+ fn: function (){
1216
+ var self=this;
1217
+ return smalltalk.send(self['@parser'], "_ifNil_", [(function(){return self['@parser']=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_instructionChunk", []), "__slash", [smalltalk.send(self, "_emptyChunk", [])]), "__slash", [smalltalk.send(self, "_chunk", [])]), "__slash", [smalltalk.send(self, "_eof", [])]);})]);
1218
+ return self;},
1219
+ source: unescape('parser%0A%09%5Eparser%20ifNil%3A%20%5B%0A%09%20%20%20%20parser%20%3A%3D%20self%20instructionChunk%20/%20self%20emptyChunk%20/%20self%20chunk%20/%20self%20eof%5D'),
1220
+ messageSends: ["ifNil:", unescape("/"), "instructionChunk", "emptyChunk", "chunk", "eof"],
1221
+ referencedClasses: []
1222
+ }),
1223
+ smalltalk.ChunkParser);
1224
+
1225
+ smalltalk.addMethod(
1226
+ '_eof',
1227
+ smalltalk.method({
1228
+ selector: 'eof',
1229
+ category: 'accessing',
1230
+ fn: function (){
1231
+ var self=this;
1232
+ return smalltalk.send(self['@eof'], "_ifNil_", [(function(){return self['@eof']=smalltalk.send(smalltalk.send(smalltalk.send(self, "_ws", []), "__comma", [smalltalk.send(smalltalk.PPEOFParser, "_new", [])]), "__eq_eq_gt", [(function(node){return nil;})]);})]);
1233
+ return self;},
1234
+ source: unescape('eof%0A%09%5Eeof%20ifNil%3A%20%5Beof%20%3A%3D%20self%20ws%2C%20PPEOFParser%20new%20%3D%3D%3E%20%5B%3Anode%20%7C%20nil%5D%5D'),
1235
+ messageSends: ["ifNil:", unescape("%3D%3D%3E"), unescape("%2C"), "ws", "new"],
1236
+ referencedClasses: [smalltalk.PPEOFParser]
1237
+ }),
1238
+ smalltalk.ChunkParser);
1239
+
1240
+ smalltalk.addMethod(
1241
+ '_separator',
1242
+ smalltalk.method({
1243
+ selector: 'separator',
1244
+ category: 'accessing',
1245
+ fn: function (){
1246
+ var self=this;
1247
+ return smalltalk.send(self['@separator'], "_ifNil_", [(function(){return self['@separator']=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.String, "_cr", []), "__comma", [smalltalk.send(smalltalk.String, "_space", [])]), "__comma", [smalltalk.send(smalltalk.String, "_lf", [])]), "__comma", [smalltalk.send(smalltalk.String, "_tab", [])]), "_asChoiceParser", []);})]);
1248
+ return self;},
1249
+ source: unescape('separator%0A%09%5Eseparator%20ifNil%3A%20%5Bseparator%20%3A%3D%20%28String%20cr%2C%20String%20space%2C%20String%20lf%2C%20String%20tab%29%20asChoiceParser%5D'),
1250
+ messageSends: ["ifNil:", "asChoiceParser", unescape("%2C"), "cr", "space", "lf", "tab"],
1251
+ referencedClasses: [smalltalk.String]
1252
+ }),
1253
+ smalltalk.ChunkParser);
1254
+
1255
+ smalltalk.addMethod(
1256
+ '_ws',
1257
+ smalltalk.method({
1258
+ selector: 'ws',
1259
+ category: 'accessing',
1260
+ fn: function (){
1261
+ var self=this;
1262
+ return smalltalk.send(self['@ws'], "_ifNil_", [(function(){return self['@ws']=smalltalk.send(smalltalk.send(self, "_separator", []), "_star", []);})]);
1263
+ return self;},
1264
+ source: unescape('ws%0A%09%5Ews%20ifNil%3A%20%5Bws%20%3A%3D%20self%20separator%20star%5D'),
1265
+ messageSends: ["ifNil:", "star", "separator"],
1266
+ referencedClasses: []
1267
+ }),
1268
+ smalltalk.ChunkParser);
1269
+
1270
+ smalltalk.addMethod(
1271
+ '_chunk',
1272
+ smalltalk.method({
1273
+ selector: 'chunk',
1274
+ category: 'accessing',
1275
+ fn: function (){
1276
+ var self=this;
1277
+ return smalltalk.send(self['@chunk'], "_ifNil_", [(function(){return self['@chunk']=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_ws", []), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(unescape("%21%21"), "_asParser", []), "__slash", [smalltalk.send(smalltalk.send(smalltalk.send(unescape("%21"), "_asParser", []), "_not", []), "__comma", [smalltalk.send(smalltalk.PPAnyParser, "_new", [])])]), "_plus", []), "_flatten", [])]), "__comma", [smalltalk.send(unescape("%21"), "_asParser", [])]), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.send(smalltalk.Chunk, "_new", []), "_contents_", [smalltalk.send(smalltalk.send(smalltalk.send(node, "_second", []), "_replace_with_", [unescape("%21%21"), unescape("%21")]), "_trimBoth", [])]);})]);})]);
1278
+ return self;},
1279
+ source: unescape('chunk%0A%09%5Echunk%20ifNil%3A%20%5Bchunk%20%3A%3D%20self%20ws%2C%20%28%27%21%21%27%20asParser%20/%20%28%27%21%27%20asParser%20not%2C%20PPAnyParser%20new%29%29%20plus%20flatten%2C%20%27%21%27%20asParser%0A%09%09%3D%3D%3E%20%5B%3Anode%20%7C%20Chunk%20new%20contents%3A%20%28node%20second%20replace%3A%20%27%21%21%27%20with%3A%20%27%21%27%29%20trimBoth%5D%5D'),
1280
+ messageSends: ["ifNil:", unescape("%3D%3D%3E"), unescape("%2C"), "ws", "flatten", "plus", unescape("/"), "asParser", "not", "new", "contents:", "trimBoth", "replace:with:", "second"],
1281
+ referencedClasses: [smalltalk.PPAnyParser,smalltalk.Chunk]
1282
+ }),
1283
+ smalltalk.ChunkParser);
1284
+
1285
+ smalltalk.addMethod(
1286
+ '_emptyChunk',
1287
+ smalltalk.method({
1288
+ selector: 'emptyChunk',
1289
+ category: 'accessing',
1290
+ fn: function (){
1291
+ var self=this;
1292
+ return smalltalk.send(self['@emptyChunk'], "_ifNil_", [(function(){return self['@emptyChunk']=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_separator", []), "_plus", []), "__comma", [smalltalk.send(unescape("%21"), "_asParser", [])]), "__comma", [smalltalk.send(self, "_ws", [])]), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.EmptyChunk, "_new", []);})]);})]);
1293
+ return self;},
1294
+ source: unescape('emptyChunk%0A%09%5EemptyChunk%20ifNil%3A%20%5BemptyChunk%20%3A%3D%20self%20separator%20plus%2C%20%27%21%27%20asParser%2C%20self%20ws%20%3D%3D%3E%20%5B%3Anode%20%7C%20EmptyChunk%20new%5D%5D'),
1295
+ messageSends: ["ifNil:", unescape("%3D%3D%3E"), unescape("%2C"), "plus", "separator", "asParser", "ws", "new"],
1296
+ referencedClasses: [smalltalk.EmptyChunk]
1297
+ }),
1298
+ smalltalk.ChunkParser);
1299
+
1300
+ smalltalk.addMethod(
1301
+ '_instructionChunk',
1302
+ smalltalk.method({
1303
+ selector: 'instructionChunk',
1304
+ category: '',
1305
+ fn: function (){
1306
+ var self=this;
1307
+ return smalltalk.send(self['@instructionChunk'], "_ifNil_", [(function(){return self['@instructionChunk']=smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self, "_ws", []), "__comma", [smalltalk.send(unescape("%21"), "_asParser", [])]), "__comma", [smalltalk.send(self, "_chunk", [])]), "__eq_eq_gt", [(function(node){return smalltalk.send(smalltalk.send(smalltalk.InstructionChunk, "_new", []), "_contents_", [smalltalk.send(smalltalk.send(node, "_last", []), "_contents", [])]);})]);})]);
1308
+ return self;},
1309
+ source: unescape('instructionChunk%0A%09%5EinstructionChunk%20ifNil%3A%20%5B%0A%09%20%20%20%20instructionChunk%20%3A%3D%20self%20ws%2C%20%27%21%27%20asParser%2C%20self%20chunk%0A%09%20%20%20%20%3D%3D%3E%20%5B%3Anode%20%7C%20InstructionChunk%20new%20contents%3A%20node%20last%20contents%5D%5D'),
1310
+ messageSends: ["ifNil:", unescape("%3D%3D%3E"), unescape("%2C"), "ws", "asParser", "chunk", "contents:", "new", "contents", "last"],
1311
+ referencedClasses: [smalltalk.InstructionChunk]
1312
+ }),
1313
+ smalltalk.ChunkParser);
1314
+
1315
+
1316
+
1317
+ smalltalk.addClass('Importer', smalltalk.Object, ['chunkParser'], 'Parser');
1318
+ smalltalk.addMethod(
1319
+ '_chunkParser',
1320
+ smalltalk.method({
1321
+ selector: 'chunkParser',
1322
+ category: 'accessing',
1323
+ fn: function (){
1324
+ var self=this;
1325
+ return smalltalk.send(self['@chunkParser'], "_ifNil_", [(function(){return self['@chunkParser']=smalltalk.send(smalltalk.send(smalltalk.ChunkParser, "_new", []), "_parser", []);})]);
1326
+ return self;},
1327
+ source: unescape('chunkParser%0A%09%5EchunkParser%20ifNil%3A%20%5BchunkParser%20%3A%3D%20ChunkParser%20new%20parser%5D'),
1328
+ messageSends: ["ifNil:", "parser", "new"],
1329
+ referencedClasses: [smalltalk.ChunkParser]
1330
+ }),
1331
+ smalltalk.Importer);
1332
+
1333
+ smalltalk.addMethod(
1334
+ '_import_',
1335
+ smalltalk.method({
1336
+ selector: 'import:',
1337
+ category: 'fileIn',
1338
+ fn: function (aStream){
1339
+ var self=this;
1340
+ smalltalk.send(smalltalk.send(aStream, "_atEnd", []), "_ifFalse_", [(function(){var nextChunk=nil;
1341
+ nextChunk=smalltalk.send(smalltalk.send(self, "_chunkParser", []), "_parse_", [aStream]);return smalltalk.send(nextChunk, "_ifNotNil_", [(function(){smalltalk.send(smalltalk.send(nextChunk, "_isInstructionChunk", []), "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.Compiler, "_new", []), "_loadExpression_", [smalltalk.send(nextChunk, "_contents", [])]), "_scanFrom_", [aStream]);}), (function(){return smalltalk.send(smalltalk.send(smalltalk.Compiler, "_new", []), "_loadExpression_", [smalltalk.send(nextChunk, "_contents", [])]);})]);return smalltalk.send(self, "_import_", [aStream]);})]);})]);
1342
+ return self;},
1343
+ source: unescape('import%3A%20aStream%0A%09aStream%20atEnd%20ifFalse%3A%20%5B%0A%09%20%20%20%20%7C%20nextChunk%20%7C%0A%09%20%20%20%20nextChunk%20%3A%3D%20self%20chunkParser%20parse%3A%20aStream.%0A%09%20%20%20%20nextChunk%20ifNotNil%3A%20%5B%0A%09%09nextChunk%20isInstructionChunk%20%0A%09%09%20%20%20%20ifTrue%3A%20%5B%28Compiler%20new%20loadExpression%3A%20nextChunk%20contents%29%0A%09%09%09%09%09%20scanFrom%3A%20aStream%5D%0A%09%09%20%20%20%20ifFalse%3A%20%5BCompiler%20new%20loadExpression%3A%20nextChunk%20contents%5D.%0A%09%09self%20import%3A%20aStream%5D%5D'),
1344
+ messageSends: ["ifFalse:", "atEnd", "parse:", "chunkParser", "ifNotNil:", "ifTrue:ifFalse:", "isInstructionChunk", "scanFrom:", "loadExpression:", "new", "contents", "import:"],
1345
+ referencedClasses: [smalltalk.nil]
1346
+ }),
1347
+ smalltalk.Importer);
1348
+
1349
+
1350
+
1351
+ smalltalk.addClass('Exporter', smalltalk.Object, [], 'Parser');
1352
+ smalltalk.addMethod(
1353
+ '_exportCategory_',
1354
+ smalltalk.method({
1355
+ selector: 'exportCategory:',
1356
+ category: 'fileOut',
1357
+ fn: function (aString){
1358
+ var self=this;
1359
+ var stream=nil;
1360
+ stream=smalltalk.send("", "_writeStream", []);
1361
+ smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.Smalltalk, "_current", []), "_classes", []), "_select_", [(function(each){return smalltalk.send(smalltalk.send(each, "_category", []), "__eq", [aString]);})]), "_do_", [(function(each){return smalltalk.send(stream, "_nextPutAll_", [smalltalk.send(self, "_export_", [each])]);})]);
1362
+ smalltalk.send(self, "_exportCategoryExtensions_on_", [aString, stream]);
1363
+ return smalltalk.send(stream, "_contents", []);
1364
+ return self;},
1365
+ source: unescape('exportCategory%3A%20aString%0A%09%7C%20stream%20%7C%0A%09stream%20%3A%3D%20%27%27%20writeStream.%0A%09%28Smalltalk%20current%20classes%20%0A%09%20%20%20%20select%3A%20%5B%3Aeach%20%7C%20each%20category%20%3D%20aString%5D%29%0A%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20stream%20nextPutAll%3A%20%28self%20export%3A%20each%29%5D.%0A%09self%20exportCategoryExtensions%3A%20aString%20on%3A%20stream.%0A%09%5Estream%20contents'),
1366
+ messageSends: ["writeStream", "do:", "select:", "classes", "current", unescape("%3D"), "category", "nextPutAll:", "export:", "exportCategoryExtensions:on:", "contents"],
1367
+ referencedClasses: [smalltalk.Smalltalk]
1368
+ }),
1369
+ smalltalk.Exporter);
1370
+
1371
+ smalltalk.addMethod(
1372
+ '_export_',
1373
+ smalltalk.method({
1374
+ selector: 'export:',
1375
+ category: 'fileOut',
1376
+ fn: function (aClass){
1377
+ var self=this;
1378
+ var stream=nil;
1379
+ stream=smalltalk.send("", "_writeStream", []);
1380
+ smalltalk.send(self, "_exportDefinitionOf_on_", [aClass, stream]);
1381
+ smalltalk.send(self, "_exportMethodsOf_on_", [aClass, stream]);
1382
+ smalltalk.send(self, "_exportMetaDefinitionOf_on_", [aClass, stream]);
1383
+ smalltalk.send(self, "_exportMethodsOf_on_", [smalltalk.send(aClass, "_class", []), stream]);
1384
+ return smalltalk.send(stream, "_contents", []);
1385
+ return self;},
1386
+ source: unescape('export%3A%20aClass%0A%09%7C%20stream%20%7C%0A%09stream%20%3A%3D%20%27%27%20writeStream.%0A%09self%20exportDefinitionOf%3A%20aClass%20on%3A%20stream.%0A%09self%20exportMethodsOf%3A%20aClass%20on%3A%20stream.%0A%09self%20exportMetaDefinitionOf%3A%20aClass%20on%3A%20stream.%0A%09self%20exportMethodsOf%3A%20aClass%20class%20on%3A%20stream.%0A%09%5Estream%20contents'),
1387
+ messageSends: ["writeStream", "exportDefinitionOf:on:", "exportMethodsOf:on:", "exportMetaDefinitionOf:on:", "class", "contents"],
1388
+ referencedClasses: []
1389
+ }),
1390
+ smalltalk.Exporter);
1391
+
1392
+ smalltalk.addMethod(
1393
+ '_exportDefinitionOf_on_',
1394
+ smalltalk.method({
1395
+ selector: 'exportDefinitionOf:on:',
1396
+ category: 'private',
1397
+ fn: function (aClass, aStream){
1398
+ var self=this;
1399
+ (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.addClass%28")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])]), "__comma", [unescape("%27%2C%20")])]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send("smalltalk.", "__comma", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_superclass", [])])])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%2C%20%5B")]);})(aStream);
1400
+ smalltalk.send(smalltalk.send(aClass, "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [each]), "__comma", [unescape("%27")])]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [unescape("%2C%20")]);})]);
1401
+ (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%5D%2C%20%27")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(aClass, "_category", []), "__comma", [unescape("%27")])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%29%3B")]);})(aStream);
1402
+ smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_comment", []), "_notEmpty", []), "_ifTrue_", [(function(){return (function($rec){smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", ["smalltalk."]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_classNameFor_", [aClass])]);smalltalk.send($rec, "_nextPutAll_", [unescape(".comment%3D")]);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("unescape%28%27"), "__comma", [smalltalk.send(smalltalk.send(aClass, "_comment", []), "_escaped", [])]), "__comma", [unescape("%27%29")])]);})(aStream);})]);
1403
+ smalltalk.send(aStream, "_lf", []);
1404
+ return self;},
1405
+ source: unescape('exportDefinitionOf%3A%20aClass%20on%3A%20aStream%0A%09aStream%20%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.addClass%28%27%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%27%27%27%2C%20%28self%20classNameFor%3A%20aClass%29%2C%20%27%27%27%2C%20%27%3B%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.%27%2C%20%28self%20classNameFor%3A%20aClass%20superclass%29%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%2C%20%5B%27.%0A%09aClass%20instanceVariableNames%20%0A%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20aStream%20nextPutAll%3A%20%27%27%27%27%2C%20each%2C%20%27%27%27%27%5D%0A%09%20%20%20%20separatedBy%3A%20%5BaStream%20nextPutAll%3A%20%27%2C%20%27%5D.%0A%09aStream%09%0A%09%20%20%20%20nextPutAll%3A%20%27%5D%2C%20%27%27%27%3B%0A%09%20%20%20%20nextPutAll%3A%20aClass%20category%2C%20%27%27%27%27%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%29%3B%27.%0A%09aClass%20comment%20notEmpty%20ifTrue%3A%20%5B%0A%09%20%20%20%20aStream%20%0A%09%20%20%20%20%09lf%3B%0A%09%09nextPutAll%3A%20%27smalltalk.%27%3B%0A%09%09nextPutAll%3A%20%28self%20classNameFor%3A%20aClass%29%3B%0A%09%09nextPutAll%3A%20%27.comment%3D%27%3B%0A%09%09nextPutAll%3A%20%27unescape%28%27%27%27%2C%20aClass%20comment%20escaped%2C%20%27%27%27%29%27%5D.%0A%09aStream%20lf'),
1406
+ messageSends: ["nextPutAll:", unescape("%2C"), "classNameFor:", "superclass", "do:separatedBy:", "instanceVariableNames", "category", "ifTrue:", "notEmpty", "comment", "lf", "escaped"],
1407
+ referencedClasses: []
1408
+ }),
1409
+ smalltalk.Exporter);
1410
+
1411
+ smalltalk.addMethod(
1412
+ '_exportMetaDefinitionOf_on_',
1413
+ smalltalk.method({
1414
+ selector: 'exportMetaDefinitionOf:on:',
1415
+ category: 'private',
1416
+ fn: function (aClass, aStream){
1417
+ var self=this;
1418
+ smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_instanceVariableNames", []), "_isEmpty", []), "_ifFalse_", [(function(){(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send("smalltalk.", "__comma", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_class", [])])])]);return smalltalk.send($rec, "_nextPutAll_", [unescape(".iVarNames%20%3D%20%5B")]);})(aStream);smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [each]), "__comma", [unescape("%27")])]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [unescape("%2C")]);})]);return smalltalk.send(aStream, "_nextPutAll_", [smalltalk.send(unescape("%5D%3B"), "__comma", [smalltalk.send(smalltalk.String, "_lf", [])])]);})]);
1419
+ return self;},
1420
+ source: unescape('exportMetaDefinitionOf%3A%20aClass%20on%3A%20aStream%0A%09aClass%20class%20instanceVariableNames%20isEmpty%20ifFalse%3A%20%5B%0A%09%20%20%20%20aStream%20%0A%09%09nextPutAll%3A%20%27smalltalk.%27%2C%20%28self%20classNameFor%3A%20aClass%20class%29%3B%0A%09%09nextPutAll%3A%20%27.iVarNames%20%3D%20%5B%27.%0A%09%20%20%20%20aClass%20class%20instanceVariableNames%0A%09%09do%3A%20%5B%3Aeach%20%7C%20aStream%20nextPutAll%3A%20%27%27%27%27%2C%20each%2C%20%27%27%27%27%5D%0A%09%09separatedBy%3A%20%5BaStream%20nextPutAll%3A%20%27%2C%27%5D.%0A%09%20%20%20%20aStream%20nextPutAll%3A%20%27%5D%3B%27%2C%20String%20lf%5D'),
1421
+ messageSends: ["ifFalse:", "isEmpty", "instanceVariableNames", "class", "nextPutAll:", unescape("%2C"), "classNameFor:", "do:separatedBy:", "lf"],
1422
+ referencedClasses: [smalltalk.String]
1423
+ }),
1424
+ smalltalk.Exporter);
1425
+
1426
+ smalltalk.addMethod(
1427
+ '_exportMethodsOf_on_',
1428
+ smalltalk.method({
1429
+ selector: 'exportMethodsOf:on:',
1430
+ category: 'private',
1431
+ fn: function (aClass, aStream){
1432
+ var self=this;
1433
+ smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_methodDictionary", []), "_values", []), "_do_", [(function(each){return smalltalk.send(smalltalk.send(smalltalk.send(each, "_category", []), "_match_", [unescape("%5E%5C*")]), "_ifFalse_", [(function(){return smalltalk.send(self, "_exportMethod_of_on_", [each, aClass, aStream]);})]);})]);
1434
+ smalltalk.send(aStream, "_lf", []);
1435
+ return self;},
1436
+ source: unescape('exportMethodsOf%3A%20aClass%20on%3A%20aStream%0A%09aClass%20methodDictionary%20values%20do%3A%20%5B%3Aeach%20%7C%0A%09%09%28each%20category%20match%3A%20%27%5E%5C*%27%29%20ifFalse%3A%20%5B%0A%09%09%09self%20exportMethod%3A%20each%20of%3A%20aClass%20on%3A%20aStream%5D%5D.%0A%09aStream%20lf'),
1437
+ messageSends: ["do:", "values", "methodDictionary", "ifFalse:", "match:", "category", "exportMethod:of:on:", "lf"],
1438
+ referencedClasses: []
1439
+ }),
1440
+ smalltalk.Exporter);
1441
+
1442
+ smalltalk.addMethod(
1443
+ '_classNameFor_',
1444
+ smalltalk.method({
1445
+ selector: 'classNameFor:',
1446
+ category: 'private',
1447
+ fn: function (aClass){
1448
+ var self=this;
1449
+ return smalltalk.send(smalltalk.send(aClass, "_isMetaclass", []), "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_instanceClass", []), "_name", []), "__comma", [".klass"]);}), (function(){return smalltalk.send(smalltalk.send(aClass, "_isNil", []), "_ifTrue_ifFalse_", [(function(){return "nil";}), (function(){return smalltalk.send(aClass, "_name", []);})]);})]);
1450
+ return self;},
1451
+ source: unescape('classNameFor%3A%20aClass%0A%09%5EaClass%20isMetaclass%0A%09%20%20%20%20ifTrue%3A%20%5BaClass%20instanceClass%20name%2C%20%27.klass%27%5D%0A%09%20%20%20%20ifFalse%3A%20%5B%0A%09%09aClass%20isNil%0A%09%09%20%20%20%20ifTrue%3A%20%5B%27nil%27%5D%0A%09%09%20%20%20%20ifFalse%3A%20%5BaClass%20name%5D%5D'),
1452
+ messageSends: ["ifTrue:ifFalse:", "isMetaclass", unescape("%2C"), "name", "instanceClass", "isNil"],
1453
+ referencedClasses: []
1454
+ }),
1455
+ smalltalk.Exporter);
1456
+
1457
+ smalltalk.addMethod(
1458
+ '_exportMethod_of_on_',
1459
+ smalltalk.method({
1460
+ selector: 'exportMethod:of:on:',
1461
+ category: 'private',
1462
+ fn: function (aMethod, aClass, aStream){
1463
+ var self=this;
1464
+ (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.addMethod%28")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [smalltalk.send(smalltalk.send(aMethod, "_selector", []), "_asSelector", [])]), "__comma", [unescape("%27%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.method%28%7B")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("selector%3A%20%27"), "__comma", [smalltalk.send(aMethod, "_selector", [])]), "__comma", [unescape("%27%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("category%3A%20%27"), "__comma", [smalltalk.send(aMethod, "_category", [])]), "__comma", [unescape("%27%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("fn: ", "__comma", [smalltalk.send(smalltalk.send(aMethod, "_fn", []), "_compiledSource", [])]), "__comma", [unescape("%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("source%3A%20unescape%28%27"), "__comma", [smalltalk.send(smalltalk.send(aMethod, "_source", []), "_escaped", [])]), "__comma", [unescape("%27%29%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("messageSends: ", "__comma", [smalltalk.send(smalltalk.send(aMethod, "_messageSends", []), "_asJavascript", [])]), "__comma", [unescape("%2C")])]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [unescape("referencedClasses%3A%20%5B")]);})(aStream);
1465
+ smalltalk.send(smalltalk.send(aMethod, "_referencedClasses", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [smalltalk.send("smalltalk.", "__comma", [smalltalk.send(self, "_classNameFor_", [each])])]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [unescape("%2C")]);})]);
1466
+ (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%5D")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [unescape("%7D%29%2C")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send("smalltalk.", "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])])]);smalltalk.send($rec, "_nextPutAll_", [unescape("%29%3B")]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_lf", []);})(aStream);
1467
+ return self;},
1468
+ source: unescape('exportMethod%3A%20aMethod%20of%3A%20aClass%20on%3A%20aStream%0A%09aStream%20%0A%09%09nextPutAll%3A%20%27smalltalk.addMethod%28%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27%27%27%27%2C%20aMethod%20selector%20asSelector%2C%20%27%27%27%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27smalltalk.method%28%7B%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27selector%3A%20%27%27%27%2C%20aMethod%20selector%2C%20%27%27%27%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27category%3A%20%27%27%27%2C%20aMethod%20category%2C%20%27%27%27%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27fn%3A%20%27%2C%20aMethod%20fn%20compiledSource%2C%20%27%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27source%3A%20unescape%28%27%27%27%2C%20aMethod%20source%20escaped%2C%20%27%27%27%29%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27messageSends%3A%20%27%2C%20aMethod%20messageSends%20asJavascript%2C%20%27%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27referencedClasses%3A%20%5B%27.%0A%09%20%20%20%20%09%09aMethod%20referencedClasses%20%0A%09%09%09%09do%3A%20%5B%3Aeach%20%7C%20aStream%20nextPutAll%3A%20%27smalltalk.%27%2C%20%28self%20classNameFor%3A%20each%29%5D%0A%09%09%09%09separatedBy%3A%20%5BaStream%20nextPutAll%3A%20%27%2C%27%5D.%0A%09aStream%0A%09%09nextPutAll%3A%20%27%5D%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27%7D%29%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27smalltalk.%27%2C%20%28self%20classNameFor%3A%20aClass%29%3B%0A%09%09nextPutAll%3A%20%27%29%3B%27%3Blf%3Blf'),
1469
+ messageSends: ["nextPutAll:", "lf", unescape("%2C"), "asSelector", "selector", "category", "compiledSource", "fn", "escaped", "source", "asJavascript", "messageSends", "do:separatedBy:", "referencedClasses", "classNameFor:"],
1470
+ referencedClasses: []
1471
+ }),
1472
+ smalltalk.Exporter);
1473
+
1474
+ smalltalk.addMethod(
1475
+ '_exportCategoryExtensions_on_',
1476
+ smalltalk.method({
1477
+ selector: 'exportCategoryExtensions:on:',
1478
+ category: 'private',
1479
+ fn: function (aString, aStream){
1480
+ var self=this;
1481
+ smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.Smalltalk, "_current", []), "_classes", []), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.Smalltalk, "_current", []), "_classes", []), "_collect_", [(function(each){return smalltalk.send(each, "_class", []);})])]), "_do_", [(function(each){return smalltalk.send(smalltalk.send(smalltalk.send(each, "_methodDictionary", []), "_values", []), "_do_", [(function(method){return smalltalk.send(smalltalk.send(smalltalk.send(method, "_category", []), "__eq", [smalltalk.send(unescape("*"), "__comma", [aString])]), "_ifTrue_", [(function(){return smalltalk.send(self, "_exportMethod_of_on_", [method, each, aStream]);})]);})]);})]);
1482
+ return self;},
1483
+ source: unescape('exportCategoryExtensions%3A%20aString%20on%3A%20aStream%0A%09Smalltalk%20current%20classes%2C%20%28Smalltalk%20current%20classes%20collect%3A%20%5B%3Aeach%20%7C%20each%20class%5D%29%20do%3A%20%5B%3Aeach%20%7C%0A%09%09each%20methodDictionary%20values%20do%3A%20%5B%3Amethod%20%7C%0A%09%09%09method%20category%20%3D%20%28%27*%27%2C%20aString%29%20ifTrue%3A%20%5B%0A%09%09%09%09self%20exportMethod%3A%20method%20of%3A%20each%20on%3A%20aStream%5D%5D%5D'),
1484
+ messageSends: ["do:", unescape("%2C"), "classes", "current", "collect:", "class", "values", "methodDictionary", "ifTrue:", unescape("%3D"), "category", "exportMethod:of:on:"],
1485
+ referencedClasses: [smalltalk.Smalltalk]
1486
+ }),
1487
+ smalltalk.Exporter);
1488
+
1489
+
1490
+
1491
+ smalltalk.addClass('ChunkExporter', smalltalk.Exporter, [], 'Parser');
1492
+ smalltalk.addMethod(
1493
+ '_exportDefinitionOf_on_',
1494
+ smalltalk.method({
1495
+ selector: 'exportDefinitionOf:on:',
1496
+ category: 'not yet classified',
1497
+ fn: function (aClass, aStream){
1498
+ var self=this;
1499
+ (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_superclass", [])])]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(unescape("%20subclass%3A%20%23"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])])]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [unescape("%09instanceVariableNames%3A%20%27")]);})(aStream);
1500
+ smalltalk.send(smalltalk.send(aClass, "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [each]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [" "]);})]);
1501
+ (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%27")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%09category%3A%20%27"), "__comma", [smalltalk.send(aClass, "_category", [])]), "__comma", [unescape("%27%21")])]);return smalltalk.send($rec, "_lf", []);})(aStream);
1502
+ smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_comment", []), "_notEmpty", []), "_ifTrue_", [(function(){return (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%21"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])]), "__comma", [unescape("%20commentStamp%21")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(self, "_chunkEscape_", [smalltalk.send(aClass, "_comment", [])]), "__comma", [unescape("%21")])]);return smalltalk.send($rec, "_lf", []);})(aStream);})]);
1503
+ smalltalk.send(aStream, "_lf", []);
1504
+ return self;},
1505
+ source: unescape('exportDefinitionOf%3A%20aClass%20on%3A%20aStream%0A%09%22Chunk%20format.%22%0A%0A%09aStream%20%0A%09%20%20%20%20nextPutAll%3A%20%28self%20classNameFor%3A%20aClass%20superclass%29%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%20subclass%3A%20%23%27%2C%20%28self%20classNameFor%3A%20aClass%29%3B%20lf%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%09instanceVariableNames%3A%20%27%27%27.%0A%09aClass%20instanceVariableNames%20%0A%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20aStream%20nextPutAll%3A%20each%5D%0A%09%20%20%20%20separatedBy%3A%20%5BaStream%20nextPutAll%3A%20%27%20%27%5D.%0A%09aStream%09%0A%09%20%20%20%20nextPutAll%3A%20%27%27%27%27%3B%20lf%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%09category%3A%20%27%27%27%2C%20aClass%20category%2C%20%27%27%27%21%27%3B%20lf.%0A%20%09aClass%20comment%20notEmpty%20ifTrue%3A%20%5B%0A%09%20%20%20%20aStream%20%0A%09%09nextPutAll%3A%20%27%21%27%2C%20%28self%20classNameFor%3A%20aClass%29%2C%20%27%20commentStamp%21%27%3Blf%3B%0A%09%09nextPutAll%3A%20%28self%20chunkEscape%3A%20aClass%20comment%29%2C%20%27%21%27%3Blf%5D.%0A%09aStream%20lf'),
1506
+ messageSends: ["nextPutAll:", "classNameFor:", "superclass", unescape("%2C"), "lf", "do:separatedBy:", "instanceVariableNames", "category", "ifTrue:", "notEmpty", "comment", "chunkEscape:"],
1507
+ referencedClasses: []
1508
+ }),
1509
+ smalltalk.ChunkExporter);
1510
+
1511
+ smalltalk.addMethod(
1512
+ '_exportMethod_of_on_',
1513
+ smalltalk.method({
1514
+ selector: 'exportMethod:of:on:',
1515
+ category: 'not yet classified',
1516
+ fn: function (aMethod, aClass, aStream){
1517
+ var self=this;
1518
+ (function($rec){smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_chunkEscape_", [smalltalk.send(aMethod, "_source", [])])]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_nextPutAll_", [unescape("%21")]);})(aStream);
1519
+ return self;},
1520
+ source: unescape('exportMethod%3A%20aMethod%20of%3A%20aClass%20on%3A%20aStream%0A%09aStream%20%0A%09%09lf%3B%20lf%3B%20nextPutAll%3A%20%28self%20chunkEscape%3A%20aMethod%20source%29%3B%20lf%3B%0A%09%09nextPutAll%3A%20%27%21%27'),
1521
+ messageSends: ["lf", "nextPutAll:", "chunkEscape:", "source"],
1522
+ referencedClasses: []
1523
+ }),
1524
+ smalltalk.ChunkExporter);
1525
+
1526
+ smalltalk.addMethod(
1527
+ '_exportMethodsOf_on_',
1528
+ smalltalk.method({
1529
+ selector: 'exportMethodsOf:on:',
1530
+ category: 'not yet classified',
1531
+ fn: function (aClass, aStream){
1532
+ var self=this;
1533
+ smalltalk.send(aClass, "_protocolsDo_", [(function(category, methods){return smalltalk.send(smalltalk.send(category, "_match_", [unescape("%5E%5C*")]), "_ifFalse_", [(function(){return smalltalk.send(self, "_exportMethods_category_of_on_", [methods, category, aClass, aStream]);})]);})]);
1534
+ return self;},
1535
+ source: unescape('exportMethodsOf%3A%20aClass%20on%3A%20aStream%0A%0A%20%20%20aClass%20protocolsDo%3A%20%5B%3Acategory%20%3Amethods%20%7C%0A%09%28category%20match%3A%20%27%5E%5C*%27%29%20ifFalse%3A%20%5B%20%0A%09%09self%0A%09%09%09exportMethods%3A%20methods%0A%09%09%09category%3A%20category%0A%09%09%09of%3A%20aClass%0A%09%09%09on%3A%20aStream%5D%5D'),
1536
+ messageSends: ["protocolsDo:", "ifFalse:", "match:", "exportMethods:category:of:on:"],
1537
+ referencedClasses: []
1538
+ }),
1539
+ smalltalk.ChunkExporter);
1540
+
1541
+ smalltalk.addMethod(
1542
+ '_exportMetaDefinitionOf_on_',
1543
+ smalltalk.method({
1544
+ selector: 'exportMetaDefinitionOf:on:',
1545
+ category: 'not yet classified',
1546
+ fn: function (aClass, aStream){
1547
+ var self=this;
1548
+ smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_instanceVariableNames", []), "_isEmpty", []), "_ifFalse_", [(function(){(function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_class", [])])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%20instanceVariableNames%3A%20%27")]);})(aStream);smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_class", []), "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [each]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [" "]);})]);return (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%27%21")]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_lf", []);})(aStream);})]);
1549
+ return self;},
1550
+ source: unescape('exportMetaDefinitionOf%3A%20aClass%20on%3A%20aStream%0A%0A%09aClass%20class%20instanceVariableNames%20isEmpty%20ifFalse%3A%20%5B%0A%09%09aStream%20%0A%09%09%20%20%20%20nextPutAll%3A%20%28self%20classNameFor%3A%20aClass%20class%29%3B%0A%09%09%20%20%20%20nextPutAll%3A%20%27%20instanceVariableNames%3A%20%27%27%27.%0A%09%09aClass%20class%20instanceVariableNames%20%0A%09%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20aStream%20nextPutAll%3A%20each%5D%0A%09%09%20%20%20%20separatedBy%3A%20%5BaStream%20nextPutAll%3A%20%27%20%27%5D.%0A%09%09aStream%09%0A%09%09%20%20%20%20nextPutAll%3A%20%27%27%27%21%27%3B%20lf%3B%20lf%5D'),
1551
+ messageSends: ["ifFalse:", "isEmpty", "instanceVariableNames", "class", "nextPutAll:", "classNameFor:", "do:separatedBy:", "lf"],
1552
+ referencedClasses: []
1553
+ }),
1554
+ smalltalk.ChunkExporter);
1555
+
1556
+ smalltalk.addMethod(
1557
+ '_classNameFor_',
1558
+ smalltalk.method({
1559
+ selector: 'classNameFor:',
1560
+ category: 'not yet classified',
1561
+ fn: function (aClass){
1562
+ var self=this;
1563
+ return smalltalk.send(smalltalk.send(aClass, "_isMetaclass", []), "_ifTrue_ifFalse_", [(function(){return smalltalk.send(smalltalk.send(smalltalk.send(aClass, "_instanceClass", []), "_name", []), "__comma", [" class"]);}), (function(){return smalltalk.send(smalltalk.send(aClass, "_isNil", []), "_ifTrue_ifFalse_", [(function(){return "nil";}), (function(){return smalltalk.send(aClass, "_name", []);})]);})]);
1564
+ return self;},
1565
+ source: unescape('classNameFor%3A%20aClass%0A%09%5EaClass%20isMetaclass%0A%09%20%20%20%20ifTrue%3A%20%5BaClass%20instanceClass%20name%2C%20%27%20class%27%5D%0A%09%20%20%20%20ifFalse%3A%20%5B%0A%09%09aClass%20isNil%0A%09%09%20%20%20%20ifTrue%3A%20%5B%27nil%27%5D%0A%09%09%20%20%20%20ifFalse%3A%20%5BaClass%20name%5D%5D'),
1566
+ messageSends: ["ifTrue:ifFalse:", "isMetaclass", unescape("%2C"), "name", "instanceClass", "isNil"],
1567
+ referencedClasses: []
1568
+ }),
1569
+ smalltalk.ChunkExporter);
1570
+
1571
+ smalltalk.addMethod(
1572
+ '_chunkEscape_',
1573
+ smalltalk.method({
1574
+ selector: 'chunkEscape:',
1575
+ category: 'not yet classified',
1576
+ fn: function (aString){
1577
+ var self=this;
1578
+ return smalltalk.send(smalltalk.send(aString, "_replace_with_", [unescape("%21"), unescape("%21%21")]), "_trimBoth", []);
1579
+ return self;},
1580
+ source: unescape('chunkEscape%3A%20aString%0A%09%22Replace%20all%20occurrences%20of%20%21%20with%20%21%21%20and%20trim%20at%20both%20ends.%22%0A%0A%09%5E%28aString%20replace%3A%20%27%21%27%20with%3A%20%27%21%21%27%29%20trimBoth'),
1581
+ messageSends: ["trimBoth", "replace:with:"],
1582
+ referencedClasses: []
1583
+ }),
1584
+ smalltalk.ChunkExporter);
1585
+
1586
+ smalltalk.addMethod(
1587
+ '_exportCategoryExtensions_on_',
1588
+ smalltalk.method({
1589
+ selector: 'exportCategoryExtensions:on:',
1590
+ category: 'not yet classified',
1591
+ fn: function (aString, aStream){
1592
+ var self=this;
1593
+ smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.Smalltalk, "_current", []), "_classes", []), "__comma", [smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.Smalltalk, "_current", []), "_classes", []), "_collect_", [(function(each){return smalltalk.send(each, "_class", []);})])]), "_do_", [(function(each){return smalltalk.send(each, "_protocolsDo_", [(function(category, methods){return smalltalk.send(smalltalk.send(category, "__eq", [smalltalk.send(unescape("*"), "__comma", [aString])]), "_ifTrue_", [(function(){return smalltalk.send(self, "_exportMethods_category_of_on_", [methods, category, each, aStream]);})]);})]);})]);
1594
+ return self;},
1595
+ source: unescape('exportCategoryExtensions%3A%20aString%20on%3A%20aStream%0A%09%22We%20need%20to%20override%20this%20one%20too%20since%20we%20need%20to%20group%0A%09all%20methods%20in%20a%20given%20protocol%20under%20a%20leading%20methodsFor%3A%20chunk%0A%09for%20that%20class.%22%0A%0A%09Smalltalk%20current%20classes%2C%20%28Smalltalk%20current%20classes%20collect%3A%20%5B%3Aeach%20%7C%20each%20class%5D%29%20do%3A%20%5B%3Aeach%20%7C%0A%09%09each%20protocolsDo%3A%20%5B%3Acategory%20%3Amethods%20%7C%0A%09%09%09category%20%3D%20%28%27*%27%2C%20aString%29%20ifTrue%3A%20%5B%0A%09%09%09%09self%20exportMethods%3A%20methods%20category%3A%20category%20of%3A%20each%20on%3A%20aStream%5D%5D%5D'),
1596
+ messageSends: ["do:", unescape("%2C"), "classes", "current", "collect:", "class", "protocolsDo:", "ifTrue:", unescape("%3D"), "exportMethods:category:of:on:"],
1597
+ referencedClasses: [smalltalk.Smalltalk]
1598
+ }),
1599
+ smalltalk.ChunkExporter);
1600
+
1601
+ smalltalk.addMethod(
1602
+ '_exportMethods_category_of_on_',
1603
+ smalltalk.method({
1604
+ selector: 'exportMethods:category:of:on:',
1605
+ category: 'not yet classified',
1606
+ fn: function (methods, category, aClass, aStream){
1607
+ var self=this;
1608
+ (function($rec){smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(unescape("%21"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])])]);return smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%20methodsFor%3A%20%27"), "__comma", [category]), "__comma", [unescape("%27%21")])]);})(aStream);
1609
+ smalltalk.send(methods, "_do_", [(function(each){return smalltalk.send(self, "_exportMethod_of_on_", [each, aClass, aStream]);})]);
1610
+ (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%20%21")]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_lf", []);})(aStream);
1611
+ return self;},
1612
+ source: unescape('exportMethods%3A%20methods%20category%3A%20category%20of%3A%20aClass%20on%3A%20aStream%0A%0A%09aStream%0A%09%09nextPutAll%3A%20%27%21%27%2C%20%28self%20classNameFor%3A%20aClass%29%3B%0A%09%09nextPutAll%3A%20%27%20methodsFor%3A%20%27%27%27%2C%20category%2C%20%27%27%27%21%27.%0A%20%20%20%20%09methods%20do%3A%20%5B%3Aeach%20%7C%0A%09%09self%20exportMethod%3A%20each%20of%3A%20aClass%20on%3A%20aStream%5D.%0A%09aStream%20nextPutAll%3A%20%27%20%21%27%3B%20lf%3B%20lf'),
1613
+ messageSends: ["nextPutAll:", unescape("%2C"), "classNameFor:", "do:", "exportMethod:of:on:", "lf"],
1614
+ referencedClasses: []
1615
+ }),
1616
+ smalltalk.ChunkExporter);
1617
+
1618
+
1619
+
1620
+ smalltalk.addClass('StrippedExporter', smalltalk.Exporter, [], 'Parser');
1621
+ smalltalk.addMethod(
1622
+ '_exportDefinitionOf_on_',
1623
+ smalltalk.method({
1624
+ selector: 'exportDefinitionOf:on:',
1625
+ category: 'private',
1626
+ fn: function (aClass, aStream){
1627
+ var self=this;
1628
+ (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.addClass%28")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])]), "__comma", [unescape("%27%2C%20")])]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send("smalltalk.", "__comma", [smalltalk.send(self, "_classNameFor_", [smalltalk.send(aClass, "_superclass", [])])])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%2C%20%5B")]);})(aStream);
1629
+ smalltalk.send(smalltalk.send(aClass, "_instanceVariableNames", []), "_do_separatedBy_", [(function(each){return smalltalk.send(aStream, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [each]), "__comma", [unescape("%27")])]);}), (function(){return smalltalk.send(aStream, "_nextPutAll_", [unescape("%2C%20")]);})]);
1630
+ (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("%5D%2C%20%27")]);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(aClass, "_category", []), "__comma", [unescape("%27")])]);return smalltalk.send($rec, "_nextPutAll_", [unescape("%29%3B")]);})(aStream);
1631
+ smalltalk.send(aStream, "_lf", []);
1632
+ return self;},
1633
+ source: unescape('exportDefinitionOf%3A%20aClass%20on%3A%20aStream%0A%09aStream%20%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.addClass%28%27%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%27%27%27%2C%20%28self%20classNameFor%3A%20aClass%29%2C%20%27%27%27%2C%20%27%3B%0A%09%20%20%20%20nextPutAll%3A%20%27smalltalk.%27%2C%20%28self%20classNameFor%3A%20aClass%20superclass%29%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%2C%20%5B%27.%0A%09aClass%20instanceVariableNames%20%0A%09%20%20%20%20do%3A%20%5B%3Aeach%20%7C%20aStream%20nextPutAll%3A%20%27%27%27%27%2C%20each%2C%20%27%27%27%27%5D%0A%09%20%20%20%20separatedBy%3A%20%5BaStream%20nextPutAll%3A%20%27%2C%20%27%5D.%0A%09aStream%09%0A%09%20%20%20%20nextPutAll%3A%20%27%5D%2C%20%27%27%27%3B%0A%09%20%20%20%20nextPutAll%3A%20aClass%20category%2C%20%27%27%27%27%3B%0A%09%20%20%20%20nextPutAll%3A%20%27%29%3B%27.%0A%09aStream%20lf'),
1634
+ messageSends: ["nextPutAll:", unescape("%2C"), "classNameFor:", "superclass", "do:separatedBy:", "instanceVariableNames", "category", "lf"],
1635
+ referencedClasses: []
1636
+ }),
1637
+ smalltalk.StrippedExporter);
1638
+
1639
+ smalltalk.addMethod(
1640
+ '_exportMethod_of_on_',
1641
+ smalltalk.method({
1642
+ selector: 'exportMethod:of:on:',
1643
+ category: 'private',
1644
+ fn: function (aMethod, aClass, aStream){
1645
+ var self=this;
1646
+ (function($rec){smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.addMethod%28")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("%27"), "__comma", [smalltalk.send(smalltalk.send(aMethod, "_selector", []), "_asSelector", [])]), "__comma", [unescape("%27%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [unescape("smalltalk.method%28%7B")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send(unescape("selector%3A%20%27"), "__comma", [smalltalk.send(aMethod, "_selector", [])]), "__comma", [unescape("%27%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send(smalltalk.send("fn: ", "__comma", [smalltalk.send(smalltalk.send(aMethod, "_fn", []), "_compiledSource", [])]), "__comma", [unescape("%2C")])]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [unescape("%5D")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [unescape("%7D%29%2C")]);smalltalk.send($rec, "_lf", []);smalltalk.send($rec, "_nextPutAll_", [smalltalk.send("smalltalk.", "__comma", [smalltalk.send(self, "_classNameFor_", [aClass])])]);smalltalk.send($rec, "_nextPutAll_", [unescape("%29%3B")]);smalltalk.send($rec, "_lf", []);return smalltalk.send($rec, "_lf", []);})(aStream);
1647
+ return self;},
1648
+ source: unescape('exportMethod%3A%20aMethod%20of%3A%20aClass%20on%3A%20aStream%0A%09aStream%20%0A%09%09nextPutAll%3A%20%27smalltalk.addMethod%28%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27%27%27%27%2C%20aMethod%20selector%20asSelector%2C%20%27%27%27%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27smalltalk.method%28%7B%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27selector%3A%20%27%27%27%2C%20aMethod%20selector%2C%20%27%27%27%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27fn%3A%20%27%2C%20aMethod%20fn%20compiledSource%2C%20%27%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27%5D%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27%7D%29%2C%27%3Blf%3B%0A%09%09nextPutAll%3A%20%27smalltalk.%27%2C%20%28self%20classNameFor%3A%20aClass%29%3B%0A%09%09nextPutAll%3A%20%27%29%3B%27%3Blf%3Blf'),
1649
+ messageSends: ["nextPutAll:", "lf", unescape("%2C"), "asSelector", "selector", "compiledSource", "fn", "classNameFor:"],
1650
+ referencedClasses: []
1651
+ }),
1652
+ smalltalk.StrippedExporter);
1653
+
1654
+
1655
+