Squeak-dev January 2011

squeak-dev@lists.squeakfoundation.org

94 participants
379 discussions

Daily Commit Log
by commits＠source.squeak.org 05 Jan '11

05 Jan '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-January/004092.ht… Name: Kernel-ul.530 Ancestors: Kernel-ar.529 - fix: reverted Float >> #arcTan: and added the primitive to that version, because it contained a bugfix. See FloatTest >> #testArcTan. - use #isInfinite for infinity checking in Float >> #sin and Float >> #cos ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-January/004093.ht… Name: Tests-cmm.106 Ancestors: Tests-cmm.105, Tests-bp.99 Merged Tests-bp.99. =============================================

1 0

The Inbox: Morphic-spd.507.mcz
by commits＠source.squeak.org 04 Jan '11

04 Jan '11

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-spd.507.mcz ==================== Summary ==================== Name: Morphic-spd.507 Author: spd Time: 4 January 2011, 5:54:07.209 pm UUID: c5d862d6-b70d-4ef2-b9e5-8018b9949701 Ancestors: Morphic-cmm.506 Added comments for TextMorph's #autoFit: and #wrapFlag:, which I find horrendously confusing. They are probably badly named, but at minimum deserve better comments. =============== Diff against Morphic-cmm.506 =============== Item was changed: ----- Method: TextMorph>>autoFit: (in category 'accessing') ----- autoFit: trueOrFalse + "Whether I automatically adjust my size to fit text as it changes" + self isAutoFit = trueOrFalse ifTrue: [^ self]. + self autoFitOnOff.! - self autoFitOnOff! Item was changed: ----- Method: TextMorph>>wrapFlag: (in category 'accessing') ----- wrapFlag: aBoolean + "Whether contained text will adjust its bounds as I change shape: + | wrapFlag | TextMorph grows | TextMorph shrinks | + | true | wrapped lines fill new space | long lines wrap to fit | + | false | wrapped lines stay same | long lines are cut off |" - "Change whether contents are wrapped to the container." aBoolean == wrapFlag ifTrue: [^ self]. wrapFlag := aBoolean. self composeToBounds!

1 0

VM Benchmarks (Was: Re: [squeak-dev] [4.2] - VM <-> image release coordination)
by Igor Stasenko 04 Jan '11

04 Jan '11

Hi, i proposing to collect and put existing benchmarks into VMMaker repository. The idea is simple: when we will have an automated build server, then we could run benchmarks on a successful build and log the numbers to a file(s), so we could compare them between different builds or different VMs, and keep track of history, like many other projects do. -- Best regards, Igor Stasenko AKA sig.

4 6

The Trunk: Tests-cmm.106.mcz
by commits＠source.squeak.org 04 Jan '11

04 Jan '11

Chris Muller uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cmm.106.mcz ==================== Summary ==================== Name: Tests-cmm.106 Author: cmm Time: 4 January 2011, 3:37:28.658 pm UUID: efe56bcb-0939-4f58-b8ee-73d6a99dbe2a Ancestors: Tests-cmm.105, Tests-bp.99 Merged Tests-bp.99. =============== Diff against Tests-cmm.105 =============== Item was added: + ----- Method: ArrayLiteralTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testReservedIdentifiers; add: #testSymbols; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: BecomeTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testBecomeForwardDontCopyIdentityHash; add: #testBecome; add: #testBecomeIdentityHash; add: #testBecomeForward; add: #testBecomeForwardIdentityHash; add: #testBecomeForwardHash; add: #testBecomeHash; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: BitBltClipBugs classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testDrawingWayOutside4; add: #testFillingWayOutside3; add: #testDrawingWayOutside5; add: #testDrawingWayOutside; add: #testDrawingWayOutside6; add: #testDrawingWayOutside2; add: #testDrawingWayOutside3; add: #testFillingWayOutside; add: #testFillingWayOutside2; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: BitmapBugz classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testBitmapByteAt; add: #testWriteOn; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: BitmapStreamTests classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testOtherClasses; add: #testMatrixTransform2x3WithSmartRefStreamOnDisk; add: #testWordArrayWithRefStream; add: #testShortPointArrayWithRefStream2; add: #testWordArrayWithSmartRefStreamOnDisk; add: #testShortPointArrayWithImageSegment; add: #testShortPointArrayWithRefStream; add: #testShortIntegerArrayReadRefStream2; add: #testShortPointArrayWithSmartRefStream; add: #testShortRunArrayWithSmartRefStream2; add: #testShortRunArrayWithSmartRefStreamOnDisk; add: #testMatrixTransform2x3WithRefStream; add: #testMatrixTransform2x3WithSmartRefStream; add: #testShortIntegerArrayWithRefStream; add: #testShortIntegerArrayWithSmartRefStream2; add: #testShortIntegerArrayWithRefStream2; add: #testShortIntegerArrayWithSmartRefStream; add: #testShortPointArrayWithSmartRefStreamOnDisk; add: #testShortRunArrayWithImageSegment; add: #testShortRunArrayWithRefStream; add: #testShortIntegerArrayWithImageSegment; add: #testShortIntegerArrayWithRefStreamOnDisk; add: #testShortPointArrayWithRefStreamOnDisk; add: #testWordArrayWithRefStreamOnDisk; add: #testMatrixTransform2x3WithRefStreamOnDisk; add: #testWordArrayWithImageSegment; add: #testShortIntegerArrayWithSmartRefStreamOnDisk; add: #testShortRunArrayWithSmartRefStream; add: #testMatrixTransform2x3WithImageSegment; add: #testShortPointArrayWithSmartRefStream2; add: #testShortRunArrayWithRefStreamOnDisk; add: #testWordArrayWithSmartRefStream; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: ByteArrayBugz classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testByteArrayLongAt; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: ChangeSetClassChangesTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testChangeClassCategory; add: #testChangeClassCategoryAddsNewChangeRecord; add: #testInitialChangeSet; add: #testAddInstanceVariable; add: #testAddInstanceVariableAddsNewChangeRecord; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: CircleMorphBugs classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testCircleInstance; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: ClassRenameFixTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testRenameClassUsingClass; yourself)); add: (#timeStamp->'4 January 2011 3:14:07 pm' asTimeStamp); yourself)! Item was added: + ----- Method: ClosureCompilerTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testDecompiledDoitMethodTempNames; add: #testSourceRangeAccessForBlueBookInjectInto; add: #testInlineBlockCollectionLR3; add: #testInlineBlockCollectionSD1; add: #testTempNameAccessForInjectInto; add: #testSourceRangeAccessForClosureBytecodeInjectInto; add: #testInjectIntoDecompilations; add: #testInlineBlockCollectionLR1; add: #testInjectIntoDecompiledDebugs; add: #testBlockDoitDecompilation; add: #testBlockNumbering; add: #testSourceRangeAccessForClosureLongFormBytecodeInjectInto; add: #testSourceRangeAccessForInjectInto; add: #testBlockNumberingForInjectInto; add: #testDebuggerTempAccess; add: #testOptimizedBlockLocalNilling1; add: #testInlineBlockCollectionEM1; add: #testInlineBlockCollectionLR2; add: #testSourceRangeAccessForBlueBookLongFormInjectInto; add: #testMethodAndNodeTempNames; add: #testOptimizedBlockLocalNilling2; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: ClosureTests classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMethodArgument; add: #testWhileModificationAfter; add: #testWhileWithTempIsNil; add: #testBlockTemp; add: #testWhileWithTemp; add: #testWhileModificationAfterNotInlined; add: #testToDoOutsideTemp; add: #testWhileModificationBeforeNotInlined; add: #testToDoOutsideTempNotInlined; add: #testMethodTemp; add: #testToDoArgumentNotInlined; add: #testToDoInsideTemp; add: #testToDoInsideTempNotInlined; add: #testWhileWithTempNotInlined; add: #testToDoArgument; add: #testWhileModificationBefore; add: #testCopyNonLocalReturn; add: #testBlockArgument; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: CompilerExceptionsTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testUndefinedVariable; add: #testUnusedVariable; add: #testUndeclaredVariable; add: #testUnknownSelector; yourself)); add: (#timeStamp->'4 January 2011 3:14:07 pm' asTimeStamp); yourself)! Item was added: + ----- Method: CompilerTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testToDoModifiesTheLimit; add: #testNegativeNumbers; add: #testScaledDecimalLiterals; add: #testBinarySelectorWithMinus; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: ContextCompilationTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testVariablesAndOffsetsDo; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: DecompilerTests classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new) add: #testDecompileLoopWithMovingLimit; add: #testDecompilerInClassesSNtoSZ; add: #testDecompilerInClassesMAtoMM; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testDecompilerInClassesXAtoXM; add: #testDecompilerInClassesONtoOZ; add: #testDecompilerInClassesUAtoUM; add: #testDecompilerInClassesLNtoLZ; add: #testDecompilerInClassesRAtoRM; add: #testDecompilerInClassesINtoIZ; add: #testDecompilerInClassesEAtoEM; add: #testDecompilerInClassesBAtoBM; add: #testDecompilerInClassesYNtoYZ; add: #testDecompilerInClassesVNtoVZ; add: #testDecompilerInClassesYAtoYM; add: #testDecompilerInClassesPNtoPZ; add: #testDecompilerInClassesOAtoOM; add: #testDecompilerInClassesFNtoFZ; add: #testDecompilerInClassesLAtoLM; add: #testDecompilerInClassesCNtoCZ; add: #testDecompilerInClassesIAtoIM; add: #testDecompilerInClassesFAtoFM; add: #testDecompilerInClassesCAtoCM; add: #testDecompilerInClassesZNtoZZ; add: #testDecompilerInClassesWNtoWZ; add: #testDecompilerInClassesVAtoVM; add: #testDecompilerInClassesMNtoMZ; add: #testDecompilerInClassesSAtoSM; add: #testDecompilerInClassesJNtoJZ; add: #testDecompilerInClassesPAtoPM; add: #testDecompilerInClassesGNtoGZ; add: #testDecompilerInClassesDNtoDZ; add: #testDecompilerInClassesTNtoTZ; add: #testDecompilerInClassesZAtoZM; add: #testDecompilerInClassesQNtoQZ; add: #testDecompilerInClassesWAtoWM; add: #testDecompilerInClassesNNtoNZ; add: #testDecompilerInClassesTAtoTM; add: #testDecompilerInClassesKNtoKZ; add: #testDecompilerInClassesJAtoJM; add: #testDecompilerInClassesANtoAZ; add: #testDecompilerInClassesGAtoGM; add: #testRemoteTemp; add: #testDecompilerInClassesDAtoDM; add: #testDecompilerInClassesAAtoAM; add: #testDecompilerInClassesXNtoXZ; add: #testDecompilerInClassesUNtoUZ; add: #testDecompilerInClassesQAtoQM; add: #testDecompilerInClassesHNtoHZ; add: #testDecompilerInClassesNAtoNM; add: #testDecompilerInClassesENtoEZ; add: #testDecompilerInClassesKAtoKM; add: #testDecompilerInClassesBNtoBZ; add: #testDecompilerInClassesHAtoHM; add: #testDecompilerInClassesRNtoRZ; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: DictionaryIntegrityTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testDictionaries; add: #testMethodDictionaries; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: DosFileDirectoryTests classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testFileDirectoryContainingDirectory; add: #testFileDirectoryContainingDirectoryExistence; add: #testFileDirectoryExists; add: #testFileDirectoryEntryFor; add: #testFileDirectoryRootExistence; add: #testIsDriveForDrive; add: #testFileDirectoryNamed; add: #testFileDirectoryNonExistence; add: #testFullNameFor; add: #testIsDriveForShare; add: #testFileDirectoryDirectoryEntry; add: #testFileDirectoryLocalName; add: #testFileDirectoryContainingEntry; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: EventManagerTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testNoValueSupplierHasArguments; add: #testBlockReceiverTwoArgs; add: #testNoArgumentEvent; add: #testBlockReceiverOneArg; add: #testRemoveActionsWithReceiver; add: #testTwoArgumentEvent; add: #testNoArgumentEventDependentSuppliedArguments; add: #testClassComment; add: #testMultipleValueSuppliersEventHasArguments; add: #testOneArgumentEvent; add: #testUnCategorizedMethods; add: #testBlockReceiverNoArgs; add: #testNoArgumentEventDependentSuppliedArgument; add: #testReturnValueWithManyListeners; add: #testReturnValueWithNoListeners; add: #testCopy; add: #testNoValueSupplier; add: #testRemoveActionsForEvent; add: #testRemoveActionsTwiceForEvent; add: #testCoverage; add: #testNew; add: #testMultipleValueSuppliers; add: #testReturnValueWithOneListener; add: #testSingleValueSupplier; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: ExceptionTests classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testSimpleRetry; add: #testSimpleOuter; add: #testResumableFallOffTheEndHandler; add: #testHandlerReentrancy; add: #testSimplePass; add: #testTimeoutWithZeroDuration; add: #testSimpleResignalAs; add: #testNoTimeout; add: #testNonResumableOuter; add: #testSimpleIsNested; add: #testNonResumablePass; add: #testDoubleResume; add: #testResumablePass; add: #testNonResumableFallOffTheEndHandler; add: #testDoubleOuterPass; add: #testSimpleEnsure; add: #testSignalFromHandlerActionTest; add: #testSimpleEnsureTestWithUparrow; add: #testSimpleRetryUsing; add: #testResumableOuter; add: #testDoublePassOuter; add: #testSimpleReturn; add: #testSimpleEnsureTestWithError; add: #testSimpleResume; add: #testSimpleEnsureTestWithNotification; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: ExpandedSourceFileArrayTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testAddressRange; add: #testFileIndexFromSourcePointer; add: #testSourcePointerFromFileIndexAndPosition; add: #testCompatibilityWithStandardSourceFileArray; add: #testChangesFileAddressRange; add: #testSourcesFileAddressRange; add: #testFilePositionFromSourcePointer; yourself)); add: (#timeStamp->'4 January 2011 3:14:07 pm' asTimeStamp); yourself)! Item was added: + ----- Method: FileDirectoryTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testOldFileOrNoneNamed; add: #testEquality; add: #testNonExistentDirectory; add: #testDeleteDirectory; add: #testDirectoryNamed; add: #testExists; add: #testNew; add: #testDirectoryExists; add: #testUnCategorizedMethods; add: #testClassComment; add: #testAttemptExistenceCheckWhenFile; add: #testCoverage; add: #testDirectoryExistsWhenLikeNamedFileExists; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: FileStreamTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testNextLine; add: #testNew; add: #testCoverage; add: #testReadIntoStartingAtCount; add: #testClassComment; add: #testNextChunkOutOfBounds; add: #testPositionPastEndIsAtEnd; add: #testCachingNextChunkPut; add: #testUnCategorizedMethods; add: #testFileTruncation; add: #testDetectFileDo; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: FlapTabTests classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testFlapTabRecusion; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: HandBugs classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testTargetPoint; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: HashAndEqualsTestCase classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testHash; add: #testEquality; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: HashTesterTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testBasicBehaviour; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: HashedCollectionIntegrityTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testCapacity; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: HexTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testStringAsHex; add: #testIntegerHex; add: #testCharacterHex; add: #testColorPrintHtmlString; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: IslandVMTweaksTestCase classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testEmptyReplace; add: #testFlagInCompiledMethod; add: #testForgivingPrims; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: LangEnvBugs classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testIsFontAvailable; yourself)); add: (#timeStamp->'4 January 2011 3:14:07 pm' asTimeStamp); yourself)! Item was added: + ----- Method: LocaleTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testIsFontAvailable; add: #testEncodingName; add: #testLocaleChanged; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCAncestryTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testPathToMissingAncestor; add: #testLinearPath; add: #testDescendants; add: #testCommonAncestors; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCChangeNotificationTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new) add: #testCoreMethodModified; yourself)); add: (#errors->((Set new) add: #testExtMethodModified; yourself)); add: (#passed->((Set new) add: #testForeignMethodModified; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCClassDefinitionTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testDefinitionString; add: #testEquals; add: #testCannotLoad; add: #testEqualsSensitivity; add: #testKindOfSubclass; add: #testComparison; add: #testLoadAndUnload; add: #testCreation; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCDependencySorterTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testSimpleOrdering; add: #testUnusedAlternateProvider; add: #testCycle; add: #testSimpleUnresolved; add: #testCascadingUnresolved; add: #testExtraProvisions; add: #testMultiRequirementOrdering; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCDictionaryRepositoryTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testCreationMethods; add: #testStoreAndLoad; add: #testAddAndLoad; add: #testIncludesName; add: #testLoadMissingNode; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCDirectoryRepositoryTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testCreationMethods; add: #testStoreAndLoad; add: #testAddAndLoad; add: #testIncludesName; add: #testLoadMissingNode; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCFileInTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new) add: #testStWriter; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new))); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCInitializationTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testWorkingCopy; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCMczInstallerTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testInstallFromFile; add: #testInstallFromStream; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCMergingTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testLocalRemoveRemoteModify; add: #testMultiPackageMerge; add: #testMultiPackageMerge2; add: #testMultipleConflicts; add: #testSubtractiveConflictlessMerge; add: #testMultiPackageMerge3; add: #testSimultaneousRemove; add: #testSimultaneousModification; add: #testComplexConflictlessMerge; add: #testLocalModifyRemoteRemove; add: #testAdditiveConflictlessMerge; add: #testIdenticalModification; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCMethodDefinitionTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testRevertOverrideMethod; add: #testCannotLoad; add: #testLoadAndUnload; add: #testComparison; add: #testRevertOldMethod; add: #testPartiallyRevertOverrideMethod; yourself)); add: (#timeStamp->'4 January 2011 3:14:07 pm' asTimeStamp); yourself)! Item was changed: ----- Method: MCMethodDefinitionTest>>override (in category 'mocks') ----- override ^ 1! Item was changed: ----- Method: MCMockClassA>>a (in category 'numeric') ----- a + ^ 'a1'! - ^ 'a2'! Item was changed: ----- Method: MCMockClassA>>b (in category 'numeric') ----- b + ^ 'b'! - ^ 'b1'! Item was changed: + ----- Method: MCMockClassA>>d (in category 'numeric') ----- - ----- Method: MCMockClassA>>d (in category 'as yet classified') ----- d + ^ 'd1'! - ^ 'd'! Item was changed: ----- Method: MCMockClassA>>one (in category 'numeric') ----- one + ^ 2! - ^ 1! Item was changed: + ----- Method: MCMockClassA>>truth (in category 'numeric') ----- - ----- Method: MCMockClassA>>truth (in category 'boolean') ----- truth + ^ false! - ^ true! Item was changed: ----- Method: MCMockClassA>>two (in category 'numeric') ----- two + ^ 3! - ^ 2! Item was added: + ----- Method: MCOrganizationTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testReordering; add: #testReorderingWithRemovals; add: #testReorderingWithNoCategoriesInVersion; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCPackageTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new) add: #testUnload; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new))); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCPatchTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new) add: #testPatchContents; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new))); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCScannerTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #test6; add: #test4; add: #test2; add: #test5; add: #test3; add: #test1; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCSerializationTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMcdSerialization; add: #testStSerialization; add: #testMczSerialization; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCSnapshotBrowserTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new) add: #testNoSelection; yourself)); add: (#errors->((Set new) add: #testMethodSelected; add: #testProtocolSelected; add: #testCategorySelected; add: #testClassSideClassSelected; add: #testClassSelected; add: #testComment; add: #testProtocolIsCleared; add: #testMethodIsCleared; yourself)); add: (#passed->((Set new) add: #testFourColumns; add: #testThreeButtons; add: #testTextPane; add: #testAnnotationPane; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCSnapshotTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new) add: #testCreation; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testInstanceReuse; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCSortingTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testConsistentSorting; add: #testSortOrder; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCStReaderTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMethodWithStyle; add: #testCommentWithoutStyle; add: #testCommentWithStyle; yourself)); add: (#timeStamp->'4 January 2011 3:14:07 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCStWriterTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new) add: #testOrganizationDefinition; yourself)); add: (#errors->((Set new) add: #testInitializerDefinition; yourself)); add: (#passed->((Set new) add: #testClassDefinitionA; add: #testMethodDefinition; add: #testClassMethodDefinition; add: #testMethodDefinitionWithBangs; add: #testClassDefinitionB; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCVersionTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testWithAllUnresolved; add: #testWithAllMissing; add: #testPostOrder; add: #testAllAvailablePostOrder; add: #testAllUnresolved; add: #testAllMissing; add: #testDependencyOrder; add: #testWithAll; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MCWorkingCopyTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new) add: #testSimpleMerge; add: #testBackport; add: #testSelectiveBackport; add: #testOptimizedLoad; add: #testSnapshotAndLoad; add: #testRepeatedMerge; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testAncestorMerge; add: #testMergeIntoImageWithNoChanges; add: #testMergeIntoUnmodifiedImage; add: #testDoubleRepeatedMerge; add: #testRedundantMerge; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MacFileDirectoryTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMakeAbsolute; add: #testMacFileDirectory; add: #testMacIsAbsolute; yourself)); add: (#timeStamp->'4 January 2011 3:14:07 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MethodHighlightingTests classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMethodHighlighting; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MirrorPrimitiveTests classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new) add: #testMirrorInstVarAt; add: #testMirrorAt; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMirrorClass; add: #testMirrorEqEq; add: #testMirrorSize; add: #testMirrorPerform; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: MorphicUIBugTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new) add: #testShowAllBinParts; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testUIManagerNoAcceptInitially; add: #testOpenWorkspace; add: #testOpenWorkspaceAns; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: ObjectFinalizerTests classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testFinalization; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: PCCByCompilationTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMethodsWithEnabledCall; add: #testDisableCallsIntoModuleForClasses; add: #testChangeFailedCallFailing; add: #testExistsEnabledCallIn; add: #testCoverage; add: #testExistsFailedCallIn; add: #testMethodsWithCallIntoModule; add: #testMethodsWithCallXIntoModule; add: #testEnableDisableCallInCompiledMethod; add: #testSwitchStored; add: #testMethodsWithDisabledCallX; add: #testDisableCallsIntoModule; add: #testExistsDisabledCallIn; add: #testMethodsWithCallX; add: #testMethodsWithCallIntoModuleForClass; add: #testClassComment; add: #testMethodsWithEnabledCallIntoModuleForClass; add: #testMethodsWithEnabledCallIntoModuleForClasses; add: #testSwitchPrimCallOffOn; add: #testUnCategorizedMethods; add: #testTryCaches; add: #testMethodsWithCallAndMethodsWithDisabledCall; add: #testMethodsWithDisabledCallIntoModuleForClass; add: #testChangeFailedCallSucceedingEnable; add: #testMethodsWithEnabledCallX; add: #testMethodsWithFailedCall; add: #testMethodsWithEnabledCallXIntoModule; add: #testEnableDisableCallIn; add: #testChangeFailedCallSucceedingDisable; add: #testMethodsWithDisabledCallIntoModule; add: #testExistsCallIn; add: #testMethodsWithDisabledCallIntoModuleForClasses; add: #testMethodsWithCallIntoModuleForClasses; add: #testMethodsWithEnabledCallIntoModule; add: #testNew; add: #testEnableDisableCallInMethodClass; add: #testMethodsWithFailedCallIntoModuleForClass; add: #testMethodsWithDisabledCallXIntoModule; add: #testMethodsWithFailedCallForClass; add: #testMethodsWithFailedCallIntoModule; add: #testEnableCallsIntoModuleForClasses; add: #testEnableCallsIntoModule; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was changed: ----- Method: PCCByCompilationTest>>cExternalCall1 (in category 'example module') ----- cExternalCall1 <primitive: 'prim1' module: 'CPCCT'> ! Item was changed: ----- Method: PCCByCompilationTest>>cExternalCall2 (in category 'example module') ----- cExternalCall2 <primitive:'prim2'module:'CPCCT'> self primitiveFailed! Item was changed: ----- Method: PCCByCompilationTest>>cFailedCall (in category 'test methods') ----- cFailedCall <primitive: 'primGetModuleName' module:'CFailModule'> ^ 'failed call'! Item was changed: ----- Method: PCCByCompilationTest>>cRealExternalCallOrPrimitiveFailed (in category 'test methods') ----- cRealExternalCallOrPrimitiveFailed <primitive: 'primGetModuleName' module:'LargeIntegers'> self primitiveFailed! Item was added: + ----- Method: PCCByLiteralsTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMethodsWithEnabledCall; add: #testDisableCallsIntoModuleForClasses; add: #testChangeFailedCallFailing; add: #testExistsEnabledCallIn; add: #testCoverage; add: #testExistsFailedCallIn; add: #testMethodsWithCallIntoModule; add: #testMethodsWithCallXIntoModule; add: #testEnableDisableCallInCompiledMethod; add: #testSwitchStored; add: #testMethodsWithDisabledCallX; add: #testDisableCallsIntoModule; add: #testExistsDisabledCallIn; add: #testMethodsWithCallX; add: #testMethodsWithCallIntoModuleForClass; add: #testClassComment; add: #testMethodsWithEnabledCallIntoModuleForClass; add: #testMethodsWithEnabledCallIntoModuleForClasses; add: #testSwitchPrimCallOffOn; add: #testUnCategorizedMethods; add: #testTryCaches; add: #testMethodsWithCallAndMethodsWithDisabledCall; add: #testMethodsWithDisabledCallIntoModuleForClass; add: #testChangeFailedCallSucceedingEnable; add: #testMethodsWithEnabledCallX; add: #testMethodsWithFailedCall; add: #testMethodsWithEnabledCallXIntoModule; add: #testEnableDisableCallIn; add: #testChangeFailedCallSucceedingDisable; add: #testMethodsWithDisabledCallIntoModule; add: #testExistsCallIn; add: #testMethodsWithDisabledCallIntoModuleForClasses; add: #testMethodsWithCallIntoModuleForClasses; add: #testMethodsWithEnabledCallIntoModule; add: #testNew; add: #testEnableDisableCallInMethodClass; add: #testMethodsWithFailedCallIntoModuleForClass; add: #testMethodsWithDisabledCallXIntoModule; add: #testMethodsWithFailedCallForClass; add: #testMethodsWithFailedCallIntoModule; add: #testEnableCallsIntoModuleForClasses; add: #testEnableCallsIntoModule; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: PackageDependencyTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testSound; add: #testToolBuilderMorphic; add: #testNebraska; add: #testShoutCore; add: #testVersionNumber; add: #testExceptions; add: #testCompression; add: #testMultilingual; add: #testST80; add: #testInstaller; add: #testEtoys; add: #testProtocols; add: #testSUnit; add: #testGraphics; add: #testToolBuilder; add: #testXML; add: #testKernel; add: #testTrueType; add: #testPackageInfo; add: #testTraits; add: #testBalloon; add: #testCompiler; add: #testMorphicExtras; add: #testNetwork; add: #testFiles; add: #testCollections; add: #testPreferenceBrowser; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was changed: ----- Method: PackageDependencyTest>>testMonticello (in category 'tests') ----- testMonticello self testPackage: 'Monticello' dependsExactlyOn: #( Collections Compiler Compression Exceptions Files Graphics Kernel Morphic Network + 'PackageInfo-Base' - PackageInfo System Tests 'ToolBuilder-Kernel' 'ToolBuilder-Morphic' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testMorphic (in category 'tests') ----- testMorphic self testPackage: 'Morphic' dependsExactlyOn: #( Balloon Collections Compiler EToys Exceptions Files Graphics Kernel Monticello MonticelloConfigurations - 'Morphic-TrueType' "????" MorphicExtras Multilingual Network ST80 Sound System 'ToolBuilder-Kernel' 'ToolBuilder-Morphic' Tools TrueType ).! Item was changed: ----- Method: PackageDependencyTest>>testSUnitGUI (in category 'tests') ----- testSUnitGUI self testPackage: 'SUnitGUI' dependsExactlyOn: #( Collections Graphics Kernel + 'PackageInfo-Base' - PackageInfo SUnit System 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testServices (in category 'tests') ----- testServices self testPackage: 'Services-Base' dependsExactlyOn: #( Collections Compiler Exceptions Graphics Kernel Morphic + 'PackageInfo-Base' - PackageInfo PreferenceBrowser System 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testSystem (in category 'tests') ----- testSystem self testPackage: 'System' dependsExactlyOn: #( Collections Balloon Compiler Compression Exceptions Files Graphics Kernel Monticello MonticelloConfigurations Morphic MorphicExtras Multilingual Network + 'PackageInfo-Base' - PackageInfo Sound 'ToolBuilder-Kernel' Tools TrueType ).! Item was changed: ----- Method: PackageDependencyTest>>testToolBuilderMVC (in category 'tests') ----- testToolBuilderMVC self testPackage: 'ToolBuilder-MVC' dependsExactlyOn: #( Collections Exceptions Graphics ST80 - ToolBuilder 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testToolBuilderSUnit (in category 'tests') ----- testToolBuilderSUnit self testPackage: 'ToolBuilder-SUnit' dependsExactlyOn: #( Collections Kernel - ToolBuilder 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testTools (in category 'tests') ----- testTools self testPackage: 'Tools' dependsExactlyOn: #( Collections Compiler Compression Exceptions Files Graphics Kernel Morphic MorphicExtras Multilingual Network + 'PackageInfo-Base' - PackageInfo ST80 System 'ToolBuilder-Kernel' ).! Item was added: + ----- Method: ProcessTerminateBug classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testUnwindFromActiveProcess; add: #testSchedulerTermination; add: #testUnwindFromForeignProcess; add: #testTerminationDuringUnwind; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: ReleaseTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testSuperSubclassReferences; add: #testSystemCategoryClasses; add: #testSwapMouseButtonsPreference; add: #testClassesSystemCategory; add: #testUndeclared; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: RenderBugz classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testSetHeading; add: #testSetForward; add: #testHeading; add: #testForward; add: #testTestTime; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: ScannerTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testLiteralSymbols; yourself)); add: (#timeStamp->'4 January 2011 3:14:07 pm' asTimeStamp); yourself)! Item was added: + ----- Method: SecureHashAlgorithmTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testExample3; add: #testNew; add: #testCoverage; add: #testClassComment; add: #testExample1; add: #testUnCategorizedMethods; add: #testExample2; add: #testEmptyInput; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: SmalltalkImageTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testImageName; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: StandardSourceFileArrayTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testAddressRange; add: #testFileIndexFromSourcePointer; add: #testSourcePointerFromFileIndexAndPosition; add: #testChangesFileAddressRange; add: #testSourcesFileAddressRange; add: #testFilePositionFromSourcePointer; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: StandardSystemFontsTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new) add: #testRestoreDefaultFonts; yourself)); add: (#errors->((Set new))); add: (#passed->((Set new))); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: StickynessBugz classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testForTiltedStickyness; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: StreamBugz classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testReadWriteStreamNextNBug; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: SumBugs classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testSummingToWhite; add: #testSummingWithWhite; add: #testSummingToTen; add: #testSummingWithBlack; add: #testSummingColors; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: SystemOrganizerTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testAccessGlobalDirectly; add: #testAccessGlobalThroughClass; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: SystemVersionTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testMajorMinorVersion; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: TestObjectsAsMethods classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testDNU; add: #testAnswer42; add: #testAddNumbers; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: TestValueWithinFix classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testValueWithinNonLocalReturnFixSimply; add: #testValueWithinNonLocalReturnFixReal; yourself)); add: (#timeStamp->'4 January 2011 3:14:10 pm' asTimeStamp); yourself)! Item was added: + ----- Method: TextDiffBuilderTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testEmptyLcs1; add: #testIfSequence6; add: #testIfSequence3; add: #testSameSequenceWithRepetitions; add: #testEmptyLcs3; add: #testIfSequence5; add: #testIfSequence2; add: #testEmptySequences; add: #testEmptyLcs2; add: #testIfPatchIsMinimal; add: #testSameSequence; add: #testIfSequence4; add: #testIfSequence1; yourself)); add: (#timeStamp->'4 January 2011 3:14:08 pm' asTimeStamp); yourself)! Item was added: + ----- Method: UnimplementedCallBugz classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testPolyIntersect; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)! Item was added: + ----- Method: Win32VMTest classSide>>lastStoredRun (in category 'history') ----- + lastStoredRun + ^ ((Dictionary new) add: (#failures->((Set new))); add: (#errors->((Set new))); add: (#passed->((Set new) add: #testWinVM3ButtonMousePreference; yourself)); add: (#timeStamp->'4 January 2011 3:14:09 pm' asTimeStamp); yourself)!

1 0

The Inbox: KernelTests-cmm.169.mcz
by commits＠source.squeak.org 04 Jan '11

04 Jan '11

A new version of KernelTests was added to project The Inbox: http://source.squeak.org/inbox/KernelTests-cmm.169.mcz ==================== Summary ==================== Name: KernelTests-cmm.169 Author: cmm Time: 4 January 2011, 2:54:20.261 pm UUID: 63f1b572-d2e1-4ee7-a764-70b0cc9f760b Ancestors: KernelTests-ul.168 Unmerged KernelTests-ar.171. =============== Diff against KernelTests-ul.168 =============== Item was added: + ----- Method: Process>>suspendPrimitivelyOrFail (in category '*KernelTests-Processes') ----- + suspendPrimitivelyOrFail + "Test support. Execute primitive 88, or fail." + + <primitive: 88> + ^self primitiveFailed! Item was added: + ClassTestCase subclass: #ProcessTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'KernelTests-Processes'! Item was added: + ----- Method: ProcessTest>>testAtomicSuspend (in category 'tests') ----- + testAtomicSuspend + "Test atomic suspend of foreign processes" + + | list p sema | + sema := Semaphore new. + p := [sema wait] fork. + Processor yield. + self shouldnt: [list := p suspendPrimitivelyOrFail] raise: Error. + self assert: list == sema. + !

1 0

The Inbox: Kernel-cmm.539.mcz
by commits＠source.squeak.org 04 Jan '11

04 Jan '11

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-cmm.539.mcz ==================== Summary ==================== Name: Kernel-cmm.539 Author: cmm Time: 4 January 2011, 2:09:42.741 pm UUID: 7f10543e-ecae-4c34-81d7-45deda9c409c Ancestors: Kernel-mtf.538 Revert Kernel-mtf.527 Kernel-ar.528 Kernel-ar.529 Kernel-ul.530 Kernel-ar.531 until compatible VM's are released. =============== Diff against Kernel-mtf.538 =============== Item was changed: Number variableWordSubclass: #Float instanceVariableNames: '' + classVariableNames: 'E Epsilon Halfpi Infinity Ln10 Ln2 MaxVal MaxValLn MinValLogBase2 NaN NegativeInfinity NegativeZero Pi RadiansPerDegree Sqrt2 ThreePi Twopi' - classVariableNames: 'E Epsilon Halfpi Infinity Ln10 Ln2 MaxVal MaxValLn MinValLogBase2 NaN NegativeInfinity NegativeZero Pi RadiansPerDegree SignalNaN Sqrt2 ThreePi Twopi' poolDictionaries: '' category: 'Kernel-Numbers'! !Float commentStamp: '<historical>' prior: 0! My instances represent IEEE-754 floating-point double-precision numbers. They have about 16 digits of accuracy and their range is between plus and minus 10^307. Some valid examples are: 8.0 13.3 0.3 2.5e6 1.27e-30 1.27e-31 -12.987654e12 Mainly: no embedded blanks, little e for tens power, and a digit on both sides of the decimal point. It is actually possible to specify a radix for Squeak Float constants. This is great for teaching about numbers, but may be confusing to the average reader: 3r20.2 --> 6.66666666666667 8r20.2 --> 16.25 If you don't have access to the definition of IEEE-754, you can figure out what is going on by printing various simple values in Float hex. It may help you to know that the basic format is... sign 1 bit exponent 11 bits with bias of 1023 (16r3FF) to produce an exponent in the range -1023 .. +1024 - 16r000: significand = 0: Float zero significand ~= 0: Denormalized number (exp = -1024, no hidden '1' bit) - 16r7FF: significand = 0: Infinity significand ~= 0: Not A Number (NaN) representation mantissa 53 bits, but only 52 are stored (20 in the first word, 32 in the second). This is because a normalized mantissa, by definition, has a 1 to the right of its floating point, and IEEE-754 omits this redundant bit to gain an extra bit of precision instead. People talk about the mantissa without its leading one as the FRACTION, and with its leading 1 as the SIGNFICAND. The single-precision format is... sign 1 bit exponent 8 bits, with bias of 127, to represent -126 to +127 - 0x0 and 0xFF reserved for Float zero (mantissa is ignored) - 16r7F reserved for Float underflow/overflow (mantissa is ignored) mantissa 24 bits, but only 23 are stored This format is used in FloatArray (qv), and much can be learned from the conversion routines, Float asIEEE32BitWord, and Float class fromIEEE32Bit:. Thanks to Rich Harmon for asking many questions and to Tim Olson, Bruce Cohen, Rick Zaccone and others for the answers that I have collected here.! Item was changed: ----- Method: Float class>>initialize (in category 'class initialization') ----- initialize "Float initialize" "Constants from Computer Approximations, pp. 182-183: Pi = 3.14159265358979323846264338327950288 Pi/2 = 1.57079632679489661923132169163975144 Pi*2 = 6.28318530717958647692528676655900576 Pi/180 = 0.01745329251994329576923690768488612 2.0 ln = 0.69314718055994530941723212145817657 2.0 sqrt = 1.41421356237309504880168872420969808" Pi := 3.14159265358979323846264338327950288. Halfpi := Pi / 2.0. Twopi := Pi * 2.0. ThreePi := Pi * 3.0. RadiansPerDegree := Pi / 180.0. Ln2 := 0.69314718055994530941723212145817657. Ln10 := 10.0 ln. Sqrt2 := 1.41421356237309504880168872420969808. E := 2.718281828459045235360287471353. Epsilon := 0.000000000001. "Defines precision of mathematical functions" MaxVal := 1.7976931348623157e308. MaxValLn := 709.782712893384. MinValLogBase2 := -1074. Infinity := MaxVal * MaxVal. NegativeInfinity := 0.0 - Infinity. NaN := Infinity - Infinity. NegativeZero := 1.0 / Infinity negated. - - SignalNaN := true. ! Item was removed: - ----- Method: Float class>>signalNaN (in category 'preferences') ----- - signalNaN - <preference: 'Signal NaN' - category: 'general' "since there is no math/arithmetic category" - description: 'When enabled, generate NaNError when encountering NaN. When disabled, silently propagate NaN' - type: #Boolean> - ^SignalNaN! Item was removed: - ----- Method: Float class>>signalNaN: (in category 'preferences') ----- - signalNaN: aBool - "Preference accessor" - SignalNaN := aBool. - ! Item was changed: ----- Method: Float>>arcCos (in category 'mathematical functions') ----- arcCos "Answer the angle in radians." + - <primitive: 'primitiveArcCos' module: 'FloatMathPlugin'> - self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. ^ Halfpi - self arcSin! Item was removed: - ----- Method: Float>>arcCosH (in category 'mathematical functions') ----- - arcCosH - <primitive: 'primitiveArcCosH' module: 'FloatMathPlugin'> - self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. - ^self primitiveFailed - ! Item was changed: ----- Method: Float>>arcSin (in category 'mathematical functions') ----- arcSin "Answer the angle in radians." + - <primitive: 'primitiveArcSin' module: 'FloatMathPlugin'> - self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. ((self < -1.0) or: [self > 1.0]) ifTrue: [self error: 'Value out of range']. ((self = -1.0) or: [self = 1.0]) ifTrue: [^ Halfpi * self] ifFalse: [^ (self / (1.0 - (self * self)) sqrt) arcTan]! Item was removed: - ----- Method: Float>>arcSinH (in category 'mathematical functions') ----- - arcSinH - <primitive: 'primitiveArcSinH' module: 'FloatMathPlugin'> - self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. - ^self primitiveFailed - ! Item was changed: ----- Method: Float>>arcTan (in category 'mathematical functions') ----- arcTan "Answer the angle in radians. Optional. See Object documentation whatIsAPrimitive." + + | theta eps step sinTheta cosTheta | + <primitive: 57> + + "Newton-Raphson" - <primitive: 'primitiveArcTan' module: 'FloatMathPlugin'> - self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. self < 0.0 ifTrue: [ ^ 0.0 - (0.0 - self) arcTan ]. + + "first guess" + theta := (self * Halfpi) / (self + 1.0). + + "iterate" + eps := Halfpi * Epsilon. + step := theta. + [(step * step) > eps] whileTrue: [ + sinTheta := theta sin. + cosTheta := theta cos. + step := (sinTheta * cosTheta) - (self * cosTheta * cosTheta). + theta := theta - step]. + ^ theta! - ^self primitiveArcTan! Item was changed: ----- Method: Float>>arcTan: (in category 'mathematical functions') ----- arcTan: denominator "Answer the angle in radians. Optional. See Object documentation whatIsAPrimitive. Implementation note: use sign in order to catch cases of negativeZero" - <primitive: 'primitiveArcTan2' module: 'FloatMathPlugin'> - self isNaN ifTrue:[ - SignalNaN ifTrue:[ NaNError signal ]. - ^self]. - denominator isNaN ifTrue:[ - SignalNaN ifTrue: [ NaNError signal ]. - ^denominator ]. ^self = 0.0 ifTrue: [denominator sign >= 0 ifTrue: [ 0 ] ifFalse: [ self sign >= 0 ifTrue: [ Pi ] ifFalse: [ Pi negated ]]] ifFalse: [denominator = 0.0 ifTrue: [self > 0.0 ifTrue: [ Halfpi ] ifFalse: [ Halfpi negated ]] ifFalse: [denominator > 0 ifTrue: [ (self / denominator) arcTan ] ifFalse: [self > 0 ifTrue: [ ((self / denominator) arcTan) + Pi ] ifFalse: [ ((self / denominator) arcTan) - Pi ]]]]! Item was removed: - ----- Method: Float>>arcTanH (in category 'mathematical functions') ----- - arcTanH - <primitive: 'primitiveArcTanH' module: 'FloatMathPlugin'> - self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. - ^self primitiveFailed - ! Item was changed: ----- Method: Float>>cos (in category 'mathematical functions') ----- cos "Answer the cosine of the receiver taken as an angle in radians." + - <primitive: 'primitiveCos' module: 'FloatMathPlugin'> - self isFinite ifFalse:[SignalNaN ifTrue:[NaNError signal]. ^NaN]. ^ (self + Halfpi) sin! Item was removed: - ----- Method: Float>>cosH (in category 'mathematical functions') ----- - cosH - "Answer the cosine of the receiver taken as an angle in radians." - <primitive: 'primitiveCosH' module: 'FloatMathPlugin'> - self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. - ^self primitiveFailed - ! Item was changed: ----- Method: Float>>exp (in category 'mathematical functions') ----- exp "Answer E raised to the receiver power. Optional. See Object documentation whatIsAPrimitive." + | base fract correction delta div | + <primitive: 59> + + "Taylor series" + "check the special cases" + self < 0.0 ifTrue: [^ (self negated exp) reciprocal]. + self = 0.0 ifTrue: [^ 1]. + self abs > MaxValLn ifTrue: [self error: 'exp overflow']. + + "get first approximation by raising e to integer power" + base := E raisedToInteger: (self truncated). + + "now compute the correction with a short Taylor series" + "fract will be 0..1, so correction will be 1..E" + "in the worst case, convergance time is logarithmic with 1/Epsilon" + fract := self fractionPart. + fract = 0.0 ifTrue: [ ^ base ]. "no correction required" + + correction := 1.0 + fract. + delta := fract * fract / 2.0. + div := 2.0. + [delta > Epsilon] whileTrue: [ + correction := correction + delta. + div := div + 1.0. + delta := delta * fract / div]. + correction := correction + delta. + ^ base * correction! - <primitive: 'primitiveExp' module: 'FloatMathPlugin'> - self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. - "For now, fall back to the Squeak version of exp if FloatMathPlugin is absent" - ^self primitiveExp! Item was changed: ----- Method: Float>>fractionPart (in category 'truncation and round off') ----- fractionPart "Primitive. Answer a Float whose value is the difference between the receiver and the receiver's asInteger value. Optional. See Object documentation whatIsAPrimitive." + + <primitive: 52> - <primitive: 'primitiveFractionalPart' module: 'FloatMathPlugin'> - self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. ^self - self truncated asFloat! Item was removed: - ----- Method: Float>>hypot: (in category 'mathematical functions') ----- - hypot: arg - "hypot(x,y) returns sqrt(x^2+y^2) with error less than 1 ulps" - <primitive: 'primitiveHypot' module: 'FloatMathPlugin'> - arg isFloat ifFalse:[^self hypot: arg asFloat]. - self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. - arg isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^arg]. - ^self primitiveFailed - ! Item was changed: ----- Method: Float>>ln (in category 'mathematical functions') ----- ln "Answer the natural logarithm of the receiver. Optional. See Object documentation whatIsAPrimitive." + + | expt n mant x div pow delta sum eps | + <primitive: 58> + + "Taylor series" + self <= 0.0 ifTrue: [self error: 'ln is only defined for x > 0.0']. + + "get a rough estimate from binary exponent" + expt := self exponent. + n := Ln2 * expt. + mant := self timesTwoPower: 0 - expt. + + "compute fine correction from mantinssa in Taylor series" + "mant is in the range [0..2]" + "we unroll the loop to avoid use of abs" + x := mant - 1.0. + div := 1.0. + pow := delta := sum := x. + x := x negated. "x <= 0" + eps := Epsilon * (n abs + 1.0). + [delta > eps] whileTrue: [ + "pass one: delta is positive" + div := div + 1.0. + pow := pow * x. + delta := pow / div. + sum := sum + delta. + "pass two: delta is negative" + div := div + 1.0. + pow := pow * x. + delta := pow / div. + sum := sum + delta]. + + ^ n + sum + + "2.718284 ln 1.0"! - <primitive: 'primitiveLogN' module: 'FloatMathPlugin'> - self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. - self <= 0.0 ifTrue: [^self error: 'ln is only defined for x > 0.0']. - ^self primitiveLn! Item was changed: ----- Method: Float>>log (in category 'mathematical functions') ----- log "Answer the base 10 logarithm of the receiver." + - <primitive: 'primitiveLog10' module: 'FloatMathPlugin'> - self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. ^ self ln / Ln10! Item was removed: - ----- Method: Float>>primitiveArcTan (in category 'primitives') ----- - primitiveArcTan - "Answer the angle in radians. - Optional. See Object documentation whatIsAPrimitive." - - | theta eps step sinTheta cosTheta | - <primitive: 57> - - "Newton-Raphson" - self < 0.0 ifTrue: [ ^ 0.0 - (0.0 - self) arcTan ]. - - "first guess" - theta := (self * Halfpi) / (self + 1.0). - - "iterate" - eps := Halfpi * Epsilon. - step := theta. - [(step * step) > eps] whileTrue: [ - sinTheta := theta sin. - cosTheta := theta cos. - step := (sinTheta * cosTheta) - (self * cosTheta * cosTheta). - theta := theta - step]. - ^ theta! Item was removed: - ----- Method: Float>>primitiveExp (in category 'primitives') ----- - primitiveExp - "Answer E raised to the receiver power. - Optional. See Object documentation whatIsAPrimitive." - - | base fract correction delta div | - <primitive: 59> - - "Taylor series" - "check the special cases" - self < 0.0 ifTrue: [^ (self negated exp) reciprocal]. - self = 0.0 ifTrue: [^ 1]. - self abs > MaxValLn ifTrue: [self error: 'exp overflow']. - - "get first approximation by raising e to integer power" - base := E raisedToInteger: (self truncated). - - "now compute the correction with a short Taylor series" - "fract will be 0..1, so correction will be 1..E" - "in the worst case, convergance time is logarithmic with 1/Epsilon" - fract := self fractionPart. - fract = 0.0 ifTrue: [ ^ base ]. "no correction required" - - correction := 1.0 + fract. - delta := fract * fract / 2.0. - div := 2.0. - [delta > Epsilon] whileTrue: [ - correction := correction + delta. - div := div + 1.0. - delta := delta * fract / div]. - correction := correction + delta. - ^ base * correction! Item was removed: - ----- Method: Float>>primitiveFractionPart (in category 'primitives') ----- - primitiveFractionPart - "Primitive. Answer a Float whose value is the difference between the - receiver and the receiver's asInteger value. Optional. See Object - documentation whatIsAPrimitive." - - <primitive: 52> - ^self - self truncated asFloat! Item was removed: - ----- Method: Float>>primitiveLn (in category 'primitives') ----- - primitiveLn - "Answer the natural logarithm of the receiver. - Optional. See Object documentation whatIsAPrimitive." - - | expt n mant x div pow delta sum eps | - <primitive: 58> - - "Taylor series" - self <= 0.0 ifTrue: [self error: 'ln is only defined for x > 0.0']. - - "get a rough estimate from binary exponent" - expt := self exponent. - n := Ln2 * expt. - mant := self timesTwoPower: 0 - expt. - - "compute fine correction from mantinssa in Taylor series" - "mant is in the range [0..2]" - "we unroll the loop to avoid use of abs" - x := mant - 1.0. - div := 1.0. - pow := delta := sum := x. - x := x negated. "x <= 0" - eps := Epsilon * (n abs + 1.0). - [delta > eps] whileTrue: [ - "pass one: delta is positive" - div := div + 1.0. - pow := pow * x. - delta := pow / div. - sum := sum + delta. - "pass two: delta is negative" - div := div + 1.0. - pow := pow * x. - delta := pow / div. - sum := sum + delta]. - - ^ n + sum - - "2.718284 ln 1.0"! Item was removed: - ----- Method: Float>>primitiveSin (in category 'primitives') ----- - primitiveSin - "Answer the sine of the receiver taken as an angle in radians. - Optional. See Object documentation whatIsAPrimitive." - - | sum delta self2 i | - <primitive: 56> - - "Taylor series" - "normalize to the range [0..Pi/2]" - self < 0.0 ifTrue: [^ (0.0 - ((0.0 - self) sin))]. - self > Twopi ifTrue: [^ (self \\ Twopi) sin]. - self > Pi ifTrue: [^ (0.0 - (self - Pi) sin)]. - self > Halfpi ifTrue: [^ (Pi - self) sin]. - - "unroll loop to avoid use of abs" - sum := delta := self. - self2 := 0.0 - (self * self). - i := 2.0. - [delta > Epsilon] whileTrue: [ - "once" - delta := (delta * self2) / (i * (i + 1.0)). - i := i + 2.0. - sum := sum + delta. - "twice" - delta := (delta * self2) / (i * (i + 1.0)). - i := i + 2.0. - sum := sum + delta]. - ^ sum! Item was removed: - ----- Method: Float>>primitiveSqrt (in category 'primitives') ----- - primitiveSqrt - "Answer the square root of the receiver. - Optional. See Object documentation whatIsAPrimitive." - | exp guess eps delta | - <primitive: 55> - #Numeric. - "Changed 200/01/19 For ANSI <number> support." - "Newton-Raphson" - self <= 0.0 - ifTrue: [self = 0.0 - ifTrue: [^ 0.0] - ifFalse: ["v Chg" - ^ FloatingPointException signal: 'undefined if less than zero.']]. - "first guess is half the exponent" - exp := self exponent // 2. - guess := self timesTwoPower: 0 - exp. - "get eps value" - eps := guess * Epsilon. - eps := eps * eps. - delta := self - (guess * guess) / (guess * 2.0). - [delta * delta > eps] - whileTrue: - [guess := guess + delta. - delta := self - (guess * guess) / (guess * 2.0)]. - ^ guess! Item was removed: - ----- Method: Float>>primitiveTimesTwoPower: (in category 'primitives') ----- - primitiveTimesTwoPower: anInteger - "Primitive. Answer with the receiver multiplied by 2.0 raised - to the power of the argument. - Optional. See Object documentation whatIsAPrimitive." - - <primitive: 54> - - anInteger < -29 ifTrue: [^ self * (2.0 raisedToInteger: anInteger)]. - anInteger < 0 ifTrue: [^ self / (1 bitShift: (0 - anInteger)) asFloat]. - anInteger < 30 ifTrue: [^ self * (1 bitShift: anInteger) asFloat]. - ^ self * (2.0 raisedToInteger: anInteger)! Item was changed: ----- Method: Float>>sin (in category 'mathematical functions') ----- sin "Answer the sine of the receiver taken as an angle in radians. Optional. See Object documentation whatIsAPrimitive." + + | sum delta self2 i | + <primitive: 56> + + "Taylor series" + "normalize to the range [0..Pi/2]" + self < 0.0 ifTrue: [^ (0.0 - ((0.0 - self) sin))]. + self > Twopi ifTrue: [^ (self \\ Twopi) sin]. + self > Pi ifTrue: [^ (0.0 - (self - Pi) sin)]. + self > Halfpi ifTrue: [^ (Pi - self) sin]. + + "unroll loop to avoid use of abs" + sum := delta := self. + self2 := 0.0 - (self * self). + i := 2.0. + [delta > Epsilon] whileTrue: [ + "once" + delta := (delta * self2) / (i * (i + 1.0)). + i := i + 2.0. + sum := sum + delta. + "twice" + delta := (delta * self2) / (i * (i + 1.0)). + i := i + 2.0. + sum := sum + delta]. + ^ sum! - <primitive: 'primitiveSin' module: 'FloatMathPlugin'> - self isFinite ifFalse:[SignalNaN ifTrue:[NaNError signal]. ^NaN]. - ^self primitiveSin! Item was removed: - ----- Method: Float>>sinH (in category 'mathematical functions') ----- - sinH - <primitive: 'primitiveSinH' module: 'FloatMathPlugin'> - self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. - ^self primitiveFailed! Item was changed: ----- Method: Float>>sqrt (in category 'mathematical functions') ----- sqrt "Answer the square root of the receiver. Optional. See Object documentation whatIsAPrimitive." + | exp guess eps delta | + <primitive: 55> + #Numeric. + "Changed 200/01/19 For ANSI <number> support." + "Newton-Raphson" + self <= 0.0 + ifTrue: [self = 0.0 + ifTrue: [^ 0.0] + ifFalse: ["v Chg" + ^ FloatingPointException signal: 'undefined if less than zero.']]. + "first guess is half the exponent" + exp := self exponent // 2. + guess := self timesTwoPower: 0 - exp. + "get eps value" + eps := guess * Epsilon. + eps := eps * eps. + delta := self - (guess * guess) / (guess * 2.0). + [delta * delta > eps] + whileTrue: + [guess := guess + delta. + delta := self - (guess * guess) / (guess * 2.0)]. + ^ guess! - - "ar 3/26/2006: sqrt is the ONE primitive that we really don't want to use from FloatMathPlugin - it's several times slower and we use it often enough that this can make a noticable difference" - - <primitive: 55> "instead of: <primitive: 'primitiveSqrt' module: 'FloatMathPlugin'>" - ^self primitiveSqrt! Item was changed: ----- Method: Float>>tan (in category 'mathematical functions') ----- tan "Answer the tangent of the receiver taken as an angle in radians." + - <primitive: 'primitiveTan' module: 'FloatMathPlugin'> - self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. ^ self sin / self cos! Item was removed: - ----- Method: Float>>tanH (in category 'mathematical functions') ----- - tanH - <primitive: 'primitiveTanH' module: 'FloatMathPlugin'> - self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. - ^self primitiveFailed! Item was changed: ----- Method: Float>>timesTwoPower: (in category 'mathematical functions') ----- timesTwoPower: anInteger "Primitive. Answer with the receiver multiplied by 2.0 raised to the power of the argument. Optional. See Object documentation whatIsAPrimitive." + + <primitive: 54> + + anInteger < -29 ifTrue: [^ self * (2.0 raisedToInteger: anInteger)]. + anInteger < 0 ifTrue: [^ self / (1 bitShift: (0 - anInteger)) asFloat]. + anInteger < 30 ifTrue: [^ self * (1 bitShift: anInteger) asFloat]. + ^ self * (2.0 raisedToInteger: anInteger)! - <primitive: 'primitiveTimesTwoPower' module: 'FloatMathPlugin'> - self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. - ^self primitiveTimesTwoPower: anInteger! Item was removed: - ----- Method: Number>>hypot: (in category 'mathematical functions') ----- - hypot: arg - "hypot(x,y) returns sqrt(x^2+y^2) with error less than 1 ulps" - ^self asFloat hypot: arg asFloat!

1 0

The Trunk: Kernel-ul.530.mcz
by commits＠source.squeak.org 04 Jan '11

04 Jan '11

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.530.mcz ==================== Summary ==================== Name: Kernel-ul.530 Author: ul Time: 25 December 2010, 4:55:27.167 am UUID: aa46581d-c74f-7a48-b604-6371b5b21730 Ancestors: Kernel-ar.529 - fix: reverted Float >> #arcTan: and added the primitive to that version, because it contained a bugfix. See FloatTest >> #testArcTan. - use #isInfinite for infinity checking in Float >> #sin and Float >> #cos =============== Diff against Kernel-mtf.526 =============== Item was changed: Number variableWordSubclass: #Float instanceVariableNames: '' + classVariableNames: 'E Epsilon Halfpi Infinity Ln10 Ln2 MaxVal MaxValLn MinValLogBase2 NaN NegativeInfinity NegativeZero Pi RadiansPerDegree SignalNaN Sqrt2 ThreePi Twopi' - classVariableNames: 'E Epsilon Halfpi Infinity Ln10 Ln2 MaxVal MaxValLn MinValLogBase2 NaN NegativeInfinity NegativeZero Pi RadiansPerDegree Sqrt2 ThreePi Twopi' poolDictionaries: '' category: 'Kernel-Numbers'! !Float commentStamp: '<historical>' prior: 0! My instances represent IEEE-754 floating-point double-precision numbers. They have about 16 digits of accuracy and their range is between plus and minus 10^307. Some valid examples are: 8.0 13.3 0.3 2.5e6 1.27e-30 1.27e-31 -12.987654e12 Mainly: no embedded blanks, little e for tens power, and a digit on both sides of the decimal point. It is actually possible to specify a radix for Squeak Float constants. This is great for teaching about numbers, but may be confusing to the average reader: 3r20.2 --> 6.66666666666667 8r20.2 --> 16.25 If you don't have access to the definition of IEEE-754, you can figure out what is going on by printing various simple values in Float hex. It may help you to know that the basic format is... sign 1 bit exponent 11 bits with bias of 1023 (16r3FF) to produce an exponent in the range -1023 .. +1024 - 16r000: significand = 0: Float zero significand ~= 0: Denormalized number (exp = -1024, no hidden '1' bit) - 16r7FF: significand = 0: Infinity significand ~= 0: Not A Number (NaN) representation mantissa 53 bits, but only 52 are stored (20 in the first word, 32 in the second). This is because a normalized mantissa, by definition, has a 1 to the right of its floating point, and IEEE-754 omits this redundant bit to gain an extra bit of precision instead. People talk about the mantissa without its leading one as the FRACTION, and with its leading 1 as the SIGNFICAND. The single-precision format is... sign 1 bit exponent 8 bits, with bias of 127, to represent -126 to +127 - 0x0 and 0xFF reserved for Float zero (mantissa is ignored) - 16r7F reserved for Float underflow/overflow (mantissa is ignored) mantissa 24 bits, but only 23 are stored This format is used in FloatArray (qv), and much can be learned from the conversion routines, Float asIEEE32BitWord, and Float class fromIEEE32Bit:. Thanks to Rich Harmon for asking many questions and to Tim Olson, Bruce Cohen, Rick Zaccone and others for the answers that I have collected here.! Item was changed: ----- Method: Float class>>initialize (in category 'class initialization') ----- initialize "Float initialize" "Constants from Computer Approximations, pp. 182-183: Pi = 3.14159265358979323846264338327950288 Pi/2 = 1.57079632679489661923132169163975144 Pi*2 = 6.28318530717958647692528676655900576 Pi/180 = 0.01745329251994329576923690768488612 2.0 ln = 0.69314718055994530941723212145817657 2.0 sqrt = 1.41421356237309504880168872420969808" Pi := 3.14159265358979323846264338327950288. Halfpi := Pi / 2.0. Twopi := Pi * 2.0. ThreePi := Pi * 3.0. RadiansPerDegree := Pi / 180.0. Ln2 := 0.69314718055994530941723212145817657. Ln10 := 10.0 ln. Sqrt2 := 1.41421356237309504880168872420969808. E := 2.718281828459045235360287471353. Epsilon := 0.000000000001. "Defines precision of mathematical functions" MaxVal := 1.7976931348623157e308. MaxValLn := 709.782712893384. MinValLogBase2 := -1074. Infinity := MaxVal * MaxVal. NegativeInfinity := 0.0 - Infinity. NaN := Infinity - Infinity. NegativeZero := 1.0 / Infinity negated. + + SignalNaN := true. ! Item was added: + ----- Method: Float class>>signalNaN (in category 'preferences') ----- + signalNaN + <preference: 'Signal NaN' + category: 'general' "since there is no math/arithmetic category" + description: 'When enabled, generate NaNError when encountering NaN. When disabled, silently propagate NaN' + type: #Boolean> + ^SignalNaN! Item was added: + ----- Method: Float class>>signalNaN: (in category 'preferences') ----- + signalNaN: aBool + "Preference accessor" + SignalNaN := aBool. + ! Item was changed: ----- Method: Float>>arcCos (in category 'mathematical functions') ----- arcCos "Answer the angle in radians." + <primitive: 'primitiveArcCos' module: 'FloatMathPlugin'> + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. - ^ Halfpi - self arcSin! Item was added: + ----- Method: Float>>arcCosH (in category 'mathematical functions') ----- + arcCosH + <primitive: 'primitiveArcCosH' module: 'FloatMathPlugin'> + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. + ^self primitiveFailed + ! Item was changed: ----- Method: Float>>arcSin (in category 'mathematical functions') ----- arcSin "Answer the angle in radians." + <primitive: 'primitiveArcSin' module: 'FloatMathPlugin'> + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. - ((self < -1.0) or: [self > 1.0]) ifTrue: [self error: 'Value out of range']. ((self = -1.0) or: [self = 1.0]) ifTrue: [^ Halfpi * self] ifFalse: [^ (self / (1.0 - (self * self)) sqrt) arcTan]! Item was added: + ----- Method: Float>>arcSinH (in category 'mathematical functions') ----- + arcSinH + <primitive: 'primitiveArcSinH' module: 'FloatMathPlugin'> + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. + ^self primitiveFailed + ! Item was changed: ----- Method: Float>>arcTan (in category 'mathematical functions') ----- arcTan "Answer the angle in radians. Optional. See Object documentation whatIsAPrimitive." + <primitive: 'primitiveArcTan' module: 'FloatMathPlugin'> + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. - - | theta eps step sinTheta cosTheta | - <primitive: 57> - - "Newton-Raphson" self < 0.0 ifTrue: [ ^ 0.0 - (0.0 - self) arcTan ]. + ^self primitiveArcTan! - - "first guess" - theta := (self * Halfpi) / (self + 1.0). - - "iterate" - eps := Halfpi * Epsilon. - step := theta. - [(step * step) > eps] whileTrue: [ - sinTheta := theta sin. - cosTheta := theta cos. - step := (sinTheta * cosTheta) - (self * cosTheta * cosTheta). - theta := theta - step]. - ^ theta! Item was changed: ----- Method: Float>>arcTan: (in category 'mathematical functions') ----- arcTan: denominator "Answer the angle in radians. Optional. See Object documentation whatIsAPrimitive. Implementation note: use sign in order to catch cases of negativeZero" + <primitive: 'primitiveArcTan2' module: 'FloatMathPlugin'> + self isNaN ifTrue:[ + SignalNaN ifTrue:[ NaNError signal ]. + ^self]. + denominator isNaN ifTrue:[ + SignalNaN ifTrue: [ NaNError signal ]. + ^denominator ]. ^self = 0.0 ifTrue: [denominator sign >= 0 ifTrue: [ 0 ] ifFalse: [ self sign >= 0 ifTrue: [ Pi ] ifFalse: [ Pi negated ]]] ifFalse: [denominator = 0.0 ifTrue: [self > 0.0 ifTrue: [ Halfpi ] ifFalse: [ Halfpi negated ]] ifFalse: [denominator > 0 ifTrue: [ (self / denominator) arcTan ] ifFalse: [self > 0 ifTrue: [ ((self / denominator) arcTan) + Pi ] ifFalse: [ ((self / denominator) arcTan) - Pi ]]]]! Item was added: + ----- Method: Float>>arcTanH (in category 'mathematical functions') ----- + arcTanH + <primitive: 'primitiveArcTanH' module: 'FloatMathPlugin'> + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. + ^self primitiveFailed + ! Item was changed: ----- Method: Float>>cos (in category 'mathematical functions') ----- cos "Answer the cosine of the receiver taken as an angle in radians." + <primitive: 'primitiveCos' module: 'FloatMathPlugin'> + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. + self isInfinite ifTrue:[^self error: 'cos is undefined for Infinity']. - ^ (self + Halfpi) sin! Item was added: + ----- Method: Float>>cosH (in category 'mathematical functions') ----- + cosH + "Answer the cosine of the receiver taken as an angle in radians." + <primitive: 'primitiveCosH' module: 'FloatMathPlugin'> + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. + ^self primitiveFailed + ! Item was changed: ----- Method: Float>>exp (in category 'mathematical functions') ----- exp "Answer E raised to the receiver power. Optional. See Object documentation whatIsAPrimitive." + <primitive: 'primitiveExp' module: 'FloatMathPlugin'> + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. + "For now, fall back to the Squeak version of exp if FloatMathPlugin is absent" + ^self primitiveExp! - | base fract correction delta div | - <primitive: 59> - - "Taylor series" - "check the special cases" - self < 0.0 ifTrue: [^ (self negated exp) reciprocal]. - self = 0.0 ifTrue: [^ 1]. - self abs > MaxValLn ifTrue: [self error: 'exp overflow']. - - "get first approximation by raising e to integer power" - base := E raisedToInteger: (self truncated). - - "now compute the correction with a short Taylor series" - "fract will be 0..1, so correction will be 1..E" - "in the worst case, convergance time is logarithmic with 1/Epsilon" - fract := self fractionPart. - fract = 0.0 ifTrue: [ ^ base ]. "no correction required" - - correction := 1.0 + fract. - delta := fract * fract / 2.0. - div := 2.0. - [delta > Epsilon] whileTrue: [ - correction := correction + delta. - div := div + 1.0. - delta := delta * fract / div]. - correction := correction + delta. - ^ base * correction! Item was changed: ----- Method: Float>>fractionPart (in category 'truncation and round off') ----- fractionPart "Primitive. Answer a Float whose value is the difference between the receiver and the receiver's asInteger value. Optional. See Object documentation whatIsAPrimitive." + <primitive: 'primitiveFractionalPart' module: 'FloatMathPlugin'> + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. - - <primitive: 52> ^self - self truncated asFloat! Item was added: + ----- Method: Float>>hypot: (in category 'mathematical functions') ----- + hypot: arg + "hypot(x,y) returns sqrt(x^2+y^2) with error less than 1 ulps" + <primitive: 'primitiveHypot' module: 'FloatMathPlugin'> + arg isFloat ifFalse:[^self hypot: arg asFloat]. + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. + arg isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^arg]. + ^self primitiveFailed + ! Item was changed: ----- Method: Float>>ln (in category 'mathematical functions') ----- ln "Answer the natural logarithm of the receiver. Optional. See Object documentation whatIsAPrimitive." + <primitive: 'primitiveLogN' module: 'FloatMathPlugin'> + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. + self <= 0.0 ifTrue: [^self error: 'ln is only defined for x > 0.0']. + ^self primitiveLn! - - | expt n mant x div pow delta sum eps | - <primitive: 58> - - "Taylor series" - self <= 0.0 ifTrue: [self error: 'ln is only defined for x > 0.0']. - - "get a rough estimate from binary exponent" - expt := self exponent. - n := Ln2 * expt. - mant := self timesTwoPower: 0 - expt. - - "compute fine correction from mantinssa in Taylor series" - "mant is in the range [0..2]" - "we unroll the loop to avoid use of abs" - x := mant - 1.0. - div := 1.0. - pow := delta := sum := x. - x := x negated. "x <= 0" - eps := Epsilon * (n abs + 1.0). - [delta > eps] whileTrue: [ - "pass one: delta is positive" - div := div + 1.0. - pow := pow * x. - delta := pow / div. - sum := sum + delta. - "pass two: delta is negative" - div := div + 1.0. - pow := pow * x. - delta := pow / div. - sum := sum + delta]. - - ^ n + sum - - "2.718284 ln 1.0"! Item was changed: ----- Method: Float>>log (in category 'mathematical functions') ----- log "Answer the base 10 logarithm of the receiver." + <primitive: 'primitiveLog10' module: 'FloatMathPlugin'> + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. - ^ self ln / Ln10! Item was added: + ----- Method: Float>>primitiveArcTan (in category 'primitives') ----- + primitiveArcTan + "Answer the angle in radians. + Optional. See Object documentation whatIsAPrimitive." + + | theta eps step sinTheta cosTheta | + <primitive: 57> + + "Newton-Raphson" + self < 0.0 ifTrue: [ ^ 0.0 - (0.0 - self) arcTan ]. + + "first guess" + theta := (self * Halfpi) / (self + 1.0). + + "iterate" + eps := Halfpi * Epsilon. + step := theta. + [(step * step) > eps] whileTrue: [ + sinTheta := theta sin. + cosTheta := theta cos. + step := (sinTheta * cosTheta) - (self * cosTheta * cosTheta). + theta := theta - step]. + ^ theta! Item was added: + ----- Method: Float>>primitiveExp (in category 'primitives') ----- + primitiveExp + "Answer E raised to the receiver power. + Optional. See Object documentation whatIsAPrimitive." + + | base fract correction delta div | + <primitive: 59> + + "Taylor series" + "check the special cases" + self < 0.0 ifTrue: [^ (self negated exp) reciprocal]. + self = 0.0 ifTrue: [^ 1]. + self abs > MaxValLn ifTrue: [self error: 'exp overflow']. + + "get first approximation by raising e to integer power" + base := E raisedToInteger: (self truncated). + + "now compute the correction with a short Taylor series" + "fract will be 0..1, so correction will be 1..E" + "in the worst case, convergance time is logarithmic with 1/Epsilon" + fract := self fractionPart. + fract = 0.0 ifTrue: [ ^ base ]. "no correction required" + + correction := 1.0 + fract. + delta := fract * fract / 2.0. + div := 2.0. + [delta > Epsilon] whileTrue: [ + correction := correction + delta. + div := div + 1.0. + delta := delta * fract / div]. + correction := correction + delta. + ^ base * correction! Item was added: + ----- Method: Float>>primitiveFractionPart (in category 'primitives') ----- + primitiveFractionPart + "Primitive. Answer a Float whose value is the difference between the + receiver and the receiver's asInteger value. Optional. See Object + documentation whatIsAPrimitive." + + <primitive: 52> + ^self - self truncated asFloat! Item was added: + ----- Method: Float>>primitiveLn (in category 'primitives') ----- + primitiveLn + "Answer the natural logarithm of the receiver. + Optional. See Object documentation whatIsAPrimitive." + + | expt n mant x div pow delta sum eps | + <primitive: 58> + + "Taylor series" + self <= 0.0 ifTrue: [self error: 'ln is only defined for x > 0.0']. + + "get a rough estimate from binary exponent" + expt := self exponent. + n := Ln2 * expt. + mant := self timesTwoPower: 0 - expt. + + "compute fine correction from mantinssa in Taylor series" + "mant is in the range [0..2]" + "we unroll the loop to avoid use of abs" + x := mant - 1.0. + div := 1.0. + pow := delta := sum := x. + x := x negated. "x <= 0" + eps := Epsilon * (n abs + 1.0). + [delta > eps] whileTrue: [ + "pass one: delta is positive" + div := div + 1.0. + pow := pow * x. + delta := pow / div. + sum := sum + delta. + "pass two: delta is negative" + div := div + 1.0. + pow := pow * x. + delta := pow / div. + sum := sum + delta]. + + ^ n + sum + + "2.718284 ln 1.0"! Item was added: + ----- Method: Float>>primitiveSin (in category 'primitives') ----- + primitiveSin + "Answer the sine of the receiver taken as an angle in radians. + Optional. See Object documentation whatIsAPrimitive." + + | sum delta self2 i | + <primitive: 56> + + "Taylor series" + "normalize to the range [0..Pi/2]" + self < 0.0 ifTrue: [^ (0.0 - ((0.0 - self) sin))]. + self > Twopi ifTrue: [^ (self \\ Twopi) sin]. + self > Pi ifTrue: [^ (0.0 - (self - Pi) sin)]. + self > Halfpi ifTrue: [^ (Pi - self) sin]. + + "unroll loop to avoid use of abs" + sum := delta := self. + self2 := 0.0 - (self * self). + i := 2.0. + [delta > Epsilon] whileTrue: [ + "once" + delta := (delta * self2) / (i * (i + 1.0)). + i := i + 2.0. + sum := sum + delta. + "twice" + delta := (delta * self2) / (i * (i + 1.0)). + i := i + 2.0. + sum := sum + delta]. + ^ sum! Item was added: + ----- Method: Float>>primitiveSqrt (in category 'primitives') ----- + primitiveSqrt + "Answer the square root of the receiver. + Optional. See Object documentation whatIsAPrimitive." + | exp guess eps delta | + <primitive: 55> + #Numeric. + "Changed 200/01/19 For ANSI <number> support." + "Newton-Raphson" + self <= 0.0 + ifTrue: [self = 0.0 + ifTrue: [^ 0.0] + ifFalse: ["v Chg" + ^ FloatingPointException signal: 'undefined if less than zero.']]. + "first guess is half the exponent" + exp := self exponent // 2. + guess := self timesTwoPower: 0 - exp. + "get eps value" + eps := guess * Epsilon. + eps := eps * eps. + delta := self - (guess * guess) / (guess * 2.0). + [delta * delta > eps] + whileTrue: + [guess := guess + delta. + delta := self - (guess * guess) / (guess * 2.0)]. + ^ guess! Item was added: + ----- Method: Float>>primitiveTimesTwoPower: (in category 'primitives') ----- + primitiveTimesTwoPower: anInteger + "Primitive. Answer with the receiver multiplied by 2.0 raised + to the power of the argument. + Optional. See Object documentation whatIsAPrimitive." + + <primitive: 54> + + anInteger < -29 ifTrue: [^ self * (2.0 raisedToInteger: anInteger)]. + anInteger < 0 ifTrue: [^ self / (1 bitShift: (0 - anInteger)) asFloat]. + anInteger < 30 ifTrue: [^ self * (1 bitShift: anInteger) asFloat]. + ^ self * (2.0 raisedToInteger: anInteger)! Item was changed: ----- Method: Float>>sin (in category 'mathematical functions') ----- sin "Answer the sine of the receiver taken as an angle in radians. Optional. See Object documentation whatIsAPrimitive." + <primitive: 'primitiveSin' module: 'FloatMathPlugin'> + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. + self isInfinite ifTrue:[^self error: 'sin is undefined for Infinity']. + ^self primitiveSin! - - | sum delta self2 i | - <primitive: 56> - - "Taylor series" - "normalize to the range [0..Pi/2]" - self < 0.0 ifTrue: [^ (0.0 - ((0.0 - self) sin))]. - self > Twopi ifTrue: [^ (self \\ Twopi) sin]. - self > Pi ifTrue: [^ (0.0 - (self - Pi) sin)]. - self > Halfpi ifTrue: [^ (Pi - self) sin]. - - "unroll loop to avoid use of abs" - sum := delta := self. - self2 := 0.0 - (self * self). - i := 2.0. - [delta > Epsilon] whileTrue: [ - "once" - delta := (delta * self2) / (i * (i + 1.0)). - i := i + 2.0. - sum := sum + delta. - "twice" - delta := (delta * self2) / (i * (i + 1.0)). - i := i + 2.0. - sum := sum + delta]. - ^ sum! Item was added: + ----- Method: Float>>sinH (in category 'mathematical functions') ----- + sinH + <primitive: 'primitiveSinH' module: 'FloatMathPlugin'> + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. + ^self primitiveFailed! Item was changed: ----- Method: Float>>sqrt (in category 'mathematical functions') ----- sqrt "Answer the square root of the receiver. Optional. See Object documentation whatIsAPrimitive." + + "ar 3/26/2006: sqrt is the ONE primitive that we really don't want to use from FloatMathPlugin - it's several times slower and we use it often enough that this can make a noticable difference" + + <primitive: 55> "instead of: <primitive: 'primitiveSqrt' module: 'FloatMathPlugin'>" + ^self primitiveSqrt! - | exp guess eps delta | - <primitive: 55> - #Numeric. - "Changed 200/01/19 For ANSI <number> support." - "Newton-Raphson" - self <= 0.0 - ifTrue: [self = 0.0 - ifTrue: [^ 0.0] - ifFalse: ["v Chg" - ^ FloatingPointException signal: 'undefined if less than zero.']]. - "first guess is half the exponent" - exp := self exponent // 2. - guess := self timesTwoPower: 0 - exp. - "get eps value" - eps := guess * Epsilon. - eps := eps * eps. - delta := self - (guess * guess) / (guess * 2.0). - [delta * delta > eps] - whileTrue: - [guess := guess + delta. - delta := self - (guess * guess) / (guess * 2.0)]. - ^ guess! Item was changed: ----- Method: Float>>tan (in category 'mathematical functions') ----- tan "Answer the tangent of the receiver taken as an angle in radians." + <primitive: 'primitiveTan' module: 'FloatMathPlugin'> + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. - ^ self sin / self cos! Item was added: + ----- Method: Float>>tanH (in category 'mathematical functions') ----- + tanH + <primitive: 'primitiveTanH' module: 'FloatMathPlugin'> + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. + ^self primitiveFailed! Item was changed: ----- Method: Float>>timesTwoPower: (in category 'mathematical functions') ----- timesTwoPower: anInteger "Primitive. Answer with the receiver multiplied by 2.0 raised to the power of the argument. Optional. See Object documentation whatIsAPrimitive." + <primitive: 'primitiveTimesTwoPower' module: 'FloatMathPlugin'> + self isNaN ifTrue:[SignalNaN ifTrue:[NaNError signal]. ^self]. + ^self primitiveTimesTwoPower: anInteger! - - <primitive: 54> - - anInteger < -29 ifTrue: [^ self * (2.0 raisedToInteger: anInteger)]. - anInteger < 0 ifTrue: [^ self / (1 bitShift: (0 - anInteger)) asFloat]. - anInteger < 30 ifTrue: [^ self * (1 bitShift: anInteger) asFloat]. - ^ self * (2.0 raisedToInteger: anInteger)! Item was added: + ----- Method: Number>>hypot: (in category 'mathematical functions') ----- + hypot: arg + "hypot(x,y) returns sqrt(x^2+y^2) with error less than 1 ulps" + ^self asFloat hypot: arg asFloat!

1 0

[4.2] - VM <-> image release coordination
by Chris Muller 04 Jan '11

04 Jan '11

Levente wrote: > I think we should wait for the new VMs, before releasing the new images. Hi Levente, I did agree, but now that Eliot is on a tear with a new code generator, the first official release might still be some weeks away. Someone please correct me if that is a misstatement. It seems unlikely 4.2 will be incompatible with whatever ends up being the first official Cog release. We should consider pushing it out the door so we can re-open the trunk to new featurey. - Chris

5 12

Proper Smalltalk lots of classes
by Jimmie Houchin 04 Jan '11

04 Jan '11

Hello, I am porting the FIX protocol to Squeak/Pharo. http://www.fixprotocol.org/ It is the Financial Information eXchange protocol. It is used by many firms in the financial industries, stocks, forex, etc. There is good documentation and also a semi-reference implementation in Java. http://www.quickfixj.org I have a partial port started but I wanted a check with those who know more than I about proper Smalltalk coding. In the Java implementation there are over 2000 classes. In the protocol there are approximately 90 message types and 956 field types. I am initially creating the message classes as they form the basis of the protocol and the fields are simply instance variables and methods in the message classes. I am not porting the Java library. I am implementing the protocol in Smalltalk from the documentation. Initially I have created a Fix44Field class with its necessary variables. There are several versions of the Protocol and FIX 4.4 is the one required for my application. With this Fix44Field class I am creating a Dictionary with the 956 different field types. I am planning on creating a constructor method which will create the desired field from the information in the dictionary about the field and its properties. Am I way off base here? Should I really create the 956 classes necessary to for each field in addition to the 90 or so message classes, and then I don't know what else I haven't discovered yet. Having 1000+ classes just seems unwieldy and naively it just doesn't feel like the Smalltalk way. I could be wrong, but I haven't seen such an example to my memory. I don't know enough about Java to know if it is good Java form either. When I have a reasonably fleshed out, tested and working solution, I will make the source available under a MIT license. I would love to see Squeak/Pharo become an out of the box viable option for trading applications. Advise and wisdom greatly appreciated. Thanks. Jimmie

6 12

History of #inject:into: and #do:separatedBy:
by Louis LaBrunda 04 Jan '11

04 Jan '11

Hi, Does anyone know anything about the history of #inject:into: and/or #do:separatedBy:? I would like to know when they first appeared in Smalltalk. Were they present from the beginning? I ask because I get into conversations with my two sons about the pros and cons of programming languages. My oldest son, knows (some) and likes Smalltalk but programs in C++ and Java for Google. My younger son is learning Java. I help him with some of his homework (I don't know Java but I can still help) and when doing so, try to point out how things might be done in Smalltalk. Don't get me wrong, I want him to learn Java but would also like to let him know that there are other languages out there. I think #inject:into: and #do:separatedBy: are good examples of how things can be added to Smalltalk after the syntax of the language has been defined because Smalltalk has so little syntax (and because blocks of code are objects). I think adding something like these to Java would probably require modifying the Java compiler and maybe the VM. Another example might be #injectWithIndex:into:. I don't know if a method like that is all that valuable but if I needed it, I could add it without much trouble. Thanks in advance for anything anyone can tell me. Lou ----------------------------------------------------------- Louis LaBrunda Keystone Software Corp. SkypeMe callto://PhotonDemon mailto:Lou@Keystone-Software.com http://www.Keystone-Software.com

2 2

Jump to page: