Smalltalk

accessors.st

"Extensions for making writing classes with accessors a bit less verbose"

ClassDescription extend [
  accessors: aString [
    self readers: aString.
    self writers: aString.
  ]

  readers: aString [
    aString substrings do: [:ivar |
      (self allInstVarNames includes: ivar asSymbol)
        ifFalse: [ self addInstVarName: ivar ].
      self createGetMethod: ivar.
    ]
  ]

  writers: aString [
    aString substrings do: [:ivar |
      (self allInstVarNames includes: ivar asSymbol)
        ifFalse: [ self addInstVarName: ivar ].
      self createSetMethod: ivar.
    ]
  ]
]

syntax.st

"This is a small method that illustrates every part of Smalltalk method syntax except primitives"
|y|
true & false not & (nil isNil) ifFalse: [self halt].
y := self size + super size.
  #($a #a 'a' 1 1.0)
    do: [:each | Transcript
      show: (each class name);
      show: (each printString);
      show: ' '].
^ x < y