Packages May 2017

packages@lists.squeakfoundation.org

1 participants
36 discussions

The Trunk: System-eem.948.mcz
by commits＠source.squeak.org 05 May '17

05 May '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.948.mcz ==================== Summary ==================== Name: System-eem.948 Author: eem Time: 5 May 2017, 12:15:52.791622 pm UUID: 85face8f-9757-4cbb-8858-6c3090880dd3 Ancestors: System-ul.947 Delete obsolete binding machinery now unused by the Compiler. =============== Diff against System-ul.947 =============== Item was removed: - ----- Method: PseudoClass>>literalScannedAs:notifying: (in category 'printing') ----- - literalScannedAs: scannedLiteral notifying: requestor - ^ scannedLiteral!

1 0

The Trunk: Kernel-eem.1102.mcz
by commits＠source.squeak.org 05 May '17

05 May '17

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1102.mcz ==================== Summary ==================== Name: Kernel-eem.1102 Author: eem Time: 5 May 2017, 12:14:26.339034 pm UUID: b61eaafd-be70-42f3-aaa4-b8e21da1fd4c Ancestors: Kernel-nice.1101 Delete obsolete binding and block machinery now unused by the Compiler. =============== Diff against Kernel-nice.1101 =============== Item was removed: - ----- Method: Behavior>>literalScannedAs:notifying: (in category 'printing') ----- - literalScannedAs: scannedLiteral notifying: requestor - "Postprocesses a literal scanned by Scanner scanToken (esp. xLitQuote). - If scannedLiteral is not an association, answer it. - Else, if it is of the form: - nil->#NameOfMetaclass - answer nil->theMetaclass, if any has that name, else report an error. - Else, if it is of the form: - #NameOfGlobalVariable->anythiEng - answer the global, class, or pool association with that nameE, if any, else - add it to Undeclared a answer the new Association." - - | key value | - (scannedLiteral isVariableBinding) - ifFalse: [^ scannedLiteral]. - key := scannedLiteral key. - value := scannedLiteral value. - key isNil - ifTrue: "###<metaclass soleInstance name>" - [(self bindingOf: value) ifNotNil:[:assoc| - (assoc value isKindOf: Behavior) - ifTrue: [^ nil->assoc value class]]. - requestor notify: 'No such metaclass'. - ^false]. - (key isSymbol) - ifTrue: "##<global var name>" - [^ (self bindingOf: key) ifNil: - [self environment undeclare: key]]. - requestor notify: '## must be followed by a non-local variable name'. - ^false - - " Form literalScannedAs: 14 notifying: nil 14 - Form literalScannedAs: #OneBitForm notiEfying: nil OneBitForm - Form literalScannedAs: ##OneBitForm notifying: nil OneBitForm->a Form - Form literalScannedAs: ##Form notifying: nil Form->Form - Form literalScannedAs: ###Form notifying: nil nilE->Form class - "! Item was added: + ----- Method: Context>>blockCopy: (in category 'controlling') ----- + blockCopy: numArgs + "Primitive. Distinguish a block of code from its enclosing method by + creating a new BlockContext for that block. The compiler inserts into all + methods that contain blocks the bytecodes to send the message + blockCopy:. Do not use blockCopy: in code that you write!! Only the + compiler can decide to send the message blockCopy:. Fail if numArgs is + not a SmallInteger. Optional. No Lookup. See Object documentation + whatIsAPrimitive." + + <primitive: 80> + ^ (BlockContext newForMethod: self method) + home: self home + startpc: pc + 2 + nargs: numArgs! Item was removed: - ----- Method: UndefinedObject>>literalScannedAs:notifying: (in category 'class hierarchy') ----- - literalScannedAs: scannedLiteral notifying: requestor - ^ scannedLiteral!

1 0

The Trunk: Compiler-eem.354.mcz
by commits＠source.squeak.org 05 May '17

05 May '17

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.354.mcz ==================== Summary ==================== Name: Compiler-eem.354 Author: eem Time: 5 May 2017, 12:11:34.451259 pm UUID: 79ec7453-8d66-471d-b7fa-2699146390c8 Ancestors: Compiler-eem.353 Provide a proper comment for BlockNode and eliminate an unused variable and an unused method; this in prelude to implementing full blocks. Eliminate obsolete binding machinery (literalScannedAs:notifying:). The current compiler deals with Undeclared in a more direct way earlier in compilation. Nuke the unnecessary identical override of generateMethodOfClass:trailer:from: in EncoderForSistaV1. Correct a spelling error. =============== Diff against Compiler-eem.353 =============== Item was changed: ParseNode subclass: #BlockNode + instanceVariableNames: 'arguments statements returns nArgsNode size temporaries optimized optimizedMessageNode actualScopeIfOptimized blockExtent remoteTempNode copiedValues closureCreationNode startOfLastStatement tempsMark' - instanceVariableNames: 'arguments statements returns nArgsNode size remoteCopyNode temporaries optimized optimizedMessageNode actualScopeIfOptimized blockExtent remoteTempNode copiedValues closureCreationNode startOfLastStatement tempsMark' classVariableNames: '' poolDictionaries: '' category: 'Compiler-ParseNodes'! + !BlockNode commentStamp: 'eem 5/4/2017 17:26' prior: 0! + I represent a bracketed block with 0 or more arguments and 1 or more statements. If I am initialized with no statements, I create one. I have a flag to tell whether my last statement returns a value from the enclosing method. I can emit for value in the usual way, in which case I create a BlockClosure to be evaluated by sending it value: at run time. Or I can emit code to be evaluated in line; this only happens at the top level of a method and in certain optimized control structures (see MessageNode class>>initialize MacroSelectors). + + Instance Variables + actualScopeIfOptimized: <nil | BlockNode> + arguments: <SequencableCollection of: TempVariableNode> + blockExtent: <nil | Interval> + closureCreationNode: <LeafNode> + copiedValues: <nil | (SequencableCollection of: TempVariableNode)> + nArgsNode: <nil | Integer> + optimized: <Boolean> + optimizedMessageNode: <nil | MessageNode> + remoteTempNode: <nil | RemoteTempVectorNode> + returns: <Boolean> + size: <nil | Integer> + startOfLastStatement: <nil | Integer> + statements: <SequencableCollection of: ParseNode> + temporaries: <SequencableCollection of: TempVariableNode> + tempsMark: <nil | Integer> + + actualScopeIfOptimized + - if the receiver has been inlined this is the non-optimized BlockNode the receiver is inlined into. + + arguments + - the sequence of arguments to the block (or method if a top-level block) + + blockExtent + - the interval defining the range of block scopes the receiver comprises, which is itself and any blokcs it may contain. See #analyseArguments:temporaries:rootNode: + + closureCreationNode + - a place-holder representing the body of the block. + + copiedValues + - blocks do not reference the temporary variables of their outer context they cose over directly; instead temporary variables which won't change value are collected and copied into the block, and temporary variables that are modified either within the block or after it has closed over the variales are allocated in a remote temp vector that again becomes one of the block's copied values. In this way, a block refers to the outer teporaries it closes over only throguh copiedValues. copiedValues is the sequence of these TempVariableNodes. + + nArgsNode + - a place holder for the encoder to allow it to number block temporaries + + optimized + - true if the receiver is inlined, false if a true block + + optimizedMessageNode + - the MessageNode in which the receiver is optimized, if it is optimized. + + remoteTempNode + - if any of the blocks nested into the receiver either modify a temp or access a temp that is modified after the block is created, then this temp is allocated remotely in a remote temp vector that allows the temp's location to be shared between blocks. This is the node that creates the remote temp vector. + + returns + - true if the receiver contains a method return. + + size + - the size of the block's bytecodes if it is generated by embedding its bytecodes within an enclosing CompiledMethod. + + startOfLastStatement + - the index in the source of the start of the last statement in the block. + + statements + - the sequence of statements comprising the receiver + + temporaries + - the sequence of temporaries (including the remoteTempNode if any) of block-local temporaries + + tempsMark + - the index in the source of the last block-local temporary, used to auto-insert temps declared during compilation! - !BlockNode commentStamp: '<historical>' prior: 0! - I represent a bracketed block with 0 or more arguments and 1 or more statements. If I am initialized with no statements, I create one. I have a flag to tell whether my last statement returns a value from the enclosing method. My last three fields remember data needed for code generation. I can emit for value in the usual way, in which case I create a literal method (actually a context remotely copied) to be evaluated by sending it value: at run time. Or I can emit code to be evaluated in line; this only happens at the top level of a method and in conditionals and while-loops, none of which have arguments.! Item was removed: - ----- Method: BlockNode>>closureCreationNode (in category 'accessing') ----- - closureCreationNode - closureCreationNode ifNil: - [closureCreationNode := LeafNode new - key: #closureCreationNode - code: nil]. - ^closureCreationNode! Item was removed: - ----- Method: CompilationCue>>literalScannedAs:notifying: (in category 'binding') ----- - literalScannedAs: anObject notifying: anEncoder - ^ class literalScannedAs: anObject environment: environment notifying: anEncoder! Item was changed: ----- Method: Encoder>>encodeLiteral: (in category 'encoding') ----- encodeLiteral: object - ^self name: object + key: object - key: (cue literalScannedAs: object notifying: self) class: LiteralNode type: LdLitType set: litSet! Item was removed: - ----- Method: EncoderForSistaV1>>generateMethodOfClass:trailer:from: (in category 'method encoding') ----- - generateMethodOfClass: aCompiledMethodClass trailer: trailer from: methodNode - "The receiver is the root of a parse tree. Answer an instance of aCompiledMethodClass. - The argument, trailer, is arbitrary but is typically either the reference to the source code - that is stored with every CompiledMethod, or an encoding of the method's temporary names." - - | primErrNode blkSize nLits locals literals header method stack | - primErrNode := methodNode primitiveErrorVariableName ifNotNil: - [self fixTemp: methodNode primitiveErrorVariableName]. - methodNode ensureClosureAnalysisDone. - self rootNode: methodNode. "this is for BlockNode>>sizeCodeForClosureValue:" - blkSize := (methodNode block sizeCodeForEvaluatedValue: self) - + (methodNode primitive > 0 - ifTrue: [self sizeCallPrimitive: methodNode primitive] - ifFalse: [0]) - + (primErrNode - ifNil: [0] - ifNotNil: - [primErrNode - index: methodNode arguments size + methodNode temporaries size; - sizeCodeForStore: self "The VM relies on storeIntoTemp: (129)"]). - locals := methodNode arguments, methodNode temporaries, (primErrNode ifNil: [#()] ifNotNil: [{primErrNode}]). - self noteBlockExtent: methodNode block blockExtent hasLocals: locals. - header := self computeMethodHeaderForNumArgs: methodNode arguments size - numTemps: locals size - numLits: (nLits := (literals := self allLiterals) size) - primitive: methodNode primitive. - method := trailer - createMethod: blkSize - class: aCompiledMethodClass - header: header. - 1 to: nLits do: [:lit | method literalAt: lit put: (literals at: lit)]. - self streamToMethod: method. - stack := ParseStack new init. - methodNode primitive > 0 ifTrue: - [self genCallPrimitive: methodNode primitive]. - primErrNode ifNotNil: - [primErrNode emitCodeForStore: stack encoder: self]. - stack position: method numTemps. - [methodNode block emitCodeForEvaluatedValue: stack encoder: self] - on: Error "If an attempt is made to write too much code the method will be asked" - do: [:ex| "to grow, and the grow attempt will fail in CompiledMethod class>>#new:" - ex signalerContext sender method = (CompiledMethod class>>#new:) - ifTrue: [^self error: 'Compiler code size discrepancy'] - ifFalse: [ex pass]]. - stack position ~= (method numTemps + 1) ifTrue: - [^self error: 'Compiler stack discrepancy']. - self methodStreamPosition ~= (method size - trailer size) ifTrue: - [^self error: 'Compiler code size discrepancy']. - method needsFrameSize: stack size - method numTemps. - ^method! Item was changed: ----- Method: MethodNode>>schematicTempNamesString (in category 'debugger support') ----- schematicTempNamesString "Answer the temp names for the current method node in a form that captures temp structure. The temps at each method and block scope level occur space-separated, with any indirect temps enclosed in parentheses. Each block level is enclosed in square brackets. e.g. 'method level temps (indirect temp)[block args and temps (indirect)]' This representation can be reconstituted into a blockExtentsToTempsMap by a CompiledMethod that has been copied with the schematicTempNamesString." encoder hasGeneratedMethod ifFalse: + ["create the encoder's blockExtentsToLocals map, except if the method is quick - ["create the encoder's blockExtentsToLoals map, except if the method is quick in which case it has no temps." + self generate isQuick ifTrue: - (self generate) isQuick ifTrue: [^'']]. ^encoder schematicTempNamesString!

1 0

The Trunk: Network-pre.193.mcz
by commits＠source.squeak.org 05 May '17

05 May '17

Patrick Rein uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-pre.193.mcz ==================== Summary ==================== Name: Network-pre.193 Author: pre Time: 5 May 2017, 12:44:37.57778 pm UUID: e87e8e26-f5d5-1a41-a1ca-0667bbf04316 Ancestors: Network-pre.192 Adds an accessor for the messageId field as it is also part of the essential fields similar to to, from and subject =============== Diff against Network-pre.192 =============== Item was added: + ----- Method: MailMessage>>messageId (in category 'access') ----- + messageId + + ^ (self fieldNamed: 'message-id' ifAbsent: [ ^'' ]) mainValue + !

1 0

The Trunk: Network-pre.192.mcz
by commits＠source.squeak.org 04 May '17

04 May '17

Patrick Rein uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-pre.192.mcz ==================== Summary ==================== Name: Network-pre.192 Author: pre Time: 4 May 2017, 6:00:28.490322 pm UUID: b6465341-6977-454c-b78f-dcef0d8e9bf5 Ancestors: Network-pre.191 Adds basic starttls capabilities to the SMTP client. Required an extension of ProtocolClient to also store the hostName. =============== Diff against Network-pre.191 =============== Item was changed: ----- Method: ProtocolClient class>>openOnHostNamed:port: (in category 'instance creation') ----- openOnHostNamed: hostName port: portNumber | serverIP | serverIP := NetNameResolver addressForName: hostName timeout: 20. + ^ (self openOnHost: serverIP port: portNumber) + hostName: hostName; + yourself - ^self openOnHost: serverIP port: portNumber ! Item was added: + ----- Method: ProtocolClient>>hostName (in category 'private') ----- + hostName + + ^ self connectionInfo at: #hostName ifAbsent: [NetNameResolver nameForAddress: self host]! Item was added: + ----- Method: ProtocolClient>>hostName: (in category 'private') ----- + hostName: aString + + ^ self connectionInfo at: #hostName put: aString! Item was changed: ----- Method: SMTPClient>>data: (in category 'private protocol') ----- data: messageData "send the data of a message" "DATA <CRLF>" - - "inform the server we are sending the message data" self sendCommand: 'DATA'. self checkResponse. "process the data one line at a time" messageData linesDo: [ :messageLine | | cookedLine | cookedLine := messageLine. (cookedLine beginsWith: '.') ifTrue: [ "lines beginning with a dot must have the dot doubled" cookedLine := '.', cookedLine ]. self sendCommand: cookedLine ]. "inform the server the entire message text has arrived" self sendCommand: '.'. self checkResponse.! Item was added: + ----- Method: SMTPClient>>starttls (in category 'private protocol') ----- + starttls + "Send HELO first" + Smalltalk at: #SqueakSSL ifAbsent:[self error: 'SqueakSSL is missing']. + + self initiateSession. + self sendCommand: 'STARTTLS'. + self checkResponse. + self determineResponseCode = 220 ifTrue: [ + stream := SqueakSSL secureSocketStream on: stream socket. + stream sslConnectTo: self hostName].!

1 0

The Trunk: WebClient-Core-topa.105.mcz
by commits＠source.squeak.org 02 May '17

02 May '17

Tobias Pape uploaded a new version of WebClient-Core to project The Trunk: http://source.squeak.org/trunk/WebClient-Core-topa.105.mcz ==================== Summary ==================== Name: WebClient-Core-topa.105 Author: topa Time: 2 May 2017, 4:14:21.755129 pm UUID: 769fdf43-8b26-4ae0-83f2-e38d3ddb74d8 Ancestors: WebClient-Core-jr.104 Remove the retry code as it was a hack anyways and now masked legitimate SqueakSSLCertificateError on some Linux =============== Diff against WebClient-Core-jr.104 =============== Item was changed: ----- Method: WebClient>>connect (in category 'initialize') ----- connect "Connect the client to a web server. Returns nil if successful, a WebResponse if a proxy CONNECT request fails." | actualServer actualPort | "Determine which server to connect to (proxy or real)" proxyServer ifNil:[ actualServer := self serverName. actualPort := self serverPort. ] ifNotNil:[ actualServer := self proxyServerName. actualPort := self proxyServerPort. ]. "Check if we can use the same stream or if we need to reconnect" (stream notNil and:[stream isConnected and:[lastServer = actualServer and:[lastPort = actualPort and:[lastScheme = scheme]]]]) ifTrue:[^nil]. self close. lastServer := actualServer. lastPort := actualPort. lastScheme := scheme. stream := SocketStream openConnectionToHostNamed: lastServer port: lastPort. stream timeout: timeout. "Perform ssl initialization if necessary" + scheme = 'https' ifTrue:[^self sslConnect]. - scheme = 'https' ifTrue:[self retryOnce: [^self sslConnect]]. ^nil! Item was removed: - ----- Method: WebClient>>retryOnce: (in category 'initialize') ----- - retryOnce: aTryBlock - " Retry the block once if it failes, - except for direct network errors. - This can help in cases like temporary failing - SqueakSSL primitives" - | again | - again := true. - [^ aTryBlock value. - ] on: Error do: [:e | - ((e isKindOf: NetworkError) or: [again not]) - ifTrue: [e pass] - ifFalse: [again := false. e retry]].! Item was changed: ----- Method: WebClient>>writeRequest:on: (in category 'sending') ----- writeRequest: request on: aStream "Write all the request headers on the given stream" + self writeRequestLine: request on: aStream. + self writeHeadersFor: request on: aStream. + self writeCookiesFor: request on: aStream. + aStream crlf. + aStream flush.! - self retryOnce: [ - self writeRequestLine: request on: aStream. - self writeHeadersFor: request on: aStream. - self writeCookiesFor: request on: aStream. - aStream crlf. - aStream flush].!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2017