Squeak-dev August 1999

squeak-dev@lists.squeakfoundation.org

134 participants
348 discussions

Re: Re: Float bug toolkit: what the hash is this?
by Tim Olson 31 Aug '99

31 Aug '99

>>"[1]" (10 raisedToInteger: 600) = (10.0 raisedToInteger: 800) "alt-p" >>These are equal since both expressions end up answering a float with a >>special value indicating positive infinity. Positive infinities are always >>equal. > >Nonono.... (10 raisedToInteger: 600) is anInteger, while the other (if >finished correctly) is aFloat. Correct. The problem occurs when the #= message is sent to the LargePositiveInteger with the argument a Float (+Infinity). This causes the LargePositiveInteger to be adapted to a Float (resulting in +Infinity, as well). >If aFloat turns out to be infinite, an error >should be posted. This would have to be tested in the Float primitives in the VM whenever an overflow (or NaN, I suppose) is generated. However, I *think* (VM experts correct me, here) that all they can do is fail rather than returning a succesful value, so all of the Float code that invokes primitives would have to be rewritten to test and reflect this overflow/exception failure. The IEEE "default" operation is to silently return the default values (Inf or NaN), rather than generating an exception. What should the standard for Squeak be? -- tim

3 2

ObjectShare sells VisualWorks to Cincom
by Tom Burns 31 Aug '99

31 Aug '99

I thought that many on this list may be interested in the latest happenings in the larger Smalltalk world: ObjectShare is selling VisualWorks to Cincom for $3M (in the form of cash, royalties, and assumed obligations). You can read the press release at just about any stock quoting site (note that ObjectShare's ID is now OBJS.OB since it's been downgraded to over-the-counter bulletin board trading). Anyway, here's a link to Yahoo's page: http://biz.yahoo.com/bw/990831/ca_objects_1.html For those that may not be aware, Cincom (http://www.cincom.com), a privately held company, is probably best known in the ST community for selling ObjectStudio, a Smalltalk variant (in the sense that it has language features that don't exist in any other ST implementations). t -- Tom Burns -- tburns(a)appnet.net -- http://www.aisys.com AppNet Midwest -- http://www.appnet.net

1 0

RE: [Win32] VM Update for 2.5
by Raab, Andreas 31 Aug '99

31 Aug '99

> http://wwwisg.CS.Uni-Magdeburg.De/~raab/squeak/src/Squeak25Src.zip > You're right - I forget the 'squeak/' part inbetween. Andreas -- +===== Andreas Raab ========= (andreasr(a)wdi.disney.com) ==+ | Walt Disney Imagineering Phone: +1 818 544 5016 I I Glendale, CA Fax: +1 818 544 4544 I +======< http://isgwww.cs.uni-magdeburg.de/~raab >========+ > ---------- > From: David LeBlanc > Reply To: squeak(a)cs.uiuc.edu > Sent: Monday, August 30, 1999 10:35 PM > To: squeak(a)cs.uiuc.edu; squeak(a)cs.uiuc.edu > Cc: recipient list not shown > Subject: Re: [Win32] VM Update for 2.5 > > This seems to be the sources: > > http://wwwisg.CS.Uni-Magdeburg.De/~raab/squeak/src/Squeak25Src.zip > > > At 03:17 PM 8/31/99 +1000, Eric Ulevik wrote: > >From: Raab, Andreas <Andreas.Raab(a)disney.com> > >> Finally, the sources (this time including projects for MSVC 5 and 6) > are > >at > >> http://isgwww.cs.uni-magdeburg.de/~raab/src/Squeak25Src.zip > > > >I get "File Not Found". > > > > > > >

1 0

[BUG][FIX] with: collect: fails on uneven size collections
by Peter Smet 31 Aug '99

31 Aug '99

Sequenceable collection with: do: had a bug in that it would fail work with uneven size collections. This bug has been fixed, but the same bug applies to >>with: collect: The fix is the same, and is included below: SequenceableCollection>> with: otherCollection collect: twoArgBlock "Collect and return the result of evaluating twoArgBlock with corresponding elements from this collection and otherCollection." | result | otherCollection size = self size ifFalse: [self error: 'otherCollection must be the same size']. result _ self species new: self size. 1 to: self size do: [:index | result at: index put: (twoArgBlock value: (self at: index) value: (otherCollection at: index))]. ^ result

1 0

Re: [Win32] VM Update for 2.5
by Eric Ulevik 31 Aug '99

31 Aug '99

From: Raab, Andreas <Andreas.Raab(a)disney.com> > Finally, the sources (this time including projects for MSVC 5 and 6) are at > http://isgwww.cs.uni-magdeburg.de/~raab/src/Squeak25Src.zip I get "File Not Found".

2 1

Re: PWS headless - misc. questions - OSProcess might help
by David T. Lewis 31 Aug '99

31 Aug '99

On Mon, Aug 30, 1999 at 03:33:28PM +0200, Bert Freudenberg wrote: > On Sun, 29 Aug 1999, David T. Lewis wrote: > > The primitive to support SystemDictionary>>getSystemAttribute is only > > partly implemented in the Unix sources (at least the version I have; maybe > > it's been updated recently). The code is in sqXWindow.c if you want to > > fix it up. > > I did this already. The patch is attached. Attributes are coded as > follows: > Um, I guess that I had better 'fess up to something. My hacks to sqXWindow.c to support OSProcess contain an error which disables SystemDictionary>>getSystemAttribute. Since it was broken on Unix anyway, I didn't feel motivated to fix my error. I guess I had better fix it now.

1 0

Re: PWS headless - misc. questions - OSProcess might help
by Peter William Lount 31 Aug '99

31 Aug '99

Hi David, This looks really cool! I'll study it some more. Would it be possible for you to post a working full set of vm, image, etc... files including sources on the net somewhere? (If you need space I can put them on http://www.smalltalk.org). I think that these changes to the base image really could make squeak much more usefull in server and "unix" situations... All the best, Peter William Lount peter(a)smalltalk.org http://www.smalltalk.org ---------- From: David T. Lewis <lewis(a)mail.msen.com> To: squeak(a)cs.uiuc.edu Subject: Re: PWS headless - misc. questions - OSProcess might help Date: August 29, 1999 8:49 AM On Wed, Aug 25, 1999 at 05:31:36PM -0700, Peter William Lount wrote: > Is there a way to have Smalltalk level code read the virtual machine unix > command line arguments... I'd like to have squeak read an optional argument > for the port that it should serve pages on... This allows many copies of > the same vm to be started simply via a single unix script... The primitive to support SystemDictionary>>getSystemAttribute is only partly implemented in the Unix sources (at least the version I have; maybe it's been updated recently). The code is in sqXWindow.c if you want to fix it up. > I'd like to create a Apache Module if none exists, modsqueak, for Apache to > talk with squeak vm processes via a tcp packet or shared memory. However, > it would still require squeak to be able to respond instantly to a incoming > packet without having to poll for the darn packet... As long as you are running this on some flabor of Unix, you may want to have a look at the OSProcess code which I posted on http://minnow.cc.gatech.edu/squeak.708 a while back. Once you've filed the changes in and built a new VM, you can do the following possibly useful things: Get an array of all the command line arguments: "OSProcess thisSqueakOSProcess arguments inspect" Start a headless image for your PWS, cloned from a running image but without a display (the original image keeps running also): "UnixProcess forkHeadlessSqueakAndDoThenQuit: aBlockToStartUpThePWS" I don't know how Apache modules work, but if you just need access to stdin, stdout and stderr (like for a CGI script), then these are accessible as: "OSProcess thisSqueakOSProcess stdIn" "OSProcess thisSqueakOSProcess stdOut" "OSProcess thisSqueakOSProcess stdErr" The standard input stream does blocking reads, which would be good for a CGI script, since it does not leave Squeak in a polling loop while waiting for input. OSProcess works on the new 2.5 image (with the 2.4 code base for the VM). If the VM code you are using is newer than mine (I think Ian has been working on it since the 2.4 release), you may need to hack sqXWindow.c a bit on your own, but it's pretty straightforward. This should run fine on FreeBSD (I wrote in under Linux), but I'd appreciate if someone can confirm that for me. The code I posted on the swiki seems to evaporate from time to time. I reloaded it this morning so you can grab it from the swiki, but just send me email if you have trouble getting it. Hope this helps.

2 1

[ENH] Grow Buttons for Views
by Stephen Travis Pope 30 Aug '99

30 Aug '99

Hello all, I got to spend some more time this weekend squeaking, and decided to add grow/shrink buttons to views (because I move between small and very large screens and can never get the default view sizes right). The following change set places a small button (with the glyph "^") next to the collapse button in the upper-right of Morphic views. Pressing this button grows the view by 50% (or shrinks it if SHIFT is pressed). Notes: 1) This works only for Morphic views. 2) The minimum size is 120@120; the max is the screen size. 3) After you file this in, you'll need to close/reopen all Morphic views and regenerate the tool flap. 4) There's a minor nit with long labels and small views -- the label can sometimes overlap the grow button. 5) Comments and further enhancements are invited. -- stp Stephen Travis Pope -- http://www.create.ucsb.edu/~stp stp(a)create.ucsb.edu -- stp9(a)cornell.edu Content-Type: text/plain; charset=us-ascii; x-mac-type="54455854"; x-mac-creator="522A6368"; name="GrowBox.cs" Content-Transfer-Encoding: 7bit Content-Description: Unknown Document Content-Disposition: inline; filename="GrowBox.cs" 'From Squeak 2.5 of August 6, 1999 on 28 August 1999 at 11:36:28 am'! MorphicModel subclass: #SystemWindow instanceVariableNames: 'labelString stripes label closeBox collapseBox growBox activeOnlyOnTop paneMorphs paneRects collapsedFrame fullFrame isCollapsed ' classVariableNames: 'TopWindow ' poolDictionaries: '' category: 'Morphic-Windows'! !SystemWindow methodsFor: 'initialization' stamp: 'stp 08/28/1999 10:57'! initialize | aFont | super initialize. labelString ifNil: [labelString _ 'Untitled Window']. isCollapsed _ false. activeOnlyOnTop _ true. paneMorphs _ Array new. paneRects _ Array new. borderColor _ #raised. borderWidth _ 1. color _ Color black. aFont _ Preferences fontForScriptorButtons. stripes _ Array with: (RectangleMorph newBounds: bounds) "see extent:" with: (RectangleMorph newBounds: bounds). self addMorph: (stripes first borderWidth: 1). self addMorph: (stripes second borderWidth: 2). self addMorph: (label _ StringMorph new contents: labelString; font: (TextStyle default fontAt: 2) emphasis: 1). self addMorph: (closeBox _ SimpleButtonMorph new borderWidth: 0; label: 'X' font: aFont; color: Color transparent; actionSelector: #delete; target: self; extent: 16@16). self addMorph: (collapseBox _ SimpleButtonMorph new borderWidth: 0; label: 'O' font: aFont; color: Color transparent; actionSelector: #collapseOrExpand; target: self; extent: 16@16). self addMorph: (growBox _ SimpleButtonMorph new borderWidth: 0; label: '^' font: aFont; color: Color transparent; actionSelector: #growOrShrink; target: self; extent: 16@16). Preferences noviceMode ifTrue: [closeBox setBalloonText: 'close window'. collapseBox setBalloonText: 'collapse/expand window']. self on: #mouseEnter send: #spawnReframeHandle: to: self. self on: #mouseLeave send: #spawnReframeHandle: to: self. label on: #mouseDown send: #relabelEvent: to: self. self extent: 300@200! ! !SystemWindow methodsFor: 'geometry' stamp: 'stp 08/28/1999 11:35'! extent: newExtent | inner labelRect | isCollapsed ifTrue: [super extent: newExtent x @ (self labelHeight + 2)] ifFalse: [super extent: newExtent]. inner _ self innerBounds. labelRect _ self labelRect. stripes first bounds: (labelRect insetBy: 1). stripes second bounds: (labelRect insetBy: 3). self setStripeColorsFrom: self paneColor. closeBox align: closeBox topLeft with: inner topLeft + (4@0). collapseBox align: collapseBox topRight with: inner topRight - (4@0). growBox align: growBox topRight with: collapseBox topLeft. label fitContents; setWidth: (label width min: bounds width - 50). label align: label bounds topCenter with: inner topCenter. self setBoundsOfPaneMorphs. isCollapsed ifTrue: [collapsedFrame _ self bounds] ifFalse: [fullFrame _ self bounds]. ! ! !SystemWindow methodsFor: 'resize/collapse' stamp: 'stp 08/28/1999 11:34'! growOrShrink "Expand (or shrink if shiftDown) the view by 50%, clipping to the screen size and centering it. The minimum size is 120@120." | oldSize newSize | oldSize := self bounds. newSize := Sensor leftShiftDown ifTrue: [(oldSize scaleBy: 0.66(a)0.66) truncated] ifFalse: [(oldSize scaleBy: 1.5(a)1.5) truncated]. newSize extent < (120@120) ifTrue: [^self]. newSize := newSize translateBy: (newSize center - oldSize center) negated. newSize := newSize intersect: Display boundingBox. super bounds: newSize. paneMorphs reverseDo: [:m | self addMorph: m] ! !

1 0

Tetris
by Aibek Musaev 30 Aug '99

30 Aug '99

I hope some of you will find this little project useful. Here is the preamble from the attached changeSet: "Change Set: Tetris Date: 31 July 1999 Author: Aibek Musaev (abbey(a)cc.gatech.edu) This is a port of JTetris.java 1.0.0. How to start: choose new morph.../Games/Tetris How to play: 1) using buttons 2) using keyboard: drop - spacebar move to left - left arrow move to right - right arrow rotate clockwise - up arrow rotate anticlockwise - down arrow NOTE: mouse must be over Tetris! " Content-Type: TEXT/PLAIN; charset=US-ASCII; name="Tetris.28Aug253pm.cs" Content-ID: <Pine.SUN.3.96.990828151713.1135E(a)felix.cc.gatech.edu> Content-Description: 'From Squeak 2.3 of January 14, 1999 on 28 August 1999 at 2:53:25 pm'! "Change Set: Tetris Date: 31 July 1999 Author: Aibek Musaev (abbey(a)cc.gatech.edu) This is a port of JTetris.java 1.0.0. How to start: choose new morph.../Games/Tetris How to play: 1) using buttons 2) using keyboard: drop - spacebar move to left - left arrow move to right - right arrow rotate clockwise - up arrow rotate anticlockwise - down arrow NOTE: mouse must be over Tetris!! "! AlignmentMorph subclass: #Tetris instanceVariableNames: 'board scoreDisplay ' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Games'! Morph subclass: #TetrisBoard instanceVariableNames: 'boardArray colors paused gameOver currentBlockX currentBlockY currentBlockColor currentBlockShape currentBlockAngle nextBlockX nextBlockY nextBlockColor nextBlockShape nextBlockAngle delay blockInfo scoreDisplay score ' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Games'! !Tetris methodsFor: 'access' stamp: 'am 8/22/1999 11:07'! board board ifNil: [ board _ TetrisBoard withScoreDisplay: self scoreDisplay. ]. ^ board ! ! !Tetris methodsFor: 'access' stamp: 'am 8/22/1999 10:50'! scoreDisplay scoreDisplay ifNil: [ scoreDisplay _ LedMorph new digits: 4; extent: (4*10@15). ]. ^ scoreDisplay ! ! !Tetris methodsFor: 'initialization' stamp: 'AM 8/2/1999 12:07'! buildButton: aButton target: aTarget label: aLabel selector: aSelector "wrap a button or switch in an alignmentMorph to allow a row of buttons to fill space" | a | aButton target: aTarget; label: aLabel; actionSelector: aSelector; borderColor: #raised; borderWidth: 2; color: color. a _ AlignmentMorph newColumn centering: #center; hResizing: #spaceFill; vResizing: #shrinkWrap; color: color. a addMorph: aButton. ^ a ! ! !Tetris methodsFor: 'initialization' stamp: 'am 8/22/1999 10:55'! initialize super initialize. color _ Color lightGray. orientation _ #vertical. centering _ #center. vResizing _ #shrinkWrap. hResizing _ #spaceFill. inset _ 3. self addMorph: self board. self addMorph: self showScoreDisplay. self addMorph: self makeMovementControls. self addMorph: self makeGameControls. ! ! !Tetris methodsFor: 'initialization' stamp: 'am 8/8/1999 15:10'! makeGameControls | row but | row _ AlignmentMorph newRow color: color; borderWidth: 0; inset: 3. row hResizing: #spaceFill; vResizing: #shrinkWrap; centering: #center; extent: 5@5. row addMorph: (but _ self buildButton: SimpleButtonMorph new target: self label: 'Quit' selector: #delete). but setBalloonText: 'quit'. row addMorph: (but _ self buildButton: SimpleButtonMorph new target: self board label: 'Pause' selector: #pause). but setBalloonText: 'pause'. row addMorph: (but _ self buildButton: SimpleButtonMorph new target: self board label: 'New game' selector: #newGame). but setBalloonText: 'new game'. ^ row ! ! !Tetris methodsFor: 'initialization' stamp: 'am 8/8/1999 13:56'! makeMovementControls | row but | row _ AlignmentMorph newRow color: color; borderWidth: 0; inset: 3. row hResizing: #spaceFill; vResizing: #shrinkWrap; centering: #center; extent: 5@5. row addMorph: (but _ self buildButton: SimpleButtonMorph new target: self board label: '->' selector: #moveRight). but setBalloonText: 'move to the right'. row addMorph: (but _ self buildButton: SimpleButtonMorph new target: self board label: ' ) ' selector: #rotateClockWise). but setBalloonText: 'rotate clockwise'. row addMorph: (but _ self buildButton: SimpleButtonMorph new target: self board label: ' | ' selector: #drop). but setBalloonText: 'drop'. row addMorph: (but _ self buildButton: SimpleButtonMorph new target: self board label: ' ( ' selector: #rotateAntiClockWise). but setBalloonText: 'rotate anticlockwise'. row addMorph: (but _ self buildButton: SimpleButtonMorph new target: self board label: '<-' selector: #moveLeft). but setBalloonText: 'move to the left'. ^ row ! ! !Tetris methodsFor: 'initialization' stamp: 'am 8/22/1999 11:15'! showScoreDisplay | row | row _ AlignmentMorph newRow color: color; borderWidth: 0; inset: 3. row hResizing: #rigid; vResizing: #shrinkWrap; centering: #center; extent: 5@5. row addMorph: (self wrapPanel: self scoreDisplay label: 'Score:'). ^ row ! ! !Tetris methodsFor: 'initialization' stamp: 'am 8/22/1999 11:12'! wrapPanel: anLedPanel label: aLabel "wrap an LED panel in an alignmentMorph with a label to its left" | a | a _ AlignmentMorph newRow centering: #center; hResizing: #shrinkWrap; vResizing: #shrinkWrap; borderWidth: 0; inset: 3; color: color lighter. a addMorph: anLedPanel. a addMorph: (StringMorph contents: aLabel). ^ a ! ! !Tetris methodsFor: 'events' stamp: 'am 8/28/1999 14:22'! handlesMouseOver: evt ^ true ! ! !Tetris methodsFor: 'events' stamp: 'am 8/28/1999 14:21'! keyStroke: evt | char | char _ evt keyCharacter. char asciiValue = 28 ifTrue: [board moveLeft]. char asciiValue = 29 ifTrue: [board moveRight]. char asciiValue = 30 ifTrue: [board rotateClockWise]. char asciiValue = 31 ifTrue: [board rotateAntiClockWise]. char asciiValue = 32 ifTrue: [board drop]. ! ! !Tetris methodsFor: 'events' stamp: 'am 8/28/1999 14:22'! mouseEnter: evt evt hand newKeyboardFocus: self ! ! !Tetris methodsFor: 'events' stamp: 'am 8/28/1999 14:22'! mouseLeave: evt evt hand newKeyboardFocus: nil ! ! !TetrisBoard methodsFor: 'initialization' stamp: 'am 8/22/1999 11:10'! initialize | numColumns numRows | super initialize. paused _ gameOver _ false. currentBlockX _ currentBlockY _ currentBlockColor _ nextBlockX _ nextBlockY _ nextBlockColor _ score _ 0. delay _ 500. blockInfo _ self blockInfo. boardArray _ self boardArray. colors _ self colors. numColumns _ boardArray size. numRows _ boardArray first size. self extent: (numColumns * 12 + 1) @ (numRows * 12 + 1). self color: (colors at: 1 + 0). " self newGame." ! ! !TetrisBoard methodsFor: 'initialization' stamp: 'am 8/22/1999 11:11'! withScoreDisplay: aScoreDisplay scoreDisplay _ aScoreDisplay. self newGame. ! ! !TetrisBoard methodsFor: 'stepping' stamp: 'am 8/4/1999 18:01'! step paused ifTrue: [^ self]. (currentBlockColor = 0) ifTrue: [" make a new piece " (nextBlockColor = 0) ifTrue: [self makeNewPiece]. currentBlockColor _ nextBlockColor. currentBlockX _ nextBlockX. currentBlockY _ nextBlockY. currentBlockShape _ nextBlockShape. currentBlockAngle _ nextBlockAngle. self makeNewPiece. ] ifFalse: [" drop the current piece by one place " self dropByOne. ]. self paint. ! ! !TetrisBoard methodsFor: 'stepping' stamp: 'AM 7/26/1999 16:07'! stepTime ^ delay! ! !TetrisBoard methodsFor: 'drawing' stamp: 'am 8/3/1999 20:18'! paint | i r rx ry numColumns numRows x y | numColumns _ boardArray size. numRows _ boardArray first size. self removeAllMorphs. x _ 0. [x < numColumns] whileTrue: [ y _ 0. [y < numRows] whileTrue: [ ((boardArray at: 1 + x) at: 1 + y) ~= 0 ifTrue: [ r _ RectangleMorph new. r color: (colors at: 1 + ((boardArray at: 1 + x) at: 1 + y)); extent: 12 @ 12; borderRaised. rx _ x * 12. ry _ y * 12. r position: (self position + (rx @ ry)). self addMorph: r. ]. y _ y + 1. ]. x _ x + 1. ]. currentBlockColor ~= 0 ifTrue: [ i _ -1. [i < 3] whileTrue: [ i _ i + 1. r _ RectangleMorph new. r color: (colors at: 1 + currentBlockColor); extent: 12 @ 12; borderRaised. rx _ (currentBlockX + ((((blockInfo at: 1 + currentBlockShape) at: 1 + currentBlockAngle) at: 1 + i) at: 1 + 0)) * 12. ry _ (currentBlockY + ((((blockInfo at: 1 + currentBlockShape) at: 1 + currentBlockAngle) at: 1 + i) at: 1 + 1)) * 12. r position: (self position + (rx @ ry)). self addMorph: r. ]. ]. ! ! !TetrisBoard methodsFor: 'button actions' stamp: 'am 8/8/1999 14:54'! drop | i numRows | (paused not) ifTrue: [ numRows _ boardArray first size. [true] whileTrue: [ i _ -1. [i < 3] whileTrue: [ i _ i + 1. ((currentBlockY + 1 + ((((blockInfo at: 1 + currentBlockShape) at: 1 + currentBlockAngle) at: 1 + i) at: 1 + 1)) > (numRows - 1)) ifTrue: [ self paint. "dopaint();" ^ self. ] ifFalse: [ (((boardArray at: 1 + (currentBlockX + ((((blockInfo at: 1 + currentBlockShape) at: 1 + currentBlockAngle) at: 1 + i) at: 1 + 0))) at: 1 + (currentBlockY + 1 + ((((blockInfo at: 1 + currentBlockShape) at: 1 + currentBlockAngle) at: 1 + i) at: 1 + 1))) ~= 0) ifTrue: [ self paint. "dopaint();" ^ self. ]. ]. ]. currentBlockY _ currentBlockY + 1. score _ score + 1. ]. ]. ! ! !TetrisBoard methodsFor: 'button actions' stamp: 'AM 8/2/1999 11:45'! moveLeft | i | i _ -1. (paused not) ifTrue: [ [i < 3] whileTrue: [ i _ i + 1. ((currentBlockX - 1 + ((((blockInfo at: 1 + currentBlockShape) at: 1 + currentBlockAngle) at: 1 + i) at: 1 + 0)) < 0) ifTrue: [^ self] ifFalse: [ (((boardArray at: 1 + (currentBlockX - 1 + ((((blockInfo at: 1 + currentBlockShape) at: 1 + currentBlockAngle) at: 1 + i) at: 1 + 0))) at: 1 + (currentBlockY + ((((blockInfo at: 1 + currentBlockShape) at: 1 + currentBlockAngle) at: 1 + i) at: 1 + 1))) ~= 0) ifTrue: [^ self]. ]. ]. currentBlockX _ currentBlockX - 1. self paint. "dopaint();" ]. ! ! !TetrisBoard methodsFor: 'button actions' stamp: 'AM 8/2/1999 11:45'! moveRight | i numColumns | i _ -1. (paused not) ifTrue: [ numColumns _ boardArray size. [i < 3] whileTrue: [ i _ i + 1. ((currentBlockX + 1 + ((((blockInfo at: 1 + currentBlockShape) at: 1 + currentBlockAngle) at: 1 + i) at: 1 + 0)) > (numColumns - 1)) ifTrue: [^ self] ifFalse: [ (((boardArray at: 1 + (currentBlockX + 1 + ((((blockInfo at: 1 + currentBlockShape) at: 1 + currentBlockAngle) at: 1 + i) at: 1 + 0))) at: 1 + (currentBlockY + ((((blockInfo at: 1 + currentBlockShape) at: 1 + currentBlockAngle) at: 1 + i) at: 1 + 1))) ~= 0) ifTrue: [^ self]. ]. ]. currentBlockX _ currentBlockX + 1. self paint. "dopaint();" ].! ! !TetrisBoard methodsFor: 'button actions' stamp: 'am 8/8/1999 14:53'! newGame | x y numColumns numRows | x _ 0. numColumns _ boardArray size. numRows _ boardArray first size. [x < numColumns] whileTrue: [ y _ 0. [y < numRows] whileTrue: [ (boardArray at: 1 + x) at: 1 + y put: 0. y _ y + 1. ]. x _ x + 1. ]. gameOver _ paused _ false. delay _ 500. currentBlockColor _ nextBlockColor _ 0. self score: 0. "getParent().action(new Event(this, score, null), this); repaint();" self paint.! ! !TetrisBoard methodsFor: 'button actions' stamp: 'AM 8/2/1999 11:46'! pause gameOver ifTrue: [^ self]. paused _ paused not. "repaint();" self paint.! ! !TetrisBoard methodsFor: 'button actions' stamp: 'AM 8/2/1999 11:46'! rotateAntiClockWise | i newBlockAngle numColumns numRows | (paused not) ifTrue: [ newBlockAngle _ currentBlockAngle - 1. (newBlockAngle = -1) ifTrue: [newBlockAngle _ 3]. i _ -1. numColumns _ boardArray size. numRows _ boardArray first size. [i < 3] whileTrue: [ i _ i + 1. ((currentBlockX + ((((blockInfo at: 1 + currentBlockShape) at: 1 + newBlockAngle) at: 1 + i) at: 1 + 0)) > (numColumns - 1)) ifTrue: [^ self] ifFalse: [ ((currentBlockX + ((((blockInfo at: 1 + currentBlockShape) at: 1 + newBlockAngle) at: 1 + i) at: 1 + 0)) < 0) ifTrue: [^ self] ifFalse: [ ((currentBlockY + ((((blockInfo at: 1 + currentBlockShape) at: 1 + newBlockAngle) at: 1 + i) at: 1 + 1)) > (numRows - 1)) ifTrue: [^ self] ifFalse: [ ((currentBlockY + ((((blockInfo at: 1 + currentBlockShape) at: 1 + newBlockAngle) at: 1 + i) at: 1 + 1)) < 0) ifTrue: [^ self] ifFalse: [ (((boardArray at: 1 + (currentBlockX + ((((blockInfo at: 1 + currentBlockShape) at: 1 + newBlockAngle) at: 1 + i) at: 1 + 0))) at: 1 + (currentBlockY + ((((blockInfo at: 1 + currentBlockShape) at: 1 + newBlockAngle) at: 1 + i) at: 1 + 1))) ~= 0) ifTrue: [^ self]. ]. ]. ]. ]. ]. currentBlockAngle _ newBlockAngle. "dopaint();" self paint. ]. ! ! !TetrisBoard methodsFor: 'button actions' stamp: 'AM 8/2/1999 11:46'! rotateClockWise | i newBlockAngle numColumns numRows | (paused not) ifTrue: [ newBlockAngle _ currentBlockAngle + 1. (newBlockAngle = 4) ifTrue: [newBlockAngle _ 0]. i _ -1. numColumns _ boardArray size. numRows _ boardArray first size. [i < 3] whileTrue: [ i _ i + 1. ((currentBlockX + ((((blockInfo at: 1 + currentBlockShape) at: 1 + newBlockAngle) at: 1 + i) at: 1 + 0)) > (numColumns - 1)) ifTrue: [^ self] ifFalse: [ ((currentBlockX + ((((blockInfo at: 1 + currentBlockShape) at: 1 + newBlockAngle) at: 1 + i) at: 1 + 0)) < 0) ifTrue: [^ self] ifFalse: [ ((currentBlockY + ((((blockInfo at: 1 + currentBlockShape) at: 1 + newBlockAngle) at: 1 + i) at: 1 + 1)) > (numRows - 1)) ifTrue: [^ self] ifFalse: [ ((currentBlockY + ((((blockInfo at: 1 + currentBlockShape) at: 1 + newBlockAngle) at: 1 + i) at: 1 + 1)) < 0) ifTrue: [^ self] ifFalse: [ (((boardArray at: 1 + (currentBlockX + ((((blockInfo at: 1 + currentBlockShape) at: 1 + newBlockAngle) at: 1 + i) at: 1 + 0))) at: 1 + (currentBlockY + ((((blockInfo at: 1 + currentBlockShape) at: 1 + newBlockAngle) at: 1 + i) at: 1 + 1))) ~= 0) ifTrue: [^ self]. ]. ]. ]. ]. ]. currentBlockAngle _ newBlockAngle. "dopaint();" self paint. ]. ! ! !TetrisBoard methodsFor: 'other' stamp: 'am 8/22/1999 11:06'! checkRow | i row colour j numColumns numRows break | numColumns _ boardArray size. numRows _ boardArray first size. row _ numRows. colour _ 0. [row > 0] whileTrue: [ row _ row - 1. i _ -1. break _ false. [(i < (numColumns - 1)) & (break not)] whileTrue: [ i _ i + 1. ((boardArray at: 1 + i) at: 1 + row) = 0 ifTrue: [break _ true] ifFalse: [ (i = 0) ifTrue: [colour _ (boardArray at: 1 + i) at: 1 + row] ifFalse: [ colour ~= ((boardArray at: 1 + i) at: 1 + row) ifTrue: [ colour _ 0. ]. ]. ]. ]. break ifFalse: [ j _ row. row _ row + 1. j _ j - 1. [j > 0] whileTrue: [ i _ -1. [i < (numColumns - 1)] whileTrue: [ i _ i + 1. (boardArray at: 1 + i) at: 1 + (j + 1) put: ((boardArray at: 1 + i) at: 1 + j). ]. j _ j - 1. ]. colour = 0 ifTrue: [self score: (score + 100)] ifFalse: [self score: (score + 1000)]. "repaint();" self paint. ]. ]. ! ! !TetrisBoard methodsFor: 'other' stamp: 'am 8/3/1999 20:16'! dropByOne | i breakLoop numRows | i _ -1. breakLoop _ false. numRows _ boardArray first size. [(i < 3) & (breakLoop not)] whileTrue: [ i _ i + 1. (currentBlockY + ((((blockInfo at: 1 + currentBlockShape) at: 1 + currentBlockAngle) at: 1 + i) at: 1 + 1) >= (numRows - 1)) ifTrue: [ self storePieceOnBoard. breakLoop _ true. ] ifFalse: [ (((boardArray at: 1 + (currentBlockX + ((((blockInfo at: 1 + currentBlockShape) at: 1 + currentBlockAngle) at: 1 + i) at: 1 + 0))) at: 1 + (currentBlockY + 1 + ((((blockInfo at: 1 + currentBlockShape) at: 1 + currentBlockAngle) at: 1 + i) at: 1 + 1))) ~= 0) ifTrue: [ self storePieceOnBoard. breakLoop _ true. ]. ]. ]. currentBlockY _ currentBlockY + 1. ! ! !TetrisBoard methodsFor: 'other' stamp: 'am 8/4/1999 18:02'! makeNewPiece nextBlockColor _ 6 atRandom + 1. nextBlockColor = 7 ifTrue: [nextBlockColor _ 1]. nextBlockX _ 4 atRandom + 3. nextBlockX = 7 ifTrue: [nextBlockX _ 1]. nextBlockY _ 1. nextBlockShape _ 7 atRandom. nextBlockShape = 7 ifTrue: [nextBlockShape _ 0]. nextBlockAngle _ 4 atRandom. nextBlockAngle = 4 ifTrue: [nextBlockAngle _ 0]. "getParent().action(new Event(this, -1, null), this);" ! ! !TetrisBoard methodsFor: 'other' stamp: 'am 8/8/1999 14:51'! storePieceOnBoard | i | i _ -1. [i < 3] whileTrue: [ i _ i + 1. (boardArray at: 1 + (currentBlockX + ((((blockInfo at: 1 + currentBlockShape) at: 1 + currentBlockAngle) at: 1 + i) at: 1 + 0))) at: 1 + (currentBlockY + ((((blockInfo at: 1 + currentBlockShape) at: 1 + currentBlockAngle) at: 1 + i) at: 1 + 1)) put: currentBlockColor. (currentBlockY + ((((blockInfo at: 1 + currentBlockShape) at: 1 + currentBlockAngle) at: 1 + i) at: 1 + 1) < 3) ifTrue: [ paused _ true. gameOver _ true. ]. ]. self checkRow. self score: (score + 10). (delay > 80) ifTrue: [delay _ delay - 2]. currentBlockColor _ 0. ! ! !TetrisBoard methodsFor: 'data' stamp: 'am 8/8/1999 13:43'! blockInfo ^ { { { { 0. 0 }. { 1. 0 }. { 0. 1 }. { 1. 1 } }. " Square " { { 0. 0 }. { 1. 0 }. { 0. 1 }. { 1. 1 } }. { { 0. 0 }. { 1. 0 }. { 0. 1 }. { 1. 1 } }. { { 0. 0 }. { 1. 0 }. { 0. 1 }. { 1. 1 } } }. { { { 0. 0 }. {-1. 0 }. { 1. 0 }. { 0.-1 } }. " T " { { 0. 0 }. { 0. 1 }. { 1. 0 }. { 0.-1 } }. { { 0. 0 }. { 0. 1 }. { 1. 0 }. {-1. 0 } }. { { 0. 0 }. { 0. 1 }. { 0.-1 }. {-1. 0 } } }. { { { 0. 0 }. {-1. 0 }. { 1. 0 }. { 2. 0 } }. " | " { { 0. 0 }. { 0.-1 }. { 0. 1 }. { 0. 2 } }. { { 0. 0 }. {-1. 0 }. { 1. 0 }. { 2. 0 } }. { { 0. 0 }. { 0.-1 }. { 0. 1 }. { 0. 2 } } }. { { { 0. 0 }. { 0.-1 }. { 0. 1 }. { 1. 1 } }. " L " { { 0. 0 }. { 1. 0 }. {-1. 0 }. {-1. 1 } }. { { 0. 0 }. { 0. 1 }. { 0.-1 }. {-1.-1 } }. { { 0. 0 }. {-1. 0 }. { 1. 0 }. { 1.-1 } } }. { { { 0. 0 }. { 0.-1 }. { 0. 1 }. {-1. 1 } }. " Inverted L " { { 0. 0 }. { 1. 0 }. {-1. 0 }. {-1.-1 } }. { { 0. 0 }. { 0. 1 }. { 0.-1 }. { 1.-1 } }. { { 0. 0 }. {-1. 0 }. { 1. 0 }. { 1. 1 } } }. { { { 0. 0 }. {-1. 0 }. { 0.-1 }. { 1.-1 } }. " S " { { 0. 0 }. { 0.-1 }. { 1. 0 }. { 1. 1 } }. { { 0. 0 }. {-1. 0 }. { 0.-1 }. { 1.-1 } }. { { 0. 0 }. { 0.-1 }. { 1. 0 }. { 1. 1 } } }. { { { 0. 0 }. { 1. 0 }. { 0.-1 }. {-1.-1 } }. " Z " { { 0. 0 }. { 0. 1 }. { 1. 0 }. { 1.-1 } }. { { 0. 0 }. { 1. 0 }. { 0.-1 }. {-1.-1 } }. { { 0. 0 }. { 0. 1 }. { 1. 0 }. { 1.-1 } } } }. ! ! !TetrisBoard methodsFor: 'data' stamp: 'am 8/8/1999 13:41'! boardArray | tmpArray | tmpArray _ Array new: 10. 1 to: 10 do: [:i | tmpArray at: i put: (Array new: 27). ]. 1 to: 10 do: [:i | 1 to: 27 do: [:j | (tmpArray at: i) at: j put: 0. ]. ]. ^ tmpArray ! ! !TetrisBoard methodsFor: 'data' stamp: 'AM 8/1/1999 23:12'! colors | tmp | tmp _ Array new: 7. tmp at: 1 put: (Color r: 0.8 g: 1.0 b: 1.0). tmp at: 2 put: (Color r: 0.5 g: 0 b: 0). tmp at: 3 put: (Color r: 0 g: 0.5 b: 0). tmp at: 4 put: (Color r: 0 g: 0 b: 0.5). tmp at: 5 put: (Color r: 0.5 g: 0.5 b: 0). tmp at: 6 put: (Color r: 0.5 g: 0 b: 0.5). tmp at: 7 put: (Color r: 0 g: 0.5 b: 0.5). ^ tmp ! ! !TetrisBoard methodsFor: 'accessing' stamp: 'am 8/22/1999 11:06'! score: aNumber score _ aNumber. scoreDisplay value: aNumber! ! !TetrisBoard class methodsFor: 'instance creation' stamp: 'am 8/22/1999 10:57'! withScoreDisplay: aScoreDisplay ^ self new withScoreDisplay: aScoreDisplay! !

2 1

[ANN][UNIX] VM support for command line attributes
by Bert Freudenberg 30 Aug '99

30 Aug '99

Here's the patch for sqXWindow.c allowing a startup document file and additional parameters. See #getSystemAttribute: Unix hackers: this would fail if uname() is not available via <sys/utsname.h>. Is there any system without this? I tested it on Linux, SunOS and IRIX. /bert Content-Type: TEXT/PLAIN; CHARSET=US-ASCII; NAME="param.diff" Content-ID: <Pine.LNX.3.96.990830154027.7353B(a)balloon.cs.uni-magdeburg.de> Content-Description: *** ftp/sqXWindow.c Wed Jun 9 17:03:54 1999 --- src/sqXWindow.c Mon Aug 30 10:35:44 1999 *************** *** 31,36 **** --- 31,37 ---- #include <sys/time.h> #include <sys/types.h> #include <sys/param.h> + #include <sys/utsname.h> #include <unistd.h> #include <errno.h> #include <signal.h> *************** *** 2485,2517 **** static char *getSpecialAttribute(int id) { static char buf[256]; switch (id) { ! case 1: /* Squeak PID */ sprintf(buf, "%d", getpid()); ! return buf; } - buf[0]= '\0'; return buf; } int attributeSize(int id) { ! if (id + 1 >= initialArgc) return 0; ! if (id < 0) ! return strlen(getSpecialAttribute(-id)); ! else ! return strlen(initialArgv[id + 1]); } int getAttributeIntoLength(int id, int byteArrayIndex, int length) { char *attrIndex= (char *)byteArrayIndex; char *arg; ! if (id + 1>= initialArgc) return 0; ! if (id < 0) ! arg= getSpecialAttribute(-id); else ! arg= initialArgv[id + 1]; while (length--) *attrIndex++= *arg++; return 0; --- 2491,2537 ---- static char *getSpecialAttribute(int id) { static char buf[256]; + struct utsname info; + uname(&info); switch (id) { ! case -1: sprintf(buf, "%d", getpid()); ! break; ! case 1001: /* OS */ ! strcpy(buf, info.sysname); ! break; ! case 1002: /* OS version */ ! strcpy(buf, info.release); ! break; ! case 1003: /* processor type */ ! strcpy(buf, info.machine); ! break; ! default: ! buf[0]= '\0'; } return buf; } int attributeSize(int id) { ! if (id < 0 || id > 1000) ! return strlen(getSpecialAttribute(id)); ! if (id < initialArgc) ! return strlen(initialArgv[id]); ! return 0; } int getAttributeIntoLength(int id, int byteArrayIndex, int length) { char *attrIndex= (char *)byteArrayIndex; char *arg; ! if (id < 0 || id > 1000) ! arg= getSpecialAttribute(id); else ! if (id < initialArgc) ! arg= initialArgv[id]; ! else ! return 0; while (length--) *attrIndex++= *arg++; return 0; *************** *** 2574,2581 **** { char *ev; ! initialArgv= argv; ! initialArgc= 0; /* defaults */ --- 2595,2609 ---- { char *ev; ! initialArgc= 3; /* VM name + image name + document name */ ! initialArgv= malloc((argc+3) * sizeof(char*)); /* +3 is worst case */ ! if (!initialArgv) { ! fprintf(stderr, "memory allocation failed\n"); ! exit(1); ! } ! initialArgv[0]= argv[0]; ! initialArgv[1]= shortImageName; ! initialArgv[2]= ""; /* document */ /* defaults */ *************** *** 2728,2745 **** exit(0); } ! /* assume the argument is meant for Squeak, and silently ignore it */ ! initialArgv[initialArgc++]= *argv++; ! --argc; } ! if (argc) ! { ! strcpy(shortImageName, *argv); ! initialArgv[initialArgc++]= *argv++; --argc; ! } ! initialArgv[initialArgc]= (char *)0; if (0 == strstr(shortImageName, ".image")) strcat(shortImageName, ".image"); --- 2769,2794 ---- exit(0); } ! /* first unrecognized option - keep for Squeak */ ! /* but print a warning because we got no image file yet */ ! fprintf(stderr, "Warning: no imagefile specified " ! "but additional parameters found\n"); ! break; } ! if (argc && **argv != '-') { ! strcpy(shortImageName, *argv++); --argc; ! } ! ! if (argc && **argv != '-') { ! initialArgv[2]= *argv++; ! --argc; ! } ! ! while (argc--) ! initialArgv[initialArgc++]= *argv++; ! initialArgv[initialArgc]= NULL; if (0 == strstr(shortImageName, ".image")) strcat(shortImageName, ".image");

1 0

Jump to page: