Reputation: 83

Smalltalk parse error

I am new to smalltalk and i am having trouble figuring out why I am getting this parse error. The error is:

/newanimal.st:52: parse error, expected ')'

I trying to loop through the set named grid, which is a collection of dictionaries and in each dictionary i want to compare the values of each row and col to see if they match the values that were passed to the method. Right now I can only get it to accept one parameter to the method, if anyone could show me how to pass more than one parameter that would be awesome as well. Also I am using gnu smalltalk and gst to test this. The command I am running is as follows : (FileStream open: 'newanimal.st' mode: 'r') fileIn . !

Line 52 is:

    (tempAnimal at: type := 'lynx') ifTrue: temp := tempAnimal at: row

Here is the rest of the code for reference.

Object subclass: #simulation .
simulation instanceVariableNames: ' ' .
simulation class instanceVariableNames: '' .
simulation comment: 'This is the class that runs the simulation' .

simulation class extend [
    initialize [

    ]
    new [

    ]
    setup [

    ]
    step [

    ]
    status [

    ]
    rand [
        |num|
            num := Random new .
            num := (num nextValue) * 10 .
            num := num asInteger.
            ^ num .
    ]
]
simulation extend [

]

    Object subclass: #grid .
grid instanceVariableNames: ' ' .
grid class instanceVariableNames: ' grida ' .
grid comment: 'I represent the grid and animal locations' .

grid class extend [
    initialize [
        grida := Set new .
    ]
    new [ "Builds arrays of correct size"
        (grida = nil) ifTrue: self initialize . 
        ^ super new grida .
    ]
    getLynxesAtRow:col ["Returns number of lynxes in a grid cell"
        | tempAnimal temp count |
        count := 0 
        grid do: [ :each |
            tempAnimal := grid at: each .
            (tempAnimal at: type := 'lynx') ifTrue: temp := tempAnimal at: row 
            (temp := row) ifTrue: temp := tempAnimal at: col 
            (temp := col) ifTrue: count := count + 1 
            ].
        ^ count .
    ]
    getRabbitsAtRow:col ["Returns number of rabbits in a grid cell"
        | tempAnimal temp count |
        count := 0 
        grid do: [ :each |
            tempAnimal := grid at: each 
            (tempAnimal at: type := 'rabbit') ifTrue: temp := tempAnimal at: row 
            (temp := row) ifTrue: temp := tempAnimal at: col 
            (temp := col) ifTrue: count := count + 1 .
            ] 
        ^ count .
    ]
    placerow: animal [
        | row col |     
        row := simulation rand .
        col := simulation rand .
        animal add: 'row' -> row .
        animal add: 'col' -> col .
        ^ animal .
    ]
    removerow: col [
        | tempAnimal temp tempid |
        grid do: [ :each |
            tempAnimal := grid at: each
            tempid := tempAnimal at: id
            temp := tempAnimal at: row 
            (temp := row) ifTrue: temp := tempAnimal at: col 
            (temp := col) ifTrue: grid remove: each .
    ]
]


    Object subclass: #animal .
animal instanceVariableNames: ' '.
animal class instanceVariableNames: ' id type animals '.
animal comment: 'I am the class for all animals' .

animal class extend [
    initialize [
        aniamls := Dictionary new .
    ]
    create: type [
        (animals := nil) ifTrue: self initialize
        (type := 'rabbit') ifTrue: animals := rabbit new .
        (type := 'lynx') ifTrue: animals := lynx new .
        ^ animals .
    ]
    getid ["returns the animals unique id"
        | tempAnimal temp |
        tempAnimal := grid asArray at: id .
        temp := 
    ]
    getrow: id ["returns the animals grid row"
        | tempAnimal temp |
        grid do: [:each | 
            tempAnimal := grid at: each .
            (tempAnimal at: id := id) ifTrue: (temp:= tempAnimal at: row. ^ temp ) . ]

    ]
    getcol: id ["returns the animals grid col"
        | tempAnimal temp |
        grid do: [:each | 
            tempAnimal := grid at: each .
            (tempAnimal at: id := id) ifTrue: (temp:= tempAnimal at: col. ^ temp ) . ]

    ]
    getdirection: id ["returns the animals movement direction"
        | tempAnimal temp |
        grid do: [:each | 
            tempAnimal := grid at: each .
            (tempAnimal at: id := id) ifTrue: (temp:= tempAnimal at: direction. ^ temp ) . ]
    ]
    setdirection ["sets animals movement direction"
        | direction |
        direction := simulation rand .
        ^ direction .
    ]
]

animal subclass: #lynx
lynx instanceVariableNames: ' direction '.
lynx class instanceVariableNames: ' lynxdictionary '. 
lynx comment: 'I am the subclass of animal that is lynxs' .

lynx class extend [
    new [
        lynxdictionary := Dictionary new .
        lynxdictionary add: 'type' -> 'lynx'
        direction := animal setdirection .
        lynxdictionary add: 'direction' -> direction
        lynxdictionary := grid placerow:lynxdictionary .
        ^ lynxdictionary .
    ]
    act [
        | row col tempAniaml |
    ]
]

animal subclass: #rabbit
rabbit instanceVariableNames: ' direction '.
rabbit class instanceVariableNames: ' rabbitdictionary '.
rabbit comment: 'I am the subclass of animal this is rabbits'.

rabbit class extend [
    new [
        rabbitdictionary := Dictionary new .
        rabbitdictionary add: 'type' -> 'rabbit'
        direction := animal setdirection
        rabbitdictionary add: 'direction' -> direction
        rabbitdictionary := grid place:rabbitdictionary .
        ^ rabbitdictionary . 
    ]
    act [

    ]
]

Upvotes: 0