Changeset 4539 for lang/smalltalk

Timestamp:

01/13/08 13:00:00 (10 months ago)

Author:

murky-satyr

Message:

Testing ci.

Files:

• lang/smalltalk/misc/gost.st (modified) (6 diffs)

lang/smalltalk/misc/gost.st

@@ -1 +1 @@
 #!gst
+"=====================================================================
+|
+| GoST - A golf extension for GNU Smalltalk, much like Ruby's goruby.
+|
+| (tested on 2.3.6)
+|
+ ====================================================================="
+
 Object subclass: #Golf
   instanceVariableNames: ''
@@ -12 +20 @@
   add: $S -> Smalltalk;
   add: $X -> thisContext;
+  add: $/ -> Character nl;
+  add: $\ -> nil;
   yourself!
 !Golf class methodsFor: 'golf'!
@@ -71 +81 @@
 
 !CharacterArray methodsFor: 'golf'!
-?? o
-  ^(o isClass ifTrue: [ o ] ifFalse: [ o class ]) ?? self!
 C
   | s |
@@ -103 +111 @@
   "*Experimental*  e.g. 'Hello' >< {$H->$G. $l->$t} => 'Getto'"
   ^d inject: self copy into: [:r :a| r replaceAll: a key with: a value ]!
+displayOn: s
+  | j |
+  (j := Golf.Global at: $\) isNil
+    ifTrue:  [ self do: [:x| x displayOn: s ] ]
+    ifFalse: [ self do: [:x| x displayOn: s ] separatedBy: [ j displayOn: s ] ]!
+
+!!
+
+!False methodsFor: 'golf'!
+displayOn: s!
+
+!UndefinedObject methodsFor: 'golf'!
+displayOn: s!
 
 !Number methodsFor: 'golf'!
@@ -127 +148 @@
 
 !Boolean methodsFor: 'golf'!
+doesNotUnderstand: m
+  ^[ super doesNotUnderstand: m copy ] ifError: [ ^m sendTo: self asCBooleanValue ]!
 && b
   ^self and: b!
@@ -177 +200 @@
 
 
-" Not-so-golf Additions "
+"[ Not-so-golf Additions ]"
 
 !Object methodsFor: 'rubylike-case'!