git.oblomov.eu Git - ohcount/blob - test/expected_dir/smalltalk1.st

   1 smalltalk       comment "======================================================================
   2 smalltalk       comment |
   3 smalltalk       comment |   Benchmark for streams
   4 smalltalk       comment |
   5 smalltalk       comment |
   6 smalltalk       comment  ======================================================================"
   7 smalltalk       blank
   8 smalltalk       blank
   9 smalltalk       code    Eval [
  10 smalltalk       code        n := Smalltalk arguments isEmpty
  11 smalltalk       code            ifTrue: [ 10000 ]
  12 smalltalk       code            ifFalse: [ 1 max: Smalltalk arguments first asInteger ].
  13 smalltalk       blank
  14 smalltalk       code        hello := String new writeStream.
  15 smalltalk       code        n timesRepeat: [ hello nextPutAll: 'hello
  16 smalltalk       code    \' ].  "this is a comment
  17 smalltalk       comment so this line is a comment too\"
  18 smalltalk       code        hello position displayNl
  19 smalltalk       code    "but the previous one, and this one too, are not!" ]