File: echo.st

package info (click to toggle)
gnu-smalltalk 3.1-6
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 33,300 kB
  • ctags: 13,999
  • sloc: ansic: 88,106; sh: 23,223; asm: 7,889; perl: 4,493; cpp: 3,539; awk: 1,483; yacc: 1,355; xml: 1,272; makefile: 1,192; lex: 843; sed: 258; objc: 124
file content (23 lines) | stat: -rw-r--r-- 620 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Object subclass: #EchoMain
       instanceVariableNames: ''
       classVariableNames: ''
       poolDictionaries: ''
       category: 'Language-Implementation'!

!EchoMain class methodsFor: 'foo'!

update: aspect
    aspect == #returnFromSnapshot ifTrue: [
        Smalltalk arguments = #('--repl') ifFalse: [
            self main: Smalltalk arguments.
            ObjectMemory quit ] ]!

main: argv
     "I love Java!"
    argv
        do: [ :a| Transcript nextPutAll: a]
        separatedBy: [ Transcript nextPutAll: ' '].
    Transcript nl! !

ObjectMemory addDependent: EchoMain.
ObjectMemory snapshot: 'echo.im'!