[Pkg] The Trunk: 60Deprecated-pre.35.mcz

commits at source.squeak.org commits at source.squeak.org
Thu May 9 14:35:24 UTC 2019 

Patrick Rein uploaded a new version of 60Deprecated to project The Trunk:
http://source.squeak.org/trunk/60Deprecated-pre.35.mcz

==================== Summary ====================

Name: 60Deprecated-pre.35
Author: pre
Time: 9 May 2019, 4:35:21.000225 pm
UUID: 64cb9104-c19b-d546-8cf5-f41d1da8fe8c
Ancestors: 60Deprecated-nice.34

Deprecates classes and methods related to executing Squeak in a web browser through a browser plugin. They can be loaded through the 60Deprecated-NSPlugin-System-Support package.

=============== Diff against 60Deprecated-nice.34 ===============

Item was changed:
  SystemOrganization addCategory: #'60Deprecated-Collections-Streams'!
  SystemOrganization addCategory: #'60Deprecated-Kernel-Methods'!
+ SystemOrganization addCategory: #'60Deprecated-NSPlugin-System-Support'!
  SystemOrganization addCategory: #'60Deprecated-System-Support'!
  SystemOrganization addCategory: #'60Deprecated-Tools-Inspector'!
  SystemOrganization addCategory: #'60Deprecated-Tools-Menus'!

Item was added:
+ ----- Method: FileStream class>>httpPostDocument:args: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ httpPostDocument: url args: argsDict
+ 	| argString |
+ 	self deprecated: 'Browser plugin based http requests are not supported anymore.'.
+ 	argString := argsDict
+ 		ifNotNil: [argString := HTTPSocket argString: argsDict]
+ 		ifNil: [''].
+ 	^self post: argString url: url , argString ifError: [self halt]!

Item was added:
+ ----- Method: FileStream class>>httpPostMultipart:args: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ httpPostMultipart: url args: argsDict 
+ 	| mimeBorder argsStream crLf resultStream result |
+ 	" do multipart/form-data encoding rather than x-www-urlencoded "
+ 
+ 	crLf := String crlf.
+ 	mimeBorder := '----squeak-', Time millisecondClockValue printString, '-stuff-----'.
+ 	"encode the arguments dictionary"
+ 	argsStream := WriteStream on: String new.
+ 	argsDict associationsDo: [:assoc |
+ 		assoc value do: [ :value | | fieldValue |
+ 		"print the boundary"
+ 		argsStream nextPutAll: '--', mimeBorder, crLf.
+ 		" check if it's a non-text field "
+ 		argsStream nextPutAll: 'Content-disposition: form-data; name="', assoc key, '"'.
+ 		(value isKindOf: MIMEDocument)
+ 			ifFalse: [fieldValue := value]
+ 			ifTrue: [argsStream nextPutAll: ' filename="', value url pathForFile, '"', crLf, 'Content-Type: ', value contentType.
+ 				fieldValue := (value content
+ 					ifNil: [(FileStream fileNamed: value url pathForFile) contentsOfEntireFile]
+ 					ifNotNil: [value content]) asString].
+ " Transcript show: 'field=', key, '; value=', fieldValue; cr. "
+ 		argsStream nextPutAll: crLf, crLf, fieldValue, crLf.
+ 	]].
+ 	argsStream nextPutAll: '--', mimeBorder, '--'.
+ 
+ 	resultStream := self
+ 		post: 
+ 			('Content-type: multipart/form-data; boundary=', mimeBorder, crLf,
+ 			'Content-length: ', argsStream contents size printString, crLf, crLf, 
+ 			argsStream contents)
+ 		url: url ifError: [^'Error in post ' url asString].
+ 	"get the header of the reply"
+ 	result := resultStream upToEnd.
+ 	^MIMEDocument content: result!

Item was added:
+ ----- Method: FileStream class>>post:target:url:ifError: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ post: data target: target url: url ifError: errorBlock 
+ 	^self concreteStream new post: data target: target url: url ifError: errorBlock!

Item was added:
+ ----- Method: FileStream class>>post:url:ifError: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ post: data url: url ifError: errorBlock 
+ 	^self post: data target: nil url: url ifError: errorBlock!

Item was added:
+ ----- Method: FileStream class>>requestURL:target: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ requestURL: url target: target 
+ 	"FileStream requestURL:'http://isgwww.cs.uni-magdeburg.de/~raab' target: ':=blank' "
+ 	^self concreteStream new requestURL: url target: target!

Item was added:
+ ----- Method: FileStream class>>requestURLStream: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ requestURLStream: url 
+ 	"FileStream requestURLStream:'http://isgwww.cs.uni-magdeburg.de/~raab'"
+ 	^self concreteStream new requestURLStream: url!

Item was added:
+ ----- Method: FileStream class>>requestURLStream:ifError: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ requestURLStream: url ifError: errorBlock 
+ 	"FileStream requestURLStream:'http://isgwww.cs.uni-magdeburg.de/~raab'"
+ 	^self concreteStream new requestURLStream: url ifError: errorBlock!

Item was added:
+ HTTPDownloadRequest subclass: #PluginHTTPDownloadRequest
+ 	instanceVariableNames: 'fileStream'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: '60Deprecated-NSPlugin-System-Support'!
+ 
+ !PluginHTTPDownloadRequest commentStamp: '<historical>' prior: 0!
+ HTTPBrowserRequest attempts to fetch the contents through a Webbrowser. This works transparently if Squeak is not running in the browser.!

Item was added:
+ ----- Method: PluginHTTPDownloadRequest>>contentStream (in category 'accessing') -----
+ contentStream
+ 	semaphore wait.
+ 	fileStream
+ 		ifNotNil: [^ fileStream].
+ 	^ content
+ 		ifNotNil: [content isString
+ 				ifTrue: [self error: 'Error loading ' , self url printString]
+ 				ifFalse: [content contentStream]]!

Item was added:
+ ----- Method: PluginHTTPDownloadRequest>>contents (in category 'accessing') -----
+ contents
+ 	| |
+ 	semaphore wait.
+ 	(content isNil and:[fileStream notNil]) ifTrue:[
+ "		pos := fileStream position."
+ 		fileStream position: 0.
+ 		content := MIMEDocument content: fileStream upToEnd.
+ 		fileStream close.
+ 	].
+ 	^content!

Item was added:
+ ----- Method: PluginHTTPDownloadRequest>>maxAttempts (in category 'accessing') -----
+ maxAttempts
+ 	"Return the number of attempts to retry before giving up"
+ 	^3!

Item was added:
+ ----- Method: PluginHTTPDownloadRequest>>signalAbort (in category 'accessing') -----
+ signalAbort
+ 	fileStream ifNotNil: [
+ 		fileStream close].
+ 	fileStream := nil.
+ 	super signalAbort.!

Item was added:
+ ----- Method: PluginHTTPDownloadRequest>>startRetrieval (in category 'accessing') -----
+ startRetrieval
+ 	| attempts |
+ 	attempts := self maxAttempts.
+ 	"Note: Only the first request may fail due to not running in a browser"
+ 	url first = $/
+ 		ifTrue: [url := url copyFrom: 2 to: url size].
+ 	fileStream := FileStream requestURLStream: url ifError:[^super startRetrieval].
+ 	[fileStream == nil] whileTrue:[
+ 		attempts := attempts - 1.
+ 		attempts = 0 ifTrue:[^self content:'Error downloading file'].
+ 		fileStream := FileStream requestURLStream: url].
+ 	semaphore signal.!

Item was added:
+ ----- Method: StandardFileStream class>>isRunningAsBrowserPlugin (in category '*60Deprecated-NSPlugin-System-Support') -----
+ isRunningAsBrowserPlugin 
+ 	self new waitBrowserReadyFor: 1000 ifFail: [^false].
+ 	^true!

Item was added:
+ ----- Method: StandardFileStream class>>privateCheckForBrowserPrimitives (in category '*60Deprecated-NSPlugin-System-Support') -----
+ privateCheckForBrowserPrimitives 
+ 	<primitive:'primitivePluginBrowserReady'>
+ 	^false!

Item was added:
+ ----- Method: StandardFileStream>>defaultBrowserReadyWait (in category '*60Deprecated-NSPlugin-System-Support') -----
+ defaultBrowserReadyWait 
+ 	^5000!

Item was added:
+ ----- Method: StandardFileStream>>post:target:url:ifError: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ post: data target: target url: url ifError: errorBlock 
+ 	"Post data to the given URL. The returned file stream contains the reply of the server.
+ 	If Squeak is not running in a browser evaluate errorBlock"
+ 
+ 	self waitBrowserReadyFor: self defaultBrowserReadyWait ifFail: [^errorBlock value].
+ 	Smalltalk newExternalSemaphoreDo: [ :semaphore :index |
+ 		| request result |
+ 		request := self primURLPost: url target: target data: data semaIndex: index.
+ 		request ifNil: [
+ 			Smalltalk unregisterExternalObject: semaphore.
+ 			^errorBlock value ].
+ 		[ semaphore wait. "until something happens"
+ 			result := self primURLRequestState: request.
+ 			result == nil ] whileTrue.
+ 		result ifTrue: [ fileID := self primURLRequestFileHandle: request ].
+ 		self primURLRequestDestroy: request.
+ 		Smalltalk unregisterExternalObject: semaphore ].
+ 	fileID ifNil: [ ^nil ].
+ 	self register.
+ 	name := url.
+ 	rwmode := false.
+ 	buffer1 := String new: 1.
+ 	self enableReadBuffering!

Item was added:
+ ----- Method: StandardFileStream>>post:url:ifError: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ post: data url: url ifError: errorBlock 
+ 
+ 	self post: data target: nil url: url ifError: errorBlock!

Item was added:
+ ----- Method: StandardFileStream>>primBrowserReady (in category '*60Deprecated-NSPlugin-System-Support') -----
+ primBrowserReady 
+ 	<primitive:'primitivePluginBrowserReady'>
+ 	^nil!

Item was added:
+ ----- Method: StandardFileStream>>primURLPost:data:semaIndex: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ primURLPost: url data: contents semaIndex: index 
+ 	^self primURLPost: url target: nil data: contents semaIndex: index!

Item was added:
+ ----- Method: StandardFileStream>>primURLPost:target:data:semaIndex: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ primURLPost: url target: target data: contents semaIndex: index 
+ 	"Post the data (url might be 'mailto:' etc)"
+ 	<primitive:'primitivePluginPostURL'>
+ 	^nil
+  !

Item was added:
+ ----- Method: StandardFileStream>>primURLRequest:semaIndex: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ primURLRequest: url semaIndex: index 
+ 	<primitive:'primitivePluginRequestURLStream'>
+ 	^nil!

Item was added:
+ ----- Method: StandardFileStream>>primURLRequest:target:semaIndex: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ primURLRequest: url target: target semaIndex: index 
+ 	"target - String (frame, also ':=top', ':=parent' etc)"
+ 	<primitive:'primitivePluginRequestURL'>
+ 	^nil
+  !

Item was added:
+ ----- Method: StandardFileStream>>primURLRequestDestroy: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ primURLRequestDestroy: request 
+ 	<primitive:'primitivePluginDestroyRequest'>
+ 	^nil!

Item was added:
+ ----- Method: StandardFileStream>>primURLRequestFileHandle: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ primURLRequestFileHandle: request 
+ 	<primitive: 'primitivePluginRequestFileHandle'>
+ 	^nil!

Item was added:
+ ----- Method: StandardFileStream>>primURLRequestState: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ primURLRequestState: request 
+ 	<primitive:'primitivePluginRequestState'>
+ 	^false!

Item was added:
+ ----- Method: StandardFileStream>>requestURL:target: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ requestURL: url target: target 
+ 	^self requestURL: url target: target ifError: [nil]!

Item was added:
+ ----- Method: StandardFileStream>>requestURL:target:ifError: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ requestURL: url target: target ifError: errorBlock 
+ 	"Request to go to the target for the given URL.
+ 	If Squeak is not running in a browser evaluate errorBlock"
+ 
+ 	self waitBrowserReadyFor: self defaultBrowserReadyWait ifFail: [^errorBlock value].
+ 	Smalltalk newExternalSemaphoreDo: [ :semaphore :index |
+ 		| request result |
+ 		request := self primURLRequest: url target: target semaIndex: index.
+ 		request ifNil: [
+ 			Smalltalk unregisterExternalObject: semaphore.
+ 			^errorBlock value ].
+ 		[ semaphore wait. "until something happens"
+ 			result := self primURLRequestState: request.
+ 			result == nil ] whileTrue.
+ 		self primURLRequestDestroy: request.
+ 		Smalltalk unregisterExternalObject: semaphore ].
+ 	fileID ifNil: [ ^nil ].
+ 	self register.
+ 	name := url.
+ 	rwmode := false.
+ 	buffer1 := String new: 1.
+ 	self enableReadBuffering!

Item was added:
+ ----- Method: StandardFileStream>>requestURLStream: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ requestURLStream: url 
+ 	"FileStream requestURLStream:'http://www.squeak.org'"
+ 	^self requestURLStream: url ifError:[nil]!

Item was added:
+ ----- Method: StandardFileStream>>requestURLStream:ifError: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ requestURLStream: url ifError: errorBlock 
+ 	"Request a FileStream for the given URL.
+ 	If Squeak is not running in a browser evaluate errorBlock"
+ 	"FileStream requestURLStream:'http://www.squeak.org'"
+ 
+ 	self waitBrowserReadyFor: self defaultBrowserReadyWait ifFail: [^errorBlock value].
+ 	Smalltalk newExternalSemaphoreDo: [ :semaphore :index |
+ 		| request result |
+ 		request := self primURLRequest: url semaIndex: index.
+ 		request ifNil: [
+ 			Smalltalk unregisterExternalObject: semaphore.
+ 			^errorBlock value ].
+ 		[ semaphore wait. "until something happens"
+ 			result := self primURLRequestState: request.
+ 			result == nil ] whileTrue.
+ 		result ifTrue: [ fileID := self primURLRequestFileHandle: request ].
+ 		self primURLRequestDestroy: request.
+ 		Smalltalk unregisterExternalObject: semaphore ].
+ 	fileID ifNil: [ ^nil ].
+ 	self register.
+ 	name := url.
+ 	rwmode := false.
+ 	buffer1 := String new: 1.
+ 	self enableReadBuffering!

Item was added:
+ ----- Method: StandardFileStream>>waitBrowserReadyFor:ifFail: (in category '*60Deprecated-NSPlugin-System-Support') -----
+ waitBrowserReadyFor: timeout ifFail: errorBlock 
+ 	| startTime delay okay |
+ 	okay := self primBrowserReady.
+ 	okay ifNil:[^errorBlock value].
+ 	okay ifTrue: [^true].
+ 	startTime := Time millisecondClockValue.
+ 	delay := Delay forMilliseconds: 100.
+ 	[(Time millisecondsSince: startTime) < timeout]
+ 		whileTrue: [
+ 			delay wait.
+ 			okay := self primBrowserReady.
+ 			okay ifNil:[^errorBlock value].
+ 			okay ifTrue: [^true]].
+ 	^errorBlock value!

More information about the Packages mailing list