GeezerVison

The World Wide Web, restored to 800 pixels of glory.

GeezerVison is showing github.com — Adding a needed method for SocketStream in GemStone · SeasideSt/Grease@ed9153d

File tree

Expand file treeCollapse file tree

Open diff view settings

Filter options

repository/Grease-GemStone-Core.package/SocketStream.extension
- instance
  - greaseNext.putAll.startingAt..st
- properties.json

Expand file treeCollapse file tree

Open diff view settings

Collapse file

`‎repository/Grease-GemStone-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st‎`

Copy file name to clipboard

+13Lines changed: 13 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,13 @@`
	`1`	`+*grease-gemstone-core`
	`2`	`+greaseNext: anInteger putAll: aCollection startingAt: startIndex`
	`3`	`+ "Put a String or a ByteArray onto the stream starting at the given position.`
	`4`	`+ Currently a large collection will allocate a large buffer."`
	`5`	`+`
	`6`	`+ \| toPut \|`
	`7`	`+ anInteger = 0 ifTrue: [`
	`8`	`+ ^ aCollection ].`
	`9`	`+ toPut := binary ifTrue: [ aCollection asByteArray ] ifFalse: [ aCollection asString ].`
	`10`	`+ self adjustOutBuffer: anInteger.`
	`11`	`+ outBuffer replaceFrom: outNextToWrite to: outNextToWrite + anInteger - 1 with: toPut startingAt: startIndex.`
	`12`	`+ outNextToWrite := outNextToWrite + anInteger.`
	`13`	`+ self checkFlush`

Collapse file

`‎repository/Grease-GemStone-Core.package/SocketStream.extension/properties.json‎`

Copy file name to clipboard

+3Lines changed: 3 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+{`
	`2`	`+ "name" : "SocketStream"`
	`3`	`+}`

0 commit comments

Comments

0 (0)

You are visitor 01402503 — GeezerVison does not store the pages you look up.
Best viewed with Netscape Navigator 4.7 or Internet Explorer 6 at 800×600. No cookies required.