Packages March 2019

packages@lists.squeakfoundation.org

1 participants
23 discussions

The Trunk: Tests-eem.408.mcz
by commits＠source.squeak.org 19 Mar '19

19 Mar '19

Eliot Miranda uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-eem.408.mcz ==================== Summary ==================== Name: Tests-eem.408 Author: eem Time: 19 March 2019, 9:29:58.589612 am UUID: 98f708d3-76ec-4f02-9db0-8472e0e09a25 Ancestors: Tests-pre.407 Fix a couple of failing Compiler tests. testPCPreviousTo must be made aware of extensions, for the SistaV1 bytecode set. testMaxLiteralsWithClassReferenceInClosure must adapt to the much greater number of literals available in the SistaV1 set. =============== Diff against Tests-pre.407 =============== Item was changed: ----- Method: BytecodeDecodingTests>>testPCPreviousTo (in category 'tests') ----- testPCPreviousTo "Check that the pcPreviousTo machinery answers the truth for all bytecodes." self systemNavigation allSelect: + [:m| | ec is prevPC prevBlockCreationPC exclude encoder extensionOffset | - [:m| | ec is prevPC prevBlockCreationPC exclude | m isQuick ifFalse: [ec := m encoderClass. is:= InstructionStream on: m. exclude := OrderedCollection new. m embeddedBlockClosures do: + [:ebc| | bm followingpc | + bm := ebc method. "Will differ for FullBlocks/SistaV1 regime" + followingpc := ebc endPC + (ec bytecodeSize: (bm at: ebc endPC)). + exclude addLast: ebc startpc; addLast: followingpc. - [:ebc| | followingpc | - followingpc := ebc endPC + (ec bytecodeSize: (m at: ebc endPC)). - exclude addLast: ebc startpc; addLast: followingpc.. self assert: nil + equals: (ec pcPreviousTo: ebc startpc in: bm for: nil). + bm isCompiledBlock ifFalse: + [self assert: (ec pcOfBlockCreationBytecodeForBlockStartingAt: ebc startpc in: m) + equals: (ec pcPreviousTo: followingpc in: bm for: nil)]]. + encoder := m encoderClass. + extensionOffset := 0. + is scanFor: - equals: (ec pcPreviousTo: ebc startpc in: m for: nil). - self assert: (ec pcOfBlockCreationBytecodeForBlockStartingAt: ebc startpc in: m) - equals: (ec pcPreviousTo: followingpc in: m for: nil)]. - is scanFor: [:b| (exclude includes: is pc) ifFalse: + [self assert: prevPC equals: (ec pcPreviousTo: is pc in: m for: nil)]. + prevPC := is pc - extensionOffset. + extensionOffset := (encoder isExtension: is nextByte) + ifTrue: [extensionOffset + 2] + ifFalse: [0]. - [self assert: prevPC - equals: (ec pcPreviousTo: is pc in: m for: nil)]. - prevPC := is pc. b = ec createClosureCode ifTrue: [prevBlockCreationPC := prevPC]. + false]]. - false].]. false]! Item was changed: ----- Method: CompilerTest>>testMaxLiteralsWithClassReferenceInClosure (in category 'limits') ----- testMaxLiteralsWithClassReferenceInClosure "Document the maximum number of literals in a compiled method. A class reference in a closure reduces the maximum literals." + | bytecodeSetEncoder maxLiterals stringThatCanBeCompiled stringWithOneTooManyLiterals | + bytecodeSetEncoder := CompiledMethod preferredBytecodeSetEncoderClass new. + maxLiterals := bytecodeSetEncoder maxNumLiterals + - 2 "for selector & methodClass" + - (bytecodeSetEncoder supportsFullBlocks ifTrue: [1] ifFalse: [0]) + - 4 "for the implicit stream processing into which the brace construct is compiled: (Array braceStream: size) braceArray". - | maxLiterals stringThatCanBeCompiled stringWithOneTooManyLiterals | - maxLiterals := 245. stringThatCanBeCompiled := '[ DateAndTime now. Date today. Time ]. { ', (String streamContents: [:strm | 1 to: maxLiterals do: [:e | strm nextPutAll: '''', e asString, '''', ' . ']]), '}'. stringWithOneTooManyLiterals := '[ DateAndTime now. Date today. Time ]. { ', (String streamContents: [:strm | 1 to: maxLiterals + 1 do: [:e | strm nextPutAll: '''', e asString, '''', ' . ']]), '}'. self assert: maxLiterals equals: (Compiler evaluate: stringThatCanBeCompiled) size. "If the following test fails, it means that the limit has been raised or eliminated, and this test should be updated to reflect the improvement." self should: [Compiler evaluate: stringWithOneTooManyLiterals] raise: Error. !

1 0

The Trunk: Compiler-eem.401.mcz
by commits＠source.squeak.org 19 Mar '19

19 Mar '19

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.401.mcz ==================== Summary ==================== Name: Compiler-eem.401 Author: eem Time: 19 March 2019, 9:28:16.827407 am UUID: 7920c007-0974-48a7-b1b3-b4de923b90d4 Ancestors: Compiler-eem.400 Fix a slip in EncoderForSistaV1 class>>isTempStoreAt:in:, and fix a couple of typos nearby. =============== Diff against Compiler-eem.400 =============== Item was changed: ----- Method: BytecodeEncoder class>>pcPreviousTo:in:for: (in category 'bytecode decoding') ----- pcPreviousTo: thePC in: method for: anInstructionStreamOrContext "Answer the pc of the bytecode before the bytecode at thePC. Unlike CompiledMethod>>pcPreviousTo:, this version answers nil for the first bytecode of an embedded block, and answers the pc of the block creation bytecode for a bytecode following an embedded block." | pc nextPc prevPc byte createClosureCode | thePC > method endPC ifTrue: [^method endPC]. pc := method initialPC. "We could save time by scanning from the block creation bytecode of an embedded block, using the following, but it saves less time than it loses in additional tests." "(anInstructionStreamOrContext isContext and: [anInstructionStreamOrContext isClosureContext and: [(nextPc := anInstructionStreamOrContext startpc) > pc]]) ifTrue: [pc := self pcOfBlockCreationBytecodeForBlockStartingAt: nextPc in: method]." createClosureCode := self createClosureCode. [pc < thePC] whileTrue: [byte := method at: (prevPc := pc). + [pc := createClosureCode = byte - [pc := createClosureCode == byte ifTrue: [nextPc := self pcFollowingBlockAt: pc in: method. nextPc = thePC ifTrue: "first bytecode following block" [^prevPc]. nextPc > thePC ifTrue: [pc + (self bytecodeSize: byte) = thePC ifTrue: "first bytecode of block" [^nil]. pc + (self bytecodeSize: byte)] ifFalse: [nextPc]] ifFalse: [pc + (self bytecodeSize: byte)]. self isExtension: byte] whileTrue: [byte := method at: pc]]. ^prevPc "Here's code to measure the effect of short-cutting scanning for blocks by starting at the startpc. + It measures how much time is used to scan for the pcs from the last block to the end of all methods containing blocks. Uncomment out the short-cut above to compare time with the optimization and time without. I see approximately 290ms for all such methods with the optimization and 292 ms without, so given that this slows down the substantial majority of methods without blocks, we KISS." - It measures how much time is used to scan for the pcs from the last block to the end of all mwetods containing blocks. Uncomment out the short-cut above to compare time with the optimization and time without. I see approximately 290ms for all such methods with the optimization and 292 ms without, so given that this slows down the substantial majority of methods without blocks, we KISS." "| candidates | candidates := Dictionary new. self systemNavigation allSelect: [:m| | ebc | (m isQuick or: [(ebc := m embeddedBlockClosures) isEmpty]) ifFalse: [candidates at: m put: { ebc last. Array streamContents: [:s| | is | (is:= InstructionStream on: m) pc: ebc last startpc; scanFor: [:b| s nextPut: is pc. false]] }]. false]. (1 to: 10) collect: [:ign| { [candidates keysAndValuesDo: [:m :tuple| [:ebc :pcs| | c | c := ebc outerContext. pcs do: [:pc| m encoderClass pcPreviousTo: pc in: m for: c]] valueWithArguments: tuple]] timeToRun. [candidates keysAndValuesDo: [:m :tuple| [:ebc :pcs| | c | c := ebc outerContext. pcs do: [:pc| m encoderClass pcPreviousTo: pc in: m for: nil]] valueWithArguments: tuple]] timeToRun. }]"! Item was changed: ----- Method: EncoderForSistaV1 class>>isTempStoreAt:in: (in category 'instruction stream support') ----- isTempStoreAt: pc in: method "Answer if the bytecode at pc is a store or store-pop into a temporary variable. 208-215 11010 iii Pop and Store Temporary Variable #iii 242 11110010 iiiiiiii Pop and Store Temporary Variable #iiiiiiii 245 11110110 iiiiiiii Store Temporary Variable #iiiiiiii" | byte | byte := method at: pc. ^byte >= 208 and: [byte <= 215 + or: [byte = 242 or: [byte = 245]]]! - or: [byte = 242 and: [byte = 245]]]!

1 0

The Trunk: Kernel-eem.1215.mcz
by commits＠source.squeak.org 16 Mar '19

16 Mar '19

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1215.mcz ==================== Summary ==================== Name: Kernel-eem.1215 Author: eem Time: 16 March 2019, 12:38:28.555296 pm UUID: 9fa7a504-70d6-45ae-9514-d905578da5af Ancestors: Kernel-eem.1214 Add CompiledMethod>>pragmasAt: for convenient access to multiple pragmas of the same pragma selector. =============== Diff against Kernel-eem.1214 =============== Item was added: + ----- Method: CompiledBlock>>pragmasAt: (in category 'accessing-pragmas & properties') ----- + pragmasAt: aSelector + "Answer all pragmas with selector aSelector." + ^self homeMethod pragmasAt: aSelector! Item was added: + ----- Method: CompiledMethod>>pragmasAt: (in category 'accessing-pragmas & properties') ----- + pragmasAt: aSelector + | selectorOrProperties | + ^(selectorOrProperties := self penultimateLiteral) isMethodProperties + ifTrue: [selectorOrProperties pragmas select: [:p| p keyword = aSelector]] + ifFalse: [#()]!

1 0

The Trunk: System-eem.1057.mcz
by commits＠source.squeak.org 16 Mar '19

16 Mar '19

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1057.mcz ==================== Summary ==================== Name: System-eem.1057 Author: eem Time: 16 March 2019, 12:25:59.281495 pm UUID: af55a994-27d7-4ebe-84b6-d3f923523fc3 Ancestors: System-eem.1056 Decompose browseMethodsWithString:matchCase: to provide allMethodsWithString:matchCase:. =============== Diff against System-eem.1056 =============== Item was added: + ----- Method: SystemNavigation>>allMethodsWithString:matchCase: (in category 'browse') ----- + allMethodsWithString: aString matchCase: caseSensitive + "Answer a set of MdethodReferences for all methods that contain string literals with aString as a substring. + Make the search case-sensitive or insensitive as dictated by the caseSensitive boolean parameter." + + ^self allMethodsSelect: + [ :method | | selector messages | + method hasLiteralSuchThat: + [ :literal | + literal isString + and: [ (literal includesSubstring: aString caseSensitive: caseSensitive) + and: [ literal isSymbol + ifFalse: [ true ] + ifTrue: + [((selector ifNil: [ selector := method selector ]) == literal + or: [ (messages ifNil: [ messages := method messages ]) includes: literal ]) not ] ] ] ] ]! Item was changed: ----- Method: SystemNavigation>>browseMethodsWithString:matchCase: (in category 'browse') ----- browseMethodsWithString: aString matchCase: caseSensitive "Launch a browser on all methods that contain string literals with aString as a substring. Make the search case-sensitive or insensitive as dictated by the caseSensitive boolean parameter" - | selector messages | self + browseMessageList: (self allMethodsWithString: aString matchCase: caseSensitive) - browseAllSelect: [ :method | - selector := messages := nil. - method hasLiteralSuchThat: [ :literal | - literal isString - and: [ (literal includesSubstring: aString caseSensitive: caseSensitive) - and: [ literal isSymbol - ifFalse: [ true ] - ifTrue: [ - ((selector ifNil: [ selector := method selector ]) == literal - or: [ (messages ifNil: [ messages := method messages ]) includes: literal ]) not ] ] ] ] ] name: 'Methods with string ', aString printString, (caseSensitive ifTrue: [' (case-sensitive)'] ifFalse: [' (case-insensitive)']) autoSelect: aString!

1 0

The Trunk: Tools-kks.845.mcz
by commits＠source.squeak.org 16 Mar '19

16 Mar '19

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-kks.845.mcz ==================== Summary ==================== Name: Tools-kks.845 Author: kks Time: 11 March 2019, 4:28:38.697611 pm UUID: f95a6695-03f2-4dfc-a80b-e8bc6df8b6ce Ancestors: Tools-pre.844 Simplify addItem in Model: to open a method browser directly on the specified class and method. This should make creating hotlinks for method references in workspaces and help text. =============== Diff against Tools-pre.844 =============== Item was changed: ----- Method: Model>>addItem: (in category '*Tools') ----- addItem: classAndMethod + "Open a browser directly on the given class and method - "Make a linked message list and put this method in it" + Model new addItem: 'Model addItem:' + Model new addItem: 'Model>>addItem:' + " + - self flag: #mref. "classAndMethod is a String" - MessageSet parse: classAndMethod + toClassAndSelector: [ :class :sel | - toClassAndSelector: [ :class :sel | | list | class ifNil: [^self]. + Browser newOnClass: class selector: sel - list := OrderedCollection with: ( - MethodReference new - setClass: class - methodSymbol: sel - stringVersion: classAndMethod - ). - ToolSet - browseMessageSet: list - name: 'Linked by HyperText' - autoSelect: nil ] !

1 0

The Trunk: HelpSystem-Core-kks.109.mcz
by commits＠source.squeak.org 16 Mar '19

16 Mar '19

Eliot Miranda uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-kks.109.mcz ==================== Summary ==================== Name: HelpSystem-Core-kks.109 Author: kks Time: 11 March 2019, 5:53:49.057526 pm UUID: 8af65911-c2ec-496a-ad84-87fdfb32339a Ancestors: HelpSystem-Core-pre.108 Method topics are now linked to their definitions on both Instance and Class side. When you notice methods without comments, adding them in just one click away. =============== Diff against HelpSystem-Core-pre.108 =============== Item was changed: ----- Method: ClassAPIHelpBuilder>>buildMethodTopicsOn:for: (in category 'private building') ----- buildMethodTopicsOn: topic for: aClass + topic contents: (MethodListHelpTopic forClass: aClass) contents! - topic contents: (String streamContents: [ :stream | - aClass selectors sort do: [ :selector | - stream - nextPutAll: aClass name; - nextPutAll: '>>'; - nextPutAll: selector asString; - cr; - nextPutAll: ( - (aClass commentsAt: selector) - at: 1 - ifAbsent: [ 'Method has no comment.' ]); - cr; cr ] ])! Item was changed: AbstractHelpTopic subclass: #MethodListHelpTopic instanceVariableNames: 'theClass' classVariableNames: '' poolDictionaries: '' category: 'HelpSystem-Core-Model'! + + !MethodListHelpTopic commentStamp: 'kks 3/11/2019 17:41' prior: 0! + I list all the methods along with their comments in a given class with the methods linked to their definitions.! Item was added: + ----- Method: MethodListHelpTopic class>>forClass: (in category 'instance creation') ----- + forClass: aClass + "Create a new method list for a given class or metaclass. + + (MethodListHelpTopic forClass: Behavior class) contents edit + " + + ^(self new) + theClass: aClass; + yourself! Item was changed: ----- Method: MethodListHelpTopic>>contents (in category 'accessing') ----- contents + ^Text new in: [ :sections | - - ^ (String streamContents: [ :stream | self theClass selectors sort do: [ :selector | + sections + append: (self headingFor: selector inClass: theClass); + append: Character cr; + append: ((self theClass commentsAt: selector) - stream - nextPutAll: self theClass name; - nextPutAll: '>>'; - nextPutAll: selector asString; - cr; - nextPutAll: ( - (self theClass commentsAt: selector) at: 1 ifAbsent: [ '-' ]); + append: Character cr; + append: Character cr ]. + sections]! - cr; cr ] ])! Item was added: + ----- Method: MethodListHelpTopic>>headingFor:inClass: (in category 'private') ----- + headingFor: aSelector inClass: aClass + | att | + att := TextLink new classAndMethod: aClass name, '>>', aSelector. + ^(Text fromString: att info) addAttribute: att.!

1 0

The Trunk: KernelTests-fn.356.mcz
by commits＠source.squeak.org 13 Mar '19

13 Mar '19

Fabio Niephaus uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-fn.356.mcz ==================== Summary ==================== Name: KernelTests-fn.356 Author: fn Time: 13 March 2019, 11:01:08.662302 am UUID: 2a86580c-d4e1-4478-b564-5d2a2c3679bd Ancestors: KernelTests-eem.355 Add a test for https://github.com/OpenSmalltalk/opensmalltalk-vm/issues/376. =============== Diff against KernelTests-eem.355 =============== Item was changed: ----- Method: FloatTest>>testFloatTruncated (in category 'testing - conversion') ----- testFloatTruncated "(10 raisedTo: 16) asFloat has an exact representation (no round off error). It should convert back to integer without loosing bits. This is a no regression test on http://bugs.impara.de/view.php?id=3504" | x y int r | int := 10 raisedTo: 16. x := int asFloat. y := (5 raisedTo: 16) asFloat timesTwoPower: 16. self assert: x = y. self assert: x asInteger = int. "this one should be true for any float" self assert: x asInteger = x asTrueFraction asInteger. "a random test" r := Random new. 10000 timesRepeat: [ x := r next * 1.9999e16 + 1.0e12 . + self assert: x truncated = x asTrueFraction truncated]. + + "test an edge case (see https://github.com/OpenSmalltalk/opensmalltalk-vm/issues/376)" + self assert: SmallInteger maxVal + 1 equals: (SmallInteger maxVal + 1) asFloat asInteger! - self assert: x truncated = x asTrueFraction truncated]!

1 0

The Trunk: System-eem.1056.mcz
by commits＠source.squeak.org 13 Mar '19

13 Mar '19

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1056.mcz ==================== Summary ==================== Name: System-eem.1056 Author: eem Time: 12 March 2019, 4:26:37.641499 pm UUID: 5c24744b-c81e-460a-aca1-ce0099b23831 Ancestors: System-tpr.1055 Fix SystemNavigation>>allMethodsInCategory: =============== Diff against System-tpr.1055 =============== Item was changed: ----- Method: SystemNavigation>>allMethodsInCategory: (in category 'browse') ----- allMethodsInCategory: category | aCollection | aCollection := OrderedCollection new. Cursor wait showWhile: [self allBehaviorsDo: + [:x | (x methodsInCategory: category) do: - [:x | (x allMethodsInCategory: category) do: [:sel | aCollection add: x name , ' ' , sel]]]. + ^aCollection sort! - ^aCollection sort. - !

1 0

The Trunk: KernelTests-eem.355.mcz
by commits＠source.squeak.org 07 Mar '19

07 Mar '19

Eliot Miranda uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-eem.355.mcz ==================== Summary ==================== Name: KernelTests-eem.355 Author: eem Time: 6 March 2019, 3:16:05.445238 pm UUID: 6dcbdd43-dbe7-4ddf-8142-ec9c7fb4296c Ancestors: KernelTests-tonyg.354 Avoid using a deprecated message (includesSubString:) in a test. =============== Diff against KernelTests-tonyg.354 =============== Item was changed: ----- Method: AllocationTest>>testOutOfMemorySignal (in category 'tests') ----- testOutOfMemorySignal "Ensure that OutOfMemory is signaled eventually" | sz | self setFreeSpaceLimitOf: 1024 * 1024 * 1024 * (Smalltalk wordSize = 8 ifTrue: [4] ifFalse: [1.5]) around: [sz := 512*1024*1024. "work around the 1GB alloc bug" self should: [(1 to: 2000) collect: [:i| Array new: sz]] raise: OutOfMemory]. "Call me when this test fails, I want your machine." "Current (2017) Spur VMs fail new: & basicNew: with #'bad argument' if given other than a non-negative SmallInteger." sz := 1024*1024*1024*1024. self should: [Array new: sz] raise: OutOfMemory, Error withExceptionDo: [:ex| ex class == Error ifTrue: + [self assert: [ex messageText includesSubstring: 'basicNew: with invalid argument']]]! - [self assert: [ex messageText includesSubString: 'basicNew: with invalid argument']]]!

1 0

The Trunk: FFI-Win32-cbc.13.mcz
by commits＠source.squeak.org 05 Mar '19

05 Mar '19

Chris Cunningham uploaded a new version of FFI-Win32 to project The Trunk: http://source.squeak.org/trunk/FFI-Win32-cbc.13.mcz ==================== Summary ==================== Name: FFI-Win32-cbc.13 Author: cbc Time: 25 October 2017, 8:25:54.022628 am UUID: 66fa70bb-22f1-5748-b805-2a201a834489 Ancestors: FFI-Win32-cbc.12 Add descriptive errors for return codes from Wind32Shell. =============== Diff against FFI-Win32-cbc.12 =============== Item was added: + ----- Method: Win32Shell>>error: (in category 'operations') ----- + error: code + Win32ShellErrors signal: code! Item was changed: ----- Method: Win32Shell>>shellExecute: (in category 'operations') ----- shellExecute: aFileString "Opens (without opening a window) the file specified by aFileString. The file can be an executable file, a document file, or a folder." | result fileUrlString | "@@@@ CHECKME - jrd - Hackity, hack, hack, hack. Apparently the Win32 url parser doesn't handle %-encoded colons in file paths properly. So we do the conversion ourselves. I'm not sure if the real problem is that we shouldnt be encoding the colons in the first place." fileUrlString := (aFileString asLowercase beginsWith: 'file:') ifTrue: [(aFileString copyReplaceAll: '%3A' with: ':') copyReplaceAll: '%3a' with: ':' ] ifFalse: [aFileString]. result := self shellExecute: nil lpOperation: 'open' lpFile: fileUrlString lpParameters: nil lpDirectory: nil nShowCmd: 0. + (result <= 32 and: [result >= 0]) ifTrue: [self error: result]! - result <= 32 ifTrue: [self error: 'system error, code:', result printString]! Item was changed: ----- Method: Win32Shell>>shellExplore: (in category 'operations') ----- shellExplore: aPathString "Explores the folder specified by aPathString" | result | result := self shellExecute: nil lpOperation: 'explore' lpFile: aPathString lpParameters: nil lpDirectory: nil nShowCmd: 1. + (result <= 32 and: [result >= 0]) ifTrue: [self error: result]! - result <= 32 ifTrue: [self error: 'system error, code:', result printString]! Item was changed: ----- Method: Win32Shell>>shellFind: (in category 'operations') ----- shellFind: aPathString "Initiates a search starting from the specified directory." | result | result := self shellExecute: nil lpOperation: 'find' lpFile: nil lpParameters: nil lpDirectory: aPathString nShowCmd: 1. + (result <= 32 and: [result >= 0]) ifTrue: [self error: result]! - result <= 32 ifTrue: [self error: 'system error, code:', result printString]! Item was changed: ----- Method: Win32Shell>>shellOpen: (in category 'operations') ----- shellOpen: aFileString "Opens the file specified by aFileString. The file can be an executable file, a document file, or a folder." | result fileUrlString | "@@@@ CHECKME - jrd - Hackity, hack, hack, hack. Apparently the Win32 url parser doesn't handle %-encoded colons in file paths properly. So we do the conversion ourselves. I'm not sure if the real problem is that we shouldnt be encoding the colons in the first place." fileUrlString := (aFileString asLowercase beginsWith: 'file:') ifTrue: [(aFileString copyReplaceAll: '%3A' with: ':') copyReplaceAll: '%3a' with: ':' ] ifFalse: [aFileString]. result := self shellExecute: nil lpOperation: 'open' lpFile: fileUrlString lpParameters: nil lpDirectory: nil nShowCmd: 1. + (result <= 32 and: [result >= 0]) ifTrue: [self error: result]! - result <= 32 ifTrue: [self error: 'system error, code:', result printString]! Item was added: + SharedPool subclass: #Win32ShellErrors + instanceVariableNames: 'errorNumber description' + classVariableNames: 'ERROR_BAD_FORMAT ERROR_FILE_NOT_FOUND ERROR_PATH_NOT_FOUND OUT_OF_MEMORY_OR_RESOURCES SE_ERR_ACCESSDENIED SE_ERR_ACCOSINCOMPLETE SE_ERR_DDEBUSY SE_ERR_DDEFAIL SE_ERR_DDETIMEOUT SE_ERR_DDLNOTFOUND SE_ERR_FNF SE_ERR_NOASSOC SE_ERR_OOM SE_ERR_PNF SE_ERR_SHARE' + poolDictionaries: '' + category: 'FFI-Win32-Examples'! + Win32ShellErrors class + instanceVariableNames: 'errors'! + Win32ShellErrors class + instanceVariableNames: 'errors'! Item was added: + ----- Method: Win32ShellErrors class>>initialize (in category 'as yet unclassified') ----- + initialize + self initializeWindowConstants! Item was added: + ----- Method: Win32ShellErrors class>>initializeWindowConstants (in category 'as yet unclassified') ----- + initializeWindowConstants + OUT_OF_MEMORY_OR_RESOURCES := self new errorNumber: 0; description: 'The operating system is out of memory or resources'. + SE_ERR_FNF := self new errorNumber: 2; description: 'The specified file was not found'. + SE_ERR_PNF := self new errorNumber: 3; description: 'The specified path was not found'. + SE_ERR_ACCESSDENIED := self new errorNumber: 5; description: 'The operating system denied access to the specified file'. + SE_ERR_OOM := self new errorNumber: 8; description: 'There was not enough memory to complete the operation'. + ERROR_BAD_FORMAT := self new errorNumber: 11; description: 'The .EXE file is invalid (non-Win32 .EXE or error in .EXE image)'. + SE_ERR_SHARE := self new errorNumber: 26; description: 'A sharing violation occurred'. + SE_ERR_ACCOSINCOMPLETE := self new errorNumber: 27; description: 'The filename association is incomplete or invalid'. + SE_ERR_DDETIMEOUT := self new errorNumber: 28; description: 'The DDE transaction could not be completed because the request timed out'. + SE_ERR_DDEFAIL := self new errorNumber: 29; description: 'The DDE transaction failed'. + SE_ERR_DDEBUSY := self new errorNumber: 30; description: 'The DDE transaction could not be completed because other DDE transactions were being processed'. + SE_ERR_NOASSOC := self new errorNumber: 31; description: 'There is no application associated with the given filename extension'. + SE_ERR_DDLNOTFOUND := self new errorNumber: 32; description: 'The specified dynamic-link library was not found'. + errors := Dictionary new: (self allInstances size). + self allInstances do: [:err| + errors at: err errorNumber put: err + ].! Item was added: + ----- Method: Win32ShellErrors class>>signal: (in category 'as yet unclassified') ----- + signal: code + | err | + err := errors at: code ifAbsent: [Error signal: 'system error, code:', code]. + Error signal: err errorString! Item was added: + ----- Method: Win32ShellErrors>>description (in category 'accessing') ----- + description + + ^ description + ! Item was added: + ----- Method: Win32ShellErrors>>description: (in category 'accessing') ----- + description: anObject + + description := anObject. + ! Item was added: + ----- Method: Win32ShellErrors>>errorNumber (in category 'accessing') ----- + errorNumber + + ^ errorNumber + ! Item was added: + ----- Method: Win32ShellErrors>>errorNumber: (in category 'accessing') ----- + errorNumber: anObject + + errorNumber := anObject. + ! Item was added: + ----- Method: Win32ShellErrors>>errorString (in category 'accessing') ----- + errorString + ^'system error, code: ', errorNumber, ' "', description, '"'!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2019