From 10b60f63550a68da19eeb861911af5ef8f003201 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Tue, 18 Nov 2025 13:24:55 +0100 Subject: [PATCH] sources migrated --- repository/.filetree | 5 - repository/.properties | 4 +- repository/BaselineOfGrease.package/.filetree | 5 - .../BaselineOfGrease.class/README.md | 0 .../instance/baseline..st | 8 - .../instance/baselineCommon..st | 18 - .../instance/baselineGemStone..st | 137 -- .../instance/baselinePharo..st | 73 - .../instance/baselineSqueak..st | 23 - .../initializeLatin1ToUtf8Encodings.st | 4 - .../instance/projectClass.st | 4 - .../BaselineOfGrease.class/properties.json | 11 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../BaselineOfGrease.package/properties.json | 1 - .../BaselineOfGrease.class.st | 288 ++++ repository/BaselineOfGrease/package.st | 1 + repository/Grease-Core.package/.filetree | 5 - .../Character.extension/instance/print.on..st | 3 - .../Character.extension/properties.json | 3 - .../instance/greaseAsByteArray.st | 3 - .../Collection.extension/properties.json | 3 - .../GRBoundMessage.class/README.md | 7 - .../GRBoundMessage.class/class/selector..st | 3 - .../class/selector.arguments..st | 5 - .../instance/argumentCount.st | 3 - .../initializeWithSelector.arguments..st | 4 - .../instance/mergeArguments..st | 3 - .../GRBoundMessage.class/instance/printOn..st | 4 - .../GRBoundMessage.class/properties.json | 13 - .../GRCodec.class/README.md | 1 - .../GRCodec.class/class/allCodecs.st | 7 - .../GRCodec.class/class/basicForEncoding..st | 4 - .../GRCodec.class/class/codecs.st | 5 - .../GRCodec.class/class/forEncoding..st | 8 - .../GRCodec.class/class/supportsEncoding..st | 4 - .../class/unsupportedEncoding..st | 5 - .../GRCodec.class/instance/decode..st | 8 - .../GRCodec.class/instance/decoderFor..st | 5 - .../GRCodec.class/instance/encode..st | 7 - .../instance/encodedStringClass.st | 3 - .../GRCodec.class/instance/encoderFor..st | 5 - .../GRCodec.class/instance/name.st | 5 - .../GRCodec.class/instance/printOn..st | 4 - .../GRCodec.class/instance/url.st | 5 - .../GRCodec.class/properties.json | 11 - .../GRCodecStream.class/README.md | 1 - .../GRCodecStream.class/properties.json | 11 - .../GRCountingStream.class/README.md | 7 - .../GRCountingStream.class/instance/count.st | 3 - .../instance/greaseNext.putAll.startingAt..st | 4 - .../instance/initialize.st | 4 - .../GRCountingStream.class/instance/next..st | 3 - .../GRCountingStream.class/instance/next.st | 3 - .../instance/nextPut..st | 4 - .../instance/nextPutAll..st | 4 - .../GRCountingStream.class/instance/reset.st | 4 - .../GRCountingStream.class/properties.json | 13 - .../GRDelayedSend.class/README.md | 15 - .../GRDelayedSend.class/class/empty.st | 3 - .../GRDelayedSend.class/class/new.st | 3 - .../class/receiver.selector..st | 6 - .../class/receiver.selector.argument..st | 3 - .../class/receiver.selector.arguments..st | 6 - .../instance/argumentCount.st | 5 - .../initializeWithReceiver.message..st | 5 - .../GRDelayedSend.class/instance/printOn..st | 6 - .../GRDelayedSend.class/instance/value..st | 3 - .../GRDelayedSend.class/instance/value.st | 3 - .../instance/value.value..st | 3 - .../instance/valueWithArguments..st | 3 - .../instance/valueWithPossibleArguments..st | 3 - .../GRDelayedSend.class/properties.json | 14 - .../GRDelayedSendMessage.class/README.md | 1 - .../GRDelayedSendMessage.class/class/new.st | 3 - .../class/selector..st | 5 - .../instance/argumentCount.st | 5 - .../basicPerformFor.withArguments..st | 5 - .../instance/initializeWithSelector..st | 4 - .../instance/invalidArgumentCount.st | 3 - .../instance/mergeArguments..st | 3 - .../instance/printOn..st | 3 - .../instance/valueFor.withArguments..st | 6 - .../valueFor.withPossibleArguments..st | 11 - .../properties.json | 13 - .../GRDelegatingStream.class/README.md | 8 - .../GRDelegatingStream.class/class/on..st | 3 - .../instance/atEnd.st | 3 - .../instance/contents.st | 3 - .../GRDelegatingStream.class/instance/crlf.st | 3 - .../instance/flush.st | 3 - .../instance/greaseNext.putAll.startingAt..st | 3 - .../instance/initializeOn..st | 4 - .../instance/isStream.st | 3 - .../instance/next..st | 3 - .../GRDelegatingStream.class/instance/next.st | 3 - .../instance/nextPut..st | 3 - .../instance/nextPutAll..st | 3 - .../instance/position..st | 3 - .../instance/position.st | 3 - .../instance/print..st | 3 - .../instance/reset.st | 5 - .../GRDelegatingStream.class/instance/size.st | 3 - .../instance/space.st | 3 - .../GRDelegatingStream.class/instance/tab.st | 3 - .../GRDelegatingStream.class/properties.json | 13 - .../README.md | 3 - .../instance/details..st | 3 - .../instance/details.st | 3 - .../properties.json | 13 - .../GRError.class/README.md | 3 - .../GRError.class/properties.json | 11 - .../GRInflector.class/README.md | 1 - .../GRInflector.class/class/initialize.st | 4 - .../GRInflector.class/class/pluralize..st | 11 - .../GRInflector.class/properties.json | 14 - .../GRInvalidArgumentCount.class/README.md | 1 - .../properties.json | 11 - .../GRInvalidUtf8Error.class/README.md | 1 - .../GRInvalidUtf8Error.class/properties.json | 11 - .../GRMappedPrinter.class/README.md | 0 .../class/block.next..st | 6 - .../GRMappedPrinter.class/instance/block..st | 3 - .../instance/initialize.st | 4 - .../GRMappedPrinter.class/instance/next..st | 3 - .../instance/print.on..st | 3 - .../GRMappedPrinter.class/properties.json | 14 - .../GRNotification.class/README.md | 3 - .../GRNotification.class/properties.json | 11 - .../README.md | 3 - .../class/defaultValue.st | 3 - .../class/use.during..st | 5 - .../class/value.st | 5 - .../instance/defaultAction.st | 3 - .../properties.json | 11 - .../GRNullCodec.class/README.md | 1 - .../class/basicForEncoding..st | 3 - .../GRNullCodec.class/class/codecName.st | 3 - .../GRNullCodec.class/class/codecs.st | 3 - .../class/supportsEncoding..st | 3 - .../GRNullCodec.class/instance/decode..st | 5 - .../GRNullCodec.class/instance/decoderFor..st | 4 - .../GRNullCodec.class/instance/encode..st | 5 - .../GRNullCodec.class/instance/encoderFor..st | 4 - .../GRNullCodec.class/instance/name.st | 3 - .../GRNullCodec.class/instance/url.st | 5 - .../GRNullCodec.class/properties.json | 11 - .../GRNullCodecStream.class/README.md | 7 - .../GRNullCodecStream.class/instance/next..st | 3 - .../GRNullCodecStream.class/instance/next.st | 3 - .../instance/nextPut..st | 5 - .../instance/nextPutAll..st | 7 - .../GRNullCodecStream.class/properties.json | 11 - .../GRNumberPrinter.class/README.md | 12 - .../GRNumberPrinter.class/class/initialize.st | 4 - .../instance/accuracy..st | 5 - .../GRNumberPrinter.class/instance/base..st | 5 - .../instance/characters..st | 5 - .../instance/delimiter..st | 5 - .../GRNumberPrinter.class/instance/digits..st | 5 - .../instance/digitsOf.base..st | 14 - .../instance/infinite..st | 5 - .../instance/initialize.st | 10 - .../instance/lengthOf.base..st | 13 - .../instance/lowercase.st | 5 - .../GRNumberPrinter.class/instance/nan..st | 5 - .../instance/padLeft.to.on..st | 9 - .../instance/padding..st | 5 - .../instance/precision..st | 5 - .../instance/print.on..st | 9 - .../instance/printDigitsOf.withLength.on..st | 16 - .../instance/printFloat.on..st | 9 - .../instance/printFraction.on..st | 9 - .../instance/printInfinite.on..st | 4 - .../instance/printInteger.on..st | 9 - .../instance/printNaN.on..st | 4 - .../instance/separate.left.on..st | 10 - .../instance/separate.right..st | 12 - .../instance/separator..st | 5 - .../instance/uppercase.st | 5 - .../GRNumberPrinter.class/properties.json | 25 - .../GRObject.class/README.md | 3 - .../GRObject.class/class/defaultErrorClass.st | 3 - .../GRObject.class/class/error..st | 3 - .../GRObject.class/class/new.st | 3 - .../GRObject.class/instance/error..st | 3 - .../GRObject.class/instance/initialize.st | 2 - .../GRObject.class/properties.json | 11 - .../GROrderedMultiMap.class/README.md | 1 - .../GROrderedMultiMap.class/instance/add..st | 4 - .../instance/addAll..st | 6 - .../instance/allAt..st | 6 - .../instance/allAt.ifAbsent..st | 7 - .../instance/at.add..st | 6 - .../instance/keysAndAllValuesDo..st | 12 - .../instance/privateAllAt.startingAt..st | 6 - .../instance/removeKey.ifAbsent..st | 13 - .../GROrderedMultiMap.class/properties.json | 11 - .../GROrderedMultiMap2.class/README.md | 1 - .../GROrderedMultiMap2.class/instance/add..st | 4 - .../instance/addAll..st | 5 - .../instance/allAt..st | 3 - .../instance/allAt.ifAbsent..st | 7 - .../instance/at.add..st | 6 - .../instance/keysAndAllValuesDo..st | 12 - .../instance/privateAllAt.startingAt..st | 6 - .../instance/removeKey.ifAbsent..st | 13 - .../GROrderedMultiMap2.class/properties.json | 11 - .../GROrdinalizePrinter.class/README.md | 0 .../instance/ordinalize..st | 8 - .../instance/print.on..st | 3 - .../GROrdinalizePrinter.class/properties.json | 11 - .../GRPackage.class/README.md | 5 - .../GRPackage.class/class/grPackages.st | 12 - .../GRPackage.class/class/greaseCore.st | 7 - .../instance/addDependenciesTo..st | 7 - .../instance/addDependency..st | 3 - .../instance/allDependencies.st | 5 - .../GRPackage.class/instance/dependencies.st | 5 - .../GRPackage.class/instance/description..st | 3 - .../GRPackage.class/instance/description.st | 5 - .../GRPackage.class/instance/greaseUrl.st | 4 - .../GRPackage.class/instance/initialize.st | 5 - .../GRPackage.class/instance/isLGPL.st | 3 - .../GRPackage.class/instance/isMIT.st | 3 - .../GRPackage.class/instance/license..st | 3 - .../GRPackage.class/instance/license.st | 5 - .../GRPackage.class/instance/name..st | 3 - .../GRPackage.class/instance/name.st | 5 - .../GRPackage.class/instance/printOn..st | 4 - .../GRPackage.class/instance/resolveWith..st | 30 - .../instance/seasideAddonsUrl.st | 4 - .../instance/seasideLGPLUrl.st | 4 - .../GRPackage.class/instance/seasideUrl.st | 4 - .../GRPackage.class/instance/url..st | 5 - .../GRPackage.class/instance/url.st | 7 - .../GRPackage.class/properties.json | 17 - .../GRPlatform.class/README.md | 10 - .../GRPlatform.class/class/current..st | 3 - .../GRPlatform.class/class/current.st | 4 - .../GRPlatform.class/class/select.st | 3 - .../GRPlatform.class/class/unselect.st | 3 - .../instance/addToShutDownList..st | 4 - .../instance/addToStartUpList..st | 4 - .../asMethodReturningByteArray.named..st | 4 - .../asMethodReturningString.named..st | 21 - .../instance/base64Decode..st | 4 - .../instance/base64Encode..st | 4 - .../GRPlatform.class/instance/bindingOf..st | 15 - .../instance/compile.into.classified..st | 5 - .../instance/contentsOfFile.binary..st | 3 - .../instance/convertToSmalltalkNewlines..st | 21 - .../GRPlatform.class/instance/deleteFile..st | 3 - .../instance/deprecationExceptionSet.st | 4 - .../instance/directoriesIn..st | 5 - .../GRPlatform.class/instance/doSilently..st | 4 - .../instance/doTransaction..st | 7 - .../instance/ensureExistenceOfFolder..st | 4 - .../GRPlatform.class/instance/fileExists..st | 3 - .../instance/fileStreamOn.do.binary..st | 6 - .../GRPlatform.class/instance/filesIn..st | 5 - .../instance/integerAsByteArray..st | 3 - .../instance/isProcessTerminated..st | 5 - .../GRPlatform.class/instance/label.st | 5 - .../GRPlatform.class/instance/localNameOf..st | 8 - .../GRPlatform.class/instance/newRandom.st | 11 - .../instance/newTemporaryFile.st | 6 - .../instance/newTemporaryFileNamed..st | 6 - .../GRPlatform.class/instance/newline.st | 5 - .../instance/openDebuggerOn..st | 3 - .../instance/pathSeparator.st | 4 - .../instance/readFileStreamOn.do.binary..st | 3 - .../instance/readWriteByteStream.st | 7 - .../instance/readWriteCharacterStream.st | 7 - .../instance/reducedConflictDictionary.st | 4 - .../instance/removeFromShutDownList..st | 4 - .../instance/removeFromStartUpList..st | 4 - .../instance/removeSelector.from..st | 3 - .../instance/secureHashFor..st | 3 - .../instance/semaphoreClass.st | 4 - .../GRPlatform.class/instance/sizeOfFile..st | 4 - .../instance/sourceCodeStringOf..st | 5 - .../GRPlatform.class/instance/stackDepth.st | 3 - .../instance/supportsUnicode.st | 11 - .../instance/terminateProcess..st | 5 - .../GRPlatform.class/instance/thisContext.st | 8 - .../GRPlatform.class/instance/version.st | 6 - .../instance/versionString.st | 8 - .../instance/weakDictionaryOfSize..st | 3 - .../instance/write.toFile.inFolder..st | 4 - .../instance/writeCharacterStreamOn..st | 5 - .../instance/writeFileStreamOn.do.binary..st | 3 - .../GRPlatform.class/properties.json | 13 - .../GRPluggablePrinter.class/README.md | 0 .../GRPluggablePrinter.class/class/on..st | 3 - .../instance/block..st | 3 - .../instance/initialize.st | 4 - .../instance/print.on..st | 3 - .../GRPluggablePrinter.class/properties.json | 13 - .../GRPrinter.class/README.md | 0 .../class/abbreviatedMonthName.st | 3 - .../class/abbreviatedWeekName.st | 3 - .../class/absOffsetHoursPadded.st | 5 - .../class/absOffsetMinutesPadded.st | 5 - .../GRPrinter.class/class/binaryFileSize.st | 3 - .../GRPrinter.class/class/cookieTimestamp.st | 7 - .../GRPrinter.class/class/decimalFileSize.st | 3 - .../GRPrinter.class/class/fullMonthName.st | 3 - .../GRPrinter.class/class/fullWeekName.st | 3 - .../GRPrinter.class/class/httpDate.st | 5 - .../GRPrinter.class/class/isoDate.st | 5 - .../GRPrinter.class/class/isoTime.st | 5 - .../GRPrinter.class/class/monthName..st | 3 - .../class/numberWithAtLeastDigits..st | 6 - .../GRPrinter.class/class/offsetSign.st | 8 - .../GRPrinter.class/class/paddedCentury.st | 5 - .../GRPrinter.class/class/paddedDay.st | 5 - .../GRPrinter.class/class/paddedHour12.st | 5 - .../GRPrinter.class/class/paddedHour24.st | 5 - .../GRPrinter.class/class/paddedMinute.st | 5 - .../GRPrinter.class/class/paddedMonth.st | 5 - .../GRPrinter.class/class/paddedSecond.st | 7 - .../GRPrinter.class/class/paddedYear.st | 5 - .../GRPrinter.class/class/rfc1123.st | 10 - .../GRPrinter.class/class/rfc822.st | 6 - .../class/rfc822WithTimeZone..st | 6 - .../GRPrinter.class/class/swissCurrency.st | 7 - .../GRPrinter.class/class/unpaddedCentury.st | 5 - .../GRPrinter.class/class/unpaddedDay.st | 5 - .../GRPrinter.class/class/unpaddedHour12.st | 5 - .../GRPrinter.class/class/unpaddedHour24.st | 5 - .../GRPrinter.class/class/unpaddedMinute.st | 5 - .../GRPrinter.class/class/unpaddedMonth.st | 5 - .../GRPrinter.class/class/unpaddedSecond.st | 5 - .../GRPrinter.class/class/unpaddedYear.st | 5 - .../GRPrinter.class/class/usCurrency.st | 6 - .../GRPrinter.class/class/weekName..st | 3 - .../GRPrinter.class/instance/^comma.st | 3 - .../instance/pad.center.to..st | 15 - .../GRPrinter.class/instance/pad.left.to..st | 14 - .../GRPrinter.class/instance/pad.right.to..st | 14 - .../GRPrinter.class/instance/print..st | 3 - .../GRPrinter.class/instance/print.on..st | 3 - .../GRPrinter.class/properties.json | 11 - .../GRSequentialPrinter.class/README.md | 0 .../instance/^comma.st | 3 - .../instance/initialize.st | 4 - .../instance/print.on..st | 3 - .../GRSequentialPrinter.class/properties.json | 13 - .../GRSignPrinter.class/README.md | 0 .../instance/initialize.st | 5 - .../instance/negativePrinter..st | 5 - .../instance/positivePrinter..st | 5 - .../GRSignPrinter.class/instance/print.on..st | 5 - .../GRSignPrinter.class/properties.json | 14 - .../GRSmallDictionary.class/README.md | 1 - .../GRSmallDictionary.class/class/new..st | 3 - .../GRSmallDictionary.class/class/new.st | 3 - .../GRSmallDictionary.class/class/withAll..st | 5 - .../GRSmallDictionary.class/instance/add..st | 4 - .../instance/addAll..st | 4 - .../GRSmallDictionary.class/instance/any.st | 5 - .../instance/associations.st | 8 - .../instance/associationsDo..st | 3 - .../GRSmallDictionary.class/instance/at..st | 5 - .../instance/at.ifAbsent..st | 9 - .../instance/at.ifAbsentPut..st | 9 - .../instance/at.ifPresent..st | 7 - .../instance/at.put..st | 9 - .../GRSmallDictionary.class/instance/do..st | 3 - .../instance/errorEmptyCollection.st | 3 - .../instance/errorKeyNotFound.st | 3 - .../instance/findIndexFor..st | 6 - .../GRSmallDictionary.class/instance/grow.st | 10 - .../instance/includesKey..st | 5 - .../instance/initialize..st | 6 - .../instance/isCollection.st | 3 - .../instance/isEmpty.st | 3 - .../GRSmallDictionary.class/instance/keys.st | 3 - .../instance/keysAndValuesDo..st | 3 - .../instance/keysDo..st | 3 - .../instance/noneSatisfy..st | 5 - .../instance/notEmpty.st | 3 - .../instance/postCopy.st | 5 - .../instance/printOn..st | 23 - .../instance/privateAt.put..st | 5 - .../instance/removeIndex..st | 12 - .../instance/removeKey..st | 5 - .../instance/removeKey.ifAbsent..st | 8 - .../GRSmallDictionary.class/instance/size.st | 3 - .../instance/sorted..st | 3 - .../instance/sorted.st | 3 - .../instance/values.st | 3 - .../GRSmallDictionary.class/properties.json | 15 - .../GRSmallDictionary2.class/README.md | 1 - .../GRSmallDictionary2.class/class/new..st | 3 - .../GRSmallDictionary2.class/class/new.st | 3 - .../class/withAll..st | 5 - .../GRSmallDictionary2.class/instance/add..st | 4 - .../instance/addAll..st | 4 - .../GRSmallDictionary2.class/instance/any.st | 5 - .../instance/associations.st | 8 - .../instance/associationsDo..st | 3 - .../GRSmallDictionary2.class/instance/at..st | 5 - .../instance/at.ifAbsent..st | 9 - .../instance/at.ifAbsentPut..st | 9 - .../instance/at.ifPresent..st | 7 - .../instance/at.put..st | 9 - .../GRSmallDictionary2.class/instance/do..st | 4 - .../instance/errorEmptyCollection.st | 3 - .../instance/errorKeyNotFound.st | 3 - .../instance/findIndexFor..st | 6 - .../GRSmallDictionary2.class/instance/grow.st | 8 - .../instance/includesKey..st | 5 - .../instance/initialize..st | 5 - .../instance/isCollection.st | 3 - .../instance/isEmpty.st | 3 - .../GRSmallDictionary2.class/instance/keys.st | 10 - .../instance/keysAndValuesDo..st | 6 - .../instance/keysDo..st | 4 - .../instance/noneSatisfy..st | 6 - .../instance/notEmpty.st | 3 - .../instance/postCopy.st | 4 - .../instance/printOn..st | 23 - .../instance/privateAt.put..st | 7 - .../instance/removeIndex..st | 10 - .../instance/removeKey..st | 5 - .../instance/removeKey.ifAbsent..st | 8 - .../GRSmallDictionary2.class/instance/size.st | 3 - .../instance/sorted..st | 3 - .../instance/sorted.st | 3 - .../instance/values.st | 10 - .../GRSmallDictionary2.class/properties.json | 14 - .../GRSmallOrderedSet.class/README.md | 1 - .../GRSmallOrderedSet.class/class/new..st | 3 - .../GRSmallOrderedSet.class/class/new.st | 3 - .../GRSmallOrderedSet.class/class/withAll..st | 5 - .../GRSmallOrderedSet.class/instance/add..st | 5 - .../instance/addAll..st | 5 - .../GRSmallOrderedSet.class/instance/do..st | 4 - .../instance/do.separatedBy..st | 5 - .../instance/errorNotFound.st | 3 - .../instance/findIndexFor..st | 6 - .../GRSmallOrderedSet.class/instance/grow.st | 8 - .../instance/includes..st | 3 - .../instance/initialize..st | 5 - .../instance/isCollection.st | 3 - .../instance/isEmpty.st | 3 - .../instance/postCopy.st | 4 - .../instance/privateAdd..st | 4 - .../instance/remove..st | 3 - .../instance/remove.ifAbsent..st | 8 - .../instance/removeIndex..st | 6 - .../GRSmallOrderedSet.class/instance/size.st | 3 - .../GRSmallOrderedSet.class/properties.json | 14 - .../GRStringPrinter.class/README.md | 0 .../instance/character..st | 5 - .../instance/initialize.st | 5 - .../GRStringPrinter.class/instance/length..st | 5 - .../instance/padCenter.st | 5 - .../GRStringPrinter.class/instance/padLeft.st | 5 - .../GRStringPrinter.class/instance/padNone.st | 5 - .../instance/padRight.st | 5 - .../instance/print.on..st | 12 - .../instance/trimBoth.st | 5 - .../instance/trimLeft.st | 5 - .../instance/trimNone.st | 5 - .../instance/trimRight.st | 5 - .../GRStringPrinter.class/properties.json | 16 - .../GRUnboundMessage.class/README.md | 1 - .../instance/argumentCount.st | 3 - .../instance/mergeArguments..st | 3 - .../GRUnboundMessage.class/properties.json | 11 - .../GRUnitPrinter.class/README.md | 0 .../GRUnitPrinter.class/class/base.units..st | 6 - .../GRUnitPrinter.class/instance/base..st | 3 - .../instance/fractionPrinter..st | 3 - .../instance/initialize.st | 9 - .../instance/integerPrinter..st | 3 - .../GRUnitPrinter.class/instance/print.on..st | 10 - .../instance/print.unit.on..st | 6 - .../GRUnitPrinter.class/instance/units..st | 3 - .../GRUnitPrinter.class/properties.json | 16 - .../README.md | 0 .../properties.json | 11 - .../GRVersion.class/README.md | 1 - .../GRVersion.class/class/major..st | 3 - .../GRVersion.class/class/major.minor..st | 3 - .../class/major.minor.revision..st | 5 - .../GRVersion.class/class/new.st | 3 - .../GRVersion.class/instance/^equals.st | 7 - .../GRVersion.class/instance/^less.equals.st | 3 - .../GRVersion.class/instance/^less.st | 13 - .../GRVersion.class/instance/^more.equals.st | 3 - .../GRVersion.class/instance/^more.st | 3 - .../GRVersion.class/instance/beAlpha..st | 3 - .../GRVersion.class/instance/beAlpha.st | 3 - .../GRVersion.class/instance/beBeta..st | 3 - .../GRVersion.class/instance/beBeta.st | 3 - .../GRVersion.class/instance/beFinal.st | 3 - .../instance/beReleaseCandidate..st | 3 - .../instance/beReleaseCandidate.st | 3 - .../GRVersion.class/instance/greaseString.st | 12 - .../GRVersion.class/instance/hash.st | 5 - .../initializeWithMajor.minor.revision..st | 6 - .../GRVersion.class/instance/isAlpha.st | 3 - .../GRVersion.class/instance/isBeta.st | 3 - .../GRVersion.class/instance/isFinal.st | 3 - .../instance/isReleaseCandidate.st | 3 - .../GRVersion.class/instance/major..st | 3 - .../GRVersion.class/instance/major.st | 3 - .../GRVersion.class/instance/minor..st | 3 - .../GRVersion.class/instance/minor.st | 3 - .../GRVersion.class/instance/revision..st | 3 - .../GRVersion.class/instance/revision.st | 3 - .../GRVersion.class/instance/stage.number..st | 4 - .../GRVersion.class/instance/stage.st | 3 - .../GRVersion.class/instance/stageNumber.st | 3 - .../GRVersion.class/properties.json | 17 - .../instance/greaseAsByteArray.st | 3 - .../instance/greaseByteAt..st | 3 - .../instance/greaseBytesCount.st | 3 - .../instance/greaseInteger.st | 3 - .../Integer.extension/instance/pluralize..st | 5 - .../instance/pluralize.with..st | 3 - .../Integer.extension/properties.json | 3 - .../instance/greaseInteger.st | 4 - .../Number.extension/properties.json | 3 - .../instance/greaseDeprecatedApi.details..st | 5 - .../Object.extension/properties.json | 3 - .../String.extension/instance/excerpt..st | 5 - .../instance/excerpt.radius..st | 5 - .../instance/excerpt.radius.ellipsis..st | 12 - .../instance/greaseInteger.st | 26 - .../String.extension/instance/pluralize.st | 3 - .../String.extension/instance/print.on..st | 3 - .../String.extension/instance/truncate..st | 5 - .../instance/truncate.ellipsis..st | 7 - .../String.extension/instance/truncate.st | 5 - .../String.extension/properties.json | 3 - .../instance/print.on..st | 2 - .../UndefinedObject.extension/properties.json | 3 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../Grease-Core.package/properties.json | 1 - repository/Grease-Core/Character.extension.st | 6 + .../Grease-Core/Collection.extension.st | 6 + .../Grease-Core/GRBoundMessage.class.st | 54 + repository/Grease-Core/GRCodec.class.st | 113 ++ repository/Grease-Core/GRCodecStream.class.st | 10 + .../Grease-Core/GRCountingStream.class.st | 63 + repository/Grease-Core/GRDelayedSend.class.st | 107 ++ .../Grease-Core/GRDelayedSendMessage.class.st | 81 ++ .../Grease-Core/GRDelegatingStream.class.st | 119 ++ .../GRDeprecatedApiNotification.class.st | 25 + repository/Grease-Core/GRError.class.st | 12 + repository/Grease-Core/GRInflector.class.st | 33 + .../GRInvalidArgumentCount.class.st | 10 + .../Grease-Core/GRInvalidUtf8Error.class.st | 11 + .../Grease-Core/GRMappedPrinter.class.st | 40 + .../Grease-Core/GRNotification.class.st | 12 + ...RNotificationBasedDynamicVariable.class.st | 36 + repository/Grease-Core/GRNullCodec.class.st | 68 + .../Grease-Core/GRNullCodecStream.class.st | 43 + .../Grease-Core/GRNumberPrinter.class.st | 281 ++++ repository/Grease-Core/GRObject.class.st | 35 + .../Grease-Core/GROrderedMultiMap.class.st | 85 ++ .../Grease-Core/GROrderedMultiMap2.class.st | 82 ++ .../Grease-Core/GROrdinalizePrinter.class.st | 22 + repository/Grease-Core/GRPackage.class.st | 202 +++ repository/Grease-Core/GRPlatform.class.st | 428 ++++++ .../Grease-Core/GRPluggablePrinter.class.st | 31 + repository/Grease-Core/GRPrinter.class.st | 332 +++++ .../Grease-Core/GRSequentialPrinter.class.st | 26 + repository/Grease-Core/GRSignPrinter.class.st | 39 + .../Grease-Core/GRSmallDictionary.class.st | 292 ++++ .../Grease-Core/GRSmallDictionary2.class.st | 307 ++++ .../Grease-Core/GRSmallOrderedSet.class.st | 143 ++ .../Grease-Core/GRStringPrinter.class.st | 104 ++ .../Grease-Core/GRUnboundMessage.class.st | 20 + repository/Grease-Core/GRUnitPrinter.class.st | 72 + .../GRUnsupportedEncodingError.class.st | 7 + repository/Grease-Core/GRVersion.class.st | 207 +++ repository/Grease-Core/Integer.extension.st | 33 + repository/Grease-Core/Number.extension.st | 7 + repository/Grease-Core/Object.extension.st | 8 + repository/Grease-Core/String.extension.st | 90 ++ .../Grease-Core/UndefinedObject.extension.st | 5 + repository/Grease-Core/package.st | 1 + .../Grease-GemStone-Core.package/.filetree | 4 - .../Array.extension/instance/beMutable.st | 5 - .../Array.extension/properties.json | 2 - .../Behavior.extension/instance/fullName.st | 4 - .../instance/removeSelectorSilently..st | 4 - .../Behavior.extension/properties.json | 2 - .../instance/greaseString.st | 7 - .../BinaryFloat.extension/properties.json | 2 - .../instance/greaseString.st | 4 - .../ByteArray.extension/properties.json | 2 - .../instance/greaseInteger.st | 4 - .../Character.extension/properties.json | 2 - .../instance/excerpt..st | 5 - .../instance/excerpt.radius..st | 5 - .../instance/excerpt.radius.ellipsis..st | 12 - .../instance/greaseInteger.st | 14 - .../instance/pluralize.st | 3 - .../instance/print.on..st | 3 - .../instance/substrings..st | 4 - .../instance/trimBoth..st | 5 - .../instance/trimBoth.st | 5 - .../instance/trimLeft..st | 5 - .../instance/trimLeft.right..st | 12 - .../instance/trimLeft.st | 5 - .../instance/trimRight..st | 5 - .../instance/trimRight.st | 5 - .../instance/truncate..st | 5 - .../instance/truncate.ellipsis..st | 7 - .../instance/truncate.st | 5 - .../properties.json | 2 - .../Collection.extension/instance/any.st | 4 - .../Collection.extension/instance/sorted..st | 4 - .../Collection.extension/instance/sorted.st | 4 - .../Collection.extension/properties.json | 2 - .../class/daysInMonthNumber.forYear..st | 4 - .../Date.extension/properties.json | 2 - .../instance/copyFrom..st | 10 - .../Dictionary.extension/properties.json | 2 - .../instance/greaseString.st | 4 - .../properties.json | 2 - .../Duration.extension/class/milliseconds..st | 4 - .../instance/asMilliseconds.st | 4 - .../instance/milliseconds.st | 4 - .../Duration.extension/properties.json | 2 - .../Exception.extension/class/raiseSignal..st | 3 - .../Exception.extension/class/raiseSignal.st | 3 - .../instance/raiseSignal..st | 3 - .../instance/raiseSignal.st | 3 - .../Exception.extension/properties.json | 2 - .../GRDynamicVariable.class/README.md | 0 .../GRDynamicVariable.class/class/default.st | 3 - .../class/defaultValue.st | 3 - .../class/use.during..st | 18 - .../GRDynamicVariable.class/class/value.st | 5 - .../GRDynamicVariable.class/properties.json | 14 - .../GRGemStonePlatform.class/README.md | 0 .../class/initialize.st | 4 - .../GRGemStonePlatform.class/class/unload.st | 3 - .../instance/addToShutDownList..st | 3 - .../instance/addToStartUpList..st | 3 - .../asMethodReturningByteArray.named..st | 13 - .../asMethodReturningString.named..st | 11 - .../instance/base64Decode..st | 3 - .../instance/base64Encode..st | 3 - .../instance/compile.into.classified..st | 10 - .../instance/contentsOfFile.binary..st | 3 - .../instance/defaultDispatcherName.st | 3 - .../instance/deleteFile..st | 4 - .../instance/deprecationExceptionSet.st | 3 - .../instance/directoriesIn..st | 9 - .../instance/doAbortTransaction.st | 4 - .../instance/doBeginTransaction.st | 4 - .../instance/doCommitTransaction.st | 5 - .../instance/doTransaction..st | 26 - .../instance/ensureExistenceOfFolder..st | 4 - .../instance/fileExists..st | 3 - .../instance/filesIn..st | 9 - .../instance/isProcessTerminated..st | 4 - .../instance/label.st | 4 - .../instance/localNameOf..st | 3 - .../instance/logError.title..st | 4 - .../instance/logError.title.shouldCommit..st | 15 - .../instance/newRandom.st | 11 - .../instance/newTemporaryFile.st | 4 - .../instance/newTemporaryFileNamed..st | 7 - .../instance/newline.st | 4 - .../instance/openDebuggerOn..st | 4 - .../instance/pathSeparator.st | 3 - .../instance/readFileStreamOn.do.binary..st | 13 - .../instance/readWriteByteStream.st | 3 - .../instance/readWriteCharacterStream.st | 3 - .../instance/reducedConflictDictionary.st | 4 - .../instance/removeFromShutDownList..st | 3 - .../instance/removeFromStartUpList..st | 3 - .../instance/removeSelector.from..st | 3 - .../instance/saveLogEntry.shouldCommit..st | 13 - .../instance/secureHashFor..st | 4 - .../instance/semaphoreClass.st | 4 - .../instance/sizeOfFile..st | 4 - .../instance/smtpServer.st | 4 - .../instance/sourceCodeStringOf..st | 5 - .../instance/stackDepth.st | 8 - .../instance/terminateProcess..st | 4 - .../instance/thisContext.st | 3 - .../instance/transactionMutex.st | 7 - .../instance/weakDictionaryOfSize..st | 3 - .../instance/write.toFile.inFolder..st | 13 - .../instance/writeCharacterStreamOn..st | 5 - .../instance/writeFileStreamOn.do.binary..st | 9 - .../GRGemStonePlatform.class/properties.json | 14 - .../GRGemStoneRandomProvider.class/README.md | 0 .../class/generator.st | 9 - .../class/initialize.st | 5 - .../class/mutex.st | 9 - .../class/nextInt..st | 5 - .../class/randomClass.st | 14 - .../class/randomFrom..st | 11 - .../class/sessionStart.st | 4 - .../properties.json | 14 - .../GRLatin1GemStoneCodec.class/README.md | 0 .../class/basicForEncoding..st | 8 - .../class/codecs.st | 3 - .../class/supportsEncoding..st | 5 - .../instance/decode..st | 3 - .../instance/encode..st | 3 - .../instance/encodeUrl..st | 3 - .../instance/encoderFor..st | 4 - .../instance/name..st | 4 - .../instance/name.st | 3 - .../instance/url.st | 4 - .../properties.json | 14 - .../class/greaseGemStoneCore.st | 8 - .../instance/gemstoneUrl.st | 3 - .../GRPackage.extension/properties.json | 2 - .../GRTextOrBinaryCodecStream.class/README.md | 0 .../instance/binary.st | 4 - .../instance/contents.st | 3 - .../instance/flush.st | 3 - .../instance/initializeOn..st | 4 - .../instance/next..st | 8 - .../instance/next.st | 3 - .../instance/nextPut..st | 3 - .../instance/nextPutAll..st | 5 - .../instance/size.st | 3 - .../instance/text.st | 4 - .../properties.json | 14 - .../GRUtf8GemStoneCodec.class/README.md | 0 .../class/basicForEncoding..st | 6 - .../GRUtf8GemStoneCodec.class/class/codecs.st | 3 - .../class/supportsEncoding..st | 5 - .../instance/decode..st | 4 - .../instance/decoderFor..st | 4 - .../instance/encode..st | 4 - .../instance/encodeUrl..st | 4 - .../instance/encoderFor..st | 4 - .../instance/initialize.st | 5 - .../instance/name.st | 3 - .../GRUtf8GemStoneCodec.class/instance/url.st | 4 - .../GRUtf8GemStoneCodec.class/properties.json | 14 - .../GsContext.class/README.md | 0 .../class/fromContinuation.atLevel..st | 4 - .../GsContext.class/class/fromLevel..st | 4 - .../GsContext.class/instance/^equals.st | 4 - .../GsContext.class/instance/asString.st | 4 - .../instance/continuation.level..st | 8 - .../instance/fullPrintString.st | 5 - .../GsContext.class/instance/greaseString.st | 4 - .../GsContext.class/instance/method.st | 4 - .../GsContext.class/instance/namedTempAt..st | 3 - .../GsContext.class/instance/receiver.st | 4 - .../GsContext.class/instance/sender.st | 5 - .../GsContext.class/instance/tempAt..st | 7 - .../GsContext.class/instance/tempNamed..st | 7 - .../GsContext.class/instance/tempNames.st | 3 - .../GsContext.class/properties.json | 19 - .../Interval.extension/instance/any.st | 4 - .../Interval.extension/properties.json | 2 - .../instance/greaseByteAt..st | 4 - .../instance/greaseBytesCount.st | 4 - .../LargeInteger.extension/properties.json | 2 - .../instance/argumentCount.st | 4 - .../instance/evaluateWithArguments..st | 3 - .../MessageSend.extension/instance/value..st | 4 - .../instance/value.value..st | 4 - .../instance/valueWithPossibleArgument..st | 13 - .../instance/valueWithPossibleArguments..st | 14 - .../MessageSend.extension/properties.json | 2 - .../Number.extension/instance/milliseconds.st | 4 - .../Number.extension/properties.json | 2 - .../instance/displayString.st | 6 - .../Object.extension/instance/greaseString.st | 3 - .../instance/isMessageSend.st | 4 - .../Object.extension/properties.json | 2 - .../instance/versionString.st | 7 - .../PackageInfo.extension/properties.json | 2 - .../instance/greaseUpToAll..st | 9 - .../properties.json | 2 - .../instance/beginsWithSubCollection..st | 6 - .../instance/endsWithSubCollection..st | 5 - .../instance/greaseBeginsWith..st | 5 - .../instance/greaseEndsWith..st | 5 - .../properties.json | 2 - .../instance/greaseByteAt..st | 4 - .../instance/greaseBytesCount.st | 4 - .../SmallInteger.extension/properties.json | 2 - .../String.extension/class/fromString..st | 4 - .../String.extension/properties.json | 2 - .../instance/greaseAsMutator.st | 3 - .../Symbol.extension/properties.json | 2 - .../SystemAbortTransaction.class/README.md | 0 .../instance/alternatives.st | 4 - .../instance/defaultAction.st | 4 - .../instance/transaction.st | 4 - .../properties.json | 14 - .../SystemBeginTransaction.class/README.md | 0 .../instance/alternatives.st | 4 - .../instance/defaultAction.st | 4 - .../instance/transaction.st | 4 - .../properties.json | 14 - .../SystemCommitTransaction.class/README.md | 0 .../instance/alternatives.st | 4 - .../instance/defaultAction.st | 4 - .../instance/transaction.st | 4 - .../properties.json | 14 - .../README.md | 0 .../instance/alternatives.st | 4 - .../instance/transaction.st | 4 - .../properties.json | 14 - .../instance/copyFrom..st | 8 - .../properties.json | 2 - .../WriteStream.extension/instance/crlf.st | 7 - .../instance/greaseNext.putAll.startingAt..st | 7 - .../WriteStream.extension/properties.json | 2 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 2 - .../Grease-GemStone-Core/Array.extension.st | 8 + .../Behavior.extension.st | 13 + .../BinaryFloat.extension.st | 10 + .../ByteArray.extension.st | 7 + .../Character.extension.st | 7 + .../CharacterCollection.extension.st | 140 ++ .../Collection.extension.st | 19 + .../Grease-GemStone-Core/Date.extension.st | 7 + .../Dictionary.extension.st | 13 + .../DoubleByteString.extension.st | 7 + .../Duration.extension.st | 19 + .../Exception.extension.st | 21 + .../GRDynamicVariable.class.st | 43 + .../GRGemStonePlatform.class.st | 429 ++++++ .../GRGemStonePlatform.extension.st | 34 + .../GRGemStoneRandomProvider.class.st | 77 + .../GRLatin1GemStoneCodec.class.st | 69 + .../GRPackage.extension.st | 16 + .../GRTextOrBinaryCodecStream.class.st | 69 + .../GRUtf8GemStoneCodec.class.st | 77 + .../Grease-GemStone-Core/GsContext.class.st | 108 ++ .../Interval.extension.st | 7 + .../LargeInteger.extension.st | 13 + .../MessageSend.extension.st | 55 + .../Grease-GemStone-Core/Number.extension.st | 7 + .../Grease-GemStone-Core/Object.extension.st | 20 + .../PackageInfo.extension.st | 10 + .../PositionableStream.extension.st | 12 + .../SequenceableCollection.extension.st | 30 + .../SmallInteger.extension.st | 13 + .../Grease-GemStone-Core/String.extension.st | 7 + .../Grease-GemStone-Core/Symbol.extension.st | 6 + .../SystemAbortTransaction.class.st | 24 + .../SystemBeginTransaction.class.st | 24 + .../SystemCommitTransaction.class.st | 24 + .../SystemTransactionNotification.class.st | 18 + .../UnorderedCollection.extension.st | 11 + .../WriteStream.extension.st | 19 + repository/Grease-GemStone-Core/package.st | 1 + .../.filetree | 4 - .../instance/greaseUpToAll..st | 6 - .../properties.json | 2 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 2 - .../ReadByteStreamPortable.extension.st | 9 + .../Grease-GemStone-Kernelv370/package.st | 1 + .../Grease-GemStone200-Core.package/.filetree | 4 - .../instance/gemstoneExceptionSelector.st | 4 - .../instance/generateHardBreak.st | 8 - .../handlesAlmostOutOfStackException..st | 4 - .../instance/handlesBreakpointException..st | 4 - .../instance/handlesHaltException..st | 4 - .../properties.json | 2 - .../GRUtf8CodecStream.class/README.md | 0 .../GRUtf8CodecStream.class/instance/crlf.st | 9 - .../instance/invalidUtf8.st | 3 - .../GRUtf8CodecStream.class/instance/next..st | 37 - .../instance/nextPut..st | 3 - .../instance/nextPutAll..st | 5 - .../GRUtf8CodecStream.class/properties.json | 14 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 2 - .../GRGemStonePlatform.extension.st | 35 + .../GRUtf8CodecStream.class.st | 73 + repository/Grease-GemStone200-Core/package.st | 1 + .../Grease-GemStone230-Core.package/.filetree | 4 - .../instance/open.st | 3 - .../TransientRandom.extension/properties.json | 2 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 2 - .../TransientRandom.extension.st | 6 + repository/Grease-GemStone230-Core/package.st | 1 + .../Grease-GemStone240-Core.package/.filetree | 4 - .../class/raiseSignal..st | 3 - .../instance/greaseString.st | 4 - .../instance/raiseSignal..st | 3 - .../instance/raiseSignal.st | 4 - .../ExceptionA.extension/properties.json | 2 - .../instance/argumentCount.st | 4 - .../instance/ifCurtailed..st | 11 - .../instance/tempVarRefs.st | 3 - .../instance/valueWithPossibleArguments..st | 9 - .../ExecutableBlock.extension/properties.json | 2 - .../instance/open.st | 3 - .../TransientRandom.extension/properties.json | 2 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 2 - .../ExceptionA.extension.st | 24 + .../ExecutableBlock.extension.st | 36 + .../TransientRandom.extension.st | 6 + repository/Grease-GemStone240-Core/package.st | 1 + .../Grease-GemStone300-Core.package/.filetree | 4 - .../instance/greaseString.st | 4 - .../Exception.extension/properties.json | 2 - .../instance/argumentCount.st | 4 - .../instance/ifCurtailed..st | 11 - .../instance/valueWithPossibleArguments..st | 9 - .../ExecBlock.extension/properties.json | 2 - .../instance/gemstoneExceptionSelector.st | 4 - .../instance/generateHardBreak.st | 5 - .../handlesAlmostOutOfStackException..st | 4 - .../instance/handlesBreakpointException..st | 4 - .../instance/handlesHaltException..st | 4 - .../properties.json | 2 - .../GRUtf8CodecStream.class/README.md | 0 .../class/initialize.st | 12 - .../GRUtf8CodecStream.class/instance/crlf.st | 9 - .../instance/invalidUtf8.st | 3 - .../GRUtf8CodecStream.class/instance/next..st | 37 - .../instance/nextPut..st | 17 - .../instance/nextPutAll..st | 13 - .../GRUtf8CodecStream.class/properties.json | 14 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 2 - .../Exception.extension.st | 8 + .../ExecBlock.extension.st | 34 + .../GRGemStonePlatform.extension.st | 32 + .../GRUtf8CodecStream.class.st | 113 ++ repository/Grease-GemStone300-Core/package.st | 1 + .../Grease-GemStone330-Core.package/.filetree | 4 - .../instance/greaseString.st | 4 - .../Exception.extension/properties.json | 2 - .../instance/argumentCount.st | 4 - .../instance/ifCurtailed..st | 11 - .../instance/valueWithPossibleArguments..st | 9 - .../ExecBlock.extension/properties.json | 2 - .../instance/gemstoneExceptionSelector.st | 4 - .../instance/generateHardBreak.st | 5 - .../handlesAlmostOutOfStackException..st | 4 - .../instance/handlesBreakpointException..st | 4 - .../instance/handlesHaltException..st | 4 - .../properties.json | 2 - .../GRUtf8CodecStream.class/README.md | 0 .../class/initialize.st | 12 - .../GRUtf8CodecStream.class/instance/crlf.st | 9 - .../instance/invalidUtf8.st | 3 - .../GRUtf8CodecStream.class/instance/next..st | 37 - .../instance/nextPut..st | 17 - .../instance/nextPutAll..st | 5 - .../GRUtf8CodecStream.class/properties.json | 14 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 2 - .../Exception.extension.st | 7 + .../ExecBlock.extension.st | 31 + .../GRGemStonePlatform.extension.st | 32 + .../GRUtf8CodecStream.class.st | 104 ++ repository/Grease-GemStone330-Core/package.st | 1 + .../Grease-Pharo100-Core.package/.filetree | 5 - .../Behavior.extension/instance/fullName.st | 5 - .../Behavior.extension/properties.json | 3 - .../instance/valueWithPossibleArguments..st | 11 - .../BlockClosure.extension/properties.json | 3 - .../instance/greaseString.st | 4 - .../ByteArray.extension/properties.json | 3 - .../instance/greaseInteger.st | 4 - .../Character.extension/properties.json | 3 - .../Collection.extension/instance/any.st | 3 - .../Collection.extension/properties.json | 3 - .../Color.extension/instance/asHTMLColor.st | 3 - .../Color.extension/properties.json | 3 - .../Duration.extension/class/milliseconds..st | 3 - .../instance/asMilliseconds.st | 3 - .../instance/milliseconds.st | 3 - .../Duration.extension/properties.json | 3 - .../GRDynamicVariable.class/README.md | 0 .../class/defaultValue.st | 3 - .../class/use.during..st | 5 - .../instance/default.st | 3 - .../GRDynamicVariable.class/properties.json | 11 - .../class/greasePharo100Core.st | 7 - .../GRPackage.extension/properties.json | 3 - .../GRPharoLatin1Codec.class/README.md | 1 - .../class/basicForEncoding..st | 5 - .../GRPharoLatin1Codec.class/class/codecs.st | 3 - .../class/supportedEncodingNames.st | 3 - .../class/supportsEncoding..st | 4 - .../instance/decode..st | 5 - .../instance/decoderFor..st | 4 - .../instance/encoderFor..st | 4 - .../instance/initializeWithName..st | 4 - .../GRPharoLatin1Codec.class/instance/name.st | 3 - .../GRPharoLatin1Codec.class/properties.json | 13 - .../GRPharoLatin1CodecStream.class/README.md | 1 - .../instance/next..st | 3 - .../instance/next.st | 3 - .../properties.json | 11 - .../GRPharoPlatform.class/README.md | 1 - .../GRPharoPlatform.class/class/initialize.st | 5 - .../class/initializeUrlTable.st | 7 - .../class/initializeXmlTable.st | 7 - .../GRPharoPlatform.class/class/unload.st | 3 - .../instance/addToShutDownList..st | 5 - .../instance/addToStartUpList..st | 5 - .../asMethodReturningByteArray.named..st | 6 - ...sMethodReturningByteArrayLiteral.named..st | 10 - ...ethodReturningByteArrayWithCache.named..st | 10 - .../instance/base64Decode..st | 3 - .../instance/base64Encode..st | 3 - .../instance/bindingOf..st | 4 - .../instance/compile.into.classified..st | 3 - .../instance/contentsOfFile.binary..st | 3 - .../instance/deleteFile..st | 3 - .../instance/deprecationExceptionSet.st | 6 - .../instance/directoriesIn..st | 8 - .../instance/doSilently..st | 3 - .../instance/ensureExistenceOfFolder..st | 4 - .../instance/fileExists..st | 3 - .../instance/filesIn..st | 8 - .../instance/isProcessTerminated..st | 4 - .../GRPharoPlatform.class/instance/label.st | 3 - .../instance/localNameOf..st | 3 - .../instance/newRandom.st | 10 - .../instance/newTemporaryFile.st | 4 - .../instance/newTemporaryFileNamed..st | 7 - .../instance/newTemporaryFileReference.st | 11 - .../newTemporaryFileReferenceNamed..st | 11 - .../GRPharoPlatform.class/instance/newline.st | 3 - .../instance/openDebuggerOn..st | 3 - .../instance/pathSeparator.st | 3 - .../instance/readFileStreamOn.do.binary..st | 6 - .../instance/readWriteByteStream.st | 5 - .../instance/readWriteCharacterStream.st | 5 - .../instance/removeFromShutDownList..st | 5 - .../instance/removeFromStartUpList..st | 5 - .../instance/removeSelector.from..st | 3 - .../instance/secureHashFor..st | 3 - .../instance/semaphoreClass.st | 4 - .../instance/sizeOfFile..st | 4 - .../instance/sourceCodeStringOf..st | 5 - .../instance/stackDepth.st | 10 - .../instance/terminateProcess..st | 4 - .../instance/thisContext.st | 4 - .../instance/useByteArrayLiterals.st | 4 - .../instance/weakDictionaryOfSize..st | 3 - .../instance/write.toFile.inFolder..st | 7 - .../instance/writeFileStreamOn.do.binary..st | 5 - .../GRPharoPlatform.class/properties.json | 14 - .../GRPharoRandomProvider.class/README.md | 0 .../class/initialize.st | 4 - .../class/nextInt..st | 6 - .../class/randomClass.st | 3 - .../class/randomFrom..st | 11 - .../class/startUp.st | 4 - .../class/unload.st | 3 - .../properties.json | 14 - .../GRPharoZnCodec.class/README.md | 0 .../class/basicForEncoding..st | 5 - .../GRPharoZnCodec.class/class/codecs.st | 4 - .../class/supportedEncodingNames.st | 16 - .../class/supportsEncoding..st | 3 - .../GRPharoZnCodec.class/instance/decode..st | 3 - .../instance/decoderFor..st | 3 - .../instance/encodedStringClass.st | 3 - .../instance/encoderFor..st | 5 - .../instance/initializeWithName..st | 7 - .../GRPharoZnCodec.class/instance/name.st | 3 - .../GRPharoZnCodec.class/instance/url.st | 5 - .../GRPharoZnCodec.class/properties.json | 14 - .../GRPharoZnCodecStream.class/README.md | 0 .../class/on.withEncoder..st | 3 - .../instance/greaseNext.putAll.startingAt..st | 3 - .../instance/initializeOn.withEncoder..st | 5 - .../instance/next..st | 8 - .../instance/next.st | 6 - .../instance/nextPut..st | 3 - .../instance/nextPutAll..st | 5 - .../properties.json | 13 - .../instance/inspectionItems..st | 15 - .../properties.json | 3 - .../instance/inspectionItems..st | 15 - .../properties.json | 3 - .../Interval.extension/instance/any.st | 6 - .../Interval.extension/properties.json | 3 - .../instance/greaseByteAt..st | 3 - .../instance/greaseBytesCount.st | 3 - .../LargeInteger.extension/properties.json | 3 - .../instance/argumentCount.st | 3 - .../instance/valueWithPossibleArguments..st | 7 - .../MessageSend.extension/properties.json | 3 - .../Number.extension/instance/milliseconds.st | 3 - .../Number.extension/properties.json | 3 - .../Object.extension/instance/greaseString.st | 3 - .../Object.extension/properties.json | 3 - .../Point.extension/instance/greaseString.st | 13 - .../Point.extension/properties.json | 3 - .../instance/greaseUpToAll..st | 5 - .../properties.json | 3 - .../instance/encodeOn..st | 5 - .../instance/greaseString.st | 5 - .../ScaledDecimal.extension/properties.json | 3 - .../instance/beginsWithSubCollection..st | 8 - .../instance/endsWithSubCollection..st | 8 - .../instance/greaseBeginsWith..st | 5 - .../instance/greaseEndsWith..st | 5 - .../properties.json | 3 - .../instance/greaseByteAt..st | 3 - .../instance/greaseBytesCount.st | 3 - .../SmallInteger.extension/properties.json | 3 - .../instance/greaseNext.putAll.startingAt..st | 13 - .../SocketStream.extension/properties.json | 3 - .../instance/greaseAsMutator.st | 3 - .../Symbol.extension/properties.json | 3 - .../instance/greaseNext.putAll.startingAt..st | 4 - .../WriteStream.extension/properties.json | 3 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 1 - .../Behavior.extension.st | 8 + .../BlockClosure.extension.st | 14 + .../ByteArray.extension.st | 7 + .../Character.extension.st | 7 + .../Collection.extension.st | 6 + .../Grease-Pharo100-Core/Color.extension.st | 6 + .../Duration.extension.st | 16 + .../GRDynamicVariable.class.st | 23 + .../GRPackage.extension.st | 10 + .../GRPharoLatin1Codec.class.st | 65 + .../GRPharoLatin1CodecStream.class.st | 19 + .../GRPharoPlatform.class.st | 365 +++++ .../GRPharoRandomProvider.class.st | 53 + .../GRPharoZnCodec.class.st | 89 ++ .../GRPharoZnCodecStream.class.st | 56 + .../GRSmallDictionary.extension.st | 18 + .../GRSmallDictionary2.extension.st | 18 + .../Interval.extension.st | 9 + .../LargeInteger.extension.st | 11 + .../MessageSend.extension.st | 15 + .../Grease-Pharo100-Core/Number.extension.st | 6 + .../Grease-Pharo100-Core/Object.extension.st | 6 + .../Grease-Pharo100-Core/Point.extension.st | 16 + .../PositionableStream.extension.st | 8 + .../ScaledDecimal.extension.st | 15 + .../SequenceableCollection.extension.st | 35 + .../SmallInteger.extension.st | 11 + .../SocketStream.extension.st | 16 + .../Grease-Pharo100-Core/Symbol.extension.st | 6 + .../WriteStream.extension.st | 7 + repository/Grease-Pharo100-Core/package.st | 1 + .../.filetree | 5 - .../README.md | 0 .../instance/afterCheck.mappings..st | 15 - .../instance/group.st | 4 - .../instance/initialize.st | 8 - .../instance/name.st | 4 - .../instance/rationale.st | 4 - .../properties.json | 11 - .../GRReSlimeBlockLintRule.class/README.md | 0 .../class/isVisible.st | 4 - .../properties.json | 11 - .../README.md | 0 .../class/isVisible.st | 4 - .../properties.json | 11 - .../README.md | 0 .../class/isVisible.st | 4 - .../properties.json | 11 - .../GRSlimeBlockLintRule.class/README.md | 1 - .../class/isVisible.st | 4 - .../properties.json | 11 - .../GRSlimeParseTreeLintRule.class/README.md | 1 - .../class/isVisible.st | 4 - .../properties.json | 11 - .../GRSlimeTransformationRule.class/README.md | 1 - .../class/isVisible.st | 4 - .../properties.json | 11 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 1 - .../GRDeprecatedApiProtocolRule.class.st | 51 + .../GRReSlimeBlockLintRule.class.st | 12 + .../GRReSlimeParseTreeLintRule.class.st | 12 + .../GRReSlimeTransformationRule.class.st | 12 + .../GRSlimeBlockLintRule.class.st | 15 + .../GRSlimeParseTreeLintRule.class.st | 15 + .../GRSlimeTransformationRule.class.st | 15 + .../Grease-Pharo110-Slime-Core/package.st | 1 + .../.filetree | 5 - .../GRAnsiBooleansRule.class/README.md | 0 .../instance/group.st | 4 - .../instance/initialize.st | 19 - .../GRAnsiBooleansRule.class/instance/name.st | 4 - .../instance/rationale.st | 4 - .../GRAnsiBooleansRule.class/properties.json | 11 - .../GRAnsiCharactersRule.class/README.md | 0 .../instance/group.st | 4 - .../instance/initialize.st | 16 - .../instance/name.st | 4 - .../instance/rationale.st | 4 - .../properties.json | 11 - .../GRAnsiCollectionsRule.class/README.md | 0 .../instance/group.st | 4 - .../instance/initialize.st | 30 - .../instance/name.st | 4 - .../instance/rationale.st | 4 - .../properties.json | 11 - .../GRAnsiConditionalsRule.class/README.md | 0 .../instance/group.st | 4 - .../instance/initialize.st | 17 - .../instance/name.st | 4 - .../instance/rationale.st | 4 - .../properties.json | 11 - .../GRAnsiConvertorRule.class/README.md | 0 .../instance/group.st | 4 - .../instance/initialize.st | 7 - .../instance/name.st | 4 - .../instance/rationale.st | 4 - .../GRAnsiConvertorRule.class/properties.json | 11 - .../GRAnsiExceptionsRule.class/README.md | 0 .../instance/group.st | 4 - .../instance/initialize.st | 7 - .../instance/name.st | 4 - .../instance/rationale.st | 4 - .../properties.json | 11 - .../GRAnsiStreamsRule.class/README.md | 0 .../GRAnsiStreamsRule.class/instance/group.st | 4 - .../instance/initialize.st | 13 - .../GRAnsiStreamsRule.class/instance/name.st | 4 - .../instance/rationale.st | 4 - .../GRAnsiStreamsRule.class/properties.json | 11 - .../GRAnsiStringsRule.class/README.md | 0 .../GRAnsiStringsRule.class/instance/group.st | 4 - .../instance/initialize.st | 26 - .../GRAnsiStringsRule.class/instance/name.st | 4 - .../instance/rationale.st | 4 - .../GRAnsiStringsRule.class/properties.json | 11 - .../README.md | 0 .../class/checksClass.st | 4 - .../instance/basicCheck..st | 11 - .../instance/group.st | 4 - .../instance/initialize.st | 8 - .../instance/name.st | 4 - .../instance/rationale.st | 4 - .../properties.json | 13 - .../README.md | 0 .../class/checksMethod.st | 4 - .../instance/basicCheck..st | 10 - .../instance/group.st | 4 - .../instance/name.st | 4 - .../instance/rationale.st | 4 - .../properties.json | 11 - .../GRNonPortableMessageRule.class/README.md | 0 .../class/checksNode.st | 4 - .../instance/basicCheck..st | 4 - .../instance/group.st | 4 - .../instance/methodNames.st | 4 - .../instance/name.st | 4 - .../instance/rationale.st | 4 - .../properties.json | 11 - .../README.md | 0 .../instance/group.st | 4 - .../instance/initialize.st | 9 - .../instance/name.st | 4 - .../instance/rationale.st | 4 - .../properties.json | 11 - .../GRObjectInRule.class/README.md | 1 - .../GRObjectInRule.class/instance/group.st | 4 - .../instance/initialize.st | 7 - .../GRObjectInRule.class/instance/name.st | 4 - .../instance/rationale.st | 4 - .../GRObjectInRule.class/properties.json | 11 - .../README.md | 0 .../class/checksMethod.st | 4 - .../instance/basicCheck..st | 8 - .../instance/name.st | 4 - .../properties.json | 11 - .../README.md | 0 .../class/checksClass.st | 4 - .../instance/basicCheck..st | 4 - .../instance/name.st | 4 - .../properties.json | 11 - .../GRTestAssertionsRule.class/README.md | 1 - .../instance/afterCheck.mappings..st | 8 - .../instance/group.st | 4 - .../instance/initialize.st | 7 - .../instance/name.st | 4 - .../instance/rationale.st | 4 - .../properties.json | 11 - .../README.md | 0 .../instance/group.st | 4 - .../instance/initialize.st | 7 - .../instance/name.st | 4 - .../instance/rationale.st | 4 - .../properties.json | 11 - .../GRUsesClassForHashRule.class/README.md | 0 .../instance/afterCheck.mappings..st | 4 - .../instance/group.st | 4 - .../instance/initialize.st | 5 - .../instance/name.st | 4 - .../instance/rationale.st | 4 - .../properties.json | 11 - .../README.md | 0 .../class/isAbstract.st | 4 - .../class/isVisible.st | 4 - .../instance/classNames.st | 4 - .../instance/group.st | 4 - .../instance/rationale.st | 4 - .../properties.json | 11 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 1 - .../GRAnsiBooleansRule.class.st | 45 + .../GRAnsiCharactersRule.class.st | 42 + .../GRAnsiCollectionsRule.class.st | 56 + .../GRAnsiConditionalsRule.class.st | 43 + .../GRAnsiConvertorRule.class.st | 33 + .../GRAnsiExceptionsRule.class.st | 33 + .../GRAnsiStreamsRule.class.st | 39 + .../GRAnsiStringsRule.class.st | 52 + .../GRBasicNewInitializeMissingRule.class.st | 56 + ...GRInvalidObjectInitializationRule.class.st | 42 + .../GRNonPortableMessageRule.class.st | 43 + .../GRNotPortableCollectionsRule.class.st | 35 + .../GRObjectInRule.class.st | 37 + .../GRReferencesNotPortableClassRule.class.st | 28 + .../GRSubclassesNotPortableClassRule.class.st | 24 + .../GRTestAssertionsRule.class.st | 46 + .../GRUsesCanPerformOrUnderstandRule.class.st | 33 + .../GRUsesClassForHashRule.class.st | 37 + .../GRUsesNotPortableClassRule.class.st | 36 + .../package.st | 1 + .../Grease-Pharo40-Slime.package/.filetree | 4 - .../GRAnsiBooleansRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 18 - .../GRAnsiBooleansRule.class/instance/name.st | 3 - .../instance/rationale.st | 3 - .../GRAnsiBooleansRule.class/properties.json | 14 - .../GRAnsiCharactersRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 13 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRAnsiCollectionsRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 30 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRAnsiConditionalsRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 16 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRAnsiConvertorRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 6 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../GRAnsiConvertorRule.class/properties.json | 14 - .../GRAnsiExceptionsRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 6 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRAnsiStreamsRule.class/README.md | 0 .../GRAnsiStreamsRule.class/instance/group.st | 3 - .../instance/initialize.st | 12 - .../GRAnsiStreamsRule.class/instance/name.st | 3 - .../instance/rationale.st | 3 - .../GRAnsiStreamsRule.class/properties.json | 14 - .../GRAnsiStringsRule.class/README.md | 0 .../GRAnsiStringsRule.class/instance/group.st | 3 - .../instance/initialize.st | 24 - .../GRAnsiStringsRule.class/instance/name.st | 3 - .../instance/rationale.st | 3 - .../GRAnsiStringsRule.class/properties.json | 14 - .../README.md | 0 .../instance/checkClass..st | 13 - .../instance/group.st | 3 - .../instance/initialize.st | 7 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRBlockFormattingRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 23 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../README.md | 0 .../instance/checkMethod..st | 20 - .../instance/group.st | 3 - .../instance/initialize.st | 9 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GREmptyStatementsRule.class/README.md | 0 .../instance/checkMethod..st | 12 - .../instance/group.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../instance/resetResult.st | 4 - .../properties.json | 14 - .../README.md | 0 .../instance/checkMethod..st | 10 - .../instance/group.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRNonPortableMessageRule.class/README.md | 0 .../instance/checkClass..st | 12 - .../instance/group.st | 3 - .../instance/methodNames.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../README.md | 0 .../instance/checkClass..st | 8 - .../instance/checkMethod..st | 17 - .../instance/group.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 8 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRObjectInRule.class/README.md | 1 - .../GRObjectInRule.class/instance/group.st | 3 - .../instance/initialize.st | 6 - .../GRObjectInRule.class/instance/name.st | 3 - .../instance/rationale.st | 3 - .../GRObjectInRule.class/properties.json | 14 - .../GRPackage.extension/class/greaseSlime.st | 8 - .../GRPackage.extension/properties.json | 2 - .../GRParensFormattingRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 20 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRReturnFormattingRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 11 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRSlimeBlockLintRule.class/README.md | 0 .../class/isVisible.st | 3 - .../instance/category.st | 3 - .../properties.json | 14 - .../GRSlimeParseTreeLintRule.class/README.md | 0 .../class/isVisible.st | 3 - .../instance/category.st | 3 - .../properties.json | 14 - .../GRSlimeTransformationRule.class/README.md | 0 .../class/isVisible.st | 3 - .../properties.json | 14 - .../GRTempsFormattingRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 18 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRTestAssertionsRule.class/README.md | 1 - .../instance/checkMethod..st | 7 - .../instance/group.st | 3 - .../instance/initialize.st | 6 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../README.md | 0 .../instance/checkMethod..st | 7 - .../instance/group.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../instance/resetResult.st | 4 - .../properties.json | 14 - .../README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 8 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRUsesClassForHashRule.class/README.md | 0 .../instance/checkMethod..st | 4 - .../instance/group.st | 3 - .../instance/initialize.st | 6 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 6 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 6 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../README.md | 0 .../instance/checkMethod..st | 8 - .../instance/group.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../instance/shouldExclude..st | 7 - .../properties.json | 14 - .../README.md | 0 .../instance/checkClass..st | 6 - .../instance/checkMethod..st | 11 - .../instance/classNames.st | 3 - .../instance/group.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 2 - .../GRAnsiBooleansRule.class.st | 41 + .../GRAnsiCharactersRule.class.st | 36 + .../GRAnsiCollectionsRule.class.st | 53 + .../GRAnsiConditionalsRule.class.st | 39 + .../GRAnsiConvertorRule.class.st | 29 + .../GRAnsiExceptionsRule.class.st | 29 + .../GRAnsiStreamsRule.class.st | 35 + .../GRAnsiStringsRule.class.st | 47 + .../GRBasicNewInitializeMissingRule.class.st | 48 + .../GRBlockFormattingRule.class.st | 46 + .../GRDeprecatedApiProtocolRule.class.st | 57 + .../GREmptyStatementsRule.class.st | 41 + ...GRInvalidObjectInitializationRule.class.st | 33 + .../GRNonPortableMessageRule.class.st | 40 + .../GRNonPortableSourceFormatRule.class.st | 50 + .../GRNotPortableCollectionsRule.class.st | 31 + .../GRObjectInRule.class.st | 33 + .../GRPackage.extension.st | 11 + .../GRParensFormattingRule.class.st | 43 + .../GRReturnFormattingRule.class.st | 34 + .../GRSlimeBlockLintRule.class.st | 16 + .../GRSlimeParseTreeLintRule.class.st | 16 + .../GRSlimeTransformationRule.class.st | 11 + .../GRTempsFormattingRule.class.st | 41 + .../GRTestAssertionsRule.class.st | 41 + .../GRUnnecessaryLastPeriodRule.class.st | 36 + .../GRUsesCanPerformOrUnderstandRule.class.st | 31 + .../GRUsesClassForHashRule.class.st | 35 + .../GRUsesCurlyBraceArraysRule.class.st | 29 + .../GRUsesLiteralByteArraysRule.class.st | 29 + .../GRUsesMethodAnnotationsRule.class.st | 40 + .../GRUsesNotPortableClassRule.class.st | 47 + repository/Grease-Pharo40-Slime/package.st | 1 + .../Grease-Pharo60-Core.package/.filetree | 5 - .../instance/valueWithPossibleArguments..st | 11 - .../BlockClosure.extension/properties.json | 3 - .../instance/greaseString.st | 4 - .../ByteArray.extension/properties.json | 3 - .../instance/greaseInteger.st | 4 - .../Character.extension/properties.json | 3 - .../Collection.extension/instance/any.st | 3 - .../Collection.extension/properties.json | 3 - .../Color.extension/instance/asHTMLColor.st | 3 - .../Color.extension/properties.json | 3 - .../Duration.extension/class/milliseconds..st | 3 - .../instance/asMilliseconds.st | 3 - .../instance/milliseconds.st | 3 - .../Duration.extension/properties.json | 3 - .../instance/greaseNext.putAll.startingAt..st | 3 - .../properties.json | 3 - .../GRDynamicVariable.class/README.md | 11 - .../class/defaultValue.st | 3 - .../class/use.during..st | 5 - .../instance/default.st | 3 - .../GRDynamicVariable.class/properties.json | 11 - .../class/greasePharo60Core.st | 7 - .../GRPackage.extension/properties.json | 3 - .../README.md | 7 - .../class/on.converter..st | 3 - .../instance/greaseNext.putAll.startingAt..st | 3 - .../instance/initializeOn.converter..st | 4 - .../instance/next..st | 8 - .../instance/next.st | 6 - .../instance/nextPut..st | 3 - .../instance/nextPutAll..st | 3 - .../properties.json | 13 - .../GRPharoGenericCodec.class/README.md | 12 - .../class/basicForEncoding..st | 5 - .../GRPharoGenericCodec.class/class/codecs.st | 8 - .../class/supportedEncodingNames.st | 8 - .../class/supportsEncoding..st | 4 - .../instance/converter.st | 3 - .../instance/decoderFor..st | 3 - .../instance/encoderFor..st | 5 - .../instance/initializeWithName..st | 7 - .../instance/name.st | 3 - .../GRPharoGenericCodec.class/instance/url.st | 5 - .../GRPharoGenericCodec.class/properties.json | 14 - .../GRPharoLatin1Codec.class/README.md | 1 - .../class/basicForEncoding..st | 5 - .../GRPharoLatin1Codec.class/class/codecs.st | 3 - .../class/supportedEncodingNames.st | 3 - .../class/supportsEncoding..st | 4 - .../instance/decode..st | 5 - .../instance/decoderFor..st | 4 - .../instance/encoderFor..st | 4 - .../instance/initializeWithName..st | 4 - .../GRPharoLatin1Codec.class/instance/name.st | 3 - .../GRPharoLatin1Codec.class/properties.json | 13 - .../GRPharoLatin1CodecStream.class/README.md | 1 - .../instance/next..st | 3 - .../instance/next.st | 3 - .../properties.json | 11 - .../GRPharoPlatform.class/README.md | 1 - .../GRPharoPlatform.class/class/initialize.st | 5 - .../class/initializeUrlTable.st | 7 - .../class/initializeXmlTable.st | 7 - .../GRPharoPlatform.class/class/unload.st | 3 - .../instance/addToShutDownList..st | 5 - .../instance/addToStartUpList..st | 5 - .../asMethodReturningByteArray.named..st | 6 - ...sMethodReturningByteArrayLiteral.named..st | 10 - ...ethodReturningByteArrayWithCache.named..st | 10 - .../instance/base64Decode..st | 3 - .../instance/base64Encode..st | 3 - .../instance/bindingOf..st | 4 - .../instance/compile.into.classified..st | 3 - .../instance/contentsOfFile.binary..st | 3 - .../instance/directoriesIn..st | 8 - .../instance/doSilently..st | 3 - .../instance/ensureExistenceOfFolder..st | 4 - .../instance/fileExists..st | 3 - .../instance/fileStreamOn.do.binary..st | 13 - .../instance/filesIn..st | 8 - .../instance/integerAsByteArray..st | 7 - .../instance/isProcessTerminated..st | 4 - .../GRPharoPlatform.class/instance/label.st | 3 - .../instance/localNameOf..st | 3 - .../instance/newRandom.st | 10 - .../GRPharoPlatform.class/instance/newline.st | 3 - .../instance/openDebuggerOn..st | 18 - .../instance/pathSeparator.st | 3 - .../instance/readWriteByteStream.st | 5 - .../instance/readWriteCharacterStream.st | 5 - .../instance/removeFromShutDownList..st | 5 - .../instance/removeFromStartUpList..st | 5 - .../instance/removeSelector.from..st | 3 - .../instance/secureHashFor..st | 3 - .../instance/semaphoreClass.st | 4 - .../instance/stackDepth.st | 10 - .../instance/terminateProcess..st | 4 - .../instance/thisContext.st | 4 - .../instance/useByteArrayLiterals.st | 4 - .../instance/weakDictionaryOfSize..st | 3 - .../instance/write.toFile.inFolder..st | 15 - .../GRPharoPlatform.class/properties.json | 14 - .../GRPharoRandomProvider.class/README.md | 1 - .../class/initialize.st | 4 - .../class/nextInt..st | 5 - .../class/randomClass.st | 3 - .../class/randomFrom..st | 11 - .../class/startUp.st | 4 - .../class/unload.st | 3 - .../properties.json | 14 - .../GRPharoUtf8Codec.class/README.md | 1 - .../class/basicForEncoding..st | 3 - .../GRPharoUtf8Codec.class/class/codecs.st | 3 - .../class/supportsEncoding..st | 3 - .../instance/decode..st | 36 - .../instance/decoderFor..st | 5 - .../instance/encoderFor..st | 5 - .../instance/invalidUtf8.st | 3 - .../GRPharoUtf8Codec.class/instance/name.st | 3 - .../GRPharoUtf8Codec.class/instance/url.st | 3 - .../GRPharoUtf8Codec.class/properties.json | 11 - .../GRPharoUtf8CodecStream.class/README.md | 1 - .../class/initialize.st | 17 - .../instance/crlf.st | 4 - .../instance/encodeDefault..st | 5 - .../instance/encodeFast..st | 14 - .../instance/greaseNext.putAll.startingAt..st | 5 - .../greaseNext.putAllFast.startingAt..st | 17 - .../instance/invalidUtf8.st | 3 - .../instance/next..st | 46 - .../instance/next.st | 3 - .../instance/nextPut..st | 15 - .../instance/nextPutAll..st | 5 - .../properties.json | 14 - .../Interval.extension/instance/any.st | 6 - .../Interval.extension/properties.json | 3 - .../instance/greaseByteAt..st | 8 - .../instance/greaseBytesCount.st | 8 - .../LargeInteger.extension/properties.json | 3 - .../instance/argumentCount.st | 3 - .../instance/valueWithPossibleArguments..st | 7 - .../MessageSend.extension/properties.json | 3 - .../Number.extension/instance/milliseconds.st | 3 - .../Number.extension/properties.json | 3 - .../Object.extension/instance/greaseString.st | 3 - .../Object.extension/properties.json | 3 - .../Point.extension/instance/greaseString.st | 13 - .../Point.extension/properties.json | 3 - .../instance/greaseUpToAll..st | 5 - .../properties.json | 3 - .../instance/encodeOn..st | 5 - .../instance/greaseString.st | 5 - .../ScaledDecimal.extension/properties.json | 3 - .../instance/beginsWithSubCollection..st | 4 - .../instance/endsWithSubCollection..st | 4 - .../instance/sorted.st | 3 - .../properties.json | 3 - .../instance/greaseByteAt..st | 14 - .../instance/greaseBytesCount.st | 25 - .../SmallInteger.extension/properties.json | 3 - .../instance/greaseNext.putAll.startingAt..st | 13 - .../SocketStream.extension/properties.json | 3 - .../String.extension/instance/greaseString.st | 3 - .../String.extension/properties.json | 3 - .../instance/greaseAsMutator.st | 3 - .../Symbol.extension/instance/greaseString.st | 3 - .../Symbol.extension/properties.json | 3 - .../TBehavior.extension/instance/fullName.st | 5 - .../TBehavior.extension/properties.json | 3 - .../instance/greaseNext.putAll.startingAt..st | 4 - .../WriteStream.extension/properties.json | 3 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 1 - .../BlockClosure.extension.st | 14 + .../ByteArray.extension.st | 7 + .../Character.extension.st | 7 + .../Collection.extension.st | 6 + .../Grease-Pharo60-Core/Color.extension.st | 6 + .../Grease-Pharo60-Core/Duration.extension.st | 16 + .../GRDelegatingStream.extension.st | 6 + .../GRDynamicVariable.class.st | 36 + .../GRPackage.extension.st | 10 + .../GRPharoConverterCodecStream.class.st | 63 + .../GRPharoGenericCodec.class.st | 95 ++ .../GRPharoLatin1Codec.class.st | 65 + .../GRPharoLatin1CodecStream.class.st | 19 + .../GRPharoPlatform.class.st | 331 +++++ .../GRPharoRandomProvider.class.st | 55 + .../GRPharoUtf8Codec.class.st | 91 ++ .../GRPharoUtf8CodecStream.class.st | 170 +++ .../Grease-Pharo60-Core/Interval.extension.st | 9 + .../LargeInteger.extension.st | 21 + .../MessageSend.extension.st | 15 + .../Grease-Pharo60-Core/Number.extension.st | 6 + .../Grease-Pharo60-Core/Object.extension.st | 6 + .../Grease-Pharo60-Core/Point.extension.st | 16 + .../PositionableStream.extension.st | 8 + .../ScaledDecimal.extension.st | 15 + .../SequenceableCollection.extension.st | 18 + .../SmallInteger.extension.st | 44 + .../SocketStream.extension.st | 16 + .../Grease-Pharo60-Core/String.extension.st | 6 + .../Grease-Pharo60-Core/Symbol.extension.st | 11 + .../TBehavior.extension.st | 8 + .../WriteStream.extension.st | 7 + repository/Grease-Pharo60-Core/package.st | 1 + .../Grease-Pharo70-Core.package/.filetree | 5 - .../Behavior.extension/instance/fullName.st | 5 - .../Behavior.extension/properties.json | 3 - .../instance/valueWithPossibleArguments..st | 11 - .../BlockClosure.extension/properties.json | 3 - .../instance/greaseString.st | 4 - .../ByteArray.extension/properties.json | 3 - .../instance/greaseInteger.st | 4 - .../Character.extension/properties.json | 3 - .../Collection.extension/instance/any.st | 3 - .../Collection.extension/properties.json | 3 - .../Color.extension/instance/asHTMLColor.st | 3 - .../Color.extension/properties.json | 3 - .../Duration.extension/class/milliseconds..st | 3 - .../instance/asMilliseconds.st | 3 - .../instance/milliseconds.st | 3 - .../Duration.extension/properties.json | 3 - .../instance/greaseNext.putAll.startingAt..st | 3 - .../properties.json | 3 - .../GRDynamicVariable.class/README.md | 0 .../class/defaultValue.st | 3 - .../class/use.during..st | 5 - .../instance/default.st | 3 - .../GRDynamicVariable.class/properties.json | 11 - .../class/greasePharo70Core.st | 7 - .../GRPackage.extension/properties.json | 3 - .../README.md | 7 - .../class/on.converter..st | 3 - .../instance/greaseNext.putAll.startingAt..st | 3 - .../instance/initializeOn.converter..st | 4 - .../instance/next..st | 8 - .../instance/next.st | 6 - .../instance/nextPut..st | 3 - .../instance/nextPutAll..st | 3 - .../properties.json | 13 - .../GRPharoGenericCodec.class/README.md | 0 .../class/basicForEncoding..st | 5 - .../GRPharoGenericCodec.class/class/codecs.st | 8 - .../class/supportedEncodingNames.st | 8 - .../class/supportsEncoding..st | 4 - .../instance/converter.st | 3 - .../instance/decoderFor..st | 3 - .../instance/encoderFor..st | 5 - .../instance/initializeWithName..st | 7 - .../instance/name.st | 3 - .../GRPharoGenericCodec.class/instance/url.st | 5 - .../GRPharoGenericCodec.class/properties.json | 14 - .../GRPharoLatin1Codec.class/README.md | 1 - .../class/basicForEncoding..st | 5 - .../GRPharoLatin1Codec.class/class/codecs.st | 3 - .../class/supportedEncodingNames.st | 3 - .../class/supportsEncoding..st | 4 - .../instance/decode..st | 5 - .../instance/decoderFor..st | 4 - .../instance/encoderFor..st | 4 - .../instance/initializeWithName..st | 4 - .../GRPharoLatin1Codec.class/instance/name.st | 3 - .../GRPharoLatin1Codec.class/properties.json | 13 - .../GRPharoLatin1CodecStream.class/README.md | 1 - .../instance/next..st | 3 - .../instance/next.st | 3 - .../properties.json | 11 - .../GRPharoPlatform.class/README.md | 1 - .../GRPharoPlatform.class/class/initialize.st | 5 - .../class/initializeUrlTable.st | 7 - .../class/initializeXmlTable.st | 7 - .../GRPharoPlatform.class/class/unload.st | 3 - .../instance/addToShutDownList..st | 5 - .../instance/addToStartUpList..st | 5 - .../asMethodReturningByteArray.named..st | 6 - ...sMethodReturningByteArrayLiteral.named..st | 10 - ...ethodReturningByteArrayWithCache.named..st | 10 - .../instance/base64Decode..st | 3 - .../instance/base64Encode..st | 3 - .../instance/bindingOf..st | 4 - .../instance/compile.into.classified..st | 3 - .../instance/contentsOfFile.binary..st | 5 - .../instance/deleteFile..st | 3 - .../instance/deprecationExceptionSet.st | 6 - .../instance/directoriesIn..st | 8 - .../instance/doSilently..st | 3 - .../instance/ensureExistenceOfFolder..st | 4 - .../instance/fileExists..st | 3 - .../instance/filesIn..st | 8 - .../instance/isProcessTerminated..st | 4 - .../GRPharoPlatform.class/instance/label.st | 3 - .../instance/localNameOf..st | 3 - .../instance/newRandom.st | 10 - .../instance/newTemporaryFile.st | 4 - .../instance/newTemporaryFileNamed..st | 7 - .../instance/newTemporaryFileReference.st | 11 - .../newTemporaryFileReferenceNamed..st | 11 - .../GRPharoPlatform.class/instance/newline.st | 3 - .../instance/openDebuggerOn..st | 18 - .../instance/pathSeparator.st | 3 - .../instance/readFileStreamOn.do.binary..st | 7 - .../instance/readWriteByteStream.st | 5 - .../instance/readWriteCharacterStream.st | 5 - .../instance/removeFromShutDownList..st | 5 - .../instance/removeFromStartUpList..st | 5 - .../instance/removeSelector.from..st | 3 - .../instance/secureHashFor..st | 3 - .../instance/semaphoreClass.st | 4 - .../instance/sizeOfFile..st | 4 - .../instance/sourceCodeStringOf..st | 5 - .../instance/stackDepth.st | 10 - .../instance/terminateProcess..st | 4 - .../instance/thisContext.st | 4 - .../instance/useByteArrayLiterals.st | 4 - .../instance/weakDictionaryOfSize..st | 3 - .../instance/write.toFile.inFolder..st | 8 - .../instance/writeFileStreamOn.do.binary..st | 5 - .../GRPharoPlatform.class/properties.json | 14 - .../GRPharoRandomProvider.class/README.md | 0 .../class/initialize.st | 4 - .../class/nextInt..st | 5 - .../class/randomClass.st | 3 - .../class/randomFrom..st | 11 - .../class/startUp.st | 4 - .../class/unload.st | 3 - .../properties.json | 14 - .../GRPharoUtf8Codec.class/README.md | 1 - .../class/basicForEncoding..st | 3 - .../GRPharoUtf8Codec.class/class/codecs.st | 3 - .../class/supportsEncoding..st | 3 - .../instance/decode..st | 36 - .../instance/decoderFor..st | 5 - .../instance/encoderFor..st | 5 - .../instance/invalidUtf8.st | 3 - .../GRPharoUtf8Codec.class/instance/name.st | 3 - .../GRPharoUtf8Codec.class/instance/url.st | 3 - .../GRPharoUtf8Codec.class/properties.json | 11 - .../GRPharoUtf8CodecStream.class/README.md | 1 - .../class/initialize.st | 17 - .../instance/crlf.st | 4 - .../instance/encodeDefault..st | 5 - .../instance/encodeFast..st | 14 - .../instance/greaseNext.putAll.startingAt..st | 5 - .../greaseNext.putAllFast.startingAt..st | 17 - .../instance/invalidUtf8.st | 3 - .../instance/next..st | 46 - .../instance/next.st | 3 - .../instance/nextPut..st | 11 - .../instance/nextPutAll..st | 5 - .../properties.json | 14 - .../instance/customizeExplorerContents.st | 3 - .../instance/explorerContents.st | 10 - .../instance/hasContentsInExplorer.st | 3 - .../properties.json | 3 - .../Interval.extension/instance/any.st | 6 - .../Interval.extension/properties.json | 3 - .../instance/greaseByteAt..st | 8 - .../instance/greaseBytesCount.st | 8 - .../LargeInteger.extension/properties.json | 3 - .../instance/argumentCount.st | 3 - .../instance/valueWithPossibleArguments..st | 7 - .../MessageSend.extension/properties.json | 3 - .../Number.extension/instance/milliseconds.st | 3 - .../Number.extension/properties.json | 3 - .../Object.extension/instance/greaseString.st | 3 - .../Object.extension/properties.json | 3 - .../Point.extension/instance/greaseString.st | 13 - .../Point.extension/properties.json | 3 - .../instance/greaseUpToAll..st | 5 - .../properties.json | 3 - .../instance/encodeOn..st | 5 - .../instance/greaseString.st | 5 - .../ScaledDecimal.extension/properties.json | 3 - .../instance/beginsWithSubCollection..st | 4 - .../instance/endsWithSubCollection..st | 4 - .../instance/greaseBeginsWith..st | 5 - .../instance/greaseEndsWith..st | 5 - .../instance/sorted.st | 3 - .../properties.json | 3 - .../instance/greaseByteAt..st | 14 - .../instance/greaseBytesCount.st | 25 - .../SmallInteger.extension/properties.json | 3 - .../instance/greaseNext.putAll.startingAt..st | 13 - .../SocketStream.extension/properties.json | 3 - .../instance/greaseAsMutator.st | 3 - .../Symbol.extension/properties.json | 3 - .../instance/greaseNext.putAll.startingAt..st | 4 - .../WriteStream.extension/properties.json | 3 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 1 - .../Grease-Pharo70-Core/Behavior.extension.st | 8 + .../BlockClosure.extension.st | 14 + .../ByteArray.extension.st | 7 + .../Character.extension.st | 7 + .../Collection.extension.st | 6 + .../Grease-Pharo70-Core/Color.extension.st | 6 + .../Grease-Pharo70-Core/Duration.extension.st | 16 + .../GRDelegatingStream.extension.st | 6 + .../GRDynamicVariable.class.st | 23 + .../GRPackage.extension.st | 10 + .../GRPharoConverterCodecStream.class.st | 63 + .../GRPharoGenericCodec.class.st | 81 ++ .../GRPharoLatin1Codec.class.st | 65 + .../GRPharoLatin1CodecStream.class.st | 19 + .../GRPharoPlatform.class.st | 384 +++++ .../GRPharoRandomProvider.class.st | 52 + .../GRPharoUtf8Codec.class.st | 91 ++ .../GRPharoUtf8CodecStream.class.st | 166 +++ .../GRSmallDictionary.extension.st | 23 + .../Grease-Pharo70-Core/Interval.extension.st | 9 + .../LargeInteger.extension.st | 21 + .../MessageSend.extension.st | 15 + .../Grease-Pharo70-Core/Number.extension.st | 6 + .../Grease-Pharo70-Core/Object.extension.st | 6 + .../Grease-Pharo70-Core/Point.extension.st | 16 + .../PositionableStream.extension.st | 8 + .../ScaledDecimal.extension.st | 15 + .../SequenceableCollection.extension.st | 32 + .../SmallInteger.extension.st | 44 + .../SocketStream.extension.st | 16 + .../Grease-Pharo70-Core/Symbol.extension.st | 6 + .../WriteStream.extension.st | 7 + repository/Grease-Pharo70-Core/package.st | 1 + .../Grease-Pharo90-Core.package/.filetree | 5 - .../Behavior.extension/instance/fullName.st | 5 - .../Behavior.extension/properties.json | 3 - .../instance/valueWithPossibleArguments..st | 11 - .../BlockClosure.extension/properties.json | 3 - .../instance/greaseString.st | 4 - .../ByteArray.extension/properties.json | 3 - .../instance/greaseInteger.st | 4 - .../Character.extension/properties.json | 3 - .../Collection.extension/instance/any.st | 3 - .../Collection.extension/properties.json | 3 - .../Color.extension/instance/asHTMLColor.st | 3 - .../Color.extension/properties.json | 3 - .../Duration.extension/class/milliseconds..st | 3 - .../instance/asMilliseconds.st | 3 - .../instance/milliseconds.st | 3 - .../Duration.extension/properties.json | 3 - .../instance/greaseNext.putAll.startingAt..st | 3 - .../properties.json | 3 - .../GRDynamicVariable.class/README.md | 0 .../class/defaultValue.st | 3 - .../class/use.during..st | 5 - .../instance/default.st | 3 - .../GRDynamicVariable.class/properties.json | 11 - .../class/greasePharo70Core.st | 7 - .../GRPackage.extension/properties.json | 3 - .../README.md | 7 - .../class/on.converter..st | 3 - .../instance/greaseNext.putAll.startingAt..st | 3 - .../instance/initializeOn.converter..st | 4 - .../instance/next..st | 8 - .../instance/next.st | 6 - .../instance/nextPut..st | 3 - .../instance/nextPutAll..st | 3 - .../properties.json | 13 - .../README.md | 0 .../class/basicForEncoding..st | 3 - .../class/codecs.st | 5 - .../class/supportsEncoding..st | 3 - .../instance/decode..st | 36 - .../instance/decoderFor..st | 5 - .../instance/encodedStringClass.st | 3 - .../instance/encoderFor..st | 5 - .../instance/invalidUtf8.st | 3 - .../instance/name.st | 3 - .../instance/url.st | 3 - .../properties.json | 11 - .../README.md | 1 - .../class/initialize.st | 17 - .../instance/crlf.st | 4 - .../instance/encodeDefault..st | 5 - .../instance/encodeFast..st | 14 - .../instance/greaseNext.putAll.startingAt..st | 5 - .../greaseNext.putAllFast.startingAt..st | 17 - .../instance/invalidUtf8.st | 3 - .../instance/next..st | 46 - .../instance/next.st | 3 - .../instance/nextPut..st | 11 - .../instance/nextPutAll..st | 5 - .../properties.json | 14 - .../GRPharoGenericCodec.class/README.md | 0 .../class/basicForEncoding..st | 5 - .../GRPharoGenericCodec.class/class/codecs.st | 8 - .../class/supportedEncodingNames.st | 8 - .../class/supportsEncoding..st | 4 - .../instance/converter.st | 3 - .../instance/decoderFor..st | 3 - .../instance/encoderFor..st | 5 - .../instance/initializeWithName..st | 7 - .../instance/name.st | 3 - .../GRPharoGenericCodec.class/instance/url.st | 5 - .../GRPharoGenericCodec.class/properties.json | 14 - .../GRPharoLatin1Codec.class/README.md | 1 - .../class/basicForEncoding..st | 5 - .../GRPharoLatin1Codec.class/class/codecs.st | 3 - .../class/supportedEncodingNames.st | 3 - .../class/supportsEncoding..st | 4 - .../instance/decode..st | 5 - .../instance/decoderFor..st | 4 - .../instance/encoderFor..st | 4 - .../instance/initializeWithName..st | 4 - .../GRPharoLatin1Codec.class/instance/name.st | 3 - .../GRPharoLatin1Codec.class/properties.json | 13 - .../GRPharoLatin1CodecStream.class/README.md | 1 - .../instance/next..st | 3 - .../instance/next.st | 3 - .../properties.json | 11 - .../GRPharoPlatform.class/README.md | 1 - .../GRPharoPlatform.class/class/initialize.st | 5 - .../class/initializeUrlTable.st | 7 - .../class/initializeXmlTable.st | 7 - .../GRPharoPlatform.class/class/unload.st | 3 - .../instance/addToShutDownList..st | 5 - .../instance/addToStartUpList..st | 5 - .../asMethodReturningByteArray.named..st | 6 - ...sMethodReturningByteArrayLiteral.named..st | 10 - ...ethodReturningByteArrayWithCache.named..st | 10 - .../instance/base64Decode..st | 3 - .../instance/base64Encode..st | 3 - .../instance/bindingOf..st | 4 - .../instance/compile.into.classified..st | 3 - .../instance/contentsOfFile.binary..st | 3 - .../instance/deleteFile..st | 3 - .../instance/deprecationExceptionSet.st | 6 - .../instance/directoriesIn..st | 8 - .../instance/doSilently..st | 3 - .../instance/ensureExistenceOfFolder..st | 4 - .../instance/fileExists..st | 3 - .../instance/filesIn..st | 8 - .../instance/isProcessTerminated..st | 4 - .../GRPharoPlatform.class/instance/label.st | 3 - .../instance/localNameOf..st | 3 - .../instance/newRandom.st | 10 - .../instance/newTemporaryFile.st | 4 - .../instance/newTemporaryFileNamed..st | 7 - .../instance/newTemporaryFileReference.st | 11 - .../newTemporaryFileReferenceNamed..st | 11 - .../GRPharoPlatform.class/instance/newline.st | 3 - .../instance/openDebuggerOn..st | 18 - .../instance/pathSeparator.st | 3 - .../instance/readFileStreamOn.do.binary..st | 6 - .../instance/readWriteByteStream.st | 5 - .../instance/readWriteCharacterStream.st | 5 - .../instance/removeFromShutDownList..st | 5 - .../instance/removeFromStartUpList..st | 5 - .../instance/removeSelector.from..st | 3 - .../instance/secureHashFor..st | 3 - .../instance/semaphoreClass.st | 4 - .../setutf8CodectoDeprecatedTextConverter.st | 4 - .../instance/setutf8CodectoZinc.st | 4 - .../instance/sizeOfFile..st | 4 - .../instance/sourceCodeStringOf..st | 5 - .../instance/stackDepth.st | 10 - .../instance/terminateProcess..st | 4 - .../instance/thisContext.st | 4 - .../instance/useByteArrayLiterals.st | 4 - .../instance/utf8CodecClass.st | 8 - .../instance/weakDictionaryOfSize..st | 3 - .../instance/write.toFile.inFolder..st | 7 - .../instance/writeFileStreamOn.do.binary..st | 5 - .../GRPharoPlatform.class/properties.json | 16 - .../GRPharoRandomProvider.class/README.md | 0 .../class/initialize.st | 4 - .../class/nextInt..st | 6 - .../class/randomClass.st | 3 - .../class/randomFrom..st | 11 - .../class/startUp.st | 4 - .../class/unload.st | 3 - .../properties.json | 14 - .../GRPharoUtf8Codec.class/README.md | 1 - .../class/basicForEncoding..st | 3 - .../GRPharoUtf8Codec.class/class/codecs.st | 5 - .../class/supportsEncoding..st | 3 - .../instance/decode..st | 3 - .../instance/decoderFor..st | 4 - .../instance/encodedStringClass.st | 3 - .../instance/encoderFor..st | 4 - .../instance/invalidUtf8.st | 3 - .../GRPharoUtf8Codec.class/instance/name.st | 3 - .../GRPharoUtf8Codec.class/instance/url.st | 3 - .../GRPharoUtf8Codec.class/properties.json | 11 - .../GRPharoZnUtf8CodecStream.class/README.md | 0 .../instance/greaseNext.putAll.startingAt..st | 3 - .../instance/initializeOn..st | 4 - .../instance/next..st | 8 - .../instance/next.st | 6 - .../instance/nextPut..st | 3 - .../instance/nextPutAll..st | 5 - .../properties.json | 13 - .../instance/inspectionItems..st | 15 - .../properties.json | 3 - .../instance/inspectionItems..st | 15 - .../properties.json | 3 - .../Interval.extension/instance/any.st | 6 - .../Interval.extension/properties.json | 3 - .../instance/greaseByteAt..st | 3 - .../instance/greaseBytesCount.st | 3 - .../LargeInteger.extension/properties.json | 3 - .../instance/argumentCount.st | 3 - .../instance/valueWithPossibleArguments..st | 7 - .../MessageSend.extension/properties.json | 3 - .../Number.extension/instance/milliseconds.st | 3 - .../Number.extension/properties.json | 3 - .../Object.extension/instance/greaseString.st | 3 - .../Object.extension/properties.json | 3 - .../Point.extension/instance/greaseString.st | 13 - .../Point.extension/properties.json | 3 - .../instance/greaseUpToAll..st | 5 - .../properties.json | 3 - .../instance/encodeOn..st | 5 - .../instance/greaseString.st | 5 - .../ScaledDecimal.extension/properties.json | 3 - .../instance/beginsWithSubCollection..st | 8 - .../instance/endsWithSubCollection..st | 8 - .../instance/greaseBeginsWith..st | 5 - .../instance/greaseEndsWith..st | 5 - .../properties.json | 3 - .../instance/greaseByteAt..st | 3 - .../instance/greaseBytesCount.st | 3 - .../SmallInteger.extension/properties.json | 3 - .../instance/greaseNext.putAll.startingAt..st | 13 - .../SocketStream.extension/properties.json | 3 - .../instance/greaseAsMutator.st | 3 - .../Symbol.extension/properties.json | 3 - .../instance/greaseNext.putAll.startingAt..st | 4 - .../WriteStream.extension/properties.json | 3 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 1 - .../Grease-Pharo90-Core/Behavior.extension.st | 8 + .../BlockClosure.extension.st | 14 + .../ByteArray.extension.st | 7 + .../Character.extension.st | 7 + .../Collection.extension.st | 6 + .../Grease-Pharo90-Core/Color.extension.st | 6 + .../Grease-Pharo90-Core/Duration.extension.st | 16 + .../GRDelegatingStream.extension.st | 6 + .../GRDynamicVariable.class.st | 23 + .../GRPackage.extension.st | 10 + .../GRPharoConverterCodecStream.class.st | 63 + .../GRPharoDeprecatedUtf8Codec.class.st | 95 ++ .../GRPharoDeprecatedUtf8CodecStream.class.st | 166 +++ .../GRPharoGenericCodec.class.st | 81 ++ .../GRPharoLatin1Codec.class.st | 65 + .../GRPharoLatin1CodecStream.class.st | 19 + .../GRPharoPlatform.class.st | 405 ++++++ .../GRPharoRandomProvider.class.st | 53 + .../GRPharoUtf8Codec.class.st | 63 + .../GRPharoZnUtf8CodecStream.class.st | 50 + .../GRSmallDictionary.extension.st | 18 + .../GRSmallDictionary2.extension.st | 18 + .../Grease-Pharo90-Core/Interval.extension.st | 9 + .../LargeInteger.extension.st | 11 + .../MessageSend.extension.st | 15 + .../Grease-Pharo90-Core/Number.extension.st | 6 + .../Grease-Pharo90-Core/Object.extension.st | 6 + .../Grease-Pharo90-Core/Point.extension.st | 16 + .../PositionableStream.extension.st | 8 + .../ScaledDecimal.extension.st | 15 + .../SequenceableCollection.extension.st | 35 + .../SmallInteger.extension.st | 11 + .../SocketStream.extension.st | 16 + .../Grease-Pharo90-Core/Symbol.extension.st | 6 + .../WriteStream.extension.st | 7 + repository/Grease-Pharo90-Core/package.st | 1 + .../Grease-Pharo90-Slime.package/.filetree | 5 - .../GRAnsiBooleansRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 18 - .../GRAnsiBooleansRule.class/instance/name.st | 3 - .../instance/rationale.st | 3 - .../GRAnsiBooleansRule.class/properties.json | 11 - .../GRAnsiCharactersRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 13 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 11 - .../GRAnsiCollectionsRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 30 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 11 - .../GRAnsiConditionalsRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 16 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 11 - .../GRAnsiConvertorRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 6 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../GRAnsiConvertorRule.class/properties.json | 11 - .../GRAnsiExceptionsRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 6 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 11 - .../GRAnsiStreamsRule.class/README.md | 0 .../GRAnsiStreamsRule.class/instance/group.st | 3 - .../instance/initialize.st | 12 - .../GRAnsiStreamsRule.class/instance/name.st | 3 - .../instance/rationale.st | 3 - .../GRAnsiStreamsRule.class/properties.json | 11 - .../GRAnsiStringsRule.class/README.md | 0 .../GRAnsiStringsRule.class/instance/group.st | 3 - .../instance/initialize.st | 24 - .../GRAnsiStringsRule.class/instance/name.st | 3 - .../instance/rationale.st | 3 - .../GRAnsiStringsRule.class/properties.json | 11 - .../README.md | 0 .../instance/checkClass..st | 13 - .../instance/group.st | 3 - .../instance/initialize.st | 7 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 13 - .../GRBlockFormattingRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 23 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 11 - .../README.md | 0 .../instance/checkMethod..st | 20 - .../instance/group.st | 3 - .../instance/initialize.st | 9 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 13 - .../README.md | 0 .../instance/checkMethod..st | 10 - .../instance/group.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 11 - .../GRNonPortableMessageRule.class/README.md | 0 .../instance/checkClass..st | 12 - .../instance/group.st | 3 - .../instance/methodNames.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 11 - .../README.md | 0 .../instance/checkClass..st | 8 - .../instance/checkMethod..st | 17 - .../instance/group.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 11 - .../README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 8 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 11 - .../GRObjectInRule.class/README.md | 1 - .../GRObjectInRule.class/instance/group.st | 3 - .../instance/initialize.st | 6 - .../GRObjectInRule.class/instance/name.st | 3 - .../instance/rationale.st | 3 - .../GRObjectInRule.class/properties.json | 11 - .../GRPackage.extension/class/greaseSlime.st | 8 - .../GRPackage.extension/properties.json | 3 - .../GRParensFormattingRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 20 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 11 - .../GRReturnFormattingRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 11 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 11 - .../GRSlimeBlockLintRule.class/README.md | 0 .../class/isVisible.st | 3 - .../instance/category.st | 3 - .../properties.json | 11 - .../GRSlimeParseTreeLintRule.class/README.md | 0 .../class/isVisible.st | 3 - .../instance/category.st | 3 - .../properties.json | 11 - .../GRSlimeTransformationRule.class/README.md | 0 .../class/isVisible.st | 3 - .../properties.json | 11 - .../GRTempsFormattingRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 18 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 11 - .../GRTestAssertionsRule.class/README.md | 1 - .../instance/checkMethod..st | 7 - .../instance/group.st | 3 - .../instance/initialize.st | 6 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 11 - .../README.md | 0 .../instance/checkMethod..st | 7 - .../instance/group.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../instance/resetResult.st | 4 - .../properties.json | 11 - .../README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 8 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 11 - .../GRUsesClassForHashRule.class/README.md | 0 .../instance/checkMethod..st | 4 - .../instance/group.st | 3 - .../instance/initialize.st | 6 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 11 - .../README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 6 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 11 - .../README.md | 0 .../instance/checkMethod..st | 8 - .../instance/group.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../instance/shouldExclude..st | 9 - .../properties.json | 11 - .../README.md | 0 .../instance/checkClass..st | 6 - .../instance/checkMethod..st | 12 - .../instance/classNames.st | 3 - .../instance/group.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 11 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 1 - .../GRAnsiBooleansRule.class.st | 41 + .../GRAnsiCharactersRule.class.st | 36 + .../GRAnsiCollectionsRule.class.st | 53 + .../GRAnsiConditionalsRule.class.st | 39 + .../GRAnsiConvertorRule.class.st | 29 + .../GRAnsiExceptionsRule.class.st | 29 + .../GRAnsiStreamsRule.class.st | 35 + .../GRAnsiStringsRule.class.st | 47 + .../GRBasicNewInitializeMissingRule.class.st | 48 + .../GRBlockFormattingRule.class.st | 46 + .../GRDeprecatedApiProtocolRule.class.st | 57 + ...GRInvalidObjectInitializationRule.class.st | 33 + .../GRNonPortableMessageRule.class.st | 40 + .../GRNonPortableSourceFormatRule.class.st | 50 + .../GRNotPortableCollectionsRule.class.st | 31 + .../GRObjectInRule.class.st | 33 + .../GRPackage.extension.st | 11 + .../GRParensFormattingRule.class.st | 43 + .../GRReturnFormattingRule.class.st | 34 + .../GRSlimeBlockLintRule.class.st | 16 + .../GRSlimeParseTreeLintRule.class.st | 16 + .../GRSlimeTransformationRule.class.st | 11 + .../GRTempsFormattingRule.class.st | 41 + .../GRTestAssertionsRule.class.st | 41 + .../GRUnnecessaryLastPeriodRule.class.st | 36 + .../GRUsesCanPerformOrUnderstandRule.class.st | 31 + .../GRUsesClassForHashRule.class.st | 35 + .../GRUsesCurlyBraceArraysRule.class.st | 29 + .../GRUsesMethodAnnotationsRule.class.st | 42 + .../GRUsesNotPortableClassRule.class.st | 48 + repository/Grease-Pharo90-Slime/package.st | 1 + repository/Grease-Slime.package/.filetree | 4 - .../GRAnsiBooleansRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 18 - .../GRAnsiBooleansRule.class/instance/name.st | 3 - .../instance/rationale.st | 3 - .../GRAnsiBooleansRule.class/properties.json | 14 - .../GRAnsiCharactersRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 13 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRAnsiCollectionsRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 30 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRAnsiConditionalsRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 16 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRAnsiConvertorRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 6 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../GRAnsiConvertorRule.class/properties.json | 14 - .../GRAnsiExceptionsRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 6 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRAnsiStreamsRule.class/README.md | 0 .../GRAnsiStreamsRule.class/instance/group.st | 3 - .../instance/initialize.st | 12 - .../GRAnsiStreamsRule.class/instance/name.st | 3 - .../instance/rationale.st | 3 - .../GRAnsiStreamsRule.class/properties.json | 14 - .../GRAnsiStringsRule.class/README.md | 0 .../GRAnsiStringsRule.class/instance/group.st | 3 - .../instance/initialize.st | 24 - .../GRAnsiStringsRule.class/instance/name.st | 3 - .../instance/rationale.st | 3 - .../GRAnsiStringsRule.class/properties.json | 14 - .../README.md | 0 .../instance/checkClass..st | 13 - .../instance/group.st | 3 - .../instance/initialize.st | 7 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRBlockFormattingRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 23 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../README.md | 0 .../instance/checkMethod..st | 15 - .../instance/group.st | 3 - .../instance/initialize.st | 9 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GREmptyStatementsRule.class/README.md | 0 .../instance/checkMethod..st | 12 - .../instance/group.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../instance/resetResult.st | 4 - .../properties.json | 14 - .../README.md | 0 .../instance/checkMethod..st | 10 - .../instance/group.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRNonPortableMessageRule.class/README.md | 0 .../instance/checkClass..st | 12 - .../instance/group.st | 3 - .../instance/methodNames.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../README.md | 0 .../instance/checkClass..st | 8 - .../instance/checkMethod..st | 17 - .../instance/group.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 8 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRObjectInRule.class/README.md | 1 - .../GRObjectInRule.class/instance/group.st | 3 - .../instance/initialize.st | 6 - .../GRObjectInRule.class/instance/name.st | 3 - .../instance/rationale.st | 3 - .../GRObjectInRule.class/properties.json | 14 - .../GRPackage.extension/class/greaseSlime.st | 8 - .../GRPackage.extension/properties.json | 2 - .../GRParensFormattingRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 20 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRReturnFormattingRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 11 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRSlimeBlockLintRule.class/README.md | 0 .../class/isVisible.st | 3 - .../instance/category.st | 3 - .../properties.json | 14 - .../GRSlimeParseTreeLintRule.class/README.md | 0 .../class/isVisible.st | 3 - .../instance/category.st | 3 - .../properties.json | 14 - .../GRSlimeTransformationRule.class/README.md | 0 .../class/isVisible.st | 3 - .../properties.json | 14 - .../GRTempsFormattingRule.class/README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 18 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRTestAssertionsRule.class/README.md | 1 - .../instance/checkMethod..st | 7 - .../instance/group.st | 3 - .../instance/initialize.st | 6 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../README.md | 0 .../instance/checkMethod..st | 7 - .../instance/group.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../instance/resetResult.st | 4 - .../properties.json | 14 - .../README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 8 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../GRUsesClassForHashRule.class/README.md | 0 .../instance/checkMethod..st | 4 - .../instance/group.st | 3 - .../instance/initialize.st | 6 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 6 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../README.md | 0 .../instance/group.st | 3 - .../instance/initialize.st | 6 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../README.md | 0 .../instance/checkMethod..st | 8 - .../instance/group.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../instance/shouldExclude..st | 7 - .../properties.json | 14 - .../README.md | 0 .../instance/checkClass..st | 6 - .../instance/checkMethod..st | 11 - .../instance/classNames.st | 3 - .../instance/group.st | 3 - .../instance/name.st | 3 - .../instance/rationale.st | 3 - .../properties.json | 14 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../Grease-Slime.package/properties.json | 2 - .../Grease-Slime/GRAnsiBooleansRule.class.st | 41 + .../GRAnsiCharactersRule.class.st | 36 + .../GRAnsiCollectionsRule.class.st | 53 + .../GRAnsiConditionalsRule.class.st | 39 + .../Grease-Slime/GRAnsiConvertorRule.class.st | 29 + .../GRAnsiExceptionsRule.class.st | 29 + .../Grease-Slime/GRAnsiStreamsRule.class.st | 35 + .../Grease-Slime/GRAnsiStringsRule.class.st | 47 + .../GRBasicNewInitializeMissingRule.class.st | 48 + .../GRBlockFormattingRule.class.st | 46 + .../GRDeprecatedApiProtocolRule.class.st | 52 + .../GREmptyStatementsRule.class.st | 41 + ...GRInvalidObjectInitializationRule.class.st | 33 + .../GRNonPortableMessageRule.class.st | 40 + .../GRNonPortableSourceFormatRule.class.st | 50 + .../GRNotPortableCollectionsRule.class.st | 31 + .../Grease-Slime/GRObjectInRule.class.st | 33 + .../Grease-Slime/GRPackage.extension.st | 11 + .../GRParensFormattingRule.class.st | 43 + .../GRReturnFormattingRule.class.st | 34 + .../GRSlimeBlockLintRule.class.st | 16 + .../GRSlimeParseTreeLintRule.class.st | 16 + .../GRSlimeTransformationRule.class.st | 11 + .../GRTempsFormattingRule.class.st | 41 + .../GRTestAssertionsRule.class.st | 41 + .../GRUnnecessaryLastPeriodRule.class.st | 36 + .../GRUsesCanPerformOrUnderstandRule.class.st | 31 + .../GRUsesClassForHashRule.class.st | 35 + .../GRUsesCurlyBraceArraysRule.class.st | 29 + .../GRUsesLiteralByteArraysRule.class.st | 29 + .../GRUsesMethodAnnotationsRule.class.st | 40 + .../GRUsesNotPortableClassRule.class.st | 47 + repository/Grease-Slime/package.st | 1 + .../Grease-Squeak6-Core.package/.filetree | 4 - .../Behavior.extension/instance/fullName.st | 5 - .../Behavior.extension/methodProperties.json | 5 - .../Behavior.extension/properties.json | 2 - .../instance/valueWithPossibleArguments..st | 4 - .../methodProperties.json | 5 - .../BlockClosure.extension/properties.json | 2 - .../instance/greaseString.st | 4 - .../ByteArray.extension/methodProperties.json | 5 - .../ByteArray.extension/properties.json | 2 - .../instance/greaseInteger.st | 4 - .../Character.extension/methodProperties.json | 5 - .../Character.extension/properties.json | 2 - .../Collection.extension/instance/any.st | 3 - .../methodProperties.json | 5 - .../Collection.extension/properties.json | 2 - .../Duration.extension/class/milliseconds..st | 3 - .../instance/asMilliseconds.st | 3 - .../instance/milliseconds.st | 3 - .../Duration.extension/methodProperties.json | 6 - .../Duration.extension/properties.json | 2 - .../instance/greaseNext.putAll.startingAt..st | 3 - .../methodProperties.json | 5 - .../properties.json | 2 - .../GRDynamicVariable.class/README.md | 0 .../GRDynamicVariable.class/class/default.st | 3 - .../class/defaultValue.st | 3 - .../class/use.during..st | 5 - .../methodProperties.json | 7 - .../GRDynamicVariable.class/properties.json | 14 - .../class/greaseSqueak6Core.st | 7 - .../GRPackage.extension/methodProperties.json | 5 - .../GRPackage.extension/properties.json | 2 - .../GRPharoPlatform.class/README.md | 1 - .../methodProperties.json | 5 - .../GRPharoPlatform.class/properties.json | 14 - .../instance/customizeExplorerContents.st | 3 - .../instance/explorerContents.st | 9 - .../instance/hasContentsInExplorer.st | 3 - .../methodProperties.json | 7 - .../properties.json | 2 - .../README.md | 7 - .../class/on.converter..st | 3 - .../instance/greaseNext.putAll.startingAt..st | 3 - .../instance/initializeOn.converter..st | 4 - .../instance/next..st | 8 - .../instance/next.st | 6 - .../instance/nextPut..st | 3 - .../instance/nextPutAll..st | 3 - .../properties.json | 14 - .../GRSqueakGenericCodec.class/README.md | 0 .../class/basicForEncoding..st | 5 - .../class/codecs.st | 8 - .../class/supportedEncodingNames.st | 8 - .../class/supportsEncoding..st | 4 - .../instance/converter.st | 3 - .../instance/decoderFor..st | 3 - .../instance/encoderFor..st | 5 - .../instance/initializeWithName..st | 7 - .../instance/name.st | 3 - .../instance/url.st | 5 - .../properties.json | 15 - .../GRSqueakLatin1Codec.class/README.md | 1 - .../class/basicForEncoding..st | 5 - .../GRSqueakLatin1Codec.class/class/codecs.st | 3 - .../class/supportedEncodingNames.st | 3 - .../class/supportsEncoding..st | 4 - .../instance/decode..st | 5 - .../instance/decoderFor..st | 4 - .../instance/encoderFor..st | 4 - .../instance/initializeWithName..st | 4 - .../instance/name.st | 3 - .../GRSqueakLatin1Codec.class/properties.json | 14 - .../GRSqueakLatin1CodecStream.class/README.md | 1 - .../instance/next..st | 3 - .../instance/next.st | 3 - .../properties.json | 14 - .../GRSqueakPlatform.class/README.md | 1 - .../class/initialize.st | 5 - .../class/initializeUrlTable.st | 7 - .../class/initializeXmlTable.st | 7 - .../GRSqueakPlatform.class/class/unload.st | 3 - .../instance/addToShutDownList..st | 5 - .../instance/addToStartUpList..st | 5 - .../asMethodReturningByteArray.named..st | 6 - ...sMethodReturningByteArrayLiteral.named..st | 10 - ...ethodReturningByteArrayWithCache.named..st | 10 - .../instance/base64Decode..st | 3 - .../instance/base64Encode..st | 3 - .../instance/bindingOf..st | 4 - .../instance/compile.into.classified..st | 31 - .../instance/contentsOfFile.binary..st | 12 - .../instance/defaultDirectoryPathString.st | 3 - .../instance/deleteFile..st | 3 - .../instance/deprecationExceptionSet.st | 3 - .../instance/directoriesIn..st | 9 - .../instance/doSilently..st | 3 - .../instance/ensureExistenceOfFolder..st | 4 - .../instance/fileExists..st | 3 - .../instance/fileNameFor..st | 7 - .../instance/fileStreamOn.do.binary..st | 13 - .../instance/filesIn..st | 9 - .../instance/integerAsByteArray..st | 10 - .../instance/isDirectory..st | 3 - .../instance/isProcessTerminated..st | 4 - .../GRSqueakPlatform.class/instance/label.st | 3 - .../instance/localNameOf..st | 3 - .../instance/newRandom.st | 10 - .../instance/newTemporaryFile.st | 4 - .../instance/newTemporaryFileNamed..st | 7 - .../instance/newline.st | 3 - .../instance/openDebuggerOn..st | 5 - .../instance/pathSeparator.st | 3 - .../instance/readFileStreamOn.do.binary..st | 13 - .../instance/readWriteByteStream.st | 5 - .../instance/readWriteCharacterStream.st | 5 - .../instance/removeFromShutDownList..st | 5 - .../instance/removeFromStartUpList..st | 5 - .../instance/removeSelector.from..st | 3 - .../instance/secureHashFor..st | 3 - .../instance/semaphoreClass.st | 4 - .../instance/sizeOfFile..st | 4 - .../instance/sourceCodeStringOf..st | 5 - .../instance/stackDepth.st | 10 - .../instance/terminateProcess..st | 4 - .../instance/thisContext.st | 4 - .../instance/useByteArrayLiterals.st | 11 - .../instance/weakDictionaryOfSize..st | 3 - .../instance/write.toFile.inFolder..st | 15 - .../instance/writeFileStreamOn.do.binary..st | 8 - .../methodProperties.json | 54 - .../GRSqueakPlatform.class/properties.json | 15 - .../GRSqueakUtf8Codec.class/README.md | 1 - .../class/basicForEncoding..st | 3 - .../GRSqueakUtf8Codec.class/class/codecs.st | 3 - .../class/supportsEncoding..st | 3 - .../instance/decode..st | 36 - .../instance/decoderFor..st | 5 - .../instance/encoderFor..st | 5 - .../instance/invalidUtf8.st | 3 - .../GRSqueakUtf8Codec.class/instance/name.st | 3 - .../GRSqueakUtf8Codec.class/instance/url.st | 3 - .../GRSqueakUtf8Codec.class/properties.json | 14 - .../GRSqueakUtf8CodecStream.class/README.md | 1 - .../class/initialize.st | 17 - .../instance/crlf.st | 4 - .../instance/encodeDefault..st | 5 - .../instance/encodeFast..st | 14 - .../instance/greaseNext.putAll.startingAt..st | 5 - .../greaseNext.putAllFast.startingAt..st | 17 - .../instance/invalidUtf8.st | 3 - .../instance/next..st | 46 - .../instance/next.st | 3 - .../instance/nextPut..st | 11 - .../instance/nextPutAll..st | 5 - .../properties.json | 15 - .../Interval.extension/instance/any.st | 6 - .../Interval.extension/methodProperties.json | 5 - .../Interval.extension/properties.json | 2 - .../instance/greaseByteAt..st | 8 - .../instance/greaseBytesCount.st | 8 - .../methodProperties.json | 6 - .../properties.json | 2 - .../instance/argumentCount.st | 3 - .../instance/valueWithPossibleArguments..st | 7 - .../methodProperties.json | 6 - .../MessageSend.extension/properties.json | 2 - .../Number.extension/instance/milliseconds.st | 3 - .../Number.extension/methodProperties.json | 5 - .../Number.extension/properties.json | 2 - .../Object.extension/instance/greaseString.st | 3 - .../Object.extension/instance/sizeInMemory.st | 9 - .../Object.extension/methodProperties.json | 6 - .../Object.extension/properties.json | 2 - .../PackageManifest.class/README.md | 0 .../PackageManifest.class/properties.json | 14 - .../instance/greaseUpToAll..st | 5 - .../methodProperties.json | 5 - .../properties.json | 2 - .../Random.extension/instance/randomFrom..st | 4 - .../Random.extension/methodProperties.json | 5 - .../Random.extension/properties.json | 2 - .../instance/encodeOn..st | 6 - .../instance/greaseString.st | 5 - .../methodProperties.json | 6 - .../ScaledDecimal.extension/properties.json | 2 - .../instance/beginsWithSubCollection..st | 8 - .../instance/endsWithSubCollection..st | 8 - .../instance/greaseBeginsWith..st | 5 - .../instance/greaseEndsWith..st | 5 - .../methodProperties.json | 8 - .../properties.json | 2 - .../instance/greaseByteAt..st | 14 - .../instance/greaseBytesCount.st | 25 - .../methodProperties.json | 6 - .../SmallInteger.extension/properties.json | 2 - .../instance/greaseNext.putAll.startingAt..st | 10 - .../methodProperties.json | 5 - .../SocketStream.extension/properties.json | 2 - .../instance/padLeftTo.with..st | 3 - .../instance/padRightTo.with..st | 3 - .../String.extension/instance/substrings..st | 5 - .../String.extension/instance/trimBoth..st | 5 - .../String.extension/instance/trimBoth.st | 5 - .../String.extension/instance/trimLeft..st | 5 - .../instance/trimLeft.right..st | 12 - .../String.extension/instance/trimLeft.st | 5 - .../String.extension/instance/trimRight..st | 5 - .../String.extension/instance/trimRight.st | 5 - .../String.extension/methodProperties.json | 14 - .../String.extension/properties.json | 2 - .../instance/greaseAsMutator.st | 4 - .../Symbol.extension/methodProperties.json | 5 - .../Symbol.extension/properties.json | 2 - .../instance/greaseNext.putAll.startingAt..st | 4 - .../methodProperties.json | 5 - .../WriteStream.extension/properties.json | 2 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../monticello.meta/version | 1 - .../properties.json | 2 - .../Grease-Squeak6-Core/Behavior.extension.st | 8 + .../BlockClosure.extension.st | 7 + .../ByteArray.extension.st | 7 + .../Character.extension.st | 7 + .../Collection.extension.st | 6 + .../Grease-Squeak6-Core/Duration.extension.st | 16 + .../GRDelegatingStream.extension.st | 6 + .../GRDynamicVariable.class.st | 23 + .../GRPackage.extension.st | 10 + .../GRPharoPlatform.class.st | 9 + .../GRSmallDictionary.extension.st | 22 + .../GRSqueakConverterCodecStream.class.st | 63 + .../GRSqueakGenericCodec.class.st | 81 ++ .../GRSqueakLatin1Codec.class.st | 65 + .../GRSqueakLatin1CodecStream.class.st | 19 + .../GRSqueakPlatform.class.st | 448 ++++++ .../GRSqueakUtf8Codec.class.st | 91 ++ .../GRSqueakUtf8CodecStream.class.st | 166 +++ .../Grease-Squeak6-Core/Interval.extension.st | 9 + .../LargePositiveInteger.extension.st | 21 + .../MessageSend.extension.st | 15 + .../Grease-Squeak6-Core/Number.extension.st | 6 + .../Grease-Squeak6-Core/Object.extension.st | 17 + .../PackageManifest.class.st | 6 + .../PositionableStream.extension.st | 8 + .../Grease-Squeak6-Core/Random.extension.st | 7 + .../ScaledDecimal.extension.st | 16 + .../SequenceableCollection.extension.st | 35 + .../SmallInteger.extension.st | 44 + .../SocketStream.extension.st | 14 + .../Grease-Squeak6-Core/String.extension.st | 75 + .../Grease-Squeak6-Core/Symbol.extension.st | 8 + .../WriteStream.extension.st | 7 + repository/Grease-Squeak6-Core/package.st | 1 + .../Grease-Tests-Core.package/.filetree | 5 - .../GRAbstractDictionaryTest.class/README.md | 0 .../class/isAbstract.st | 3 - .../instance/allowsDuplicateValues.st | 3 - .../instance/arbitraryAssociations.st | 3 - .../instance/arbitraryCollection.st | 7 - .../instance/createArbitraryAssociations.st | 3 - .../instance/isExtensible.st | 3 - .../instance/isInitializable.st | 3 - .../instance/isKey.equivalentTo..st | 3 - .../instance/testAssociationsDo.st | 17 - .../instance/valuesOf..st | 3 - .../properties.json | 13 - .../README.md | 0 .../class/isAbstract.st | 3 - .../instance/isHomogeneous.st | 4 - .../instance/isSequenced.st | 6 - .../instance/isUnique.st | 4 - .../instance/testAddFirst.st | 9 - .../testBeginsWithEmptySubCollection.st | 6 - .../instance/testBeginsWithSubCollection.st | 7 - .../instance/testCopyAfter.st | 35 - .../instance/testCopyAfterLast.st | 35 - .../instance/testCopyUpTo.st | 37 - .../instance/testCopyUpToLast.st | 37 - .../testEndsWithEmptySubCollection.st | 6 - .../instance/testEndsWithSubCollection.st | 7 - .../instance/testGreaseBeginsWith.st | 9 - .../instance/testGreaseEndsWith.st | 9 - .../instance/testSort.st | 11 - .../properties.json | 11 - .../GRArrayTest.class/README.md | 0 .../instance/allowsDuplicateValues.st | 3 - .../instance/collectionClass.st | 3 - .../instance/isExtensible.st | 3 - .../instance/isHomogeneous.st | 3 - .../instance/isInitializable.st | 3 - .../GRArrayTest.class/instance/isSequenced.st | 3 - .../GRArrayTest.class/instance/isUnique.st | 3 - .../GRArrayTest.class/properties.json | 11 - .../GRBagTest.class/README.md | 0 .../instance/allowsDuplicateValues.st | 3 - .../instance/collectionClass.st | 3 - .../GRBagTest.class/instance/isExtensible.st | 3 - .../instance/isInitializable.st | 3 - .../GRBagTest.class/properties.json | 11 - .../GRCodecTest.class/README.md | 0 .../GRCodecTest.class/instance/asString..st | 5 - .../instance/decodedString.st | 3 - .../instance/latin1String.st | 3 - .../instance/macromanString.st | 3 - .../instance/seasideByteArray.st | 3 - .../instance/testAllCodecs.st | 6 - .../instance/testCodecLatin1.st | 14 - .../testCodecLatin1BorderLineString.st | 9 - .../GRCodecTest.class/instance/testNext.st | 8 - .../instance/testNullCodec.st | 16 - .../GRCodecTest.class/instance/testReset.st | 11 - .../instance/utf16beString.st | 3 - .../instance/utf16leString.st | 3 - .../GRCodecTest.class/instance/utf8String.st | 3 - .../GRCodecTest.class/properties.json | 11 - .../GRCollectionTest.class/README.md | 0 .../class/isAbstract.st | 3 - .../instance/allowsDuplicateValues.st | 5 - .../instance/arbitraryCollection.st | 8 - .../instance/assert.sortedWith..st | 9 - .../assert.validSequencedNewResponseFrom..st | 7 - .../assert.validSequencedResponseFrom..st | 5 - .../instance/collectionClass.st | 5 - .../instance/duplicateElement.st | 5 - .../instance/emptyCollection.st | 5 - .../instance/excludedElement.st | 5 - .../instance/includedElement.st | 5 - .../instance/isExtensible.st | 6 - .../instance/isInitializable.st | 6 - .../isValidNewSequencedResponseClass..st | 10 - .../instance/testAny.st | 6 - .../instance/testEmptyAny.st | 6 - .../instance/testIsCollection.st | 3 - .../instance/testNoneSatisfy.st | 8 - .../instance/testNotEmpty.st | 7 - .../instance/testSorted.st | 11 - .../instance/valuesOf..st | 5 - .../GRCollectionTest.class/properties.json | 11 - .../GRCountingStreamTest.class/README.md | 0 .../instance/setUp.st | 5 - .../instance/testInitialSize.st | 3 - .../instance/testNextPut.st | 6 - .../instance/testNextPutAll.st | 6 - .../instance/testReset.st | 6 - .../properties.json | 13 - .../GRDelayedSendTest.class/README.md | 0 .../instance/testArgumentCount.st | 42 - .../instance/testValueBinary.st | 14 - .../instance/testValueKeyword.st | 23 - .../instance/testValueUnary.st | 12 - .../instance/testValueValueBinary.st | 22 - .../instance/testValueValueKeyword.st | 31 - .../instance/testValueValueUnary.st | 22 - .../instance/testValueWithArgumentBinary.st | 14 - .../instance/testValueWithArgumentKeyword.st | 21 - .../instance/testValueWithArgumentUnary.st | 16 - .../instance/testValueWithArgumentsBinary.st | 16 - .../instance/testValueWithArgumentsKeyword.st | 21 - .../instance/testValueWithArgumentsUnary.st | 16 - .../testValueWithPossibleArgumentsBinary.st | 32 - .../testValueWithPossibleArgumentsKeyword.st | 57 - .../testValueWithPossibleArgumentsUnary.st | 30 - .../GRDelayedSendTest.class/properties.json | 11 - .../GRDictionaryTest.class/README.md | 0 .../instance/collectionClass.st | 3 - .../instance/createArbitraryAssociations.st | 9 - .../instance/isKey.equivalentTo..st | 3 - .../GRDictionaryTest.class/properties.json | 11 - .../GRDurationTest.class/README.md | 0 .../instance/testAccessors.st | 9 - .../instance/testBasicInstanceCreation.st | 9 - .../instance/testConversions.st | 8 - .../instance/testIntegerConvenienceMethods.st | 8 - .../instance/testMixedInstanceCreation.st | 3 - .../instance/testNegativeInstanceCreation.st | 9 - .../testPartialSecondsInstanceCreation.st | 8 - .../instance/testRolloverInstanceCreation.st | 7 - .../GRDurationTest.class/instance/testZero.st | 7 - .../GRDurationTest.class/properties.json | 11 - .../GRDynamicVariableTest.class/README.md | 0 .../instance/testAnswer.st | 3 - .../instance/testDefaultValue.st | 8 - .../instance/testWithNestedValue.st | 9 - .../instance/testWithValue.st | 5 - .../instance/testWithoutValue.st | 3 - .../properties.json | 11 - .../GRErrorStub.class/README.md | 0 .../GRErrorStub.class/instance/foo.st | 3 - .../GRErrorStub.class/instance/initialize.st | 4 - .../GRErrorStub.class/properties.json | 13 - .../GRExceptionTest.class/README.md | 0 .../instance/onExceptionReturn..st | 7 - .../instance/testDefaultActionResume.st | 9 - .../instance/testDeprecatedApi.st | 19 - .../instance/testErrorInitialization.st | 4 - .../instance/testIsResumable.st | 14 - .../testNotificationInitialization.st | 4 - .../instance/testOnDoImplicitReturn.st | 12 - .../instance/testOnDoNonLocalReturn.st | 7 - .../instance/testSignalError.st | 10 - .../instance/testSignalErrorClassSide.st | 10 - .../instance/testSignalNotification.st | 10 - .../testSignalNotificationClassSide.st | 10 - .../instance/testSignalWithError.st | 15 - .../instance/testSignalWithErrorClassSide.st | 15 - .../instance/testSignalWithNotification.st | 15 - .../testSignalWithNotificationClassSide.st | 15 - .../GRExceptionTest.class/properties.json | 11 - .../GRIdentityDictionaryTest.class/README.md | 0 .../instance/collectionClass.st | 3 - .../instance/createArbitraryAssociations.st | 9 - .../instance/isKey.equivalentTo..st | 3 - .../properties.json | 11 - .../GRIntervalTest.class/README.md | 0 .../instance/allowsDuplicateValues.st | 3 - .../instance/arbitraryCollection.st | 3 - .../instance/collectionClass.st | 3 - .../instance/emptyCollection.st | 3 - .../instance/isExtensible.st | 3 - .../instance/isHomogeneous.st | 3 - .../instance/isInitializable.st | 3 - .../instance/isSequenced.st | 3 - .../GRIntervalTest.class/instance/isUnique.st | 3 - .../instance/testBeginsWithSubCollection.st | 5 - .../instance/testEndsWithSubCollection.st | 5 - .../instance/testSorted.st | 12 - .../GRIntervalTest.class/properties.json | 11 - .../README.md | 0 .../instance/testAnswer.st | 3 - .../instance/testDefaultValue.st | 8 - .../instance/testWithNestedValue.st | 9 - .../instance/testWithValue.st | 5 - .../instance/testWithoutValue.st | 3 - .../properties.json | 11 - .../GRNotificationStub.class/README.md | 0 .../instance/defaultAction.st | 3 - .../GRNotificationStub.class/instance/foo.st | 3 - .../instance/initialize.st | 4 - .../GRNotificationStub.class/properties.json | 13 - .../GRNullCodecStreamTest.class/README.md | 0 .../instance/codecStreamClass.st | 3 - .../instance/testCrlf.st | 10 - .../instance/testFlush.st | 8 - .../instance/testName.st | 6 - .../instance/testNext.st | 7 - .../instance/testPrint.st | 7 - .../instance/testReadString.st | 7 - .../instance/testSize.st | 9 - .../instance/testSpace.st | 9 - .../instance/testTab.st | 9 - .../instance/testWriteString.st | 11 - .../properties.json | 11 - .../GRNumberTest.class/README.md | 0 .../instance/testBetweenAnd.st | 3 - .../instance/testPluralize.st | 15 - .../instance/testReadFrom.st | 9 - .../GRNumberTest.class/instance/testTo.st | 26 - .../GRNumberTest.class/instance/testToDo.st | 26 - .../instance/testToDoClosures.st | 11 - .../GRNumberTest.class/properties.json | 11 - .../GRObjectStub.class/README.md | 0 .../GRObjectStub.class/instance/foo.st | 3 - .../GRObjectStub.class/instance/initialize.st | 4 - .../GRObjectStub.class/properties.json | 13 - .../GRObjectTest.class/README.md | 0 .../GRObjectTest.class/instance/testError.st | 9 - .../instance/testInitialize.st | 4 - .../instance/testRespondsTo.st | 4 - .../GRObjectTest.class/properties.json | 11 - .../GROrderedCollectionTest.class/README.md | 0 .../instance/allowsDuplicateValues.st | 3 - .../instance/collectionClass.st | 3 - .../instance/isExtensible.st | 3 - .../instance/isHomogeneous.st | 3 - .../instance/isInitializable.st | 3 - .../instance/isSequenced.st | 3 - .../instance/isUnique.st | 3 - .../properties.json | 11 - .../GROrderedMultiMap2Test.class/README.md | 0 .../instance/collectionClass.st | 3 - .../properties.json | 11 - .../GROrderedMultiMapTest.class/README.md | 0 .../class/shouldInheritSelectors.st | 3 - .../instance/allowsDuplicateKeys.st | 3 - .../instance/collectionClass.st | 3 - .../instance/testAllAt.st | 6 - .../instance/testAllAtIfAbsent.st | 6 - .../instance/testAtAdd.st | 5 - .../instance/testKeysAndAllValuesDo.st | 19 - .../properties.json | 11 - .../class/greaseTestsCore.st | 8 - .../GRPackage.extension/properties.json | 3 - .../GRPackageTest.class/README.md | 0 .../GRPackageTest.class/instance/setUp.st | 4 - .../instance/testAllDependencies.st | 23 - .../instance/testDependencies.st | 8 - .../instance/testDescription.st | 5 - .../instance/testLicense.st | 8 - .../GRPackageTest.class/instance/testName.st | 5 - .../instance/testPackages.st | 10 - .../GRPackageTest.class/instance/testUrl.st | 9 - .../GRPackageTest.class/properties.json | 13 - .../GRPlatformTest.class/README.md | 1 - .../instance/decodeUtf8Character..st | 9 - .../GRPlatformTest.class/instance/platform.st | 4 - .../instance/returnSender.st | 4 - .../GRPlatformTest.class/instance/runCase.st | 3 - .../instance/testAsNumber.st | 4 - .../instance/testBase64Decode.st | 14 - .../instance/testBase64Encode.st | 14 - .../instance/testBindingOf.st | 5 - .../testBlockContextWithPossibleArguments.st | 8 - .../instance/testBlockValuableProtocol.st | 14 - .../instance/testCharacterAsUnicode.st | 6 - .../instance/testCharacterTo.st | 75 - .../instance/testCompileAsciiString.st | 17 - .../instance/testCompileUnicodeString.st | 15 - .../testConvertToSmalltalkNewlines.st | 19 - .../instance/testDateArithmetic.st | 13 - .../instance/testDaysInMonthForYear.st | 4 - .../instance/testDigitValue.st | 5 - .../instance/testEmptyOrNil.st | 6 - .../instance/testFileExists.st | 9 - .../instance/testGreaseAsByteArray.st | 7 - .../instance/testGreaseByteAt.st | 8 - .../instance/testGreaseBytesCount.st | 5 - .../testGreaseIntegerOnCharacterAscii.st | 5 - .../testGreaseIntegerOnCharacterBmp.st | 6 - .../testGreaseIntegerOnCharacterLatin1.st | 6 - .../testGreaseIntegerOnCharacterSmp.st | 6 - .../instance/testGreaseIntegerOnNumber.st | 6 - .../instance/testGreaseIntegerOnString.st | 16 - .../instance/testGreaseString.st | 29 - .../instance/testIfNil.st | 4 - .../instance/testIfTrueIfFalse.st | 10 - .../instance/testIsCharacter.st | 4 - .../instance/testIsCollection.st | 3 - .../instance/testIsKeyword.st | 6 - .../instance/testIsUnary.st | 6 - .../instance/testLabel.st | 4 - .../instance/testNewTemporaryFile.st | 20 - .../instance/testNewTemporaryFileNamed.st | 16 - .../instance/testNewline.st | 4 - .../instance/testNumArgs.st | 6 - .../instance/testPathSeparator.st | 3 - .../instance/testPrintStringLimitedTo.st | 10 - .../instance/testRandomGenerator.st | 19 - .../instance/testReadStreamAtEnd.st | 10 - .../instance/testReadStreamContents.st | 9 - .../instance/testReadStreamNegativeSkip.st | 14 - .../instance/testReadStreamNext.st | 10 - .../instance/testReadStreamPeek.st | 10 - .../instance/testReadStreamPosition.st | 22 - .../instance/testReadStreamReset.st | 9 - .../instance/testReadStreamSeasideUpToAll.st | 9 - .../instance/testReadStreamSkip.st | 7 - .../instance/testReadStreamUpTo.st | 12 - .../instance/testReadStreamUpToEnd.st | 15 - .../instance/testReadWriteStreamAtEnd.st | 10 - .../instance/testReadWriteStreamContents.st | 18 - .../testReadWriteStreamNegativeSkip.st | 30 - .../instance/testReadWriteStreamNext.st | 20 - .../instance/testReadWriteStreamNextPut.st | 10 - .../instance/testReadWriteStreamNextPutAll.st | 13 - .../instance/testReadWriteStreamPeek.st | 16 - .../instance/testReadWriteStreamPosition.st | 42 - .../instance/testReadWriteStreamReset.st | 24 - .../instance/testReadWriteStreamSkip.st | 18 - .../instance/testReadWriteStreamTab.st | 7 - .../instance/testReadWriteStreamUpTo.st | 28 - .../instance/testReadWriteStreamUpToEnd.st | 28 - .../instance/testSeconds.st | 3 - .../instance/testSecureHashFor.st | 19 - .../instance/testShutDownList.st | 6 - .../instance/testSizeOfFile.st | 9 - .../instance/testSourceCodeStringOf.st | 11 - .../instance/testStackDepth.st | 9 - .../instance/testStartUpList.st | 6 - .../instance/testSymbolAsMutator.st | 6 - .../instance/testTerminate.st | 23 - .../instance/testThisContext.st | 27 - .../instance/testTotalSeconds.st | 8 - .../instance/testVersion.st | 5 - .../instance/testWriteStreamContents.st | 12 - .../instance/testWriteStreamCrLf.st | 7 - .../instance/testWriteStreamNextPut.st | 8 - .../instance/testWriteStreamNextPutAll.st | 12 - .../instance/testWriteStreamPosition.st | 9 - .../instance/testWriteStreamReset.st | 10 - .../instance/testWriteStreamSpace.st | 8 - .../instance/testWriteStreamTab.st | 8 - .../instance/testWriteToFileInFolder.st | 27 - .../GRPlatformTest.class/properties.json | 11 - .../GRPrinterTest.class/README.md | 0 .../instance/separate.left..st | 9 - .../instance/testComposedPrinter.st | 9 - .../instance/testCookieTimestamp.st | 17 - .../instance/testDigitsOf.st | 25 - .../instance/testDigitsOfBase.st | 49 - .../instance/testFileSizePrinterBinary.st | 16 - .../instance/testFileSizePrinterDecimal.st | 16 - .../instance/testFloatPrinter.st | 19 - .../instance/testFloatPrinterInfinity.st | 9 - .../instance/testFloatPrinterNaN.st | 7 - .../instance/testFloatPrinterPadding.st | 14 - .../instance/testFloatPrinterSeparator.st | 14 - .../instance/testFullMonthName.st | 6 - .../instance/testFullWeekName.st | 6 - .../GRPrinterTest.class/instance/testHttp.st | 18 - .../instance/testIntegerPrinter.st | 31 - .../instance/testIsoDate.st | 16 - .../instance/testIsoTime.st | 16 - .../instance/testOrdinalizePrinter.st | 18 - .../instance/testPadCenter.st | 24 - .../instance/testPadLeft.st | 24 - .../instance/testPadRight.st | 24 - .../instance/testPaddedCentury.st | 6 - .../instance/testPaddedHour12.st | 8 - .../instance/testRfc822.st | 30 - .../instance/testRfc822WithTimeZone.st | 17 - .../instance/testSeparateLeft.st | 32 - .../instance/testSeparateRight.st | 34 - .../instance/testSignPrinter.st | 9 - .../instance/testStringPrinter.st | 7 - .../instance/testStringPrinterLength.st | 9 - .../instance/testStringPrinterPad.st | 13 - .../instance/testStringPrinterTrim.st | 11 - .../instance/testSwissCurrency.st | 6 - .../instance/testUnpaddedCentury.st | 6 - .../instance/testUnpaddedDay.st | 6 - .../instance/testUnpaddedHour12.st | 8 - .../instance/testUnpaddedHour24.st | 8 - .../instance/testUnpaddedMinute.st | 6 - .../instance/testUnpaddedMonth.st | 6 - .../instance/testUnpaddedSecond.st | 7 - .../instance/testUnpaddedYear.st | 7 - .../instance/testUsCurrency.st | 6 - .../GRPrinterTest.class/properties.json | 11 - .../README.md | 0 .../instance/collectionClass.st | 3 - .../properties.json | 11 - .../GRSetTest.class/README.md | 0 .../instance/allowsDuplicateValues.st | 3 - .../instance/collectionClass.st | 3 - .../GRSetTest.class/instance/isExtensible.st | 3 - .../instance/isInitializable.st | 3 - .../GRSetTest.class/properties.json | 11 - .../GRSmallDictionary2Test.class/README.md | 0 .../instance/collectionClass.st | 3 - .../properties.json | 11 - .../GRSmallDictionaryTest.class/README.md | 0 .../instance/allowsDuplicateKeys.st | 3 - .../instance/assertAssociations..st | 11 - .../instance/collectionClass.st | 3 - .../instance/createArbitraryAssociations.st | 9 - .../instance/isKey.equivalentTo..st | 3 - .../instance/newCollection.st | 3 - .../instance/setUp.st | 4 - .../instance/testAddAll.st | 16 - .../instance/testAddAndAssociations.st | 20 - .../instance/testAt.st | 7 - .../instance/testAtIfAbsent.st | 7 - .../instance/testAtIfAbsentPut.st | 6 - .../instance/testAtIfPresent.st | 7 - .../instance/testAtPut.st | 7 - .../instance/testCopy.st | 16 - .../instance/testDo.st | 7 - .../instance/testGrow.st | 10 - .../instance/testIncludesKey.st | 6 - .../instance/testIsEmpty.st | 6 - .../instance/testKeys.st | 5 - .../instance/testKeysAndValuesDo.st | 15 - .../instance/testKeysDo.st | 8 - .../instance/testRemoveKey.st | 12 - .../instance/testRemoveKey2.st | 21 - .../instance/testRemoveKeyIfAbsent.st | 12 - .../instance/testSize.st | 10 - .../instance/testValues.st | 5 - .../instance/testWithAll.st | 13 - .../properties.json | 13 - .../GRSmallOrderedSetTest.class/README.md | 0 .../instance/collectionClass.st | 3 - .../instance/setUp.st | 4 - .../instance/testAdd.st | 8 - .../instance/testAddAll.st | 6 - .../instance/testCopy.st | 12 - .../instance/testDo.st | 10 - .../instance/testIncludes.st | 5 - .../instance/testIsEmpty.st | 7 - .../instance/testRemove.st | 5 - .../instance/testRemoveIfAbsent.st | 11 - .../instance/testSize.st | 5 - .../properties.json | 13 - .../GRSortedCollectionTest.class/README.md | 0 .../instance/allowsDuplicateValues.st | 3 - .../instance/collectionClass.st | 3 - .../instance/isExtensible.st | 3 - .../instance/isHomogeneous.st | 3 - .../instance/isInitializable.st | 3 - .../instance/isSequenced.st | 3 - .../instance/isUnique.st | 3 - .../properties.json | 11 - .../GRStringTest.class/README.md | 0 .../instance/allowsDuplicateValues.st | 3 - .../instance/arbitraryCollection.st | 3 - .../instance/collectionClass.st | 3 - .../instance/duplicateElement.st | 3 - .../instance/excludedElement.st | 3 - .../instance/includedElement.st | 3 - .../instance/isExtensible.st | 3 - .../instance/isHomogeneous.st | 3 - .../instance/isInitializable.st | 3 - .../instance/isSequenced.st | 3 - .../GRStringTest.class/instance/isUnique.st | 3 - .../instance/testAsUppercase.st | 4 - .../instance/testCapitalized.st | 8 - .../instance/testCapitalizedUmlauts.st | 8 - .../instance/testExcerpt.st | 10 - .../instance/testExcerptEmpty.st | 5 - .../instance/testExcerptLeft.st | 6 - .../instance/testExcerptRight.st | 6 - .../instance/testInflectorAssimilated.st | 4 - .../instance/testInflectorCommonSuffixes.st | 5 - .../instance/testInflectorFfffSuffixes.st | 4 - .../instance/testInflectorIrregular.st | 7 - .../instance/testInflectorNotInflecting.st | 6 - .../instance/testInflectorTsssSuffixes.st | 4 - .../instance/testInflectorYyyySuffixes.st | 5 - .../instance/testSubStrings.st | 26 - .../instance/testTrimBoth.st | 12 - .../instance/testTrimLeft.st | 11 - .../instance/testTrimRight.st | 11 - .../instance/testTruncate.st | 8 - .../instance/testTruncateEmpty.st | 3 - .../GRStringTest.class/properties.json | 11 - .../GRSymbolTest.class/README.md | 0 .../instance/allowsDuplicateValues.st | 3 - .../instance/arbitraryCollection.st | 3 - .../instance/collectionClass.st | 3 - .../instance/duplicateElement.st | 3 - .../instance/emptyCollection.st | 3 - .../instance/excludedElement.st | 3 - .../instance/includedElement.st | 3 - .../instance/isExtensible.st | 3 - .../instance/isHomogeneous.st | 3 - .../instance/isInitializable.st | 3 - .../instance/isSequenced.st | 3 - .../GRSymbolTest.class/instance/isUnique.st | 3 - .../GRSymbolTest.class/properties.json | 11 - .../GRTestDynamicVariable.class/README.md | 0 .../class/defaultValue.st | 3 - .../properties.json | 11 - .../README.md | 0 .../class/defaultValue.st | 3 - .../properties.json | 11 - .../GRUtf8CodecTest.class/README.md | 0 .../instance/asByteArray..st | 5 - .../instance/asString..st | 5 - .../instance/decodedString.st | 3 - .../instance/seasideByteArray.st | 3 - .../instance/testCodecUtf8.st | 11 - .../instance/testCodecUtf8Bom.st | 10 - .../instance/testCodecUtf8BorderLineString.st | 13 - .../instance/testCodecUtf8ShortestForm.st | 13 - .../instance/testNext.st | 7 - .../instance/utf8String.st | 3 - .../utf8StringOrByteArrayForCodec..st | 7 - .../GRUtf8CodecTest.class/properties.json | 11 - .../GRVersionTest.class/README.md | 0 .../instance/assert.equals..st | 15 - .../instance/assert.sortsBefore..st | 14 - .../instance/buildVersion..st | 8 - .../instance/testAccessors.st | 9 - .../instance/testComparison.st | 28 - .../instance/testConvenience.st | 47 - .../instance/testEquality.st | 10 - .../instance/testStringConversion.st | 11 - .../GRVersionTest.class/properties.json | 11 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../Grease-Tests-Core.package/properties.json | 1 - .../GRAbstractDictionaryTest.class.st | 77 + ...bstractSequenceableCollectionTest.class.st | 263 ++++ .../Grease-Tests-Core/GRArrayTest.class.st | 41 + .../Grease-Tests-Core/GRBagTest.class.st | 26 + .../Grease-Tests-Core/GRCodecTest.class.st | 124 ++ .../GRCollectionTest.class.st | 178 +++ .../GRCountingStreamTest.class.st | 45 + .../GRDelayedSendTest.class.st | 427 ++++++ .../GRDictionaryTest.class.st | 27 + .../Grease-Tests-Core/GRDurationTest.class.st | 92 ++ .../GRDynamicVariableTest.class.st | 44 + .../Grease-Tests-Core/GRErrorStub.class.st | 20 + .../GRExceptionTest.class.st | 214 +++ .../GRIdentityDictionaryTest.class.st | 27 + .../Grease-Tests-Core/GRIntervalTest.class.st | 79 + ...ificationBasedDynamicVariableTest.class.st | 44 + .../GRNotificationStub.class.st | 25 + .../GRNullCodecStreamTest.class.st | 114 ++ .../Grease-Tests-Core/GRNumberTest.class.st | 108 ++ .../Grease-Tests-Core/GRObjectStub.class.st | 20 + .../Grease-Tests-Core/GRObjectTest.class.st | 29 + .../GROrderedCollectionTest.class.st | 41 + .../GROrderedMultiMap2Test.class.st | 11 + .../GROrderedMultiMapTest.class.st | 65 + .../Grease-Tests-Core/GRPackage.extension.st | 11 + .../Grease-Tests-Core/GRPackageTest.class.st | 97 ++ .../Grease-Tests-Core/GRPlatformTest.class.st | 1268 +++++++++++++++++ .../Grease-Tests-Core/GRPrinterTest.class.st | 721 ++++++++++ .../GRReducedConflictDictionaryTest.class.st | 11 + .../Grease-Tests-Core/GRSetTest.class.st | 26 + .../GRSmallDictionary2Test.class.st | 11 + .../GRSmallDictionaryTest.class.st | 317 +++++ .../GRSmallOrderedSetTest.class.st | 107 ++ .../GRSortedCollectionTest.class.st | 41 + .../Grease-Tests-Core/GRStringTest.class.st | 254 ++++ .../Grease-Tests-Core/GRSymbolTest.class.st | 66 + .../GRTestDynamicVariable.class.st | 11 + ...tNotificationBasedDynamicVariable.class.st | 11 + .../GRUtf8CodecTest.class.st | 108 ++ .../Grease-Tests-Core/GRVersionTest.class.st | 164 +++ repository/Grease-Tests-Core/package.st | 1 + .../.filetree | 4 - .../GRDoubleByteStringTest.class/README.md | 0 .../instance/arbitraryCollection.st | 3 - .../instance/collectionClass.st | 3 - .../properties.json | 14 - .../GRGemStonePlatformTest.class/README.md | 0 .../instance/testCompileIntoClassified.st | 16 - .../testConvertToSmalltalkNewlines.st | 19 - .../instance/testEncoderForUtf8Roundtrip.st | 12 - .../instance/testFullName.st | 3 - .../properties.json | 14 - .../instance/addBlockToCollection.with..st | 4 - .../instance/expectedFailures.st | 6 - .../instance/testToDoClosuresGemStone.st | 8 - .../GRNumberTest.extension/properties.json | 2 - .../class/greaseTestsGemStoneCore.st | 9 - .../GRPackage.extension/properties.json | 2 - .../instance/writeToFile.withFileNameDo.st | 12 - .../GRPlatformTest.extension/properties.json | 2 - .../GRQuadByteStringTest.class/README.md | 0 .../instance/arbitraryCollection.st | 3 - .../instance/collectionClass.st | 3 - .../properties.json | 14 - .../instance/multiByteConvert..st | 4 - .../instance/testMultiByteCapitalized.st | 5 - .../instance/testMultiByteExcerpt.st | 10 - .../instance/testMultiByteSubStrings.st | 26 - .../instance/testMultiByteTrimBoth.st | 12 - .../instance/testMultiByteTruncate.st | 8 - .../GRStringTest.extension/properties.json | 2 - .../instance/expectedFailures.st | 5 - .../GRUtf8CodecTest.extension/properties.json | 2 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 2 - .../GRDoubleByteStringTest.class.st | 16 + .../GRGemStonePlatformTest.class.st | 64 + .../GRNumberTest.extension.st | 25 + .../GRPackage.extension.st | 12 + .../GRPlatformTest.extension.st | 15 + .../GRQuadByteStringTest.class.st | 16 + .../GRStringTest.extension.st | 78 + .../GRUtf8CodecTest.extension.st | 8 + .../Grease-Tests-GemStone-Core/package.st | 1 + .../.filetree | 4 - .../GRDoubleByteStringTest.class/README.md | 0 .../instance/arbitraryCollection.st | 3 - .../instance/collectionClass.st | 3 - .../properties.json | 14 - .../GRGemStonePlatformTest.class/README.md | 0 .../instance/testCompileIntoClassified.st | 16 - .../testConvertToSmalltalkNewlines.st | 19 - .../instance/testEncoderForUtf8Roundtrip.st | 12 - .../instance/testFullName.st | 3 - .../properties.json | 14 - .../instance/addBlockToCollection.with..st | 4 - .../instance/expectedFailures.st | 6 - .../instance/testToDoClosuresGemStone.st | 8 - .../GRNumberTest.extension/properties.json | 2 - .../class/greaseTestsGemStoneCore.st | 9 - .../GRPackage.extension/properties.json | 2 - .../instance/writeToFile.withFileNameDo.st | 12 - .../GRPlatformTest.extension/properties.json | 2 - .../GRQuadByteStringTest.class/README.md | 0 .../instance/arbitraryCollection.st | 3 - .../instance/collectionClass.st | 3 - .../properties.json | 14 - .../instance/multiByteConvert..st | 4 - .../instance/testMultiByteCapitalized.st | 5 - .../instance/testMultiByteExcerpt.st | 10 - .../instance/testMultiByteSubStrings.st | 26 - .../instance/testMultiByteTrimBoth.st | 12 - .../instance/testMultiByteTruncate.st | 8 - .../GRStringTest.extension/properties.json | 2 - .../instance/expectedFailures.st | 3 - .../GRUtf8CodecTest.extension/properties.json | 2 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 2 - .../GRDoubleByteStringTest.class.st | 16 + .../GRGemStonePlatformTest.class.st | 64 + .../GRNumberTest.extension.st | 25 + .../GRPackage.extension.st | 12 + .../GRPlatformTest.extension.st | 15 + .../GRQuadByteStringTest.class.st | 16 + .../GRStringTest.extension.st | 78 + .../GRUtf8CodecTest.extension.st | 6 + .../Grease-Tests-GemStone32-Core/package.st | 1 + .../Grease-Tests-Pharo-Core.package/.filetree | 5 - .../class/greaseTestsPharoCore.st | 9 - .../GRPackage.extension/properties.json | 3 - .../GRPharoCodecTest.class/README.md | 0 .../instance/assert.next.startingAt.gives..st | 10 - .../assertEncodingIgnoresLanguageTat..st | 7 - .../instance/stripLeadingCharFrom..st | 8 - .../instance/testAllCodesIncludesIso88591.st | 4 - .../testGreaseNextPutAllStartingAt.st | 15 - .../GRPharoCodecTest.class/properties.json | 11 - .../GRPharoColorTest.class/README.md | 0 .../instance/expectedFailures.st | 3 - .../instance/testAllColors.st | 12 - .../instance/testColorAsHtmlColor.st | 19 - .../instance/testFromSixDigit.st | 6 - .../instance/testFromStringName.st | 6 - .../instance/testFromStringSixDigit.st | 6 - .../instance/testFromStringThreeDigit.st | 6 - .../GRPharoColorTest.class/properties.json | 11 - .../GRPharoGenericCodecTest.class/README.md | 0 .../instance/testNoAmbiguities.st | 7 - .../properties.json | 11 - .../GRPharoPlatformTest.class/README.md | 0 .../instance/runCase.st | 3 - .../instance/testCompileIntoClassified.st | 15 - .../instance/testDeprecationExceptionSet.st | 10 - .../instance/testFullName.st | 3 - .../instance/testGreaseIntegerOnCharacter.st | 7 - ...stMessageSendValueWithPossibleArguments.st | 33 - .../testReadWriteToFileInFolderTextUTF8.st | 7 - .../instance/testUseByteArrayLiterals.st | 5 - .../instance/writeToFile.withFileNameDo..st | 12 - .../GRPharoPlatformTest.class/properties.json | 11 - .../instance/testScaledDecimalGreaseString.st | 5 - .../instance/writeToFile.withFileNameDo..st | 12 - .../GRPlatformTest.extension/properties.json | 3 - .../instance/testScaledDecimalPrinter.st | 19 - .../GRPrinterTest.extension/properties.json | 3 - .../instance/expectedFailures.st | 5 - .../GRUtf8CodecTest.extension/properties.json | 3 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 1 - .../GRPackage.extension.st | 12 + .../GRPharoCodecTest.class.st | 60 + .../GRPharoColorTest.class.st | 81 ++ .../GRPharoGenericCodecTest.class.st | 15 + .../GRPharoPlatformTest.class.st | 119 ++ .../GRPlatformTest.extension.st | 22 + .../GRPrinterTest.extension.st | 22 + .../GRUtf8CodecTest.extension.st | 8 + repository/Grease-Tests-Pharo-Core/package.st | 1 + .../.filetree | 5 - .../GRReSlimeTest.class/README.md | 0 .../instance/assertRule.matches..st | 4 - .../instance/assertRule.matches.ignoring..st | 13 - .../GRReSlimeTest.class/instance/canParse..st | 7 - .../GRReSlimeTest.class/instance/category.st | 4 - .../instance/compile.in..st | 7 - .../instance/defineClass.superclass..st | 4 - .../instance/defineSubClassOf..st | 4 - .../instance/defineSubClassOf.inPackage..st | 20 - .../instance/expectedFailures.st | 6 - .../GRReSlimeTest.class/instance/rules.st | 10 - .../instance/run.ignoring.do..st | 28 - .../GRReSlimeTest.class/instance/runCase.st | 4 - .../instance/runTransformation.changes..st | 15 - .../GRReSlimeTest.class/instance/setUp.st | 7 - .../GRReSlimeTest.class/instance/tearDown.st | 5 - .../instance/testAnsiBooleansRule.st | 12 - .../instance/testAnsiCharacterRule.st | 11 - .../instance/testAnsiCollectionsRule.st | 37 - .../instance/testAnsiConditionalsRule.st | 12 - .../instance/testAnsiConvertorRule.st | 12 - .../instance/testAnsiExceptionsRule.st | 14 - .../instance/testAnsiStreamsRule.st | 14 - .../instance/testAnsiStringsRule.st | 28 - .../instance/testBasicNewInitializeMissing.st | 9 - .../instance/testDeprecatedApiProtocol.st | 11 - .../instance/testEmptyStatements.st | 18 - .../testInvalidObjectInitialization.st | 9 - .../instance/testNonPortableMessageRule.st | 15 - .../testNotPortableCollectionsRule.st | 12 - .../instance/testObjectIn.st | 13 - .../testReferencesNotPortableClass.st | 10 - .../testSubclassesNotPortableClass.st | 8 - .../instance/testTestCaseFailRule.st | 9 - .../instance/testTestCaseFailRule2.st | 9 - .../testUsesCanPerformOrUnderstand.st | 20 - .../instance/testUsesClassForHash.st | 16 - .../instance/testUsesNotPortableClass.st | 10 - .../GRReSlimeTest.class/properties.json | 15 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 1 - .../GRReSlimeTest.class.st | 532 +++++++ .../Grease-Tests-Pharo-Slime/package.st | 1 + .../Grease-Tests-Slime.package/.filetree | 5 - .../class/greaseTestsSlime.st | 8 - .../GRPackage.extension/properties.json | 3 - .../GRSlimeTest.class/README.md | 0 .../GRSlimeTest.class/instance/canParse..st | 6 - .../GRSlimeTest.class/instance/category.st | 3 - .../GRSlimeTest.class/instance/compile.in..st | 7 - .../instance/defineClass.superclass..st | 4 - .../instance/defineSubClassOf..st | 20 - .../GRSlimeTest.class/instance/rules.st | 7 - .../GRSlimeTest.class/instance/run.do..st | 24 - .../instance/run.ignoring.do..st | 24 - .../GRSlimeTest.class/instance/runCase.st | 3 - .../instance/runRule.selectors..st | 3 - .../instance/runRule.selectors.ignoring..st | 12 - .../instance/runTransformation.changes..st | 14 - .../GRSlimeTest.class/instance/setUp.st | 6 - .../GRSlimeTest.class/instance/tearDown.st | 5 - .../instance/testAnsiBooleansRule.st | 11 - .../instance/testAnsiCharacterRule.st | 9 - .../instance/testAnsiCollectionsRule.st | 36 - .../instance/testAnsiConditionalsRule.st | 11 - .../instance/testAnsiConvertorRule.st | 11 - .../instance/testAnsiExceptionsRule.st | 13 - .../instance/testAnsiStreamsRule.st | 13 - .../instance/testAnsiStringsRule.st | 27 - .../instance/testBasicNewInitializeMissing.st | 8 - .../instance/testBlockFormatting.st | 28 - .../instance/testDeprecatedApiProtocol.st | 10 - .../testInvalidObjectInitialization.st | 8 - .../instance/testNonPortableMessageRule.st | 14 - .../instance/testNonPortableSourceFormat.st | 9 - .../testNotPortableCollectionsRule.st | 11 - .../instance/testObjectIn.st | 12 - .../instance/testParensFormatting.st | 15 - .../instance/testReturnFormatting.st | 15 - .../instance/testTempsFormatting.st | 19 - .../instance/testTestCaseFailRule.st | 9 - .../instance/testUnnecessaryLastPeriodRule.st | 9 - .../testUsesCanPerformOrUnderstand.st | 19 - .../instance/testUsesClassForHash.st | 15 - .../instance/testUsesCurlyBraceArrays.st | 17 - .../instance/testUsesMethodAnnotations.st | 11 - .../instance/testUsesNotPortableClass.st | 9 - .../GRSlimeTest.class/properties.json | 15 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 1 - .../Grease-Tests-Slime/GRPackage.extension.st | 11 + .../Grease-Tests-Slime/GRSlimeTest.class.st | 598 ++++++++ repository/Grease-Tests-Slime/package.st | 1 + .../.filetree | 4 - .../class/greaseTestsSqueak6Core.st | 9 - .../GRPackage.extension/methodProperties.json | 5 - .../GRPackage.extension/properties.json | 2 - .../instance/testScaledDecimalGreaseString.st | 5 - .../instance/writeToFile.withFileNameDo..st | 12 - .../methodProperties.json | 6 - .../GRPlatformTest.extension/properties.json | 2 - .../instance/testScaledDecimalPrinter.st | 19 - .../methodProperties.json | 5 - .../GRPrinterTest.extension/properties.json | 2 - .../GRSqueakCodecTest.class/README.md | 0 .../instance/assert.next.startingAt.gives..st | 7 - .../assertEncodingIgnoresLanguageTat..st | 7 - .../instance/stripLeadingCharFrom..st | 8 - .../instance/testAllCodesIncludesIso88591.st | 4 - .../testGreaseNextPutAllStartingAt.st | 13 - .../instance/testLanguageTag.st | 16 - .../GRSqueakCodecTest.class/properties.json | 14 - .../GRSqueakColorTest.class/README.md | 0 .../instance/expectedFailures.st | 3 - .../instance/testAllColors.st | 12 - .../instance/testColorAsHtmlColor.st | 19 - .../instance/testFromSixDigit.st | 6 - .../instance/testFromStringName.st | 6 - .../instance/testFromStringSixDigit.st | 6 - .../instance/testFromStringThreeDigit.st | 6 - .../GRSqueakColorTest.class/properties.json | 14 - .../GRSqueakGenericCodecTest.class/README.md | 0 .../instance/testNoAmbiguities.st | 6 - .../properties.json | 14 - .../GRSqueakPlatformTest.class/README.md | 0 .../instance/testCompileIntoClassified.st | 15 - .../instance/testDeprecationExceptionSet.st | 10 - .../instance/testFullName.st | 3 - .../instance/testGreaseIntegerOnCharacter.st | 14 - ...stMessageSendValueWithPossibleArguments.st | 33 - .../instance/testWriteToFileInFolderBinary.st | 3 - .../instance/testWriteToFileInFolderText.st | 3 - .../instance/writeToFile..st | 11 - .../properties.json | 14 - .../instance/expectedFailures.st | 3 - .../methodProperties.json | 5 - .../GRUtf8CodecTest.extension/properties.json | 2 - .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../monticello.meta/version | 1 - .../properties.json | 2 - .../GRPackage.extension.st | 12 + .../GRPlatformTest.extension.st | 22 + .../GRPrinterTest.extension.st | 22 + .../GRSqueakCodecTest.class.st | 73 + .../GRSqueakColorTest.class.st | 81 ++ .../GRSqueakGenericCodecTest.class.st | 14 + .../GRSqueakPlatformTest.class.st | 115 ++ .../GRUtf8CodecTest.extension.st | 6 + .../Grease-Tests-Squeak6-Core/package.st | 1 + 3834 files changed, 24080 insertions(+), 21115 deletions(-) delete mode 100644 repository/.filetree delete mode 100644 repository/BaselineOfGrease.package/.filetree delete mode 100644 repository/BaselineOfGrease.package/BaselineOfGrease.class/README.md delete mode 100644 repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baseline..st delete mode 100644 repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineCommon..st delete mode 100644 repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st delete mode 100644 repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st delete mode 100644 repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineSqueak..st delete mode 100644 repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/initializeLatin1ToUtf8Encodings.st delete mode 100644 repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/projectClass.st delete mode 100644 repository/BaselineOfGrease.package/BaselineOfGrease.class/properties.json delete mode 100644 repository/BaselineOfGrease.package/monticello.meta/categories.st delete mode 100644 repository/BaselineOfGrease.package/monticello.meta/initializers.st delete mode 100644 repository/BaselineOfGrease.package/monticello.meta/package delete mode 100644 repository/BaselineOfGrease.package/properties.json create mode 100644 repository/BaselineOfGrease/BaselineOfGrease.class.st create mode 100644 repository/BaselineOfGrease/package.st delete mode 100644 repository/Grease-Core.package/.filetree delete mode 100644 repository/Grease-Core.package/Character.extension/instance/print.on..st delete mode 100644 repository/Grease-Core.package/Character.extension/properties.json delete mode 100644 repository/Grease-Core.package/Collection.extension/instance/greaseAsByteArray.st delete mode 100644 repository/Grease-Core.package/Collection.extension/properties.json delete mode 100644 repository/Grease-Core.package/GRBoundMessage.class/README.md delete mode 100644 repository/Grease-Core.package/GRBoundMessage.class/class/selector..st delete mode 100644 repository/Grease-Core.package/GRBoundMessage.class/class/selector.arguments..st delete mode 100644 repository/Grease-Core.package/GRBoundMessage.class/instance/argumentCount.st delete mode 100644 repository/Grease-Core.package/GRBoundMessage.class/instance/initializeWithSelector.arguments..st delete mode 100644 repository/Grease-Core.package/GRBoundMessage.class/instance/mergeArguments..st delete mode 100644 repository/Grease-Core.package/GRBoundMessage.class/instance/printOn..st delete mode 100644 repository/Grease-Core.package/GRBoundMessage.class/properties.json delete mode 100644 repository/Grease-Core.package/GRCodec.class/README.md delete mode 100644 repository/Grease-Core.package/GRCodec.class/class/allCodecs.st delete mode 100644 repository/Grease-Core.package/GRCodec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-Core.package/GRCodec.class/class/codecs.st delete mode 100644 repository/Grease-Core.package/GRCodec.class/class/forEncoding..st delete mode 100644 repository/Grease-Core.package/GRCodec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-Core.package/GRCodec.class/class/unsupportedEncoding..st delete mode 100644 repository/Grease-Core.package/GRCodec.class/instance/decode..st delete mode 100644 repository/Grease-Core.package/GRCodec.class/instance/decoderFor..st delete mode 100644 repository/Grease-Core.package/GRCodec.class/instance/encode..st delete mode 100644 repository/Grease-Core.package/GRCodec.class/instance/encodedStringClass.st delete mode 100644 repository/Grease-Core.package/GRCodec.class/instance/encoderFor..st delete mode 100644 repository/Grease-Core.package/GRCodec.class/instance/name.st delete mode 100644 repository/Grease-Core.package/GRCodec.class/instance/printOn..st delete mode 100644 repository/Grease-Core.package/GRCodec.class/instance/url.st delete mode 100644 repository/Grease-Core.package/GRCodec.class/properties.json delete mode 100644 repository/Grease-Core.package/GRCodecStream.class/README.md delete mode 100644 repository/Grease-Core.package/GRCodecStream.class/properties.json delete mode 100644 repository/Grease-Core.package/GRCountingStream.class/README.md delete mode 100644 repository/Grease-Core.package/GRCountingStream.class/instance/count.st delete mode 100644 repository/Grease-Core.package/GRCountingStream.class/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Core.package/GRCountingStream.class/instance/initialize.st delete mode 100644 repository/Grease-Core.package/GRCountingStream.class/instance/next..st delete mode 100644 repository/Grease-Core.package/GRCountingStream.class/instance/next.st delete mode 100644 repository/Grease-Core.package/GRCountingStream.class/instance/nextPut..st delete mode 100644 repository/Grease-Core.package/GRCountingStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-Core.package/GRCountingStream.class/instance/reset.st delete mode 100644 repository/Grease-Core.package/GRCountingStream.class/properties.json delete mode 100644 repository/Grease-Core.package/GRDelayedSend.class/README.md delete mode 100644 repository/Grease-Core.package/GRDelayedSend.class/class/empty.st delete mode 100644 repository/Grease-Core.package/GRDelayedSend.class/class/new.st delete mode 100644 repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector..st delete mode 100644 repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector.argument..st delete mode 100644 repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector.arguments..st delete mode 100644 repository/Grease-Core.package/GRDelayedSend.class/instance/argumentCount.st delete mode 100644 repository/Grease-Core.package/GRDelayedSend.class/instance/initializeWithReceiver.message..st delete mode 100644 repository/Grease-Core.package/GRDelayedSend.class/instance/printOn..st delete mode 100644 repository/Grease-Core.package/GRDelayedSend.class/instance/value..st delete mode 100644 repository/Grease-Core.package/GRDelayedSend.class/instance/value.st delete mode 100644 repository/Grease-Core.package/GRDelayedSend.class/instance/value.value..st delete mode 100644 repository/Grease-Core.package/GRDelayedSend.class/instance/valueWithArguments..st delete mode 100644 repository/Grease-Core.package/GRDelayedSend.class/instance/valueWithPossibleArguments..st delete mode 100644 repository/Grease-Core.package/GRDelayedSend.class/properties.json delete mode 100644 repository/Grease-Core.package/GRDelayedSendMessage.class/README.md delete mode 100644 repository/Grease-Core.package/GRDelayedSendMessage.class/class/new.st delete mode 100644 repository/Grease-Core.package/GRDelayedSendMessage.class/class/selector..st delete mode 100644 repository/Grease-Core.package/GRDelayedSendMessage.class/instance/argumentCount.st delete mode 100644 repository/Grease-Core.package/GRDelayedSendMessage.class/instance/basicPerformFor.withArguments..st delete mode 100644 repository/Grease-Core.package/GRDelayedSendMessage.class/instance/initializeWithSelector..st delete mode 100644 repository/Grease-Core.package/GRDelayedSendMessage.class/instance/invalidArgumentCount.st delete mode 100644 repository/Grease-Core.package/GRDelayedSendMessage.class/instance/mergeArguments..st delete mode 100644 repository/Grease-Core.package/GRDelayedSendMessage.class/instance/printOn..st delete mode 100644 repository/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withArguments..st delete mode 100644 repository/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withPossibleArguments..st delete mode 100644 repository/Grease-Core.package/GRDelayedSendMessage.class/properties.json delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/README.md delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/class/on..st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/atEnd.st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/contents.st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/crlf.st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/flush.st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/initializeOn..st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/isStream.st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/next..st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/next.st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/nextPut..st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/position..st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/position.st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/print..st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/reset.st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/size.st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/space.st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/tab.st delete mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/properties.json delete mode 100644 repository/Grease-Core.package/GRDeprecatedApiNotification.class/README.md delete mode 100644 repository/Grease-Core.package/GRDeprecatedApiNotification.class/instance/details..st delete mode 100644 repository/Grease-Core.package/GRDeprecatedApiNotification.class/instance/details.st delete mode 100644 repository/Grease-Core.package/GRDeprecatedApiNotification.class/properties.json delete mode 100644 repository/Grease-Core.package/GRError.class/README.md delete mode 100644 repository/Grease-Core.package/GRError.class/properties.json delete mode 100644 repository/Grease-Core.package/GRInflector.class/README.md delete mode 100644 repository/Grease-Core.package/GRInflector.class/class/initialize.st delete mode 100644 repository/Grease-Core.package/GRInflector.class/class/pluralize..st delete mode 100644 repository/Grease-Core.package/GRInflector.class/properties.json delete mode 100644 repository/Grease-Core.package/GRInvalidArgumentCount.class/README.md delete mode 100644 repository/Grease-Core.package/GRInvalidArgumentCount.class/properties.json delete mode 100644 repository/Grease-Core.package/GRInvalidUtf8Error.class/README.md delete mode 100644 repository/Grease-Core.package/GRInvalidUtf8Error.class/properties.json delete mode 100644 repository/Grease-Core.package/GRMappedPrinter.class/README.md delete mode 100644 repository/Grease-Core.package/GRMappedPrinter.class/class/block.next..st delete mode 100644 repository/Grease-Core.package/GRMappedPrinter.class/instance/block..st delete mode 100644 repository/Grease-Core.package/GRMappedPrinter.class/instance/initialize.st delete mode 100644 repository/Grease-Core.package/GRMappedPrinter.class/instance/next..st delete mode 100644 repository/Grease-Core.package/GRMappedPrinter.class/instance/print.on..st delete mode 100644 repository/Grease-Core.package/GRMappedPrinter.class/properties.json delete mode 100644 repository/Grease-Core.package/GRNotification.class/README.md delete mode 100644 repository/Grease-Core.package/GRNotification.class/properties.json delete mode 100644 repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/README.md delete mode 100644 repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/defaultValue.st delete mode 100644 repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/use.during..st delete mode 100644 repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/value.st delete mode 100644 repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/instance/defaultAction.st delete mode 100644 repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/properties.json delete mode 100644 repository/Grease-Core.package/GRNullCodec.class/README.md delete mode 100644 repository/Grease-Core.package/GRNullCodec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-Core.package/GRNullCodec.class/class/codecName.st delete mode 100644 repository/Grease-Core.package/GRNullCodec.class/class/codecs.st delete mode 100644 repository/Grease-Core.package/GRNullCodec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-Core.package/GRNullCodec.class/instance/decode..st delete mode 100644 repository/Grease-Core.package/GRNullCodec.class/instance/decoderFor..st delete mode 100644 repository/Grease-Core.package/GRNullCodec.class/instance/encode..st delete mode 100644 repository/Grease-Core.package/GRNullCodec.class/instance/encoderFor..st delete mode 100644 repository/Grease-Core.package/GRNullCodec.class/instance/name.st delete mode 100644 repository/Grease-Core.package/GRNullCodec.class/instance/url.st delete mode 100644 repository/Grease-Core.package/GRNullCodec.class/properties.json delete mode 100644 repository/Grease-Core.package/GRNullCodecStream.class/README.md delete mode 100644 repository/Grease-Core.package/GRNullCodecStream.class/instance/next..st delete mode 100644 repository/Grease-Core.package/GRNullCodecStream.class/instance/next.st delete mode 100644 repository/Grease-Core.package/GRNullCodecStream.class/instance/nextPut..st delete mode 100644 repository/Grease-Core.package/GRNullCodecStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-Core.package/GRNullCodecStream.class/properties.json delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/README.md delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/class/initialize.st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/accuracy..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/base..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/characters..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/delimiter..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/digits..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/digitsOf.base..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/infinite..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/initialize.st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/lengthOf.base..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/lowercase.st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/nan..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/padLeft.to.on..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/padding..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/precision..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/print.on..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/printDigitsOf.withLength.on..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/printFloat.on..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/printFraction.on..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/printInfinite.on..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/printInteger.on..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/printNaN.on..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.left.on..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.right..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/separator..st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/instance/uppercase.st delete mode 100644 repository/Grease-Core.package/GRNumberPrinter.class/properties.json delete mode 100644 repository/Grease-Core.package/GRObject.class/README.md delete mode 100644 repository/Grease-Core.package/GRObject.class/class/defaultErrorClass.st delete mode 100644 repository/Grease-Core.package/GRObject.class/class/error..st delete mode 100644 repository/Grease-Core.package/GRObject.class/class/new.st delete mode 100644 repository/Grease-Core.package/GRObject.class/instance/error..st delete mode 100644 repository/Grease-Core.package/GRObject.class/instance/initialize.st delete mode 100644 repository/Grease-Core.package/GRObject.class/properties.json delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap.class/README.md delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap.class/instance/add..st delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap.class/instance/addAll..st delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap.class/instance/allAt..st delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap.class/instance/allAt.ifAbsent..st delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap.class/instance/at.add..st delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap.class/instance/keysAndAllValuesDo..st delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap.class/instance/privateAllAt.startingAt..st delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap.class/instance/removeKey.ifAbsent..st delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap.class/properties.json delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap2.class/README.md delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap2.class/instance/add..st delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap2.class/instance/addAll..st delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap2.class/instance/allAt..st delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap2.class/instance/allAt.ifAbsent..st delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap2.class/instance/at.add..st delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap2.class/instance/keysAndAllValuesDo..st delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap2.class/instance/privateAllAt.startingAt..st delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap2.class/instance/removeKey.ifAbsent..st delete mode 100644 repository/Grease-Core.package/GROrderedMultiMap2.class/properties.json delete mode 100644 repository/Grease-Core.package/GROrdinalizePrinter.class/README.md delete mode 100644 repository/Grease-Core.package/GROrdinalizePrinter.class/instance/ordinalize..st delete mode 100644 repository/Grease-Core.package/GROrdinalizePrinter.class/instance/print.on..st delete mode 100644 repository/Grease-Core.package/GROrdinalizePrinter.class/properties.json delete mode 100644 repository/Grease-Core.package/GRPackage.class/README.md delete mode 100644 repository/Grease-Core.package/GRPackage.class/class/grPackages.st delete mode 100644 repository/Grease-Core.package/GRPackage.class/class/greaseCore.st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/addDependenciesTo..st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/addDependency..st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/allDependencies.st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/dependencies.st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/description..st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/description.st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/greaseUrl.st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/initialize.st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/isLGPL.st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/isMIT.st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/license..st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/license.st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/name..st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/name.st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/printOn..st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/resolveWith..st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/seasideAddonsUrl.st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/seasideLGPLUrl.st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/seasideUrl.st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/url..st delete mode 100644 repository/Grease-Core.package/GRPackage.class/instance/url.st delete mode 100644 repository/Grease-Core.package/GRPackage.class/properties.json delete mode 100644 repository/Grease-Core.package/GRPlatform.class/README.md delete mode 100644 repository/Grease-Core.package/GRPlatform.class/class/current..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/class/current.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/class/select.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/class/unselect.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/addToShutDownList..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/addToStartUpList..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/asMethodReturningByteArray.named..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/asMethodReturningString.named..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/base64Decode..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/base64Encode..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/bindingOf..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/compile.into.classified..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/contentsOfFile.binary..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/convertToSmalltalkNewlines..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/deleteFile..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/deprecationExceptionSet.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/directoriesIn..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/doSilently..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/doTransaction..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/ensureExistenceOfFolder..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/fileExists..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/fileStreamOn.do.binary..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/filesIn..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/integerAsByteArray..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/isProcessTerminated..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/label.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/localNameOf..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/newRandom.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFile.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileNamed..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/newline.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/openDebuggerOn..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/pathSeparator.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/readFileStreamOn.do.binary..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/readWriteByteStream.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/readWriteCharacterStream.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/reducedConflictDictionary.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/removeFromShutDownList..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/removeFromStartUpList..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/removeSelector.from..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/secureHashFor..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/semaphoreClass.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/sizeOfFile..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/sourceCodeStringOf..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/stackDepth.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/supportsUnicode.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/terminateProcess..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/thisContext.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/version.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/versionString.st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/weakDictionaryOfSize..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/write.toFile.inFolder..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/writeCharacterStreamOn..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/writeFileStreamOn.do.binary..st delete mode 100644 repository/Grease-Core.package/GRPlatform.class/properties.json delete mode 100644 repository/Grease-Core.package/GRPluggablePrinter.class/README.md delete mode 100644 repository/Grease-Core.package/GRPluggablePrinter.class/class/on..st delete mode 100644 repository/Grease-Core.package/GRPluggablePrinter.class/instance/block..st delete mode 100644 repository/Grease-Core.package/GRPluggablePrinter.class/instance/initialize.st delete mode 100644 repository/Grease-Core.package/GRPluggablePrinter.class/instance/print.on..st delete mode 100644 repository/Grease-Core.package/GRPluggablePrinter.class/properties.json delete mode 100644 repository/Grease-Core.package/GRPrinter.class/README.md delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/abbreviatedMonthName.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/abbreviatedWeekName.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/absOffsetHoursPadded.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/absOffsetMinutesPadded.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/binaryFileSize.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/cookieTimestamp.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/decimalFileSize.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/fullMonthName.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/fullWeekName.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/httpDate.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/isoDate.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/isoTime.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/monthName..st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/numberWithAtLeastDigits..st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/offsetSign.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/paddedCentury.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/paddedDay.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/paddedHour12.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/paddedHour24.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/paddedMinute.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/paddedMonth.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/paddedSecond.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/paddedYear.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/rfc1123.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/rfc822.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/rfc822WithTimeZone..st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/swissCurrency.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/unpaddedCentury.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/unpaddedDay.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/unpaddedHour12.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/unpaddedHour24.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/unpaddedMinute.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/unpaddedMonth.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/unpaddedSecond.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/unpaddedYear.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/usCurrency.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/class/weekName..st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/instance/^comma.st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/instance/pad.center.to..st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/instance/pad.left.to..st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/instance/pad.right.to..st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/instance/print..st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/instance/print.on..st delete mode 100644 repository/Grease-Core.package/GRPrinter.class/properties.json delete mode 100644 repository/Grease-Core.package/GRSequentialPrinter.class/README.md delete mode 100644 repository/Grease-Core.package/GRSequentialPrinter.class/instance/^comma.st delete mode 100644 repository/Grease-Core.package/GRSequentialPrinter.class/instance/initialize.st delete mode 100644 repository/Grease-Core.package/GRSequentialPrinter.class/instance/print.on..st delete mode 100644 repository/Grease-Core.package/GRSequentialPrinter.class/properties.json delete mode 100644 repository/Grease-Core.package/GRSignPrinter.class/README.md delete mode 100644 repository/Grease-Core.package/GRSignPrinter.class/instance/initialize.st delete mode 100644 repository/Grease-Core.package/GRSignPrinter.class/instance/negativePrinter..st delete mode 100644 repository/Grease-Core.package/GRSignPrinter.class/instance/positivePrinter..st delete mode 100644 repository/Grease-Core.package/GRSignPrinter.class/instance/print.on..st delete mode 100644 repository/Grease-Core.package/GRSignPrinter.class/properties.json delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/README.md delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/class/new..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/class/new.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/class/withAll..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/add..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/addAll..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/any.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/associations.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/associationsDo..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/at..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/at.ifAbsent..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/at.ifAbsentPut..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/at.ifPresent..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/at.put..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/do..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/errorEmptyCollection.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/errorKeyNotFound.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/findIndexFor..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/grow.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/includesKey..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/initialize..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/isCollection.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/isEmpty.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/keys.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/keysAndValuesDo..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/keysDo..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/noneSatisfy..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/notEmpty.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/postCopy.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/printOn..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/privateAt.put..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/removeIndex..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/removeKey..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/removeKey.ifAbsent..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/size.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/sorted..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/sorted.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/instance/values.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary.class/properties.json delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/README.md delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/class/new..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/class/new.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/class/withAll..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/add..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/addAll..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/any.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/associations.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/associationsDo..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/at..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/at.ifAbsent..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/at.ifAbsentPut..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/at.ifPresent..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/at.put..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/do..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/errorEmptyCollection.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/errorKeyNotFound.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/findIndexFor..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/grow.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/includesKey..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/initialize..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/isCollection.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/isEmpty.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/keys.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/keysAndValuesDo..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/keysDo..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/noneSatisfy..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/notEmpty.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/postCopy.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/printOn..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/privateAt.put..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeIndex..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeKey..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeKey.ifAbsent..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/size.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/sorted..st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/sorted.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/instance/values.st delete mode 100644 repository/Grease-Core.package/GRSmallDictionary2.class/properties.json delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/README.md delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/class/new..st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/class/new.st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/class/withAll..st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/instance/add..st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/instance/addAll..st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/instance/do..st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/instance/do.separatedBy..st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/instance/errorNotFound.st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/instance/findIndexFor..st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/instance/grow.st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/instance/includes..st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/instance/initialize..st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/instance/isCollection.st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/instance/isEmpty.st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/instance/postCopy.st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/instance/privateAdd..st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/instance/remove..st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/instance/remove.ifAbsent..st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/instance/removeIndex..st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/instance/size.st delete mode 100644 repository/Grease-Core.package/GRSmallOrderedSet.class/properties.json delete mode 100644 repository/Grease-Core.package/GRStringPrinter.class/README.md delete mode 100644 repository/Grease-Core.package/GRStringPrinter.class/instance/character..st delete mode 100644 repository/Grease-Core.package/GRStringPrinter.class/instance/initialize.st delete mode 100644 repository/Grease-Core.package/GRStringPrinter.class/instance/length..st delete mode 100644 repository/Grease-Core.package/GRStringPrinter.class/instance/padCenter.st delete mode 100644 repository/Grease-Core.package/GRStringPrinter.class/instance/padLeft.st delete mode 100644 repository/Grease-Core.package/GRStringPrinter.class/instance/padNone.st delete mode 100644 repository/Grease-Core.package/GRStringPrinter.class/instance/padRight.st delete mode 100644 repository/Grease-Core.package/GRStringPrinter.class/instance/print.on..st delete mode 100644 repository/Grease-Core.package/GRStringPrinter.class/instance/trimBoth.st delete mode 100644 repository/Grease-Core.package/GRStringPrinter.class/instance/trimLeft.st delete mode 100644 repository/Grease-Core.package/GRStringPrinter.class/instance/trimNone.st delete mode 100644 repository/Grease-Core.package/GRStringPrinter.class/instance/trimRight.st delete mode 100644 repository/Grease-Core.package/GRStringPrinter.class/properties.json delete mode 100644 repository/Grease-Core.package/GRUnboundMessage.class/README.md delete mode 100644 repository/Grease-Core.package/GRUnboundMessage.class/instance/argumentCount.st delete mode 100644 repository/Grease-Core.package/GRUnboundMessage.class/instance/mergeArguments..st delete mode 100644 repository/Grease-Core.package/GRUnboundMessage.class/properties.json delete mode 100644 repository/Grease-Core.package/GRUnitPrinter.class/README.md delete mode 100644 repository/Grease-Core.package/GRUnitPrinter.class/class/base.units..st delete mode 100644 repository/Grease-Core.package/GRUnitPrinter.class/instance/base..st delete mode 100644 repository/Grease-Core.package/GRUnitPrinter.class/instance/fractionPrinter..st delete mode 100644 repository/Grease-Core.package/GRUnitPrinter.class/instance/initialize.st delete mode 100644 repository/Grease-Core.package/GRUnitPrinter.class/instance/integerPrinter..st delete mode 100644 repository/Grease-Core.package/GRUnitPrinter.class/instance/print.on..st delete mode 100644 repository/Grease-Core.package/GRUnitPrinter.class/instance/print.unit.on..st delete mode 100644 repository/Grease-Core.package/GRUnitPrinter.class/instance/units..st delete mode 100644 repository/Grease-Core.package/GRUnitPrinter.class/properties.json delete mode 100644 repository/Grease-Core.package/GRUnsupportedEncodingError.class/README.md delete mode 100644 repository/Grease-Core.package/GRUnsupportedEncodingError.class/properties.json delete mode 100644 repository/Grease-Core.package/GRVersion.class/README.md delete mode 100644 repository/Grease-Core.package/GRVersion.class/class/major..st delete mode 100644 repository/Grease-Core.package/GRVersion.class/class/major.minor..st delete mode 100644 repository/Grease-Core.package/GRVersion.class/class/major.minor.revision..st delete mode 100644 repository/Grease-Core.package/GRVersion.class/class/new.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/^equals.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/^less.equals.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/^less.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/^more.equals.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/^more.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/beAlpha..st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/beAlpha.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/beBeta..st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/beBeta.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/beFinal.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/beReleaseCandidate..st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/beReleaseCandidate.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/greaseString.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/hash.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/initializeWithMajor.minor.revision..st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/isAlpha.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/isBeta.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/isFinal.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/isReleaseCandidate.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/major..st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/major.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/minor..st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/minor.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/revision..st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/revision.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/stage.number..st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/stage.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/instance/stageNumber.st delete mode 100644 repository/Grease-Core.package/GRVersion.class/properties.json delete mode 100644 repository/Grease-Core.package/Integer.extension/instance/greaseAsByteArray.st delete mode 100644 repository/Grease-Core.package/Integer.extension/instance/greaseByteAt..st delete mode 100644 repository/Grease-Core.package/Integer.extension/instance/greaseBytesCount.st delete mode 100644 repository/Grease-Core.package/Integer.extension/instance/greaseInteger.st delete mode 100644 repository/Grease-Core.package/Integer.extension/instance/pluralize..st delete mode 100644 repository/Grease-Core.package/Integer.extension/instance/pluralize.with..st delete mode 100644 repository/Grease-Core.package/Integer.extension/properties.json delete mode 100644 repository/Grease-Core.package/Number.extension/instance/greaseInteger.st delete mode 100644 repository/Grease-Core.package/Number.extension/properties.json delete mode 100644 repository/Grease-Core.package/Object.extension/instance/greaseDeprecatedApi.details..st delete mode 100644 repository/Grease-Core.package/Object.extension/properties.json delete mode 100644 repository/Grease-Core.package/String.extension/instance/excerpt..st delete mode 100644 repository/Grease-Core.package/String.extension/instance/excerpt.radius..st delete mode 100644 repository/Grease-Core.package/String.extension/instance/excerpt.radius.ellipsis..st delete mode 100644 repository/Grease-Core.package/String.extension/instance/greaseInteger.st delete mode 100644 repository/Grease-Core.package/String.extension/instance/pluralize.st delete mode 100644 repository/Grease-Core.package/String.extension/instance/print.on..st delete mode 100644 repository/Grease-Core.package/String.extension/instance/truncate..st delete mode 100644 repository/Grease-Core.package/String.extension/instance/truncate.ellipsis..st delete mode 100644 repository/Grease-Core.package/String.extension/instance/truncate.st delete mode 100644 repository/Grease-Core.package/String.extension/properties.json delete mode 100644 repository/Grease-Core.package/UndefinedObject.extension/instance/print.on..st delete mode 100644 repository/Grease-Core.package/UndefinedObject.extension/properties.json delete mode 100644 repository/Grease-Core.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Core.package/monticello.meta/package delete mode 100644 repository/Grease-Core.package/properties.json create mode 100644 repository/Grease-Core/Character.extension.st create mode 100644 repository/Grease-Core/Collection.extension.st create mode 100644 repository/Grease-Core/GRBoundMessage.class.st create mode 100644 repository/Grease-Core/GRCodec.class.st create mode 100644 repository/Grease-Core/GRCodecStream.class.st create mode 100644 repository/Grease-Core/GRCountingStream.class.st create mode 100644 repository/Grease-Core/GRDelayedSend.class.st create mode 100644 repository/Grease-Core/GRDelayedSendMessage.class.st create mode 100644 repository/Grease-Core/GRDelegatingStream.class.st create mode 100644 repository/Grease-Core/GRDeprecatedApiNotification.class.st create mode 100644 repository/Grease-Core/GRError.class.st create mode 100644 repository/Grease-Core/GRInflector.class.st create mode 100644 repository/Grease-Core/GRInvalidArgumentCount.class.st create mode 100644 repository/Grease-Core/GRInvalidUtf8Error.class.st create mode 100644 repository/Grease-Core/GRMappedPrinter.class.st create mode 100644 repository/Grease-Core/GRNotification.class.st create mode 100644 repository/Grease-Core/GRNotificationBasedDynamicVariable.class.st create mode 100644 repository/Grease-Core/GRNullCodec.class.st create mode 100644 repository/Grease-Core/GRNullCodecStream.class.st create mode 100644 repository/Grease-Core/GRNumberPrinter.class.st create mode 100644 repository/Grease-Core/GRObject.class.st create mode 100644 repository/Grease-Core/GROrderedMultiMap.class.st create mode 100644 repository/Grease-Core/GROrderedMultiMap2.class.st create mode 100644 repository/Grease-Core/GROrdinalizePrinter.class.st create mode 100644 repository/Grease-Core/GRPackage.class.st create mode 100644 repository/Grease-Core/GRPlatform.class.st create mode 100644 repository/Grease-Core/GRPluggablePrinter.class.st create mode 100644 repository/Grease-Core/GRPrinter.class.st create mode 100644 repository/Grease-Core/GRSequentialPrinter.class.st create mode 100644 repository/Grease-Core/GRSignPrinter.class.st create mode 100644 repository/Grease-Core/GRSmallDictionary.class.st create mode 100644 repository/Grease-Core/GRSmallDictionary2.class.st create mode 100644 repository/Grease-Core/GRSmallOrderedSet.class.st create mode 100644 repository/Grease-Core/GRStringPrinter.class.st create mode 100644 repository/Grease-Core/GRUnboundMessage.class.st create mode 100644 repository/Grease-Core/GRUnitPrinter.class.st create mode 100644 repository/Grease-Core/GRUnsupportedEncodingError.class.st create mode 100644 repository/Grease-Core/GRVersion.class.st create mode 100644 repository/Grease-Core/Integer.extension.st create mode 100644 repository/Grease-Core/Number.extension.st create mode 100644 repository/Grease-Core/Object.extension.st create mode 100644 repository/Grease-Core/String.extension.st create mode 100644 repository/Grease-Core/UndefinedObject.extension.st create mode 100644 repository/Grease-Core/package.st delete mode 100644 repository/Grease-GemStone-Core.package/.filetree delete mode 100644 repository/Grease-GemStone-Core.package/Array.extension/instance/beMutable.st delete mode 100644 repository/Grease-GemStone-Core.package/Array.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/Behavior.extension/instance/fullName.st delete mode 100644 repository/Grease-GemStone-Core.package/Behavior.extension/instance/removeSelectorSilently..st delete mode 100644 repository/Grease-GemStone-Core.package/Behavior.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/BinaryFloat.extension/instance/greaseString.st delete mode 100644 repository/Grease-GemStone-Core.package/BinaryFloat.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/ByteArray.extension/instance/greaseString.st delete mode 100644 repository/Grease-GemStone-Core.package/ByteArray.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/Character.extension/instance/greaseInteger.st delete mode 100644 repository/Grease-GemStone-Core.package/Character.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/excerpt..st delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/excerpt.radius..st delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/excerpt.radius.ellipsis..st delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/greaseInteger.st delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/pluralize.st delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/print.on..st delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/substrings..st delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimBoth..st delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimBoth.st delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimLeft..st delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimLeft.right..st delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimLeft.st delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimRight..st delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimRight.st delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/truncate..st delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/truncate.ellipsis..st delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/truncate.st delete mode 100644 repository/Grease-GemStone-Core.package/CharacterCollection.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/Collection.extension/instance/any.st delete mode 100644 repository/Grease-GemStone-Core.package/Collection.extension/instance/sorted..st delete mode 100644 repository/Grease-GemStone-Core.package/Collection.extension/instance/sorted.st delete mode 100644 repository/Grease-GemStone-Core.package/Collection.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/Date.extension/class/daysInMonthNumber.forYear..st delete mode 100644 repository/Grease-GemStone-Core.package/Date.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/Dictionary.extension/instance/copyFrom..st delete mode 100644 repository/Grease-GemStone-Core.package/Dictionary.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/DoubleByteString.extension/instance/greaseString.st delete mode 100644 repository/Grease-GemStone-Core.package/DoubleByteString.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/Duration.extension/class/milliseconds..st delete mode 100644 repository/Grease-GemStone-Core.package/Duration.extension/instance/asMilliseconds.st delete mode 100644 repository/Grease-GemStone-Core.package/Duration.extension/instance/milliseconds.st delete mode 100644 repository/Grease-GemStone-Core.package/Duration.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/Exception.extension/class/raiseSignal..st delete mode 100644 repository/Grease-GemStone-Core.package/Exception.extension/class/raiseSignal.st delete mode 100644 repository/Grease-GemStone-Core.package/Exception.extension/instance/raiseSignal..st delete mode 100644 repository/Grease-GemStone-Core.package/Exception.extension/instance/raiseSignal.st delete mode 100644 repository/Grease-GemStone-Core.package/Exception.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/GRDynamicVariable.class/README.md delete mode 100644 repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/default.st delete mode 100644 repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/defaultValue.st delete mode 100644 repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/use.during..st delete mode 100644 repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/value.st delete mode 100644 repository/Grease-GemStone-Core.package/GRDynamicVariable.class/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/README.md delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/class/initialize.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/class/unload.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/addToShutDownList..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/addToStartUpList..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/asMethodReturningByteArray.named..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/asMethodReturningString.named..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/base64Decode..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/base64Encode..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/compile.into.classified..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/contentsOfFile.binary..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/defaultDispatcherName.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/deleteFile..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/deprecationExceptionSet.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/directoriesIn..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doAbortTransaction.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doBeginTransaction.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doCommitTransaction.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doTransaction..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/ensureExistenceOfFolder..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/filesIn..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/isProcessTerminated..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/label.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/localNameOf..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/logError.title..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/logError.title.shouldCommit..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newRandom.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFile.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFileNamed..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newline.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/openDebuggerOn..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/pathSeparator.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readFileStreamOn.do.binary..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readWriteByteStream.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readWriteCharacterStream.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/reducedConflictDictionary.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/removeFromShutDownList..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/removeFromStartUpList..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/removeSelector.from..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/saveLogEntry.shouldCommit..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/secureHashFor..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/semaphoreClass.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sizeOfFile..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/smtpServer.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sourceCodeStringOf..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/stackDepth.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/terminateProcess..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/transactionMutex.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/weakDictionaryOfSize..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/write.toFile.inFolder..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeCharacterStreamOn..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/README.md delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/generator.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/initialize.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/mutex.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/nextInt..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/randomClass.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/randomFrom..st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/sessionStart.st delete mode 100644 repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/README.md delete mode 100644 repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/class/codecs.st delete mode 100644 repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/decode..st delete mode 100644 repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/encode..st delete mode 100644 repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/encodeUrl..st delete mode 100644 repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/encoderFor..st delete mode 100644 repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/name..st delete mode 100644 repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/name.st delete mode 100644 repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/url.st delete mode 100644 repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/GRPackage.extension/class/greaseGemStoneCore.st delete mode 100644 repository/Grease-GemStone-Core.package/GRPackage.extension/instance/gemstoneUrl.st delete mode 100644 repository/Grease-GemStone-Core.package/GRPackage.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/README.md delete mode 100644 repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/binary.st delete mode 100644 repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/contents.st delete mode 100644 repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/flush.st delete mode 100644 repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/initializeOn..st delete mode 100644 repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/next..st delete mode 100644 repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/next.st delete mode 100644 repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/nextPut..st delete mode 100644 repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/size.st delete mode 100644 repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/text.st delete mode 100644 repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/README.md delete mode 100644 repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/class/codecs.st delete mode 100644 repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/decode..st delete mode 100644 repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/decoderFor..st delete mode 100644 repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/encode..st delete mode 100644 repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/encodeUrl..st delete mode 100644 repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/encoderFor..st delete mode 100644 repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/initialize.st delete mode 100644 repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/name.st delete mode 100644 repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/url.st delete mode 100644 repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/GsContext.class/README.md delete mode 100644 repository/Grease-GemStone-Core.package/GsContext.class/class/fromContinuation.atLevel..st delete mode 100644 repository/Grease-GemStone-Core.package/GsContext.class/class/fromLevel..st delete mode 100644 repository/Grease-GemStone-Core.package/GsContext.class/instance/^equals.st delete mode 100644 repository/Grease-GemStone-Core.package/GsContext.class/instance/asString.st delete mode 100644 repository/Grease-GemStone-Core.package/GsContext.class/instance/continuation.level..st delete mode 100644 repository/Grease-GemStone-Core.package/GsContext.class/instance/fullPrintString.st delete mode 100644 repository/Grease-GemStone-Core.package/GsContext.class/instance/greaseString.st delete mode 100644 repository/Grease-GemStone-Core.package/GsContext.class/instance/method.st delete mode 100644 repository/Grease-GemStone-Core.package/GsContext.class/instance/namedTempAt..st delete mode 100644 repository/Grease-GemStone-Core.package/GsContext.class/instance/receiver.st delete mode 100644 repository/Grease-GemStone-Core.package/GsContext.class/instance/sender.st delete mode 100644 repository/Grease-GemStone-Core.package/GsContext.class/instance/tempAt..st delete mode 100644 repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNamed..st delete mode 100644 repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNames.st delete mode 100644 repository/Grease-GemStone-Core.package/GsContext.class/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/Interval.extension/instance/any.st delete mode 100644 repository/Grease-GemStone-Core.package/Interval.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/LargeInteger.extension/instance/greaseByteAt..st delete mode 100644 repository/Grease-GemStone-Core.package/LargeInteger.extension/instance/greaseBytesCount.st delete mode 100644 repository/Grease-GemStone-Core.package/LargeInteger.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/MessageSend.extension/instance/argumentCount.st delete mode 100644 repository/Grease-GemStone-Core.package/MessageSend.extension/instance/evaluateWithArguments..st delete mode 100644 repository/Grease-GemStone-Core.package/MessageSend.extension/instance/value..st delete mode 100644 repository/Grease-GemStone-Core.package/MessageSend.extension/instance/value.value..st delete mode 100644 repository/Grease-GemStone-Core.package/MessageSend.extension/instance/valueWithPossibleArgument..st delete mode 100644 repository/Grease-GemStone-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st delete mode 100644 repository/Grease-GemStone-Core.package/MessageSend.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/Number.extension/instance/milliseconds.st delete mode 100644 repository/Grease-GemStone-Core.package/Number.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/Object.extension/instance/displayString.st delete mode 100644 repository/Grease-GemStone-Core.package/Object.extension/instance/greaseString.st delete mode 100644 repository/Grease-GemStone-Core.package/Object.extension/instance/isMessageSend.st delete mode 100644 repository/Grease-GemStone-Core.package/Object.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/PackageInfo.extension/instance/versionString.st delete mode 100644 repository/Grease-GemStone-Core.package/PackageInfo.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/PositionableStream.extension/instance/greaseUpToAll..st delete mode 100644 repository/Grease-GemStone-Core.package/PositionableStream.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st delete mode 100644 repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st delete mode 100644 repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st delete mode 100644 repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st delete mode 100644 repository/Grease-GemStone-Core.package/SequenceableCollection.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/SmallInteger.extension/instance/greaseByteAt..st delete mode 100644 repository/Grease-GemStone-Core.package/SmallInteger.extension/instance/greaseBytesCount.st delete mode 100644 repository/Grease-GemStone-Core.package/SmallInteger.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/String.extension/class/fromString..st delete mode 100644 repository/Grease-GemStone-Core.package/String.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/Symbol.extension/instance/greaseAsMutator.st delete mode 100644 repository/Grease-GemStone-Core.package/Symbol.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/README.md delete mode 100644 repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/instance/alternatives.st delete mode 100644 repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/instance/defaultAction.st delete mode 100644 repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/instance/transaction.st delete mode 100644 repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/README.md delete mode 100644 repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/instance/alternatives.st delete mode 100644 repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/instance/defaultAction.st delete mode 100644 repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/instance/transaction.st delete mode 100644 repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/README.md delete mode 100644 repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/instance/alternatives.st delete mode 100644 repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/instance/defaultAction.st delete mode 100644 repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/instance/transaction.st delete mode 100644 repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/README.md delete mode 100644 repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/instance/alternatives.st delete mode 100644 repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/instance/transaction.st delete mode 100644 repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/UnorderedCollection.extension/instance/copyFrom..st delete mode 100644 repository/Grease-GemStone-Core.package/UnorderedCollection.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/WriteStream.extension/instance/crlf.st delete mode 100644 repository/Grease-GemStone-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-GemStone-Core.package/WriteStream.extension/properties.json delete mode 100644 repository/Grease-GemStone-Core.package/monticello.meta/categories.st delete mode 100644 repository/Grease-GemStone-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-GemStone-Core.package/monticello.meta/package delete mode 100644 repository/Grease-GemStone-Core.package/properties.json create mode 100644 repository/Grease-GemStone-Core/Array.extension.st create mode 100644 repository/Grease-GemStone-Core/Behavior.extension.st create mode 100644 repository/Grease-GemStone-Core/BinaryFloat.extension.st create mode 100644 repository/Grease-GemStone-Core/ByteArray.extension.st create mode 100644 repository/Grease-GemStone-Core/Character.extension.st create mode 100644 repository/Grease-GemStone-Core/CharacterCollection.extension.st create mode 100644 repository/Grease-GemStone-Core/Collection.extension.st create mode 100644 repository/Grease-GemStone-Core/Date.extension.st create mode 100644 repository/Grease-GemStone-Core/Dictionary.extension.st create mode 100644 repository/Grease-GemStone-Core/DoubleByteString.extension.st create mode 100644 repository/Grease-GemStone-Core/Duration.extension.st create mode 100644 repository/Grease-GemStone-Core/Exception.extension.st create mode 100644 repository/Grease-GemStone-Core/GRDynamicVariable.class.st create mode 100644 repository/Grease-GemStone-Core/GRGemStonePlatform.class.st create mode 100644 repository/Grease-GemStone-Core/GRGemStonePlatform.extension.st create mode 100644 repository/Grease-GemStone-Core/GRGemStoneRandomProvider.class.st create mode 100644 repository/Grease-GemStone-Core/GRLatin1GemStoneCodec.class.st create mode 100644 repository/Grease-GemStone-Core/GRPackage.extension.st create mode 100644 repository/Grease-GemStone-Core/GRTextOrBinaryCodecStream.class.st create mode 100644 repository/Grease-GemStone-Core/GRUtf8GemStoneCodec.class.st create mode 100644 repository/Grease-GemStone-Core/GsContext.class.st create mode 100644 repository/Grease-GemStone-Core/Interval.extension.st create mode 100644 repository/Grease-GemStone-Core/LargeInteger.extension.st create mode 100644 repository/Grease-GemStone-Core/MessageSend.extension.st create mode 100644 repository/Grease-GemStone-Core/Number.extension.st create mode 100644 repository/Grease-GemStone-Core/Object.extension.st create mode 100644 repository/Grease-GemStone-Core/PackageInfo.extension.st create mode 100644 repository/Grease-GemStone-Core/PositionableStream.extension.st create mode 100644 repository/Grease-GemStone-Core/SequenceableCollection.extension.st create mode 100644 repository/Grease-GemStone-Core/SmallInteger.extension.st create mode 100644 repository/Grease-GemStone-Core/String.extension.st create mode 100644 repository/Grease-GemStone-Core/Symbol.extension.st create mode 100644 repository/Grease-GemStone-Core/SystemAbortTransaction.class.st create mode 100644 repository/Grease-GemStone-Core/SystemBeginTransaction.class.st create mode 100644 repository/Grease-GemStone-Core/SystemCommitTransaction.class.st create mode 100644 repository/Grease-GemStone-Core/SystemTransactionNotification.class.st create mode 100644 repository/Grease-GemStone-Core/UnorderedCollection.extension.st create mode 100644 repository/Grease-GemStone-Core/WriteStream.extension.st create mode 100644 repository/Grease-GemStone-Core/package.st delete mode 100644 repository/Grease-GemStone-Kernelv370.package/.filetree delete mode 100644 repository/Grease-GemStone-Kernelv370.package/ReadByteStreamPortable.extension/instance/greaseUpToAll..st delete mode 100644 repository/Grease-GemStone-Kernelv370.package/ReadByteStreamPortable.extension/properties.json delete mode 100644 repository/Grease-GemStone-Kernelv370.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-GemStone-Kernelv370.package/monticello.meta/package delete mode 100644 repository/Grease-GemStone-Kernelv370.package/properties.json create mode 100644 repository/Grease-GemStone-Kernelv370/ReadByteStreamPortable.extension.st create mode 100644 repository/Grease-GemStone-Kernelv370/package.st delete mode 100644 repository/Grease-GemStone200-Core.package/.filetree delete mode 100644 repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st delete mode 100644 repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st delete mode 100644 repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st delete mode 100644 repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st delete mode 100644 repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st delete mode 100644 repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/properties.json delete mode 100644 repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/README.md delete mode 100644 repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/crlf.st delete mode 100644 repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st delete mode 100644 repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/next..st delete mode 100644 repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/nextPut..st delete mode 100644 repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/properties.json delete mode 100644 repository/Grease-GemStone200-Core.package/monticello.meta/categories.st delete mode 100644 repository/Grease-GemStone200-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-GemStone200-Core.package/monticello.meta/package delete mode 100644 repository/Grease-GemStone200-Core.package/properties.json create mode 100644 repository/Grease-GemStone200-Core/GRGemStonePlatform.extension.st create mode 100644 repository/Grease-GemStone200-Core/GRUtf8CodecStream.class.st create mode 100644 repository/Grease-GemStone200-Core/package.st delete mode 100644 repository/Grease-GemStone230-Core.package/.filetree delete mode 100644 repository/Grease-GemStone230-Core.package/TransientRandom.extension/instance/open.st delete mode 100644 repository/Grease-GemStone230-Core.package/TransientRandom.extension/properties.json delete mode 100644 repository/Grease-GemStone230-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-GemStone230-Core.package/monticello.meta/package delete mode 100644 repository/Grease-GemStone230-Core.package/properties.json create mode 100644 repository/Grease-GemStone230-Core/TransientRandom.extension.st create mode 100644 repository/Grease-GemStone230-Core/package.st delete mode 100644 repository/Grease-GemStone240-Core.package/.filetree delete mode 100644 repository/Grease-GemStone240-Core.package/ExceptionA.extension/class/raiseSignal..st delete mode 100644 repository/Grease-GemStone240-Core.package/ExceptionA.extension/instance/greaseString.st delete mode 100644 repository/Grease-GemStone240-Core.package/ExceptionA.extension/instance/raiseSignal..st delete mode 100644 repository/Grease-GemStone240-Core.package/ExceptionA.extension/instance/raiseSignal.st delete mode 100644 repository/Grease-GemStone240-Core.package/ExceptionA.extension/properties.json delete mode 100644 repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/argumentCount.st delete mode 100644 repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/ifCurtailed..st delete mode 100644 repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/tempVarRefs.st delete mode 100644 repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/valueWithPossibleArguments..st delete mode 100644 repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/properties.json delete mode 100644 repository/Grease-GemStone240-Core.package/TransientRandom.extension/instance/open.st delete mode 100644 repository/Grease-GemStone240-Core.package/TransientRandom.extension/properties.json delete mode 100644 repository/Grease-GemStone240-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-GemStone240-Core.package/monticello.meta/package delete mode 100644 repository/Grease-GemStone240-Core.package/properties.json create mode 100644 repository/Grease-GemStone240-Core/ExceptionA.extension.st create mode 100644 repository/Grease-GemStone240-Core/ExecutableBlock.extension.st create mode 100644 repository/Grease-GemStone240-Core/TransientRandom.extension.st create mode 100644 repository/Grease-GemStone240-Core/package.st delete mode 100644 repository/Grease-GemStone300-Core.package/.filetree delete mode 100644 repository/Grease-GemStone300-Core.package/Exception.extension/instance/greaseString.st delete mode 100644 repository/Grease-GemStone300-Core.package/Exception.extension/properties.json delete mode 100644 repository/Grease-GemStone300-Core.package/ExecBlock.extension/instance/argumentCount.st delete mode 100644 repository/Grease-GemStone300-Core.package/ExecBlock.extension/instance/ifCurtailed..st delete mode 100644 repository/Grease-GemStone300-Core.package/ExecBlock.extension/instance/valueWithPossibleArguments..st delete mode 100644 repository/Grease-GemStone300-Core.package/ExecBlock.extension/properties.json delete mode 100644 repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st delete mode 100644 repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st delete mode 100644 repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st delete mode 100644 repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st delete mode 100644 repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st delete mode 100644 repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/properties.json delete mode 100644 repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/README.md delete mode 100644 repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/class/initialize.st delete mode 100644 repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/crlf.st delete mode 100644 repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st delete mode 100644 repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/next..st delete mode 100644 repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/nextPut..st delete mode 100644 repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/properties.json delete mode 100644 repository/Grease-GemStone300-Core.package/monticello.meta/categories.st delete mode 100644 repository/Grease-GemStone300-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-GemStone300-Core.package/monticello.meta/package delete mode 100644 repository/Grease-GemStone300-Core.package/properties.json create mode 100644 repository/Grease-GemStone300-Core/Exception.extension.st create mode 100644 repository/Grease-GemStone300-Core/ExecBlock.extension.st create mode 100644 repository/Grease-GemStone300-Core/GRGemStonePlatform.extension.st create mode 100644 repository/Grease-GemStone300-Core/GRUtf8CodecStream.class.st create mode 100644 repository/Grease-GemStone300-Core/package.st delete mode 100644 repository/Grease-GemStone330-Core.package/.filetree delete mode 100644 repository/Grease-GemStone330-Core.package/Exception.extension/instance/greaseString.st delete mode 100644 repository/Grease-GemStone330-Core.package/Exception.extension/properties.json delete mode 100644 repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/argumentCount.st delete mode 100644 repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/ifCurtailed..st delete mode 100644 repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/valueWithPossibleArguments..st delete mode 100644 repository/Grease-GemStone330-Core.package/ExecBlock.extension/properties.json delete mode 100644 repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st delete mode 100644 repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st delete mode 100644 repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st delete mode 100644 repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st delete mode 100644 repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st delete mode 100644 repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/properties.json delete mode 100644 repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/README.md delete mode 100644 repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/class/initialize.st delete mode 100644 repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/crlf.st delete mode 100644 repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st delete mode 100644 repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/next..st delete mode 100644 repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/nextPut..st delete mode 100644 repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/properties.json delete mode 100644 repository/Grease-GemStone330-Core.package/monticello.meta/categories.st delete mode 100644 repository/Grease-GemStone330-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-GemStone330-Core.package/monticello.meta/package delete mode 100644 repository/Grease-GemStone330-Core.package/properties.json create mode 100644 repository/Grease-GemStone330-Core/Exception.extension.st create mode 100644 repository/Grease-GemStone330-Core/ExecBlock.extension.st create mode 100644 repository/Grease-GemStone330-Core/GRGemStonePlatform.extension.st create mode 100644 repository/Grease-GemStone330-Core/GRUtf8CodecStream.class.st create mode 100644 repository/Grease-GemStone330-Core/package.st delete mode 100644 repository/Grease-Pharo100-Core.package/.filetree delete mode 100644 repository/Grease-Pharo100-Core.package/Behavior.extension/instance/fullName.st delete mode 100644 repository/Grease-Pharo100-Core.package/Behavior.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st delete mode 100644 repository/Grease-Pharo100-Core.package/BlockClosure.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/ByteArray.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo100-Core.package/ByteArray.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/Character.extension/instance/greaseInteger.st delete mode 100644 repository/Grease-Pharo100-Core.package/Character.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/Collection.extension/instance/any.st delete mode 100644 repository/Grease-Pharo100-Core.package/Collection.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/Color.extension/instance/asHTMLColor.st delete mode 100644 repository/Grease-Pharo100-Core.package/Color.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/Duration.extension/class/milliseconds..st delete mode 100644 repository/Grease-Pharo100-Core.package/Duration.extension/instance/asMilliseconds.st delete mode 100644 repository/Grease-Pharo100-Core.package/Duration.extension/instance/milliseconds.st delete mode 100644 repository/Grease-Pharo100-Core.package/Duration.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/README.md delete mode 100644 repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/defaultValue.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/use.during..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/instance/default.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/GRPackage.extension/class/greasePharo100Core.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPackage.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/README.md delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/codecs.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decode..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/name.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/README.md delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/README.md delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initialize.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/unload.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Decode..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Encode..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/bindingOf..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deleteFile..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/directoriesIn..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/doSilently..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/fileExists..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/filesIn..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/label.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newRandom.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newline.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/pathSeparator.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/secureHashFor..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/stackDepth.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/terminateProcess..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/thisContext.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/README.md delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/initialize.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/nextInt..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomClass.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomFrom..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/startUp.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/unload.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/README.md delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/codecs.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportedEncodingNames.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decode..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decoderFor..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encodedStringClass.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encoderFor..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/initializeWithName..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/name.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/url.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/README.md delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/class/on.withEncoder..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/initializeOn.withEncoder..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next.st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPut..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st delete mode 100644 repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/Interval.extension/instance/any.st delete mode 100644 repository/Grease-Pharo100-Core.package/Interval.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseByteAt..st delete mode 100644 repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseBytesCount.st delete mode 100644 repository/Grease-Pharo100-Core.package/LargeInteger.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/argumentCount.st delete mode 100644 repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st delete mode 100644 repository/Grease-Pharo100-Core.package/MessageSend.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/Number.extension/instance/milliseconds.st delete mode 100644 repository/Grease-Pharo100-Core.package/Number.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/Object.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo100-Core.package/Object.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/Point.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo100-Core.package/Point.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/PositionableStream.extension/instance/greaseUpToAll..st delete mode 100644 repository/Grease-Pharo100-Core.package/PositionableStream.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/encodeOn..st delete mode 100644 repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st delete mode 100644 repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st delete mode 100644 repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st delete mode 100644 repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st delete mode 100644 repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseByteAt..st delete mode 100644 repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseBytesCount.st delete mode 100644 repository/Grease-Pharo100-Core.package/SmallInteger.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo100-Core.package/SocketStream.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/Symbol.extension/instance/greaseAsMutator.st delete mode 100644 repository/Grease-Pharo100-Core.package/Symbol.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo100-Core.package/WriteStream.extension/properties.json delete mode 100644 repository/Grease-Pharo100-Core.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Pharo100-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Pharo100-Core.package/monticello.meta/package delete mode 100644 repository/Grease-Pharo100-Core.package/properties.json create mode 100644 repository/Grease-Pharo100-Core/Behavior.extension.st create mode 100644 repository/Grease-Pharo100-Core/BlockClosure.extension.st create mode 100644 repository/Grease-Pharo100-Core/ByteArray.extension.st create mode 100644 repository/Grease-Pharo100-Core/Character.extension.st create mode 100644 repository/Grease-Pharo100-Core/Collection.extension.st create mode 100644 repository/Grease-Pharo100-Core/Color.extension.st create mode 100644 repository/Grease-Pharo100-Core/Duration.extension.st create mode 100644 repository/Grease-Pharo100-Core/GRDynamicVariable.class.st create mode 100644 repository/Grease-Pharo100-Core/GRPackage.extension.st create mode 100644 repository/Grease-Pharo100-Core/GRPharoLatin1Codec.class.st create mode 100644 repository/Grease-Pharo100-Core/GRPharoLatin1CodecStream.class.st create mode 100644 repository/Grease-Pharo100-Core/GRPharoPlatform.class.st create mode 100644 repository/Grease-Pharo100-Core/GRPharoRandomProvider.class.st create mode 100644 repository/Grease-Pharo100-Core/GRPharoZnCodec.class.st create mode 100644 repository/Grease-Pharo100-Core/GRPharoZnCodecStream.class.st create mode 100644 repository/Grease-Pharo100-Core/GRSmallDictionary.extension.st create mode 100644 repository/Grease-Pharo100-Core/GRSmallDictionary2.extension.st create mode 100644 repository/Grease-Pharo100-Core/Interval.extension.st create mode 100644 repository/Grease-Pharo100-Core/LargeInteger.extension.st create mode 100644 repository/Grease-Pharo100-Core/MessageSend.extension.st create mode 100644 repository/Grease-Pharo100-Core/Number.extension.st create mode 100644 repository/Grease-Pharo100-Core/Object.extension.st create mode 100644 repository/Grease-Pharo100-Core/Point.extension.st create mode 100644 repository/Grease-Pharo100-Core/PositionableStream.extension.st create mode 100644 repository/Grease-Pharo100-Core/ScaledDecimal.extension.st create mode 100644 repository/Grease-Pharo100-Core/SequenceableCollection.extension.st create mode 100644 repository/Grease-Pharo100-Core/SmallInteger.extension.st create mode 100644 repository/Grease-Pharo100-Core/SocketStream.extension.st create mode 100644 repository/Grease-Pharo100-Core/Symbol.extension.st create mode 100644 repository/Grease-Pharo100-Core/WriteStream.extension.st create mode 100644 repository/Grease-Pharo100-Core/package.st delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/.filetree delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/afterCheck.mappings..st delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/class/isVisible.st delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/class/isVisible.st delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/class/isVisible.st delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/class/isVisible.st delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/class/isVisible.st delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/class/isVisible.st delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/monticello.meta/package delete mode 100644 repository/Grease-Pharo110-Slime-Core.package/properties.json create mode 100644 repository/Grease-Pharo110-Slime-Core/GRDeprecatedApiProtocolRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Core/GRReSlimeBlockLintRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Core/GRReSlimeParseTreeLintRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Core/GRReSlimeTransformationRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Core/GRSlimeBlockLintRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Core/GRSlimeParseTreeLintRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Core/GRSlimeTransformationRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Core/package.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/.filetree delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/class/checksClass.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/basicCheck..st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/class/checksMethod.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/basicCheck..st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/class/checksNode.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/basicCheck..st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/methodNames.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/class/checksMethod.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/instance/basicCheck..st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/class/checksClass.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/instance/basicCheck..st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/afterCheck.mappings..st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/afterCheck.mappings..st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/README.md delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/class/isAbstract.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/class/isVisible.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/classNames.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/properties.json delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/package delete mode 100644 repository/Grease-Pharo110-Slime-Portability.package/properties.json create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRAnsiBooleansRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRAnsiCharactersRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRAnsiCollectionsRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRAnsiConditionalsRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRAnsiConvertorRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRAnsiExceptionsRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRAnsiStreamsRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRAnsiStringsRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRBasicNewInitializeMissingRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRInvalidObjectInitializationRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRNonPortableMessageRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRNotPortableCollectionsRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRObjectInRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRReferencesNotPortableClassRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRSubclassesNotPortableClassRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRTestAssertionsRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRUsesCanPerformOrUnderstandRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRUsesClassForHashRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/GRUsesNotPortableClassRule.class.st create mode 100644 repository/Grease-Pharo110-Slime-Portability/package.st delete mode 100644 repository/Grease-Pharo40-Slime.package/.filetree delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/resetResult.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/methodNames.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRPackage.extension/class/greaseSlime.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRPackage.extension/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/class/isVisible.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/instance/category.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/class/isVisible.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/instance/category.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRSlimeTransformationRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRSlimeTransformationRule.class/class/isVisible.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRSlimeTransformationRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/resetResult.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/shouldExclude..st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/README.md delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/classNames.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/properties.json delete mode 100644 repository/Grease-Pharo40-Slime.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Pharo40-Slime.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Pharo40-Slime.package/monticello.meta/package delete mode 100644 repository/Grease-Pharo40-Slime.package/properties.json create mode 100644 repository/Grease-Pharo40-Slime/GRAnsiBooleansRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRAnsiCharactersRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRAnsiCollectionsRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRAnsiConditionalsRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRAnsiConvertorRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRAnsiExceptionsRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRAnsiStreamsRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRAnsiStringsRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRBasicNewInitializeMissingRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRBlockFormattingRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRDeprecatedApiProtocolRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GREmptyStatementsRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRInvalidObjectInitializationRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRNonPortableMessageRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRNonPortableSourceFormatRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRNotPortableCollectionsRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRObjectInRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRPackage.extension.st create mode 100644 repository/Grease-Pharo40-Slime/GRParensFormattingRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRReturnFormattingRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRSlimeBlockLintRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRSlimeParseTreeLintRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRSlimeTransformationRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRTempsFormattingRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRTestAssertionsRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRUnnecessaryLastPeriodRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRUsesCanPerformOrUnderstandRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRUsesClassForHashRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRUsesCurlyBraceArraysRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRUsesLiteralByteArraysRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRUsesMethodAnnotationsRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/GRUsesNotPortableClassRule.class.st create mode 100644 repository/Grease-Pharo40-Slime/package.st delete mode 100644 repository/Grease-Pharo60-Core.package/.filetree delete mode 100644 repository/Grease-Pharo60-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st delete mode 100644 repository/Grease-Pharo60-Core.package/BlockClosure.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/ByteArray.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo60-Core.package/ByteArray.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/Character.extension/instance/greaseInteger.st delete mode 100644 repository/Grease-Pharo60-Core.package/Character.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/Collection.extension/instance/any.st delete mode 100644 repository/Grease-Pharo60-Core.package/Collection.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/Color.extension/instance/asHTMLColor.st delete mode 100644 repository/Grease-Pharo60-Core.package/Color.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/Duration.extension/class/milliseconds..st delete mode 100644 repository/Grease-Pharo60-Core.package/Duration.extension/instance/asMilliseconds.st delete mode 100644 repository/Grease-Pharo60-Core.package/Duration.extension/instance/milliseconds.st delete mode 100644 repository/Grease-Pharo60-Core.package/Duration.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRDelegatingStream.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/README.md delete mode 100644 repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/class/defaultValue.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/class/use.during..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/instance/default.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/GRPackage.extension/class/greasePharo60Core.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPackage.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/README.md delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/next..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/next.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/README.md delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/class/codecs.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/converter.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/name.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/url.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/README.md delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/class/codecs.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/decode..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/name.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/README.md delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/instance/next..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/instance/next.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/README.md delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/class/initialize.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/class/unload.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/base64Decode..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/base64Encode..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/bindingOf..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/directoriesIn..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/doSilently..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/fileExists..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/filesIn..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/integerAsByteArray..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/label.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/localNameOf..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/newRandom.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/newline.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/pathSeparator.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/secureHashFor..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/stackDepth.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/terminateProcess..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/thisContext.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/README.md delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/initialize.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/nextInt..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/randomClass.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/randomFrom..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/startUp.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/unload.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/README.md delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/class/codecs.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/decode..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/name.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/url.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/README.md delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/next..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/next.st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/Interval.extension/instance/any.st delete mode 100644 repository/Grease-Pharo60-Core.package/Interval.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/LargeInteger.extension/instance/greaseByteAt..st delete mode 100644 repository/Grease-Pharo60-Core.package/LargeInteger.extension/instance/greaseBytesCount.st delete mode 100644 repository/Grease-Pharo60-Core.package/LargeInteger.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/MessageSend.extension/instance/argumentCount.st delete mode 100644 repository/Grease-Pharo60-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st delete mode 100644 repository/Grease-Pharo60-Core.package/MessageSend.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/Number.extension/instance/milliseconds.st delete mode 100644 repository/Grease-Pharo60-Core.package/Number.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/Object.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo60-Core.package/Object.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/Point.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo60-Core.package/Point.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/PositionableStream.extension/instance/greaseUpToAll..st delete mode 100644 repository/Grease-Pharo60-Core.package/PositionableStream.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/ScaledDecimal.extension/instance/encodeOn..st delete mode 100644 repository/Grease-Pharo60-Core.package/ScaledDecimal.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo60-Core.package/ScaledDecimal.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st delete mode 100644 repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st delete mode 100644 repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/instance/sorted.st delete mode 100644 repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/SmallInteger.extension/instance/greaseByteAt..st delete mode 100644 repository/Grease-Pharo60-Core.package/SmallInteger.extension/instance/greaseBytesCount.st delete mode 100644 repository/Grease-Pharo60-Core.package/SmallInteger.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo60-Core.package/SocketStream.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/String.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo60-Core.package/String.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/Symbol.extension/instance/greaseAsMutator.st delete mode 100644 repository/Grease-Pharo60-Core.package/Symbol.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo60-Core.package/Symbol.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/TBehavior.extension/instance/fullName.st delete mode 100644 repository/Grease-Pharo60-Core.package/TBehavior.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo60-Core.package/WriteStream.extension/properties.json delete mode 100644 repository/Grease-Pharo60-Core.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Pharo60-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Pharo60-Core.package/monticello.meta/package delete mode 100644 repository/Grease-Pharo60-Core.package/properties.json create mode 100644 repository/Grease-Pharo60-Core/BlockClosure.extension.st create mode 100644 repository/Grease-Pharo60-Core/ByteArray.extension.st create mode 100644 repository/Grease-Pharo60-Core/Character.extension.st create mode 100644 repository/Grease-Pharo60-Core/Collection.extension.st create mode 100644 repository/Grease-Pharo60-Core/Color.extension.st create mode 100644 repository/Grease-Pharo60-Core/Duration.extension.st create mode 100644 repository/Grease-Pharo60-Core/GRDelegatingStream.extension.st create mode 100644 repository/Grease-Pharo60-Core/GRDynamicVariable.class.st create mode 100644 repository/Grease-Pharo60-Core/GRPackage.extension.st create mode 100644 repository/Grease-Pharo60-Core/GRPharoConverterCodecStream.class.st create mode 100644 repository/Grease-Pharo60-Core/GRPharoGenericCodec.class.st create mode 100644 repository/Grease-Pharo60-Core/GRPharoLatin1Codec.class.st create mode 100644 repository/Grease-Pharo60-Core/GRPharoLatin1CodecStream.class.st create mode 100644 repository/Grease-Pharo60-Core/GRPharoPlatform.class.st create mode 100644 repository/Grease-Pharo60-Core/GRPharoRandomProvider.class.st create mode 100644 repository/Grease-Pharo60-Core/GRPharoUtf8Codec.class.st create mode 100644 repository/Grease-Pharo60-Core/GRPharoUtf8CodecStream.class.st create mode 100644 repository/Grease-Pharo60-Core/Interval.extension.st create mode 100644 repository/Grease-Pharo60-Core/LargeInteger.extension.st create mode 100644 repository/Grease-Pharo60-Core/MessageSend.extension.st create mode 100644 repository/Grease-Pharo60-Core/Number.extension.st create mode 100644 repository/Grease-Pharo60-Core/Object.extension.st create mode 100644 repository/Grease-Pharo60-Core/Point.extension.st create mode 100644 repository/Grease-Pharo60-Core/PositionableStream.extension.st create mode 100644 repository/Grease-Pharo60-Core/ScaledDecimal.extension.st create mode 100644 repository/Grease-Pharo60-Core/SequenceableCollection.extension.st create mode 100644 repository/Grease-Pharo60-Core/SmallInteger.extension.st create mode 100644 repository/Grease-Pharo60-Core/SocketStream.extension.st create mode 100644 repository/Grease-Pharo60-Core/String.extension.st create mode 100644 repository/Grease-Pharo60-Core/Symbol.extension.st create mode 100644 repository/Grease-Pharo60-Core/TBehavior.extension.st create mode 100644 repository/Grease-Pharo60-Core/WriteStream.extension.st create mode 100644 repository/Grease-Pharo60-Core/package.st delete mode 100644 repository/Grease-Pharo70-Core.package/.filetree delete mode 100644 repository/Grease-Pharo70-Core.package/Behavior.extension/instance/fullName.st delete mode 100644 repository/Grease-Pharo70-Core.package/Behavior.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st delete mode 100644 repository/Grease-Pharo70-Core.package/BlockClosure.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/ByteArray.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo70-Core.package/ByteArray.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/Character.extension/instance/greaseInteger.st delete mode 100644 repository/Grease-Pharo70-Core.package/Character.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/Collection.extension/instance/any.st delete mode 100644 repository/Grease-Pharo70-Core.package/Collection.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/Color.extension/instance/asHTMLColor.st delete mode 100644 repository/Grease-Pharo70-Core.package/Color.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/Duration.extension/class/milliseconds..st delete mode 100644 repository/Grease-Pharo70-Core.package/Duration.extension/instance/asMilliseconds.st delete mode 100644 repository/Grease-Pharo70-Core.package/Duration.extension/instance/milliseconds.st delete mode 100644 repository/Grease-Pharo70-Core.package/Duration.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRDelegatingStream.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/README.md delete mode 100644 repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/class/defaultValue.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/class/use.during..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/instance/default.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/GRPackage.extension/class/greasePharo70Core.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPackage.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/README.md delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/README.md delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/codecs.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/converter.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/name.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/url.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/README.md delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/codecs.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/decode..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/name.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/README.md delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/instance/next..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/instance/next.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initialize.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/unload.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/base64Decode..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/base64Encode..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/bindingOf..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deleteFile..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/directoriesIn..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/doSilently..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/fileExists..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/filesIn..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/label.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/localNameOf..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newRandom.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newline.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/pathSeparator.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/secureHashFor..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/stackDepth.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/terminateProcess..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/thisContext.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/README.md delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/initialize.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/nextInt..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomClass.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomFrom..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/startUp.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/unload.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/README.md delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/codecs.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decode..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/name.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/url.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/README.md delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/explorerContents.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st delete mode 100644 repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/Interval.extension/instance/any.st delete mode 100644 repository/Grease-Pharo70-Core.package/Interval.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/LargeInteger.extension/instance/greaseByteAt..st delete mode 100644 repository/Grease-Pharo70-Core.package/LargeInteger.extension/instance/greaseBytesCount.st delete mode 100644 repository/Grease-Pharo70-Core.package/LargeInteger.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/MessageSend.extension/instance/argumentCount.st delete mode 100644 repository/Grease-Pharo70-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st delete mode 100644 repository/Grease-Pharo70-Core.package/MessageSend.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/Number.extension/instance/milliseconds.st delete mode 100644 repository/Grease-Pharo70-Core.package/Number.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/Object.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo70-Core.package/Object.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/Point.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo70-Core.package/Point.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/PositionableStream.extension/instance/greaseUpToAll..st delete mode 100644 repository/Grease-Pharo70-Core.package/PositionableStream.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/instance/encodeOn..st delete mode 100644 repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st delete mode 100644 repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st delete mode 100644 repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st delete mode 100644 repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st delete mode 100644 repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/sorted.st delete mode 100644 repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/SmallInteger.extension/instance/greaseByteAt..st delete mode 100644 repository/Grease-Pharo70-Core.package/SmallInteger.extension/instance/greaseBytesCount.st delete mode 100644 repository/Grease-Pharo70-Core.package/SmallInteger.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo70-Core.package/SocketStream.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/Symbol.extension/instance/greaseAsMutator.st delete mode 100644 repository/Grease-Pharo70-Core.package/Symbol.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo70-Core.package/WriteStream.extension/properties.json delete mode 100644 repository/Grease-Pharo70-Core.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Pharo70-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Pharo70-Core.package/monticello.meta/package delete mode 100644 repository/Grease-Pharo70-Core.package/properties.json create mode 100644 repository/Grease-Pharo70-Core/Behavior.extension.st create mode 100644 repository/Grease-Pharo70-Core/BlockClosure.extension.st create mode 100644 repository/Grease-Pharo70-Core/ByteArray.extension.st create mode 100644 repository/Grease-Pharo70-Core/Character.extension.st create mode 100644 repository/Grease-Pharo70-Core/Collection.extension.st create mode 100644 repository/Grease-Pharo70-Core/Color.extension.st create mode 100644 repository/Grease-Pharo70-Core/Duration.extension.st create mode 100644 repository/Grease-Pharo70-Core/GRDelegatingStream.extension.st create mode 100644 repository/Grease-Pharo70-Core/GRDynamicVariable.class.st create mode 100644 repository/Grease-Pharo70-Core/GRPackage.extension.st create mode 100644 repository/Grease-Pharo70-Core/GRPharoConverterCodecStream.class.st create mode 100644 repository/Grease-Pharo70-Core/GRPharoGenericCodec.class.st create mode 100644 repository/Grease-Pharo70-Core/GRPharoLatin1Codec.class.st create mode 100644 repository/Grease-Pharo70-Core/GRPharoLatin1CodecStream.class.st create mode 100644 repository/Grease-Pharo70-Core/GRPharoPlatform.class.st create mode 100644 repository/Grease-Pharo70-Core/GRPharoRandomProvider.class.st create mode 100644 repository/Grease-Pharo70-Core/GRPharoUtf8Codec.class.st create mode 100644 repository/Grease-Pharo70-Core/GRPharoUtf8CodecStream.class.st create mode 100644 repository/Grease-Pharo70-Core/GRSmallDictionary.extension.st create mode 100644 repository/Grease-Pharo70-Core/Interval.extension.st create mode 100644 repository/Grease-Pharo70-Core/LargeInteger.extension.st create mode 100644 repository/Grease-Pharo70-Core/MessageSend.extension.st create mode 100644 repository/Grease-Pharo70-Core/Number.extension.st create mode 100644 repository/Grease-Pharo70-Core/Object.extension.st create mode 100644 repository/Grease-Pharo70-Core/Point.extension.st create mode 100644 repository/Grease-Pharo70-Core/PositionableStream.extension.st create mode 100644 repository/Grease-Pharo70-Core/ScaledDecimal.extension.st create mode 100644 repository/Grease-Pharo70-Core/SequenceableCollection.extension.st create mode 100644 repository/Grease-Pharo70-Core/SmallInteger.extension.st create mode 100644 repository/Grease-Pharo70-Core/SocketStream.extension.st create mode 100644 repository/Grease-Pharo70-Core/Symbol.extension.st create mode 100644 repository/Grease-Pharo70-Core/WriteStream.extension.st create mode 100644 repository/Grease-Pharo70-Core/package.st delete mode 100644 repository/Grease-Pharo90-Core.package/.filetree delete mode 100644 repository/Grease-Pharo90-Core.package/Behavior.extension/instance/fullName.st delete mode 100644 repository/Grease-Pharo90-Core.package/Behavior.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st delete mode 100644 repository/Grease-Pharo90-Core.package/BlockClosure.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/ByteArray.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo90-Core.package/ByteArray.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/Character.extension/instance/greaseInteger.st delete mode 100644 repository/Grease-Pharo90-Core.package/Character.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/Collection.extension/instance/any.st delete mode 100644 repository/Grease-Pharo90-Core.package/Collection.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/Color.extension/instance/asHTMLColor.st delete mode 100644 repository/Grease-Pharo90-Core.package/Color.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/Duration.extension/class/milliseconds..st delete mode 100644 repository/Grease-Pharo90-Core.package/Duration.extension/instance/asMilliseconds.st delete mode 100644 repository/Grease-Pharo90-Core.package/Duration.extension/instance/milliseconds.st delete mode 100644 repository/Grease-Pharo90-Core.package/Duration.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRDelegatingStream.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/README.md delete mode 100644 repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/class/defaultValue.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/class/use.during..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/instance/default.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/GRPackage.extension/class/greasePharo70Core.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPackage.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/README.md delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/next..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/next.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/README.md delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/codecs.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decode..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encodedStringClass.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/invalidUtf8.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/url.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/class/initialize.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeDefault..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeFast..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/README.md delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/codecs.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/converter.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/url.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/README.md delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/codecs.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/decode..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/README.md delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/instance/next..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/instance/next.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/README.md delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initialize.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/unload.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/base64Decode..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/base64Encode..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/bindingOf..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deleteFile..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/directoriesIn..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/doSilently..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/fileExists..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/filesIn..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/label.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/localNameOf..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newRandom.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newline.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/pathSeparator.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/secureHashFor..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/setutf8CodectoDeprecatedTextConverter.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/setutf8CodectoZinc.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/stackDepth.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/terminateProcess..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/thisContext.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/README.md delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/initialize.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/nextInt..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/randomClass.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/randomFrom..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/startUp.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/unload.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/README.md delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/codecs.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encodedStringClass.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/url.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/README.md delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st delete mode 100644 repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/Interval.extension/instance/any.st delete mode 100644 repository/Grease-Pharo90-Core.package/Interval.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/LargeInteger.extension/instance/greaseByteAt..st delete mode 100644 repository/Grease-Pharo90-Core.package/LargeInteger.extension/instance/greaseBytesCount.st delete mode 100644 repository/Grease-Pharo90-Core.package/LargeInteger.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/MessageSend.extension/instance/argumentCount.st delete mode 100644 repository/Grease-Pharo90-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st delete mode 100644 repository/Grease-Pharo90-Core.package/MessageSend.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/Number.extension/instance/milliseconds.st delete mode 100644 repository/Grease-Pharo90-Core.package/Number.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/Object.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo90-Core.package/Object.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/Point.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo90-Core.package/Point.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/PositionableStream.extension/instance/greaseUpToAll..st delete mode 100644 repository/Grease-Pharo90-Core.package/PositionableStream.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/instance/encodeOn..st delete mode 100644 repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/instance/greaseString.st delete mode 100644 repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st delete mode 100644 repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st delete mode 100644 repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st delete mode 100644 repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st delete mode 100644 repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/SmallInteger.extension/instance/greaseByteAt..st delete mode 100644 repository/Grease-Pharo90-Core.package/SmallInteger.extension/instance/greaseBytesCount.st delete mode 100644 repository/Grease-Pharo90-Core.package/SmallInteger.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo90-Core.package/SocketStream.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/Symbol.extension/instance/greaseAsMutator.st delete mode 100644 repository/Grease-Pharo90-Core.package/Symbol.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Pharo90-Core.package/WriteStream.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Core.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Pharo90-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Pharo90-Core.package/monticello.meta/package delete mode 100644 repository/Grease-Pharo90-Core.package/properties.json create mode 100644 repository/Grease-Pharo90-Core/Behavior.extension.st create mode 100644 repository/Grease-Pharo90-Core/BlockClosure.extension.st create mode 100644 repository/Grease-Pharo90-Core/ByteArray.extension.st create mode 100644 repository/Grease-Pharo90-Core/Character.extension.st create mode 100644 repository/Grease-Pharo90-Core/Collection.extension.st create mode 100644 repository/Grease-Pharo90-Core/Color.extension.st create mode 100644 repository/Grease-Pharo90-Core/Duration.extension.st create mode 100644 repository/Grease-Pharo90-Core/GRDelegatingStream.extension.st create mode 100644 repository/Grease-Pharo90-Core/GRDynamicVariable.class.st create mode 100644 repository/Grease-Pharo90-Core/GRPackage.extension.st create mode 100644 repository/Grease-Pharo90-Core/GRPharoConverterCodecStream.class.st create mode 100644 repository/Grease-Pharo90-Core/GRPharoDeprecatedUtf8Codec.class.st create mode 100644 repository/Grease-Pharo90-Core/GRPharoDeprecatedUtf8CodecStream.class.st create mode 100644 repository/Grease-Pharo90-Core/GRPharoGenericCodec.class.st create mode 100644 repository/Grease-Pharo90-Core/GRPharoLatin1Codec.class.st create mode 100644 repository/Grease-Pharo90-Core/GRPharoLatin1CodecStream.class.st create mode 100644 repository/Grease-Pharo90-Core/GRPharoPlatform.class.st create mode 100644 repository/Grease-Pharo90-Core/GRPharoRandomProvider.class.st create mode 100644 repository/Grease-Pharo90-Core/GRPharoUtf8Codec.class.st create mode 100644 repository/Grease-Pharo90-Core/GRPharoZnUtf8CodecStream.class.st create mode 100644 repository/Grease-Pharo90-Core/GRSmallDictionary.extension.st create mode 100644 repository/Grease-Pharo90-Core/GRSmallDictionary2.extension.st create mode 100644 repository/Grease-Pharo90-Core/Interval.extension.st create mode 100644 repository/Grease-Pharo90-Core/LargeInteger.extension.st create mode 100644 repository/Grease-Pharo90-Core/MessageSend.extension.st create mode 100644 repository/Grease-Pharo90-Core/Number.extension.st create mode 100644 repository/Grease-Pharo90-Core/Object.extension.st create mode 100644 repository/Grease-Pharo90-Core/Point.extension.st create mode 100644 repository/Grease-Pharo90-Core/PositionableStream.extension.st create mode 100644 repository/Grease-Pharo90-Core/ScaledDecimal.extension.st create mode 100644 repository/Grease-Pharo90-Core/SequenceableCollection.extension.st create mode 100644 repository/Grease-Pharo90-Core/SmallInteger.extension.st create mode 100644 repository/Grease-Pharo90-Core/SocketStream.extension.st create mode 100644 repository/Grease-Pharo90-Core/Symbol.extension.st create mode 100644 repository/Grease-Pharo90-Core/WriteStream.extension.st create mode 100644 repository/Grease-Pharo90-Core/package.st delete mode 100644 repository/Grease-Pharo90-Slime.package/.filetree delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/methodNames.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRPackage.extension/class/greaseSlime.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRPackage.extension/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/class/isVisible.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/instance/category.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/class/isVisible.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/instance/category.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/class/isVisible.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/resetResult.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/initialize.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/shouldExclude..st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/README.md delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/classNames.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/group.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/name.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/rationale.st delete mode 100644 repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/properties.json delete mode 100644 repository/Grease-Pharo90-Slime.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Pharo90-Slime.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Pharo90-Slime.package/monticello.meta/package delete mode 100644 repository/Grease-Pharo90-Slime.package/properties.json create mode 100644 repository/Grease-Pharo90-Slime/GRAnsiBooleansRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRAnsiCharactersRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRAnsiCollectionsRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRAnsiConditionalsRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRAnsiConvertorRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRAnsiExceptionsRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRAnsiStreamsRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRAnsiStringsRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRBasicNewInitializeMissingRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRBlockFormattingRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRDeprecatedApiProtocolRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRInvalidObjectInitializationRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRNonPortableMessageRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRNonPortableSourceFormatRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRNotPortableCollectionsRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRObjectInRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRPackage.extension.st create mode 100644 repository/Grease-Pharo90-Slime/GRParensFormattingRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRReturnFormattingRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRSlimeBlockLintRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRSlimeParseTreeLintRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRSlimeTransformationRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRTempsFormattingRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRTestAssertionsRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRUnnecessaryLastPeriodRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRUsesCanPerformOrUnderstandRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRUsesClassForHashRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRUsesCurlyBraceArraysRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRUsesMethodAnnotationsRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/GRUsesNotPortableClassRule.class.st create mode 100644 repository/Grease-Pharo90-Slime/package.st delete mode 100644 repository/Grease-Slime.package/.filetree delete mode 100644 repository/Grease-Slime.package/GRAnsiBooleansRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRAnsiBooleansRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRAnsiBooleansRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRAnsiBooleansRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRAnsiBooleansRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRAnsiBooleansRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRAnsiCharactersRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRAnsiCharactersRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRAnsiCharactersRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRAnsiCharactersRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRAnsiCollectionsRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRAnsiCollectionsRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRAnsiCollectionsRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRAnsiCollectionsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRAnsiCollectionsRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRAnsiConditionalsRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRAnsiConditionalsRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRAnsiConditionalsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRAnsiConditionalsRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRAnsiConditionalsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRAnsiConditionalsRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRAnsiConvertorRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRAnsiConvertorRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRAnsiConvertorRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRAnsiConvertorRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRAnsiConvertorRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRAnsiConvertorRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRAnsiExceptionsRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRAnsiExceptionsRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRAnsiExceptionsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRAnsiExceptionsRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRAnsiExceptionsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRAnsiExceptionsRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRAnsiStreamsRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRAnsiStreamsRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRAnsiStreamsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRAnsiStreamsRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRAnsiStreamsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRAnsiStreamsRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRAnsiStringsRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRAnsiStringsRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRAnsiStringsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRAnsiStringsRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRAnsiStringsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRAnsiStringsRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st delete mode 100644 repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRBlockFormattingRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRBlockFormattingRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRBlockFormattingRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRBlockFormattingRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRBlockFormattingRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRBlockFormattingRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GREmptyStatementsRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/resetResult.st delete mode 100644 repository/Grease-Slime.package/GREmptyStatementsRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRNonPortableMessageRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st delete mode 100644 repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/methodNames.st delete mode 100644 repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRNonPortableMessageRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st delete mode 100644 repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRObjectInRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRObjectInRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRObjectInRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRObjectInRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRObjectInRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRObjectInRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRPackage.extension/class/greaseSlime.st delete mode 100644 repository/Grease-Slime.package/GRPackage.extension/properties.json delete mode 100644 repository/Grease-Slime.package/GRParensFormattingRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRParensFormattingRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRParensFormattingRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRParensFormattingRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRParensFormattingRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRParensFormattingRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRReturnFormattingRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRReturnFormattingRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRReturnFormattingRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRReturnFormattingRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRReturnFormattingRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRReturnFormattingRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRSlimeBlockLintRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRSlimeBlockLintRule.class/class/isVisible.st delete mode 100644 repository/Grease-Slime.package/GRSlimeBlockLintRule.class/instance/category.st delete mode 100644 repository/Grease-Slime.package/GRSlimeBlockLintRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/class/isVisible.st delete mode 100644 repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/instance/category.st delete mode 100644 repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRSlimeTransformationRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRSlimeTransformationRule.class/class/isVisible.st delete mode 100644 repository/Grease-Slime.package/GRSlimeTransformationRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRTempsFormattingRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRTempsFormattingRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRTempsFormattingRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRTempsFormattingRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRTempsFormattingRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRTempsFormattingRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRTestAssertionsRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRTestAssertionsRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/resetResult.st delete mode 100644 repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRUsesClassForHashRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRUsesClassForHashRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/instance/initialize.st delete mode 100644 repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/shouldExclude..st delete mode 100644 repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/README.md delete mode 100644 repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st delete mode 100644 repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st delete mode 100644 repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/classNames.st delete mode 100644 repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/group.st delete mode 100644 repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/name.st delete mode 100644 repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/rationale.st delete mode 100644 repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/properties.json delete mode 100644 repository/Grease-Slime.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Slime.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Slime.package/monticello.meta/package delete mode 100644 repository/Grease-Slime.package/properties.json create mode 100644 repository/Grease-Slime/GRAnsiBooleansRule.class.st create mode 100644 repository/Grease-Slime/GRAnsiCharactersRule.class.st create mode 100644 repository/Grease-Slime/GRAnsiCollectionsRule.class.st create mode 100644 repository/Grease-Slime/GRAnsiConditionalsRule.class.st create mode 100644 repository/Grease-Slime/GRAnsiConvertorRule.class.st create mode 100644 repository/Grease-Slime/GRAnsiExceptionsRule.class.st create mode 100644 repository/Grease-Slime/GRAnsiStreamsRule.class.st create mode 100644 repository/Grease-Slime/GRAnsiStringsRule.class.st create mode 100644 repository/Grease-Slime/GRBasicNewInitializeMissingRule.class.st create mode 100644 repository/Grease-Slime/GRBlockFormattingRule.class.st create mode 100644 repository/Grease-Slime/GRDeprecatedApiProtocolRule.class.st create mode 100644 repository/Grease-Slime/GREmptyStatementsRule.class.st create mode 100644 repository/Grease-Slime/GRInvalidObjectInitializationRule.class.st create mode 100644 repository/Grease-Slime/GRNonPortableMessageRule.class.st create mode 100644 repository/Grease-Slime/GRNonPortableSourceFormatRule.class.st create mode 100644 repository/Grease-Slime/GRNotPortableCollectionsRule.class.st create mode 100644 repository/Grease-Slime/GRObjectInRule.class.st create mode 100644 repository/Grease-Slime/GRPackage.extension.st create mode 100644 repository/Grease-Slime/GRParensFormattingRule.class.st create mode 100644 repository/Grease-Slime/GRReturnFormattingRule.class.st create mode 100644 repository/Grease-Slime/GRSlimeBlockLintRule.class.st create mode 100644 repository/Grease-Slime/GRSlimeParseTreeLintRule.class.st create mode 100644 repository/Grease-Slime/GRSlimeTransformationRule.class.st create mode 100644 repository/Grease-Slime/GRTempsFormattingRule.class.st create mode 100644 repository/Grease-Slime/GRTestAssertionsRule.class.st create mode 100644 repository/Grease-Slime/GRUnnecessaryLastPeriodRule.class.st create mode 100644 repository/Grease-Slime/GRUsesCanPerformOrUnderstandRule.class.st create mode 100644 repository/Grease-Slime/GRUsesClassForHashRule.class.st create mode 100644 repository/Grease-Slime/GRUsesCurlyBraceArraysRule.class.st create mode 100644 repository/Grease-Slime/GRUsesLiteralByteArraysRule.class.st create mode 100644 repository/Grease-Slime/GRUsesMethodAnnotationsRule.class.st create mode 100644 repository/Grease-Slime/GRUsesNotPortableClassRule.class.st create mode 100644 repository/Grease-Slime/package.st delete mode 100644 repository/Grease-Squeak6-Core.package/.filetree delete mode 100644 repository/Grease-Squeak6-Core.package/Behavior.extension/instance/fullName.st delete mode 100644 repository/Grease-Squeak6-Core.package/Behavior.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/Behavior.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st delete mode 100644 repository/Grease-Squeak6-Core.package/BlockClosure.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/BlockClosure.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/ByteArray.extension/instance/greaseString.st delete mode 100644 repository/Grease-Squeak6-Core.package/ByteArray.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/ByteArray.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/Character.extension/instance/greaseInteger.st delete mode 100644 repository/Grease-Squeak6-Core.package/Character.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/Character.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/Collection.extension/instance/any.st delete mode 100644 repository/Grease-Squeak6-Core.package/Collection.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/Collection.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/Duration.extension/class/milliseconds..st delete mode 100644 repository/Grease-Squeak6-Core.package/Duration.extension/instance/asMilliseconds.st delete mode 100644 repository/Grease-Squeak6-Core.package/Duration.extension/instance/milliseconds.st delete mode 100644 repository/Grease-Squeak6-Core.package/Duration.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/Duration.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/README.md delete mode 100644 repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/default.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/defaultValue.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/use.during..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRPackage.extension/class/greaseSqueak6Core.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRPackage.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRPackage.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/README.md delete mode 100644 repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/explorerContents.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/README.md delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/class/on.converter..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/initializeOn.converter..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/nextPut..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/README.md delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/codecs.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/supportedEncodingNames.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/converter.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/decoderFor..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/encoderFor..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/initializeWithName..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/name.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/url.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/README.md delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/codecs.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/supportedEncodingNames.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/decode..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/decoderFor..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/encoderFor..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/initializeWithName..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/name.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/README.md delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/instance/next..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/instance/next.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/README.md delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initialize.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initializeUrlTable.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initializeXmlTable.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/unload.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/addToShutDownList..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/addToStartUpList..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArray.named..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/base64Decode..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/base64Encode..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/bindingOf..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/compile.into.classified..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/contentsOfFile.binary..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/defaultDirectoryPathString.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/deleteFile..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/deprecationExceptionSet.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/directoriesIn..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/doSilently..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/ensureExistenceOfFolder..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileExists..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileNameFor..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileStreamOn.do.binary..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/filesIn..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/integerAsByteArray..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/isDirectory..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/isProcessTerminated..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/label.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/localNameOf..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newRandom.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newTemporaryFile.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newTemporaryFileNamed..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newline.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/openDebuggerOn..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/pathSeparator.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readFileStreamOn.do.binary..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readWriteByteStream.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readWriteCharacterStream.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeFromShutDownList..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeFromStartUpList..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeSelector.from..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/secureHashFor..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/semaphoreClass.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sizeOfFile..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/stackDepth.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/terminateProcess..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/thisContext.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/useByteArrayLiterals.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/weakDictionaryOfSize..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/write.toFile.inFolder..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/README.md delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/basicForEncoding..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/codecs.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/supportsEncoding..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/decode..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/decoderFor..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/encoderFor..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/invalidUtf8.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/name.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/url.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/README.md delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/class/initialize.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/crlf.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/encodeDefault..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/encodeFast..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/invalidUtf8.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/next..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/next.st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/nextPut..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/nextPutAll..st delete mode 100644 repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/Interval.extension/instance/any.st delete mode 100644 repository/Grease-Squeak6-Core.package/Interval.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/Interval.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/instance/greaseByteAt..st delete mode 100644 repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/instance/greaseBytesCount.st delete mode 100644 repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/MessageSend.extension/instance/argumentCount.st delete mode 100644 repository/Grease-Squeak6-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st delete mode 100644 repository/Grease-Squeak6-Core.package/MessageSend.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/MessageSend.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/Number.extension/instance/milliseconds.st delete mode 100644 repository/Grease-Squeak6-Core.package/Number.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/Number.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/Object.extension/instance/greaseString.st delete mode 100644 repository/Grease-Squeak6-Core.package/Object.extension/instance/sizeInMemory.st delete mode 100644 repository/Grease-Squeak6-Core.package/Object.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/Object.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/PackageManifest.class/README.md delete mode 100644 repository/Grease-Squeak6-Core.package/PackageManifest.class/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/PositionableStream.extension/instance/greaseUpToAll..st delete mode 100644 repository/Grease-Squeak6-Core.package/PositionableStream.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/PositionableStream.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/Random.extension/instance/randomFrom..st delete mode 100644 repository/Grease-Squeak6-Core.package/Random.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/Random.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/instance/encodeOn..st delete mode 100644 repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/instance/greaseString.st delete mode 100644 repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st delete mode 100644 repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st delete mode 100644 repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st delete mode 100644 repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st delete mode 100644 repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/SmallInteger.extension/instance/greaseByteAt..st delete mode 100644 repository/Grease-Squeak6-Core.package/SmallInteger.extension/instance/greaseBytesCount.st delete mode 100644 repository/Grease-Squeak6-Core.package/SmallInteger.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/SmallInteger.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Squeak6-Core.package/SocketStream.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/SocketStream.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/String.extension/instance/padLeftTo.with..st delete mode 100644 repository/Grease-Squeak6-Core.package/String.extension/instance/padRightTo.with..st delete mode 100644 repository/Grease-Squeak6-Core.package/String.extension/instance/substrings..st delete mode 100644 repository/Grease-Squeak6-Core.package/String.extension/instance/trimBoth..st delete mode 100644 repository/Grease-Squeak6-Core.package/String.extension/instance/trimBoth.st delete mode 100644 repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft..st delete mode 100644 repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft.right..st delete mode 100644 repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft.st delete mode 100644 repository/Grease-Squeak6-Core.package/String.extension/instance/trimRight..st delete mode 100644 repository/Grease-Squeak6-Core.package/String.extension/instance/trimRight.st delete mode 100644 repository/Grease-Squeak6-Core.package/String.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/String.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/Symbol.extension/instance/greaseAsMutator.st delete mode 100644 repository/Grease-Squeak6-Core.package/Symbol.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/Symbol.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st delete mode 100644 repository/Grease-Squeak6-Core.package/WriteStream.extension/methodProperties.json delete mode 100644 repository/Grease-Squeak6-Core.package/WriteStream.extension/properties.json delete mode 100644 repository/Grease-Squeak6-Core.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Squeak6-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Squeak6-Core.package/monticello.meta/package delete mode 100644 repository/Grease-Squeak6-Core.package/monticello.meta/version delete mode 100644 repository/Grease-Squeak6-Core.package/properties.json create mode 100644 repository/Grease-Squeak6-Core/Behavior.extension.st create mode 100644 repository/Grease-Squeak6-Core/BlockClosure.extension.st create mode 100644 repository/Grease-Squeak6-Core/ByteArray.extension.st create mode 100644 repository/Grease-Squeak6-Core/Character.extension.st create mode 100644 repository/Grease-Squeak6-Core/Collection.extension.st create mode 100644 repository/Grease-Squeak6-Core/Duration.extension.st create mode 100644 repository/Grease-Squeak6-Core/GRDelegatingStream.extension.st create mode 100644 repository/Grease-Squeak6-Core/GRDynamicVariable.class.st create mode 100644 repository/Grease-Squeak6-Core/GRPackage.extension.st create mode 100644 repository/Grease-Squeak6-Core/GRPharoPlatform.class.st create mode 100644 repository/Grease-Squeak6-Core/GRSmallDictionary.extension.st create mode 100644 repository/Grease-Squeak6-Core/GRSqueakConverterCodecStream.class.st create mode 100644 repository/Grease-Squeak6-Core/GRSqueakGenericCodec.class.st create mode 100644 repository/Grease-Squeak6-Core/GRSqueakLatin1Codec.class.st create mode 100644 repository/Grease-Squeak6-Core/GRSqueakLatin1CodecStream.class.st create mode 100644 repository/Grease-Squeak6-Core/GRSqueakPlatform.class.st create mode 100644 repository/Grease-Squeak6-Core/GRSqueakUtf8Codec.class.st create mode 100644 repository/Grease-Squeak6-Core/GRSqueakUtf8CodecStream.class.st create mode 100644 repository/Grease-Squeak6-Core/Interval.extension.st create mode 100644 repository/Grease-Squeak6-Core/LargePositiveInteger.extension.st create mode 100644 repository/Grease-Squeak6-Core/MessageSend.extension.st create mode 100644 repository/Grease-Squeak6-Core/Number.extension.st create mode 100644 repository/Grease-Squeak6-Core/Object.extension.st create mode 100644 repository/Grease-Squeak6-Core/PackageManifest.class.st create mode 100644 repository/Grease-Squeak6-Core/PositionableStream.extension.st create mode 100644 repository/Grease-Squeak6-Core/Random.extension.st create mode 100644 repository/Grease-Squeak6-Core/ScaledDecimal.extension.st create mode 100644 repository/Grease-Squeak6-Core/SequenceableCollection.extension.st create mode 100644 repository/Grease-Squeak6-Core/SmallInteger.extension.st create mode 100644 repository/Grease-Squeak6-Core/SocketStream.extension.st create mode 100644 repository/Grease-Squeak6-Core/String.extension.st create mode 100644 repository/Grease-Squeak6-Core/Symbol.extension.st create mode 100644 repository/Grease-Squeak6-Core/WriteStream.extension.st create mode 100644 repository/Grease-Squeak6-Core/package.st delete mode 100644 repository/Grease-Tests-Core.package/.filetree delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/class/isAbstract.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/allowsDuplicateValues.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/arbitraryAssociations.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/arbitraryCollection.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/createArbitraryAssociations.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/isExtensible.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/isInitializable.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/isKey.equivalentTo..st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/testAssociationsDo.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/valuesOf..st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/class/isAbstract.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/isHomogeneous.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/isSequenced.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/isUnique.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testAddFirst.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testBeginsWithEmptySubCollection.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testBeginsWithSubCollection.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testCopyAfter.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testCopyAfterLast.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testCopyUpTo.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testCopyUpToLast.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testEndsWithEmptySubCollection.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testEndsWithSubCollection.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testGreaseBeginsWith.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testGreaseEndsWith.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testSort.st delete mode 100644 repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRArrayTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRArrayTest.class/instance/allowsDuplicateValues.st delete mode 100644 repository/Grease-Tests-Core.package/GRArrayTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isExtensible.st delete mode 100644 repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isHomogeneous.st delete mode 100644 repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isInitializable.st delete mode 100644 repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isSequenced.st delete mode 100644 repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isUnique.st delete mode 100644 repository/Grease-Tests-Core.package/GRArrayTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRBagTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRBagTest.class/instance/allowsDuplicateValues.st delete mode 100644 repository/Grease-Tests-Core.package/GRBagTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-Core.package/GRBagTest.class/instance/isExtensible.st delete mode 100644 repository/Grease-Tests-Core.package/GRBagTest.class/instance/isInitializable.st delete mode 100644 repository/Grease-Tests-Core.package/GRBagTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRCodecTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRCodecTest.class/instance/asString..st delete mode 100644 repository/Grease-Tests-Core.package/GRCodecTest.class/instance/decodedString.st delete mode 100644 repository/Grease-Tests-Core.package/GRCodecTest.class/instance/latin1String.st delete mode 100644 repository/Grease-Tests-Core.package/GRCodecTest.class/instance/macromanString.st delete mode 100644 repository/Grease-Tests-Core.package/GRCodecTest.class/instance/seasideByteArray.st delete mode 100644 repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testAllCodecs.st delete mode 100644 repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testCodecLatin1.st delete mode 100644 repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testCodecLatin1BorderLineString.st delete mode 100644 repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testNext.st delete mode 100644 repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testNullCodec.st delete mode 100644 repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testReset.st delete mode 100644 repository/Grease-Tests-Core.package/GRCodecTest.class/instance/utf16beString.st delete mode 100644 repository/Grease-Tests-Core.package/GRCodecTest.class/instance/utf16leString.st delete mode 100644 repository/Grease-Tests-Core.package/GRCodecTest.class/instance/utf8String.st delete mode 100644 repository/Grease-Tests-Core.package/GRCodecTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/class/isAbstract.st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/allowsDuplicateValues.st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/arbitraryCollection.st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/assert.sortedWith..st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/assert.validSequencedNewResponseFrom..st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/assert.validSequencedResponseFrom..st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/duplicateElement.st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/emptyCollection.st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/excludedElement.st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/includedElement.st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/isExtensible.st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/isInitializable.st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/isValidNewSequencedResponseClass..st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testAny.st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testEmptyAny.st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testIsCollection.st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testNoneSatisfy.st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testNotEmpty.st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testSorted.st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/valuesOf..st delete mode 100644 repository/Grease-Tests-Core.package/GRCollectionTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRCountingStreamTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/setUp.st delete mode 100644 repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testInitialSize.st delete mode 100644 repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testNextPut.st delete mode 100644 repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testNextPutAll.st delete mode 100644 repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testReset.st delete mode 100644 repository/Grease-Tests-Core.package/GRCountingStreamTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testArgumentCount.st delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueBinary.st delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueKeyword.st delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueUnary.st delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueValueBinary.st delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueValueKeyword.st delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueValueUnary.st delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentBinary.st delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentKeyword.st delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentUnary.st delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentsBinary.st delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentsKeyword.st delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentsUnary.st delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithPossibleArgumentsBinary.st delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithPossibleArgumentsKeyword.st delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithPossibleArgumentsUnary.st delete mode 100644 repository/Grease-Tests-Core.package/GRDelayedSendTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRDictionaryTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRDictionaryTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-Core.package/GRDictionaryTest.class/instance/createArbitraryAssociations.st delete mode 100644 repository/Grease-Tests-Core.package/GRDictionaryTest.class/instance/isKey.equivalentTo..st delete mode 100644 repository/Grease-Tests-Core.package/GRDictionaryTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRDurationTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testAccessors.st delete mode 100644 repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testBasicInstanceCreation.st delete mode 100644 repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testConversions.st delete mode 100644 repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testIntegerConvenienceMethods.st delete mode 100644 repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testMixedInstanceCreation.st delete mode 100644 repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testNegativeInstanceCreation.st delete mode 100644 repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testPartialSecondsInstanceCreation.st delete mode 100644 repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testRolloverInstanceCreation.st delete mode 100644 repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testZero.st delete mode 100644 repository/Grease-Tests-Core.package/GRDurationTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testAnswer.st delete mode 100644 repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testDefaultValue.st delete mode 100644 repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testWithNestedValue.st delete mode 100644 repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testWithValue.st delete mode 100644 repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testWithoutValue.st delete mode 100644 repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRErrorStub.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRErrorStub.class/instance/foo.st delete mode 100644 repository/Grease-Tests-Core.package/GRErrorStub.class/instance/initialize.st delete mode 100644 repository/Grease-Tests-Core.package/GRErrorStub.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/onExceptionReturn..st delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testDefaultActionResume.st delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testDeprecatedApi.st delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testErrorInitialization.st delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testIsResumable.st delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testNotificationInitialization.st delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testOnDoImplicitReturn.st delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testOnDoNonLocalReturn.st delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalError.st delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalErrorClassSide.st delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalNotification.st delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalNotificationClassSide.st delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalWithError.st delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalWithErrorClassSide.st delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalWithNotification.st delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalWithNotificationClassSide.st delete mode 100644 repository/Grease-Tests-Core.package/GRExceptionTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/instance/createArbitraryAssociations.st delete mode 100644 repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/instance/isKey.equivalentTo..st delete mode 100644 repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRIntervalTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/allowsDuplicateValues.st delete mode 100644 repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/arbitraryCollection.st delete mode 100644 repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/emptyCollection.st delete mode 100644 repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isExtensible.st delete mode 100644 repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isHomogeneous.st delete mode 100644 repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isInitializable.st delete mode 100644 repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isSequenced.st delete mode 100644 repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isUnique.st delete mode 100644 repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/testBeginsWithSubCollection.st delete mode 100644 repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/testEndsWithSubCollection.st delete mode 100644 repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/testSorted.st delete mode 100644 repository/Grease-Tests-Core.package/GRIntervalTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testAnswer.st delete mode 100644 repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testDefaultValue.st delete mode 100644 repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithNestedValue.st delete mode 100644 repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithValue.st delete mode 100644 repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithoutValue.st delete mode 100644 repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRNotificationStub.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRNotificationStub.class/instance/defaultAction.st delete mode 100644 repository/Grease-Tests-Core.package/GRNotificationStub.class/instance/foo.st delete mode 100644 repository/Grease-Tests-Core.package/GRNotificationStub.class/instance/initialize.st delete mode 100644 repository/Grease-Tests-Core.package/GRNotificationStub.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/codecStreamClass.st delete mode 100644 repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testCrlf.st delete mode 100644 repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testFlush.st delete mode 100644 repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testName.st delete mode 100644 repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testNext.st delete mode 100644 repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testPrint.st delete mode 100644 repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testReadString.st delete mode 100644 repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testSize.st delete mode 100644 repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testSpace.st delete mode 100644 repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testTab.st delete mode 100644 repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testWriteString.st delete mode 100644 repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRNumberTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testBetweenAnd.st delete mode 100644 repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testPluralize.st delete mode 100644 repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testReadFrom.st delete mode 100644 repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testTo.st delete mode 100644 repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testToDo.st delete mode 100644 repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testToDoClosures.st delete mode 100644 repository/Grease-Tests-Core.package/GRNumberTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRObjectStub.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRObjectStub.class/instance/foo.st delete mode 100644 repository/Grease-Tests-Core.package/GRObjectStub.class/instance/initialize.st delete mode 100644 repository/Grease-Tests-Core.package/GRObjectStub.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRObjectTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRObjectTest.class/instance/testError.st delete mode 100644 repository/Grease-Tests-Core.package/GRObjectTest.class/instance/testInitialize.st delete mode 100644 repository/Grease-Tests-Core.package/GRObjectTest.class/instance/testRespondsTo.st delete mode 100644 repository/Grease-Tests-Core.package/GRObjectTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/allowsDuplicateValues.st delete mode 100644 repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isExtensible.st delete mode 100644 repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isHomogeneous.st delete mode 100644 repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isInitializable.st delete mode 100644 repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isSequenced.st delete mode 100644 repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isUnique.st delete mode 100644 repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GROrderedMultiMap2Test.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GROrderedMultiMap2Test.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-Core.package/GROrderedMultiMap2Test.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/class/shouldInheritSelectors.st delete mode 100644 repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/allowsDuplicateKeys.st delete mode 100644 repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/testAllAt.st delete mode 100644 repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/testAllAtIfAbsent.st delete mode 100644 repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/testAtAdd.st delete mode 100644 repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/testKeysAndAllValuesDo.st delete mode 100644 repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRPackage.extension/class/greaseTestsCore.st delete mode 100644 repository/Grease-Tests-Core.package/GRPackage.extension/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRPackageTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRPackageTest.class/instance/setUp.st delete mode 100644 repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testAllDependencies.st delete mode 100644 repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDependencies.st delete mode 100644 repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDescription.st delete mode 100644 repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testLicense.st delete mode 100644 repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testName.st delete mode 100644 repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testPackages.st delete mode 100644 repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testUrl.st delete mode 100644 repository/Grease-Tests-Core.package/GRPackageTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/decodeUtf8Character..st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/platform.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/returnSender.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/runCase.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testAsNumber.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Decode.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Encode.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBindingOf.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBlockContextWithPossibleArguments.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBlockValuableProtocol.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCharacterAsUnicode.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCharacterTo.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileUnicodeString.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testConvertToSmalltalkNewlines.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testDateArithmetic.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testDaysInMonthForYear.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testDigitValue.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testEmptyOrNil.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseAsByteArray.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseByteAt.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseBytesCount.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnCharacterAscii.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnCharacterBmp.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnCharacterLatin1.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnCharacterSmp.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnNumber.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnString.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseString.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIfNil.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIfTrueIfFalse.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIsCharacter.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIsCollection.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIsKeyword.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIsUnary.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testLabel.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFile.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFileNamed.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewline.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNumArgs.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testPathSeparator.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testPrintStringLimitedTo.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testRandomGenerator.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamAtEnd.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamContents.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamNegativeSkip.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamNext.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamPeek.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamPosition.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamReset.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamSeasideUpToAll.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamSkip.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamUpTo.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamUpToEnd.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamAtEnd.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamContents.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamNegativeSkip.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamNext.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamNextPut.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamNextPutAll.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamPeek.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamPosition.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamReset.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamSkip.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamTab.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamUpTo.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamUpToEnd.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSeconds.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSecureHashFor.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testShutDownList.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSizeOfFile.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testStackDepth.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testStartUpList.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSymbolAsMutator.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testTerminate.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testThisContext.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testTotalSeconds.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testVersion.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamContents.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamCrLf.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamNextPut.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamNextPutAll.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamPosition.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamReset.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamSpace.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamTab.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteToFileInFolder.st delete mode 100644 repository/Grease-Tests-Core.package/GRPlatformTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/separate.left..st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testComposedPrinter.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testCookieTimestamp.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testDigitsOf.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testDigitsOfBase.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFileSizePrinterBinary.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFileSizePrinterDecimal.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinter.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinterInfinity.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinterNaN.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinterPadding.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinterSeparator.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFullMonthName.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFullWeekName.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testHttp.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testIntegerPrinter.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testIsoDate.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testIsoTime.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testOrdinalizePrinter.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPadCenter.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPadLeft.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPadRight.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPaddedCentury.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPaddedHour12.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testRfc822.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testRfc822WithTimeZone.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSeparateLeft.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSeparateRight.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSignPrinter.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testStringPrinter.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testStringPrinterLength.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testStringPrinterPad.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testStringPrinterTrim.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSwissCurrency.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedCentury.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedDay.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedHour12.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedHour24.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedMinute.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedMonth.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedSecond.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedYear.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUsCurrency.st delete mode 100644 repository/Grease-Tests-Core.package/GRPrinterTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRSetTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRSetTest.class/instance/allowsDuplicateValues.st delete mode 100644 repository/Grease-Tests-Core.package/GRSetTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-Core.package/GRSetTest.class/instance/isExtensible.st delete mode 100644 repository/Grease-Tests-Core.package/GRSetTest.class/instance/isInitializable.st delete mode 100644 repository/Grease-Tests-Core.package/GRSetTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionary2Test.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionary2Test.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionary2Test.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/allowsDuplicateKeys.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/assertAssociations..st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/createArbitraryAssociations.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/isKey.equivalentTo..st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/newCollection.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/setUp.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAddAll.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAddAndAssociations.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAt.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAtIfAbsent.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAtIfAbsentPut.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAtIfPresent.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAtPut.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testCopy.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testDo.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testGrow.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testIncludesKey.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testIsEmpty.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testKeys.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testKeysAndValuesDo.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testKeysDo.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testRemoveKey.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testRemoveKey2.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testRemoveKeyIfAbsent.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testSize.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testValues.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testWithAll.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/setUp.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testAdd.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testAddAll.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testCopy.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testDo.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testIncludes.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testIsEmpty.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testRemove.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testRemoveIfAbsent.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testSize.st delete mode 100644 repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/allowsDuplicateValues.st delete mode 100644 repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isExtensible.st delete mode 100644 repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isHomogeneous.st delete mode 100644 repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isInitializable.st delete mode 100644 repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isSequenced.st delete mode 100644 repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isUnique.st delete mode 100644 repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/allowsDuplicateValues.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/arbitraryCollection.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/duplicateElement.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/excludedElement.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/includedElement.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/isExtensible.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/isHomogeneous.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/isInitializable.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/isSequenced.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/isUnique.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testAsUppercase.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testCapitalized.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testCapitalizedUmlauts.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testExcerpt.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testExcerptEmpty.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testExcerptLeft.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testExcerptRight.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorAssimilated.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorCommonSuffixes.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorFfffSuffixes.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorIrregular.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorNotInflecting.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorTsssSuffixes.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorYyyySuffixes.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testSubStrings.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTrimBoth.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTrimLeft.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTrimRight.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTruncate.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTruncateEmpty.st delete mode 100644 repository/Grease-Tests-Core.package/GRStringTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRSymbolTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/allowsDuplicateValues.st delete mode 100644 repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/arbitraryCollection.st delete mode 100644 repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/duplicateElement.st delete mode 100644 repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/emptyCollection.st delete mode 100644 repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/excludedElement.st delete mode 100644 repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/includedElement.st delete mode 100644 repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isExtensible.st delete mode 100644 repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isHomogeneous.st delete mode 100644 repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isInitializable.st delete mode 100644 repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isSequenced.st delete mode 100644 repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isUnique.st delete mode 100644 repository/Grease-Tests-Core.package/GRSymbolTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/class/defaultValue.st delete mode 100644 repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/class/defaultValue.st delete mode 100644 repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/asByteArray..st delete mode 100644 repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/asString..st delete mode 100644 repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/decodedString.st delete mode 100644 repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/seasideByteArray.st delete mode 100644 repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8.st delete mode 100644 repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8Bom.st delete mode 100644 repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8BorderLineString.st delete mode 100644 repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8ShortestForm.st delete mode 100644 repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testNext.st delete mode 100644 repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/utf8String.st delete mode 100644 repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/utf8StringOrByteArrayForCodec..st delete mode 100644 repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/GRVersionTest.class/README.md delete mode 100644 repository/Grease-Tests-Core.package/GRVersionTest.class/instance/assert.equals..st delete mode 100644 repository/Grease-Tests-Core.package/GRVersionTest.class/instance/assert.sortsBefore..st delete mode 100644 repository/Grease-Tests-Core.package/GRVersionTest.class/instance/buildVersion..st delete mode 100644 repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testAccessors.st delete mode 100644 repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testComparison.st delete mode 100644 repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testConvenience.st delete mode 100644 repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testEquality.st delete mode 100644 repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testStringConversion.st delete mode 100644 repository/Grease-Tests-Core.package/GRVersionTest.class/properties.json delete mode 100644 repository/Grease-Tests-Core.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Tests-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Tests-Core.package/monticello.meta/package delete mode 100644 repository/Grease-Tests-Core.package/properties.json create mode 100644 repository/Grease-Tests-Core/GRAbstractDictionaryTest.class.st create mode 100644 repository/Grease-Tests-Core/GRAbstractSequenceableCollectionTest.class.st create mode 100644 repository/Grease-Tests-Core/GRArrayTest.class.st create mode 100644 repository/Grease-Tests-Core/GRBagTest.class.st create mode 100644 repository/Grease-Tests-Core/GRCodecTest.class.st create mode 100644 repository/Grease-Tests-Core/GRCollectionTest.class.st create mode 100644 repository/Grease-Tests-Core/GRCountingStreamTest.class.st create mode 100644 repository/Grease-Tests-Core/GRDelayedSendTest.class.st create mode 100644 repository/Grease-Tests-Core/GRDictionaryTest.class.st create mode 100644 repository/Grease-Tests-Core/GRDurationTest.class.st create mode 100644 repository/Grease-Tests-Core/GRDynamicVariableTest.class.st create mode 100644 repository/Grease-Tests-Core/GRErrorStub.class.st create mode 100644 repository/Grease-Tests-Core/GRExceptionTest.class.st create mode 100644 repository/Grease-Tests-Core/GRIdentityDictionaryTest.class.st create mode 100644 repository/Grease-Tests-Core/GRIntervalTest.class.st create mode 100644 repository/Grease-Tests-Core/GRNotificationBasedDynamicVariableTest.class.st create mode 100644 repository/Grease-Tests-Core/GRNotificationStub.class.st create mode 100644 repository/Grease-Tests-Core/GRNullCodecStreamTest.class.st create mode 100644 repository/Grease-Tests-Core/GRNumberTest.class.st create mode 100644 repository/Grease-Tests-Core/GRObjectStub.class.st create mode 100644 repository/Grease-Tests-Core/GRObjectTest.class.st create mode 100644 repository/Grease-Tests-Core/GROrderedCollectionTest.class.st create mode 100644 repository/Grease-Tests-Core/GROrderedMultiMap2Test.class.st create mode 100644 repository/Grease-Tests-Core/GROrderedMultiMapTest.class.st create mode 100644 repository/Grease-Tests-Core/GRPackage.extension.st create mode 100644 repository/Grease-Tests-Core/GRPackageTest.class.st create mode 100644 repository/Grease-Tests-Core/GRPlatformTest.class.st create mode 100644 repository/Grease-Tests-Core/GRPrinterTest.class.st create mode 100644 repository/Grease-Tests-Core/GRReducedConflictDictionaryTest.class.st create mode 100644 repository/Grease-Tests-Core/GRSetTest.class.st create mode 100644 repository/Grease-Tests-Core/GRSmallDictionary2Test.class.st create mode 100644 repository/Grease-Tests-Core/GRSmallDictionaryTest.class.st create mode 100644 repository/Grease-Tests-Core/GRSmallOrderedSetTest.class.st create mode 100644 repository/Grease-Tests-Core/GRSortedCollectionTest.class.st create mode 100644 repository/Grease-Tests-Core/GRStringTest.class.st create mode 100644 repository/Grease-Tests-Core/GRSymbolTest.class.st create mode 100644 repository/Grease-Tests-Core/GRTestDynamicVariable.class.st create mode 100644 repository/Grease-Tests-Core/GRTestNotificationBasedDynamicVariable.class.st create mode 100644 repository/Grease-Tests-Core/GRUtf8CodecTest.class.st create mode 100644 repository/Grease-Tests-Core/GRVersionTest.class.st create mode 100644 repository/Grease-Tests-Core/package.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/.filetree delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/README.md delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/instance/arbitraryCollection.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/properties.json delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/README.md delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testCompileIntoClassified.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testConvertToSmalltalkNewlines.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testEncoderForUtf8Roundtrip.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testFullName.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/properties.json delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/instance/addBlockToCollection.with..st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/instance/expectedFailures.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/instance/testToDoClosuresGemStone.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/properties.json delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRPackage.extension/class/greaseTestsGemStoneCore.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRPackage.extension/properties.json delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRPlatformTest.extension/properties.json delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRQuadByteStringTest.class/README.md delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRQuadByteStringTest.class/instance/arbitraryCollection.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRQuadByteStringTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRQuadByteStringTest.class/properties.json delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/multiByteConvert..st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteCapitalized.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteExcerpt.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteSubStrings.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteTrimBoth.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteTruncate.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/properties.json delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/GRUtf8CodecTest.extension/properties.json delete mode 100644 repository/Grease-Tests-GemStone-Core.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Tests-GemStone-Core.package/monticello.meta/package delete mode 100644 repository/Grease-Tests-GemStone-Core.package/properties.json create mode 100644 repository/Grease-Tests-GemStone-Core/GRDoubleByteStringTest.class.st create mode 100644 repository/Grease-Tests-GemStone-Core/GRGemStonePlatformTest.class.st create mode 100644 repository/Grease-Tests-GemStone-Core/GRNumberTest.extension.st create mode 100644 repository/Grease-Tests-GemStone-Core/GRPackage.extension.st create mode 100644 repository/Grease-Tests-GemStone-Core/GRPlatformTest.extension.st create mode 100644 repository/Grease-Tests-GemStone-Core/GRQuadByteStringTest.class.st create mode 100644 repository/Grease-Tests-GemStone-Core/GRStringTest.extension.st create mode 100644 repository/Grease-Tests-GemStone-Core/GRUtf8CodecTest.extension.st create mode 100644 repository/Grease-Tests-GemStone-Core/package.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/.filetree delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/README.md delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/instance/arbitraryCollection.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/properties.json delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/README.md delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testCompileIntoClassified.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testConvertToSmalltalkNewlines.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testEncoderForUtf8Roundtrip.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testFullName.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/properties.json delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/addBlockToCollection.with..st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/expectedFailures.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/testToDoClosuresGemStone.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/properties.json delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRPackage.extension/class/greaseTestsGemStoneCore.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRPackage.extension/properties.json delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRPlatformTest.extension/properties.json delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/README.md delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/instance/arbitraryCollection.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/instance/collectionClass.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/properties.json delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/multiByteConvert..st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteCapitalized.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteExcerpt.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteSubStrings.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteTrimBoth.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteTruncate.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/properties.json delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/GRUtf8CodecTest.extension/properties.json delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/monticello.meta/package delete mode 100644 repository/Grease-Tests-GemStone32-Core.package/properties.json create mode 100644 repository/Grease-Tests-GemStone32-Core/GRDoubleByteStringTest.class.st create mode 100644 repository/Grease-Tests-GemStone32-Core/GRGemStonePlatformTest.class.st create mode 100644 repository/Grease-Tests-GemStone32-Core/GRNumberTest.extension.st create mode 100644 repository/Grease-Tests-GemStone32-Core/GRPackage.extension.st create mode 100644 repository/Grease-Tests-GemStone32-Core/GRPlatformTest.extension.st create mode 100644 repository/Grease-Tests-GemStone32-Core/GRQuadByteStringTest.class.st create mode 100644 repository/Grease-Tests-GemStone32-Core/GRStringTest.extension.st create mode 100644 repository/Grease-Tests-GemStone32-Core/GRUtf8CodecTest.extension.st create mode 100644 repository/Grease-Tests-GemStone32-Core/package.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/.filetree delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/class/greaseTestsPharoCore.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/properties.json delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/README.md delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/assert.next.startingAt.gives..st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/assertEncodingIgnoresLanguageTat..st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/stripLeadingCharFrom..st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testAllCodesIncludesIso88591.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testGreaseNextPutAllStartingAt.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/properties.json delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/README.md delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/expectedFailures.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testAllColors.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testColorAsHtmlColor.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testFromSixDigit.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testFromStringName.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testFromStringSixDigit.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testFromStringThreeDigit.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/properties.json delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/README.md delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/properties.json delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/README.md delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/runCase.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testDeprecationExceptionSet.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testFullName.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderTextUTF8.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testUseByteArrayLiterals.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/writeToFile.withFileNameDo..st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/properties.json delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/properties.json delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/properties.json delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/properties.json delete mode 100644 repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Tests-Pharo-Core.package/monticello.meta/package delete mode 100644 repository/Grease-Tests-Pharo-Core.package/properties.json create mode 100644 repository/Grease-Tests-Pharo-Core/GRPackage.extension.st create mode 100644 repository/Grease-Tests-Pharo-Core/GRPharoCodecTest.class.st create mode 100644 repository/Grease-Tests-Pharo-Core/GRPharoColorTest.class.st create mode 100644 repository/Grease-Tests-Pharo-Core/GRPharoGenericCodecTest.class.st create mode 100644 repository/Grease-Tests-Pharo-Core/GRPharoPlatformTest.class.st create mode 100644 repository/Grease-Tests-Pharo-Core/GRPlatformTest.extension.st create mode 100644 repository/Grease-Tests-Pharo-Core/GRPrinterTest.extension.st create mode 100644 repository/Grease-Tests-Pharo-Core/GRUtf8CodecTest.extension.st create mode 100644 repository/Grease-Tests-Pharo-Core/package.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/.filetree delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/README.md delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/assertRule.matches..st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/assertRule.matches.ignoring..st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/canParse..st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/category.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/compile.in..st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineClass.superclass..st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf..st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf.inPackage..st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/expectedFailures.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/rules.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/run.ignoring.do..st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/runCase.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/runTransformation.changes..st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/setUp.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/tearDown.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiBooleansRule.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCharacterRule.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCollectionsRule.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiConditionalsRule.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiConvertorRule.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiExceptionsRule.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiStreamsRule.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiStringsRule.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testBasicNewInitializeMissing.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testDeprecatedApiProtocol.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testEmptyStatements.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testInvalidObjectInitialization.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testNonPortableMessageRule.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testNotPortableCollectionsRule.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testObjectIn.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testReferencesNotPortableClass.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testSubclassesNotPortableClass.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule2.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesCanPerformOrUnderstand.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesClassForHash.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesNotPortableClass.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/properties.json delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/monticello.meta/package delete mode 100644 repository/Grease-Tests-Pharo-Slime.package/properties.json create mode 100644 repository/Grease-Tests-Pharo-Slime/GRReSlimeTest.class.st create mode 100644 repository/Grease-Tests-Pharo-Slime/package.st delete mode 100644 repository/Grease-Tests-Slime.package/.filetree delete mode 100644 repository/Grease-Tests-Slime.package/GRPackage.extension/class/greaseTestsSlime.st delete mode 100644 repository/Grease-Tests-Slime.package/GRPackage.extension/properties.json delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/README.md delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/canParse..st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/category.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/compile.in..st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineClass.superclass..st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineSubClassOf..st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/rules.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/run.do..st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/run.ignoring.do..st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/runCase.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/runRule.selectors..st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/runRule.selectors.ignoring..st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/runTransformation.changes..st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/setUp.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/tearDown.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiBooleansRule.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiCharacterRule.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiCollectionsRule.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiConditionalsRule.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiConvertorRule.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiExceptionsRule.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiStreamsRule.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiStringsRule.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBasicNewInitializeMissing.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBlockFormatting.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testDeprecatedApiProtocol.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testInvalidObjectInitialization.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNonPortableMessageRule.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNonPortableSourceFormat.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNotPortableCollectionsRule.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testObjectIn.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testParensFormatting.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testReturnFormatting.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTempsFormatting.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTestCaseFailRule.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUnnecessaryLastPeriodRule.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCanPerformOrUnderstand.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesClassForHash.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCurlyBraceArrays.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesMethodAnnotations.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesNotPortableClass.st delete mode 100644 repository/Grease-Tests-Slime.package/GRSlimeTest.class/properties.json delete mode 100644 repository/Grease-Tests-Slime.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Tests-Slime.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Tests-Slime.package/monticello.meta/package delete mode 100644 repository/Grease-Tests-Slime.package/properties.json create mode 100644 repository/Grease-Tests-Slime/GRPackage.extension.st create mode 100644 repository/Grease-Tests-Slime/GRSlimeTest.class.st create mode 100644 repository/Grease-Tests-Slime/package.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/.filetree delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/class/greaseTestsSqueak6Core.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/methodProperties.json delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/properties.json delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/methodProperties.json delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/properties.json delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/methodProperties.json delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/properties.json delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/README.md delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/assert.next.startingAt.gives..st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/assertEncodingIgnoresLanguageTat..st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/stripLeadingCharFrom..st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testAllCodesIncludesIso88591.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testGreaseNextPutAllStartingAt.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testLanguageTag.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/properties.json delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/README.md delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/expectedFailures.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testAllColors.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testColorAsHtmlColor.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromSixDigit.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringName.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringSixDigit.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringThreeDigit.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/properties.json delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/README.md delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/instance/testNoAmbiguities.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/properties.json delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/README.md delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testCompileIntoClassified.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testDeprecationExceptionSet.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testFullName.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testGreaseIntegerOnCharacter.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderBinary.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderText.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/writeToFile..st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/properties.json delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/methodProperties.json delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/properties.json delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/monticello.meta/categories.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/monticello.meta/initializers.st delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/monticello.meta/package delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/monticello.meta/version delete mode 100644 repository/Grease-Tests-Squeak6-Core.package/properties.json create mode 100644 repository/Grease-Tests-Squeak6-Core/GRPackage.extension.st create mode 100644 repository/Grease-Tests-Squeak6-Core/GRPlatformTest.extension.st create mode 100644 repository/Grease-Tests-Squeak6-Core/GRPrinterTest.extension.st create mode 100644 repository/Grease-Tests-Squeak6-Core/GRSqueakCodecTest.class.st create mode 100644 repository/Grease-Tests-Squeak6-Core/GRSqueakColorTest.class.st create mode 100644 repository/Grease-Tests-Squeak6-Core/GRSqueakGenericCodecTest.class.st create mode 100644 repository/Grease-Tests-Squeak6-Core/GRSqueakPlatformTest.class.st create mode 100644 repository/Grease-Tests-Squeak6-Core/GRUtf8CodecTest.extension.st create mode 100644 repository/Grease-Tests-Squeak6-Core/package.st diff --git a/repository/.filetree b/repository/.filetree deleted file mode 100644 index 20c295e0..00000000 --- a/repository/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "MetaData" : false, - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/.properties b/repository/.properties index 14985a11..ad0471de 100644 --- a/repository/.properties +++ b/repository/.properties @@ -1,3 +1,3 @@ { - #format : #filetree -} \ No newline at end of file + #format : #tonel +} \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/.filetree b/repository/BaselineOfGrease.package/.filetree deleted file mode 100644 index 57a67973..00000000 --- a/repository/BaselineOfGrease.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/README.md b/repository/BaselineOfGrease.package/BaselineOfGrease.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baseline..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baseline..st deleted file mode 100644 index bae4a809..00000000 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baseline..st +++ /dev/null @@ -1,8 +0,0 @@ -baselines -baseline: spec - - - self baselineCommon: spec. - self baselineSqueak: spec. - self baselinePharo: spec. - self baselineGemStone: spec \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineCommon..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineCommon..st deleted file mode 100644 index 96f20ec0..00000000 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineCommon..st +++ /dev/null @@ -1,18 +0,0 @@ -baselines -baselineCommon: spec - - spec - for: #common - do: [ spec blessing: #baseline. - spec - package: 'Grease-Core'; - package: 'Grease-Tests-Core' - with: [ spec requires: #('Grease-Core') ]. - spec - group: 'Core' with: #('Grease-Core'); - group: 'Core Tests' with: #('Grease-Tests-Core'); - group: 'Slime' with: #('Core'); - group: 'Slime Tests' with: #('Core Tests'); - group: 'Tests' with: #('Core Tests' 'Slime Tests'); - group: 'default' with: #('Slime'); - group: 'Development' with: #('default') ] \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st deleted file mode 100644 index 85554409..00000000 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st +++ /dev/null @@ -1,137 +0,0 @@ -baselines -baselineGemStone: spec - - spec - for: #'gemstone' - do: [ - spec - project: 'GsCore' - with: [ - spec - className: 'ConfigurationOfGsCore'; - versionString: #'stable'; - repository: - 'http://seaside.gemtalksystems.com/ss/MetacelloRepository' ]; - project: 'UTF8' - with: [ - spec - className: 'ConfigurationOfGsMisc'; - versionString: #'stable'; - loads: #('Utf8Encoding'); - repository: - 'http://seaside.gemtalksystems.com/ss/MetacelloRepository' ]; - project: 'System-Digital-Signatures' - copyFrom: 'UTF8' - with: [ spec loads: #('System-Digital-Signatures') ]; - project: 'SMTPMail' - copyFrom: 'UTF8' - with: [ spec loads: #('SMTPMail') ]. - spec - package: 'Grease-Core' - with: [ - spec - requires: #('GsCore'); - includes: #('Grease-GemStone-Core') ]; - package: 'Grease-Tests-Core' - with: [ - spec - requires: #('Grease-GemStone-Core') ]; - package: 'Grease-GemStone-Core' - with: [ - spec - requires: - #('Grease-Core' 'GsCore' 'System-Digital-Signatures' 'UTF8' 'SMTPMail') ] ]. - - spec - for: #'gs2.x' - do: [ - spec - package: 'Grease-GemStone-Core' - with: [ spec includes: #('Grease-GemStone200-Core') ]; - package: 'Grease-GemStone200-Core' - with: [ spec requires: #('Grease-GemStone-Core') ] ]. - spec - for: #'gs2.3.x' - do: [ - spec - package: 'Grease-GemStone-Core' - with: [ spec includes: #('Grease-GemStone230-Core') ]; - package: 'Grease-GemStone230-Core' - with: [ spec requires: #('Grease-GemStone-Core') ] ]. - spec - for: #'gs2.4.x' - do: [ - spec - package: 'Grease-GemStone-Core' - with: [ spec includes: #('Grease-GemStone240-Core') ]; - package: 'Grease-GemStone240-Core' - with: [ spec requires: #('Grease-GemStone-Core') ] ]. - spec - for: #(#'gs3.0.x' #'gs3.1.x' #'gs3.2.x') - do: [ - spec - package: 'Grease-GemStone-Core' - with: [ spec includes: #('Grease-GemStone300-Core') ]; - package: 'Grease-GemStone300-Core' - with: [ - spec - requires: #('Grease-GemStone-Core'); - postLoadDoIt: #'initializeLatin1ToUtf8Encodings' ] ]. - spec - for: #(#'gs3.3.x' #'gs3.4.x' #'gs3.5.x' #'gs3.6.x' #'gs3.7.x' #'gs3.8.x' #'gs3.9.x') - do: [ - spec - package: 'Grease-GemStone-Core' - with: [ spec includes: #('Grease-GemStone330-Core') ]; - package: 'Grease-GemStone330-Core' - with: [ - spec - requires: #('Grease-GemStone-Core'); - postLoadDoIt: #'initializeLatin1ToUtf8Encodings' ] ]. - - spec for: #(#'gs2.x' #'gs3.0.x' #'gs3.1.x') - do:[ - spec - package: 'Grease-Tests-GemStone-Core' - with:[ spec requires: 'Grease-Tests-Core' ]; - package: 'Grease-Tests-Core' - with: [ spec includes: 'Grease-Tests-GemStone-Core' ] ]. - - spec - for: #( #'gs3.5.4.x' #'gs3.5.5.x' #'gs3.5.6.x' #'gs3.5.7.x' #'gs3.5.8.x' #'gs3.5.9.x' ) - do: [ - spec - package: 'Grease-GemStone-Core' - with: [ spec includes: #('Grease-GemStone-Kernelv354') ]; - package: 'Grease-GemStone-Kernelv354' - with: [ - spec - requires: #('Grease-GemStone-Core') ] ]. - spec - for: #( #'gs3.6.x' #'gs3.7.x' #'gs3.8.x' #'gs3.9.x') - do: [ - spec - package: 'Grease-GemStone-Core' - with: [ spec includes: #('Grease-GemStone-Kernelv360') ]; - package: 'Grease-GemStone-Kernelv360' - with: [ - spec - requires: #('Grease-GemStone-Core') ] ]. - spec - for: #( #'gs3.7.x' #'gs3.8.x' #'gs3.9.x') - do: [ - spec - package: 'Grease-GemStone-Core' - with: [ spec includes: #('Grease-GemStone-Kernelv370') ]; - package: 'Grease-GemStone-Kernelv370' - with: [ - spec - requires: #('Grease-GemStone-Core') ] ]. - spec - for: #(#'gs3.2.x' #'gs3.3.x' #'gs3.4.x' #'gs3.5.x' #'gs3.6.x' #'gs3.7.x' #'gs3.8.x' #'gs3.9.x') - do: [ - spec - package: 'Grease-Tests-GemStone32-Core' - with:[ spec requires: 'Grease-Tests-Core' ]; - package: 'Grease-Tests-Core' - with: [ spec includes: 'Grease-Tests-GemStone32-Core' ] ] \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st deleted file mode 100644 index 7ac453b2..00000000 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselinePharo..st +++ /dev/null @@ -1,73 +0,0 @@ -baselines -baselinePharo: spec - - spec - for: #'pharo6.x' - do: [ spec - package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo60-Core') ]; - package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ]; - package: 'Grease-Tests-Core' - with: [ spec - requires: #('Grease-Pharo60-Core'); - includes: #('Grease-Tests-Pharo-Core') ]; - package: 'Grease-Pharo60-Core' with: [ spec requires: #('Grease-Core') ] ]. - - spec - for: #(#'pharo7.x' #'pharo8.x') - do: [ spec - package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo70-Core') ]; - package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ]; - package: 'Grease-Tests-Core' - with: [ spec - requires: #('Grease-Pharo70-Core'); - includes: #('Grease-Tests-Pharo-Core') ]; - package: 'Grease-Pharo70-Core' with: [ spec requires: #('Grease-Core') ] ]. - - spec - for: #(#'pharo6.x' #'pharo7.x' #'pharo8.x') - do: [ - spec - package: 'Grease-Pharo40-Slime' with: [ spec requires: #('Grease-Core') ]; - package: 'Grease-Tests-Slime' with: [ spec requires: #('Grease-Pharo40-Slime') ]. - spec - group: 'Slime' with: #('Grease-Pharo40-Slime'); - group: 'Slime Tests' with: #('Grease-Tests-Slime') ]. - - spec - for: #(#'pharo9.x') - do: [ - spec - package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo90-Core') ]; - package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ]; - package: 'Grease-Tests-Core' - with: [ spec - requires: #('Grease-Pharo90-Core'); - includes: #('Grease-Tests-Pharo-Core') ]; - package: 'Grease-Pharo90-Core' with: [ spec requires: #('Grease-Core') ]; - package: 'Grease-Pharo90-Slime' with: [ spec requires: #('Grease-Core') ]; - package: 'Grease-Tests-Slime' with: [ spec requires: #('Grease-Pharo90-Slime') ]. - - spec - group: 'Slime' with: #('Grease-Pharo90-Slime'); - group: 'Slime Tests' with: #('Grease-Tests-Slime') ]. - - spec - for: #(#'pharo10.x' #'pharo11.x' #'pharo12.x' #'pharo13.x' #'pharo14.x') - do: [ - spec - package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo100-Core') ]; - package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ]; - package: 'Grease-Tests-Core' - with: [ spec - requires: #('Grease-Pharo100-Core'); - includes: #('Grease-Tests-Pharo-Core') ]; - package: 'Grease-Pharo100-Core' with: [ spec requires: #('Grease-Core') ]; - package: 'Grease-Pharo110-Slime-Core' with: [ spec requires: #('Grease-Core') ]; - package: 'Grease-Pharo110-Slime-Portability' with: [ spec requires: #('Grease-Pharo110-Slime-Core') ]; - package: 'Grease-Tests-Pharo-Slime' with: [ spec requires: #('Grease-Pharo110-Slime-Portability') ]. - - spec - group: 'Slime' with: #('Grease-Pharo110-Slime-Core'); - group: 'Slime Portability' with: #('Slime' 'Grease-Pharo110-Slime-Portability'); - group: 'Slime Tests' with: #('Grease-Pharo110-Slime-Portability' 'Grease-Tests-Pharo-Slime'); - group: 'Development' with: #('Slime Portability') ] diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineSqueak..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineSqueak..st deleted file mode 100644 index 90104daa..00000000 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineSqueak..st +++ /dev/null @@ -1,23 +0,0 @@ -baselines -baselineSqueak: spec - spec - for: #(#'squeak6.x') - do: [ - spec - project: 'Refactoring-Core' - with: [ spec - className: 'ConfigurationOfRefactoringBrowser'; - versionString: #stable; - loads: #('Core'); - repository: 'http://www.squeaksource.com/MetacelloRepository' ]. - spec - package: 'Grease-Core' - with: [ spec includes: #('Grease-Squeak6-Core') ]; - package: 'Grease-Tests-Core' - with: [ spec - requires: #('Grease-Squeak6-Core'); - includes: #('Grease-Tests-Squeak6-Core') ]; - package: 'Grease-Squeak6-Core' - with: [ spec requires: #('Grease-Core') ]; - package: 'Grease-Tests-Squeak6-Core' - with: [ spec requires: #('Grease-Tests-Core') ] ] \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/initializeLatin1ToUtf8Encodings.st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/initializeLatin1ToUtf8Encodings.st deleted file mode 100644 index 6d1af9c5..00000000 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/initializeLatin1ToUtf8Encodings.st +++ /dev/null @@ -1,4 +0,0 @@ -doits -initializeLatin1ToUtf8Encodings - "Gemstone only" - (Smalltalk at: #GRUtf8CodecStream) initialize \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/projectClass.st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/projectClass.st deleted file mode 100644 index 1d4f6564..00000000 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/projectClass.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -projectClass - Smalltalk at: #'MetacelloCypressBaselineProject' ifPresent: [ :cl | ^ cl ]. - ^ super projectClass \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/properties.json b/repository/BaselineOfGrease.package/BaselineOfGrease.class/properties.json deleted file mode 100644 index 0260395f..00000000 --- a/repository/BaselineOfGrease.package/BaselineOfGrease.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "BaselineOf", - "category" : "BaselineOfGrease", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "BaselineOfGrease", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/monticello.meta/categories.st b/repository/BaselineOfGrease.package/monticello.meta/categories.st deleted file mode 100644 index f7c53ae3..00000000 --- a/repository/BaselineOfGrease.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -self packageOrganizer ensurePackage: #BaselineOfGrease withTags: #()! diff --git a/repository/BaselineOfGrease.package/monticello.meta/initializers.st b/repository/BaselineOfGrease.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/BaselineOfGrease.package/monticello.meta/package b/repository/BaselineOfGrease.package/monticello.meta/package deleted file mode 100644 index 60470759..00000000 --- a/repository/BaselineOfGrease.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'BaselineOfGrease') \ No newline at end of file diff --git a/repository/BaselineOfGrease.package/properties.json b/repository/BaselineOfGrease.package/properties.json deleted file mode 100644 index 6f31cf5a..00000000 --- a/repository/BaselineOfGrease.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/repository/BaselineOfGrease/BaselineOfGrease.class.st b/repository/BaselineOfGrease/BaselineOfGrease.class.st new file mode 100644 index 00000000..d9699f06 --- /dev/null +++ b/repository/BaselineOfGrease/BaselineOfGrease.class.st @@ -0,0 +1,288 @@ +Class { + #name : 'BaselineOfGrease', + #superclass : 'BaselineOf', + #category : 'BaselineOfGrease', + #package : 'BaselineOfGrease' +} + +{ #category : 'baselines' } +BaselineOfGrease >> baseline: spec [ + + + self baselineCommon: spec. + self baselineSqueak: spec. + self baselinePharo: spec. + self baselineGemStone: spec +] + +{ #category : 'baselines' } +BaselineOfGrease >> baselineCommon: spec [ + + spec + for: #common + do: [ spec blessing: #baseline. + spec + package: 'Grease-Core'; + package: 'Grease-Tests-Core' + with: [ spec requires: #('Grease-Core') ]. + spec + group: 'Core' with: #('Grease-Core'); + group: 'Core Tests' with: #('Grease-Tests-Core'); + group: 'Slime' with: #('Core'); + group: 'Slime Tests' with: #('Core Tests'); + group: 'Tests' with: #('Core Tests' 'Slime Tests'); + group: 'default' with: #('Slime'); + group: 'Development' with: #('default') ] +] + +{ #category : 'baselines' } +BaselineOfGrease >> baselineGemStone: spec [ + + spec + for: #'gemstone' + do: [ + spec + project: 'GsCore' + with: [ + spec + className: 'ConfigurationOfGsCore'; + versionString: #'stable'; + repository: + 'http://seaside.gemtalksystems.com/ss/MetacelloRepository' ]; + project: 'UTF8' + with: [ + spec + className: 'ConfigurationOfGsMisc'; + versionString: #'stable'; + loads: #('Utf8Encoding'); + repository: + 'http://seaside.gemtalksystems.com/ss/MetacelloRepository' ]; + project: 'System-Digital-Signatures' + copyFrom: 'UTF8' + with: [ spec loads: #('System-Digital-Signatures') ]; + project: 'SMTPMail' + copyFrom: 'UTF8' + with: [ spec loads: #('SMTPMail') ]. + spec + package: 'Grease-Core' + with: [ + spec + requires: #('GsCore'); + includes: #('Grease-GemStone-Core') ]; + package: 'Grease-Tests-Core' + with: [ + spec + requires: #('Grease-GemStone-Core') ]; + package: 'Grease-GemStone-Core' + with: [ + spec + requires: + #('Grease-Core' 'GsCore' 'System-Digital-Signatures' 'UTF8' 'SMTPMail') ] ]. + + spec + for: #'gs2.x' + do: [ + spec + package: 'Grease-GemStone-Core' + with: [ spec includes: #('Grease-GemStone200-Core') ]; + package: 'Grease-GemStone200-Core' + with: [ spec requires: #('Grease-GemStone-Core') ] ]. + spec + for: #'gs2.3.x' + do: [ + spec + package: 'Grease-GemStone-Core' + with: [ spec includes: #('Grease-GemStone230-Core') ]; + package: 'Grease-GemStone230-Core' + with: [ spec requires: #('Grease-GemStone-Core') ] ]. + spec + for: #'gs2.4.x' + do: [ + spec + package: 'Grease-GemStone-Core' + with: [ spec includes: #('Grease-GemStone240-Core') ]; + package: 'Grease-GemStone240-Core' + with: [ spec requires: #('Grease-GemStone-Core') ] ]. + spec + for: #(#'gs3.0.x' #'gs3.1.x' #'gs3.2.x') + do: [ + spec + package: 'Grease-GemStone-Core' + with: [ spec includes: #('Grease-GemStone300-Core') ]; + package: 'Grease-GemStone300-Core' + with: [ + spec + requires: #('Grease-GemStone-Core'); + postLoadDoIt: #'initializeLatin1ToUtf8Encodings' ] ]. + spec + for: #(#'gs3.3.x' #'gs3.4.x' #'gs3.5.x' #'gs3.6.x' #'gs3.7.x' #'gs3.8.x' #'gs3.9.x') + do: [ + spec + package: 'Grease-GemStone-Core' + with: [ spec includes: #('Grease-GemStone330-Core') ]; + package: 'Grease-GemStone330-Core' + with: [ + spec + requires: #('Grease-GemStone-Core'); + postLoadDoIt: #'initializeLatin1ToUtf8Encodings' ] ]. + + spec for: #(#'gs2.x' #'gs3.0.x' #'gs3.1.x') + do:[ + spec + package: 'Grease-Tests-GemStone-Core' + with:[ spec requires: 'Grease-Tests-Core' ]; + package: 'Grease-Tests-Core' + with: [ spec includes: 'Grease-Tests-GemStone-Core' ] ]. + + spec + for: #( #'gs3.5.4.x' #'gs3.5.5.x' #'gs3.5.6.x' #'gs3.5.7.x' #'gs3.5.8.x' #'gs3.5.9.x' ) + do: [ + spec + package: 'Grease-GemStone-Core' + with: [ spec includes: #('Grease-GemStone-Kernelv354') ]; + package: 'Grease-GemStone-Kernelv354' + with: [ + spec + requires: #('Grease-GemStone-Core') ] ]. + spec + for: #( #'gs3.6.x' #'gs3.7.x' #'gs3.8.x' #'gs3.9.x') + do: [ + spec + package: 'Grease-GemStone-Core' + with: [ spec includes: #('Grease-GemStone-Kernelv360') ]; + package: 'Grease-GemStone-Kernelv360' + with: [ + spec + requires: #('Grease-GemStone-Core') ] ]. + spec + for: #( #'gs3.7.x' #'gs3.8.x' #'gs3.9.x') + do: [ + spec + package: 'Grease-GemStone-Core' + with: [ spec includes: #('Grease-GemStone-Kernelv370') ]; + package: 'Grease-GemStone-Kernelv370' + with: [ + spec + requires: #('Grease-GemStone-Core') ] ]. + spec + for: #(#'gs3.2.x' #'gs3.3.x' #'gs3.4.x' #'gs3.5.x' #'gs3.6.x' #'gs3.7.x' #'gs3.8.x' #'gs3.9.x') + do: [ + spec + package: 'Grease-Tests-GemStone32-Core' + with:[ spec requires: 'Grease-Tests-Core' ]; + package: 'Grease-Tests-Core' + with: [ spec includes: 'Grease-Tests-GemStone32-Core' ] ] +] + +{ #category : 'baselines' } +BaselineOfGrease >> baselinePharo: spec [ + + spec + for: #'pharo6.x' + do: [ spec + package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo60-Core') ]; + package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ]; + package: 'Grease-Tests-Core' + with: [ spec + requires: #('Grease-Pharo60-Core'); + includes: #('Grease-Tests-Pharo-Core') ]; + package: 'Grease-Pharo60-Core' with: [ spec requires: #('Grease-Core') ] ]. + + spec + for: #(#'pharo7.x' #'pharo8.x') + do: [ spec + package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo70-Core') ]; + package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ]; + package: 'Grease-Tests-Core' + with: [ spec + requires: #('Grease-Pharo70-Core'); + includes: #('Grease-Tests-Pharo-Core') ]; + package: 'Grease-Pharo70-Core' with: [ spec requires: #('Grease-Core') ] ]. + + spec + for: #(#'pharo6.x' #'pharo7.x' #'pharo8.x') + do: [ + spec + package: 'Grease-Pharo40-Slime' with: [ spec requires: #('Grease-Core') ]; + package: 'Grease-Tests-Slime' with: [ spec requires: #('Grease-Pharo40-Slime') ]. + spec + group: 'Slime' with: #('Grease-Pharo40-Slime'); + group: 'Slime Tests' with: #('Grease-Tests-Slime') ]. + + spec + for: #(#'pharo9.x') + do: [ + spec + package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo90-Core') ]; + package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ]; + package: 'Grease-Tests-Core' + with: [ spec + requires: #('Grease-Pharo90-Core'); + includes: #('Grease-Tests-Pharo-Core') ]; + package: 'Grease-Pharo90-Core' with: [ spec requires: #('Grease-Core') ]; + package: 'Grease-Pharo90-Slime' with: [ spec requires: #('Grease-Core') ]; + package: 'Grease-Tests-Slime' with: [ spec requires: #('Grease-Pharo90-Slime') ]. + + spec + group: 'Slime' with: #('Grease-Pharo90-Slime'); + group: 'Slime Tests' with: #('Grease-Tests-Slime') ]. + + spec + for: #(#'pharo10.x' #'pharo11.x' #'pharo12.x' #'pharo13.x' #'pharo14.x') + do: [ + spec + package: 'Grease-Core' with: [ spec includes: #('Grease-Pharo100-Core') ]; + package: 'Grease-Tests-Pharo-Core' with: [ spec requires: #('Grease-Tests-Core') ]; + package: 'Grease-Tests-Core' + with: [ spec + requires: #('Grease-Pharo100-Core'); + includes: #('Grease-Tests-Pharo-Core') ]; + package: 'Grease-Pharo100-Core' with: [ spec requires: #('Grease-Core') ]; + package: 'Grease-Pharo110-Slime-Core' with: [ spec requires: #('Grease-Core') ]; + package: 'Grease-Pharo110-Slime-Portability' with: [ spec requires: #('Grease-Pharo110-Slime-Core') ]; + package: 'Grease-Tests-Pharo-Slime' with: [ spec requires: #('Grease-Pharo110-Slime-Portability') ]. + + spec + group: 'Slime' with: #('Grease-Pharo110-Slime-Core'); + group: 'Slime Portability' with: #('Slime' 'Grease-Pharo110-Slime-Portability'); + group: 'Slime Tests' with: #('Grease-Pharo110-Slime-Portability' 'Grease-Tests-Pharo-Slime'); + group: 'Development' with: #('Slime Portability') ] + +] + +{ #category : 'baselines' } +BaselineOfGrease >> baselineSqueak: spec [ + spec + for: #(#'squeak6.x') + do: [ + spec + project: 'Refactoring-Core' + with: [ spec + className: 'ConfigurationOfRefactoringBrowser'; + versionString: #stable; + loads: #('Core'); + repository: 'http://www.squeaksource.com/MetacelloRepository' ]. + spec + package: 'Grease-Core' + with: [ spec includes: #('Grease-Squeak6-Core') ]; + package: 'Grease-Tests-Core' + with: [ spec + requires: #('Grease-Squeak6-Core'); + includes: #('Grease-Tests-Squeak6-Core') ]; + package: 'Grease-Squeak6-Core' + with: [ spec requires: #('Grease-Core') ]; + package: 'Grease-Tests-Squeak6-Core' + with: [ spec requires: #('Grease-Tests-Core') ] ] +] + +{ #category : 'doits' } +BaselineOfGrease >> initializeLatin1ToUtf8Encodings [ + "Gemstone only" + (Smalltalk at: #GRUtf8CodecStream) initialize +] + +{ #category : 'accessing' } +BaselineOfGrease >> projectClass [ + Smalltalk at: #'MetacelloCypressBaselineProject' ifPresent: [ :cl | ^ cl ]. + ^ super projectClass +] diff --git a/repository/BaselineOfGrease/package.st b/repository/BaselineOfGrease/package.st new file mode 100644 index 00000000..09cc4fd5 --- /dev/null +++ b/repository/BaselineOfGrease/package.st @@ -0,0 +1 @@ +Package { #name : 'BaselineOfGrease' } diff --git a/repository/Grease-Core.package/.filetree b/repository/Grease-Core.package/.filetree deleted file mode 100644 index 57a67973..00000000 --- a/repository/Grease-Core.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/repository/Grease-Core.package/Character.extension/instance/print.on..st b/repository/Grease-Core.package/Character.extension/instance/print.on..st deleted file mode 100644 index 51879fc7..00000000 --- a/repository/Grease-Core.package/Character.extension/instance/print.on..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-core -print: anObject on: aStream - aStream nextPut: self \ No newline at end of file diff --git a/repository/Grease-Core.package/Character.extension/properties.json b/repository/Grease-Core.package/Character.extension/properties.json deleted file mode 100644 index 5219281d..00000000 --- a/repository/Grease-Core.package/Character.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Character" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/Collection.extension/instance/greaseAsByteArray.st b/repository/Grease-Core.package/Collection.extension/instance/greaseAsByteArray.st deleted file mode 100644 index dacf78b3..00000000 --- a/repository/Grease-Core.package/Collection.extension/instance/greaseAsByteArray.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Core -greaseAsByteArray - ^ self asByteArray \ No newline at end of file diff --git a/repository/Grease-Core.package/Collection.extension/properties.json b/repository/Grease-Core.package/Collection.extension/properties.json deleted file mode 100644 index 48f9f8d9..00000000 --- a/repository/Grease-Core.package/Collection.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Collection" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRBoundMessage.class/README.md b/repository/Grease-Core.package/GRBoundMessage.class/README.md deleted file mode 100644 index b70c6512..00000000 --- a/repository/Grease-Core.package/GRBoundMessage.class/README.md +++ /dev/null @@ -1,7 +0,0 @@ -A delayed send that has some or all of the arguments defined in advance. Additionally supplied arguments will be added, if possible, to these when the object is evaluate. - -Instance Variables - arguments: - -arguments - - the predefined arguments diff --git a/repository/Grease-Core.package/GRBoundMessage.class/class/selector..st b/repository/Grease-Core.package/GRBoundMessage.class/class/selector..st deleted file mode 100644 index e295c21b..00000000 --- a/repository/Grease-Core.package/GRBoundMessage.class/class/selector..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -selector: aSymbol - ^ self selector: aSymbol arguments: #() \ No newline at end of file diff --git a/repository/Grease-Core.package/GRBoundMessage.class/class/selector.arguments..st b/repository/Grease-Core.package/GRBoundMessage.class/class/selector.arguments..st deleted file mode 100644 index c8be5f70..00000000 --- a/repository/Grease-Core.package/GRBoundMessage.class/class/selector.arguments..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -selector: aSymbol arguments: anArray - ^ self basicNew - initializeWithSelector: aSymbol arguments: anArray; - yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRBoundMessage.class/instance/argumentCount.st b/repository/Grease-Core.package/GRBoundMessage.class/instance/argumentCount.st deleted file mode 100644 index d9072fc9..00000000 --- a/repository/Grease-Core.package/GRBoundMessage.class/instance/argumentCount.st +++ /dev/null @@ -1,3 +0,0 @@ -delegation -argumentCount - ^ selector numArgs - arguments size \ No newline at end of file diff --git a/repository/Grease-Core.package/GRBoundMessage.class/instance/initializeWithSelector.arguments..st b/repository/Grease-Core.package/GRBoundMessage.class/instance/initializeWithSelector.arguments..st deleted file mode 100644 index 1dd71217..00000000 --- a/repository/Grease-Core.package/GRBoundMessage.class/instance/initializeWithSelector.arguments..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeWithSelector: aSymbol arguments: anArray - self initializeWithSelector: aSymbol. - arguments := anArray asArray \ No newline at end of file diff --git a/repository/Grease-Core.package/GRBoundMessage.class/instance/mergeArguments..st b/repository/Grease-Core.package/GRBoundMessage.class/instance/mergeArguments..st deleted file mode 100644 index 2a542bf9..00000000 --- a/repository/Grease-Core.package/GRBoundMessage.class/instance/mergeArguments..st +++ /dev/null @@ -1,3 +0,0 @@ -private -mergeArguments: anArray - ^ arguments , anArray \ No newline at end of file diff --git a/repository/Grease-Core.package/GRBoundMessage.class/instance/printOn..st b/repository/Grease-Core.package/GRBoundMessage.class/instance/printOn..st deleted file mode 100644 index 61f38462..00000000 --- a/repository/Grease-Core.package/GRBoundMessage.class/instance/printOn..st +++ /dev/null @@ -1,4 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream nextPutAll: ' arguments: '; print: arguments \ No newline at end of file diff --git a/repository/Grease-Core.package/GRBoundMessage.class/properties.json b/repository/Grease-Core.package/GRBoundMessage.class/properties.json deleted file mode 100644 index 8cc5361d..00000000 --- a/repository/Grease-Core.package/GRBoundMessage.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "jf 3/14/2009 11:04", - "super" : "GRDelayedSendMessage", - "category" : "Grease-Core-Utilities", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "arguments" - ], - "name" : "GRBoundMessage", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/README.md b/repository/Grease-Core.package/GRCodec.class/README.md deleted file mode 100644 index 3cfd57a0..00000000 --- a/repository/Grease-Core.package/GRCodec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A codec defines how Seaside communicates without the outside world and how outside data is converted into the image (decoding) and back outside the image (encoding). The codec is essentially a stream factory that provides wrappers around standard streams. All streams do support binary mode for non-converted transfer. \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/class/allCodecs.st b/repository/Grease-Core.package/GRCodec.class/class/allCodecs.st deleted file mode 100644 index 7b9e7ae6..00000000 --- a/repository/Grease-Core.package/GRCodec.class/class/allCodecs.st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -allCodecs - "Answer all codecs supported in this system. This is a collection of codec instances." - - ^ self subclasses - inject: self codecs asArray - into: [ :result :each | result , each allCodecs ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/class/basicForEncoding..st b/repository/Grease-Core.package/GRCodec.class/class/basicForEncoding..st deleted file mode 100644 index 522f6b67..00000000 --- a/repository/Grease-Core.package/GRCodec.class/class/basicForEncoding..st +++ /dev/null @@ -1,4 +0,0 @@ -private -basicForEncoding: aString - "Create the actual instance." - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/class/codecs.st b/repository/Grease-Core.package/GRCodec.class/class/codecs.st deleted file mode 100644 index 6a776efc..00000000 --- a/repository/Grease-Core.package/GRCodec.class/class/codecs.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -codecs - "Answer a collection of possible codecs of the receiver. To be overridden by concrete subclasses." - - ^ #() \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/class/forEncoding..st b/repository/Grease-Core.package/GRCodec.class/class/forEncoding..st deleted file mode 100644 index 64699961..00000000 --- a/repository/Grease-Core.package/GRCodec.class/class/forEncoding..st +++ /dev/null @@ -1,8 +0,0 @@ -instance creation -forEncoding: aString - "Answer a new codec instance for the given encoding name. Raise an WAUnsupportedEncodingError if the encoding name is not supported by this image." - - self allSubclassesDo: [ :each | - (each supportsEncoding: aString) - ifTrue: [ ^ each basicForEncoding: aString ] ]. - ^ self unsupportedEncoding: aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/class/supportsEncoding..st b/repository/Grease-Core.package/GRCodec.class/class/supportsEncoding..st deleted file mode 100644 index e1f29f50..00000000 --- a/repository/Grease-Core.package/GRCodec.class/class/supportsEncoding..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -supportsEncoding: aString - "Answer whether the the given encoding name is supported by this codec class." - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/class/unsupportedEncoding..st b/repository/Grease-Core.package/GRCodec.class/class/unsupportedEncoding..st deleted file mode 100644 index 420fba63..00000000 --- a/repository/Grease-Core.package/GRCodec.class/class/unsupportedEncoding..st +++ /dev/null @@ -1,5 +0,0 @@ -private -unsupportedEncoding: aString - "Signal an unsupported encoding." - - ^ GRUnsupportedEncodingError signal: 'unsupported encoding: ' , aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/instance/decode..st b/repository/Grease-Core.package/GRCodec.class/instance/decode..st deleted file mode 100644 index 0a4632ff..00000000 --- a/repository/Grease-Core.package/GRCodec.class/instance/decode..st +++ /dev/null @@ -1,8 +0,0 @@ -convenience -decode: aString - | readStream writeStream | - readStream := self decoderFor: aString readStream. - writeStream := GRPlatform current writeCharacterStreamOn: (String new: aString size). - [ readStream atEnd ] - whileFalse: [ writeStream nextPutAll: (readStream next: 1024) ]. - ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/instance/decoderFor..st b/repository/Grease-Core.package/GRCodec.class/instance/decoderFor..st deleted file mode 100644 index 4ba317d5..00000000 --- a/repository/Grease-Core.package/GRCodec.class/instance/decoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -decoderFor: aReadStream - "Wrap aReadStream with an decoder for the codec of the receiver. Answer a read stream that delegates to and shares the state of aReadStream." - - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/instance/encode..st b/repository/Grease-Core.package/GRCodec.class/instance/encode..st deleted file mode 100644 index 1c4e697d..00000000 --- a/repository/Grease-Core.package/GRCodec.class/instance/encode..st +++ /dev/null @@ -1,7 +0,0 @@ -convenience -encode: aString - | writeStream | - writeStream := self encoderFor: (GRPlatform current - writeCharacterStreamOn: (self encodedStringClass new: aString size)). - writeStream nextPutAll: aString. - ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/instance/encodedStringClass.st b/repository/Grease-Core.package/GRCodec.class/instance/encodedStringClass.st deleted file mode 100644 index 97aca951..00000000 --- a/repository/Grease-Core.package/GRCodec.class/instance/encodedStringClass.st +++ /dev/null @@ -1,3 +0,0 @@ -conversion -encodedStringClass - ^ String \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/instance/encoderFor..st b/repository/Grease-Core.package/GRCodec.class/instance/encoderFor..st deleted file mode 100644 index b691c1ef..00000000 --- a/repository/Grease-Core.package/GRCodec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aWriteStream - "Wrap aWriteStream with an encoder for the codec of the receiver. Answer a write stream that delegates to and shares the state of aWriteStream." - - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/instance/name.st b/repository/Grease-Core.package/GRCodec.class/instance/name.st deleted file mode 100644 index 26f098ee..00000000 --- a/repository/Grease-Core.package/GRCodec.class/instance/name.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -name - "Answer a human readable string of the receivers encoding policy." - - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/instance/printOn..st b/repository/Grease-Core.package/GRCodec.class/instance/printOn..st deleted file mode 100644 index cb7d026b..00000000 --- a/repository/Grease-Core.package/GRCodec.class/instance/printOn..st +++ /dev/null @@ -1,4 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream nextPutAll: ' name: '; print: self name \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/instance/url.st b/repository/Grease-Core.package/GRCodec.class/instance/url.st deleted file mode 100644 index 6c439ed9..00000000 --- a/repository/Grease-Core.package/GRCodec.class/instance/url.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -url - "Answer a codec that is responsible to encode and decode URLs. In most cases an UTF-8 codec is the only valid choice, but subclasses might decide to do something else." - - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodec.class/properties.json b/repository/Grease-Core.package/GRCodec.class/properties.json deleted file mode 100644 index 027cedb0..00000000 --- a/repository/Grease-Core.package/GRCodec.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "lr 2/7/2009 09:55", - "super" : "GRObject", - "category" : "Grease-Core-Text", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRCodec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodecStream.class/README.md b/repository/Grease-Core.package/GRCodecStream.class/README.md deleted file mode 100644 index ce1056b0..00000000 --- a/repository/Grease-Core.package/GRCodecStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -GRCodecStream is the abstract base class for codec streams \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCodecStream.class/properties.json b/repository/Grease-Core.package/GRCodecStream.class/properties.json deleted file mode 100644 index 469b8552..00000000 --- a/repository/Grease-Core.package/GRCodecStream.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 6/25/2012 20:21", - "super" : "GRDelegatingStream", - "category" : "Grease-Core-Text", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRCodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCountingStream.class/README.md b/repository/Grease-Core.package/GRCountingStream.class/README.md deleted file mode 100644 index e25945dd..00000000 --- a/repository/Grease-Core.package/GRCountingStream.class/README.md +++ /dev/null @@ -1,7 +0,0 @@ -A GRCountingStream counts how many elements have been added to it. This is necessary because the underlying stream may inflate the number of elements in the stream. - -Instance Variables: - count - -count - - number of elements added to this stream \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCountingStream.class/instance/count.st b/repository/Grease-Core.package/GRCountingStream.class/instance/count.st deleted file mode 100644 index d9f06943..00000000 --- a/repository/Grease-Core.package/GRCountingStream.class/instance/count.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -count - ^ count \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCountingStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Core.package/GRCountingStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 9ee86434..00000000 --- a/repository/Grease-Core.package/GRCountingStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,4 +0,0 @@ -streaming -greaseNext: anInteger putAll: aCollection startingAt: startIndex - super greaseNext: anInteger putAll: aCollection startingAt: startIndex. - count := count + anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCountingStream.class/instance/initialize.st b/repository/Grease-Core.package/GRCountingStream.class/instance/initialize.st deleted file mode 100644 index 8917e4d7..00000000 --- a/repository/Grease-Core.package/GRCountingStream.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initialize - super initialize. - count := 0 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCountingStream.class/instance/next..st b/repository/Grease-Core.package/GRCountingStream.class/instance/next..st deleted file mode 100644 index c93e18f0..00000000 --- a/repository/Grease-Core.package/GRCountingStream.class/instance/next..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next: anInteger - self shouldNotImplement \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCountingStream.class/instance/next.st b/repository/Grease-Core.package/GRCountingStream.class/instance/next.st deleted file mode 100644 index 97edf823..00000000 --- a/repository/Grease-Core.package/GRCountingStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - self shouldNotImplement \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCountingStream.class/instance/nextPut..st b/repository/Grease-Core.package/GRCountingStream.class/instance/nextPut..st deleted file mode 100644 index 2a60f134..00000000 --- a/repository/Grease-Core.package/GRCountingStream.class/instance/nextPut..st +++ /dev/null @@ -1,4 +0,0 @@ -streaming -nextPut: aCharacter - stream nextPut: aCharacter. - count := count + 1 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCountingStream.class/instance/nextPutAll..st b/repository/Grease-Core.package/GRCountingStream.class/instance/nextPutAll..st deleted file mode 100644 index 1ea34984..00000000 --- a/repository/Grease-Core.package/GRCountingStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,4 +0,0 @@ -streaming -nextPutAll: aString - stream nextPutAll: aString. - count := count + aString size \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCountingStream.class/instance/reset.st b/repository/Grease-Core.package/GRCountingStream.class/instance/reset.st deleted file mode 100644 index 2b9c99c9..00000000 --- a/repository/Grease-Core.package/GRCountingStream.class/instance/reset.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -reset - super reset. - count := 0 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRCountingStream.class/properties.json b/repository/Grease-Core.package/GRCountingStream.class/properties.json deleted file mode 100644 index 957dd138..00000000 --- a/repository/Grease-Core.package/GRCountingStream.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "pmm 6/25/2012 20:39", - "super" : "GRDelegatingStream", - "category" : "Grease-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "count" - ], - "name" : "GRCountingStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/README.md b/repository/Grease-Core.package/GRDelayedSend.class/README.md deleted file mode 100644 index 42850c5e..00000000 --- a/repository/Grease-Core.package/GRDelayedSend.class/README.md +++ /dev/null @@ -1,15 +0,0 @@ -A GRDelayedSend is a future message send of a message to an object. Some of the arguments can be predefined. Instances are intended to be interchangeable with blocks. - -This class should conform the ANSI (block) valuable protocol. Unlike a block, a GRDelayedSend is not a closure so doesn't hold onto the method context. GRDelayedSend provides similar, but portable, functionality to Pharo's MessageSend. - -This is an abstract class. Use the methods in the 'instance-creation' protocol on the class side to create intances. - -Instance Variables - receiver: - selector: - -receiver - - the object receiving the message - -selector - - the message selector sent to the receiver diff --git a/repository/Grease-Core.package/GRDelayedSend.class/class/empty.st b/repository/Grease-Core.package/GRDelayedSend.class/class/empty.st deleted file mode 100644 index 3da8518e..00000000 --- a/repository/Grease-Core.package/GRDelayedSend.class/class/empty.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -empty - ^ self receiver: nil selector: #yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/class/new.st b/repository/Grease-Core.package/GRDelayedSend.class/class/new.st deleted file mode 100644 index 4e86adaf..00000000 --- a/repository/Grease-Core.package/GRDelayedSend.class/class/new.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -new - ^ self empty \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector..st b/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector..st deleted file mode 100644 index 0322111e..00000000 --- a/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -receiver: anObject selector: aSymbol - ^ self basicNew - initializeWithReceiver: anObject - message: (GRUnboundMessage selector: aSymbol); - yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector.argument..st b/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector.argument..st deleted file mode 100644 index ac969579..00000000 --- a/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector.argument..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -receiver: anObject selector: aSymbol argument: aParameter - ^ self receiver: anObject selector: aSymbol arguments: (Array with: aParameter) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector.arguments..st b/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector.arguments..st deleted file mode 100644 index 310042bf..00000000 --- a/repository/Grease-Core.package/GRDelayedSend.class/class/receiver.selector.arguments..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -receiver: anObject selector: aSymbol arguments: anArray - ^ self basicNew - initializeWithReceiver: anObject - message: (GRBoundMessage selector: aSymbol arguments: anArray); - yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/instance/argumentCount.st b/repository/Grease-Core.package/GRDelayedSend.class/instance/argumentCount.st deleted file mode 100644 index 5e6683e1..00000000 --- a/repository/Grease-Core.package/GRDelayedSend.class/instance/argumentCount.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -argumentCount - "Answer the number of arguments that must be provided to the receiver when sending it." - - ^ message argumentCount \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/instance/initializeWithReceiver.message..st b/repository/Grease-Core.package/GRDelayedSend.class/instance/initializeWithReceiver.message..st deleted file mode 100644 index 81fa2989..00000000 --- a/repository/Grease-Core.package/GRDelayedSend.class/instance/initializeWithReceiver.message..st +++ /dev/null @@ -1,5 +0,0 @@ -initialization -initializeWithReceiver: anObject message: aDelayedSendMessage - self initialize. - receiver := anObject. - message := aDelayedSendMessage \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/instance/printOn..st b/repository/Grease-Core.package/GRDelayedSend.class/instance/printOn..st deleted file mode 100644 index 582cc973..00000000 --- a/repository/Grease-Core.package/GRDelayedSend.class/instance/printOn..st +++ /dev/null @@ -1,6 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream nextPutAll: ' receiver: '; print: receiver. - aStream nextPut: $ . - message printOn: aStream \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/instance/value..st b/repository/Grease-Core.package/GRDelayedSend.class/instance/value..st deleted file mode 100644 index 55ba4bee..00000000 --- a/repository/Grease-Core.package/GRDelayedSend.class/instance/value..st +++ /dev/null @@ -1,3 +0,0 @@ -evaluating -value: anObject - ^ self valueWithArguments: (Array with: anObject) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/instance/value.st b/repository/Grease-Core.package/GRDelayedSend.class/instance/value.st deleted file mode 100644 index 4cdeb4da..00000000 --- a/repository/Grease-Core.package/GRDelayedSend.class/instance/value.st +++ /dev/null @@ -1,3 +0,0 @@ -evaluating -value - ^ self valueWithArguments: #() \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/instance/value.value..st b/repository/Grease-Core.package/GRDelayedSend.class/instance/value.value..st deleted file mode 100644 index 58eb0c31..00000000 --- a/repository/Grease-Core.package/GRDelayedSend.class/instance/value.value..st +++ /dev/null @@ -1,3 +0,0 @@ -evaluating -value: aFirstObject value: aSecondObject - ^ self valueWithArguments: (Array with: aFirstObject with: aSecondObject) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/instance/valueWithArguments..st b/repository/Grease-Core.package/GRDelayedSend.class/instance/valueWithArguments..st deleted file mode 100644 index e551e39f..00000000 --- a/repository/Grease-Core.package/GRDelayedSend.class/instance/valueWithArguments..st +++ /dev/null @@ -1,3 +0,0 @@ -evaluating -valueWithArguments: anArray - ^ message valueFor: receiver withArguments: anArray \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/instance/valueWithPossibleArguments..st b/repository/Grease-Core.package/GRDelayedSend.class/instance/valueWithPossibleArguments..st deleted file mode 100644 index 80b09c39..00000000 --- a/repository/Grease-Core.package/GRDelayedSend.class/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,3 +0,0 @@ -evaluating -valueWithPossibleArguments: anArray - ^ message valueFor: receiver withPossibleArguments: anArray \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSend.class/properties.json b/repository/Grease-Core.package/GRDelayedSend.class/properties.json deleted file mode 100644 index ef621ffc..00000000 --- a/repository/Grease-Core.package/GRDelayedSend.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "NickAger 3/20/2012 09:04", - "super" : "GRObject", - "category" : "Grease-Core-Utilities", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "receiver", - "message" - ], - "name" : "GRDelayedSend", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSendMessage.class/README.md b/repository/Grease-Core.package/GRDelayedSendMessage.class/README.md deleted file mode 100644 index 44a1bcdf..00000000 --- a/repository/Grease-Core.package/GRDelayedSendMessage.class/README.md +++ /dev/null @@ -1 +0,0 @@ -GRDelayedSendMessage is an abstract base for objects that provide currying functionality for GRDelayedSend \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSendMessage.class/class/new.st b/repository/Grease-Core.package/GRDelayedSendMessage.class/class/new.st deleted file mode 100644 index 6701837c..00000000 --- a/repository/Grease-Core.package/GRDelayedSendMessage.class/class/new.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -new - ^ self selector: #yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSendMessage.class/class/selector..st b/repository/Grease-Core.package/GRDelayedSendMessage.class/class/selector..st deleted file mode 100644 index 24c53937..00000000 --- a/repository/Grease-Core.package/GRDelayedSendMessage.class/class/selector..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -selector: aSymbol - ^ self basicNew - initializeWithSelector: aSymbol; - yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/argumentCount.st b/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/argumentCount.st deleted file mode 100644 index 1ac3d919..00000000 --- a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/argumentCount.st +++ /dev/null @@ -1,5 +0,0 @@ -delegation -argumentCount - "Answer the number of arguments that must be provided when sending this message." - - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/basicPerformFor.withArguments..st b/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/basicPerformFor.withArguments..st deleted file mode 100644 index 0fd92622..00000000 --- a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/basicPerformFor.withArguments..st +++ /dev/null @@ -1,5 +0,0 @@ -private -basicPerformFor: receiver withArguments: anArray - ^ anArray size = selector numArgs - ifTrue: [ receiver perform: selector withArguments: anArray ] - ifFalse: [ self invalidArgumentCount ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/initializeWithSelector..st b/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/initializeWithSelector..st deleted file mode 100644 index 33ee37ed..00000000 --- a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/initializeWithSelector..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeWithSelector: aSymbol - self initialize. - selector := aSymbol \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/invalidArgumentCount.st b/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/invalidArgumentCount.st deleted file mode 100644 index ac928742..00000000 --- a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/invalidArgumentCount.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidArgumentCount - GRInvalidArgumentCount signal \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/mergeArguments..st b/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/mergeArguments..st deleted file mode 100644 index a38ffb88..00000000 --- a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/mergeArguments..st +++ /dev/null @@ -1,3 +0,0 @@ -private -mergeArguments: anArray - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/printOn..st b/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/printOn..st deleted file mode 100644 index 0bf2d005..00000000 --- a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/printOn..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -printOn: aStream - aStream nextPutAll: 'selector: '; print: selector \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withArguments..st b/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withArguments..st deleted file mode 100644 index e97189fe..00000000 --- a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withArguments..st +++ /dev/null @@ -1,6 +0,0 @@ -delegation -valueFor: receiver withArguments: anArray - "Send the message to receiver with the arguments in anArray. Answer the result. - Signal an error if the number of arguments does not match the selector." - - ^ self basicPerformFor: receiver withArguments: (self mergeArguments: anArray) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withPossibleArguments..st b/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withPossibleArguments..st deleted file mode 100644 index 5cd1f582..00000000 --- a/repository/Grease-Core.package/GRDelayedSendMessage.class/instance/valueFor.withPossibleArguments..st +++ /dev/null @@ -1,11 +0,0 @@ -delegation -valueFor: receiver withPossibleArguments: anArray - "Send the message to receiver with as many of the arguments in anArray as possible. Answer the result. - Error if not enough arguments are available for the selector." - - | allArguments | - allArguments := self mergeArguments: anArray. - - ^ allArguments size < selector numArgs - ifTrue: [ self invalidArgumentCount ] - ifFalse: [ self basicPerformFor: receiver withArguments: (allArguments first: selector numArgs) ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelayedSendMessage.class/properties.json b/repository/Grease-Core.package/GRDelayedSendMessage.class/properties.json deleted file mode 100644 index 074052cb..00000000 --- a/repository/Grease-Core.package/GRDelayedSendMessage.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "NickAger 3/19/2012 11:20", - "super" : "GRObject", - "category" : "Grease-Core-Utilities", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "selector" - ], - "name" : "GRDelayedSendMessage", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/README.md b/repository/Grease-Core.package/GRDelegatingStream.class/README.md deleted file mode 100644 index e32d770e..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/README.md +++ /dev/null @@ -1,8 +0,0 @@ -A GRDelegatingStream is a wrapper around a write stream and defines common behavior. - -Instance Variables - stream: - -stream - - a WriteStream - diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/class/on..st b/repository/Grease-Core.package/GRDelegatingStream.class/class/on..st deleted file mode 100644 index b670df39..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/class/on..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -on: aStream - ^ self basicNew initializeOn: aStream \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/atEnd.st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/atEnd.st deleted file mode 100644 index 3f1258d9..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/atEnd.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -atEnd - ^ stream atEnd \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/contents.st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/contents.st deleted file mode 100644 index eb7fbc4f..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/contents.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -contents - ^ stream contents \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/crlf.st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/crlf.st deleted file mode 100644 index 4499898f..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/crlf.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -crlf - self nextPut: Character cr; nextPut: Character lf \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/flush.st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/flush.st deleted file mode 100644 index 6a00b129..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/flush.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -flush - stream flush \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 1139a600..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -greaseNext: anInteger putAll: aCollection startingAt: startIndex - stream greaseNext: anInteger putAll: aCollection startingAt: startIndex \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/initializeOn..st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/initializeOn..st deleted file mode 100644 index 022d2e63..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/initializeOn..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeOn: aStream - self initialize. - stream := aStream \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/isStream.st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/isStream.st deleted file mode 100644 index 4b758e3a..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/isStream.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isStream - ^ true \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/next..st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/next..st deleted file mode 100644 index 34e5e219..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/next..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next: anInteger - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/next.st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/next.st deleted file mode 100644 index ca55d8e6..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/nextPut..st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/nextPut..st deleted file mode 100644 index bdb5e6cd..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/nextPut..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPut: aCharacter - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/nextPutAll..st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/nextPutAll..st deleted file mode 100644 index bfa9f415..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPutAll: aString - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/position..st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/position..st deleted file mode 100644 index a20d8783..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/position..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -position: anInteger - ^ stream position: anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/position.st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/position.st deleted file mode 100644 index ed80f0e7..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/position.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -position - ^ stream position \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/print..st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/print..st deleted file mode 100644 index 6ea0326a..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/print..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -print: anObject - anObject printOn: self \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/reset.st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/reset.st deleted file mode 100644 index 59704ec8..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/reset.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -reset - "Reset the stream" - - stream reset \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/size.st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/size.st deleted file mode 100644 index d63392c3..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/size.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -size - ^ stream size \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/space.st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/space.st deleted file mode 100644 index b2588867..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/space.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -space - self nextPut: Character space \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/tab.st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/tab.st deleted file mode 100644 index 162412da..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/instance/tab.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -tab - self nextPut: Character tab \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/properties.json b/repository/Grease-Core.package/GRDelegatingStream.class/properties.json deleted file mode 100644 index 0b47dd66..00000000 --- a/repository/Grease-Core.package/GRDelegatingStream.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "pmm 6/25/2012 20:20", - "super" : "GRObject", - "category" : "Grease-Core-Text", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "stream" - ], - "name" : "GRDelegatingStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDeprecatedApiNotification.class/README.md b/repository/Grease-Core.package/GRDeprecatedApiNotification.class/README.md deleted file mode 100644 index 3f9d0dbe..00000000 --- a/repository/Grease-Core.package/GRDeprecatedApiNotification.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -This notification is signaled whenever a deprecated message is sent. - -see WAObject>>#greaseDeprecatedApi:details: \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDeprecatedApiNotification.class/instance/details..st b/repository/Grease-Core.package/GRDeprecatedApiNotification.class/instance/details..st deleted file mode 100644 index e7036391..00000000 --- a/repository/Grease-Core.package/GRDeprecatedApiNotification.class/instance/details..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -details: anObject - details := anObject \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDeprecatedApiNotification.class/instance/details.st b/repository/Grease-Core.package/GRDeprecatedApiNotification.class/instance/details.st deleted file mode 100644 index 55c4ca70..00000000 --- a/repository/Grease-Core.package/GRDeprecatedApiNotification.class/instance/details.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -details - ^ details \ No newline at end of file diff --git a/repository/Grease-Core.package/GRDeprecatedApiNotification.class/properties.json b/repository/Grease-Core.package/GRDeprecatedApiNotification.class/properties.json deleted file mode 100644 index 6241e06c..00000000 --- a/repository/Grease-Core.package/GRDeprecatedApiNotification.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "pmm 9/14/2013 15:50", - "super" : "GRNotification", - "category" : "Grease-Core-Exceptions", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "details" - ], - "name" : "GRDeprecatedApiNotification", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRError.class/README.md b/repository/Grease-Core.package/GRError.class/README.md deleted file mode 100644 index 242f8ca7..00000000 --- a/repository/Grease-Core.package/GRError.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -This class provides consistent initialization and exception signaling behaviour across platforms. All platforms must provide the ANSI-standard signaling protocol on this class. #signal: can therefore be safely called on any subclass. - -Packages that are using Seaside-Platform should usually subclass GRError instead of Error. \ No newline at end of file diff --git a/repository/Grease-Core.package/GRError.class/properties.json b/repository/Grease-Core.package/GRError.class/properties.json deleted file mode 100644 index 2bc08ff7..00000000 --- a/repository/Grease-Core.package/GRError.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 9/14/2013 15:50", - "super" : "Error", - "category" : "Grease-Core-Exceptions", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRError", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRInflector.class/README.md b/repository/Grease-Core.package/GRInflector.class/README.md deleted file mode 100644 index c615dde6..00000000 --- a/repository/Grease-Core.package/GRInflector.class/README.md +++ /dev/null @@ -1 +0,0 @@ -The Inflector transforms words from singular to plural. \ No newline at end of file diff --git a/repository/Grease-Core.package/GRInflector.class/class/initialize.st b/repository/Grease-Core.package/GRInflector.class/class/initialize.st deleted file mode 100644 index ea3fbcfd..00000000 --- a/repository/Grease-Core.package/GRInflector.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initialize - Uninflected := #('bison' 'bream' 'breeches' 'britches' 'carp' 'chassis' 'clippers' 'cod' 'contretemps' 'corps' 'debris' 'deer' 'diabetes' 'djinn' 'eland' 'elk' 'equipment' 'fish' 'flounder' 'gallows' 'graffiti' 'headquarters' 'herpes' 'high-jinks' 'homework' 'information' 'innings' 'ities' 'itis' 'jackanapes' 'mackerel' 'measles' 'mews' 'money' 'mumps' 'news' 'ois' 'pincers' 'pliers' 'pox' 'proceedings' 'rabies' 'rice' 'salmon' 'scissors' 'sea-bass' 'series' 'shears' 'sheep' 'species' 'swine' 'trout' 'tuna' 'whiting' 'wildebeest'). - InflectionRules := #(('man' 'en' 2) ('child' 'ren' 0) ('cow' 'kine' 3) ('penis' 'es' 0) ('sex' 'es' 0) ('person' 'ople' 4) ('octopus' 'es' 0) ('quiz' 'zes' 0) ('ox' 'en' 0) ('louse' 'ice' 4) ('mouse' 'ice' 4) ('matrix' 'ices' 2) ('vertix' 'ices' 2) ('vertex' 'ices' 2) ('indix' 'ices' 2) ('index' 'ices' 2) ('x' 'es' 0) ('ch' 'es' 0) ('ss' 'es' 0) ('sh' 'es' 0) ('ay' 's' 0) ('ey' 's' 0) ('iy' 's' 0) ('oy' 's' 0) ('uy' 's' 0) ('y' 'ies' 1) ('alf' 'ves' 1) ('elf' 'ves' 1) ('olf' 'ves' 1) ('arf' 'ves' 1) ('nife' 'ves' 2) ('life' 'ves' 2) ('wife' 'ves' 2) ('sis' 'es' 2) ('tum' 'a' 2) ('ium' 'a' 2) ('buffalo' 'es' 0) ('tomato' 'es' 0) ('buffalo' 'es' 0) ('bus' 'es' 0) ('alias' 'es' 0) ('status' 'es' 0) ('octopus' 'i' 2) ('virus' 'i' 2) ('axis' 'es' 2) ('s' '' 0)) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRInflector.class/class/pluralize..st b/repository/Grease-Core.package/GRInflector.class/class/pluralize..st deleted file mode 100644 index 6f34d7e9..00000000 --- a/repository/Grease-Core.package/GRInflector.class/class/pluralize..st +++ /dev/null @@ -1,11 +0,0 @@ -accessing -pluralize: aString - | string | - string := aString asLowercase. - Uninflected do: [ :each | - (string endsWithSubCollection: each) - ifTrue: [ ^ aString ] ]. - InflectionRules do: [ :rule | - (string endsWithSubCollection: rule first) - ifTrue: [ ^ (aString allButLast: rule third) , rule second ] ]. - ^ aString , 's' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRInflector.class/properties.json b/repository/Grease-Core.package/GRInflector.class/properties.json deleted file mode 100644 index d71052cf..00000000 --- a/repository/Grease-Core.package/GRInflector.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "lr 12/27/2008 09:43", - "super" : "GRObject", - "category" : "Grease-Core-Text", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "InflectionRules", - "Uninflected" - ], - "instvars" : [ ], - "name" : "GRInflector", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRInvalidArgumentCount.class/README.md b/repository/Grease-Core.package/GRInvalidArgumentCount.class/README.md deleted file mode 100644 index a3d26e12..00000000 --- a/repository/Grease-Core.package/GRInvalidArgumentCount.class/README.md +++ /dev/null @@ -1 +0,0 @@ -Signaled whenever a message is sent with the incorrect number of arguments. \ No newline at end of file diff --git a/repository/Grease-Core.package/GRInvalidArgumentCount.class/properties.json b/repository/Grease-Core.package/GRInvalidArgumentCount.class/properties.json deleted file mode 100644 index 8704ce3f..00000000 --- a/repository/Grease-Core.package/GRInvalidArgumentCount.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "jf 3/14/2009 11:05", - "super" : "GRError", - "category" : "Grease-Core-Utilities", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRInvalidArgumentCount", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRInvalidUtf8Error.class/README.md b/repository/Grease-Core.package/GRInvalidUtf8Error.class/README.md deleted file mode 100644 index dabb458d..00000000 --- a/repository/Grease-Core.package/GRInvalidUtf8Error.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WAInvalidUtf8Error signals that the input is not valid UTF-8. diff --git a/repository/Grease-Core.package/GRInvalidUtf8Error.class/properties.json b/repository/Grease-Core.package/GRInvalidUtf8Error.class/properties.json deleted file mode 100644 index 3b9f7552..00000000 --- a/repository/Grease-Core.package/GRInvalidUtf8Error.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 1/10/2009 22:29", - "super" : "GRError", - "category" : "Grease-Core-Text", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRInvalidUtf8Error", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRMappedPrinter.class/README.md b/repository/Grease-Core.package/GRMappedPrinter.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Core.package/GRMappedPrinter.class/class/block.next..st b/repository/Grease-Core.package/GRMappedPrinter.class/class/block.next..st deleted file mode 100644 index 0e7ba6d2..00000000 --- a/repository/Grease-Core.package/GRMappedPrinter.class/class/block.next..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -block: aBlock next: aPrinter - ^ self new - block: aBlock; - next: aPrinter; - yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRMappedPrinter.class/instance/block..st b/repository/Grease-Core.package/GRMappedPrinter.class/instance/block..st deleted file mode 100644 index 9f199772..00000000 --- a/repository/Grease-Core.package/GRMappedPrinter.class/instance/block..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -block: aBlock - block := aBlock \ No newline at end of file diff --git a/repository/Grease-Core.package/GRMappedPrinter.class/instance/initialize.st b/repository/Grease-Core.package/GRMappedPrinter.class/instance/initialize.st deleted file mode 100644 index 78af509c..00000000 --- a/repository/Grease-Core.package/GRMappedPrinter.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initialize - super initialize. - self block: [ :value | value ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRMappedPrinter.class/instance/next..st b/repository/Grease-Core.package/GRMappedPrinter.class/instance/next..st deleted file mode 100644 index e0820d7a..00000000 --- a/repository/Grease-Core.package/GRMappedPrinter.class/instance/next..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -next: aPrinter - next := aPrinter \ No newline at end of file diff --git a/repository/Grease-Core.package/GRMappedPrinter.class/instance/print.on..st b/repository/Grease-Core.package/GRMappedPrinter.class/instance/print.on..st deleted file mode 100644 index 475d04aa..00000000 --- a/repository/Grease-Core.package/GRMappedPrinter.class/instance/print.on..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -print: anObject on: aStream - next print: (block value: anObject) on: aStream \ No newline at end of file diff --git a/repository/Grease-Core.package/GRMappedPrinter.class/properties.json b/repository/Grease-Core.package/GRMappedPrinter.class/properties.json deleted file mode 100644 index 8d00da71..00000000 --- a/repository/Grease-Core.package/GRMappedPrinter.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRPrinter", - "category" : "Grease-Core-Text", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "next", - "block" - ], - "name" : "GRMappedPrinter", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNotification.class/README.md b/repository/Grease-Core.package/GRNotification.class/README.md deleted file mode 100644 index 34c232a4..00000000 --- a/repository/Grease-Core.package/GRNotification.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -This class provides consistent initialization and exception signaling behaviour across platforms. All platforms must provide the ANSI-standard signaling protocol on this class. #signal: can therefore be safely called on any subclass. - -Packages that are using Seaside-Platform should usually subclass GRNotification instead of Notification. \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNotification.class/properties.json b/repository/Grease-Core.package/GRNotification.class/properties.json deleted file mode 100644 index 9343c7c2..00000000 --- a/repository/Grease-Core.package/GRNotification.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 9/14/2013 15:50", - "super" : "Notification", - "category" : "Grease-Core-Exceptions", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRNotification", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/README.md b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/README.md deleted file mode 100644 index b4e8afc4..00000000 --- a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -An implementation of a dynamic varaible based on notifications. - -Dialects that do not support dynamic variables or thread/process local variables can create an empty subclass of this class called GRDynamicVariable. \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/defaultValue.st b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/defaultValue.st deleted file mode 100644 index 3d7f6377..00000000 --- a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/defaultValue.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultValue - ^ nil \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/use.during..st b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/use.during..st deleted file mode 100644 index ba04b46e..00000000 --- a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/use.during..st +++ /dev/null @@ -1,5 +0,0 @@ -evaluating -use: anObject during: aBlock - "Set the dynamic value of the receiver to anObject during the evaluation of aBlock." - - ^ aBlock on: self do: [ :notification | notification resume: anObject ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/value.st b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/value.st deleted file mode 100644 index bedb8f2b..00000000 --- a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/value.st +++ /dev/null @@ -1,5 +0,0 @@ -evaluating -value - "Answer the dynamic value of the receiver." - - ^ self signal \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/instance/defaultAction.st b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/instance/defaultAction.st deleted file mode 100644 index 75d7e9c2..00000000 --- a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/instance/defaultAction.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultAction - ^ self class defaultValue \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/properties.json b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/properties.json deleted file mode 100644 index ae53018e..00000000 --- a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 9/5/2017 14:34", - "super" : "GRNotification", - "category" : "Grease-Core-Utilities", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRNotificationBasedDynamicVariable", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodec.class/README.md b/repository/Grease-Core.package/GRNullCodec.class/README.md deleted file mode 100644 index 506ea0e8..00000000 --- a/repository/Grease-Core.package/GRNullCodec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -The null codec always returns the original streams. It assumes that the outside world uses the same encoding as the inside world. This is highly efficient as no transformation is applied to the data, but has its drawbacks. \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodec.class/class/basicForEncoding..st b/repository/Grease-Core.package/GRNullCodec.class/class/basicForEncoding..st deleted file mode 100644 index d4c4a74b..00000000 --- a/repository/Grease-Core.package/GRNullCodec.class/class/basicForEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -private -basicForEncoding: aString - ^ self new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodec.class/class/codecName.st b/repository/Grease-Core.package/GRNullCodec.class/class/codecName.st deleted file mode 100644 index 53593cf5..00000000 --- a/repository/Grease-Core.package/GRNullCodec.class/class/codecName.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecName - ^ '(none)' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodec.class/class/codecs.st b/repository/Grease-Core.package/GRNullCodec.class/class/codecs.st deleted file mode 100644 index 632b84fb..00000000 --- a/repository/Grease-Core.package/GRNullCodec.class/class/codecs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecs - ^ Array with: self new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodec.class/class/supportsEncoding..st b/repository/Grease-Core.package/GRNullCodec.class/class/supportsEncoding..st deleted file mode 100644 index 2521df80..00000000 --- a/repository/Grease-Core.package/GRNullCodec.class/class/supportsEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -supportsEncoding: aString - ^ aString isNil \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodec.class/instance/decode..st b/repository/Grease-Core.package/GRNullCodec.class/instance/decode..st deleted file mode 100644 index d561d713..00000000 --- a/repository/Grease-Core.package/GRNullCodec.class/instance/decode..st +++ /dev/null @@ -1,5 +0,0 @@ -convenience -decode: aString - "Overridden for efficiency." - - ^ aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodec.class/instance/decoderFor..st b/repository/Grease-Core.package/GRNullCodec.class/instance/decoderFor..st deleted file mode 100644 index d855375c..00000000 --- a/repository/Grease-Core.package/GRNullCodec.class/instance/decoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -decoderFor: aReadStream - "wrap to avoid String vs ByteArray issues" - ^ GRNullCodecStream on: aReadStream \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodec.class/instance/encode..st b/repository/Grease-Core.package/GRNullCodec.class/instance/encode..st deleted file mode 100644 index 8e11828d..00000000 --- a/repository/Grease-Core.package/GRNullCodec.class/instance/encode..st +++ /dev/null @@ -1,5 +0,0 @@ -convenience -encode: aString - "Overridden for efficiency." - - ^ aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodec.class/instance/encoderFor..st b/repository/Grease-Core.package/GRNullCodec.class/instance/encoderFor..st deleted file mode 100644 index fcab009a..00000000 --- a/repository/Grease-Core.package/GRNullCodec.class/instance/encoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -encoderFor: aWriteStream - "wrap to avoid String vs ByteArray issues" - ^ GRNullCodecStream on: aWriteStream \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodec.class/instance/name.st b/repository/Grease-Core.package/GRNullCodec.class/instance/name.st deleted file mode 100644 index c5072c35..00000000 --- a/repository/Grease-Core.package/GRNullCodec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ GRNullCodec codecName \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodec.class/instance/url.st b/repository/Grease-Core.package/GRNullCodec.class/instance/url.st deleted file mode 100644 index f26d9994..00000000 --- a/repository/Grease-Core.package/GRNullCodec.class/instance/url.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -url - "The selfish method. Let's do it with ourselves." - - ^ self \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodec.class/properties.json b/repository/Grease-Core.package/GRNullCodec.class/properties.json deleted file mode 100644 index 508887e5..00000000 --- a/repository/Grease-Core.package/GRNullCodec.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 9/14/2013 15:52", - "super" : "GRCodec", - "category" : "Grease-Core-Text", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRNullCodec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodecStream.class/README.md b/repository/Grease-Core.package/GRNullCodecStream.class/README.md deleted file mode 100644 index 5c840dee..00000000 --- a/repository/Grease-Core.package/GRNullCodecStream.class/README.md +++ /dev/null @@ -1,7 +0,0 @@ -A WANullCodecStream is a WriteStream on a String on which you can both put binary and character data without encoding happening. - -Instance Variables - stream: - -stream - - a WriteStream on a String diff --git a/repository/Grease-Core.package/GRNullCodecStream.class/instance/next..st b/repository/Grease-Core.package/GRNullCodecStream.class/instance/next..st deleted file mode 100644 index a662a075..00000000 --- a/repository/Grease-Core.package/GRNullCodecStream.class/instance/next..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next: anInteger - ^ stream next: anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodecStream.class/instance/next.st b/repository/Grease-Core.package/GRNullCodecStream.class/instance/next.st deleted file mode 100644 index 1e9deca8..00000000 --- a/repository/Grease-Core.package/GRNullCodecStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - ^ stream next \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodecStream.class/instance/nextPut..st b/repository/Grease-Core.package/GRNullCodecStream.class/instance/nextPut..st deleted file mode 100644 index c835adaf..00000000 --- a/repository/Grease-Core.package/GRNullCodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -nextPut: aCharacterOrByte - aCharacterOrByte isCharacter - ifTrue: [ stream nextPut: aCharacterOrByte ] - ifFalse: [ stream nextPut: (Character codePoint: aCharacterOrByte) ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodecStream.class/instance/nextPutAll..st b/repository/Grease-Core.package/GRNullCodecStream.class/instance/nextPutAll..st deleted file mode 100644 index d7049d6a..00000000 --- a/repository/Grease-Core.package/GRNullCodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,7 +0,0 @@ -streaming -nextPutAll: aStringOrByteArray - aStringOrByteArray isString - ifTrue: [ stream nextPutAll: aStringOrByteArray ] - ifFalse: [ - 1 to: aStringOrByteArray size do: [ :index | - stream nextPut: (Character codePoint: (aStringOrByteArray at: index)) ] ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNullCodecStream.class/properties.json b/repository/Grease-Core.package/GRNullCodecStream.class/properties.json deleted file mode 100644 index c13ef53c..00000000 --- a/repository/Grease-Core.package/GRNullCodecStream.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 2/20/2009 21:59", - "super" : "GRCodecStream", - "category" : "Grease-Core-Text", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRNullCodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/README.md b/repository/Grease-Core.package/GRNumberPrinter.class/README.md deleted file mode 100644 index b13dcf65..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/README.md +++ /dev/null @@ -1,12 +0,0 @@ -A GRNumberPrinter prints numbers (integers and floats) in various formats in a platform independent way. - -Instance Variables - accuracy: - base: - delimiter: - digits: - infinite: - nan: - padding: - precision: - separator: \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/class/initialize.st b/repository/Grease-Core.package/GRNumberPrinter.class/class/initialize.st deleted file mode 100644 index 47dc6233..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initialize - NumbersToCharactersLowercase := '0123456789abcdefghijklmnopqrstuvwxyz'. - NumbersToCharactersUppercase := '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/accuracy..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/accuracy..st deleted file mode 100644 index 6e122a37..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/accuracy..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -accuracy: aFloat - "Round towards the nearest number that is a multiple of aFloat." - - accuracy := aFloat \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/base..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/base..st deleted file mode 100644 index 4f187cf5..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/base..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -base: anInteger - "The numeric base to which the number should be printed." - - base := anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/characters..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/characters..st deleted file mode 100644 index a25d5c5a..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/characters..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -characters: aString - "The characters to be used to convert a number to a string." - - characters := aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/delimiter..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/delimiter..st deleted file mode 100644 index c416e10b..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/delimiter..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -delimiter: aCharacter - "The delimiter to separate the integer and fraction part of the number." - - delimiter := aCharacter \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/digits..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/digits..st deleted file mode 100644 index 4218a7c6..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/digits..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -digits: anInteger - "The number of digits to be printed in the integer part." - - digits := anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/digitsOf.base..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/digitsOf.base..st deleted file mode 100644 index 47e728a3..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/digitsOf.base..st +++ /dev/null @@ -1,14 +0,0 @@ -utilities -digitsOf: aNumber base: aBaseInteger - "Answer the absolute digits of aNumber in the base aBaseInteger." - - | integer stream next | - integer := aNumber truncated abs. - integer = 0 ifTrue: [ ^ '0' ]. - stream := WriteStream on: (String new: 10). - [ integer > 0 ] whileTrue: [ - next := integer quo: aBaseInteger. - stream nextPut: (characters - at: 1 + integer - (next * aBaseInteger)). - integer := next ]. - ^ stream contents reverse \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/infinite..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/infinite..st deleted file mode 100644 index ed18785f..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/infinite..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -infinite: aString - "The string that should be displayed if the number is positive or negative infinity." - - infinite := aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/initialize.st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/initialize.st deleted file mode 100644 index 4d84f731..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/initialize.st +++ /dev/null @@ -1,10 +0,0 @@ -initialization -initialize - super initialize. - self lowercase. - self base: 10. - self delimiter: $.. - self infinite: 'Infinite'. - self nan: 'NaN'. - self padding: $ . - self precision: 0 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/lengthOf.base..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/lengthOf.base..st deleted file mode 100644 index 62f6b34d..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/lengthOf.base..st +++ /dev/null @@ -1,13 +0,0 @@ -utilities -lengthOf: aNumber base: aBaseInteger - "Answer the number of digits of aNumber in the base aBaseInteger. - Same as #decimalDigitLength" - - | integer current length | - integer := aNumber truncated abs. - length := 1. - current := aBaseInteger. - [ current <= integer ] whileTrue: [ - length := length + 1. - current := current * aBaseInteger ]. - ^ length \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/lowercase.st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/lowercase.st deleted file mode 100644 index 0d329d90..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/lowercase.st +++ /dev/null @@ -1,5 +0,0 @@ -actions -lowercase - "Use lowercase characters for numbers of base 10 and higher." - - self characters: NumbersToCharactersLowercase \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/nan..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/nan..st deleted file mode 100644 index 8451e143..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/nan..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -nan: aString - "The string that should be displayed if the number is not a number." - - nan := aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/padLeft.to.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/padLeft.to.on..st deleted file mode 100644 index 84e92aa2..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/padLeft.to.on..st +++ /dev/null @@ -1,9 +0,0 @@ -utilities -padLeft: aCharacter to: aPadCountInteger on: aStream - "Pad to the left side of aString with aCharacter to at anInteger characters." - - 1 to: aPadCountInteger do: [ :index | - separator isNil ifFalse: [ - (index ~= 1 and: [ (digits - index) \\ 3 = 2 ]) - ifTrue: [ aStream nextPut: separator ] ]. - aStream nextPut: aCharacter ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/padding..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/padding..st deleted file mode 100644 index 018cd4ac..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/padding..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -padding: aCharacter - "The padding for the integer part." - - padding := aCharacter \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/precision..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/precision..st deleted file mode 100644 index 6db5d820..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/precision..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -precision: anInteger - "The number of digits to be printed in the fraction part." - - precision := anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/print.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/print.on..st deleted file mode 100644 index 67dd487b..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/print.on..st +++ /dev/null @@ -1,9 +0,0 @@ -printing -print: aNumber on: aStream - aNumber isNaN - ifTrue: [ ^ self printNaN: aNumber on: aStream ]. - aNumber isInfinite - ifTrue: [ ^ self printInfinite: aNumber on: aStream ]. - precision = 0 - ifTrue: [ self printInteger: aNumber on: aStream ] - ifFalse: [ self printFloat: aNumber on: aStream ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printDigitsOf.withLength.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/printDigitsOf.withLength.on..st deleted file mode 100644 index 7b24a6aa..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printDigitsOf.withLength.on..st +++ /dev/null @@ -1,16 +0,0 @@ -utilities -printDigitsOf: aNumber withLength: aLengthInteger on: aStream - "Print the digits of aNumber with a lenght of aLengthInteger on aStream. - Also print a separator if required." - - | rest | - rest := aNumber truncated abs. - 1 to: aLengthInteger do: [ :index | - | divisor current | - divisor := base raisedTo: aLengthInteger - index. - current := rest // divisor. - separator isNil ifFalse: [ - (index ~= 1 and: [ (aLengthInteger - index) \\ 3 = 2 ]) - ifTrue: [ aStream nextPut: separator ] ]. - aStream nextPut: (characters at: current + 1). - rest := rest - (divisor * current) ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printFloat.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/printFloat.on..st deleted file mode 100644 index b656d18c..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printFloat.on..st +++ /dev/null @@ -1,9 +0,0 @@ -printing -printFloat: aNumber on: aStream - | multiplier rounded | - multiplier := base raisedTo: precision. - rounded := aNumber roundTo: (accuracy ifNil: [ multiplier reciprocal ]). - self printInteger: rounded on: aStream. - delimiter isNil - ifFalse: [ aStream nextPut: delimiter ]. - self printFraction: rounded fractionPart abs * multiplier on: aStream \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printFraction.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/printFraction.on..st deleted file mode 100644 index dab2293c..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printFraction.on..st +++ /dev/null @@ -1,9 +0,0 @@ -printing -printFraction: aNumber on: aStream - | result | - result := self - pad: (self digitsOf: aNumber rounded base: base) - left: $0 to: precision. - separator isNil - ifTrue: [ aStream nextPutAll: result ] - ifFalse: [ self separate: result left: separator on: aStream ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printInfinite.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/printInfinite.on..st deleted file mode 100644 index c4eccf76..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printInfinite.on..st +++ /dev/null @@ -1,4 +0,0 @@ -printing -printInfinite: aNumber on: aStream - infinite isNil - ifFalse: [ aStream nextPutAll: infinite ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printInteger.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/printInteger.on..st deleted file mode 100644 index 0442220e..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printInteger.on..st +++ /dev/null @@ -1,9 +0,0 @@ -printing -printInteger: aNumber on: aStream - | length | - length := self lengthOf: aNumber base: base. - - (digits notNil and: [ padding notNil ]) - ifTrue: [ self padLeft: padding to: (digits - length) on: aStream ]. - - self printDigitsOf: aNumber withLength: length on: aStream \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printNaN.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/printNaN.on..st deleted file mode 100644 index ecc4e945..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/printNaN.on..st +++ /dev/null @@ -1,4 +0,0 @@ -printing -printNaN: anInteger on: aStream - nan isNil - ifFalse: [ aStream nextPutAll: nan ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.left.on..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.left.on..st deleted file mode 100644 index 574c0646..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.left.on..st +++ /dev/null @@ -1,10 +0,0 @@ -utilities -separate: aString left: aCharacter on: aStream - "Separate from the left side every 3 characters with aCharacter." - - | size | - size := aString size. - 1 to: size do: [ :index | - (index ~= 1 and: [ index \\ 3 = 1 ]) - ifTrue: [ aStream nextPut: aCharacter ]. - aStream nextPut: (aString at: index) ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.right..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.right..st deleted file mode 100644 index e0daa4b1..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/separate.right..st +++ /dev/null @@ -1,12 +0,0 @@ -utilities -separate: aString right: aCharacter - "Separate from the right side every 3 characters with aCharacter." - - | size stream | - size := aString size. - stream := WriteStream on: (String new: 2 * size). - 1 to: size do: [ :index | - (index ~= 1 and: [ size - index \\ 3 = 2 ]) - ifTrue: [ stream nextPut: aCharacter ]. - stream nextPut: (aString at: index) ]. - ^ stream contents \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/separator..st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/separator..st deleted file mode 100644 index 9bafe0d7..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/separator..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -separator: aCharacter - "Separator character to be used to group digits." - - separator := aCharacter \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/instance/uppercase.st b/repository/Grease-Core.package/GRNumberPrinter.class/instance/uppercase.st deleted file mode 100644 index 1ba88490..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/instance/uppercase.st +++ /dev/null @@ -1,5 +0,0 @@ -actions -uppercase - "Use uppercase characters for numbers of base 10 and higher." - - self characters: NumbersToCharactersUppercase \ No newline at end of file diff --git a/repository/Grease-Core.package/GRNumberPrinter.class/properties.json b/repository/Grease-Core.package/GRNumberPrinter.class/properties.json deleted file mode 100644 index a3ea64f8..00000000 --- a/repository/Grease-Core.package/GRNumberPrinter.class/properties.json +++ /dev/null @@ -1,25 +0,0 @@ -{ - "commentStamp" : "pmm 2/1/2014 13:27", - "super" : "GRPrinter", - "category" : "Grease-Core-Text", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "NumbersToCharactersLowercase", - "NumbersToCharactersUppercase" - ], - "instvars" : [ - "characters", - "base", - "delimiter", - "digits", - "infinite", - "nan", - "padding", - "accuracy", - "precision", - "separator" - ], - "name" : "GRNumberPrinter", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRObject.class/README.md b/repository/Grease-Core.package/GRObject.class/README.md deleted file mode 100644 index 79741234..00000000 --- a/repository/Grease-Core.package/GRObject.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -A common superclass that ensures consistent initialization behaviour on all platforms and provides #error: methods that signal an instance of WAPlatformError. - -Packages that are using Seaside-Platform should normally subclass GRObject instead of Object. \ No newline at end of file diff --git a/repository/Grease-Core.package/GRObject.class/class/defaultErrorClass.st b/repository/Grease-Core.package/GRObject.class/class/defaultErrorClass.st deleted file mode 100644 index c7a69431..00000000 --- a/repository/Grease-Core.package/GRObject.class/class/defaultErrorClass.st +++ /dev/null @@ -1,3 +0,0 @@ -error handling -defaultErrorClass - ^ GRError \ No newline at end of file diff --git a/repository/Grease-Core.package/GRObject.class/class/error..st b/repository/Grease-Core.package/GRObject.class/class/error..st deleted file mode 100644 index 284fb3be..00000000 --- a/repository/Grease-Core.package/GRObject.class/class/error..st +++ /dev/null @@ -1,3 +0,0 @@ -error handling -error: aString - ^ self defaultErrorClass signal: aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRObject.class/class/new.st b/repository/Grease-Core.package/GRObject.class/class/new.st deleted file mode 100644 index b79d1792..00000000 --- a/repository/Grease-Core.package/GRObject.class/class/new.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -new - ^ self basicNew initialize \ No newline at end of file diff --git a/repository/Grease-Core.package/GRObject.class/instance/error..st b/repository/Grease-Core.package/GRObject.class/instance/error..st deleted file mode 100644 index 4041bbc1..00000000 --- a/repository/Grease-Core.package/GRObject.class/instance/error..st +++ /dev/null @@ -1,3 +0,0 @@ -error handling -error: aString - ^ self class error: aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRObject.class/instance/initialize.st b/repository/Grease-Core.package/GRObject.class/instance/initialize.st deleted file mode 100644 index 20bc4027..00000000 --- a/repository/Grease-Core.package/GRObject.class/instance/initialize.st +++ /dev/null @@ -1,2 +0,0 @@ -initialization -initialize \ No newline at end of file diff --git a/repository/Grease-Core.package/GRObject.class/properties.json b/repository/Grease-Core.package/GRObject.class/properties.json deleted file mode 100644 index aae31ac4..00000000 --- a/repository/Grease-Core.package/GRObject.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 9/14/2013 15:52", - "super" : "Object", - "category" : "Grease-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRObject", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap.class/README.md b/repository/Grease-Core.package/GROrderedMultiMap.class/README.md deleted file mode 100644 index ced4b383..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am an implementation of an ordered multi-map. I allow multiple values to be associated with the same key and maintain the order of addition. #at: and its derivatives all operate on the first matching key, while #allAt: returns the complete list of values for a key in the order they were added. \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/add..st b/repository/Grease-Core.package/GROrderedMultiMap.class/instance/add..st deleted file mode 100644 index 475c5952..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/add..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -add: anAssociation - self privateAt: anAssociation key put: anAssociation value. - ^ anAssociation \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/addAll..st b/repository/Grease-Core.package/GROrderedMultiMap.class/instance/addAll..st deleted file mode 100644 index c865b67f..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/addAll..st +++ /dev/null @@ -1,6 +0,0 @@ -adding -"protocol: adding" -addAll: aDictionary - aDictionary keysAndValuesDo: [ :key :value | - self privateAt: key put: value ]. - ^ aDictionary \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/allAt..st b/repository/Grease-Core.package/GROrderedMultiMap.class/instance/allAt..st deleted file mode 100644 index f0d803b4..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/allAt..st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -allAt: aKey - ^ Array streamContents: [ :stream | - 1 to: size do: [ :index | - (keys at: index) = aKey - ifTrue: [ stream nextPut: (values at: index) ] ] ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/allAt.ifAbsent..st b/repository/Grease-Core.package/GROrderedMultiMap.class/instance/allAt.ifAbsent..st deleted file mode 100644 index 8fa2ea0e..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/allAt.ifAbsent..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -allAt: aKey ifAbsent: absentBlock - | results | - results := self allAt: aKey. - ^ results isEmpty - ifTrue: [ absentBlock value ] - ifFalse: [ results ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/at.add..st b/repository/Grease-Core.package/GROrderedMultiMap.class/instance/at.add..st deleted file mode 100644 index 02112e49..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/at.add..st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -at: aKey add: aValue - "Add an association between aKey and aValue. Do not replace existing - values with the same key." - - ^ self privateAt: aKey put: aValue \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/keysAndAllValuesDo..st b/repository/Grease-Core.package/GROrderedMultiMap.class/instance/keysAndAllValuesDo..st deleted file mode 100644 index bba36c9d..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/keysAndAllValuesDo..st +++ /dev/null @@ -1,12 +0,0 @@ -enumerating -keysAndAllValuesDo: aTwoArgumentBlock - | seenKeys | - seenKeys := GRSmallOrderedSet new. - 1 to: size do: [ :index | - | key | - key := keys at: index. - (seenKeys includes: key) ifFalse: [ - aTwoArgumentBlock - value: key - value: (self privateAllAt: key startingAt: index). - seenKeys add: key ] ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/privateAllAt.startingAt..st b/repository/Grease-Core.package/GROrderedMultiMap.class/instance/privateAllAt.startingAt..st deleted file mode 100644 index 86228ff6..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/privateAllAt.startingAt..st +++ /dev/null @@ -1,6 +0,0 @@ -private -privateAllAt: aKey startingAt: aStartInteger - ^ Array new: 2 streamContents: [ :stream | - aStartInteger to: size do: [ :index | - (keys at: index) = aKey - ifTrue: [ stream nextPut: (values at: index) ] ] ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/removeKey.ifAbsent..st b/repository/Grease-Core.package/GROrderedMultiMap.class/instance/removeKey.ifAbsent..st deleted file mode 100644 index 4768961a..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap.class/instance/removeKey.ifAbsent..st +++ /dev/null @@ -1,13 +0,0 @@ -accessing -removeKey: aKey ifAbsent: aBlock - "Remove aKey from the receiver, evaluate aBlock if the element is missing." - - "This is inefficient and could be optimized." - | removed | - removed := Array new: 2 streamContents: [ :stream | - | index | - [ (index := self findIndexFor: aKey) = 0 ] whileFalse: [ - stream nextPut: (self removeIndex: index) ] ]. - ^ removed isEmpty - ifTrue: [ aBlock value ] - ifFalse: [ removed ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap.class/properties.json b/repository/Grease-Core.package/GROrderedMultiMap.class/properties.json deleted file mode 100644 index 81f5ae5d..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "jf 2/15/2010 16:04", - "super" : "GRSmallDictionary", - "category" : "Grease-Core-Collections", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GROrderedMultiMap", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap2.class/README.md b/repository/Grease-Core.package/GROrderedMultiMap2.class/README.md deleted file mode 100644 index ced4b383..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap2.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am an implementation of an ordered multi-map. I allow multiple values to be associated with the same key and maintain the order of addition. #at: and its derivatives all operate on the first matching key, while #allAt: returns the complete list of values for a key in the order they were added. \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/add..st b/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/add..st deleted file mode 100644 index 1960e4e7..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/add..st +++ /dev/null @@ -1,4 +0,0 @@ -adding -add: anAssociation - self privateAt: anAssociation key put: anAssociation value. - ^ anAssociation \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/addAll..st b/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/addAll..st deleted file mode 100644 index 1e47cd76..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/addAll..st +++ /dev/null @@ -1,5 +0,0 @@ -adding -addAll: aDictionary - aDictionary keysAndValuesDo: [ :key :value | - self privateAt: key put: value ]. - ^ aDictionary \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/allAt..st b/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/allAt..st deleted file mode 100644 index 3a9b82fc..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/allAt..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -allAt: aKey - ^ self privateAllAt: aKey startingAt: 1 \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/allAt.ifAbsent..st b/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/allAt.ifAbsent..st deleted file mode 100644 index 8fa2ea0e..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/allAt.ifAbsent..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -allAt: aKey ifAbsent: absentBlock - | results | - results := self allAt: aKey. - ^ results isEmpty - ifTrue: [ absentBlock value ] - ifFalse: [ results ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/at.add..st b/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/at.add..st deleted file mode 100644 index a8f957ab..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/at.add..st +++ /dev/null @@ -1,6 +0,0 @@ -adding -at: aKey add: aValue - "Add an association between aKey and aValue. Do not replace existing - values with the same key." - - ^ self privateAt: aKey put: aValue \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/keysAndAllValuesDo..st b/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/keysAndAllValuesDo..st deleted file mode 100644 index 7bc75341..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/keysAndAllValuesDo..st +++ /dev/null @@ -1,12 +0,0 @@ -enumerating -keysAndAllValuesDo: aTwoArgumentBlock - | seenKeys | - seenKeys := GRSmallOrderedSet new. - 1 to: size * 2 - 1 by: 2 do: [ :index | - | key | - key := table at: index. - (seenKeys includes: key) ifFalse: [ - aTwoArgumentBlock - value: key - value: (self privateAllAt: key startingAt: index). - seenKeys add: key ] ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/privateAllAt.startingAt..st b/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/privateAllAt.startingAt..st deleted file mode 100644 index fa5b4251..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/privateAllAt.startingAt..st +++ /dev/null @@ -1,6 +0,0 @@ -private -privateAllAt: aKey startingAt: index - ^ Array new: 2 streamContents: [ :stream | - index to: size * 2 - 1 by: 2 do: [ :i | - (table at: i) = aKey - ifTrue: [ stream nextPut: (table at: i + 1) ] ] ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/removeKey.ifAbsent..st b/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/removeKey.ifAbsent..st deleted file mode 100644 index 421590f8..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap2.class/instance/removeKey.ifAbsent..st +++ /dev/null @@ -1,13 +0,0 @@ -removing -removeKey: aKey ifAbsent: aBlock - "Remove aKey from the receiver, evaluate aBlock if the element is missing." - - "This is inefficient and could be optimized." - | removed | - removed := Array new: 2 streamContents: [ :stream | - | index | - [ (index := self findIndexFor: aKey) = 0 ] whileFalse: [ - stream nextPut: (self removeIndex: index) ] ]. - ^ removed isEmpty - ifTrue: [ aBlock value ] - ifFalse: [ removed ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrderedMultiMap2.class/properties.json b/repository/Grease-Core.package/GROrderedMultiMap2.class/properties.json deleted file mode 100644 index b4aecc33..00000000 --- a/repository/Grease-Core.package/GROrderedMultiMap2.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "jf 2/15/2010 16:04", - "super" : "GRSmallDictionary2", - "category" : "Grease-Core-Collections", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GROrderedMultiMap2", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrdinalizePrinter.class/README.md b/repository/Grease-Core.package/GROrdinalizePrinter.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Core.package/GROrdinalizePrinter.class/instance/ordinalize..st b/repository/Grease-Core.package/GROrdinalizePrinter.class/instance/ordinalize..st deleted file mode 100644 index b54bad3d..00000000 --- a/repository/Grease-Core.package/GROrdinalizePrinter.class/instance/ordinalize..st +++ /dev/null @@ -1,8 +0,0 @@ -private -ordinalize: anInteger - ^ (anInteger \\ 100 between: 11 and: 13) - ifTrue: [ 'th' ] - ifFalse: [ - #('st' 'nd' 'rd') - at: anInteger \\ 10 - ifAbsent: [ 'th' ] ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrdinalizePrinter.class/instance/print.on..st b/repository/Grease-Core.package/GROrdinalizePrinter.class/instance/print.on..st deleted file mode 100644 index 71578cf9..00000000 --- a/repository/Grease-Core.package/GROrdinalizePrinter.class/instance/print.on..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -print: anObject on: aStream - aStream nextPutAll: (self ordinalize: anObject integerPart) \ No newline at end of file diff --git a/repository/Grease-Core.package/GROrdinalizePrinter.class/properties.json b/repository/Grease-Core.package/GROrdinalizePrinter.class/properties.json deleted file mode 100644 index 76be2fb0..00000000 --- a/repository/Grease-Core.package/GROrdinalizePrinter.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRPrinter", - "category" : "Grease-Core-Text", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GROrdinalizePrinter", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/README.md b/repository/Grease-Core.package/GRPackage.class/README.md deleted file mode 100644 index 1594cde8..00000000 --- a/repository/Grease-Core.package/GRPackage.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -I am a platform independent package representation. I know my name, description, my dependencies, the license and the repository URL. Packages are declared by creating a class side extension method that answers a configured package instance. The expression - - GRPackage packages - -answers the collection of the complete package graph. \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/class/grPackages.st b/repository/Grease-Core.package/GRPackage.class/class/grPackages.st deleted file mode 100644 index b225b989..00000000 --- a/repository/Grease-Core.package/GRPackage.class/class/grPackages.st +++ /dev/null @@ -1,12 +0,0 @@ -querying -grPackages - "Answer a list of all registered packages. A package is registered by adding a class extension to the receiving class answering an instance of the receiving class." - - | packages package | - packages := Dictionary new. - self class selectors do: [ :each | - (each numArgs = 0 and: [ each ~= #grPackages ]) ifTrue: [ - package := self perform: each. - packages at: package name put: package ] ]. - packages do: [ :each | each resolveWith: packages ]. - ^ packages values \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/class/greaseCore.st b/repository/Grease-Core.package/GRPackage.class/class/greaseCore.st deleted file mode 100644 index 4becaddf..00000000 --- a/repository/Grease-Core.package/GRPackage.class/class/greaseCore.st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -greaseCore - ^ self new - name: 'Grease-Core'; - description: 'The main package of the Grease compatibility layer.'; - url: #greaseUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/addDependenciesTo..st b/repository/Grease-Core.package/GRPackage.class/instance/addDependenciesTo..st deleted file mode 100644 index 907ef9d6..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/addDependenciesTo..st +++ /dev/null @@ -1,7 +0,0 @@ -private -addDependenciesTo: aCollection - (aCollection includes: self) ifFalse: [ - self dependencies - do: [ :each | each addDependenciesTo: aCollection ]. - aCollection add: self ]. - ^ aCollection \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/addDependency..st b/repository/Grease-Core.package/GRPackage.class/instance/addDependency..st deleted file mode 100644 index 9cd24def..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/addDependency..st +++ /dev/null @@ -1,3 +0,0 @@ -dependencies -addDependency: aString - dependencies add: aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/allDependencies.st b/repository/Grease-Core.package/GRPackage.class/instance/allDependencies.st deleted file mode 100644 index 513d8876..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/allDependencies.st +++ /dev/null @@ -1,5 +0,0 @@ -dependencies -allDependencies - "Answer all dependencies on which this package depends." - - ^ self addDependenciesTo: OrderedCollection new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/dependencies.st b/repository/Grease-Core.package/GRPackage.class/instance/dependencies.st deleted file mode 100644 index 16282dc7..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/dependencies.st +++ /dev/null @@ -1,5 +0,0 @@ -dependencies -dependencies - "Return a collection of package names on which this package depends." - - ^ dependencies \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/description..st b/repository/Grease-Core.package/GRPackage.class/instance/description..st deleted file mode 100644 index c4bf2331..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/description..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -description: aString - description := aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/description.st b/repository/Grease-Core.package/GRPackage.class/instance/description.st deleted file mode 100644 index 7c2f4b7b..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/description.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -description - "Answer a short description of the package." - - ^ description \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/greaseUrl.st b/repository/Grease-Core.package/GRPackage.class/instance/greaseUrl.st deleted file mode 100644 index 29d3253c..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/greaseUrl.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing-repositories -greaseUrl - "The original URL: http://smalltalkhub.com/mc/Seaside/Grease11/main" - ^ 'https://github.com/SeasideSt/Grease' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/initialize.st b/repository/Grease-Core.package/GRPackage.class/instance/initialize.st deleted file mode 100644 index 6bc4aed7..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialization -initialize - super initialize. - dependencies := OrderedCollection new. - license := #MIT \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/isLGPL.st b/repository/Grease-Core.package/GRPackage.class/instance/isLGPL.st deleted file mode 100644 index c1258db0..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/isLGPL.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isLGPL - ^ self license = #LGPL \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/isMIT.st b/repository/Grease-Core.package/GRPackage.class/instance/isMIT.st deleted file mode 100644 index bf16bcee..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/isMIT.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isMIT - ^ self license = #MIT \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/license..st b/repository/Grease-Core.package/GRPackage.class/instance/license..st deleted file mode 100644 index 444e2b9d..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/license..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -license: aSymbol - license := aSymbol \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/license.st b/repository/Grease-Core.package/GRPackage.class/instance/license.st deleted file mode 100644 index b581e2be..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/license.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -license - "Answer the current license of this package, by default MIT is used." - - ^ license \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/name..st b/repository/Grease-Core.package/GRPackage.class/instance/name..st deleted file mode 100644 index e8cfe90d..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/name..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name: aString - name := aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/name.st b/repository/Grease-Core.package/GRPackage.class/instance/name.st deleted file mode 100644 index ff9a0eac..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/name.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -name - "Answer the name of the package. This string should be useable to identify the platform specific native package object, e.g. the Monticello package name." - - ^ name \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/printOn..st b/repository/Grease-Core.package/GRPackage.class/instance/printOn..st deleted file mode 100644 index 0538dec8..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/printOn..st +++ /dev/null @@ -1,4 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - aStream nextPut: $(; nextPutAll: self name; nextPut: $) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/resolveWith..st b/repository/Grease-Core.package/GRPackage.class/instance/resolveWith..st deleted file mode 100644 index 0617a084..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/resolveWith..st +++ /dev/null @@ -1,30 +0,0 @@ -dependencies -resolveWith: aDictionary - dependencies := dependencies - collect: [ :each | - aDictionary at: each ifAbsent: [ - "if Foo-Pharo-Bar fails try Foo-Pharo20-Bar and Foo-Pharo30-Bar" - (each indexOfSubCollection: '-Pharo-' startingAt: 1) ~= 0 ifTrue: [ - "try -Pharo40-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo40-') ifAbsent: [ - "try -Pharo50-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo50-') ifAbsent: [ - "try -Pharo60-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo60-') ifAbsent: [ - "try -Pharo70-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo70-') ifAbsent: [ - "try -Pharo90-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo90-') ifAbsent: [ - "try -Pharo100-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo100-') ifAbsent: [ - "try -Pharo110-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo110-') ifAbsent: [ - "try -Squeak-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak-') ifAbsent: [ - "try -Squeak5-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak5-') ifAbsent: [ - "try -Squeak6-" - aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak6-') ifAbsent: [ - "specific for Grease-Slime" - aDictionary at: (each copyReplaceAll: 'Grease-Pharo-Slime' with: 'Grease-Slime') ifAbsent: [ - self error: self name printString , ' depends on unknown package ' , each printString ] ] ] ] ] ] ] ] ] ] ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/seasideAddonsUrl.st b/repository/Grease-Core.package/GRPackage.class/instance/seasideAddonsUrl.st deleted file mode 100644 index 9c8af671..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/seasideAddonsUrl.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing-repositories -seasideAddonsUrl - "The original URL http://smalltalkhub.com/mc/Seaside/Seaside30Addons/main" - ^ 'https://github.com/SeasideSt/Seaside' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/seasideLGPLUrl.st b/repository/Grease-Core.package/GRPackage.class/instance/seasideLGPLUrl.st deleted file mode 100644 index 5e015008..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/seasideLGPLUrl.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing-repositories -seasideLGPLUrl - "The original URL: http://smalltalkhub.com/mc/Seaside/Seaside31/main" - ^ 'https://github.com/SeasideSt/Seaside' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/seasideUrl.st b/repository/Grease-Core.package/GRPackage.class/instance/seasideUrl.st deleted file mode 100644 index 1981c392..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/seasideUrl.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing-repositories -seasideUrl - "The original URL: http://smalltalkhub.com/mc/Seaside/Seaside31/main" - ^ 'https://github.com/SeasideSt/Seaside' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/url..st b/repository/Grease-Core.package/GRPackage.class/instance/url..st deleted file mode 100644 index 9708f737..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/url..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -url: aStringOrSymbol - "Set the base-URL of the package, or a symbol referring to a method in this class that answers the URL. This setting is only meaningful for platforms that can directly access Monticello repositories." - - url := aStringOrSymbol \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/instance/url.st b/repository/Grease-Core.package/GRPackage.class/instance/url.st deleted file mode 100644 index 68eef847..00000000 --- a/repository/Grease-Core.package/GRPackage.class/instance/url.st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -url - "Answer the base-URL of the package. This string is only meaningful for platforms that can directly access Monticello repositories." - - ^ url isSymbol - ifTrue: [ self perform: url ] - ifFalse: [ url ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPackage.class/properties.json b/repository/Grease-Core.package/GRPackage.class/properties.json deleted file mode 100644 index 8801d64b..00000000 --- a/repository/Grease-Core.package/GRPackage.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "commentStamp" : "pmm 9/14/2013 15:53", - "super" : "GRObject", - "category" : "Grease-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "name", - "description", - "dependencies", - "license", - "url" - ], - "name" : "GRPackage", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/README.md b/repository/Grease-Core.package/GRPlatform.class/README.md deleted file mode 100644 index 6492fa92..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/README.md +++ /dev/null @@ -1,10 +0,0 @@ -The abstract platform implementation. Each platform should provide a subclass implementing any abstract methods and overriding any other methods as necessary. - -Default implementations should be provided here when possible/useful but default implementations MUST be valid on ALL PLATFORMS so it is rarely practical. VA Smalltalk flags sends of uknown messages so even these must be known to exist on all platforms. - -Common cases where default implementations *are* appropriate are where there is a standard implementation that is valid on all platforms but one or more platforms have an additional, optimized implementation that should be used instead. - -All classes and methods used by methods of this class should be either: - + included in the Seaside-Platform package; - + defined by the ANSI Smalltalk standard; or - + (not ideal) referenced via 'Smalltalk at: #ClassName'. \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/class/current..st b/repository/Grease-Core.package/GRPlatform.class/class/current..st deleted file mode 100644 index daa3647e..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/class/current..st +++ /dev/null @@ -1,3 +0,0 @@ -registration -current: aPlatform - Current := aPlatform \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/class/current.st b/repository/Grease-Core.package/GRPlatform.class/class/current.st deleted file mode 100644 index fc6cd1c7..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/class/current.st +++ /dev/null @@ -1,4 +0,0 @@ -registration -current - - ^ Current \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/class/select.st b/repository/Grease-Core.package/GRPlatform.class/class/select.st deleted file mode 100644 index 5db5966b..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/class/select.st +++ /dev/null @@ -1,3 +0,0 @@ -registration -select - GRPlatform current: self new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/class/unselect.st b/repository/Grease-Core.package/GRPlatform.class/class/unselect.st deleted file mode 100644 index d2e11bb7..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/class/unselect.st +++ /dev/null @@ -1,3 +0,0 @@ -registration -unselect - GRPlatform current class = self ifTrue: [ GRPlatform current: nil ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/addToShutDownList..st b/repository/Grease-Core.package/GRPlatform.class/instance/addToShutDownList..st deleted file mode 100644 index 01ef5e4f..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/addToShutDownList..st +++ /dev/null @@ -1,4 +0,0 @@ -startup -addToShutDownList: anObject - "Add anObject to the shutdown-list of the system. On shutdown the message #shutDown will be sent to anObject." - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/addToStartUpList..st b/repository/Grease-Core.package/GRPlatform.class/instance/addToStartUpList..st deleted file mode 100644 index 8f80df7a..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/addToStartUpList..st +++ /dev/null @@ -1,4 +0,0 @@ -startup -addToStartUpList: anObject - "Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject." - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/asMethodReturningByteArray.named..st b/repository/Grease-Core.package/GRPlatform.class/instance/asMethodReturningByteArray.named..st deleted file mode 100644 index 2ed40e57..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/asMethodReturningByteArray.named..st +++ /dev/null @@ -1,4 +0,0 @@ -file library -asMethodReturningByteArray: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a ByteArray" - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/asMethodReturningString.named..st b/repository/Grease-Core.package/GRPlatform.class/instance/asMethodReturningString.named..st deleted file mode 100644 index 1edbb346..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/asMethodReturningString.named..st +++ /dev/null @@ -1,21 +0,0 @@ -file library -asMethodReturningString: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a String. - - This implementation answers a String formatted like so - - aSymbol - ^ aByteArrayOrString - - Subclasses need to override this method if the dialect needs changes to support Unicode string literals" - ^ String streamContents: [ :stream | - stream - nextPutAll: aSymbol; - nextPut: Character cr. - stream - tab; - nextPutAll: '^ '''. - aByteArrayOrString greaseString do: [ :each | - each = $' ifTrue: [ stream nextPut: $' ]. - stream nextPut: each ]. - stream nextPut: $' ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/base64Decode..st b/repository/Grease-Core.package/GRPlatform.class/instance/base64Decode..st deleted file mode 100644 index 8c1c750b..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/base64Decode..st +++ /dev/null @@ -1,4 +0,0 @@ -encoding -base64Decode: aString - "Base64 decode the given String and answer the result as a String." - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/base64Encode..st b/repository/Grease-Core.package/GRPlatform.class/instance/base64Encode..st deleted file mode 100644 index 1e94d60c..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/base64Encode..st +++ /dev/null @@ -1,4 +0,0 @@ -encoding -base64Encode: aByteArray - "Base64 encode the given byte array and answer the result as a String." - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/bindingOf..st b/repository/Grease-Core.package/GRPlatform.class/instance/bindingOf..st deleted file mode 100644 index f3a7c268..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/bindingOf..st +++ /dev/null @@ -1,15 +0,0 @@ -bindings -bindingOf: aClass - "Answer the binding of aClass. - The binding is the literal that get compiled into the method. - We need the binding to be updated when the class is changed. - The binding has to respond to #value. - - This is mostly an issue on GemStone/S because when we hold on - to a class directly we will end up holding on to an old class version. - - Dialects with namespaces will need to override this. - - On VisualWorks this should like this - ^ aClass fullyQualifiedReference" - ^ Smalltalk associationAt: aClass name \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/compile.into.classified..st b/repository/Grease-Core.package/GRPlatform.class/instance/compile.into.classified..st deleted file mode 100644 index 0f0bbaf0..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/compile.into.classified..st +++ /dev/null @@ -1,5 +0,0 @@ -meta-object-protocol -compile: aString into: aClass classified: aSymbol - "The trick here is to be as silently a possible so that the package is not marked dirty when running WAFileLibrary test. - This also makes running tests much faster." - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/contentsOfFile.binary..st deleted file mode 100644 index 515d6552..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/contentsOfFile.binary..st +++ /dev/null @@ -1,3 +0,0 @@ -files -contentsOfFile: aString binary: aBoolean - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/convertToSmalltalkNewlines..st b/repository/Grease-Core.package/GRPlatform.class/instance/convertToSmalltalkNewlines..st deleted file mode 100644 index fd2fdde6..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/convertToSmalltalkNewlines..st +++ /dev/null @@ -1,21 +0,0 @@ -file library -convertToSmalltalkNewlines: aString - "Convert any line endings (CR, CRLF, LF) to the default platform newline." - - aString isNil - ifTrue: [ ^ nil ]. - ^ String streamContents: [ :writeStream | - | readStream | - readStream := aString readStream. - [ readStream atEnd ] whileFalse: [ - | next | - next := readStream next. - next = Character cr - ifTrue: [ - readStream peek = Character lf - ifTrue: [ readStream skip: 1 ]. - writeStream nextPutAll: self newline ] - ifFalse: [ - next = Character lf - ifTrue: [ writeStream nextPutAll: self newline ] - ifFalse: [ writeStream nextPut: next ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/deleteFile..st b/repository/Grease-Core.package/GRPlatform.class/instance/deleteFile..st deleted file mode 100644 index 9819eed2..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/deleteFile..st +++ /dev/null @@ -1,3 +0,0 @@ -files -deleteFile: aPathString - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Core.package/GRPlatform.class/instance/deprecationExceptionSet.st deleted file mode 100644 index c8d978d8..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/deprecationExceptionSet.st +++ /dev/null @@ -1,4 +0,0 @@ -exceptions -deprecationExceptionSet - "Answer the exception set that should considered besides WADeprecation." - ^ ExceptionSet new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/directoriesIn..st b/repository/Grease-Core.package/GRPlatform.class/instance/directoriesIn..st deleted file mode 100644 index 14b5f839..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/directoriesIn..st +++ /dev/null @@ -1,5 +0,0 @@ -files -directoriesIn: aPathString - "Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString - must not include directory names that start with ." - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/doSilently..st b/repository/Grease-Core.package/GRPlatform.class/instance/doSilently..st deleted file mode 100644 index 89a96f47..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/doSilently..st +++ /dev/null @@ -1,4 +0,0 @@ -file library -doSilently: aBlock - "Suspend all notifications value evaluating the given block." - ^ aBlock value \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/doTransaction..st b/repository/Grease-Core.package/GRPlatform.class/instance/doTransaction..st deleted file mode 100644 index 52357432..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/doTransaction..st +++ /dev/null @@ -1,7 +0,0 @@ -transactions -doTransaction: aBlock - "for Gemstone/S compatibility - http://gemstonesoup.wordpress.com/2007/05/10/porting-application-specific-seaside-threads-to-gemstone/ - use when modifying an object from an outside thread" - - ^ aBlock value \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Core.package/GRPlatform.class/instance/ensureExistenceOfFolder..st deleted file mode 100644 index a4b8da7c..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/ensureExistenceOfFolder..st +++ /dev/null @@ -1,4 +0,0 @@ -files -ensureExistenceOfFolder: aString - "Create a folder named aString in the image directory." - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/fileExists..st b/repository/Grease-Core.package/GRPlatform.class/instance/fileExists..st deleted file mode 100644 index 208d4d40..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/fileExists..st +++ /dev/null @@ -1,3 +0,0 @@ -files -fileExists: aString - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/fileStreamOn.do.binary..st deleted file mode 100644 index 3d9e825a..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/fileStreamOn.do.binary..st +++ /dev/null @@ -1,6 +0,0 @@ -files -fileStreamOn: aString do: aBlock binary: aBoolean - self - greaseDeprecatedApi: 'GRPlatform>>#fileStreamOn:do:binary:' - details: 'Use readFileStreamOn:do:binary:'. - ^ self readFileStreamOn: aString do: aBlock binary: aBoolean \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/filesIn..st b/repository/Grease-Core.package/GRPlatform.class/instance/filesIn..st deleted file mode 100644 index eacae2b3..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/filesIn..st +++ /dev/null @@ -1,5 +0,0 @@ -files -filesIn: aPathString - "Answer a collection of absolute paths for all the files (no directories) in the directory given by aPathString - must not include file names that start with ." - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/integerAsByteArray..st b/repository/Grease-Core.package/GRPlatform.class/instance/integerAsByteArray..st deleted file mode 100644 index 6d847f6d..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/integerAsByteArray..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -integerAsByteArray: anInteger - ^ anInteger asByteArray \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/isProcessTerminated..st b/repository/Grease-Core.package/GRPlatform.class/instance/isProcessTerminated..st deleted file mode 100644 index 94e6e96b..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/isProcessTerminated..st +++ /dev/null @@ -1,5 +0,0 @@ -processes -isProcessTerminated: aProcess - "Return a boolean indicating whether aProcess has been terminated." - - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/label.st b/repository/Grease-Core.package/GRPlatform.class/instance/label.st deleted file mode 100644 index 44330a02..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/label.st +++ /dev/null @@ -1,5 +0,0 @@ -version info -label - "Answer a descriptive label string for the platform implementation" - - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/localNameOf..st b/repository/Grease-Core.package/GRPlatform.class/instance/localNameOf..st deleted file mode 100644 index 3e0a423f..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/localNameOf..st +++ /dev/null @@ -1,8 +0,0 @@ -files -localNameOf: aFilename - "Answer the local name of a file identified by an absolute file path. - - Eg. - If the platform is Windwos and aFilename is 'C:\Windows\win32.dll' then it would answer 'win32.dll'. - If the platform is Unix and aFilename is '/usr/bin/vim' then it would answer 'vim'." - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/newRandom.st b/repository/Grease-Core.package/GRPlatform.class/instance/newRandom.st deleted file mode 100644 index 5f6271cc..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/newRandom.st +++ /dev/null @@ -1,11 +0,0 @@ -factory -newRandom - "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: - #nextInt: - should answer a random integer in the interval [1, anInteger] - #randomFrom: - should answer a random element from the given collection - - Make sure that both methods are safe under heavy concurrent load. - - Used by Gemstone/S traditional Randoms which cannot be persisted. - Used by Squeak to use a secure random when avaiable." - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFile.st b/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFile.st deleted file mode 100644 index e92ccc4c..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFile.st +++ /dev/null @@ -1,6 +0,0 @@ -files -newTemporaryFile - "Create a new temporary file in the systems temp directory and answer its pathString. - It is the users responsibility to delete or move the file, it will not be cleaned up automatically - (unless the host system has a policy for it)." - ^ self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileNamed..st deleted file mode 100644 index c03ea7f2..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileNamed..st +++ /dev/null @@ -1,6 +0,0 @@ -files -newTemporaryFileNamed: aName - "Create a new temporary file in the systems temp directory and answer its pathString. - It is the users responsibility to delete or move the file, it will not be cleaned up automatically - (unless the host system has a policy for it)." - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/newline.st b/repository/Grease-Core.package/GRPlatform.class/instance/newline.st deleted file mode 100644 index 3834fe40..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/newline.st +++ /dev/null @@ -1,5 +0,0 @@ -file library -newline - "Answer a String with the default newline character of this platform." - - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Core.package/GRPlatform.class/instance/openDebuggerOn..st deleted file mode 100644 index 74c38d51..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/openDebuggerOn..st +++ /dev/null @@ -1,3 +0,0 @@ -exceptions -openDebuggerOn: anError - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/pathSeparator.st b/repository/Grease-Core.package/GRPlatform.class/instance/pathSeparator.st deleted file mode 100644 index a4c10b7f..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/pathSeparator.st +++ /dev/null @@ -1,4 +0,0 @@ -files -pathSeparator - "Answer the path separator as a String, eg. '/' on Unix and '\' on Windows." - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/readFileStreamOn.do.binary..st deleted file mode 100644 index b43b743e..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/readFileStreamOn.do.binary..st +++ /dev/null @@ -1,3 +0,0 @@ -files -readFileStreamOn: aString do: aBlock binary: aBoolean - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/readWriteByteStream.st b/repository/Grease-Core.package/GRPlatform.class/instance/readWriteByteStream.st deleted file mode 100644 index 497505fb..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/readWriteByteStream.st +++ /dev/null @@ -1,7 +0,0 @@ -factory -readWriteByteStream - "Return a ReadWriteStream on a ByteArray that stores integers 0..255 - ^ReadWriteStream on: ByteArray new - " - - ^ self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/readWriteCharacterStream.st b/repository/Grease-Core.package/GRPlatform.class/instance/readWriteCharacterStream.st deleted file mode 100644 index fee39703..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/readWriteCharacterStream.st +++ /dev/null @@ -1,7 +0,0 @@ -factory -readWriteCharacterStream - "Return a ReadWriteStream on a String that stores characters - ^ReadWriteStream on: String new - " - - ^ self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/reducedConflictDictionary.st b/repository/Grease-Core.package/GRPlatform.class/instance/reducedConflictDictionary.st deleted file mode 100644 index 407a71b9..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/reducedConflictDictionary.st +++ /dev/null @@ -1,4 +0,0 @@ -factory -reducedConflictDictionary - "used by Gemstone/S reduced conflict classes that can be used to avoid transaction conflicts" - ^ Dictionary \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/removeFromShutDownList..st b/repository/Grease-Core.package/GRPlatform.class/instance/removeFromShutDownList..st deleted file mode 100644 index 1cd15317..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/removeFromShutDownList..st +++ /dev/null @@ -1,4 +0,0 @@ -startup -removeFromShutDownList: anObject - "Remove anObject from the shutdown list in the system." - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/removeFromStartUpList..st b/repository/Grease-Core.package/GRPlatform.class/instance/removeFromStartUpList..st deleted file mode 100644 index 499182c0..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/removeFromStartUpList..st +++ /dev/null @@ -1,4 +0,0 @@ -startup -removeFromStartUpList: anObject - "Remove anObject from the startup list in the system." - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/removeSelector.from..st b/repository/Grease-Core.package/GRPlatform.class/instance/removeSelector.from..st deleted file mode 100644 index 5e1bfedd..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/removeSelector.from..st +++ /dev/null @@ -1,3 +0,0 @@ -meta-object-protocol -removeSelector: aSymbol from: aClass - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/secureHashFor..st b/repository/Grease-Core.package/GRPlatform.class/instance/secureHashFor..st deleted file mode 100644 index 7da0404a..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/secureHashFor..st +++ /dev/null @@ -1,3 +0,0 @@ -cryptography -secureHashFor: aStringOrByteArray - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/semaphoreClass.st b/repository/Grease-Core.package/GRPlatform.class/instance/semaphoreClass.st deleted file mode 100644 index c1cb0133..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/semaphoreClass.st +++ /dev/null @@ -1,4 +0,0 @@ -factory -semaphoreClass - "used by Gemstone/S traditional Semaphores which cannot be persisted" - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/sizeOfFile..st b/repository/Grease-Core.package/GRPlatform.class/instance/sizeOfFile..st deleted file mode 100644 index 670d78ab..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/sizeOfFile..st +++ /dev/null @@ -1,4 +0,0 @@ -files -sizeOfFile: aString - - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Core.package/GRPlatform.class/instance/sourceCodeStringOf..st deleted file mode 100644 index 76902771..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/sourceCodeStringOf..st +++ /dev/null @@ -1,5 +0,0 @@ -meta-object-protocol -sourceCodeStringOf: aCompiledMethod - "Return a String with the source code for a compiled method." - - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/stackDepth.st b/repository/Grease-Core.package/GRPlatform.class/instance/stackDepth.st deleted file mode 100644 index 990262c5..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/stackDepth.st +++ /dev/null @@ -1,3 +0,0 @@ -exceptions -stackDepth - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/supportsUnicode.st b/repository/Grease-Core.package/GRPlatform.class/instance/supportsUnicode.st deleted file mode 100644 index 7ee74995..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/supportsUnicode.st +++ /dev/null @@ -1,11 +0,0 @@ -encoding -supportsUnicode - "dynamically try to figure out whether the current dialect supports Unicode" - - ^ [ - String - with: (Character codePoint: 16r1F1F3) - with: (Character codePoint: 16r1F1F1). - true - ] on: Error - do: [ :error | false ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/terminateProcess..st b/repository/Grease-Core.package/GRPlatform.class/instance/terminateProcess..st deleted file mode 100644 index 36cf5cbc..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/terminateProcess..st +++ /dev/null @@ -1,5 +0,0 @@ -processes -terminateProcess: aProcess - "Permanently terminate the process, unwinding first to execute #ensure: and #ifCurtailed: blocks." - - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/thisContext.st b/repository/Grease-Core.package/GRPlatform.class/instance/thisContext.st deleted file mode 100644 index 5f6f20ee..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/thisContext.st +++ /dev/null @@ -1,8 +0,0 @@ -processes -thisContext - "Answer the current activation of a method execution or block activation. - - For dialects with a thisContext variable and implementation can look like this. - - ^ thisContext sender" - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/version.st b/repository/Grease-Core.package/GRPlatform.class/instance/version.st deleted file mode 100644 index 72943d47..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/version.st +++ /dev/null @@ -1,6 +0,0 @@ -version info -version - "Answer the Grease version" - - ^ (GRVersion major: 1 minor: 19 revision: 1) - yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/versionString.st b/repository/Grease-Core.package/GRPlatform.class/instance/versionString.st deleted file mode 100644 index 3a3ee1fd..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/versionString.st +++ /dev/null @@ -1,8 +0,0 @@ -version info -versionString - ^ String streamContents: [ :stream | - stream - nextPutAll: (self version greaseString); - nextPutAll: ' ('; - nextPutAll: (self label); - nextPut: $) ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/weakDictionaryOfSize..st b/repository/Grease-Core.package/GRPlatform.class/instance/weakDictionaryOfSize..st deleted file mode 100644 index a99d6c6b..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/weakDictionaryOfSize..st +++ /dev/null @@ -1,3 +0,0 @@ -factory -weakDictionaryOfSize: aNumber - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Core.package/GRPlatform.class/instance/write.toFile.inFolder..st deleted file mode 100644 index 5d974bc9..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/write.toFile.inFolder..st +++ /dev/null @@ -1,4 +0,0 @@ -files -write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString - "Write aStringOrByteArray to a file named aFileNameString in the folder aFolderString." - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/writeCharacterStreamOn..st b/repository/Grease-Core.package/GRPlatform.class/instance/writeCharacterStreamOn..st deleted file mode 100644 index f8c71f34..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/writeCharacterStreamOn..st +++ /dev/null @@ -1,5 +0,0 @@ -factory -writeCharacterStreamOn: aString - "String based write stream" - - ^ WriteStream on: aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/writeFileStreamOn.do.binary..st deleted file mode 100644 index 8bf94c9f..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/instance/writeFileStreamOn.do.binary..st +++ /dev/null @@ -1,3 +0,0 @@ -files -writeFileStreamOn: aString do: aBlock binary: aBoolean - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/properties.json b/repository/Grease-Core.package/GRPlatform.class/properties.json deleted file mode 100644 index 35cf678d..00000000 --- a/repository/Grease-Core.package/GRPlatform.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "jf 2/6/2009 16:05", - "super" : "GRObject", - "category" : "Grease-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "Current" - ], - "instvars" : [ ], - "name" : "GRPlatform", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPluggablePrinter.class/README.md b/repository/Grease-Core.package/GRPluggablePrinter.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Core.package/GRPluggablePrinter.class/class/on..st b/repository/Grease-Core.package/GRPluggablePrinter.class/class/on..st deleted file mode 100644 index 81fc0847..00000000 --- a/repository/Grease-Core.package/GRPluggablePrinter.class/class/on..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -on: aBlock - ^ self new block: aBlock \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPluggablePrinter.class/instance/block..st b/repository/Grease-Core.package/GRPluggablePrinter.class/instance/block..st deleted file mode 100644 index 9f199772..00000000 --- a/repository/Grease-Core.package/GRPluggablePrinter.class/instance/block..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -block: aBlock - block := aBlock \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPluggablePrinter.class/instance/initialize.st b/repository/Grease-Core.package/GRPluggablePrinter.class/instance/initialize.st deleted file mode 100644 index 8bb0f606..00000000 --- a/repository/Grease-Core.package/GRPluggablePrinter.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initialize - super initialize. - self block: [ :value | String new ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPluggablePrinter.class/instance/print.on..st b/repository/Grease-Core.package/GRPluggablePrinter.class/instance/print.on..st deleted file mode 100644 index 0158312d..00000000 --- a/repository/Grease-Core.package/GRPluggablePrinter.class/instance/print.on..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -print: anObject on: aStream - aStream nextPutAll: (block value: anObject) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPluggablePrinter.class/properties.json b/repository/Grease-Core.package/GRPluggablePrinter.class/properties.json deleted file mode 100644 index 3ab1e85a..00000000 --- a/repository/Grease-Core.package/GRPluggablePrinter.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRPrinter", - "category" : "Grease-Core-Text", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "block" - ], - "name" : "GRPluggablePrinter", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/README.md b/repository/Grease-Core.package/GRPrinter.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Core.package/GRPrinter.class/class/abbreviatedMonthName.st b/repository/Grease-Core.package/GRPrinter.class/class/abbreviatedMonthName.st deleted file mode 100644 index 16fcfcd3..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/abbreviatedMonthName.st +++ /dev/null @@ -1,3 +0,0 @@ -parts-date -abbreviatedMonthName - ^ self monthName: #('Jan' 'Feb' 'Mar' 'Apr' 'May' 'Jun' 'Jul' 'Aug' 'Sep' 'Oct' 'Nov' 'Dec') \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/abbreviatedWeekName.st b/repository/Grease-Core.package/GRPrinter.class/class/abbreviatedWeekName.st deleted file mode 100644 index 30eef1c3..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/abbreviatedWeekName.st +++ /dev/null @@ -1,3 +0,0 @@ -parts-date -abbreviatedWeekName - ^ self weekName: #('Sun' 'Mon' 'Tue' 'Wed' 'Thu' 'Fri' 'Sat') \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/absOffsetHoursPadded.st b/repository/Grease-Core.package/GRPrinter.class/class/absOffsetHoursPadded.st deleted file mode 100644 index c8fc6478..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/absOffsetHoursPadded.st +++ /dev/null @@ -1,5 +0,0 @@ -parts-date -absOffsetHoursPadded - ^ GRMappedPrinter - block: [ :date | date offset hours abs ] - next: (self numberWithAtLeastDigits: 2) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/absOffsetMinutesPadded.st b/repository/Grease-Core.package/GRPrinter.class/class/absOffsetMinutesPadded.st deleted file mode 100644 index ceede65a..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/absOffsetMinutesPadded.st +++ /dev/null @@ -1,5 +0,0 @@ -parts-date -absOffsetMinutesPadded - ^ GRMappedPrinter - block: [ :date | date offset minutes abs ] - next: (self numberWithAtLeastDigits: 2) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/binaryFileSize.st b/repository/Grease-Core.package/GRPrinter.class/class/binaryFileSize.st deleted file mode 100644 index 4a03109f..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/binaryFileSize.st +++ /dev/null @@ -1,3 +0,0 @@ -parts-units -binaryFileSize - ^ GRUnitPrinter base: 1024 units: #('byte' 'bytes' 'KiB' 'MiB' 'GiB' 'TiB' 'PiB' 'EiB' 'ZiB' 'YiB') \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/cookieTimestamp.st b/repository/Grease-Core.package/GRPrinter.class/class/cookieTimestamp.st deleted file mode 100644 index dbf4c682..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/cookieTimestamp.st +++ /dev/null @@ -1,7 +0,0 @@ -factory-http -cookieTimestamp - "Netscape's original proposal defined an Expires header that took a date value in a fixed-length variant format in place of Max-Age: Wdy, DD-Mon-YY HH:MM:SS GMT" - - ^ GRMappedPrinter - block: [ :timestamp | timestamp asUTC ] - next: self abbreviatedWeekName , ', ' , self paddedDay , '-' , self abbreviatedMonthName , '-' , self paddedYear , ' ' , self isoTime , ' GMT' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/decimalFileSize.st b/repository/Grease-Core.package/GRPrinter.class/class/decimalFileSize.st deleted file mode 100644 index 7f5cb413..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/decimalFileSize.st +++ /dev/null @@ -1,3 +0,0 @@ -parts-units -decimalFileSize - ^ GRUnitPrinter base: 1000 units: #('byte' 'bytes' 'kB' 'MB' 'GB' 'TB' 'PB' 'EB' 'ZB' 'YB') \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/fullMonthName.st b/repository/Grease-Core.package/GRPrinter.class/class/fullMonthName.st deleted file mode 100644 index 94af9e0f..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/fullMonthName.st +++ /dev/null @@ -1,3 +0,0 @@ -parts-date -fullMonthName - ^ self monthName: #('January' 'February' 'March' 'April' 'May' 'June' 'July' 'August' 'September' 'October' 'November' 'December') \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/fullWeekName.st b/repository/Grease-Core.package/GRPrinter.class/class/fullWeekName.st deleted file mode 100644 index 0641897a..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/fullWeekName.st +++ /dev/null @@ -1,3 +0,0 @@ -parts-date -fullWeekName - ^ self weekName: #('Sunday' 'Monday' 'Tuesday' 'Wednesday' 'Thursday' 'Friday' 'Saturday') \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/httpDate.st b/repository/Grease-Core.package/GRPrinter.class/class/httpDate.st deleted file mode 100644 index 78c7d087..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/httpDate.st +++ /dev/null @@ -1,5 +0,0 @@ -factory-http -httpDate - "Answers a printer that formats dates for HTTP1.1 (RFC 2616)" - - ^ self rfc1123 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/isoDate.st b/repository/Grease-Core.package/GRPrinter.class/class/isoDate.st deleted file mode 100644 index eb2efe9d..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/isoDate.st +++ /dev/null @@ -1,5 +0,0 @@ -factory-http -isoDate - "Ansers a printer that formats dates according to ISO(YYYY-MM-DD) E.g. 2003-12-24" - - ^ self paddedYear , $- , self paddedMonth , $- , self paddedDay \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/isoTime.st b/repository/Grease-Core.package/GRPrinter.class/class/isoTime.st deleted file mode 100644 index ec25236d..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/isoTime.st +++ /dev/null @@ -1,5 +0,0 @@ -factory-http -isoTime - "Ansers a printer that formats time according to ISO(HH:MM:SS) E.g. 12:23:34" - - ^ self paddedHour24 , $: , self paddedMinute , $: , self paddedSecond \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/monthName..st b/repository/Grease-Core.package/GRPrinter.class/class/monthName..st deleted file mode 100644 index 0eaa7afb..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/monthName..st +++ /dev/null @@ -1,3 +0,0 @@ -parts-date -monthName: anArray - ^ GRPluggablePrinter on: [ :date | anArray at: date monthIndex ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/numberWithAtLeastDigits..st b/repository/Grease-Core.package/GRPrinter.class/class/numberWithAtLeastDigits..st deleted file mode 100644 index 47e9505c..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/numberWithAtLeastDigits..st +++ /dev/null @@ -1,6 +0,0 @@ -parts-units -numberWithAtLeastDigits: anInteger - ^ GRNumberPrinter new - padding: $0; - digits: anInteger; - yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/offsetSign.st b/repository/Grease-Core.package/GRPrinter.class/class/offsetSign.st deleted file mode 100644 index 583c0f1d..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/offsetSign.st +++ /dev/null @@ -1,8 +0,0 @@ -parts-date -offsetSign - ^ GRMappedPrinter - block: [ :date | date offset ] - next: (GRSignPrinter new - positivePrinter: $+; - negativePrinter: $-; - yourself) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/paddedCentury.st b/repository/Grease-Core.package/GRPrinter.class/class/paddedCentury.st deleted file mode 100644 index f1367586..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/paddedCentury.st +++ /dev/null @@ -1,5 +0,0 @@ -parts-date -paddedCentury - ^ GRMappedPrinter - block: [ :date | date year \\ 100 ] - next: (self numberWithAtLeastDigits: 2) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/paddedDay.st b/repository/Grease-Core.package/GRPrinter.class/class/paddedDay.st deleted file mode 100644 index 35a1123b..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/paddedDay.st +++ /dev/null @@ -1,5 +0,0 @@ -parts-date -paddedDay - ^ GRMappedPrinter - block: [ :date | date dayOfMonth ] - next: (self numberWithAtLeastDigits: 2) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/paddedHour12.st b/repository/Grease-Core.package/GRPrinter.class/class/paddedHour12.st deleted file mode 100644 index c3f66f9d..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/paddedHour12.st +++ /dev/null @@ -1,5 +0,0 @@ -parts-time -paddedHour12 - ^ GRMappedPrinter - block: [ :time | (time hour - 1) \\ 12 + 1 ] - next: (self numberWithAtLeastDigits: 2) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/paddedHour24.st b/repository/Grease-Core.package/GRPrinter.class/class/paddedHour24.st deleted file mode 100644 index d7480d63..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/paddedHour24.st +++ /dev/null @@ -1,5 +0,0 @@ -parts-time -paddedHour24 - ^ GRMappedPrinter - block: [ :time | time hour ] - next: (self numberWithAtLeastDigits: 2) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/paddedMinute.st b/repository/Grease-Core.package/GRPrinter.class/class/paddedMinute.st deleted file mode 100644 index a8a57c0c..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/paddedMinute.st +++ /dev/null @@ -1,5 +0,0 @@ -parts-time -paddedMinute - ^ GRMappedPrinter - block: [ :time | time minute ] - next: (self numberWithAtLeastDigits: 2) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/paddedMonth.st b/repository/Grease-Core.package/GRPrinter.class/class/paddedMonth.st deleted file mode 100644 index 4a655a3f..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/paddedMonth.st +++ /dev/null @@ -1,5 +0,0 @@ -parts-date -paddedMonth - ^ GRMappedPrinter - block: [ :date | date monthIndex ] - next: (self numberWithAtLeastDigits: 2) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/paddedSecond.st b/repository/Grease-Core.package/GRPrinter.class/class/paddedSecond.st deleted file mode 100644 index 6283fa62..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/paddedSecond.st +++ /dev/null @@ -1,7 +0,0 @@ -parts-time -paddedSecond - ^ GRMappedPrinter - block: [ :time | time second ] - next: (GRNumberPrinter new - padding: $0; - digits: 2) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/paddedYear.st b/repository/Grease-Core.package/GRPrinter.class/class/paddedYear.st deleted file mode 100644 index 2734e145..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/paddedYear.st +++ /dev/null @@ -1,5 +0,0 @@ -parts-date -paddedYear - ^ GRMappedPrinter - block: [ :date | date year ] - next: (self numberWithAtLeastDigits: 4) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/rfc1123.st b/repository/Grease-Core.package/GRPrinter.class/class/rfc1123.st deleted file mode 100644 index 3ecf821a..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/rfc1123.st +++ /dev/null @@ -1,10 +0,0 @@ -factory-http -rfc1123 - "Answers a printer that formats dates for HTTP1.1 (RFC 1123). Eg. - Sun, 06 Nov 1994 08:49:37 GMT " - - ^ GRMappedPrinter - block: [ :date | - "For the purposes of HTTP, GMT is exactly equal to UTC (Coordinated Universal Time)" - date asUTC ] - next: GRSequentialPrinter new , self abbreviatedWeekName , ', ' , self paddedDay , Character space , self abbreviatedMonthName , Character space , self paddedYear , Character space , self isoTime , ' GMT' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/rfc822.st b/repository/Grease-Core.package/GRPrinter.class/class/rfc822.st deleted file mode 100644 index 878cd18e..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/rfc822.st +++ /dev/null @@ -1,6 +0,0 @@ -factory-http -rfc822 - "Answers a printer that formats dates according to RFC 822 (email). Eg. - Sun, 31 Aug 2008 19:41:46 +0200" - - ^ self abbreviatedWeekName , ', ' , self paddedDay , Character space , self abbreviatedMonthName , Character space , self paddedYear , Character space , self isoTime , Character space , self offsetSign , self absOffsetHoursPadded , self absOffsetMinutesPadded \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/rfc822WithTimeZone..st b/repository/Grease-Core.package/GRPrinter.class/class/rfc822WithTimeZone..st deleted file mode 100644 index 73571d28..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/rfc822WithTimeZone..st +++ /dev/null @@ -1,6 +0,0 @@ -factory-http -rfc822WithTimeZone: aString - "Answers a privter that formats dates according to RFC 822 (email) with the given time zone String. Eg. - Sun, 31 Aug 2008 19:41:46 " - - ^ self abbreviatedWeekName , ', ' , self paddedDay , Character space , self abbreviatedMonthName , Character space , self paddedYear , Character space , self isoTime , Character space , aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/swissCurrency.st b/repository/Grease-Core.package/GRPrinter.class/class/swissCurrency.st deleted file mode 100644 index e77117ca..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/swissCurrency.st +++ /dev/null @@ -1,7 +0,0 @@ -factory-currency -swissCurrency - ^ GRSequentialPrinter new , 'CHF ' , GRSignPrinter new , (GRNumberPrinter new - separator: $'; - precision: 2; - accuracy: 0.05; - yourself) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedCentury.st b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedCentury.st deleted file mode 100644 index bc7ac349..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedCentury.st +++ /dev/null @@ -1,5 +0,0 @@ -parts-date -unpaddedCentury - ^ GRMappedPrinter - block: [ :date | date year \\ 100 ] - next: GRNumberPrinter new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedDay.st b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedDay.st deleted file mode 100644 index 1c0ae5f5..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedDay.st +++ /dev/null @@ -1,5 +0,0 @@ -parts-date -unpaddedDay - ^ GRMappedPrinter - block: [ :date | date dayOfMonth ] - next: GRNumberPrinter new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedHour12.st b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedHour12.st deleted file mode 100644 index 2c146675..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedHour12.st +++ /dev/null @@ -1,5 +0,0 @@ -parts-time -unpaddedHour12 - ^ GRMappedPrinter - block: [ :time | (time hour - 1) \\ 12 + 1 ] - next: GRNumberPrinter new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedHour24.st b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedHour24.st deleted file mode 100644 index e84fe99c..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedHour24.st +++ /dev/null @@ -1,5 +0,0 @@ -parts-time -unpaddedHour24 - ^ GRMappedPrinter - block: [ :time | time hour ] - next: GRNumberPrinter new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedMinute.st b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedMinute.st deleted file mode 100644 index 53cdf04c..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedMinute.st +++ /dev/null @@ -1,5 +0,0 @@ -parts-time -unpaddedMinute - ^ GRMappedPrinter - block: [ :time | time minute ] - next: GRNumberPrinter new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedMonth.st b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedMonth.st deleted file mode 100644 index 38090256..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedMonth.st +++ /dev/null @@ -1,5 +0,0 @@ -parts-date -unpaddedMonth - ^ GRMappedPrinter - block: [ :date | date monthIndex ] - next: GRNumberPrinter new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedSecond.st b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedSecond.st deleted file mode 100644 index 368fe3d8..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedSecond.st +++ /dev/null @@ -1,5 +0,0 @@ -parts-time -unpaddedSecond - ^ GRMappedPrinter - block: [ :time | time second ] - next: GRNumberPrinter new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedYear.st b/repository/Grease-Core.package/GRPrinter.class/class/unpaddedYear.st deleted file mode 100644 index 8959df3f..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/unpaddedYear.st +++ /dev/null @@ -1,5 +0,0 @@ -parts-date -unpaddedYear - ^ GRMappedPrinter - block: [ :date | date year ] - next: GRNumberPrinter new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/usCurrency.st b/repository/Grease-Core.package/GRPrinter.class/class/usCurrency.st deleted file mode 100644 index 0783c809..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/usCurrency.st +++ /dev/null @@ -1,6 +0,0 @@ -factory-currency -usCurrency - ^ GRSignPrinter new , $$ , (GRNumberPrinter new - separator: $,; - precision: 2; - yourself) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/class/weekName..st b/repository/Grease-Core.package/GRPrinter.class/class/weekName..st deleted file mode 100644 index ca348c35..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/class/weekName..st +++ /dev/null @@ -1,3 +0,0 @@ -parts-date -weekName: anArray - ^ GRPluggablePrinter on: [ :date | anArray at: date dayOfWeek ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/instance/^comma.st b/repository/Grease-Core.package/GRPrinter.class/instance/^comma.st deleted file mode 100644 index a5ed96c8..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/instance/^comma.st +++ /dev/null @@ -1,3 +0,0 @@ -operators -, aPrinter - ^ GRSequentialPrinter new , self , aPrinter \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/instance/pad.center.to..st b/repository/Grease-Core.package/GRPrinter.class/instance/pad.center.to..st deleted file mode 100644 index 56ed0283..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/instance/pad.center.to..st +++ /dev/null @@ -1,15 +0,0 @@ -utilities -pad: aString center: aCharacter to: anInteger - "Pad to the center of aString with aCharacter to at least anInteger characters." - - | result index | - anInteger <= aString size - ifTrue: [ ^ aString ]. - index := (anInteger - aString size) // 2. - result := (String new: anInteger) atAllPut: aCharacter. - result - replaceFrom: index + 1 - to: index + aString size - with: aString - startingAt: 1. - ^ result \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/instance/pad.left.to..st b/repository/Grease-Core.package/GRPrinter.class/instance/pad.left.to..st deleted file mode 100644 index a327491f..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/instance/pad.left.to..st +++ /dev/null @@ -1,14 +0,0 @@ -utilities -pad: aString left: aCharacter to: anInteger - "Pad to the left side of aString with aCharacter to at least anInteger characters." - - | result | - anInteger <= aString size - ifTrue: [ ^ aString ]. - result := (String new: anInteger) atAllPut: aCharacter. - result - replaceFrom: anInteger - aString size + 1 - to: anInteger - with: aString - startingAt: 1. - ^ result \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/instance/pad.right.to..st b/repository/Grease-Core.package/GRPrinter.class/instance/pad.right.to..st deleted file mode 100644 index 640248e4..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/instance/pad.right.to..st +++ /dev/null @@ -1,14 +0,0 @@ -utilities -pad: aString right: aCharacter to: anInteger - "Pad to the right side of aString with aCharacter to at least anInteger characters." - - | result | - anInteger <= aString size - ifTrue: [ ^ aString ]. - result := (String new: anInteger) atAllPut: aCharacter. - result - replaceFrom: 1 - to: aString size - with: aString - startingAt: 1. - ^ result \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/instance/print..st b/repository/Grease-Core.package/GRPrinter.class/instance/print..st deleted file mode 100644 index 89bd2cf5..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/instance/print..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -print: anObject - ^ String streamContents: [ :stream | self print: anObject on: stream ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/instance/print.on..st b/repository/Grease-Core.package/GRPrinter.class/instance/print.on..st deleted file mode 100644 index 58231dcc..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/instance/print.on..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -print: anObject on: aStream - "Subclasses override this method to produce some output." \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPrinter.class/properties.json b/repository/Grease-Core.package/GRPrinter.class/properties.json deleted file mode 100644 index 5a6bf772..00000000 --- a/repository/Grease-Core.package/GRPrinter.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRObject", - "category" : "Grease-Core-Text", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPrinter", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSequentialPrinter.class/README.md b/repository/Grease-Core.package/GRSequentialPrinter.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Core.package/GRSequentialPrinter.class/instance/^comma.st b/repository/Grease-Core.package/GRSequentialPrinter.class/instance/^comma.st deleted file mode 100644 index 287019c6..00000000 --- a/repository/Grease-Core.package/GRSequentialPrinter.class/instance/^comma.st +++ /dev/null @@ -1,3 +0,0 @@ -operators -, aConverter - parts add: aConverter \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSequentialPrinter.class/instance/initialize.st b/repository/Grease-Core.package/GRSequentialPrinter.class/instance/initialize.st deleted file mode 100644 index 97a522e0..00000000 --- a/repository/Grease-Core.package/GRSequentialPrinter.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initialize - super initialize. - parts := OrderedCollection new \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSequentialPrinter.class/instance/print.on..st b/repository/Grease-Core.package/GRSequentialPrinter.class/instance/print.on..st deleted file mode 100644 index b4c06885..00000000 --- a/repository/Grease-Core.package/GRSequentialPrinter.class/instance/print.on..st +++ /dev/null @@ -1,3 +0,0 @@ -printing -print: anObject on: aStream - parts do: [ :each | each print: anObject on: aStream ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSequentialPrinter.class/properties.json b/repository/Grease-Core.package/GRSequentialPrinter.class/properties.json deleted file mode 100644 index 2b409dea..00000000 --- a/repository/Grease-Core.package/GRSequentialPrinter.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRPrinter", - "category" : "Grease-Core-Text", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "parts" - ], - "name" : "GRSequentialPrinter", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSignPrinter.class/README.md b/repository/Grease-Core.package/GRSignPrinter.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Core.package/GRSignPrinter.class/instance/initialize.st b/repository/Grease-Core.package/GRSignPrinter.class/instance/initialize.st deleted file mode 100644 index db314a55..00000000 --- a/repository/Grease-Core.package/GRSignPrinter.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialization -initialize - super initialize. - self negativePrinter: $-. - self positivePrinter: nil \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSignPrinter.class/instance/negativePrinter..st b/repository/Grease-Core.package/GRSignPrinter.class/instance/negativePrinter..st deleted file mode 100644 index 910228c3..00000000 --- a/repository/Grease-Core.package/GRSignPrinter.class/instance/negativePrinter..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -negativePrinter: aPrinter - "The printer to be used when the number is negative." - - negativePrinter := aPrinter \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSignPrinter.class/instance/positivePrinter..st b/repository/Grease-Core.package/GRSignPrinter.class/instance/positivePrinter..st deleted file mode 100644 index f4c64563..00000000 --- a/repository/Grease-Core.package/GRSignPrinter.class/instance/positivePrinter..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -positivePrinter: aPrinter - "The printer to be used when the number is zero or positive." - - positivePrinter := aPrinter \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSignPrinter.class/instance/print.on..st b/repository/Grease-Core.package/GRSignPrinter.class/instance/print.on..st deleted file mode 100644 index acf1c72d..00000000 --- a/repository/Grease-Core.package/GRSignPrinter.class/instance/print.on..st +++ /dev/null @@ -1,5 +0,0 @@ -printing -print: anObject on: aStream - anObject negative - ifTrue: [ negativePrinter print: anObject on: aStream ] - ifFalse: [ positivePrinter print: anObject on: aStream ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSignPrinter.class/properties.json b/repository/Grease-Core.package/GRSignPrinter.class/properties.json deleted file mode 100644 index 498737bc..00000000 --- a/repository/Grease-Core.package/GRSignPrinter.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRPrinter", - "category" : "Grease-Core-Text", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "negativePrinter", - "positivePrinter" - ], - "name" : "GRSignPrinter", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/README.md b/repository/Grease-Core.package/GRSmallDictionary.class/README.md deleted file mode 100644 index 2665b2d5..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am an implementation of a dictionary. Compared to other dictionaries I am very efficient for small sizes, speed- and space-wise. I also mantain the order in which elements are added when iterating. My implementation features some ideas from the RefactoringBrowser. \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/class/new..st b/repository/Grease-Core.package/GRSmallDictionary.class/class/new..st deleted file mode 100644 index 824ef34b..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/class/new..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -new: anInteger - ^ self basicNew initialize: anInteger; yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/class/new.st b/repository/Grease-Core.package/GRSmallDictionary.class/class/new.st deleted file mode 100644 index 0b4df5ae..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/class/new.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -new - ^ self new: 3 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/class/withAll..st b/repository/Grease-Core.package/GRSmallDictionary.class/class/withAll..st deleted file mode 100644 index a9509fa0..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/class/withAll..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -withAll: aDictionary - ^ (self new: aDictionary size) - addAll: aDictionary; - yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/add..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/add..st deleted file mode 100644 index ba30aeaa..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/add..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -add: anAssociation - self at: anAssociation key put: anAssociation value. - ^ anAssociation \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/addAll..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/addAll..st deleted file mode 100644 index b1c0b1a7..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/addAll..st +++ /dev/null @@ -1,4 +0,0 @@ -adding -addAll: aDictionary - aDictionary keysAndValuesDo: [ :key :value | self at: key put: value ]. - ^ aDictionary \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/any.st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/any.st deleted file mode 100644 index 9645114f..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/any.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -any - self isEmpty - ifTrue: [ ^ self errorEmptyCollection ]. - ^ values at: 1 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/associations.st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/associations.st deleted file mode 100644 index 040aeb70..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/associations.st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -associations - "Answer a Collection containing the receiver's associations." - - | result | - result := WriteStream on: (Array new: self size). - self associationsDo: [ :assoc | result nextPut: assoc ]. - ^ result contents \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/associationsDo..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/associationsDo..st deleted file mode 100644 index 4d326cdb..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/associationsDo..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -associationsDo: aBlock - self keysAndValuesDo: [ :key :value | aBlock value: key -> value ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/at..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/at..st deleted file mode 100644 index 15d63bc0..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/at..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -at: aKey - "Answer the value associated with aKey. Raise an exception, if no such key is defined." - - ^ self at: aKey ifAbsent: [ self errorKeyNotFound ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/at.ifAbsent..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/at.ifAbsent..st deleted file mode 100644 index 4072e999..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/at.ifAbsent..st +++ /dev/null @@ -1,9 +0,0 @@ -accessing -at: aKey ifAbsent: aBlock - "Answer the value associated with aKey. Evaluate aBlock, if no such key is defined." - - | index | - index := self findIndexFor: aKey. - ^ index = 0 - ifFalse: [ values at: index ] - ifTrue: [ aBlock value ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/at.ifAbsentPut..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/at.ifAbsentPut..st deleted file mode 100644 index 9cd278fc..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/at.ifAbsentPut..st +++ /dev/null @@ -1,9 +0,0 @@ -accessing -at: aKey ifAbsentPut: aBlock - "Answer the value associated with aKey. Evaluate aBlock, if no such key is defined and store the return value." - - | index | - index := self findIndexFor: aKey. - ^ index = 0 - ifFalse: [ values at: index ] - ifTrue: [ self privateAt: aKey put: aBlock value ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/at.ifPresent..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/at.ifPresent..st deleted file mode 100644 index fee365a1..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/at.ifPresent..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -at: aKey ifPresent: aBlock - "Lookup aKey in the receiver. If it is present, answer the value of evaluating the given block with the value associated with the key. Otherwise, answer nil." - - | index | - index := self findIndexFor: aKey. - ^ index = 0 ifFalse: [ aBlock value: (values at: index) ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/at.put..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/at.put..st deleted file mode 100644 index 4668c1ad..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/at.put..st +++ /dev/null @@ -1,9 +0,0 @@ -accessing -at: aKey put: aValue - "Set the value of aKey to be aValue." - - | index | - index := self findIndexFor: aKey. - ^ index = 0 - ifFalse: [ values at: index put: aValue ] - ifTrue: [ self privateAt: aKey put: aValue ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/do..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/do..st deleted file mode 100644 index 3e48ad0e..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/do..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -do: aBlock - 1 to: size do: [ :index | aBlock value: (values at: index) ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/errorEmptyCollection.st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/errorEmptyCollection.st deleted file mode 100644 index 53663322..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/errorEmptyCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -private -errorEmptyCollection - self error: 'Empty' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/errorKeyNotFound.st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/errorKeyNotFound.st deleted file mode 100644 index 1158cdaa..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/errorKeyNotFound.st +++ /dev/null @@ -1,3 +0,0 @@ -private -errorKeyNotFound - self error: 'Key not found' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/findIndexFor..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/findIndexFor..st deleted file mode 100644 index 755866d2..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/findIndexFor..st +++ /dev/null @@ -1,6 +0,0 @@ -private -findIndexFor: aKey - 1 to: size do: [ :index | - (keys at: index) = aKey - ifTrue: [ ^ index ] ]. - ^ 0 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/grow.st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/grow.st deleted file mode 100644 index 81ad326d..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/grow.st +++ /dev/null @@ -1,10 +0,0 @@ -private -grow - | newKeys newValues | - newKeys := Array new: 2 * size. - newValues := Array new: 2 * size. - 1 to: size do: [ :index | - newKeys at: index put: (keys at: index). - newValues at: index put: (values at: index) ]. - keys := newKeys. - values := newValues \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/includesKey..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/includesKey..st deleted file mode 100644 index 936a01fd..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/includesKey..st +++ /dev/null @@ -1,5 +0,0 @@ -testing -includesKey: aKey - "Answer whether the receiver has a key equal to aKey." - - ^ (self findIndexFor: aKey) ~= 0 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/initialize..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/initialize..st deleted file mode 100644 index a1ce52f4..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/initialize..st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize: anInteger - self initialize. - size := 0. - keys := Array new: anInteger. - values := Array new: anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/isCollection.st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/isCollection.st deleted file mode 100644 index 7678ef8e..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/isCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isCollection - ^ true \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/isEmpty.st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/isEmpty.st deleted file mode 100644 index 64734869..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/isEmpty.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isEmpty - ^ size = 0 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/keys.st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/keys.st deleted file mode 100644 index b672b6c8..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/keys.st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -keys - ^ keys copyFrom: 1 to: size \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/keysAndValuesDo..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/keysAndValuesDo..st deleted file mode 100644 index 89ae762e..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/keysAndValuesDo..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -keysAndValuesDo: aBlock - 1 to: size do: [ :index | aBlock value: (keys at: index) value: (values at: index) ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/keysDo..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/keysDo..st deleted file mode 100644 index 9ee85274..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/keysDo..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -keysDo: aBlock - 1 to: size do: [ :each | aBlock value: (keys at: each) ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/noneSatisfy..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/noneSatisfy..st deleted file mode 100644 index 446d5103..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/noneSatisfy..st +++ /dev/null @@ -1,5 +0,0 @@ -enumerating -noneSatisfy: aOneArgumentBlock - 1 to: size do: [ :index | - (aOneArgumentBlock value: (values at: index)) ifTrue: [ ^ false ] ]. - ^ true \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/notEmpty.st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/notEmpty.st deleted file mode 100644 index 5c2936d1..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/notEmpty.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -notEmpty - ^ size ~= 0 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/postCopy.st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/postCopy.st deleted file mode 100644 index dd2bd295..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/postCopy.st +++ /dev/null @@ -1,5 +0,0 @@ -copying -postCopy - super postCopy. - keys := keys copy. - values := values copy \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/printOn..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/printOn..st deleted file mode 100644 index 1dc1be7b..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/printOn..st +++ /dev/null @@ -1,23 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - - aStream nextPut: $(. - self size <= 100 - ifTrue: [ - | first | - first := true. - self keysAndValuesDo: [ :key :value | - "keysAndValuesDo:separatedBy: would be nice" - first - ifTrue: [ first := false ] - ifFalse: [ aStream space ]. - aStream - print: key; - nextPutAll: '->'; - print: value ] ] - ifFalse: [ - aStream - nextPutAll: 'size '; - print: self size ]. - aStream nextPut: $) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/privateAt.put..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/privateAt.put..st deleted file mode 100644 index 6c7f036f..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/privateAt.put..st +++ /dev/null @@ -1,5 +0,0 @@ -private -privateAt: aKey put: aValue - size = keys size ifTrue: [ self grow ]. - keys at: (size := size + 1) put: aKey. - ^ values at: size put: aValue \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/removeIndex..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/removeIndex..st deleted file mode 100644 index d936d69f..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/removeIndex..st +++ /dev/null @@ -1,12 +0,0 @@ -private -removeIndex: index - | value | - value := values at: index. - index to: size - 1 do: - [ :i | - keys at: i put: (keys at: i + 1). - values at: i put: (values at: i + 1) ]. - keys at: size put: nil. - values at: size put: nil. - size := size - 1. - ^ value \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/removeKey..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/removeKey..st deleted file mode 100644 index 4ba43dbb..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/removeKey..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -removeKey: aKey - "Remove aKey from the receiver, raise an exception if the element is missing." - - ^ self removeKey: aKey ifAbsent: [ self errorKeyNotFound ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/removeKey.ifAbsent..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/removeKey.ifAbsent..st deleted file mode 100644 index 06913a30..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/removeKey.ifAbsent..st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -removeKey: aKey ifAbsent: aBlock - "Remove aKey from the receiver, evaluate aBlock if the element is missing." - - | index | - index := self findIndexFor: aKey. - index = 0 ifTrue: [ ^ aBlock value ]. - ^ self removeIndex: index \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/size.st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/size.st deleted file mode 100644 index 5936baf9..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/size.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -size - ^ size \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/sorted..st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/sorted..st deleted file mode 100644 index 42fd3983..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/sorted..st +++ /dev/null @@ -1,3 +0,0 @@ -sorting -sorted: aTwoArgumentBlock - ^ self values sorted: aTwoArgumentBlock \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/sorted.st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/sorted.st deleted file mode 100644 index 738161d8..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/sorted.st +++ /dev/null @@ -1,3 +0,0 @@ -sorting -sorted - ^ self values sorted \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/instance/values.st b/repository/Grease-Core.package/GRSmallDictionary.class/instance/values.st deleted file mode 100644 index 39f9464e..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/instance/values.st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -values - ^ values copyFrom: 1 to: size \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary.class/properties.json b/repository/Grease-Core.package/GRSmallDictionary.class/properties.json deleted file mode 100644 index 1019d4ab..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "commentStamp" : "jf 2/15/2010 15:51", - "super" : "GRObject", - "category" : "Grease-Core-Collections", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "size", - "keys", - "values" - ], - "name" : "GRSmallDictionary", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/README.md b/repository/Grease-Core.package/GRSmallDictionary2.class/README.md deleted file mode 100644 index 6eea01b2..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am an implementation of a dictionary. Compared to other dictionaries I am very efficient for small sizes, speed- and space-wise. I also mantain the order in which elements are added when iterating. My implementation features some ideas from the RefactoringBrowser and others from Eclipse Collections. \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/class/new..st b/repository/Grease-Core.package/GRSmallDictionary2.class/class/new..st deleted file mode 100644 index 824ef34b..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/class/new..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -new: anInteger - ^ self basicNew initialize: anInteger; yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/class/new.st b/repository/Grease-Core.package/GRSmallDictionary2.class/class/new.st deleted file mode 100644 index 0b4df5ae..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/class/new.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -new - ^ self new: 3 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/class/withAll..st b/repository/Grease-Core.package/GRSmallDictionary2.class/class/withAll..st deleted file mode 100644 index a9509fa0..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/class/withAll..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -withAll: aDictionary - ^ (self new: aDictionary size) - addAll: aDictionary; - yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/add..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/add..st deleted file mode 100644 index 40efe4a3..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/add..st +++ /dev/null @@ -1,4 +0,0 @@ -adding -add: anAssociation - self at: anAssociation key put: anAssociation value. - ^ anAssociation \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/addAll..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/addAll..st deleted file mode 100644 index b1c0b1a7..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/addAll..st +++ /dev/null @@ -1,4 +0,0 @@ -adding -addAll: aDictionary - aDictionary keysAndValuesDo: [ :key :value | self at: key put: value ]. - ^ aDictionary \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/any.st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/any.st deleted file mode 100644 index bb83f5bf..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/any.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -any - self isEmpty - ifTrue: [ ^ self errorEmptyCollection ]. - ^ table at: 2 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/associations.st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/associations.st deleted file mode 100644 index 040aeb70..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/associations.st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -associations - "Answer a Collection containing the receiver's associations." - - | result | - result := WriteStream on: (Array new: self size). - self associationsDo: [ :assoc | result nextPut: assoc ]. - ^ result contents \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/associationsDo..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/associationsDo..st deleted file mode 100644 index 4d326cdb..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/associationsDo..st +++ /dev/null @@ -1,3 +0,0 @@ -enumerating -associationsDo: aBlock - self keysAndValuesDo: [ :key :value | aBlock value: key -> value ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/at..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/at..st deleted file mode 100644 index 15d63bc0..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/at..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -at: aKey - "Answer the value associated with aKey. Raise an exception, if no such key is defined." - - ^ self at: aKey ifAbsent: [ self errorKeyNotFound ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/at.ifAbsent..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/at.ifAbsent..st deleted file mode 100644 index c0ba7e46..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/at.ifAbsent..st +++ /dev/null @@ -1,9 +0,0 @@ -accessing -at: aKey ifAbsent: aBlock - "Answer the value associated with aKey. Evaluate aBlock, if no such key is defined." - - | index | - index := self findIndexFor: aKey. - ^ index = 0 - ifFalse: [ table at: index + 1 ] - ifTrue: [ aBlock value ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/at.ifAbsentPut..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/at.ifAbsentPut..st deleted file mode 100644 index 2ab70073..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/at.ifAbsentPut..st +++ /dev/null @@ -1,9 +0,0 @@ -accessing -at: aKey ifAbsentPut: aBlock - "Answer the value associated with aKey. Evaluate aBlock, if no such key is defined and store the return value." - - | index | - index := self findIndexFor: aKey. - ^ index = 0 - ifFalse: [ table at: index + 1 ] - ifTrue: [ self privateAt: aKey put: aBlock value ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/at.ifPresent..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/at.ifPresent..st deleted file mode 100644 index cb051317..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/at.ifPresent..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -at: aKey ifPresent: aBlock - "Lookup aKey in the receiver. If it is present, answer the value of evaluating the given block with the value associated with the key. Otherwise, answer nil." - - | index | - index := self findIndexFor: aKey. - ^ index = 0 ifFalse: [ aBlock value: (table at: index + 1) ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/at.put..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/at.put..st deleted file mode 100644 index 097781a5..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/at.put..st +++ /dev/null @@ -1,9 +0,0 @@ -accessing -at: aKey put: aValue - "Set the value of aKey to be aValue." - - | index | - index := self findIndexFor: aKey. - ^ index = 0 - ifFalse: [ table at: index + 1 put: aValue ] - ifTrue: [ self privateAt: aKey put: aValue ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/do..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/do..st deleted file mode 100644 index 2bd3792c..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/do..st +++ /dev/null @@ -1,4 +0,0 @@ -enumerating -do: aBlock - 2 to: size * 2 by: 2 do: [ :index | - aBlock value: (table at: index) ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/errorEmptyCollection.st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/errorEmptyCollection.st deleted file mode 100644 index 53663322..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/errorEmptyCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -private -errorEmptyCollection - self error: 'Empty' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/errorKeyNotFound.st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/errorKeyNotFound.st deleted file mode 100644 index 1158cdaa..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/errorKeyNotFound.st +++ /dev/null @@ -1,3 +0,0 @@ -private -errorKeyNotFound - self error: 'Key not found' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/findIndexFor..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/findIndexFor..st deleted file mode 100644 index 0de814e5..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/findIndexFor..st +++ /dev/null @@ -1,6 +0,0 @@ -private -findIndexFor: aKey - 1 to: size * 2 - 1 by: 2 do: [ :index | - (table at: index) = aKey - ifTrue: [ ^ index ] ]. - ^ 0 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/grow.st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/grow.st deleted file mode 100644 index 9fac4654..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/grow.st +++ /dev/null @@ -1,8 +0,0 @@ -private -grow - | newTable | - "#replaceFrom:to:with:startingAt: would be better but not portable" - newTable := Array new: 4 * size. - 1 to: size * 2 do: [ :index | - newTable at: index put: (table at: index) ]. - table := newTable \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/includesKey..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/includesKey..st deleted file mode 100644 index 936a01fd..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/includesKey..st +++ /dev/null @@ -1,5 +0,0 @@ -testing -includesKey: aKey - "Answer whether the receiver has a key equal to aKey." - - ^ (self findIndexFor: aKey) ~= 0 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/initialize..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/initialize..st deleted file mode 100644 index 21ab9452..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/initialize..st +++ /dev/null @@ -1,5 +0,0 @@ -initialization -initialize: anInteger - self initialize. - size := 0. - table := Array new: anInteger * 2 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/isCollection.st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/isCollection.st deleted file mode 100644 index 7678ef8e..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/isCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isCollection - ^ true \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/isEmpty.st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/isEmpty.st deleted file mode 100644 index 64734869..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/isEmpty.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isEmpty - ^ size = 0 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/keys.st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/keys.st deleted file mode 100644 index 95ff3bf7..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/keys.st +++ /dev/null @@ -1,10 +0,0 @@ -enumerating -keys - | keys i | - size = 0 ifTrue: [ ^ #() ]. - i := 1. - keys := Array new: size. - 1 to: size * 2 - 1 by: 2 do: [ :index | - keys at: i put: (table at: index). - i := i + 1 ]. - ^ keys \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/keysAndValuesDo..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/keysAndValuesDo..st deleted file mode 100644 index c7087a27..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/keysAndValuesDo..st +++ /dev/null @@ -1,6 +0,0 @@ -enumerating -keysAndValuesDo: aBlock - 1 to: size * 2 - 1 by: 2 do: [ :index | - aBlock - value: (table at: index) - value: (table at: index + 1) ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/keysDo..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/keysDo..st deleted file mode 100644 index 6a712402..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/keysDo..st +++ /dev/null @@ -1,4 +0,0 @@ -enumerating -keysDo: aBlock - 1 to: size * 2 - 1 by: 2 do: [ :index | - aBlock value: (table at: index) ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/noneSatisfy..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/noneSatisfy..st deleted file mode 100644 index 5edb5175..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/noneSatisfy..st +++ /dev/null @@ -1,6 +0,0 @@ -enumerating -noneSatisfy: aOneArgumentBlock - size = 0 ifTrue: [ ^ true ]. - 2 to: size * 2 by: 2 do: [ :index | - (aOneArgumentBlock value: (table at: index)) ifTrue: [ ^ false ] ]. - ^ true \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/notEmpty.st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/notEmpty.st deleted file mode 100644 index 5c2936d1..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/notEmpty.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -notEmpty - ^ size ~= 0 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/postCopy.st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/postCopy.st deleted file mode 100644 index 63a5f0d0..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/postCopy.st +++ /dev/null @@ -1,4 +0,0 @@ -copying -postCopy - super postCopy. - table := table copy \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/printOn..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/printOn..st deleted file mode 100644 index 1dc1be7b..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/printOn..st +++ /dev/null @@ -1,23 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - - aStream nextPut: $(. - self size <= 100 - ifTrue: [ - | first | - first := true. - self keysAndValuesDo: [ :key :value | - "keysAndValuesDo:separatedBy: would be nice" - first - ifTrue: [ first := false ] - ifFalse: [ aStream space ]. - aStream - print: key; - nextPutAll: '->'; - print: value ] ] - ifFalse: [ - aStream - nextPutAll: 'size '; - print: self size ]. - aStream nextPut: $) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/privateAt.put..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/privateAt.put..st deleted file mode 100644 index 12bce577..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/privateAt.put..st +++ /dev/null @@ -1,7 +0,0 @@ -private -privateAt: aKey put: aValue - size * 2 = table size ifTrue: [ self grow ]. - table at: (size * 2 + 1) put: aKey. - table at: (size * 2 + 2) put: aValue. - size := size + 1. - ^ aValue \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeIndex..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeIndex..st deleted file mode 100644 index 79822d57..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeIndex..st +++ /dev/null @@ -1,10 +0,0 @@ -private -removeIndex: index - | value | - value := table at: index + 1. - index to: size * 2 - 2 do: [ :i | - table at: i put: (table at: i + 2) ]. - table at: size * 2 - 1 put: nil. - table at: size * 2 put: nil. - size := size - 1. - ^ value \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeKey..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeKey..st deleted file mode 100644 index 987c66f6..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeKey..st +++ /dev/null @@ -1,5 +0,0 @@ -removing -removeKey: aKey - "Remove aKey from the receiver, raise an exception if the element is missing." - - ^ self removeKey: aKey ifAbsent: [ self errorKeyNotFound ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeKey.ifAbsent..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeKey.ifAbsent..st deleted file mode 100644 index f1ab9aa6..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/removeKey.ifAbsent..st +++ /dev/null @@ -1,8 +0,0 @@ -removing -removeKey: aKey ifAbsent: aBlock - "Remove aKey from the receiver, evaluate aBlock if the element is missing." - - | index | - index := self findIndexFor: aKey. - index = 0 ifTrue: [ ^ aBlock value ]. - ^ self removeIndex: index \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/size.st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/size.st deleted file mode 100644 index 5936baf9..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/size.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -size - ^ size \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/sorted..st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/sorted..st deleted file mode 100644 index 42fd3983..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/sorted..st +++ /dev/null @@ -1,3 +0,0 @@ -sorting -sorted: aTwoArgumentBlock - ^ self values sorted: aTwoArgumentBlock \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/sorted.st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/sorted.st deleted file mode 100644 index 738161d8..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/sorted.st +++ /dev/null @@ -1,3 +0,0 @@ -sorting -sorted - ^ self values sorted \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/values.st b/repository/Grease-Core.package/GRSmallDictionary2.class/instance/values.st deleted file mode 100644 index b9797de1..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/instance/values.st +++ /dev/null @@ -1,10 +0,0 @@ -enumerating -values - | values i | - size = 0 ifTrue: [ ^ #() ]. - i := 1. - values := Array new: size. - 2 to: size * 2 by: 2 do: [ :index | - values at: i put: (table at: index). - i := i + 1 ]. - ^ values \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallDictionary2.class/properties.json b/repository/Grease-Core.package/GRSmallDictionary2.class/properties.json deleted file mode 100644 index ff3e5f02..00000000 --- a/repository/Grease-Core.package/GRSmallDictionary2.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "pmm 8/22/2016 11:49", - "super" : "GRObject", - "category" : "Grease-Core-Collections", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "size", - "table" - ], - "name" : "GRSmallDictionary2", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/README.md b/repository/Grease-Core.package/GRSmallOrderedSet.class/README.md deleted file mode 100644 index 88109dda..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am an implementation of a dictionary. Compared to other dictionaries I am very efficient for small sizes, speed- and space-wise. I also mantain the order in which elements are added when iterating. \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/class/new..st b/repository/Grease-Core.package/GRSmallOrderedSet.class/class/new..st deleted file mode 100644 index 824ef34b..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/class/new..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -new: anInteger - ^ self basicNew initialize: anInteger; yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/class/new.st b/repository/Grease-Core.package/GRSmallOrderedSet.class/class/new.st deleted file mode 100644 index 0b4df5ae..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/class/new.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -new - ^ self new: 3 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/class/withAll..st b/repository/Grease-Core.package/GRSmallOrderedSet.class/class/withAll..st deleted file mode 100644 index a9509fa0..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/class/withAll..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -withAll: aDictionary - ^ (self new: aDictionary size) - addAll: aDictionary; - yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/add..st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/add..st deleted file mode 100644 index 021b2140..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/add..st +++ /dev/null @@ -1,5 +0,0 @@ -adding -add: newObject - (self findIndexFor: newObject) = 0 - ifTrue: [ self privateAdd: newObject ]. - ^ newObject \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/addAll..st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/addAll..st deleted file mode 100644 index d86acbfc..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/addAll..st +++ /dev/null @@ -1,5 +0,0 @@ -adding -addAll: aCollection - aCollection do: [ :each | - self add: each ]. - ^ aCollection \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/do..st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/do..st deleted file mode 100644 index b88f266d..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/do..st +++ /dev/null @@ -1,4 +0,0 @@ -enumerating -do: aOneArgumentBlock - 1 to: size do: [ :i | - aOneArgumentBlock value: (table at: i) ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/do.separatedBy..st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/do.separatedBy..st deleted file mode 100644 index 04733c92..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/do.separatedBy..st +++ /dev/null @@ -1,5 +0,0 @@ -enumerating -do: aOneArgumentBlock separatedBy: aNiladicBlock - 1 to: size do: [ :i | - i > 1 ifTrue: [ aNiladicBlock value ]. - aOneArgumentBlock value: (table at: i) ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/errorNotFound.st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/errorNotFound.st deleted file mode 100644 index 3395f179..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/errorNotFound.st +++ /dev/null @@ -1,3 +0,0 @@ -private -errorNotFound - self error: 'Not found' \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/findIndexFor..st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/findIndexFor..st deleted file mode 100644 index 83adeab0..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/findIndexFor..st +++ /dev/null @@ -1,6 +0,0 @@ -private -findIndexFor: aKey - 1 to: size do: [ :index | - (table at: index) = aKey - ifTrue: [ ^ index ] ]. - ^ 0 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/grow.st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/grow.st deleted file mode 100644 index 1b22ca59..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/grow.st +++ /dev/null @@ -1,8 +0,0 @@ -private -grow - | newTable | - "#replaceFrom:to:with:startingAt: would be better but not portable" - newTable := Array new: 2 * size. - 1 to: size do: [ :index | - newTable at: index put: (table at: index) ]. - table := newTable \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/includes..st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/includes..st deleted file mode 100644 index d88c7698..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/includes..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -includes: anObject - ^ (self findIndexFor: anObject) ~= 0 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/initialize..st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/initialize..st deleted file mode 100644 index 9740da99..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/initialize..st +++ /dev/null @@ -1,5 +0,0 @@ -initialization -initialize: anInteger - self initialize. - size := 0. - table := Array new: anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/isCollection.st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/isCollection.st deleted file mode 100644 index 7678ef8e..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/isCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isCollection - ^ true \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/isEmpty.st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/isEmpty.st deleted file mode 100644 index 64734869..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/isEmpty.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isEmpty - ^ size = 0 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/postCopy.st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/postCopy.st deleted file mode 100644 index 63a5f0d0..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/postCopy.st +++ /dev/null @@ -1,4 +0,0 @@ -copying -postCopy - super postCopy. - table := table copy \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/privateAdd..st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/privateAdd..st deleted file mode 100644 index a66f316b..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/privateAdd..st +++ /dev/null @@ -1,4 +0,0 @@ -private -privateAdd: newObject - size = table size ifTrue: [ self grow ]. - table at: (size := size + 1) put: newObject \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/remove..st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/remove..st deleted file mode 100644 index 352daf77..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/remove..st +++ /dev/null @@ -1,3 +0,0 @@ -removing -remove: anObject - ^ self remove: anObject ifAbsent: [ self errorNotFound ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/remove.ifAbsent..st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/remove.ifAbsent..st deleted file mode 100644 index cfd71048..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/remove.ifAbsent..st +++ /dev/null @@ -1,8 +0,0 @@ -removing -remove: anObject ifAbsent: aNiladicBlock - | index | - index := self findIndexFor: anObject. - index = 0 - ifTrue: [ ^ aNiladicBlock value ] - ifFalse: [ self removeIndex: index ]. - ^ anObject \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/removeIndex..st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/removeIndex..st deleted file mode 100644 index 8f1edb35..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/removeIndex..st +++ /dev/null @@ -1,6 +0,0 @@ -private -removeIndex: index - table at: index put: nil. - index to: size - 1 do: [ :i | - table at: i put: (table at: i + 1) ]. - size := size - 1 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/size.st b/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/size.st deleted file mode 100644 index 5936baf9..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/instance/size.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -size - ^ size \ No newline at end of file diff --git a/repository/Grease-Core.package/GRSmallOrderedSet.class/properties.json b/repository/Grease-Core.package/GRSmallOrderedSet.class/properties.json deleted file mode 100644 index 6ca318aa..00000000 --- a/repository/Grease-Core.package/GRSmallOrderedSet.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "pmm 8/25/2016 14:03", - "super" : "GRObject", - "category" : "Grease-Core-Collections", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "size", - "table" - ], - "name" : "GRSmallOrderedSet", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/README.md b/repository/Grease-Core.package/GRStringPrinter.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/character..st b/repository/Grease-Core.package/GRStringPrinter.class/instance/character..st deleted file mode 100644 index fd789e7b..00000000 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/character..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -character: aCharacter - "The character to pad the string with." - - character := aCharacter \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/initialize.st b/repository/Grease-Core.package/GRStringPrinter.class/instance/initialize.st deleted file mode 100644 index d87b8856..00000000 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialization -initialize - super initialize. - self character: $ ; length: nil. - self trimNone; padNone \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/length..st b/repository/Grease-Core.package/GRStringPrinter.class/instance/length..st deleted file mode 100644 index 3a2aede1..00000000 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/length..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -length: anInteger - "The maximal size of the string, or the size to pad to." - - length := anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/padCenter.st b/repository/Grease-Core.package/GRStringPrinter.class/instance/padCenter.st deleted file mode 100644 index d67d56a5..00000000 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/padCenter.st +++ /dev/null @@ -1,5 +0,0 @@ -padding -padCenter - "Pad to the center." - - pad := #pad:center:to: \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/padLeft.st b/repository/Grease-Core.package/GRStringPrinter.class/instance/padLeft.st deleted file mode 100644 index e12c2152..00000000 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/padLeft.st +++ /dev/null @@ -1,5 +0,0 @@ -padding -padLeft - "Pad to the left." - - pad := #pad:left:to: \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/padNone.st b/repository/Grease-Core.package/GRStringPrinter.class/instance/padNone.st deleted file mode 100644 index 8ef5e9f2..00000000 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/padNone.st +++ /dev/null @@ -1,5 +0,0 @@ -padding -padNone - "Do not pad the input." - - pad := nil \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/padRight.st b/repository/Grease-Core.package/GRStringPrinter.class/instance/padRight.st deleted file mode 100644 index 57cb176b..00000000 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/padRight.st +++ /dev/null @@ -1,5 +0,0 @@ -padding -padRight - "Pad to the right." - - pad := #pad:right:to: \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/print.on..st b/repository/Grease-Core.package/GRStringPrinter.class/instance/print.on..st deleted file mode 100644 index 7646fdad..00000000 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/print.on..st +++ /dev/null @@ -1,12 +0,0 @@ -printing -print: anObject on: aStream - | string | - string := anObject greaseString. - trim isNil - ifFalse: [ string := string perform: trim ]. - length isNil ifFalse: [ - length < string size - ifTrue: [ string := string copyFrom: 1 to: length ]. - (pad isNil or: [ character isNil ]) - ifFalse: [ string := self perform: pad with: string with: character with: length ] ]. - aStream nextPutAll: string \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/trimBoth.st b/repository/Grease-Core.package/GRStringPrinter.class/instance/trimBoth.st deleted file mode 100644 index f257d105..00000000 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/trimBoth.st +++ /dev/null @@ -1,5 +0,0 @@ -trimming -trimBoth - "Trim to the left and to the right." - - trim := #trimBoth \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/trimLeft.st b/repository/Grease-Core.package/GRStringPrinter.class/instance/trimLeft.st deleted file mode 100644 index ad43e532..00000000 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/trimLeft.st +++ /dev/null @@ -1,5 +0,0 @@ -trimming -trimLeft - "Trim to the left and to the right." - - trim := #trimLeft \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/trimNone.st b/repository/Grease-Core.package/GRStringPrinter.class/instance/trimNone.st deleted file mode 100644 index 38ab5b9b..00000000 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/trimNone.st +++ /dev/null @@ -1,5 +0,0 @@ -trimming -trimNone - "Do not trim the input." - - trim := nil \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/instance/trimRight.st b/repository/Grease-Core.package/GRStringPrinter.class/instance/trimRight.st deleted file mode 100644 index ecf896d3..00000000 --- a/repository/Grease-Core.package/GRStringPrinter.class/instance/trimRight.st +++ /dev/null @@ -1,5 +0,0 @@ -trimming -trimRight - "Trim to the left and to the right." - - trim := #trimRight \ No newline at end of file diff --git a/repository/Grease-Core.package/GRStringPrinter.class/properties.json b/repository/Grease-Core.package/GRStringPrinter.class/properties.json deleted file mode 100644 index 19d2dd05..00000000 --- a/repository/Grease-Core.package/GRStringPrinter.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRPrinter", - "category" : "Grease-Core-Text", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "trim", - "length", - "pad", - "character" - ], - "name" : "GRStringPrinter", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRUnboundMessage.class/README.md b/repository/Grease-Core.package/GRUnboundMessage.class/README.md deleted file mode 100644 index 5ad84405..00000000 --- a/repository/Grease-Core.package/GRUnboundMessage.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A delayed send that has none of the arguments defined in advance. \ No newline at end of file diff --git a/repository/Grease-Core.package/GRUnboundMessage.class/instance/argumentCount.st b/repository/Grease-Core.package/GRUnboundMessage.class/instance/argumentCount.st deleted file mode 100644 index 4845e0fa..00000000 --- a/repository/Grease-Core.package/GRUnboundMessage.class/instance/argumentCount.st +++ /dev/null @@ -1,3 +0,0 @@ -delegation -argumentCount - ^ selector numArgs \ No newline at end of file diff --git a/repository/Grease-Core.package/GRUnboundMessage.class/instance/mergeArguments..st b/repository/Grease-Core.package/GRUnboundMessage.class/instance/mergeArguments..st deleted file mode 100644 index 7d48195f..00000000 --- a/repository/Grease-Core.package/GRUnboundMessage.class/instance/mergeArguments..st +++ /dev/null @@ -1,3 +0,0 @@ -private -mergeArguments: anArray - ^ anArray \ No newline at end of file diff --git a/repository/Grease-Core.package/GRUnboundMessage.class/properties.json b/repository/Grease-Core.package/GRUnboundMessage.class/properties.json deleted file mode 100644 index 01ffa8ba..00000000 --- a/repository/Grease-Core.package/GRUnboundMessage.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "jf 3/14/2009 11:03", - "super" : "GRDelayedSendMessage", - "category" : "Grease-Core-Utilities", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRUnboundMessage", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRUnitPrinter.class/README.md b/repository/Grease-Core.package/GRUnitPrinter.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Core.package/GRUnitPrinter.class/class/base.units..st b/repository/Grease-Core.package/GRUnitPrinter.class/class/base.units..st deleted file mode 100644 index a824c272..00000000 --- a/repository/Grease-Core.package/GRUnitPrinter.class/class/base.units..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -base: anInteger units: anArray - ^ self new - base: anInteger; - units: anArray; - yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRUnitPrinter.class/instance/base..st b/repository/Grease-Core.package/GRUnitPrinter.class/instance/base..st deleted file mode 100644 index 63220604..00000000 --- a/repository/Grease-Core.package/GRUnitPrinter.class/instance/base..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -base: anInteger - base := anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRUnitPrinter.class/instance/fractionPrinter..st b/repository/Grease-Core.package/GRUnitPrinter.class/instance/fractionPrinter..st deleted file mode 100644 index ce5fb74c..00000000 --- a/repository/Grease-Core.package/GRUnitPrinter.class/instance/fractionPrinter..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -fractionPrinter: aPrinter - fractionPrinter := aPrinter \ No newline at end of file diff --git a/repository/Grease-Core.package/GRUnitPrinter.class/instance/initialize.st b/repository/Grease-Core.package/GRUnitPrinter.class/instance/initialize.st deleted file mode 100644 index 386dd3c0..00000000 --- a/repository/Grease-Core.package/GRUnitPrinter.class/instance/initialize.st +++ /dev/null @@ -1,9 +0,0 @@ -initialization -initialize - super initialize. - self integerPrinter: (GRNumberPrinter new - precision: 0; - yourself). - self fractionPrinter: (GRNumberPrinter new - precision: 1; - yourself) \ No newline at end of file diff --git a/repository/Grease-Core.package/GRUnitPrinter.class/instance/integerPrinter..st b/repository/Grease-Core.package/GRUnitPrinter.class/instance/integerPrinter..st deleted file mode 100644 index ae14accb..00000000 --- a/repository/Grease-Core.package/GRUnitPrinter.class/instance/integerPrinter..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -integerPrinter: aPrinter - integerPrinter := aPrinter \ No newline at end of file diff --git a/repository/Grease-Core.package/GRUnitPrinter.class/instance/print.on..st b/repository/Grease-Core.package/GRUnitPrinter.class/instance/print.on..st deleted file mode 100644 index 2dfbb8e9..00000000 --- a/repository/Grease-Core.package/GRUnitPrinter.class/instance/print.on..st +++ /dev/null @@ -1,10 +0,0 @@ -printing -print: anObject on: aStream - anObject = 1 - ifTrue: [ ^ self print: anObject unit: units first on: aStream ]. - units allButFirst - inject: anObject asFloat - into: [ :value :each | - value < base - ifFalse: [ value / base ] - ifTrue: [ ^ self print: value unit: each on: aStream ] ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRUnitPrinter.class/instance/print.unit.on..st b/repository/Grease-Core.package/GRUnitPrinter.class/instance/print.unit.on..st deleted file mode 100644 index 36ae76fb..00000000 --- a/repository/Grease-Core.package/GRUnitPrinter.class/instance/print.unit.on..st +++ /dev/null @@ -1,6 +0,0 @@ -printing -print: aNumber unit: aString on: aStream - (units first = aString or: [ units second = aString ]) - ifTrue: [ integerPrinter print: aNumber on: aStream ] - ifFalse: [ fractionPrinter print: aNumber on: aStream ]. - aStream nextPut: $ ; nextPutAll: aString \ No newline at end of file diff --git a/repository/Grease-Core.package/GRUnitPrinter.class/instance/units..st b/repository/Grease-Core.package/GRUnitPrinter.class/instance/units..st deleted file mode 100644 index ddf73c1d..00000000 --- a/repository/Grease-Core.package/GRUnitPrinter.class/instance/units..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -units: anArray - units := anArray \ No newline at end of file diff --git a/repository/Grease-Core.package/GRUnitPrinter.class/properties.json b/repository/Grease-Core.package/GRUnitPrinter.class/properties.json deleted file mode 100644 index 7db099ba..00000000 --- a/repository/Grease-Core.package/GRUnitPrinter.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRPrinter", - "category" : "Grease-Core-Text", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "integerPrinter", - "fractionPrinter", - "units", - "base" - ], - "name" : "GRUnitPrinter", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRUnsupportedEncodingError.class/README.md b/repository/Grease-Core.package/GRUnsupportedEncodingError.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Core.package/GRUnsupportedEncodingError.class/properties.json b/repository/Grease-Core.package/GRUnsupportedEncodingError.class/properties.json deleted file mode 100644 index 3a2e3bef..00000000 --- a/repository/Grease-Core.package/GRUnsupportedEncodingError.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRError", - "category" : "Grease-Core-Text", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRUnsupportedEncodingError", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/README.md b/repository/Grease-Core.package/GRVersion.class/README.md deleted file mode 100644 index 682f330f..00000000 --- a/repository/Grease-Core.package/GRVersion.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I model version numbers. I am comparable and I define a natural order. \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/class/major..st b/repository/Grease-Core.package/GRVersion.class/class/major..st deleted file mode 100644 index 5491367e..00000000 --- a/repository/Grease-Core.package/GRVersion.class/class/major..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -major: majorInteger - ^ self major: majorInteger minor: nil \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/class/major.minor..st b/repository/Grease-Core.package/GRVersion.class/class/major.minor..st deleted file mode 100644 index c20b97b8..00000000 --- a/repository/Grease-Core.package/GRVersion.class/class/major.minor..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -major: majorInteger minor: minorInteger - ^ self major: majorInteger minor: minorInteger revision: nil \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/class/major.minor.revision..st b/repository/Grease-Core.package/GRVersion.class/class/major.minor.revision..st deleted file mode 100644 index c90091c9..00000000 --- a/repository/Grease-Core.package/GRVersion.class/class/major.minor.revision..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -major: majorInteger minor: minorInteger revision: revisionInteger - ^ self basicNew - initializeWithMajor: majorInteger minor: minorInteger revision: revisionInteger; - yourself \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/class/new.st b/repository/Grease-Core.package/GRVersion.class/class/new.st deleted file mode 100644 index c5cd495b..00000000 --- a/repository/Grease-Core.package/GRVersion.class/class/new.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -new - ^ self major: 1 \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/^equals.st b/repository/Grease-Core.package/GRVersion.class/instance/^equals.st deleted file mode 100644 index 98163542..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/^equals.st +++ /dev/null @@ -1,7 +0,0 @@ -comparing -= otherVersion - ^ (major = otherVersion major) and: [ - ((minor ifNil: [ 0 ]) = (otherVersion minor ifNil: [ 0 ])) and: [ - ((revision ifNil: [ 0 ] ) = (otherVersion revision ifNil: [ 0 ])) and: [ - (stageLabel = otherVersion stage) and: [ - (stageNumber ifNil: [ 1 ]) = (otherVersion stageNumber ifNil: [ 1 ]) ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/^less.equals.st b/repository/Grease-Core.package/GRVersion.class/instance/^less.equals.st deleted file mode 100644 index c94905bd..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/^less.equals.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -<= otherVersion - ^ (self > otherVersion) not \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/^less.st b/repository/Grease-Core.package/GRVersion.class/instance/^less.st deleted file mode 100644 index 0f0d2853..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/^less.st +++ /dev/null @@ -1,13 +0,0 @@ -comparing -< otherVersion - (major < otherVersion major) ifTrue: [ ^ true ]. - (otherVersion major < major) ifTrue: [ ^ false ]. - ((minor ifNil: [ 0 ]) < (otherVersion minor ifNil: [ 0 ])) ifTrue: [ ^ true ]. - ((otherVersion minor ifNil: [ 0 ]) < (minor ifNil: [ 0 ])) ifTrue: [ ^ false ]. - ((revision ifNil: [ 0 ]) < (otherVersion revision ifNil: [ 0 ])) ifTrue: [ ^ true ]. - ((otherVersion revision ifNil: [ 0 ]) < (revision ifNil: [ 0 ])) ifTrue: [ ^ false ]. - (stageLabel = otherVersion stage) ifTrue: [ - ^ ((stageNumber ifNil: [ 1 ]) < (otherVersion stageNumber ifNil: [ 1 ])) ]. - stageLabel isNil ifTrue: [ ^ false ]. - otherVersion stage isNil ifTrue: [ ^ true ]. - ^ stageLabel < otherVersion stage \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/^more.equals.st b/repository/Grease-Core.package/GRVersion.class/instance/^more.equals.st deleted file mode 100644 index 8bec131c..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/^more.equals.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing ->= otherVersion - ^ (self < otherVersion) not \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/^more.st b/repository/Grease-Core.package/GRVersion.class/instance/^more.st deleted file mode 100644 index 1e0a0c5e..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/^more.st +++ /dev/null @@ -1,3 +0,0 @@ -comparing -> otherVersion - ^ otherVersion < self \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/beAlpha..st b/repository/Grease-Core.package/GRVersion.class/instance/beAlpha..st deleted file mode 100644 index 73f341ce..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/beAlpha..st +++ /dev/null @@ -1,3 +0,0 @@ -convenience -beAlpha: anInteger - self stage: #alpha number: anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/beAlpha.st b/repository/Grease-Core.package/GRVersion.class/instance/beAlpha.st deleted file mode 100644 index 653ea025..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/beAlpha.st +++ /dev/null @@ -1,3 +0,0 @@ -convenience -beAlpha - self beAlpha: nil \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/beBeta..st b/repository/Grease-Core.package/GRVersion.class/instance/beBeta..st deleted file mode 100644 index e7070cd0..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/beBeta..st +++ /dev/null @@ -1,3 +0,0 @@ -convenience -beBeta: anInteger - self stage: #beta number: anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/beBeta.st b/repository/Grease-Core.package/GRVersion.class/instance/beBeta.st deleted file mode 100644 index d0231f61..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/beBeta.st +++ /dev/null @@ -1,3 +0,0 @@ -convenience -beBeta - self beBeta: nil \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/beFinal.st b/repository/Grease-Core.package/GRVersion.class/instance/beFinal.st deleted file mode 100644 index 9dc7549e..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/beFinal.st +++ /dev/null @@ -1,3 +0,0 @@ -convenience -beFinal - self stage: nil number: nil \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/beReleaseCandidate..st b/repository/Grease-Core.package/GRVersion.class/instance/beReleaseCandidate..st deleted file mode 100644 index 82f1b454..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/beReleaseCandidate..st +++ /dev/null @@ -1,3 +0,0 @@ -convenience -beReleaseCandidate: anInteger - self stage: #rc number: anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/beReleaseCandidate.st b/repository/Grease-Core.package/GRVersion.class/instance/beReleaseCandidate.st deleted file mode 100644 index 13debfa1..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/beReleaseCandidate.st +++ /dev/null @@ -1,3 +0,0 @@ -convenience -beReleaseCandidate - self beReleaseCandidate: nil \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/greaseString.st b/repository/Grease-Core.package/GRVersion.class/instance/greaseString.st deleted file mode 100644 index 1ff9c166..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/greaseString.st +++ /dev/null @@ -1,12 +0,0 @@ -converting -greaseString - ^ String streamContents: [ :stream | - stream nextPutAll: major greaseString. - stream nextPut: $.. - stream nextPutAll: (minor ifNil: [ 0 ]) greaseString. - revision isNil ifFalse: [ - stream nextPut: $.. - stream nextPutAll: revision greaseString ]. - stageLabel isNil ifFalse: [ - stream nextPutAll: stageLabel greaseString. - stageNumber isNil ifFalse: [ stream nextPutAll: stageNumber greaseString ] ] ] \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/hash.st b/repository/Grease-Core.package/GRVersion.class/instance/hash.st deleted file mode 100644 index 50a8774e..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/hash.st +++ /dev/null @@ -1,5 +0,0 @@ -comparing -hash - ^ (major hash - bitXor: (minor ifNil: [ 0 ]) hash) - bitXor: (revision ifNil: [ 0 ]) hash \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/initializeWithMajor.minor.revision..st b/repository/Grease-Core.package/GRVersion.class/instance/initializeWithMajor.minor.revision..st deleted file mode 100644 index ddf968d3..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/initializeWithMajor.minor.revision..st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initializeWithMajor: majorInteger minor: minorInteger revision: revisionInteger - self initialize. - major := majorInteger. - minor := minorInteger. - revision := revisionInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/isAlpha.st b/repository/Grease-Core.package/GRVersion.class/instance/isAlpha.st deleted file mode 100644 index 13afc505..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/isAlpha.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAlpha - ^ stageLabel = #alpha \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/isBeta.st b/repository/Grease-Core.package/GRVersion.class/instance/isBeta.st deleted file mode 100644 index 253529cb..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/isBeta.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isBeta - ^ stageLabel = #beta \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/isFinal.st b/repository/Grease-Core.package/GRVersion.class/instance/isFinal.st deleted file mode 100644 index ce12b8b6..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/isFinal.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isFinal - ^ stageLabel isNil \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/isReleaseCandidate.st b/repository/Grease-Core.package/GRVersion.class/instance/isReleaseCandidate.st deleted file mode 100644 index 982314d1..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/isReleaseCandidate.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isReleaseCandidate - ^ stageLabel = #rc \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/major..st b/repository/Grease-Core.package/GRVersion.class/instance/major..st deleted file mode 100644 index 06d498a6..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/major..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -major: anInteger - major := anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/major.st b/repository/Grease-Core.package/GRVersion.class/instance/major.st deleted file mode 100644 index 78946542..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/major.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -major - ^ major \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/minor..st b/repository/Grease-Core.package/GRVersion.class/instance/minor..st deleted file mode 100644 index 821f527c..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/minor..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -minor: anInteger - minor := anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/minor.st b/repository/Grease-Core.package/GRVersion.class/instance/minor.st deleted file mode 100644 index 3a14c2a5..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/minor.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -minor - ^ minor \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/revision..st b/repository/Grease-Core.package/GRVersion.class/instance/revision..st deleted file mode 100644 index c130e038..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/revision..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -revision: anInteger - revision := anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/revision.st b/repository/Grease-Core.package/GRVersion.class/instance/revision.st deleted file mode 100644 index 667dfad0..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/revision.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -revision - ^ revision \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/stage.number..st b/repository/Grease-Core.package/GRVersion.class/instance/stage.number..st deleted file mode 100644 index b7005b9a..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/stage.number..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -stage: aSymbol number: anInteger - stageLabel := aSymbol. - stageNumber := anInteger \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/stage.st b/repository/Grease-Core.package/GRVersion.class/instance/stage.st deleted file mode 100644 index 9d71e25b..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/stage.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -stage - ^ stageLabel \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/instance/stageNumber.st b/repository/Grease-Core.package/GRVersion.class/instance/stageNumber.st deleted file mode 100644 index ace67d94..00000000 --- a/repository/Grease-Core.package/GRVersion.class/instance/stageNumber.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -stageNumber - ^ stageNumber \ No newline at end of file diff --git a/repository/Grease-Core.package/GRVersion.class/properties.json b/repository/Grease-Core.package/GRVersion.class/properties.json deleted file mode 100644 index cb5256d0..00000000 --- a/repository/Grease-Core.package/GRVersion.class/properties.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "commentStamp" : "lr 2/19/2012 12:57", - "super" : "GRObject", - "category" : "Grease-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "major", - "minor", - "revision", - "stageLabel", - "stageNumber" - ], - "name" : "GRVersion", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/Integer.extension/instance/greaseAsByteArray.st b/repository/Grease-Core.package/Integer.extension/instance/greaseAsByteArray.st deleted file mode 100644 index 844c7d1f..00000000 --- a/repository/Grease-Core.package/Integer.extension/instance/greaseAsByteArray.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Core -greaseAsByteArray - ^ GRPlatform current integerAsByteArray: self \ No newline at end of file diff --git a/repository/Grease-Core.package/Integer.extension/instance/greaseByteAt..st b/repository/Grease-Core.package/Integer.extension/instance/greaseByteAt..st deleted file mode 100644 index b3317119..00000000 --- a/repository/Grease-Core.package/Integer.extension/instance/greaseByteAt..st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Core -greaseByteAt: index - ^ self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/Integer.extension/instance/greaseBytesCount.st b/repository/Grease-Core.package/Integer.extension/instance/greaseBytesCount.st deleted file mode 100644 index 92dda9bd..00000000 --- a/repository/Grease-Core.package/Integer.extension/instance/greaseBytesCount.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Core -greaseBytesCount - ^ self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/Integer.extension/instance/greaseInteger.st b/repository/Grease-Core.package/Integer.extension/instance/greaseInteger.st deleted file mode 100644 index 7b248cbe..00000000 --- a/repository/Grease-Core.package/Integer.extension/instance/greaseInteger.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-core -greaseInteger - ^ self \ No newline at end of file diff --git a/repository/Grease-Core.package/Integer.extension/instance/pluralize..st b/repository/Grease-Core.package/Integer.extension/instance/pluralize..st deleted file mode 100644 index 449e521b..00000000 --- a/repository/Grease-Core.package/Integer.extension/instance/pluralize..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-core -pluralize: aSingularString - ^ self - pluralize: aSingularString - with: (GRInflector pluralize: aSingularString) \ No newline at end of file diff --git a/repository/Grease-Core.package/Integer.extension/instance/pluralize.with..st b/repository/Grease-Core.package/Integer.extension/instance/pluralize.with..st deleted file mode 100644 index b5112fff..00000000 --- a/repository/Grease-Core.package/Integer.extension/instance/pluralize.with..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-core -pluralize: aSingularString with: aPluralString - ^ self printString , ' ' , (self abs = 1 ifTrue: [ aSingularString ] ifFalse: [ aPluralString ]) \ No newline at end of file diff --git a/repository/Grease-Core.package/Integer.extension/properties.json b/repository/Grease-Core.package/Integer.extension/properties.json deleted file mode 100644 index a8c2b931..00000000 --- a/repository/Grease-Core.package/Integer.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Integer" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/Number.extension/instance/greaseInteger.st b/repository/Grease-Core.package/Number.extension/instance/greaseInteger.st deleted file mode 100644 index 17887f5e..00000000 --- a/repository/Grease-Core.package/Number.extension/instance/greaseInteger.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-core -greaseInteger - "Answer an integer of the receiver, in our case we simply truncate the number." - ^ self truncated \ No newline at end of file diff --git a/repository/Grease-Core.package/Number.extension/properties.json b/repository/Grease-Core.package/Number.extension/properties.json deleted file mode 100644 index 71dace88..00000000 --- a/repository/Grease-Core.package/Number.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Number" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/Object.extension/instance/greaseDeprecatedApi.details..st b/repository/Grease-Core.package/Object.extension/instance/greaseDeprecatedApi.details..st deleted file mode 100644 index 475f1bb6..00000000 --- a/repository/Grease-Core.package/Object.extension/instance/greaseDeprecatedApi.details..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-core -greaseDeprecatedApi: apiString details: detailsString - GRDeprecatedApiNotification new - details: detailsString; - signal: apiString \ No newline at end of file diff --git a/repository/Grease-Core.package/Object.extension/properties.json b/repository/Grease-Core.package/Object.extension/properties.json deleted file mode 100644 index f30a86e1..00000000 --- a/repository/Grease-Core.package/Object.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Object" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/String.extension/instance/excerpt..st b/repository/Grease-Core.package/String.extension/instance/excerpt..st deleted file mode 100644 index c6843001..00000000 --- a/repository/Grease-Core.package/String.extension/instance/excerpt..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-core -excerpt: aString - "Answer an excerpt of the receiver that matches the first occurence of aString. If aString isn't found, nil is answered." - - ^ self excerpt: aString radius: 100 \ No newline at end of file diff --git a/repository/Grease-Core.package/String.extension/instance/excerpt.radius..st b/repository/Grease-Core.package/String.extension/instance/excerpt.radius..st deleted file mode 100644 index 98a14aa7..00000000 --- a/repository/Grease-Core.package/String.extension/instance/excerpt.radius..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-core -excerpt: aString radius: anInteger - "Answer an excerpt of the receiver that matches the first occurence of aString. The radius anInteger expands the excerpt on each side of the first occurrence by the number of characters defined in radius. If aString isn't found, nil is answered." - - ^ self excerpt: aString radius: anInteger ellipsis: '...' \ No newline at end of file diff --git a/repository/Grease-Core.package/String.extension/instance/excerpt.radius.ellipsis..st b/repository/Grease-Core.package/String.extension/instance/excerpt.radius.ellipsis..st deleted file mode 100644 index 28c324ba..00000000 --- a/repository/Grease-Core.package/String.extension/instance/excerpt.radius.ellipsis..st +++ /dev/null @@ -1,12 +0,0 @@ -*grease-core -excerpt: aString radius: anInteger ellipsis: anEllipsisString - "Answer an excerpt of the receiver that matches the first occurence of aString. The radius anInteger expands the excerpt on each side of the first occurrence by the number of characters defined in radius. If aString isn't found, nil is answered." - - | index start stop | - (index := self indexOfSubCollection: aString) = 0 - ifTrue: [ ^ nil ]. - start := index - anInteger max: 1. - stop := index + anInteger + aString size - 1 min: self size. - ^ (start > 1 ifTrue: [ anEllipsisString ] ifFalse: [ '' ]) , - (self copyFrom: start to: stop) , - (stop < self size ifTrue: [ anEllipsisString ] ifFalse: [ '' ]) \ No newline at end of file diff --git a/repository/Grease-Core.package/String.extension/instance/greaseInteger.st b/repository/Grease-Core.package/String.extension/instance/greaseInteger.st deleted file mode 100644 index ddc5b29d..00000000 --- a/repository/Grease-Core.package/String.extension/instance/greaseInteger.st +++ /dev/null @@ -1,26 +0,0 @@ -*grease-core -greaseInteger - "Convert the receiver to an integer, answer nil if this is not a number." - | number negated | - number := nil. - negated := false. - 1 to: self size do: [ : i | - | char | - char := self at: i. - (i = 1 and: [ char = $- ]) - ifTrue: [ negated := true ] - ifFalse: [ - (char >= $0 and: [ char <= $9 ]) - ifTrue: [ - number := (number isNil - ifTrue: [ 0 ] - ifFalse: [ 10 * number ]) + (char greaseInteger - $0 greaseInteger) ] - ifFalse: [ - ^ number isNil ifFalse: [ - negated not - ifFalse: [ number negated ] - ifTrue: [ number ] ] ] ] ]. - ^ number isNil ifFalse: [ - negated not - ifFalse: [ number negated ] - ifTrue: [ number ] ] \ No newline at end of file diff --git a/repository/Grease-Core.package/String.extension/instance/pluralize.st b/repository/Grease-Core.package/String.extension/instance/pluralize.st deleted file mode 100644 index 720dff9d..00000000 --- a/repository/Grease-Core.package/String.extension/instance/pluralize.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-core -pluralize - ^ GRInflector pluralize: self \ No newline at end of file diff --git a/repository/Grease-Core.package/String.extension/instance/print.on..st b/repository/Grease-Core.package/String.extension/instance/print.on..st deleted file mode 100644 index d2daaf36..00000000 --- a/repository/Grease-Core.package/String.extension/instance/print.on..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-core -print: anObject on: aStream - aStream nextPutAll: self \ No newline at end of file diff --git a/repository/Grease-Core.package/String.extension/instance/truncate..st b/repository/Grease-Core.package/String.extension/instance/truncate..st deleted file mode 100644 index 7bda5b57..00000000 --- a/repository/Grease-Core.package/String.extension/instance/truncate..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-core -truncate: anInteger - "Truncate the receiver to anInteger characters." - - ^ self truncate: anInteger ellipsis: '...' \ No newline at end of file diff --git a/repository/Grease-Core.package/String.extension/instance/truncate.ellipsis..st b/repository/Grease-Core.package/String.extension/instance/truncate.ellipsis..st deleted file mode 100644 index 5c44e26e..00000000 --- a/repository/Grease-Core.package/String.extension/instance/truncate.ellipsis..st +++ /dev/null @@ -1,7 +0,0 @@ -*grease-core -truncate: anInteger ellipsis: aString - "Truncate the receiver to anInteger characters and append aString as ellipsis if necessary." - - ^ anInteger < self size - ifTrue: [ (self copyFrom: 1 to: anInteger) , aString ] - ifFalse: [ self copy ] \ No newline at end of file diff --git a/repository/Grease-Core.package/String.extension/instance/truncate.st b/repository/Grease-Core.package/String.extension/instance/truncate.st deleted file mode 100644 index 6217e9c2..00000000 --- a/repository/Grease-Core.package/String.extension/instance/truncate.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-core -truncate - "Truncate the receiver to 30 characters." - - ^ self truncate: 30 \ No newline at end of file diff --git a/repository/Grease-Core.package/String.extension/properties.json b/repository/Grease-Core.package/String.extension/properties.json deleted file mode 100644 index b20f2de3..00000000 --- a/repository/Grease-Core.package/String.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "String" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/UndefinedObject.extension/instance/print.on..st b/repository/Grease-Core.package/UndefinedObject.extension/instance/print.on..st deleted file mode 100644 index 020f8407..00000000 --- a/repository/Grease-Core.package/UndefinedObject.extension/instance/print.on..st +++ /dev/null @@ -1,2 +0,0 @@ -*grease-core -print: anObject on: aStream \ No newline at end of file diff --git a/repository/Grease-Core.package/UndefinedObject.extension/properties.json b/repository/Grease-Core.package/UndefinedObject.extension/properties.json deleted file mode 100644 index b2d2e562..00000000 --- a/repository/Grease-Core.package/UndefinedObject.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "UndefinedObject" -} \ No newline at end of file diff --git a/repository/Grease-Core.package/monticello.meta/categories.st b/repository/Grease-Core.package/monticello.meta/categories.st deleted file mode 100644 index c80ee06e..00000000 --- a/repository/Grease-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -self packageOrganizer ensurePackage: #'Grease-Core' withTags: #(#Collections #Exceptions #Text #Utilities)! diff --git a/repository/Grease-Core.package/monticello.meta/initializers.st b/repository/Grease-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Core.package/monticello.meta/package b/repository/Grease-Core.package/monticello.meta/package deleted file mode 100644 index 4d6f6c8e..00000000 --- a/repository/Grease-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Core') \ No newline at end of file diff --git a/repository/Grease-Core.package/properties.json b/repository/Grease-Core.package/properties.json deleted file mode 100644 index 6f31cf5a..00000000 --- a/repository/Grease-Core.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/repository/Grease-Core/Character.extension.st b/repository/Grease-Core/Character.extension.st new file mode 100644 index 00000000..b727e504 --- /dev/null +++ b/repository/Grease-Core/Character.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Character' } + +{ #category : '*grease-core' } +Character >> print: anObject on: aStream [ + aStream nextPut: self +] diff --git a/repository/Grease-Core/Collection.extension.st b/repository/Grease-Core/Collection.extension.st new file mode 100644 index 00000000..c3387465 --- /dev/null +++ b/repository/Grease-Core/Collection.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Collection' } + +{ #category : '*Grease-Core' } +Collection >> greaseAsByteArray [ + ^ self asByteArray +] diff --git a/repository/Grease-Core/GRBoundMessage.class.st b/repository/Grease-Core/GRBoundMessage.class.st new file mode 100644 index 00000000..3e06ca64 --- /dev/null +++ b/repository/Grease-Core/GRBoundMessage.class.st @@ -0,0 +1,54 @@ +" +A delayed send that has some or all of the arguments defined in advance. Additionally supplied arguments will be added, if possible, to these when the object is evaluate. + +Instance Variables + arguments: + +arguments + - the predefined arguments + +" +Class { + #name : 'GRBoundMessage', + #superclass : 'GRDelayedSendMessage', + #instVars : [ + 'arguments' + ], + #category : 'Grease-Core-Utilities', + #package : 'Grease-Core', + #tag : 'Utilities' +} + +{ #category : 'instance creation' } +GRBoundMessage class >> selector: aSymbol [ + ^ self selector: aSymbol arguments: #() +] + +{ #category : 'instance creation' } +GRBoundMessage class >> selector: aSymbol arguments: anArray [ + ^ self basicNew + initializeWithSelector: aSymbol arguments: anArray; + yourself +] + +{ #category : 'delegation' } +GRBoundMessage >> argumentCount [ + ^ selector numArgs - arguments size +] + +{ #category : 'initialization' } +GRBoundMessage >> initializeWithSelector: aSymbol arguments: anArray [ + self initializeWithSelector: aSymbol. + arguments := anArray asArray +] + +{ #category : 'private' } +GRBoundMessage >> mergeArguments: anArray [ + ^ arguments , anArray +] + +{ #category : 'printing' } +GRBoundMessage >> printOn: aStream [ + super printOn: aStream. + aStream nextPutAll: ' arguments: '; print: arguments +] diff --git a/repository/Grease-Core/GRCodec.class.st b/repository/Grease-Core/GRCodec.class.st new file mode 100644 index 00000000..90a7ee28 --- /dev/null +++ b/repository/Grease-Core/GRCodec.class.st @@ -0,0 +1,113 @@ +" +A codec defines how Seaside communicates without the outside world and how outside data is converted into the image (decoding) and back outside the image (encoding). The codec is essentially a stream factory that provides wrappers around standard streams. All streams do support binary mode for non-converted transfer. +" +Class { + #name : 'GRCodec', + #superclass : 'GRObject', + #category : 'Grease-Core-Text', + #package : 'Grease-Core', + #tag : 'Text' +} + +{ #category : 'accessing' } +GRCodec class >> allCodecs [ + "Answer all codecs supported in this system. This is a collection of codec instances." + + ^ self subclasses + inject: self codecs asArray + into: [ :result :each | result , each allCodecs ] +] + +{ #category : 'private' } +GRCodec class >> basicForEncoding: aString [ + "Create the actual instance." + self subclassResponsibility +] + +{ #category : 'accessing' } +GRCodec class >> codecs [ + "Answer a collection of possible codecs of the receiver. To be overridden by concrete subclasses." + + ^ #() +] + +{ #category : 'instance creation' } +GRCodec class >> forEncoding: aString [ + "Answer a new codec instance for the given encoding name. Raise an WAUnsupportedEncodingError if the encoding name is not supported by this image." + + self allSubclassesDo: [ :each | + (each supportsEncoding: aString) + ifTrue: [ ^ each basicForEncoding: aString ] ]. + ^ self unsupportedEncoding: aString +] + +{ #category : 'testing' } +GRCodec class >> supportsEncoding: aString [ + "Answer whether the the given encoding name is supported by this codec class." + self subclassResponsibility +] + +{ #category : 'private' } +GRCodec class >> unsupportedEncoding: aString [ + "Signal an unsupported encoding." + + ^ GRUnsupportedEncodingError signal: 'unsupported encoding: ' , aString +] + +{ #category : 'convenience' } +GRCodec >> decode: aString [ + | readStream writeStream | + readStream := self decoderFor: aString readStream. + writeStream := GRPlatform current writeCharacterStreamOn: (String new: aString size). + [ readStream atEnd ] + whileFalse: [ writeStream nextPutAll: (readStream next: 1024) ]. + ^ writeStream contents +] + +{ #category : 'conversion' } +GRCodec >> decoderFor: aReadStream [ + "Wrap aReadStream with an decoder for the codec of the receiver. Answer a read stream that delegates to and shares the state of aReadStream." + + self subclassResponsibility +] + +{ #category : 'convenience' } +GRCodec >> encode: aString [ + | writeStream | + writeStream := self encoderFor: (GRPlatform current + writeCharacterStreamOn: (self encodedStringClass new: aString size)). + writeStream nextPutAll: aString. + ^ writeStream contents +] + +{ #category : 'conversion' } +GRCodec >> encodedStringClass [ + ^ String +] + +{ #category : 'conversion' } +GRCodec >> encoderFor: aWriteStream [ + "Wrap aWriteStream with an encoder for the codec of the receiver. Answer a write stream that delegates to and shares the state of aWriteStream." + + self subclassResponsibility +] + +{ #category : 'accessing' } +GRCodec >> name [ + "Answer a human readable string of the receivers encoding policy." + + self subclassResponsibility +] + +{ #category : 'printing' } +GRCodec >> printOn: aStream [ + super printOn: aStream. + aStream nextPutAll: ' name: '; print: self name +] + +{ #category : 'accessing' } +GRCodec >> url [ + "Answer a codec that is responsible to encode and decode URLs. In most cases an UTF-8 codec is the only valid choice, but subclasses might decide to do something else." + + self subclassResponsibility +] diff --git a/repository/Grease-Core/GRCodecStream.class.st b/repository/Grease-Core/GRCodecStream.class.st new file mode 100644 index 00000000..0ec365ff --- /dev/null +++ b/repository/Grease-Core/GRCodecStream.class.st @@ -0,0 +1,10 @@ +" +GRCodecStream is the abstract base class for codec streams +" +Class { + #name : 'GRCodecStream', + #superclass : 'GRDelegatingStream', + #category : 'Grease-Core-Text', + #package : 'Grease-Core', + #tag : 'Text' +} diff --git a/repository/Grease-Core/GRCountingStream.class.st b/repository/Grease-Core/GRCountingStream.class.st new file mode 100644 index 00000000..55b12ba3 --- /dev/null +++ b/repository/Grease-Core/GRCountingStream.class.st @@ -0,0 +1,63 @@ +" +A GRCountingStream counts how many elements have been added to it. This is necessary because the underlying stream may inflate the number of elements in the stream. + +Instance Variables: + count + +count + - number of elements added to this stream +" +Class { + #name : 'GRCountingStream', + #superclass : 'GRDelegatingStream', + #instVars : [ + 'count' + ], + #category : 'Grease-Core', + #package : 'Grease-Core' +} + +{ #category : 'accessing' } +GRCountingStream >> count [ + ^ count +] + +{ #category : 'streaming' } +GRCountingStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + super greaseNext: anInteger putAll: aCollection startingAt: startIndex. + count := count + anInteger +] + +{ #category : 'initialization' } +GRCountingStream >> initialize [ + super initialize. + count := 0 +] + +{ #category : 'streaming' } +GRCountingStream >> next [ + self shouldNotImplement +] + +{ #category : 'streaming' } +GRCountingStream >> next: anInteger [ + self shouldNotImplement +] + +{ #category : 'streaming' } +GRCountingStream >> nextPut: aCharacter [ + stream nextPut: aCharacter. + count := count + 1 +] + +{ #category : 'streaming' } +GRCountingStream >> nextPutAll: aString [ + stream nextPutAll: aString. + count := count + aString size +] + +{ #category : 'accessing' } +GRCountingStream >> reset [ + super reset. + count := 0 +] diff --git a/repository/Grease-Core/GRDelayedSend.class.st b/repository/Grease-Core/GRDelayedSend.class.st new file mode 100644 index 00000000..0503ddd1 --- /dev/null +++ b/repository/Grease-Core/GRDelayedSend.class.st @@ -0,0 +1,107 @@ +" +A GRDelayedSend is a future message send of a message to an object. Some of the arguments can be predefined. Instances are intended to be interchangeable with blocks. + +This class should conform the ANSI (block) valuable protocol. Unlike a block, a GRDelayedSend is not a closure so doesn't hold onto the method context. GRDelayedSend provides similar, but portable, functionality to Pharo's MessageSend. + +This is an abstract class. Use the methods in the 'instance-creation' protocol on the class side to create intances. + +Instance Variables + receiver: + selector: + +receiver + - the object receiving the message + +selector + - the message selector sent to the receiver + +" +Class { + #name : 'GRDelayedSend', + #superclass : 'GRObject', + #instVars : [ + 'receiver', + 'message' + ], + #category : 'Grease-Core-Utilities', + #package : 'Grease-Core', + #tag : 'Utilities' +} + +{ #category : 'instance creation' } +GRDelayedSend class >> empty [ + ^ self receiver: nil selector: #yourself +] + +{ #category : 'instance creation' } +GRDelayedSend class >> new [ + ^ self empty +] + +{ #category : 'instance creation' } +GRDelayedSend class >> receiver: anObject selector: aSymbol [ + ^ self basicNew + initializeWithReceiver: anObject + message: (GRUnboundMessage selector: aSymbol); + yourself +] + +{ #category : 'instance creation' } +GRDelayedSend class >> receiver: anObject selector: aSymbol argument: aParameter [ + ^ self receiver: anObject selector: aSymbol arguments: (Array with: aParameter) +] + +{ #category : 'instance creation' } +GRDelayedSend class >> receiver: anObject selector: aSymbol arguments: anArray [ + ^ self basicNew + initializeWithReceiver: anObject + message: (GRBoundMessage selector: aSymbol arguments: anArray); + yourself +] + +{ #category : 'accessing' } +GRDelayedSend >> argumentCount [ + "Answer the number of arguments that must be provided to the receiver when sending it." + + ^ message argumentCount +] + +{ #category : 'initialization' } +GRDelayedSend >> initializeWithReceiver: anObject message: aDelayedSendMessage [ + self initialize. + receiver := anObject. + message := aDelayedSendMessage +] + +{ #category : 'printing' } +GRDelayedSend >> printOn: aStream [ + super printOn: aStream. + aStream nextPutAll: ' receiver: '; print: receiver. + aStream nextPut: $ . + message printOn: aStream +] + +{ #category : 'evaluating' } +GRDelayedSend >> value [ + ^ self valueWithArguments: #() +] + +{ #category : 'evaluating' } +GRDelayedSend >> value: anObject [ + ^ self valueWithArguments: (Array with: anObject) +] + +{ #category : 'evaluating' } +GRDelayedSend >> value: aFirstObject value: aSecondObject [ + ^ self valueWithArguments: (Array with: aFirstObject with: aSecondObject) +] + +{ #category : 'evaluating' } +GRDelayedSend >> valueWithArguments: anArray [ + ^ message valueFor: receiver withArguments: anArray +] + +{ #category : 'evaluating' } +GRDelayedSend >> valueWithPossibleArguments: anArray [ + ^ message valueFor: receiver withPossibleArguments: anArray +] diff --git a/repository/Grease-Core/GRDelayedSendMessage.class.st b/repository/Grease-Core/GRDelayedSendMessage.class.st new file mode 100644 index 00000000..69e29310 --- /dev/null +++ b/repository/Grease-Core/GRDelayedSendMessage.class.st @@ -0,0 +1,81 @@ +" +GRDelayedSendMessage is an abstract base for objects that provide currying functionality for GRDelayedSend +" +Class { + #name : 'GRDelayedSendMessage', + #superclass : 'GRObject', + #instVars : [ + 'selector' + ], + #category : 'Grease-Core-Utilities', + #package : 'Grease-Core', + #tag : 'Utilities' +} + +{ #category : 'instance creation' } +GRDelayedSendMessage class >> new [ + ^ self selector: #yourself +] + +{ #category : 'instance creation' } +GRDelayedSendMessage class >> selector: aSymbol [ + ^ self basicNew + initializeWithSelector: aSymbol; + yourself +] + +{ #category : 'delegation' } +GRDelayedSendMessage >> argumentCount [ + "Answer the number of arguments that must be provided when sending this message." + + self subclassResponsibility +] + +{ #category : 'private' } +GRDelayedSendMessage >> basicPerformFor: receiver withArguments: anArray [ + ^ anArray size = selector numArgs + ifTrue: [ receiver perform: selector withArguments: anArray ] + ifFalse: [ self invalidArgumentCount ] +] + +{ #category : 'initialization' } +GRDelayedSendMessage >> initializeWithSelector: aSymbol [ + self initialize. + selector := aSymbol +] + +{ #category : 'private' } +GRDelayedSendMessage >> invalidArgumentCount [ + GRInvalidArgumentCount signal +] + +{ #category : 'private' } +GRDelayedSendMessage >> mergeArguments: anArray [ + self subclassResponsibility +] + +{ #category : 'printing' } +GRDelayedSendMessage >> printOn: aStream [ + aStream nextPutAll: 'selector: '; print: selector +] + +{ #category : 'delegation' } +GRDelayedSendMessage >> valueFor: receiver withArguments: anArray [ + "Send the message to receiver with the arguments in anArray. Answer the result. + Signal an error if the number of arguments does not match the selector." + + ^ self basicPerformFor: receiver withArguments: (self mergeArguments: anArray) +] + +{ #category : 'delegation' } +GRDelayedSendMessage >> valueFor: receiver withPossibleArguments: anArray [ + "Send the message to receiver with as many of the arguments in anArray as possible. Answer the result. + Error if not enough arguments are available for the selector." + + | allArguments | + allArguments := self mergeArguments: anArray. + + ^ allArguments size < selector numArgs + ifTrue: [ self invalidArgumentCount ] + ifFalse: [ self basicPerformFor: receiver withArguments: (allArguments first: selector numArgs) ] +] diff --git a/repository/Grease-Core/GRDelegatingStream.class.st b/repository/Grease-Core/GRDelegatingStream.class.st new file mode 100644 index 00000000..8ab4a667 --- /dev/null +++ b/repository/Grease-Core/GRDelegatingStream.class.st @@ -0,0 +1,119 @@ +" +A GRDelegatingStream is a wrapper around a write stream and defines common behavior. + +Instance Variables + stream: + +stream + - a WriteStream + + +" +Class { + #name : 'GRDelegatingStream', + #superclass : 'GRObject', + #instVars : [ + 'stream' + ], + #category : 'Grease-Core-Text', + #package : 'Grease-Core', + #tag : 'Text' +} + +{ #category : 'instance creation' } +GRDelegatingStream class >> on: aStream [ + ^ self basicNew initializeOn: aStream +] + +{ #category : 'testing' } +GRDelegatingStream >> atEnd [ + ^ stream atEnd +] + +{ #category : 'accessing' } +GRDelegatingStream >> contents [ + ^ stream contents +] + +{ #category : 'streaming' } +GRDelegatingStream >> crlf [ + self nextPut: Character cr; nextPut: Character lf +] + +{ #category : 'accessing' } +GRDelegatingStream >> flush [ + stream flush +] + +{ #category : 'streaming' } +GRDelegatingStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + stream greaseNext: anInteger putAll: aCollection startingAt: startIndex +] + +{ #category : 'initialization' } +GRDelegatingStream >> initializeOn: aStream [ + self initialize. + stream := aStream +] + +{ #category : 'testing' } +GRDelegatingStream >> isStream [ + ^ true +] + +{ #category : 'streaming' } +GRDelegatingStream >> next [ + self subclassResponsibility +] + +{ #category : 'streaming' } +GRDelegatingStream >> next: anInteger [ + self subclassResponsibility +] + +{ #category : 'streaming' } +GRDelegatingStream >> nextPut: aCharacter [ + self subclassResponsibility +] + +{ #category : 'streaming' } +GRDelegatingStream >> nextPutAll: aString [ + self subclassResponsibility +] + +{ #category : 'accessing' } +GRDelegatingStream >> position [ + ^ stream position +] + +{ #category : 'accessing' } +GRDelegatingStream >> position: anInteger [ + ^ stream position: anInteger +] + +{ #category : 'streaming' } +GRDelegatingStream >> print: anObject [ + anObject printOn: self +] + +{ #category : 'accessing' } +GRDelegatingStream >> reset [ + "Reset the stream" + + stream reset +] + +{ #category : 'accessing' } +GRDelegatingStream >> size [ + ^ stream size +] + +{ #category : 'streaming' } +GRDelegatingStream >> space [ + self nextPut: Character space +] + +{ #category : 'streaming' } +GRDelegatingStream >> tab [ + self nextPut: Character tab +] diff --git a/repository/Grease-Core/GRDeprecatedApiNotification.class.st b/repository/Grease-Core/GRDeprecatedApiNotification.class.st new file mode 100644 index 00000000..c3dc5d2a --- /dev/null +++ b/repository/Grease-Core/GRDeprecatedApiNotification.class.st @@ -0,0 +1,25 @@ +" +This notification is signaled whenever a deprecated message is sent. + +see WAObject>>#greaseDeprecatedApi:details: +" +Class { + #name : 'GRDeprecatedApiNotification', + #superclass : 'GRNotification', + #instVars : [ + 'details' + ], + #category : 'Grease-Core-Exceptions', + #package : 'Grease-Core', + #tag : 'Exceptions' +} + +{ #category : 'accessing' } +GRDeprecatedApiNotification >> details [ + ^ details +] + +{ #category : 'accessing' } +GRDeprecatedApiNotification >> details: anObject [ + details := anObject +] diff --git a/repository/Grease-Core/GRError.class.st b/repository/Grease-Core/GRError.class.st new file mode 100644 index 00000000..a0183db3 --- /dev/null +++ b/repository/Grease-Core/GRError.class.st @@ -0,0 +1,12 @@ +" +This class provides consistent initialization and exception signaling behaviour across platforms. All platforms must provide the ANSI-standard signaling protocol on this class. #signal: can therefore be safely called on any subclass. + +Packages that are using Seaside-Platform should usually subclass GRError instead of Error. +" +Class { + #name : 'GRError', + #superclass : 'Error', + #category : 'Grease-Core-Exceptions', + #package : 'Grease-Core', + #tag : 'Exceptions' +} diff --git a/repository/Grease-Core/GRInflector.class.st b/repository/Grease-Core/GRInflector.class.st new file mode 100644 index 00000000..4dff0533 --- /dev/null +++ b/repository/Grease-Core/GRInflector.class.st @@ -0,0 +1,33 @@ +" +The Inflector transforms words from singular to plural. +" +Class { + #name : 'GRInflector', + #superclass : 'GRObject', + #classVars : [ + 'InflectionRules', + 'Uninflected' + ], + #category : 'Grease-Core-Text', + #package : 'Grease-Core', + #tag : 'Text' +} + +{ #category : 'initialization' } +GRInflector class >> initialize [ + Uninflected := #('bison' 'bream' 'breeches' 'britches' 'carp' 'chassis' 'clippers' 'cod' 'contretemps' 'corps' 'debris' 'deer' 'diabetes' 'djinn' 'eland' 'elk' 'equipment' 'fish' 'flounder' 'gallows' 'graffiti' 'headquarters' 'herpes' 'high-jinks' 'homework' 'information' 'innings' 'ities' 'itis' 'jackanapes' 'mackerel' 'measles' 'mews' 'money' 'mumps' 'news' 'ois' 'pincers' 'pliers' 'pox' 'proceedings' 'rabies' 'rice' 'salmon' 'scissors' 'sea-bass' 'series' 'shears' 'sheep' 'species' 'swine' 'trout' 'tuna' 'whiting' 'wildebeest'). + InflectionRules := #(('man' 'en' 2) ('child' 'ren' 0) ('cow' 'kine' 3) ('penis' 'es' 0) ('sex' 'es' 0) ('person' 'ople' 4) ('octopus' 'es' 0) ('quiz' 'zes' 0) ('ox' 'en' 0) ('louse' 'ice' 4) ('mouse' 'ice' 4) ('matrix' 'ices' 2) ('vertix' 'ices' 2) ('vertex' 'ices' 2) ('indix' 'ices' 2) ('index' 'ices' 2) ('x' 'es' 0) ('ch' 'es' 0) ('ss' 'es' 0) ('sh' 'es' 0) ('ay' 's' 0) ('ey' 's' 0) ('iy' 's' 0) ('oy' 's' 0) ('uy' 's' 0) ('y' 'ies' 1) ('alf' 'ves' 1) ('elf' 'ves' 1) ('olf' 'ves' 1) ('arf' 'ves' 1) ('nife' 'ves' 2) ('life' 'ves' 2) ('wife' 'ves' 2) ('sis' 'es' 2) ('tum' 'a' 2) ('ium' 'a' 2) ('buffalo' 'es' 0) ('tomato' 'es' 0) ('buffalo' 'es' 0) ('bus' 'es' 0) ('alias' 'es' 0) ('status' 'es' 0) ('octopus' 'i' 2) ('virus' 'i' 2) ('axis' 'es' 2) ('s' '' 0)) +] + +{ #category : 'accessing' } +GRInflector class >> pluralize: aString [ + | string | + string := aString asLowercase. + Uninflected do: [ :each | + (string endsWithSubCollection: each) + ifTrue: [ ^ aString ] ]. + InflectionRules do: [ :rule | + (string endsWithSubCollection: rule first) + ifTrue: [ ^ (aString allButLast: rule third) , rule second ] ]. + ^ aString , 's' +] diff --git a/repository/Grease-Core/GRInvalidArgumentCount.class.st b/repository/Grease-Core/GRInvalidArgumentCount.class.st new file mode 100644 index 00000000..d0564acb --- /dev/null +++ b/repository/Grease-Core/GRInvalidArgumentCount.class.st @@ -0,0 +1,10 @@ +" +Signaled whenever a message is sent with the incorrect number of arguments. +" +Class { + #name : 'GRInvalidArgumentCount', + #superclass : 'GRError', + #category : 'Grease-Core-Utilities', + #package : 'Grease-Core', + #tag : 'Utilities' +} diff --git a/repository/Grease-Core/GRInvalidUtf8Error.class.st b/repository/Grease-Core/GRInvalidUtf8Error.class.st new file mode 100644 index 00000000..281f69fe --- /dev/null +++ b/repository/Grease-Core/GRInvalidUtf8Error.class.st @@ -0,0 +1,11 @@ +" +A WAInvalidUtf8Error signals that the input is not valid UTF-8. + +" +Class { + #name : 'GRInvalidUtf8Error', + #superclass : 'GRError', + #category : 'Grease-Core-Text', + #package : 'Grease-Core', + #tag : 'Text' +} diff --git a/repository/Grease-Core/GRMappedPrinter.class.st b/repository/Grease-Core/GRMappedPrinter.class.st new file mode 100644 index 00000000..ed704410 --- /dev/null +++ b/repository/Grease-Core/GRMappedPrinter.class.st @@ -0,0 +1,40 @@ +Class { + #name : 'GRMappedPrinter', + #superclass : 'GRPrinter', + #instVars : [ + 'next', + 'block' + ], + #category : 'Grease-Core-Text', + #package : 'Grease-Core', + #tag : 'Text' +} + +{ #category : 'instance creation' } +GRMappedPrinter class >> block: aBlock next: aPrinter [ + ^ self new + block: aBlock; + next: aPrinter; + yourself +] + +{ #category : 'accessing' } +GRMappedPrinter >> block: aBlock [ + block := aBlock +] + +{ #category : 'initialization' } +GRMappedPrinter >> initialize [ + super initialize. + self block: [ :value | value ] +] + +{ #category : 'accessing' } +GRMappedPrinter >> next: aPrinter [ + next := aPrinter +] + +{ #category : 'printing' } +GRMappedPrinter >> print: anObject on: aStream [ + next print: (block value: anObject) on: aStream +] diff --git a/repository/Grease-Core/GRNotification.class.st b/repository/Grease-Core/GRNotification.class.st new file mode 100644 index 00000000..6dd81204 --- /dev/null +++ b/repository/Grease-Core/GRNotification.class.st @@ -0,0 +1,12 @@ +" +This class provides consistent initialization and exception signaling behaviour across platforms. All platforms must provide the ANSI-standard signaling protocol on this class. #signal: can therefore be safely called on any subclass. + +Packages that are using Seaside-Platform should usually subclass GRNotification instead of Notification. +" +Class { + #name : 'GRNotification', + #superclass : 'Notification', + #category : 'Grease-Core-Exceptions', + #package : 'Grease-Core', + #tag : 'Exceptions' +} diff --git a/repository/Grease-Core/GRNotificationBasedDynamicVariable.class.st b/repository/Grease-Core/GRNotificationBasedDynamicVariable.class.st new file mode 100644 index 00000000..1cefb1b6 --- /dev/null +++ b/repository/Grease-Core/GRNotificationBasedDynamicVariable.class.st @@ -0,0 +1,36 @@ +" +An implementation of a dynamic varaible based on notifications. + +Dialects that do not support dynamic variables or thread/process local variables can create an empty subclass of this class called GRDynamicVariable. +" +Class { + #name : 'GRNotificationBasedDynamicVariable', + #superclass : 'GRNotification', + #category : 'Grease-Core-Utilities', + #package : 'Grease-Core', + #tag : 'Utilities' +} + +{ #category : 'defaults' } +GRNotificationBasedDynamicVariable class >> defaultValue [ + ^ nil +] + +{ #category : 'evaluating' } +GRNotificationBasedDynamicVariable class >> use: anObject during: aBlock [ + "Set the dynamic value of the receiver to anObject during the evaluation of aBlock." + + ^ aBlock on: self do: [ :notification | notification resume: anObject ] +] + +{ #category : 'evaluating' } +GRNotificationBasedDynamicVariable class >> value [ + "Answer the dynamic value of the receiver." + + ^ self signal +] + +{ #category : 'defaults' } +GRNotificationBasedDynamicVariable >> defaultAction [ + ^ self class defaultValue +] diff --git a/repository/Grease-Core/GRNullCodec.class.st b/repository/Grease-Core/GRNullCodec.class.st new file mode 100644 index 00000000..66b1d801 --- /dev/null +++ b/repository/Grease-Core/GRNullCodec.class.st @@ -0,0 +1,68 @@ +" +The null codec always returns the original streams. It assumes that the outside world uses the same encoding as the inside world. This is highly efficient as no transformation is applied to the data, but has its drawbacks. +" +Class { + #name : 'GRNullCodec', + #superclass : 'GRCodec', + #category : 'Grease-Core-Text', + #package : 'Grease-Core', + #tag : 'Text' +} + +{ #category : 'private' } +GRNullCodec class >> basicForEncoding: aString [ + ^ self new +] + +{ #category : 'accessing' } +GRNullCodec class >> codecName [ + ^ '(none)' +] + +{ #category : 'accessing' } +GRNullCodec class >> codecs [ + ^ Array with: self new +] + +{ #category : 'testing' } +GRNullCodec class >> supportsEncoding: aString [ + ^ aString isNil +] + +{ #category : 'convenience' } +GRNullCodec >> decode: aString [ + "Overridden for efficiency." + + ^ aString +] + +{ #category : 'conversion' } +GRNullCodec >> decoderFor: aReadStream [ + "wrap to avoid String vs ByteArray issues" + ^ GRNullCodecStream on: aReadStream +] + +{ #category : 'convenience' } +GRNullCodec >> encode: aString [ + "Overridden for efficiency." + + ^ aString +] + +{ #category : 'conversion' } +GRNullCodec >> encoderFor: aWriteStream [ + "wrap to avoid String vs ByteArray issues" + ^ GRNullCodecStream on: aWriteStream +] + +{ #category : 'accessing' } +GRNullCodec >> name [ + ^ GRNullCodec codecName +] + +{ #category : 'accessing' } +GRNullCodec >> url [ + "The selfish method. Let's do it with ourselves." + + ^ self +] diff --git a/repository/Grease-Core/GRNullCodecStream.class.st b/repository/Grease-Core/GRNullCodecStream.class.st new file mode 100644 index 00000000..a30c62b6 --- /dev/null +++ b/repository/Grease-Core/GRNullCodecStream.class.st @@ -0,0 +1,43 @@ +" +A WANullCodecStream is a WriteStream on a String on which you can both put binary and character data without encoding happening. + +Instance Variables + stream: + +stream + - a WriteStream on a String + +" +Class { + #name : 'GRNullCodecStream', + #superclass : 'GRCodecStream', + #category : 'Grease-Core-Text', + #package : 'Grease-Core', + #tag : 'Text' +} + +{ #category : 'streaming' } +GRNullCodecStream >> next [ + ^ stream next +] + +{ #category : 'streaming' } +GRNullCodecStream >> next: anInteger [ + ^ stream next: anInteger +] + +{ #category : 'streaming' } +GRNullCodecStream >> nextPut: aCharacterOrByte [ + aCharacterOrByte isCharacter + ifTrue: [ stream nextPut: aCharacterOrByte ] + ifFalse: [ stream nextPut: (Character codePoint: aCharacterOrByte) ] +] + +{ #category : 'streaming' } +GRNullCodecStream >> nextPutAll: aStringOrByteArray [ + aStringOrByteArray isString + ifTrue: [ stream nextPutAll: aStringOrByteArray ] + ifFalse: [ + 1 to: aStringOrByteArray size do: [ :index | + stream nextPut: (Character codePoint: (aStringOrByteArray at: index)) ] ] +] diff --git a/repository/Grease-Core/GRNumberPrinter.class.st b/repository/Grease-Core/GRNumberPrinter.class.st new file mode 100644 index 00000000..11545e06 --- /dev/null +++ b/repository/Grease-Core/GRNumberPrinter.class.st @@ -0,0 +1,281 @@ +" +A GRNumberPrinter prints numbers (integers and floats) in various formats in a platform independent way. + +Instance Variables + accuracy: + base: + delimiter: + digits: + infinite: + nan: + padding: + precision: + separator: +" +Class { + #name : 'GRNumberPrinter', + #superclass : 'GRPrinter', + #instVars : [ + 'characters', + 'base', + 'delimiter', + 'digits', + 'infinite', + 'nan', + 'padding', + 'accuracy', + 'precision', + 'separator' + ], + #classVars : [ + 'NumbersToCharactersLowercase', + 'NumbersToCharactersUppercase' + ], + #category : 'Grease-Core-Text', + #package : 'Grease-Core', + #tag : 'Text' +} + +{ #category : 'initialization' } +GRNumberPrinter class >> initialize [ + NumbersToCharactersLowercase := '0123456789abcdefghijklmnopqrstuvwxyz'. + NumbersToCharactersUppercase := '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' +] + +{ #category : 'accessing' } +GRNumberPrinter >> accuracy: aFloat [ + "Round towards the nearest number that is a multiple of aFloat." + + accuracy := aFloat +] + +{ #category : 'accessing' } +GRNumberPrinter >> base: anInteger [ + "The numeric base to which the number should be printed." + + base := anInteger +] + +{ #category : 'accessing' } +GRNumberPrinter >> characters: aString [ + "The characters to be used to convert a number to a string." + + characters := aString +] + +{ #category : 'accessing' } +GRNumberPrinter >> delimiter: aCharacter [ + "The delimiter to separate the integer and fraction part of the number." + + delimiter := aCharacter +] + +{ #category : 'accessing' } +GRNumberPrinter >> digits: anInteger [ + "The number of digits to be printed in the integer part." + + digits := anInteger +] + +{ #category : 'utilities' } +GRNumberPrinter >> digitsOf: aNumber base: aBaseInteger [ + "Answer the absolute digits of aNumber in the base aBaseInteger." + + | integer stream next | + integer := aNumber truncated abs. + integer = 0 ifTrue: [ ^ '0' ]. + stream := WriteStream on: (String new: 10). + [ integer > 0 ] whileTrue: [ + next := integer quo: aBaseInteger. + stream nextPut: (characters + at: 1 + integer - (next * aBaseInteger)). + integer := next ]. + ^ stream contents reverse +] + +{ #category : 'accessing' } +GRNumberPrinter >> infinite: aString [ + "The string that should be displayed if the number is positive or negative infinity." + + infinite := aString +] + +{ #category : 'initialization' } +GRNumberPrinter >> initialize [ + super initialize. + self lowercase. + self base: 10. + self delimiter: $.. + self infinite: 'Infinite'. + self nan: 'NaN'. + self padding: $ . + self precision: 0 +] + +{ #category : 'utilities' } +GRNumberPrinter >> lengthOf: aNumber base: aBaseInteger [ + "Answer the number of digits of aNumber in the base aBaseInteger. + Same as #decimalDigitLength" + + | integer current length | + integer := aNumber truncated abs. + length := 1. + current := aBaseInteger. + [ current <= integer ] whileTrue: [ + length := length + 1. + current := current * aBaseInteger ]. + ^ length +] + +{ #category : 'actions' } +GRNumberPrinter >> lowercase [ + "Use lowercase characters for numbers of base 10 and higher." + + self characters: NumbersToCharactersLowercase +] + +{ #category : 'accessing' } +GRNumberPrinter >> nan: aString [ + "The string that should be displayed if the number is not a number." + + nan := aString +] + +{ #category : 'utilities' } +GRNumberPrinter >> padLeft: aCharacter to: aPadCountInteger on: aStream [ + "Pad to the left side of aString with aCharacter to at anInteger characters." + + 1 to: aPadCountInteger do: [ :index | + separator isNil ifFalse: [ + (index ~= 1 and: [ (digits - index) \\ 3 = 2 ]) + ifTrue: [ aStream nextPut: separator ] ]. + aStream nextPut: aCharacter ] +] + +{ #category : 'accessing' } +GRNumberPrinter >> padding: aCharacter [ + "The padding for the integer part." + + padding := aCharacter +] + +{ #category : 'accessing' } +GRNumberPrinter >> precision: anInteger [ + "The number of digits to be printed in the fraction part." + + precision := anInteger +] + +{ #category : 'printing' } +GRNumberPrinter >> print: aNumber on: aStream [ + aNumber isNaN + ifTrue: [ ^ self printNaN: aNumber on: aStream ]. + aNumber isInfinite + ifTrue: [ ^ self printInfinite: aNumber on: aStream ]. + precision = 0 + ifTrue: [ self printInteger: aNumber on: aStream ] + ifFalse: [ self printFloat: aNumber on: aStream ] +] + +{ #category : 'utilities' } +GRNumberPrinter >> printDigitsOf: aNumber withLength: aLengthInteger on: aStream [ + "Print the digits of aNumber with a lenght of aLengthInteger on aStream. + Also print a separator if required." + + | rest | + rest := aNumber truncated abs. + 1 to: aLengthInteger do: [ :index | + | divisor current | + divisor := base raisedTo: aLengthInteger - index. + current := rest // divisor. + separator isNil ifFalse: [ + (index ~= 1 and: [ (aLengthInteger - index) \\ 3 = 2 ]) + ifTrue: [ aStream nextPut: separator ] ]. + aStream nextPut: (characters at: current + 1). + rest := rest - (divisor * current) ] +] + +{ #category : 'printing' } +GRNumberPrinter >> printFloat: aNumber on: aStream [ + | multiplier rounded | + multiplier := base raisedTo: precision. + rounded := aNumber roundTo: (accuracy ifNil: [ multiplier reciprocal ]). + self printInteger: rounded on: aStream. + delimiter isNil + ifFalse: [ aStream nextPut: delimiter ]. + self printFraction: rounded fractionPart abs * multiplier on: aStream +] + +{ #category : 'printing' } +GRNumberPrinter >> printFraction: aNumber on: aStream [ + | result | + result := self + pad: (self digitsOf: aNumber rounded base: base) + left: $0 to: precision. + separator isNil + ifTrue: [ aStream nextPutAll: result ] + ifFalse: [ self separate: result left: separator on: aStream ] +] + +{ #category : 'printing' } +GRNumberPrinter >> printInfinite: aNumber on: aStream [ + infinite isNil + ifFalse: [ aStream nextPutAll: infinite ] +] + +{ #category : 'printing' } +GRNumberPrinter >> printInteger: aNumber on: aStream [ + | length | + length := self lengthOf: aNumber base: base. + + (digits notNil and: [ padding notNil ]) + ifTrue: [ self padLeft: padding to: (digits - length) on: aStream ]. + + self printDigitsOf: aNumber withLength: length on: aStream +] + +{ #category : 'printing' } +GRNumberPrinter >> printNaN: anInteger on: aStream [ + nan isNil + ifFalse: [ aStream nextPutAll: nan ] +] + +{ #category : 'utilities' } +GRNumberPrinter >> separate: aString left: aCharacter on: aStream [ + "Separate from the left side every 3 characters with aCharacter." + + | size | + size := aString size. + 1 to: size do: [ :index | + (index ~= 1 and: [ index \\ 3 = 1 ]) + ifTrue: [ aStream nextPut: aCharacter ]. + aStream nextPut: (aString at: index) ] +] + +{ #category : 'utilities' } +GRNumberPrinter >> separate: aString right: aCharacter [ + "Separate from the right side every 3 characters with aCharacter." + + | size stream | + size := aString size. + stream := WriteStream on: (String new: 2 * size). + 1 to: size do: [ :index | + (index ~= 1 and: [ size - index \\ 3 = 2 ]) + ifTrue: [ stream nextPut: aCharacter ]. + stream nextPut: (aString at: index) ]. + ^ stream contents +] + +{ #category : 'accessing' } +GRNumberPrinter >> separator: aCharacter [ + "Separator character to be used to group digits." + + separator := aCharacter +] + +{ #category : 'actions' } +GRNumberPrinter >> uppercase [ + "Use uppercase characters for numbers of base 10 and higher." + + self characters: NumbersToCharactersUppercase +] diff --git a/repository/Grease-Core/GRObject.class.st b/repository/Grease-Core/GRObject.class.st new file mode 100644 index 00000000..ff245aff --- /dev/null +++ b/repository/Grease-Core/GRObject.class.st @@ -0,0 +1,35 @@ +" +A common superclass that ensures consistent initialization behaviour on all platforms and provides #error: methods that signal an instance of WAPlatformError. + +Packages that are using Seaside-Platform should normally subclass GRObject instead of Object. +" +Class { + #name : 'GRObject', + #superclass : 'Object', + #category : 'Grease-Core', + #package : 'Grease-Core' +} + +{ #category : 'error handling' } +GRObject class >> defaultErrorClass [ + ^ GRError +] + +{ #category : 'error handling' } +GRObject class >> error: aString [ + ^ self defaultErrorClass signal: aString +] + +{ #category : 'instance creation' } +GRObject class >> new [ + ^ self basicNew initialize +] + +{ #category : 'error handling' } +GRObject >> error: aString [ + ^ self class error: aString +] + +{ #category : 'initialization' } +GRObject >> initialize [ +] diff --git a/repository/Grease-Core/GROrderedMultiMap.class.st b/repository/Grease-Core/GROrderedMultiMap.class.st new file mode 100644 index 00000000..23be9b1b --- /dev/null +++ b/repository/Grease-Core/GROrderedMultiMap.class.st @@ -0,0 +1,85 @@ +" +I am an implementation of an ordered multi-map. I allow multiple values to be associated with the same key and maintain the order of addition. #at: and its derivatives all operate on the first matching key, while #allAt: returns the complete list of values for a key in the order they were added. +" +Class { + #name : 'GROrderedMultiMap', + #superclass : 'GRSmallDictionary', + #category : 'Grease-Core-Collections', + #package : 'Grease-Core', + #tag : 'Collections' +} + +{ #category : 'accessing' } +GROrderedMultiMap >> add: anAssociation [ + self privateAt: anAssociation key put: anAssociation value. + ^ anAssociation +] + +{ #category : 'adding' } +GROrderedMultiMap >> addAll: aDictionary [ + aDictionary keysAndValuesDo: [ :key :value | + self privateAt: key put: value ]. + ^ aDictionary +] + +{ #category : 'accessing' } +GROrderedMultiMap >> allAt: aKey [ + ^ Array streamContents: [ :stream | + 1 to: size do: [ :index | + (keys at: index) = aKey + ifTrue: [ stream nextPut: (values at: index) ] ] ] +] + +{ #category : 'accessing' } +GROrderedMultiMap >> allAt: aKey ifAbsent: absentBlock [ + | results | + results := self allAt: aKey. + ^ results isEmpty + ifTrue: [ absentBlock value ] + ifFalse: [ results ] +] + +{ #category : 'accessing' } +GROrderedMultiMap >> at: aKey add: aValue [ + "Add an association between aKey and aValue. Do not replace existing + values with the same key." + + ^ self privateAt: aKey put: aValue +] + +{ #category : 'enumerating' } +GROrderedMultiMap >> keysAndAllValuesDo: aTwoArgumentBlock [ + | seenKeys | + seenKeys := GRSmallOrderedSet new. + 1 to: size do: [ :index | + | key | + key := keys at: index. + (seenKeys includes: key) ifFalse: [ + aTwoArgumentBlock + value: key + value: (self privateAllAt: key startingAt: index). + seenKeys add: key ] ] +] + +{ #category : 'private' } +GROrderedMultiMap >> privateAllAt: aKey startingAt: aStartInteger [ + ^ Array new: 2 streamContents: [ :stream | + aStartInteger to: size do: [ :index | + (keys at: index) = aKey + ifTrue: [ stream nextPut: (values at: index) ] ] ] +] + +{ #category : 'accessing' } +GROrderedMultiMap >> removeKey: aKey ifAbsent: aBlock [ + "Remove aKey from the receiver, evaluate aBlock if the element is missing." + + "This is inefficient and could be optimized." + | removed | + removed := Array new: 2 streamContents: [ :stream | + | index | + [ (index := self findIndexFor: aKey) = 0 ] whileFalse: [ + stream nextPut: (self removeIndex: index) ] ]. + ^ removed isEmpty + ifTrue: [ aBlock value ] + ifFalse: [ removed ] +] diff --git a/repository/Grease-Core/GROrderedMultiMap2.class.st b/repository/Grease-Core/GROrderedMultiMap2.class.st new file mode 100644 index 00000000..b1af84d5 --- /dev/null +++ b/repository/Grease-Core/GROrderedMultiMap2.class.st @@ -0,0 +1,82 @@ +" +I am an implementation of an ordered multi-map. I allow multiple values to be associated with the same key and maintain the order of addition. #at: and its derivatives all operate on the first matching key, while #allAt: returns the complete list of values for a key in the order they were added. +" +Class { + #name : 'GROrderedMultiMap2', + #superclass : 'GRSmallDictionary2', + #category : 'Grease-Core-Collections', + #package : 'Grease-Core', + #tag : 'Collections' +} + +{ #category : 'adding' } +GROrderedMultiMap2 >> add: anAssociation [ + self privateAt: anAssociation key put: anAssociation value. + ^ anAssociation +] + +{ #category : 'adding' } +GROrderedMultiMap2 >> addAll: aDictionary [ + aDictionary keysAndValuesDo: [ :key :value | + self privateAt: key put: value ]. + ^ aDictionary +] + +{ #category : 'accessing' } +GROrderedMultiMap2 >> allAt: aKey [ + ^ self privateAllAt: aKey startingAt: 1 +] + +{ #category : 'accessing' } +GROrderedMultiMap2 >> allAt: aKey ifAbsent: absentBlock [ + | results | + results := self allAt: aKey. + ^ results isEmpty + ifTrue: [ absentBlock value ] + ifFalse: [ results ] +] + +{ #category : 'adding' } +GROrderedMultiMap2 >> at: aKey add: aValue [ + "Add an association between aKey and aValue. Do not replace existing + values with the same key." + + ^ self privateAt: aKey put: aValue +] + +{ #category : 'enumerating' } +GROrderedMultiMap2 >> keysAndAllValuesDo: aTwoArgumentBlock [ + | seenKeys | + seenKeys := GRSmallOrderedSet new. + 1 to: size * 2 - 1 by: 2 do: [ :index | + | key | + key := table at: index. + (seenKeys includes: key) ifFalse: [ + aTwoArgumentBlock + value: key + value: (self privateAllAt: key startingAt: index). + seenKeys add: key ] ] +] + +{ #category : 'private ' } +GROrderedMultiMap2 >> privateAllAt: aKey startingAt: index [ + ^ Array new: 2 streamContents: [ :stream | + index to: size * 2 - 1 by: 2 do: [ :i | + (table at: i) = aKey + ifTrue: [ stream nextPut: (table at: i + 1) ] ] ] +] + +{ #category : 'removing' } +GROrderedMultiMap2 >> removeKey: aKey ifAbsent: aBlock [ + "Remove aKey from the receiver, evaluate aBlock if the element is missing." + + "This is inefficient and could be optimized." + | removed | + removed := Array new: 2 streamContents: [ :stream | + | index | + [ (index := self findIndexFor: aKey) = 0 ] whileFalse: [ + stream nextPut: (self removeIndex: index) ] ]. + ^ removed isEmpty + ifTrue: [ aBlock value ] + ifFalse: [ removed ] +] diff --git a/repository/Grease-Core/GROrdinalizePrinter.class.st b/repository/Grease-Core/GROrdinalizePrinter.class.st new file mode 100644 index 00000000..a7e480b1 --- /dev/null +++ b/repository/Grease-Core/GROrdinalizePrinter.class.st @@ -0,0 +1,22 @@ +Class { + #name : 'GROrdinalizePrinter', + #superclass : 'GRPrinter', + #category : 'Grease-Core-Text', + #package : 'Grease-Core', + #tag : 'Text' +} + +{ #category : 'private' } +GROrdinalizePrinter >> ordinalize: anInteger [ + ^ (anInteger \\ 100 between: 11 and: 13) + ifTrue: [ 'th' ] + ifFalse: [ + #('st' 'nd' 'rd') + at: anInteger \\ 10 + ifAbsent: [ 'th' ] ] +] + +{ #category : 'printing' } +GROrdinalizePrinter >> print: anObject on: aStream [ + aStream nextPutAll: (self ordinalize: anObject integerPart) +] diff --git a/repository/Grease-Core/GRPackage.class.st b/repository/Grease-Core/GRPackage.class.st new file mode 100644 index 00000000..ef301608 --- /dev/null +++ b/repository/Grease-Core/GRPackage.class.st @@ -0,0 +1,202 @@ +" +I am a platform independent package representation. I know my name, description, my dependencies, the license and the repository URL. Packages are declared by creating a class side extension method that answers a configured package instance. The expression + + GRPackage packages + +answers the collection of the complete package graph. +" +Class { + #name : 'GRPackage', + #superclass : 'GRObject', + #instVars : [ + 'name', + 'description', + 'dependencies', + 'license', + 'url' + ], + #category : 'Grease-Core', + #package : 'Grease-Core' +} + +{ #category : 'querying' } +GRPackage class >> grPackages [ + "Answer a list of all registered packages. A package is registered by adding a class extension to the receiving class answering an instance of the receiving class." + + | packages package | + packages := Dictionary new. + self class selectors do: [ :each | + (each numArgs = 0 and: [ each ~= #grPackages ]) ifTrue: [ + package := self perform: each. + packages at: package name put: package ] ]. + packages do: [ :each | each resolveWith: packages ]. + ^ packages values +] + +{ #category : 'accessing' } +GRPackage class >> greaseCore [ + ^ self new + name: 'Grease-Core'; + description: 'The main package of the Grease compatibility layer.'; + url: #greaseUrl; + yourself +] + +{ #category : 'private' } +GRPackage >> addDependenciesTo: aCollection [ + (aCollection includes: self) ifFalse: [ + self dependencies + do: [ :each | each addDependenciesTo: aCollection ]. + aCollection add: self ]. + ^ aCollection +] + +{ #category : 'dependencies' } +GRPackage >> addDependency: aString [ + dependencies add: aString +] + +{ #category : 'dependencies' } +GRPackage >> allDependencies [ + "Answer all dependencies on which this package depends." + + ^ self addDependenciesTo: OrderedCollection new +] + +{ #category : 'dependencies' } +GRPackage >> dependencies [ + "Return a collection of package names on which this package depends." + + ^ dependencies +] + +{ #category : 'accessing' } +GRPackage >> description [ + "Answer a short description of the package." + + ^ description +] + +{ #category : 'accessing' } +GRPackage >> description: aString [ + description := aString +] + +{ #category : 'accessing-repositories' } +GRPackage >> greaseUrl [ + "The original URL: http://smalltalkhub.com/mc/Seaside/Grease11/main" + ^ 'https://github.com/SeasideSt/Grease' +] + +{ #category : 'initialization' } +GRPackage >> initialize [ + super initialize. + dependencies := OrderedCollection new. + license := #MIT +] + +{ #category : 'testing' } +GRPackage >> isLGPL [ + ^ self license = #LGPL +] + +{ #category : 'testing' } +GRPackage >> isMIT [ + ^ self license = #MIT +] + +{ #category : 'accessing' } +GRPackage >> license [ + "Answer the current license of this package, by default MIT is used." + + ^ license +] + +{ #category : 'accessing' } +GRPackage >> license: aSymbol [ + license := aSymbol +] + +{ #category : 'accessing' } +GRPackage >> name [ + "Answer the name of the package. This string should be useable to identify the platform specific native package object, e.g. the Monticello package name." + + ^ name +] + +{ #category : 'accessing' } +GRPackage >> name: aString [ + name := aString +] + +{ #category : 'printing' } +GRPackage >> printOn: aStream [ + super printOn: aStream. + aStream nextPut: $(; nextPutAll: self name; nextPut: $) +] + +{ #category : 'dependencies' } +GRPackage >> resolveWith: aDictionary [ + dependencies := dependencies + collect: [ :each | + aDictionary at: each ifAbsent: [ + "if Foo-Pharo-Bar fails try Foo-Pharo20-Bar and Foo-Pharo30-Bar" + (each indexOfSubCollection: '-Pharo-' startingAt: 1) ~= 0 ifTrue: [ + "try -Pharo40-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo40-') ifAbsent: [ + "try -Pharo50-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo50-') ifAbsent: [ + "try -Pharo60-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo60-') ifAbsent: [ + "try -Pharo70-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo70-') ifAbsent: [ + "try -Pharo90-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo90-') ifAbsent: [ + "try -Pharo100-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo100-') ifAbsent: [ + "try -Pharo110-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo110-') ifAbsent: [ + "try -Squeak-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak-') ifAbsent: [ + "try -Squeak5-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak5-') ifAbsent: [ + "try -Squeak6-" + aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Squeak6-') ifAbsent: [ + "specific for Grease-Slime" + aDictionary at: (each copyReplaceAll: 'Grease-Pharo-Slime' with: 'Grease-Slime') ifAbsent: [ + self error: self name printString , ' depends on unknown package ' , each printString ] ] ] ] ] ] ] ] ] ] ] ] ] ] +] + +{ #category : 'accessing-repositories' } +GRPackage >> seasideAddonsUrl [ + "The original URL http://smalltalkhub.com/mc/Seaside/Seaside30Addons/main" + ^ 'https://github.com/SeasideSt/Seaside' +] + +{ #category : 'accessing-repositories' } +GRPackage >> seasideLGPLUrl [ + "The original URL: http://smalltalkhub.com/mc/Seaside/Seaside31/main" + ^ 'https://github.com/SeasideSt/Seaside' +] + +{ #category : 'accessing-repositories' } +GRPackage >> seasideUrl [ + "The original URL: http://smalltalkhub.com/mc/Seaside/Seaside31/main" + ^ 'https://github.com/SeasideSt/Seaside' +] + +{ #category : 'accessing' } +GRPackage >> url [ + "Answer the base-URL of the package. This string is only meaningful for platforms that can directly access Monticello repositories." + + ^ url isSymbol + ifTrue: [ self perform: url ] + ifFalse: [ url ] +] + +{ #category : 'accessing' } +GRPackage >> url: aStringOrSymbol [ + "Set the base-URL of the package, or a symbol referring to a method in this class that answers the URL. This setting is only meaningful for platforms that can directly access Monticello repositories." + + url := aStringOrSymbol +] diff --git a/repository/Grease-Core/GRPlatform.class.st b/repository/Grease-Core/GRPlatform.class.st new file mode 100644 index 00000000..4fdc6d15 --- /dev/null +++ b/repository/Grease-Core/GRPlatform.class.st @@ -0,0 +1,428 @@ +" +The abstract platform implementation. Each platform should provide a subclass implementing any abstract methods and overriding any other methods as necessary. + +Default implementations should be provided here when possible/useful but default implementations MUST be valid on ALL PLATFORMS so it is rarely practical. VA Smalltalk flags sends of uknown messages so even these must be known to exist on all platforms. + +Common cases where default implementations *are* appropriate are where there is a standard implementation that is valid on all platforms but one or more platforms have an additional, optimized implementation that should be used instead. + +All classes and methods used by methods of this class should be either: + + included in the Seaside-Platform package; + + defined by the ANSI Smalltalk standard; or + + (not ideal) referenced via 'Smalltalk at: #ClassName'. +" +Class { + #name : 'GRPlatform', + #superclass : 'GRObject', + #classVars : [ + 'Current' + ], + #category : 'Grease-Core', + #package : 'Grease-Core' +} + +{ #category : 'registration' } +GRPlatform class >> current [ + + ^ Current +] + +{ #category : 'registration' } +GRPlatform class >> current: aPlatform [ + Current := aPlatform +] + +{ #category : 'registration' } +GRPlatform class >> select [ + GRPlatform current: self new +] + +{ #category : 'registration' } +GRPlatform class >> unselect [ + GRPlatform current class = self ifTrue: [ GRPlatform current: nil ] +] + +{ #category : 'startup' } +GRPlatform >> addToShutDownList: anObject [ + "Add anObject to the shutdown-list of the system. On shutdown the message #shutDown will be sent to anObject." + self subclassResponsibility +] + +{ #category : 'startup' } +GRPlatform >> addToStartUpList: anObject [ + "Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject." + self subclassResponsibility +] + +{ #category : 'file library' } +GRPlatform >> asMethodReturningByteArray: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a ByteArray" + self subclassResponsibility +] + +{ #category : 'file library' } +GRPlatform >> asMethodReturningString: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a String. + + This implementation answers a String formatted like so + + aSymbol + ^ aByteArrayOrString + + Subclasses need to override this method if the dialect needs changes to support Unicode string literals" + ^ String streamContents: [ :stream | + stream + nextPutAll: aSymbol; + nextPut: Character cr. + stream + tab; + nextPutAll: '^ '''. + aByteArrayOrString greaseString do: [ :each | + each = $' ifTrue: [ stream nextPut: $' ]. + stream nextPut: each ]. + stream nextPut: $' ] +] + +{ #category : 'encoding' } +GRPlatform >> base64Decode: aString [ + "Base64 decode the given String and answer the result as a String." + self subclassResponsibility +] + +{ #category : 'encoding' } +GRPlatform >> base64Encode: aByteArray [ + "Base64 encode the given byte array and answer the result as a String." + self subclassResponsibility +] + +{ #category : 'bindings' } +GRPlatform >> bindingOf: aClass [ + "Answer the binding of aClass. + The binding is the literal that get compiled into the method. + We need the binding to be updated when the class is changed. + The binding has to respond to #value. + + This is mostly an issue on GemStone/S because when we hold on + to a class directly we will end up holding on to an old class version. + + Dialects with namespaces will need to override this. + + On VisualWorks this should like this + ^ aClass fullyQualifiedReference" + ^ Smalltalk associationAt: aClass name +] + +{ #category : 'meta-object-protocol' } +GRPlatform >> compile: aString into: aClass classified: aSymbol [ + "The trick here is to be as silently a possible so that the package is not marked dirty when running WAFileLibrary test. + This also makes running tests much faster." + self subclassResponsibility +] + +{ #category : 'files' } +GRPlatform >> contentsOfFile: aString binary: aBoolean [ + self subclassResponsibility +] + +{ #category : 'file library' } +GRPlatform >> convertToSmalltalkNewlines: aString [ + "Convert any line endings (CR, CRLF, LF) to the default platform newline." + + aString isNil + ifTrue: [ ^ nil ]. + ^ String streamContents: [ :writeStream | + | readStream | + readStream := aString readStream. + [ readStream atEnd ] whileFalse: [ + | next | + next := readStream next. + next = Character cr + ifTrue: [ + readStream peek = Character lf + ifTrue: [ readStream skip: 1 ]. + writeStream nextPutAll: self newline ] + ifFalse: [ + next = Character lf + ifTrue: [ writeStream nextPutAll: self newline ] + ifFalse: [ writeStream nextPut: next ] ] ] ] +] + +{ #category : 'files' } +GRPlatform >> deleteFile: aPathString [ + self subclassResponsibility +] + +{ #category : 'exceptions' } +GRPlatform >> deprecationExceptionSet [ + "Answer the exception set that should considered besides WADeprecation." + ^ ExceptionSet new +] + +{ #category : 'files' } +GRPlatform >> directoriesIn: aPathString [ + "Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString + must not include directory names that start with ." + self subclassResponsibility +] + +{ #category : 'file library' } +GRPlatform >> doSilently: aBlock [ + "Suspend all notifications value evaluating the given block." + ^ aBlock value +] + +{ #category : 'transactions' } +GRPlatform >> doTransaction: aBlock [ + "for Gemstone/S compatibility + http://gemstonesoup.wordpress.com/2007/05/10/porting-application-specific-seaside-threads-to-gemstone/ + use when modifying an object from an outside thread" + + ^ aBlock value +] + +{ #category : 'files' } +GRPlatform >> ensureExistenceOfFolder: aString [ + "Create a folder named aString in the image directory." + self subclassResponsibility +] + +{ #category : 'files' } +GRPlatform >> fileExists: aString [ + self subclassResponsibility +] + +{ #category : 'files' } +GRPlatform >> fileStreamOn: aString do: aBlock binary: aBoolean [ + self + greaseDeprecatedApi: 'GRPlatform>>#fileStreamOn:do:binary:' + details: 'Use readFileStreamOn:do:binary:'. + ^ self readFileStreamOn: aString do: aBlock binary: aBoolean +] + +{ #category : 'files' } +GRPlatform >> filesIn: aPathString [ + "Answer a collection of absolute paths for all the files (no directories) in the directory given by aPathString + must not include file names that start with ." + self subclassResponsibility +] + +{ #category : 'encoding' } +GRPlatform >> integerAsByteArray: anInteger [ + ^ anInteger asByteArray +] + +{ #category : 'processes' } +GRPlatform >> isProcessTerminated: aProcess [ + "Return a boolean indicating whether aProcess has been terminated." + + self subclassResponsibility +] + +{ #category : 'version info' } +GRPlatform >> label [ + "Answer a descriptive label string for the platform implementation" + + self subclassResponsibility +] + +{ #category : 'files' } +GRPlatform >> localNameOf: aFilename [ + "Answer the local name of a file identified by an absolute file path. + + Eg. + If the platform is Windwos and aFilename is 'C:\Windows\win32.dll' then it would answer 'win32.dll'. + If the platform is Unix and aFilename is '/usr/bin/vim' then it would answer 'vim'." + self subclassResponsibility +] + +{ #category : 'factory' } +GRPlatform >> newRandom [ + "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: + #nextInt: - should answer a random integer in the interval [1, anInteger] + #randomFrom: - should answer a random element from the given collection + + Make sure that both methods are safe under heavy concurrent load. + + Used by Gemstone/S traditional Randoms which cannot be persisted. + Used by Squeak to use a secure random when avaiable." + self subclassResponsibility +] + +{ #category : 'files' } +GRPlatform >> newTemporaryFile [ + "Create a new temporary file in the systems temp directory and answer its pathString. + It is the users responsibility to delete or move the file, it will not be cleaned up automatically + (unless the host system has a policy for it)." + ^ self subclassResponsibility +] + +{ #category : 'files' } +GRPlatform >> newTemporaryFileNamed: aName [ + "Create a new temporary file in the systems temp directory and answer its pathString. + It is the users responsibility to delete or move the file, it will not be cleaned up automatically + (unless the host system has a policy for it)." + self subclassResponsibility +] + +{ #category : 'file library' } +GRPlatform >> newline [ + "Answer a String with the default newline character of this platform." + + self subclassResponsibility +] + +{ #category : 'exceptions' } +GRPlatform >> openDebuggerOn: anError [ + self subclassResponsibility +] + +{ #category : 'files' } +GRPlatform >> pathSeparator [ + "Answer the path separator as a String, eg. '/' on Unix and '\' on Windows." + self subclassResponsibility +] + +{ #category : 'files' } +GRPlatform >> readFileStreamOn: aString do: aBlock binary: aBoolean [ + self subclassResponsibility +] + +{ #category : 'factory' } +GRPlatform >> readWriteByteStream [ + "Return a ReadWriteStream on a ByteArray that stores integers 0..255 + ^ReadWriteStream on: ByteArray new + " + + ^ self subclassResponsibility +] + +{ #category : 'factory' } +GRPlatform >> readWriteCharacterStream [ + "Return a ReadWriteStream on a String that stores characters + ^ReadWriteStream on: String new + " + + ^ self subclassResponsibility +] + +{ #category : 'factory' } +GRPlatform >> reducedConflictDictionary [ + "used by Gemstone/S reduced conflict classes that can be used to avoid transaction conflicts" + ^ Dictionary +] + +{ #category : 'startup' } +GRPlatform >> removeFromShutDownList: anObject [ + "Remove anObject from the shutdown list in the system." + self subclassResponsibility +] + +{ #category : 'startup' } +GRPlatform >> removeFromStartUpList: anObject [ + "Remove anObject from the startup list in the system." + self subclassResponsibility +] + +{ #category : 'meta-object-protocol' } +GRPlatform >> removeSelector: aSymbol from: aClass [ + self subclassResponsibility +] + +{ #category : 'cryptography' } +GRPlatform >> secureHashFor: aStringOrByteArray [ + self subclassResponsibility +] + +{ #category : 'factory' } +GRPlatform >> semaphoreClass [ + "used by Gemstone/S traditional Semaphores which cannot be persisted" + self subclassResponsibility +] + +{ #category : 'files' } +GRPlatform >> sizeOfFile: aString [ + + self subclassResponsibility +] + +{ #category : 'meta-object-protocol' } +GRPlatform >> sourceCodeStringOf: aCompiledMethod [ + "Return a String with the source code for a compiled method." + + self subclassResponsibility +] + +{ #category : 'exceptions' } +GRPlatform >> stackDepth [ + self subclassResponsibility +] + +{ #category : 'encoding' } +GRPlatform >> supportsUnicode [ + "dynamically try to figure out whether the current dialect supports Unicode" + + ^ [ + String + with: (Character codePoint: 16r1F1F3) + with: (Character codePoint: 16r1F1F1). + true + ] on: Error + do: [ :error | false ] +] + +{ #category : 'processes' } +GRPlatform >> terminateProcess: aProcess [ + "Permanently terminate the process, unwinding first to execute #ensure: and #ifCurtailed: blocks." + + self subclassResponsibility +] + +{ #category : 'processes' } +GRPlatform >> thisContext [ + "Answer the current activation of a method execution or block activation. + + For dialects with a thisContext variable and implementation can look like this. + + ^ thisContext sender" + self subclassResponsibility +] + +{ #category : 'version info' } +GRPlatform >> version [ + "Answer the Grease version" + + ^ (GRVersion major: 1 minor: 19 revision: 1) + yourself +] + +{ #category : 'version info' } +GRPlatform >> versionString [ + ^ String streamContents: [ :stream | + stream + nextPutAll: (self version greaseString); + nextPutAll: ' ('; + nextPutAll: (self label); + nextPut: $) ] +] + +{ #category : 'factory' } +GRPlatform >> weakDictionaryOfSize: aNumber [ + self subclassResponsibility +] + +{ #category : 'files' } +GRPlatform >> write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString [ + "Write aStringOrByteArray to a file named aFileNameString in the folder aFolderString." + self subclassResponsibility +] + +{ #category : 'factory' } +GRPlatform >> writeCharacterStreamOn: aString [ + "String based write stream" + + ^ WriteStream on: aString +] + +{ #category : 'files' } +GRPlatform >> writeFileStreamOn: aString do: aBlock binary: aBoolean [ + self subclassResponsibility +] diff --git a/repository/Grease-Core/GRPluggablePrinter.class.st b/repository/Grease-Core/GRPluggablePrinter.class.st new file mode 100644 index 00000000..ad5375e3 --- /dev/null +++ b/repository/Grease-Core/GRPluggablePrinter.class.st @@ -0,0 +1,31 @@ +Class { + #name : 'GRPluggablePrinter', + #superclass : 'GRPrinter', + #instVars : [ + 'block' + ], + #category : 'Grease-Core-Text', + #package : 'Grease-Core', + #tag : 'Text' +} + +{ #category : 'instance creation' } +GRPluggablePrinter class >> on: aBlock [ + ^ self new block: aBlock +] + +{ #category : 'accessing' } +GRPluggablePrinter >> block: aBlock [ + block := aBlock +] + +{ #category : 'initialization' } +GRPluggablePrinter >> initialize [ + super initialize. + self block: [ :value | String new ] +] + +{ #category : 'printing' } +GRPluggablePrinter >> print: anObject on: aStream [ + aStream nextPutAll: (block value: anObject) +] diff --git a/repository/Grease-Core/GRPrinter.class.st b/repository/Grease-Core/GRPrinter.class.st new file mode 100644 index 00000000..8ad23128 --- /dev/null +++ b/repository/Grease-Core/GRPrinter.class.st @@ -0,0 +1,332 @@ +Class { + #name : 'GRPrinter', + #superclass : 'GRObject', + #category : 'Grease-Core-Text', + #package : 'Grease-Core', + #tag : 'Text' +} + +{ #category : 'parts-date' } +GRPrinter class >> abbreviatedMonthName [ + ^ self monthName: #('Jan' 'Feb' 'Mar' 'Apr' 'May' 'Jun' 'Jul' 'Aug' 'Sep' 'Oct' 'Nov' 'Dec') +] + +{ #category : 'parts-date' } +GRPrinter class >> abbreviatedWeekName [ + ^ self weekName: #('Sun' 'Mon' 'Tue' 'Wed' 'Thu' 'Fri' 'Sat') +] + +{ #category : 'parts-date' } +GRPrinter class >> absOffsetHoursPadded [ + ^ GRMappedPrinter + block: [ :date | date offset hours abs ] + next: (self numberWithAtLeastDigits: 2) +] + +{ #category : 'parts-date' } +GRPrinter class >> absOffsetMinutesPadded [ + ^ GRMappedPrinter + block: [ :date | date offset minutes abs ] + next: (self numberWithAtLeastDigits: 2) +] + +{ #category : 'parts-units' } +GRPrinter class >> binaryFileSize [ + ^ GRUnitPrinter base: 1024 units: #('byte' 'bytes' 'KiB' 'MiB' 'GiB' 'TiB' 'PiB' 'EiB' 'ZiB' 'YiB') +] + +{ #category : 'factory-http' } +GRPrinter class >> cookieTimestamp [ + "Netscape's original proposal defined an Expires header that took a date value in a fixed-length variant format in place of Max-Age: Wdy, DD-Mon-YY HH:MM:SS GMT" + + ^ GRMappedPrinter + block: [ :timestamp | timestamp asUTC ] + next: self abbreviatedWeekName , ', ' , self paddedDay , '-' , self abbreviatedMonthName , '-' , self paddedYear , ' ' , self isoTime , ' GMT' +] + +{ #category : 'parts-units' } +GRPrinter class >> decimalFileSize [ + ^ GRUnitPrinter base: 1000 units: #('byte' 'bytes' 'kB' 'MB' 'GB' 'TB' 'PB' 'EB' 'ZB' 'YB') +] + +{ #category : 'parts-date' } +GRPrinter class >> fullMonthName [ + ^ self monthName: #('January' 'February' 'March' 'April' 'May' 'June' 'July' 'August' 'September' 'October' 'November' 'December') +] + +{ #category : 'parts-date' } +GRPrinter class >> fullWeekName [ + ^ self weekName: #('Sunday' 'Monday' 'Tuesday' 'Wednesday' 'Thursday' 'Friday' 'Saturday') +] + +{ #category : 'factory-http' } +GRPrinter class >> httpDate [ + "Answers a printer that formats dates for HTTP1.1 (RFC 2616)" + + ^ self rfc1123 +] + +{ #category : 'factory-http' } +GRPrinter class >> isoDate [ + "Ansers a printer that formats dates according to ISO(YYYY-MM-DD) E.g. 2003-12-24" + + ^ self paddedYear , $- , self paddedMonth , $- , self paddedDay +] + +{ #category : 'factory-http' } +GRPrinter class >> isoTime [ + "Ansers a printer that formats time according to ISO(HH:MM:SS) E.g. 12:23:34" + + ^ self paddedHour24 , $: , self paddedMinute , $: , self paddedSecond +] + +{ #category : 'parts-date' } +GRPrinter class >> monthName: anArray [ + ^ GRPluggablePrinter on: [ :date | anArray at: date monthIndex ] +] + +{ #category : 'parts-units' } +GRPrinter class >> numberWithAtLeastDigits: anInteger [ + ^ GRNumberPrinter new + padding: $0; + digits: anInteger; + yourself +] + +{ #category : 'parts-date' } +GRPrinter class >> offsetSign [ + ^ GRMappedPrinter + block: [ :date | date offset ] + next: (GRSignPrinter new + positivePrinter: $+; + negativePrinter: $-; + yourself) +] + +{ #category : 'parts-date' } +GRPrinter class >> paddedCentury [ + ^ GRMappedPrinter + block: [ :date | date year \\ 100 ] + next: (self numberWithAtLeastDigits: 2) +] + +{ #category : 'parts-date' } +GRPrinter class >> paddedDay [ + ^ GRMappedPrinter + block: [ :date | date dayOfMonth ] + next: (self numberWithAtLeastDigits: 2) +] + +{ #category : 'parts-time' } +GRPrinter class >> paddedHour12 [ + ^ GRMappedPrinter + block: [ :time | (time hour - 1) \\ 12 + 1 ] + next: (self numberWithAtLeastDigits: 2) +] + +{ #category : 'parts-time' } +GRPrinter class >> paddedHour24 [ + ^ GRMappedPrinter + block: [ :time | time hour ] + next: (self numberWithAtLeastDigits: 2) +] + +{ #category : 'parts-time' } +GRPrinter class >> paddedMinute [ + ^ GRMappedPrinter + block: [ :time | time minute ] + next: (self numberWithAtLeastDigits: 2) +] + +{ #category : 'parts-date' } +GRPrinter class >> paddedMonth [ + ^ GRMappedPrinter + block: [ :date | date monthIndex ] + next: (self numberWithAtLeastDigits: 2) +] + +{ #category : 'parts-time' } +GRPrinter class >> paddedSecond [ + ^ GRMappedPrinter + block: [ :time | time second ] + next: (GRNumberPrinter new + padding: $0; + digits: 2) +] + +{ #category : 'parts-date' } +GRPrinter class >> paddedYear [ + ^ GRMappedPrinter + block: [ :date | date year ] + next: (self numberWithAtLeastDigits: 4) +] + +{ #category : 'factory-http' } +GRPrinter class >> rfc1123 [ + "Answers a printer that formats dates for HTTP1.1 (RFC 1123). Eg. + Sun, 06 Nov 1994 08:49:37 GMT " + + ^ GRMappedPrinter + block: [ :date | + "For the purposes of HTTP, GMT is exactly equal to UTC (Coordinated Universal Time)" + date asUTC ] + next: GRSequentialPrinter new , self abbreviatedWeekName , ', ' , self paddedDay , Character space , self abbreviatedMonthName , Character space , self paddedYear , Character space , self isoTime , ' GMT' +] + +{ #category : 'factory-http' } +GRPrinter class >> rfc822 [ + "Answers a printer that formats dates according to RFC 822 (email). Eg. + Sun, 31 Aug 2008 19:41:46 +0200" + + ^ self abbreviatedWeekName , ', ' , self paddedDay , Character space , self abbreviatedMonthName , Character space , self paddedYear , Character space , self isoTime , Character space , self offsetSign , self absOffsetHoursPadded , self absOffsetMinutesPadded +] + +{ #category : 'factory-http' } +GRPrinter class >> rfc822WithTimeZone: aString [ + "Answers a privter that formats dates according to RFC 822 (email) with the given time zone String. Eg. + Sun, 31 Aug 2008 19:41:46 " + + ^ self abbreviatedWeekName , ', ' , self paddedDay , Character space , self abbreviatedMonthName , Character space , self paddedYear , Character space , self isoTime , Character space , aString +] + +{ #category : 'factory-currency' } +GRPrinter class >> swissCurrency [ + ^ GRSequentialPrinter new , 'CHF ' , GRSignPrinter new , (GRNumberPrinter new + separator: $'; + precision: 2; + accuracy: 0.05; + yourself) +] + +{ #category : 'parts-date' } +GRPrinter class >> unpaddedCentury [ + ^ GRMappedPrinter + block: [ :date | date year \\ 100 ] + next: GRNumberPrinter new +] + +{ #category : 'parts-date' } +GRPrinter class >> unpaddedDay [ + ^ GRMappedPrinter + block: [ :date | date dayOfMonth ] + next: GRNumberPrinter new +] + +{ #category : 'parts-time' } +GRPrinter class >> unpaddedHour12 [ + ^ GRMappedPrinter + block: [ :time | (time hour - 1) \\ 12 + 1 ] + next: GRNumberPrinter new +] + +{ #category : 'parts-time' } +GRPrinter class >> unpaddedHour24 [ + ^ GRMappedPrinter + block: [ :time | time hour ] + next: GRNumberPrinter new +] + +{ #category : 'parts-time' } +GRPrinter class >> unpaddedMinute [ + ^ GRMappedPrinter + block: [ :time | time minute ] + next: GRNumberPrinter new +] + +{ #category : 'parts-date' } +GRPrinter class >> unpaddedMonth [ + ^ GRMappedPrinter + block: [ :date | date monthIndex ] + next: GRNumberPrinter new +] + +{ #category : 'parts-time' } +GRPrinter class >> unpaddedSecond [ + ^ GRMappedPrinter + block: [ :time | time second ] + next: GRNumberPrinter new +] + +{ #category : 'parts-date' } +GRPrinter class >> unpaddedYear [ + ^ GRMappedPrinter + block: [ :date | date year ] + next: GRNumberPrinter new +] + +{ #category : 'factory-currency' } +GRPrinter class >> usCurrency [ + ^ GRSignPrinter new , $$ , (GRNumberPrinter new + separator: $,; + precision: 2; + yourself) +] + +{ #category : 'parts-date' } +GRPrinter class >> weekName: anArray [ + ^ GRPluggablePrinter on: [ :date | anArray at: date dayOfWeek ] +] + +{ #category : 'operators' } +GRPrinter >> , aPrinter [ + ^ GRSequentialPrinter new , self , aPrinter +] + +{ #category : 'utilities' } +GRPrinter >> pad: aString center: aCharacter to: anInteger [ + "Pad to the center of aString with aCharacter to at least anInteger characters." + + | result index | + anInteger <= aString size + ifTrue: [ ^ aString ]. + index := (anInteger - aString size) // 2. + result := (String new: anInteger) atAllPut: aCharacter. + result + replaceFrom: index + 1 + to: index + aString size + with: aString + startingAt: 1. + ^ result +] + +{ #category : 'utilities' } +GRPrinter >> pad: aString left: aCharacter to: anInteger [ + "Pad to the left side of aString with aCharacter to at least anInteger characters." + + | result | + anInteger <= aString size + ifTrue: [ ^ aString ]. + result := (String new: anInteger) atAllPut: aCharacter. + result + replaceFrom: anInteger - aString size + 1 + to: anInteger + with: aString + startingAt: 1. + ^ result +] + +{ #category : 'utilities' } +GRPrinter >> pad: aString right: aCharacter to: anInteger [ + "Pad to the right side of aString with aCharacter to at least anInteger characters." + + | result | + anInteger <= aString size + ifTrue: [ ^ aString ]. + result := (String new: anInteger) atAllPut: aCharacter. + result + replaceFrom: 1 + to: aString size + with: aString + startingAt: 1. + ^ result +] + +{ #category : 'printing' } +GRPrinter >> print: anObject [ + ^ String streamContents: [ :stream | self print: anObject on: stream ] +] + +{ #category : 'printing' } +GRPrinter >> print: anObject on: aStream [ + "Subclasses override this method to produce some output." +] diff --git a/repository/Grease-Core/GRSequentialPrinter.class.st b/repository/Grease-Core/GRSequentialPrinter.class.st new file mode 100644 index 00000000..0527c242 --- /dev/null +++ b/repository/Grease-Core/GRSequentialPrinter.class.st @@ -0,0 +1,26 @@ +Class { + #name : 'GRSequentialPrinter', + #superclass : 'GRPrinter', + #instVars : [ + 'parts' + ], + #category : 'Grease-Core-Text', + #package : 'Grease-Core', + #tag : 'Text' +} + +{ #category : 'operators' } +GRSequentialPrinter >> , aConverter [ + parts add: aConverter +] + +{ #category : 'initialization' } +GRSequentialPrinter >> initialize [ + super initialize. + parts := OrderedCollection new +] + +{ #category : 'printing' } +GRSequentialPrinter >> print: anObject on: aStream [ + parts do: [ :each | each print: anObject on: aStream ] +] diff --git a/repository/Grease-Core/GRSignPrinter.class.st b/repository/Grease-Core/GRSignPrinter.class.st new file mode 100644 index 00000000..22810fe5 --- /dev/null +++ b/repository/Grease-Core/GRSignPrinter.class.st @@ -0,0 +1,39 @@ +Class { + #name : 'GRSignPrinter', + #superclass : 'GRPrinter', + #instVars : [ + 'negativePrinter', + 'positivePrinter' + ], + #category : 'Grease-Core-Text', + #package : 'Grease-Core', + #tag : 'Text' +} + +{ #category : 'initialization' } +GRSignPrinter >> initialize [ + super initialize. + self negativePrinter: $-. + self positivePrinter: nil +] + +{ #category : 'accessing' } +GRSignPrinter >> negativePrinter: aPrinter [ + "The printer to be used when the number is negative." + + negativePrinter := aPrinter +] + +{ #category : 'accessing' } +GRSignPrinter >> positivePrinter: aPrinter [ + "The printer to be used when the number is zero or positive." + + positivePrinter := aPrinter +] + +{ #category : 'printing' } +GRSignPrinter >> print: anObject on: aStream [ + anObject negative + ifTrue: [ negativePrinter print: anObject on: aStream ] + ifFalse: [ positivePrinter print: anObject on: aStream ] +] diff --git a/repository/Grease-Core/GRSmallDictionary.class.st b/repository/Grease-Core/GRSmallDictionary.class.st new file mode 100644 index 00000000..4916e6a2 --- /dev/null +++ b/repository/Grease-Core/GRSmallDictionary.class.st @@ -0,0 +1,292 @@ +" +I am an implementation of a dictionary. Compared to other dictionaries I am very efficient for small sizes, speed- and space-wise. I also mantain the order in which elements are added when iterating. My implementation features some ideas from the RefactoringBrowser. +" +Class { + #name : 'GRSmallDictionary', + #superclass : 'GRObject', + #instVars : [ + 'size', + 'keys', + 'values' + ], + #category : 'Grease-Core-Collections', + #package : 'Grease-Core', + #tag : 'Collections' +} + +{ #category : 'instance creation' } +GRSmallDictionary class >> new [ + ^ self new: 3 +] + +{ #category : 'instance creation' } +GRSmallDictionary class >> new: anInteger [ + ^ self basicNew initialize: anInteger; yourself +] + +{ #category : 'instance creation' } +GRSmallDictionary class >> withAll: aDictionary [ + ^ (self new: aDictionary size) + addAll: aDictionary; + yourself +] + +{ #category : 'accessing' } +GRSmallDictionary >> add: anAssociation [ + self at: anAssociation key put: anAssociation value. + ^ anAssociation +] + +{ #category : 'adding' } +GRSmallDictionary >> addAll: aDictionary [ + aDictionary keysAndValuesDo: [ :key :value | self at: key put: value ]. + ^ aDictionary +] + +{ #category : 'accessing' } +GRSmallDictionary >> any [ + self isEmpty + ifTrue: [ ^ self errorEmptyCollection ]. + ^ values at: 1 +] + +{ #category : 'accessing' } +GRSmallDictionary >> associations [ + "Answer a Collection containing the receiver's associations." + + | result | + result := WriteStream on: (Array new: self size). + self associationsDo: [ :assoc | result nextPut: assoc ]. + ^ result contents +] + +{ #category : 'enumerating' } +GRSmallDictionary >> associationsDo: aBlock [ + self keysAndValuesDo: [ :key :value | aBlock value: key -> value ] +] + +{ #category : 'accessing' } +GRSmallDictionary >> at: aKey [ + "Answer the value associated with aKey. Raise an exception, if no such key is defined." + + ^ self at: aKey ifAbsent: [ self errorKeyNotFound ] +] + +{ #category : 'accessing' } +GRSmallDictionary >> at: aKey ifAbsent: aBlock [ + "Answer the value associated with aKey. Evaluate aBlock, if no such key is defined." + + | index | + index := self findIndexFor: aKey. + ^ index = 0 + ifFalse: [ values at: index ] + ifTrue: [ aBlock value ] +] + +{ #category : 'accessing' } +GRSmallDictionary >> at: aKey ifAbsentPut: aBlock [ + "Answer the value associated with aKey. Evaluate aBlock, if no such key is defined and store the return value." + + | index | + index := self findIndexFor: aKey. + ^ index = 0 + ifFalse: [ values at: index ] + ifTrue: [ self privateAt: aKey put: aBlock value ] +] + +{ #category : 'accessing' } +GRSmallDictionary >> at: aKey ifPresent: aBlock [ + "Lookup aKey in the receiver. If it is present, answer the value of evaluating the given block with the value associated with the key. Otherwise, answer nil." + + | index | + index := self findIndexFor: aKey. + ^ index = 0 ifFalse: [ aBlock value: (values at: index) ] +] + +{ #category : 'accessing' } +GRSmallDictionary >> at: aKey put: aValue [ + "Set the value of aKey to be aValue." + + | index | + index := self findIndexFor: aKey. + ^ index = 0 + ifFalse: [ values at: index put: aValue ] + ifTrue: [ self privateAt: aKey put: aValue ] +] + +{ #category : 'enumerating' } +GRSmallDictionary >> do: aBlock [ + 1 to: size do: [ :index | aBlock value: (values at: index) ] +] + +{ #category : 'private' } +GRSmallDictionary >> errorEmptyCollection [ + self error: 'Empty' +] + +{ #category : 'private' } +GRSmallDictionary >> errorKeyNotFound [ + self error: 'Key not found' +] + +{ #category : 'private' } +GRSmallDictionary >> findIndexFor: aKey [ + 1 to: size do: [ :index | + (keys at: index) = aKey + ifTrue: [ ^ index ] ]. + ^ 0 +] + +{ #category : 'private' } +GRSmallDictionary >> grow [ + | newKeys newValues | + newKeys := Array new: 2 * size. + newValues := Array new: 2 * size. + 1 to: size do: [ :index | + newKeys at: index put: (keys at: index). + newValues at: index put: (values at: index) ]. + keys := newKeys. + values := newValues +] + +{ #category : 'testing' } +GRSmallDictionary >> includesKey: aKey [ + "Answer whether the receiver has a key equal to aKey." + + ^ (self findIndexFor: aKey) ~= 0 +] + +{ #category : 'initialization' } +GRSmallDictionary >> initialize: anInteger [ + self initialize. + size := 0. + keys := Array new: anInteger. + values := Array new: anInteger +] + +{ #category : 'testing' } +GRSmallDictionary >> isCollection [ + ^ true +] + +{ #category : 'testing' } +GRSmallDictionary >> isEmpty [ + ^ size = 0 +] + +{ #category : 'enumerating' } +GRSmallDictionary >> keys [ + ^ keys copyFrom: 1 to: size +] + +{ #category : 'enumerating' } +GRSmallDictionary >> keysAndValuesDo: aBlock [ + 1 to: size do: [ :index | aBlock value: (keys at: index) value: (values at: index) ] +] + +{ #category : 'enumerating' } +GRSmallDictionary >> keysDo: aBlock [ + 1 to: size do: [ :each | aBlock value: (keys at: each) ] +] + +{ #category : 'enumerating' } +GRSmallDictionary >> noneSatisfy: aOneArgumentBlock [ + 1 to: size do: [ :index | + (aOneArgumentBlock value: (values at: index)) ifTrue: [ ^ false ] ]. + ^ true +] + +{ #category : 'testing' } +GRSmallDictionary >> notEmpty [ + ^ size ~= 0 +] + +{ #category : 'copying' } +GRSmallDictionary >> postCopy [ + super postCopy. + keys := keys copy. + values := values copy +] + +{ #category : 'printing' } +GRSmallDictionary >> printOn: aStream [ + super printOn: aStream. + + aStream nextPut: $(. + self size <= 100 + ifTrue: [ + | first | + first := true. + self keysAndValuesDo: [ :key :value | + "keysAndValuesDo:separatedBy: would be nice" + first + ifTrue: [ first := false ] + ifFalse: [ aStream space ]. + aStream + print: key; + nextPutAll: '->'; + print: value ] ] + ifFalse: [ + aStream + nextPutAll: 'size '; + print: self size ]. + aStream nextPut: $) +] + +{ #category : 'private' } +GRSmallDictionary >> privateAt: aKey put: aValue [ + size = keys size ifTrue: [ self grow ]. + keys at: (size := size + 1) put: aKey. + ^ values at: size put: aValue +] + +{ #category : 'private' } +GRSmallDictionary >> removeIndex: index [ + | value | + value := values at: index. + index to: size - 1 do: + [ :i | + keys at: i put: (keys at: i + 1). + values at: i put: (values at: i + 1) ]. + keys at: size put: nil. + values at: size put: nil. + size := size - 1. + ^ value +] + +{ #category : 'accessing' } +GRSmallDictionary >> removeKey: aKey [ + "Remove aKey from the receiver, raise an exception if the element is missing." + + ^ self removeKey: aKey ifAbsent: [ self errorKeyNotFound ] +] + +{ #category : 'accessing' } +GRSmallDictionary >> removeKey: aKey ifAbsent: aBlock [ + "Remove aKey from the receiver, evaluate aBlock if the element is missing." + + | index | + index := self findIndexFor: aKey. + index = 0 ifTrue: [ ^ aBlock value ]. + ^ self removeIndex: index +] + +{ #category : 'accessing' } +GRSmallDictionary >> size [ + ^ size +] + +{ #category : 'sorting' } +GRSmallDictionary >> sorted [ + ^ self values sorted +] + +{ #category : 'sorting' } +GRSmallDictionary >> sorted: aTwoArgumentBlock [ + ^ self values sorted: aTwoArgumentBlock +] + +{ #category : 'enumerating' } +GRSmallDictionary >> values [ + ^ values copyFrom: 1 to: size +] diff --git a/repository/Grease-Core/GRSmallDictionary2.class.st b/repository/Grease-Core/GRSmallDictionary2.class.st new file mode 100644 index 00000000..32b1017b --- /dev/null +++ b/repository/Grease-Core/GRSmallDictionary2.class.st @@ -0,0 +1,307 @@ +" +I am an implementation of a dictionary. Compared to other dictionaries I am very efficient for small sizes, speed- and space-wise. I also mantain the order in which elements are added when iterating. My implementation features some ideas from the RefactoringBrowser and others from Eclipse Collections. +" +Class { + #name : 'GRSmallDictionary2', + #superclass : 'GRObject', + #instVars : [ + 'size', + 'table' + ], + #category : 'Grease-Core-Collections', + #package : 'Grease-Core', + #tag : 'Collections' +} + +{ #category : 'instance creation' } +GRSmallDictionary2 class >> new [ + ^ self new: 3 +] + +{ #category : 'instance creation' } +GRSmallDictionary2 class >> new: anInteger [ + ^ self basicNew initialize: anInteger; yourself +] + +{ #category : 'instance creation' } +GRSmallDictionary2 class >> withAll: aDictionary [ + ^ (self new: aDictionary size) + addAll: aDictionary; + yourself +] + +{ #category : 'adding' } +GRSmallDictionary2 >> add: anAssociation [ + self at: anAssociation key put: anAssociation value. + ^ anAssociation +] + +{ #category : 'adding' } +GRSmallDictionary2 >> addAll: aDictionary [ + aDictionary keysAndValuesDo: [ :key :value | self at: key put: value ]. + ^ aDictionary +] + +{ #category : 'accessing' } +GRSmallDictionary2 >> any [ + self isEmpty + ifTrue: [ ^ self errorEmptyCollection ]. + ^ table at: 2 +] + +{ #category : 'accessing' } +GRSmallDictionary2 >> associations [ + "Answer a Collection containing the receiver's associations." + + | result | + result := WriteStream on: (Array new: self size). + self associationsDo: [ :assoc | result nextPut: assoc ]. + ^ result contents +] + +{ #category : 'enumerating' } +GRSmallDictionary2 >> associationsDo: aBlock [ + self keysAndValuesDo: [ :key :value | aBlock value: key -> value ] +] + +{ #category : 'accessing' } +GRSmallDictionary2 >> at: aKey [ + "Answer the value associated with aKey. Raise an exception, if no such key is defined." + + ^ self at: aKey ifAbsent: [ self errorKeyNotFound ] +] + +{ #category : 'accessing' } +GRSmallDictionary2 >> at: aKey ifAbsent: aBlock [ + "Answer the value associated with aKey. Evaluate aBlock, if no such key is defined." + + | index | + index := self findIndexFor: aKey. + ^ index = 0 + ifFalse: [ table at: index + 1 ] + ifTrue: [ aBlock value ] +] + +{ #category : 'accessing' } +GRSmallDictionary2 >> at: aKey ifAbsentPut: aBlock [ + "Answer the value associated with aKey. Evaluate aBlock, if no such key is defined and store the return value." + + | index | + index := self findIndexFor: aKey. + ^ index = 0 + ifFalse: [ table at: index + 1 ] + ifTrue: [ self privateAt: aKey put: aBlock value ] +] + +{ #category : 'accessing' } +GRSmallDictionary2 >> at: aKey ifPresent: aBlock [ + "Lookup aKey in the receiver. If it is present, answer the value of evaluating the given block with the value associated with the key. Otherwise, answer nil." + + | index | + index := self findIndexFor: aKey. + ^ index = 0 ifFalse: [ aBlock value: (table at: index + 1) ] +] + +{ #category : 'accessing' } +GRSmallDictionary2 >> at: aKey put: aValue [ + "Set the value of aKey to be aValue." + + | index | + index := self findIndexFor: aKey. + ^ index = 0 + ifFalse: [ table at: index + 1 put: aValue ] + ifTrue: [ self privateAt: aKey put: aValue ] +] + +{ #category : 'enumerating' } +GRSmallDictionary2 >> do: aBlock [ + 2 to: size * 2 by: 2 do: [ :index | + aBlock value: (table at: index) ] +] + +{ #category : 'private' } +GRSmallDictionary2 >> errorEmptyCollection [ + self error: 'Empty' +] + +{ #category : 'private' } +GRSmallDictionary2 >> errorKeyNotFound [ + self error: 'Key not found' +] + +{ #category : 'private' } +GRSmallDictionary2 >> findIndexFor: aKey [ + 1 to: size * 2 - 1 by: 2 do: [ :index | + (table at: index) = aKey + ifTrue: [ ^ index ] ]. + ^ 0 +] + +{ #category : 'private' } +GRSmallDictionary2 >> grow [ + | newTable | + "#replaceFrom:to:with:startingAt: would be better but not portable" + newTable := Array new: 4 * size. + 1 to: size * 2 do: [ :index | + newTable at: index put: (table at: index) ]. + table := newTable +] + +{ #category : 'testing' } +GRSmallDictionary2 >> includesKey: aKey [ + "Answer whether the receiver has a key equal to aKey." + + ^ (self findIndexFor: aKey) ~= 0 +] + +{ #category : 'initialization' } +GRSmallDictionary2 >> initialize: anInteger [ + self initialize. + size := 0. + table := Array new: anInteger * 2 +] + +{ #category : 'testing' } +GRSmallDictionary2 >> isCollection [ + ^ true +] + +{ #category : 'testing' } +GRSmallDictionary2 >> isEmpty [ + ^ size = 0 +] + +{ #category : 'enumerating' } +GRSmallDictionary2 >> keys [ + | keys i | + size = 0 ifTrue: [ ^ #() ]. + i := 1. + keys := Array new: size. + 1 to: size * 2 - 1 by: 2 do: [ :index | + keys at: i put: (table at: index). + i := i + 1 ]. + ^ keys +] + +{ #category : 'enumerating' } +GRSmallDictionary2 >> keysAndValuesDo: aBlock [ + 1 to: size * 2 - 1 by: 2 do: [ :index | + aBlock + value: (table at: index) + value: (table at: index + 1) ] +] + +{ #category : 'enumerating' } +GRSmallDictionary2 >> keysDo: aBlock [ + 1 to: size * 2 - 1 by: 2 do: [ :index | + aBlock value: (table at: index) ] +] + +{ #category : 'enumerating' } +GRSmallDictionary2 >> noneSatisfy: aOneArgumentBlock [ + size = 0 ifTrue: [ ^ true ]. + 2 to: size * 2 by: 2 do: [ :index | + (aOneArgumentBlock value: (table at: index)) ifTrue: [ ^ false ] ]. + ^ true +] + +{ #category : 'testing' } +GRSmallDictionary2 >> notEmpty [ + ^ size ~= 0 +] + +{ #category : 'copying' } +GRSmallDictionary2 >> postCopy [ + super postCopy. + table := table copy +] + +{ #category : 'printing' } +GRSmallDictionary2 >> printOn: aStream [ + super printOn: aStream. + + aStream nextPut: $(. + self size <= 100 + ifTrue: [ + | first | + first := true. + self keysAndValuesDo: [ :key :value | + "keysAndValuesDo:separatedBy: would be nice" + first + ifTrue: [ first := false ] + ifFalse: [ aStream space ]. + aStream + print: key; + nextPutAll: '->'; + print: value ] ] + ifFalse: [ + aStream + nextPutAll: 'size '; + print: self size ]. + aStream nextPut: $) +] + +{ #category : 'private' } +GRSmallDictionary2 >> privateAt: aKey put: aValue [ + size * 2 = table size ifTrue: [ self grow ]. + table at: (size * 2 + 1) put: aKey. + table at: (size * 2 + 2) put: aValue. + size := size + 1. + ^ aValue +] + +{ #category : 'private' } +GRSmallDictionary2 >> removeIndex: index [ + | value | + value := table at: index + 1. + index to: size * 2 - 2 do: [ :i | + table at: i put: (table at: i + 2) ]. + table at: size * 2 - 1 put: nil. + table at: size * 2 put: nil. + size := size - 1. + ^ value +] + +{ #category : 'removing' } +GRSmallDictionary2 >> removeKey: aKey [ + "Remove aKey from the receiver, raise an exception if the element is missing." + + ^ self removeKey: aKey ifAbsent: [ self errorKeyNotFound ] +] + +{ #category : 'removing' } +GRSmallDictionary2 >> removeKey: aKey ifAbsent: aBlock [ + "Remove aKey from the receiver, evaluate aBlock if the element is missing." + + | index | + index := self findIndexFor: aKey. + index = 0 ifTrue: [ ^ aBlock value ]. + ^ self removeIndex: index +] + +{ #category : 'accessing' } +GRSmallDictionary2 >> size [ + ^ size +] + +{ #category : 'sorting' } +GRSmallDictionary2 >> sorted [ + ^ self values sorted +] + +{ #category : 'sorting' } +GRSmallDictionary2 >> sorted: aTwoArgumentBlock [ + ^ self values sorted: aTwoArgumentBlock +] + +{ #category : 'enumerating' } +GRSmallDictionary2 >> values [ + | values i | + size = 0 ifTrue: [ ^ #() ]. + i := 1. + values := Array new: size. + 2 to: size * 2 by: 2 do: [ :index | + values at: i put: (table at: index). + i := i + 1 ]. + ^ values +] diff --git a/repository/Grease-Core/GRSmallOrderedSet.class.st b/repository/Grease-Core/GRSmallOrderedSet.class.st new file mode 100644 index 00000000..74972d05 --- /dev/null +++ b/repository/Grease-Core/GRSmallOrderedSet.class.st @@ -0,0 +1,143 @@ +" +I am an implementation of a dictionary. Compared to other dictionaries I am very efficient for small sizes, speed- and space-wise. I also mantain the order in which elements are added when iterating. +" +Class { + #name : 'GRSmallOrderedSet', + #superclass : 'GRObject', + #instVars : [ + 'size', + 'table' + ], + #category : 'Grease-Core-Collections', + #package : 'Grease-Core', + #tag : 'Collections' +} + +{ #category : 'instance creation' } +GRSmallOrderedSet class >> new [ + ^ self new: 3 +] + +{ #category : 'instance creation' } +GRSmallOrderedSet class >> new: anInteger [ + ^ self basicNew initialize: anInteger; yourself +] + +{ #category : 'instance creation' } +GRSmallOrderedSet class >> withAll: aDictionary [ + ^ (self new: aDictionary size) + addAll: aDictionary; + yourself +] + +{ #category : 'adding' } +GRSmallOrderedSet >> add: newObject [ + (self findIndexFor: newObject) = 0 + ifTrue: [ self privateAdd: newObject ]. + ^ newObject +] + +{ #category : 'adding' } +GRSmallOrderedSet >> addAll: aCollection [ + aCollection do: [ :each | + self add: each ]. + ^ aCollection +] + +{ #category : 'enumerating' } +GRSmallOrderedSet >> do: aOneArgumentBlock [ + 1 to: size do: [ :i | + aOneArgumentBlock value: (table at: i) ] +] + +{ #category : 'enumerating' } +GRSmallOrderedSet >> do: aOneArgumentBlock separatedBy: aNiladicBlock [ + 1 to: size do: [ :i | + i > 1 ifTrue: [ aNiladicBlock value ]. + aOneArgumentBlock value: (table at: i) ] +] + +{ #category : 'private ' } +GRSmallOrderedSet >> errorNotFound [ + self error: 'Not found' +] + +{ #category : 'private ' } +GRSmallOrderedSet >> findIndexFor: aKey [ + 1 to: size do: [ :index | + (table at: index) = aKey + ifTrue: [ ^ index ] ]. + ^ 0 +] + +{ #category : 'private ' } +GRSmallOrderedSet >> grow [ + | newTable | + "#replaceFrom:to:with:startingAt: would be better but not portable" + newTable := Array new: 2 * size. + 1 to: size do: [ :index | + newTable at: index put: (table at: index) ]. + table := newTable +] + +{ #category : 'testing' } +GRSmallOrderedSet >> includes: anObject [ + ^ (self findIndexFor: anObject) ~= 0 +] + +{ #category : 'initialization' } +GRSmallOrderedSet >> initialize: anInteger [ + self initialize. + size := 0. + table := Array new: anInteger +] + +{ #category : 'testing' } +GRSmallOrderedSet >> isCollection [ + ^ true +] + +{ #category : 'testing' } +GRSmallOrderedSet >> isEmpty [ + ^ size = 0 +] + +{ #category : 'copying' } +GRSmallOrderedSet >> postCopy [ + super postCopy. + table := table copy +] + +{ #category : 'private ' } +GRSmallOrderedSet >> privateAdd: newObject [ + size = table size ifTrue: [ self grow ]. + table at: (size := size + 1) put: newObject +] + +{ #category : 'removing' } +GRSmallOrderedSet >> remove: anObject [ + ^ self remove: anObject ifAbsent: [ self errorNotFound ] +] + +{ #category : 'removing' } +GRSmallOrderedSet >> remove: anObject ifAbsent: aNiladicBlock [ + | index | + index := self findIndexFor: anObject. + index = 0 + ifTrue: [ ^ aNiladicBlock value ] + ifFalse: [ self removeIndex: index ]. + ^ anObject +] + +{ #category : 'private ' } +GRSmallOrderedSet >> removeIndex: index [ + table at: index put: nil. + index to: size - 1 do: [ :i | + table at: i put: (table at: i + 1) ]. + size := size - 1 +] + +{ #category : 'accessing' } +GRSmallOrderedSet >> size [ + ^ size +] diff --git a/repository/Grease-Core/GRStringPrinter.class.st b/repository/Grease-Core/GRStringPrinter.class.st new file mode 100644 index 00000000..85ded56a --- /dev/null +++ b/repository/Grease-Core/GRStringPrinter.class.st @@ -0,0 +1,104 @@ +Class { + #name : 'GRStringPrinter', + #superclass : 'GRPrinter', + #instVars : [ + 'trim', + 'length', + 'pad', + 'character' + ], + #category : 'Grease-Core-Text', + #package : 'Grease-Core', + #tag : 'Text' +} + +{ #category : 'accessing' } +GRStringPrinter >> character: aCharacter [ + "The character to pad the string with." + + character := aCharacter +] + +{ #category : 'initialization' } +GRStringPrinter >> initialize [ + super initialize. + self character: $ ; length: nil. + self trimNone; padNone +] + +{ #category : 'accessing' } +GRStringPrinter >> length: anInteger [ + "The maximal size of the string, or the size to pad to." + + length := anInteger +] + +{ #category : 'padding' } +GRStringPrinter >> padCenter [ + "Pad to the center." + + pad := #pad:center:to: +] + +{ #category : 'padding' } +GRStringPrinter >> padLeft [ + "Pad to the left." + + pad := #pad:left:to: +] + +{ #category : 'padding' } +GRStringPrinter >> padNone [ + "Do not pad the input." + + pad := nil +] + +{ #category : 'padding' } +GRStringPrinter >> padRight [ + "Pad to the right." + + pad := #pad:right:to: +] + +{ #category : 'printing' } +GRStringPrinter >> print: anObject on: aStream [ + | string | + string := anObject greaseString. + trim isNil + ifFalse: [ string := string perform: trim ]. + length isNil ifFalse: [ + length < string size + ifTrue: [ string := string copyFrom: 1 to: length ]. + (pad isNil or: [ character isNil ]) + ifFalse: [ string := self perform: pad with: string with: character with: length ] ]. + aStream nextPutAll: string +] + +{ #category : 'trimming' } +GRStringPrinter >> trimBoth [ + "Trim to the left and to the right." + + trim := #trimBoth +] + +{ #category : 'trimming' } +GRStringPrinter >> trimLeft [ + "Trim to the left and to the right." + + trim := #trimLeft +] + +{ #category : 'trimming' } +GRStringPrinter >> trimNone [ + "Do not trim the input." + + trim := nil +] + +{ #category : 'trimming' } +GRStringPrinter >> trimRight [ + "Trim to the left and to the right." + + trim := #trimRight +] diff --git a/repository/Grease-Core/GRUnboundMessage.class.st b/repository/Grease-Core/GRUnboundMessage.class.st new file mode 100644 index 00000000..2cfce551 --- /dev/null +++ b/repository/Grease-Core/GRUnboundMessage.class.st @@ -0,0 +1,20 @@ +" +A delayed send that has none of the arguments defined in advance. +" +Class { + #name : 'GRUnboundMessage', + #superclass : 'GRDelayedSendMessage', + #category : 'Grease-Core-Utilities', + #package : 'Grease-Core', + #tag : 'Utilities' +} + +{ #category : 'delegation' } +GRUnboundMessage >> argumentCount [ + ^ selector numArgs +] + +{ #category : 'private' } +GRUnboundMessage >> mergeArguments: anArray [ + ^ anArray +] diff --git a/repository/Grease-Core/GRUnitPrinter.class.st b/repository/Grease-Core/GRUnitPrinter.class.st new file mode 100644 index 00000000..a8164aea --- /dev/null +++ b/repository/Grease-Core/GRUnitPrinter.class.st @@ -0,0 +1,72 @@ +Class { + #name : 'GRUnitPrinter', + #superclass : 'GRPrinter', + #instVars : [ + 'integerPrinter', + 'fractionPrinter', + 'units', + 'base' + ], + #category : 'Grease-Core-Text', + #package : 'Grease-Core', + #tag : 'Text' +} + +{ #category : 'instance creation' } +GRUnitPrinter class >> base: anInteger units: anArray [ + ^ self new + base: anInteger; + units: anArray; + yourself +] + +{ #category : 'accessing' } +GRUnitPrinter >> base: anInteger [ + base := anInteger +] + +{ #category : 'accessing' } +GRUnitPrinter >> fractionPrinter: aPrinter [ + fractionPrinter := aPrinter +] + +{ #category : 'initialization' } +GRUnitPrinter >> initialize [ + super initialize. + self integerPrinter: (GRNumberPrinter new + precision: 0; + yourself). + self fractionPrinter: (GRNumberPrinter new + precision: 1; + yourself) +] + +{ #category : 'accessing' } +GRUnitPrinter >> integerPrinter: aPrinter [ + integerPrinter := aPrinter +] + +{ #category : 'printing' } +GRUnitPrinter >> print: anObject on: aStream [ + anObject = 1 + ifTrue: [ ^ self print: anObject unit: units first on: aStream ]. + units allButFirst + inject: anObject asFloat + into: [ :value :each | + value < base + ifFalse: [ value / base ] + ifTrue: [ ^ self print: value unit: each on: aStream ] ] +] + +{ #category : 'printing' } +GRUnitPrinter >> print: aNumber unit: aString on: aStream [ + (units first = aString or: [ units second = aString ]) + ifTrue: [ integerPrinter print: aNumber on: aStream ] + ifFalse: [ fractionPrinter print: aNumber on: aStream ]. + aStream nextPut: $ ; nextPutAll: aString +] + +{ #category : 'accessing' } +GRUnitPrinter >> units: anArray [ + units := anArray +] diff --git a/repository/Grease-Core/GRUnsupportedEncodingError.class.st b/repository/Grease-Core/GRUnsupportedEncodingError.class.st new file mode 100644 index 00000000..220744c9 --- /dev/null +++ b/repository/Grease-Core/GRUnsupportedEncodingError.class.st @@ -0,0 +1,7 @@ +Class { + #name : 'GRUnsupportedEncodingError', + #superclass : 'GRError', + #category : 'Grease-Core-Text', + #package : 'Grease-Core', + #tag : 'Text' +} diff --git a/repository/Grease-Core/GRVersion.class.st b/repository/Grease-Core/GRVersion.class.st new file mode 100644 index 00000000..286934ff --- /dev/null +++ b/repository/Grease-Core/GRVersion.class.st @@ -0,0 +1,207 @@ +" +I model version numbers. I am comparable and I define a natural order. +" +Class { + #name : 'GRVersion', + #superclass : 'GRObject', + #instVars : [ + 'major', + 'minor', + 'revision', + 'stageLabel', + 'stageNumber' + ], + #category : 'Grease-Core', + #package : 'Grease-Core' +} + +{ #category : 'instance creation' } +GRVersion class >> major: majorInteger [ + ^ self major: majorInteger minor: nil +] + +{ #category : 'instance creation' } +GRVersion class >> major: majorInteger minor: minorInteger [ + ^ self major: majorInteger minor: minorInteger revision: nil +] + +{ #category : 'instance creation' } +GRVersion class >> major: majorInteger minor: minorInteger revision: revisionInteger [ + ^ self basicNew + initializeWithMajor: majorInteger minor: minorInteger revision: revisionInteger; + yourself +] + +{ #category : 'instance creation' } +GRVersion class >> new [ + ^ self major: 1 +] + +{ #category : 'comparing' } +GRVersion >> < otherVersion [ + (major < otherVersion major) ifTrue: [ ^ true ]. + (otherVersion major < major) ifTrue: [ ^ false ]. + ((minor ifNil: [ 0 ]) < (otherVersion minor ifNil: [ 0 ])) ifTrue: [ ^ true ]. + ((otherVersion minor ifNil: [ 0 ]) < (minor ifNil: [ 0 ])) ifTrue: [ ^ false ]. + ((revision ifNil: [ 0 ]) < (otherVersion revision ifNil: [ 0 ])) ifTrue: [ ^ true ]. + ((otherVersion revision ifNil: [ 0 ]) < (revision ifNil: [ 0 ])) ifTrue: [ ^ false ]. + (stageLabel = otherVersion stage) ifTrue: [ + ^ ((stageNumber ifNil: [ 1 ]) < (otherVersion stageNumber ifNil: [ 1 ])) ]. + stageLabel isNil ifTrue: [ ^ false ]. + otherVersion stage isNil ifTrue: [ ^ true ]. + ^ stageLabel < otherVersion stage +] + +{ #category : 'comparing' } +GRVersion >> <= otherVersion [ + ^ (self > otherVersion) not +] + +{ #category : 'comparing' } +GRVersion >> = otherVersion [ + ^ (major = otherVersion major) and: [ + ((minor ifNil: [ 0 ]) = (otherVersion minor ifNil: [ 0 ])) and: [ + ((revision ifNil: [ 0 ] ) = (otherVersion revision ifNil: [ 0 ])) and: [ + (stageLabel = otherVersion stage) and: [ + (stageNumber ifNil: [ 1 ]) = (otherVersion stageNumber ifNil: [ 1 ]) ] ] ] ] +] + +{ #category : 'comparing' } +GRVersion >> > otherVersion [ + ^ otherVersion < self +] + +{ #category : 'comparing' } +GRVersion >> >= otherVersion [ + ^ (self < otherVersion) not +] + +{ #category : 'convenience' } +GRVersion >> beAlpha [ + self beAlpha: nil +] + +{ #category : 'convenience' } +GRVersion >> beAlpha: anInteger [ + self stage: #alpha number: anInteger +] + +{ #category : 'convenience' } +GRVersion >> beBeta [ + self beBeta: nil +] + +{ #category : 'convenience' } +GRVersion >> beBeta: anInteger [ + self stage: #beta number: anInteger +] + +{ #category : 'convenience' } +GRVersion >> beFinal [ + self stage: nil number: nil +] + +{ #category : 'convenience' } +GRVersion >> beReleaseCandidate [ + self beReleaseCandidate: nil +] + +{ #category : 'convenience' } +GRVersion >> beReleaseCandidate: anInteger [ + self stage: #rc number: anInteger +] + +{ #category : 'converting' } +GRVersion >> greaseString [ + ^ String streamContents: [ :stream | + stream nextPutAll: major greaseString. + stream nextPut: $.. + stream nextPutAll: (minor ifNil: [ 0 ]) greaseString. + revision isNil ifFalse: [ + stream nextPut: $.. + stream nextPutAll: revision greaseString ]. + stageLabel isNil ifFalse: [ + stream nextPutAll: stageLabel greaseString. + stageNumber isNil ifFalse: [ stream nextPutAll: stageNumber greaseString ] ] ] +] + +{ #category : 'comparing' } +GRVersion >> hash [ + ^ (major hash + bitXor: (minor ifNil: [ 0 ]) hash) + bitXor: (revision ifNil: [ 0 ]) hash +] + +{ #category : 'initialization' } +GRVersion >> initializeWithMajor: majorInteger minor: minorInteger revision: revisionInteger [ + self initialize. + major := majorInteger. + minor := minorInteger. + revision := revisionInteger +] + +{ #category : 'testing' } +GRVersion >> isAlpha [ + ^ stageLabel = #alpha +] + +{ #category : 'testing' } +GRVersion >> isBeta [ + ^ stageLabel = #beta +] + +{ #category : 'testing' } +GRVersion >> isFinal [ + ^ stageLabel isNil +] + +{ #category : 'testing' } +GRVersion >> isReleaseCandidate [ + ^ stageLabel = #rc +] + +{ #category : 'accessing' } +GRVersion >> major [ + ^ major +] + +{ #category : 'accessing' } +GRVersion >> major: anInteger [ + major := anInteger +] + +{ #category : 'accessing' } +GRVersion >> minor [ + ^ minor +] + +{ #category : 'accessing' } +GRVersion >> minor: anInteger [ + minor := anInteger +] + +{ #category : 'accessing' } +GRVersion >> revision [ + ^ revision +] + +{ #category : 'accessing' } +GRVersion >> revision: anInteger [ + revision := anInteger +] + +{ #category : 'accessing' } +GRVersion >> stage [ + ^ stageLabel +] + +{ #category : 'accessing' } +GRVersion >> stage: aSymbol number: anInteger [ + stageLabel := aSymbol. + stageNumber := anInteger +] + +{ #category : 'accessing' } +GRVersion >> stageNumber [ + ^ stageNumber +] diff --git a/repository/Grease-Core/Integer.extension.st b/repository/Grease-Core/Integer.extension.st new file mode 100644 index 00000000..4bb90f4a --- /dev/null +++ b/repository/Grease-Core/Integer.extension.st @@ -0,0 +1,33 @@ +Extension { #name : 'Integer' } + +{ #category : '*Grease-Core' } +Integer >> greaseAsByteArray [ + ^ GRPlatform current integerAsByteArray: self +] + +{ #category : '*Grease-Core' } +Integer >> greaseByteAt: index [ + ^ self subclassResponsibility +] + +{ #category : '*Grease-Core' } +Integer >> greaseBytesCount [ + ^ self subclassResponsibility +] + +{ #category : '*grease-core' } +Integer >> greaseInteger [ + ^ self +] + +{ #category : '*grease-core' } +Integer >> pluralize: aSingularString [ + ^ self + pluralize: aSingularString + with: (GRInflector pluralize: aSingularString) +] + +{ #category : '*grease-core' } +Integer >> pluralize: aSingularString with: aPluralString [ + ^ self printString , ' ' , (self abs = 1 ifTrue: [ aSingularString ] ifFalse: [ aPluralString ]) +] diff --git a/repository/Grease-Core/Number.extension.st b/repository/Grease-Core/Number.extension.st new file mode 100644 index 00000000..50fe6483 --- /dev/null +++ b/repository/Grease-Core/Number.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'Number' } + +{ #category : '*grease-core' } +Number >> greaseInteger [ + "Answer an integer of the receiver, in our case we simply truncate the number." + ^ self truncated +] diff --git a/repository/Grease-Core/Object.extension.st b/repository/Grease-Core/Object.extension.st new file mode 100644 index 00000000..c72941b8 --- /dev/null +++ b/repository/Grease-Core/Object.extension.st @@ -0,0 +1,8 @@ +Extension { #name : 'Object' } + +{ #category : '*grease-core' } +Object >> greaseDeprecatedApi: apiString details: detailsString [ + GRDeprecatedApiNotification new + details: detailsString; + signal: apiString +] diff --git a/repository/Grease-Core/String.extension.st b/repository/Grease-Core/String.extension.st new file mode 100644 index 00000000..d3b203e0 --- /dev/null +++ b/repository/Grease-Core/String.extension.st @@ -0,0 +1,90 @@ +Extension { #name : 'String' } + +{ #category : '*grease-core' } +String >> excerpt: aString [ + "Answer an excerpt of the receiver that matches the first occurence of aString. If aString isn't found, nil is answered." + + ^ self excerpt: aString radius: 100 +] + +{ #category : '*grease-core' } +String >> excerpt: aString radius: anInteger [ + "Answer an excerpt of the receiver that matches the first occurence of aString. The radius anInteger expands the excerpt on each side of the first occurrence by the number of characters defined in radius. If aString isn't found, nil is answered." + + ^ self excerpt: aString radius: anInteger ellipsis: '...' +] + +{ #category : '*grease-core' } +String >> excerpt: aString radius: anInteger ellipsis: anEllipsisString [ + "Answer an excerpt of the receiver that matches the first occurence of aString. The radius anInteger expands the excerpt on each side of the first occurrence by the number of characters defined in radius. If aString isn't found, nil is answered." + + | index start stop | + (index := self indexOfSubCollection: aString) = 0 + ifTrue: [ ^ nil ]. + start := index - anInteger max: 1. + stop := index + anInteger + aString size - 1 min: self size. + ^ (start > 1 ifTrue: [ anEllipsisString ] ifFalse: [ '' ]) , + (self copyFrom: start to: stop) , + (stop < self size ifTrue: [ anEllipsisString ] ifFalse: [ '' ]) +] + +{ #category : '*grease-core' } +String >> greaseInteger [ + "Convert the receiver to an integer, answer nil if this is not a number." + | number negated | + number := nil. + negated := false. + 1 to: self size do: [ : i | + | char | + char := self at: i. + (i = 1 and: [ char = $- ]) + ifTrue: [ negated := true ] + ifFalse: [ + (char >= $0 and: [ char <= $9 ]) + ifTrue: [ + number := (number isNil + ifTrue: [ 0 ] + ifFalse: [ 10 * number ]) + (char greaseInteger - $0 greaseInteger) ] + ifFalse: [ + ^ number isNil ifFalse: [ + negated not + ifFalse: [ number negated ] + ifTrue: [ number ] ] ] ] ]. + ^ number isNil ifFalse: [ + negated not + ifFalse: [ number negated ] + ifTrue: [ number ] ] +] + +{ #category : '*grease-core' } +String >> pluralize [ + ^ GRInflector pluralize: self +] + +{ #category : '*grease-core' } +String >> print: anObject on: aStream [ + aStream nextPutAll: self +] + +{ #category : '*grease-core' } +String >> truncate [ + "Truncate the receiver to 30 characters." + + ^ self truncate: 30 +] + +{ #category : '*grease-core' } +String >> truncate: anInteger [ + "Truncate the receiver to anInteger characters." + + ^ self truncate: anInteger ellipsis: '...' +] + +{ #category : '*grease-core' } +String >> truncate: anInteger ellipsis: aString [ + "Truncate the receiver to anInteger characters and append aString as ellipsis if necessary." + + ^ anInteger < self size + ifTrue: [ (self copyFrom: 1 to: anInteger) , aString ] + ifFalse: [ self copy ] +] diff --git a/repository/Grease-Core/UndefinedObject.extension.st b/repository/Grease-Core/UndefinedObject.extension.st new file mode 100644 index 00000000..501f6fa6 --- /dev/null +++ b/repository/Grease-Core/UndefinedObject.extension.st @@ -0,0 +1,5 @@ +Extension { #name : 'UndefinedObject' } + +{ #category : '*grease-core' } +UndefinedObject >> print: anObject on: aStream [ +] diff --git a/repository/Grease-Core/package.st b/repository/Grease-Core/package.st new file mode 100644 index 00000000..0272c848 --- /dev/null +++ b/repository/Grease-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Core' } diff --git a/repository/Grease-GemStone-Core.package/.filetree b/repository/Grease-GemStone-Core.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-GemStone-Core.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-GemStone-Core.package/Array.extension/instance/beMutable.st b/repository/Grease-GemStone-Core.package/Array.extension/instance/beMutable.st deleted file mode 100644 index 4411d57f..00000000 --- a/repository/Grease-GemStone-Core.package/Array.extension/instance/beMutable.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-gemstone-core -beMutable - "for VW compatibility, a hack that allows to cache a value in a literal array" - - ^self copy. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Array.extension/properties.json b/repository/Grease-GemStone-Core.package/Array.extension/properties.json deleted file mode 100644 index 1070c08e..00000000 --- a/repository/Grease-GemStone-Core.package/Array.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Array" } diff --git a/repository/Grease-GemStone-Core.package/Behavior.extension/instance/fullName.st b/repository/Grease-GemStone-Core.package/Behavior.extension/instance/fullName.st deleted file mode 100644 index 6dd07b7a..00000000 --- a/repository/Grease-GemStone-Core.package/Behavior.extension/instance/fullName.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -fullName - "In VW, will include the namespace" - ^self name \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Behavior.extension/instance/removeSelectorSilently..st b/repository/Grease-GemStone-Core.package/Behavior.extension/instance/removeSelectorSilently..st deleted file mode 100644 index 4e562c2e..00000000 --- a/repository/Grease-GemStone-Core.package/Behavior.extension/instance/removeSelectorSilently..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -removeSelectorSilently: aString - - self removeSelector: aString. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Behavior.extension/properties.json b/repository/Grease-GemStone-Core.package/Behavior.extension/properties.json deleted file mode 100644 index 37061187..00000000 --- a/repository/Grease-GemStone-Core.package/Behavior.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Behavior" } diff --git a/repository/Grease-GemStone-Core.package/BinaryFloat.extension/instance/greaseString.st b/repository/Grease-GemStone-Core.package/BinaryFloat.extension/instance/greaseString.st deleted file mode 100644 index bd984edb..00000000 --- a/repository/Grease-GemStone-Core.package/BinaryFloat.extension/instance/greaseString.st +++ /dev/null @@ -1,7 +0,0 @@ -*grease-gemstone-core -greaseString - - | strm | - strm := WriteStream on: String new. - self printOn: strm base: 10. - ^strm contents \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/BinaryFloat.extension/properties.json b/repository/Grease-GemStone-Core.package/BinaryFloat.extension/properties.json deleted file mode 100644 index b3b882e7..00000000 --- a/repository/Grease-GemStone-Core.package/BinaryFloat.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "BinaryFloat" } diff --git a/repository/Grease-GemStone-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-GemStone-Core.package/ByteArray.extension/instance/greaseString.st deleted file mode 100644 index 795f36b0..00000000 --- a/repository/Grease-GemStone-Core.package/ByteArray.extension/instance/greaseString.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -greaseString - - ^self printString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/ByteArray.extension/properties.json b/repository/Grease-GemStone-Core.package/ByteArray.extension/properties.json deleted file mode 100644 index 191a2eca..00000000 --- a/repository/Grease-GemStone-Core.package/ByteArray.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "ByteArray" } diff --git a/repository/Grease-GemStone-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-GemStone-Core.package/Character.extension/instance/greaseInteger.st deleted file mode 100644 index d7d8fcdd..00000000 --- a/repository/Grease-GemStone-Core.package/Character.extension/instance/greaseInteger.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -greaseInteger - - ^self codePoint. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Character.extension/properties.json b/repository/Grease-GemStone-Core.package/Character.extension/properties.json deleted file mode 100644 index 7532e33e..00000000 --- a/repository/Grease-GemStone-Core.package/Character.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Character" } diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/excerpt..st b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/excerpt..st deleted file mode 100644 index 7d54b085..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/excerpt..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-gemstone-core -excerpt: aString - "Answer an excerpt of the receiver that matches the first occurence of aString. If aString isn't found, nil is answered." - - ^ self excerpt: aString radius: 100 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/excerpt.radius..st b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/excerpt.radius..st deleted file mode 100644 index 32fc0f44..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/excerpt.radius..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-gemstone-core -excerpt: aString radius: anInteger - "Answer an excerpt of the receiver that matches the first occurence of aString. The radius anInteger expands the excerpt on each side of the first occurrence by the number of characters defined in radius. If aString isn't found, nil is answered." - - ^ self excerpt: aString radius: anInteger ellipsis: '...' \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/excerpt.radius.ellipsis..st b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/excerpt.radius.ellipsis..st deleted file mode 100644 index e27f5f57..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/excerpt.radius.ellipsis..st +++ /dev/null @@ -1,12 +0,0 @@ -*grease-gemstone-core -excerpt: aString radius: anInteger ellipsis: anEllipsisString - "Answer an excerpt of the receiver that matches the first occurence of aString. The radius anInteger expands the excerpt on each side of the first occurrence by the number of characters defined in radius. If aString isn't found, nil is answered." - - | index start stop | - (index := self indexOfSubCollection: aString) = 0 - ifTrue: [ ^ nil ]. - start := index - anInteger max: 1. - stop := index + anInteger + aString size - 1 min: self size. - ^ (start > 1 ifTrue: [ anEllipsisString ] ifFalse: [ '' ]) , - (self copyFrom: start to: stop) , - (stop < self size ifTrue: [ anEllipsisString ] ifFalse: [ '' ]) \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/greaseInteger.st b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/greaseInteger.st deleted file mode 100644 index fb09c306..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/greaseInteger.st +++ /dev/null @@ -1,14 +0,0 @@ -*grease-gemstone-core -greaseInteger - "Convert the receiver to an integer, answer nil if this is not a number." - | number stream negated char | - number := nil. - stream := self readStream. - negated := stream peek = $-. - negated ifTrue: [ stream next ]. - [ stream atEnd not and: [ (char := stream next) isDigit ] ] whileTrue: [ - number := (number isNil ifTrue: [ 0 ]ifFalse: [ 10 * number ]) - + (char greaseInteger - $0 greaseInteger) ]. - ^ (number isNil or: [ negated not ]) - ifFalse: [ number negated ] - ifTrue: [ number ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/pluralize.st b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/pluralize.st deleted file mode 100644 index 52657bd8..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/pluralize.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-gemstone-core -pluralize - ^ GRInflector pluralize: self \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/print.on..st b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/print.on..st deleted file mode 100644 index 0a674017..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/print.on..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-gemstone-core -print: anObject on: aStream - aStream nextPutAll: self \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/substrings..st b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/substrings..st deleted file mode 100644 index 6cb283aa..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/substrings..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -substrings: aCharacter - "Pharo 6+ compatibility" - ^ self subStrings: aCharacter \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimBoth..st b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimBoth..st deleted file mode 100644 index aa2d4092..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimBoth..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-gemstone-core -trimBoth: aBlock - "Trim characters satisfying the condition given in aBlock from both sides of the receiving string." - - ^ self trimLeft: aBlock right: aBlock \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimBoth.st b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimBoth.st deleted file mode 100644 index c156822e..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimBoth.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-gemstone-core -trimBoth - "Trim separators from both sides of the receiving string." - - ^ self trimBoth: [ :char | char isSeparator ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimLeft..st b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimLeft..st deleted file mode 100644 index 05eebe2c..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimLeft..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-gemstone-core -trimLeft: aBlock - "Trim characters satisfying the condition given in aBlock from the left side of the receiving string." - - ^ self trimLeft: aBlock right: [ :char | false ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimLeft.right..st b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimLeft.right..st deleted file mode 100644 index 5cf1760f..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimLeft.right..st +++ /dev/null @@ -1,12 +0,0 @@ -*grease-gemstone-core -trimLeft: aLeftBlock right: aRightBlock - "Trim characters satisfying the condition given in aLeftBlock from the left side and aRightBlock from the right sides of the receiving string." - - | left right | - left := 1. - right := self size. - [ left <= right and: [ aLeftBlock value: (self at: left) ] ] - whileTrue: [ left := left + 1 ]. - [ left <= right and: [ aRightBlock value: (self at: right) ] ] - whileTrue: [ right := right - 1 ]. - ^ self copyFrom: left to: right \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimLeft.st b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimLeft.st deleted file mode 100644 index 6a728ff3..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimLeft.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-gemstone-core -trimLeft - "Trim separators from the left side of the receiving string." - - ^ self trimLeft: [ :char | char isSeparator ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimRight..st b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimRight..st deleted file mode 100644 index f66da908..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimRight..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-gemstone-core -trimRight: aBlock - "Trim characters satisfying the condition given in aBlock from the right side of the receiving string." - - ^ self trimLeft: [ :char | false ] right: aBlock \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimRight.st b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimRight.st deleted file mode 100644 index 8a0bc69e..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/trimRight.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-gemstone-core -trimRight - "Trim separators from the right side of the receiving string." - - ^ self trimRight: [ :char | char isSeparator ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/truncate..st b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/truncate..st deleted file mode 100644 index c391be6e..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/truncate..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-gemstone-core -truncate: anInteger - "Truncate the receiver to anInteger characters." - - ^ self truncate: anInteger ellipsis: '...' \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/truncate.ellipsis..st b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/truncate.ellipsis..st deleted file mode 100644 index 445d86ee..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/truncate.ellipsis..st +++ /dev/null @@ -1,7 +0,0 @@ -*grease-gemstone-core -truncate: anInteger ellipsis: aString - "Truncate the receiver to anInteger characters and append aString as ellipsis if necessary." - - ^ anInteger < self size - ifTrue: [ (self copyFrom: 1 to: anInteger) , aString ] - ifFalse: [ self copy ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/truncate.st b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/truncate.st deleted file mode 100644 index 1f018992..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/instance/truncate.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-gemstone-core -truncate - "Truncate the receiver to 30 characters." - - ^ self truncate: 30 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/properties.json b/repository/Grease-GemStone-Core.package/CharacterCollection.extension/properties.json deleted file mode 100644 index c85a513c..00000000 --- a/repository/Grease-GemStone-Core.package/CharacterCollection.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "CharacterCollection" } diff --git a/repository/Grease-GemStone-Core.package/Collection.extension/instance/any.st b/repository/Grease-GemStone-Core.package/Collection.extension/instance/any.st deleted file mode 100644 index 54d2c70d..00000000 --- a/repository/Grease-GemStone-Core.package/Collection.extension/instance/any.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -any - - ^self anyOne \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Collection.extension/instance/sorted..st b/repository/Grease-GemStone-Core.package/Collection.extension/instance/sorted..st deleted file mode 100644 index 2d456035..00000000 --- a/repository/Grease-GemStone-Core.package/Collection.extension/instance/sorted..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -sorted: sortBlock - - ^ self sortBy: sortBlock \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Collection.extension/instance/sorted.st b/repository/Grease-GemStone-Core.package/Collection.extension/instance/sorted.st deleted file mode 100644 index 3819211b..00000000 --- a/repository/Grease-GemStone-Core.package/Collection.extension/instance/sorted.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -sorted - - ^ self sorted: [ :a :b | a <= b ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Collection.extension/properties.json b/repository/Grease-GemStone-Core.package/Collection.extension/properties.json deleted file mode 100644 index 93b0dc32..00000000 --- a/repository/Grease-GemStone-Core.package/Collection.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Collection" } diff --git a/repository/Grease-GemStone-Core.package/Date.extension/class/daysInMonthNumber.forYear..st b/repository/Grease-GemStone-Core.package/Date.extension/class/daysInMonthNumber.forYear..st deleted file mode 100644 index fe312541..00000000 --- a/repository/Grease-GemStone-Core.package/Date.extension/class/daysInMonthNumber.forYear..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -daysInMonthNumber: monthNumber forYear: yearInteger - - ^(Date newDay: 1 monthNumber: monthNumber year: yearInteger) daysInMonth \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Date.extension/properties.json b/repository/Grease-GemStone-Core.package/Date.extension/properties.json deleted file mode 100644 index 190900cf..00000000 --- a/repository/Grease-GemStone-Core.package/Date.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Date" } diff --git a/repository/Grease-GemStone-Core.package/Dictionary.extension/instance/copyFrom..st b/repository/Grease-GemStone-Core.package/Dictionary.extension/instance/copyFrom..st deleted file mode 100644 index 45fa38fd..00000000 --- a/repository/Grease-GemStone-Core.package/Dictionary.extension/instance/copyFrom..st +++ /dev/null @@ -1,10 +0,0 @@ -*grease-gemstone-core -copyFrom: anObject - - (anObject isKindOf: Dictionary) ifFalse: [ - ^super copyFrom: anObject. - ]. - self keysDo: [:each | self removeKey: each]. - anObject keysAndValuesDo: [:key :value | - self at: key put: value. - ]. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Dictionary.extension/properties.json b/repository/Grease-GemStone-Core.package/Dictionary.extension/properties.json deleted file mode 100644 index cb1bf501..00000000 --- a/repository/Grease-GemStone-Core.package/Dictionary.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Dictionary" } diff --git a/repository/Grease-GemStone-Core.package/DoubleByteString.extension/instance/greaseString.st b/repository/Grease-GemStone-Core.package/DoubleByteString.extension/instance/greaseString.st deleted file mode 100644 index 7cb32af0..00000000 --- a/repository/Grease-GemStone-Core.package/DoubleByteString.extension/instance/greaseString.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -greaseString - - ^self asDoubleByteString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/DoubleByteString.extension/properties.json b/repository/Grease-GemStone-Core.package/DoubleByteString.extension/properties.json deleted file mode 100644 index dbbfbb35..00000000 --- a/repository/Grease-GemStone-Core.package/DoubleByteString.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "DoubleByteString" } diff --git a/repository/Grease-GemStone-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-GemStone-Core.package/Duration.extension/class/milliseconds..st deleted file mode 100644 index 69eed56d..00000000 --- a/repository/Grease-GemStone-Core.package/Duration.extension/class/milliseconds..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -milliseconds: millis - - ^self milliSeconds: millis \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-GemStone-Core.package/Duration.extension/instance/asMilliseconds.st deleted file mode 100644 index 95e6b8f2..00000000 --- a/repository/Grease-GemStone-Core.package/Duration.extension/instance/asMilliseconds.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -asMilliseconds - - ^ self asMilliSeconds \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-GemStone-Core.package/Duration.extension/instance/milliseconds.st deleted file mode 100644 index 8e2fff21..00000000 --- a/repository/Grease-GemStone-Core.package/Duration.extension/instance/milliseconds.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -milliseconds - - ^seconds abs \\ 1 * 1000 * seconds sign. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Duration.extension/properties.json b/repository/Grease-GemStone-Core.package/Duration.extension/properties.json deleted file mode 100644 index 512e0f01..00000000 --- a/repository/Grease-GemStone-Core.package/Duration.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Duration" } diff --git a/repository/Grease-GemStone-Core.package/Exception.extension/class/raiseSignal..st b/repository/Grease-GemStone-Core.package/Exception.extension/class/raiseSignal..st deleted file mode 100644 index b60f9dac..00000000 --- a/repository/Grease-GemStone-Core.package/Exception.extension/class/raiseSignal..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-gemstone-core -raiseSignal: aString - ^ self signal: aString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Exception.extension/class/raiseSignal.st b/repository/Grease-GemStone-Core.package/Exception.extension/class/raiseSignal.st deleted file mode 100644 index db133f06..00000000 --- a/repository/Grease-GemStone-Core.package/Exception.extension/class/raiseSignal.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-gemstone-core -raiseSignal - ^ self signal \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Exception.extension/instance/raiseSignal..st b/repository/Grease-GemStone-Core.package/Exception.extension/instance/raiseSignal..st deleted file mode 100644 index b60f9dac..00000000 --- a/repository/Grease-GemStone-Core.package/Exception.extension/instance/raiseSignal..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-gemstone-core -raiseSignal: aString - ^ self signal: aString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Exception.extension/instance/raiseSignal.st b/repository/Grease-GemStone-Core.package/Exception.extension/instance/raiseSignal.st deleted file mode 100644 index db133f06..00000000 --- a/repository/Grease-GemStone-Core.package/Exception.extension/instance/raiseSignal.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-gemstone-core -raiseSignal - ^ self signal \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Exception.extension/properties.json b/repository/Grease-GemStone-Core.package/Exception.extension/properties.json deleted file mode 100644 index 6dcfd842..00000000 --- a/repository/Grease-GemStone-Core.package/Exception.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Exception" } diff --git a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/README.md b/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/default.st b/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/default.st deleted file mode 100644 index 5ccee6ab..00000000 --- a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/default.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -default - ^ self defaultValue \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/defaultValue.st b/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/defaultValue.st deleted file mode 100644 index e9ed3f67..00000000 --- a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/defaultValue.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultValue - ^ nil \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/use.during..st b/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/use.during..st deleted file mode 100644 index a71460c8..00000000 --- a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/use.during..st +++ /dev/null @@ -1,18 +0,0 @@ -accessing -use: anObject during: aBlock - | p hasOldValue oldValue result | - "Implementation cannot send a supercall to value:during: because: - - this method needs to return the value - - the defaultValue may not be invoked here to support throwing errors as defaultValue - - nil may not remain installed as the default value once the block has finished running" - p := Processor activeProcess. - hasOldValue := p environment includesKey: self. - oldValue := p environmentAt: self. - [ - p environmentAt: self put: anObject. - result := aBlock value ] - ensure: [ - hasOldValue - ifFalse: [ p environment removeKey: self ] - ifTrue: [ p environmentAt: self put: oldValue ] ]. - ^ result \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/value.st b/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/value.st deleted file mode 100644 index 7ae39aa8..00000000 --- a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/value.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -value - "Override required for compatibility in GS2.4 where environmentAt:ifAbsent: is flawed because it can still return nil when absent instead of executing the ifAbsent block" - - ^ Processor activeProcess environment at: self ifAbsent: [ self defaultValue ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/properties.json deleted file mode 100644 index 88532212..00000000 --- a/repository/Grease-GemStone-Core.package/GRDynamicVariable.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-GemStone-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRDynamicVariable", - "pools" : [ - ], - "super" : "DynamicVariable", - "type" : "normal" } diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/README.md b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/class/initialize.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/class/initialize.st deleted file mode 100644 index 01d1e430..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -initialize - self select. - self current transactionMutex "http://code.google.com:9393/p/glassdb/issues/detail?id=290 transactionMutex is always nil" \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/class/unload.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/class/unload.st deleted file mode 100644 index 4c8dd650..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/class/unload.st +++ /dev/null @@ -1,3 +0,0 @@ -class initialization -unload - self unselect \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/addToShutDownList..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/addToShutDownList..st deleted file mode 100644 index 8f3842ab..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/addToShutDownList..st +++ /dev/null @@ -1,3 +0,0 @@ -startup -addToShutDownList: anObject - "We'll ignore this functionality in GemStone for now" \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/addToStartUpList..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/addToStartUpList..st deleted file mode 100644 index 856b6947..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/addToStartUpList..st +++ /dev/null @@ -1,3 +0,0 @@ -startup -addToStartUpList: anObject - "We'll ignore this functionality in GemStone for now" \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/asMethodReturningByteArray.named..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/asMethodReturningByteArray.named..st deleted file mode 100644 index d679ba57..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/asMethodReturningByteArray.named..st +++ /dev/null @@ -1,13 +0,0 @@ -private-file-library -asMethodReturningByteArray: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array." - - ^ String streamContents: [ :stream | - stream nextPutAll: aSymbol , ' - - ^#('. - aByteArrayOrString asByteArray - do: [ :each | each printOn: stream ] - separatedBy: [ stream space ]. - stream nextPutAll: ') asByteArray.'; cr. - ]. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/asMethodReturningString.named..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/asMethodReturningString.named..st deleted file mode 100644 index ab724839..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/asMethodReturningString.named..st +++ /dev/null @@ -1,11 +0,0 @@ -private-file-library -asMethodReturningString: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a string." - ^String streamContents: [ :stream | - stream nextPutAll: aSymbol; nextPut: Character cr. - stream tab; nextPutAll: '^ '''. - aByteArrayOrString greaseString do: - [ :each | - each = $' ifTrue: [ stream nextPut: $' ]. - stream nextPut: each ]. - stream nextPutAll: '''' ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/base64Decode..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/base64Decode..st deleted file mode 100644 index 382a7f83..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/base64Decode..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -base64Decode: aString - ^ (Base64MimeConverter mimeDecodeToChars: aString readStream) contents \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/base64Encode..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/base64Encode..st deleted file mode 100644 index 407deefc..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/base64Encode..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -base64Encode: aByteArray - ^ (Base64MimeConverter mimeEncode: aByteArray readStream) contents \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/compile.into.classified..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/compile.into.classified..st deleted file mode 100644 index a9fa42e2..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/compile.into.classified..st +++ /dev/null @@ -1,10 +0,0 @@ -file-library -compile: aString into: aClass classified: aSymbol - - | result | - result := aClass - compileMethod: aString - dictionaries: System myUserProfile symbolList - category: aSymbol. - result isNil ifTrue: [^self]. - self error: 'not yet implemented!'. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/contentsOfFile.binary..st deleted file mode 100644 index 35fa6b90..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/contentsOfFile.binary..st +++ /dev/null @@ -1,3 +0,0 @@ -files -contentsOfFile: aString binary: aBoolean - ^ self fileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/defaultDispatcherName.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/defaultDispatcherName.st deleted file mode 100644 index 32a3cea2..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/defaultDispatcherName.st +++ /dev/null @@ -1,3 +0,0 @@ -dispatchers -defaultDispatcherName - ^'seaside' \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/deleteFile..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/deleteFile..st deleted file mode 100644 index 5959876d..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/deleteFile..st +++ /dev/null @@ -1,4 +0,0 @@ -files -deleteFile: aPathString - - GsFile removeServerFile: aPathString diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/deprecationExceptionSet.st deleted file mode 100644 index e71004fa..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/deprecationExceptionSet.st +++ /dev/null @@ -1,3 +0,0 @@ -exceptions -deprecationExceptionSet - ^ ExceptionSet new \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/directoriesIn..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/directoriesIn..st deleted file mode 100644 index fbbef96a..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/directoriesIn..st +++ /dev/null @@ -1,9 +0,0 @@ -files -directoriesIn: aPathString - "Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString - must not include directory names that start with ." - | directory | - directory := ServerFileDirectory on: aPathString. - ^(directory directoryNames - reject: [ :each | each first = $. ]) - collect: [ :each | directory fullNameFor: each ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doAbortTransaction.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doAbortTransaction.st deleted file mode 100644 index 60a00ce4..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doAbortTransaction.st +++ /dev/null @@ -1,4 +0,0 @@ -transactions -doAbortTransaction - - SystemAbortTransaction signal. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doBeginTransaction.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doBeginTransaction.st deleted file mode 100644 index b90f8f75..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doBeginTransaction.st +++ /dev/null @@ -1,4 +0,0 @@ -transactions -doBeginTransaction - - SystemBeginTransaction signal. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doCommitTransaction.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doCommitTransaction.st deleted file mode 100644 index b66a9073..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doCommitTransaction.st +++ /dev/null @@ -1,5 +0,0 @@ -transactions -doCommitTransaction - - System inTransaction ifTrue: [^SystemCommitTransaction signal]. - ^true \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doTransaction..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doTransaction..st deleted file mode 100644 index bef36fcb..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doTransaction..st +++ /dev/null @@ -1,26 +0,0 @@ -*grease-gemstone-core -doTransaction: aBlock - "Evaluate aBlock in a transaction. - Return true if the transaction succeeds and false if the transaction fails. - Nested calls are allowed and will always return true. - See System class>>transactionConflicts for dealing with failed transactions." - - "Ensure that each block evaluation is mutually exclusive: https://code.google.com/p/glassdb/issues/detail?id=355" - - self transactionMutex - critical: [ - | commitResult | - "Get the transactionMutex, and perform the transaction." - System inTransaction - ifTrue: [ - "We already are in a transaction, so just evaluate the block" - aBlock value. - ^ true ] - ifFalse: [ - [ - self doBeginTransaction. - aBlock value ] - ensure: [ - "workaround for Bug 42963: ensure: block executed twice (don't return from ensure: block)" - commitResult := self doCommitTransaction ] ]. - ^ commitResult ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/ensureExistenceOfFolder..st deleted file mode 100644 index bece8020..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/ensureExistenceOfFolder..st +++ /dev/null @@ -1,4 +0,0 @@ -files -ensureExistenceOfFolder: aString - "creates a folder named aString in the default server directory" - ServerFileDirectory default assureExistenceOfPath: aString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st deleted file mode 100644 index 2c0ce1a0..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st +++ /dev/null @@ -1,3 +0,0 @@ -files -fileExists: aString - ^ GsFile existsOnServer: aString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/filesIn..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/filesIn..st deleted file mode 100644 index c7e49a15..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/filesIn..st +++ /dev/null @@ -1,9 +0,0 @@ -files -filesIn: aPathString - "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString - must not include file names that start with ." - | directory | - directory := ServerFileDirectory on: aPathString. - ^(directory fileNames - reject: [ :each | each first = $. ]) - collect: [ :each | directory fullNameFor: each ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/isProcessTerminated..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/isProcessTerminated..st deleted file mode 100644 index 1875cb46..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/isProcessTerminated..st +++ /dev/null @@ -1,4 +0,0 @@ -processes -isProcessTerminated: aGsProcess - - ^aGsProcess _isTerminated. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/label.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/label.st deleted file mode 100644 index 0439c017..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/label.st +++ /dev/null @@ -1,4 +0,0 @@ -version info -label - - ^'GemStone' \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/localNameOf..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/localNameOf..st deleted file mode 100644 index 8881eb79..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/localNameOf..st +++ /dev/null @@ -1,3 +0,0 @@ -files -localNameOf: aFilename - ^(ServerFileDirectory on: aFilename) localName \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/logError.title..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/logError.title..st deleted file mode 100644 index 40e08de9..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/logError.title..st +++ /dev/null @@ -1,4 +0,0 @@ -services -logError: aDescription title: aString - - self logError: aDescription title: aString shouldCommit: false \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/logError.title.shouldCommit..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/logError.title.shouldCommit..st deleted file mode 100644 index 88fd1729..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/logError.title.shouldCommit..st +++ /dev/null @@ -1,15 +0,0 @@ -services -logError: aDescription title: aString shouldCommit: shouldCommit - - | stdout stack logStream | - stack := GsProcess stackReportToLevel: 300. - self saveLogEntry: (ObjectLogEntry error: aString object: { aDescription. stack. }) shouldCommit: shouldCommit. - stdout := GsFile stdoutServer. - stdout nextPutAll: '----------- ', aString, ' ERROR Encountered: ', DateAndTime now printString. - stdout cr. - stdout nextPutAll: aDescription. - stdout cr. - stdout nextPutAll: stack. - stdout nextPutAll: '-----------'. - stdout cr. - stdout close. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newRandom.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newRandom.st deleted file mode 100644 index 74ae595e..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newRandom.st +++ /dev/null @@ -1,11 +0,0 @@ -factory -newRandom - "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: - #nextInt: - should answer a random integer in the interval [1, anInteger] - #randomFrom: - should answer a random element from the given collection - - Make sure that both methods are safe under heavy concurrent load. - - Used by Gemstone/S traditional Randoms which cannot be persisted." - - ^ GRGemStoneRandomProvider \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFile.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFile.st deleted file mode 100644 index c452c26b..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFile.st +++ /dev/null @@ -1,4 +0,0 @@ -files -newTemporaryFile - - ^ self newTemporaryFileNamed: UUID new greaseString diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFileNamed..st deleted file mode 100644 index 6f8c5c0a..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFileNamed..st +++ /dev/null @@ -1,7 +0,0 @@ -files -newTemporaryFileNamed: aName - - | fileName | - fileName := GRPlatform current pathSeparator,'tmp', GRPlatform current pathSeparator, aName. - (self fileExists: fileName) ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ]. - ^ (GsFile openWriteOnServer: fileName) pathName diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newline.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newline.st deleted file mode 100644 index c35f7054..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newline.st +++ /dev/null @@ -1,4 +0,0 @@ -file-library -newline - - ^String lf \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/openDebuggerOn..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/openDebuggerOn..st deleted file mode 100644 index b4a1bf4a..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/openDebuggerOn..st +++ /dev/null @@ -1,4 +0,0 @@ -exceptions -openDebuggerOn: anError - - ^self generateHardBreak. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/pathSeparator.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/pathSeparator.st deleted file mode 100644 index 734b957c..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/pathSeparator.st +++ /dev/null @@ -1,3 +0,0 @@ -files -pathSeparator - ^ FileDirectory pathNameDelimiter asString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readFileStreamOn.do.binary..st deleted file mode 100644 index 09467ea7..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readFileStreamOn.do.binary..st +++ /dev/null @@ -1,13 +0,0 @@ -files -readFileStreamOn: aString do: aBlock binary: aBoolean - | stream dir file | - [ - file := GsFile openReadOnServer: aString. - [ - stream := RWBinaryOrTextStream on: file contents. - aBoolean - ifTrue: [ stream binary ] - ifFalse: [ stream ascii ]. - ^ aBlock value: stream ] - ensure: [ stream close ] ] - ensure: [ file close ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readWriteByteStream.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readWriteByteStream.st deleted file mode 100644 index 72f67326..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readWriteByteStream.st +++ /dev/null @@ -1,3 +0,0 @@ -factory -readWriteByteStream - ^ AnsiReadWriteStream on: ByteArray new. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readWriteCharacterStream.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readWriteCharacterStream.st deleted file mode 100644 index 98aceb93..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readWriteCharacterStream.st +++ /dev/null @@ -1,3 +0,0 @@ -factory -readWriteCharacterStream - ^ AnsiReadWriteStream on: String new. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/reducedConflictDictionary.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/reducedConflictDictionary.st deleted file mode 100644 index 4af03e2b..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/reducedConflictDictionary.st +++ /dev/null @@ -1,4 +0,0 @@ -factory -reducedConflictDictionary - "used by Gemstone/S reduced conflict classes that can be used to avoid transaction conflicts" - ^RcKeyValueDictionary \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/removeFromShutDownList..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/removeFromShutDownList..st deleted file mode 100644 index 69d94759..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/removeFromShutDownList..st +++ /dev/null @@ -1,3 +0,0 @@ -startup -removeFromShutDownList: anObject - "We'll ignore this functionality in GemStone for now" \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/removeFromStartUpList..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/removeFromStartUpList..st deleted file mode 100644 index 91cae80b..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/removeFromStartUpList..st +++ /dev/null @@ -1,3 +0,0 @@ -startup -removeFromStartUpList: anObject - "We'll ignore this functionality in GemStone for now" \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/removeSelector.from..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/removeSelector.from..st deleted file mode 100644 index 1d159a57..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/removeSelector.from..st +++ /dev/null @@ -1,3 +0,0 @@ -file-library -removeSelector: aSymbol from: aClass - aClass removeSelectorSilently: aSymbol \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/saveLogEntry.shouldCommit..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/saveLogEntry.shouldCommit..st deleted file mode 100644 index 8bee27e6..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/saveLogEntry.shouldCommit..st +++ /dev/null @@ -1,13 +0,0 @@ -services -saveLogEntry: anObjectLogEntry shouldCommit: shouldCommit - "Does an abort and commit, if not already in transaction" - - | stdout | - stdout := GsFile stdoutServer. - stdout nextPutAll: '----------- ', anObjectLogEntry labelString, ' LOG ENTRY: ', anObjectLogEntry objectString. - stdout nextPutAll: '-----------'. - stdout cr. - stdout close. - shouldCommit - ifTrue: [ self doTransaction: [ anObjectLogEntry addToLog ]] - ifFalse: [ anObjectLogEntry addToLog ]. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/secureHashFor..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/secureHashFor..st deleted file mode 100644 index d187df5e..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/secureHashFor..st +++ /dev/null @@ -1,4 +0,0 @@ -cryptography -secureHashFor: aString - - ^ SecureHashAlgorithm new hashMessage: aString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/semaphoreClass.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/semaphoreClass.st deleted file mode 100644 index 7f81d239..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/semaphoreClass.st +++ /dev/null @@ -1,4 +0,0 @@ -factory -semaphoreClass - "used by Gemstone/S traditional Semaphores which cannot be persisted" - ^TransientSemaphore \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sizeOfFile..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sizeOfFile..st deleted file mode 100644 index 713229bd..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sizeOfFile..st +++ /dev/null @@ -1,4 +0,0 @@ -files -sizeOfFile: aPathString - - ^ GsFile sizeOfOnServer: aPathString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/smtpServer.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/smtpServer.st deleted file mode 100644 index 87f8bf70..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/smtpServer.st +++ /dev/null @@ -1,4 +0,0 @@ -private-email -smtpServer - self error: 'not yet implemented!'. - "^ MailSender smtpServer" \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sourceCodeStringOf..st deleted file mode 100644 index d34a7e25..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sourceCodeStringOf..st +++ /dev/null @@ -1,5 +0,0 @@ -meta-object-protocol -sourceCodeStringOf: aCompiledMethod - "Return a String with the source code for a compiled method." - - ^ self convertToSmalltalkNewlines: aCompiledMethod _sourceString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/stackDepth.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/stackDepth.st deleted file mode 100644 index 74457ba9..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/stackDepth.st +++ /dev/null @@ -1,8 +0,0 @@ -exceptions -stackDepth - - | i | - i := 1. - [(GsProcess _frameContentsAt: i) notNil] - whileTrue: [i := i + 1]. - ^i - 1. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/terminateProcess..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/terminateProcess..st deleted file mode 100644 index 166c72d3..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/terminateProcess..st +++ /dev/null @@ -1,4 +0,0 @@ -processes -terminateProcess: aGsProcess - - aGsProcess terminate. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st deleted file mode 100644 index 50e2a5b0..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-gemstone-core -thisContext - ^ GsContext fromLevel: 3 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/transactionMutex.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/transactionMutex.st deleted file mode 100644 index 2b82a133..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/transactionMutex.st +++ /dev/null @@ -1,7 +0,0 @@ -transactions -transactionMutex - "Use the TransientRecursionLock, so that nested calls within same process - won't cause deadlock." - - TransactionMutex ifNil: [ TransactionMutex := TransientRecursionLock new ]. - ^TransactionMutex \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/weakDictionaryOfSize..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/weakDictionaryOfSize..st deleted file mode 100644 index cf07722f..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/weakDictionaryOfSize..st +++ /dev/null @@ -1,3 +0,0 @@ -factory -weakDictionaryOfSize: aNumber - ^IdentityDictionary new: aNumber \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/write.toFile.inFolder..st deleted file mode 100644 index 55a23848..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/write.toFile.inFolder..st +++ /dev/null @@ -1,13 +0,0 @@ -files -write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString - "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" - - | folder fullFilePath | - fullFilePath := ServerFileDirectory default fullNameFor: aFolderString. - folder := ServerFileDirectory on: fullFilePath. - (folder fileExists: aFileNameString) - ifTrue: [ folder deleteFileNamed: aFileNameString ]. - ^ self - writeFileStreamOn: (folder / aFileNameString) fullName - do: [ :stream | stream nextPutAll: aStringOrByteArray ] - binary: aStringOrByteArray isString not \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeCharacterStreamOn..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeCharacterStreamOn..st deleted file mode 100644 index a5991f20..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeCharacterStreamOn..st +++ /dev/null @@ -1,5 +0,0 @@ -transactions -writeCharacterStreamOn: aString - "String based write stream" - - ^ AnsiWriteStream on: aString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st deleted file mode 100644 index 99bfc2e1..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st +++ /dev/null @@ -1,9 +0,0 @@ -files -writeFileStreamOn: fileName do: aBlock binary: isBinary - | stream | - stream := BinaryOrTextFile open: fileName mode: 'w+b' onClient: false. - stream := isBinary - ifTrue: [ stream binary ] - ifFalse: [ stream ascii ]. - [ aBlock value: stream ] - ensure: [ stream close ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/properties.json b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/properties.json deleted file mode 100644 index ebec947d..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-GemStone-Core", - "classinstvars" : [ - ], - "classvars" : [ - "TransactionMutex" ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRGemStonePlatform", - "pools" : [ - ], - "super" : "GRPlatform", - "type" : "normal" } diff --git a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/README.md b/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/generator.st b/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/generator.st deleted file mode 100644 index bb8cea12..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/generator.st +++ /dev/null @@ -1,9 +0,0 @@ -accessing -generator - - ^SessionTemps current - at: #GRGemStoneRandomProvider_GENERATOR - ifAbsent: [ - SessionTemps current - at: #GRGemStoneRandomProvider_GENERATOR - put: self randomClass new ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/initialize.st b/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/initialize.st deleted file mode 100644 index 4523607a..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -class initialization -initialize - "self initialize" - - SystemLoginNotification subscribe: self name. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/mutex.st b/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/mutex.st deleted file mode 100644 index c789dbd4..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/mutex.st +++ /dev/null @@ -1,9 +0,0 @@ -accessing -mutex - - ^SessionTemps current - at: #GRGemStoneRandomProvider_MUTEX - ifAbsent: [ - SessionTemps current - at: #GRGemStoneRandomProvider_MUTEX - put: TransientSemaphore forMutualExclusion ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/nextInt..st b/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/nextInt..st deleted file mode 100644 index e197a68c..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/nextInt..st +++ /dev/null @@ -1,5 +0,0 @@ -public -nextInt: anInteger - "Answer a random integer in the interval [1, anInteger]" - ^self mutex critical: [ - self generator nextInt: anInteger ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/randomClass.st b/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/randomClass.st deleted file mode 100644 index 5e766e61..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/randomClass.st +++ /dev/null @@ -1,14 +0,0 @@ -private -randomClass - "Answers the random number generator to be used to create session and continuation keys. - It will not be seeded, just #new will be sent. So wrap it if you need seeding. - - Used by Gemstone/S traditional Randoms which cannot be persisted. - Used by GemStone to use a secure random when avaiable." - - ^Smalltalk - at: #TransientRandom - ifAbsent: [ - Smalltalk - at: #HostRandom - ifAbsent: [ Random ]] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/randomFrom..st b/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/randomFrom..st deleted file mode 100644 index 259ec1e3..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/randomFrom..st +++ /dev/null @@ -1,11 +0,0 @@ -public -randomFrom: aCollection - |random count| - random := self nextInt: aCollection size. - ^ aCollection isSequenceable - ifTrue: [ aCollection at: random ] - ifFalse: [ - count := 1. - aCollection do: [ :ea | - count = random ifTrue: [ ^ ea ]. - count := count + 1 ] ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/sessionStart.st b/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/sessionStart.st deleted file mode 100644 index fbfe253f..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/class/sessionStart.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -sessionStart - - self generator open \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/properties.json b/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/properties.json deleted file mode 100644 index 7ca29622..00000000 --- a/repository/Grease-GemStone-Core.package/GRGemStoneRandomProvider.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-GemStone-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRGemStoneRandomProvider", - "pools" : [ - ], - "super" : "GRObject", - "type" : "normal" } diff --git a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/README.md b/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/class/basicForEncoding..st b/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/class/basicForEncoding..st deleted file mode 100644 index 0c2db642..00000000 --- a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/class/basicForEncoding..st +++ /dev/null @@ -1,8 +0,0 @@ -instance-creation -basicForEncoding: aString - - (self supportsEncoding: aString) - ifFalse: [ ^ self unsupportedEncoding: aString ]. - ^(self new) - name: aString; - yourself \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/class/codecs.st b/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/class/codecs.st deleted file mode 100644 index 444b99e4..00000000 --- a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/class/codecs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecs - ^ Array with: self new \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/class/supportsEncoding..st b/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/class/supportsEncoding..st deleted file mode 100644 index b2870f5f..00000000 --- a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/class/supportsEncoding..st +++ /dev/null @@ -1,5 +0,0 @@ -testing -supportsEncoding: aString - "Answer whether the the given encoding name is supported." - - ^ #('iso-8859-1' 'ISO-8859-1' 'latin-1' 'latin1') includes: aString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/decode..st b/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/decode..st deleted file mode 100644 index 63e3370c..00000000 --- a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/decode..st +++ /dev/null @@ -1,3 +0,0 @@ -decoding -decode: aByteString - ^aByteString asString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/encode..st b/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/encode..st deleted file mode 100644 index cb0c0de4..00000000 --- a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/encode..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -encode: aByteString - ^aByteString asString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/encodeUrl..st b/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/encodeUrl..st deleted file mode 100644 index e184922c..00000000 --- a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/encodeUrl..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -encodeUrl: aString - ^aString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/encoderFor..st b/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/encoderFor..st deleted file mode 100644 index 7f9fe258..00000000 --- a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/encoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -encoderFor: aWriteStream - - ^ GRTextOrBinaryCodecStream on: aWriteStream \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/name..st b/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/name..st deleted file mode 100644 index 44185269..00000000 --- a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/name..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name: aString - - name := aString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/name.st b/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/name.st deleted file mode 100644 index 22077c20..00000000 --- a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ name \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/url.st b/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/url.st deleted file mode 100644 index dfd5ec8c..00000000 --- a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/instance/url.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -url - - ^self \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/properties.json b/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/properties.json deleted file mode 100644 index c1c4ae66..00000000 --- a/repository/Grease-GemStone-Core.package/GRLatin1GemStoneCodec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-GemStone-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "name" ], - "name" : "GRLatin1GemStoneCodec", - "pools" : [ - ], - "super" : "GRCodec", - "type" : "normal" } diff --git a/repository/Grease-GemStone-Core.package/GRPackage.extension/class/greaseGemStoneCore.st b/repository/Grease-GemStone-Core.package/GRPackage.extension/class/greaseGemStoneCore.st deleted file mode 100644 index 702d8e2b..00000000 --- a/repository/Grease-GemStone-Core.package/GRPackage.extension/class/greaseGemStoneCore.st +++ /dev/null @@ -1,8 +0,0 @@ -*grease-gemstone-core -greaseGemStoneCore - - ^ self new - name: 'Grease-GemStone-Core'; - addDependency: 'Grease-Core'; - url: #gemstoneUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRPackage.extension/instance/gemstoneUrl.st b/repository/Grease-GemStone-Core.package/GRPackage.extension/instance/gemstoneUrl.st deleted file mode 100644 index 7b60b3b3..00000000 --- a/repository/Grease-GemStone-Core.package/GRPackage.extension/instance/gemstoneUrl.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-gemstone-core -gemstoneUrl - ^ 'http://seaside.gemstone.com/ss/Seaside30' \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRPackage.extension/properties.json b/repository/Grease-GemStone-Core.package/GRPackage.extension/properties.json deleted file mode 100644 index dd2faaf0..00000000 --- a/repository/Grease-GemStone-Core.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPackage" } diff --git a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/README.md b/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/binary.st b/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/binary.st deleted file mode 100644 index 12d934de..00000000 --- a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/binary.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -binary - "switches the receiver into binary mode in which no encoding appends and arguments are expected to be binary (bytes or byte arrays)." - binary := true \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/contents.st b/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/contents.st deleted file mode 100644 index eb7fbc4f..00000000 --- a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/contents.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -contents - ^ stream contents \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/flush.st b/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/flush.st deleted file mode 100644 index 44c28b11..00000000 --- a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/flush.st +++ /dev/null @@ -1,3 +0,0 @@ -actions -flush - stream flush \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/initializeOn..st b/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/initializeOn..st deleted file mode 100644 index f50a4a72..00000000 --- a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/initializeOn..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeOn: aStream - super initializeOn: aStream. - binary := false \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/next..st b/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/next..st deleted file mode 100644 index 7a663544..00000000 --- a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/next..st +++ /dev/null @@ -1,8 +0,0 @@ -streaming -next: anInteger - | writeStream | - writeStream := WriteStream on: String new. - anInteger timesRepeat: [ - stream atEnd ifTrue: [ ^ writeStream contents ]. - writeStream nextPut: stream next asCharacter ]. - ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/next.st b/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/next.st deleted file mode 100644 index 4363f086..00000000 --- a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - ^ (self next: 1) first \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/nextPut..st b/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/nextPut..st deleted file mode 100644 index 8d31b3ab..00000000 --- a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPut: aCharacter - self nextPutAll: (String with: aCharacter) \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/nextPutAll..st b/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/nextPutAll..st deleted file mode 100644 index b1cc28d6..00000000 --- a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -nextPutAll: aString - binary - ifTrue: [ stream nextPutAll: aString asString ] - ifFalse: [ stream nextPutAll: aString ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/size.st b/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/size.st deleted file mode 100644 index d63392c3..00000000 --- a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/size.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -size - ^ stream size \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/text.st b/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/text.st deleted file mode 100644 index 0d3e75cc..00000000 --- a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/instance/text.st +++ /dev/null @@ -1,4 +0,0 @@ -actions -text - "switches the receiver into text mode in which encoding appends and arguments are expected to be text (characters or strings)." - binary := false \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/properties.json b/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/properties.json deleted file mode 100644 index a95317dc..00000000 --- a/repository/Grease-GemStone-Core.package/GRTextOrBinaryCodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-GemStone-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "binary" ], - "name" : "GRTextOrBinaryCodecStream", - "pools" : [ - ], - "super" : "GRCodecStream", - "type" : "normal" } diff --git a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/README.md b/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/class/basicForEncoding..st b/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/class/basicForEncoding..st deleted file mode 100644 index b6b470e1..00000000 --- a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/class/basicForEncoding..st +++ /dev/null @@ -1,6 +0,0 @@ -instance-creation -basicForEncoding: aString - - (self supportsEncoding: aString) - ifFalse: [ ^ self unsupportedEncoding: aString ]. - ^self new \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/class/codecs.st b/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/class/codecs.st deleted file mode 100644 index 444b99e4..00000000 --- a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/class/codecs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecs - ^ Array with: self new \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/class/supportsEncoding..st b/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/class/supportsEncoding..st deleted file mode 100644 index 0ec502b5..00000000 --- a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/class/supportsEncoding..st +++ /dev/null @@ -1,5 +0,0 @@ -testing -supportsEncoding: aString - "Answer whether the the given encoding name is supported." - - ^ #( 'utf-8' 'UTF-8' 'utf8' 'UTF8' ) includes: aString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/decode..st b/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/decode..st deleted file mode 100644 index f92bb20b..00000000 --- a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/decode..st +++ /dev/null @@ -1,4 +0,0 @@ -decoding -decode: aByteString - - ^implementation decode: aByteString asString. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/decoderFor..st b/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/decoderFor..st deleted file mode 100644 index 14f4a78f..00000000 --- a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/decoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -decoderFor: aWriteStream - - ^ GRUtf8CodecStream on: aWriteStream \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/encode..st b/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/encode..st deleted file mode 100644 index 915035f1..00000000 --- a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/encode..st +++ /dev/null @@ -1,4 +0,0 @@ -encoding -encode: aByteString - - ^(implementation encode: aByteString) asString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/encodeUrl..st b/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/encodeUrl..st deleted file mode 100644 index 7b2a6b8b..00000000 --- a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/encodeUrl..st +++ /dev/null @@ -1,4 +0,0 @@ -encoding -encodeUrl: aByteString - - ^(implementation encode: aByteString) asString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/encoderFor..st b/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/encoderFor..st deleted file mode 100644 index 85ac3846..00000000 --- a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/encoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -encoderFor: aWriteStream - - ^ GRUtf8CodecStream on: aWriteStream \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/initialize.st b/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/initialize.st deleted file mode 100644 index e8024e77..00000000 --- a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialize -initialize - - super initialize. - implementation := UTF8Encoding newEncoder. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/name.st b/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/name.st deleted file mode 100644 index 7886c830..00000000 --- a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'utf-8' \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/url.st b/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/url.st deleted file mode 100644 index 7bd5af10..00000000 --- a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/instance/url.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -url - - ^self \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/properties.json b/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/properties.json deleted file mode 100644 index a7e25b64..00000000 --- a/repository/Grease-GemStone-Core.package/GRUtf8GemStoneCodec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-GemStone-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "implementation" ], - "name" : "GRUtf8GemStoneCodec", - "pools" : [ - ], - "super" : "GRCodec", - "type" : "normal" } diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/README.md b/repository/Grease-GemStone-Core.package/GsContext.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/class/fromContinuation.atLevel..st b/repository/Grease-GemStone-Core.package/GsContext.class/class/fromContinuation.atLevel..st deleted file mode 100644 index 70e39e02..00000000 --- a/repository/Grease-GemStone-Core.package/GsContext.class/class/fromContinuation.atLevel..st +++ /dev/null @@ -1,4 +0,0 @@ -instance creation -fromContinuation: aContinuation atLevel: anInteger - -^self new continuation: aContinuation level: anInteger \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/class/fromLevel..st b/repository/Grease-GemStone-Core.package/GsContext.class/class/fromLevel..st deleted file mode 100644 index 3fef611a..00000000 --- a/repository/Grease-GemStone-Core.package/GsContext.class/class/fromLevel..st +++ /dev/null @@ -1,4 +0,0 @@ -instance creation -fromLevel: anInteger - -^self new continuation: (GsProcess continuationFromLevel: anInteger) level: 1 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/^equals.st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/^equals.st deleted file mode 100644 index de425186..00000000 --- a/repository/Grease-GemStone-Core.package/GsContext.class/instance/^equals.st +++ /dev/null @@ -1,4 +0,0 @@ -comparing -= anObject - ^ anObject class == self class - and: [ anObject receiver == receiver and: [ anObject method == method ] ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/asString.st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/asString.st deleted file mode 100644 index 11e17a03..00000000 --- a/repository/Grease-GemStone-Core.package/GsContext.class/instance/asString.st +++ /dev/null @@ -1,4 +0,0 @@ -formatting -asString - - ^self fullPrintString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/continuation.level..st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/continuation.level..st deleted file mode 100644 index 6ebf24ef..00000000 --- a/repository/Grease-GemStone-Core.package/GsContext.class/instance/continuation.level..st +++ /dev/null @@ -1,8 +0,0 @@ -initialization -continuation: aContinuation level: anInteger - continuation := aContinuation. - level := anInteger. "these instance variables are populated for the WAWalkback use" - method := (continuation _frameContentsAt: level) at: 1. - source := method sourceString. - receiver := (continuation _frameContentsAt: level) at: 10. - mySelf := (continuation _frameContentsAt: level) at: 8 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/fullPrintString.st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/fullPrintString.st deleted file mode 100644 index 5334e0fd..00000000 --- a/repository/Grease-GemStone-Core.package/GsContext.class/instance/fullPrintString.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -fullPrintString - - -^continuation _reportAt: level \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/greaseString.st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/greaseString.st deleted file mode 100644 index 4dffa6d2..00000000 --- a/repository/Grease-GemStone-Core.package/GsContext.class/instance/greaseString.st +++ /dev/null @@ -1,4 +0,0 @@ -formatting -greaseString - - ^self fullPrintString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/method.st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/method.st deleted file mode 100644 index 6e6e89e5..00000000 --- a/repository/Grease-GemStone-Core.package/GsContext.class/instance/method.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -method - -^method \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/namedTempAt..st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/namedTempAt..st deleted file mode 100644 index 4ca86721..00000000 --- a/repository/Grease-GemStone-Core.package/GsContext.class/instance/namedTempAt..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -namedTempAt: index - ^ self tempAt: index \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/receiver.st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/receiver.st deleted file mode 100644 index 06791e73..00000000 --- a/repository/Grease-GemStone-Core.package/GsContext.class/instance/receiver.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -receiver - -^receiver \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/sender.st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/sender.st deleted file mode 100644 index 08e61146..00000000 --- a/repository/Grease-GemStone-Core.package/GsContext.class/instance/sender.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -sender - -continuation stackDepth == level ifTrue: [^nil]. -^self class fromContinuation: continuation atLevel: level + 1 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempAt..st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempAt..st deleted file mode 100644 index a95857ca..00000000 --- a/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempAt..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -tempAt: index - | ar | - ar := continuation _frameContentsAt: level. - ar size < (10 + index) - ifTrue: [ ^ nil ]. - ^ ar at: 10 + index \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNamed..st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNamed..st deleted file mode 100644 index 18d3673a..00000000 --- a/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNamed..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -tempNamed: aString - | index | - index := self tempNames indexOf: aString asSymbol. - index = 0 - ifTrue: [ Error raiseSignal: 'No such temp: ' , aString ]. - ^ self tempAt: index \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNames.st b/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNames.st deleted file mode 100644 index b7b144b7..00000000 --- a/repository/Grease-GemStone-Core.package/GsContext.class/instance/tempNames.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -tempNames - ^ (continuation _frameContentsAt: level) at: 9 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GsContext.class/properties.json b/repository/Grease-GemStone-Core.package/GsContext.class/properties.json deleted file mode 100644 index ee7ef3ef..00000000 --- a/repository/Grease-GemStone-Core.package/GsContext.class/properties.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "category" : "Grease-GemStone-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "continuation", - "level", - "method", - "source", - "mySelf", - "receiver" ], - "name" : "GsContext", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/repository/Grease-GemStone-Core.package/Interval.extension/instance/any.st b/repository/Grease-GemStone-Core.package/Interval.extension/instance/any.st deleted file mode 100644 index d5e14a8d..00000000 --- a/repository/Grease-GemStone-Core.package/Interval.extension/instance/any.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -any - - ^self at: 1 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Interval.extension/properties.json b/repository/Grease-GemStone-Core.package/Interval.extension/properties.json deleted file mode 100644 index d468cd35..00000000 --- a/repository/Grease-GemStone-Core.package/Interval.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Interval" } diff --git a/repository/Grease-GemStone-Core.package/LargeInteger.extension/instance/greaseByteAt..st b/repository/Grease-GemStone-Core.package/LargeInteger.extension/instance/greaseByteAt..st deleted file mode 100644 index 315c86a0..00000000 --- a/repository/Grease-GemStone-Core.package/LargeInteger.extension/instance/greaseByteAt..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -greaseByteAt: index - - ^ self digitAt: index \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/LargeInteger.extension/instance/greaseBytesCount.st b/repository/Grease-GemStone-Core.package/LargeInteger.extension/instance/greaseBytesCount.st deleted file mode 100644 index 1a552749..00000000 --- a/repository/Grease-GemStone-Core.package/LargeInteger.extension/instance/greaseBytesCount.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -greaseBytesCount - - ^ self digitLength \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/LargeInteger.extension/properties.json b/repository/Grease-GemStone-Core.package/LargeInteger.extension/properties.json deleted file mode 100644 index 187ee5a7..00000000 --- a/repository/Grease-GemStone-Core.package/LargeInteger.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "LargeInteger" } diff --git a/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/argumentCount.st b/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/argumentCount.st deleted file mode 100644 index 97c44db3..00000000 --- a/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/argumentCount.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -argumentCount - - ^selector argumentCount - arguments size. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/evaluateWithArguments..st b/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/evaluateWithArguments..st deleted file mode 100644 index 60a62a17..00000000 --- a/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/evaluateWithArguments..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-gemstone-core -evaluateWithArguments: anArray - ^ self valueWithArguments: anArray \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/value..st b/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/value..st deleted file mode 100644 index 57adaa59..00000000 --- a/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/value..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -value: anArg - - ^self valueWithArguments: (Array with: anArg). \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/value.value..st b/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/value.value..st deleted file mode 100644 index 0abb43d9..00000000 --- a/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/value.value..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -value: arg1 value: arg2 - - ^self valueWithArguments: (Array with: arg1 with: arg2). \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/valueWithPossibleArgument..st b/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/valueWithPossibleArgument..st deleted file mode 100644 index 06523643..00000000 --- a/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/valueWithPossibleArgument..st +++ /dev/null @@ -1,13 +0,0 @@ -*grease-gemstone-core -valueWithPossibleArgument: anArg - - "Evaluate the block represented by the receiver. - If the block requires one argument, use anArg, if it requires more than one, - fill up the rest with nils." - - ^self numArgs = 0 - ifTrue: [ self value ] - ifFalse: [ - receiver - perform: selector - withArguments: ((self arguments, (Array with: anArg)) first: self numArgs) ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st b/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index e5821f11..00000000 --- a/repository/Grease-GemStone-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,14 +0,0 @@ -*grease-gemstone-core -valueWithPossibleArguments: anArray - - "Evaluate the block represented by the receiver. - If the block requires one argument, use anArg, if it requires more than one, - fill up the rest with nils." - - | count | - ^(count := selector argumentCount) = 0 - ifTrue: [ self value ] - ifFalse: [ - receiver - perform: selector - withArguments: ((self arguments, anArray) first: count) ] \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/MessageSend.extension/properties.json b/repository/Grease-GemStone-Core.package/MessageSend.extension/properties.json deleted file mode 100644 index 66fcc3c1..00000000 --- a/repository/Grease-GemStone-Core.package/MessageSend.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "MessageSend" } diff --git a/repository/Grease-GemStone-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-GemStone-Core.package/Number.extension/instance/milliseconds.st deleted file mode 100644 index ed4acf56..00000000 --- a/repository/Grease-GemStone-Core.package/Number.extension/instance/milliseconds.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -milliseconds - - ^self milliSeconds \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Number.extension/properties.json b/repository/Grease-GemStone-Core.package/Number.extension/properties.json deleted file mode 100644 index 1d2c94d4..00000000 --- a/repository/Grease-GemStone-Core.package/Number.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Number" } diff --git a/repository/Grease-GemStone-Core.package/Object.extension/instance/displayString.st b/repository/Grease-GemStone-Core.package/Object.extension/instance/displayString.st deleted file mode 100644 index 997ccc41..00000000 --- a/repository/Grease-GemStone-Core.package/Object.extension/instance/displayString.st +++ /dev/null @@ -1,6 +0,0 @@ -*grease-gemstone-core -displayString - self - greaseDeprecatedApi: 'Object>>#displayString' - details: 'Use #seasideString.'. - ^ self asString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-GemStone-Core.package/Object.extension/instance/greaseString.st deleted file mode 100644 index d66d9c7a..00000000 --- a/repository/Grease-GemStone-Core.package/Object.extension/instance/greaseString.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-gemstone-core -greaseString - ^ self asString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Object.extension/instance/isMessageSend.st b/repository/Grease-GemStone-Core.package/Object.extension/instance/isMessageSend.st deleted file mode 100644 index 90a8096d..00000000 --- a/repository/Grease-GemStone-Core.package/Object.extension/instance/isMessageSend.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -isMessageSend - - ^false. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Object.extension/properties.json b/repository/Grease-GemStone-Core.package/Object.extension/properties.json deleted file mode 100644 index 3d3b9ec4..00000000 --- a/repository/Grease-GemStone-Core.package/Object.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Object" } diff --git a/repository/Grease-GemStone-Core.package/PackageInfo.extension/instance/versionString.st b/repository/Grease-GemStone-Core.package/PackageInfo.extension/instance/versionString.st deleted file mode 100644 index b86bb86e..00000000 --- a/repository/Grease-GemStone-Core.package/PackageInfo.extension/instance/versionString.st +++ /dev/null @@ -1,7 +0,0 @@ -*grease-gemstone-core -versionString - | ancestor ancestors | - ancestors := (MCPackage named: self name) workingCopy ancestry ancestors. - ancestors isEmpty ifTrue: [ ^'unknown' ]. - ancestor := ancestors first. - ^ancestor name , '.mcz ' , ancestor date printString, ' ', ancestor time printString \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/PackageInfo.extension/properties.json b/repository/Grease-GemStone-Core.package/PackageInfo.extension/properties.json deleted file mode 100644 index 7da79deb..00000000 --- a/repository/Grease-GemStone-Core.package/PackageInfo.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "PackageInfo" } diff --git a/repository/Grease-GemStone-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-GemStone-Core.package/PositionableStream.extension/instance/greaseUpToAll..st deleted file mode 100644 index 2320566b..00000000 --- a/repository/Grease-GemStone-Core.package/PositionableStream.extension/instance/greaseUpToAll..st +++ /dev/null @@ -1,9 +0,0 @@ -*grease-gemstone-core -greaseUpToAll: aCollection - "Needed for Seaside ports to other dialects where #upToAll: may have - different semantics" - - | result | - result := self upToAll: aCollection. - self atEnd not ifTrue: [self skip: aCollection size]. - ^result. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/PositionableStream.extension/properties.json b/repository/Grease-GemStone-Core.package/PositionableStream.extension/properties.json deleted file mode 100644 index 9e1697a6..00000000 --- a/repository/Grease-GemStone-Core.package/PositionableStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "PositionableStream" } diff --git a/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st deleted file mode 100644 index 84b0b475..00000000 --- a/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st +++ /dev/null @@ -1,6 +0,0 @@ -*grease-gemstone-core -beginsWithSubCollection: aSequenceableCollection - "Some platforms implement #beginsWith: to answer true for an empty argument." - - aSequenceableCollection isEmpty ifTrue: [ ^false ]. - ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st deleted file mode 100644 index ce84e80d..00000000 --- a/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-gemstone-core -endsWithSubCollection: aSequenceableCollection - "Some platforms implement #endsWith: to answer true for an empty argument." - - ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st b/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st deleted file mode 100644 index d9528b3d..00000000 --- a/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-gemstone-core -greaseBeginsWith: aSequenceableCollection - - aSequenceableCollection isEmpty ifTrue: [ ^ true ]. - ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st b/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st deleted file mode 100644 index 242c2dd4..00000000 --- a/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-gemstone-core -greaseEndsWith: aSequenceableCollection - - aSequenceableCollection isEmpty ifTrue: [ ^ true ]. - ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/properties.json deleted file mode 100644 index 3b2523c3..00000000 --- a/repository/Grease-GemStone-Core.package/SequenceableCollection.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SequenceableCollection" } diff --git a/repository/Grease-GemStone-Core.package/SmallInteger.extension/instance/greaseByteAt..st b/repository/Grease-GemStone-Core.package/SmallInteger.extension/instance/greaseByteAt..st deleted file mode 100644 index 315c86a0..00000000 --- a/repository/Grease-GemStone-Core.package/SmallInteger.extension/instance/greaseByteAt..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -greaseByteAt: index - - ^ self digitAt: index \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SmallInteger.extension/instance/greaseBytesCount.st b/repository/Grease-GemStone-Core.package/SmallInteger.extension/instance/greaseBytesCount.st deleted file mode 100644 index 1a552749..00000000 --- a/repository/Grease-GemStone-Core.package/SmallInteger.extension/instance/greaseBytesCount.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -greaseBytesCount - - ^ self digitLength \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SmallInteger.extension/properties.json b/repository/Grease-GemStone-Core.package/SmallInteger.extension/properties.json deleted file mode 100644 index d2d9ab4a..00000000 --- a/repository/Grease-GemStone-Core.package/SmallInteger.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SmallInteger" } diff --git a/repository/Grease-GemStone-Core.package/String.extension/class/fromString..st b/repository/Grease-GemStone-Core.package/String.extension/class/fromString..st deleted file mode 100644 index 8dc7e68b..00000000 --- a/repository/Grease-GemStone-Core.package/String.extension/class/fromString..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone-core -fromString: aString - - ^self withAll: aString. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/String.extension/properties.json b/repository/Grease-GemStone-Core.package/String.extension/properties.json deleted file mode 100644 index c2138507..00000000 --- a/repository/Grease-GemStone-Core.package/String.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "String" } diff --git a/repository/Grease-GemStone-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-GemStone-Core.package/Symbol.extension/instance/greaseAsMutator.st deleted file mode 100644 index 7859a58a..00000000 --- a/repository/Grease-GemStone-Core.package/Symbol.extension/instance/greaseAsMutator.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-gemstone-Core -greaseAsMutator - ^ self asMutator \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/Symbol.extension/properties.json b/repository/Grease-GemStone-Core.package/Symbol.extension/properties.json deleted file mode 100644 index 565e67b0..00000000 --- a/repository/Grease-GemStone-Core.package/Symbol.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Symbol" } diff --git a/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/README.md b/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/instance/alternatives.st b/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/instance/alternatives.st deleted file mode 100644 index cd2cadce..00000000 --- a/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/instance/alternatives.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -alternatives - - ^'Please use SeasidePlatformSupport>>doRollbackUserObjects instead.' \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/instance/defaultAction.st b/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/instance/defaultAction.st deleted file mode 100644 index 1486010a..00000000 --- a/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/instance/defaultAction.st +++ /dev/null @@ -1,4 +0,0 @@ -ANSI - signaledException -defaultAction - - ^System abortTransaction \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/instance/transaction.st b/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/instance/transaction.st deleted file mode 100644 index 071f09a0..00000000 --- a/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/instance/transaction.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -transaction - - ^'Abort' \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/properties.json b/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/properties.json deleted file mode 100644 index 2f6f3ea5..00000000 --- a/repository/Grease-GemStone-Core.package/SystemAbortTransaction.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-GemStone-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SystemAbortTransaction", - "pools" : [ - ], - "super" : "SystemTransactionNotification", - "type" : "normal" } diff --git a/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/README.md b/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/instance/alternatives.st b/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/instance/alternatives.st deleted file mode 100644 index cd2cadce..00000000 --- a/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/instance/alternatives.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -alternatives - - ^'Please use SeasidePlatformSupport>>doRollbackUserObjects instead.' \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/instance/defaultAction.st b/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/instance/defaultAction.st deleted file mode 100644 index 001e8bf1..00000000 --- a/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/instance/defaultAction.st +++ /dev/null @@ -1,4 +0,0 @@ -ANSI - signaledException -defaultAction - - ^System beginTransaction \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/instance/transaction.st b/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/instance/transaction.st deleted file mode 100644 index 7dc3d663..00000000 --- a/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/instance/transaction.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -transaction - - ^'Begin' \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/properties.json b/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/properties.json deleted file mode 100644 index 03517a7f..00000000 --- a/repository/Grease-GemStone-Core.package/SystemBeginTransaction.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-GemStone-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SystemBeginTransaction", - "pools" : [ - ], - "super" : "SystemTransactionNotification", - "type" : "normal" } diff --git a/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/README.md b/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/instance/alternatives.st b/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/instance/alternatives.st deleted file mode 100644 index 080bf022..00000000 --- a/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/instance/alternatives.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -alternatives - - ^'A commit is unnecessary. The framework will commit for you, before sending off the response.' \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/instance/defaultAction.st b/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/instance/defaultAction.st deleted file mode 100644 index d664e612..00000000 --- a/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/instance/defaultAction.st +++ /dev/null @@ -1,4 +0,0 @@ -ANSI - signaledException -defaultAction - - ^System _commitPrintingDiagnostics \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/instance/transaction.st b/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/instance/transaction.st deleted file mode 100644 index e3521b20..00000000 --- a/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/instance/transaction.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -transaction - - ^'Commit' \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/properties.json b/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/properties.json deleted file mode 100644 index bb0c931b..00000000 --- a/repository/Grease-GemStone-Core.package/SystemCommitTransaction.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-GemStone-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SystemCommitTransaction", - "pools" : [ - ], - "super" : "SystemTransactionNotification", - "type" : "normal" } diff --git a/repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/README.md b/repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/instance/alternatives.st b/repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/instance/alternatives.st deleted file mode 100644 index 18023725..00000000 --- a/repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/instance/alternatives.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -alternatives - - self subclassResponsibility: #alternatives \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/instance/transaction.st b/repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/instance/transaction.st deleted file mode 100644 index f60fd30c..00000000 --- a/repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/instance/transaction.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -transaction - - self subclassResponsibility: #transaction \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/properties.json b/repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/properties.json deleted file mode 100644 index 65e1490d..00000000 --- a/repository/Grease-GemStone-Core.package/SystemTransactionNotification.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-GemStone-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "SystemTransactionNotification", - "pools" : [ - ], - "super" : "Notification", - "type" : "normal" } diff --git a/repository/Grease-GemStone-Core.package/UnorderedCollection.extension/instance/copyFrom..st b/repository/Grease-GemStone-Core.package/UnorderedCollection.extension/instance/copyFrom..st deleted file mode 100644 index 90db0c59..00000000 --- a/repository/Grease-GemStone-Core.package/UnorderedCollection.extension/instance/copyFrom..st +++ /dev/null @@ -1,8 +0,0 @@ -*grease-gemstone-core -copyFrom: anObject - - (anObject isKindOf: UnorderedCollection) ifFalse: [ - ^super copyFrom: anObject. - ]. - self removeAll: self copy. - self addAll: anObject. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/UnorderedCollection.extension/properties.json b/repository/Grease-GemStone-Core.package/UnorderedCollection.extension/properties.json deleted file mode 100644 index 1561fc89..00000000 --- a/repository/Grease-GemStone-Core.package/UnorderedCollection.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "UnorderedCollection" } diff --git a/repository/Grease-GemStone-Core.package/WriteStream.extension/instance/crlf.st b/repository/Grease-GemStone-Core.package/WriteStream.extension/instance/crlf.st deleted file mode 100644 index bbb0064b..00000000 --- a/repository/Grease-GemStone-Core.package/WriteStream.extension/instance/crlf.st +++ /dev/null @@ -1,7 +0,0 @@ -*grease-gemstone-core -crlf - - self - nextPut: Character cr; - nextPut: Character lf; - yourself. \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-GemStone-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 16a3a327..00000000 --- a/repository/Grease-GemStone-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,7 +0,0 @@ -*grease-gemstone-core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - "Store the next anInteger elements from the given collection." - - (startIndex = 1 and:[anInteger = aCollection size]) - ifTrue:[^self nextPutAll: aCollection]. - ^self nextPutAll: (aCollection copyFrom: startIndex to: startIndex+anInteger-1) \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/WriteStream.extension/properties.json b/repository/Grease-GemStone-Core.package/WriteStream.extension/properties.json deleted file mode 100644 index 239b3632..00000000 --- a/repository/Grease-GemStone-Core.package/WriteStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "WriteStream" } diff --git a/repository/Grease-GemStone-Core.package/monticello.meta/categories.st b/repository/Grease-GemStone-Core.package/monticello.meta/categories.st deleted file mode 100644 index 10387378..00000000 --- a/repository/Grease-GemStone-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-GemStone-Core'! diff --git a/repository/Grease-GemStone-Core.package/monticello.meta/initializers.st b/repository/Grease-GemStone-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone-Core.package/monticello.meta/package b/repository/Grease-GemStone-Core.package/monticello.meta/package deleted file mode 100644 index 1fbeeb83..00000000 --- a/repository/Grease-GemStone-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-GemStone-Core') \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/properties.json b/repository/Grease-GemStone-Core.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-GemStone-Core.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Grease-GemStone-Core/Array.extension.st b/repository/Grease-GemStone-Core/Array.extension.st new file mode 100644 index 00000000..0f8380bb --- /dev/null +++ b/repository/Grease-GemStone-Core/Array.extension.st @@ -0,0 +1,8 @@ +Extension { #name : 'Array' } + +{ #category : '*grease-gemstone-core' } +Array >> beMutable [ + "for VW compatibility, a hack that allows to cache a value in a literal array" + + ^self copy. +] diff --git a/repository/Grease-GemStone-Core/Behavior.extension.st b/repository/Grease-GemStone-Core/Behavior.extension.st new file mode 100644 index 00000000..1e04ff2b --- /dev/null +++ b/repository/Grease-GemStone-Core/Behavior.extension.st @@ -0,0 +1,13 @@ +Extension { #name : 'Behavior' } + +{ #category : '*grease-gemstone-core' } +Behavior >> fullName [ + "In VW, will include the namespace" + ^self name +] + +{ #category : '*grease-gemstone-core' } +Behavior >> removeSelectorSilently: aString [ + + self removeSelector: aString. +] diff --git a/repository/Grease-GemStone-Core/BinaryFloat.extension.st b/repository/Grease-GemStone-Core/BinaryFloat.extension.st new file mode 100644 index 00000000..2a26aec8 --- /dev/null +++ b/repository/Grease-GemStone-Core/BinaryFloat.extension.st @@ -0,0 +1,10 @@ +Extension { #name : 'BinaryFloat' } + +{ #category : '*grease-gemstone-core' } +BinaryFloat >> greaseString [ + + | strm | + strm := WriteStream on: String new. + self printOn: strm base: 10. + ^strm contents +] diff --git a/repository/Grease-GemStone-Core/ByteArray.extension.st b/repository/Grease-GemStone-Core/ByteArray.extension.st new file mode 100644 index 00000000..390dbca5 --- /dev/null +++ b/repository/Grease-GemStone-Core/ByteArray.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'ByteArray' } + +{ #category : '*grease-gemstone-core' } +ByteArray >> greaseString [ + + ^self printString +] diff --git a/repository/Grease-GemStone-Core/Character.extension.st b/repository/Grease-GemStone-Core/Character.extension.st new file mode 100644 index 00000000..3ff82f14 --- /dev/null +++ b/repository/Grease-GemStone-Core/Character.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'Character' } + +{ #category : '*grease-gemstone-core' } +Character >> greaseInteger [ + + ^self codePoint. +] diff --git a/repository/Grease-GemStone-Core/CharacterCollection.extension.st b/repository/Grease-GemStone-Core/CharacterCollection.extension.st new file mode 100644 index 00000000..c1aa4d87 --- /dev/null +++ b/repository/Grease-GemStone-Core/CharacterCollection.extension.st @@ -0,0 +1,140 @@ +Extension { #name : 'CharacterCollection' } + +{ #category : '*grease-gemstone-core' } +CharacterCollection >> excerpt: aString [ + "Answer an excerpt of the receiver that matches the first occurence of aString. If aString isn't found, nil is answered." + + ^ self excerpt: aString radius: 100 +] + +{ #category : '*grease-gemstone-core' } +CharacterCollection >> excerpt: aString radius: anInteger [ + "Answer an excerpt of the receiver that matches the first occurence of aString. The radius anInteger expands the excerpt on each side of the first occurrence by the number of characters defined in radius. If aString isn't found, nil is answered." + + ^ self excerpt: aString radius: anInteger ellipsis: '...' +] + +{ #category : '*grease-gemstone-core' } +CharacterCollection >> excerpt: aString radius: anInteger ellipsis: anEllipsisString [ + "Answer an excerpt of the receiver that matches the first occurence of aString. The radius anInteger expands the excerpt on each side of the first occurrence by the number of characters defined in radius. If aString isn't found, nil is answered." + + | index start stop | + (index := self indexOfSubCollection: aString) = 0 + ifTrue: [ ^ nil ]. + start := index - anInteger max: 1. + stop := index + anInteger + aString size - 1 min: self size. + ^ (start > 1 ifTrue: [ anEllipsisString ] ifFalse: [ '' ]) , + (self copyFrom: start to: stop) , + (stop < self size ifTrue: [ anEllipsisString ] ifFalse: [ '' ]) +] + +{ #category : '*grease-gemstone-core' } +CharacterCollection >> greaseInteger [ + "Convert the receiver to an integer, answer nil if this is not a number." + | number stream negated char | + number := nil. + stream := self readStream. + negated := stream peek = $-. + negated ifTrue: [ stream next ]. + [ stream atEnd not and: [ (char := stream next) isDigit ] ] whileTrue: [ + number := (number isNil ifTrue: [ 0 ]ifFalse: [ 10 * number ]) + + (char greaseInteger - $0 greaseInteger) ]. + ^ (number isNil or: [ negated not ]) + ifFalse: [ number negated ] + ifTrue: [ number ] +] + +{ #category : '*grease-gemstone-core' } +CharacterCollection >> pluralize [ + ^ GRInflector pluralize: self +] + +{ #category : '*grease-gemstone-core' } +CharacterCollection >> print: anObject on: aStream [ + aStream nextPutAll: self +] + +{ #category : '*grease-gemstone-core' } +CharacterCollection >> substrings: aCharacter [ + "Pharo 6+ compatibility" + ^ self subStrings: aCharacter +] + +{ #category : '*grease-gemstone-core' } +CharacterCollection >> trimBoth [ + "Trim separators from both sides of the receiving string." + + ^ self trimBoth: [ :char | char isSeparator ] +] + +{ #category : '*grease-gemstone-core' } +CharacterCollection >> trimBoth: aBlock [ + "Trim characters satisfying the condition given in aBlock from both sides of the receiving string." + + ^ self trimLeft: aBlock right: aBlock +] + +{ #category : '*grease-gemstone-core' } +CharacterCollection >> trimLeft [ + "Trim separators from the left side of the receiving string." + + ^ self trimLeft: [ :char | char isSeparator ] +] + +{ #category : '*grease-gemstone-core' } +CharacterCollection >> trimLeft: aBlock [ + "Trim characters satisfying the condition given in aBlock from the left side of the receiving string." + + ^ self trimLeft: aBlock right: [ :char | false ] +] + +{ #category : '*grease-gemstone-core' } +CharacterCollection >> trimLeft: aLeftBlock right: aRightBlock [ + "Trim characters satisfying the condition given in aLeftBlock from the left side and aRightBlock from the right sides of the receiving string." + + | left right | + left := 1. + right := self size. + [ left <= right and: [ aLeftBlock value: (self at: left) ] ] + whileTrue: [ left := left + 1 ]. + [ left <= right and: [ aRightBlock value: (self at: right) ] ] + whileTrue: [ right := right - 1 ]. + ^ self copyFrom: left to: right +] + +{ #category : '*grease-gemstone-core' } +CharacterCollection >> trimRight [ + "Trim separators from the right side of the receiving string." + + ^ self trimRight: [ :char | char isSeparator ] +] + +{ #category : '*grease-gemstone-core' } +CharacterCollection >> trimRight: aBlock [ + "Trim characters satisfying the condition given in aBlock from the right side of the receiving string." + + ^ self trimLeft: [ :char | false ] right: aBlock +] + +{ #category : '*grease-gemstone-core' } +CharacterCollection >> truncate [ + "Truncate the receiver to 30 characters." + + ^ self truncate: 30 +] + +{ #category : '*grease-gemstone-core' } +CharacterCollection >> truncate: anInteger [ + "Truncate the receiver to anInteger characters." + + ^ self truncate: anInteger ellipsis: '...' +] + +{ #category : '*grease-gemstone-core' } +CharacterCollection >> truncate: anInteger ellipsis: aString [ + "Truncate the receiver to anInteger characters and append aString as ellipsis if necessary." + + ^ anInteger < self size + ifTrue: [ (self copyFrom: 1 to: anInteger) , aString ] + ifFalse: [ self copy ] +] diff --git a/repository/Grease-GemStone-Core/Collection.extension.st b/repository/Grease-GemStone-Core/Collection.extension.st new file mode 100644 index 00000000..85f1f4de --- /dev/null +++ b/repository/Grease-GemStone-Core/Collection.extension.st @@ -0,0 +1,19 @@ +Extension { #name : 'Collection' } + +{ #category : '*grease-gemstone-core' } +Collection >> any [ + + ^self anyOne +] + +{ #category : '*grease-gemstone-core' } +Collection >> sorted [ + + ^ self sorted: [ :a :b | a <= b ] +] + +{ #category : '*grease-gemstone-core' } +Collection >> sorted: sortBlock [ + + ^ self sortBy: sortBlock +] diff --git a/repository/Grease-GemStone-Core/Date.extension.st b/repository/Grease-GemStone-Core/Date.extension.st new file mode 100644 index 00000000..a0119ef7 --- /dev/null +++ b/repository/Grease-GemStone-Core/Date.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'Date' } + +{ #category : '*grease-gemstone-core' } +Date class >> daysInMonthNumber: monthNumber forYear: yearInteger [ + + ^(Date newDay: 1 monthNumber: monthNumber year: yearInteger) daysInMonth +] diff --git a/repository/Grease-GemStone-Core/Dictionary.extension.st b/repository/Grease-GemStone-Core/Dictionary.extension.st new file mode 100644 index 00000000..d501b039 --- /dev/null +++ b/repository/Grease-GemStone-Core/Dictionary.extension.st @@ -0,0 +1,13 @@ +Extension { #name : 'Dictionary' } + +{ #category : '*grease-gemstone-core' } +Dictionary >> copyFrom: anObject [ + + (anObject isKindOf: Dictionary) ifFalse: [ + ^super copyFrom: anObject. + ]. + self keysDo: [:each | self removeKey: each]. + anObject keysAndValuesDo: [:key :value | + self at: key put: value. + ]. +] diff --git a/repository/Grease-GemStone-Core/DoubleByteString.extension.st b/repository/Grease-GemStone-Core/DoubleByteString.extension.st new file mode 100644 index 00000000..b20b0cea --- /dev/null +++ b/repository/Grease-GemStone-Core/DoubleByteString.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'DoubleByteString' } + +{ #category : '*grease-gemstone-core' } +DoubleByteString >> greaseString [ + + ^self asDoubleByteString +] diff --git a/repository/Grease-GemStone-Core/Duration.extension.st b/repository/Grease-GemStone-Core/Duration.extension.st new file mode 100644 index 00000000..8bec28cd --- /dev/null +++ b/repository/Grease-GemStone-Core/Duration.extension.st @@ -0,0 +1,19 @@ +Extension { #name : 'Duration' } + +{ #category : '*grease-gemstone-core' } +Duration >> asMilliseconds [ + + ^ self asMilliSeconds +] + +{ #category : '*grease-gemstone-core' } +Duration >> milliseconds [ + + ^seconds abs \\ 1 * 1000 * seconds sign. +] + +{ #category : '*grease-gemstone-core' } +Duration class >> milliseconds: millis [ + + ^self milliSeconds: millis +] diff --git a/repository/Grease-GemStone-Core/Exception.extension.st b/repository/Grease-GemStone-Core/Exception.extension.st new file mode 100644 index 00000000..82e57c2d --- /dev/null +++ b/repository/Grease-GemStone-Core/Exception.extension.st @@ -0,0 +1,21 @@ +Extension { #name : 'Exception' } + +{ #category : '*grease-gemstone-core' } +Exception class >> raiseSignal [ + ^ self signal +] + +{ #category : '*grease-gemstone-core' } +Exception >> raiseSignal [ + ^ self signal +] + +{ #category : '*grease-gemstone-core' } +Exception class >> raiseSignal: aString [ + ^ self signal: aString +] + +{ #category : '*grease-gemstone-core' } +Exception >> raiseSignal: aString [ + ^ self signal: aString +] diff --git a/repository/Grease-GemStone-Core/GRDynamicVariable.class.st b/repository/Grease-GemStone-Core/GRDynamicVariable.class.st new file mode 100644 index 00000000..8b590d1f --- /dev/null +++ b/repository/Grease-GemStone-Core/GRDynamicVariable.class.st @@ -0,0 +1,43 @@ +Class { + #name : 'GRDynamicVariable', + #superclass : 'DynamicVariable', + #category : 'Grease-GemStone-Core', + #package : 'Grease-GemStone-Core' +} + +{ #category : 'defaults' } +GRDynamicVariable class >> default [ + ^ self defaultValue +] + +{ #category : 'defaults' } +GRDynamicVariable class >> defaultValue [ + ^ nil +] + +{ #category : 'accessing' } +GRDynamicVariable class >> use: anObject during: aBlock [ + | p hasOldValue oldValue result | + "Implementation cannot send a supercall to value:during: because: + - this method needs to return the value + - the defaultValue may not be invoked here to support throwing errors as defaultValue + - nil may not remain installed as the default value once the block has finished running" + p := Processor activeProcess. + hasOldValue := p environment includesKey: self. + oldValue := p environmentAt: self. + [ + p environmentAt: self put: anObject. + result := aBlock value ] + ensure: [ + hasOldValue + ifFalse: [ p environment removeKey: self ] + ifTrue: [ p environmentAt: self put: oldValue ] ]. + ^ result +] + +{ #category : 'accessing' } +GRDynamicVariable class >> value [ + "Override required for compatibility in GS2.4 where environmentAt:ifAbsent: is flawed because it can still return nil when absent instead of executing the ifAbsent block" + + ^ Processor activeProcess environment at: self ifAbsent: [ self defaultValue ] +] diff --git a/repository/Grease-GemStone-Core/GRGemStonePlatform.class.st b/repository/Grease-GemStone-Core/GRGemStonePlatform.class.st new file mode 100644 index 00000000..891424fb --- /dev/null +++ b/repository/Grease-GemStone-Core/GRGemStonePlatform.class.st @@ -0,0 +1,429 @@ +Class { + #name : 'GRGemStonePlatform', + #superclass : 'GRPlatform', + #classVars : [ + 'TransactionMutex' + ], + #category : 'Grease-GemStone-Core', + #package : 'Grease-GemStone-Core' +} + +{ #category : 'class initialization' } +GRGemStonePlatform class >> initialize [ + self select. + self current transactionMutex "http://code.google.com:9393/p/glassdb/issues/detail?id=290 transactionMutex is always nil" +] + +{ #category : 'class initialization' } +GRGemStonePlatform class >> unload [ + self unselect +] + +{ #category : 'startup' } +GRGemStonePlatform >> addToShutDownList: anObject [ + "We'll ignore this functionality in GemStone for now" +] + +{ #category : 'startup' } +GRGemStonePlatform >> addToStartUpList: anObject [ + "We'll ignore this functionality in GemStone for now" +] + +{ #category : 'private-file-library' } +GRGemStonePlatform >> asMethodReturningByteArray: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array." + + ^ String streamContents: [ :stream | + stream nextPutAll: aSymbol , ' + + ^#('. + aByteArrayOrString asByteArray + do: [ :each | each printOn: stream ] + separatedBy: [ stream space ]. + stream nextPutAll: ') asByteArray.'; cr. + ]. +] + +{ #category : 'private-file-library' } +GRGemStonePlatform >> asMethodReturningString: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a string." + ^String streamContents: [ :stream | + stream nextPutAll: aSymbol; nextPut: Character cr. + stream tab; nextPutAll: '^ '''. + aByteArrayOrString greaseString do: + [ :each | + each = $' ifTrue: [ stream nextPut: $' ]. + stream nextPut: each ]. + stream nextPutAll: '''' ] +] + +{ #category : 'encoding' } +GRGemStonePlatform >> base64Decode: aString [ + ^ (Base64MimeConverter mimeDecodeToChars: aString readStream) contents +] + +{ #category : 'encoding' } +GRGemStonePlatform >> base64Encode: aByteArray [ + ^ (Base64MimeConverter mimeEncode: aByteArray readStream) contents +] + +{ #category : 'file-library' } +GRGemStonePlatform >> compile: aString into: aClass classified: aSymbol [ + + | result | + result := aClass + compileMethod: aString + dictionaries: System myUserProfile symbolList + category: aSymbol. + result isNil ifTrue: [^self]. + self error: 'not yet implemented!'. +] + +{ #category : 'files' } +GRGemStonePlatform >> contentsOfFile: aString binary: aBoolean [ + ^ self fileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean +] + +{ #category : 'dispatchers' } +GRGemStonePlatform >> defaultDispatcherName [ + ^'seaside' +] + +{ #category : 'files' } +GRGemStonePlatform >> deleteFile: aPathString [ + + GsFile removeServerFile: aPathString + +] + +{ #category : 'exceptions' } +GRGemStonePlatform >> deprecationExceptionSet [ + ^ ExceptionSet new +] + +{ #category : 'files' } +GRGemStonePlatform >> directoriesIn: aPathString [ + "Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString + must not include directory names that start with ." + | directory | + directory := ServerFileDirectory on: aPathString. + ^(directory directoryNames + reject: [ :each | each first = $. ]) + collect: [ :each | directory fullNameFor: each ] +] + +{ #category : 'transactions' } +GRGemStonePlatform >> doAbortTransaction [ + + SystemAbortTransaction signal. +] + +{ #category : 'transactions' } +GRGemStonePlatform >> doBeginTransaction [ + + SystemBeginTransaction signal. +] + +{ #category : 'transactions' } +GRGemStonePlatform >> doCommitTransaction [ + + System inTransaction ifTrue: [^SystemCommitTransaction signal]. + ^true +] + +{ #category : '*grease-gemstone-core' } +GRGemStonePlatform >> doTransaction: aBlock [ + "Evaluate aBlock in a transaction. + Return true if the transaction succeeds and false if the transaction fails. + Nested calls are allowed and will always return true. + See System class>>transactionConflicts for dealing with failed transactions." + + "Ensure that each block evaluation is mutually exclusive: https://code.google.com/p/glassdb/issues/detail?id=355" + + self transactionMutex + critical: [ + | commitResult | + "Get the transactionMutex, and perform the transaction." + System inTransaction + ifTrue: [ + "We already are in a transaction, so just evaluate the block" + aBlock value. + ^ true ] + ifFalse: [ + [ + self doBeginTransaction. + aBlock value ] + ensure: [ + "workaround for Bug 42963: ensure: block executed twice (don't return from ensure: block)" + commitResult := self doCommitTransaction ] ]. + ^ commitResult ] +] + +{ #category : 'files' } +GRGemStonePlatform >> ensureExistenceOfFolder: aString [ + "creates a folder named aString in the default server directory" + ServerFileDirectory default assureExistenceOfPath: aString +] + +{ #category : 'files' } +GRGemStonePlatform >> fileExists: aString [ + ^ GsFile existsOnServer: aString +] + +{ #category : 'files' } +GRGemStonePlatform >> filesIn: aPathString [ + "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString + must not include file names that start with ." + | directory | + directory := ServerFileDirectory on: aPathString. + ^(directory fileNames + reject: [ :each | each first = $. ]) + collect: [ :each | directory fullNameFor: each ] +] + +{ #category : 'processes' } +GRGemStonePlatform >> isProcessTerminated: aGsProcess [ + + ^aGsProcess _isTerminated. +] + +{ #category : 'version info' } +GRGemStonePlatform >> label [ + + ^'GemStone' +] + +{ #category : 'files' } +GRGemStonePlatform >> localNameOf: aFilename [ + ^(ServerFileDirectory on: aFilename) localName +] + +{ #category : 'services' } +GRGemStonePlatform >> logError: aDescription title: aString [ + + self logError: aDescription title: aString shouldCommit: false +] + +{ #category : 'services' } +GRGemStonePlatform >> logError: aDescription title: aString shouldCommit: shouldCommit [ + + | stdout stack logStream | + stack := GsProcess stackReportToLevel: 300. + self saveLogEntry: (ObjectLogEntry error: aString object: { aDescription. stack. }) shouldCommit: shouldCommit. + stdout := GsFile stdoutServer. + stdout nextPutAll: '----------- ', aString, ' ERROR Encountered: ', DateAndTime now printString. + stdout cr. + stdout nextPutAll: aDescription. + stdout cr. + stdout nextPutAll: stack. + stdout nextPutAll: '-----------'. + stdout cr. + stdout close. +] + +{ #category : 'factory' } +GRGemStonePlatform >> newRandom [ + "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: + #nextInt: - should answer a random integer in the interval [1, anInteger] + #randomFrom: - should answer a random element from the given collection + + Make sure that both methods are safe under heavy concurrent load. + + Used by Gemstone/S traditional Randoms which cannot be persisted." + + ^ GRGemStoneRandomProvider +] + +{ #category : 'files' } +GRGemStonePlatform >> newTemporaryFile [ + + ^ self newTemporaryFileNamed: UUID new greaseString + +] + +{ #category : 'files' } +GRGemStonePlatform >> newTemporaryFileNamed: aName [ + + | fileName | + fileName := GRPlatform current pathSeparator,'tmp', GRPlatform current pathSeparator, aName. + (self fileExists: fileName) ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ]. + ^ (GsFile openWriteOnServer: fileName) pathName + +] + +{ #category : 'file-library' } +GRGemStonePlatform >> newline [ + + ^String lf +] + +{ #category : 'exceptions' } +GRGemStonePlatform >> openDebuggerOn: anError [ + + ^self generateHardBreak. +] + +{ #category : 'files' } +GRGemStonePlatform >> pathSeparator [ + ^ FileDirectory pathNameDelimiter asString +] + +{ #category : 'files' } +GRGemStonePlatform >> readFileStreamOn: aString do: aBlock binary: aBoolean [ + | stream dir file | + [ + file := GsFile openReadOnServer: aString. + [ + stream := RWBinaryOrTextStream on: file contents. + aBoolean + ifTrue: [ stream binary ] + ifFalse: [ stream ascii ]. + ^ aBlock value: stream ] + ensure: [ stream close ] ] + ensure: [ file close ] +] + +{ #category : 'factory' } +GRGemStonePlatform >> readWriteByteStream [ + ^ AnsiReadWriteStream on: ByteArray new. +] + +{ #category : 'factory' } +GRGemStonePlatform >> readWriteCharacterStream [ + ^ AnsiReadWriteStream on: String new. +] + +{ #category : 'factory' } +GRGemStonePlatform >> reducedConflictDictionary [ + "used by Gemstone/S reduced conflict classes that can be used to avoid transaction conflicts" + ^RcKeyValueDictionary +] + +{ #category : 'startup' } +GRGemStonePlatform >> removeFromShutDownList: anObject [ + "We'll ignore this functionality in GemStone for now" +] + +{ #category : 'startup' } +GRGemStonePlatform >> removeFromStartUpList: anObject [ + "We'll ignore this functionality in GemStone for now" +] + +{ #category : 'file-library' } +GRGemStonePlatform >> removeSelector: aSymbol from: aClass [ + aClass removeSelectorSilently: aSymbol +] + +{ #category : 'services' } +GRGemStonePlatform >> saveLogEntry: anObjectLogEntry shouldCommit: shouldCommit [ + "Does an abort and commit, if not already in transaction" + + | stdout | + stdout := GsFile stdoutServer. + stdout nextPutAll: '----------- ', anObjectLogEntry labelString, ' LOG ENTRY: ', anObjectLogEntry objectString. + stdout nextPutAll: '-----------'. + stdout cr. + stdout close. + shouldCommit + ifTrue: [ self doTransaction: [ anObjectLogEntry addToLog ]] + ifFalse: [ anObjectLogEntry addToLog ]. +] + +{ #category : 'cryptography' } +GRGemStonePlatform >> secureHashFor: aString [ + + ^ SecureHashAlgorithm new hashMessage: aString +] + +{ #category : 'factory' } +GRGemStonePlatform >> semaphoreClass [ + "used by Gemstone/S traditional Semaphores which cannot be persisted" + ^TransientSemaphore +] + +{ #category : 'files' } +GRGemStonePlatform >> sizeOfFile: aPathString [ + + ^ GsFile sizeOfOnServer: aPathString +] + +{ #category : 'private-email' } +GRGemStonePlatform >> smtpServer [ + self error: 'not yet implemented!'. + "^ MailSender smtpServer" +] + +{ #category : 'meta-object-protocol' } +GRGemStonePlatform >> sourceCodeStringOf: aCompiledMethod [ + "Return a String with the source code for a compiled method." + + ^ self convertToSmalltalkNewlines: aCompiledMethod _sourceString +] + +{ #category : 'exceptions' } +GRGemStonePlatform >> stackDepth [ + + | i | + i := 1. + [(GsProcess _frameContentsAt: i) notNil] + whileTrue: [i := i + 1]. + ^i - 1. +] + +{ #category : 'processes' } +GRGemStonePlatform >> terminateProcess: aGsProcess [ + + aGsProcess terminate. +] + +{ #category : '*grease-gemstone-core' } +GRGemStonePlatform >> thisContext [ + ^ GsContext fromLevel: 3 +] + +{ #category : 'transactions' } +GRGemStonePlatform >> transactionMutex [ + "Use the TransientRecursionLock, so that nested calls within same process + won't cause deadlock." + + TransactionMutex ifNil: [ TransactionMutex := TransientRecursionLock new ]. + ^TransactionMutex +] + +{ #category : 'factory' } +GRGemStonePlatform >> weakDictionaryOfSize: aNumber [ + ^IdentityDictionary new: aNumber +] + +{ #category : 'files' } +GRGemStonePlatform >> write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString [ + "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" + + | folder fullFilePath | + fullFilePath := ServerFileDirectory default fullNameFor: aFolderString. + folder := ServerFileDirectory on: fullFilePath. + (folder fileExists: aFileNameString) + ifTrue: [ folder deleteFileNamed: aFileNameString ]. + ^ self + writeFileStreamOn: (folder / aFileNameString) fullName + do: [ :stream | stream nextPutAll: aStringOrByteArray ] + binary: aStringOrByteArray isString not +] + +{ #category : 'transactions' } +GRGemStonePlatform >> writeCharacterStreamOn: aString [ + "String based write stream" + + ^ AnsiWriteStream on: aString +] + +{ #category : 'files' } +GRGemStonePlatform >> writeFileStreamOn: fileName do: aBlock binary: isBinary [ + | stream | + stream := BinaryOrTextFile open: fileName mode: 'w+b' onClient: false. + stream := isBinary + ifTrue: [ stream binary ] + ifFalse: [ stream ascii ]. + [ aBlock value: stream ] + ensure: [ stream close ] +] diff --git a/repository/Grease-GemStone-Core/GRGemStonePlatform.extension.st b/repository/Grease-GemStone-Core/GRGemStonePlatform.extension.st new file mode 100644 index 00000000..c33261d4 --- /dev/null +++ b/repository/Grease-GemStone-Core/GRGemStonePlatform.extension.st @@ -0,0 +1,34 @@ +Extension { #name : 'GRGemStonePlatform' } + +{ #category : '*grease-gemstone-core' } +GRGemStonePlatform >> doTransaction: aBlock [ + "Evaluate aBlock in a transaction. + Return true if the transaction succeeds and false if the transaction fails. + Nested calls are allowed and will always return true. + See System class>>transactionConflicts for dealing with failed transactions." + + "Ensure that each block evaluation is mutually exclusive: https://code.google.com/p/glassdb/issues/detail?id=355" + + self transactionMutex + critical: [ + | commitResult | + "Get the transactionMutex, and perform the transaction." + System inTransaction + ifTrue: [ + "We already are in a transaction, so just evaluate the block" + aBlock value. + ^ true ] + ifFalse: [ + [ + self doBeginTransaction. + aBlock value ] + ensure: [ + "workaround for Bug 42963: ensure: block executed twice (don't return from ensure: block)" + commitResult := self doCommitTransaction ] ]. + ^ commitResult ] +] + +{ #category : '*grease-gemstone-core' } +GRGemStonePlatform >> thisContext [ + ^ GsContext fromLevel: 3 +] diff --git a/repository/Grease-GemStone-Core/GRGemStoneRandomProvider.class.st b/repository/Grease-GemStone-Core/GRGemStoneRandomProvider.class.st new file mode 100644 index 00000000..b30b1616 --- /dev/null +++ b/repository/Grease-GemStone-Core/GRGemStoneRandomProvider.class.st @@ -0,0 +1,77 @@ +Class { + #name : 'GRGemStoneRandomProvider', + #superclass : 'GRObject', + #category : 'Grease-GemStone-Core', + #package : 'Grease-GemStone-Core' +} + +{ #category : 'accessing' } +GRGemStoneRandomProvider class >> generator [ + + ^SessionTemps current + at: #GRGemStoneRandomProvider_GENERATOR + ifAbsent: [ + SessionTemps current + at: #GRGemStoneRandomProvider_GENERATOR + put: self randomClass new ] +] + +{ #category : 'class initialization' } +GRGemStoneRandomProvider class >> initialize [ + "self initialize" + + SystemLoginNotification subscribe: self name. +] + +{ #category : 'accessing' } +GRGemStoneRandomProvider class >> mutex [ + + ^SessionTemps current + at: #GRGemStoneRandomProvider_MUTEX + ifAbsent: [ + SessionTemps current + at: #GRGemStoneRandomProvider_MUTEX + put: TransientSemaphore forMutualExclusion ] +] + +{ #category : 'public' } +GRGemStoneRandomProvider class >> nextInt: anInteger [ + "Answer a random integer in the interval [1, anInteger]" + ^self mutex critical: [ + self generator nextInt: anInteger ] +] + +{ #category : 'private' } +GRGemStoneRandomProvider class >> randomClass [ + "Answers the random number generator to be used to create session and continuation keys. + It will not be seeded, just #new will be sent. So wrap it if you need seeding. + + Used by Gemstone/S traditional Randoms which cannot be persisted. + Used by GemStone to use a secure random when avaiable." + + ^Smalltalk + at: #TransientRandom + ifAbsent: [ + Smalltalk + at: #HostRandom + ifAbsent: [ Random ]] +] + +{ #category : 'public' } +GRGemStoneRandomProvider class >> randomFrom: aCollection [ + |random count| + random := self nextInt: aCollection size. + ^ aCollection isSequenceable + ifTrue: [ aCollection at: random ] + ifFalse: [ + count := 1. + aCollection do: [ :ea | + count = random ifTrue: [ ^ ea ]. + count := count + 1 ] ] +] + +{ #category : 'class initialization' } +GRGemStoneRandomProvider class >> sessionStart [ + + self generator open +] diff --git a/repository/Grease-GemStone-Core/GRLatin1GemStoneCodec.class.st b/repository/Grease-GemStone-Core/GRLatin1GemStoneCodec.class.st new file mode 100644 index 00000000..b53012a6 --- /dev/null +++ b/repository/Grease-GemStone-Core/GRLatin1GemStoneCodec.class.st @@ -0,0 +1,69 @@ +Class { + #name : 'GRLatin1GemStoneCodec', + #superclass : 'GRCodec', + #instVars : [ + 'name' + ], + #category : 'Grease-GemStone-Core', + #package : 'Grease-GemStone-Core' +} + +{ #category : 'instance-creation' } +GRLatin1GemStoneCodec class >> basicForEncoding: aString [ + + (self supportsEncoding: aString) + ifFalse: [ ^ self unsupportedEncoding: aString ]. + ^(self new) + name: aString; + yourself +] + +{ #category : 'accessing' } +GRLatin1GemStoneCodec class >> codecs [ + ^ Array with: self new +] + +{ #category : 'testing' } +GRLatin1GemStoneCodec class >> supportsEncoding: aString [ + "Answer whether the the given encoding name is supported." + + ^ #('iso-8859-1' 'ISO-8859-1' 'latin-1' 'latin1') includes: aString +] + +{ #category : 'decoding' } +GRLatin1GemStoneCodec >> decode: aByteString [ + ^aByteString asString +] + +{ #category : 'encoding' } +GRLatin1GemStoneCodec >> encode: aByteString [ + ^aByteString asString +] + +{ #category : 'encoding' } +GRLatin1GemStoneCodec >> encodeUrl: aString [ + ^aString +] + +{ #category : 'conversion' } +GRLatin1GemStoneCodec >> encoderFor: aWriteStream [ + + ^ GRTextOrBinaryCodecStream on: aWriteStream +] + +{ #category : 'accessing' } +GRLatin1GemStoneCodec >> name [ + ^ name +] + +{ #category : 'accessing' } +GRLatin1GemStoneCodec >> name: aString [ + + name := aString +] + +{ #category : 'accessing' } +GRLatin1GemStoneCodec >> url [ + + ^self +] diff --git a/repository/Grease-GemStone-Core/GRPackage.extension.st b/repository/Grease-GemStone-Core/GRPackage.extension.st new file mode 100644 index 00000000..bc13a2b0 --- /dev/null +++ b/repository/Grease-GemStone-Core/GRPackage.extension.st @@ -0,0 +1,16 @@ +Extension { #name : 'GRPackage' } + +{ #category : '*grease-gemstone-core' } +GRPackage >> gemstoneUrl [ + ^ 'http://seaside.gemstone.com/ss/Seaside30' +] + +{ #category : '*grease-gemstone-core' } +GRPackage class >> greaseGemStoneCore [ + + ^ self new + name: 'Grease-GemStone-Core'; + addDependency: 'Grease-Core'; + url: #gemstoneUrl; + yourself +] diff --git a/repository/Grease-GemStone-Core/GRTextOrBinaryCodecStream.class.st b/repository/Grease-GemStone-Core/GRTextOrBinaryCodecStream.class.st new file mode 100644 index 00000000..fe2cfbe8 --- /dev/null +++ b/repository/Grease-GemStone-Core/GRTextOrBinaryCodecStream.class.st @@ -0,0 +1,69 @@ +Class { + #name : 'GRTextOrBinaryCodecStream', + #superclass : 'GRCodecStream', + #instVars : [ + 'binary' + ], + #category : 'Grease-GemStone-Core', + #package : 'Grease-GemStone-Core' +} + +{ #category : 'actions' } +GRTextOrBinaryCodecStream >> binary [ + "switches the receiver into binary mode in which no encoding appends and arguments are expected to be binary (bytes or byte arrays)." + binary := true +] + +{ #category : 'accessing' } +GRTextOrBinaryCodecStream >> contents [ + ^ stream contents +] + +{ #category : 'actions' } +GRTextOrBinaryCodecStream >> flush [ + stream flush +] + +{ #category : 'initialization' } +GRTextOrBinaryCodecStream >> initializeOn: aStream [ + super initializeOn: aStream. + binary := false +] + +{ #category : 'streaming' } +GRTextOrBinaryCodecStream >> next [ + ^ (self next: 1) first +] + +{ #category : 'streaming' } +GRTextOrBinaryCodecStream >> next: anInteger [ + | writeStream | + writeStream := WriteStream on: String new. + anInteger timesRepeat: [ + stream atEnd ifTrue: [ ^ writeStream contents ]. + writeStream nextPut: stream next asCharacter ]. + ^ writeStream contents +] + +{ #category : 'streaming' } +GRTextOrBinaryCodecStream >> nextPut: aCharacter [ + self nextPutAll: (String with: aCharacter) +] + +{ #category : 'streaming' } +GRTextOrBinaryCodecStream >> nextPutAll: aString [ + binary + ifTrue: [ stream nextPutAll: aString asString ] + ifFalse: [ stream nextPutAll: aString ] +] + +{ #category : 'accessing' } +GRTextOrBinaryCodecStream >> size [ + ^ stream size +] + +{ #category : 'actions' } +GRTextOrBinaryCodecStream >> text [ + "switches the receiver into text mode in which encoding appends and arguments are expected to be text (characters or strings)." + binary := false +] diff --git a/repository/Grease-GemStone-Core/GRUtf8GemStoneCodec.class.st b/repository/Grease-GemStone-Core/GRUtf8GemStoneCodec.class.st new file mode 100644 index 00000000..d3f6cf02 --- /dev/null +++ b/repository/Grease-GemStone-Core/GRUtf8GemStoneCodec.class.st @@ -0,0 +1,77 @@ +Class { + #name : 'GRUtf8GemStoneCodec', + #superclass : 'GRCodec', + #instVars : [ + 'implementation' + ], + #category : 'Grease-GemStone-Core', + #package : 'Grease-GemStone-Core' +} + +{ #category : 'instance-creation' } +GRUtf8GemStoneCodec class >> basicForEncoding: aString [ + + (self supportsEncoding: aString) + ifFalse: [ ^ self unsupportedEncoding: aString ]. + ^self new +] + +{ #category : 'accessing' } +GRUtf8GemStoneCodec class >> codecs [ + ^ Array with: self new +] + +{ #category : 'testing' } +GRUtf8GemStoneCodec class >> supportsEncoding: aString [ + "Answer whether the the given encoding name is supported." + + ^ #( 'utf-8' 'UTF-8' 'utf8' 'UTF8' ) includes: aString +] + +{ #category : 'decoding' } +GRUtf8GemStoneCodec >> decode: aByteString [ + + ^implementation decode: aByteString asString. +] + +{ #category : 'conversion' } +GRUtf8GemStoneCodec >> decoderFor: aWriteStream [ + + ^ GRUtf8CodecStream on: aWriteStream +] + +{ #category : 'encoding' } +GRUtf8GemStoneCodec >> encode: aByteString [ + + ^(implementation encode: aByteString) asString +] + +{ #category : 'encoding' } +GRUtf8GemStoneCodec >> encodeUrl: aByteString [ + + ^(implementation encode: aByteString) asString +] + +{ #category : 'conversion' } +GRUtf8GemStoneCodec >> encoderFor: aWriteStream [ + + ^ GRUtf8CodecStream on: aWriteStream +] + +{ #category : 'initialize' } +GRUtf8GemStoneCodec >> initialize [ + + super initialize. + implementation := UTF8Encoding newEncoder. +] + +{ #category : 'accessing' } +GRUtf8GemStoneCodec >> name [ + ^ 'utf-8' +] + +{ #category : 'accessing' } +GRUtf8GemStoneCodec >> url [ + + ^self +] diff --git a/repository/Grease-GemStone-Core/GsContext.class.st b/repository/Grease-GemStone-Core/GsContext.class.st new file mode 100644 index 00000000..536916c4 --- /dev/null +++ b/repository/Grease-GemStone-Core/GsContext.class.st @@ -0,0 +1,108 @@ +Class { + #name : 'GsContext', + #superclass : 'Object', + #instVars : [ + 'continuation', + 'level', + 'method', + 'source', + 'mySelf', + 'receiver' + ], + #category : 'Grease-GemStone-Core', + #package : 'Grease-GemStone-Core' +} + +{ #category : 'instance creation' } +GsContext class >> fromContinuation: aContinuation atLevel: anInteger [ + +^self new continuation: aContinuation level: anInteger +] + +{ #category : 'instance creation' } +GsContext class >> fromLevel: anInteger [ + +^self new continuation: (GsProcess continuationFromLevel: anInteger) level: 1 +] + +{ #category : 'comparing' } +GsContext >> = anObject [ + ^ anObject class == self class + and: [ anObject receiver == receiver and: [ anObject method == method ] ] +] + +{ #category : 'formatting' } +GsContext >> asString [ + + ^self fullPrintString +] + +{ #category : 'initialization' } +GsContext >> continuation: aContinuation level: anInteger [ + continuation := aContinuation. + level := anInteger. "these instance variables are populated for the WAWalkback use" + method := (continuation _frameContentsAt: level) at: 1. + source := method sourceString. + receiver := (continuation _frameContentsAt: level) at: 10. + mySelf := (continuation _frameContentsAt: level) at: 8 +] + +{ #category : 'accessing' } +GsContext >> fullPrintString [ + + +^continuation _reportAt: level +] + +{ #category : 'formatting' } +GsContext >> greaseString [ + + ^self fullPrintString +] + +{ #category : 'accessing' } +GsContext >> method [ + +^method +] + +{ #category : 'accessing' } +GsContext >> namedTempAt: index [ + ^ self tempAt: index +] + +{ #category : 'accessing' } +GsContext >> receiver [ + +^receiver +] + +{ #category : 'accessing' } +GsContext >> sender [ + +continuation stackDepth == level ifTrue: [^nil]. +^self class fromContinuation: continuation atLevel: level + 1 +] + +{ #category : 'accessing' } +GsContext >> tempAt: index [ + | ar | + ar := continuation _frameContentsAt: level. + ar size < (10 + index) + ifTrue: [ ^ nil ]. + ^ ar at: 10 + index +] + +{ #category : 'accessing' } +GsContext >> tempNamed: aString [ + | index | + index := self tempNames indexOf: aString asSymbol. + index = 0 + ifTrue: [ Error raiseSignal: 'No such temp: ' , aString ]. + ^ self tempAt: index +] + +{ #category : 'accessing' } +GsContext >> tempNames [ + ^ (continuation _frameContentsAt: level) at: 9 +] diff --git a/repository/Grease-GemStone-Core/Interval.extension.st b/repository/Grease-GemStone-Core/Interval.extension.st new file mode 100644 index 00000000..3254f72a --- /dev/null +++ b/repository/Grease-GemStone-Core/Interval.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'Interval' } + +{ #category : '*grease-gemstone-core' } +Interval >> any [ + + ^self at: 1 +] diff --git a/repository/Grease-GemStone-Core/LargeInteger.extension.st b/repository/Grease-GemStone-Core/LargeInteger.extension.st new file mode 100644 index 00000000..3ecf5061 --- /dev/null +++ b/repository/Grease-GemStone-Core/LargeInteger.extension.st @@ -0,0 +1,13 @@ +Extension { #name : 'LargeInteger' } + +{ #category : '*grease-gemstone-core' } +LargeInteger >> greaseByteAt: index [ + + ^ self digitAt: index +] + +{ #category : '*grease-gemstone-core' } +LargeInteger >> greaseBytesCount [ + + ^ self digitLength +] diff --git a/repository/Grease-GemStone-Core/MessageSend.extension.st b/repository/Grease-GemStone-Core/MessageSend.extension.st new file mode 100644 index 00000000..af768985 --- /dev/null +++ b/repository/Grease-GemStone-Core/MessageSend.extension.st @@ -0,0 +1,55 @@ +Extension { #name : 'MessageSend' } + +{ #category : '*grease-gemstone-core' } +MessageSend >> argumentCount [ + + ^selector argumentCount - arguments size. +] + +{ #category : '*grease-gemstone-core' } +MessageSend >> evaluateWithArguments: anArray [ + ^ self valueWithArguments: anArray +] + +{ #category : '*grease-gemstone-core' } +MessageSend >> value: anArg [ + + ^self valueWithArguments: (Array with: anArg). +] + +{ #category : '*grease-gemstone-core' } +MessageSend >> value: arg1 value: arg2 [ + + ^self valueWithArguments: (Array with: arg1 with: arg2). +] + +{ #category : '*grease-gemstone-core' } +MessageSend >> valueWithPossibleArgument: anArg [ + + "Evaluate the block represented by the receiver. + If the block requires one argument, use anArg, if it requires more than one, + fill up the rest with nils." + + ^self numArgs = 0 + ifTrue: [ self value ] + ifFalse: [ + receiver + perform: selector + withArguments: ((self arguments, (Array with: anArg)) first: self numArgs) ] +] + +{ #category : '*grease-gemstone-core' } +MessageSend >> valueWithPossibleArguments: anArray [ + + "Evaluate the block represented by the receiver. + If the block requires one argument, use anArg, if it requires more than one, + fill up the rest with nils." + + | count | + ^(count := selector argumentCount) = 0 + ifTrue: [ self value ] + ifFalse: [ + receiver + perform: selector + withArguments: ((self arguments, anArray) first: count) ] +] diff --git a/repository/Grease-GemStone-Core/Number.extension.st b/repository/Grease-GemStone-Core/Number.extension.st new file mode 100644 index 00000000..75daf2b5 --- /dev/null +++ b/repository/Grease-GemStone-Core/Number.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'Number' } + +{ #category : '*grease-gemstone-core' } +Number >> milliseconds [ + + ^self milliSeconds +] diff --git a/repository/Grease-GemStone-Core/Object.extension.st b/repository/Grease-GemStone-Core/Object.extension.st new file mode 100644 index 00000000..c9c7a19e --- /dev/null +++ b/repository/Grease-GemStone-Core/Object.extension.st @@ -0,0 +1,20 @@ +Extension { #name : 'Object' } + +{ #category : '*grease-gemstone-core' } +Object >> displayString [ + self + greaseDeprecatedApi: 'Object>>#displayString' + details: 'Use #seasideString.'. + ^ self asString +] + +{ #category : '*grease-gemstone-core' } +Object >> greaseString [ + ^ self asString +] + +{ #category : '*grease-gemstone-core' } +Object >> isMessageSend [ + + ^false. +] diff --git a/repository/Grease-GemStone-Core/PackageInfo.extension.st b/repository/Grease-GemStone-Core/PackageInfo.extension.st new file mode 100644 index 00000000..542b806d --- /dev/null +++ b/repository/Grease-GemStone-Core/PackageInfo.extension.st @@ -0,0 +1,10 @@ +Extension { #name : 'PackageInfo' } + +{ #category : '*grease-gemstone-core' } +PackageInfo >> versionString [ + | ancestor ancestors | + ancestors := (MCPackage named: self name) workingCopy ancestry ancestors. + ancestors isEmpty ifTrue: [ ^'unknown' ]. + ancestor := ancestors first. + ^ancestor name , '.mcz ' , ancestor date printString, ' ', ancestor time printString +] diff --git a/repository/Grease-GemStone-Core/PositionableStream.extension.st b/repository/Grease-GemStone-Core/PositionableStream.extension.st new file mode 100644 index 00000000..68fa87a5 --- /dev/null +++ b/repository/Grease-GemStone-Core/PositionableStream.extension.st @@ -0,0 +1,12 @@ +Extension { #name : 'PositionableStream' } + +{ #category : '*grease-gemstone-core' } +PositionableStream >> greaseUpToAll: aCollection [ + "Needed for Seaside ports to other dialects where #upToAll: may have + different semantics" + + | result | + result := self upToAll: aCollection. + self atEnd not ifTrue: [self skip: aCollection size]. + ^result. +] diff --git a/repository/Grease-GemStone-Core/SequenceableCollection.extension.st b/repository/Grease-GemStone-Core/SequenceableCollection.extension.st new file mode 100644 index 00000000..800d5bf8 --- /dev/null +++ b/repository/Grease-GemStone-Core/SequenceableCollection.extension.st @@ -0,0 +1,30 @@ +Extension { #name : 'SequenceableCollection' } + +{ #category : '*grease-gemstone-core' } +SequenceableCollection >> beginsWithSubCollection: aSequenceableCollection [ + "Some platforms implement #beginsWith: to answer true for an empty argument." + + aSequenceableCollection isEmpty ifTrue: [ ^false ]. + ^ self beginsWith: aSequenceableCollection +] + +{ #category : '*grease-gemstone-core' } +SequenceableCollection >> endsWithSubCollection: aSequenceableCollection [ + "Some platforms implement #endsWith: to answer true for an empty argument." + + ^ self endsWith: aSequenceableCollection +] + +{ #category : '*grease-gemstone-core' } +SequenceableCollection >> greaseBeginsWith: aSequenceableCollection [ + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self beginsWith: aSequenceableCollection +] + +{ #category : '*grease-gemstone-core' } +SequenceableCollection >> greaseEndsWith: aSequenceableCollection [ + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self endsWith: aSequenceableCollection +] diff --git a/repository/Grease-GemStone-Core/SmallInteger.extension.st b/repository/Grease-GemStone-Core/SmallInteger.extension.st new file mode 100644 index 00000000..f4558000 --- /dev/null +++ b/repository/Grease-GemStone-Core/SmallInteger.extension.st @@ -0,0 +1,13 @@ +Extension { #name : 'SmallInteger' } + +{ #category : '*grease-gemstone-core' } +SmallInteger >> greaseByteAt: index [ + + ^ self digitAt: index +] + +{ #category : '*grease-gemstone-core' } +SmallInteger >> greaseBytesCount [ + + ^ self digitLength +] diff --git a/repository/Grease-GemStone-Core/String.extension.st b/repository/Grease-GemStone-Core/String.extension.st new file mode 100644 index 00000000..6eb6fba0 --- /dev/null +++ b/repository/Grease-GemStone-Core/String.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'String' } + +{ #category : '*grease-gemstone-core' } +String class >> fromString: aString [ + + ^self withAll: aString. +] diff --git a/repository/Grease-GemStone-Core/Symbol.extension.st b/repository/Grease-GemStone-Core/Symbol.extension.st new file mode 100644 index 00000000..73bc046f --- /dev/null +++ b/repository/Grease-GemStone-Core/Symbol.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Symbol' } + +{ #category : '*grease-gemstone-Core' } +Symbol >> greaseAsMutator [ + ^ self asMutator +] diff --git a/repository/Grease-GemStone-Core/SystemAbortTransaction.class.st b/repository/Grease-GemStone-Core/SystemAbortTransaction.class.st new file mode 100644 index 00000000..d36c5739 --- /dev/null +++ b/repository/Grease-GemStone-Core/SystemAbortTransaction.class.st @@ -0,0 +1,24 @@ +Class { + #name : 'SystemAbortTransaction', + #superclass : 'SystemTransactionNotification', + #category : 'Grease-GemStone-Core', + #package : 'Grease-GemStone-Core' +} + +{ #category : 'accessing' } +SystemAbortTransaction >> alternatives [ + + ^'Please use SeasidePlatformSupport>>doRollbackUserObjects instead.' +] + +{ #category : 'ANSI - signaledException' } +SystemAbortTransaction >> defaultAction [ + + ^System abortTransaction +] + +{ #category : 'accessing' } +SystemAbortTransaction >> transaction [ + + ^'Abort' +] diff --git a/repository/Grease-GemStone-Core/SystemBeginTransaction.class.st b/repository/Grease-GemStone-Core/SystemBeginTransaction.class.st new file mode 100644 index 00000000..fcecc406 --- /dev/null +++ b/repository/Grease-GemStone-Core/SystemBeginTransaction.class.st @@ -0,0 +1,24 @@ +Class { + #name : 'SystemBeginTransaction', + #superclass : 'SystemTransactionNotification', + #category : 'Grease-GemStone-Core', + #package : 'Grease-GemStone-Core' +} + +{ #category : 'accessing' } +SystemBeginTransaction >> alternatives [ + + ^'Please use SeasidePlatformSupport>>doRollbackUserObjects instead.' +] + +{ #category : 'ANSI - signaledException' } +SystemBeginTransaction >> defaultAction [ + + ^System beginTransaction +] + +{ #category : 'accessing' } +SystemBeginTransaction >> transaction [ + + ^'Begin' +] diff --git a/repository/Grease-GemStone-Core/SystemCommitTransaction.class.st b/repository/Grease-GemStone-Core/SystemCommitTransaction.class.st new file mode 100644 index 00000000..c4247c94 --- /dev/null +++ b/repository/Grease-GemStone-Core/SystemCommitTransaction.class.st @@ -0,0 +1,24 @@ +Class { + #name : 'SystemCommitTransaction', + #superclass : 'SystemTransactionNotification', + #category : 'Grease-GemStone-Core', + #package : 'Grease-GemStone-Core' +} + +{ #category : 'accessing' } +SystemCommitTransaction >> alternatives [ + + ^'A commit is unnecessary. The framework will commit for you, before sending off the response.' +] + +{ #category : 'ANSI - signaledException' } +SystemCommitTransaction >> defaultAction [ + + ^System _commitPrintingDiagnostics +] + +{ #category : 'accessing' } +SystemCommitTransaction >> transaction [ + + ^'Commit' +] diff --git a/repository/Grease-GemStone-Core/SystemTransactionNotification.class.st b/repository/Grease-GemStone-Core/SystemTransactionNotification.class.st new file mode 100644 index 00000000..7a2c021d --- /dev/null +++ b/repository/Grease-GemStone-Core/SystemTransactionNotification.class.st @@ -0,0 +1,18 @@ +Class { + #name : 'SystemTransactionNotification', + #superclass : 'Notification', + #category : 'Grease-GemStone-Core', + #package : 'Grease-GemStone-Core' +} + +{ #category : 'accessing' } +SystemTransactionNotification >> alternatives [ + + self subclassResponsibility: #alternatives +] + +{ #category : 'accessing' } +SystemTransactionNotification >> transaction [ + + self subclassResponsibility: #transaction +] diff --git a/repository/Grease-GemStone-Core/UnorderedCollection.extension.st b/repository/Grease-GemStone-Core/UnorderedCollection.extension.st new file mode 100644 index 00000000..80fd88cb --- /dev/null +++ b/repository/Grease-GemStone-Core/UnorderedCollection.extension.st @@ -0,0 +1,11 @@ +Extension { #name : 'UnorderedCollection' } + +{ #category : '*grease-gemstone-core' } +UnorderedCollection >> copyFrom: anObject [ + + (anObject isKindOf: UnorderedCollection) ifFalse: [ + ^super copyFrom: anObject. + ]. + self removeAll: self copy. + self addAll: anObject. +] diff --git a/repository/Grease-GemStone-Core/WriteStream.extension.st b/repository/Grease-GemStone-Core/WriteStream.extension.st new file mode 100644 index 00000000..b44e1968 --- /dev/null +++ b/repository/Grease-GemStone-Core/WriteStream.extension.st @@ -0,0 +1,19 @@ +Extension { #name : 'WriteStream' } + +{ #category : '*grease-gemstone-core' } +WriteStream >> crlf [ + + self + nextPut: Character cr; + nextPut: Character lf; + yourself. +] + +{ #category : '*grease-gemstone-core' } +WriteStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + "Store the next anInteger elements from the given collection." + + (startIndex = 1 and:[anInteger = aCollection size]) + ifTrue:[^self nextPutAll: aCollection]. + ^self nextPutAll: (aCollection copyFrom: startIndex to: startIndex+anInteger-1) +] diff --git a/repository/Grease-GemStone-Core/package.st b/repository/Grease-GemStone-Core/package.st new file mode 100644 index 00000000..819ab98f --- /dev/null +++ b/repository/Grease-GemStone-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-GemStone-Core' } diff --git a/repository/Grease-GemStone-Kernelv370.package/.filetree b/repository/Grease-GemStone-Kernelv370.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-GemStone-Kernelv370.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-GemStone-Kernelv370.package/ReadByteStreamPortable.extension/instance/greaseUpToAll..st b/repository/Grease-GemStone-Kernelv370.package/ReadByteStreamPortable.extension/instance/greaseUpToAll..st deleted file mode 100644 index 4893d0d5..00000000 --- a/repository/Grease-GemStone-Kernelv370.package/ReadByteStreamPortable.extension/instance/greaseUpToAll..st +++ /dev/null @@ -1,6 +0,0 @@ -*grease-gemstone-kernelv370 -greaseUpToAll: aCollection - "Needed for Seaside ports to other dialects where #upToAll: may have - different semantics" - - ^self upToAll: aCollection \ No newline at end of file diff --git a/repository/Grease-GemStone-Kernelv370.package/ReadByteStreamPortable.extension/properties.json b/repository/Grease-GemStone-Kernelv370.package/ReadByteStreamPortable.extension/properties.json deleted file mode 100644 index 68bad717..00000000 --- a/repository/Grease-GemStone-Kernelv370.package/ReadByteStreamPortable.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "ReadByteStreamPortable" } diff --git a/repository/Grease-GemStone-Kernelv370.package/monticello.meta/initializers.st b/repository/Grease-GemStone-Kernelv370.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone-Kernelv370.package/monticello.meta/package b/repository/Grease-GemStone-Kernelv370.package/monticello.meta/package deleted file mode 100644 index ad2a0c29..00000000 --- a/repository/Grease-GemStone-Kernelv370.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-GemStone-Kernelv370') \ No newline at end of file diff --git a/repository/Grease-GemStone-Kernelv370.package/properties.json b/repository/Grease-GemStone-Kernelv370.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-GemStone-Kernelv370.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Grease-GemStone-Kernelv370/ReadByteStreamPortable.extension.st b/repository/Grease-GemStone-Kernelv370/ReadByteStreamPortable.extension.st new file mode 100644 index 00000000..3de0cea6 --- /dev/null +++ b/repository/Grease-GemStone-Kernelv370/ReadByteStreamPortable.extension.st @@ -0,0 +1,9 @@ +Extension { #name : 'ReadByteStreamPortable' } + +{ #category : '*grease-gemstone-kernelv370' } +ReadByteStreamPortable >> greaseUpToAll: aCollection [ + "Needed for Seaside ports to other dialects where #upToAll: may have + different semantics" + + ^self upToAll: aCollection +] diff --git a/repository/Grease-GemStone-Kernelv370/package.st b/repository/Grease-GemStone-Kernelv370/package.st new file mode 100644 index 00000000..076954ac --- /dev/null +++ b/repository/Grease-GemStone-Kernelv370/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-GemStone-Kernelv370' } diff --git a/repository/Grease-GemStone200-Core.package/.filetree b/repository/Grease-GemStone200-Core.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-GemStone200-Core.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st b/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st deleted file mode 100644 index 3ff01583..00000000 --- a/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone200-core -gemstoneExceptionSelector - - ^ (ExceptionSet new) , Halt, BreakpointNotification \ No newline at end of file diff --git a/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st b/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st deleted file mode 100644 index e07151e1..00000000 --- a/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st +++ /dev/null @@ -1,8 +0,0 @@ -*grease-gemstone200-core -generateHardBreak - "Generate a GemStone hard break" - - | errorNumber allArgs | - allArgs := { 'interrupted for Seaside debugging' } . - errorNumber := self _errorSymbolToNumber: #rtErrHardBreak args: allArgs . - ^System signal: errorNumber args: allArgs signalDictionary: GemStoneError \ No newline at end of file diff --git a/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st b/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st deleted file mode 100644 index 7f25da29..00000000 --- a/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone200-core -handlesAlmostOutOfStackException: anException - - ^false \ No newline at end of file diff --git a/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st b/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st deleted file mode 100644 index 75c4772e..00000000 --- a/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone200-core -handlesBreakpointException: anException - - ^BreakpointNotification handles: anException \ No newline at end of file diff --git a/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st b/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st deleted file mode 100644 index 8add9e46..00000000 --- a/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone200-core -handlesHaltException: anException - - ^Halt handles: anException \ No newline at end of file diff --git a/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/properties.json b/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/properties.json deleted file mode 100644 index eab5d9b5..00000000 --- a/repository/Grease-GemStone200-Core.package/GRGemStonePlatform.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRGemStonePlatform" } diff --git a/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/README.md b/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/crlf.st b/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/crlf.st deleted file mode 100644 index e5bb258a..00000000 --- a/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/crlf.st +++ /dev/null @@ -1,9 +0,0 @@ -streaming -crlf - binary - ifTrue: [ - stream nextPut: 13. - stream nextPut: 10 ] - ifFalse: [ - stream nextPut: Character cr. - stream nextPut: Character lf ] \ No newline at end of file diff --git a/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st deleted file mode 100644 index d38b2f3b..00000000 --- a/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/next..st b/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/next..st deleted file mode 100644 index 2f2af983..00000000 --- a/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/next..st +++ /dev/null @@ -1,37 +0,0 @@ -streaming -next: anInteger - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | outStream byte1 byte2 byte3 byte4 unicode count | - outStream := WriteStream on: (String new: anInteger). - count := 0. - [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ - byte1 := stream next. - unicode := byte1. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63)]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63)]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte4 := stream next. - (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63)]. - unicode ifNil: [ self invalidUtf8 ]. - unicode = 16rFEFF "ignore BOM" ifFalse: [ - outStream nextPut: (Character codePoint: unicode). - count := count + 1 ]. - unicode := nil ]. - ^outStream contents \ No newline at end of file diff --git a/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/nextPut..st deleted file mode 100644 index 8d31b3ab..00000000 --- a/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPut: aCharacter - self nextPutAll: (String with: aCharacter) \ No newline at end of file diff --git a/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st deleted file mode 100644 index 102e6906..00000000 --- a/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -nextPutAll: aString - binary - ifTrue: [ stream nextPutAll: aString asString ] - ifFalse: [ stream nextPutAll: aString encodeAsUTF8 asString ] \ No newline at end of file diff --git a/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/properties.json b/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/properties.json deleted file mode 100644 index fa08d721..00000000 --- a/repository/Grease-GemStone200-Core.package/GRUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-GemStone200-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUtf8CodecStream", - "pools" : [ - ], - "super" : "GRTextOrBinaryCodecStream", - "type" : "normal" } diff --git a/repository/Grease-GemStone200-Core.package/monticello.meta/categories.st b/repository/Grease-GemStone200-Core.package/monticello.meta/categories.st deleted file mode 100644 index 98766908..00000000 --- a/repository/Grease-GemStone200-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-GemStone200-Core'! diff --git a/repository/Grease-GemStone200-Core.package/monticello.meta/initializers.st b/repository/Grease-GemStone200-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone200-Core.package/monticello.meta/package b/repository/Grease-GemStone200-Core.package/monticello.meta/package deleted file mode 100644 index 1d439de8..00000000 --- a/repository/Grease-GemStone200-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-GemStone200-Core') \ No newline at end of file diff --git a/repository/Grease-GemStone200-Core.package/properties.json b/repository/Grease-GemStone200-Core.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-GemStone200-Core.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Grease-GemStone200-Core/GRGemStonePlatform.extension.st b/repository/Grease-GemStone200-Core/GRGemStonePlatform.extension.st new file mode 100644 index 00000000..d615d9c7 --- /dev/null +++ b/repository/Grease-GemStone200-Core/GRGemStonePlatform.extension.st @@ -0,0 +1,35 @@ +Extension { #name : 'GRGemStonePlatform' } + +{ #category : '*grease-gemstone200-core' } +GRGemStonePlatform >> gemstoneExceptionSelector [ + + ^ (ExceptionSet new) , Halt, BreakpointNotification +] + +{ #category : '*grease-gemstone200-core' } +GRGemStonePlatform >> generateHardBreak [ + "Generate a GemStone hard break" + + | errorNumber allArgs | + allArgs := { 'interrupted for Seaside debugging' } . + errorNumber := self _errorSymbolToNumber: #rtErrHardBreak args: allArgs . + ^System signal: errorNumber args: allArgs signalDictionary: GemStoneError +] + +{ #category : '*grease-gemstone200-core' } +GRGemStonePlatform >> handlesAlmostOutOfStackException: anException [ + + ^false +] + +{ #category : '*grease-gemstone200-core' } +GRGemStonePlatform >> handlesBreakpointException: anException [ + + ^BreakpointNotification handles: anException +] + +{ #category : '*grease-gemstone200-core' } +GRGemStonePlatform >> handlesHaltException: anException [ + + ^Halt handles: anException +] diff --git a/repository/Grease-GemStone200-Core/GRUtf8CodecStream.class.st b/repository/Grease-GemStone200-Core/GRUtf8CodecStream.class.st new file mode 100644 index 00000000..99775e9a --- /dev/null +++ b/repository/Grease-GemStone200-Core/GRUtf8CodecStream.class.st @@ -0,0 +1,73 @@ +Class { + #name : 'GRUtf8CodecStream', + #superclass : 'GRTextOrBinaryCodecStream', + #category : 'Grease-GemStone200-Core', + #package : 'Grease-GemStone200-Core' +} + +{ #category : 'streaming' } +GRUtf8CodecStream >> crlf [ + binary + ifTrue: [ + stream nextPut: 13. + stream nextPut: 10 ] + ifFalse: [ + stream nextPut: Character cr. + stream nextPut: Character lf ] +] + +{ #category : 'private' } +GRUtf8CodecStream >> invalidUtf8 [ + ^GRInvalidUtf8Error signal: 'Invalid UTF-8 input' +] + +{ #category : 'streaming' } +GRUtf8CodecStream >> next: anInteger [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | outStream byte1 byte2 byte3 byte4 unicode count | + outStream := WriteStream on: (String new: anInteger). + count := 0. + [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ + byte1 := stream next. + unicode := byte1. + (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63)]. + (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) + + (byte3 bitAnd: 63)]. + (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte4 := stream next. + (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + + ((byte2 bitAnd: 63) bitShift: 12) + + ((byte3 bitAnd: 63) bitShift: 6) + + (byte4 bitAnd: 63)]. + unicode ifNil: [ self invalidUtf8 ]. + unicode = 16rFEFF "ignore BOM" ifFalse: [ + outStream nextPut: (Character codePoint: unicode). + count := count + 1 ]. + unicode := nil ]. + ^outStream contents +] + +{ #category : 'streaming' } +GRUtf8CodecStream >> nextPut: aCharacter [ + self nextPutAll: (String with: aCharacter) +] + +{ #category : 'streaming' } +GRUtf8CodecStream >> nextPutAll: aString [ + binary + ifTrue: [ stream nextPutAll: aString asString ] + ifFalse: [ stream nextPutAll: aString encodeAsUTF8 asString ] +] diff --git a/repository/Grease-GemStone200-Core/package.st b/repository/Grease-GemStone200-Core/package.st new file mode 100644 index 00000000..6ecdd5d2 --- /dev/null +++ b/repository/Grease-GemStone200-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-GemStone200-Core' } diff --git a/repository/Grease-GemStone230-Core.package/.filetree b/repository/Grease-GemStone230-Core.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-GemStone230-Core.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-GemStone230-Core.package/TransientRandom.extension/instance/open.st b/repository/Grease-GemStone230-Core.package/TransientRandom.extension/instance/open.st deleted file mode 100644 index a068a275..00000000 --- a/repository/Grease-GemStone230-Core.package/TransientRandom.extension/instance/open.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-gemstone230-core -open - "noop in TransientRandom instance .. compatible with HostRandom in 3.0" \ No newline at end of file diff --git a/repository/Grease-GemStone230-Core.package/TransientRandom.extension/properties.json b/repository/Grease-GemStone230-Core.package/TransientRandom.extension/properties.json deleted file mode 100644 index 1ee6e3ba..00000000 --- a/repository/Grease-GemStone230-Core.package/TransientRandom.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "TransientRandom" } diff --git a/repository/Grease-GemStone230-Core.package/monticello.meta/initializers.st b/repository/Grease-GemStone230-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone230-Core.package/monticello.meta/package b/repository/Grease-GemStone230-Core.package/monticello.meta/package deleted file mode 100644 index 781e5dc0..00000000 --- a/repository/Grease-GemStone230-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-GemStone230-Core') \ No newline at end of file diff --git a/repository/Grease-GemStone230-Core.package/properties.json b/repository/Grease-GemStone230-Core.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-GemStone230-Core.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Grease-GemStone230-Core/TransientRandom.extension.st b/repository/Grease-GemStone230-Core/TransientRandom.extension.st new file mode 100644 index 00000000..22e44df8 --- /dev/null +++ b/repository/Grease-GemStone230-Core/TransientRandom.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'TransientRandom' } + +{ #category : '*grease-gemstone230-core' } +TransientRandom >> open [ + "noop in TransientRandom instance .. compatible with HostRandom in 3.0" +] diff --git a/repository/Grease-GemStone230-Core/package.st b/repository/Grease-GemStone230-Core/package.st new file mode 100644 index 00000000..6c924aeb --- /dev/null +++ b/repository/Grease-GemStone230-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-GemStone230-Core' } diff --git a/repository/Grease-GemStone240-Core.package/.filetree b/repository/Grease-GemStone240-Core.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-GemStone240-Core.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-GemStone240-Core.package/ExceptionA.extension/class/raiseSignal..st b/repository/Grease-GemStone240-Core.package/ExceptionA.extension/class/raiseSignal..st deleted file mode 100644 index d2118613..00000000 --- a/repository/Grease-GemStone240-Core.package/ExceptionA.extension/class/raiseSignal..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-gemstone240-core -raiseSignal: aString - ^ self signal: aString \ No newline at end of file diff --git a/repository/Grease-GemStone240-Core.package/ExceptionA.extension/instance/greaseString.st b/repository/Grease-GemStone240-Core.package/ExceptionA.extension/instance/greaseString.st deleted file mode 100644 index e765e596..00000000 --- a/repository/Grease-GemStone240-Core.package/ExceptionA.extension/instance/greaseString.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone240-core -greaseString - - ^self description diff --git a/repository/Grease-GemStone240-Core.package/ExceptionA.extension/instance/raiseSignal..st b/repository/Grease-GemStone240-Core.package/ExceptionA.extension/instance/raiseSignal..st deleted file mode 100644 index d2118613..00000000 --- a/repository/Grease-GemStone240-Core.package/ExceptionA.extension/instance/raiseSignal..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-gemstone240-core -raiseSignal: aString - ^ self signal: aString \ No newline at end of file diff --git a/repository/Grease-GemStone240-Core.package/ExceptionA.extension/instance/raiseSignal.st b/repository/Grease-GemStone240-Core.package/ExceptionA.extension/instance/raiseSignal.st deleted file mode 100644 index 3da133cf..00000000 --- a/repository/Grease-GemStone240-Core.package/ExceptionA.extension/instance/raiseSignal.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone240-core -raiseSignal - - ^self signal \ No newline at end of file diff --git a/repository/Grease-GemStone240-Core.package/ExceptionA.extension/properties.json b/repository/Grease-GemStone240-Core.package/ExceptionA.extension/properties.json deleted file mode 100644 index 5c59a561..00000000 --- a/repository/Grease-GemStone240-Core.package/ExceptionA.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "ExceptionA" } diff --git a/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/argumentCount.st b/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/argumentCount.st deleted file mode 100644 index ec65776e..00000000 --- a/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/argumentCount.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemStone240-core -argumentCount - - ^self numArgs. \ No newline at end of file diff --git a/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/ifCurtailed..st b/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/ifCurtailed..st deleted file mode 100644 index fca1f9df..00000000 --- a/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/ifCurtailed..st +++ /dev/null @@ -1,11 +0,0 @@ -*grease-gemStone240-core -ifCurtailed: aBlock - - | wasCurtailed | - wasCurtailed := true. - [ - self value. - wasCurtailed := false. - ] ensure: [ - wasCurtailed ifTrue: aBlock. - ]. \ No newline at end of file diff --git a/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/tempVarRefs.st b/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/tempVarRefs.st deleted file mode 100644 index 85fad4fd..00000000 --- a/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/tempVarRefs.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-gemStone240-core -tempVarRefs - self halt. \ No newline at end of file diff --git a/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/valueWithPossibleArguments..st b/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index f1e7d746..00000000 --- a/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,9 +0,0 @@ -*grease-gemStone240-core -valueWithPossibleArguments: anArray - "Evaluate the block represented by the receiver with the arguments provided." - | n args | - (n := self numArgs) == 0 ifTrue: [^self value]. - args := anArray copy - size: n; - yourself. - ^ self valueWithArguments: args. \ No newline at end of file diff --git a/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/properties.json b/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/properties.json deleted file mode 100644 index 8a0cc1b3..00000000 --- a/repository/Grease-GemStone240-Core.package/ExecutableBlock.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "ExecutableBlock" } diff --git a/repository/Grease-GemStone240-Core.package/TransientRandom.extension/instance/open.st b/repository/Grease-GemStone240-Core.package/TransientRandom.extension/instance/open.st deleted file mode 100644 index 62bff3b7..00000000 --- a/repository/Grease-GemStone240-Core.package/TransientRandom.extension/instance/open.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-gemstone240-core -open - "noop in TransientRandom instance .. compatible with HostRandom in 3.0" \ No newline at end of file diff --git a/repository/Grease-GemStone240-Core.package/TransientRandom.extension/properties.json b/repository/Grease-GemStone240-Core.package/TransientRandom.extension/properties.json deleted file mode 100644 index 1ee6e3ba..00000000 --- a/repository/Grease-GemStone240-Core.package/TransientRandom.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "TransientRandom" } diff --git a/repository/Grease-GemStone240-Core.package/monticello.meta/initializers.st b/repository/Grease-GemStone240-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone240-Core.package/monticello.meta/package b/repository/Grease-GemStone240-Core.package/monticello.meta/package deleted file mode 100644 index 33299978..00000000 --- a/repository/Grease-GemStone240-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-GemStone240-Core') \ No newline at end of file diff --git a/repository/Grease-GemStone240-Core.package/properties.json b/repository/Grease-GemStone240-Core.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-GemStone240-Core.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Grease-GemStone240-Core/ExceptionA.extension.st b/repository/Grease-GemStone240-Core/ExceptionA.extension.st new file mode 100644 index 00000000..954b6ad8 --- /dev/null +++ b/repository/Grease-GemStone240-Core/ExceptionA.extension.st @@ -0,0 +1,24 @@ +Extension { #name : 'ExceptionA' } + +{ #category : '*grease-gemstone240-core' } +ExceptionA >> greaseString [ + + ^self description + +] + +{ #category : '*grease-gemstone240-core' } +ExceptionA >> raiseSignal [ + + ^self signal +] + +{ #category : '*grease-gemstone240-core' } +ExceptionA classSide >> raiseSignal: aString [ + ^ self signal: aString +] + +{ #category : '*grease-gemstone240-core' } +ExceptionA >> raiseSignal: aString [ + ^ self signal: aString +] diff --git a/repository/Grease-GemStone240-Core/ExecutableBlock.extension.st b/repository/Grease-GemStone240-Core/ExecutableBlock.extension.st new file mode 100644 index 00000000..8e039502 --- /dev/null +++ b/repository/Grease-GemStone240-Core/ExecutableBlock.extension.st @@ -0,0 +1,36 @@ +Extension { #name : 'ExecutableBlock' } + +{ #category : '*grease-gemStone240-core' } +ExecutableBlock >> argumentCount [ + + ^self numArgs. +] + +{ #category : '*grease-gemStone240-core' } +ExecutableBlock >> ifCurtailed: aBlock [ + + | wasCurtailed | + wasCurtailed := true. + [ + self value. + wasCurtailed := false. + ] ensure: [ + wasCurtailed ifTrue: aBlock. + ]. +] + +{ #category : '*grease-gemStone240-core' } +ExecutableBlock >> tempVarRefs [ + self halt. +] + +{ #category : '*grease-gemStone240-core' } +ExecutableBlock >> valueWithPossibleArguments: anArray [ + "Evaluate the block represented by the receiver with the arguments provided." + | n args | + (n := self numArgs) == 0 ifTrue: [^self value]. + args := anArray copy + size: n; + yourself. + ^ self valueWithArguments: args. +] diff --git a/repository/Grease-GemStone240-Core/TransientRandom.extension.st b/repository/Grease-GemStone240-Core/TransientRandom.extension.st new file mode 100644 index 00000000..cf2cf694 --- /dev/null +++ b/repository/Grease-GemStone240-Core/TransientRandom.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'TransientRandom' } + +{ #category : '*grease-gemstone240-core' } +TransientRandom >> open [ + "noop in TransientRandom instance .. compatible with HostRandom in 3.0" +] diff --git a/repository/Grease-GemStone240-Core/package.st b/repository/Grease-GemStone240-Core/package.st new file mode 100644 index 00000000..1c88ce49 --- /dev/null +++ b/repository/Grease-GemStone240-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-GemStone240-Core' } diff --git a/repository/Grease-GemStone300-Core.package/.filetree b/repository/Grease-GemStone300-Core.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-GemStone300-Core.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-GemStone300-Core.package/Exception.extension/instance/greaseString.st b/repository/Grease-GemStone300-Core.package/Exception.extension/instance/greaseString.st deleted file mode 100644 index 01282d5c..00000000 --- a/repository/Grease-GemStone300-Core.package/Exception.extension/instance/greaseString.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone300-core -greaseString - - ^self description diff --git a/repository/Grease-GemStone300-Core.package/Exception.extension/properties.json b/repository/Grease-GemStone300-Core.package/Exception.extension/properties.json deleted file mode 100644 index 6dcfd842..00000000 --- a/repository/Grease-GemStone300-Core.package/Exception.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Exception" } diff --git a/repository/Grease-GemStone300-Core.package/ExecBlock.extension/instance/argumentCount.st b/repository/Grease-GemStone300-Core.package/ExecBlock.extension/instance/argumentCount.st deleted file mode 100644 index 4e757f37..00000000 --- a/repository/Grease-GemStone300-Core.package/ExecBlock.extension/instance/argumentCount.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone300-core -argumentCount - - ^self numArgs. diff --git a/repository/Grease-GemStone300-Core.package/ExecBlock.extension/instance/ifCurtailed..st b/repository/Grease-GemStone300-Core.package/ExecBlock.extension/instance/ifCurtailed..st deleted file mode 100644 index ec6a6358..00000000 --- a/repository/Grease-GemStone300-Core.package/ExecBlock.extension/instance/ifCurtailed..st +++ /dev/null @@ -1,11 +0,0 @@ -*grease-gemstone300-core -ifCurtailed: aBlock - - | wasCurtailed | - wasCurtailed := true. - [ - self value. - wasCurtailed := false. - ] ensure: [ - wasCurtailed ifTrue: aBlock. - ]. diff --git a/repository/Grease-GemStone300-Core.package/ExecBlock.extension/instance/valueWithPossibleArguments..st b/repository/Grease-GemStone300-Core.package/ExecBlock.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index ba2400d0..00000000 --- a/repository/Grease-GemStone300-Core.package/ExecBlock.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,9 +0,0 @@ -*grease-gemstone300-core -valueWithPossibleArguments: anArray - "Evaluate the block represented by the receiver with the arguments provided." - | n args | - (n := self numArgs) == 0 ifTrue: [^self value]. - args := anArray copy - size: n; - yourself. - ^ self valueWithArguments: args. diff --git a/repository/Grease-GemStone300-Core.package/ExecBlock.extension/properties.json b/repository/Grease-GemStone300-Core.package/ExecBlock.extension/properties.json deleted file mode 100644 index d8195e28..00000000 --- a/repository/Grease-GemStone300-Core.package/ExecBlock.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "ExecBlock" } diff --git a/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st b/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st deleted file mode 100644 index 92ad6c21..00000000 --- a/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone300-core -gemstoneExceptionSelector - - ^ (ExceptionSet new) , Halt, AlmostOutOfStack, Breakpoint \ No newline at end of file diff --git a/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st b/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st deleted file mode 100644 index 40caab9d..00000000 --- a/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-gemstone300-core -generateHardBreak - "Generate a GemStone hard break" - - ^Break signal: 'interrupted for Seaside debugging' \ No newline at end of file diff --git a/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st b/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st deleted file mode 100644 index 1a97c7a3..00000000 --- a/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone300-core -handlesAlmostOutOfStackException: anException - - ^AlmostOutOfStack handles: anException \ No newline at end of file diff --git a/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st b/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st deleted file mode 100644 index 28017802..00000000 --- a/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone300-core -handlesBreakpointException: anException - - ^Breakpoint handles: anException \ No newline at end of file diff --git a/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st b/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st deleted file mode 100644 index 749fc1a3..00000000 --- a/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone300-core -handlesHaltException: anException - - ^Halt handles: anException \ No newline at end of file diff --git a/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/properties.json b/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/properties.json deleted file mode 100644 index eab5d9b5..00000000 --- a/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRGemStonePlatform" } diff --git a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/README.md b/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/class/initialize.st b/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/class/initialize.st deleted file mode 100644 index 8600b84d..00000000 --- a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/class/initialize.st +++ /dev/null @@ -1,12 +0,0 @@ -initialization -initialize - "self initialize" - - Latin1ToUtf8Encodings := Array new: 256. - 1 to: 256 do: [ :index | - index > 128 - ifTrue: [ - Latin1ToUtf8Encodings - at: index - put: - (String with: (Character codePoint: index - 1)) encodeAsUTF8 asString ] ] diff --git a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/crlf.st b/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/crlf.st deleted file mode 100644 index e5bb258a..00000000 --- a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/crlf.st +++ /dev/null @@ -1,9 +0,0 @@ -streaming -crlf - binary - ifTrue: [ - stream nextPut: 13. - stream nextPut: 10 ] - ifFalse: [ - stream nextPut: Character cr. - stream nextPut: Character lf ] \ No newline at end of file diff --git a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st deleted file mode 100644 index d38b2f3b..00000000 --- a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/next..st b/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/next..st deleted file mode 100644 index 2f2af983..00000000 --- a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/next..st +++ /dev/null @@ -1,37 +0,0 @@ -streaming -next: anInteger - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | outStream byte1 byte2 byte3 byte4 unicode count | - outStream := WriteStream on: (String new: anInteger). - count := 0. - [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ - byte1 := stream next. - unicode := byte1. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63)]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63)]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte4 := stream next. - (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63)]. - unicode ifNil: [ self invalidUtf8 ]. - unicode = 16rFEFF "ignore BOM" ifFalse: [ - outStream nextPut: (Character codePoint: unicode). - count := count + 1 ]. - unicode := nil ]. - ^outStream contents \ No newline at end of file diff --git a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/nextPut..st deleted file mode 100644 index 1f98bba7..00000000 --- a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,17 +0,0 @@ -streaming -nextPut: aCharacter - "old implementation is very slow !!" - - " self nextPutAll: (String with: aCharacter)" - - | codePoint | - codePoint := aCharacter codePoint. - codePoint > 127 - ifTrue: [ - codePoint > 255 - ifTrue: [ - | str | - str := (String with: aCharacter) encodeAsUTF8intoString. - stream nextPutAll: str ] - ifFalse: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] ] - ifFalse: [ stream nextPut: aCharacter ] \ No newline at end of file diff --git a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st deleted file mode 100644 index 6cfcd346..00000000 --- a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,13 +0,0 @@ -streaming -nextPutAll: aString - "conversion of smaller string is faster if not using the changeClassTo: trick" - - binary - ifTrue: [ stream nextPutAll: aString asString ] - ifFalse: [ - aString size > 8 - ifTrue: [ stream nextPutAll: (aString encodeAsUTF8 changeClassTo: String) ] - ifFalse: [ - | str | - str := aString encodeAsUTF8intoString. - stream nextPutAll: str ] ] \ No newline at end of file diff --git a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/properties.json b/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/properties.json deleted file mode 100644 index 72d5c1df..00000000 --- a/repository/Grease-GemStone300-Core.package/GRUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-GemStone300-Core", - "classinstvars" : [ - ], - "classvars" : [ - "Latin1ToUtf8Encodings" ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUtf8CodecStream", - "pools" : [ - ], - "super" : "GRTextOrBinaryCodecStream", - "type" : "normal" } diff --git a/repository/Grease-GemStone300-Core.package/monticello.meta/categories.st b/repository/Grease-GemStone300-Core.package/monticello.meta/categories.st deleted file mode 100644 index 27b205b5..00000000 --- a/repository/Grease-GemStone300-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-GemStone300-Core'! diff --git a/repository/Grease-GemStone300-Core.package/monticello.meta/initializers.st b/repository/Grease-GemStone300-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone300-Core.package/monticello.meta/package b/repository/Grease-GemStone300-Core.package/monticello.meta/package deleted file mode 100644 index a46c2b12..00000000 --- a/repository/Grease-GemStone300-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-GemStone300-Core') \ No newline at end of file diff --git a/repository/Grease-GemStone300-Core.package/properties.json b/repository/Grease-GemStone300-Core.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-GemStone300-Core.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Grease-GemStone300-Core/Exception.extension.st b/repository/Grease-GemStone300-Core/Exception.extension.st new file mode 100644 index 00000000..b7d0cfb8 --- /dev/null +++ b/repository/Grease-GemStone300-Core/Exception.extension.st @@ -0,0 +1,8 @@ +Extension { #name : 'Exception' } + +{ #category : '*grease-gemstone300-core' } +Exception >> greaseString [ + + ^self description + +] diff --git a/repository/Grease-GemStone300-Core/ExecBlock.extension.st b/repository/Grease-GemStone300-Core/ExecBlock.extension.st new file mode 100644 index 00000000..019ffd61 --- /dev/null +++ b/repository/Grease-GemStone300-Core/ExecBlock.extension.st @@ -0,0 +1,34 @@ +Extension { #name : 'ExecBlock' } + +{ #category : '*grease-gemstone300-core' } +ExecBlock >> argumentCount [ + + ^self numArgs. + +] + +{ #category : '*grease-gemstone300-core' } +ExecBlock >> ifCurtailed: aBlock [ + + | wasCurtailed | + wasCurtailed := true. + [ + self value. + wasCurtailed := false. + ] ensure: [ + wasCurtailed ifTrue: aBlock. + ]. + +] + +{ #category : '*grease-gemstone300-core' } +ExecBlock >> valueWithPossibleArguments: anArray [ + "Evaluate the block represented by the receiver with the arguments provided." + | n args | + (n := self numArgs) == 0 ifTrue: [^self value]. + args := anArray copy + size: n; + yourself. + ^ self valueWithArguments: args. + +] diff --git a/repository/Grease-GemStone300-Core/GRGemStonePlatform.extension.st b/repository/Grease-GemStone300-Core/GRGemStonePlatform.extension.st new file mode 100644 index 00000000..dac36501 --- /dev/null +++ b/repository/Grease-GemStone300-Core/GRGemStonePlatform.extension.st @@ -0,0 +1,32 @@ +Extension { #name : 'GRGemStonePlatform' } + +{ #category : '*grease-gemstone300-core' } +GRGemStonePlatform >> gemstoneExceptionSelector [ + + ^ (ExceptionSet new) , Halt, AlmostOutOfStack, Breakpoint +] + +{ #category : '*grease-gemstone300-core' } +GRGemStonePlatform >> generateHardBreak [ + "Generate a GemStone hard break" + + ^Break signal: 'interrupted for Seaside debugging' +] + +{ #category : '*grease-gemstone300-core' } +GRGemStonePlatform >> handlesAlmostOutOfStackException: anException [ + + ^AlmostOutOfStack handles: anException +] + +{ #category : '*grease-gemstone300-core' } +GRGemStonePlatform >> handlesBreakpointException: anException [ + + ^Breakpoint handles: anException +] + +{ #category : '*grease-gemstone300-core' } +GRGemStonePlatform >> handlesHaltException: anException [ + + ^Halt handles: anException +] diff --git a/repository/Grease-GemStone300-Core/GRUtf8CodecStream.class.st b/repository/Grease-GemStone300-Core/GRUtf8CodecStream.class.st new file mode 100644 index 00000000..98a03d4d --- /dev/null +++ b/repository/Grease-GemStone300-Core/GRUtf8CodecStream.class.st @@ -0,0 +1,113 @@ +Class { + #name : 'GRUtf8CodecStream', + #superclass : 'GRTextOrBinaryCodecStream', + #classVars : [ + 'Latin1ToUtf8Encodings' + ], + #category : 'Grease-GemStone300-Core', + #package : 'Grease-GemStone300-Core' +} + +{ #category : 'initialization' } +GRUtf8CodecStream class >> initialize [ + "self initialize" + + Latin1ToUtf8Encodings := Array new: 256. + 1 to: 256 do: [ :index | + index > 128 + ifTrue: [ + Latin1ToUtf8Encodings + at: index + put: + (String with: (Character codePoint: index - 1)) encodeAsUTF8 asString ] ] + +] + +{ #category : 'streaming' } +GRUtf8CodecStream >> crlf [ + binary + ifTrue: [ + stream nextPut: 13. + stream nextPut: 10 ] + ifFalse: [ + stream nextPut: Character cr. + stream nextPut: Character lf ] +] + +{ #category : 'private' } +GRUtf8CodecStream >> invalidUtf8 [ + ^GRInvalidUtf8Error signal: 'Invalid UTF-8 input' +] + +{ #category : 'streaming' } +GRUtf8CodecStream >> next: anInteger [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | outStream byte1 byte2 byte3 byte4 unicode count | + outStream := WriteStream on: (String new: anInteger). + count := 0. + [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ + byte1 := stream next. + unicode := byte1. + (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63)]. + (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) + + (byte3 bitAnd: 63)]. + (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte4 := stream next. + (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + + ((byte2 bitAnd: 63) bitShift: 12) + + ((byte3 bitAnd: 63) bitShift: 6) + + (byte4 bitAnd: 63)]. + unicode ifNil: [ self invalidUtf8 ]. + unicode = 16rFEFF "ignore BOM" ifFalse: [ + outStream nextPut: (Character codePoint: unicode). + count := count + 1 ]. + unicode := nil ]. + ^outStream contents +] + +{ #category : 'streaming' } +GRUtf8CodecStream >> nextPut: aCharacter [ + "old implementation is very slow !!" + + " self nextPutAll: (String with: aCharacter)" + + | codePoint | + codePoint := aCharacter codePoint. + codePoint > 127 + ifTrue: [ + codePoint > 255 + ifTrue: [ + | str | + str := (String with: aCharacter) encodeAsUTF8intoString. + stream nextPutAll: str ] + ifFalse: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] ] + ifFalse: [ stream nextPut: aCharacter ] +] + +{ #category : 'streaming' } +GRUtf8CodecStream >> nextPutAll: aString [ + "conversion of smaller string is faster if not using the changeClassTo: trick" + + binary + ifTrue: [ stream nextPutAll: aString asString ] + ifFalse: [ + aString size > 8 + ifTrue: [ stream nextPutAll: (aString encodeAsUTF8 changeClassTo: String) ] + ifFalse: [ + | str | + str := aString encodeAsUTF8intoString. + stream nextPutAll: str ] ] +] diff --git a/repository/Grease-GemStone300-Core/package.st b/repository/Grease-GemStone300-Core/package.st new file mode 100644 index 00000000..8ca8fb76 --- /dev/null +++ b/repository/Grease-GemStone300-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-GemStone300-Core' } diff --git a/repository/Grease-GemStone330-Core.package/.filetree b/repository/Grease-GemStone330-Core.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-GemStone330-Core.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-GemStone330-Core.package/Exception.extension/instance/greaseString.st b/repository/Grease-GemStone330-Core.package/Exception.extension/instance/greaseString.st deleted file mode 100644 index ea4bff53..00000000 --- a/repository/Grease-GemStone330-Core.package/Exception.extension/instance/greaseString.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone330-core -greaseString - - ^self description \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/Exception.extension/properties.json b/repository/Grease-GemStone330-Core.package/Exception.extension/properties.json deleted file mode 100644 index 6dcfd842..00000000 --- a/repository/Grease-GemStone330-Core.package/Exception.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Exception" } diff --git a/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/argumentCount.st b/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/argumentCount.st deleted file mode 100644 index 9f25fa98..00000000 --- a/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/argumentCount.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone330-core -argumentCount - - ^self numArgs. \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/ifCurtailed..st b/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/ifCurtailed..st deleted file mode 100644 index cc75520a..00000000 --- a/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/ifCurtailed..st +++ /dev/null @@ -1,11 +0,0 @@ -*grease-gemstone330-core -ifCurtailed: aBlock - - | wasCurtailed | - wasCurtailed := true. - [ - self value. - wasCurtailed := false. - ] ensure: [ - wasCurtailed ifTrue: aBlock. - ]. \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/valueWithPossibleArguments..st b/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index 5e1d8c5d..00000000 --- a/repository/Grease-GemStone330-Core.package/ExecBlock.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,9 +0,0 @@ -*grease-gemstone330-core -valueWithPossibleArguments: anArray - "Evaluate the block represented by the receiver with the arguments provided." - | n args | - (n := self numArgs) == 0 ifTrue: [^self value]. - args := anArray copy - size: n; - yourself. - ^ self valueWithArguments: args. \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/ExecBlock.extension/properties.json b/repository/Grease-GemStone330-Core.package/ExecBlock.extension/properties.json deleted file mode 100644 index d8195e28..00000000 --- a/repository/Grease-GemStone330-Core.package/ExecBlock.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "ExecBlock" } diff --git a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st deleted file mode 100644 index 05cad772..00000000 --- a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/gemstoneExceptionSelector.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone330-core -gemstoneExceptionSelector - - ^ (ExceptionSet new) , Halt, AlmostOutOfStack, Breakpoint \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st deleted file mode 100644 index 458d1366..00000000 --- a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/generateHardBreak.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-gemstone330-core -generateHardBreak - "Generate a GemStone hard break" - - ^Break signal: 'interrupted for Seaside debugging' \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st deleted file mode 100644 index 725be222..00000000 --- a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesAlmostOutOfStackException..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone330-core -handlesAlmostOutOfStackException: anException - - ^AlmostOutOfStack handles: anException \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st deleted file mode 100644 index d82b699a..00000000 --- a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesBreakpointException..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone330-core -handlesBreakpointException: anException - - ^Breakpoint handles: anException \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st deleted file mode 100644 index 45fffeb8..00000000 --- a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/handlesHaltException..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-gemstone330-core -handlesHaltException: anException - - ^Halt handles: anException \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/properties.json b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/properties.json deleted file mode 100644 index eab5d9b5..00000000 --- a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRGemStonePlatform" } diff --git a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/README.md b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/class/initialize.st b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/class/initialize.st deleted file mode 100644 index fa779537..00000000 --- a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/class/initialize.st +++ /dev/null @@ -1,12 +0,0 @@ -initialization -initialize - "self initialize" - - Latin1ToUtf8Encodings := Array new: 256. - 1 to: 256 do: [ :index | - index > 128 - ifTrue: [ - Latin1ToUtf8Encodings - at: index - put: - (String with: (Character codePoint: index - 1)) encodeAsUTF8 asString ] ] \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/crlf.st b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/crlf.st deleted file mode 100644 index e5bb258a..00000000 --- a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/crlf.st +++ /dev/null @@ -1,9 +0,0 @@ -streaming -crlf - binary - ifTrue: [ - stream nextPut: 13. - stream nextPut: 10 ] - ifFalse: [ - stream nextPut: Character cr. - stream nextPut: Character lf ] \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st deleted file mode 100644 index d38b2f3b..00000000 --- a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/next..st b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/next..st deleted file mode 100644 index 2f2af983..00000000 --- a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/next..st +++ /dev/null @@ -1,37 +0,0 @@ -streaming -next: anInteger - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | outStream byte1 byte2 byte3 byte4 unicode count | - outStream := WriteStream on: (String new: anInteger). - count := 0. - [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ - byte1 := stream next. - unicode := byte1. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63)]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63)]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte4 := stream next. - (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63)]. - unicode ifNil: [ self invalidUtf8 ]. - unicode = 16rFEFF "ignore BOM" ifFalse: [ - outStream nextPut: (Character codePoint: unicode). - count := count + 1 ]. - unicode := nil ]. - ^outStream contents \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/nextPut..st deleted file mode 100644 index 1f98bba7..00000000 --- a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,17 +0,0 @@ -streaming -nextPut: aCharacter - "old implementation is very slow !!" - - " self nextPutAll: (String with: aCharacter)" - - | codePoint | - codePoint := aCharacter codePoint. - codePoint > 127 - ifTrue: [ - codePoint > 255 - ifTrue: [ - | str | - str := (String with: aCharacter) encodeAsUTF8intoString. - stream nextPutAll: str ] - ifFalse: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] ] - ifFalse: [ stream nextPut: aCharacter ] \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st deleted file mode 100644 index d43ab2ef..00000000 --- a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -nextPutAll: aString - binary - ifTrue: [ stream nextPutAll: aString asString ] - ifFalse: [ stream nextPutAll: aString _encodeAsUTF8intoString ] \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/properties.json b/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/properties.json deleted file mode 100644 index 00add781..00000000 --- a/repository/Grease-GemStone330-Core.package/GRUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-GemStone330-Core", - "classinstvars" : [ - ], - "classvars" : [ - "Latin1ToUtf8Encodings" ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUtf8CodecStream", - "pools" : [ - ], - "super" : "GRTextOrBinaryCodecStream", - "type" : "normal" } diff --git a/repository/Grease-GemStone330-Core.package/monticello.meta/categories.st b/repository/Grease-GemStone330-Core.package/monticello.meta/categories.st deleted file mode 100644 index e25af126..00000000 --- a/repository/Grease-GemStone330-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-GemStone330-Core'! diff --git a/repository/Grease-GemStone330-Core.package/monticello.meta/initializers.st b/repository/Grease-GemStone330-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-GemStone330-Core.package/monticello.meta/package b/repository/Grease-GemStone330-Core.package/monticello.meta/package deleted file mode 100644 index e20588a2..00000000 --- a/repository/Grease-GemStone330-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-GemStone330-Core') \ No newline at end of file diff --git a/repository/Grease-GemStone330-Core.package/properties.json b/repository/Grease-GemStone330-Core.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-GemStone330-Core.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Grease-GemStone330-Core/Exception.extension.st b/repository/Grease-GemStone330-Core/Exception.extension.st new file mode 100644 index 00000000..a32b462e --- /dev/null +++ b/repository/Grease-GemStone330-Core/Exception.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'Exception' } + +{ #category : '*grease-gemstone330-core' } +Exception >> greaseString [ + + ^self description +] diff --git a/repository/Grease-GemStone330-Core/ExecBlock.extension.st b/repository/Grease-GemStone330-Core/ExecBlock.extension.st new file mode 100644 index 00000000..21ff39b8 --- /dev/null +++ b/repository/Grease-GemStone330-Core/ExecBlock.extension.st @@ -0,0 +1,31 @@ +Extension { #name : 'ExecBlock' } + +{ #category : '*grease-gemstone330-core' } +ExecBlock >> argumentCount [ + + ^self numArgs. +] + +{ #category : '*grease-gemstone330-core' } +ExecBlock >> ifCurtailed: aBlock [ + + | wasCurtailed | + wasCurtailed := true. + [ + self value. + wasCurtailed := false. + ] ensure: [ + wasCurtailed ifTrue: aBlock. + ]. +] + +{ #category : '*grease-gemstone330-core' } +ExecBlock >> valueWithPossibleArguments: anArray [ + "Evaluate the block represented by the receiver with the arguments provided." + | n args | + (n := self numArgs) == 0 ifTrue: [^self value]. + args := anArray copy + size: n; + yourself. + ^ self valueWithArguments: args. +] diff --git a/repository/Grease-GemStone330-Core/GRGemStonePlatform.extension.st b/repository/Grease-GemStone330-Core/GRGemStonePlatform.extension.st new file mode 100644 index 00000000..00ee625d --- /dev/null +++ b/repository/Grease-GemStone330-Core/GRGemStonePlatform.extension.st @@ -0,0 +1,32 @@ +Extension { #name : 'GRGemStonePlatform' } + +{ #category : '*grease-gemstone330-core' } +GRGemStonePlatform >> gemstoneExceptionSelector [ + + ^ (ExceptionSet new) , Halt, AlmostOutOfStack, Breakpoint +] + +{ #category : '*grease-gemstone330-core' } +GRGemStonePlatform >> generateHardBreak [ + "Generate a GemStone hard break" + + ^Break signal: 'interrupted for Seaside debugging' +] + +{ #category : '*grease-gemstone330-core' } +GRGemStonePlatform >> handlesAlmostOutOfStackException: anException [ + + ^AlmostOutOfStack handles: anException +] + +{ #category : '*grease-gemstone330-core' } +GRGemStonePlatform >> handlesBreakpointException: anException [ + + ^Breakpoint handles: anException +] + +{ #category : '*grease-gemstone330-core' } +GRGemStonePlatform >> handlesHaltException: anException [ + + ^Halt handles: anException +] diff --git a/repository/Grease-GemStone330-Core/GRUtf8CodecStream.class.st b/repository/Grease-GemStone330-Core/GRUtf8CodecStream.class.st new file mode 100644 index 00000000..df509487 --- /dev/null +++ b/repository/Grease-GemStone330-Core/GRUtf8CodecStream.class.st @@ -0,0 +1,104 @@ +Class { + #name : 'GRUtf8CodecStream', + #superclass : 'GRTextOrBinaryCodecStream', + #classVars : [ + 'Latin1ToUtf8Encodings' + ], + #category : 'Grease-GemStone330-Core', + #package : 'Grease-GemStone330-Core' +} + +{ #category : 'initialization' } +GRUtf8CodecStream class >> initialize [ + "self initialize" + + Latin1ToUtf8Encodings := Array new: 256. + 1 to: 256 do: [ :index | + index > 128 + ifTrue: [ + Latin1ToUtf8Encodings + at: index + put: + (String with: (Character codePoint: index - 1)) encodeAsUTF8 asString ] ] +] + +{ #category : 'streaming' } +GRUtf8CodecStream >> crlf [ + binary + ifTrue: [ + stream nextPut: 13. + stream nextPut: 10 ] + ifFalse: [ + stream nextPut: Character cr. + stream nextPut: Character lf ] +] + +{ #category : 'private' } +GRUtf8CodecStream >> invalidUtf8 [ + ^GRInvalidUtf8Error signal: 'Invalid UTF-8 input' +] + +{ #category : 'streaming' } +GRUtf8CodecStream >> next: anInteger [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | outStream byte1 byte2 byte3 byte4 unicode count | + outStream := WriteStream on: (String new: anInteger). + count := 0. + [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ + byte1 := stream next. + unicode := byte1. + (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63)]. + (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) + + (byte3 bitAnd: 63)]. + (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte4 := stream next. + (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + + ((byte2 bitAnd: 63) bitShift: 12) + + ((byte3 bitAnd: 63) bitShift: 6) + + (byte4 bitAnd: 63)]. + unicode ifNil: [ self invalidUtf8 ]. + unicode = 16rFEFF "ignore BOM" ifFalse: [ + outStream nextPut: (Character codePoint: unicode). + count := count + 1 ]. + unicode := nil ]. + ^outStream contents +] + +{ #category : 'streaming' } +GRUtf8CodecStream >> nextPut: aCharacter [ + "old implementation is very slow !!" + + " self nextPutAll: (String with: aCharacter)" + + | codePoint | + codePoint := aCharacter codePoint. + codePoint > 127 + ifTrue: [ + codePoint > 255 + ifTrue: [ + | str | + str := (String with: aCharacter) encodeAsUTF8intoString. + stream nextPutAll: str ] + ifFalse: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] ] + ifFalse: [ stream nextPut: aCharacter ] +] + +{ #category : 'streaming' } +GRUtf8CodecStream >> nextPutAll: aString [ + binary + ifTrue: [ stream nextPutAll: aString asString ] + ifFalse: [ stream nextPutAll: aString _encodeAsUTF8intoString ] +] diff --git a/repository/Grease-GemStone330-Core/package.st b/repository/Grease-GemStone330-Core/package.st new file mode 100644 index 00000000..f484e8fa --- /dev/null +++ b/repository/Grease-GemStone330-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-GemStone330-Core' } diff --git a/repository/Grease-Pharo100-Core.package/.filetree b/repository/Grease-Pharo100-Core.package/.filetree deleted file mode 100644 index 57a67973..00000000 --- a/repository/Grease-Pharo100-Core.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Behavior.extension/instance/fullName.st b/repository/Grease-Pharo100-Core.package/Behavior.extension/instance/fullName.st deleted file mode 100644 index 5ccb78b4..00000000 --- a/repository/Grease-Pharo100-Core.package/Behavior.extension/instance/fullName.st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo100-Core -fullName - "In VW, will include the namespace" - - ^ self name \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Behavior.extension/properties.json b/repository/Grease-Pharo100-Core.package/Behavior.extension/properties.json deleted file mode 100644 index c4116c4c..00000000 --- a/repository/Grease-Pharo100-Core.package/Behavior.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Behavior" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo100-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index 916023ee..00000000 --- a/repository/Grease-Pharo100-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,11 +0,0 @@ -*Grease-Pharo100-Core -valueWithPossibleArguments: anArray - | args | - (anArray size == self numArgs) - ifTrue: [ ^ self valueWithArguments: anArray ]. - args := Array new: self numArgs. - args replaceFrom: 1 - to: (anArray size min: args size) - with: anArray - startingAt: 1. - ^ self valueWithArguments: args \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/BlockClosure.extension/properties.json b/repository/Grease-Pharo100-Core.package/BlockClosure.extension/properties.json deleted file mode 100644 index 2190e5e2..00000000 --- a/repository/Grease-Pharo100-Core.package/BlockClosure.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "BlockClosure" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/ByteArray.extension/instance/greaseString.st deleted file mode 100644 index cf96e73f..00000000 --- a/repository/Grease-Pharo100-Core.package/ByteArray.extension/instance/greaseString.st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo100-Core -greaseString - "ByteArrays should not automatically be converted to Strings. You should use a GRCodec for this." - ^ self printString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/ByteArray.extension/properties.json b/repository/Grease-Pharo100-Core.package/ByteArray.extension/properties.json deleted file mode 100644 index f81bcb8d..00000000 --- a/repository/Grease-Pharo100-Core.package/ByteArray.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "ByteArray" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-Pharo100-Core.package/Character.extension/instance/greaseInteger.st deleted file mode 100644 index 90558d5a..00000000 --- a/repository/Grease-Pharo100-Core.package/Character.extension/instance/greaseInteger.st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo100-Core -greaseInteger - "Answer an unicode code point of the receiver." - ^ self charCode \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Character.extension/properties.json b/repository/Grease-Pharo100-Core.package/Character.extension/properties.json deleted file mode 100644 index 5219281d..00000000 --- a/repository/Grease-Pharo100-Core.package/Character.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Character" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Collection.extension/instance/any.st b/repository/Grease-Pharo100-Core.package/Collection.extension/instance/any.st deleted file mode 100644 index 544e14eb..00000000 --- a/repository/Grease-Pharo100-Core.package/Collection.extension/instance/any.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo100-Core -any - ^ self anyOne \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Collection.extension/properties.json b/repository/Grease-Pharo100-Core.package/Collection.extension/properties.json deleted file mode 100644 index 48f9f8d9..00000000 --- a/repository/Grease-Pharo100-Core.package/Collection.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Collection" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Color.extension/instance/asHTMLColor.st b/repository/Grease-Pharo100-Core.package/Color.extension/instance/asHTMLColor.st deleted file mode 100644 index 34cc7fbd..00000000 --- a/repository/Grease-Pharo100-Core.package/Color.extension/instance/asHTMLColor.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo100-Core -asHTMLColor - ^'#', self asHexString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Color.extension/properties.json b/repository/Grease-Pharo100-Core.package/Color.extension/properties.json deleted file mode 100644 index 8b86fc95..00000000 --- a/repository/Grease-Pharo100-Core.package/Color.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Color" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-Pharo100-Core.package/Duration.extension/class/milliseconds..st deleted file mode 100644 index f5c51190..00000000 --- a/repository/Grease-Pharo100-Core.package/Duration.extension/class/milliseconds..st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo100-Core -milliseconds: anInteger - ^ self milliSeconds: anInteger \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-Pharo100-Core.package/Duration.extension/instance/asMilliseconds.st deleted file mode 100644 index 043bbad2..00000000 --- a/repository/Grease-Pharo100-Core.package/Duration.extension/instance/asMilliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo100-Core -asMilliseconds - ^ self asMilliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-Pharo100-Core.package/Duration.extension/instance/milliseconds.st deleted file mode 100644 index 215916e7..00000000 --- a/repository/Grease-Pharo100-Core.package/Duration.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo100-Core -milliseconds - ^ nanos quo: NanosInMillisecond \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Duration.extension/properties.json b/repository/Grease-Pharo100-Core.package/Duration.extension/properties.json deleted file mode 100644 index d141a092..00000000 --- a/repository/Grease-Pharo100-Core.package/Duration.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Duration" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/README.md b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/defaultValue.st b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/defaultValue.st deleted file mode 100644 index 3d7f6377..00000000 --- a/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/defaultValue.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultValue - ^ nil \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/use.during..st b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/use.during..st deleted file mode 100644 index 1e03f82f..00000000 --- a/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/class/use.during..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -use: anObject during: aBlock - ^ self - value: anObject - during: aBlock \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/instance/default.st b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/instance/default.st deleted file mode 100644 index 59cb6f1b..00000000 --- a/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/instance/default.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -default - ^ self class defaultValue \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/properties.json deleted file mode 100644 index 2867fd3d..00000000 --- a/repository/Grease-Pharo100-Core.package/GRDynamicVariable.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "DynamicVariable", - "category" : "Grease-Pharo100-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRDynamicVariable", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPackage.extension/class/greasePharo100Core.st b/repository/Grease-Pharo100-Core.package/GRPackage.extension/class/greasePharo100Core.st deleted file mode 100644 index 241c674a..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPackage.extension/class/greasePharo100Core.st +++ /dev/null @@ -1,7 +0,0 @@ -*Grease-Pharo100-Core -greasePharo100Core - ^ self new - name: 'Grease-Pharo100-Core'; - addDependency: 'Grease-Core'; - url: #greaseUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPackage.extension/properties.json b/repository/Grease-Pharo100-Core.package/GRPackage.extension/properties.json deleted file mode 100644 index ae522a7e..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRPackage" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/README.md deleted file mode 100644 index 3f437d62..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A GRPharoLatin1Codec is a WACodec optimized for ISO-8859-1 (direct byte to character mapping). \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st deleted file mode 100644 index f6b18bd4..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st +++ /dev/null @@ -1,5 +0,0 @@ -private -basicForEncoding: aString - (self supportsEncoding: aString) - ifFalse: [ self unsupportedEncoding: aString ]. - ^ self basicNew initializeWithName: aString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/codecs.st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/codecs.st deleted file mode 100644 index 7a96b703..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/codecs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecs - ^ Array with: (self basicForEncoding: 'iso-8859-1') \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st deleted file mode 100644 index e5dca068..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st +++ /dev/null @@ -1,3 +0,0 @@ -private -supportedEncodingNames - ^ #('iso-8859-1' 'ISO-8859-1' 'latin-1' 'latin1') \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st deleted file mode 100644 index bc591573..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st +++ /dev/null @@ -1,4 +0,0 @@ -private -supportsEncoding: aString - "Answer whether the the given encoding name is supported." - ^ self supportedEncodingNames includes: aString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decode..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decode..st deleted file mode 100644 index 5f73b526..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decode..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -decode: aStringOrByteArray - "Overridden for efficencey." - - ^ aStringOrByteArray asString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st deleted file mode 100644 index 5bce5556..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -decoderFor: aReadStream - "wrap to avoid String vs ByteArray issues" - ^ GRPharoLatin1CodecStream on: aReadStream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st deleted file mode 100644 index 1f770ac9..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -encoderFor: aWriteStream - "wrap to avoid String vs ByteArray issues" - ^ GRPharoLatin1CodecStream on: aWriteStream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st deleted file mode 100644 index 03133d93..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeWithName: aString - self initialize. - name := aString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/name.st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/name.st deleted file mode 100644 index 22077c20..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ name \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/properties.json deleted file mode 100644 index 1ffad917..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoLatin1Codec.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRNullCodec", - "category" : "Grease-Pharo100-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "name" - ], - "name" : "GRPharoLatin1Codec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/README.md deleted file mode 100644 index e1c2471b..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A GRPharoLatin1CodecStream is a WACodecStream optimized for ISO-8859-1 (direct byte to character mapping). \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next..st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next..st deleted file mode 100644 index a734bc76..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next: anInteger - ^ (stream next: anInteger) asString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next.st b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next.st deleted file mode 100644 index bf70df58..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - ^ Character value: stream next \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/properties.json deleted file mode 100644 index 5d9ede87..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoLatin1CodecStream.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRNullCodecStream", - "category" : "Grease-Pharo100-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoLatin1CodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/README.md deleted file mode 100644 index f0375aac..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WASqueakPlatform is the Squeak implementation of SeasidePlatformSupport, the Seaside class that provides functionality that can not be implemented in a platform independent way. diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initialize.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initialize.st deleted file mode 100644 index 0c86564c..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -class initialization -initialize - self initializeXmlTable. - self initializeUrlTable. - self select \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st deleted file mode 100644 index 9abf56b7..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st +++ /dev/null @@ -1,7 +0,0 @@ -class initialization -initializeUrlTable - UrlTable := ByteArray new: 256. - 1 to: 256 do: [ :index | - ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~' includes: (Character codePoint: index - 1)) - ifTrue: [ UrlTable at: index put: 0 ] - ifFalse: [ UrlTable at: index put: 1 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st deleted file mode 100644 index 830a5595..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st +++ /dev/null @@ -1,7 +0,0 @@ -class initialization -initializeXmlTable - XmlTable := ByteArray new: 256. - 1 to: 256 do: [ :index | - ('"<&>' includes: (Character codePoint: index - 1)) - ifTrue: [ XmlTable at: index put: 1 ] - ifFalse: [ XmlTable at: index put: 0 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/unload.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/unload.st deleted file mode 100644 index 4c8dd650..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/class/unload.st +++ /dev/null @@ -1,3 +0,0 @@ -class initialization -unload - self unselect \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st deleted file mode 100644 index f8d3ad5f..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -addToShutDownList: anObject - "Add anObject to the shutdown-list of the system. On shutdown the message #shutDown will be sent to anObject." - - Smalltalk addToShutDownList: anObject \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st deleted file mode 100644 index 8721690e..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -addToStartUpList: aClass - "Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject." - - SessionManager default registerUserClassNamed: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st deleted file mode 100644 index ba4a0727..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st +++ /dev/null @@ -1,6 +0,0 @@ -file library -asMethodReturningByteArray: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a ByteArray" - ^ self useByteArrayLiterals - ifTrue: [ self asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol ] - ifFalse: [ self asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st deleted file mode 100644 index 90bb405c..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st +++ /dev/null @@ -1,10 +0,0 @@ -private-file library -asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array using VW/NewCompiler byte array literal syntax." - ^ String streamContents: [ :stream | - stream nextPutAll: aSymbol; nextPut: Character cr. - stream tab; nextPutAll: '^ #['. - aByteArrayOrString asByteArray - do: [ :each | each printOn: stream ] - separatedBy: [ stream space ]. - stream nextPutAll: ']' ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st deleted file mode 100644 index a1f9fe07..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st +++ /dev/null @@ -1,10 +0,0 @@ -private-file library -asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array and caching this array in a literal array of size 1." - ^ String streamContents: [ :stream | - stream nextPutAll: aSymbol; nextPut: Character cr. - stream tab; nextPutAll: '^ #('. - aByteArrayOrString asByteArray - do: [ :each | each printOn: stream ] - separatedBy: [ stream space ]. - stream nextPutAll: ') asByteArray' ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Decode..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Decode..st deleted file mode 100644 index 3fb71b1a..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Decode..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -base64Decode: aString - ^ aString base64Decoded asString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Encode..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Encode..st deleted file mode 100644 index 4cb93d20..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Encode..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -base64Encode: aByteArray - ^ aByteArray base64Encoded \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/bindingOf..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/bindingOf..st deleted file mode 100644 index f121b44b..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/bindingOf..st +++ /dev/null @@ -1,4 +0,0 @@ -bindings -bindingOf: aClass - - ^ Smalltalk globals associationAt: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st deleted file mode 100644 index c64d0bc2..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -compile: aString into: aClass classified: aSymbol - aClass compile: aString classified: aSymbol \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st deleted file mode 100644 index 01aff905..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st +++ /dev/null @@ -1,3 +0,0 @@ -files -contentsOfFile: aString binary: aBoolean - ^ self readFileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deleteFile..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deleteFile..st deleted file mode 100644 index 69d63003..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deleteFile..st +++ /dev/null @@ -1,3 +0,0 @@ -files -deleteFile: aPathString - aPathString asFileReference delete \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st deleted file mode 100644 index e402d141..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st +++ /dev/null @@ -1,6 +0,0 @@ -exceptions -deprecationExceptionSet - "Answer the exception set that should considered besides WADeprecation." - ^ ExceptionSet new - add: Deprecation; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/directoriesIn..st deleted file mode 100644 index 81b4dce9..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/directoriesIn..st +++ /dev/null @@ -1,8 +0,0 @@ -files -directoriesIn: aPathString - "Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString - must not include directory names that start with ." - ^ Array streamContents: [ :stream | - FileSystem disk directoriesAt: aPathString do: [ :each | - each basename first = $. ifFalse: [ - stream nextPut: each asFileReference fullName ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/doSilently..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/doSilently..st deleted file mode 100644 index 9ea296ff..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/doSilently..st +++ /dev/null @@ -1,3 +0,0 @@ -private -doSilently: aBlock - ^ SystemAnnouncer uniqueInstance suspendAllWhile: aBlock \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st deleted file mode 100644 index ef505d70..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st +++ /dev/null @@ -1,4 +0,0 @@ -files -ensureExistenceOfFolder: aString - "creates a folder named aString in the image directory" - FileSystem disk ensureCreateDirectory: aString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/fileExists..st deleted file mode 100644 index 1fc0dddf..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/fileExists..st +++ /dev/null @@ -1,3 +0,0 @@ -files -fileExists: aString - ^ aString asFileReference exists \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/filesIn..st deleted file mode 100644 index 4b9fcd27..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/filesIn..st +++ /dev/null @@ -1,8 +0,0 @@ -files -filesIn: aPathString - "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString - must not include file names that start with ." - ^ Array streamContents: [ :stream | - FileSystem disk filesAt: aPathString do: [ :each | - each basename first = $. ifFalse: [ - stream nextPut: each asFileReference fullName ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st deleted file mode 100644 index 03b50778..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st +++ /dev/null @@ -1,4 +0,0 @@ -processes -isProcessTerminated: aProcess - "Return a boolean indicating whether aProcess has been terminated." - ^ aProcess isTerminated \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/label.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/label.st deleted file mode 100644 index f3b036e2..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/label.st +++ /dev/null @@ -1,3 +0,0 @@ -version info -label - ^ 'Pharo' \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st deleted file mode 100644 index 64db9825..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st +++ /dev/null @@ -1,3 +0,0 @@ -files -localNameOf: aFilename - ^ (FileSystem disk resolveString: aFilename) basename \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newRandom.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newRandom.st deleted file mode 100644 index eb03a167..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newRandom.st +++ /dev/null @@ -1,10 +0,0 @@ -factory -newRandom - "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: - #nextInt: - should answer a random integer in the interval [1, anInteger] - #randomFrom: - should answer a random element from the given collection - - Make sure that both methods are safe under heavy concurrent load. - - Used by Gemstone/S traditional Randoms which cannot be persisted.." - ^ GRPharoRandomProvider \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st deleted file mode 100644 index 01578607..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st +++ /dev/null @@ -1,4 +0,0 @@ -files -newTemporaryFile - - ^ self newTemporaryFileNamed: UUID new greaseString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st deleted file mode 100644 index 29d781b7..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st +++ /dev/null @@ -1,7 +0,0 @@ -files -newTemporaryFileNamed: aName - - | newFile | - newFile := FileLocator temp / aName. - newFile exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ]. - ^ newFile pathString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st deleted file mode 100644 index 7992374f..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st +++ /dev/null @@ -1,11 +0,0 @@ -files -newTemporaryFileReference - "Create a new temporary file in the systems temp directory - and answer a reference to it. - It is the users responsibility to delete or move the file, - it will not be cleaned up automatically (unless the host system - has a policy for it)." - self - greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReference' - details: 'Use newTemporaryFile'. - ^ self newTemporaryFileReferenceNamed: UUID new asString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st deleted file mode 100644 index 81baa7c1..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st +++ /dev/null @@ -1,11 +0,0 @@ -files -newTemporaryFileReferenceNamed: aName - "Create a new temporary file in the systems temp directory - and answer a reference to it. - It is the users responsibility to delete or move the file, - it will not be cleaned up automatically (unless the host system - has a policy for it)." - self - greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReferenceNamed:' - details: 'Use newTemporaryFileNamed:'. - ^ FileLocator temp / aName \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newline.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newline.st deleted file mode 100644 index 1219045d..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newline.st +++ /dev/null @@ -1,3 +0,0 @@ -file library -newline - ^ String cr \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st deleted file mode 100644 index d417abb1..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st +++ /dev/null @@ -1,3 +0,0 @@ -exceptions -openDebuggerOn: anError - (OupsDebugRequest newForException: anError) submit \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/pathSeparator.st deleted file mode 100644 index 2da9f364..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/pathSeparator.st +++ /dev/null @@ -1,3 +0,0 @@ -files -pathSeparator - ^ String with: FileSystem disk delimiter \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st deleted file mode 100644 index 6324baf5..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st +++ /dev/null @@ -1,6 +0,0 @@ -files -readFileStreamOn: aString do: aBlock binary: aBoolean - - ^ aBoolean - ifTrue: [ aString asFileReference binaryReadStreamDo: aBlock ] - ifFalse: [ aString asFileReference readStreamEncoded: 'utf-8' do: aBlock ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st deleted file mode 100644 index 142efa0f..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st +++ /dev/null @@ -1,5 +0,0 @@ -factory -readWriteByteStream - "ByteArray based read write stream" - - ^ ReadWriteStream on: (ByteArray new: 4096) \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st deleted file mode 100644 index 3f94c5af..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st +++ /dev/null @@ -1,5 +0,0 @@ -factory -readWriteCharacterStream - "String based read write stream" - - ^ ReadWriteStream on: (String new: 4096) \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st deleted file mode 100644 index 58137e33..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromShutDownList: aClass - "Remove aClass from the shutdown list in the system." - - SessionManager default unregisterClassNamed: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st deleted file mode 100644 index 76918209..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromStartUpList: aClass - "Remove aClass from the startup list in the system." - - SessionManager default unregisterClassNamed: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st deleted file mode 100644 index 92cbd7ff..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -removeSelector: aSymbol from: aClass - aClass removeSelector: aSymbol \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/secureHashFor..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/secureHashFor..st deleted file mode 100644 index 12698969..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/secureHashFor..st +++ /dev/null @@ -1,3 +0,0 @@ -cryptography -secureHashFor: aStringOrByteArray - ^ SHA1 new hashMessage: aStringOrByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st deleted file mode 100644 index ceccf9e3..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st +++ /dev/null @@ -1,4 +0,0 @@ -factory -semaphoreClass - "used by Gemstone/S traditional Semaphores which cannot be persisted" - ^ Semaphore \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st deleted file mode 100644 index f7139913..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st +++ /dev/null @@ -1,4 +0,0 @@ -files -sizeOfFile: aString - - ^ aString asFileReference size \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st deleted file mode 100644 index 3ed3d44c..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st +++ /dev/null @@ -1,5 +0,0 @@ -meta-object-protocol -sourceCodeStringOf: aCompiledMethod - "Return a String with the source code for a compiled method." - - ^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/stackDepth.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/stackDepth.st deleted file mode 100644 index 7b994393..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/stackDepth.st +++ /dev/null @@ -1,10 +0,0 @@ -exceptions -stackDepth - - | depth current | - depth := 0. - current := thisContext. - [ current isNil ] whileFalse: [ - current := current sender. - depth := depth + 1 ]. - ^ depth - 1 \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/terminateProcess..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/terminateProcess..st deleted file mode 100644 index a09b96e1..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/terminateProcess..st +++ /dev/null @@ -1,4 +0,0 @@ -processes -terminateProcess: aProcess - "Permanently terminate the process, unwinding first to execute #ensure: and #ifCurtailed: blocks." - aProcess terminate \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/thisContext.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/thisContext.st deleted file mode 100644 index 97018fc5..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/thisContext.st +++ /dev/null @@ -1,4 +0,0 @@ -processes -thisContext - - ^ thisContext sender \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st deleted file mode 100644 index 71b0f2cf..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st +++ /dev/null @@ -1,4 +0,0 @@ -private-file library -useByteArrayLiterals - "whether ByteArray literals can/should be used" - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st deleted file mode 100644 index b0ca3d82..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st +++ /dev/null @@ -1,3 +0,0 @@ -factory -weakDictionaryOfSize: aNumber - ^ IdentityDictionary new: aNumber \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st deleted file mode 100644 index 6a1bd7a0..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st +++ /dev/null @@ -1,7 +0,0 @@ -files -write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString - "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" - ^ self - writeFileStreamOn: (aFolderString asFileReference / aFileNameString) ensureDelete pathString - do: [ :stream | stream nextPutAll: aStringOrByteArray ] - binary: aStringOrByteArray isString not \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st deleted file mode 100644 index 43d33949..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st +++ /dev/null @@ -1,5 +0,0 @@ -files -writeFileStreamOn: aString do: aBlock binary: aBoolean - ^ aBoolean - ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ] - ifFalse: [ aString asFileReference writeStreamEncoded: 'utf-8' do: [ :str | aBlock value: (ZnNewLineWriterStream on: str) ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/properties.json deleted file mode 100644 index 740444f6..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "pmm 6/1/2008 01:03", - "super" : "GRPlatform", - "category" : "Grease-Pharo100-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "UrlTable", - "XmlTable" - ], - "instvars" : [ ], - "name" : "GRPharoPlatform", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/initialize.st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/initialize.st deleted file mode 100644 index 04ca54c3..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -private -initialize - Smalltalk addToStartUpList: self. - self startUp \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/nextInt..st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/nextInt..st deleted file mode 100644 index 1036c2f7..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/nextInt..st +++ /dev/null @@ -1,6 +0,0 @@ -public -nextInt: anInteger - - "Answer a random integer in the interval [1, anInteger]" - - ^ mutex critical: [ generator nextInteger: anInteger ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomClass.st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomClass.st deleted file mode 100644 index 85a2db91..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomClass.st +++ /dev/null @@ -1,3 +0,0 @@ -private -randomClass - ^ Random \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomFrom..st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomFrom..st deleted file mode 100644 index a5fe470c..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/randomFrom..st +++ /dev/null @@ -1,11 +0,0 @@ -public -randomFrom: aCollection - | random count | - random := self nextInt: aCollection size. - ^ aCollection isSequenceable - ifTrue: [ aCollection at: random ] - ifFalse: [ - count := 1. - aCollection do: [ :ea | - count = random ifTrue: [ ^ ea ]. - count := count + 1 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/startUp.st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/startUp.st deleted file mode 100644 index 663a5243..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/startUp.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -startUp - generator := self randomClass new. - mutex := Semaphore forMutualExclusion \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/unload.st b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/unload.st deleted file mode 100644 index fd4cb930..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/class/unload.st +++ /dev/null @@ -1,3 +0,0 @@ -private -unload - GRPlatform current removeFromStartUpList: self \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/properties.json deleted file mode 100644 index 05172896..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoRandomProvider.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRObject", - "category" : "Grease-Pharo100-Core", - "classinstvars" : [ - "mutex", - "generator" - ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoRandomProvider", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/basicForEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/basicForEncoding..st deleted file mode 100644 index f6b18bd4..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/basicForEncoding..st +++ /dev/null @@ -1,5 +0,0 @@ -private -basicForEncoding: aString - (self supportsEncoding: aString) - ifFalse: [ self unsupportedEncoding: aString ]. - ^ self basicNew initializeWithName: aString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/codecs.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/codecs.st deleted file mode 100644 index 068914b5..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/codecs.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -codecs - ^ self supportedEncodingNames - collect: [ :each | self basicForEncoding: each greaseString ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportedEncodingNames.st deleted file mode 100644 index 706f7f53..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportedEncodingNames.st +++ /dev/null @@ -1,16 +0,0 @@ -accessing -supportedEncodingNames - "answers the names of the encodings supported by this class" - - | all | - all := ZnCharacterEncoder knownEncodingIdentifiers asOrderedCollection. - "We include some (but not all) alternative names for encodings, providing some backwards compatibility with TextConverter encoding names. Make a PR if you need more." - (all includes: 'utf8') - ifTrue:[ all addAll: #('utf-8' 'UTF-8') ]. - (all includes: 'utf16') - ifTrue:[ all addAll: #('utf-16' 'UTF-16') ]. - (all includes: 'macroman') - ifTrue:[ all add: 'mac-roman' ]. - (all includes: 'cp1252') - ifTrue:[ all add: 'cp-1252' ]. - ^ all \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportsEncoding..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportsEncoding..st deleted file mode 100644 index d50a4862..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/class/supportsEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -supportsEncoding: aName - ^ self supportedEncodingNames includes: aName \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decode..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decode..st deleted file mode 100644 index e9869000..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decode..st +++ /dev/null @@ -1,3 +0,0 @@ -convenience -decode: aStringOrByteArray - ^ super decode: aStringOrByteArray asByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decoderFor..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decoderFor..st deleted file mode 100644 index be53dfea..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/decoderFor..st +++ /dev/null @@ -1,3 +0,0 @@ -conversion -decoderFor: aStream - ^ self encoderFor: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encodedStringClass.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encodedStringClass.st deleted file mode 100644 index 6e5de896..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encodedStringClass.st +++ /dev/null @@ -1,3 +0,0 @@ -conversion -encodedStringClass - ^ ByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encoderFor..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encoderFor..st deleted file mode 100644 index 83482e43..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoZnCodecStream - on: aStream - withEncoder: (ZnCharacterEncoder newForEncoding: self name) \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/initializeWithName..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/initializeWithName..st deleted file mode 100644 index e7c86042..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/initializeWithName..st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initializeWithName: aString - self initialize. - name := aString. - urlCodec := (#('iso-8859-15' 'cp-1252' 'utf8' 'utf-8' 'UTF-8') includes: aString) - ifFalse: [ GRCodec forEncoding: 'utf8' ] - ifTrue: [ self ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/name.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/name.st deleted file mode 100644 index 22077c20..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ name \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/url.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/url.st deleted file mode 100644 index 232ad239..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/instance/url.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -url - "RFC 3986: When a new URI scheme defines a component that represents textual data consisting of characters from the Universal Character Set [UCS], the data should first be encoded as octets according to the UTF-8 character encoding." - - ^ urlCodec \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/properties.json deleted file mode 100644 index f45c54aa..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRCodec", - "category" : "Grease-Pharo100-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "name", - "urlCodec" - ], - "name" : "GRPharoZnCodec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/README.md b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/class/on.withEncoder..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/class/on.withEncoder..st deleted file mode 100644 index a91977ca..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/class/on.withEncoder..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -on: aStream withEncoder: aZnEncoder - ^ self basicNew initializeOn: aStream withEncoder: aZnEncoder \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 365093e2..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -greaseNext: anInteger putAll: aCollection startingAt: startIndex - encoder next: anInteger putAll: aCollection startingAt: startIndex toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/initializeOn.withEncoder..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/initializeOn.withEncoder..st deleted file mode 100644 index 8fc52caa..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/initializeOn.withEncoder..st +++ /dev/null @@ -1,5 +0,0 @@ -initialization -initializeOn: aStream withEncoder: aZnEncoder - self initialize. - stream := aStream. - encoder := aZnEncoder \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next..st deleted file mode 100644 index b5f1ff9a..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next..st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -next: anInteger - | writeStream | - writeStream := WriteStream on: (String new: anInteger). - anInteger timesRepeat: [ - writeStream nextPut: (self next - ifNil: [ ^ writeStream contents ]) ]. - ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next.st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next.st deleted file mode 100644 index ccde08f3..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/next.st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -next - | character | - stream atEnd ifTrue: [ ^ nil ]. - character := encoder nextFromStream: stream. - ^ character ifNotNil: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPut..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPut..st deleted file mode 100644 index 30014e3d..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -nextPut: aCharacter - encoder nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st deleted file mode 100644 index bd42bba5..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -nextPutAll: aString - | string | - string := aString asString. - encoder next: string size putAll: string startingAt: 1 toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/properties.json b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/properties.json deleted file mode 100644 index 44040131..00000000 --- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRCodecStream", - "category" : "Grease-Pharo100-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "encoder" - ], - "name" : "GRPharoZnCodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st b/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st deleted file mode 100644 index cb666a56..00000000 --- a/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st +++ /dev/null @@ -1,15 +0,0 @@ -*Grease-Pharo100-Core -inspectionItems: aBuilder - - - ^ aBuilder newTable - addColumn: (SpStringTableColumn - title: 'Key' - evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ]) - beSortable; - addColumn: (SpStringTableColumn - title: 'Value' - evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ]) - beSortable; - items: self associations; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/properties.json b/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/properties.json deleted file mode 100644 index 0d78b749..00000000 --- a/repository/Grease-Pharo100-Core.package/GRSmallDictionary.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRSmallDictionary" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st b/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st deleted file mode 100644 index cb666a56..00000000 --- a/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st +++ /dev/null @@ -1,15 +0,0 @@ -*Grease-Pharo100-Core -inspectionItems: aBuilder - - - ^ aBuilder newTable - addColumn: (SpStringTableColumn - title: 'Key' - evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ]) - beSortable; - addColumn: (SpStringTableColumn - title: 'Value' - evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ]) - beSortable; - items: self associations; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/properties.json b/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/properties.json deleted file mode 100644 index c5c0f1c8..00000000 --- a/repository/Grease-Pharo100-Core.package/GRSmallDictionary2.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRSmallDictionary2" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Interval.extension/instance/any.st b/repository/Grease-Pharo100-Core.package/Interval.extension/instance/any.st deleted file mode 100644 index 45ebf480..00000000 --- a/repository/Grease-Pharo100-Core.package/Interval.extension/instance/any.st +++ /dev/null @@ -1,6 +0,0 @@ -*Grease-Pharo100-Core -any - "#first (used by SequenceableCollection>>anyOne) is an accessor of - Interval and does not error on an empty Interval." - - ^ self at: 1 \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Interval.extension/properties.json b/repository/Grease-Pharo100-Core.package/Interval.extension/properties.json deleted file mode 100644 index 534eb553..00000000 --- a/repository/Grease-Pharo100-Core.package/Interval.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Interval" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseByteAt..st deleted file mode 100644 index 6b1d45ee..00000000 --- a/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseByteAt..st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo100-Core -greaseByteAt: index - ^ self byteAt: index \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseBytesCount.st deleted file mode 100644 index ef791cd5..00000000 --- a/repository/Grease-Pharo100-Core.package/LargeInteger.extension/instance/greaseBytesCount.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo100-Core -greaseBytesCount - ^ self bytesCount \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/LargeInteger.extension/properties.json b/repository/Grease-Pharo100-Core.package/LargeInteger.extension/properties.json deleted file mode 100644 index 029bc676..00000000 --- a/repository/Grease-Pharo100-Core.package/LargeInteger.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "LargeInteger" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/argumentCount.st b/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/argumentCount.st deleted file mode 100644 index df74aff3..00000000 --- a/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/argumentCount.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo100-Core -argumentCount - ^ selector numArgs - self arguments size \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index 0a56ac34..00000000 --- a/repository/Grease-Pharo100-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,7 +0,0 @@ -*Grease-Pharo100-Core -valueWithPossibleArguments: anArray - "Evaluate the block represented by the receiver. - If the block requires one argument, use anArg, if it requires more than one, - fill up the rest with nils." - - ^ self valueWithEnoughArguments: anArray \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/MessageSend.extension/properties.json b/repository/Grease-Pharo100-Core.package/MessageSend.extension/properties.json deleted file mode 100644 index 00669b90..00000000 --- a/repository/Grease-Pharo100-Core.package/MessageSend.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "MessageSend" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Pharo100-Core.package/Number.extension/instance/milliseconds.st deleted file mode 100644 index fb4e6ce5..00000000 --- a/repository/Grease-Pharo100-Core.package/Number.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo100-Core -milliseconds - ^ self milliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Number.extension/properties.json b/repository/Grease-Pharo100-Core.package/Number.extension/properties.json deleted file mode 100644 index 71dace88..00000000 --- a/repository/Grease-Pharo100-Core.package/Number.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Number" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/Object.extension/instance/greaseString.st deleted file mode 100644 index f23889b4..00000000 --- a/repository/Grease-Pharo100-Core.package/Object.extension/instance/greaseString.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo100-Core -greaseString - ^ self asString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Object.extension/properties.json b/repository/Grease-Pharo100-Core.package/Object.extension/properties.json deleted file mode 100644 index f30a86e1..00000000 --- a/repository/Grease-Pharo100-Core.package/Object.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Object" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Point.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/Point.extension/instance/greaseString.st deleted file mode 100644 index 1cded0cc..00000000 --- a/repository/Grease-Pharo100-Core.package/Point.extension/instance/greaseString.st +++ /dev/null @@ -1,13 +0,0 @@ -*Grease-Pharo100-Core -greaseString - "Reimplemented because in Pharo 1.4 - (4 @ 2) greaseString - ansers '(4@2)'" - ^ String streamContents: [ :stream | - x printOn: stream. - stream nextPut: $@. - (y notNil and: [ y negative ]) - ifTrue: [ - "Avoid ambiguous @- construct" - stream space ]. - y printOn: stream ] \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Point.extension/properties.json b/repository/Grease-Pharo100-Core.package/Point.extension/properties.json deleted file mode 100644 index c6cf8dd5..00000000 --- a/repository/Grease-Pharo100-Core.package/Point.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Point" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-Pharo100-Core.package/PositionableStream.extension/instance/greaseUpToAll..st deleted file mode 100644 index b3fd7893..00000000 --- a/repository/Grease-Pharo100-Core.package/PositionableStream.extension/instance/greaseUpToAll..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo100-Core -greaseUpToAll: aCollection - "Needed for Seaside ports to other dialects where #upToAll: may have - different semantics" - ^ self upToAll: aCollection \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/PositionableStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/PositionableStream.extension/properties.json deleted file mode 100644 index 8e090ee3..00000000 --- a/repository/Grease-Pharo100-Core.package/PositionableStream.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "PositionableStream" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/encodeOn..st b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/encodeOn..st deleted file mode 100644 index 90680805..00000000 --- a/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/encodeOn..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo100-Core -encodeOn: aDocument - | converter | - converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). - converter print: self on: aDocument \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/greaseString.st deleted file mode 100644 index 10a8dc02..00000000 --- a/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/instance/greaseString.st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo100-Core -greaseString - | converter | - converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). - ^ converter print: self \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/properties.json b/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/properties.json deleted file mode 100644 index 75f85f87..00000000 --- a/repository/Grease-Pharo100-Core.package/ScaledDecimal.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "ScaledDecimal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st deleted file mode 100644 index 738a82b7..00000000 --- a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st +++ /dev/null @@ -1,8 +0,0 @@ -*Grease-Pharo100-Core -beginsWithSubCollection: aSequenceableCollection - "Some platforms implement #beginsWith: to answer true for an empty argument." - self - greaseDeprecatedApi: 'SequenceableCollection>>#beginsWithSubCollection:' - details: 'Use SequenceableCollection>>#greaseBegins:'. - aSequenceableCollection isEmpty ifTrue: [ ^ false ]. - ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st deleted file mode 100644 index 43af03a2..00000000 --- a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st +++ /dev/null @@ -1,8 +0,0 @@ -*Grease-Pharo100-Core -endsWithSubCollection: aSequenceableCollection - "Some platforms implement #endsWith: to answer true for an empty argument." - self - greaseDeprecatedApi: 'SequenceableCollection>>#endsWithSubCollection:' - details: 'Use SequenceableCollection>>#greaseEndsWith:'. - aSequenceableCollection isEmpty ifTrue: [ ^ false ]. - ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st deleted file mode 100644 index 572bc2ce..00000000 --- a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo100-Core -greaseBeginsWith: aSequenceableCollection - - aSequenceableCollection isEmpty ifTrue: [ ^ true ]. - ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st deleted file mode 100644 index efbbc0d0..00000000 --- a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo100-Core -greaseEndsWith: aSequenceableCollection - - aSequenceableCollection isEmpty ifTrue: [ ^ true ]. - ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/properties.json deleted file mode 100644 index a68b7db6..00000000 --- a/repository/Grease-Pharo100-Core.package/SequenceableCollection.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "SequenceableCollection" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseByteAt..st deleted file mode 100644 index 6b1d45ee..00000000 --- a/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseByteAt..st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo100-Core -greaseByteAt: index - ^ self byteAt: index \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseBytesCount.st deleted file mode 100644 index ef791cd5..00000000 --- a/repository/Grease-Pharo100-Core.package/SmallInteger.extension/instance/greaseBytesCount.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo100-Core -greaseBytesCount - ^ self bytesCount \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SmallInteger.extension/properties.json b/repository/Grease-Pharo100-Core.package/SmallInteger.extension/properties.json deleted file mode 100644 index ca9cd21f..00000000 --- a/repository/Grease-Pharo100-Core.package/SmallInteger.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "SmallInteger" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 5e08d17f..00000000 --- a/repository/Grease-Pharo100-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,13 +0,0 @@ -*Grease-Pharo100-Core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - "Put a String or a ByteArray onto the stream starting at the given position. - Currently a large collection will allocate a large buffer." - - | toPut | - anInteger = 0 ifTrue: [ - ^ aCollection ]. - toPut := binary ifTrue: [ aCollection asByteArray ] ifFalse: [ aCollection asString ]. - self adjustOutBuffer: anInteger. - outBuffer replaceFrom: outNextToWrite to: outNextToWrite + anInteger - 1 with: toPut startingAt: startIndex. - outNextToWrite := outNextToWrite + anInteger. - self checkFlush \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/SocketStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/SocketStream.extension/properties.json deleted file mode 100644 index 797e09e5..00000000 --- a/repository/Grease-Pharo100-Core.package/SocketStream.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "SocketStream" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-Pharo100-Core.package/Symbol.extension/instance/greaseAsMutator.st deleted file mode 100644 index 365aad78..00000000 --- a/repository/Grease-Pharo100-Core.package/Symbol.extension/instance/greaseAsMutator.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo100-Core -greaseAsMutator - ^ self asMutator \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/Symbol.extension/properties.json b/repository/Grease-Pharo100-Core.package/Symbol.extension/properties.json deleted file mode 100644 index 8c6bce81..00000000 --- a/repository/Grease-Pharo100-Core.package/Symbol.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Symbol" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 4059a121..00000000 --- a/repository/Grease-Pharo100-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo100-Core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - "Store the next anInteger elements from the given collection." - ^ self next: anInteger putAll: aCollection startingAt: startIndex \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/WriteStream.extension/properties.json b/repository/Grease-Pharo100-Core.package/WriteStream.extension/properties.json deleted file mode 100644 index 8688e80d..00000000 --- a/repository/Grease-Pharo100-Core.package/WriteStream.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "WriteStream" -} \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo100-Core.package/monticello.meta/categories.st deleted file mode 100644 index 47e57aa2..00000000 --- a/repository/Grease-Pharo100-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -self packageOrganizer ensurePackage: #'Grease-Pharo100-Core' withTags: #()! diff --git a/repository/Grease-Pharo100-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo100-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo100-Core.package/monticello.meta/package b/repository/Grease-Pharo100-Core.package/monticello.meta/package deleted file mode 100644 index 7239cac4..00000000 --- a/repository/Grease-Pharo100-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo100-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/properties.json b/repository/Grease-Pharo100-Core.package/properties.json deleted file mode 100644 index 6f31cf5a..00000000 --- a/repository/Grease-Pharo100-Core.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core/Behavior.extension.st b/repository/Grease-Pharo100-Core/Behavior.extension.st new file mode 100644 index 00000000..744391f8 --- /dev/null +++ b/repository/Grease-Pharo100-Core/Behavior.extension.st @@ -0,0 +1,8 @@ +Extension { #name : 'Behavior' } + +{ #category : '*Grease-Pharo100-Core' } +Behavior >> fullName [ + "In VW, will include the namespace" + + ^ self name +] diff --git a/repository/Grease-Pharo100-Core/BlockClosure.extension.st b/repository/Grease-Pharo100-Core/BlockClosure.extension.st new file mode 100644 index 00000000..09cf2bd3 --- /dev/null +++ b/repository/Grease-Pharo100-Core/BlockClosure.extension.st @@ -0,0 +1,14 @@ +Extension { #name : 'BlockClosure' } + +{ #category : '*Grease-Pharo100-Core' } +BlockClosure >> valueWithPossibleArguments: anArray [ + | args | + (anArray size == self numArgs) + ifTrue: [ ^ self valueWithArguments: anArray ]. + args := Array new: self numArgs. + args replaceFrom: 1 + to: (anArray size min: args size) + with: anArray + startingAt: 1. + ^ self valueWithArguments: args +] diff --git a/repository/Grease-Pharo100-Core/ByteArray.extension.st b/repository/Grease-Pharo100-Core/ByteArray.extension.st new file mode 100644 index 00000000..4c810501 --- /dev/null +++ b/repository/Grease-Pharo100-Core/ByteArray.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'ByteArray' } + +{ #category : '*Grease-Pharo100-Core' } +ByteArray >> greaseString [ + "ByteArrays should not automatically be converted to Strings. You should use a GRCodec for this." + ^ self printString +] diff --git a/repository/Grease-Pharo100-Core/Character.extension.st b/repository/Grease-Pharo100-Core/Character.extension.st new file mode 100644 index 00000000..151337cb --- /dev/null +++ b/repository/Grease-Pharo100-Core/Character.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'Character' } + +{ #category : '*Grease-Pharo100-Core' } +Character >> greaseInteger [ + "Answer an unicode code point of the receiver." + ^ self charCode +] diff --git a/repository/Grease-Pharo100-Core/Collection.extension.st b/repository/Grease-Pharo100-Core/Collection.extension.st new file mode 100644 index 00000000..1dd34fb5 --- /dev/null +++ b/repository/Grease-Pharo100-Core/Collection.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Collection' } + +{ #category : '*Grease-Pharo100-Core' } +Collection >> any [ + ^ self anyOne +] diff --git a/repository/Grease-Pharo100-Core/Color.extension.st b/repository/Grease-Pharo100-Core/Color.extension.st new file mode 100644 index 00000000..94f6e179 --- /dev/null +++ b/repository/Grease-Pharo100-Core/Color.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Color' } + +{ #category : '*Grease-Pharo100-Core' } +Color >> asHTMLColor [ + ^'#', self asHexString +] diff --git a/repository/Grease-Pharo100-Core/Duration.extension.st b/repository/Grease-Pharo100-Core/Duration.extension.st new file mode 100644 index 00000000..c1e04284 --- /dev/null +++ b/repository/Grease-Pharo100-Core/Duration.extension.st @@ -0,0 +1,16 @@ +Extension { #name : 'Duration' } + +{ #category : '*Grease-Pharo100-Core' } +Duration >> asMilliseconds [ + ^ self asMilliSeconds +] + +{ #category : '*Grease-Pharo100-Core' } +Duration >> milliseconds [ + ^ nanos quo: NanosInMillisecond +] + +{ #category : '*Grease-Pharo100-Core' } +Duration class >> milliseconds: anInteger [ + ^ self milliSeconds: anInteger +] diff --git a/repository/Grease-Pharo100-Core/GRDynamicVariable.class.st b/repository/Grease-Pharo100-Core/GRDynamicVariable.class.st new file mode 100644 index 00000000..bec2ed43 --- /dev/null +++ b/repository/Grease-Pharo100-Core/GRDynamicVariable.class.st @@ -0,0 +1,23 @@ +Class { + #name : 'GRDynamicVariable', + #superclass : 'DynamicVariable', + #category : 'Grease-Pharo100-Core', + #package : 'Grease-Pharo100-Core' +} + +{ #category : 'defaults' } +GRDynamicVariable class >> defaultValue [ + ^ nil +] + +{ #category : 'accessing' } +GRDynamicVariable class >> use: anObject during: aBlock [ + ^ self + value: anObject + during: aBlock +] + +{ #category : 'accessing' } +GRDynamicVariable >> default [ + ^ self class defaultValue +] diff --git a/repository/Grease-Pharo100-Core/GRPackage.extension.st b/repository/Grease-Pharo100-Core/GRPackage.extension.st new file mode 100644 index 00000000..24f30381 --- /dev/null +++ b/repository/Grease-Pharo100-Core/GRPackage.extension.st @@ -0,0 +1,10 @@ +Extension { #name : 'GRPackage' } + +{ #category : '*Grease-Pharo100-Core' } +GRPackage class >> greasePharo100Core [ + ^ self new + name: 'Grease-Pharo100-Core'; + addDependency: 'Grease-Core'; + url: #greaseUrl; + yourself +] diff --git a/repository/Grease-Pharo100-Core/GRPharoLatin1Codec.class.st b/repository/Grease-Pharo100-Core/GRPharoLatin1Codec.class.st new file mode 100644 index 00000000..44a6d029 --- /dev/null +++ b/repository/Grease-Pharo100-Core/GRPharoLatin1Codec.class.st @@ -0,0 +1,65 @@ +" +A GRPharoLatin1Codec is a WACodec optimized for ISO-8859-1 (direct byte to character mapping). +" +Class { + #name : 'GRPharoLatin1Codec', + #superclass : 'GRNullCodec', + #instVars : [ + 'name' + ], + #category : 'Grease-Pharo100-Core', + #package : 'Grease-Pharo100-Core' +} + +{ #category : 'private' } +GRPharoLatin1Codec class >> basicForEncoding: aString [ + (self supportsEncoding: aString) + ifFalse: [ self unsupportedEncoding: aString ]. + ^ self basicNew initializeWithName: aString +] + +{ #category : 'accessing' } +GRPharoLatin1Codec class >> codecs [ + ^ Array with: (self basicForEncoding: 'iso-8859-1') +] + +{ #category : 'private' } +GRPharoLatin1Codec class >> supportedEncodingNames [ + ^ #('iso-8859-1' 'ISO-8859-1' 'latin-1' 'latin1') +] + +{ #category : 'private' } +GRPharoLatin1Codec class >> supportsEncoding: aString [ + "Answer whether the the given encoding name is supported." + ^ self supportedEncodingNames includes: aString +] + +{ #category : 'conversion' } +GRPharoLatin1Codec >> decode: aStringOrByteArray [ + "Overridden for efficencey." + + ^ aStringOrByteArray asString +] + +{ #category : 'conversion' } +GRPharoLatin1Codec >> decoderFor: aReadStream [ + "wrap to avoid String vs ByteArray issues" + ^ GRPharoLatin1CodecStream on: aReadStream +] + +{ #category : 'conversion' } +GRPharoLatin1Codec >> encoderFor: aWriteStream [ + "wrap to avoid String vs ByteArray issues" + ^ GRPharoLatin1CodecStream on: aWriteStream +] + +{ #category : 'initialization' } +GRPharoLatin1Codec >> initializeWithName: aString [ + self initialize. + name := aString +] + +{ #category : 'accessing' } +GRPharoLatin1Codec >> name [ + ^ name +] diff --git a/repository/Grease-Pharo100-Core/GRPharoLatin1CodecStream.class.st b/repository/Grease-Pharo100-Core/GRPharoLatin1CodecStream.class.st new file mode 100644 index 00000000..726ebbdc --- /dev/null +++ b/repository/Grease-Pharo100-Core/GRPharoLatin1CodecStream.class.st @@ -0,0 +1,19 @@ +" +A GRPharoLatin1CodecStream is a WACodecStream optimized for ISO-8859-1 (direct byte to character mapping). +" +Class { + #name : 'GRPharoLatin1CodecStream', + #superclass : 'GRNullCodecStream', + #category : 'Grease-Pharo100-Core', + #package : 'Grease-Pharo100-Core' +} + +{ #category : 'streaming' } +GRPharoLatin1CodecStream >> next [ + ^ Character value: stream next +] + +{ #category : 'streaming' } +GRPharoLatin1CodecStream >> next: anInteger [ + ^ (stream next: anInteger) asString +] diff --git a/repository/Grease-Pharo100-Core/GRPharoPlatform.class.st b/repository/Grease-Pharo100-Core/GRPharoPlatform.class.st new file mode 100644 index 00000000..5d78b2d0 --- /dev/null +++ b/repository/Grease-Pharo100-Core/GRPharoPlatform.class.st @@ -0,0 +1,365 @@ +" +A WASqueakPlatform is the Squeak implementation of SeasidePlatformSupport, the Seaside class that provides functionality that can not be implemented in a platform independent way. + +" +Class { + #name : 'GRPharoPlatform', + #superclass : 'GRPlatform', + #classVars : [ + 'UrlTable', + 'XmlTable' + ], + #category : 'Grease-Pharo100-Core', + #package : 'Grease-Pharo100-Core' +} + +{ #category : 'class initialization' } +GRPharoPlatform class >> initialize [ + self initializeXmlTable. + self initializeUrlTable. + self select +] + +{ #category : 'class initialization' } +GRPharoPlatform class >> initializeUrlTable [ + UrlTable := ByteArray new: 256. + 1 to: 256 do: [ :index | + ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~' includes: (Character codePoint: index - 1)) + ifTrue: [ UrlTable at: index put: 0 ] + ifFalse: [ UrlTable at: index put: 1 ] ] +] + +{ #category : 'class initialization' } +GRPharoPlatform class >> initializeXmlTable [ + XmlTable := ByteArray new: 256. + 1 to: 256 do: [ :index | + ('"<&>' includes: (Character codePoint: index - 1)) + ifTrue: [ XmlTable at: index put: 1 ] + ifFalse: [ XmlTable at: index put: 0 ] ] +] + +{ #category : 'class initialization' } +GRPharoPlatform class >> unload [ + self unselect +] + +{ #category : 'startup' } +GRPharoPlatform >> addToShutDownList: anObject [ + "Add anObject to the shutdown-list of the system. On shutdown the message #shutDown will be sent to anObject." + + Smalltalk addToShutDownList: anObject +] + +{ #category : 'startup' } +GRPharoPlatform >> addToStartUpList: aClass [ + "Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject." + + SessionManager default registerUserClassNamed: aClass name +] + +{ #category : 'file library' } +GRPharoPlatform >> asMethodReturningByteArray: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a ByteArray" + ^ self useByteArrayLiterals + ifTrue: [ self asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol ] + ifFalse: [ self asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol ] +] + +{ #category : 'private-file library' } +GRPharoPlatform >> asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array using VW/NewCompiler byte array literal syntax." + ^ String streamContents: [ :stream | + stream nextPutAll: aSymbol; nextPut: Character cr. + stream tab; nextPutAll: '^ #['. + aByteArrayOrString asByteArray + do: [ :each | each printOn: stream ] + separatedBy: [ stream space ]. + stream nextPutAll: ']' ] +] + +{ #category : 'private-file library' } +GRPharoPlatform >> asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array and caching this array in a literal array of size 1." + ^ String streamContents: [ :stream | + stream nextPutAll: aSymbol; nextPut: Character cr. + stream tab; nextPutAll: '^ #('. + aByteArrayOrString asByteArray + do: [ :each | each printOn: stream ] + separatedBy: [ stream space ]. + stream nextPutAll: ') asByteArray' ] +] + +{ #category : 'encoding' } +GRPharoPlatform >> base64Decode: aString [ + ^ aString base64Decoded asString +] + +{ #category : 'encoding' } +GRPharoPlatform >> base64Encode: aByteArray [ + ^ aByteArray base64Encoded +] + +{ #category : 'bindings' } +GRPharoPlatform >> bindingOf: aClass [ + + ^ Smalltalk globals associationAt: aClass name +] + +{ #category : 'file library' } +GRPharoPlatform >> compile: aString into: aClass classified: aSymbol [ + aClass compile: aString classified: aSymbol +] + +{ #category : 'files' } +GRPharoPlatform >> contentsOfFile: aString binary: aBoolean [ + ^ self readFileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean +] + +{ #category : 'files' } +GRPharoPlatform >> deleteFile: aPathString [ + aPathString asFileReference delete +] + +{ #category : 'exceptions' } +GRPharoPlatform >> deprecationExceptionSet [ + "Answer the exception set that should considered besides WADeprecation." + ^ ExceptionSet new + add: Deprecation; + yourself +] + +{ #category : 'files' } +GRPharoPlatform >> directoriesIn: aPathString [ + "Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString + must not include directory names that start with ." + ^ Array streamContents: [ :stream | + FileSystem disk directoriesAt: aPathString do: [ :each | + each basename first = $. ifFalse: [ + stream nextPut: each asFileReference fullName ] ] ] +] + +{ #category : 'private' } +GRPharoPlatform >> doSilently: aBlock [ + ^ SystemAnnouncer uniqueInstance suspendAllWhile: aBlock +] + +{ #category : 'files' } +GRPharoPlatform >> ensureExistenceOfFolder: aString [ + "creates a folder named aString in the image directory" + FileSystem disk ensureCreateDirectory: aString +] + +{ #category : 'files' } +GRPharoPlatform >> fileExists: aString [ + ^ aString asFileReference exists +] + +{ #category : 'files' } +GRPharoPlatform >> filesIn: aPathString [ + "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString + must not include file names that start with ." + ^ Array streamContents: [ :stream | + FileSystem disk filesAt: aPathString do: [ :each | + each basename first = $. ifFalse: [ + stream nextPut: each asFileReference fullName ] ] ] +] + +{ #category : 'processes' } +GRPharoPlatform >> isProcessTerminated: aProcess [ + "Return a boolean indicating whether aProcess has been terminated." + ^ aProcess isTerminated +] + +{ #category : 'version info' } +GRPharoPlatform >> label [ + ^ 'Pharo' +] + +{ #category : 'files' } +GRPharoPlatform >> localNameOf: aFilename [ + ^ (FileSystem disk resolveString: aFilename) basename +] + +{ #category : 'factory' } +GRPharoPlatform >> newRandom [ + "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: + #nextInt: - should answer a random integer in the interval [1, anInteger] + #randomFrom: - should answer a random element from the given collection + + Make sure that both methods are safe under heavy concurrent load. + + Used by Gemstone/S traditional Randoms which cannot be persisted.." + ^ GRPharoRandomProvider +] + +{ #category : 'files' } +GRPharoPlatform >> newTemporaryFile [ + + ^ self newTemporaryFileNamed: UUID new greaseString +] + +{ #category : 'files' } +GRPharoPlatform >> newTemporaryFileNamed: aName [ + + | newFile | + newFile := FileLocator temp / aName. + newFile exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ]. + ^ newFile pathString +] + +{ #category : 'files' } +GRPharoPlatform >> newTemporaryFileReference [ + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + self + greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReference' + details: 'Use newTemporaryFile'. + ^ self newTemporaryFileReferenceNamed: UUID new asString +] + +{ #category : 'files' } +GRPharoPlatform >> newTemporaryFileReferenceNamed: aName [ + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + self + greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReferenceNamed:' + details: 'Use newTemporaryFileNamed:'. + ^ FileLocator temp / aName +] + +{ #category : 'file library' } +GRPharoPlatform >> newline [ + ^ String cr +] + +{ #category : 'exceptions' } +GRPharoPlatform >> openDebuggerOn: anError [ + (OupsDebugRequest newForException: anError) submit +] + +{ #category : 'files' } +GRPharoPlatform >> pathSeparator [ + ^ String with: FileSystem disk delimiter +] + +{ #category : 'files' } +GRPharoPlatform >> readFileStreamOn: aString do: aBlock binary: aBoolean [ + + ^ aBoolean + ifTrue: [ aString asFileReference binaryReadStreamDo: aBlock ] + ifFalse: [ aString asFileReference readStreamEncoded: 'utf-8' do: aBlock ] +] + +{ #category : 'factory' } +GRPharoPlatform >> readWriteByteStream [ + "ByteArray based read write stream" + + ^ ReadWriteStream on: (ByteArray new: 4096) +] + +{ #category : 'factory' } +GRPharoPlatform >> readWriteCharacterStream [ + "String based read write stream" + + ^ ReadWriteStream on: (String new: 4096) +] + +{ #category : 'startup' } +GRPharoPlatform >> removeFromShutDownList: aClass [ + "Remove aClass from the shutdown list in the system." + + SessionManager default unregisterClassNamed: aClass name +] + +{ #category : 'startup' } +GRPharoPlatform >> removeFromStartUpList: aClass [ + "Remove aClass from the startup list in the system." + + SessionManager default unregisterClassNamed: aClass name +] + +{ #category : 'file library' } +GRPharoPlatform >> removeSelector: aSymbol from: aClass [ + aClass removeSelector: aSymbol +] + +{ #category : 'cryptography' } +GRPharoPlatform >> secureHashFor: aStringOrByteArray [ + ^ SHA1 new hashMessage: aStringOrByteArray +] + +{ #category : 'factory' } +GRPharoPlatform >> semaphoreClass [ + "used by Gemstone/S traditional Semaphores which cannot be persisted" + ^ Semaphore +] + +{ #category : 'files' } +GRPharoPlatform >> sizeOfFile: aString [ + + ^ aString asFileReference size +] + +{ #category : 'meta-object-protocol' } +GRPharoPlatform >> sourceCodeStringOf: aCompiledMethod [ + "Return a String with the source code for a compiled method." + + ^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode +] + +{ #category : 'exceptions' } +GRPharoPlatform >> stackDepth [ + + | depth current | + depth := 0. + current := thisContext. + [ current isNil ] whileFalse: [ + current := current sender. + depth := depth + 1 ]. + ^ depth - 1 +] + +{ #category : 'processes' } +GRPharoPlatform >> terminateProcess: aProcess [ + "Permanently terminate the process, unwinding first to execute #ensure: and #ifCurtailed: blocks." + aProcess terminate +] + +{ #category : 'processes' } +GRPharoPlatform >> thisContext [ + + ^ thisContext sender +] + +{ #category : 'private-file library' } +GRPharoPlatform >> useByteArrayLiterals [ + "whether ByteArray literals can/should be used" + ^ true +] + +{ #category : 'factory' } +GRPharoPlatform >> weakDictionaryOfSize: aNumber [ + ^ IdentityDictionary new: aNumber +] + +{ #category : 'files' } +GRPharoPlatform >> write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString [ + "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" + ^ self + writeFileStreamOn: (aFolderString asFileReference / aFileNameString) ensureDelete pathString + do: [ :stream | stream nextPutAll: aStringOrByteArray ] + binary: aStringOrByteArray isString not +] + +{ #category : 'files' } +GRPharoPlatform >> writeFileStreamOn: aString do: aBlock binary: aBoolean [ + ^ aBoolean + ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ] + ifFalse: [ aString asFileReference writeStreamEncoded: 'utf-8' do: [ :str | aBlock value: (ZnNewLineWriterStream on: str) ] ] +] diff --git a/repository/Grease-Pharo100-Core/GRPharoRandomProvider.class.st b/repository/Grease-Pharo100-Core/GRPharoRandomProvider.class.st new file mode 100644 index 00000000..35314a23 --- /dev/null +++ b/repository/Grease-Pharo100-Core/GRPharoRandomProvider.class.st @@ -0,0 +1,53 @@ +Class { + #name : 'GRPharoRandomProvider', + #superclass : 'GRObject', + #classInstVars : [ + 'mutex', + 'generator' + ], + #category : 'Grease-Pharo100-Core', + #package : 'Grease-Pharo100-Core' +} + +{ #category : 'private' } +GRPharoRandomProvider class >> initialize [ + Smalltalk addToStartUpList: self. + self startUp +] + +{ #category : 'public' } +GRPharoRandomProvider class >> nextInt: anInteger [ + + "Answer a random integer in the interval [1, anInteger]" + + ^ mutex critical: [ generator nextInteger: anInteger ] +] + +{ #category : 'private' } +GRPharoRandomProvider class >> randomClass [ + ^ Random +] + +{ #category : 'public' } +GRPharoRandomProvider class >> randomFrom: aCollection [ + | random count | + random := self nextInt: aCollection size. + ^ aCollection isSequenceable + ifTrue: [ aCollection at: random ] + ifFalse: [ + count := 1. + aCollection do: [ :ea | + count = random ifTrue: [ ^ ea ]. + count := count + 1 ] ] +] + +{ #category : 'class initialization' } +GRPharoRandomProvider class >> startUp [ + generator := self randomClass new. + mutex := Semaphore forMutualExclusion +] + +{ #category : 'private' } +GRPharoRandomProvider class >> unload [ + GRPlatform current removeFromStartUpList: self +] diff --git a/repository/Grease-Pharo100-Core/GRPharoZnCodec.class.st b/repository/Grease-Pharo100-Core/GRPharoZnCodec.class.st new file mode 100644 index 00000000..aa95fe96 --- /dev/null +++ b/repository/Grease-Pharo100-Core/GRPharoZnCodec.class.st @@ -0,0 +1,89 @@ +Class { + #name : 'GRPharoZnCodec', + #superclass : 'GRCodec', + #instVars : [ + 'name', + 'urlCodec' + ], + #category : 'Grease-Pharo100-Core', + #package : 'Grease-Pharo100-Core' +} + +{ #category : 'private' } +GRPharoZnCodec class >> basicForEncoding: aString [ + (self supportsEncoding: aString) + ifFalse: [ self unsupportedEncoding: aString ]. + ^ self basicNew initializeWithName: aString +] + +{ #category : 'accessing' } +GRPharoZnCodec class >> codecs [ + ^ self supportedEncodingNames + collect: [ :each | self basicForEncoding: each greaseString ] +] + +{ #category : 'accessing' } +GRPharoZnCodec class >> supportedEncodingNames [ + "answers the names of the encodings supported by this class" + + | all | + all := ZnCharacterEncoder knownEncodingIdentifiers asOrderedCollection. + "We include some (but not all) alternative names for encodings, providing some backwards compatibility with TextConverter encoding names. Make a PR if you need more." + (all includes: 'utf8') + ifTrue:[ all addAll: #('utf-8' 'UTF-8') ]. + (all includes: 'utf16') + ifTrue:[ all addAll: #('utf-16' 'UTF-16') ]. + (all includes: 'macroman') + ifTrue:[ all add: 'mac-roman' ]. + (all includes: 'cp1252') + ifTrue:[ all add: 'cp-1252' ]. + ^ all +] + +{ #category : 'accessing' } +GRPharoZnCodec class >> supportsEncoding: aName [ + ^ self supportedEncodingNames includes: aName +] + +{ #category : 'convenience' } +GRPharoZnCodec >> decode: aStringOrByteArray [ + ^ super decode: aStringOrByteArray asByteArray +] + +{ #category : 'conversion' } +GRPharoZnCodec >> decoderFor: aStream [ + ^ self encoderFor: aStream +] + +{ #category : 'conversion' } +GRPharoZnCodec >> encodedStringClass [ + ^ ByteArray +] + +{ #category : 'conversion' } +GRPharoZnCodec >> encoderFor: aStream [ + ^ GRPharoZnCodecStream + on: aStream + withEncoder: (ZnCharacterEncoder newForEncoding: self name) +] + +{ #category : 'initialization' } +GRPharoZnCodec >> initializeWithName: aString [ + self initialize. + name := aString. + urlCodec := (#('iso-8859-15' 'cp-1252' 'utf8' 'utf-8' 'UTF-8') includes: aString) + ifFalse: [ GRCodec forEncoding: 'utf8' ] + ifTrue: [ self ] +] + +{ #category : 'accessing' } +GRPharoZnCodec >> name [ + ^ name +] + +{ #category : 'accessing' } +GRPharoZnCodec >> url [ + "RFC 3986: When a new URI scheme defines a component that represents textual data consisting of characters from the Universal Character Set [UCS], the data should first be encoded as octets according to the UTF-8 character encoding." + + ^ urlCodec +] diff --git a/repository/Grease-Pharo100-Core/GRPharoZnCodecStream.class.st b/repository/Grease-Pharo100-Core/GRPharoZnCodecStream.class.st new file mode 100644 index 00000000..668f7829 --- /dev/null +++ b/repository/Grease-Pharo100-Core/GRPharoZnCodecStream.class.st @@ -0,0 +1,56 @@ +Class { + #name : 'GRPharoZnCodecStream', + #superclass : 'GRCodecStream', + #instVars : [ + 'encoder' + ], + #category : 'Grease-Pharo100-Core', + #package : 'Grease-Pharo100-Core' +} + +{ #category : 'instance creation' } +GRPharoZnCodecStream class >> on: aStream withEncoder: aZnEncoder [ + ^ self basicNew initializeOn: aStream withEncoder: aZnEncoder +] + +{ #category : 'accessing' } +GRPharoZnCodecStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + encoder next: anInteger putAll: aCollection startingAt: startIndex toStream: stream +] + +{ #category : 'initialization' } +GRPharoZnCodecStream >> initializeOn: aStream withEncoder: aZnEncoder [ + self initialize. + stream := aStream. + encoder := aZnEncoder +] + +{ #category : 'accessing' } +GRPharoZnCodecStream >> next [ + | character | + stream atEnd ifTrue: [ ^ nil ]. + character := encoder nextFromStream: stream. + ^ character ifNotNil: [ character asCharacter ] +] + +{ #category : 'accessing' } +GRPharoZnCodecStream >> next: anInteger [ + | writeStream | + writeStream := WriteStream on: (String new: anInteger). + anInteger timesRepeat: [ + writeStream nextPut: (self next + ifNil: [ ^ writeStream contents ]) ]. + ^ writeStream contents +] + +{ #category : 'accessing' } +GRPharoZnCodecStream >> nextPut: aCharacter [ + encoder nextPut: aCharacter asCharacter toStream: stream +] + +{ #category : 'streaming' } +GRPharoZnCodecStream >> nextPutAll: aString [ + | string | + string := aString asString. + encoder next: string size putAll: string startingAt: 1 toStream: stream +] diff --git a/repository/Grease-Pharo100-Core/GRSmallDictionary.extension.st b/repository/Grease-Pharo100-Core/GRSmallDictionary.extension.st new file mode 100644 index 00000000..ce8617fb --- /dev/null +++ b/repository/Grease-Pharo100-Core/GRSmallDictionary.extension.st @@ -0,0 +1,18 @@ +Extension { #name : 'GRSmallDictionary' } + +{ #category : '*Grease-Pharo100-Core' } +GRSmallDictionary >> inspectionItems: aBuilder [ + + + ^ aBuilder newTable + addColumn: (SpStringTableColumn + title: 'Key' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ]) + beSortable; + addColumn: (SpStringTableColumn + title: 'Value' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ]) + beSortable; + items: self associations; + yourself +] diff --git a/repository/Grease-Pharo100-Core/GRSmallDictionary2.extension.st b/repository/Grease-Pharo100-Core/GRSmallDictionary2.extension.st new file mode 100644 index 00000000..673d9d15 --- /dev/null +++ b/repository/Grease-Pharo100-Core/GRSmallDictionary2.extension.st @@ -0,0 +1,18 @@ +Extension { #name : 'GRSmallDictionary2' } + +{ #category : '*Grease-Pharo100-Core' } +GRSmallDictionary2 >> inspectionItems: aBuilder [ + + + ^ aBuilder newTable + addColumn: (SpStringTableColumn + title: 'Key' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ]) + beSortable; + addColumn: (SpStringTableColumn + title: 'Value' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ]) + beSortable; + items: self associations; + yourself +] diff --git a/repository/Grease-Pharo100-Core/Interval.extension.st b/repository/Grease-Pharo100-Core/Interval.extension.st new file mode 100644 index 00000000..dde83f89 --- /dev/null +++ b/repository/Grease-Pharo100-Core/Interval.extension.st @@ -0,0 +1,9 @@ +Extension { #name : 'Interval' } + +{ #category : '*Grease-Pharo100-Core' } +Interval >> any [ + "#first (used by SequenceableCollection>>anyOne) is an accessor of + Interval and does not error on an empty Interval." + + ^ self at: 1 +] diff --git a/repository/Grease-Pharo100-Core/LargeInteger.extension.st b/repository/Grease-Pharo100-Core/LargeInteger.extension.st new file mode 100644 index 00000000..565e7f83 --- /dev/null +++ b/repository/Grease-Pharo100-Core/LargeInteger.extension.st @@ -0,0 +1,11 @@ +Extension { #name : 'LargeInteger' } + +{ #category : '*Grease-Pharo100-Core' } +LargeInteger >> greaseByteAt: index [ + ^ self byteAt: index +] + +{ #category : '*Grease-Pharo100-Core' } +LargeInteger >> greaseBytesCount [ + ^ self bytesCount +] diff --git a/repository/Grease-Pharo100-Core/MessageSend.extension.st b/repository/Grease-Pharo100-Core/MessageSend.extension.st new file mode 100644 index 00000000..ceec49ac --- /dev/null +++ b/repository/Grease-Pharo100-Core/MessageSend.extension.st @@ -0,0 +1,15 @@ +Extension { #name : 'MessageSend' } + +{ #category : '*Grease-Pharo100-Core' } +MessageSend >> argumentCount [ + ^ selector numArgs - self arguments size +] + +{ #category : '*Grease-Pharo100-Core' } +MessageSend >> valueWithPossibleArguments: anArray [ + "Evaluate the block represented by the receiver. + If the block requires one argument, use anArg, if it requires more than one, + fill up the rest with nils." + + ^ self valueWithEnoughArguments: anArray +] diff --git a/repository/Grease-Pharo100-Core/Number.extension.st b/repository/Grease-Pharo100-Core/Number.extension.st new file mode 100644 index 00000000..e163f16e --- /dev/null +++ b/repository/Grease-Pharo100-Core/Number.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Number' } + +{ #category : '*Grease-Pharo100-Core' } +Number >> milliseconds [ + ^ self milliSeconds +] diff --git a/repository/Grease-Pharo100-Core/Object.extension.st b/repository/Grease-Pharo100-Core/Object.extension.st new file mode 100644 index 00000000..593fc881 --- /dev/null +++ b/repository/Grease-Pharo100-Core/Object.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Object' } + +{ #category : '*Grease-Pharo100-Core' } +Object >> greaseString [ + ^ self asString +] diff --git a/repository/Grease-Pharo100-Core/Point.extension.st b/repository/Grease-Pharo100-Core/Point.extension.st new file mode 100644 index 00000000..38c3667e --- /dev/null +++ b/repository/Grease-Pharo100-Core/Point.extension.st @@ -0,0 +1,16 @@ +Extension { #name : 'Point' } + +{ #category : '*Grease-Pharo100-Core' } +Point >> greaseString [ + "Reimplemented because in Pharo 1.4 + (4 @ 2) greaseString + ansers '(4@2)'" + ^ String streamContents: [ :stream | + x printOn: stream. + stream nextPut: $@. + (y notNil and: [ y negative ]) + ifTrue: [ + "Avoid ambiguous @- construct" + stream space ]. + y printOn: stream ] +] diff --git a/repository/Grease-Pharo100-Core/PositionableStream.extension.st b/repository/Grease-Pharo100-Core/PositionableStream.extension.st new file mode 100644 index 00000000..f49ab3b7 --- /dev/null +++ b/repository/Grease-Pharo100-Core/PositionableStream.extension.st @@ -0,0 +1,8 @@ +Extension { #name : 'PositionableStream' } + +{ #category : '*Grease-Pharo100-Core' } +PositionableStream >> greaseUpToAll: aCollection [ + "Needed for Seaside ports to other dialects where #upToAll: may have + different semantics" + ^ self upToAll: aCollection +] diff --git a/repository/Grease-Pharo100-Core/ScaledDecimal.extension.st b/repository/Grease-Pharo100-Core/ScaledDecimal.extension.st new file mode 100644 index 00000000..85ede735 --- /dev/null +++ b/repository/Grease-Pharo100-Core/ScaledDecimal.extension.st @@ -0,0 +1,15 @@ +Extension { #name : 'ScaledDecimal' } + +{ #category : '*Grease-Pharo100-Core' } +ScaledDecimal >> encodeOn: aDocument [ + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + converter print: self on: aDocument +] + +{ #category : '*Grease-Pharo100-Core' } +ScaledDecimal >> greaseString [ + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + ^ converter print: self +] diff --git a/repository/Grease-Pharo100-Core/SequenceableCollection.extension.st b/repository/Grease-Pharo100-Core/SequenceableCollection.extension.st new file mode 100644 index 00000000..69c1da06 --- /dev/null +++ b/repository/Grease-Pharo100-Core/SequenceableCollection.extension.st @@ -0,0 +1,35 @@ +Extension { #name : 'SequenceableCollection' } + +{ #category : '*Grease-Pharo100-Core' } +SequenceableCollection >> beginsWithSubCollection: aSequenceableCollection [ + "Some platforms implement #beginsWith: to answer true for an empty argument." + self + greaseDeprecatedApi: 'SequenceableCollection>>#beginsWithSubCollection:' + details: 'Use SequenceableCollection>>#greaseBegins:'. + aSequenceableCollection isEmpty ifTrue: [ ^ false ]. + ^ self beginsWith: aSequenceableCollection +] + +{ #category : '*Grease-Pharo100-Core' } +SequenceableCollection >> endsWithSubCollection: aSequenceableCollection [ + "Some platforms implement #endsWith: to answer true for an empty argument." + self + greaseDeprecatedApi: 'SequenceableCollection>>#endsWithSubCollection:' + details: 'Use SequenceableCollection>>#greaseEndsWith:'. + aSequenceableCollection isEmpty ifTrue: [ ^ false ]. + ^ self endsWith: aSequenceableCollection +] + +{ #category : '*Grease-Pharo100-Core' } +SequenceableCollection >> greaseBeginsWith: aSequenceableCollection [ + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self beginsWith: aSequenceableCollection +] + +{ #category : '*Grease-Pharo100-Core' } +SequenceableCollection >> greaseEndsWith: aSequenceableCollection [ + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self endsWith: aSequenceableCollection +] diff --git a/repository/Grease-Pharo100-Core/SmallInteger.extension.st b/repository/Grease-Pharo100-Core/SmallInteger.extension.st new file mode 100644 index 00000000..41458312 --- /dev/null +++ b/repository/Grease-Pharo100-Core/SmallInteger.extension.st @@ -0,0 +1,11 @@ +Extension { #name : 'SmallInteger' } + +{ #category : '*Grease-Pharo100-Core' } +SmallInteger >> greaseByteAt: index [ + ^ self byteAt: index +] + +{ #category : '*Grease-Pharo100-Core' } +SmallInteger >> greaseBytesCount [ + ^ self bytesCount +] diff --git a/repository/Grease-Pharo100-Core/SocketStream.extension.st b/repository/Grease-Pharo100-Core/SocketStream.extension.st new file mode 100644 index 00000000..1535d966 --- /dev/null +++ b/repository/Grease-Pharo100-Core/SocketStream.extension.st @@ -0,0 +1,16 @@ +Extension { #name : 'SocketStream' } + +{ #category : '*Grease-Pharo100-Core' } +SocketStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + "Put a String or a ByteArray onto the stream starting at the given position. + Currently a large collection will allocate a large buffer." + + | toPut | + anInteger = 0 ifTrue: [ + ^ aCollection ]. + toPut := binary ifTrue: [ aCollection asByteArray ] ifFalse: [ aCollection asString ]. + self adjustOutBuffer: anInteger. + outBuffer replaceFrom: outNextToWrite to: outNextToWrite + anInteger - 1 with: toPut startingAt: startIndex. + outNextToWrite := outNextToWrite + anInteger. + self checkFlush +] diff --git a/repository/Grease-Pharo100-Core/Symbol.extension.st b/repository/Grease-Pharo100-Core/Symbol.extension.st new file mode 100644 index 00000000..004a3f84 --- /dev/null +++ b/repository/Grease-Pharo100-Core/Symbol.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Symbol' } + +{ #category : '*Grease-Pharo100-Core' } +Symbol >> greaseAsMutator [ + ^ self asMutator +] diff --git a/repository/Grease-Pharo100-Core/WriteStream.extension.st b/repository/Grease-Pharo100-Core/WriteStream.extension.st new file mode 100644 index 00000000..ce66d489 --- /dev/null +++ b/repository/Grease-Pharo100-Core/WriteStream.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'WriteStream' } + +{ #category : '*Grease-Pharo100-Core' } +WriteStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + "Store the next anInteger elements from the given collection." + ^ self next: anInteger putAll: aCollection startingAt: startIndex +] diff --git a/repository/Grease-Pharo100-Core/package.st b/repository/Grease-Pharo100-Core/package.st new file mode 100644 index 00000000..4c5ef733 --- /dev/null +++ b/repository/Grease-Pharo100-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Pharo100-Core' } diff --git a/repository/Grease-Pharo110-Slime-Core.package/.filetree b/repository/Grease-Pharo110-Slime-Core.package/.filetree deleted file mode 100644 index 57a67973..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/afterCheck.mappings..st b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/afterCheck.mappings..st deleted file mode 100644 index 495d1401..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/afterCheck.mappings..st +++ /dev/null @@ -1,15 +0,0 @@ -hooks -afterCheck: aNode mappings: mappingDict - - | method | - method := aNode methodNode. - " This ensures that the description is of the form ClassName>>#selector:" - (aNode arguments first isLiteralNode - and: [ aNode arguments first value isString - and: [ method methodClass name greaseString , '>>#' , method selector greaseString ~= aNode arguments first value ] ]) ifTrue: [ ^ true ]. - - " This ensures that the description is a string and ends with a dot." - ^ (aNode arguments size > 1 - and: [ aNode arguments second isLiteralNode - and: [ aNode arguments second value isString - and: [ (aNode arguments second value endsWithSubCollection: '.') not ] ] ]) \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/group.st deleted file mode 100644 index b5813499..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st deleted file mode 100644 index 4ee4851c..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st +++ /dev/null @@ -1,8 +0,0 @@ -initialization -initialize - - super initialize. - self - matchesAny: #( - '``@receiver greaseDeprecatedApi: ``@arg1' - '``@receiver greaseDeprecatedApi: ``@arg1 details: ``@arg2' ) \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/name.st deleted file mode 100644 index 554083f4..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'Invalid use of deprecated API protocol.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st deleted file mode 100644 index aeabf8ad..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ 'Make sure to follow the following pattern: self greaseDeprecatedApi: ''Class>>#selector'' details: ''Some description''.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/properties.json b/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/properties.json deleted file mode 100644 index d28d8ab3..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRDeprecatedApiProtocolRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRReSlimeParseTreeLintRule", - "category" : "Grease-Pharo110-Slime-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRDeprecatedApiProtocolRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/class/isVisible.st deleted file mode 100644 index 0e3a239e..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/class/isVisible.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isVisible - - ^ self name ~= #GRReSlimeBlockLintRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/properties.json b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/properties.json deleted file mode 100644 index 3ea0a053..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeBlockLintRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ReAbstractRule", - "category" : "Grease-Pharo110-Slime-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRReSlimeBlockLintRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/class/isVisible.st deleted file mode 100644 index 2d2913fb..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/class/isVisible.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isVisible - - ^ self name ~= #GRReSlimeParseTreeLintRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/properties.json b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/properties.json deleted file mode 100644 index e590c6d3..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeParseTreeLintRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ReNodeMatchRule", - "category" : "Grease-Pharo110-Slime-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRReSlimeParseTreeLintRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/class/isVisible.st deleted file mode 100644 index b84d2a50..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/class/isVisible.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isVisible - - ^ self name ~= #GRReSlimeTransformationRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/properties.json b/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/properties.json deleted file mode 100644 index 097d5355..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRReSlimeTransformationRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ReNodeRewriteRule", - "category" : "Grease-Pharo110-Slime-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRReSlimeTransformationRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/README.md deleted file mode 100644 index acb02dfd..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/README.md +++ /dev/null @@ -1 +0,0 @@ -For compatibility for versions of Seaside older than 3.5.6 \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/class/isVisible.st deleted file mode 100644 index 116356fd..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/class/isVisible.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isVisible - - ^ self name ~= #GRSlimeBlockLintRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/properties.json b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/properties.json deleted file mode 100644 index c36ac25e..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeBlockLintRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "JohanBrichau 3/11/2024 21:54", - "super" : "RBBlockLintRule", - "category" : "Grease-Pharo110-Slime-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRSlimeBlockLintRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/README.md deleted file mode 100644 index acb02dfd..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/README.md +++ /dev/null @@ -1 +0,0 @@ -For compatibility for versions of Seaside older than 3.5.6 \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/class/isVisible.st deleted file mode 100644 index 5d72890a..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/class/isVisible.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isVisible - - ^ self name ~= #GRSlimeParseTreeLintRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/properties.json b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/properties.json deleted file mode 100644 index 93569366..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeParseTreeLintRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "JohanBrichau 3/11/2024 21:54", - "super" : "RBParseTreeLintRule", - "category" : "Grease-Pharo110-Slime-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRSlimeParseTreeLintRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/README.md b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/README.md deleted file mode 100644 index acb02dfd..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/README.md +++ /dev/null @@ -1 +0,0 @@ -For compatibility for versions of Seaside older than 3.5.6 \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/class/isVisible.st deleted file mode 100644 index b60e68d4..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/class/isVisible.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isVisible - - ^ self name ~= #GRSlimeTransformationRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/properties.json b/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/properties.json deleted file mode 100644 index 90106c6e..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/GRSlimeTransformationRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "JohanBrichau 3/11/2024 21:54", - "super" : "RBTransformationRule", - "category" : "Grease-Pharo110-Slime-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRSlimeTransformationRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/categories.st deleted file mode 100644 index 3990f1cc..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -self packageOrganizer ensurePackage: #'Grease-Pharo110-Slime-Core' withTags: #()! diff --git a/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/package b/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/package deleted file mode 100644 index 8e727ec7..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo110-Slime-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core.package/properties.json b/repository/Grease-Pharo110-Slime-Core.package/properties.json deleted file mode 100644 index 6f31cf5a..00000000 --- a/repository/Grease-Pharo110-Slime-Core.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Core/GRDeprecatedApiProtocolRule.class.st b/repository/Grease-Pharo110-Slime-Core/GRDeprecatedApiProtocolRule.class.st new file mode 100644 index 00000000..422b8d87 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core/GRDeprecatedApiProtocolRule.class.st @@ -0,0 +1,51 @@ +Class { + #name : 'GRDeprecatedApiProtocolRule', + #superclass : 'GRReSlimeParseTreeLintRule', + #category : 'Grease-Pharo110-Slime-Core', + #package : 'Grease-Pharo110-Slime-Core' +} + +{ #category : 'hooks' } +GRDeprecatedApiProtocolRule >> afterCheck: aNode mappings: mappingDict [ + + | method | + method := aNode methodNode. + " This ensures that the description is of the form ClassName>>#selector:" + (aNode arguments first isLiteralNode + and: [ aNode arguments first value isString + and: [ method methodClass name greaseString , '>>#' , method selector greaseString ~= aNode arguments first value ] ]) ifTrue: [ ^ true ]. + + " This ensures that the description is a string and ends with a dot." + ^ (aNode arguments size > 1 + and: [ aNode arguments second isLiteralNode + and: [ aNode arguments second value isString + and: [ (aNode arguments second value endsWithSubCollection: '.') not ] ] ]) +] + +{ #category : 'accessing' } +GRDeprecatedApiProtocolRule >> group [ + + ^ 'Grease Formatting' +] + +{ #category : 'initialization' } +GRDeprecatedApiProtocolRule >> initialize [ + + super initialize. + self + matchesAny: #( + '``@receiver greaseDeprecatedApi: ``@arg1' + '``@receiver greaseDeprecatedApi: ``@arg1 details: ``@arg2' ) +] + +{ #category : 'accessing' } +GRDeprecatedApiProtocolRule >> name [ + + ^ 'Invalid use of deprecated API protocol.' +] + +{ #category : 'accessing' } +GRDeprecatedApiProtocolRule >> rationale [ + + ^ 'Make sure to follow the following pattern: self greaseDeprecatedApi: ''Class>>#selector'' details: ''Some description''.' +] diff --git a/repository/Grease-Pharo110-Slime-Core/GRReSlimeBlockLintRule.class.st b/repository/Grease-Pharo110-Slime-Core/GRReSlimeBlockLintRule.class.st new file mode 100644 index 00000000..5dd003e1 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core/GRReSlimeBlockLintRule.class.st @@ -0,0 +1,12 @@ +Class { + #name : 'GRReSlimeBlockLintRule', + #superclass : 'ReAbstractRule', + #category : 'Grease-Pharo110-Slime-Core', + #package : 'Grease-Pharo110-Slime-Core' +} + +{ #category : 'testing' } +GRReSlimeBlockLintRule class >> isVisible [ + + ^ self name ~= #GRReSlimeBlockLintRule +] diff --git a/repository/Grease-Pharo110-Slime-Core/GRReSlimeParseTreeLintRule.class.st b/repository/Grease-Pharo110-Slime-Core/GRReSlimeParseTreeLintRule.class.st new file mode 100644 index 00000000..372ebfdf --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core/GRReSlimeParseTreeLintRule.class.st @@ -0,0 +1,12 @@ +Class { + #name : 'GRReSlimeParseTreeLintRule', + #superclass : 'ReNodeMatchRule', + #category : 'Grease-Pharo110-Slime-Core', + #package : 'Grease-Pharo110-Slime-Core' +} + +{ #category : 'testing' } +GRReSlimeParseTreeLintRule class >> isVisible [ + + ^ self name ~= #GRReSlimeParseTreeLintRule +] diff --git a/repository/Grease-Pharo110-Slime-Core/GRReSlimeTransformationRule.class.st b/repository/Grease-Pharo110-Slime-Core/GRReSlimeTransformationRule.class.st new file mode 100644 index 00000000..aa3aee86 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core/GRReSlimeTransformationRule.class.st @@ -0,0 +1,12 @@ +Class { + #name : 'GRReSlimeTransformationRule', + #superclass : 'ReNodeRewriteRule', + #category : 'Grease-Pharo110-Slime-Core', + #package : 'Grease-Pharo110-Slime-Core' +} + +{ #category : 'testing' } +GRReSlimeTransformationRule class >> isVisible [ + + ^ self name ~= #GRReSlimeTransformationRule +] diff --git a/repository/Grease-Pharo110-Slime-Core/GRSlimeBlockLintRule.class.st b/repository/Grease-Pharo110-Slime-Core/GRSlimeBlockLintRule.class.st new file mode 100644 index 00000000..a3b1fd4e --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core/GRSlimeBlockLintRule.class.st @@ -0,0 +1,15 @@ +" +For compatibility for versions of Seaside older than 3.5.6 +" +Class { + #name : 'GRSlimeBlockLintRule', + #superclass : 'RBBlockLintRule', + #category : 'Grease-Pharo110-Slime-Core', + #package : 'Grease-Pharo110-Slime-Core' +} + +{ #category : 'testing' } +GRSlimeBlockLintRule class >> isVisible [ + + ^ self name ~= #GRSlimeBlockLintRule +] diff --git a/repository/Grease-Pharo110-Slime-Core/GRSlimeParseTreeLintRule.class.st b/repository/Grease-Pharo110-Slime-Core/GRSlimeParseTreeLintRule.class.st new file mode 100644 index 00000000..8ef4c58d --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core/GRSlimeParseTreeLintRule.class.st @@ -0,0 +1,15 @@ +" +For compatibility for versions of Seaside older than 3.5.6 +" +Class { + #name : 'GRSlimeParseTreeLintRule', + #superclass : 'RBParseTreeLintRule', + #category : 'Grease-Pharo110-Slime-Core', + #package : 'Grease-Pharo110-Slime-Core' +} + +{ #category : 'testing' } +GRSlimeParseTreeLintRule class >> isVisible [ + + ^ self name ~= #GRSlimeParseTreeLintRule +] diff --git a/repository/Grease-Pharo110-Slime-Core/GRSlimeTransformationRule.class.st b/repository/Grease-Pharo110-Slime-Core/GRSlimeTransformationRule.class.st new file mode 100644 index 00000000..3e0bd893 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core/GRSlimeTransformationRule.class.st @@ -0,0 +1,15 @@ +" +For compatibility for versions of Seaside older than 3.5.6 +" +Class { + #name : 'GRSlimeTransformationRule', + #superclass : 'RBTransformationRule', + #category : 'Grease-Pharo110-Slime-Core', + #package : 'Grease-Pharo110-Slime-Core' +} + +{ #category : 'testing' } +GRSlimeTransformationRule class >> isVisible [ + + ^ self name ~= #GRSlimeTransformationRule +] diff --git a/repository/Grease-Pharo110-Slime-Core/package.st b/repository/Grease-Pharo110-Slime-Core/package.st new file mode 100644 index 00000000..66637950 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Pharo110-Slime-Core' } diff --git a/repository/Grease-Pharo110-Slime-Portability.package/.filetree b/repository/Grease-Pharo110-Slime-Portability.package/.filetree deleted file mode 100644 index 57a67973..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/group.st deleted file mode 100644 index f34a290f..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/initialize.st deleted file mode 100644 index 6058ed9f..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/initialize.st +++ /dev/null @@ -1,19 +0,0 @@ -initialization -initialize - - super initialize. - self - replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ]' - with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 ] ]'; - replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ]' - with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 ] ] ]'; - replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ] and: [ | `@temp5 | ``@expr5 ]' - with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 and: [ | `@temp5 | ``@expr5 ] ] ] ]'; - replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ]' - with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 ] ]'; - replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ]' - with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 ] ] ]'; - replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ]' - with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 ] ] ] ]'; - replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ] or: [ | `@temp6 | ``@expr6 ]' - with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 or: [ | `@temp6 | ``@expr6 ] ] ] ] ]' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/name.st deleted file mode 100644 index c1c48207..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'Booleans' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/rationale.st deleted file mode 100644 index b650ed54..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ '#and:and: and #or:or: are not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/properties.json deleted file mode 100644 index ea030bd2..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiBooleansRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRReSlimeTransformationRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRAnsiBooleansRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/group.st deleted file mode 100644 index f34a290f..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/initialize.st deleted file mode 100644 index f83e0222..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/initialize.st +++ /dev/null @@ -1,16 +0,0 @@ -initialization -initialize - - super initialize. - self - replace: 'Character value: ``@expr' - with: 'Character codePoint: ``@expr'. - self - replace: '`#source `{:node | node value isCharacter }` to: `#target' - byEvaluating: [ :node | - (node receiver value isCharacter and: [ - node arguments first value isCharacter ]) - ifTrue: [ - RBLiteralNode value: (String streamContents: [ :stream | - node receiver value codePoint to: node arguments first value codePoint do: [ :code | stream nextPut: (Character codePoint: code) ] ]) ] - ifFalse: [ node ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/name.st deleted file mode 100644 index 6ea7a32b..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'Characters' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/rationale.st deleted file mode 100644 index 94cf8eb0..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ 'Character value: 64 and $a to: $b is not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/properties.json deleted file mode 100644 index 829d5eaa..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCharactersRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRReSlimeTransformationRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRAnsiCharactersRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/group.st deleted file mode 100644 index f34a290f..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/initialize.st deleted file mode 100644 index 86c772ea..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/initialize.st +++ /dev/null @@ -1,30 +0,0 @@ -initialization -initialize - super initialize. - self - replace: '``@collection withIndexDo: [ :`each :`index | | `@temps | ``@.body ]' - with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; - replace: '``@collection doWithIndex: [ :`each :`index | | `@temps | ``@.body ]' - with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; - replace: '``@collection collect: ``@block1 thenDo: ``@block2' - with: '(``@collection collect: ``@block1) do: ``@block2'; - replace: '``@collection collect: ``@block1 thenSelect: ``@block2' - with: '(``@collection collect: ``@block1) select: ``@block2'; - replace: '``@collection pairsDo: [ :`t1 :`t2 | ``@.statements ]' - with: '1 to: ``@collection size by: 2 do: [ :index | | `t1 `t2 | `t1 := ``@collection at: index. `t2 := ``@collection at: index + 1. ``@.statements ]'; - replace: '``@collection reject: ``@block1 thenDo: ``@block2' - with: '(``@collection reject: ``@block1) do: ``@block2'; - replace: '``@collection select: ``@block1 thenCollect: ``@block2' - with: '(``@collection select: ``@block1) collect: ``@block2'; - replace: '``@collection select: ``@block1 thenDo: ``@block2' - with: '(``@collection select: ``@block1) do: ``@block2'; - replace: '``@collection detectSum: [ :`t1 | ``@.statements. `.last ]' - with: '``@collection inject: 0 into: [ :sum :`t1 | ``@.statements. sum + (`.last) ]'; - replace: '``@collection valuesDo: ``@block' - with: '``@collection do: ``@block'; - replace: '``@collection reversed' - with: '``@collection reverse'; - replace: '``@dictionary keysSortedSafely' - with: '``@dictionary keys asSortedCollection'; - replace: '``@collectionClass new: ``@size withAll: ``@character' - with: '(``@collectionClass new: ``@size) atAllPut: ``@character' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/name.st deleted file mode 100644 index a318a869..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'Collections' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/rationale.st deleted file mode 100644 index 5929ea0d..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ 'Some collection methods are not ANSI compatible: #pairsDo:, #collect:thenDo:, #reject:thenDo:, #detectSum:, #valuesDo:, #keysSortedSafely, #new:withAll:, etc.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/properties.json deleted file mode 100644 index f5f8c087..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiCollectionsRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRReSlimeTransformationRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRAnsiCollectionsRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/group.st deleted file mode 100644 index f34a290f..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/initialize.st deleted file mode 100644 index 962d59d3..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/initialize.st +++ /dev/null @@ -1,17 +0,0 @@ -initialization -initialize - - super initialize. - self - replace: '``@boolean ifNotNilDo: ``@block' - with: '``@boolean ifNotNil: ``@block'; - replace: '``@boolean ifNotNilDo: ``@block1 ifNil: ``@block2' - with: '``@boolean ifNotNil: ``@block1 ifNil: ``@block2'; - replace: '``@boolean ifNil: ``@block1 ifNotNilDo: ``@block2' - with: '``@boolean ifNil: ``@block1 ifNotNil: ``@block2'; - replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ]' - with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ]'; - replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ] ifNil: ``@block ' - with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ] ifNil: ``@block'; - replace: '``@boolean ifNil: ``@block ifNotNil: [ | `@temps | ``@.body ]' - with: '``@boolean ifNil: ``@block ifNotNil: [ :arg | | `@temps | ``@.body ]' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/name.st deleted file mode 100644 index 76482a4a..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'Conditionals' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/rationale.st deleted file mode 100644 index a60d109e..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ 'Conditionals like #ifNotNilDo: are not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/properties.json deleted file mode 100644 index 20329511..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConditionalsRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRReSlimeTransformationRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRAnsiConditionalsRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/group.st deleted file mode 100644 index f34a290f..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/initialize.st deleted file mode 100644 index 4867fd82..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/initialize.st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initialize - - super initialize. - self - replace: '``@object asString' with: '``@object greaseString'; - replace: '``@object asInteger' with: '``@object greaseInteger' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/name.st deleted file mode 100644 index 14c21187..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'Convertors' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/rationale.st deleted file mode 100644 index 806fe5ac..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ 'The ANSI standard does not support #asInteger and #asString on Object.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/properties.json deleted file mode 100644 index 2a17b9cf..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiConvertorRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRReSlimeTransformationRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRAnsiConvertorRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/group.st deleted file mode 100644 index f34a290f..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/initialize.st deleted file mode 100644 index a06d318e..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/initialize.st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initialize - - super initialize. - self - replace: '``@block on: `class do: [ | `@temps | ``@.body ]' - with: '``@block on: `class do: [ :err | | `@temps | ``@.body ]' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/name.st deleted file mode 100644 index 6d5286e6..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'Exceptions' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/rationale.st deleted file mode 100644 index 7ec36da6..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ 'Exception handlers expect exactly one argument in ANSI.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/properties.json deleted file mode 100644 index 4119078e..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiExceptionsRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRReSlimeTransformationRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRAnsiExceptionsRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/group.st deleted file mode 100644 index f34a290f..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/initialize.st deleted file mode 100644 index 1b87d4ea..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/initialize.st +++ /dev/null @@ -1,13 +0,0 @@ -initialization -initialize - - super initialize. - self - replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } cr' - with: '`{ :context | context at: ''`receiver'' } nextPut: Character cr'; - replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } lf' - with: '`{ :context | context at: ''`receiver'' } nextPut: Character lf'; - replace: '``@stream nextPut: Character cr; nextPut: Character lf' - with: '``@stream crlf'; - replace: '``@collection writeStream' - with: 'WriteStream on: ``@collection' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/name.st deleted file mode 100644 index 50e44acb..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'Streams' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/rationale.st deleted file mode 100644 index 3d05fb7c..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ '#cr and #lf are not part of the ANSI stream protocol.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/properties.json deleted file mode 100644 index f0ce96f2..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStreamsRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRReSlimeTransformationRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRAnsiStreamsRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/group.st deleted file mode 100644 index f34a290f..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/initialize.st deleted file mode 100644 index 702a9ad0..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/initialize.st +++ /dev/null @@ -1,26 +0,0 @@ -initialization -initialize - - super initialize. - self - replace: 'String tab' with: '(String with: Character tab)'; - replace: 'String cr' with: '(String with: Character cr)'; - replace: 'String lf' with: '(String with: Character lf)'; - replace: 'String crlf' with: '(String with: Character cr with: Character lf)'; - replace: 'String space' with: '(String with: Character space)'; - replace: '`@string includesSubString: `@subString' - with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; - replace: '`@string includesSubstring: `@subString' - with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; - replace: '``@string findTokens: ``@arg' byEvaluating: [ :node | - | argument newNode | - newNode := node copy. - argument := newNode arguments first. - argument isLiteralNode ifTrue: [ - argument value isArray - ifTrue: [ argument replaceWith: (RBLiteralNode value: (String withAll: argument value)) ]. - argument value isCharacter - ifTrue: [ argument replaceWith: (RBLiteralNode value: (String with: argument value)) ] ]. - newNode - selector: #subStrings:; - yourself ] \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/name.st deleted file mode 100644 index 31e016a6..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'Strings' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/rationale.st deleted file mode 100644 index 84577e32..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ '#cr, #crlf, #lf, #space, #tab, #findTokens:, ... are not part of the ANSI string protocol.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/properties.json deleted file mode 100644 index 55ce4bd3..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRAnsiStringsRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRReSlimeTransformationRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRAnsiStringsRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/class/checksClass.st b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/class/checksClass.st deleted file mode 100644 index 918ec479..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/class/checksClass.st +++ /dev/null @@ -1,4 +0,0 @@ -testing - interest -checksClass - - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/basicCheck..st b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/basicCheck..st deleted file mode 100644 index 7d00fbc7..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/basicCheck..st +++ /dev/null @@ -1,11 +0,0 @@ -running -basicCheck: aClass - - ^ aClass isMeta not - and: [ (aClass includesSelector: #initialize) - and: [ (#(GRObject GRNotification GRNotification GRError RBLintRule RBTransformationRule) noneSatisfy: [ :each | - aClass includesBehavior: (Smalltalk globals at: each) ]) - and: [ aClass class methodDictionary noneSatisfy: [ :each | - matcher - executeTree: each parseTree - initialAnswer: false ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/group.st deleted file mode 100644 index b4981dc4..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st deleted file mode 100644 index f42fb7c0..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st +++ /dev/null @@ -1,8 +0,0 @@ -initialization -initialize - - super initialize. - matcher := RBParseTreeSearcher new. - matcher - matches: 'self basicNew initialize' - do: [ :node :answer | true ] \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/name.st deleted file mode 100644 index 693fa6d6..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ '#basicNew initialize is missing' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st deleted file mode 100644 index 22a02ade..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ '#initialize is not called implicitly when sending #new to an object in all Smalltalk dialects. Consider subclassing GRObject.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/properties.json deleted file mode 100644 index a097ce11..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRBasicNewInitializeMissingRule.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRReSlimeBlockLintRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "matcher" - ], - "name" : "GRBasicNewInitializeMissingRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/class/checksMethod.st b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/class/checksMethod.st deleted file mode 100644 index c0b5961f..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/class/checksMethod.st +++ /dev/null @@ -1,4 +0,0 @@ -testing - interest -checksMethod - - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/basicCheck..st b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/basicCheck..st deleted file mode 100644 index 1b7b4c47..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/basicCheck..st +++ /dev/null @@ -1,10 +0,0 @@ -running -basicCheck: aMethod - - ^ (aMethod methodClass isMeta not - and: [ (aMethod selector beginsWithSubCollection: #initialize) - and: [ aMethod selector numArgs > 0 - and: [ aMethod methodClass ~= GRObject - and: [ (aMethod methodClass includesBehavior: GRObject) - and: [ (aMethod superMessages includes: aMethod selector) not - and: [ aMethod selfMessages noneSatisfy: [ :each | each beginsWithSubCollection: #initialize ] ] ] ] ] ] ]) \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/group.st deleted file mode 100644 index b4981dc4..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/name.st deleted file mode 100644 index 6386a8fd..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'Invalid object initialization' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/rationale.st deleted file mode 100644 index 9ce37a52..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ 'Initialize methods are required to call the designated initializer or its super implementation.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/properties.json deleted file mode 100644 index f530afd0..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRInvalidObjectInitializationRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRReSlimeBlockLintRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRInvalidObjectInitializationRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/class/checksNode.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/class/checksNode.st deleted file mode 100644 index 5e68f2ca..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/class/checksNode.st +++ /dev/null @@ -1,4 +0,0 @@ -testing - interest -checksNode - - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/basicCheck..st b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/basicCheck..st deleted file mode 100644 index 428bcd1c..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/basicCheck..st +++ /dev/null @@ -1,4 +0,0 @@ -running -basicCheck: anEntity - - ^ anEntity isMessage and:[ self methodNames includes: anEntity selector ] diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/group.st deleted file mode 100644 index b4981dc4..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/methodNames.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/methodNames.st deleted file mode 100644 index 25a16ed6..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/methodNames.st +++ /dev/null @@ -1,4 +0,0 @@ -private -methodNames - - ^ #( anyOne withIndexCollect: ) \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/name.st deleted file mode 100644 index cc5e5c47..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'Uses non portable message' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/rationale.st deleted file mode 100644 index bc7272e4..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ 'Some methods are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/properties.json deleted file mode 100644 index 1c576d5f..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRNonPortableMessageRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRReSlimeBlockLintRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRNonPortableMessageRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/group.st deleted file mode 100644 index b4981dc4..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/initialize.st deleted file mode 100644 index 5e8d416d..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/initialize.st +++ /dev/null @@ -1,9 +0,0 @@ -initialization -initialize - - super initialize. - self - replace: '`@collection beginsWith: `@subCollection' - with: '`@collection greaseBeginsWith: `@subCollection'; - replace: '`@collection endsWith: `@subCollection' - with: '`@collection greaseEndsWith: `@subCollection' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/name.st deleted file mode 100644 index a318a869..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'Collections' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/rationale.st deleted file mode 100644 index df5a43be..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ '#beginsWith: and #endsWith: are not portable.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/properties.json deleted file mode 100644 index 61611855..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRNotPortableCollectionsRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRReSlimeTransformationRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRNotPortableCollectionsRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/README.md deleted file mode 100644 index bca4d093..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I detect senders of Object >> #in: diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/group.st deleted file mode 100644 index b4981dc4..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/initialize.st deleted file mode 100644 index d51d0570..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/initialize.st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initialize - - super initialize. - self - replace: '``@object in: [ :`var | | `@temps | `@.statements ]' - with: '[ :`var | | `@temps | `@.statements ] value: ``@object' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/name.st deleted file mode 100644 index 914d48df..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'Object>>#in:' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/rationale.st deleted file mode 100644 index 944aa7c5..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ 'Object>>#in: has different semantics on different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/properties.json deleted file mode 100644 index 65740cec..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRObjectInRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 9/12/2009 10:37", - "super" : "GRReSlimeTransformationRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRObjectInRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/class/checksMethod.st b/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/class/checksMethod.st deleted file mode 100644 index c0b5961f..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/class/checksMethod.st +++ /dev/null @@ -1,4 +0,0 @@ -testing - interest -checksMethod - - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/instance/basicCheck..st b/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/instance/basicCheck..st deleted file mode 100644 index 18b14d25..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/instance/basicCheck..st +++ /dev/null @@ -1,8 +0,0 @@ -running -basicCheck: aMethod - - (aMethod methodClass instanceSide category indexOfSubCollection: #'-Pharo-' startingAt: 1) ~= 0 ifTrue: [ - "classes in a -Pharo- package are per definition not portable and therefore allowed to use non-portable classes" - ^ false ]. - - ^ aMethod literals anySatisfy: [ :each | each isVariableBinding and: [ self classNames includes: each key ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/instance/name.st deleted file mode 100644 index 510ca2ab..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'Uses not portable class' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/properties.json deleted file mode 100644 index 1290aaf1..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRReferencesNotPortableClassRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRUsesNotPortableClassRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRReferencesNotPortableClassRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/class/checksClass.st b/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/class/checksClass.st deleted file mode 100644 index 918ec479..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/class/checksClass.st +++ /dev/null @@ -1,4 +0,0 @@ -testing - interest -checksClass - - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/instance/basicCheck..st b/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/instance/basicCheck..st deleted file mode 100644 index 1091897f..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/instance/basicCheck..st +++ /dev/null @@ -1,4 +0,0 @@ -running -basicCheck: aClass - - ^ aClass allSuperclasses anySatisfy: [ :each | self classNames includes: each name ] \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/instance/name.st deleted file mode 100644 index 65a2945a..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'Subclasses not portable class' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/properties.json deleted file mode 100644 index db075258..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRSubclassesNotPortableClassRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRUsesNotPortableClassRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRSubclassesNotPortableClassRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/README.md deleted file mode 100644 index 6f3d9062..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I check for TestCase >> #fail. \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/afterCheck.mappings..st b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/afterCheck.mappings..st deleted file mode 100644 index 874f1381..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/afterCheck.mappings..st +++ /dev/null @@ -1,8 +0,0 @@ -hooks -afterCheck: aNode mappings: mappingsDict - - aNode methodNode methodClass isMeta - ifTrue: [ ^ false ]. - (aNode methodNode methodClass allSuperclasses includes: (Smalltalk at: #TestCase)) - ifTrue: [ ^ true ]. - ^ false \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/group.st deleted file mode 100644 index eb721d8e..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'SUnit Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/initialize.st deleted file mode 100644 index 097ff5a1..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/initialize.st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initialize - - super initialize. - self - replace: 'self fail' - with: 'self assert: false' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/name.st deleted file mode 100644 index 0dd472fc..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'TestCase >> #fail' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/rationale.st deleted file mode 100644 index 4e358c3e..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ 'TestCase >> #fail is not portable.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/properties.json deleted file mode 100644 index 26df4eaa..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRTestAssertionsRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 8/17/2014 11:24", - "super" : "GRReSlimeTransformationRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRTestAssertionsRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st deleted file mode 100644 index b4981dc4..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st deleted file mode 100644 index 6ca1e900..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initialize - - super initialize. - self matchesAny: #( - '`@receiver canPerform: `@selector' - '`@receiver canUnderstand: `@selector' ) \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st deleted file mode 100644 index a7805d06..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'Sends #canPerform: or #canUnderstand:' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st deleted file mode 100644 index 4332f561..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ '#canPerform: or #canUnderstand: are not portable.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/properties.json deleted file mode 100644 index 4b4ace91..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesCanPerformOrUnderstandRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRReSlimeParseTreeLintRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRUsesCanPerformOrUnderstandRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/afterCheck.mappings..st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/afterCheck.mappings..st deleted file mode 100644 index 4648081c..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/afterCheck.mappings..st +++ /dev/null @@ -1,4 +0,0 @@ -hooks -afterCheck: aNode mappings: mappingDict - - ^ aNode methodNode selector = #hash \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/group.st deleted file mode 100644 index b4981dc4..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/initialize.st deleted file mode 100644 index 190c57e0..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialization -initialize - - super initialize. - self matches: '`@receiver class hash' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/name.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/name.st deleted file mode 100644 index 2a762ed7..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/name.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -name - - ^ 'Uses its class for hash' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/rationale.st deleted file mode 100644 index 018489ab..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ 'The hash of an object should not depend on the hash of its class as some Smalltalk have non-constant class hashes.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/properties.json deleted file mode 100644 index 3e90e3f3..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesClassForHashRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRReSlimeParseTreeLintRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRUsesClassForHashRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/README.md b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/class/isAbstract.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/class/isAbstract.st deleted file mode 100644 index 7d1d20cc..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/class/isAbstract.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isAbstract - - ^ self name = #GRUsesNotPortableClassRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/class/isVisible.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/class/isVisible.st deleted file mode 100644 index 680a15af..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/class/isVisible.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isVisible - - ^ self name ~= #GRUsesNotPortableClassRule \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/classNames.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/classNames.st deleted file mode 100644 index 0487cbe8..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/classNames.st +++ /dev/null @@ -1,4 +0,0 @@ -private -classNames - - ^ #( Delay MIMEDocument Monitor Mutex MutexSet Random Semaphore TimeStamp Timestamp MessageSend ) \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/group.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/group.st deleted file mode 100644 index b4981dc4..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/group.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -group - - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/rationale.st b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/rationale.st deleted file mode 100644 index e9a097fe..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/instance/rationale.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -rationale - - ^ 'Some classes are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/properties.json deleted file mode 100644 index 323de9e2..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/GRUsesNotPortableClassRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRReSlimeBlockLintRule", - "category" : "Grease-Pharo110-Slime-Portability", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRUsesNotPortableClassRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/categories.st b/repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/categories.st deleted file mode 100644 index 139dcc24..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -self packageOrganizer ensurePackage: #'Grease-Pharo110-Slime-Portability' withTags: #()! diff --git a/repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/initializers.st b/repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/package b/repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/package deleted file mode 100644 index 59863a35..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo110-Slime-Portability') \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability.package/properties.json b/repository/Grease-Pharo110-Slime-Portability.package/properties.json deleted file mode 100644 index 6f31cf5a..00000000 --- a/repository/Grease-Pharo110-Slime-Portability.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/repository/Grease-Pharo110-Slime-Portability/GRAnsiBooleansRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRAnsiBooleansRule.class.st new file mode 100644 index 00000000..41898a2b --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRAnsiBooleansRule.class.st @@ -0,0 +1,45 @@ +Class { + #name : 'GRAnsiBooleansRule', + #superclass : 'GRReSlimeTransformationRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'accessing' } +GRAnsiBooleansRule >> group [ + + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiBooleansRule >> initialize [ + + super initialize. + self + replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ]' + with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 ] ]'; + replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ]' + with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 ] ] ]'; + replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ] and: [ | `@temp5 | ``@expr5 ]' + with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 and: [ | `@temp5 | ``@expr5 ] ] ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 ] ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 ] ] ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ] or: [ | `@temp6 | ``@expr6 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 or: [ | `@temp6 | ``@expr6 ] ] ] ] ]' +] + +{ #category : 'accessing' } +GRAnsiBooleansRule >> name [ + + ^ 'Booleans' +] + +{ #category : 'accessing' } +GRAnsiBooleansRule >> rationale [ + + ^ '#and:and: and #or:or: are not ANSI compatible.' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRAnsiCharactersRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRAnsiCharactersRule.class.st new file mode 100644 index 00000000..bbb43f22 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRAnsiCharactersRule.class.st @@ -0,0 +1,42 @@ +Class { + #name : 'GRAnsiCharactersRule', + #superclass : 'GRReSlimeTransformationRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'accessing' } +GRAnsiCharactersRule >> group [ + + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiCharactersRule >> initialize [ + + super initialize. + self + replace: 'Character value: ``@expr' + with: 'Character codePoint: ``@expr'. + self + replace: '`#source `{:node | node value isCharacter }` to: `#target' + byEvaluating: [ :node | + (node receiver value isCharacter and: [ + node arguments first value isCharacter ]) + ifTrue: [ + RBLiteralNode value: (String streamContents: [ :stream | + node receiver value codePoint to: node arguments first value codePoint do: [ :code | stream nextPut: (Character codePoint: code) ] ]) ] + ifFalse: [ node ] ] +] + +{ #category : 'accessing' } +GRAnsiCharactersRule >> name [ + + ^ 'Characters' +] + +{ #category : 'accessing' } +GRAnsiCharactersRule >> rationale [ + + ^ 'Character value: 64 and $a to: $b is not ANSI compatible.' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRAnsiCollectionsRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRAnsiCollectionsRule.class.st new file mode 100644 index 00000000..59c4533d --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRAnsiCollectionsRule.class.st @@ -0,0 +1,56 @@ +Class { + #name : 'GRAnsiCollectionsRule', + #superclass : 'GRReSlimeTransformationRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'accessing' } +GRAnsiCollectionsRule >> group [ + + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiCollectionsRule >> initialize [ + super initialize. + self + replace: '``@collection withIndexDo: [ :`each :`index | | `@temps | ``@.body ]' + with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; + replace: '``@collection doWithIndex: [ :`each :`index | | `@temps | ``@.body ]' + with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; + replace: '``@collection collect: ``@block1 thenDo: ``@block2' + with: '(``@collection collect: ``@block1) do: ``@block2'; + replace: '``@collection collect: ``@block1 thenSelect: ``@block2' + with: '(``@collection collect: ``@block1) select: ``@block2'; + replace: '``@collection pairsDo: [ :`t1 :`t2 | ``@.statements ]' + with: '1 to: ``@collection size by: 2 do: [ :index | | `t1 `t2 | `t1 := ``@collection at: index. `t2 := ``@collection at: index + 1. ``@.statements ]'; + replace: '``@collection reject: ``@block1 thenDo: ``@block2' + with: '(``@collection reject: ``@block1) do: ``@block2'; + replace: '``@collection select: ``@block1 thenCollect: ``@block2' + with: '(``@collection select: ``@block1) collect: ``@block2'; + replace: '``@collection select: ``@block1 thenDo: ``@block2' + with: '(``@collection select: ``@block1) do: ``@block2'; + replace: '``@collection detectSum: [ :`t1 | ``@.statements. `.last ]' + with: '``@collection inject: 0 into: [ :sum :`t1 | ``@.statements. sum + (`.last) ]'; + replace: '``@collection valuesDo: ``@block' + with: '``@collection do: ``@block'; + replace: '``@collection reversed' + with: '``@collection reverse'; + replace: '``@dictionary keysSortedSafely' + with: '``@dictionary keys asSortedCollection'; + replace: '``@collectionClass new: ``@size withAll: ``@character' + with: '(``@collectionClass new: ``@size) atAllPut: ``@character' +] + +{ #category : 'accessing' } +GRAnsiCollectionsRule >> name [ + + ^ 'Collections' +] + +{ #category : 'accessing' } +GRAnsiCollectionsRule >> rationale [ + + ^ 'Some collection methods are not ANSI compatible: #pairsDo:, #collect:thenDo:, #reject:thenDo:, #detectSum:, #valuesDo:, #keysSortedSafely, #new:withAll:, etc.' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRAnsiConditionalsRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRAnsiConditionalsRule.class.st new file mode 100644 index 00000000..7f6ee253 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRAnsiConditionalsRule.class.st @@ -0,0 +1,43 @@ +Class { + #name : 'GRAnsiConditionalsRule', + #superclass : 'GRReSlimeTransformationRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'accessing' } +GRAnsiConditionalsRule >> group [ + + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiConditionalsRule >> initialize [ + + super initialize. + self + replace: '``@boolean ifNotNilDo: ``@block' + with: '``@boolean ifNotNil: ``@block'; + replace: '``@boolean ifNotNilDo: ``@block1 ifNil: ``@block2' + with: '``@boolean ifNotNil: ``@block1 ifNil: ``@block2'; + replace: '``@boolean ifNil: ``@block1 ifNotNilDo: ``@block2' + with: '``@boolean ifNil: ``@block1 ifNotNil: ``@block2'; + replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ]' + with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ]'; + replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ] ifNil: ``@block ' + with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ] ifNil: ``@block'; + replace: '``@boolean ifNil: ``@block ifNotNil: [ | `@temps | ``@.body ]' + with: '``@boolean ifNil: ``@block ifNotNil: [ :arg | | `@temps | ``@.body ]' +] + +{ #category : 'accessing' } +GRAnsiConditionalsRule >> name [ + + ^ 'Conditionals' +] + +{ #category : 'accessing' } +GRAnsiConditionalsRule >> rationale [ + + ^ 'Conditionals like #ifNotNilDo: are not ANSI compatible.' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRAnsiConvertorRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRAnsiConvertorRule.class.st new file mode 100644 index 00000000..d2c2bd93 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRAnsiConvertorRule.class.st @@ -0,0 +1,33 @@ +Class { + #name : 'GRAnsiConvertorRule', + #superclass : 'GRReSlimeTransformationRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'accessing' } +GRAnsiConvertorRule >> group [ + + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiConvertorRule >> initialize [ + + super initialize. + self + replace: '``@object asString' with: '``@object greaseString'; + replace: '``@object asInteger' with: '``@object greaseInteger' +] + +{ #category : 'accessing' } +GRAnsiConvertorRule >> name [ + + ^ 'Convertors' +] + +{ #category : 'accessing' } +GRAnsiConvertorRule >> rationale [ + + ^ 'The ANSI standard does not support #asInteger and #asString on Object.' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRAnsiExceptionsRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRAnsiExceptionsRule.class.st new file mode 100644 index 00000000..7f66478c --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRAnsiExceptionsRule.class.st @@ -0,0 +1,33 @@ +Class { + #name : 'GRAnsiExceptionsRule', + #superclass : 'GRReSlimeTransformationRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'accessing' } +GRAnsiExceptionsRule >> group [ + + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiExceptionsRule >> initialize [ + + super initialize. + self + replace: '``@block on: `class do: [ | `@temps | ``@.body ]' + with: '``@block on: `class do: [ :err | | `@temps | ``@.body ]' +] + +{ #category : 'accessing' } +GRAnsiExceptionsRule >> name [ + + ^ 'Exceptions' +] + +{ #category : 'accessing' } +GRAnsiExceptionsRule >> rationale [ + + ^ 'Exception handlers expect exactly one argument in ANSI.' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRAnsiStreamsRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRAnsiStreamsRule.class.st new file mode 100644 index 00000000..7f441d01 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRAnsiStreamsRule.class.st @@ -0,0 +1,39 @@ +Class { + #name : 'GRAnsiStreamsRule', + #superclass : 'GRReSlimeTransformationRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'accessing' } +GRAnsiStreamsRule >> group [ + + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiStreamsRule >> initialize [ + + super initialize. + self + replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } cr' + with: '`{ :context | context at: ''`receiver'' } nextPut: Character cr'; + replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } lf' + with: '`{ :context | context at: ''`receiver'' } nextPut: Character lf'; + replace: '``@stream nextPut: Character cr; nextPut: Character lf' + with: '``@stream crlf'; + replace: '``@collection writeStream' + with: 'WriteStream on: ``@collection' +] + +{ #category : 'accessing' } +GRAnsiStreamsRule >> name [ + + ^ 'Streams' +] + +{ #category : 'accessing' } +GRAnsiStreamsRule >> rationale [ + + ^ '#cr and #lf are not part of the ANSI stream protocol.' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRAnsiStringsRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRAnsiStringsRule.class.st new file mode 100644 index 00000000..01556092 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRAnsiStringsRule.class.st @@ -0,0 +1,52 @@ +Class { + #name : 'GRAnsiStringsRule', + #superclass : 'GRReSlimeTransformationRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'accessing' } +GRAnsiStringsRule >> group [ + + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiStringsRule >> initialize [ + + super initialize. + self + replace: 'String tab' with: '(String with: Character tab)'; + replace: 'String cr' with: '(String with: Character cr)'; + replace: 'String lf' with: '(String with: Character lf)'; + replace: 'String crlf' with: '(String with: Character cr with: Character lf)'; + replace: 'String space' with: '(String with: Character space)'; + replace: '`@string includesSubString: `@subString' + with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; + replace: '`@string includesSubstring: `@subString' + with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; + replace: '``@string findTokens: ``@arg' byEvaluating: [ :node | + | argument newNode | + newNode := node copy. + argument := newNode arguments first. + argument isLiteralNode ifTrue: [ + argument value isArray + ifTrue: [ argument replaceWith: (RBLiteralNode value: (String withAll: argument value)) ]. + argument value isCharacter + ifTrue: [ argument replaceWith: (RBLiteralNode value: (String with: argument value)) ] ]. + newNode + selector: #subStrings:; + yourself ] +] + +{ #category : 'accessing' } +GRAnsiStringsRule >> name [ + + ^ 'Strings' +] + +{ #category : 'accessing' } +GRAnsiStringsRule >> rationale [ + + ^ '#cr, #crlf, #lf, #space, #tab, #findTokens:, ... are not part of the ANSI string protocol.' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRBasicNewInitializeMissingRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRBasicNewInitializeMissingRule.class.st new file mode 100644 index 00000000..a58e5ea1 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRBasicNewInitializeMissingRule.class.st @@ -0,0 +1,56 @@ +Class { + #name : 'GRBasicNewInitializeMissingRule', + #superclass : 'GRReSlimeBlockLintRule', + #instVars : [ + 'matcher' + ], + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'testing - interest' } +GRBasicNewInitializeMissingRule class >> checksClass [ + + ^ true +] + +{ #category : 'running' } +GRBasicNewInitializeMissingRule >> basicCheck: aClass [ + + ^ aClass isMeta not + and: [ (aClass includesSelector: #initialize) + and: [ (#(GRObject GRNotification GRNotification GRError RBLintRule RBTransformationRule) noneSatisfy: [ :each | + aClass includesBehavior: (Smalltalk globals at: each) ]) + and: [ aClass class methodDictionary noneSatisfy: [ :each | + matcher + executeTree: each parseTree + initialAnswer: false ] ] ] ] +] + +{ #category : 'accessing' } +GRBasicNewInitializeMissingRule >> group [ + + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRBasicNewInitializeMissingRule >> initialize [ + + super initialize. + matcher := RBParseTreeSearcher new. + matcher + matches: 'self basicNew initialize' + do: [ :node :answer | true ] +] + +{ #category : 'accessing' } +GRBasicNewInitializeMissingRule >> name [ + + ^ '#basicNew initialize is missing' +] + +{ #category : 'accessing' } +GRBasicNewInitializeMissingRule >> rationale [ + + ^ '#initialize is not called implicitly when sending #new to an object in all Smalltalk dialects. Consider subclassing GRObject.' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRInvalidObjectInitializationRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRInvalidObjectInitializationRule.class.st new file mode 100644 index 00000000..dee1c046 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRInvalidObjectInitializationRule.class.st @@ -0,0 +1,42 @@ +Class { + #name : 'GRInvalidObjectInitializationRule', + #superclass : 'GRReSlimeBlockLintRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'testing - interest' } +GRInvalidObjectInitializationRule class >> checksMethod [ + + ^ true +] + +{ #category : 'running' } +GRInvalidObjectInitializationRule >> basicCheck: aMethod [ + + ^ (aMethod methodClass isMeta not + and: [ (aMethod selector beginsWithSubCollection: #initialize) + and: [ aMethod selector numArgs > 0 + and: [ aMethod methodClass ~= GRObject + and: [ (aMethod methodClass includesBehavior: GRObject) + and: [ (aMethod superMessages includes: aMethod selector) not + and: [ aMethod selfMessages noneSatisfy: [ :each | each beginsWithSubCollection: #initialize ] ] ] ] ] ] ]) +] + +{ #category : 'accessing' } +GRInvalidObjectInitializationRule >> group [ + + ^ 'Grease Portability' +] + +{ #category : 'accessing' } +GRInvalidObjectInitializationRule >> name [ + + ^ 'Invalid object initialization' +] + +{ #category : 'accessing' } +GRInvalidObjectInitializationRule >> rationale [ + + ^ 'Initialize methods are required to call the designated initializer or its super implementation.' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRNonPortableMessageRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRNonPortableMessageRule.class.st new file mode 100644 index 00000000..36fa5ba6 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRNonPortableMessageRule.class.st @@ -0,0 +1,43 @@ +Class { + #name : 'GRNonPortableMessageRule', + #superclass : 'GRReSlimeBlockLintRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'testing - interest' } +GRNonPortableMessageRule class >> checksNode [ + + ^ true +] + +{ #category : 'running' } +GRNonPortableMessageRule >> basicCheck: anEntity [ + + ^ anEntity isMessage and:[ self methodNames includes: anEntity selector ] + +] + +{ #category : 'accessing' } +GRNonPortableMessageRule >> group [ + + ^ 'Grease Portability' +] + +{ #category : 'private' } +GRNonPortableMessageRule >> methodNames [ + + ^ #( anyOne withIndexCollect: ) +] + +{ #category : 'accessing' } +GRNonPortableMessageRule >> name [ + + ^ 'Uses non portable message' +] + +{ #category : 'accessing' } +GRNonPortableMessageRule >> rationale [ + + ^ 'Some methods are not portable accross different Smalltalk dialects.' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRNotPortableCollectionsRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRNotPortableCollectionsRule.class.st new file mode 100644 index 00000000..437fcdd0 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRNotPortableCollectionsRule.class.st @@ -0,0 +1,35 @@ +Class { + #name : 'GRNotPortableCollectionsRule', + #superclass : 'GRReSlimeTransformationRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'accessing' } +GRNotPortableCollectionsRule >> group [ + + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRNotPortableCollectionsRule >> initialize [ + + super initialize. + self + replace: '`@collection beginsWith: `@subCollection' + with: '`@collection greaseBeginsWith: `@subCollection'; + replace: '`@collection endsWith: `@subCollection' + with: '`@collection greaseEndsWith: `@subCollection' +] + +{ #category : 'accessing' } +GRNotPortableCollectionsRule >> name [ + + ^ 'Collections' +] + +{ #category : 'accessing' } +GRNotPortableCollectionsRule >> rationale [ + + ^ '#beginsWith: and #endsWith: are not portable.' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRObjectInRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRObjectInRule.class.st new file mode 100644 index 00000000..086869f8 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRObjectInRule.class.st @@ -0,0 +1,37 @@ +" +I detect senders of Object >> #in: + +" +Class { + #name : 'GRObjectInRule', + #superclass : 'GRReSlimeTransformationRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'accessing' } +GRObjectInRule >> group [ + + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRObjectInRule >> initialize [ + + super initialize. + self + replace: '``@object in: [ :`var | | `@temps | `@.statements ]' + with: '[ :`var | | `@temps | `@.statements ] value: ``@object' +] + +{ #category : 'accessing' } +GRObjectInRule >> name [ + + ^ 'Object>>#in:' +] + +{ #category : 'accessing' } +GRObjectInRule >> rationale [ + + ^ 'Object>>#in: has different semantics on different Smalltalk dialects.' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRReferencesNotPortableClassRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRReferencesNotPortableClassRule.class.st new file mode 100644 index 00000000..55d1dcb5 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRReferencesNotPortableClassRule.class.st @@ -0,0 +1,28 @@ +Class { + #name : 'GRReferencesNotPortableClassRule', + #superclass : 'GRUsesNotPortableClassRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'testing - interest' } +GRReferencesNotPortableClassRule class >> checksMethod [ + + ^ true +] + +{ #category : 'running' } +GRReferencesNotPortableClassRule >> basicCheck: aMethod [ + + (aMethod methodClass instanceSide category indexOfSubCollection: #'-Pharo-' startingAt: 1) ~= 0 ifTrue: [ + "classes in a -Pharo- package are per definition not portable and therefore allowed to use non-portable classes" + ^ false ]. + + ^ aMethod literals anySatisfy: [ :each | each isVariableBinding and: [ self classNames includes: each key ] ] +] + +{ #category : 'accessing' } +GRReferencesNotPortableClassRule >> name [ + + ^ 'Uses not portable class' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRSubclassesNotPortableClassRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRSubclassesNotPortableClassRule.class.st new file mode 100644 index 00000000..007f3c7f --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRSubclassesNotPortableClassRule.class.st @@ -0,0 +1,24 @@ +Class { + #name : 'GRSubclassesNotPortableClassRule', + #superclass : 'GRUsesNotPortableClassRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'testing - interest' } +GRSubclassesNotPortableClassRule class >> checksClass [ + + ^ true +] + +{ #category : 'running' } +GRSubclassesNotPortableClassRule >> basicCheck: aClass [ + + ^ aClass allSuperclasses anySatisfy: [ :each | self classNames includes: each name ] +] + +{ #category : 'accessing' } +GRSubclassesNotPortableClassRule >> name [ + + ^ 'Subclasses not portable class' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRTestAssertionsRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRTestAssertionsRule.class.st new file mode 100644 index 00000000..af0ba72f --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRTestAssertionsRule.class.st @@ -0,0 +1,46 @@ +" +I check for TestCase >> #fail. +" +Class { + #name : 'GRTestAssertionsRule', + #superclass : 'GRReSlimeTransformationRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'hooks' } +GRTestAssertionsRule >> afterCheck: aNode mappings: mappingsDict [ + + aNode methodNode methodClass isMeta + ifTrue: [ ^ false ]. + (aNode methodNode methodClass allSuperclasses includes: (Smalltalk at: #TestCase)) + ifTrue: [ ^ true ]. + ^ false +] + +{ #category : 'accessing' } +GRTestAssertionsRule >> group [ + + ^ 'SUnit Compatibility' +] + +{ #category : 'initialization' } +GRTestAssertionsRule >> initialize [ + + super initialize. + self + replace: 'self fail' + with: 'self assert: false' +] + +{ #category : 'accessing' } +GRTestAssertionsRule >> name [ + + ^ 'TestCase >> #fail' +] + +{ #category : 'accessing' } +GRTestAssertionsRule >> rationale [ + + ^ 'TestCase >> #fail is not portable.' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRUsesCanPerformOrUnderstandRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRUsesCanPerformOrUnderstandRule.class.st new file mode 100644 index 00000000..cd98478e --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRUsesCanPerformOrUnderstandRule.class.st @@ -0,0 +1,33 @@ +Class { + #name : 'GRUsesCanPerformOrUnderstandRule', + #superclass : 'GRReSlimeParseTreeLintRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'accessing' } +GRUsesCanPerformOrUnderstandRule >> group [ + + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRUsesCanPerformOrUnderstandRule >> initialize [ + + super initialize. + self matchesAny: #( + '`@receiver canPerform: `@selector' + '`@receiver canUnderstand: `@selector' ) +] + +{ #category : 'accessing' } +GRUsesCanPerformOrUnderstandRule >> name [ + + ^ 'Sends #canPerform: or #canUnderstand:' +] + +{ #category : 'accessing' } +GRUsesCanPerformOrUnderstandRule >> rationale [ + + ^ '#canPerform: or #canUnderstand: are not portable.' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRUsesClassForHashRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRUsesClassForHashRule.class.st new file mode 100644 index 00000000..9541a0d2 --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRUsesClassForHashRule.class.st @@ -0,0 +1,37 @@ +Class { + #name : 'GRUsesClassForHashRule', + #superclass : 'GRReSlimeParseTreeLintRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'hooks' } +GRUsesClassForHashRule >> afterCheck: aNode mappings: mappingDict [ + + ^ aNode methodNode selector = #hash +] + +{ #category : 'accessing' } +GRUsesClassForHashRule >> group [ + + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRUsesClassForHashRule >> initialize [ + + super initialize. + self matches: '`@receiver class hash' +] + +{ #category : 'accessing' } +GRUsesClassForHashRule >> name [ + + ^ 'Uses its class for hash' +] + +{ #category : 'accessing' } +GRUsesClassForHashRule >> rationale [ + + ^ 'The hash of an object should not depend on the hash of its class as some Smalltalk have non-constant class hashes.' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/GRUsesNotPortableClassRule.class.st b/repository/Grease-Pharo110-Slime-Portability/GRUsesNotPortableClassRule.class.st new file mode 100644 index 00000000..d229febf --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/GRUsesNotPortableClassRule.class.st @@ -0,0 +1,36 @@ +Class { + #name : 'GRUsesNotPortableClassRule', + #superclass : 'GRReSlimeBlockLintRule', + #category : 'Grease-Pharo110-Slime-Portability', + #package : 'Grease-Pharo110-Slime-Portability' +} + +{ #category : 'testing' } +GRUsesNotPortableClassRule class >> isAbstract [ + + ^ self name = #GRUsesNotPortableClassRule +] + +{ #category : 'testing' } +GRUsesNotPortableClassRule class >> isVisible [ + + ^ self name ~= #GRUsesNotPortableClassRule +] + +{ #category : 'private' } +GRUsesNotPortableClassRule >> classNames [ + + ^ #( Delay MIMEDocument Monitor Mutex MutexSet Random Semaphore TimeStamp Timestamp MessageSend ) +] + +{ #category : 'accessing' } +GRUsesNotPortableClassRule >> group [ + + ^ 'Grease Portability' +] + +{ #category : 'accessing' } +GRUsesNotPortableClassRule >> rationale [ + + ^ 'Some classes are not portable accross different Smalltalk dialects.' +] diff --git a/repository/Grease-Pharo110-Slime-Portability/package.st b/repository/Grease-Pharo110-Slime-Portability/package.st new file mode 100644 index 00000000..9eb41b5a --- /dev/null +++ b/repository/Grease-Pharo110-Slime-Portability/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Pharo110-Slime-Portability' } diff --git a/repository/Grease-Pharo40-Slime.package/.filetree b/repository/Grease-Pharo40-Slime.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-Pharo40-Slime.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/instance/initialize.st deleted file mode 100644 index a39505e1..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/instance/initialize.st +++ /dev/null @@ -1,18 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ]' - with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 ] ]'; - replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ]' - with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 ] ] ]'; - replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ] and: [ | `@temp5 | ``@expr5 ]' - with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 and: [ | `@temp5 | ``@expr5 ] ] ] ]'; - replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ]' - with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 ] ]'; - replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ]' - with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 ] ] ]'; - replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ]' - with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 ] ] ] ]'; - replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ] or: [ | `@temp6 | ``@expr6 ]' - with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 or: [ | `@temp6 | ``@expr6 ] ] ] ] ]' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/instance/name.st deleted file mode 100644 index 5964bd28..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Booleans' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/instance/rationale.st deleted file mode 100644 index 1f109f56..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#and:and: and #or:or: are not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/properties.json deleted file mode 100644 index 17106ce7..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiBooleansRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRAnsiBooleansRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st deleted file mode 100644 index 2742a93f..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st +++ /dev/null @@ -1,13 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: 'Character value: ``@expr' with: 'Character codePoint: ``@expr'; - replace: '`#source to: `#target' - withValueFrom: [ :node | - RBLiteralNode value: (String streamContents: [ :stream | - node receiver value codePoint to: node arguments first value codePoint do: [ :code | - stream nextPut: (Character codePoint: code) ] ]) ] - when: [ :node | - node receiver value isCharacter - and: [ node arguments first value isCharacter ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/instance/name.st deleted file mode 100644 index a1b3f88e..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Characters' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st deleted file mode 100644 index e061dd71..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Character value: 64 and $a to: $b is not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/properties.json deleted file mode 100644 index 024f4887..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiCharactersRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRAnsiCharactersRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st deleted file mode 100644 index 1e93cbc8..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st +++ /dev/null @@ -1,30 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@collection withIndexDo: [ :`each :`index | | `@temps | ``@.body ]' - with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; - replace: '``@collection doWithIndex: [ :`each :`index | | `@temps | ``@.body ]' - with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; - replace: '``@collection collect: ``@block1 thenDo: ``@block2' - with: '(``@collection collect: ``@block1) do: ``@block2'; - replace: '``@collection collect: ``@block1 thenSelect: ``@block2' - with: '(``@collection collect: ``@block1) select: ``@block2'; - replace: '``@collection pairsDo: [ :`t1 :`t2 | ``@.statements ]' - with: '1 to: ``@collection size by: 2 do: [ :index | | `t1 `t2 | `t1 := ``@collection at: index. `t2 := ``@collection at: index + 1. ``@.statements ]'; - replace: '``@collection reject: ``@block1 thenDo: ``@block2' - with: '(``@collection reject: ``@block1) do: ``@block2'; - replace: '``@collection select: ``@block1 thenCollect: ``@block2' - with: '(``@collection select: ``@block1) collect: ``@block2'; - replace: '``@collection select: ``@block1 thenDo: ``@block2' - with: '(``@collection select: ``@block1) do: ``@block2'; - replace: '``@collection detectSum: [ :`t1 | ``@.statements. `.last ]' - with: '``@collection inject: 0 into: [ :sum :`t1 | ``@.statements. sum + (`.last) ]'; - replace: '``@collection valuesDo: ``@block' - with: '``@collection do: ``@block'; - replace: '``@collection reversed' - with: '``@collection reverse'; - replace: '``@dictionary keysSortedSafely' - with: '``@dictionary keys asSortedCollection'; - replace: '``@collectionClass new: ``@size withAll: ``@character' - with: '(``@collectionClass new: ``@size) atAllPut: ``@character' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/instance/name.st deleted file mode 100644 index fba52990..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Collections' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/instance/rationale.st deleted file mode 100644 index 8470c14b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Some collection methods are not ANSI compatible: #pairsDo:, #collect:thenDo:, #reject:thenDo:, #detectSum:, #valuesDo:, #keysSortedSafely, #new:withAll:, etc.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/properties.json deleted file mode 100644 index a6428b55..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiCollectionsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRAnsiCollectionsRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/instance/initialize.st deleted file mode 100644 index fe291c53..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/instance/initialize.st +++ /dev/null @@ -1,16 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@boolean ifNotNilDo: ``@block' - with: '``@boolean ifNotNil: ``@block'; - replace: '``@boolean ifNotNilDo: ``@block1 ifNil: ``@block2' - with: '``@boolean ifNotNil: ``@block1 ifNil: ``@block2'; - replace: '``@boolean ifNil: ``@block1 ifNotNilDo: ``@block2' - with: '``@boolean ifNil: ``@block1 ifNotNil: ``@block2'; - replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ]' - with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ]'; - replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ] ifNil: ``@block ' - with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ] ifNil: ``@block'; - replace: '``@boolean ifNil: ``@block ifNotNil: [ | `@temps | ``@.body ]' - with: '``@boolean ifNil: ``@block ifNotNil: [ :arg | | `@temps | ``@.body ]' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/instance/name.st deleted file mode 100644 index 4693610d..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Conditionals' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/instance/rationale.st deleted file mode 100644 index 42b2134b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Conditionals like #ifNotNilDo: are not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/properties.json deleted file mode 100644 index ea508836..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiConditionalsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRAnsiConditionalsRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/instance/initialize.st deleted file mode 100644 index bcd5fbac..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@object asString' with: '``@object greaseString'; - replace: '``@object asInteger' with: '``@object greaseInteger' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/instance/name.st deleted file mode 100644 index f3dd2a4d..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Convertors' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/instance/rationale.st deleted file mode 100644 index fa9200b0..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'The ANSI standard does not support #asInteger and #asString on Object.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/properties.json deleted file mode 100644 index 685c4620..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiConvertorRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRAnsiConvertorRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/instance/initialize.st deleted file mode 100644 index f0aadb85..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@block on: `class do: [ | `@temps | ``@.body ]' - with: '``@block on: `class do: [ :err | | `@temps | ``@.body ]' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/instance/name.st deleted file mode 100644 index e86669e1..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Exceptions' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/instance/rationale.st deleted file mode 100644 index 392fdedd..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Exception handlers expect exactly one argument in ANSI.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/properties.json deleted file mode 100644 index 61badeb3..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiExceptionsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRAnsiExceptionsRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/instance/initialize.st deleted file mode 100644 index 826e1af2..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/instance/initialize.st +++ /dev/null @@ -1,12 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } cr' - with: '`{ :context | context at: ''`receiver'' } nextPut: Character cr'; - replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } lf' - with: '`{ :context | context at: ''`receiver'' } nextPut: Character lf'; - replace: '``@stream nextPut: Character cr; nextPut: Character lf' - with: '``@stream crlf'; - replace: '``@collection writeStream' - with: 'WriteStream on: ``@collection' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/instance/name.st deleted file mode 100644 index aa09ac20..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Streams' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/instance/rationale.st deleted file mode 100644 index 57a15ba8..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#cr and #lf are not part of the ANSI stream protocol.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/properties.json deleted file mode 100644 index 25837c1e..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiStreamsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRAnsiStreamsRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/instance/initialize.st deleted file mode 100644 index af1892f0..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/instance/initialize.st +++ /dev/null @@ -1,24 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: 'String tab' with: '(String with: Character tab)'; - replace: 'String cr' with: '(String with: Character cr)'; - replace: 'String lf' with: '(String with: Character lf)'; - replace: 'String crlf' with: '(String with: Character cr with: Character lf)'; - replace: 'String space' with: '(String with: Character space)'; - replace: '`@string includesSubString: `@subString' - with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; - replace: '`@string includesSubstring: `@subString' - with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; - replace: '``@string findTokens: ``@arg' withValueFrom: [ :node | - | argument | - argument := node arguments first. - argument isLiteralNode ifTrue: [ - argument value isArray - ifTrue: [ argument replaceWith: (RBLiteralNode value: (String withAll: argument value)) ]. - argument value isCharacter - ifTrue: [ argument replaceWith: (RBLiteralNode value: (String with: argument value)) ] ]. - node - selector: #subStrings:; - yourself ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/instance/name.st deleted file mode 100644 index cdc89723..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Strings' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/instance/rationale.st deleted file mode 100644 index a42a193e..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#cr, #crlf, #lf, #space, #tab, #findTokens:, ... are not part of the ANSI string protocol.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/properties.json deleted file mode 100644 index d2d36fa3..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRAnsiStringsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRAnsiStringsRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st b/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st deleted file mode 100644 index b5489e28..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st +++ /dev/null @@ -1,13 +0,0 @@ -running -checkClass: aContext - (aContext isMeta not - and: [ (aContext includesSelector: #initialize) - and: [ (#(GRObject GRNotification GRNotification GRError RBLintRule RBTransformationRule) noneSatisfy: [ :each | - aContext includesBehavior: (Smalltalk globals at: each) ]) - and: [ aContext class methodDictionary noneSatisfy: [ :each | - matcher - executeTree: each parseTree - initialAnswer: false ] ] ] ]) ifTrue: [ - result - addClass: aContext - selector: #initialize ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st deleted file mode 100644 index 10faf254..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initialize - super initialize. - matcher := RBParseTreeSearcher new. - matcher - matches: 'self basicNew initialize' - do: [ :node :answer | true ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/name.st deleted file mode 100644 index 5e0a6113..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ '#basicNew initialize is missing' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st deleted file mode 100644 index 996d9872..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#initialize is not called implicitely when sending #new to an object in other Smalltalk dialects. Consider subclassing GRObject.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json deleted file mode 100644 index 40fdf0a3..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "matcher" ], - "name" : "GRBasicNewInitializeMissingRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/instance/initialize.st deleted file mode 100644 index c9bda0fc..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/instance/initialize.st +++ /dev/null @@ -1,23 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '[ :`@args | | `@temps | ``@.stmts ]' - do: [ :node :answer | - answer isNil - ifFalse: [ answer ] - ifTrue: [ - | source | - source := node source. - (source notNil and: [ node left notNil and: [ node right notNil ] ]) ifTrue: [ - | before after | - before := source at: node left + 1 ifAbsent: [ $ ]. - after := source at: node right - 1 ifAbsent: [ $ ]. - (before isSeparator and: [ after isSeparator ]) - ifFalse: [ node ] - ifTrue: [ - node bar notNil ifTrue: [ - before := source at: node bar - 1 ifAbsent: [ $ ]. - after := source at: node bar + 1 ifAbsent: [ $ ]. - (before isSeparator and: [ after isSeparator ]) - ifFalse: [ node ] ] ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/instance/name.st deleted file mode 100644 index 4c9c6708..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Block formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/instance/rationale.st deleted file mode 100644 index 3c042a50..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'There should spaces at the beginning and end of block.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/properties.json deleted file mode 100644 index 4e3d8c69..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRBlockFormattingRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRBlockFormattingRule", - "pools" : [ - ], - "super" : "GRSlimeParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/checkMethod..st b/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/checkMethod..st deleted file mode 100644 index bec7aeb7..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/checkMethod..st +++ /dev/null @@ -1,20 +0,0 @@ -running -checkMethod: aContext - | matches | - matches := matcher - executeTree: aContext parseTree - initialAnswer: OrderedCollection new. - matches do: [ :node | - " This ensures that the description is of the form ClassName>>#selector:" - (node arguments first isLiteralNode - and: [ node arguments first value isString - and: [ aContext methodClass name greaseString , '>>#' , aContext selector greaseString ~= node arguments first value ] ]) ifTrue: [ - result addClass: aContext methodClass selector: aContext selector. - result addSearchString: node arguments first value ]. - " This ensures that the description is a string and ends with a dot." - (node arguments size > 1 - and: [ node arguments second isLiteralNode - and: [ node arguments second value isString - and: [ (node arguments second value endsWithSubCollection: '.') not ] ] ]) ifTrue: [ - result addClass: aContext methodClass selector: aContext selector. - result addSearchString: node arguments second value ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st deleted file mode 100644 index 64cfada8..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st +++ /dev/null @@ -1,9 +0,0 @@ -initialization -initialize - super initialize. - matcher := RBParseTreeSearcher new. - matcher - matchesAnyOf: #( - '``@receiver greaseDeprecatedApi: ``@arg1' - '``@receiver greaseDeprecatedApi: ``@arg1 details: ``@arg2' ) - do: [ :node :answer | answer add: node; yourself ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/name.st deleted file mode 100644 index 516849b7..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Invalid use of deprecated API protocol.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st deleted file mode 100644 index 9bff5427..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Make sure to follow the following pattern: self greaseDeprecatedApi: ''Class>>#selector'' details: ''Some description''.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json deleted file mode 100644 index cf854ca6..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "matcher" ], - "name" : "GRDeprecatedApiProtocolRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/checkMethod..st b/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/checkMethod..st deleted file mode 100644 index 0bc1862a..00000000 --- a/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/checkMethod..st +++ /dev/null @@ -1,12 +0,0 @@ -running -checkMethod: aContext - | periods position | - aContext parseTree nodesDo: [ :node | - (node isSequence and: [ node periods notEmpty ]) ifTrue: [ - periods := OrderedCollection withAll: node periods. - 1 to: node statements size - 1 do: [ :index | - position := periods removeFirst. - ((node statements at: index) stop < position and: [ position < (node statements at: index + 1) start ]) - ifFalse: [ ^ result addClass: aContext methodClass selector: aContext selector ] ]. - (periods isEmpty or: [ periods size = 1 and: [ node statements notEmpty and: [ node statements last stop < periods first ] ] ]) - ifFalse: [ ^ result addClass: aContext methodClass selector: aContext selector ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/name.st deleted file mode 100644 index 3f4db678..00000000 --- a/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Empty Statements' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/rationale.st deleted file mode 100644 index 252dd280..00000000 --- a/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Empty statements are not supported by most Smalltalk implementations.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/resetResult.st b/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/resetResult.st deleted file mode 100644 index 5b87472b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/instance/resetResult.st +++ /dev/null @@ -1,4 +0,0 @@ -running -resetResult - super resetResult. - result addSearchString: '..'; addSearchString: '.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/properties.json deleted file mode 100644 index 48dd059b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GREmptyStatementsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GREmptyStatementsRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st b/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st deleted file mode 100644 index 63c04fdc..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st +++ /dev/null @@ -1,10 +0,0 @@ -running -checkMethod: aContext - (aContext methodClass isMeta not - and: [ (aContext selector beginsWithSubCollection: #initialize) - and: [ aContext selector numArgs > 0 - and: [ aContext methodClass ~= GRObject - and: [ (aContext methodClass includesBehavior: GRObject) - and: [ (aContext superMessages includes: aContext selector) not - and: [ aContext selfMessages noneSatisfy: [ :each | each beginsWithSubCollection: #initialize ] ] ] ] ] ] ]) - ifTrue: [ result addClass: aContext methodClass selector: aContext selector ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/instance/name.st deleted file mode 100644 index d814b293..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Invalid object initialization' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/instance/rationale.st deleted file mode 100644 index 7b2fed07..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Initialize methods are required to call the designated initializer or its super implementation.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/properties.json deleted file mode 100644 index 53d242ca..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRInvalidObjectInitializationRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRInvalidObjectInitializationRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st b/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st deleted file mode 100644 index 4c871460..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st +++ /dev/null @@ -1,12 +0,0 @@ -running -checkClass: aContext - | selectors | - selectors := self methodNames - inject: Set new - into: [ :set :each | - set - addAll: (aContext whichSelectorsReferTo: each); - yourself ]. - selectors do: [ :each | result addClass: aContext selector: each ]. - selectors isEmpty - ifFalse: [ result searchStrings: self methodNames ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/methodNames.st b/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/methodNames.st deleted file mode 100644 index 7bfd5f10..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/methodNames.st +++ /dev/null @@ -1,3 +0,0 @@ -private -methodNames - ^ #( anyOne withIndexCollect: ) \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/name.st deleted file mode 100644 index 77664e0e..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses non portable message' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/rationale.st deleted file mode 100644 index 4de4dc3f..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Some methods are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/properties.json deleted file mode 100644 index 0fecf5bc..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNonPortableMessageRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRNonPortableMessageRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st b/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st deleted file mode 100644 index dc83677f..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st +++ /dev/null @@ -1,8 +0,0 @@ -running -checkClass: aContext - | comment | - aContext isMeta - ifTrue: [ ^ self ]. - comment := aContext organization classComment asString. - comment isWideString ifTrue: [ - result addClass: aContext ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st b/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st deleted file mode 100644 index 8d1ad057..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st +++ /dev/null @@ -1,17 +0,0 @@ -running -checkMethod: aContext - | foundLiteral | - foundLiteral := false. - "check individual literals first" - aContext literals do: [ :each | - (each isString and: [ each isWideString ]) ifTrue: [ - result - addClass: aContext methodClass - selector: aContext selector. - result addSearchString: each. - foundLiteral := true ] ]. - - "now check the whole method, could be in comments" - foundLiteral ifFalse: [ - aContext sourceCode asString isWideString ifTrue: [ - result addClass: aContext methodClass selector: aContext selector ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/name.st deleted file mode 100644 index 3469916d..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Non portable source format' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/rationale.st deleted file mode 100644 index 7306a747..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'The method source is required to be a plain string, for portability reasons a wide-string is not supported.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/properties.json deleted file mode 100644 index a296ea9f..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNonPortableSourceFormatRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRNonPortableSourceFormatRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st deleted file mode 100644 index 776d58af..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st +++ /dev/null @@ -1,8 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '`@collection beginsWith: `@subCollection' - with: '`@collection greaseBeginsWith: `@subCollection'; - replace: '`@collection endsWith: `@subCollection' - with: '`@collection greaseEndsWith: `@subCollection' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/name.st deleted file mode 100644 index fba52990..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Collections' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/rationale.st deleted file mode 100644 index 908ce1c0..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#beginsWith: and #endsWith: are not portable.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/properties.json deleted file mode 100644 index 3c6c448b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRNotPortableCollectionsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRNotPortableCollectionsRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/README.md deleted file mode 100644 index bca4d093..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I detect senders of Object >> #in: diff --git a/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/instance/initialize.st deleted file mode 100644 index 38aa19b0..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@object in: [ :`var | | `@temps | `@.statements ]' - with: '[ :`var | | `@temps | `@.statements ] value: ``@object' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/instance/name.st deleted file mode 100644 index 65dd49f6..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Object>>#in:' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/instance/rationale.st deleted file mode 100644 index c3b2c41b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Object>>#in: has different semantics on different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/properties.json deleted file mode 100644 index 3d720379..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRObjectInRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 9/12/2009 10:37", - "instvars" : [ - ], - "name" : "GRObjectInRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRPackage.extension/class/greaseSlime.st b/repository/Grease-Pharo40-Slime.package/GRPackage.extension/class/greaseSlime.st deleted file mode 100644 index 8c155f4c..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRPackage.extension/class/greaseSlime.st +++ /dev/null @@ -1,8 +0,0 @@ -*Grease-Pharo40-Slime -greaseSlime - ^ self new - name: 'Grease-Pharo40-Slime'; - description: 'Code critis for Grease. Detects common types of bugs and non-portable code.'; - addDependency: 'Grease-Core'; - url: #seasideUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRPackage.extension/properties.json b/repository/Grease-Pharo40-Slime.package/GRPackage.extension/properties.json deleted file mode 100644 index dd2faaf0..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPackage" } diff --git a/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/instance/initialize.st deleted file mode 100644 index a9bf5bdb..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/instance/initialize.st +++ /dev/null @@ -1,20 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '`{ :node | node isValue and: [ node hasParentheses ] }' - do: [ :node :answer | - answer isNil - ifFalse: [ answer ] - ifTrue: [ - | found start stop | - found := false. - start := node startWithoutParentheses. - stop := node stopWithoutParentheses. - node parentheses reverseDo: [ :interval | - found := found - or: [ start - 1 ~= interval first - or: [ stop + 1 ~= interval last ] ]. - start := interval first. - stop := interval last ]. - found ifTrue: [ node ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/instance/name.st deleted file mode 100644 index 48e67c85..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Parentheses formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/instance/rationale.st deleted file mode 100644 index 298a86b2..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'There should be no spaces inside parentheses.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/properties.json deleted file mode 100644 index a5444413..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRParensFormattingRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRParensFormattingRule", - "pools" : [ - ], - "super" : "GRSlimeParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/instance/initialize.st deleted file mode 100644 index a488a67f..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/instance/initialize.st +++ /dev/null @@ -1,11 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '^ ``@expr' - do: [ :node :answer | - answer isNil - ifFalse: [ answer ] - ifTrue: [ - node start + 2 ~= node value start - ifTrue: [ node ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/instance/name.st deleted file mode 100644 index ed235f80..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Return formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/instance/rationale.st deleted file mode 100644 index 904d4922..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'There should be a single space between the ^ and the following expression.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/properties.json deleted file mode 100644 index a6bbc9f0..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRReturnFormattingRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRReturnFormattingRule", - "pools" : [ - ], - "super" : "GRSlimeParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/class/isVisible.st b/repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/class/isVisible.st deleted file mode 100644 index 43f102e1..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/class/isVisible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isVisible - ^ self name ~= #GRSlimeBlockLintRule \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/instance/category.st b/repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/instance/category.st deleted file mode 100644 index af69ca36..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/instance/category.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -category - ^ self group \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/properties.json deleted file mode 100644 index aa3e0ebf..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRSlimeBlockLintRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRSlimeBlockLintRule", - "pools" : [ - ], - "super" : "RBBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/class/isVisible.st b/repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/class/isVisible.st deleted file mode 100644 index fa02a17b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/class/isVisible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isVisible - ^ self name ~= #GRSlimeParseTreeLintRule \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/instance/category.st b/repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/instance/category.st deleted file mode 100644 index af69ca36..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/instance/category.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -category - ^ self group \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/properties.json deleted file mode 100644 index 6f830ffa..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRSlimeParseTreeLintRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRSlimeParseTreeLintRule", - "pools" : [ - ], - "super" : "RBParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRSlimeTransformationRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRSlimeTransformationRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRSlimeTransformationRule.class/class/isVisible.st b/repository/Grease-Pharo40-Slime.package/GRSlimeTransformationRule.class/class/isVisible.st deleted file mode 100644 index 1bdda3d8..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRSlimeTransformationRule.class/class/isVisible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isVisible - ^ self name ~= #GRSlimeTransformationRule \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRSlimeTransformationRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRSlimeTransformationRule.class/properties.json deleted file mode 100644 index 2c47bf7d..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRSlimeTransformationRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRSlimeTransformationRule", - "pools" : [ - ], - "super" : "RBTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/instance/initialize.st deleted file mode 100644 index 447c54de..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/instance/initialize.st +++ /dev/null @@ -1,18 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '| `temp `@temps | ``@.stmts' - do: [ :node :answer | - answer isNil - ifFalse: [ answer ] - ifTrue: [ - (node leftBar notNil and: [ node rightBar notNil ]) ifTrue: [ - | found position | - found := false. - position := node leftBar. - node temporaries do: [ :each | - found := found or: [ position + 2 ~= each start ]. - position := each stop ]. - found := found or: [ position + 2 ~= node rightBar ]. - found ifTrue: [ node ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/instance/name.st deleted file mode 100644 index 770e86d9..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Temporaries formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/instance/rationale.st deleted file mode 100644 index 49cb65dd..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'There should be a single space between the | and the individual temps.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/properties.json deleted file mode 100644 index a6659da0..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRTempsFormattingRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRTempsFormattingRule", - "pools" : [ - ], - "super" : "GRSlimeParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/README.md deleted file mode 100644 index 6f3d9062..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I check for TestCase >> #fail. \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st b/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st deleted file mode 100644 index cd33b84b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st +++ /dev/null @@ -1,7 +0,0 @@ -running -checkMethod: aContext - aContext methodClass isMeta - ifTrue: [ ^ self ]. - (aContext methodClass allSuperclasses includes:(Smalltalk at: #TestCase)) - ifFalse: [ ^ self ]. - ^ super checkMethod: aContext \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/group.st deleted file mode 100644 index 5a189b4d..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'SUnit Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/initialize.st deleted file mode 100644 index d9d6784f..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: 'self fail' - with: 'self assert: false' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/name.st deleted file mode 100644 index cb37341d..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'TestCase >> #fail' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/rationale.st deleted file mode 100644 index 0a6ddcf6..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'TestCase >> #fail is not portable.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/properties.json deleted file mode 100644 index 009205c4..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRTestAssertionsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 8/17/2014 11:24", - "instvars" : [ - ], - "name" : "GRTestAssertionsRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st b/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st deleted file mode 100644 index 5fc9a25b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st +++ /dev/null @@ -1,7 +0,0 @@ -running -checkMethod: aContext - aContext parseTree nodesDo: [ :node | - node isSequence ifTrue: [ - (node statements notEmpty and: [ node periods notEmpty ]) ifTrue: [ - node periods last > node statements last stop ifTrue: [ - ^ result addClass: aContext methodClass selector: aContext selector ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/name.st deleted file mode 100644 index 5873f52c..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Unnecessary Last Period' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/rationale.st deleted file mode 100644 index ccbe48b6..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Periods are not needed after the last satement.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/resetResult.st b/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/resetResult.st deleted file mode 100644 index 5b87472b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/resetResult.st +++ /dev/null @@ -1,4 +0,0 @@ -running -resetResult - super resetResult. - result addSearchString: '..'; addSearchString: '.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/properties.json deleted file mode 100644 index b703df03..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUnnecessaryLastPeriodRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUnnecessaryLastPeriodRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st deleted file mode 100644 index 7923fa99..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st +++ /dev/null @@ -1,8 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matchesAnyOf: #( - '`@receiver canPerform: `@selector' - '`@receiver canUnderstand: `@selector' ) - do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st deleted file mode 100644 index b9ce70ca..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Sends #canPerform: or #canUnderstand:' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st deleted file mode 100644 index 7e3a24ab..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#canPerform: or #canUnderstand: are not portable.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json deleted file mode 100644 index 1a38cd09..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUsesCanPerformOrUnderstandRule", - "pools" : [ - ], - "super" : "GRSlimeParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/checkMethod..st b/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/checkMethod..st deleted file mode 100644 index 2fdbe101..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/checkMethod..st +++ /dev/null @@ -1,4 +0,0 @@ -running -checkMethod: aContext - aContext parseTree selector = #hash - ifTrue: [ super checkMethod: aContext ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/initialize.st deleted file mode 100644 index c56d728f..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '`@receiver class hash' - do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/name.st deleted file mode 100644 index 5bdd2ee0..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses its class for hash' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/rationale.st deleted file mode 100644 index 84eba400..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'The hash of an object should not depend on the hash of its class as some Smalltalk have non-constant class hashes.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/properties.json deleted file mode 100644 index 51d6412d..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesClassForHashRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUsesClassForHashRule", - "pools" : [ - ], - "super" : "GRSlimeParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/initialize.st deleted file mode 100644 index ffa7a3bd..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '{ `@.stmts }' - do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/name.st deleted file mode 100644 index 1228c96a..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses curly brace arrays' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/rationale.st deleted file mode 100644 index c8668119..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Curly brace expressions are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/properties.json deleted file mode 100644 index 9c622400..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesCurlyBraceArraysRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUsesCurlyBraceArraysRule", - "pools" : [ - ], - "super" : "GRSlimeParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/instance/initialize.st b/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/instance/initialize.st deleted file mode 100644 index c7605206..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '`#literal `{ :node | node isLiteralArray and: [ node isForByteArray ] }' - do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/instance/name.st deleted file mode 100644 index fbcd5729..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses literal byte arrays' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/instance/rationale.st deleted file mode 100644 index 269ea76d..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Literal byte arrays are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/properties.json deleted file mode 100644 index 780b2aea..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesLiteralByteArraysRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUsesLiteralByteArraysRule", - "pools" : [ - ], - "super" : "GRSlimeParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st b/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st deleted file mode 100644 index a31c5684..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st +++ /dev/null @@ -1,8 +0,0 @@ -running -checkMethod: aContext - (self shouldExclude: aContext) ifFalse: [ - aContext pragmas do: [ :each | - result - addClass: aContext methodClass - selector: aContext selector. - result addSearchString: each keyword ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/name.st deleted file mode 100644 index dce9f95b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses method annotations' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/rationale.st deleted file mode 100644 index 33162ca3..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'As of now, it is unclear if method-annotations/pragmas are compatible across all supported platforms. Likely this rule will soon be removed.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/shouldExclude..st b/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/shouldExclude..st deleted file mode 100644 index 101f3496..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/instance/shouldExclude..st +++ /dev/null @@ -1,7 +0,0 @@ -running -shouldExclude: aContext - "The REST and OmniBrowser related packages are OK to have pragmas" - | classCategory | - classCategory := aContext methodClass theNonMetaClass category. - ^ #(#'-REST-' 'OmniBrowser') anySatisfy: [ :each | - (classCategory indexOfSubCollection: each startingAt: 1) ~= 0 ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/properties.json deleted file mode 100644 index 93baabf3..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesMethodAnnotationsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUsesMethodAnnotationsRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/README.md b/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st b/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st deleted file mode 100644 index c90a5576..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st +++ /dev/null @@ -1,6 +0,0 @@ -running -checkClass: aContext - aContext allSuperclassesDo: [ :each | - (self classNames includes: each name) ifTrue: [ - result addClass: aContext. - result addSearchString: each name ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st b/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st deleted file mode 100644 index 136032c3..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st +++ /dev/null @@ -1,11 +0,0 @@ -running -checkMethod: aContext - (aContext methodClass theNonMetaClass category indexOfSubCollection: #'-Pharo-' startingAt: 1) ~= 0 ifTrue: [ - "classes in a -Pharo- package are per definition not portable and therefore allowed to use non-portable classes" - ^ self ]. - aContext literals do: [ :each | - (each isVariableBinding and: [ self classNames includes: each key ]) ifTrue: [ - result - addClass: aContext methodClass - selector: aContext selector. - result addSearchString: each key ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/classNames.st b/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/classNames.st deleted file mode 100644 index f3d5db68..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/classNames.st +++ /dev/null @@ -1,3 +0,0 @@ -private -classNames - ^ #( Delay MIMEDocument Monitor Mutex MutexSet Random Semaphore TimeStamp Timestamp MessageSend ) \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/group.st b/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/name.st b/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/name.st deleted file mode 100644 index ba0b2df9..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses not portable class' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/rationale.st b/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/rationale.st deleted file mode 100644 index e0f12e97..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Some classes are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/properties.json b/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/properties.json deleted file mode 100644 index ff25d101..00000000 --- a/repository/Grease-Pharo40-Slime.package/GRUsesNotPortableClassRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Pharo40-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUsesNotPortableClassRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Pharo40-Slime.package/monticello.meta/categories.st b/repository/Grease-Pharo40-Slime.package/monticello.meta/categories.st deleted file mode 100644 index bae86375..00000000 --- a/repository/Grease-Pharo40-Slime.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Pharo40-Slime'! diff --git a/repository/Grease-Pharo40-Slime.package/monticello.meta/initializers.st b/repository/Grease-Pharo40-Slime.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo40-Slime.package/monticello.meta/package b/repository/Grease-Pharo40-Slime.package/monticello.meta/package deleted file mode 100644 index 86bc392f..00000000 --- a/repository/Grease-Pharo40-Slime.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo40-Slime') \ No newline at end of file diff --git a/repository/Grease-Pharo40-Slime.package/properties.json b/repository/Grease-Pharo40-Slime.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-Pharo40-Slime.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Grease-Pharo40-Slime/GRAnsiBooleansRule.class.st b/repository/Grease-Pharo40-Slime/GRAnsiBooleansRule.class.st new file mode 100644 index 00000000..28ec32e7 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRAnsiBooleansRule.class.st @@ -0,0 +1,41 @@ +Class { + #name : 'GRAnsiBooleansRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'accessing' } +GRAnsiBooleansRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiBooleansRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ]' + with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 ] ]'; + replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ]' + with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 ] ] ]'; + replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ] and: [ | `@temp5 | ``@expr5 ]' + with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 and: [ | `@temp5 | ``@expr5 ] ] ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 ] ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 ] ] ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ] or: [ | `@temp6 | ``@expr6 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 or: [ | `@temp6 | ``@expr6 ] ] ] ] ]' +] + +{ #category : 'accessing' } +GRAnsiBooleansRule >> name [ + ^ 'Booleans' +] + +{ #category : 'accessing' } +GRAnsiBooleansRule >> rationale [ + ^ '#and:and: and #or:or: are not ANSI compatible.' +] diff --git a/repository/Grease-Pharo40-Slime/GRAnsiCharactersRule.class.st b/repository/Grease-Pharo40-Slime/GRAnsiCharactersRule.class.st new file mode 100644 index 00000000..d9da15ae --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRAnsiCharactersRule.class.st @@ -0,0 +1,36 @@ +Class { + #name : 'GRAnsiCharactersRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'accessing' } +GRAnsiCharactersRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiCharactersRule >> initialize [ + super initialize. + self rewriteRule + replace: 'Character value: ``@expr' with: 'Character codePoint: ``@expr'; + replace: '`#source to: `#target' + withValueFrom: [ :node | + RBLiteralNode value: (String streamContents: [ :stream | + node receiver value codePoint to: node arguments first value codePoint do: [ :code | + stream nextPut: (Character codePoint: code) ] ]) ] + when: [ :node | + node receiver value isCharacter + and: [ node arguments first value isCharacter ] ] +] + +{ #category : 'accessing' } +GRAnsiCharactersRule >> name [ + ^ 'Characters' +] + +{ #category : 'accessing' } +GRAnsiCharactersRule >> rationale [ + ^ 'Character value: 64 and $a to: $b is not ANSI compatible.' +] diff --git a/repository/Grease-Pharo40-Slime/GRAnsiCollectionsRule.class.st b/repository/Grease-Pharo40-Slime/GRAnsiCollectionsRule.class.st new file mode 100644 index 00000000..af813769 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRAnsiCollectionsRule.class.st @@ -0,0 +1,53 @@ +Class { + #name : 'GRAnsiCollectionsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'accessing' } +GRAnsiCollectionsRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiCollectionsRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@collection withIndexDo: [ :`each :`index | | `@temps | ``@.body ]' + with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; + replace: '``@collection doWithIndex: [ :`each :`index | | `@temps | ``@.body ]' + with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; + replace: '``@collection collect: ``@block1 thenDo: ``@block2' + with: '(``@collection collect: ``@block1) do: ``@block2'; + replace: '``@collection collect: ``@block1 thenSelect: ``@block2' + with: '(``@collection collect: ``@block1) select: ``@block2'; + replace: '``@collection pairsDo: [ :`t1 :`t2 | ``@.statements ]' + with: '1 to: ``@collection size by: 2 do: [ :index | | `t1 `t2 | `t1 := ``@collection at: index. `t2 := ``@collection at: index + 1. ``@.statements ]'; + replace: '``@collection reject: ``@block1 thenDo: ``@block2' + with: '(``@collection reject: ``@block1) do: ``@block2'; + replace: '``@collection select: ``@block1 thenCollect: ``@block2' + with: '(``@collection select: ``@block1) collect: ``@block2'; + replace: '``@collection select: ``@block1 thenDo: ``@block2' + with: '(``@collection select: ``@block1) do: ``@block2'; + replace: '``@collection detectSum: [ :`t1 | ``@.statements. `.last ]' + with: '``@collection inject: 0 into: [ :sum :`t1 | ``@.statements. sum + (`.last) ]'; + replace: '``@collection valuesDo: ``@block' + with: '``@collection do: ``@block'; + replace: '``@collection reversed' + with: '``@collection reverse'; + replace: '``@dictionary keysSortedSafely' + with: '``@dictionary keys asSortedCollection'; + replace: '``@collectionClass new: ``@size withAll: ``@character' + with: '(``@collectionClass new: ``@size) atAllPut: ``@character' +] + +{ #category : 'accessing' } +GRAnsiCollectionsRule >> name [ + ^ 'Collections' +] + +{ #category : 'accessing' } +GRAnsiCollectionsRule >> rationale [ + ^ 'Some collection methods are not ANSI compatible: #pairsDo:, #collect:thenDo:, #reject:thenDo:, #detectSum:, #valuesDo:, #keysSortedSafely, #new:withAll:, etc.' +] diff --git a/repository/Grease-Pharo40-Slime/GRAnsiConditionalsRule.class.st b/repository/Grease-Pharo40-Slime/GRAnsiConditionalsRule.class.st new file mode 100644 index 00000000..7c2574ba --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRAnsiConditionalsRule.class.st @@ -0,0 +1,39 @@ +Class { + #name : 'GRAnsiConditionalsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'accessing' } +GRAnsiConditionalsRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiConditionalsRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@boolean ifNotNilDo: ``@block' + with: '``@boolean ifNotNil: ``@block'; + replace: '``@boolean ifNotNilDo: ``@block1 ifNil: ``@block2' + with: '``@boolean ifNotNil: ``@block1 ifNil: ``@block2'; + replace: '``@boolean ifNil: ``@block1 ifNotNilDo: ``@block2' + with: '``@boolean ifNil: ``@block1 ifNotNil: ``@block2'; + replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ]' + with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ]'; + replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ] ifNil: ``@block ' + with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ] ifNil: ``@block'; + replace: '``@boolean ifNil: ``@block ifNotNil: [ | `@temps | ``@.body ]' + with: '``@boolean ifNil: ``@block ifNotNil: [ :arg | | `@temps | ``@.body ]' +] + +{ #category : 'accessing' } +GRAnsiConditionalsRule >> name [ + ^ 'Conditionals' +] + +{ #category : 'accessing' } +GRAnsiConditionalsRule >> rationale [ + ^ 'Conditionals like #ifNotNilDo: are not ANSI compatible.' +] diff --git a/repository/Grease-Pharo40-Slime/GRAnsiConvertorRule.class.st b/repository/Grease-Pharo40-Slime/GRAnsiConvertorRule.class.st new file mode 100644 index 00000000..25acccae --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRAnsiConvertorRule.class.st @@ -0,0 +1,29 @@ +Class { + #name : 'GRAnsiConvertorRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'accessing' } +GRAnsiConvertorRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiConvertorRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@object asString' with: '``@object greaseString'; + replace: '``@object asInteger' with: '``@object greaseInteger' +] + +{ #category : 'accessing' } +GRAnsiConvertorRule >> name [ + ^ 'Convertors' +] + +{ #category : 'accessing' } +GRAnsiConvertorRule >> rationale [ + ^ 'The ANSI standard does not support #asInteger and #asString on Object.' +] diff --git a/repository/Grease-Pharo40-Slime/GRAnsiExceptionsRule.class.st b/repository/Grease-Pharo40-Slime/GRAnsiExceptionsRule.class.st new file mode 100644 index 00000000..8e8083a0 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRAnsiExceptionsRule.class.st @@ -0,0 +1,29 @@ +Class { + #name : 'GRAnsiExceptionsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'accessing' } +GRAnsiExceptionsRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiExceptionsRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@block on: `class do: [ | `@temps | ``@.body ]' + with: '``@block on: `class do: [ :err | | `@temps | ``@.body ]' +] + +{ #category : 'accessing' } +GRAnsiExceptionsRule >> name [ + ^ 'Exceptions' +] + +{ #category : 'accessing' } +GRAnsiExceptionsRule >> rationale [ + ^ 'Exception handlers expect exactly one argument in ANSI.' +] diff --git a/repository/Grease-Pharo40-Slime/GRAnsiStreamsRule.class.st b/repository/Grease-Pharo40-Slime/GRAnsiStreamsRule.class.st new file mode 100644 index 00000000..cfc7b006 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRAnsiStreamsRule.class.st @@ -0,0 +1,35 @@ +Class { + #name : 'GRAnsiStreamsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'accessing' } +GRAnsiStreamsRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiStreamsRule >> initialize [ + super initialize. + self rewriteRule + replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } cr' + with: '`{ :context | context at: ''`receiver'' } nextPut: Character cr'; + replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } lf' + with: '`{ :context | context at: ''`receiver'' } nextPut: Character lf'; + replace: '``@stream nextPut: Character cr; nextPut: Character lf' + with: '``@stream crlf'; + replace: '``@collection writeStream' + with: 'WriteStream on: ``@collection' +] + +{ #category : 'accessing' } +GRAnsiStreamsRule >> name [ + ^ 'Streams' +] + +{ #category : 'accessing' } +GRAnsiStreamsRule >> rationale [ + ^ '#cr and #lf are not part of the ANSI stream protocol.' +] diff --git a/repository/Grease-Pharo40-Slime/GRAnsiStringsRule.class.st b/repository/Grease-Pharo40-Slime/GRAnsiStringsRule.class.st new file mode 100644 index 00000000..2ab5bf58 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRAnsiStringsRule.class.st @@ -0,0 +1,47 @@ +Class { + #name : 'GRAnsiStringsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'accessing' } +GRAnsiStringsRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiStringsRule >> initialize [ + super initialize. + self rewriteRule + replace: 'String tab' with: '(String with: Character tab)'; + replace: 'String cr' with: '(String with: Character cr)'; + replace: 'String lf' with: '(String with: Character lf)'; + replace: 'String crlf' with: '(String with: Character cr with: Character lf)'; + replace: 'String space' with: '(String with: Character space)'; + replace: '`@string includesSubString: `@subString' + with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; + replace: '`@string includesSubstring: `@subString' + with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; + replace: '``@string findTokens: ``@arg' withValueFrom: [ :node | + | argument | + argument := node arguments first. + argument isLiteralNode ifTrue: [ + argument value isArray + ifTrue: [ argument replaceWith: (RBLiteralNode value: (String withAll: argument value)) ]. + argument value isCharacter + ifTrue: [ argument replaceWith: (RBLiteralNode value: (String with: argument value)) ] ]. + node + selector: #subStrings:; + yourself ] +] + +{ #category : 'accessing' } +GRAnsiStringsRule >> name [ + ^ 'Strings' +] + +{ #category : 'accessing' } +GRAnsiStringsRule >> rationale [ + ^ '#cr, #crlf, #lf, #space, #tab, #findTokens:, ... are not part of the ANSI string protocol.' +] diff --git a/repository/Grease-Pharo40-Slime/GRBasicNewInitializeMissingRule.class.st b/repository/Grease-Pharo40-Slime/GRBasicNewInitializeMissingRule.class.st new file mode 100644 index 00000000..9a03a60c --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRBasicNewInitializeMissingRule.class.st @@ -0,0 +1,48 @@ +Class { + #name : 'GRBasicNewInitializeMissingRule', + #superclass : 'GRSlimeBlockLintRule', + #instVars : [ + 'matcher' + ], + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'running' } +GRBasicNewInitializeMissingRule >> checkClass: aContext [ + (aContext isMeta not + and: [ (aContext includesSelector: #initialize) + and: [ (#(GRObject GRNotification GRNotification GRError RBLintRule RBTransformationRule) noneSatisfy: [ :each | + aContext includesBehavior: (Smalltalk globals at: each) ]) + and: [ aContext class methodDictionary noneSatisfy: [ :each | + matcher + executeTree: each parseTree + initialAnswer: false ] ] ] ]) ifTrue: [ + result + addClass: aContext + selector: #initialize ] +] + +{ #category : 'accessing' } +GRBasicNewInitializeMissingRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRBasicNewInitializeMissingRule >> initialize [ + super initialize. + matcher := RBParseTreeSearcher new. + matcher + matches: 'self basicNew initialize' + do: [ :node :answer | true ] +] + +{ #category : 'accessing' } +GRBasicNewInitializeMissingRule >> name [ + ^ '#basicNew initialize is missing' +] + +{ #category : 'accessing' } +GRBasicNewInitializeMissingRule >> rationale [ + ^ '#initialize is not called implicitely when sending #new to an object in other Smalltalk dialects. Consider subclassing GRObject.' +] diff --git a/repository/Grease-Pharo40-Slime/GRBlockFormattingRule.class.st b/repository/Grease-Pharo40-Slime/GRBlockFormattingRule.class.st new file mode 100644 index 00000000..ea56af26 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRBlockFormattingRule.class.st @@ -0,0 +1,46 @@ +Class { + #name : 'GRBlockFormattingRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'accessing' } +GRBlockFormattingRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'initialization' } +GRBlockFormattingRule >> initialize [ + super initialize. + self matcher + matches: '[ :`@args | | `@temps | ``@.stmts ]' + do: [ :node :answer | + answer isNil + ifFalse: [ answer ] + ifTrue: [ + | source | + source := node source. + (source notNil and: [ node left notNil and: [ node right notNil ] ]) ifTrue: [ + | before after | + before := source at: node left + 1 ifAbsent: [ $ ]. + after := source at: node right - 1 ifAbsent: [ $ ]. + (before isSeparator and: [ after isSeparator ]) + ifFalse: [ node ] + ifTrue: [ + node bar notNil ifTrue: [ + before := source at: node bar - 1 ifAbsent: [ $ ]. + after := source at: node bar + 1 ifAbsent: [ $ ]. + (before isSeparator and: [ after isSeparator ]) + ifFalse: [ node ] ] ] ] ] ] +] + +{ #category : 'accessing' } +GRBlockFormattingRule >> name [ + ^ 'Block formatting' +] + +{ #category : 'accessing' } +GRBlockFormattingRule >> rationale [ + ^ 'There should spaces at the beginning and end of block.' +] diff --git a/repository/Grease-Pharo40-Slime/GRDeprecatedApiProtocolRule.class.st b/repository/Grease-Pharo40-Slime/GRDeprecatedApiProtocolRule.class.st new file mode 100644 index 00000000..964af443 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRDeprecatedApiProtocolRule.class.st @@ -0,0 +1,57 @@ +Class { + #name : 'GRDeprecatedApiProtocolRule', + #superclass : 'GRSlimeBlockLintRule', + #instVars : [ + 'matcher' + ], + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'running' } +GRDeprecatedApiProtocolRule >> checkMethod: aContext [ + | matches | + matches := matcher + executeTree: aContext parseTree + initialAnswer: OrderedCollection new. + matches do: [ :node | + " This ensures that the description is of the form ClassName>>#selector:" + (node arguments first isLiteralNode + and: [ node arguments first value isString + and: [ aContext methodClass name greaseString , '>>#' , aContext selector greaseString ~= node arguments first value ] ]) ifTrue: [ + result addClass: aContext methodClass selector: aContext selector. + result addSearchString: node arguments first value ]. + " This ensures that the description is a string and ends with a dot." + (node arguments size > 1 + and: [ node arguments second isLiteralNode + and: [ node arguments second value isString + and: [ (node arguments second value endsWithSubCollection: '.') not ] ] ]) ifTrue: [ + result addClass: aContext methodClass selector: aContext selector. + result addSearchString: node arguments second value ] ] +] + +{ #category : 'accessing' } +GRDeprecatedApiProtocolRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'initialization' } +GRDeprecatedApiProtocolRule >> initialize [ + super initialize. + matcher := RBParseTreeSearcher new. + matcher + matchesAnyOf: #( + '``@receiver greaseDeprecatedApi: ``@arg1' + '``@receiver greaseDeprecatedApi: ``@arg1 details: ``@arg2' ) + do: [ :node :answer | answer add: node; yourself ] +] + +{ #category : 'accessing' } +GRDeprecatedApiProtocolRule >> name [ + ^ 'Invalid use of deprecated API protocol.' +] + +{ #category : 'accessing' } +GRDeprecatedApiProtocolRule >> rationale [ + ^ 'Make sure to follow the following pattern: self greaseDeprecatedApi: ''Class>>#selector'' details: ''Some description''.' +] diff --git a/repository/Grease-Pharo40-Slime/GREmptyStatementsRule.class.st b/repository/Grease-Pharo40-Slime/GREmptyStatementsRule.class.st new file mode 100644 index 00000000..b7dd19e9 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GREmptyStatementsRule.class.st @@ -0,0 +1,41 @@ +Class { + #name : 'GREmptyStatementsRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'running' } +GREmptyStatementsRule >> checkMethod: aContext [ + | periods position | + aContext parseTree nodesDo: [ :node | + (node isSequence and: [ node periods notEmpty ]) ifTrue: [ + periods := OrderedCollection withAll: node periods. + 1 to: node statements size - 1 do: [ :index | + position := periods removeFirst. + ((node statements at: index) stop < position and: [ position < (node statements at: index + 1) start ]) + ifFalse: [ ^ result addClass: aContext methodClass selector: aContext selector ] ]. + (periods isEmpty or: [ periods size = 1 and: [ node statements notEmpty and: [ node statements last stop < periods first ] ] ]) + ifFalse: [ ^ result addClass: aContext methodClass selector: aContext selector ] ] ] +] + +{ #category : 'accessing' } +GREmptyStatementsRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'accessing' } +GREmptyStatementsRule >> name [ + ^ 'Empty Statements' +] + +{ #category : 'accessing' } +GREmptyStatementsRule >> rationale [ + ^ 'Empty statements are not supported by most Smalltalk implementations.' +] + +{ #category : 'running' } +GREmptyStatementsRule >> resetResult [ + super resetResult. + result addSearchString: '..'; addSearchString: '.' +] diff --git a/repository/Grease-Pharo40-Slime/GRInvalidObjectInitializationRule.class.st b/repository/Grease-Pharo40-Slime/GRInvalidObjectInitializationRule.class.st new file mode 100644 index 00000000..d33998ff --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRInvalidObjectInitializationRule.class.st @@ -0,0 +1,33 @@ +Class { + #name : 'GRInvalidObjectInitializationRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'running' } +GRInvalidObjectInitializationRule >> checkMethod: aContext [ + (aContext methodClass isMeta not + and: [ (aContext selector beginsWithSubCollection: #initialize) + and: [ aContext selector numArgs > 0 + and: [ aContext methodClass ~= GRObject + and: [ (aContext methodClass includesBehavior: GRObject) + and: [ (aContext superMessages includes: aContext selector) not + and: [ aContext selfMessages noneSatisfy: [ :each | each beginsWithSubCollection: #initialize ] ] ] ] ] ] ]) + ifTrue: [ result addClass: aContext methodClass selector: aContext selector ] +] + +{ #category : 'accessing' } +GRInvalidObjectInitializationRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'accessing' } +GRInvalidObjectInitializationRule >> name [ + ^ 'Invalid object initialization' +] + +{ #category : 'accessing' } +GRInvalidObjectInitializationRule >> rationale [ + ^ 'Initialize methods are required to call the designated initializer or its super implementation.' +] diff --git a/repository/Grease-Pharo40-Slime/GRNonPortableMessageRule.class.st b/repository/Grease-Pharo40-Slime/GRNonPortableMessageRule.class.st new file mode 100644 index 00000000..b8ff0943 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRNonPortableMessageRule.class.st @@ -0,0 +1,40 @@ +Class { + #name : 'GRNonPortableMessageRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'running' } +GRNonPortableMessageRule >> checkClass: aContext [ + | selectors | + selectors := self methodNames + inject: Set new + into: [ :set :each | + set + addAll: (aContext whichSelectorsReferTo: each); + yourself ]. + selectors do: [ :each | result addClass: aContext selector: each ]. + selectors isEmpty + ifFalse: [ result searchStrings: self methodNames ] +] + +{ #category : 'accessing' } +GRNonPortableMessageRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'private' } +GRNonPortableMessageRule >> methodNames [ + ^ #( anyOne withIndexCollect: ) +] + +{ #category : 'accessing' } +GRNonPortableMessageRule >> name [ + ^ 'Uses non portable message' +] + +{ #category : 'accessing' } +GRNonPortableMessageRule >> rationale [ + ^ 'Some methods are not portable accross different Smalltalk dialects.' +] diff --git a/repository/Grease-Pharo40-Slime/GRNonPortableSourceFormatRule.class.st b/repository/Grease-Pharo40-Slime/GRNonPortableSourceFormatRule.class.st new file mode 100644 index 00000000..0efe3b68 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRNonPortableSourceFormatRule.class.st @@ -0,0 +1,50 @@ +Class { + #name : 'GRNonPortableSourceFormatRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'running' } +GRNonPortableSourceFormatRule >> checkClass: aContext [ + | comment | + aContext isMeta + ifTrue: [ ^ self ]. + comment := aContext organization classComment asString. + comment isWideString ifTrue: [ + result addClass: aContext ] +] + +{ #category : 'running' } +GRNonPortableSourceFormatRule >> checkMethod: aContext [ + | foundLiteral | + foundLiteral := false. + "check individual literals first" + aContext literals do: [ :each | + (each isString and: [ each isWideString ]) ifTrue: [ + result + addClass: aContext methodClass + selector: aContext selector. + result addSearchString: each. + foundLiteral := true ] ]. + + "now check the whole method, could be in comments" + foundLiteral ifFalse: [ + aContext sourceCode asString isWideString ifTrue: [ + result addClass: aContext methodClass selector: aContext selector ] ] +] + +{ #category : 'accessing' } +GRNonPortableSourceFormatRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'accessing' } +GRNonPortableSourceFormatRule >> name [ + ^ 'Non portable source format' +] + +{ #category : 'accessing' } +GRNonPortableSourceFormatRule >> rationale [ + ^ 'The method source is required to be a plain string, for portability reasons a wide-string is not supported.' +] diff --git a/repository/Grease-Pharo40-Slime/GRNotPortableCollectionsRule.class.st b/repository/Grease-Pharo40-Slime/GRNotPortableCollectionsRule.class.st new file mode 100644 index 00000000..4dca99e4 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRNotPortableCollectionsRule.class.st @@ -0,0 +1,31 @@ +Class { + #name : 'GRNotPortableCollectionsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'accessing' } +GRNotPortableCollectionsRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRNotPortableCollectionsRule >> initialize [ + super initialize. + self rewriteRule + replace: '`@collection beginsWith: `@subCollection' + with: '`@collection greaseBeginsWith: `@subCollection'; + replace: '`@collection endsWith: `@subCollection' + with: '`@collection greaseEndsWith: `@subCollection' +] + +{ #category : 'accessing' } +GRNotPortableCollectionsRule >> name [ + ^ 'Collections' +] + +{ #category : 'accessing' } +GRNotPortableCollectionsRule >> rationale [ + ^ '#beginsWith: and #endsWith: are not portable.' +] diff --git a/repository/Grease-Pharo40-Slime/GRObjectInRule.class.st b/repository/Grease-Pharo40-Slime/GRObjectInRule.class.st new file mode 100644 index 00000000..afaa4322 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRObjectInRule.class.st @@ -0,0 +1,33 @@ +" +I detect senders of Object >> #in: + +" +Class { + #name : 'GRObjectInRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'accessing' } +GRObjectInRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRObjectInRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@object in: [ :`var | | `@temps | `@.statements ]' + with: '[ :`var | | `@temps | `@.statements ] value: ``@object' +] + +{ #category : 'accessing' } +GRObjectInRule >> name [ + ^ 'Object>>#in:' +] + +{ #category : 'accessing' } +GRObjectInRule >> rationale [ + ^ 'Object>>#in: has different semantics on different Smalltalk dialects.' +] diff --git a/repository/Grease-Pharo40-Slime/GRPackage.extension.st b/repository/Grease-Pharo40-Slime/GRPackage.extension.st new file mode 100644 index 00000000..8b9651d6 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRPackage.extension.st @@ -0,0 +1,11 @@ +Extension { #name : 'GRPackage' } + +{ #category : '*Grease-Pharo40-Slime' } +GRPackage class >> greaseSlime [ + ^ self new + name: 'Grease-Pharo40-Slime'; + description: 'Code critis for Grease. Detects common types of bugs and non-portable code.'; + addDependency: 'Grease-Core'; + url: #seasideUrl; + yourself +] diff --git a/repository/Grease-Pharo40-Slime/GRParensFormattingRule.class.st b/repository/Grease-Pharo40-Slime/GRParensFormattingRule.class.st new file mode 100644 index 00000000..c64e0003 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRParensFormattingRule.class.st @@ -0,0 +1,43 @@ +Class { + #name : 'GRParensFormattingRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'accessing' } +GRParensFormattingRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'initialization' } +GRParensFormattingRule >> initialize [ + super initialize. + self matcher + matches: '`{ :node | node isValue and: [ node hasParentheses ] }' + do: [ :node :answer | + answer isNil + ifFalse: [ answer ] + ifTrue: [ + | found start stop | + found := false. + start := node startWithoutParentheses. + stop := node stopWithoutParentheses. + node parentheses reverseDo: [ :interval | + found := found + or: [ start - 1 ~= interval first + or: [ stop + 1 ~= interval last ] ]. + start := interval first. + stop := interval last ]. + found ifTrue: [ node ] ] ] +] + +{ #category : 'accessing' } +GRParensFormattingRule >> name [ + ^ 'Parentheses formatting' +] + +{ #category : 'accessing' } +GRParensFormattingRule >> rationale [ + ^ 'There should be no spaces inside parentheses.' +] diff --git a/repository/Grease-Pharo40-Slime/GRReturnFormattingRule.class.st b/repository/Grease-Pharo40-Slime/GRReturnFormattingRule.class.st new file mode 100644 index 00000000..671f70d2 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRReturnFormattingRule.class.st @@ -0,0 +1,34 @@ +Class { + #name : 'GRReturnFormattingRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'accessing' } +GRReturnFormattingRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'initialization' } +GRReturnFormattingRule >> initialize [ + super initialize. + self matcher + matches: '^ ``@expr' + do: [ :node :answer | + answer isNil + ifFalse: [ answer ] + ifTrue: [ + node start + 2 ~= node value start + ifTrue: [ node ] ] ] +] + +{ #category : 'accessing' } +GRReturnFormattingRule >> name [ + ^ 'Return formatting' +] + +{ #category : 'accessing' } +GRReturnFormattingRule >> rationale [ + ^ 'There should be a single space between the ^ and the following expression.' +] diff --git a/repository/Grease-Pharo40-Slime/GRSlimeBlockLintRule.class.st b/repository/Grease-Pharo40-Slime/GRSlimeBlockLintRule.class.st new file mode 100644 index 00000000..ee123e22 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRSlimeBlockLintRule.class.st @@ -0,0 +1,16 @@ +Class { + #name : 'GRSlimeBlockLintRule', + #superclass : 'RBBlockLintRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'testing' } +GRSlimeBlockLintRule class >> isVisible [ + ^ self name ~= #GRSlimeBlockLintRule +] + +{ #category : 'accessing' } +GRSlimeBlockLintRule >> category [ + ^ self group +] diff --git a/repository/Grease-Pharo40-Slime/GRSlimeParseTreeLintRule.class.st b/repository/Grease-Pharo40-Slime/GRSlimeParseTreeLintRule.class.st new file mode 100644 index 00000000..0a8bf6ea --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRSlimeParseTreeLintRule.class.st @@ -0,0 +1,16 @@ +Class { + #name : 'GRSlimeParseTreeLintRule', + #superclass : 'RBParseTreeLintRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'testing' } +GRSlimeParseTreeLintRule class >> isVisible [ + ^ self name ~= #GRSlimeParseTreeLintRule +] + +{ #category : 'accessing' } +GRSlimeParseTreeLintRule >> category [ + ^ self group +] diff --git a/repository/Grease-Pharo40-Slime/GRSlimeTransformationRule.class.st b/repository/Grease-Pharo40-Slime/GRSlimeTransformationRule.class.st new file mode 100644 index 00000000..4d3951da --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRSlimeTransformationRule.class.st @@ -0,0 +1,11 @@ +Class { + #name : 'GRSlimeTransformationRule', + #superclass : 'RBTransformationRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'testing' } +GRSlimeTransformationRule class >> isVisible [ + ^ self name ~= #GRSlimeTransformationRule +] diff --git a/repository/Grease-Pharo40-Slime/GRTempsFormattingRule.class.st b/repository/Grease-Pharo40-Slime/GRTempsFormattingRule.class.st new file mode 100644 index 00000000..3400d171 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRTempsFormattingRule.class.st @@ -0,0 +1,41 @@ +Class { + #name : 'GRTempsFormattingRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'accessing' } +GRTempsFormattingRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'initialization' } +GRTempsFormattingRule >> initialize [ + super initialize. + self matcher + matches: '| `temp `@temps | ``@.stmts' + do: [ :node :answer | + answer isNil + ifFalse: [ answer ] + ifTrue: [ + (node leftBar notNil and: [ node rightBar notNil ]) ifTrue: [ + | found position | + found := false. + position := node leftBar. + node temporaries do: [ :each | + found := found or: [ position + 2 ~= each start ]. + position := each stop ]. + found := found or: [ position + 2 ~= node rightBar ]. + found ifTrue: [ node ] ] ] ] +] + +{ #category : 'accessing' } +GRTempsFormattingRule >> name [ + ^ 'Temporaries formatting' +] + +{ #category : 'accessing' } +GRTempsFormattingRule >> rationale [ + ^ 'There should be a single space between the | and the individual temps.' +] diff --git a/repository/Grease-Pharo40-Slime/GRTestAssertionsRule.class.st b/repository/Grease-Pharo40-Slime/GRTestAssertionsRule.class.st new file mode 100644 index 00000000..27a98d8b --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRTestAssertionsRule.class.st @@ -0,0 +1,41 @@ +" +I check for TestCase >> #fail. +" +Class { + #name : 'GRTestAssertionsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'running' } +GRTestAssertionsRule >> checkMethod: aContext [ + aContext methodClass isMeta + ifTrue: [ ^ self ]. + (aContext methodClass allSuperclasses includes:(Smalltalk at: #TestCase)) + ifFalse: [ ^ self ]. + ^ super checkMethod: aContext +] + +{ #category : 'accessing' } +GRTestAssertionsRule >> group [ + ^ 'SUnit Compatibility' +] + +{ #category : 'initialization' } +GRTestAssertionsRule >> initialize [ + super initialize. + self rewriteRule + replace: 'self fail' + with: 'self assert: false' +] + +{ #category : 'accessing' } +GRTestAssertionsRule >> name [ + ^ 'TestCase >> #fail' +] + +{ #category : 'accessing' } +GRTestAssertionsRule >> rationale [ + ^ 'TestCase >> #fail is not portable.' +] diff --git a/repository/Grease-Pharo40-Slime/GRUnnecessaryLastPeriodRule.class.st b/repository/Grease-Pharo40-Slime/GRUnnecessaryLastPeriodRule.class.st new file mode 100644 index 00000000..0fc25d8e --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRUnnecessaryLastPeriodRule.class.st @@ -0,0 +1,36 @@ +Class { + #name : 'GRUnnecessaryLastPeriodRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'running' } +GRUnnecessaryLastPeriodRule >> checkMethod: aContext [ + aContext parseTree nodesDo: [ :node | + node isSequence ifTrue: [ + (node statements notEmpty and: [ node periods notEmpty ]) ifTrue: [ + node periods last > node statements last stop ifTrue: [ + ^ result addClass: aContext methodClass selector: aContext selector ] ] ] ] +] + +{ #category : 'accessing' } +GRUnnecessaryLastPeriodRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'accessing' } +GRUnnecessaryLastPeriodRule >> name [ + ^ 'Unnecessary Last Period' +] + +{ #category : 'accessing' } +GRUnnecessaryLastPeriodRule >> rationale [ + ^ 'Periods are not needed after the last satement.' +] + +{ #category : 'running' } +GRUnnecessaryLastPeriodRule >> resetResult [ + super resetResult. + result addSearchString: '..'; addSearchString: '.' +] diff --git a/repository/Grease-Pharo40-Slime/GRUsesCanPerformOrUnderstandRule.class.st b/repository/Grease-Pharo40-Slime/GRUsesCanPerformOrUnderstandRule.class.st new file mode 100644 index 00000000..de538bea --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRUsesCanPerformOrUnderstandRule.class.st @@ -0,0 +1,31 @@ +Class { + #name : 'GRUsesCanPerformOrUnderstandRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'accessing' } +GRUsesCanPerformOrUnderstandRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRUsesCanPerformOrUnderstandRule >> initialize [ + super initialize. + self matcher + matchesAnyOf: #( + '`@receiver canPerform: `@selector' + '`@receiver canUnderstand: `@selector' ) + do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] +] + +{ #category : 'accessing' } +GRUsesCanPerformOrUnderstandRule >> name [ + ^ 'Sends #canPerform: or #canUnderstand:' +] + +{ #category : 'accessing' } +GRUsesCanPerformOrUnderstandRule >> rationale [ + ^ '#canPerform: or #canUnderstand: are not portable.' +] diff --git a/repository/Grease-Pharo40-Slime/GRUsesClassForHashRule.class.st b/repository/Grease-Pharo40-Slime/GRUsesClassForHashRule.class.st new file mode 100644 index 00000000..dc01e852 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRUsesClassForHashRule.class.st @@ -0,0 +1,35 @@ +Class { + #name : 'GRUsesClassForHashRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'running' } +GRUsesClassForHashRule >> checkMethod: aContext [ + aContext parseTree selector = #hash + ifTrue: [ super checkMethod: aContext ] +] + +{ #category : 'accessing' } +GRUsesClassForHashRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRUsesClassForHashRule >> initialize [ + super initialize. + self matcher + matches: '`@receiver class hash' + do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] +] + +{ #category : 'accessing' } +GRUsesClassForHashRule >> name [ + ^ 'Uses its class for hash' +] + +{ #category : 'accessing' } +GRUsesClassForHashRule >> rationale [ + ^ 'The hash of an object should not depend on the hash of its class as some Smalltalk have non-constant class hashes.' +] diff --git a/repository/Grease-Pharo40-Slime/GRUsesCurlyBraceArraysRule.class.st b/repository/Grease-Pharo40-Slime/GRUsesCurlyBraceArraysRule.class.st new file mode 100644 index 00000000..1a3875a0 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRUsesCurlyBraceArraysRule.class.st @@ -0,0 +1,29 @@ +Class { + #name : 'GRUsesCurlyBraceArraysRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'accessing' } +GRUsesCurlyBraceArraysRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRUsesCurlyBraceArraysRule >> initialize [ + super initialize. + self matcher + matches: '{ `@.stmts }' + do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] +] + +{ #category : 'accessing' } +GRUsesCurlyBraceArraysRule >> name [ + ^ 'Uses curly brace arrays' +] + +{ #category : 'accessing' } +GRUsesCurlyBraceArraysRule >> rationale [ + ^ 'Curly brace expressions are not portable accross different Smalltalk dialects.' +] diff --git a/repository/Grease-Pharo40-Slime/GRUsesLiteralByteArraysRule.class.st b/repository/Grease-Pharo40-Slime/GRUsesLiteralByteArraysRule.class.st new file mode 100644 index 00000000..92a4e80b --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRUsesLiteralByteArraysRule.class.st @@ -0,0 +1,29 @@ +Class { + #name : 'GRUsesLiteralByteArraysRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'accessing' } +GRUsesLiteralByteArraysRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRUsesLiteralByteArraysRule >> initialize [ + super initialize. + self matcher + matches: '`#literal `{ :node | node isLiteralArray and: [ node isForByteArray ] }' + do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] +] + +{ #category : 'accessing' } +GRUsesLiteralByteArraysRule >> name [ + ^ 'Uses literal byte arrays' +] + +{ #category : 'accessing' } +GRUsesLiteralByteArraysRule >> rationale [ + ^ 'Literal byte arrays are not portable accross different Smalltalk dialects.' +] diff --git a/repository/Grease-Pharo40-Slime/GRUsesMethodAnnotationsRule.class.st b/repository/Grease-Pharo40-Slime/GRUsesMethodAnnotationsRule.class.st new file mode 100644 index 00000000..43091344 --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRUsesMethodAnnotationsRule.class.st @@ -0,0 +1,40 @@ +Class { + #name : 'GRUsesMethodAnnotationsRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'running' } +GRUsesMethodAnnotationsRule >> checkMethod: aContext [ + (self shouldExclude: aContext) ifFalse: [ + aContext pragmas do: [ :each | + result + addClass: aContext methodClass + selector: aContext selector. + result addSearchString: each keyword ] ] +] + +{ #category : 'accessing' } +GRUsesMethodAnnotationsRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'accessing' } +GRUsesMethodAnnotationsRule >> name [ + ^ 'Uses method annotations' +] + +{ #category : 'accessing' } +GRUsesMethodAnnotationsRule >> rationale [ + ^ 'As of now, it is unclear if method-annotations/pragmas are compatible across all supported platforms. Likely this rule will soon be removed.' +] + +{ #category : 'running' } +GRUsesMethodAnnotationsRule >> shouldExclude: aContext [ + "The REST and OmniBrowser related packages are OK to have pragmas" + | classCategory | + classCategory := aContext methodClass theNonMetaClass category. + ^ #(#'-REST-' 'OmniBrowser') anySatisfy: [ :each | + (classCategory indexOfSubCollection: each startingAt: 1) ~= 0 ] +] diff --git a/repository/Grease-Pharo40-Slime/GRUsesNotPortableClassRule.class.st b/repository/Grease-Pharo40-Slime/GRUsesNotPortableClassRule.class.st new file mode 100644 index 00000000..2165d1aa --- /dev/null +++ b/repository/Grease-Pharo40-Slime/GRUsesNotPortableClassRule.class.st @@ -0,0 +1,47 @@ +Class { + #name : 'GRUsesNotPortableClassRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Pharo40-Slime', + #package : 'Grease-Pharo40-Slime' +} + +{ #category : 'running' } +GRUsesNotPortableClassRule >> checkClass: aContext [ + aContext allSuperclassesDo: [ :each | + (self classNames includes: each name) ifTrue: [ + result addClass: aContext. + result addSearchString: each name ] ] +] + +{ #category : 'running' } +GRUsesNotPortableClassRule >> checkMethod: aContext [ + (aContext methodClass theNonMetaClass category indexOfSubCollection: #'-Pharo-' startingAt: 1) ~= 0 ifTrue: [ + "classes in a -Pharo- package are per definition not portable and therefore allowed to use non-portable classes" + ^ self ]. + aContext literals do: [ :each | + (each isVariableBinding and: [ self classNames includes: each key ]) ifTrue: [ + result + addClass: aContext methodClass + selector: aContext selector. + result addSearchString: each key ] ] +] + +{ #category : 'private' } +GRUsesNotPortableClassRule >> classNames [ + ^ #( Delay MIMEDocument Monitor Mutex MutexSet Random Semaphore TimeStamp Timestamp MessageSend ) +] + +{ #category : 'accessing' } +GRUsesNotPortableClassRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'accessing' } +GRUsesNotPortableClassRule >> name [ + ^ 'Uses not portable class' +] + +{ #category : 'accessing' } +GRUsesNotPortableClassRule >> rationale [ + ^ 'Some classes are not portable accross different Smalltalk dialects.' +] diff --git a/repository/Grease-Pharo40-Slime/package.st b/repository/Grease-Pharo40-Slime/package.st new file mode 100644 index 00000000..bce2ccad --- /dev/null +++ b/repository/Grease-Pharo40-Slime/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Pharo40-Slime' } diff --git a/repository/Grease-Pharo60-Core.package/.filetree b/repository/Grease-Pharo60-Core.package/.filetree deleted file mode 100644 index 57a67973..00000000 --- a/repository/Grease-Pharo60-Core.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo60-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index 542694a2..00000000 --- a/repository/Grease-Pharo60-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,11 +0,0 @@ -*Grease-Pharo60-Core -valueWithPossibleArguments: anArray - | args | - (anArray size == self numArgs) - ifTrue: [ ^ self valueWithArguments: anArray ]. - args := Array new: self numArgs. - args replaceFrom: 1 - to: (anArray size min: args size) - with: anArray - startingAt: 1. - ^ self valueWithArguments: args \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/BlockClosure.extension/properties.json b/repository/Grease-Pharo60-Core.package/BlockClosure.extension/properties.json deleted file mode 100644 index 2190e5e2..00000000 --- a/repository/Grease-Pharo60-Core.package/BlockClosure.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "BlockClosure" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-Pharo60-Core.package/ByteArray.extension/instance/greaseString.st deleted file mode 100644 index 586fcd76..00000000 --- a/repository/Grease-Pharo60-Core.package/ByteArray.extension/instance/greaseString.st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo60-Core -greaseString - "ByteArrays should not automatically be converted to Strings. You should use a GRCodec for this." - ^ self printString \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/ByteArray.extension/properties.json b/repository/Grease-Pharo60-Core.package/ByteArray.extension/properties.json deleted file mode 100644 index f81bcb8d..00000000 --- a/repository/Grease-Pharo60-Core.package/ByteArray.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "ByteArray" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-Pharo60-Core.package/Character.extension/instance/greaseInteger.st deleted file mode 100644 index 5b7c9cd0..00000000 --- a/repository/Grease-Pharo60-Core.package/Character.extension/instance/greaseInteger.st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo60-Core -greaseInteger - "Answer an unicode code point of the receiver." - ^ self charCode \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Character.extension/properties.json b/repository/Grease-Pharo60-Core.package/Character.extension/properties.json deleted file mode 100644 index 5219281d..00000000 --- a/repository/Grease-Pharo60-Core.package/Character.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Character" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Collection.extension/instance/any.st b/repository/Grease-Pharo60-Core.package/Collection.extension/instance/any.st deleted file mode 100644 index 040cca63..00000000 --- a/repository/Grease-Pharo60-Core.package/Collection.extension/instance/any.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo60-Core -any - ^ self anyOne \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Collection.extension/properties.json b/repository/Grease-Pharo60-Core.package/Collection.extension/properties.json deleted file mode 100644 index 48f9f8d9..00000000 --- a/repository/Grease-Pharo60-Core.package/Collection.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Collection" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Color.extension/instance/asHTMLColor.st b/repository/Grease-Pharo60-Core.package/Color.extension/instance/asHTMLColor.st deleted file mode 100644 index cabd4fd3..00000000 --- a/repository/Grease-Pharo60-Core.package/Color.extension/instance/asHTMLColor.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo60-Core -asHTMLColor - ^'#', self asHexString \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Color.extension/properties.json b/repository/Grease-Pharo60-Core.package/Color.extension/properties.json deleted file mode 100644 index 8b86fc95..00000000 --- a/repository/Grease-Pharo60-Core.package/Color.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Color" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-Pharo60-Core.package/Duration.extension/class/milliseconds..st deleted file mode 100644 index 72913ef2..00000000 --- a/repository/Grease-Pharo60-Core.package/Duration.extension/class/milliseconds..st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo60-Core -milliseconds: anInteger - ^ self milliSeconds: anInteger \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-Pharo60-Core.package/Duration.extension/instance/asMilliseconds.st deleted file mode 100644 index 24252f59..00000000 --- a/repository/Grease-Pharo60-Core.package/Duration.extension/instance/asMilliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo60-Core -asMilliseconds - ^ self asMilliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-Pharo60-Core.package/Duration.extension/instance/milliseconds.st deleted file mode 100644 index bd92474c..00000000 --- a/repository/Grease-Pharo60-Core.package/Duration.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo60-Core -milliseconds - ^ nanos quo: NanosInMillisecond \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Duration.extension/properties.json b/repository/Grease-Pharo60-Core.package/Duration.extension/properties.json deleted file mode 100644 index d141a092..00000000 --- a/repository/Grease-Pharo60-Core.package/Duration.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Duration" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo60-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 88cbc0e3..00000000 --- a/repository/Grease-Pharo60-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo60-Core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - stream greaseNext: anInteger putAll: aCollection startingAt: startIndex \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRDelegatingStream.extension/properties.json b/repository/Grease-Pharo60-Core.package/GRDelegatingStream.extension/properties.json deleted file mode 100644 index 5ec29ea0..00000000 --- a/repository/Grease-Pharo60-Core.package/GRDelegatingStream.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRDelegatingStream" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/README.md b/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/README.md deleted file mode 100644 index 5b308f84..00000000 --- a/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/README.md +++ /dev/null @@ -1,11 +0,0 @@ -A GRDynamicVariable is a variable that is visible only in the stackframes outgoing from this one. - -Example: - -GRDynamicVariable - use: 'Seaside' - during: [ self compilcatedCalculation ] - -Whenever GRDynamicVariable value gets evaluated somewhere inside [ self compilcatedCalculation ] or a method invoked directly or indirectly by it, its value will be 'Seaside'. If no #use:during: handler is around the current stack frame, then the value will be the return value of the class side #defaultValue. - -Do not use GRDynamicVariable directly, instead create a subclass for each variable you want to use. \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/class/defaultValue.st b/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/class/defaultValue.st deleted file mode 100644 index 3d7f6377..00000000 --- a/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/class/defaultValue.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultValue - ^ nil \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/class/use.during..st b/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/class/use.during..st deleted file mode 100644 index 1e03f82f..00000000 --- a/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/class/use.during..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -use: anObject during: aBlock - ^ self - value: anObject - during: aBlock \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/instance/default.st b/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/instance/default.st deleted file mode 100644 index 59cb6f1b..00000000 --- a/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/instance/default.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -default - ^ self class defaultValue \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/properties.json deleted file mode 100644 index c8b6c982..00000000 --- a/repository/Grease-Pharo60-Core.package/GRDynamicVariable.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 9/5/2017 07:53", - "super" : "DynamicVariable", - "category" : "Grease-Pharo60-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRDynamicVariable", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPackage.extension/class/greasePharo60Core.st b/repository/Grease-Pharo60-Core.package/GRPackage.extension/class/greasePharo60Core.st deleted file mode 100644 index cb0dc518..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPackage.extension/class/greasePharo60Core.st +++ /dev/null @@ -1,7 +0,0 @@ -*Grease-Pharo60-Core -greasePharo60Core - ^ self new - name: 'Grease-Pharo60-Core'; - addDependency: 'Grease-Core'; - url: #greaseUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPackage.extension/properties.json b/repository/Grease-Pharo60-Core.package/GRPackage.extension/properties.json deleted file mode 100644 index ae522a7e..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRPackage" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/README.md b/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/README.md deleted file mode 100644 index 7620280e..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/README.md +++ /dev/null @@ -1,7 +0,0 @@ -A WAConverterCodecStream is a WACodec stream around a TextConverter. It is always in text mode. - -Instance Variables - converter: - -converter - - the TextConverter used to do the encoding conversion diff --git a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st b/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st deleted file mode 100644 index de8cd791..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -on: aStream converter: aConverter - ^ self basicNew initializeOn: aStream converter: aConverter \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 8321e299..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -greaseNext: anInteger putAll: aCollection startingAt: startIndex - self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1) \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st b/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st deleted file mode 100644 index c380485d..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeOn: aStream converter: aConverter - self initializeOn: aStream. - converter := aConverter \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/next..st b/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/next..st deleted file mode 100644 index ef51837b..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/next..st +++ /dev/null @@ -1,8 +0,0 @@ -streaming -next: anInteger - | writeStream | - writeStream := WriteStream on: (String new: anInteger). - anInteger timesRepeat: [ - writeStream nextPut: (self next - ifNil: [ ^ writeStream contents ]) ]. - ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/next.st b/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/next.st deleted file mode 100644 index eee99a1a..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/next.st +++ /dev/null @@ -1,6 +0,0 @@ -streaming -next - | character | - character := converter nextFromStream: stream. - ^ character isNil - ifFalse: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st b/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st deleted file mode 100644 index e65f56c4..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPut: aCharacter - converter nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st deleted file mode 100644 index a30c4507..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPutAll: aString - aString asString do: [ :each | self nextPut: each ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/properties.json b/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/properties.json deleted file mode 100644 index fd84b7ed..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoConverterCodecStream.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "pmm 6/25/2012 20:22", - "super" : "GRCodecStream", - "category" : "Grease-Pharo60-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "converter" - ], - "name" : "GRPharoConverterCodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/README.md b/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/README.md deleted file mode 100644 index f4f5002a..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/README.md +++ /dev/null @@ -1,12 +0,0 @@ -A codec that delegates to TextConverter. - -Instance Variables - name: - urlCodec: - - -name - - the name of the encoding - -urlCodec: - - the codec used to encode URLs \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st b/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st deleted file mode 100644 index f6b18bd4..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st +++ /dev/null @@ -1,5 +0,0 @@ -private -basicForEncoding: aString - (self supportsEncoding: aString) - ifFalse: [ self unsupportedEncoding: aString ]. - ^ self basicNew initializeWithName: aString \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/class/codecs.st b/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/class/codecs.st deleted file mode 100644 index f1293d05..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/class/codecs.st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -codecs - ^ (TextConverter allEncodingNames - select: [ :each | - "exclude UFT-8 which is handeled by WAUtf8Codec" - self supportsEncoding: each ]) - collect: [ :each | - self basicForEncoding: each greaseString ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st deleted file mode 100644 index e6a8ceb0..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st +++ /dev/null @@ -1,8 +0,0 @@ -private -supportedEncodingNames - "answers the names of the encodings supported by this class" - - ^ TextConverter allEncodingNames - removeAllFoundIn: GRPharoLatin1Codec supportedEncodingNames; - removeAllFoundIn: UTF8TextConverter encodingNames; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st b/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st deleted file mode 100644 index 43a27325..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -supportsEncoding: aString - "Answer whether the the given encoding name is supported." - ^ self supportedEncodingNames includes: aString \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/converter.st b/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/converter.st deleted file mode 100644 index 02b8754b..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/converter.st +++ /dev/null @@ -1,3 +0,0 @@ -private -converter - ^ TextConverter newForEncoding: self name \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st b/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st deleted file mode 100644 index be53dfea..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st +++ /dev/null @@ -1,3 +0,0 @@ -conversion -decoderFor: aStream - ^ self encoderFor: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st b/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st deleted file mode 100644 index 94f2fc13..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoConverterCodecStream - on: aStream - converter: self converter \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st b/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st deleted file mode 100644 index fe95783c..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initializeWithName: aString - self initialize. - name := aString. - urlCodec := (#('iso-8859-15' 'cp-1252') includes: aString) - ifFalse: [ GRCodec forEncoding: 'utf-8' ] - ifTrue: [ self ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/name.st b/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/name.st deleted file mode 100644 index 22077c20..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ name \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/url.st b/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/url.st deleted file mode 100644 index 232ad239..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/instance/url.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -url - "RFC 3986: When a new URI scheme defines a component that represents textual data consisting of characters from the Universal Character Set [UCS], the data should first be encoded as octets according to the UTF-8 character encoding." - - ^ urlCodec \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/properties.json b/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/properties.json deleted file mode 100644 index 03337fa2..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoGenericCodec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "pmm 9/5/2017 07:58", - "super" : "GRCodec", - "category" : "Grease-Pharo60-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "name", - "urlCodec" - ], - "name" : "GRPharoGenericCodec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/README.md deleted file mode 100644 index 3f437d62..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A GRPharoLatin1Codec is a WACodec optimized for ISO-8859-1 (direct byte to character mapping). \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st deleted file mode 100644 index f6b18bd4..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st +++ /dev/null @@ -1,5 +0,0 @@ -private -basicForEncoding: aString - (self supportsEncoding: aString) - ifFalse: [ self unsupportedEncoding: aString ]. - ^ self basicNew initializeWithName: aString \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/class/codecs.st b/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/class/codecs.st deleted file mode 100644 index 7a96b703..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/class/codecs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecs - ^ Array with: (self basicForEncoding: 'iso-8859-1') \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st deleted file mode 100644 index e5dca068..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st +++ /dev/null @@ -1,3 +0,0 @@ -private -supportedEncodingNames - ^ #('iso-8859-1' 'ISO-8859-1' 'latin-1' 'latin1') \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st deleted file mode 100644 index bc591573..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st +++ /dev/null @@ -1,4 +0,0 @@ -private -supportsEncoding: aString - "Answer whether the the given encoding name is supported." - ^ self supportedEncodingNames includes: aString \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/decode..st b/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/decode..st deleted file mode 100644 index 5f73b526..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/decode..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -decode: aStringOrByteArray - "Overridden for efficencey." - - ^ aStringOrByteArray asString \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st b/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st deleted file mode 100644 index 256dbac4..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -decoderFor: aReadStream - "wrap to avoid String vs ByteArray issues" - ^ GRPharoLatin1CodecStream on: aReadStream \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st b/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st deleted file mode 100644 index 20102849..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -encoderFor: aWriteStream - "wrap to avoid String vs ByteArray issues" - ^ GRPharoLatin1CodecStream on: aWriteStream \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st b/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st deleted file mode 100644 index b0256973..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeWithName: aString - self initialize. - name := aString \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/name.st b/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/name.st deleted file mode 100644 index 22077c20..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ name \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/properties.json b/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/properties.json deleted file mode 100644 index d65db753..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoLatin1Codec.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRNullCodec", - "category" : "Grease-Pharo60-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "name" - ], - "name" : "GRPharoLatin1Codec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/README.md deleted file mode 100644 index e1c2471b..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A GRPharoLatin1CodecStream is a WACodecStream optimized for ISO-8859-1 (direct byte to character mapping). \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/instance/next..st b/repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/instance/next..st deleted file mode 100644 index a734bc76..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/instance/next..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next: anInteger - ^ (stream next: anInteger) asString \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/instance/next.st b/repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/instance/next.st deleted file mode 100644 index bf70df58..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - ^ Character value: stream next \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/properties.json b/repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/properties.json deleted file mode 100644 index 00aad043..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoLatin1CodecStream.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRNullCodecStream", - "category" : "Grease-Pharo60-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoLatin1CodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/README.md deleted file mode 100644 index e71bb46d..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A GRPharoPlatform is the Pharo implementation of GRPlatform, the Grease class that provides functionality that can not be implemented in a platform independent way. diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/class/initialize.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/class/initialize.st deleted file mode 100644 index 0c86564c..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/class/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -class initialization -initialize - self initializeXmlTable. - self initializeUrlTable. - self select \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st deleted file mode 100644 index 9abf56b7..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st +++ /dev/null @@ -1,7 +0,0 @@ -class initialization -initializeUrlTable - UrlTable := ByteArray new: 256. - 1 to: 256 do: [ :index | - ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~' includes: (Character codePoint: index - 1)) - ifTrue: [ UrlTable at: index put: 0 ] - ifFalse: [ UrlTable at: index put: 1 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st deleted file mode 100644 index 830a5595..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st +++ /dev/null @@ -1,7 +0,0 @@ -class initialization -initializeXmlTable - XmlTable := ByteArray new: 256. - 1 to: 256 do: [ :index | - ('"<&>' includes: (Character codePoint: index - 1)) - ifTrue: [ XmlTable at: index put: 1 ] - ifFalse: [ XmlTable at: index put: 0 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/class/unload.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/class/unload.st deleted file mode 100644 index 4c8dd650..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/class/unload.st +++ /dev/null @@ -1,3 +0,0 @@ -class initialization -unload - self unselect \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st deleted file mode 100644 index f8d3ad5f..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -addToShutDownList: anObject - "Add anObject to the shutdown-list of the system. On shutdown the message #shutDown will be sent to anObject." - - Smalltalk addToShutDownList: anObject \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st deleted file mode 100644 index c4ab1dea..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -addToStartUpList: aClass - "Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject." - - SessionManager default registerUserClassNamed: aClass name. \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st deleted file mode 100644 index ba4a0727..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st +++ /dev/null @@ -1,6 +0,0 @@ -file library -asMethodReturningByteArray: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a ByteArray" - ^ self useByteArrayLiterals - ifTrue: [ self asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol ] - ifFalse: [ self asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st deleted file mode 100644 index 90bb405c..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st +++ /dev/null @@ -1,10 +0,0 @@ -private-file library -asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array using VW/NewCompiler byte array literal syntax." - ^ String streamContents: [ :stream | - stream nextPutAll: aSymbol; nextPut: Character cr. - stream tab; nextPutAll: '^ #['. - aByteArrayOrString asByteArray - do: [ :each | each printOn: stream ] - separatedBy: [ stream space ]. - stream nextPutAll: ']' ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st deleted file mode 100644 index a1f9fe07..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st +++ /dev/null @@ -1,10 +0,0 @@ -private-file library -asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array and caching this array in a literal array of size 1." - ^ String streamContents: [ :stream | - stream nextPutAll: aSymbol; nextPut: Character cr. - stream tab; nextPutAll: '^ #('. - aByteArrayOrString asByteArray - do: [ :each | each printOn: stream ] - separatedBy: [ stream space ]. - stream nextPutAll: ') asByteArray' ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/base64Decode..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/base64Decode..st deleted file mode 100644 index 382a7f83..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/base64Decode..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -base64Decode: aString - ^ (Base64MimeConverter mimeDecodeToChars: aString readStream) contents \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/base64Encode..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/base64Encode..st deleted file mode 100644 index f5e24f05..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/base64Encode..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -base64Encode: aByteArray - ^ (Base64MimeConverter base64Encode: aByteArray readStream) contents diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/bindingOf..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/bindingOf..st deleted file mode 100644 index e878c01b..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/bindingOf..st +++ /dev/null @@ -1,4 +0,0 @@ -bindings -bindingOf: aClass - - ^ Smalltalk globals associationAt: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st deleted file mode 100644 index 45c37a45..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -compile: aString into: aClass classified: aSymbol - aClass compile: aString classified: aSymbol \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st deleted file mode 100644 index 119ba39b..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -contentsOfFile: aString binary: aBoolean - ^ self fileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/directoriesIn..st deleted file mode 100644 index c5beee09..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/directoriesIn..st +++ /dev/null @@ -1,8 +0,0 @@ -file library -directoriesIn: aPathString - "Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString - must not include directory names that start with ." - ^ Array streamContents: [ :stream | - FileSystem disk directoriesAt: aPathString do: [ :each | - each basename first = $. ifFalse: [ - stream nextPut: each asFileReference fullName ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/doSilently..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/doSilently..st deleted file mode 100644 index 9ea296ff..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/doSilently..st +++ /dev/null @@ -1,3 +0,0 @@ -private -doSilently: aBlock - ^ SystemAnnouncer uniqueInstance suspendAllWhile: aBlock \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st deleted file mode 100644 index 907e0168..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st +++ /dev/null @@ -1,4 +0,0 @@ -file library -ensureExistenceOfFolder: aString - "creates a folder named aString in the image directory" - FileSystem disk ensureCreateDirectory: aString \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/fileExists..st deleted file mode 100644 index 2a02cc3f..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/fileExists..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -fileExists: aString - ^ aString asFileReference exists \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st deleted file mode 100644 index 2fd81137..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st +++ /dev/null @@ -1,13 +0,0 @@ -file library -fileStreamOn: aString do: aBlock binary: aBoolean - ^ aBoolean - ifTrue: [ - FileStream fileNamed: aString do: [ :stream | - stream binary. - aBlock value: stream ] ] - ifFalse: [ - MultiByteFileStream fileNamed: aString do: [ :stream | - stream - ascii; - wantsLineEndConversion: true. - aBlock value: stream ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/filesIn..st deleted file mode 100644 index e3b9a6b0..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/filesIn..st +++ /dev/null @@ -1,8 +0,0 @@ -file library -filesIn: aPathString - "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString - must not include file names that start with ." - ^ Array streamContents: [ :stream | - FileSystem disk filesAt: aPathString do: [ :each | - each basename first = $. ifFalse: [ - stream nextPut: each asFileReference fullName ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/integerAsByteArray..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/integerAsByteArray..st deleted file mode 100644 index 124003a4..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/integerAsByteArray..st +++ /dev/null @@ -1,7 +0,0 @@ -encoding -integerAsByteArray: anInteger - | stream | - stream := ByteArray new writeStream. - anInteger greaseBytesCount to: 1 by: -1 do: [:digitIndex | - stream nextPut: (anInteger greaseByteAt: digitIndex)]. - ^ stream contents \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st deleted file mode 100644 index 03b50778..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st +++ /dev/null @@ -1,4 +0,0 @@ -processes -isProcessTerminated: aProcess - "Return a boolean indicating whether aProcess has been terminated." - ^ aProcess isTerminated \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/label.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/label.st deleted file mode 100644 index f3b036e2..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/label.st +++ /dev/null @@ -1,3 +0,0 @@ -version info -label - ^ 'Pharo' \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/localNameOf..st deleted file mode 100644 index 8f4efb85..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/localNameOf..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -localNameOf: aFilename - ^ (FileSystem disk resolveString: aFilename) basename \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/newRandom.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/newRandom.st deleted file mode 100644 index 9d90824d..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/newRandom.st +++ /dev/null @@ -1,10 +0,0 @@ -factory -newRandom - "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: - #nextInt: - should answer a random integer in the interval [1, anInteger] - #randomFrom: - should answer a random element from the given collection - - Make sure that both methods are safe under heavy concurrent load. - - Used by Gemstone/S traditional Randoms which cannot be persisted.." - ^ GRPharoRandomProvider \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/newline.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/newline.st deleted file mode 100644 index 1219045d..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/newline.st +++ /dev/null @@ -1,3 +0,0 @@ -file library -newline - ^ String cr \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st deleted file mode 100644 index b98446f9..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st +++ /dev/null @@ -1,18 +0,0 @@ -exceptions -openDebuggerOn: anError - | process | - process := Processor activeProcess. - "If we are running in the UI process, we don't want to suspend the active process. The - error was presumably triggered while stepping in the Debugger. If we simply immediately - signal an UnhandledError, the debugger will catch this and display the signaling context. - It isn't perfect or pretty but it works." - (ProcessBrowser isUIProcess: process) - ifTrue: [ - UnhandledError signalForException: anError ] - ifFalse: [ - WorldState addDeferredUIMessage: [ - process - debug: anError signalerContext - title: anError description - full: true ]. - process suspend ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/pathSeparator.st deleted file mode 100644 index 10f88300..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/pathSeparator.st +++ /dev/null @@ -1,3 +0,0 @@ -file library -pathSeparator - ^ String with: FileSystem disk delimiter \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st deleted file mode 100644 index 35251d7b..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st +++ /dev/null @@ -1,5 +0,0 @@ -factory -readWriteByteStream - "ByteArray based read write stream" - - ^ RWBinaryOrTextStream on: (ByteArray new: 4096) \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st deleted file mode 100644 index 3f94c5af..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st +++ /dev/null @@ -1,5 +0,0 @@ -factory -readWriteCharacterStream - "String based read write stream" - - ^ ReadWriteStream on: (String new: 4096) \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st deleted file mode 100644 index 58137e33..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromShutDownList: aClass - "Remove aClass from the shutdown list in the system." - - SessionManager default unregisterClassNamed: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st deleted file mode 100644 index 76918209..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromStartUpList: aClass - "Remove aClass from the startup list in the system." - - SessionManager default unregisterClassNamed: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st deleted file mode 100644 index 92cbd7ff..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -removeSelector: aSymbol from: aClass - aClass removeSelector: aSymbol \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/secureHashFor..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/secureHashFor..st deleted file mode 100644 index 46b9e2d2..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/secureHashFor..st +++ /dev/null @@ -1,3 +0,0 @@ -cryptography -secureHashFor: aString - ^ SHA1 new hashMessage: aString \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st deleted file mode 100644 index ceccf9e3..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st +++ /dev/null @@ -1,4 +0,0 @@ -factory -semaphoreClass - "used by Gemstone/S traditional Semaphores which cannot be persisted" - ^ Semaphore \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/stackDepth.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/stackDepth.st deleted file mode 100644 index 7b994393..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/stackDepth.st +++ /dev/null @@ -1,10 +0,0 @@ -exceptions -stackDepth - - | depth current | - depth := 0. - current := thisContext. - [ current isNil ] whileFalse: [ - current := current sender. - depth := depth + 1 ]. - ^ depth - 1 \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/terminateProcess..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/terminateProcess..st deleted file mode 100644 index a09b96e1..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/terminateProcess..st +++ /dev/null @@ -1,4 +0,0 @@ -processes -terminateProcess: aProcess - "Permanently terminate the process, unwinding first to execute #ensure: and #ifCurtailed: blocks." - aProcess terminate \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/thisContext.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/thisContext.st deleted file mode 100644 index 97018fc5..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/thisContext.st +++ /dev/null @@ -1,4 +0,0 @@ -processes -thisContext - - ^ thisContext sender \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st deleted file mode 100644 index 71b0f2cf..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st +++ /dev/null @@ -1,4 +0,0 @@ -private-file library -useByteArrayLiterals - "whether ByteArray literals can/should be used" - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st deleted file mode 100644 index b0ca3d82..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st +++ /dev/null @@ -1,3 +0,0 @@ -factory -weakDictionaryOfSize: aNumber - ^ IdentityDictionary new: aNumber \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st deleted file mode 100644 index e77ae8c1..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st +++ /dev/null @@ -1,15 +0,0 @@ -file library -write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString - "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" - | folder stream fullFilePath | - folder := FileSystem disk resolveString: aFolderString. - fullFilePath := (folder / aFileNameString) asFileReference. - stream := aStringOrByteArray isString - ifTrue: [ - (MultiByteFileStream forceNewFileNamed: fullFilePath fullName) - ascii; - wantsLineEndConversion: true; - yourself ] - ifFalse: [ (FileStream forceNewFileNamed: fullFilePath fullName) binary ]. - [ stream nextPutAll: aStringOrByteArray ] - ensure: [ stream close ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/properties.json deleted file mode 100644 index fc75f419..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "pmm 2/1/2014 13:28", - "super" : "GRPlatform", - "category" : "Grease-Pharo60-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "UrlTable", - "XmlTable" - ], - "instvars" : [ ], - "name" : "GRPharoPlatform", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/README.md b/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/README.md deleted file mode 100644 index 852705fe..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I make GRPlatform use Random as a random number generator. \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/initialize.st b/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/initialize.st deleted file mode 100644 index 04ca54c3..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -private -initialize - Smalltalk addToStartUpList: self. - self startUp \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/nextInt..st b/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/nextInt..st deleted file mode 100644 index 593aee36..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/nextInt..st +++ /dev/null @@ -1,5 +0,0 @@ -public -nextInt: anInteger - "Answer a random integer in the interval [1, anInteger]" - - ^ mutex critical: [ generator nextInt: anInteger ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/randomClass.st b/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/randomClass.st deleted file mode 100644 index 85a2db91..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/randomClass.st +++ /dev/null @@ -1,3 +0,0 @@ -private -randomClass - ^ Random \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/randomFrom..st b/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/randomFrom..st deleted file mode 100644 index a5fe470c..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/randomFrom..st +++ /dev/null @@ -1,11 +0,0 @@ -public -randomFrom: aCollection - | random count | - random := self nextInt: aCollection size. - ^ aCollection isSequenceable - ifTrue: [ aCollection at: random ] - ifFalse: [ - count := 1. - aCollection do: [ :ea | - count = random ifTrue: [ ^ ea ]. - count := count + 1 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/startUp.st b/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/startUp.st deleted file mode 100644 index 663a5243..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/startUp.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -startUp - generator := self randomClass new. - mutex := Semaphore forMutualExclusion \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/unload.st b/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/unload.st deleted file mode 100644 index fd4cb930..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/class/unload.st +++ /dev/null @@ -1,3 +0,0 @@ -private -unload - GRPlatform current removeFromStartUpList: self \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/properties.json b/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/properties.json deleted file mode 100644 index 73a91ed2..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoRandomProvider.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "pmm 9/5/2017 07:59", - "super" : "GRObject", - "category" : "Grease-Pharo60-Core", - "classinstvars" : [ - "mutex", - "generator" - ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoRandomProvider", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/README.md b/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/README.md deleted file mode 100644 index c6047951..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WAUtf8Codec is a WACodec optimized for UTF-8. \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st deleted file mode 100644 index d4c4a74b..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -private -basicForEncoding: aString - ^ self new \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/class/codecs.st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/class/codecs.st deleted file mode 100644 index 632b84fb..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/class/codecs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecs - ^ Array with: self new \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st deleted file mode 100644 index dc3a8ade..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -supportsEncoding: aString - ^ (#('utf-8' 'UTF-8') includes: aString) or: [ UTF8TextConverter encodingNames includes: aString ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/decode..st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/decode..st deleted file mode 100644 index b625727d..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/decode..st +++ /dev/null @@ -1,36 +0,0 @@ -decoding -decode: aString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | outStream byte1 byte2 byte3 byte4 unicode stream | - stream := aString readStream. - outStream := WriteStream on: (String new: aString size). - [ stream atEnd not ] whileTrue: [ - byte1 := stream next asInteger. - unicode := byte1. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next asInteger. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63) ]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next asInteger. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte4 := stream next asInteger. - (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63) ]. - unicode ifNil: [ self invalidUtf8 ]. - unicode = 16rFEFF "ignore BOM" ifFalse: [ - outStream nextPut: (Character codePoint: unicode) ]. - unicode := nil ]. - ^ outStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st deleted file mode 100644 index 203b901f..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -decoderFor: aStream - ^ GRPharoUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st deleted file mode 100644 index d77ab435..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st deleted file mode 100644 index e4481c22..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/name.st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/name.st deleted file mode 100644 index 7886c830..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'utf-8' \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/url.st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/url.st deleted file mode 100644 index 4696d714..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/instance/url.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -url - ^ self \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/properties.json b/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/properties.json deleted file mode 100644 index ac754462..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8Codec.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 2/20/2009 12:51", - "super" : "GRCodec", - "category" : "Grease-Pharo60-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoUtf8Codec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/README.md b/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/README.md deleted file mode 100644 index 08323f18..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WAUtf8CodecStream is a WACodecStream optimized for UTF-8 performance in the case where most of the characters are ASCII. diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st deleted file mode 100644 index b8d03990..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st +++ /dev/null @@ -1,17 +0,0 @@ -class initialization -initialize - (Smalltalk hasClassNamed: #UTF8TextConverter) "guard for Squeak 37" - ifFalse: [ ^ self ]. - - Latin1ToUtf8Map := ByteArray new: 256. - Latin1ToUtf8Encodings := Array new: 256. - 0 to: 255 do:[ :index | - | latin1 utf8 | - latin1 := String with: (Character codePoint: index). - utf8 := latin1 convertToWithConverter: UTF8TextConverter new. - latin1 = utf8 - ifTrue:[ - Latin1ToUtf8Map at: index + 1 put: 0 ] "no translation needed" - ifFalse:[ - Latin1ToUtf8Map at: index + 1 put: 1. "no translation needed" - Latin1ToUtf8Encodings at: index + 1 put: utf8 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st deleted file mode 100644 index ba607092..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st +++ /dev/null @@ -1,4 +0,0 @@ -streaming -crlf - stream nextPut: Character cr. - stream nextPut: Character lf \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st deleted file mode 100644 index cdd58a41..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st +++ /dev/null @@ -1,5 +0,0 @@ -private -encodeDefault: aString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - 1 to: aString size by: 1 do: [ :index | - converter nextPut: (aString at: index) toStream: stream ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st deleted file mode 100644 index 9a8a0dc3..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st +++ /dev/null @@ -1,14 +0,0 @@ -private -encodeFast: aByteString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | lastIndex nextIndex | - lastIndex := 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ifTrue: [ ^ stream nextPutAll: aByteString ]. - [ nextIndex > lastIndex ifTrue: [ - stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. - stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). - lastIndex := nextIndex + 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ] whileFalse. - stream greaseNext: aByteString size - lastIndex + 1 putAll: aByteString startingAt: lastIndex \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index cd78fbe0..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -greaseNext: anInteger putAll: aCollection startingAt: startIndex - aCollection isByteString - ifTrue: [ self greaseNext: anInteger putAllFast: aCollection startingAt: startIndex ] - ifFalse: [ super greaseNext: anInteger putAll: aCollection startingAt: startIndex ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st deleted file mode 100644 index a4c114cb..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st +++ /dev/null @@ -1,17 +0,0 @@ -private -greaseNext: anInteger putAllFast: aByteString startingAt: startIndex - | lastIndex nextIndex | - lastIndex := startIndex. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ifTrue: [ ^ stream greaseNext: anInteger putAll: aByteString startingAt: startIndex ]. - [ - nextIndex >= (startIndex + anInteger) ifTrue: [ - ^ stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ]. - nextIndex > lastIndex ifTrue: [ - stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. - stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). - lastIndex := nextIndex + 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - (nextIndex = 0 or: [ nextIndex >= (startIndex + anInteger) ]) ] whileFalse. - lastIndex >= (startIndex + anInteger) ifFalse: [ - stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st deleted file mode 100644 index e4481c22..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/next..st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/next..st deleted file mode 100644 index 116f524d..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/next..st +++ /dev/null @@ -1,46 +0,0 @@ -streaming -next: anInteger - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | output byte1 byte2 byte3 byte4 unicode count alreadyWide | - output := ByteString new: anInteger. - count := 0. - alreadyWide := false. - [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ - byte1 := stream next. - unicode := byte1. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63). - alreadyWide ifFalse: [ - output := WideString withAll: output. - alreadyWide := true ] ]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte4 := stream next. - (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63). - alreadyWide ifFalse: [ - output := WideString withAll: output. - alreadyWide := true ] ]. - unicode ifNil: [ self invalidUtf8 ]. - unicode = 16rFEFF "ignore BOM" ifFalse: [ - count := count + 1. - output at: count put: (Character codePoint: unicode) ]. - unicode := nil ]. - ^ count < anInteger - ifTrue: [ output first: count ] - ifFalse: [ output ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/next.st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/next.st deleted file mode 100644 index 4363f086..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - ^ (self next: 1) first \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st deleted file mode 100644 index 58839f8a..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,15 +0,0 @@ -streaming -nextPut: aCharacter - | codePoint | - codePoint := aCharacter codePoint. - codePoint < 128 ifTrue: [ - ^ stream nextPut: aCharacter ]. - codePoint < 256 ifTrue: [ - | shouldEncode | - shouldEncode := Latin1ToUtf8Map at: codePoint + 1. - ^ shouldEncode = 1 - ifTrue: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] - ifFalse: [ stream nextPut: aCharacter ] ]. - - ^ self nextPutAll: (String with: aCharacter) - \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st deleted file mode 100644 index b9136110..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -nextPutAll: aString - aString isByteString - ifTrue: [ self encodeFast: aString ] - ifFalse: [ self encodeDefault: aString ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/properties.json b/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/properties.json deleted file mode 100644 index 10b400c5..00000000 --- a/repository/Grease-Pharo60-Core.package/GRPharoUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "pmm 2/20/2009 12:27", - "super" : "GRPharoConverterCodecStream", - "category" : "Grease-Pharo60-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "Latin1ToUtf8Encodings", - "Latin1ToUtf8Map" - ], - "instvars" : [ ], - "name" : "GRPharoUtf8CodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Interval.extension/instance/any.st b/repository/Grease-Pharo60-Core.package/Interval.extension/instance/any.st deleted file mode 100644 index 72a93fb6..00000000 --- a/repository/Grease-Pharo60-Core.package/Interval.extension/instance/any.st +++ /dev/null @@ -1,6 +0,0 @@ -*Grease-Pharo60-Core -any - "#first (used by SequenceableCollection>>anyOne) is an accessor of - Interval and does not error on an empty Interval." - - ^ self at: 1 \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Interval.extension/properties.json b/repository/Grease-Pharo60-Core.package/Interval.extension/properties.json deleted file mode 100644 index 534eb553..00000000 --- a/repository/Grease-Pharo60-Core.package/Interval.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Interval" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/LargeInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo60-Core.package/LargeInteger.extension/instance/greaseByteAt..st deleted file mode 100644 index 61ee208c..00000000 --- a/repository/Grease-Pharo60-Core.package/LargeInteger.extension/instance/greaseByteAt..st +++ /dev/null @@ -1,8 +0,0 @@ -*Grease-Pharo60-Core -greaseByteAt: index - "Primitive. Answer the value of an indexable field in the receiver. LargePositiveInteger uses bytes of base two number, and each is a 'digit' base 256. Fail if the argument (the index) is not an Integer or is out of bounds. Essential. See Object documentation whatIsAPrimitive." - - - self greaseBytesCount < index - ifTrue: [^0] - ifFalse: [^super at: index] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/LargeInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo60-Core.package/LargeInteger.extension/instance/greaseBytesCount.st deleted file mode 100644 index 43a22aa9..00000000 --- a/repository/Grease-Pharo60-Core.package/LargeInteger.extension/instance/greaseBytesCount.st +++ /dev/null @@ -1,8 +0,0 @@ -*Grease-Pharo60-Core -greaseBytesCount - "Primitive. Answer the number of indexable fields in the receiver. This - value is the same as the largest legal subscript. Essential. See Object - documentation whatIsAPrimitive." - - - self primitiveFailed \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/LargeInteger.extension/properties.json b/repository/Grease-Pharo60-Core.package/LargeInteger.extension/properties.json deleted file mode 100644 index 029bc676..00000000 --- a/repository/Grease-Pharo60-Core.package/LargeInteger.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "LargeInteger" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/MessageSend.extension/instance/argumentCount.st b/repository/Grease-Pharo60-Core.package/MessageSend.extension/instance/argumentCount.st deleted file mode 100644 index f674c298..00000000 --- a/repository/Grease-Pharo60-Core.package/MessageSend.extension/instance/argumentCount.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo60-Core -argumentCount - ^ selector numArgs - self arguments size \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo60-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index 6d7c0c40..00000000 --- a/repository/Grease-Pharo60-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,7 +0,0 @@ -*Grease-Pharo60-Core -valueWithPossibleArguments: anArray - "Evaluate the block represented by the receiver. - If the block requires one argument, use anArg, if it requires more than one, - fill up the rest with nils." - - ^ self valueWithEnoughArguments: anArray \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/MessageSend.extension/properties.json b/repository/Grease-Pharo60-Core.package/MessageSend.extension/properties.json deleted file mode 100644 index 00669b90..00000000 --- a/repository/Grease-Pharo60-Core.package/MessageSend.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "MessageSend" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Pharo60-Core.package/Number.extension/instance/milliseconds.st deleted file mode 100644 index cf42cd2a..00000000 --- a/repository/Grease-Pharo60-Core.package/Number.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo60-Core -milliseconds - ^ self milliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Number.extension/properties.json b/repository/Grease-Pharo60-Core.package/Number.extension/properties.json deleted file mode 100644 index 71dace88..00000000 --- a/repository/Grease-Pharo60-Core.package/Number.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Number" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Pharo60-Core.package/Object.extension/instance/greaseString.st deleted file mode 100644 index ee65d433..00000000 --- a/repository/Grease-Pharo60-Core.package/Object.extension/instance/greaseString.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo60-Core -greaseString - ^ self asString \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Object.extension/properties.json b/repository/Grease-Pharo60-Core.package/Object.extension/properties.json deleted file mode 100644 index f30a86e1..00000000 --- a/repository/Grease-Pharo60-Core.package/Object.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Object" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Point.extension/instance/greaseString.st b/repository/Grease-Pharo60-Core.package/Point.extension/instance/greaseString.st deleted file mode 100644 index ea25f9db..00000000 --- a/repository/Grease-Pharo60-Core.package/Point.extension/instance/greaseString.st +++ /dev/null @@ -1,13 +0,0 @@ -*Grease-Pharo60-Core -greaseString - "Reimplemented because in Pharo 1.4 - (4 @ 2) greaseString - ansers '(4@2)'" - ^ String streamContents: [ :stream | - x printOn: stream. - stream nextPut: $@. - (y notNil and: [ y negative ]) - ifTrue: [ - "Avoid ambiguous @- construct" - stream space ]. - y printOn: stream ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Point.extension/properties.json b/repository/Grease-Pharo60-Core.package/Point.extension/properties.json deleted file mode 100644 index c6cf8dd5..00000000 --- a/repository/Grease-Pharo60-Core.package/Point.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Point" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-Pharo60-Core.package/PositionableStream.extension/instance/greaseUpToAll..st deleted file mode 100644 index 7e888109..00000000 --- a/repository/Grease-Pharo60-Core.package/PositionableStream.extension/instance/greaseUpToAll..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo60-Core -greaseUpToAll: aCollection - "Needed for Seaside ports to other dialects where #upToAll: may have - different semantics" - ^ self upToAll: aCollection \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/PositionableStream.extension/properties.json b/repository/Grease-Pharo60-Core.package/PositionableStream.extension/properties.json deleted file mode 100644 index 8e090ee3..00000000 --- a/repository/Grease-Pharo60-Core.package/PositionableStream.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "PositionableStream" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/ScaledDecimal.extension/instance/encodeOn..st b/repository/Grease-Pharo60-Core.package/ScaledDecimal.extension/instance/encodeOn..st deleted file mode 100644 index 9046b34a..00000000 --- a/repository/Grease-Pharo60-Core.package/ScaledDecimal.extension/instance/encodeOn..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo60-Core -encodeOn: aDocument - | converter | - converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). - converter print: self on: aDocument \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Pharo60-Core.package/ScaledDecimal.extension/instance/greaseString.st deleted file mode 100644 index 04eb1d5b..00000000 --- a/repository/Grease-Pharo60-Core.package/ScaledDecimal.extension/instance/greaseString.st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo60-Core -greaseString - | converter | - converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). - ^ converter print: self \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/ScaledDecimal.extension/properties.json b/repository/Grease-Pharo60-Core.package/ScaledDecimal.extension/properties.json deleted file mode 100644 index 75f85f87..00000000 --- a/repository/Grease-Pharo60-Core.package/ScaledDecimal.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "ScaledDecimal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st deleted file mode 100644 index 97e70bc1..00000000 --- a/repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo60-Core -beginsWithSubCollection: aSequenceableCollection - "Some platforms implement #beginsWith: to answer true for an empty argument." - ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st deleted file mode 100644 index 5c04dbb3..00000000 --- a/repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo60-Core -endsWithSubCollection: aSequenceableCollection - "Some platforms implement #endsWith: to answer true for an empty argument." - ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/instance/sorted.st b/repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/instance/sorted.st deleted file mode 100644 index 270d837f..00000000 --- a/repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/instance/sorted.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo60-Core -sorted - ^ self sorted: [ :a :b | a <= b ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/properties.json deleted file mode 100644 index a68b7db6..00000000 --- a/repository/Grease-Pharo60-Core.package/SequenceableCollection.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "SequenceableCollection" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/SmallInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo60-Core.package/SmallInteger.extension/instance/greaseByteAt..st deleted file mode 100644 index 9f0d7dec..00000000 --- a/repository/Grease-Pharo60-Core.package/SmallInteger.extension/instance/greaseByteAt..st +++ /dev/null @@ -1,14 +0,0 @@ -*Grease-Pharo60-Core -greaseByteAt: n - "Answer the value of an apparent byte-indexable field in the receiver, - analogous to the large integers, which are organized as bytes." - - n = 1 - ifTrue: [ - "Negate carefully in case the receiver is SmallInteger minVal" - ^ self < 0 - ifTrue: [ -256 - self bitAnd: 255 ] - ifFalse: [ self bitAnd: 255 ] ]. - ^ self < 0 - ifTrue: [ (-256 - self bitShift: -8) + 1 byteAt: n - 1 ] - ifFalse: [ (self bitShift: 8 - (n bitShift: 3)) bitAnd: 255 ] \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/SmallInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo60-Core.package/SmallInteger.extension/instance/greaseBytesCount.st deleted file mode 100644 index bb983402..00000000 --- a/repository/Grease-Pharo60-Core.package/SmallInteger.extension/instance/greaseBytesCount.st +++ /dev/null @@ -1,25 +0,0 @@ -*Grease-Pharo60-Core -greaseBytesCount - "Answer the number of indexable fields in the receiver. This value is the - same as the largest legal subscript. Included so that a SmallInteger can - behave like a LargePositiveInteger or LargeNegativeInteger." - - "32768 == (1 bitShift: 15)" - "32768 bytesCount >>> 2" - - "65536 == (1 bitShift: 16)" - "65536 bytesCount >>> 3" - - | value length | - length := 1. - value := self. - value >= 0 - ifTrue: - [[value > 255] whileTrue: - [value := value bitShift: -8. - length := length + 1]] - ifFalse: - [[value < -255] whileTrue: - [value := value bitShift: -8. - length := length + 1]]. - ^length \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/SmallInteger.extension/properties.json b/repository/Grease-Pharo60-Core.package/SmallInteger.extension/properties.json deleted file mode 100644 index ca9cd21f..00000000 --- a/repository/Grease-Pharo60-Core.package/SmallInteger.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "SmallInteger" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo60-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index ca423777..00000000 --- a/repository/Grease-Pharo60-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,13 +0,0 @@ -*Grease-Pharo60-Core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - "Put a String or a ByteArray onto the stream starting at the given position. - Currently a large collection will allocate a large buffer." - - | toPut | - anInteger = 0 ifTrue: [ - ^ aCollection ]. - toPut := binary ifTrue: [ aCollection asByteArray ] ifFalse: [ aCollection asString ]. - self adjustOutBuffer: anInteger. - outBuffer replaceFrom: outNextToWrite to: outNextToWrite + anInteger - 1 with: toPut startingAt: startIndex. - outNextToWrite := outNextToWrite + anInteger. - self checkFlush \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/SocketStream.extension/properties.json b/repository/Grease-Pharo60-Core.package/SocketStream.extension/properties.json deleted file mode 100644 index 797e09e5..00000000 --- a/repository/Grease-Pharo60-Core.package/SocketStream.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "SocketStream" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/String.extension/instance/greaseString.st b/repository/Grease-Pharo60-Core.package/String.extension/instance/greaseString.st deleted file mode 100644 index 5527fdeb..00000000 --- a/repository/Grease-Pharo60-Core.package/String.extension/instance/greaseString.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo60-core -greaseString - ^ self \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/String.extension/properties.json b/repository/Grease-Pharo60-Core.package/String.extension/properties.json deleted file mode 100644 index b20f2de3..00000000 --- a/repository/Grease-Pharo60-Core.package/String.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "String" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-Pharo60-Core.package/Symbol.extension/instance/greaseAsMutator.st deleted file mode 100644 index c0d4ba74..00000000 --- a/repository/Grease-Pharo60-Core.package/Symbol.extension/instance/greaseAsMutator.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo60-core -greaseAsMutator - ^ self asMutator \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Symbol.extension/instance/greaseString.st b/repository/Grease-Pharo60-Core.package/Symbol.extension/instance/greaseString.st deleted file mode 100644 index 6346e122..00000000 --- a/repository/Grease-Pharo60-Core.package/Symbol.extension/instance/greaseString.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-pharo60-core -greaseString - ^ self asString \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/Symbol.extension/properties.json b/repository/Grease-Pharo60-Core.package/Symbol.extension/properties.json deleted file mode 100644 index 8c6bce81..00000000 --- a/repository/Grease-Pharo60-Core.package/Symbol.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Symbol" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/TBehavior.extension/instance/fullName.st b/repository/Grease-Pharo60-Core.package/TBehavior.extension/instance/fullName.st deleted file mode 100644 index bf7ab47a..00000000 --- a/repository/Grease-Pharo60-Core.package/TBehavior.extension/instance/fullName.st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo60-Core -fullName - "In VW, will include the namespace" - - ^ self name \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/TBehavior.extension/properties.json b/repository/Grease-Pharo60-Core.package/TBehavior.extension/properties.json deleted file mode 100644 index f94cdffb..00000000 --- a/repository/Grease-Pharo60-Core.package/TBehavior.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "TBehavior" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo60-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 0f266ada..00000000 --- a/repository/Grease-Pharo60-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo60-Core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - "Store the next anInteger elements from the given collection." - ^ self next: anInteger putAll: aCollection startingAt: startIndex \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/WriteStream.extension/properties.json b/repository/Grease-Pharo60-Core.package/WriteStream.extension/properties.json deleted file mode 100644 index 8688e80d..00000000 --- a/repository/Grease-Pharo60-Core.package/WriteStream.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "WriteStream" -} \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo60-Core.package/monticello.meta/categories.st deleted file mode 100644 index 8b5e3972..00000000 --- a/repository/Grease-Pharo60-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Pharo60-Core'! diff --git a/repository/Grease-Pharo60-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo60-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo60-Core.package/monticello.meta/package b/repository/Grease-Pharo60-Core.package/monticello.meta/package deleted file mode 100644 index f175ae2c..00000000 --- a/repository/Grease-Pharo60-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo60-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core.package/properties.json b/repository/Grease-Pharo60-Core.package/properties.json deleted file mode 100644 index 6f31cf5a..00000000 --- a/repository/Grease-Pharo60-Core.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/repository/Grease-Pharo60-Core/BlockClosure.extension.st b/repository/Grease-Pharo60-Core/BlockClosure.extension.st new file mode 100644 index 00000000..865df3ea --- /dev/null +++ b/repository/Grease-Pharo60-Core/BlockClosure.extension.st @@ -0,0 +1,14 @@ +Extension { #name : 'BlockClosure' } + +{ #category : '*Grease-Pharo60-Core' } +BlockClosure >> valueWithPossibleArguments: anArray [ + | args | + (anArray size == self numArgs) + ifTrue: [ ^ self valueWithArguments: anArray ]. + args := Array new: self numArgs. + args replaceFrom: 1 + to: (anArray size min: args size) + with: anArray + startingAt: 1. + ^ self valueWithArguments: args +] diff --git a/repository/Grease-Pharo60-Core/ByteArray.extension.st b/repository/Grease-Pharo60-Core/ByteArray.extension.st new file mode 100644 index 00000000..102d0320 --- /dev/null +++ b/repository/Grease-Pharo60-Core/ByteArray.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'ByteArray' } + +{ #category : '*Grease-Pharo60-Core' } +ByteArray >> greaseString [ + "ByteArrays should not automatically be converted to Strings. You should use a GRCodec for this." + ^ self printString +] diff --git a/repository/Grease-Pharo60-Core/Character.extension.st b/repository/Grease-Pharo60-Core/Character.extension.st new file mode 100644 index 00000000..e923ff8a --- /dev/null +++ b/repository/Grease-Pharo60-Core/Character.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'Character' } + +{ #category : '*Grease-Pharo60-Core' } +Character >> greaseInteger [ + "Answer an unicode code point of the receiver." + ^ self charCode +] diff --git a/repository/Grease-Pharo60-Core/Collection.extension.st b/repository/Grease-Pharo60-Core/Collection.extension.st new file mode 100644 index 00000000..0c09db7e --- /dev/null +++ b/repository/Grease-Pharo60-Core/Collection.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Collection' } + +{ #category : '*Grease-Pharo60-Core' } +Collection >> any [ + ^ self anyOne +] diff --git a/repository/Grease-Pharo60-Core/Color.extension.st b/repository/Grease-Pharo60-Core/Color.extension.st new file mode 100644 index 00000000..94e57359 --- /dev/null +++ b/repository/Grease-Pharo60-Core/Color.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Color' } + +{ #category : '*Grease-Pharo60-Core' } +Color >> asHTMLColor [ + ^'#', self asHexString +] diff --git a/repository/Grease-Pharo60-Core/Duration.extension.st b/repository/Grease-Pharo60-Core/Duration.extension.st new file mode 100644 index 00000000..5d17f933 --- /dev/null +++ b/repository/Grease-Pharo60-Core/Duration.extension.st @@ -0,0 +1,16 @@ +Extension { #name : 'Duration' } + +{ #category : '*Grease-Pharo60-Core' } +Duration >> asMilliseconds [ + ^ self asMilliSeconds +] + +{ #category : '*Grease-Pharo60-Core' } +Duration >> milliseconds [ + ^ nanos quo: NanosInMillisecond +] + +{ #category : '*Grease-Pharo60-Core' } +Duration class >> milliseconds: anInteger [ + ^ self milliSeconds: anInteger +] diff --git a/repository/Grease-Pharo60-Core/GRDelegatingStream.extension.st b/repository/Grease-Pharo60-Core/GRDelegatingStream.extension.st new file mode 100644 index 00000000..06bad14b --- /dev/null +++ b/repository/Grease-Pharo60-Core/GRDelegatingStream.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'GRDelegatingStream' } + +{ #category : '*Grease-Pharo60-Core' } +GRDelegatingStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + stream greaseNext: anInteger putAll: aCollection startingAt: startIndex +] diff --git a/repository/Grease-Pharo60-Core/GRDynamicVariable.class.st b/repository/Grease-Pharo60-Core/GRDynamicVariable.class.st new file mode 100644 index 00000000..f523ec25 --- /dev/null +++ b/repository/Grease-Pharo60-Core/GRDynamicVariable.class.st @@ -0,0 +1,36 @@ +" +A GRDynamicVariable is a variable that is visible only in the stackframes outgoing from this one. + +Example: + +GRDynamicVariable + use: 'Seaside' + during: [ self compilcatedCalculation ] + +Whenever GRDynamicVariable value gets evaluated somewhere inside [ self compilcatedCalculation ] or a method invoked directly or indirectly by it, its value will be 'Seaside'. If no #use:during: handler is around the current stack frame, then the value will be the return value of the class side #defaultValue. + +Do not use GRDynamicVariable directly, instead create a subclass for each variable you want to use. +" +Class { + #name : 'GRDynamicVariable', + #superclass : 'DynamicVariable', + #category : 'Grease-Pharo60-Core', + #package : 'Grease-Pharo60-Core' +} + +{ #category : 'defaults' } +GRDynamicVariable class >> defaultValue [ + ^ nil +] + +{ #category : 'accessing' } +GRDynamicVariable class >> use: anObject during: aBlock [ + ^ self + value: anObject + during: aBlock +] + +{ #category : 'accessing' } +GRDynamicVariable >> default [ + ^ self class defaultValue +] diff --git a/repository/Grease-Pharo60-Core/GRPackage.extension.st b/repository/Grease-Pharo60-Core/GRPackage.extension.st new file mode 100644 index 00000000..58620844 --- /dev/null +++ b/repository/Grease-Pharo60-Core/GRPackage.extension.st @@ -0,0 +1,10 @@ +Extension { #name : 'GRPackage' } + +{ #category : '*Grease-Pharo60-Core' } +GRPackage class >> greasePharo60Core [ + ^ self new + name: 'Grease-Pharo60-Core'; + addDependency: 'Grease-Core'; + url: #greaseUrl; + yourself +] diff --git a/repository/Grease-Pharo60-Core/GRPharoConverterCodecStream.class.st b/repository/Grease-Pharo60-Core/GRPharoConverterCodecStream.class.st new file mode 100644 index 00000000..11d1e1a4 --- /dev/null +++ b/repository/Grease-Pharo60-Core/GRPharoConverterCodecStream.class.st @@ -0,0 +1,63 @@ +" +A WAConverterCodecStream is a WACodec stream around a TextConverter. It is always in text mode. + +Instance Variables + converter: + +converter + - the TextConverter used to do the encoding conversion + +" +Class { + #name : 'GRPharoConverterCodecStream', + #superclass : 'GRCodecStream', + #instVars : [ + 'converter' + ], + #category : 'Grease-Pharo60-Core', + #package : 'Grease-Pharo60-Core' +} + +{ #category : 'instance creation' } +GRPharoConverterCodecStream class >> on: aStream converter: aConverter [ + ^ self basicNew initializeOn: aStream converter: aConverter +] + +{ #category : 'streaming' } +GRPharoConverterCodecStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1) +] + +{ #category : 'initialization' } +GRPharoConverterCodecStream >> initializeOn: aStream converter: aConverter [ + self initializeOn: aStream. + converter := aConverter +] + +{ #category : 'streaming' } +GRPharoConverterCodecStream >> next [ + | character | + character := converter nextFromStream: stream. + ^ character isNil + ifFalse: [ character asCharacter ] +] + +{ #category : 'streaming' } +GRPharoConverterCodecStream >> next: anInteger [ + | writeStream | + writeStream := WriteStream on: (String new: anInteger). + anInteger timesRepeat: [ + writeStream nextPut: (self next + ifNil: [ ^ writeStream contents ]) ]. + ^ writeStream contents +] + +{ #category : 'streaming' } +GRPharoConverterCodecStream >> nextPut: aCharacter [ + converter nextPut: aCharacter asCharacter toStream: stream +] + +{ #category : 'streaming' } +GRPharoConverterCodecStream >> nextPutAll: aString [ + aString asString do: [ :each | self nextPut: each ] +] diff --git a/repository/Grease-Pharo60-Core/GRPharoGenericCodec.class.st b/repository/Grease-Pharo60-Core/GRPharoGenericCodec.class.st new file mode 100644 index 00000000..23d31fd5 --- /dev/null +++ b/repository/Grease-Pharo60-Core/GRPharoGenericCodec.class.st @@ -0,0 +1,95 @@ +" +A codec that delegates to TextConverter. + +Instance Variables + name: + urlCodec: + + +name + - the name of the encoding + +urlCodec: + - the codec used to encode URLs +" +Class { + #name : 'GRPharoGenericCodec', + #superclass : 'GRCodec', + #instVars : [ + 'name', + 'urlCodec' + ], + #category : 'Grease-Pharo60-Core', + #package : 'Grease-Pharo60-Core' +} + +{ #category : 'private' } +GRPharoGenericCodec class >> basicForEncoding: aString [ + (self supportsEncoding: aString) + ifFalse: [ self unsupportedEncoding: aString ]. + ^ self basicNew initializeWithName: aString +] + +{ #category : 'accessing' } +GRPharoGenericCodec class >> codecs [ + ^ (TextConverter allEncodingNames + select: [ :each | + "exclude UFT-8 which is handeled by WAUtf8Codec" + self supportsEncoding: each ]) + collect: [ :each | + self basicForEncoding: each greaseString ] +] + +{ #category : 'private' } +GRPharoGenericCodec class >> supportedEncodingNames [ + "answers the names of the encodings supported by this class" + + ^ TextConverter allEncodingNames + removeAllFoundIn: GRPharoLatin1Codec supportedEncodingNames; + removeAllFoundIn: UTF8TextConverter encodingNames; + yourself +] + +{ #category : 'testing' } +GRPharoGenericCodec class >> supportsEncoding: aString [ + "Answer whether the the given encoding name is supported." + ^ self supportedEncodingNames includes: aString +] + +{ #category : 'private' } +GRPharoGenericCodec >> converter [ + ^ TextConverter newForEncoding: self name +] + +{ #category : 'conversion' } +GRPharoGenericCodec >> decoderFor: aStream [ + ^ self encoderFor: aStream +] + +{ #category : 'conversion' } +GRPharoGenericCodec >> encoderFor: aStream [ + ^ GRPharoConverterCodecStream + on: aStream + converter: self converter +] + +{ #category : 'initialization' } +GRPharoGenericCodec >> initializeWithName: aString [ + self initialize. + name := aString. + urlCodec := (#('iso-8859-15' 'cp-1252') includes: aString) + ifFalse: [ GRCodec forEncoding: 'utf-8' ] + ifTrue: [ self ] +] + +{ #category : 'accessing' } +GRPharoGenericCodec >> name [ + ^ name +] + +{ #category : 'accessing' } +GRPharoGenericCodec >> url [ + "RFC 3986: When a new URI scheme defines a component that represents textual data consisting of characters from the Universal Character Set [UCS], the data should first be encoded as octets according to the UTF-8 character encoding." + + ^ urlCodec +] diff --git a/repository/Grease-Pharo60-Core/GRPharoLatin1Codec.class.st b/repository/Grease-Pharo60-Core/GRPharoLatin1Codec.class.st new file mode 100644 index 00000000..3cc4e364 --- /dev/null +++ b/repository/Grease-Pharo60-Core/GRPharoLatin1Codec.class.st @@ -0,0 +1,65 @@ +" +A GRPharoLatin1Codec is a WACodec optimized for ISO-8859-1 (direct byte to character mapping). +" +Class { + #name : 'GRPharoLatin1Codec', + #superclass : 'GRNullCodec', + #instVars : [ + 'name' + ], + #category : 'Grease-Pharo60-Core', + #package : 'Grease-Pharo60-Core' +} + +{ #category : 'private' } +GRPharoLatin1Codec class >> basicForEncoding: aString [ + (self supportsEncoding: aString) + ifFalse: [ self unsupportedEncoding: aString ]. + ^ self basicNew initializeWithName: aString +] + +{ #category : 'accessing' } +GRPharoLatin1Codec class >> codecs [ + ^ Array with: (self basicForEncoding: 'iso-8859-1') +] + +{ #category : 'private' } +GRPharoLatin1Codec class >> supportedEncodingNames [ + ^ #('iso-8859-1' 'ISO-8859-1' 'latin-1' 'latin1') +] + +{ #category : 'private' } +GRPharoLatin1Codec class >> supportsEncoding: aString [ + "Answer whether the the given encoding name is supported." + ^ self supportedEncodingNames includes: aString +] + +{ #category : 'conversion' } +GRPharoLatin1Codec >> decode: aStringOrByteArray [ + "Overridden for efficencey." + + ^ aStringOrByteArray asString +] + +{ #category : 'conversion' } +GRPharoLatin1Codec >> decoderFor: aReadStream [ + "wrap to avoid String vs ByteArray issues" + ^ GRPharoLatin1CodecStream on: aReadStream +] + +{ #category : 'conversion' } +GRPharoLatin1Codec >> encoderFor: aWriteStream [ + "wrap to avoid String vs ByteArray issues" + ^ GRPharoLatin1CodecStream on: aWriteStream +] + +{ #category : 'initialization' } +GRPharoLatin1Codec >> initializeWithName: aString [ + self initialize. + name := aString +] + +{ #category : 'accessing' } +GRPharoLatin1Codec >> name [ + ^ name +] diff --git a/repository/Grease-Pharo60-Core/GRPharoLatin1CodecStream.class.st b/repository/Grease-Pharo60-Core/GRPharoLatin1CodecStream.class.st new file mode 100644 index 00000000..c451f4c6 --- /dev/null +++ b/repository/Grease-Pharo60-Core/GRPharoLatin1CodecStream.class.st @@ -0,0 +1,19 @@ +" +A GRPharoLatin1CodecStream is a WACodecStream optimized for ISO-8859-1 (direct byte to character mapping). +" +Class { + #name : 'GRPharoLatin1CodecStream', + #superclass : 'GRNullCodecStream', + #category : 'Grease-Pharo60-Core', + #package : 'Grease-Pharo60-Core' +} + +{ #category : 'streaming' } +GRPharoLatin1CodecStream >> next [ + ^ Character value: stream next +] + +{ #category : 'streaming' } +GRPharoLatin1CodecStream >> next: anInteger [ + ^ (stream next: anInteger) asString +] diff --git a/repository/Grease-Pharo60-Core/GRPharoPlatform.class.st b/repository/Grease-Pharo60-Core/GRPharoPlatform.class.st new file mode 100644 index 00000000..4c16e969 --- /dev/null +++ b/repository/Grease-Pharo60-Core/GRPharoPlatform.class.st @@ -0,0 +1,331 @@ +" +A GRPharoPlatform is the Pharo implementation of GRPlatform, the Grease class that provides functionality that can not be implemented in a platform independent way. + +" +Class { + #name : 'GRPharoPlatform', + #superclass : 'GRPlatform', + #classVars : [ + 'UrlTable', + 'XmlTable' + ], + #category : 'Grease-Pharo60-Core', + #package : 'Grease-Pharo60-Core' +} + +{ #category : 'class initialization' } +GRPharoPlatform class >> initialize [ + self initializeXmlTable. + self initializeUrlTable. + self select +] + +{ #category : 'class initialization' } +GRPharoPlatform class >> initializeUrlTable [ + UrlTable := ByteArray new: 256. + 1 to: 256 do: [ :index | + ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~' includes: (Character codePoint: index - 1)) + ifTrue: [ UrlTable at: index put: 0 ] + ifFalse: [ UrlTable at: index put: 1 ] ] +] + +{ #category : 'class initialization' } +GRPharoPlatform class >> initializeXmlTable [ + XmlTable := ByteArray new: 256. + 1 to: 256 do: [ :index | + ('"<&>' includes: (Character codePoint: index - 1)) + ifTrue: [ XmlTable at: index put: 1 ] + ifFalse: [ XmlTable at: index put: 0 ] ] +] + +{ #category : 'class initialization' } +GRPharoPlatform class >> unload [ + self unselect +] + +{ #category : 'startup' } +GRPharoPlatform >> addToShutDownList: anObject [ + "Add anObject to the shutdown-list of the system. On shutdown the message #shutDown will be sent to anObject." + + Smalltalk addToShutDownList: anObject +] + +{ #category : 'startup' } +GRPharoPlatform >> addToStartUpList: aClass [ + "Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject." + + SessionManager default registerUserClassNamed: aClass name. +] + +{ #category : 'file library' } +GRPharoPlatform >> asMethodReturningByteArray: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a ByteArray" + ^ self useByteArrayLiterals + ifTrue: [ self asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol ] + ifFalse: [ self asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol ] +] + +{ #category : 'private-file library' } +GRPharoPlatform >> asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array using VW/NewCompiler byte array literal syntax." + ^ String streamContents: [ :stream | + stream nextPutAll: aSymbol; nextPut: Character cr. + stream tab; nextPutAll: '^ #['. + aByteArrayOrString asByteArray + do: [ :each | each printOn: stream ] + separatedBy: [ stream space ]. + stream nextPutAll: ']' ] +] + +{ #category : 'private-file library' } +GRPharoPlatform >> asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array and caching this array in a literal array of size 1." + ^ String streamContents: [ :stream | + stream nextPutAll: aSymbol; nextPut: Character cr. + stream tab; nextPutAll: '^ #('. + aByteArrayOrString asByteArray + do: [ :each | each printOn: stream ] + separatedBy: [ stream space ]. + stream nextPutAll: ') asByteArray' ] +] + +{ #category : 'encoding' } +GRPharoPlatform >> base64Decode: aString [ + ^ (Base64MimeConverter mimeDecodeToChars: aString readStream) contents +] + +{ #category : 'encoding' } +GRPharoPlatform >> base64Encode: aByteArray [ + ^ (Base64MimeConverter base64Encode: aByteArray readStream) contents + +] + +{ #category : 'bindings' } +GRPharoPlatform >> bindingOf: aClass [ + + ^ Smalltalk globals associationAt: aClass name +] + +{ #category : 'file library' } +GRPharoPlatform >> compile: aString into: aClass classified: aSymbol [ + aClass compile: aString classified: aSymbol +] + +{ #category : 'file library' } +GRPharoPlatform >> contentsOfFile: aString binary: aBoolean [ + ^ self fileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean +] + +{ #category : 'file library' } +GRPharoPlatform >> directoriesIn: aPathString [ + "Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString + must not include directory names that start with ." + ^ Array streamContents: [ :stream | + FileSystem disk directoriesAt: aPathString do: [ :each | + each basename first = $. ifFalse: [ + stream nextPut: each asFileReference fullName ] ] ] +] + +{ #category : 'private' } +GRPharoPlatform >> doSilently: aBlock [ + ^ SystemAnnouncer uniqueInstance suspendAllWhile: aBlock +] + +{ #category : 'file library' } +GRPharoPlatform >> ensureExistenceOfFolder: aString [ + "creates a folder named aString in the image directory" + FileSystem disk ensureCreateDirectory: aString +] + +{ #category : 'file library' } +GRPharoPlatform >> fileExists: aString [ + ^ aString asFileReference exists +] + +{ #category : 'file library' } +GRPharoPlatform >> fileStreamOn: aString do: aBlock binary: aBoolean [ + ^ aBoolean + ifTrue: [ + FileStream fileNamed: aString do: [ :stream | + stream binary. + aBlock value: stream ] ] + ifFalse: [ + MultiByteFileStream fileNamed: aString do: [ :stream | + stream + ascii; + wantsLineEndConversion: true. + aBlock value: stream ] ] +] + +{ #category : 'file library' } +GRPharoPlatform >> filesIn: aPathString [ + "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString + must not include file names that start with ." + ^ Array streamContents: [ :stream | + FileSystem disk filesAt: aPathString do: [ :each | + each basename first = $. ifFalse: [ + stream nextPut: each asFileReference fullName ] ] ] +] + +{ #category : 'encoding' } +GRPharoPlatform >> integerAsByteArray: anInteger [ + | stream | + stream := ByteArray new writeStream. + anInteger greaseBytesCount to: 1 by: -1 do: [:digitIndex | + stream nextPut: (anInteger greaseByteAt: digitIndex)]. + ^ stream contents +] + +{ #category : 'processes' } +GRPharoPlatform >> isProcessTerminated: aProcess [ + "Return a boolean indicating whether aProcess has been terminated." + ^ aProcess isTerminated +] + +{ #category : 'version info' } +GRPharoPlatform >> label [ + ^ 'Pharo' +] + +{ #category : 'file library' } +GRPharoPlatform >> localNameOf: aFilename [ + ^ (FileSystem disk resolveString: aFilename) basename +] + +{ #category : 'factory' } +GRPharoPlatform >> newRandom [ + "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: + #nextInt: - should answer a random integer in the interval [1, anInteger] + #randomFrom: - should answer a random element from the given collection + + Make sure that both methods are safe under heavy concurrent load. + + Used by Gemstone/S traditional Randoms which cannot be persisted.." + ^ GRPharoRandomProvider +] + +{ #category : 'file library' } +GRPharoPlatform >> newline [ + ^ String cr +] + +{ #category : 'exceptions' } +GRPharoPlatform >> openDebuggerOn: anError [ + | process | + process := Processor activeProcess. + "If we are running in the UI process, we don't want to suspend the active process. The + error was presumably triggered while stepping in the Debugger. If we simply immediately + signal an UnhandledError, the debugger will catch this and display the signaling context. + It isn't perfect or pretty but it works." + (ProcessBrowser isUIProcess: process) + ifTrue: [ + UnhandledError signalForException: anError ] + ifFalse: [ + WorldState addDeferredUIMessage: [ + process + debug: anError signalerContext + title: anError description + full: true ]. + process suspend ] +] + +{ #category : 'file library' } +GRPharoPlatform >> pathSeparator [ + ^ String with: FileSystem disk delimiter +] + +{ #category : 'factory' } +GRPharoPlatform >> readWriteByteStream [ + "ByteArray based read write stream" + + ^ RWBinaryOrTextStream on: (ByteArray new: 4096) +] + +{ #category : 'factory' } +GRPharoPlatform >> readWriteCharacterStream [ + "String based read write stream" + + ^ ReadWriteStream on: (String new: 4096) +] + +{ #category : 'startup' } +GRPharoPlatform >> removeFromShutDownList: aClass [ + "Remove aClass from the shutdown list in the system." + + SessionManager default unregisterClassNamed: aClass name +] + +{ #category : 'startup' } +GRPharoPlatform >> removeFromStartUpList: aClass [ + "Remove aClass from the startup list in the system." + + SessionManager default unregisterClassNamed: aClass name +] + +{ #category : 'file library' } +GRPharoPlatform >> removeSelector: aSymbol from: aClass [ + aClass removeSelector: aSymbol +] + +{ #category : 'cryptography' } +GRPharoPlatform >> secureHashFor: aString [ + ^ SHA1 new hashMessage: aString +] + +{ #category : 'factory' } +GRPharoPlatform >> semaphoreClass [ + "used by Gemstone/S traditional Semaphores which cannot be persisted" + ^ Semaphore +] + +{ #category : 'exceptions' } +GRPharoPlatform >> stackDepth [ + + | depth current | + depth := 0. + current := thisContext. + [ current isNil ] whileFalse: [ + current := current sender. + depth := depth + 1 ]. + ^ depth - 1 +] + +{ #category : 'processes' } +GRPharoPlatform >> terminateProcess: aProcess [ + "Permanently terminate the process, unwinding first to execute #ensure: and #ifCurtailed: blocks." + aProcess terminate +] + +{ #category : 'processes' } +GRPharoPlatform >> thisContext [ + + ^ thisContext sender +] + +{ #category : 'private-file library' } +GRPharoPlatform >> useByteArrayLiterals [ + "whether ByteArray literals can/should be used" + ^ true +] + +{ #category : 'factory' } +GRPharoPlatform >> weakDictionaryOfSize: aNumber [ + ^ IdentityDictionary new: aNumber +] + +{ #category : 'file library' } +GRPharoPlatform >> write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString [ + "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" + | folder stream fullFilePath | + folder := FileSystem disk resolveString: aFolderString. + fullFilePath := (folder / aFileNameString) asFileReference. + stream := aStringOrByteArray isString + ifTrue: [ + (MultiByteFileStream forceNewFileNamed: fullFilePath fullName) + ascii; + wantsLineEndConversion: true; + yourself ] + ifFalse: [ (FileStream forceNewFileNamed: fullFilePath fullName) binary ]. + [ stream nextPutAll: aStringOrByteArray ] + ensure: [ stream close ] +] diff --git a/repository/Grease-Pharo60-Core/GRPharoRandomProvider.class.st b/repository/Grease-Pharo60-Core/GRPharoRandomProvider.class.st new file mode 100644 index 00000000..eff1822b --- /dev/null +++ b/repository/Grease-Pharo60-Core/GRPharoRandomProvider.class.st @@ -0,0 +1,55 @@ +" +I make GRPlatform use Random as a random number generator. +" +Class { + #name : 'GRPharoRandomProvider', + #superclass : 'GRObject', + #classInstVars : [ + 'mutex', + 'generator' + ], + #category : 'Grease-Pharo60-Core', + #package : 'Grease-Pharo60-Core' +} + +{ #category : 'private' } +GRPharoRandomProvider class >> initialize [ + Smalltalk addToStartUpList: self. + self startUp +] + +{ #category : 'public' } +GRPharoRandomProvider class >> nextInt: anInteger [ + "Answer a random integer in the interval [1, anInteger]" + + ^ mutex critical: [ generator nextInt: anInteger ] +] + +{ #category : 'private' } +GRPharoRandomProvider class >> randomClass [ + ^ Random +] + +{ #category : 'public' } +GRPharoRandomProvider class >> randomFrom: aCollection [ + | random count | + random := self nextInt: aCollection size. + ^ aCollection isSequenceable + ifTrue: [ aCollection at: random ] + ifFalse: [ + count := 1. + aCollection do: [ :ea | + count = random ifTrue: [ ^ ea ]. + count := count + 1 ] ] +] + +{ #category : 'class initialization' } +GRPharoRandomProvider class >> startUp [ + generator := self randomClass new. + mutex := Semaphore forMutualExclusion +] + +{ #category : 'private' } +GRPharoRandomProvider class >> unload [ + GRPlatform current removeFromStartUpList: self +] diff --git a/repository/Grease-Pharo60-Core/GRPharoUtf8Codec.class.st b/repository/Grease-Pharo60-Core/GRPharoUtf8Codec.class.st new file mode 100644 index 00000000..afa4dea5 --- /dev/null +++ b/repository/Grease-Pharo60-Core/GRPharoUtf8Codec.class.st @@ -0,0 +1,91 @@ +" +A WAUtf8Codec is a WACodec optimized for UTF-8. +" +Class { + #name : 'GRPharoUtf8Codec', + #superclass : 'GRCodec', + #category : 'Grease-Pharo60-Core', + #package : 'Grease-Pharo60-Core' +} + +{ #category : 'private' } +GRPharoUtf8Codec class >> basicForEncoding: aString [ + ^ self new +] + +{ #category : 'accessing' } +GRPharoUtf8Codec class >> codecs [ + ^ Array with: self new +] + +{ #category : 'testing' } +GRPharoUtf8Codec class >> supportsEncoding: aString [ + ^ (#('utf-8' 'UTF-8') includes: aString) or: [ UTF8TextConverter encodingNames includes: aString ] +] + +{ #category : 'decoding' } +GRPharoUtf8Codec >> decode: aString [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | outStream byte1 byte2 byte3 byte4 unicode stream | + stream := aString readStream. + outStream := WriteStream on: (String new: aString size). + [ stream atEnd not ] whileTrue: [ + byte1 := stream next asInteger. + unicode := byte1. + (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. + (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next asInteger. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) + + (byte3 bitAnd: 63) ]. + (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next asInteger. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte4 := stream next asInteger. + (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + + ((byte2 bitAnd: 63) bitShift: 12) + + ((byte3 bitAnd: 63) bitShift: 6) + + (byte4 bitAnd: 63) ]. + unicode ifNil: [ self invalidUtf8 ]. + unicode = 16rFEFF "ignore BOM" ifFalse: [ + outStream nextPut: (Character codePoint: unicode) ]. + unicode := nil ]. + ^ outStream contents +] + +{ #category : 'conversion' } +GRPharoUtf8Codec >> decoderFor: aStream [ + ^ GRPharoUtf8CodecStream + on: aStream + converter: UTF8TextConverter new +] + +{ #category : 'conversion' } +GRPharoUtf8Codec >> encoderFor: aStream [ + ^ GRPharoUtf8CodecStream + on: aStream + converter: UTF8TextConverter new +] + +{ #category : 'private' } +GRPharoUtf8Codec >> invalidUtf8 [ + ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' +] + +{ #category : 'accessing' } +GRPharoUtf8Codec >> name [ + ^ 'utf-8' +] + +{ #category : 'accessing' } +GRPharoUtf8Codec >> url [ + ^ self +] diff --git a/repository/Grease-Pharo60-Core/GRPharoUtf8CodecStream.class.st b/repository/Grease-Pharo60-Core/GRPharoUtf8CodecStream.class.st new file mode 100644 index 00000000..fd97a00a --- /dev/null +++ b/repository/Grease-Pharo60-Core/GRPharoUtf8CodecStream.class.st @@ -0,0 +1,170 @@ +" +A WAUtf8CodecStream is a WACodecStream optimized for UTF-8 performance in the case where most of the characters are ASCII. + +" +Class { + #name : 'GRPharoUtf8CodecStream', + #superclass : 'GRPharoConverterCodecStream', + #classVars : [ + 'Latin1ToUtf8Encodings', + 'Latin1ToUtf8Map' + ], + #category : 'Grease-Pharo60-Core', + #package : 'Grease-Pharo60-Core' +} + +{ #category : 'class initialization' } +GRPharoUtf8CodecStream class >> initialize [ + (Smalltalk hasClassNamed: #UTF8TextConverter) "guard for Squeak 37" + ifFalse: [ ^ self ]. + + Latin1ToUtf8Map := ByteArray new: 256. + Latin1ToUtf8Encodings := Array new: 256. + 0 to: 255 do:[ :index | + | latin1 utf8 | + latin1 := String with: (Character codePoint: index). + utf8 := latin1 convertToWithConverter: UTF8TextConverter new. + latin1 = utf8 + ifTrue:[ + Latin1ToUtf8Map at: index + 1 put: 0 ] "no translation needed" + ifFalse:[ + Latin1ToUtf8Map at: index + 1 put: 1. "no translation needed" + Latin1ToUtf8Encodings at: index + 1 put: utf8 ] ] +] + +{ #category : 'streaming' } +GRPharoUtf8CodecStream >> crlf [ + stream nextPut: Character cr. + stream nextPut: Character lf +] + +{ #category : 'private' } +GRPharoUtf8CodecStream >> encodeDefault: aString [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + 1 to: aString size by: 1 do: [ :index | + converter nextPut: (aString at: index) toStream: stream ] +] + +{ #category : 'private' } +GRPharoUtf8CodecStream >> encodeFast: aByteString [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | lastIndex nextIndex | + lastIndex := 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ifTrue: [ ^ stream nextPutAll: aByteString ]. + [ nextIndex > lastIndex ifTrue: [ + stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. + stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). + lastIndex := nextIndex + 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ] whileFalse. + stream greaseNext: aByteString size - lastIndex + 1 putAll: aByteString startingAt: lastIndex +] + +{ #category : 'streaming' } +GRPharoUtf8CodecStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + aCollection isByteString + ifTrue: [ self greaseNext: anInteger putAllFast: aCollection startingAt: startIndex ] + ifFalse: [ super greaseNext: anInteger putAll: aCollection startingAt: startIndex ] +] + +{ #category : 'private' } +GRPharoUtf8CodecStream >> greaseNext: anInteger putAllFast: aByteString startingAt: startIndex [ + | lastIndex nextIndex | + lastIndex := startIndex. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ifTrue: [ ^ stream greaseNext: anInteger putAll: aByteString startingAt: startIndex ]. + [ + nextIndex >= (startIndex + anInteger) ifTrue: [ + ^ stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ]. + nextIndex > lastIndex ifTrue: [ + stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. + stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). + lastIndex := nextIndex + 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + (nextIndex = 0 or: [ nextIndex >= (startIndex + anInteger) ]) ] whileFalse. + lastIndex >= (startIndex + anInteger) ifFalse: [ + stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ] +] + +{ #category : 'private' } +GRPharoUtf8CodecStream >> invalidUtf8 [ + ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' +] + +{ #category : 'streaming' } +GRPharoUtf8CodecStream >> next [ + ^ (self next: 1) first +] + +{ #category : 'streaming' } +GRPharoUtf8CodecStream >> next: anInteger [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | output byte1 byte2 byte3 byte4 unicode count alreadyWide | + output := ByteString new: anInteger. + count := 0. + alreadyWide := false. + [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ + byte1 := stream next. + unicode := byte1. + (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. + (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) + + (byte3 bitAnd: 63). + alreadyWide ifFalse: [ + output := WideString withAll: output. + alreadyWide := true ] ]. + (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte4 := stream next. + (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + + ((byte2 bitAnd: 63) bitShift: 12) + + ((byte3 bitAnd: 63) bitShift: 6) + + (byte4 bitAnd: 63). + alreadyWide ifFalse: [ + output := WideString withAll: output. + alreadyWide := true ] ]. + unicode ifNil: [ self invalidUtf8 ]. + unicode = 16rFEFF "ignore BOM" ifFalse: [ + count := count + 1. + output at: count put: (Character codePoint: unicode) ]. + unicode := nil ]. + ^ count < anInteger + ifTrue: [ output first: count ] + ifFalse: [ output ] +] + +{ #category : 'streaming' } +GRPharoUtf8CodecStream >> nextPut: aCharacter [ + | codePoint | + codePoint := aCharacter codePoint. + codePoint < 128 ifTrue: [ + ^ stream nextPut: aCharacter ]. + codePoint < 256 ifTrue: [ + | shouldEncode | + shouldEncode := Latin1ToUtf8Map at: codePoint + 1. + ^ shouldEncode = 1 + ifTrue: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] + ifFalse: [ stream nextPut: aCharacter ] ]. + + ^ self nextPutAll: (String with: aCharacter) + +] + +{ #category : 'streaming' } +GRPharoUtf8CodecStream >> nextPutAll: aString [ + aString isByteString + ifTrue: [ self encodeFast: aString ] + ifFalse: [ self encodeDefault: aString ] +] diff --git a/repository/Grease-Pharo60-Core/Interval.extension.st b/repository/Grease-Pharo60-Core/Interval.extension.st new file mode 100644 index 00000000..3aa83507 --- /dev/null +++ b/repository/Grease-Pharo60-Core/Interval.extension.st @@ -0,0 +1,9 @@ +Extension { #name : 'Interval' } + +{ #category : '*Grease-Pharo60-Core' } +Interval >> any [ + "#first (used by SequenceableCollection>>anyOne) is an accessor of + Interval and does not error on an empty Interval." + + ^ self at: 1 +] diff --git a/repository/Grease-Pharo60-Core/LargeInteger.extension.st b/repository/Grease-Pharo60-Core/LargeInteger.extension.st new file mode 100644 index 00000000..5f6b7266 --- /dev/null +++ b/repository/Grease-Pharo60-Core/LargeInteger.extension.st @@ -0,0 +1,21 @@ +Extension { #name : 'LargeInteger' } + +{ #category : '*Grease-Pharo60-Core' } +LargeInteger >> greaseByteAt: index [ + "Primitive. Answer the value of an indexable field in the receiver. LargePositiveInteger uses bytes of base two number, and each is a 'digit' base 256. Fail if the argument (the index) is not an Integer or is out of bounds. Essential. See Object documentation whatIsAPrimitive." + + + self greaseBytesCount < index + ifTrue: [^0] + ifFalse: [^super at: index] +] + +{ #category : '*Grease-Pharo60-Core' } +LargeInteger >> greaseBytesCount [ + "Primitive. Answer the number of indexable fields in the receiver. This + value is the same as the largest legal subscript. Essential. See Object + documentation whatIsAPrimitive." + + + self primitiveFailed +] diff --git a/repository/Grease-Pharo60-Core/MessageSend.extension.st b/repository/Grease-Pharo60-Core/MessageSend.extension.st new file mode 100644 index 00000000..215b00ab --- /dev/null +++ b/repository/Grease-Pharo60-Core/MessageSend.extension.st @@ -0,0 +1,15 @@ +Extension { #name : 'MessageSend' } + +{ #category : '*Grease-Pharo60-Core' } +MessageSend >> argumentCount [ + ^ selector numArgs - self arguments size +] + +{ #category : '*Grease-Pharo60-Core' } +MessageSend >> valueWithPossibleArguments: anArray [ + "Evaluate the block represented by the receiver. + If the block requires one argument, use anArg, if it requires more than one, + fill up the rest with nils." + + ^ self valueWithEnoughArguments: anArray +] diff --git a/repository/Grease-Pharo60-Core/Number.extension.st b/repository/Grease-Pharo60-Core/Number.extension.st new file mode 100644 index 00000000..b29c7478 --- /dev/null +++ b/repository/Grease-Pharo60-Core/Number.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Number' } + +{ #category : '*Grease-Pharo60-Core' } +Number >> milliseconds [ + ^ self milliSeconds +] diff --git a/repository/Grease-Pharo60-Core/Object.extension.st b/repository/Grease-Pharo60-Core/Object.extension.st new file mode 100644 index 00000000..fc985e4d --- /dev/null +++ b/repository/Grease-Pharo60-Core/Object.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Object' } + +{ #category : '*Grease-Pharo60-Core' } +Object >> greaseString [ + ^ self asString +] diff --git a/repository/Grease-Pharo60-Core/Point.extension.st b/repository/Grease-Pharo60-Core/Point.extension.st new file mode 100644 index 00000000..08dd5cc8 --- /dev/null +++ b/repository/Grease-Pharo60-Core/Point.extension.st @@ -0,0 +1,16 @@ +Extension { #name : 'Point' } + +{ #category : '*Grease-Pharo60-Core' } +Point >> greaseString [ + "Reimplemented because in Pharo 1.4 + (4 @ 2) greaseString + ansers '(4@2)'" + ^ String streamContents: [ :stream | + x printOn: stream. + stream nextPut: $@. + (y notNil and: [ y negative ]) + ifTrue: [ + "Avoid ambiguous @- construct" + stream space ]. + y printOn: stream ] +] diff --git a/repository/Grease-Pharo60-Core/PositionableStream.extension.st b/repository/Grease-Pharo60-Core/PositionableStream.extension.st new file mode 100644 index 00000000..77cc2070 --- /dev/null +++ b/repository/Grease-Pharo60-Core/PositionableStream.extension.st @@ -0,0 +1,8 @@ +Extension { #name : 'PositionableStream' } + +{ #category : '*Grease-Pharo60-Core' } +PositionableStream >> greaseUpToAll: aCollection [ + "Needed for Seaside ports to other dialects where #upToAll: may have + different semantics" + ^ self upToAll: aCollection +] diff --git a/repository/Grease-Pharo60-Core/ScaledDecimal.extension.st b/repository/Grease-Pharo60-Core/ScaledDecimal.extension.st new file mode 100644 index 00000000..9656101f --- /dev/null +++ b/repository/Grease-Pharo60-Core/ScaledDecimal.extension.st @@ -0,0 +1,15 @@ +Extension { #name : 'ScaledDecimal' } + +{ #category : '*Grease-Pharo60-Core' } +ScaledDecimal >> encodeOn: aDocument [ + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + converter print: self on: aDocument +] + +{ #category : '*Grease-Pharo60-Core' } +ScaledDecimal >> greaseString [ + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + ^ converter print: self +] diff --git a/repository/Grease-Pharo60-Core/SequenceableCollection.extension.st b/repository/Grease-Pharo60-Core/SequenceableCollection.extension.st new file mode 100644 index 00000000..eed42d42 --- /dev/null +++ b/repository/Grease-Pharo60-Core/SequenceableCollection.extension.st @@ -0,0 +1,18 @@ +Extension { #name : 'SequenceableCollection' } + +{ #category : '*Grease-Pharo60-Core' } +SequenceableCollection >> beginsWithSubCollection: aSequenceableCollection [ + "Some platforms implement #beginsWith: to answer true for an empty argument." + ^ self beginsWith: aSequenceableCollection +] + +{ #category : '*Grease-Pharo60-Core' } +SequenceableCollection >> endsWithSubCollection: aSequenceableCollection [ + "Some platforms implement #endsWith: to answer true for an empty argument." + ^ self endsWith: aSequenceableCollection +] + +{ #category : '*Grease-Pharo60-Core' } +SequenceableCollection >> sorted [ + ^ self sorted: [ :a :b | a <= b ] +] diff --git a/repository/Grease-Pharo60-Core/SmallInteger.extension.st b/repository/Grease-Pharo60-Core/SmallInteger.extension.st new file mode 100644 index 00000000..0c787925 --- /dev/null +++ b/repository/Grease-Pharo60-Core/SmallInteger.extension.st @@ -0,0 +1,44 @@ +Extension { #name : 'SmallInteger' } + +{ #category : '*Grease-Pharo60-Core' } +SmallInteger >> greaseByteAt: n [ + "Answer the value of an apparent byte-indexable field in the receiver, + analogous to the large integers, which are organized as bytes." + + n = 1 + ifTrue: [ + "Negate carefully in case the receiver is SmallInteger minVal" + ^ self < 0 + ifTrue: [ -256 - self bitAnd: 255 ] + ifFalse: [ self bitAnd: 255 ] ]. + ^ self < 0 + ifTrue: [ (-256 - self bitShift: -8) + 1 byteAt: n - 1 ] + ifFalse: [ (self bitShift: 8 - (n bitShift: 3)) bitAnd: 255 ] +] + +{ #category : '*Grease-Pharo60-Core' } +SmallInteger >> greaseBytesCount [ + "Answer the number of indexable fields in the receiver. This value is the + same as the largest legal subscript. Included so that a SmallInteger can + behave like a LargePositiveInteger or LargeNegativeInteger." + + "32768 == (1 bitShift: 15)" + "32768 bytesCount >>> 2" + + "65536 == (1 bitShift: 16)" + "65536 bytesCount >>> 3" + + | value length | + length := 1. + value := self. + value >= 0 + ifTrue: + [[value > 255] whileTrue: + [value := value bitShift: -8. + length := length + 1]] + ifFalse: + [[value < -255] whileTrue: + [value := value bitShift: -8. + length := length + 1]]. + ^length +] diff --git a/repository/Grease-Pharo60-Core/SocketStream.extension.st b/repository/Grease-Pharo60-Core/SocketStream.extension.st new file mode 100644 index 00000000..a2e5ddc4 --- /dev/null +++ b/repository/Grease-Pharo60-Core/SocketStream.extension.st @@ -0,0 +1,16 @@ +Extension { #name : 'SocketStream' } + +{ #category : '*Grease-Pharo60-Core' } +SocketStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + "Put a String or a ByteArray onto the stream starting at the given position. + Currently a large collection will allocate a large buffer." + + | toPut | + anInteger = 0 ifTrue: [ + ^ aCollection ]. + toPut := binary ifTrue: [ aCollection asByteArray ] ifFalse: [ aCollection asString ]. + self adjustOutBuffer: anInteger. + outBuffer replaceFrom: outNextToWrite to: outNextToWrite + anInteger - 1 with: toPut startingAt: startIndex. + outNextToWrite := outNextToWrite + anInteger. + self checkFlush +] diff --git a/repository/Grease-Pharo60-Core/String.extension.st b/repository/Grease-Pharo60-Core/String.extension.st new file mode 100644 index 00000000..fcd8c956 --- /dev/null +++ b/repository/Grease-Pharo60-Core/String.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'String' } + +{ #category : '*grease-pharo60-core' } +String >> greaseString [ + ^ self +] diff --git a/repository/Grease-Pharo60-Core/Symbol.extension.st b/repository/Grease-Pharo60-Core/Symbol.extension.st new file mode 100644 index 00000000..fa0b02b4 --- /dev/null +++ b/repository/Grease-Pharo60-Core/Symbol.extension.st @@ -0,0 +1,11 @@ +Extension { #name : 'Symbol' } + +{ #category : '*grease-pharo60-core' } +Symbol >> greaseAsMutator [ + ^ self asMutator +] + +{ #category : '*grease-pharo60-core' } +Symbol >> greaseString [ + ^ self asString +] diff --git a/repository/Grease-Pharo60-Core/TBehavior.extension.st b/repository/Grease-Pharo60-Core/TBehavior.extension.st new file mode 100644 index 00000000..03c896ba --- /dev/null +++ b/repository/Grease-Pharo60-Core/TBehavior.extension.st @@ -0,0 +1,8 @@ +Extension { #name : 'TBehavior' } + +{ #category : '*Grease-Pharo60-Core' } +TBehavior >> fullName [ + "In VW, will include the namespace" + + ^ self name +] diff --git a/repository/Grease-Pharo60-Core/WriteStream.extension.st b/repository/Grease-Pharo60-Core/WriteStream.extension.st new file mode 100644 index 00000000..66db4ac8 --- /dev/null +++ b/repository/Grease-Pharo60-Core/WriteStream.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'WriteStream' } + +{ #category : '*Grease-Pharo60-Core' } +WriteStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + "Store the next anInteger elements from the given collection." + ^ self next: anInteger putAll: aCollection startingAt: startIndex +] diff --git a/repository/Grease-Pharo60-Core/package.st b/repository/Grease-Pharo60-Core/package.st new file mode 100644 index 00000000..a77d8347 --- /dev/null +++ b/repository/Grease-Pharo60-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Pharo60-Core' } diff --git a/repository/Grease-Pharo70-Core.package/.filetree b/repository/Grease-Pharo70-Core.package/.filetree deleted file mode 100644 index 57a67973..00000000 --- a/repository/Grease-Pharo70-Core.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Behavior.extension/instance/fullName.st b/repository/Grease-Pharo70-Core.package/Behavior.extension/instance/fullName.st deleted file mode 100644 index 806a660c..00000000 --- a/repository/Grease-Pharo70-Core.package/Behavior.extension/instance/fullName.st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo70-Core -fullName - "In VW, will include the namespace" - - ^ self name \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Behavior.extension/properties.json b/repository/Grease-Pharo70-Core.package/Behavior.extension/properties.json deleted file mode 100644 index c4116c4c..00000000 --- a/repository/Grease-Pharo70-Core.package/Behavior.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Behavior" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo70-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index e4af2ccf..00000000 --- a/repository/Grease-Pharo70-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,11 +0,0 @@ -*Grease-Pharo70-Core -valueWithPossibleArguments: anArray - | args | - (anArray size == self numArgs) - ifTrue: [ ^ self valueWithArguments: anArray ]. - args := Array new: self numArgs. - args replaceFrom: 1 - to: (anArray size min: args size) - with: anArray - startingAt: 1. - ^ self valueWithArguments: args \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/BlockClosure.extension/properties.json b/repository/Grease-Pharo70-Core.package/BlockClosure.extension/properties.json deleted file mode 100644 index 2190e5e2..00000000 --- a/repository/Grease-Pharo70-Core.package/BlockClosure.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "BlockClosure" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-Pharo70-Core.package/ByteArray.extension/instance/greaseString.st deleted file mode 100644 index caa950d1..00000000 --- a/repository/Grease-Pharo70-Core.package/ByteArray.extension/instance/greaseString.st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo70-Core -greaseString - "ByteArrays should not automatically be converted to Strings. You should use a GRCodec for this." - ^ self printString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/ByteArray.extension/properties.json b/repository/Grease-Pharo70-Core.package/ByteArray.extension/properties.json deleted file mode 100644 index f81bcb8d..00000000 --- a/repository/Grease-Pharo70-Core.package/ByteArray.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "ByteArray" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-Pharo70-Core.package/Character.extension/instance/greaseInteger.st deleted file mode 100644 index 13cfc191..00000000 --- a/repository/Grease-Pharo70-Core.package/Character.extension/instance/greaseInteger.st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo70-Core -greaseInteger - "Answer an unicode code point of the receiver." - ^ self charCode \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Character.extension/properties.json b/repository/Grease-Pharo70-Core.package/Character.extension/properties.json deleted file mode 100644 index 5219281d..00000000 --- a/repository/Grease-Pharo70-Core.package/Character.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Character" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Collection.extension/instance/any.st b/repository/Grease-Pharo70-Core.package/Collection.extension/instance/any.st deleted file mode 100644 index daf61979..00000000 --- a/repository/Grease-Pharo70-Core.package/Collection.extension/instance/any.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo70-Core -any - ^ self anyOne \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Collection.extension/properties.json b/repository/Grease-Pharo70-Core.package/Collection.extension/properties.json deleted file mode 100644 index 48f9f8d9..00000000 --- a/repository/Grease-Pharo70-Core.package/Collection.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Collection" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Color.extension/instance/asHTMLColor.st b/repository/Grease-Pharo70-Core.package/Color.extension/instance/asHTMLColor.st deleted file mode 100644 index 7460ba3b..00000000 --- a/repository/Grease-Pharo70-Core.package/Color.extension/instance/asHTMLColor.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo70-Core -asHTMLColor - ^'#', self asHexString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Color.extension/properties.json b/repository/Grease-Pharo70-Core.package/Color.extension/properties.json deleted file mode 100644 index 8b86fc95..00000000 --- a/repository/Grease-Pharo70-Core.package/Color.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Color" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-Pharo70-Core.package/Duration.extension/class/milliseconds..st deleted file mode 100644 index cf3b7f79..00000000 --- a/repository/Grease-Pharo70-Core.package/Duration.extension/class/milliseconds..st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo70-Core -milliseconds: anInteger - ^ self milliSeconds: anInteger \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-Pharo70-Core.package/Duration.extension/instance/asMilliseconds.st deleted file mode 100644 index 54cfbc56..00000000 --- a/repository/Grease-Pharo70-Core.package/Duration.extension/instance/asMilliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo70-Core -asMilliseconds - ^ self asMilliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-Pharo70-Core.package/Duration.extension/instance/milliseconds.st deleted file mode 100644 index 7048395d..00000000 --- a/repository/Grease-Pharo70-Core.package/Duration.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo70-Core -milliseconds - ^ nanos quo: NanosInMillisecond \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Duration.extension/properties.json b/repository/Grease-Pharo70-Core.package/Duration.extension/properties.json deleted file mode 100644 index d141a092..00000000 --- a/repository/Grease-Pharo70-Core.package/Duration.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Duration" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo70-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 36a59baf..00000000 --- a/repository/Grease-Pharo70-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo70-Core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - stream greaseNext: anInteger putAll: aCollection startingAt: startIndex \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRDelegatingStream.extension/properties.json b/repository/Grease-Pharo70-Core.package/GRDelegatingStream.extension/properties.json deleted file mode 100644 index 5ec29ea0..00000000 --- a/repository/Grease-Pharo70-Core.package/GRDelegatingStream.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRDelegatingStream" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/README.md b/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/class/defaultValue.st b/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/class/defaultValue.st deleted file mode 100644 index 3d7f6377..00000000 --- a/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/class/defaultValue.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultValue - ^ nil \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/class/use.during..st b/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/class/use.during..st deleted file mode 100644 index 1e03f82f..00000000 --- a/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/class/use.during..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -use: anObject during: aBlock - ^ self - value: anObject - during: aBlock \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/instance/default.st b/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/instance/default.st deleted file mode 100644 index 59cb6f1b..00000000 --- a/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/instance/default.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -default - ^ self class defaultValue \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/properties.json deleted file mode 100644 index 5017b02d..00000000 --- a/repository/Grease-Pharo70-Core.package/GRDynamicVariable.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "DynamicVariable", - "category" : "Grease-Pharo70-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRDynamicVariable", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPackage.extension/class/greasePharo70Core.st b/repository/Grease-Pharo70-Core.package/GRPackage.extension/class/greasePharo70Core.st deleted file mode 100644 index a210248c..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPackage.extension/class/greasePharo70Core.st +++ /dev/null @@ -1,7 +0,0 @@ -*Grease-Pharo70-Core -greasePharo70Core - ^ self new - name: 'Grease-Pharo70-Core'; - addDependency: 'Grease-Core'; - url: #greaseUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPackage.extension/properties.json b/repository/Grease-Pharo70-Core.package/GRPackage.extension/properties.json deleted file mode 100644 index ae522a7e..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRPackage" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/README.md deleted file mode 100644 index 7620280e..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/README.md +++ /dev/null @@ -1,7 +0,0 @@ -A WAConverterCodecStream is a WACodec stream around a TextConverter. It is always in text mode. - -Instance Variables - converter: - -converter - - the TextConverter used to do the encoding conversion diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st deleted file mode 100644 index de8cd791..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -on: aStream converter: aConverter - ^ self basicNew initializeOn: aStream converter: aConverter \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 8321e299..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -greaseNext: anInteger putAll: aCollection startingAt: startIndex - self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1) \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st deleted file mode 100644 index c380485d..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeOn: aStream converter: aConverter - self initializeOn: aStream. - converter := aConverter \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next..st deleted file mode 100644 index ef51837b..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next..st +++ /dev/null @@ -1,8 +0,0 @@ -streaming -next: anInteger - | writeStream | - writeStream := WriteStream on: (String new: anInteger). - anInteger timesRepeat: [ - writeStream nextPut: (self next - ifNil: [ ^ writeStream contents ]) ]. - ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next.st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next.st deleted file mode 100644 index eee99a1a..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/next.st +++ /dev/null @@ -1,6 +0,0 @@ -streaming -next - | character | - character := converter nextFromStream: stream. - ^ character isNil - ifFalse: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st deleted file mode 100644 index e65f56c4..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPut: aCharacter - converter nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st deleted file mode 100644 index a30c4507..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPutAll: aString - aString asString do: [ :each | self nextPut: each ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/properties.json deleted file mode 100644 index 9b03d8a5..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoConverterCodecStream.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "pmm 6/25/2012 20:22", - "super" : "GRCodecStream", - "category" : "Grease-Pharo70-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "converter" - ], - "name" : "GRPharoConverterCodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st deleted file mode 100644 index f6b18bd4..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st +++ /dev/null @@ -1,5 +0,0 @@ -private -basicForEncoding: aString - (self supportsEncoding: aString) - ifFalse: [ self unsupportedEncoding: aString ]. - ^ self basicNew initializeWithName: aString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/codecs.st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/codecs.st deleted file mode 100644 index f1293d05..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/codecs.st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -codecs - ^ (TextConverter allEncodingNames - select: [ :each | - "exclude UFT-8 which is handeled by WAUtf8Codec" - self supportsEncoding: each ]) - collect: [ :each | - self basicForEncoding: each greaseString ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st deleted file mode 100644 index d1c6d00b..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st +++ /dev/null @@ -1,8 +0,0 @@ -private -supportedEncodingNames - "answers the names of the encodings supported by this class" - - ^ (TextConverter allSubclasses gather: [ :class | class encodingNames ]) asSet asOrderedCollection - removeAllFoundIn: GRPharoLatin1Codec supportedEncodingNames; - removeAllFoundIn: UTF8TextConverter encodingNames; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st deleted file mode 100644 index 43a27325..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -supportsEncoding: aString - "Answer whether the the given encoding name is supported." - ^ self supportedEncodingNames includes: aString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/converter.st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/converter.st deleted file mode 100644 index 02b8754b..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/converter.st +++ /dev/null @@ -1,3 +0,0 @@ -private -converter - ^ TextConverter newForEncoding: self name \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st deleted file mode 100644 index be53dfea..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st +++ /dev/null @@ -1,3 +0,0 @@ -conversion -decoderFor: aStream - ^ self encoderFor: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st deleted file mode 100644 index 94f2fc13..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoConverterCodecStream - on: aStream - converter: self converter \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st deleted file mode 100644 index fe95783c..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initializeWithName: aString - self initialize. - name := aString. - urlCodec := (#('iso-8859-15' 'cp-1252') includes: aString) - ifFalse: [ GRCodec forEncoding: 'utf-8' ] - ifTrue: [ self ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/name.st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/name.st deleted file mode 100644 index 22077c20..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ name \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/url.st b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/url.st deleted file mode 100644 index 232ad239..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/instance/url.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -url - "RFC 3986: When a new URI scheme defines a component that represents textual data consisting of characters from the Universal Character Set [UCS], the data should first be encoded as octets according to the UTF-8 character encoding." - - ^ urlCodec \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/properties.json deleted file mode 100644 index 78866c3d..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoGenericCodec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRCodec", - "category" : "Grease-Pharo70-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "name", - "urlCodec" - ], - "name" : "GRPharoGenericCodec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/README.md deleted file mode 100644 index 3f437d62..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A GRPharoLatin1Codec is a WACodec optimized for ISO-8859-1 (direct byte to character mapping). \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st deleted file mode 100644 index f6b18bd4..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st +++ /dev/null @@ -1,5 +0,0 @@ -private -basicForEncoding: aString - (self supportsEncoding: aString) - ifFalse: [ self unsupportedEncoding: aString ]. - ^ self basicNew initializeWithName: aString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/codecs.st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/codecs.st deleted file mode 100644 index 7a96b703..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/codecs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecs - ^ Array with: (self basicForEncoding: 'iso-8859-1') \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st deleted file mode 100644 index e5dca068..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st +++ /dev/null @@ -1,3 +0,0 @@ -private -supportedEncodingNames - ^ #('iso-8859-1' 'ISO-8859-1' 'latin-1' 'latin1') \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st deleted file mode 100644 index bc591573..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st +++ /dev/null @@ -1,4 +0,0 @@ -private -supportsEncoding: aString - "Answer whether the the given encoding name is supported." - ^ self supportedEncodingNames includes: aString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/decode..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/decode..st deleted file mode 100644 index 5f73b526..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/decode..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -decode: aStringOrByteArray - "Overridden for efficencey." - - ^ aStringOrByteArray asString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st deleted file mode 100644 index 256dbac4..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -decoderFor: aReadStream - "wrap to avoid String vs ByteArray issues" - ^ GRPharoLatin1CodecStream on: aReadStream \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st deleted file mode 100644 index 20102849..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -encoderFor: aWriteStream - "wrap to avoid String vs ByteArray issues" - ^ GRPharoLatin1CodecStream on: aWriteStream \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st deleted file mode 100644 index b0256973..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeWithName: aString - self initialize. - name := aString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/name.st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/name.st deleted file mode 100644 index 22077c20..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ name \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/properties.json deleted file mode 100644 index a8e2f8c7..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoLatin1Codec.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRNullCodec", - "category" : "Grease-Pharo70-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "name" - ], - "name" : "GRPharoLatin1Codec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/README.md deleted file mode 100644 index e1c2471b..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A GRPharoLatin1CodecStream is a WACodecStream optimized for ISO-8859-1 (direct byte to character mapping). \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/instance/next..st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/instance/next..st deleted file mode 100644 index a734bc76..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/instance/next..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next: anInteger - ^ (stream next: anInteger) asString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/instance/next.st b/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/instance/next.st deleted file mode 100644 index bf70df58..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - ^ Character value: stream next \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/properties.json deleted file mode 100644 index cac5a286..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoLatin1CodecStream.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRNullCodecStream", - "category" : "Grease-Pharo70-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoLatin1CodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md deleted file mode 100644 index e71bb46d..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A GRPharoPlatform is the Pharo implementation of GRPlatform, the Grease class that provides functionality that can not be implemented in a platform independent way. diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initialize.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initialize.st deleted file mode 100644 index 0c86564c..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -class initialization -initialize - self initializeXmlTable. - self initializeUrlTable. - self select \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st deleted file mode 100644 index 9abf56b7..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st +++ /dev/null @@ -1,7 +0,0 @@ -class initialization -initializeUrlTable - UrlTable := ByteArray new: 256. - 1 to: 256 do: [ :index | - ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~' includes: (Character codePoint: index - 1)) - ifTrue: [ UrlTable at: index put: 0 ] - ifFalse: [ UrlTable at: index put: 1 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st deleted file mode 100644 index 830a5595..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st +++ /dev/null @@ -1,7 +0,0 @@ -class initialization -initializeXmlTable - XmlTable := ByteArray new: 256. - 1 to: 256 do: [ :index | - ('"<&>' includes: (Character codePoint: index - 1)) - ifTrue: [ XmlTable at: index put: 1 ] - ifFalse: [ XmlTable at: index put: 0 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/unload.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/unload.st deleted file mode 100644 index 4c8dd650..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/class/unload.st +++ /dev/null @@ -1,3 +0,0 @@ -class initialization -unload - self unselect \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st deleted file mode 100644 index f8d3ad5f..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -addToShutDownList: anObject - "Add anObject to the shutdown-list of the system. On shutdown the message #shutDown will be sent to anObject." - - Smalltalk addToShutDownList: anObject \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st deleted file mode 100644 index c4ab1dea..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -addToStartUpList: aClass - "Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject." - - SessionManager default registerUserClassNamed: aClass name. \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st deleted file mode 100644 index ba4a0727..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st +++ /dev/null @@ -1,6 +0,0 @@ -file library -asMethodReturningByteArray: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a ByteArray" - ^ self useByteArrayLiterals - ifTrue: [ self asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol ] - ifFalse: [ self asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st deleted file mode 100644 index 90bb405c..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st +++ /dev/null @@ -1,10 +0,0 @@ -private-file library -asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array using VW/NewCompiler byte array literal syntax." - ^ String streamContents: [ :stream | - stream nextPutAll: aSymbol; nextPut: Character cr. - stream tab; nextPutAll: '^ #['. - aByteArrayOrString asByteArray - do: [ :each | each printOn: stream ] - separatedBy: [ stream space ]. - stream nextPutAll: ']' ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st deleted file mode 100644 index a1f9fe07..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st +++ /dev/null @@ -1,10 +0,0 @@ -private-file library -asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array and caching this array in a literal array of size 1." - ^ String streamContents: [ :stream | - stream nextPutAll: aSymbol; nextPut: Character cr. - stream tab; nextPutAll: '^ #('. - aByteArrayOrString asByteArray - do: [ :each | each printOn: stream ] - separatedBy: [ stream space ]. - stream nextPutAll: ') asByteArray' ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/base64Decode..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/base64Decode..st deleted file mode 100644 index 3fb71b1a..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/base64Decode..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -base64Decode: aString - ^ aString base64Decoded asString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/base64Encode..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/base64Encode..st deleted file mode 100644 index 4cb93d20..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/base64Encode..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -base64Encode: aByteArray - ^ aByteArray base64Encoded \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/bindingOf..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/bindingOf..st deleted file mode 100644 index e878c01b..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/bindingOf..st +++ /dev/null @@ -1,4 +0,0 @@ -bindings -bindingOf: aClass - - ^ Smalltalk globals associationAt: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st deleted file mode 100644 index 45c37a45..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -compile: aString into: aClass classified: aSymbol - aClass compile: aString classified: aSymbol \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st deleted file mode 100644 index 3c95a9de..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st +++ /dev/null @@ -1,5 +0,0 @@ -file library -contentsOfFile: aString binary: aBoolean - ^ aBoolean - ifTrue:[ self fileStreamOn: aString do: [ :stream | stream contents ifNil:[ ByteArray new ] ] binary: aBoolean ] - ifFalse:[ self fileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deleteFile..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deleteFile..st deleted file mode 100644 index 7aa3b432..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deleteFile..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -deleteFile: aPathString - aPathString asFileReference delete \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st deleted file mode 100644 index e402d141..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st +++ /dev/null @@ -1,6 +0,0 @@ -exceptions -deprecationExceptionSet - "Answer the exception set that should considered besides WADeprecation." - ^ ExceptionSet new - add: Deprecation; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/directoriesIn..st deleted file mode 100644 index c5beee09..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/directoriesIn..st +++ /dev/null @@ -1,8 +0,0 @@ -file library -directoriesIn: aPathString - "Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString - must not include directory names that start with ." - ^ Array streamContents: [ :stream | - FileSystem disk directoriesAt: aPathString do: [ :each | - each basename first = $. ifFalse: [ - stream nextPut: each asFileReference fullName ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/doSilently..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/doSilently..st deleted file mode 100644 index 9ea296ff..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/doSilently..st +++ /dev/null @@ -1,3 +0,0 @@ -private -doSilently: aBlock - ^ SystemAnnouncer uniqueInstance suspendAllWhile: aBlock \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st deleted file mode 100644 index 907e0168..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st +++ /dev/null @@ -1,4 +0,0 @@ -file library -ensureExistenceOfFolder: aString - "creates a folder named aString in the image directory" - FileSystem disk ensureCreateDirectory: aString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/fileExists..st deleted file mode 100644 index 2a02cc3f..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/fileExists..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -fileExists: aString - ^ aString asFileReference exists \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/filesIn..st deleted file mode 100644 index e3b9a6b0..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/filesIn..st +++ /dev/null @@ -1,8 +0,0 @@ -file library -filesIn: aPathString - "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString - must not include file names that start with ." - ^ Array streamContents: [ :stream | - FileSystem disk filesAt: aPathString do: [ :each | - each basename first = $. ifFalse: [ - stream nextPut: each asFileReference fullName ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st deleted file mode 100644 index 03b50778..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st +++ /dev/null @@ -1,4 +0,0 @@ -processes -isProcessTerminated: aProcess - "Return a boolean indicating whether aProcess has been terminated." - ^ aProcess isTerminated \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/label.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/label.st deleted file mode 100644 index f3b036e2..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/label.st +++ /dev/null @@ -1,3 +0,0 @@ -version info -label - ^ 'Pharo' \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/localNameOf..st deleted file mode 100644 index 8f4efb85..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/localNameOf..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -localNameOf: aFilename - ^ (FileSystem disk resolveString: aFilename) basename \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newRandom.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newRandom.st deleted file mode 100644 index 9d90824d..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newRandom.st +++ /dev/null @@ -1,10 +0,0 @@ -factory -newRandom - "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: - #nextInt: - should answer a random integer in the interval [1, anInteger] - #randomFrom: - should answer a random element from the given collection - - Make sure that both methods are safe under heavy concurrent load. - - Used by Gemstone/S traditional Randoms which cannot be persisted.." - ^ GRPharoRandomProvider \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st deleted file mode 100644 index 01578607..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st +++ /dev/null @@ -1,4 +0,0 @@ -files -newTemporaryFile - - ^ self newTemporaryFileNamed: UUID new greaseString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st deleted file mode 100644 index 29d781b7..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st +++ /dev/null @@ -1,7 +0,0 @@ -files -newTemporaryFileNamed: aName - - | newFile | - newFile := FileLocator temp / aName. - newFile exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ]. - ^ newFile pathString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st deleted file mode 100644 index 63358983..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st +++ /dev/null @@ -1,11 +0,0 @@ -file library -newTemporaryFileReference - "Create a new temporary file in the systems temp directory - and answer a reference to it. - It is the users responsibility to delete or move the file, - it will not be cleaned up automatically (unless the host system - has a policy for it)." - self - greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReference' - details: 'Use newTemporaryFile'. - ^ self newTemporaryFileReferenceNamed: UUID new asString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st deleted file mode 100644 index d9eed8ee..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st +++ /dev/null @@ -1,11 +0,0 @@ -file library -newTemporaryFileReferenceNamed: aName - "Create a new temporary file in the systems temp directory - and answer a reference to it. - It is the users responsibility to delete or move the file, - it will not be cleaned up automatically (unless the host system - has a policy for it)." - self - greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReferenceNamed:' - details: 'Use newTemporaryFileNamed:'. - ^ FileLocator temp / aName \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newline.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newline.st deleted file mode 100644 index 1219045d..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newline.st +++ /dev/null @@ -1,3 +0,0 @@ -file library -newline - ^ String cr \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st deleted file mode 100644 index b98446f9..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st +++ /dev/null @@ -1,18 +0,0 @@ -exceptions -openDebuggerOn: anError - | process | - process := Processor activeProcess. - "If we are running in the UI process, we don't want to suspend the active process. The - error was presumably triggered while stepping in the Debugger. If we simply immediately - signal an UnhandledError, the debugger will catch this and display the signaling context. - It isn't perfect or pretty but it works." - (ProcessBrowser isUIProcess: process) - ifTrue: [ - UnhandledError signalForException: anError ] - ifFalse: [ - WorldState addDeferredUIMessage: [ - process - debug: anError signalerContext - title: anError description - full: true ]. - process suspend ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/pathSeparator.st deleted file mode 100644 index 10f88300..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/pathSeparator.st +++ /dev/null @@ -1,3 +0,0 @@ -file library -pathSeparator - ^ String with: FileSystem disk delimiter \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st deleted file mode 100644 index 22443227..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st +++ /dev/null @@ -1,7 +0,0 @@ -file library -readFileStreamOn: aString do: aBlock binary: aBoolean - "Line end conversion is no longer done for ascii... TBD!" - - ^ aBoolean - ifTrue: [ aString asFileReference binaryReadStreamDo: aBlock ] - ifFalse: [ aString asFileReference readStreamEncoded: 'utf-8' do: aBlock ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st deleted file mode 100644 index db9518ee..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st +++ /dev/null @@ -1,5 +0,0 @@ -factory -readWriteByteStream - "ByteArray based read write stream" - - ^ ReadWriteStream on: (ByteArray new: 4096) \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st deleted file mode 100644 index 3f94c5af..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st +++ /dev/null @@ -1,5 +0,0 @@ -factory -readWriteCharacterStream - "String based read write stream" - - ^ ReadWriteStream on: (String new: 4096) \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st deleted file mode 100644 index 58137e33..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromShutDownList: aClass - "Remove aClass from the shutdown list in the system." - - SessionManager default unregisterClassNamed: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st deleted file mode 100644 index 76918209..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromStartUpList: aClass - "Remove aClass from the startup list in the system." - - SessionManager default unregisterClassNamed: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st deleted file mode 100644 index 92cbd7ff..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -removeSelector: aSymbol from: aClass - aClass removeSelector: aSymbol \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/secureHashFor..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/secureHashFor..st deleted file mode 100644 index 46b9e2d2..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/secureHashFor..st +++ /dev/null @@ -1,3 +0,0 @@ -cryptography -secureHashFor: aString - ^ SHA1 new hashMessage: aString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st deleted file mode 100644 index ceccf9e3..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st +++ /dev/null @@ -1,4 +0,0 @@ -factory -semaphoreClass - "used by Gemstone/S traditional Semaphores which cannot be persisted" - ^ Semaphore \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st deleted file mode 100644 index f7139913..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st +++ /dev/null @@ -1,4 +0,0 @@ -files -sizeOfFile: aString - - ^ aString asFileReference size \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st deleted file mode 100644 index 3ed3d44c..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st +++ /dev/null @@ -1,5 +0,0 @@ -meta-object-protocol -sourceCodeStringOf: aCompiledMethod - "Return a String with the source code for a compiled method." - - ^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/stackDepth.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/stackDepth.st deleted file mode 100644 index 7b994393..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/stackDepth.st +++ /dev/null @@ -1,10 +0,0 @@ -exceptions -stackDepth - - | depth current | - depth := 0. - current := thisContext. - [ current isNil ] whileFalse: [ - current := current sender. - depth := depth + 1 ]. - ^ depth - 1 \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/terminateProcess..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/terminateProcess..st deleted file mode 100644 index a09b96e1..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/terminateProcess..st +++ /dev/null @@ -1,4 +0,0 @@ -processes -terminateProcess: aProcess - "Permanently terminate the process, unwinding first to execute #ensure: and #ifCurtailed: blocks." - aProcess terminate \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/thisContext.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/thisContext.st deleted file mode 100644 index 97018fc5..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/thisContext.st +++ /dev/null @@ -1,4 +0,0 @@ -processes -thisContext - - ^ thisContext sender \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st deleted file mode 100644 index 71b0f2cf..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st +++ /dev/null @@ -1,4 +0,0 @@ -private-file library -useByteArrayLiterals - "whether ByteArray literals can/should be used" - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st deleted file mode 100644 index b0ca3d82..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st +++ /dev/null @@ -1,3 +0,0 @@ -factory -weakDictionaryOfSize: aNumber - ^ IdentityDictionary new: aNumber \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st deleted file mode 100644 index 77cf8f76..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st +++ /dev/null @@ -1,8 +0,0 @@ -file library -write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString - "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" - "TODO: wantsLineEndConversion: true; ??" - ^ self - writeFileStreamOn: (aFolderString asFileReference / aFileNameString) ensureDelete pathString - do: [ :stream | stream nextPutAll: aStringOrByteArray ] - binary: aStringOrByteArray isString not \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st deleted file mode 100644 index 22cf6c64..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st +++ /dev/null @@ -1,5 +0,0 @@ -file library -writeFileStreamOn: aString do: aBlock binary: aBoolean - ^ aBoolean - ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ] - ifFalse: [ aString asFileReference writeStreamEncoded: 'utf-8' do: aBlock ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/properties.json deleted file mode 100644 index ab8c26b8..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "pmm 2/1/2014 13:28", - "super" : "GRPlatform", - "category" : "Grease-Pharo70-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "UrlTable", - "XmlTable" - ], - "instvars" : [ ], - "name" : "GRPharoPlatform", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/initialize.st b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/initialize.st deleted file mode 100644 index 04ca54c3..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -private -initialize - Smalltalk addToStartUpList: self. - self startUp \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/nextInt..st b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/nextInt..st deleted file mode 100644 index 593aee36..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/nextInt..st +++ /dev/null @@ -1,5 +0,0 @@ -public -nextInt: anInteger - "Answer a random integer in the interval [1, anInteger]" - - ^ mutex critical: [ generator nextInt: anInteger ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomClass.st b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomClass.st deleted file mode 100644 index 85a2db91..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomClass.st +++ /dev/null @@ -1,3 +0,0 @@ -private -randomClass - ^ Random \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomFrom..st b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomFrom..st deleted file mode 100644 index a5fe470c..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/randomFrom..st +++ /dev/null @@ -1,11 +0,0 @@ -public -randomFrom: aCollection - | random count | - random := self nextInt: aCollection size. - ^ aCollection isSequenceable - ifTrue: [ aCollection at: random ] - ifFalse: [ - count := 1. - aCollection do: [ :ea | - count = random ifTrue: [ ^ ea ]. - count := count + 1 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/startUp.st b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/startUp.st deleted file mode 100644 index 663a5243..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/startUp.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -startUp - generator := self randomClass new. - mutex := Semaphore forMutualExclusion \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/unload.st b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/unload.st deleted file mode 100644 index fd4cb930..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/class/unload.st +++ /dev/null @@ -1,3 +0,0 @@ -private -unload - GRPlatform current removeFromStartUpList: self \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/properties.json deleted file mode 100644 index ae214abc..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoRandomProvider.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRObject", - "category" : "Grease-Pharo70-Core", - "classinstvars" : [ - "mutex", - "generator" - ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoRandomProvider", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/README.md deleted file mode 100644 index c6047951..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WAUtf8Codec is a WACodec optimized for UTF-8. \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st deleted file mode 100644 index d4c4a74b..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -private -basicForEncoding: aString - ^ self new \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/codecs.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/codecs.st deleted file mode 100644 index 632b84fb..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/codecs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecs - ^ Array with: self new \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st deleted file mode 100644 index dc3a8ade..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -supportsEncoding: aString - ^ (#('utf-8' 'UTF-8') includes: aString) or: [ UTF8TextConverter encodingNames includes: aString ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decode..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decode..st deleted file mode 100644 index b625727d..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decode..st +++ /dev/null @@ -1,36 +0,0 @@ -decoding -decode: aString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | outStream byte1 byte2 byte3 byte4 unicode stream | - stream := aString readStream. - outStream := WriteStream on: (String new: aString size). - [ stream atEnd not ] whileTrue: [ - byte1 := stream next asInteger. - unicode := byte1. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next asInteger. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63) ]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next asInteger. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte4 := stream next asInteger. - (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63) ]. - unicode ifNil: [ self invalidUtf8 ]. - unicode = 16rFEFF "ignore BOM" ifFalse: [ - outStream nextPut: (Character codePoint: unicode) ]. - unicode := nil ]. - ^ outStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st deleted file mode 100644 index 203b901f..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -decoderFor: aStream - ^ GRPharoUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st deleted file mode 100644 index d77ab435..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st deleted file mode 100644 index e4481c22..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/name.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/name.st deleted file mode 100644 index 7886c830..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'utf-8' \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/url.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/url.st deleted file mode 100644 index 4696d714..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/instance/url.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -url - ^ self \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/properties.json deleted file mode 100644 index d0276c27..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8Codec.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 2/20/2009 12:51", - "super" : "GRCodec", - "category" : "Grease-Pharo70-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoUtf8Codec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/README.md deleted file mode 100644 index 08323f18..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WAUtf8CodecStream is a WACodecStream optimized for UTF-8 performance in the case where most of the characters are ASCII. diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st deleted file mode 100644 index b8d03990..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/class/initialize.st +++ /dev/null @@ -1,17 +0,0 @@ -class initialization -initialize - (Smalltalk hasClassNamed: #UTF8TextConverter) "guard for Squeak 37" - ifFalse: [ ^ self ]. - - Latin1ToUtf8Map := ByteArray new: 256. - Latin1ToUtf8Encodings := Array new: 256. - 0 to: 255 do:[ :index | - | latin1 utf8 | - latin1 := String with: (Character codePoint: index). - utf8 := latin1 convertToWithConverter: UTF8TextConverter new. - latin1 = utf8 - ifTrue:[ - Latin1ToUtf8Map at: index + 1 put: 0 ] "no translation needed" - ifFalse:[ - Latin1ToUtf8Map at: index + 1 put: 1. "no translation needed" - Latin1ToUtf8Encodings at: index + 1 put: utf8 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st deleted file mode 100644 index ba607092..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/crlf.st +++ /dev/null @@ -1,4 +0,0 @@ -streaming -crlf - stream nextPut: Character cr. - stream nextPut: Character lf \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st deleted file mode 100644 index cdd58a41..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeDefault..st +++ /dev/null @@ -1,5 +0,0 @@ -private -encodeDefault: aString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - 1 to: aString size by: 1 do: [ :index | - converter nextPut: (aString at: index) toStream: stream ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st deleted file mode 100644 index 9a8a0dc3..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/encodeFast..st +++ /dev/null @@ -1,14 +0,0 @@ -private -encodeFast: aByteString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | lastIndex nextIndex | - lastIndex := 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ifTrue: [ ^ stream nextPutAll: aByteString ]. - [ nextIndex > lastIndex ifTrue: [ - stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. - stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). - lastIndex := nextIndex + 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ] whileFalse. - stream greaseNext: aByteString size - lastIndex + 1 putAll: aByteString startingAt: lastIndex \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index cd78fbe0..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -greaseNext: anInteger putAll: aCollection startingAt: startIndex - aCollection isByteString - ifTrue: [ self greaseNext: anInteger putAllFast: aCollection startingAt: startIndex ] - ifFalse: [ super greaseNext: anInteger putAll: aCollection startingAt: startIndex ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st deleted file mode 100644 index a4c114cb..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st +++ /dev/null @@ -1,17 +0,0 @@ -private -greaseNext: anInteger putAllFast: aByteString startingAt: startIndex - | lastIndex nextIndex | - lastIndex := startIndex. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ifTrue: [ ^ stream greaseNext: anInteger putAll: aByteString startingAt: startIndex ]. - [ - nextIndex >= (startIndex + anInteger) ifTrue: [ - ^ stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ]. - nextIndex > lastIndex ifTrue: [ - stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. - stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). - lastIndex := nextIndex + 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - (nextIndex = 0 or: [ nextIndex >= (startIndex + anInteger) ]) ] whileFalse. - lastIndex >= (startIndex + anInteger) ifFalse: [ - stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st deleted file mode 100644 index e4481c22..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next..st deleted file mode 100644 index 116f524d..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next..st +++ /dev/null @@ -1,46 +0,0 @@ -streaming -next: anInteger - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | output byte1 byte2 byte3 byte4 unicode count alreadyWide | - output := ByteString new: anInteger. - count := 0. - alreadyWide := false. - [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ - byte1 := stream next. - unicode := byte1. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63). - alreadyWide ifFalse: [ - output := WideString withAll: output. - alreadyWide := true ] ]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte4 := stream next. - (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63). - alreadyWide ifFalse: [ - output := WideString withAll: output. - alreadyWide := true ] ]. - unicode ifNil: [ self invalidUtf8 ]. - unicode = 16rFEFF "ignore BOM" ifFalse: [ - count := count + 1. - output at: count put: (Character codePoint: unicode) ]. - unicode := nil ]. - ^ count < anInteger - ifTrue: [ output first: count ] - ifFalse: [ output ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next.st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next.st deleted file mode 100644 index 4363f086..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - ^ (self next: 1) first \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st deleted file mode 100644 index ad2d94ab..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,11 +0,0 @@ -streaming -nextPut: aCharacter - | codePoint shouldEncode | - codePoint := aCharacter codePoint. - codePoint > 255 - ifTrue: [ ^ self nextPutAll: (String with: aCharacter) ]. - shouldEncode := Latin1ToUtf8Map at: codePoint + 1. - shouldEncode = 1 - ifTrue: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] - ifFalse: [ stream nextPut: aCharacter ] - \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st deleted file mode 100644 index b9136110..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -nextPutAll: aString - aString isByteString - ifTrue: [ self encodeFast: aString ] - ifFalse: [ self encodeDefault: aString ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/properties.json deleted file mode 100644 index 74edd5a9..00000000 --- a/repository/Grease-Pharo70-Core.package/GRPharoUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "pmm 2/20/2009 12:27", - "super" : "GRPharoConverterCodecStream", - "category" : "Grease-Pharo70-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "Latin1ToUtf8Encodings", - "Latin1ToUtf8Map" - ], - "instvars" : [ ], - "name" : "GRPharoUtf8CodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st b/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st deleted file mode 100644 index 6657fda7..00000000 --- a/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo70-Core -customizeExplorerContents - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/explorerContents.st b/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/explorerContents.st deleted file mode 100644 index 8f2edc9c..00000000 --- a/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/explorerContents.st +++ /dev/null @@ -1,10 +0,0 @@ -*Grease-Pharo70-Core -explorerContents - | contents | - contents := OrderedCollection new. - self keysAndValuesDo: [ :key :value | - contents add: (ObjectExplorerWrapper - with: value - name: (key printString contractTo: 32) - model: self) ]. - ^ contents \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st b/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st deleted file mode 100644 index 2226672f..00000000 --- a/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo70-Core -hasContentsInExplorer - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/properties.json b/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/properties.json deleted file mode 100644 index 0d78b749..00000000 --- a/repository/Grease-Pharo70-Core.package/GRSmallDictionary.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRSmallDictionary" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Interval.extension/instance/any.st b/repository/Grease-Pharo70-Core.package/Interval.extension/instance/any.st deleted file mode 100644 index 25452fdd..00000000 --- a/repository/Grease-Pharo70-Core.package/Interval.extension/instance/any.st +++ /dev/null @@ -1,6 +0,0 @@ -*Grease-Pharo70-Core -any - "#first (used by SequenceableCollection>>anyOne) is an accessor of - Interval and does not error on an empty Interval." - - ^ self at: 1 \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Interval.extension/properties.json b/repository/Grease-Pharo70-Core.package/Interval.extension/properties.json deleted file mode 100644 index 534eb553..00000000 --- a/repository/Grease-Pharo70-Core.package/Interval.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Interval" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/LargeInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo70-Core.package/LargeInteger.extension/instance/greaseByteAt..st deleted file mode 100644 index 234e429d..00000000 --- a/repository/Grease-Pharo70-Core.package/LargeInteger.extension/instance/greaseByteAt..st +++ /dev/null @@ -1,8 +0,0 @@ -*Grease-Pharo70-Core -greaseByteAt: index - "Primitive. Answer the value of an indexable field in the receiver. LargePositiveInteger uses bytes of base two number, and each is a 'digit' base 256. Fail if the argument (the index) is not an Integer or is out of bounds. Essential. See Object documentation whatIsAPrimitive." - - - self greaseBytesCount < index - ifTrue: [^0] - ifFalse: [^super at: index] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/LargeInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo70-Core.package/LargeInteger.extension/instance/greaseBytesCount.st deleted file mode 100644 index adb5d76c..00000000 --- a/repository/Grease-Pharo70-Core.package/LargeInteger.extension/instance/greaseBytesCount.st +++ /dev/null @@ -1,8 +0,0 @@ -*Grease-Pharo70-Core -greaseBytesCount - "Primitive. Answer the number of indexable fields in the receiver. This - value is the same as the largest legal subscript. Essential. See Object - documentation whatIsAPrimitive." - - - self primitiveFailed \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/LargeInteger.extension/properties.json b/repository/Grease-Pharo70-Core.package/LargeInteger.extension/properties.json deleted file mode 100644 index 029bc676..00000000 --- a/repository/Grease-Pharo70-Core.package/LargeInteger.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "LargeInteger" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/MessageSend.extension/instance/argumentCount.st b/repository/Grease-Pharo70-Core.package/MessageSend.extension/instance/argumentCount.st deleted file mode 100644 index 7c92a0fa..00000000 --- a/repository/Grease-Pharo70-Core.package/MessageSend.extension/instance/argumentCount.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo70-Core -argumentCount - ^ selector numArgs - self arguments size \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo70-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index a1e7de6f..00000000 --- a/repository/Grease-Pharo70-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,7 +0,0 @@ -*Grease-Pharo70-Core -valueWithPossibleArguments: anArray - "Evaluate the block represented by the receiver. - If the block requires one argument, use anArg, if it requires more than one, - fill up the rest with nils." - - ^ self valueWithEnoughArguments: anArray \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/MessageSend.extension/properties.json b/repository/Grease-Pharo70-Core.package/MessageSend.extension/properties.json deleted file mode 100644 index 00669b90..00000000 --- a/repository/Grease-Pharo70-Core.package/MessageSend.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "MessageSend" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Pharo70-Core.package/Number.extension/instance/milliseconds.st deleted file mode 100644 index 4b41de47..00000000 --- a/repository/Grease-Pharo70-Core.package/Number.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo70-Core -milliseconds - ^ self milliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Number.extension/properties.json b/repository/Grease-Pharo70-Core.package/Number.extension/properties.json deleted file mode 100644 index 71dace88..00000000 --- a/repository/Grease-Pharo70-Core.package/Number.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Number" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Pharo70-Core.package/Object.extension/instance/greaseString.st deleted file mode 100644 index 790b6c38..00000000 --- a/repository/Grease-Pharo70-Core.package/Object.extension/instance/greaseString.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo70-Core -greaseString - ^ self asString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Object.extension/properties.json b/repository/Grease-Pharo70-Core.package/Object.extension/properties.json deleted file mode 100644 index f30a86e1..00000000 --- a/repository/Grease-Pharo70-Core.package/Object.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Object" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Point.extension/instance/greaseString.st b/repository/Grease-Pharo70-Core.package/Point.extension/instance/greaseString.st deleted file mode 100644 index d9236f37..00000000 --- a/repository/Grease-Pharo70-Core.package/Point.extension/instance/greaseString.st +++ /dev/null @@ -1,13 +0,0 @@ -*Grease-Pharo70-Core -greaseString - "Reimplemented because in Pharo 1.4 - (4 @ 2) greaseString - ansers '(4@2)'" - ^ String streamContents: [ :stream | - x printOn: stream. - stream nextPut: $@. - (y notNil and: [ y negative ]) - ifTrue: [ - "Avoid ambiguous @- construct" - stream space ]. - y printOn: stream ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Point.extension/properties.json b/repository/Grease-Pharo70-Core.package/Point.extension/properties.json deleted file mode 100644 index c6cf8dd5..00000000 --- a/repository/Grease-Pharo70-Core.package/Point.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Point" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-Pharo70-Core.package/PositionableStream.extension/instance/greaseUpToAll..st deleted file mode 100644 index ee9c1227..00000000 --- a/repository/Grease-Pharo70-Core.package/PositionableStream.extension/instance/greaseUpToAll..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo70-Core -greaseUpToAll: aCollection - "Needed for Seaside ports to other dialects where #upToAll: may have - different semantics" - ^ self upToAll: aCollection \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/PositionableStream.extension/properties.json b/repository/Grease-Pharo70-Core.package/PositionableStream.extension/properties.json deleted file mode 100644 index 8e090ee3..00000000 --- a/repository/Grease-Pharo70-Core.package/PositionableStream.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "PositionableStream" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/instance/encodeOn..st b/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/instance/encodeOn..st deleted file mode 100644 index 285dad3a..00000000 --- a/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/instance/encodeOn..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo70-Core -encodeOn: aDocument - | converter | - converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). - converter print: self on: aDocument \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/instance/greaseString.st deleted file mode 100644 index 08d07e1e..00000000 --- a/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/instance/greaseString.st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo70-Core -greaseString - | converter | - converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). - ^ converter print: self \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/properties.json b/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/properties.json deleted file mode 100644 index 75f85f87..00000000 --- a/repository/Grease-Pharo70-Core.package/ScaledDecimal.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "ScaledDecimal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st deleted file mode 100644 index a3a6fdda..00000000 --- a/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo70-Core -beginsWithSubCollection: aSequenceableCollection - "Some platforms implement #beginsWith: to answer true for an empty argument." - ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st deleted file mode 100644 index 966cb147..00000000 --- a/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo70-Core -endsWithSubCollection: aSequenceableCollection - "Some platforms implement #endsWith: to answer true for an empty argument." - ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st deleted file mode 100644 index 01880fd1..00000000 --- a/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo70-Core -greaseBeginsWith: aSequenceableCollection - - aSequenceableCollection isEmpty ifTrue: [ ^ true ]. - ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st deleted file mode 100644 index a2483ea4..00000000 --- a/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo70-Core -greaseEndsWith: aSequenceableCollection - - aSequenceableCollection isEmpty ifTrue: [ ^ true ]. - ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/sorted.st b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/sorted.st deleted file mode 100644 index 7958186c..00000000 --- a/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/instance/sorted.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo70-Core -sorted - ^ self sorted: [ :a :b | a <= b ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/properties.json deleted file mode 100644 index a68b7db6..00000000 --- a/repository/Grease-Pharo70-Core.package/SequenceableCollection.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "SequenceableCollection" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SmallInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo70-Core.package/SmallInteger.extension/instance/greaseByteAt..st deleted file mode 100644 index f47ffe65..00000000 --- a/repository/Grease-Pharo70-Core.package/SmallInteger.extension/instance/greaseByteAt..st +++ /dev/null @@ -1,14 +0,0 @@ -*Grease-Pharo70-Core -greaseByteAt: n - "Answer the value of an apparent byte-indexable field in the receiver, - analogous to the large integers, which are organized as bytes." - - n = 1 - ifTrue: [ - "Negate carefully in case the receiver is SmallInteger minVal" - ^ self < 0 - ifTrue: [ -256 - self bitAnd: 255 ] - ifFalse: [ self bitAnd: 255 ] ]. - ^ self < 0 - ifTrue: [ (-256 - self bitShift: -8) + 1 byteAt: n - 1 ] - ifFalse: [ (self bitShift: 8 - (n bitShift: 3)) bitAnd: 255 ] \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SmallInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo70-Core.package/SmallInteger.extension/instance/greaseBytesCount.st deleted file mode 100644 index 3acd5b44..00000000 --- a/repository/Grease-Pharo70-Core.package/SmallInteger.extension/instance/greaseBytesCount.st +++ /dev/null @@ -1,25 +0,0 @@ -*Grease-Pharo70-Core -greaseBytesCount - "Answer the number of indexable fields in the receiver. This value is the - same as the largest legal subscript. Included so that a SmallInteger can - behave like a LargePositiveInteger or LargeNegativeInteger." - - "32768 == (1 bitShift: 15)" - "32768 bytesCount >>> 2" - - "65536 == (1 bitShift: 16)" - "65536 bytesCount >>> 3" - - | value length | - length := 1. - value := self. - value >= 0 - ifTrue: - [[value > 255] whileTrue: - [value := value bitShift: -8. - length := length + 1]] - ifFalse: - [[value < -255] whileTrue: - [value := value bitShift: -8. - length := length + 1]]. - ^length \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SmallInteger.extension/properties.json b/repository/Grease-Pharo70-Core.package/SmallInteger.extension/properties.json deleted file mode 100644 index ca9cd21f..00000000 --- a/repository/Grease-Pharo70-Core.package/SmallInteger.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "SmallInteger" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo70-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index b5ce9a98..00000000 --- a/repository/Grease-Pharo70-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,13 +0,0 @@ -*Grease-Pharo70-Core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - "Put a String or a ByteArray onto the stream starting at the given position. - Currently a large collection will allocate a large buffer." - - | toPut | - anInteger = 0 ifTrue: [ - ^ aCollection ]. - toPut := binary ifTrue: [ aCollection asByteArray ] ifFalse: [ aCollection asString ]. - self adjustOutBuffer: anInteger. - outBuffer replaceFrom: outNextToWrite to: outNextToWrite + anInteger - 1 with: toPut startingAt: startIndex. - outNextToWrite := outNextToWrite + anInteger. - self checkFlush \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/SocketStream.extension/properties.json b/repository/Grease-Pharo70-Core.package/SocketStream.extension/properties.json deleted file mode 100644 index 797e09e5..00000000 --- a/repository/Grease-Pharo70-Core.package/SocketStream.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "SocketStream" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-Pharo70-Core.package/Symbol.extension/instance/greaseAsMutator.st deleted file mode 100644 index 287a21b8..00000000 --- a/repository/Grease-Pharo70-Core.package/Symbol.extension/instance/greaseAsMutator.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo70-Core -greaseAsMutator - ^ self asMutator \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/Symbol.extension/properties.json b/repository/Grease-Pharo70-Core.package/Symbol.extension/properties.json deleted file mode 100644 index 8c6bce81..00000000 --- a/repository/Grease-Pharo70-Core.package/Symbol.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Symbol" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo70-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index e6f77851..00000000 --- a/repository/Grease-Pharo70-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo70-Core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - "Store the next anInteger elements from the given collection." - ^ self next: anInteger putAll: aCollection startingAt: startIndex \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/WriteStream.extension/properties.json b/repository/Grease-Pharo70-Core.package/WriteStream.extension/properties.json deleted file mode 100644 index 8688e80d..00000000 --- a/repository/Grease-Pharo70-Core.package/WriteStream.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "WriteStream" -} \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo70-Core.package/monticello.meta/categories.st deleted file mode 100644 index a10a79b9..00000000 --- a/repository/Grease-Pharo70-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Pharo70-Core'! diff --git a/repository/Grease-Pharo70-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo70-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo70-Core.package/monticello.meta/package b/repository/Grease-Pharo70-Core.package/monticello.meta/package deleted file mode 100644 index fdb06b59..00000000 --- a/repository/Grease-Pharo70-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo70-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/properties.json b/repository/Grease-Pharo70-Core.package/properties.json deleted file mode 100644 index 6f31cf5a..00000000 --- a/repository/Grease-Pharo70-Core.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core/Behavior.extension.st b/repository/Grease-Pharo70-Core/Behavior.extension.st new file mode 100644 index 00000000..9bb7be46 --- /dev/null +++ b/repository/Grease-Pharo70-Core/Behavior.extension.st @@ -0,0 +1,8 @@ +Extension { #name : 'Behavior' } + +{ #category : '*Grease-Pharo70-Core' } +Behavior >> fullName [ + "In VW, will include the namespace" + + ^ self name +] diff --git a/repository/Grease-Pharo70-Core/BlockClosure.extension.st b/repository/Grease-Pharo70-Core/BlockClosure.extension.st new file mode 100644 index 00000000..5ea6aa3c --- /dev/null +++ b/repository/Grease-Pharo70-Core/BlockClosure.extension.st @@ -0,0 +1,14 @@ +Extension { #name : 'BlockClosure' } + +{ #category : '*Grease-Pharo70-Core' } +BlockClosure >> valueWithPossibleArguments: anArray [ + | args | + (anArray size == self numArgs) + ifTrue: [ ^ self valueWithArguments: anArray ]. + args := Array new: self numArgs. + args replaceFrom: 1 + to: (anArray size min: args size) + with: anArray + startingAt: 1. + ^ self valueWithArguments: args +] diff --git a/repository/Grease-Pharo70-Core/ByteArray.extension.st b/repository/Grease-Pharo70-Core/ByteArray.extension.st new file mode 100644 index 00000000..27b4d1c4 --- /dev/null +++ b/repository/Grease-Pharo70-Core/ByteArray.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'ByteArray' } + +{ #category : '*Grease-Pharo70-Core' } +ByteArray >> greaseString [ + "ByteArrays should not automatically be converted to Strings. You should use a GRCodec for this." + ^ self printString +] diff --git a/repository/Grease-Pharo70-Core/Character.extension.st b/repository/Grease-Pharo70-Core/Character.extension.st new file mode 100644 index 00000000..20ff2896 --- /dev/null +++ b/repository/Grease-Pharo70-Core/Character.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'Character' } + +{ #category : '*Grease-Pharo70-Core' } +Character >> greaseInteger [ + "Answer an unicode code point of the receiver." + ^ self charCode +] diff --git a/repository/Grease-Pharo70-Core/Collection.extension.st b/repository/Grease-Pharo70-Core/Collection.extension.st new file mode 100644 index 00000000..16bfb476 --- /dev/null +++ b/repository/Grease-Pharo70-Core/Collection.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Collection' } + +{ #category : '*Grease-Pharo70-Core' } +Collection >> any [ + ^ self anyOne +] diff --git a/repository/Grease-Pharo70-Core/Color.extension.st b/repository/Grease-Pharo70-Core/Color.extension.st new file mode 100644 index 00000000..675871f0 --- /dev/null +++ b/repository/Grease-Pharo70-Core/Color.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Color' } + +{ #category : '*Grease-Pharo70-Core' } +Color >> asHTMLColor [ + ^'#', self asHexString +] diff --git a/repository/Grease-Pharo70-Core/Duration.extension.st b/repository/Grease-Pharo70-Core/Duration.extension.st new file mode 100644 index 00000000..46aac582 --- /dev/null +++ b/repository/Grease-Pharo70-Core/Duration.extension.st @@ -0,0 +1,16 @@ +Extension { #name : 'Duration' } + +{ #category : '*Grease-Pharo70-Core' } +Duration >> asMilliseconds [ + ^ self asMilliSeconds +] + +{ #category : '*Grease-Pharo70-Core' } +Duration >> milliseconds [ + ^ nanos quo: NanosInMillisecond +] + +{ #category : '*Grease-Pharo70-Core' } +Duration class >> milliseconds: anInteger [ + ^ self milliSeconds: anInteger +] diff --git a/repository/Grease-Pharo70-Core/GRDelegatingStream.extension.st b/repository/Grease-Pharo70-Core/GRDelegatingStream.extension.st new file mode 100644 index 00000000..b2f433cd --- /dev/null +++ b/repository/Grease-Pharo70-Core/GRDelegatingStream.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'GRDelegatingStream' } + +{ #category : '*Grease-Pharo70-Core' } +GRDelegatingStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + stream greaseNext: anInteger putAll: aCollection startingAt: startIndex +] diff --git a/repository/Grease-Pharo70-Core/GRDynamicVariable.class.st b/repository/Grease-Pharo70-Core/GRDynamicVariable.class.st new file mode 100644 index 00000000..2353153b --- /dev/null +++ b/repository/Grease-Pharo70-Core/GRDynamicVariable.class.st @@ -0,0 +1,23 @@ +Class { + #name : 'GRDynamicVariable', + #superclass : 'DynamicVariable', + #category : 'Grease-Pharo70-Core', + #package : 'Grease-Pharo70-Core' +} + +{ #category : 'defaults' } +GRDynamicVariable class >> defaultValue [ + ^ nil +] + +{ #category : 'accessing' } +GRDynamicVariable class >> use: anObject during: aBlock [ + ^ self + value: anObject + during: aBlock +] + +{ #category : 'accessing' } +GRDynamicVariable >> default [ + ^ self class defaultValue +] diff --git a/repository/Grease-Pharo70-Core/GRPackage.extension.st b/repository/Grease-Pharo70-Core/GRPackage.extension.st new file mode 100644 index 00000000..9cf916cf --- /dev/null +++ b/repository/Grease-Pharo70-Core/GRPackage.extension.st @@ -0,0 +1,10 @@ +Extension { #name : 'GRPackage' } + +{ #category : '*Grease-Pharo70-Core' } +GRPackage class >> greasePharo70Core [ + ^ self new + name: 'Grease-Pharo70-Core'; + addDependency: 'Grease-Core'; + url: #greaseUrl; + yourself +] diff --git a/repository/Grease-Pharo70-Core/GRPharoConverterCodecStream.class.st b/repository/Grease-Pharo70-Core/GRPharoConverterCodecStream.class.st new file mode 100644 index 00000000..b839978c --- /dev/null +++ b/repository/Grease-Pharo70-Core/GRPharoConverterCodecStream.class.st @@ -0,0 +1,63 @@ +" +A WAConverterCodecStream is a WACodec stream around a TextConverter. It is always in text mode. + +Instance Variables + converter: + +converter + - the TextConverter used to do the encoding conversion + +" +Class { + #name : 'GRPharoConverterCodecStream', + #superclass : 'GRCodecStream', + #instVars : [ + 'converter' + ], + #category : 'Grease-Pharo70-Core', + #package : 'Grease-Pharo70-Core' +} + +{ #category : 'instance creation' } +GRPharoConverterCodecStream class >> on: aStream converter: aConverter [ + ^ self basicNew initializeOn: aStream converter: aConverter +] + +{ #category : 'streaming' } +GRPharoConverterCodecStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1) +] + +{ #category : 'initialization' } +GRPharoConverterCodecStream >> initializeOn: aStream converter: aConverter [ + self initializeOn: aStream. + converter := aConverter +] + +{ #category : 'streaming' } +GRPharoConverterCodecStream >> next [ + | character | + character := converter nextFromStream: stream. + ^ character isNil + ifFalse: [ character asCharacter ] +] + +{ #category : 'streaming' } +GRPharoConverterCodecStream >> next: anInteger [ + | writeStream | + writeStream := WriteStream on: (String new: anInteger). + anInteger timesRepeat: [ + writeStream nextPut: (self next + ifNil: [ ^ writeStream contents ]) ]. + ^ writeStream contents +] + +{ #category : 'streaming' } +GRPharoConverterCodecStream >> nextPut: aCharacter [ + converter nextPut: aCharacter asCharacter toStream: stream +] + +{ #category : 'streaming' } +GRPharoConverterCodecStream >> nextPutAll: aString [ + aString asString do: [ :each | self nextPut: each ] +] diff --git a/repository/Grease-Pharo70-Core/GRPharoGenericCodec.class.st b/repository/Grease-Pharo70-Core/GRPharoGenericCodec.class.st new file mode 100644 index 00000000..4c3ddb5e --- /dev/null +++ b/repository/Grease-Pharo70-Core/GRPharoGenericCodec.class.st @@ -0,0 +1,81 @@ +Class { + #name : 'GRPharoGenericCodec', + #superclass : 'GRCodec', + #instVars : [ + 'name', + 'urlCodec' + ], + #category : 'Grease-Pharo70-Core', + #package : 'Grease-Pharo70-Core' +} + +{ #category : 'private' } +GRPharoGenericCodec class >> basicForEncoding: aString [ + (self supportsEncoding: aString) + ifFalse: [ self unsupportedEncoding: aString ]. + ^ self basicNew initializeWithName: aString +] + +{ #category : 'accessing' } +GRPharoGenericCodec class >> codecs [ + ^ (TextConverter allEncodingNames + select: [ :each | + "exclude UFT-8 which is handeled by WAUtf8Codec" + self supportsEncoding: each ]) + collect: [ :each | + self basicForEncoding: each greaseString ] +] + +{ #category : 'private' } +GRPharoGenericCodec class >> supportedEncodingNames [ + "answers the names of the encodings supported by this class" + + ^ (TextConverter allSubclasses gather: [ :class | class encodingNames ]) asSet asOrderedCollection + removeAllFoundIn: GRPharoLatin1Codec supportedEncodingNames; + removeAllFoundIn: UTF8TextConverter encodingNames; + yourself +] + +{ #category : 'testing' } +GRPharoGenericCodec class >> supportsEncoding: aString [ + "Answer whether the the given encoding name is supported." + ^ self supportedEncodingNames includes: aString +] + +{ #category : 'private' } +GRPharoGenericCodec >> converter [ + ^ TextConverter newForEncoding: self name +] + +{ #category : 'conversion' } +GRPharoGenericCodec >> decoderFor: aStream [ + ^ self encoderFor: aStream +] + +{ #category : 'conversion' } +GRPharoGenericCodec >> encoderFor: aStream [ + ^ GRPharoConverterCodecStream + on: aStream + converter: self converter +] + +{ #category : 'initialization' } +GRPharoGenericCodec >> initializeWithName: aString [ + self initialize. + name := aString. + urlCodec := (#('iso-8859-15' 'cp-1252') includes: aString) + ifFalse: [ GRCodec forEncoding: 'utf-8' ] + ifTrue: [ self ] +] + +{ #category : 'accessing' } +GRPharoGenericCodec >> name [ + ^ name +] + +{ #category : 'accessing' } +GRPharoGenericCodec >> url [ + "RFC 3986: When a new URI scheme defines a component that represents textual data consisting of characters from the Universal Character Set [UCS], the data should first be encoded as octets according to the UTF-8 character encoding." + + ^ urlCodec +] diff --git a/repository/Grease-Pharo70-Core/GRPharoLatin1Codec.class.st b/repository/Grease-Pharo70-Core/GRPharoLatin1Codec.class.st new file mode 100644 index 00000000..c4e24a99 --- /dev/null +++ b/repository/Grease-Pharo70-Core/GRPharoLatin1Codec.class.st @@ -0,0 +1,65 @@ +" +A GRPharoLatin1Codec is a WACodec optimized for ISO-8859-1 (direct byte to character mapping). +" +Class { + #name : 'GRPharoLatin1Codec', + #superclass : 'GRNullCodec', + #instVars : [ + 'name' + ], + #category : 'Grease-Pharo70-Core', + #package : 'Grease-Pharo70-Core' +} + +{ #category : 'private' } +GRPharoLatin1Codec class >> basicForEncoding: aString [ + (self supportsEncoding: aString) + ifFalse: [ self unsupportedEncoding: aString ]. + ^ self basicNew initializeWithName: aString +] + +{ #category : 'accessing' } +GRPharoLatin1Codec class >> codecs [ + ^ Array with: (self basicForEncoding: 'iso-8859-1') +] + +{ #category : 'private' } +GRPharoLatin1Codec class >> supportedEncodingNames [ + ^ #('iso-8859-1' 'ISO-8859-1' 'latin-1' 'latin1') +] + +{ #category : 'private' } +GRPharoLatin1Codec class >> supportsEncoding: aString [ + "Answer whether the the given encoding name is supported." + ^ self supportedEncodingNames includes: aString +] + +{ #category : 'conversion' } +GRPharoLatin1Codec >> decode: aStringOrByteArray [ + "Overridden for efficencey." + + ^ aStringOrByteArray asString +] + +{ #category : 'conversion' } +GRPharoLatin1Codec >> decoderFor: aReadStream [ + "wrap to avoid String vs ByteArray issues" + ^ GRPharoLatin1CodecStream on: aReadStream +] + +{ #category : 'conversion' } +GRPharoLatin1Codec >> encoderFor: aWriteStream [ + "wrap to avoid String vs ByteArray issues" + ^ GRPharoLatin1CodecStream on: aWriteStream +] + +{ #category : 'initialization' } +GRPharoLatin1Codec >> initializeWithName: aString [ + self initialize. + name := aString +] + +{ #category : 'accessing' } +GRPharoLatin1Codec >> name [ + ^ name +] diff --git a/repository/Grease-Pharo70-Core/GRPharoLatin1CodecStream.class.st b/repository/Grease-Pharo70-Core/GRPharoLatin1CodecStream.class.st new file mode 100644 index 00000000..39200e7a --- /dev/null +++ b/repository/Grease-Pharo70-Core/GRPharoLatin1CodecStream.class.st @@ -0,0 +1,19 @@ +" +A GRPharoLatin1CodecStream is a WACodecStream optimized for ISO-8859-1 (direct byte to character mapping). +" +Class { + #name : 'GRPharoLatin1CodecStream', + #superclass : 'GRNullCodecStream', + #category : 'Grease-Pharo70-Core', + #package : 'Grease-Pharo70-Core' +} + +{ #category : 'streaming' } +GRPharoLatin1CodecStream >> next [ + ^ Character value: stream next +] + +{ #category : 'streaming' } +GRPharoLatin1CodecStream >> next: anInteger [ + ^ (stream next: anInteger) asString +] diff --git a/repository/Grease-Pharo70-Core/GRPharoPlatform.class.st b/repository/Grease-Pharo70-Core/GRPharoPlatform.class.st new file mode 100644 index 00000000..0f34b738 --- /dev/null +++ b/repository/Grease-Pharo70-Core/GRPharoPlatform.class.st @@ -0,0 +1,384 @@ +" +A GRPharoPlatform is the Pharo implementation of GRPlatform, the Grease class that provides functionality that can not be implemented in a platform independent way. + +" +Class { + #name : 'GRPharoPlatform', + #superclass : 'GRPlatform', + #classVars : [ + 'UrlTable', + 'XmlTable' + ], + #category : 'Grease-Pharo70-Core', + #package : 'Grease-Pharo70-Core' +} + +{ #category : 'class initialization' } +GRPharoPlatform class >> initialize [ + self initializeXmlTable. + self initializeUrlTable. + self select +] + +{ #category : 'class initialization' } +GRPharoPlatform class >> initializeUrlTable [ + UrlTable := ByteArray new: 256. + 1 to: 256 do: [ :index | + ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~' includes: (Character codePoint: index - 1)) + ifTrue: [ UrlTable at: index put: 0 ] + ifFalse: [ UrlTable at: index put: 1 ] ] +] + +{ #category : 'class initialization' } +GRPharoPlatform class >> initializeXmlTable [ + XmlTable := ByteArray new: 256. + 1 to: 256 do: [ :index | + ('"<&>' includes: (Character codePoint: index - 1)) + ifTrue: [ XmlTable at: index put: 1 ] + ifFalse: [ XmlTable at: index put: 0 ] ] +] + +{ #category : 'class initialization' } +GRPharoPlatform class >> unload [ + self unselect +] + +{ #category : 'startup' } +GRPharoPlatform >> addToShutDownList: anObject [ + "Add anObject to the shutdown-list of the system. On shutdown the message #shutDown will be sent to anObject." + + Smalltalk addToShutDownList: anObject +] + +{ #category : 'startup' } +GRPharoPlatform >> addToStartUpList: aClass [ + "Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject." + + SessionManager default registerUserClassNamed: aClass name. +] + +{ #category : 'file library' } +GRPharoPlatform >> asMethodReturningByteArray: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a ByteArray" + ^ self useByteArrayLiterals + ifTrue: [ self asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol ] + ifFalse: [ self asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol ] +] + +{ #category : 'private-file library' } +GRPharoPlatform >> asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array using VW/NewCompiler byte array literal syntax." + ^ String streamContents: [ :stream | + stream nextPutAll: aSymbol; nextPut: Character cr. + stream tab; nextPutAll: '^ #['. + aByteArrayOrString asByteArray + do: [ :each | each printOn: stream ] + separatedBy: [ stream space ]. + stream nextPutAll: ']' ] +] + +{ #category : 'private-file library' } +GRPharoPlatform >> asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array and caching this array in a literal array of size 1." + ^ String streamContents: [ :stream | + stream nextPutAll: aSymbol; nextPut: Character cr. + stream tab; nextPutAll: '^ #('. + aByteArrayOrString asByteArray + do: [ :each | each printOn: stream ] + separatedBy: [ stream space ]. + stream nextPutAll: ') asByteArray' ] +] + +{ #category : 'encoding' } +GRPharoPlatform >> base64Decode: aString [ + ^ aString base64Decoded asString +] + +{ #category : 'encoding' } +GRPharoPlatform >> base64Encode: aByteArray [ + ^ aByteArray base64Encoded +] + +{ #category : 'bindings' } +GRPharoPlatform >> bindingOf: aClass [ + + ^ Smalltalk globals associationAt: aClass name +] + +{ #category : 'file library' } +GRPharoPlatform >> compile: aString into: aClass classified: aSymbol [ + aClass compile: aString classified: aSymbol +] + +{ #category : 'file library' } +GRPharoPlatform >> contentsOfFile: aString binary: aBoolean [ + ^ aBoolean + ifTrue:[ self fileStreamOn: aString do: [ :stream | stream contents ifNil:[ ByteArray new ] ] binary: aBoolean ] + ifFalse:[ self fileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean ] +] + +{ #category : 'file library' } +GRPharoPlatform >> deleteFile: aPathString [ + aPathString asFileReference delete +] + +{ #category : 'exceptions' } +GRPharoPlatform >> deprecationExceptionSet [ + "Answer the exception set that should considered besides WADeprecation." + ^ ExceptionSet new + add: Deprecation; + yourself +] + +{ #category : 'file library' } +GRPharoPlatform >> directoriesIn: aPathString [ + "Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString + must not include directory names that start with ." + ^ Array streamContents: [ :stream | + FileSystem disk directoriesAt: aPathString do: [ :each | + each basename first = $. ifFalse: [ + stream nextPut: each asFileReference fullName ] ] ] +] + +{ #category : 'private' } +GRPharoPlatform >> doSilently: aBlock [ + ^ SystemAnnouncer uniqueInstance suspendAllWhile: aBlock +] + +{ #category : 'file library' } +GRPharoPlatform >> ensureExistenceOfFolder: aString [ + "creates a folder named aString in the image directory" + FileSystem disk ensureCreateDirectory: aString +] + +{ #category : 'file library' } +GRPharoPlatform >> fileExists: aString [ + ^ aString asFileReference exists +] + +{ #category : 'file library' } +GRPharoPlatform >> filesIn: aPathString [ + "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString + must not include file names that start with ." + ^ Array streamContents: [ :stream | + FileSystem disk filesAt: aPathString do: [ :each | + each basename first = $. ifFalse: [ + stream nextPut: each asFileReference fullName ] ] ] +] + +{ #category : 'processes' } +GRPharoPlatform >> isProcessTerminated: aProcess [ + "Return a boolean indicating whether aProcess has been terminated." + ^ aProcess isTerminated +] + +{ #category : 'version info' } +GRPharoPlatform >> label [ + ^ 'Pharo' +] + +{ #category : 'file library' } +GRPharoPlatform >> localNameOf: aFilename [ + ^ (FileSystem disk resolveString: aFilename) basename +] + +{ #category : 'factory' } +GRPharoPlatform >> newRandom [ + "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: + #nextInt: - should answer a random integer in the interval [1, anInteger] + #randomFrom: - should answer a random element from the given collection + + Make sure that both methods are safe under heavy concurrent load. + + Used by Gemstone/S traditional Randoms which cannot be persisted.." + ^ GRPharoRandomProvider +] + +{ #category : 'files' } +GRPharoPlatform >> newTemporaryFile [ + + ^ self newTemporaryFileNamed: UUID new greaseString +] + +{ #category : 'files' } +GRPharoPlatform >> newTemporaryFileNamed: aName [ + + | newFile | + newFile := FileLocator temp / aName. + newFile exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ]. + ^ newFile pathString +] + +{ #category : 'file library' } +GRPharoPlatform >> newTemporaryFileReference [ + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + self + greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReference' + details: 'Use newTemporaryFile'. + ^ self newTemporaryFileReferenceNamed: UUID new asString +] + +{ #category : 'file library' } +GRPharoPlatform >> newTemporaryFileReferenceNamed: aName [ + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + self + greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReferenceNamed:' + details: 'Use newTemporaryFileNamed:'. + ^ FileLocator temp / aName +] + +{ #category : 'file library' } +GRPharoPlatform >> newline [ + ^ String cr +] + +{ #category : 'exceptions' } +GRPharoPlatform >> openDebuggerOn: anError [ + | process | + process := Processor activeProcess. + "If we are running in the UI process, we don't want to suspend the active process. The + error was presumably triggered while stepping in the Debugger. If we simply immediately + signal an UnhandledError, the debugger will catch this and display the signaling context. + It isn't perfect or pretty but it works." + (ProcessBrowser isUIProcess: process) + ifTrue: [ + UnhandledError signalForException: anError ] + ifFalse: [ + WorldState addDeferredUIMessage: [ + process + debug: anError signalerContext + title: anError description + full: true ]. + process suspend ] +] + +{ #category : 'file library' } +GRPharoPlatform >> pathSeparator [ + ^ String with: FileSystem disk delimiter +] + +{ #category : 'file library' } +GRPharoPlatform >> readFileStreamOn: aString do: aBlock binary: aBoolean [ + "Line end conversion is no longer done for ascii... TBD!" + + ^ aBoolean + ifTrue: [ aString asFileReference binaryReadStreamDo: aBlock ] + ifFalse: [ aString asFileReference readStreamEncoded: 'utf-8' do: aBlock ] +] + +{ #category : 'factory' } +GRPharoPlatform >> readWriteByteStream [ + "ByteArray based read write stream" + + ^ ReadWriteStream on: (ByteArray new: 4096) +] + +{ #category : 'factory' } +GRPharoPlatform >> readWriteCharacterStream [ + "String based read write stream" + + ^ ReadWriteStream on: (String new: 4096) +] + +{ #category : 'startup' } +GRPharoPlatform >> removeFromShutDownList: aClass [ + "Remove aClass from the shutdown list in the system." + + SessionManager default unregisterClassNamed: aClass name +] + +{ #category : 'startup' } +GRPharoPlatform >> removeFromStartUpList: aClass [ + "Remove aClass from the startup list in the system." + + SessionManager default unregisterClassNamed: aClass name +] + +{ #category : 'file library' } +GRPharoPlatform >> removeSelector: aSymbol from: aClass [ + aClass removeSelector: aSymbol +] + +{ #category : 'cryptography' } +GRPharoPlatform >> secureHashFor: aString [ + ^ SHA1 new hashMessage: aString +] + +{ #category : 'factory' } +GRPharoPlatform >> semaphoreClass [ + "used by Gemstone/S traditional Semaphores which cannot be persisted" + ^ Semaphore +] + +{ #category : 'files' } +GRPharoPlatform >> sizeOfFile: aString [ + + ^ aString asFileReference size +] + +{ #category : 'meta-object-protocol' } +GRPharoPlatform >> sourceCodeStringOf: aCompiledMethod [ + "Return a String with the source code for a compiled method." + + ^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode +] + +{ #category : 'exceptions' } +GRPharoPlatform >> stackDepth [ + + | depth current | + depth := 0. + current := thisContext. + [ current isNil ] whileFalse: [ + current := current sender. + depth := depth + 1 ]. + ^ depth - 1 +] + +{ #category : 'processes' } +GRPharoPlatform >> terminateProcess: aProcess [ + "Permanently terminate the process, unwinding first to execute #ensure: and #ifCurtailed: blocks." + aProcess terminate +] + +{ #category : 'processes' } +GRPharoPlatform >> thisContext [ + + ^ thisContext sender +] + +{ #category : 'private-file library' } +GRPharoPlatform >> useByteArrayLiterals [ + "whether ByteArray literals can/should be used" + ^ true +] + +{ #category : 'factory' } +GRPharoPlatform >> weakDictionaryOfSize: aNumber [ + ^ IdentityDictionary new: aNumber +] + +{ #category : 'file library' } +GRPharoPlatform >> write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString [ + "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" + "TODO: wantsLineEndConversion: true; ??" + ^ self + writeFileStreamOn: (aFolderString asFileReference / aFileNameString) ensureDelete pathString + do: [ :stream | stream nextPutAll: aStringOrByteArray ] + binary: aStringOrByteArray isString not +] + +{ #category : 'file library' } +GRPharoPlatform >> writeFileStreamOn: aString do: aBlock binary: aBoolean [ + ^ aBoolean + ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ] + ifFalse: [ aString asFileReference writeStreamEncoded: 'utf-8' do: aBlock ] +] diff --git a/repository/Grease-Pharo70-Core/GRPharoRandomProvider.class.st b/repository/Grease-Pharo70-Core/GRPharoRandomProvider.class.st new file mode 100644 index 00000000..cca134af --- /dev/null +++ b/repository/Grease-Pharo70-Core/GRPharoRandomProvider.class.st @@ -0,0 +1,52 @@ +Class { + #name : 'GRPharoRandomProvider', + #superclass : 'GRObject', + #classInstVars : [ + 'mutex', + 'generator' + ], + #category : 'Grease-Pharo70-Core', + #package : 'Grease-Pharo70-Core' +} + +{ #category : 'private' } +GRPharoRandomProvider class >> initialize [ + Smalltalk addToStartUpList: self. + self startUp +] + +{ #category : 'public' } +GRPharoRandomProvider class >> nextInt: anInteger [ + "Answer a random integer in the interval [1, anInteger]" + + ^ mutex critical: [ generator nextInt: anInteger ] +] + +{ #category : 'private' } +GRPharoRandomProvider class >> randomClass [ + ^ Random +] + +{ #category : 'public' } +GRPharoRandomProvider class >> randomFrom: aCollection [ + | random count | + random := self nextInt: aCollection size. + ^ aCollection isSequenceable + ifTrue: [ aCollection at: random ] + ifFalse: [ + count := 1. + aCollection do: [ :ea | + count = random ifTrue: [ ^ ea ]. + count := count + 1 ] ] +] + +{ #category : 'class initialization' } +GRPharoRandomProvider class >> startUp [ + generator := self randomClass new. + mutex := Semaphore forMutualExclusion +] + +{ #category : 'private' } +GRPharoRandomProvider class >> unload [ + GRPlatform current removeFromStartUpList: self +] diff --git a/repository/Grease-Pharo70-Core/GRPharoUtf8Codec.class.st b/repository/Grease-Pharo70-Core/GRPharoUtf8Codec.class.st new file mode 100644 index 00000000..3336fffc --- /dev/null +++ b/repository/Grease-Pharo70-Core/GRPharoUtf8Codec.class.st @@ -0,0 +1,91 @@ +" +A WAUtf8Codec is a WACodec optimized for UTF-8. +" +Class { + #name : 'GRPharoUtf8Codec', + #superclass : 'GRCodec', + #category : 'Grease-Pharo70-Core', + #package : 'Grease-Pharo70-Core' +} + +{ #category : 'private' } +GRPharoUtf8Codec class >> basicForEncoding: aString [ + ^ self new +] + +{ #category : 'accessing' } +GRPharoUtf8Codec class >> codecs [ + ^ Array with: self new +] + +{ #category : 'testing' } +GRPharoUtf8Codec class >> supportsEncoding: aString [ + ^ (#('utf-8' 'UTF-8') includes: aString) or: [ UTF8TextConverter encodingNames includes: aString ] +] + +{ #category : 'decoding' } +GRPharoUtf8Codec >> decode: aString [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | outStream byte1 byte2 byte3 byte4 unicode stream | + stream := aString readStream. + outStream := WriteStream on: (String new: aString size). + [ stream atEnd not ] whileTrue: [ + byte1 := stream next asInteger. + unicode := byte1. + (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. + (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next asInteger. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) + + (byte3 bitAnd: 63) ]. + (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next asInteger. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte4 := stream next asInteger. + (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + + ((byte2 bitAnd: 63) bitShift: 12) + + ((byte3 bitAnd: 63) bitShift: 6) + + (byte4 bitAnd: 63) ]. + unicode ifNil: [ self invalidUtf8 ]. + unicode = 16rFEFF "ignore BOM" ifFalse: [ + outStream nextPut: (Character codePoint: unicode) ]. + unicode := nil ]. + ^ outStream contents +] + +{ #category : 'conversion' } +GRPharoUtf8Codec >> decoderFor: aStream [ + ^ GRPharoUtf8CodecStream + on: aStream + converter: UTF8TextConverter new +] + +{ #category : 'conversion' } +GRPharoUtf8Codec >> encoderFor: aStream [ + ^ GRPharoUtf8CodecStream + on: aStream + converter: UTF8TextConverter new +] + +{ #category : 'private' } +GRPharoUtf8Codec >> invalidUtf8 [ + ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' +] + +{ #category : 'accessing' } +GRPharoUtf8Codec >> name [ + ^ 'utf-8' +] + +{ #category : 'accessing' } +GRPharoUtf8Codec >> url [ + ^ self +] diff --git a/repository/Grease-Pharo70-Core/GRPharoUtf8CodecStream.class.st b/repository/Grease-Pharo70-Core/GRPharoUtf8CodecStream.class.st new file mode 100644 index 00000000..9ec637f6 --- /dev/null +++ b/repository/Grease-Pharo70-Core/GRPharoUtf8CodecStream.class.st @@ -0,0 +1,166 @@ +" +A WAUtf8CodecStream is a WACodecStream optimized for UTF-8 performance in the case where most of the characters are ASCII. + +" +Class { + #name : 'GRPharoUtf8CodecStream', + #superclass : 'GRPharoConverterCodecStream', + #classVars : [ + 'Latin1ToUtf8Encodings', + 'Latin1ToUtf8Map' + ], + #category : 'Grease-Pharo70-Core', + #package : 'Grease-Pharo70-Core' +} + +{ #category : 'class initialization' } +GRPharoUtf8CodecStream class >> initialize [ + (Smalltalk hasClassNamed: #UTF8TextConverter) "guard for Squeak 37" + ifFalse: [ ^ self ]. + + Latin1ToUtf8Map := ByteArray new: 256. + Latin1ToUtf8Encodings := Array new: 256. + 0 to: 255 do:[ :index | + | latin1 utf8 | + latin1 := String with: (Character codePoint: index). + utf8 := latin1 convertToWithConverter: UTF8TextConverter new. + latin1 = utf8 + ifTrue:[ + Latin1ToUtf8Map at: index + 1 put: 0 ] "no translation needed" + ifFalse:[ + Latin1ToUtf8Map at: index + 1 put: 1. "no translation needed" + Latin1ToUtf8Encodings at: index + 1 put: utf8 ] ] +] + +{ #category : 'streaming' } +GRPharoUtf8CodecStream >> crlf [ + stream nextPut: Character cr. + stream nextPut: Character lf +] + +{ #category : 'private' } +GRPharoUtf8CodecStream >> encodeDefault: aString [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + 1 to: aString size by: 1 do: [ :index | + converter nextPut: (aString at: index) toStream: stream ] +] + +{ #category : 'private' } +GRPharoUtf8CodecStream >> encodeFast: aByteString [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | lastIndex nextIndex | + lastIndex := 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ifTrue: [ ^ stream nextPutAll: aByteString ]. + [ nextIndex > lastIndex ifTrue: [ + stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. + stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). + lastIndex := nextIndex + 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ] whileFalse. + stream greaseNext: aByteString size - lastIndex + 1 putAll: aByteString startingAt: lastIndex +] + +{ #category : 'streaming' } +GRPharoUtf8CodecStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + aCollection isByteString + ifTrue: [ self greaseNext: anInteger putAllFast: aCollection startingAt: startIndex ] + ifFalse: [ super greaseNext: anInteger putAll: aCollection startingAt: startIndex ] +] + +{ #category : 'private' } +GRPharoUtf8CodecStream >> greaseNext: anInteger putAllFast: aByteString startingAt: startIndex [ + | lastIndex nextIndex | + lastIndex := startIndex. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ifTrue: [ ^ stream greaseNext: anInteger putAll: aByteString startingAt: startIndex ]. + [ + nextIndex >= (startIndex + anInteger) ifTrue: [ + ^ stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ]. + nextIndex > lastIndex ifTrue: [ + stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. + stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). + lastIndex := nextIndex + 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + (nextIndex = 0 or: [ nextIndex >= (startIndex + anInteger) ]) ] whileFalse. + lastIndex >= (startIndex + anInteger) ifFalse: [ + stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ] +] + +{ #category : 'private' } +GRPharoUtf8CodecStream >> invalidUtf8 [ + ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' +] + +{ #category : 'streaming' } +GRPharoUtf8CodecStream >> next [ + ^ (self next: 1) first +] + +{ #category : 'streaming' } +GRPharoUtf8CodecStream >> next: anInteger [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | output byte1 byte2 byte3 byte4 unicode count alreadyWide | + output := ByteString new: anInteger. + count := 0. + alreadyWide := false. + [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ + byte1 := stream next. + unicode := byte1. + (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. + (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) + + (byte3 bitAnd: 63). + alreadyWide ifFalse: [ + output := WideString withAll: output. + alreadyWide := true ] ]. + (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte4 := stream next. + (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + + ((byte2 bitAnd: 63) bitShift: 12) + + ((byte3 bitAnd: 63) bitShift: 6) + + (byte4 bitAnd: 63). + alreadyWide ifFalse: [ + output := WideString withAll: output. + alreadyWide := true ] ]. + unicode ifNil: [ self invalidUtf8 ]. + unicode = 16rFEFF "ignore BOM" ifFalse: [ + count := count + 1. + output at: count put: (Character codePoint: unicode) ]. + unicode := nil ]. + ^ count < anInteger + ifTrue: [ output first: count ] + ifFalse: [ output ] +] + +{ #category : 'streaming' } +GRPharoUtf8CodecStream >> nextPut: aCharacter [ + | codePoint shouldEncode | + codePoint := aCharacter codePoint. + codePoint > 255 + ifTrue: [ ^ self nextPutAll: (String with: aCharacter) ]. + shouldEncode := Latin1ToUtf8Map at: codePoint + 1. + shouldEncode = 1 + ifTrue: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] + ifFalse: [ stream nextPut: aCharacter ] + +] + +{ #category : 'streaming' } +GRPharoUtf8CodecStream >> nextPutAll: aString [ + aString isByteString + ifTrue: [ self encodeFast: aString ] + ifFalse: [ self encodeDefault: aString ] +] diff --git a/repository/Grease-Pharo70-Core/GRSmallDictionary.extension.st b/repository/Grease-Pharo70-Core/GRSmallDictionary.extension.st new file mode 100644 index 00000000..c7991154 --- /dev/null +++ b/repository/Grease-Pharo70-Core/GRSmallDictionary.extension.st @@ -0,0 +1,23 @@ +Extension { #name : 'GRSmallDictionary' } + +{ #category : '*Grease-Pharo70-Core' } +GRSmallDictionary >> customizeExplorerContents [ + ^ true +] + +{ #category : '*Grease-Pharo70-Core' } +GRSmallDictionary >> explorerContents [ + | contents | + contents := OrderedCollection new. + self keysAndValuesDo: [ :key :value | + contents add: (ObjectExplorerWrapper + with: value + name: (key printString contractTo: 32) + model: self) ]. + ^ contents +] + +{ #category : '*Grease-Pharo70-Core' } +GRSmallDictionary >> hasContentsInExplorer [ + ^ true +] diff --git a/repository/Grease-Pharo70-Core/Interval.extension.st b/repository/Grease-Pharo70-Core/Interval.extension.st new file mode 100644 index 00000000..9dfcaa0b --- /dev/null +++ b/repository/Grease-Pharo70-Core/Interval.extension.st @@ -0,0 +1,9 @@ +Extension { #name : 'Interval' } + +{ #category : '*Grease-Pharo70-Core' } +Interval >> any [ + "#first (used by SequenceableCollection>>anyOne) is an accessor of + Interval and does not error on an empty Interval." + + ^ self at: 1 +] diff --git a/repository/Grease-Pharo70-Core/LargeInteger.extension.st b/repository/Grease-Pharo70-Core/LargeInteger.extension.st new file mode 100644 index 00000000..2909ffec --- /dev/null +++ b/repository/Grease-Pharo70-Core/LargeInteger.extension.st @@ -0,0 +1,21 @@ +Extension { #name : 'LargeInteger' } + +{ #category : '*Grease-Pharo70-Core' } +LargeInteger >> greaseByteAt: index [ + "Primitive. Answer the value of an indexable field in the receiver. LargePositiveInteger uses bytes of base two number, and each is a 'digit' base 256. Fail if the argument (the index) is not an Integer or is out of bounds. Essential. See Object documentation whatIsAPrimitive." + + + self greaseBytesCount < index + ifTrue: [^0] + ifFalse: [^super at: index] +] + +{ #category : '*Grease-Pharo70-Core' } +LargeInteger >> greaseBytesCount [ + "Primitive. Answer the number of indexable fields in the receiver. This + value is the same as the largest legal subscript. Essential. See Object + documentation whatIsAPrimitive." + + + self primitiveFailed +] diff --git a/repository/Grease-Pharo70-Core/MessageSend.extension.st b/repository/Grease-Pharo70-Core/MessageSend.extension.st new file mode 100644 index 00000000..6b27c27d --- /dev/null +++ b/repository/Grease-Pharo70-Core/MessageSend.extension.st @@ -0,0 +1,15 @@ +Extension { #name : 'MessageSend' } + +{ #category : '*Grease-Pharo70-Core' } +MessageSend >> argumentCount [ + ^ selector numArgs - self arguments size +] + +{ #category : '*Grease-Pharo70-Core' } +MessageSend >> valueWithPossibleArguments: anArray [ + "Evaluate the block represented by the receiver. + If the block requires one argument, use anArg, if it requires more than one, + fill up the rest with nils." + + ^ self valueWithEnoughArguments: anArray +] diff --git a/repository/Grease-Pharo70-Core/Number.extension.st b/repository/Grease-Pharo70-Core/Number.extension.st new file mode 100644 index 00000000..5a280730 --- /dev/null +++ b/repository/Grease-Pharo70-Core/Number.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Number' } + +{ #category : '*Grease-Pharo70-Core' } +Number >> milliseconds [ + ^ self milliSeconds +] diff --git a/repository/Grease-Pharo70-Core/Object.extension.st b/repository/Grease-Pharo70-Core/Object.extension.st new file mode 100644 index 00000000..f53e825c --- /dev/null +++ b/repository/Grease-Pharo70-Core/Object.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Object' } + +{ #category : '*Grease-Pharo70-Core' } +Object >> greaseString [ + ^ self asString +] diff --git a/repository/Grease-Pharo70-Core/Point.extension.st b/repository/Grease-Pharo70-Core/Point.extension.st new file mode 100644 index 00000000..435c022c --- /dev/null +++ b/repository/Grease-Pharo70-Core/Point.extension.st @@ -0,0 +1,16 @@ +Extension { #name : 'Point' } + +{ #category : '*Grease-Pharo70-Core' } +Point >> greaseString [ + "Reimplemented because in Pharo 1.4 + (4 @ 2) greaseString + ansers '(4@2)'" + ^ String streamContents: [ :stream | + x printOn: stream. + stream nextPut: $@. + (y notNil and: [ y negative ]) + ifTrue: [ + "Avoid ambiguous @- construct" + stream space ]. + y printOn: stream ] +] diff --git a/repository/Grease-Pharo70-Core/PositionableStream.extension.st b/repository/Grease-Pharo70-Core/PositionableStream.extension.st new file mode 100644 index 00000000..e4583057 --- /dev/null +++ b/repository/Grease-Pharo70-Core/PositionableStream.extension.st @@ -0,0 +1,8 @@ +Extension { #name : 'PositionableStream' } + +{ #category : '*Grease-Pharo70-Core' } +PositionableStream >> greaseUpToAll: aCollection [ + "Needed for Seaside ports to other dialects where #upToAll: may have + different semantics" + ^ self upToAll: aCollection +] diff --git a/repository/Grease-Pharo70-Core/ScaledDecimal.extension.st b/repository/Grease-Pharo70-Core/ScaledDecimal.extension.st new file mode 100644 index 00000000..3ae335cb --- /dev/null +++ b/repository/Grease-Pharo70-Core/ScaledDecimal.extension.st @@ -0,0 +1,15 @@ +Extension { #name : 'ScaledDecimal' } + +{ #category : '*Grease-Pharo70-Core' } +ScaledDecimal >> encodeOn: aDocument [ + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + converter print: self on: aDocument +] + +{ #category : '*Grease-Pharo70-Core' } +ScaledDecimal >> greaseString [ + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + ^ converter print: self +] diff --git a/repository/Grease-Pharo70-Core/SequenceableCollection.extension.st b/repository/Grease-Pharo70-Core/SequenceableCollection.extension.st new file mode 100644 index 00000000..3592cf7d --- /dev/null +++ b/repository/Grease-Pharo70-Core/SequenceableCollection.extension.st @@ -0,0 +1,32 @@ +Extension { #name : 'SequenceableCollection' } + +{ #category : '*Grease-Pharo70-Core' } +SequenceableCollection >> beginsWithSubCollection: aSequenceableCollection [ + "Some platforms implement #beginsWith: to answer true for an empty argument." + ^ self beginsWith: aSequenceableCollection +] + +{ #category : '*Grease-Pharo70-Core' } +SequenceableCollection >> endsWithSubCollection: aSequenceableCollection [ + "Some platforms implement #endsWith: to answer true for an empty argument." + ^ self endsWith: aSequenceableCollection +] + +{ #category : '*Grease-Pharo70-Core' } +SequenceableCollection >> greaseBeginsWith: aSequenceableCollection [ + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self beginsWith: aSequenceableCollection +] + +{ #category : '*Grease-Pharo70-Core' } +SequenceableCollection >> greaseEndsWith: aSequenceableCollection [ + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self endsWith: aSequenceableCollection +] + +{ #category : '*Grease-Pharo70-Core' } +SequenceableCollection >> sorted [ + ^ self sorted: [ :a :b | a <= b ] +] diff --git a/repository/Grease-Pharo70-Core/SmallInteger.extension.st b/repository/Grease-Pharo70-Core/SmallInteger.extension.st new file mode 100644 index 00000000..27826bf6 --- /dev/null +++ b/repository/Grease-Pharo70-Core/SmallInteger.extension.st @@ -0,0 +1,44 @@ +Extension { #name : 'SmallInteger' } + +{ #category : '*Grease-Pharo70-Core' } +SmallInteger >> greaseByteAt: n [ + "Answer the value of an apparent byte-indexable field in the receiver, + analogous to the large integers, which are organized as bytes." + + n = 1 + ifTrue: [ + "Negate carefully in case the receiver is SmallInteger minVal" + ^ self < 0 + ifTrue: [ -256 - self bitAnd: 255 ] + ifFalse: [ self bitAnd: 255 ] ]. + ^ self < 0 + ifTrue: [ (-256 - self bitShift: -8) + 1 byteAt: n - 1 ] + ifFalse: [ (self bitShift: 8 - (n bitShift: 3)) bitAnd: 255 ] +] + +{ #category : '*Grease-Pharo70-Core' } +SmallInteger >> greaseBytesCount [ + "Answer the number of indexable fields in the receiver. This value is the + same as the largest legal subscript. Included so that a SmallInteger can + behave like a LargePositiveInteger or LargeNegativeInteger." + + "32768 == (1 bitShift: 15)" + "32768 bytesCount >>> 2" + + "65536 == (1 bitShift: 16)" + "65536 bytesCount >>> 3" + + | value length | + length := 1. + value := self. + value >= 0 + ifTrue: + [[value > 255] whileTrue: + [value := value bitShift: -8. + length := length + 1]] + ifFalse: + [[value < -255] whileTrue: + [value := value bitShift: -8. + length := length + 1]]. + ^length +] diff --git a/repository/Grease-Pharo70-Core/SocketStream.extension.st b/repository/Grease-Pharo70-Core/SocketStream.extension.st new file mode 100644 index 00000000..baa0e82d --- /dev/null +++ b/repository/Grease-Pharo70-Core/SocketStream.extension.st @@ -0,0 +1,16 @@ +Extension { #name : 'SocketStream' } + +{ #category : '*Grease-Pharo70-Core' } +SocketStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + "Put a String or a ByteArray onto the stream starting at the given position. + Currently a large collection will allocate a large buffer." + + | toPut | + anInteger = 0 ifTrue: [ + ^ aCollection ]. + toPut := binary ifTrue: [ aCollection asByteArray ] ifFalse: [ aCollection asString ]. + self adjustOutBuffer: anInteger. + outBuffer replaceFrom: outNextToWrite to: outNextToWrite + anInteger - 1 with: toPut startingAt: startIndex. + outNextToWrite := outNextToWrite + anInteger. + self checkFlush +] diff --git a/repository/Grease-Pharo70-Core/Symbol.extension.st b/repository/Grease-Pharo70-Core/Symbol.extension.st new file mode 100644 index 00000000..80b814f5 --- /dev/null +++ b/repository/Grease-Pharo70-Core/Symbol.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Symbol' } + +{ #category : '*Grease-Pharo70-Core' } +Symbol >> greaseAsMutator [ + ^ self asMutator +] diff --git a/repository/Grease-Pharo70-Core/WriteStream.extension.st b/repository/Grease-Pharo70-Core/WriteStream.extension.st new file mode 100644 index 00000000..74c7aef8 --- /dev/null +++ b/repository/Grease-Pharo70-Core/WriteStream.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'WriteStream' } + +{ #category : '*Grease-Pharo70-Core' } +WriteStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + "Store the next anInteger elements from the given collection." + ^ self next: anInteger putAll: aCollection startingAt: startIndex +] diff --git a/repository/Grease-Pharo70-Core/package.st b/repository/Grease-Pharo70-Core/package.st new file mode 100644 index 00000000..1b7b3d34 --- /dev/null +++ b/repository/Grease-Pharo70-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Pharo70-Core' } diff --git a/repository/Grease-Pharo90-Core.package/.filetree b/repository/Grease-Pharo90-Core.package/.filetree deleted file mode 100644 index 57a67973..00000000 --- a/repository/Grease-Pharo90-Core.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Behavior.extension/instance/fullName.st b/repository/Grease-Pharo90-Core.package/Behavior.extension/instance/fullName.st deleted file mode 100644 index 7868665b..00000000 --- a/repository/Grease-Pharo90-Core.package/Behavior.extension/instance/fullName.st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo90-Core -fullName - "In VW, will include the namespace" - - ^ self name \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Behavior.extension/properties.json b/repository/Grease-Pharo90-Core.package/Behavior.extension/properties.json deleted file mode 100644 index c4116c4c..00000000 --- a/repository/Grease-Pharo90-Core.package/Behavior.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Behavior" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo90-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index 11c37059..00000000 --- a/repository/Grease-Pharo90-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,11 +0,0 @@ -*Grease-Pharo90-Core -valueWithPossibleArguments: anArray - | args | - (anArray size == self numArgs) - ifTrue: [ ^ self valueWithArguments: anArray ]. - args := Array new: self numArgs. - args replaceFrom: 1 - to: (anArray size min: args size) - with: anArray - startingAt: 1. - ^ self valueWithArguments: args \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/BlockClosure.extension/properties.json b/repository/Grease-Pharo90-Core.package/BlockClosure.extension/properties.json deleted file mode 100644 index 2190e5e2..00000000 --- a/repository/Grease-Pharo90-Core.package/BlockClosure.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "BlockClosure" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-Pharo90-Core.package/ByteArray.extension/instance/greaseString.st deleted file mode 100644 index eaca12f4..00000000 --- a/repository/Grease-Pharo90-Core.package/ByteArray.extension/instance/greaseString.st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo90-Core -greaseString - "ByteArrays should not automatically be converted to Strings. You should use a GRCodec for this." - ^ self printString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/ByteArray.extension/properties.json b/repository/Grease-Pharo90-Core.package/ByteArray.extension/properties.json deleted file mode 100644 index f81bcb8d..00000000 --- a/repository/Grease-Pharo90-Core.package/ByteArray.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "ByteArray" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-Pharo90-Core.package/Character.extension/instance/greaseInteger.st deleted file mode 100644 index 2b30e569..00000000 --- a/repository/Grease-Pharo90-Core.package/Character.extension/instance/greaseInteger.st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo90-Core -greaseInteger - "Answer an unicode code point of the receiver." - ^ self charCode \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Character.extension/properties.json b/repository/Grease-Pharo90-Core.package/Character.extension/properties.json deleted file mode 100644 index 5219281d..00000000 --- a/repository/Grease-Pharo90-Core.package/Character.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Character" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Collection.extension/instance/any.st b/repository/Grease-Pharo90-Core.package/Collection.extension/instance/any.st deleted file mode 100644 index 77da6aff..00000000 --- a/repository/Grease-Pharo90-Core.package/Collection.extension/instance/any.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -any - ^ self anyOne \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Collection.extension/properties.json b/repository/Grease-Pharo90-Core.package/Collection.extension/properties.json deleted file mode 100644 index 48f9f8d9..00000000 --- a/repository/Grease-Pharo90-Core.package/Collection.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Collection" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Color.extension/instance/asHTMLColor.st b/repository/Grease-Pharo90-Core.package/Color.extension/instance/asHTMLColor.st deleted file mode 100644 index 096e985a..00000000 --- a/repository/Grease-Pharo90-Core.package/Color.extension/instance/asHTMLColor.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -asHTMLColor - ^'#', self asHexString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Color.extension/properties.json b/repository/Grease-Pharo90-Core.package/Color.extension/properties.json deleted file mode 100644 index 8b86fc95..00000000 --- a/repository/Grease-Pharo90-Core.package/Color.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Color" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-Pharo90-Core.package/Duration.extension/class/milliseconds..st deleted file mode 100644 index 63cfe5db..00000000 --- a/repository/Grease-Pharo90-Core.package/Duration.extension/class/milliseconds..st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -milliseconds: anInteger - ^ self milliSeconds: anInteger \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-Pharo90-Core.package/Duration.extension/instance/asMilliseconds.st deleted file mode 100644 index c7a93f97..00000000 --- a/repository/Grease-Pharo90-Core.package/Duration.extension/instance/asMilliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -asMilliseconds - ^ self asMilliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-Pharo90-Core.package/Duration.extension/instance/milliseconds.st deleted file mode 100644 index a7808f55..00000000 --- a/repository/Grease-Pharo90-Core.package/Duration.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -milliseconds - ^ nanos quo: NanosInMillisecond \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Duration.extension/properties.json b/repository/Grease-Pharo90-Core.package/Duration.extension/properties.json deleted file mode 100644 index d141a092..00000000 --- a/repository/Grease-Pharo90-Core.package/Duration.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Duration" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo90-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index b309c2df..00000000 --- a/repository/Grease-Pharo90-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - stream greaseNext: anInteger putAll: aCollection startingAt: startIndex \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRDelegatingStream.extension/properties.json b/repository/Grease-Pharo90-Core.package/GRDelegatingStream.extension/properties.json deleted file mode 100644 index 5ec29ea0..00000000 --- a/repository/Grease-Pharo90-Core.package/GRDelegatingStream.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRDelegatingStream" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/README.md b/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/class/defaultValue.st b/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/class/defaultValue.st deleted file mode 100644 index 3d7f6377..00000000 --- a/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/class/defaultValue.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultValue - ^ nil \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/class/use.during..st b/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/class/use.during..st deleted file mode 100644 index 1e03f82f..00000000 --- a/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/class/use.during..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -use: anObject during: aBlock - ^ self - value: anObject - during: aBlock \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/instance/default.st b/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/instance/default.st deleted file mode 100644 index 59cb6f1b..00000000 --- a/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/instance/default.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -default - ^ self class defaultValue \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/properties.json deleted file mode 100644 index 30171981..00000000 --- a/repository/Grease-Pharo90-Core.package/GRDynamicVariable.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "DynamicVariable", - "category" : "Grease-Pharo90-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRDynamicVariable", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPackage.extension/class/greasePharo70Core.st b/repository/Grease-Pharo90-Core.package/GRPackage.extension/class/greasePharo70Core.st deleted file mode 100644 index d3a67df9..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPackage.extension/class/greasePharo70Core.st +++ /dev/null @@ -1,7 +0,0 @@ -*Grease-Pharo90-Core -greasePharo70Core - ^ self new - name: 'Grease-Pharo90-Core'; - addDependency: 'Grease-Core'; - url: #greaseUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPackage.extension/properties.json b/repository/Grease-Pharo90-Core.package/GRPackage.extension/properties.json deleted file mode 100644 index ae522a7e..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRPackage" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/README.md deleted file mode 100644 index 7620280e..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/README.md +++ /dev/null @@ -1,7 +0,0 @@ -A WAConverterCodecStream is a WACodec stream around a TextConverter. It is always in text mode. - -Instance Variables - converter: - -converter - - the TextConverter used to do the encoding conversion diff --git a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st deleted file mode 100644 index de8cd791..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/class/on.converter..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -on: aStream converter: aConverter - ^ self basicNew initializeOn: aStream converter: aConverter \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 8321e299..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -greaseNext: anInteger putAll: aCollection startingAt: startIndex - self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1) \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st deleted file mode 100644 index c380485d..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/initializeOn.converter..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeOn: aStream converter: aConverter - self initializeOn: aStream. - converter := aConverter \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/next..st b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/next..st deleted file mode 100644 index ef51837b..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/next..st +++ /dev/null @@ -1,8 +0,0 @@ -streaming -next: anInteger - | writeStream | - writeStream := WriteStream on: (String new: anInteger). - anInteger timesRepeat: [ - writeStream nextPut: (self next - ifNil: [ ^ writeStream contents ]) ]. - ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/next.st b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/next.st deleted file mode 100644 index eee99a1a..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/next.st +++ /dev/null @@ -1,6 +0,0 @@ -streaming -next - | character | - character := converter nextFromStream: stream. - ^ character isNil - ifFalse: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st deleted file mode 100644 index e65f56c4..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPut: aCharacter - converter nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st deleted file mode 100644 index a30c4507..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPutAll: aString - aString asString do: [ :each | self nextPut: each ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/properties.json deleted file mode 100644 index 85b80cc6..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoConverterCodecStream.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "pmm 6/25/2012 20:22", - "super" : "GRCodecStream", - "category" : "Grease-Pharo90-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "converter" - ], - "name" : "GRPharoConverterCodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/basicForEncoding..st deleted file mode 100644 index d4c4a74b..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/basicForEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -private -basicForEncoding: aString - ^ self new \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/codecs.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/codecs.st deleted file mode 100644 index 6e52e620..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/codecs.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -codecs - ^ GRPlatform current utf8CodecClass == self - ifTrue:[ Array with: self new ] - ifFalse: [ Array new ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/supportsEncoding..st deleted file mode 100644 index cf74d916..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/class/supportsEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -supportsEncoding: aString - ^ GRPlatform current utf8CodecClass == self and: [(#('utf-8' 'UTF-8') includes: aString) or: [ UTF8TextConverter encodingNames includes: aString ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decode..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decode..st deleted file mode 100644 index 60eea74c..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decode..st +++ /dev/null @@ -1,36 +0,0 @@ -convenience -decode: aString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | outStream byte1 byte2 byte3 byte4 unicode stream | - stream := aString readStream. - outStream := WriteStream on: (String new: aString size). - [ stream atEnd not ] whileTrue: [ - byte1 := stream next asInteger. - unicode := byte1. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next asInteger. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63) ]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next asInteger. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte4 := stream next asInteger. - (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63) ]. - unicode ifNil: [ self invalidUtf8 ]. - unicode = 16rFEFF "ignore BOM" ifFalse: [ - outStream nextPut: (Character codePoint: unicode) ]. - unicode := nil ]. - ^ outStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st deleted file mode 100644 index 9a221440..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -convenience -decoderFor: aStream - ^ GRPharoDeprecatedUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encodedStringClass.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encodedStringClass.st deleted file mode 100644 index 97aca951..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encodedStringClass.st +++ /dev/null @@ -1,3 +0,0 @@ -conversion -encodedStringClass - ^ String \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st deleted file mode 100644 index ad1614eb..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -convenience -encoderFor: aStream - ^ GRPharoDeprecatedUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/invalidUtf8.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/invalidUtf8.st deleted file mode 100644 index bf9b0111..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -convenience -invalidUtf8 - ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/name.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/name.st deleted file mode 100644 index 7886c830..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'utf-8' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/url.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/url.st deleted file mode 100644 index 4696d714..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/instance/url.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -url - ^ self \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/properties.json deleted file mode 100644 index e8fa7dfa..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8Codec.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRCodec", - "category" : "Grease-Pharo90-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoDeprecatedUtf8Codec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md deleted file mode 100644 index 08323f18..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WAUtf8CodecStream is a WACodecStream optimized for UTF-8 performance in the case where most of the characters are ASCII. diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/class/initialize.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/class/initialize.st deleted file mode 100644 index b8d03990..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/class/initialize.st +++ /dev/null @@ -1,17 +0,0 @@ -class initialization -initialize - (Smalltalk hasClassNamed: #UTF8TextConverter) "guard for Squeak 37" - ifFalse: [ ^ self ]. - - Latin1ToUtf8Map := ByteArray new: 256. - Latin1ToUtf8Encodings := Array new: 256. - 0 to: 255 do:[ :index | - | latin1 utf8 | - latin1 := String with: (Character codePoint: index). - utf8 := latin1 convertToWithConverter: UTF8TextConverter new. - latin1 = utf8 - ifTrue:[ - Latin1ToUtf8Map at: index + 1 put: 0 ] "no translation needed" - ifFalse:[ - Latin1ToUtf8Map at: index + 1 put: 1. "no translation needed" - Latin1ToUtf8Encodings at: index + 1 put: utf8 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st deleted file mode 100644 index ba607092..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/crlf.st +++ /dev/null @@ -1,4 +0,0 @@ -streaming -crlf - stream nextPut: Character cr. - stream nextPut: Character lf \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeDefault..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeDefault..st deleted file mode 100644 index cdd58a41..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeDefault..st +++ /dev/null @@ -1,5 +0,0 @@ -private -encodeDefault: aString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - 1 to: aString size by: 1 do: [ :index | - converter nextPut: (aString at: index) toStream: stream ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeFast..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeFast..st deleted file mode 100644 index 9a8a0dc3..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/encodeFast..st +++ /dev/null @@ -1,14 +0,0 @@ -private -encodeFast: aByteString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | lastIndex nextIndex | - lastIndex := 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ifTrue: [ ^ stream nextPutAll: aByteString ]. - [ nextIndex > lastIndex ifTrue: [ - stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. - stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). - lastIndex := nextIndex + 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ] whileFalse. - stream greaseNext: aByteString size - lastIndex + 1 putAll: aByteString startingAt: lastIndex \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index cd78fbe0..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -greaseNext: anInteger putAll: aCollection startingAt: startIndex - aCollection isByteString - ifTrue: [ self greaseNext: anInteger putAllFast: aCollection startingAt: startIndex ] - ifFalse: [ super greaseNext: anInteger putAll: aCollection startingAt: startIndex ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st deleted file mode 100644 index a4c114cb..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st +++ /dev/null @@ -1,17 +0,0 @@ -private -greaseNext: anInteger putAllFast: aByteString startingAt: startIndex - | lastIndex nextIndex | - lastIndex := startIndex. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ifTrue: [ ^ stream greaseNext: anInteger putAll: aByteString startingAt: startIndex ]. - [ - nextIndex >= (startIndex + anInteger) ifTrue: [ - ^ stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ]. - nextIndex > lastIndex ifTrue: [ - stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. - stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). - lastIndex := nextIndex + 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - (nextIndex = 0 or: [ nextIndex >= (startIndex + anInteger) ]) ] whileFalse. - lastIndex >= (startIndex + anInteger) ifFalse: [ - stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st deleted file mode 100644 index e4481c22..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next..st deleted file mode 100644 index 116f524d..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next..st +++ /dev/null @@ -1,46 +0,0 @@ -streaming -next: anInteger - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | output byte1 byte2 byte3 byte4 unicode count alreadyWide | - output := ByteString new: anInteger. - count := 0. - alreadyWide := false. - [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ - byte1 := stream next. - unicode := byte1. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63). - alreadyWide ifFalse: [ - output := WideString withAll: output. - alreadyWide := true ] ]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte4 := stream next. - (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63). - alreadyWide ifFalse: [ - output := WideString withAll: output. - alreadyWide := true ] ]. - unicode ifNil: [ self invalidUtf8 ]. - unicode = 16rFEFF "ignore BOM" ifFalse: [ - count := count + 1. - output at: count put: (Character codePoint: unicode) ]. - unicode := nil ]. - ^ count < anInteger - ifTrue: [ output first: count ] - ifFalse: [ output ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st deleted file mode 100644 index 4363f086..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - ^ (self next: 1) first \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st deleted file mode 100644 index ad2d94ab..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,11 +0,0 @@ -streaming -nextPut: aCharacter - | codePoint shouldEncode | - codePoint := aCharacter codePoint. - codePoint > 255 - ifTrue: [ ^ self nextPutAll: (String with: aCharacter) ]. - shouldEncode := Latin1ToUtf8Map at: codePoint + 1. - shouldEncode = 1 - ifTrue: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] - ifFalse: [ stream nextPut: aCharacter ] - \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPutAll..st deleted file mode 100644 index b9136110..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -nextPutAll: aString - aString isByteString - ifTrue: [ self encodeFast: aString ] - ifFalse: [ self encodeDefault: aString ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json deleted file mode 100644 index 789907b9..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoDeprecatedUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "pmm 2/20/2009 12:27", - "super" : "GRPharoConverterCodecStream", - "category" : "Grease-Pharo90-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "Latin1ToUtf8Encodings", - "Latin1ToUtf8Map" - ], - "instvars" : [ ], - "name" : "GRPharoDeprecatedUtf8CodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st deleted file mode 100644 index f6b18bd4..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/basicForEncoding..st +++ /dev/null @@ -1,5 +0,0 @@ -private -basicForEncoding: aString - (self supportsEncoding: aString) - ifFalse: [ self unsupportedEncoding: aString ]. - ^ self basicNew initializeWithName: aString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/codecs.st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/codecs.st deleted file mode 100644 index f1293d05..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/codecs.st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -codecs - ^ (TextConverter allEncodingNames - select: [ :each | - "exclude UFT-8 which is handeled by WAUtf8Codec" - self supportsEncoding: each ]) - collect: [ :each | - self basicForEncoding: each greaseString ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st deleted file mode 100644 index d1c6d00b..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/supportedEncodingNames.st +++ /dev/null @@ -1,8 +0,0 @@ -private -supportedEncodingNames - "answers the names of the encodings supported by this class" - - ^ (TextConverter allSubclasses gather: [ :class | class encodingNames ]) asSet asOrderedCollection - removeAllFoundIn: GRPharoLatin1Codec supportedEncodingNames; - removeAllFoundIn: UTF8TextConverter encodingNames; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st deleted file mode 100644 index 43a27325..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/class/supportsEncoding..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -supportsEncoding: aString - "Answer whether the the given encoding name is supported." - ^ self supportedEncodingNames includes: aString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/converter.st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/converter.st deleted file mode 100644 index 02b8754b..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/converter.st +++ /dev/null @@ -1,3 +0,0 @@ -private -converter - ^ TextConverter newForEncoding: self name \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st deleted file mode 100644 index be53dfea..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/decoderFor..st +++ /dev/null @@ -1,3 +0,0 @@ -conversion -decoderFor: aStream - ^ self encoderFor: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st deleted file mode 100644 index 94f2fc13..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoConverterCodecStream - on: aStream - converter: self converter \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st deleted file mode 100644 index fe95783c..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/initializeWithName..st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initializeWithName: aString - self initialize. - name := aString. - urlCodec := (#('iso-8859-15' 'cp-1252') includes: aString) - ifFalse: [ GRCodec forEncoding: 'utf-8' ] - ifTrue: [ self ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/name.st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/name.st deleted file mode 100644 index 22077c20..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ name \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/url.st b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/url.st deleted file mode 100644 index 232ad239..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/instance/url.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -url - "RFC 3986: When a new URI scheme defines a component that represents textual data consisting of characters from the Universal Character Set [UCS], the data should first be encoded as octets according to the UTF-8 character encoding." - - ^ urlCodec \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/properties.json deleted file mode 100644 index 03988175..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoGenericCodec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRCodec", - "category" : "Grease-Pharo90-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "name", - "urlCodec" - ], - "name" : "GRPharoGenericCodec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/README.md deleted file mode 100644 index 3f437d62..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A GRPharoLatin1Codec is a WACodec optimized for ISO-8859-1 (direct byte to character mapping). \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st deleted file mode 100644 index f6b18bd4..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/basicForEncoding..st +++ /dev/null @@ -1,5 +0,0 @@ -private -basicForEncoding: aString - (self supportsEncoding: aString) - ifFalse: [ self unsupportedEncoding: aString ]. - ^ self basicNew initializeWithName: aString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/codecs.st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/codecs.st deleted file mode 100644 index 7a96b703..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/codecs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecs - ^ Array with: (self basicForEncoding: 'iso-8859-1') \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st deleted file mode 100644 index e5dca068..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/supportedEncodingNames.st +++ /dev/null @@ -1,3 +0,0 @@ -private -supportedEncodingNames - ^ #('iso-8859-1' 'ISO-8859-1' 'latin-1' 'latin1') \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st deleted file mode 100644 index bc591573..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/class/supportsEncoding..st +++ /dev/null @@ -1,4 +0,0 @@ -private -supportsEncoding: aString - "Answer whether the the given encoding name is supported." - ^ self supportedEncodingNames includes: aString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/decode..st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/decode..st deleted file mode 100644 index 5f73b526..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/decode..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -decode: aStringOrByteArray - "Overridden for efficencey." - - ^ aStringOrByteArray asString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st deleted file mode 100644 index 256dbac4..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -decoderFor: aReadStream - "wrap to avoid String vs ByteArray issues" - ^ GRPharoLatin1CodecStream on: aReadStream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st deleted file mode 100644 index 20102849..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -encoderFor: aWriteStream - "wrap to avoid String vs ByteArray issues" - ^ GRPharoLatin1CodecStream on: aWriteStream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st deleted file mode 100644 index b0256973..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/initializeWithName..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeWithName: aString - self initialize. - name := aString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/name.st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/name.st deleted file mode 100644 index 22077c20..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ name \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/properties.json deleted file mode 100644 index fd56786b..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoLatin1Codec.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRNullCodec", - "category" : "Grease-Pharo90-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "name" - ], - "name" : "GRPharoLatin1Codec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/README.md deleted file mode 100644 index e1c2471b..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A GRPharoLatin1CodecStream is a WACodecStream optimized for ISO-8859-1 (direct byte to character mapping). \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/instance/next..st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/instance/next..st deleted file mode 100644 index a734bc76..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/instance/next..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next: anInteger - ^ (stream next: anInteger) asString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/instance/next.st b/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/instance/next.st deleted file mode 100644 index bf70df58..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - ^ Character value: stream next \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/properties.json deleted file mode 100644 index c839ca49..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoLatin1CodecStream.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRNullCodecStream", - "category" : "Grease-Pharo90-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoLatin1CodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/README.md deleted file mode 100644 index f0375aac..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WASqueakPlatform is the Squeak implementation of SeasidePlatformSupport, the Seaside class that provides functionality that can not be implemented in a platform independent way. diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initialize.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initialize.st deleted file mode 100644 index 0c86564c..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -class initialization -initialize - self initializeXmlTable. - self initializeUrlTable. - self select \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st deleted file mode 100644 index 9abf56b7..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initializeUrlTable.st +++ /dev/null @@ -1,7 +0,0 @@ -class initialization -initializeUrlTable - UrlTable := ByteArray new: 256. - 1 to: 256 do: [ :index | - ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~' includes: (Character codePoint: index - 1)) - ifTrue: [ UrlTable at: index put: 0 ] - ifFalse: [ UrlTable at: index put: 1 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st deleted file mode 100644 index 830a5595..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/initializeXmlTable.st +++ /dev/null @@ -1,7 +0,0 @@ -class initialization -initializeXmlTable - XmlTable := ByteArray new: 256. - 1 to: 256 do: [ :index | - ('"<&>' includes: (Character codePoint: index - 1)) - ifTrue: [ XmlTable at: index put: 1 ] - ifFalse: [ XmlTable at: index put: 0 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/unload.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/unload.st deleted file mode 100644 index 4c8dd650..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/class/unload.st +++ /dev/null @@ -1,3 +0,0 @@ -class initialization -unload - self unselect \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st deleted file mode 100644 index f8d3ad5f..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/addToShutDownList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -addToShutDownList: anObject - "Add anObject to the shutdown-list of the system. On shutdown the message #shutDown will be sent to anObject." - - Smalltalk addToShutDownList: anObject \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st deleted file mode 100644 index c4ab1dea..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/addToStartUpList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -addToStartUpList: aClass - "Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject." - - SessionManager default registerUserClassNamed: aClass name. \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st deleted file mode 100644 index ba4a0727..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArray.named..st +++ /dev/null @@ -1,6 +0,0 @@ -file library -asMethodReturningByteArray: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a ByteArray" - ^ self useByteArrayLiterals - ifTrue: [ self asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol ] - ifFalse: [ self asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st deleted file mode 100644 index 90bb405c..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st +++ /dev/null @@ -1,10 +0,0 @@ -private-file library -asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array using VW/NewCompiler byte array literal syntax." - ^ String streamContents: [ :stream | - stream nextPutAll: aSymbol; nextPut: Character cr. - stream tab; nextPutAll: '^ #['. - aByteArrayOrString asByteArray - do: [ :each | each printOn: stream ] - separatedBy: [ stream space ]. - stream nextPutAll: ']' ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st deleted file mode 100644 index a1f9fe07..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st +++ /dev/null @@ -1,10 +0,0 @@ -private-file library -asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array and caching this array in a literal array of size 1." - ^ String streamContents: [ :stream | - stream nextPutAll: aSymbol; nextPut: Character cr. - stream tab; nextPutAll: '^ #('. - aByteArrayOrString asByteArray - do: [ :each | each printOn: stream ] - separatedBy: [ stream space ]. - stream nextPutAll: ') asByteArray' ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/base64Decode..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/base64Decode..st deleted file mode 100644 index 3fb71b1a..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/base64Decode..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -base64Decode: aString - ^ aString base64Decoded asString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/base64Encode..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/base64Encode..st deleted file mode 100644 index 4cb93d20..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/base64Encode..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -base64Encode: aByteArray - ^ aByteArray base64Encoded \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/bindingOf..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/bindingOf..st deleted file mode 100644 index e878c01b..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/bindingOf..st +++ /dev/null @@ -1,4 +0,0 @@ -bindings -bindingOf: aClass - - ^ Smalltalk globals associationAt: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st deleted file mode 100644 index 45c37a45..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/compile.into.classified..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -compile: aString into: aClass classified: aSymbol - aClass compile: aString classified: aSymbol \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st deleted file mode 100644 index 01aff905..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st +++ /dev/null @@ -1,3 +0,0 @@ -files -contentsOfFile: aString binary: aBoolean - ^ self readFileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deleteFile..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deleteFile..st deleted file mode 100644 index d3c82d99..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deleteFile..st +++ /dev/null @@ -1,3 +0,0 @@ -files -deleteFile: aPathString - aPathString asFileReference delete \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st deleted file mode 100644 index e402d141..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deprecationExceptionSet.st +++ /dev/null @@ -1,6 +0,0 @@ -exceptions -deprecationExceptionSet - "Answer the exception set that should considered besides WADeprecation." - ^ ExceptionSet new - add: Deprecation; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/directoriesIn..st deleted file mode 100644 index a6e6c3d1..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/directoriesIn..st +++ /dev/null @@ -1,8 +0,0 @@ -files -directoriesIn: aPathString - "Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString - must not include directory names that start with ." - ^ Array streamContents: [ :stream | - FileSystem disk directoriesAt: aPathString do: [ :each | - each basename first = $. ifFalse: [ - stream nextPut: each asFileReference fullName ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/doSilently..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/doSilently..st deleted file mode 100644 index 9ea296ff..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/doSilently..st +++ /dev/null @@ -1,3 +0,0 @@ -private -doSilently: aBlock - ^ SystemAnnouncer uniqueInstance suspendAllWhile: aBlock \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st deleted file mode 100644 index ef505d70..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st +++ /dev/null @@ -1,4 +0,0 @@ -files -ensureExistenceOfFolder: aString - "creates a folder named aString in the image directory" - FileSystem disk ensureCreateDirectory: aString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/fileExists..st deleted file mode 100644 index e12b7927..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/fileExists..st +++ /dev/null @@ -1,3 +0,0 @@ -files -fileExists: aString - ^ aString asFileReference exists \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/filesIn..st deleted file mode 100644 index 230ea184..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/filesIn..st +++ /dev/null @@ -1,8 +0,0 @@ -files -filesIn: aPathString - "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString - must not include file names that start with ." - ^ Array streamContents: [ :stream | - FileSystem disk filesAt: aPathString do: [ :each | - each basename first = $. ifFalse: [ - stream nextPut: each asFileReference fullName ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st deleted file mode 100644 index 03b50778..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/isProcessTerminated..st +++ /dev/null @@ -1,4 +0,0 @@ -processes -isProcessTerminated: aProcess - "Return a boolean indicating whether aProcess has been terminated." - ^ aProcess isTerminated \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/label.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/label.st deleted file mode 100644 index f3b036e2..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/label.st +++ /dev/null @@ -1,3 +0,0 @@ -version info -label - ^ 'Pharo' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/localNameOf..st deleted file mode 100644 index 64db9825..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/localNameOf..st +++ /dev/null @@ -1,3 +0,0 @@ -files -localNameOf: aFilename - ^ (FileSystem disk resolveString: aFilename) basename \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newRandom.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newRandom.st deleted file mode 100644 index 9d90824d..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newRandom.st +++ /dev/null @@ -1,10 +0,0 @@ -factory -newRandom - "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: - #nextInt: - should answer a random integer in the interval [1, anInteger] - #randomFrom: - should answer a random element from the given collection - - Make sure that both methods are safe under heavy concurrent load. - - Used by Gemstone/S traditional Randoms which cannot be persisted.." - ^ GRPharoRandomProvider \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st deleted file mode 100644 index 01578607..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFile.st +++ /dev/null @@ -1,4 +0,0 @@ -files -newTemporaryFile - - ^ self newTemporaryFileNamed: UUID new greaseString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st deleted file mode 100644 index 29d781b7..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st +++ /dev/null @@ -1,7 +0,0 @@ -files -newTemporaryFileNamed: aName - - | newFile | - newFile := FileLocator temp / aName. - newFile exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ]. - ^ newFile pathString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st deleted file mode 100644 index 7992374f..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st +++ /dev/null @@ -1,11 +0,0 @@ -files -newTemporaryFileReference - "Create a new temporary file in the systems temp directory - and answer a reference to it. - It is the users responsibility to delete or move the file, - it will not be cleaned up automatically (unless the host system - has a policy for it)." - self - greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReference' - details: 'Use newTemporaryFile'. - ^ self newTemporaryFileReferenceNamed: UUID new asString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st deleted file mode 100644 index 81baa7c1..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st +++ /dev/null @@ -1,11 +0,0 @@ -files -newTemporaryFileReferenceNamed: aName - "Create a new temporary file in the systems temp directory - and answer a reference to it. - It is the users responsibility to delete or move the file, - it will not be cleaned up automatically (unless the host system - has a policy for it)." - self - greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReferenceNamed:' - details: 'Use newTemporaryFileNamed:'. - ^ FileLocator temp / aName \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newline.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newline.st deleted file mode 100644 index 1219045d..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newline.st +++ /dev/null @@ -1,3 +0,0 @@ -file library -newline - ^ String cr \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st deleted file mode 100644 index 305157e2..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/openDebuggerOn..st +++ /dev/null @@ -1,18 +0,0 @@ -exceptions -openDebuggerOn: anError - | process | - process := Processor activeProcess. - "If we are running in the UI process, we don't want to suspend the active process. The - error was presumably triggered while stepping in the Debugger. If we simply immediately - signal an UnhandledError, the debugger will catch this and display the signaling context. - It isn't perfect or pretty but it works." - (ProcessBrowser isUIProcess: process) - ifTrue: [ - UnhandledError signalForException: anError ] - ifFalse: [ - WorldState addDeferredUIMessage: [ - UIManager default - requestDebuggerOpeningForProcess: process - named: anError description - inContext: anError signalerContext ]. - process suspend ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/pathSeparator.st deleted file mode 100644 index 2da9f364..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/pathSeparator.st +++ /dev/null @@ -1,3 +0,0 @@ -files -pathSeparator - ^ String with: FileSystem disk delimiter \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st deleted file mode 100644 index 6324baf5..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st +++ /dev/null @@ -1,6 +0,0 @@ -files -readFileStreamOn: aString do: aBlock binary: aBoolean - - ^ aBoolean - ifTrue: [ aString asFileReference binaryReadStreamDo: aBlock ] - ifFalse: [ aString asFileReference readStreamEncoded: 'utf-8' do: aBlock ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st deleted file mode 100644 index db9518ee..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readWriteByteStream.st +++ /dev/null @@ -1,5 +0,0 @@ -factory -readWriteByteStream - "ByteArray based read write stream" - - ^ ReadWriteStream on: (ByteArray new: 4096) \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st deleted file mode 100644 index 3f94c5af..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readWriteCharacterStream.st +++ /dev/null @@ -1,5 +0,0 @@ -factory -readWriteCharacterStream - "String based read write stream" - - ^ ReadWriteStream on: (String new: 4096) \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st deleted file mode 100644 index 58137e33..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/removeFromShutDownList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromShutDownList: aClass - "Remove aClass from the shutdown list in the system." - - SessionManager default unregisterClassNamed: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st deleted file mode 100644 index 76918209..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/removeFromStartUpList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromStartUpList: aClass - "Remove aClass from the startup list in the system." - - SessionManager default unregisterClassNamed: aClass name \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st deleted file mode 100644 index 92cbd7ff..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/removeSelector.from..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -removeSelector: aSymbol from: aClass - aClass removeSelector: aSymbol \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/secureHashFor..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/secureHashFor..st deleted file mode 100644 index 46b9e2d2..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/secureHashFor..st +++ /dev/null @@ -1,3 +0,0 @@ -cryptography -secureHashFor: aString - ^ SHA1 new hashMessage: aString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st deleted file mode 100644 index ceccf9e3..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/semaphoreClass.st +++ /dev/null @@ -1,4 +0,0 @@ -factory -semaphoreClass - "used by Gemstone/S traditional Semaphores which cannot be persisted" - ^ Semaphore \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/setutf8CodectoDeprecatedTextConverter.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/setutf8CodectoDeprecatedTextConverter.st deleted file mode 100644 index dc394f4f..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/setutf8CodectoDeprecatedTextConverter.st +++ /dev/null @@ -1,4 +0,0 @@ -utf8 codec -setutf8CodectoDeprecatedTextConverter - "Set to the GRPharoDeprecatedUtf8Codec that uses the deprecated TextConverter for utf8 encoding" - utf8DeprecatedCodecFlag := true \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/setutf8CodectoZinc.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/setutf8CodectoZinc.st deleted file mode 100644 index 2f43e9ab..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/setutf8CodectoZinc.st +++ /dev/null @@ -1,4 +0,0 @@ -utf8 codec -setutf8CodectoZinc - "Set to GRPharoUtf8Codec that uses Zinc for utf8 encoding" - utf8DeprecatedCodecFlag := false \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st deleted file mode 100644 index f7139913..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st +++ /dev/null @@ -1,4 +0,0 @@ -files -sizeOfFile: aString - - ^ aString asFileReference size \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st deleted file mode 100644 index 3ed3d44c..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st +++ /dev/null @@ -1,5 +0,0 @@ -meta-object-protocol -sourceCodeStringOf: aCompiledMethod - "Return a String with the source code for a compiled method." - - ^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/stackDepth.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/stackDepth.st deleted file mode 100644 index 7b994393..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/stackDepth.st +++ /dev/null @@ -1,10 +0,0 @@ -exceptions -stackDepth - - | depth current | - depth := 0. - current := thisContext. - [ current isNil ] whileFalse: [ - current := current sender. - depth := depth + 1 ]. - ^ depth - 1 \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/terminateProcess..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/terminateProcess..st deleted file mode 100644 index a09b96e1..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/terminateProcess..st +++ /dev/null @@ -1,4 +0,0 @@ -processes -terminateProcess: aProcess - "Permanently terminate the process, unwinding first to execute #ensure: and #ifCurtailed: blocks." - aProcess terminate \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/thisContext.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/thisContext.st deleted file mode 100644 index 97018fc5..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/thisContext.st +++ /dev/null @@ -1,4 +0,0 @@ -processes -thisContext - - ^ thisContext sender \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st deleted file mode 100644 index 71b0f2cf..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/useByteArrayLiterals.st +++ /dev/null @@ -1,4 +0,0 @@ -private-file library -useByteArrayLiterals - "whether ByteArray literals can/should be used" - ^ true \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st deleted file mode 100644 index 86376f5c..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/utf8CodecClass.st +++ /dev/null @@ -1,8 +0,0 @@ -utf8 codec -utf8CodecClass - - ^ utf8DeprecatedCodecFlag - ifNil: [ GRPharoUtf8Codec ] - ifNotNil: [ utf8DeprecatedCodecFlag - ifTrue:[ GRPharoDeprecatedUtf8Codec ] - ifFalse: [ GRPharoUtf8Codec ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st deleted file mode 100644 index b0ca3d82..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/weakDictionaryOfSize..st +++ /dev/null @@ -1,3 +0,0 @@ -factory -weakDictionaryOfSize: aNumber - ^ IdentityDictionary new: aNumber \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st deleted file mode 100644 index 6a1bd7a0..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st +++ /dev/null @@ -1,7 +0,0 @@ -files -write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString - "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" - ^ self - writeFileStreamOn: (aFolderString asFileReference / aFileNameString) ensureDelete pathString - do: [ :stream | stream nextPutAll: aStringOrByteArray ] - binary: aStringOrByteArray isString not \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st deleted file mode 100644 index 43d33949..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st +++ /dev/null @@ -1,5 +0,0 @@ -files -writeFileStreamOn: aString do: aBlock binary: aBoolean - ^ aBoolean - ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ] - ifFalse: [ aString asFileReference writeStreamEncoded: 'utf-8' do: [ :str | aBlock value: (ZnNewLineWriterStream on: str) ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/properties.json deleted file mode 100644 index 195fed5b..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/properties.json +++ /dev/null @@ -1,16 +0,0 @@ -{ - "commentStamp" : "pmm 6/1/2008 01:03", - "super" : "GRPlatform", - "category" : "Grease-Pharo90-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "UrlTable", - "XmlTable" - ], - "instvars" : [ - "utf8DeprecatedCodecFlag" - ], - "name" : "GRPharoPlatform", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/initialize.st b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/initialize.st deleted file mode 100644 index 04ca54c3..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -private -initialize - Smalltalk addToStartUpList: self. - self startUp \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/nextInt..st b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/nextInt..st deleted file mode 100644 index 1036c2f7..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/nextInt..st +++ /dev/null @@ -1,6 +0,0 @@ -public -nextInt: anInteger - - "Answer a random integer in the interval [1, anInteger]" - - ^ mutex critical: [ generator nextInteger: anInteger ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/randomClass.st b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/randomClass.st deleted file mode 100644 index 85a2db91..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/randomClass.st +++ /dev/null @@ -1,3 +0,0 @@ -private -randomClass - ^ Random \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/randomFrom..st b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/randomFrom..st deleted file mode 100644 index a5fe470c..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/randomFrom..st +++ /dev/null @@ -1,11 +0,0 @@ -public -randomFrom: aCollection - | random count | - random := self nextInt: aCollection size. - ^ aCollection isSequenceable - ifTrue: [ aCollection at: random ] - ifFalse: [ - count := 1. - aCollection do: [ :ea | - count = random ifTrue: [ ^ ea ]. - count := count + 1 ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/startUp.st b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/startUp.st deleted file mode 100644 index 663a5243..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/startUp.st +++ /dev/null @@ -1,4 +0,0 @@ -class initialization -startUp - generator := self randomClass new. - mutex := Semaphore forMutualExclusion \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/unload.st b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/unload.st deleted file mode 100644 index fd4cb930..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/class/unload.st +++ /dev/null @@ -1,3 +0,0 @@ -private -unload - GRPlatform current removeFromStartUpList: self \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/properties.json deleted file mode 100644 index ad9c865d..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoRandomProvider.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRObject", - "category" : "Grease-Pharo90-Core", - "classinstvars" : [ - "mutex", - "generator" - ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoRandomProvider", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/README.md deleted file mode 100644 index c6047951..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WAUtf8Codec is a WACodec optimized for UTF-8. \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st deleted file mode 100644 index d4c4a74b..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/basicForEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -private -basicForEncoding: aString - ^ self new \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/codecs.st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/codecs.st deleted file mode 100644 index 6e52e620..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/codecs.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -codecs - ^ GRPlatform current utf8CodecClass == self - ifTrue:[ Array with: self new ] - ifFalse: [ Array new ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st deleted file mode 100644 index 54e91f2e..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/class/supportsEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -private -supportsEncoding: aString - ^ GRPlatform current utf8CodecClass == self and: [ (#('utf-8' 'UTF-8' 'utf8') includes: aString) ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st deleted file mode 100644 index e9869000..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decode..st +++ /dev/null @@ -1,3 +0,0 @@ -convenience -decode: aStringOrByteArray - ^ super decode: aStringOrByteArray asByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st deleted file mode 100644 index 0c2be49b..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -decoderFor: aStream - ^ GRPharoZnUtf8CodecStream - on: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encodedStringClass.st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encodedStringClass.st deleted file mode 100644 index 6e5de896..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encodedStringClass.st +++ /dev/null @@ -1,3 +0,0 @@ -conversion -encodedStringClass - ^ ByteArray \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st deleted file mode 100644 index 0e80cdaf..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -encoderFor: aStream - ^ GRPharoZnUtf8CodecStream - on: aStream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st deleted file mode 100644 index e4481c22..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/name.st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/name.st deleted file mode 100644 index 7886c830..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'utf-8' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/url.st b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/url.st deleted file mode 100644 index 4696d714..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/instance/url.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -url - ^ self \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/properties.json deleted file mode 100644 index 7076077d..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoUtf8Codec.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 2/20/2009 12:51", - "super" : "GRCodec", - "category" : "Grease-Pharo90-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoUtf8Codec", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/README.md b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index eed7aded..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -greaseNext: anInteger putAll: aCollection startingAt: startIndex - encoder next: anInteger putAll: aCollection startingAt: startIndex toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st deleted file mode 100644 index ece3cda0..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/initializeOn..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeOn: aStream - super initializeOn: aStream. - encoder := ZnCharacterEncoder utf8 \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st deleted file mode 100644 index b5f1ff9a..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next..st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -next: anInteger - | writeStream | - writeStream := WriteStream on: (String new: anInteger). - anInteger timesRepeat: [ - writeStream nextPut: (self next - ifNil: [ ^ writeStream contents ]) ]. - ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st deleted file mode 100644 index ccde08f3..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/next.st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -next - | character | - stream atEnd ifTrue: [ ^ nil ]. - character := encoder nextFromStream: stream. - ^ character ifNotNil: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st deleted file mode 100644 index 30014e3d..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -nextPut: aCharacter - encoder nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st deleted file mode 100644 index f7494a83..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -nextPutAll: aString - | string | - string := aString asString. - encoder next: string size putAll: string startingAt: 1 toStream: stream \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/properties.json b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/properties.json deleted file mode 100644 index 8be438da..00000000 --- a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRCodecStream", - "category" : "Grease-Pharo90-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "encoder" - ], - "name" : "GRPharoZnUtf8CodecStream", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st b/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st deleted file mode 100644 index 18628d10..00000000 --- a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/instance/inspectionItems..st +++ /dev/null @@ -1,15 +0,0 @@ -*Grease-Pharo90-Core -inspectionItems: aBuilder - - - ^ aBuilder newTable - addColumn: (SpStringTableColumn - title: 'Key' - evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ]) - beSortable; - addColumn: (SpStringTableColumn - title: 'Value' - evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ]) - beSortable; - items: self associations; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/properties.json b/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/properties.json deleted file mode 100644 index 0d78b749..00000000 --- a/repository/Grease-Pharo90-Core.package/GRSmallDictionary.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRSmallDictionary" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st b/repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st deleted file mode 100644 index 18628d10..00000000 --- a/repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/instance/inspectionItems..st +++ /dev/null @@ -1,15 +0,0 @@ -*Grease-Pharo90-Core -inspectionItems: aBuilder - - - ^ aBuilder newTable - addColumn: (SpStringTableColumn - title: 'Key' - evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ]) - beSortable; - addColumn: (SpStringTableColumn - title: 'Value' - evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ]) - beSortable; - items: self associations; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/properties.json b/repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/properties.json deleted file mode 100644 index c5c0f1c8..00000000 --- a/repository/Grease-Pharo90-Core.package/GRSmallDictionary2.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRSmallDictionary2" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Interval.extension/instance/any.st b/repository/Grease-Pharo90-Core.package/Interval.extension/instance/any.st deleted file mode 100644 index eb927449..00000000 --- a/repository/Grease-Pharo90-Core.package/Interval.extension/instance/any.st +++ /dev/null @@ -1,6 +0,0 @@ -*Grease-Pharo90-Core -any - "#first (used by SequenceableCollection>>anyOne) is an accessor of - Interval and does not error on an empty Interval." - - ^ self at: 1 \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Interval.extension/properties.json b/repository/Grease-Pharo90-Core.package/Interval.extension/properties.json deleted file mode 100644 index 534eb553..00000000 --- a/repository/Grease-Pharo90-Core.package/Interval.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Interval" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/LargeInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo90-Core.package/LargeInteger.extension/instance/greaseByteAt..st deleted file mode 100644 index 6472e03c..00000000 --- a/repository/Grease-Pharo90-Core.package/LargeInteger.extension/instance/greaseByteAt..st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -greaseByteAt: index - ^ self byteAt: index \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/LargeInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo90-Core.package/LargeInteger.extension/instance/greaseBytesCount.st deleted file mode 100644 index 9d7d8a82..00000000 --- a/repository/Grease-Pharo90-Core.package/LargeInteger.extension/instance/greaseBytesCount.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -greaseBytesCount - ^ self bytesCount \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/LargeInteger.extension/properties.json b/repository/Grease-Pharo90-Core.package/LargeInteger.extension/properties.json deleted file mode 100644 index 029bc676..00000000 --- a/repository/Grease-Pharo90-Core.package/LargeInteger.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "LargeInteger" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/MessageSend.extension/instance/argumentCount.st b/repository/Grease-Pharo90-Core.package/MessageSend.extension/instance/argumentCount.st deleted file mode 100644 index 026b36ca..00000000 --- a/repository/Grease-Pharo90-Core.package/MessageSend.extension/instance/argumentCount.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -argumentCount - ^ selector numArgs - self arguments size \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Pharo90-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index fce285bb..00000000 --- a/repository/Grease-Pharo90-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,7 +0,0 @@ -*Grease-Pharo90-Core -valueWithPossibleArguments: anArray - "Evaluate the block represented by the receiver. - If the block requires one argument, use anArg, if it requires more than one, - fill up the rest with nils." - - ^ self valueWithEnoughArguments: anArray \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/MessageSend.extension/properties.json b/repository/Grease-Pharo90-Core.package/MessageSend.extension/properties.json deleted file mode 100644 index 00669b90..00000000 --- a/repository/Grease-Pharo90-Core.package/MessageSend.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "MessageSend" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Pharo90-Core.package/Number.extension/instance/milliseconds.st deleted file mode 100644 index 64fb2d91..00000000 --- a/repository/Grease-Pharo90-Core.package/Number.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -milliseconds - ^ self milliSeconds \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Number.extension/properties.json b/repository/Grease-Pharo90-Core.package/Number.extension/properties.json deleted file mode 100644 index 71dace88..00000000 --- a/repository/Grease-Pharo90-Core.package/Number.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Number" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Pharo90-Core.package/Object.extension/instance/greaseString.st deleted file mode 100644 index 2c101b63..00000000 --- a/repository/Grease-Pharo90-Core.package/Object.extension/instance/greaseString.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -greaseString - ^ self asString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Object.extension/properties.json b/repository/Grease-Pharo90-Core.package/Object.extension/properties.json deleted file mode 100644 index f30a86e1..00000000 --- a/repository/Grease-Pharo90-Core.package/Object.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Object" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Point.extension/instance/greaseString.st b/repository/Grease-Pharo90-Core.package/Point.extension/instance/greaseString.st deleted file mode 100644 index edb0278e..00000000 --- a/repository/Grease-Pharo90-Core.package/Point.extension/instance/greaseString.st +++ /dev/null @@ -1,13 +0,0 @@ -*Grease-Pharo90-Core -greaseString - "Reimplemented because in Pharo 1.4 - (4 @ 2) greaseString - ansers '(4@2)'" - ^ String streamContents: [ :stream | - x printOn: stream. - stream nextPut: $@. - (y notNil and: [ y negative ]) - ifTrue: [ - "Avoid ambiguous @- construct" - stream space ]. - y printOn: stream ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Point.extension/properties.json b/repository/Grease-Pharo90-Core.package/Point.extension/properties.json deleted file mode 100644 index c6cf8dd5..00000000 --- a/repository/Grease-Pharo90-Core.package/Point.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Point" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-Pharo90-Core.package/PositionableStream.extension/instance/greaseUpToAll..st deleted file mode 100644 index ccd50371..00000000 --- a/repository/Grease-Pharo90-Core.package/PositionableStream.extension/instance/greaseUpToAll..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo90-Core -greaseUpToAll: aCollection - "Needed for Seaside ports to other dialects where #upToAll: may have - different semantics" - ^ self upToAll: aCollection \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/PositionableStream.extension/properties.json b/repository/Grease-Pharo90-Core.package/PositionableStream.extension/properties.json deleted file mode 100644 index 8e090ee3..00000000 --- a/repository/Grease-Pharo90-Core.package/PositionableStream.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "PositionableStream" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/instance/encodeOn..st b/repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/instance/encodeOn..st deleted file mode 100644 index 96fb1174..00000000 --- a/repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/instance/encodeOn..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo90-Core -encodeOn: aDocument - | converter | - converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). - converter print: self on: aDocument \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/instance/greaseString.st deleted file mode 100644 index c2f03064..00000000 --- a/repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/instance/greaseString.st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo90-Core -greaseString - | converter | - converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). - ^ converter print: self \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/properties.json b/repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/properties.json deleted file mode 100644 index 75f85f87..00000000 --- a/repository/Grease-Pharo90-Core.package/ScaledDecimal.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "ScaledDecimal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st deleted file mode 100644 index 290ebb62..00000000 --- a/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st +++ /dev/null @@ -1,8 +0,0 @@ -*Grease-Pharo90-Core -beginsWithSubCollection: aSequenceableCollection - - self - greaseDeprecatedApi: 'SequenceableCollection>>#beginsWithSubCollection:' - details: 'Use SequenceableCollection>>#greaseBeginsWith:'. - "Some platforms implement #beginsWith: to answer true for an empty argument." - ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st deleted file mode 100644 index 72070fe2..00000000 --- a/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st +++ /dev/null @@ -1,8 +0,0 @@ -*Grease-Pharo90-Core -endsWithSubCollection: aSequenceableCollection - - self - greaseDeprecatedApi: 'SequenceableCollection>>#endsWithSubCollection:' - details: 'Use SequenceableCollection>>#greaseEndsWith:'. - "Some platforms implement #endsWith: to answer true for an empty argument." - ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st deleted file mode 100644 index ccc6dad0..00000000 --- a/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo90-Core -greaseBeginsWith: aSequenceableCollection - - aSequenceableCollection isEmpty ifTrue: [ ^ true ]. - ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st deleted file mode 100644 index 49a39d31..00000000 --- a/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Pharo90-Core -greaseEndsWith: aSequenceableCollection - - aSequenceableCollection isEmpty ifTrue: [ ^ true ]. - ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/properties.json deleted file mode 100644 index a68b7db6..00000000 --- a/repository/Grease-Pharo90-Core.package/SequenceableCollection.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "SequenceableCollection" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/SmallInteger.extension/instance/greaseByteAt..st b/repository/Grease-Pharo90-Core.package/SmallInteger.extension/instance/greaseByteAt..st deleted file mode 100644 index 6472e03c..00000000 --- a/repository/Grease-Pharo90-Core.package/SmallInteger.extension/instance/greaseByteAt..st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -greaseByteAt: index - ^ self byteAt: index \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/SmallInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Pharo90-Core.package/SmallInteger.extension/instance/greaseBytesCount.st deleted file mode 100644 index 9d7d8a82..00000000 --- a/repository/Grease-Pharo90-Core.package/SmallInteger.extension/instance/greaseBytesCount.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -greaseBytesCount - ^ self bytesCount \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/SmallInteger.extension/properties.json b/repository/Grease-Pharo90-Core.package/SmallInteger.extension/properties.json deleted file mode 100644 index ca9cd21f..00000000 --- a/repository/Grease-Pharo90-Core.package/SmallInteger.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "SmallInteger" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo90-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 90f61e5f..00000000 --- a/repository/Grease-Pharo90-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,13 +0,0 @@ -*Grease-Pharo90-Core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - "Put a String or a ByteArray onto the stream starting at the given position. - Currently a large collection will allocate a large buffer." - - | toPut | - anInteger = 0 ifTrue: [ - ^ aCollection ]. - toPut := binary ifTrue: [ aCollection asByteArray ] ifFalse: [ aCollection asString ]. - self adjustOutBuffer: anInteger. - outBuffer replaceFrom: outNextToWrite to: outNextToWrite + anInteger - 1 with: toPut startingAt: startIndex. - outNextToWrite := outNextToWrite + anInteger. - self checkFlush \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/SocketStream.extension/properties.json b/repository/Grease-Pharo90-Core.package/SocketStream.extension/properties.json deleted file mode 100644 index 797e09e5..00000000 --- a/repository/Grease-Pharo90-Core.package/SocketStream.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "SocketStream" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-Pharo90-Core.package/Symbol.extension/instance/greaseAsMutator.st deleted file mode 100644 index 5bdc9f07..00000000 --- a/repository/Grease-Pharo90-Core.package/Symbol.extension/instance/greaseAsMutator.st +++ /dev/null @@ -1,3 +0,0 @@ -*Grease-Pharo90-Core -greaseAsMutator - ^ self asMutator \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/Symbol.extension/properties.json b/repository/Grease-Pharo90-Core.package/Symbol.extension/properties.json deleted file mode 100644 index 8c6bce81..00000000 --- a/repository/Grease-Pharo90-Core.package/Symbol.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Symbol" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo90-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 167d1d13..00000000 --- a/repository/Grease-Pharo90-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,4 +0,0 @@ -*Grease-Pharo90-Core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - "Store the next anInteger elements from the given collection." - ^ self next: anInteger putAll: aCollection startingAt: startIndex \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/WriteStream.extension/properties.json b/repository/Grease-Pharo90-Core.package/WriteStream.extension/properties.json deleted file mode 100644 index 8688e80d..00000000 --- a/repository/Grease-Pharo90-Core.package/WriteStream.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "WriteStream" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/monticello.meta/categories.st b/repository/Grease-Pharo90-Core.package/monticello.meta/categories.st deleted file mode 100644 index f0069bbb..00000000 --- a/repository/Grease-Pharo90-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Pharo90-Core'! diff --git a/repository/Grease-Pharo90-Core.package/monticello.meta/initializers.st b/repository/Grease-Pharo90-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Core.package/monticello.meta/package b/repository/Grease-Pharo90-Core.package/monticello.meta/package deleted file mode 100644 index 9b275a6c..00000000 --- a/repository/Grease-Pharo90-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo90-Core') \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/properties.json b/repository/Grease-Pharo90-Core.package/properties.json deleted file mode 100644 index 6f31cf5a..00000000 --- a/repository/Grease-Pharo90-Core.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core/Behavior.extension.st b/repository/Grease-Pharo90-Core/Behavior.extension.st new file mode 100644 index 00000000..befbc116 --- /dev/null +++ b/repository/Grease-Pharo90-Core/Behavior.extension.st @@ -0,0 +1,8 @@ +Extension { #name : 'Behavior' } + +{ #category : '*Grease-Pharo90-Core' } +Behavior >> fullName [ + "In VW, will include the namespace" + + ^ self name +] diff --git a/repository/Grease-Pharo90-Core/BlockClosure.extension.st b/repository/Grease-Pharo90-Core/BlockClosure.extension.st new file mode 100644 index 00000000..e7ad89cb --- /dev/null +++ b/repository/Grease-Pharo90-Core/BlockClosure.extension.st @@ -0,0 +1,14 @@ +Extension { #name : 'BlockClosure' } + +{ #category : '*Grease-Pharo90-Core' } +BlockClosure >> valueWithPossibleArguments: anArray [ + | args | + (anArray size == self numArgs) + ifTrue: [ ^ self valueWithArguments: anArray ]. + args := Array new: self numArgs. + args replaceFrom: 1 + to: (anArray size min: args size) + with: anArray + startingAt: 1. + ^ self valueWithArguments: args +] diff --git a/repository/Grease-Pharo90-Core/ByteArray.extension.st b/repository/Grease-Pharo90-Core/ByteArray.extension.st new file mode 100644 index 00000000..2939248a --- /dev/null +++ b/repository/Grease-Pharo90-Core/ByteArray.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'ByteArray' } + +{ #category : '*Grease-Pharo90-Core' } +ByteArray >> greaseString [ + "ByteArrays should not automatically be converted to Strings. You should use a GRCodec for this." + ^ self printString +] diff --git a/repository/Grease-Pharo90-Core/Character.extension.st b/repository/Grease-Pharo90-Core/Character.extension.st new file mode 100644 index 00000000..69900259 --- /dev/null +++ b/repository/Grease-Pharo90-Core/Character.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'Character' } + +{ #category : '*Grease-Pharo90-Core' } +Character >> greaseInteger [ + "Answer an unicode code point of the receiver." + ^ self charCode +] diff --git a/repository/Grease-Pharo90-Core/Collection.extension.st b/repository/Grease-Pharo90-Core/Collection.extension.st new file mode 100644 index 00000000..4ba72fa0 --- /dev/null +++ b/repository/Grease-Pharo90-Core/Collection.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Collection' } + +{ #category : '*Grease-Pharo90-Core' } +Collection >> any [ + ^ self anyOne +] diff --git a/repository/Grease-Pharo90-Core/Color.extension.st b/repository/Grease-Pharo90-Core/Color.extension.st new file mode 100644 index 00000000..b886ae6c --- /dev/null +++ b/repository/Grease-Pharo90-Core/Color.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Color' } + +{ #category : '*Grease-Pharo90-Core' } +Color >> asHTMLColor [ + ^'#', self asHexString +] diff --git a/repository/Grease-Pharo90-Core/Duration.extension.st b/repository/Grease-Pharo90-Core/Duration.extension.st new file mode 100644 index 00000000..dc27345a --- /dev/null +++ b/repository/Grease-Pharo90-Core/Duration.extension.st @@ -0,0 +1,16 @@ +Extension { #name : 'Duration' } + +{ #category : '*Grease-Pharo90-Core' } +Duration >> asMilliseconds [ + ^ self asMilliSeconds +] + +{ #category : '*Grease-Pharo90-Core' } +Duration >> milliseconds [ + ^ nanos quo: NanosInMillisecond +] + +{ #category : '*Grease-Pharo90-Core' } +Duration class >> milliseconds: anInteger [ + ^ self milliSeconds: anInteger +] diff --git a/repository/Grease-Pharo90-Core/GRDelegatingStream.extension.st b/repository/Grease-Pharo90-Core/GRDelegatingStream.extension.st new file mode 100644 index 00000000..fa223cc9 --- /dev/null +++ b/repository/Grease-Pharo90-Core/GRDelegatingStream.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'GRDelegatingStream' } + +{ #category : '*Grease-Pharo90-Core' } +GRDelegatingStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + stream greaseNext: anInteger putAll: aCollection startingAt: startIndex +] diff --git a/repository/Grease-Pharo90-Core/GRDynamicVariable.class.st b/repository/Grease-Pharo90-Core/GRDynamicVariable.class.st new file mode 100644 index 00000000..d9ffc874 --- /dev/null +++ b/repository/Grease-Pharo90-Core/GRDynamicVariable.class.st @@ -0,0 +1,23 @@ +Class { + #name : 'GRDynamicVariable', + #superclass : 'DynamicVariable', + #category : 'Grease-Pharo90-Core', + #package : 'Grease-Pharo90-Core' +} + +{ #category : 'defaults' } +GRDynamicVariable class >> defaultValue [ + ^ nil +] + +{ #category : 'accessing' } +GRDynamicVariable class >> use: anObject during: aBlock [ + ^ self + value: anObject + during: aBlock +] + +{ #category : 'accessing' } +GRDynamicVariable >> default [ + ^ self class defaultValue +] diff --git a/repository/Grease-Pharo90-Core/GRPackage.extension.st b/repository/Grease-Pharo90-Core/GRPackage.extension.st new file mode 100644 index 00000000..f243d309 --- /dev/null +++ b/repository/Grease-Pharo90-Core/GRPackage.extension.st @@ -0,0 +1,10 @@ +Extension { #name : 'GRPackage' } + +{ #category : '*Grease-Pharo90-Core' } +GRPackage class >> greasePharo70Core [ + ^ self new + name: 'Grease-Pharo90-Core'; + addDependency: 'Grease-Core'; + url: #greaseUrl; + yourself +] diff --git a/repository/Grease-Pharo90-Core/GRPharoConverterCodecStream.class.st b/repository/Grease-Pharo90-Core/GRPharoConverterCodecStream.class.st new file mode 100644 index 00000000..a49bd037 --- /dev/null +++ b/repository/Grease-Pharo90-Core/GRPharoConverterCodecStream.class.st @@ -0,0 +1,63 @@ +" +A WAConverterCodecStream is a WACodec stream around a TextConverter. It is always in text mode. + +Instance Variables + converter: + +converter + - the TextConverter used to do the encoding conversion + +" +Class { + #name : 'GRPharoConverterCodecStream', + #superclass : 'GRCodecStream', + #instVars : [ + 'converter' + ], + #category : 'Grease-Pharo90-Core', + #package : 'Grease-Pharo90-Core' +} + +{ #category : 'instance creation' } +GRPharoConverterCodecStream class >> on: aStream converter: aConverter [ + ^ self basicNew initializeOn: aStream converter: aConverter +] + +{ #category : 'streaming' } +GRPharoConverterCodecStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1) +] + +{ #category : 'initialization' } +GRPharoConverterCodecStream >> initializeOn: aStream converter: aConverter [ + self initializeOn: aStream. + converter := aConverter +] + +{ #category : 'streaming' } +GRPharoConverterCodecStream >> next [ + | character | + character := converter nextFromStream: stream. + ^ character isNil + ifFalse: [ character asCharacter ] +] + +{ #category : 'streaming' } +GRPharoConverterCodecStream >> next: anInteger [ + | writeStream | + writeStream := WriteStream on: (String new: anInteger). + anInteger timesRepeat: [ + writeStream nextPut: (self next + ifNil: [ ^ writeStream contents ]) ]. + ^ writeStream contents +] + +{ #category : 'streaming' } +GRPharoConverterCodecStream >> nextPut: aCharacter [ + converter nextPut: aCharacter asCharacter toStream: stream +] + +{ #category : 'streaming' } +GRPharoConverterCodecStream >> nextPutAll: aString [ + aString asString do: [ :each | self nextPut: each ] +] diff --git a/repository/Grease-Pharo90-Core/GRPharoDeprecatedUtf8Codec.class.st b/repository/Grease-Pharo90-Core/GRPharoDeprecatedUtf8Codec.class.st new file mode 100644 index 00000000..86358ac4 --- /dev/null +++ b/repository/Grease-Pharo90-Core/GRPharoDeprecatedUtf8Codec.class.st @@ -0,0 +1,95 @@ +Class { + #name : 'GRPharoDeprecatedUtf8Codec', + #superclass : 'GRCodec', + #category : 'Grease-Pharo90-Core', + #package : 'Grease-Pharo90-Core' +} + +{ #category : 'private' } +GRPharoDeprecatedUtf8Codec class >> basicForEncoding: aString [ + ^ self new +] + +{ #category : 'accessing' } +GRPharoDeprecatedUtf8Codec class >> codecs [ + ^ GRPlatform current utf8CodecClass == self + ifTrue:[ Array with: self new ] + ifFalse: [ Array new ] +] + +{ #category : 'testing' } +GRPharoDeprecatedUtf8Codec class >> supportsEncoding: aString [ + ^ GRPlatform current utf8CodecClass == self and: [(#('utf-8' 'UTF-8') includes: aString) or: [ UTF8TextConverter encodingNames includes: aString ] ] +] + +{ #category : 'convenience' } +GRPharoDeprecatedUtf8Codec >> decode: aString [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | outStream byte1 byte2 byte3 byte4 unicode stream | + stream := aString readStream. + outStream := WriteStream on: (String new: aString size). + [ stream atEnd not ] whileTrue: [ + byte1 := stream next asInteger. + unicode := byte1. + (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. + (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next asInteger. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) + + (byte3 bitAnd: 63) ]. + (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next asInteger. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte4 := stream next asInteger. + (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + + ((byte2 bitAnd: 63) bitShift: 12) + + ((byte3 bitAnd: 63) bitShift: 6) + + (byte4 bitAnd: 63) ]. + unicode ifNil: [ self invalidUtf8 ]. + unicode = 16rFEFF "ignore BOM" ifFalse: [ + outStream nextPut: (Character codePoint: unicode) ]. + unicode := nil ]. + ^ outStream contents +] + +{ #category : 'convenience' } +GRPharoDeprecatedUtf8Codec >> decoderFor: aStream [ + ^ GRPharoDeprecatedUtf8CodecStream + on: aStream + converter: UTF8TextConverter new +] + +{ #category : 'conversion' } +GRPharoDeprecatedUtf8Codec >> encodedStringClass [ + ^ String +] + +{ #category : 'convenience' } +GRPharoDeprecatedUtf8Codec >> encoderFor: aStream [ + ^ GRPharoDeprecatedUtf8CodecStream + on: aStream + converter: UTF8TextConverter new +] + +{ #category : 'convenience' } +GRPharoDeprecatedUtf8Codec >> invalidUtf8 [ + ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' +] + +{ #category : 'accessing' } +GRPharoDeprecatedUtf8Codec >> name [ + ^ 'utf-8' +] + +{ #category : 'accessing' } +GRPharoDeprecatedUtf8Codec >> url [ + ^ self +] diff --git a/repository/Grease-Pharo90-Core/GRPharoDeprecatedUtf8CodecStream.class.st b/repository/Grease-Pharo90-Core/GRPharoDeprecatedUtf8CodecStream.class.st new file mode 100644 index 00000000..7a45806e --- /dev/null +++ b/repository/Grease-Pharo90-Core/GRPharoDeprecatedUtf8CodecStream.class.st @@ -0,0 +1,166 @@ +" +A WAUtf8CodecStream is a WACodecStream optimized for UTF-8 performance in the case where most of the characters are ASCII. + +" +Class { + #name : 'GRPharoDeprecatedUtf8CodecStream', + #superclass : 'GRPharoConverterCodecStream', + #classVars : [ + 'Latin1ToUtf8Encodings', + 'Latin1ToUtf8Map' + ], + #category : 'Grease-Pharo90-Core', + #package : 'Grease-Pharo90-Core' +} + +{ #category : 'class initialization' } +GRPharoDeprecatedUtf8CodecStream class >> initialize [ + (Smalltalk hasClassNamed: #UTF8TextConverter) "guard for Squeak 37" + ifFalse: [ ^ self ]. + + Latin1ToUtf8Map := ByteArray new: 256. + Latin1ToUtf8Encodings := Array new: 256. + 0 to: 255 do:[ :index | + | latin1 utf8 | + latin1 := String with: (Character codePoint: index). + utf8 := latin1 convertToWithConverter: UTF8TextConverter new. + latin1 = utf8 + ifTrue:[ + Latin1ToUtf8Map at: index + 1 put: 0 ] "no translation needed" + ifFalse:[ + Latin1ToUtf8Map at: index + 1 put: 1. "no translation needed" + Latin1ToUtf8Encodings at: index + 1 put: utf8 ] ] +] + +{ #category : 'streaming' } +GRPharoDeprecatedUtf8CodecStream >> crlf [ + stream nextPut: Character cr. + stream nextPut: Character lf +] + +{ #category : 'private' } +GRPharoDeprecatedUtf8CodecStream >> encodeDefault: aString [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + 1 to: aString size by: 1 do: [ :index | + converter nextPut: (aString at: index) toStream: stream ] +] + +{ #category : 'private' } +GRPharoDeprecatedUtf8CodecStream >> encodeFast: aByteString [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | lastIndex nextIndex | + lastIndex := 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ifTrue: [ ^ stream nextPutAll: aByteString ]. + [ nextIndex > lastIndex ifTrue: [ + stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. + stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). + lastIndex := nextIndex + 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ] whileFalse. + stream greaseNext: aByteString size - lastIndex + 1 putAll: aByteString startingAt: lastIndex +] + +{ #category : 'streaming' } +GRPharoDeprecatedUtf8CodecStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + aCollection isByteString + ifTrue: [ self greaseNext: anInteger putAllFast: aCollection startingAt: startIndex ] + ifFalse: [ super greaseNext: anInteger putAll: aCollection startingAt: startIndex ] +] + +{ #category : 'private' } +GRPharoDeprecatedUtf8CodecStream >> greaseNext: anInteger putAllFast: aByteString startingAt: startIndex [ + | lastIndex nextIndex | + lastIndex := startIndex. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ifTrue: [ ^ stream greaseNext: anInteger putAll: aByteString startingAt: startIndex ]. + [ + nextIndex >= (startIndex + anInteger) ifTrue: [ + ^ stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ]. + nextIndex > lastIndex ifTrue: [ + stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. + stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). + lastIndex := nextIndex + 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + (nextIndex = 0 or: [ nextIndex >= (startIndex + anInteger) ]) ] whileFalse. + lastIndex >= (startIndex + anInteger) ifFalse: [ + stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ] +] + +{ #category : 'private' } +GRPharoDeprecatedUtf8CodecStream >> invalidUtf8 [ + ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' +] + +{ #category : 'streaming' } +GRPharoDeprecatedUtf8CodecStream >> next [ + ^ (self next: 1) first +] + +{ #category : 'streaming' } +GRPharoDeprecatedUtf8CodecStream >> next: anInteger [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | output byte1 byte2 byte3 byte4 unicode count alreadyWide | + output := ByteString new: anInteger. + count := 0. + alreadyWide := false. + [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ + byte1 := stream next. + unicode := byte1. + (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. + (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) + + (byte3 bitAnd: 63). + alreadyWide ifFalse: [ + output := WideString withAll: output. + alreadyWide := true ] ]. + (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte4 := stream next. + (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + + ((byte2 bitAnd: 63) bitShift: 12) + + ((byte3 bitAnd: 63) bitShift: 6) + + (byte4 bitAnd: 63). + alreadyWide ifFalse: [ + output := WideString withAll: output. + alreadyWide := true ] ]. + unicode ifNil: [ self invalidUtf8 ]. + unicode = 16rFEFF "ignore BOM" ifFalse: [ + count := count + 1. + output at: count put: (Character codePoint: unicode) ]. + unicode := nil ]. + ^ count < anInteger + ifTrue: [ output first: count ] + ifFalse: [ output ] +] + +{ #category : 'streaming' } +GRPharoDeprecatedUtf8CodecStream >> nextPut: aCharacter [ + | codePoint shouldEncode | + codePoint := aCharacter codePoint. + codePoint > 255 + ifTrue: [ ^ self nextPutAll: (String with: aCharacter) ]. + shouldEncode := Latin1ToUtf8Map at: codePoint + 1. + shouldEncode = 1 + ifTrue: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] + ifFalse: [ stream nextPut: aCharacter ] + +] + +{ #category : 'streaming' } +GRPharoDeprecatedUtf8CodecStream >> nextPutAll: aString [ + aString isByteString + ifTrue: [ self encodeFast: aString ] + ifFalse: [ self encodeDefault: aString ] +] diff --git a/repository/Grease-Pharo90-Core/GRPharoGenericCodec.class.st b/repository/Grease-Pharo90-Core/GRPharoGenericCodec.class.st new file mode 100644 index 00000000..7835b7c0 --- /dev/null +++ b/repository/Grease-Pharo90-Core/GRPharoGenericCodec.class.st @@ -0,0 +1,81 @@ +Class { + #name : 'GRPharoGenericCodec', + #superclass : 'GRCodec', + #instVars : [ + 'name', + 'urlCodec' + ], + #category : 'Grease-Pharo90-Core', + #package : 'Grease-Pharo90-Core' +} + +{ #category : 'private' } +GRPharoGenericCodec class >> basicForEncoding: aString [ + (self supportsEncoding: aString) + ifFalse: [ self unsupportedEncoding: aString ]. + ^ self basicNew initializeWithName: aString +] + +{ #category : 'accessing' } +GRPharoGenericCodec class >> codecs [ + ^ (TextConverter allEncodingNames + select: [ :each | + "exclude UFT-8 which is handeled by WAUtf8Codec" + self supportsEncoding: each ]) + collect: [ :each | + self basicForEncoding: each greaseString ] +] + +{ #category : 'private' } +GRPharoGenericCodec class >> supportedEncodingNames [ + "answers the names of the encodings supported by this class" + + ^ (TextConverter allSubclasses gather: [ :class | class encodingNames ]) asSet asOrderedCollection + removeAllFoundIn: GRPharoLatin1Codec supportedEncodingNames; + removeAllFoundIn: UTF8TextConverter encodingNames; + yourself +] + +{ #category : 'testing' } +GRPharoGenericCodec class >> supportsEncoding: aString [ + "Answer whether the the given encoding name is supported." + ^ self supportedEncodingNames includes: aString +] + +{ #category : 'private' } +GRPharoGenericCodec >> converter [ + ^ TextConverter newForEncoding: self name +] + +{ #category : 'conversion' } +GRPharoGenericCodec >> decoderFor: aStream [ + ^ self encoderFor: aStream +] + +{ #category : 'conversion' } +GRPharoGenericCodec >> encoderFor: aStream [ + ^ GRPharoConverterCodecStream + on: aStream + converter: self converter +] + +{ #category : 'initialization' } +GRPharoGenericCodec >> initializeWithName: aString [ + self initialize. + name := aString. + urlCodec := (#('iso-8859-15' 'cp-1252') includes: aString) + ifFalse: [ GRCodec forEncoding: 'utf-8' ] + ifTrue: [ self ] +] + +{ #category : 'accessing' } +GRPharoGenericCodec >> name [ + ^ name +] + +{ #category : 'accessing' } +GRPharoGenericCodec >> url [ + "RFC 3986: When a new URI scheme defines a component that represents textual data consisting of characters from the Universal Character Set [UCS], the data should first be encoded as octets according to the UTF-8 character encoding." + + ^ urlCodec +] diff --git a/repository/Grease-Pharo90-Core/GRPharoLatin1Codec.class.st b/repository/Grease-Pharo90-Core/GRPharoLatin1Codec.class.st new file mode 100644 index 00000000..c664f1cf --- /dev/null +++ b/repository/Grease-Pharo90-Core/GRPharoLatin1Codec.class.st @@ -0,0 +1,65 @@ +" +A GRPharoLatin1Codec is a WACodec optimized for ISO-8859-1 (direct byte to character mapping). +" +Class { + #name : 'GRPharoLatin1Codec', + #superclass : 'GRNullCodec', + #instVars : [ + 'name' + ], + #category : 'Grease-Pharo90-Core', + #package : 'Grease-Pharo90-Core' +} + +{ #category : 'private' } +GRPharoLatin1Codec class >> basicForEncoding: aString [ + (self supportsEncoding: aString) + ifFalse: [ self unsupportedEncoding: aString ]. + ^ self basicNew initializeWithName: aString +] + +{ #category : 'accessing' } +GRPharoLatin1Codec class >> codecs [ + ^ Array with: (self basicForEncoding: 'iso-8859-1') +] + +{ #category : 'private' } +GRPharoLatin1Codec class >> supportedEncodingNames [ + ^ #('iso-8859-1' 'ISO-8859-1' 'latin-1' 'latin1') +] + +{ #category : 'private' } +GRPharoLatin1Codec class >> supportsEncoding: aString [ + "Answer whether the the given encoding name is supported." + ^ self supportedEncodingNames includes: aString +] + +{ #category : 'conversion' } +GRPharoLatin1Codec >> decode: aStringOrByteArray [ + "Overridden for efficencey." + + ^ aStringOrByteArray asString +] + +{ #category : 'conversion' } +GRPharoLatin1Codec >> decoderFor: aReadStream [ + "wrap to avoid String vs ByteArray issues" + ^ GRPharoLatin1CodecStream on: aReadStream +] + +{ #category : 'conversion' } +GRPharoLatin1Codec >> encoderFor: aWriteStream [ + "wrap to avoid String vs ByteArray issues" + ^ GRPharoLatin1CodecStream on: aWriteStream +] + +{ #category : 'initialization' } +GRPharoLatin1Codec >> initializeWithName: aString [ + self initialize. + name := aString +] + +{ #category : 'accessing' } +GRPharoLatin1Codec >> name [ + ^ name +] diff --git a/repository/Grease-Pharo90-Core/GRPharoLatin1CodecStream.class.st b/repository/Grease-Pharo90-Core/GRPharoLatin1CodecStream.class.st new file mode 100644 index 00000000..1a81a44e --- /dev/null +++ b/repository/Grease-Pharo90-Core/GRPharoLatin1CodecStream.class.st @@ -0,0 +1,19 @@ +" +A GRPharoLatin1CodecStream is a WACodecStream optimized for ISO-8859-1 (direct byte to character mapping). +" +Class { + #name : 'GRPharoLatin1CodecStream', + #superclass : 'GRNullCodecStream', + #category : 'Grease-Pharo90-Core', + #package : 'Grease-Pharo90-Core' +} + +{ #category : 'streaming' } +GRPharoLatin1CodecStream >> next [ + ^ Character value: stream next +] + +{ #category : 'streaming' } +GRPharoLatin1CodecStream >> next: anInteger [ + ^ (stream next: anInteger) asString +] diff --git a/repository/Grease-Pharo90-Core/GRPharoPlatform.class.st b/repository/Grease-Pharo90-Core/GRPharoPlatform.class.st new file mode 100644 index 00000000..5423e349 --- /dev/null +++ b/repository/Grease-Pharo90-Core/GRPharoPlatform.class.st @@ -0,0 +1,405 @@ +" +A WASqueakPlatform is the Squeak implementation of SeasidePlatformSupport, the Seaside class that provides functionality that can not be implemented in a platform independent way. + +" +Class { + #name : 'GRPharoPlatform', + #superclass : 'GRPlatform', + #instVars : [ + 'utf8DeprecatedCodecFlag' + ], + #classVars : [ + 'UrlTable', + 'XmlTable' + ], + #category : 'Grease-Pharo90-Core', + #package : 'Grease-Pharo90-Core' +} + +{ #category : 'class initialization' } +GRPharoPlatform class >> initialize [ + self initializeXmlTable. + self initializeUrlTable. + self select +] + +{ #category : 'class initialization' } +GRPharoPlatform class >> initializeUrlTable [ + UrlTable := ByteArray new: 256. + 1 to: 256 do: [ :index | + ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~' includes: (Character codePoint: index - 1)) + ifTrue: [ UrlTable at: index put: 0 ] + ifFalse: [ UrlTable at: index put: 1 ] ] +] + +{ #category : 'class initialization' } +GRPharoPlatform class >> initializeXmlTable [ + XmlTable := ByteArray new: 256. + 1 to: 256 do: [ :index | + ('"<&>' includes: (Character codePoint: index - 1)) + ifTrue: [ XmlTable at: index put: 1 ] + ifFalse: [ XmlTable at: index put: 0 ] ] +] + +{ #category : 'class initialization' } +GRPharoPlatform class >> unload [ + self unselect +] + +{ #category : 'startup' } +GRPharoPlatform >> addToShutDownList: anObject [ + "Add anObject to the shutdown-list of the system. On shutdown the message #shutDown will be sent to anObject." + + Smalltalk addToShutDownList: anObject +] + +{ #category : 'startup' } +GRPharoPlatform >> addToStartUpList: aClass [ + "Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject." + + SessionManager default registerUserClassNamed: aClass name. +] + +{ #category : 'file library' } +GRPharoPlatform >> asMethodReturningByteArray: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a ByteArray" + ^ self useByteArrayLiterals + ifTrue: [ self asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol ] + ifFalse: [ self asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol ] +] + +{ #category : 'private-file library' } +GRPharoPlatform >> asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array using VW/NewCompiler byte array literal syntax." + ^ String streamContents: [ :stream | + stream nextPutAll: aSymbol; nextPut: Character cr. + stream tab; nextPutAll: '^ #['. + aByteArrayOrString asByteArray + do: [ :each | each printOn: stream ] + separatedBy: [ stream space ]. + stream nextPutAll: ']' ] +] + +{ #category : 'private-file library' } +GRPharoPlatform >> asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array and caching this array in a literal array of size 1." + ^ String streamContents: [ :stream | + stream nextPutAll: aSymbol; nextPut: Character cr. + stream tab; nextPutAll: '^ #('. + aByteArrayOrString asByteArray + do: [ :each | each printOn: stream ] + separatedBy: [ stream space ]. + stream nextPutAll: ') asByteArray' ] +] + +{ #category : 'encoding' } +GRPharoPlatform >> base64Decode: aString [ + ^ aString base64Decoded asString +] + +{ #category : 'encoding' } +GRPharoPlatform >> base64Encode: aByteArray [ + ^ aByteArray base64Encoded +] + +{ #category : 'bindings' } +GRPharoPlatform >> bindingOf: aClass [ + + ^ Smalltalk globals associationAt: aClass name +] + +{ #category : 'file library' } +GRPharoPlatform >> compile: aString into: aClass classified: aSymbol [ + aClass compile: aString classified: aSymbol +] + +{ #category : 'files' } +GRPharoPlatform >> contentsOfFile: aString binary: aBoolean [ + ^ self readFileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean +] + +{ #category : 'files' } +GRPharoPlatform >> deleteFile: aPathString [ + aPathString asFileReference delete +] + +{ #category : 'exceptions' } +GRPharoPlatform >> deprecationExceptionSet [ + "Answer the exception set that should considered besides WADeprecation." + ^ ExceptionSet new + add: Deprecation; + yourself +] + +{ #category : 'files' } +GRPharoPlatform >> directoriesIn: aPathString [ + "Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString + must not include directory names that start with ." + ^ Array streamContents: [ :stream | + FileSystem disk directoriesAt: aPathString do: [ :each | + each basename first = $. ifFalse: [ + stream nextPut: each asFileReference fullName ] ] ] +] + +{ #category : 'private' } +GRPharoPlatform >> doSilently: aBlock [ + ^ SystemAnnouncer uniqueInstance suspendAllWhile: aBlock +] + +{ #category : 'files' } +GRPharoPlatform >> ensureExistenceOfFolder: aString [ + "creates a folder named aString in the image directory" + FileSystem disk ensureCreateDirectory: aString +] + +{ #category : 'files' } +GRPharoPlatform >> fileExists: aString [ + ^ aString asFileReference exists +] + +{ #category : 'files' } +GRPharoPlatform >> filesIn: aPathString [ + "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString + must not include file names that start with ." + ^ Array streamContents: [ :stream | + FileSystem disk filesAt: aPathString do: [ :each | + each basename first = $. ifFalse: [ + stream nextPut: each asFileReference fullName ] ] ] +] + +{ #category : 'processes' } +GRPharoPlatform >> isProcessTerminated: aProcess [ + "Return a boolean indicating whether aProcess has been terminated." + ^ aProcess isTerminated +] + +{ #category : 'version info' } +GRPharoPlatform >> label [ + ^ 'Pharo' +] + +{ #category : 'files' } +GRPharoPlatform >> localNameOf: aFilename [ + ^ (FileSystem disk resolveString: aFilename) basename +] + +{ #category : 'factory' } +GRPharoPlatform >> newRandom [ + "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: + #nextInt: - should answer a random integer in the interval [1, anInteger] + #randomFrom: - should answer a random element from the given collection + + Make sure that both methods are safe under heavy concurrent load. + + Used by Gemstone/S traditional Randoms which cannot be persisted.." + ^ GRPharoRandomProvider +] + +{ #category : 'files' } +GRPharoPlatform >> newTemporaryFile [ + + ^ self newTemporaryFileNamed: UUID new greaseString +] + +{ #category : 'files' } +GRPharoPlatform >> newTemporaryFileNamed: aName [ + + | newFile | + newFile := FileLocator temp / aName. + newFile exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ]. + ^ newFile pathString +] + +{ #category : 'files' } +GRPharoPlatform >> newTemporaryFileReference [ + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + self + greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReference' + details: 'Use newTemporaryFile'. + ^ self newTemporaryFileReferenceNamed: UUID new asString +] + +{ #category : 'files' } +GRPharoPlatform >> newTemporaryFileReferenceNamed: aName [ + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + self + greaseDeprecatedApi: 'GRPlatform>>newTemporaryFileReferenceNamed:' + details: 'Use newTemporaryFileNamed:'. + ^ FileLocator temp / aName +] + +{ #category : 'file library' } +GRPharoPlatform >> newline [ + ^ String cr +] + +{ #category : 'exceptions' } +GRPharoPlatform >> openDebuggerOn: anError [ + | process | + process := Processor activeProcess. + "If we are running in the UI process, we don't want to suspend the active process. The + error was presumably triggered while stepping in the Debugger. If we simply immediately + signal an UnhandledError, the debugger will catch this and display the signaling context. + It isn't perfect or pretty but it works." + (ProcessBrowser isUIProcess: process) + ifTrue: [ + UnhandledError signalForException: anError ] + ifFalse: [ + WorldState addDeferredUIMessage: [ + UIManager default + requestDebuggerOpeningForProcess: process + named: anError description + inContext: anError signalerContext ]. + process suspend ] +] + +{ #category : 'files' } +GRPharoPlatform >> pathSeparator [ + ^ String with: FileSystem disk delimiter +] + +{ #category : 'files' } +GRPharoPlatform >> readFileStreamOn: aString do: aBlock binary: aBoolean [ + + ^ aBoolean + ifTrue: [ aString asFileReference binaryReadStreamDo: aBlock ] + ifFalse: [ aString asFileReference readStreamEncoded: 'utf-8' do: aBlock ] +] + +{ #category : 'factory' } +GRPharoPlatform >> readWriteByteStream [ + "ByteArray based read write stream" + + ^ ReadWriteStream on: (ByteArray new: 4096) +] + +{ #category : 'factory' } +GRPharoPlatform >> readWriteCharacterStream [ + "String based read write stream" + + ^ ReadWriteStream on: (String new: 4096) +] + +{ #category : 'startup' } +GRPharoPlatform >> removeFromShutDownList: aClass [ + "Remove aClass from the shutdown list in the system." + + SessionManager default unregisterClassNamed: aClass name +] + +{ #category : 'startup' } +GRPharoPlatform >> removeFromStartUpList: aClass [ + "Remove aClass from the startup list in the system." + + SessionManager default unregisterClassNamed: aClass name +] + +{ #category : 'file library' } +GRPharoPlatform >> removeSelector: aSymbol from: aClass [ + aClass removeSelector: aSymbol +] + +{ #category : 'cryptography' } +GRPharoPlatform >> secureHashFor: aString [ + ^ SHA1 new hashMessage: aString +] + +{ #category : 'factory' } +GRPharoPlatform >> semaphoreClass [ + "used by Gemstone/S traditional Semaphores which cannot be persisted" + ^ Semaphore +] + +{ #category : 'utf8 codec' } +GRPharoPlatform >> setutf8CodectoDeprecatedTextConverter [ + "Set to the GRPharoDeprecatedUtf8Codec that uses the deprecated TextConverter for utf8 encoding" + utf8DeprecatedCodecFlag := true +] + +{ #category : 'utf8 codec' } +GRPharoPlatform >> setutf8CodectoZinc [ + "Set to GRPharoUtf8Codec that uses Zinc for utf8 encoding" + utf8DeprecatedCodecFlag := false +] + +{ #category : 'files' } +GRPharoPlatform >> sizeOfFile: aString [ + + ^ aString asFileReference size +] + +{ #category : 'meta-object-protocol' } +GRPharoPlatform >> sourceCodeStringOf: aCompiledMethod [ + "Return a String with the source code for a compiled method." + + ^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode +] + +{ #category : 'exceptions' } +GRPharoPlatform >> stackDepth [ + + | depth current | + depth := 0. + current := thisContext. + [ current isNil ] whileFalse: [ + current := current sender. + depth := depth + 1 ]. + ^ depth - 1 +] + +{ #category : 'processes' } +GRPharoPlatform >> terminateProcess: aProcess [ + "Permanently terminate the process, unwinding first to execute #ensure: and #ifCurtailed: blocks." + aProcess terminate +] + +{ #category : 'processes' } +GRPharoPlatform >> thisContext [ + + ^ thisContext sender +] + +{ #category : 'private-file library' } +GRPharoPlatform >> useByteArrayLiterals [ + "whether ByteArray literals can/should be used" + ^ true +] + +{ #category : 'utf8 codec' } +GRPharoPlatform >> utf8CodecClass [ + + ^ utf8DeprecatedCodecFlag + ifNil: [ GRPharoUtf8Codec ] + ifNotNil: [ utf8DeprecatedCodecFlag + ifTrue:[ GRPharoDeprecatedUtf8Codec ] + ifFalse: [ GRPharoUtf8Codec ] ] +] + +{ #category : 'factory' } +GRPharoPlatform >> weakDictionaryOfSize: aNumber [ + ^ IdentityDictionary new: aNumber +] + +{ #category : 'files' } +GRPharoPlatform >> write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString [ + "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" + ^ self + writeFileStreamOn: (aFolderString asFileReference / aFileNameString) ensureDelete pathString + do: [ :stream | stream nextPutAll: aStringOrByteArray ] + binary: aStringOrByteArray isString not +] + +{ #category : 'files' } +GRPharoPlatform >> writeFileStreamOn: aString do: aBlock binary: aBoolean [ + ^ aBoolean + ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ] + ifFalse: [ aString asFileReference writeStreamEncoded: 'utf-8' do: [ :str | aBlock value: (ZnNewLineWriterStream on: str) ] ] +] diff --git a/repository/Grease-Pharo90-Core/GRPharoRandomProvider.class.st b/repository/Grease-Pharo90-Core/GRPharoRandomProvider.class.st new file mode 100644 index 00000000..02ced2d3 --- /dev/null +++ b/repository/Grease-Pharo90-Core/GRPharoRandomProvider.class.st @@ -0,0 +1,53 @@ +Class { + #name : 'GRPharoRandomProvider', + #superclass : 'GRObject', + #classInstVars : [ + 'mutex', + 'generator' + ], + #category : 'Grease-Pharo90-Core', + #package : 'Grease-Pharo90-Core' +} + +{ #category : 'private' } +GRPharoRandomProvider class >> initialize [ + Smalltalk addToStartUpList: self. + self startUp +] + +{ #category : 'public' } +GRPharoRandomProvider class >> nextInt: anInteger [ + + "Answer a random integer in the interval [1, anInteger]" + + ^ mutex critical: [ generator nextInteger: anInteger ] +] + +{ #category : 'private' } +GRPharoRandomProvider class >> randomClass [ + ^ Random +] + +{ #category : 'public' } +GRPharoRandomProvider class >> randomFrom: aCollection [ + | random count | + random := self nextInt: aCollection size. + ^ aCollection isSequenceable + ifTrue: [ aCollection at: random ] + ifFalse: [ + count := 1. + aCollection do: [ :ea | + count = random ifTrue: [ ^ ea ]. + count := count + 1 ] ] +] + +{ #category : 'class initialization' } +GRPharoRandomProvider class >> startUp [ + generator := self randomClass new. + mutex := Semaphore forMutualExclusion +] + +{ #category : 'private' } +GRPharoRandomProvider class >> unload [ + GRPlatform current removeFromStartUpList: self +] diff --git a/repository/Grease-Pharo90-Core/GRPharoUtf8Codec.class.st b/repository/Grease-Pharo90-Core/GRPharoUtf8Codec.class.st new file mode 100644 index 00000000..66abd8e4 --- /dev/null +++ b/repository/Grease-Pharo90-Core/GRPharoUtf8Codec.class.st @@ -0,0 +1,63 @@ +" +A WAUtf8Codec is a WACodec optimized for UTF-8. +" +Class { + #name : 'GRPharoUtf8Codec', + #superclass : 'GRCodec', + #category : 'Grease-Pharo90-Core', + #package : 'Grease-Pharo90-Core' +} + +{ #category : 'private' } +GRPharoUtf8Codec class >> basicForEncoding: aString [ + ^ self new +] + +{ #category : 'accessing' } +GRPharoUtf8Codec class >> codecs [ + ^ GRPlatform current utf8CodecClass == self + ifTrue:[ Array with: self new ] + ifFalse: [ Array new ] +] + +{ #category : 'private' } +GRPharoUtf8Codec class >> supportsEncoding: aString [ + ^ GRPlatform current utf8CodecClass == self and: [ (#('utf-8' 'UTF-8' 'utf8') includes: aString) ] +] + +{ #category : 'convenience' } +GRPharoUtf8Codec >> decode: aStringOrByteArray [ + ^ super decode: aStringOrByteArray asByteArray +] + +{ #category : 'conversion' } +GRPharoUtf8Codec >> decoderFor: aStream [ + ^ GRPharoZnUtf8CodecStream + on: aStream +] + +{ #category : 'conversion' } +GRPharoUtf8Codec >> encodedStringClass [ + ^ ByteArray +] + +{ #category : 'conversion' } +GRPharoUtf8Codec >> encoderFor: aStream [ + ^ GRPharoZnUtf8CodecStream + on: aStream +] + +{ #category : 'private' } +GRPharoUtf8Codec >> invalidUtf8 [ + ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' +] + +{ #category : 'accessing' } +GRPharoUtf8Codec >> name [ + ^ 'utf-8' +] + +{ #category : 'accessing' } +GRPharoUtf8Codec >> url [ + ^ self +] diff --git a/repository/Grease-Pharo90-Core/GRPharoZnUtf8CodecStream.class.st b/repository/Grease-Pharo90-Core/GRPharoZnUtf8CodecStream.class.st new file mode 100644 index 00000000..7f90eb1d --- /dev/null +++ b/repository/Grease-Pharo90-Core/GRPharoZnUtf8CodecStream.class.st @@ -0,0 +1,50 @@ +Class { + #name : 'GRPharoZnUtf8CodecStream', + #superclass : 'GRCodecStream', + #instVars : [ + 'encoder' + ], + #category : 'Grease-Pharo90-Core', + #package : 'Grease-Pharo90-Core' +} + +{ #category : 'accessing' } +GRPharoZnUtf8CodecStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + encoder next: anInteger putAll: aCollection startingAt: startIndex toStream: stream +] + +{ #category : 'initialization' } +GRPharoZnUtf8CodecStream >> initializeOn: aStream [ + super initializeOn: aStream. + encoder := ZnCharacterEncoder utf8 +] + +{ #category : 'accessing' } +GRPharoZnUtf8CodecStream >> next [ + | character | + stream atEnd ifTrue: [ ^ nil ]. + character := encoder nextFromStream: stream. + ^ character ifNotNil: [ character asCharacter ] +] + +{ #category : 'accessing' } +GRPharoZnUtf8CodecStream >> next: anInteger [ + | writeStream | + writeStream := WriteStream on: (String new: anInteger). + anInteger timesRepeat: [ + writeStream nextPut: (self next + ifNil: [ ^ writeStream contents ]) ]. + ^ writeStream contents +] + +{ #category : 'accessing' } +GRPharoZnUtf8CodecStream >> nextPut: aCharacter [ + encoder nextPut: aCharacter asCharacter toStream: stream +] + +{ #category : 'streaming' } +GRPharoZnUtf8CodecStream >> nextPutAll: aString [ + | string | + string := aString asString. + encoder next: string size putAll: string startingAt: 1 toStream: stream +] diff --git a/repository/Grease-Pharo90-Core/GRSmallDictionary.extension.st b/repository/Grease-Pharo90-Core/GRSmallDictionary.extension.st new file mode 100644 index 00000000..aefba8f2 --- /dev/null +++ b/repository/Grease-Pharo90-Core/GRSmallDictionary.extension.st @@ -0,0 +1,18 @@ +Extension { #name : 'GRSmallDictionary' } + +{ #category : '*Grease-Pharo90-Core' } +GRSmallDictionary >> inspectionItems: aBuilder [ + + + ^ aBuilder newTable + addColumn: (SpStringTableColumn + title: 'Key' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ]) + beSortable; + addColumn: (SpStringTableColumn + title: 'Value' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ]) + beSortable; + items: self associations; + yourself +] diff --git a/repository/Grease-Pharo90-Core/GRSmallDictionary2.extension.st b/repository/Grease-Pharo90-Core/GRSmallDictionary2.extension.st new file mode 100644 index 00000000..5824d510 --- /dev/null +++ b/repository/Grease-Pharo90-Core/GRSmallDictionary2.extension.st @@ -0,0 +1,18 @@ +Extension { #name : 'GRSmallDictionary2' } + +{ #category : '*Grease-Pharo90-Core' } +GRSmallDictionary2 >> inspectionItems: aBuilder [ + + + ^ aBuilder newTable + addColumn: (SpStringTableColumn + title: 'Key' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ]) + beSortable; + addColumn: (SpStringTableColumn + title: 'Value' + evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ]) + beSortable; + items: self associations; + yourself +] diff --git a/repository/Grease-Pharo90-Core/Interval.extension.st b/repository/Grease-Pharo90-Core/Interval.extension.st new file mode 100644 index 00000000..3c0d7b4b --- /dev/null +++ b/repository/Grease-Pharo90-Core/Interval.extension.st @@ -0,0 +1,9 @@ +Extension { #name : 'Interval' } + +{ #category : '*Grease-Pharo90-Core' } +Interval >> any [ + "#first (used by SequenceableCollection>>anyOne) is an accessor of + Interval and does not error on an empty Interval." + + ^ self at: 1 +] diff --git a/repository/Grease-Pharo90-Core/LargeInteger.extension.st b/repository/Grease-Pharo90-Core/LargeInteger.extension.st new file mode 100644 index 00000000..04f70e19 --- /dev/null +++ b/repository/Grease-Pharo90-Core/LargeInteger.extension.st @@ -0,0 +1,11 @@ +Extension { #name : 'LargeInteger' } + +{ #category : '*Grease-Pharo90-Core' } +LargeInteger >> greaseByteAt: index [ + ^ self byteAt: index +] + +{ #category : '*Grease-Pharo90-Core' } +LargeInteger >> greaseBytesCount [ + ^ self bytesCount +] diff --git a/repository/Grease-Pharo90-Core/MessageSend.extension.st b/repository/Grease-Pharo90-Core/MessageSend.extension.st new file mode 100644 index 00000000..359d6c12 --- /dev/null +++ b/repository/Grease-Pharo90-Core/MessageSend.extension.st @@ -0,0 +1,15 @@ +Extension { #name : 'MessageSend' } + +{ #category : '*Grease-Pharo90-Core' } +MessageSend >> argumentCount [ + ^ selector numArgs - self arguments size +] + +{ #category : '*Grease-Pharo90-Core' } +MessageSend >> valueWithPossibleArguments: anArray [ + "Evaluate the block represented by the receiver. + If the block requires one argument, use anArg, if it requires more than one, + fill up the rest with nils." + + ^ self valueWithEnoughArguments: anArray +] diff --git a/repository/Grease-Pharo90-Core/Number.extension.st b/repository/Grease-Pharo90-Core/Number.extension.st new file mode 100644 index 00000000..fbf995dc --- /dev/null +++ b/repository/Grease-Pharo90-Core/Number.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Number' } + +{ #category : '*Grease-Pharo90-Core' } +Number >> milliseconds [ + ^ self milliSeconds +] diff --git a/repository/Grease-Pharo90-Core/Object.extension.st b/repository/Grease-Pharo90-Core/Object.extension.st new file mode 100644 index 00000000..2ce37ada --- /dev/null +++ b/repository/Grease-Pharo90-Core/Object.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Object' } + +{ #category : '*Grease-Pharo90-Core' } +Object >> greaseString [ + ^ self asString +] diff --git a/repository/Grease-Pharo90-Core/Point.extension.st b/repository/Grease-Pharo90-Core/Point.extension.st new file mode 100644 index 00000000..790ccac0 --- /dev/null +++ b/repository/Grease-Pharo90-Core/Point.extension.st @@ -0,0 +1,16 @@ +Extension { #name : 'Point' } + +{ #category : '*Grease-Pharo90-Core' } +Point >> greaseString [ + "Reimplemented because in Pharo 1.4 + (4 @ 2) greaseString + ansers '(4@2)'" + ^ String streamContents: [ :stream | + x printOn: stream. + stream nextPut: $@. + (y notNil and: [ y negative ]) + ifTrue: [ + "Avoid ambiguous @- construct" + stream space ]. + y printOn: stream ] +] diff --git a/repository/Grease-Pharo90-Core/PositionableStream.extension.st b/repository/Grease-Pharo90-Core/PositionableStream.extension.st new file mode 100644 index 00000000..645c58cb --- /dev/null +++ b/repository/Grease-Pharo90-Core/PositionableStream.extension.st @@ -0,0 +1,8 @@ +Extension { #name : 'PositionableStream' } + +{ #category : '*Grease-Pharo90-Core' } +PositionableStream >> greaseUpToAll: aCollection [ + "Needed for Seaside ports to other dialects where #upToAll: may have + different semantics" + ^ self upToAll: aCollection +] diff --git a/repository/Grease-Pharo90-Core/ScaledDecimal.extension.st b/repository/Grease-Pharo90-Core/ScaledDecimal.extension.st new file mode 100644 index 00000000..9e7ffffb --- /dev/null +++ b/repository/Grease-Pharo90-Core/ScaledDecimal.extension.st @@ -0,0 +1,15 @@ +Extension { #name : 'ScaledDecimal' } + +{ #category : '*Grease-Pharo90-Core' } +ScaledDecimal >> encodeOn: aDocument [ + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + converter print: self on: aDocument +] + +{ #category : '*Grease-Pharo90-Core' } +ScaledDecimal >> greaseString [ + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + ^ converter print: self +] diff --git a/repository/Grease-Pharo90-Core/SequenceableCollection.extension.st b/repository/Grease-Pharo90-Core/SequenceableCollection.extension.st new file mode 100644 index 00000000..c5e597c1 --- /dev/null +++ b/repository/Grease-Pharo90-Core/SequenceableCollection.extension.st @@ -0,0 +1,35 @@ +Extension { #name : 'SequenceableCollection' } + +{ #category : '*Grease-Pharo90-Core' } +SequenceableCollection >> beginsWithSubCollection: aSequenceableCollection [ + + self + greaseDeprecatedApi: 'SequenceableCollection>>#beginsWithSubCollection:' + details: 'Use SequenceableCollection>>#greaseBeginsWith:'. + "Some platforms implement #beginsWith: to answer true for an empty argument." + ^ self beginsWith: aSequenceableCollection +] + +{ #category : '*Grease-Pharo90-Core' } +SequenceableCollection >> endsWithSubCollection: aSequenceableCollection [ + + self + greaseDeprecatedApi: 'SequenceableCollection>>#endsWithSubCollection:' + details: 'Use SequenceableCollection>>#greaseEndsWith:'. + "Some platforms implement #endsWith: to answer true for an empty argument." + ^ self endsWith: aSequenceableCollection +] + +{ #category : '*Grease-Pharo90-Core' } +SequenceableCollection >> greaseBeginsWith: aSequenceableCollection [ + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self beginsWith: aSequenceableCollection +] + +{ #category : '*Grease-Pharo90-Core' } +SequenceableCollection >> greaseEndsWith: aSequenceableCollection [ + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self endsWith: aSequenceableCollection +] diff --git a/repository/Grease-Pharo90-Core/SmallInteger.extension.st b/repository/Grease-Pharo90-Core/SmallInteger.extension.st new file mode 100644 index 00000000..71291a08 --- /dev/null +++ b/repository/Grease-Pharo90-Core/SmallInteger.extension.st @@ -0,0 +1,11 @@ +Extension { #name : 'SmallInteger' } + +{ #category : '*Grease-Pharo90-Core' } +SmallInteger >> greaseByteAt: index [ + ^ self byteAt: index +] + +{ #category : '*Grease-Pharo90-Core' } +SmallInteger >> greaseBytesCount [ + ^ self bytesCount +] diff --git a/repository/Grease-Pharo90-Core/SocketStream.extension.st b/repository/Grease-Pharo90-Core/SocketStream.extension.st new file mode 100644 index 00000000..15a438a6 --- /dev/null +++ b/repository/Grease-Pharo90-Core/SocketStream.extension.st @@ -0,0 +1,16 @@ +Extension { #name : 'SocketStream' } + +{ #category : '*Grease-Pharo90-Core' } +SocketStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + "Put a String or a ByteArray onto the stream starting at the given position. + Currently a large collection will allocate a large buffer." + + | toPut | + anInteger = 0 ifTrue: [ + ^ aCollection ]. + toPut := binary ifTrue: [ aCollection asByteArray ] ifFalse: [ aCollection asString ]. + self adjustOutBuffer: anInteger. + outBuffer replaceFrom: outNextToWrite to: outNextToWrite + anInteger - 1 with: toPut startingAt: startIndex. + outNextToWrite := outNextToWrite + anInteger. + self checkFlush +] diff --git a/repository/Grease-Pharo90-Core/Symbol.extension.st b/repository/Grease-Pharo90-Core/Symbol.extension.st new file mode 100644 index 00000000..1e4cf9c4 --- /dev/null +++ b/repository/Grease-Pharo90-Core/Symbol.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Symbol' } + +{ #category : '*Grease-Pharo90-Core' } +Symbol >> greaseAsMutator [ + ^ self asMutator +] diff --git a/repository/Grease-Pharo90-Core/WriteStream.extension.st b/repository/Grease-Pharo90-Core/WriteStream.extension.st new file mode 100644 index 00000000..87763892 --- /dev/null +++ b/repository/Grease-Pharo90-Core/WriteStream.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'WriteStream' } + +{ #category : '*Grease-Pharo90-Core' } +WriteStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + "Store the next anInteger elements from the given collection." + ^ self next: anInteger putAll: aCollection startingAt: startIndex +] diff --git a/repository/Grease-Pharo90-Core/package.st b/repository/Grease-Pharo90-Core/package.st new file mode 100644 index 00000000..0a1dac4b --- /dev/null +++ b/repository/Grease-Pharo90-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Pharo90-Core' } diff --git a/repository/Grease-Pharo90-Slime.package/.filetree b/repository/Grease-Pharo90-Slime.package/.filetree deleted file mode 100644 index 57a67973..00000000 --- a/repository/Grease-Pharo90-Slime.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/initialize.st deleted file mode 100644 index a39505e1..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/initialize.st +++ /dev/null @@ -1,18 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ]' - with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 ] ]'; - replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ]' - with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 ] ] ]'; - replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ] and: [ | `@temp5 | ``@expr5 ]' - with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 and: [ | `@temp5 | ``@expr5 ] ] ] ]'; - replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ]' - with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 ] ]'; - replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ]' - with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 ] ] ]'; - replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ]' - with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 ] ] ] ]'; - replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ] or: [ | `@temp6 | ``@expr6 ]' - with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 or: [ | `@temp6 | ``@expr6 ] ] ] ] ]' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/name.st deleted file mode 100644 index 5964bd28..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Booleans' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/rationale.st deleted file mode 100644 index 1f109f56..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#and:and: and #or:or: are not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/properties.json deleted file mode 100644 index 85e5b292..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiBooleansRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeTransformationRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRAnsiBooleansRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st deleted file mode 100644 index ce50f833..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st +++ /dev/null @@ -1,13 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: 'Character value: ``@expr' with: 'Character codePoint: ``@expr'; - replace: '`#source to: `#target' - withValueFrom: [ :node | - RBLiteralNode value: (String streamContents: [ :stream | - node receiver value codePoint to: node arguments first value codePoint do: [ :code | - stream nextPut: (Character codePoint: code) ] ]) ] - when: [ :node | - node receiver value isCharacter - and: [ node arguments first value isCharacter ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/name.st deleted file mode 100644 index a1b3f88e..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Characters' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st deleted file mode 100644 index e061dd71..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Character value: 64 and $a to: $b is not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/properties.json deleted file mode 100644 index eecce1fa..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiCharactersRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeTransformationRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRAnsiCharactersRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st deleted file mode 100644 index 00acba63..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st +++ /dev/null @@ -1,30 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@collection withIndexDo: [ :`each :`index | | `@temps | ``@.body ]' - with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; - replace: '``@collection doWithIndex: [ :`each :`index | | `@temps | ``@.body ]' - with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; - replace: '``@collection collect: ``@block1 thenDo: ``@block2' - with: '(``@collection collect: ``@block1) do: ``@block2'; - replace: '``@collection collect: ``@block1 thenSelect: ``@block2' - with: '(``@collection collect: ``@block1) select: ``@block2'; - replace: '``@collection pairsDo: [ :`t1 :`t2 | ``@.statements ]' - with: '1 to: ``@collection size by: 2 do: [ :index | | `t1 `t2 | `t1 := ``@collection at: index. `t2 := ``@collection at: index + 1. ``@.statements ]'; - replace: '``@collection reject: ``@block1 thenDo: ``@block2' - with: '(``@collection reject: ``@block1) do: ``@block2'; - replace: '``@collection select: ``@block1 thenCollect: ``@block2' - with: '(``@collection select: ``@block1) collect: ``@block2'; - replace: '``@collection select: ``@block1 thenDo: ``@block2' - with: '(``@collection select: ``@block1) do: ``@block2'; - replace: '``@collection detectSum: [ :`t1 | ``@.statements. `.last ]' - with: '``@collection inject: 0 into: [ :sum :`t1 | ``@.statements. sum + (`.last) ]'; - replace: '``@collection valuesDo: ``@block' - with: '``@collection do: ``@block'; - replace: '``@collection reversed' - with: '``@collection reverse'; - replace: '``@dictionary keysSortedSafely' - with: '``@dictionary keys asSortedCollection'; - replace: '``@collectionClass new: ``@size withAll: ``@character' - with: '(``@collectionClass new: ``@size) atAllPut: ``@character' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/name.st deleted file mode 100644 index fba52990..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Collections' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/rationale.st deleted file mode 100644 index 8470c14b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Some collection methods are not ANSI compatible: #pairsDo:, #collect:thenDo:, #reject:thenDo:, #detectSum:, #valuesDo:, #keysSortedSafely, #new:withAll:, etc.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/properties.json deleted file mode 100644 index 467f20f9..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiCollectionsRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeTransformationRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRAnsiCollectionsRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/initialize.st deleted file mode 100644 index fe291c53..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/initialize.st +++ /dev/null @@ -1,16 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@boolean ifNotNilDo: ``@block' - with: '``@boolean ifNotNil: ``@block'; - replace: '``@boolean ifNotNilDo: ``@block1 ifNil: ``@block2' - with: '``@boolean ifNotNil: ``@block1 ifNil: ``@block2'; - replace: '``@boolean ifNil: ``@block1 ifNotNilDo: ``@block2' - with: '``@boolean ifNil: ``@block1 ifNotNil: ``@block2'; - replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ]' - with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ]'; - replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ] ifNil: ``@block ' - with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ] ifNil: ``@block'; - replace: '``@boolean ifNil: ``@block ifNotNil: [ | `@temps | ``@.body ]' - with: '``@boolean ifNil: ``@block ifNotNil: [ :arg | | `@temps | ``@.body ]' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/name.st deleted file mode 100644 index 4693610d..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Conditionals' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/rationale.st deleted file mode 100644 index 42b2134b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Conditionals like #ifNotNilDo: are not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/properties.json deleted file mode 100644 index 98442b11..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiConditionalsRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeTransformationRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRAnsiConditionalsRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/initialize.st deleted file mode 100644 index bcd5fbac..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@object asString' with: '``@object greaseString'; - replace: '``@object asInteger' with: '``@object greaseInteger' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/name.st deleted file mode 100644 index f3dd2a4d..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Convertors' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/rationale.st deleted file mode 100644 index fa9200b0..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'The ANSI standard does not support #asInteger and #asString on Object.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/properties.json deleted file mode 100644 index 8bd5e6cf..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiConvertorRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeTransformationRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRAnsiConvertorRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/initialize.st deleted file mode 100644 index f0aadb85..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@block on: `class do: [ | `@temps | ``@.body ]' - with: '``@block on: `class do: [ :err | | `@temps | ``@.body ]' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/name.st deleted file mode 100644 index e86669e1..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Exceptions' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/rationale.st deleted file mode 100644 index 392fdedd..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Exception handlers expect exactly one argument in ANSI.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/properties.json deleted file mode 100644 index dfe03407..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiExceptionsRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeTransformationRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRAnsiExceptionsRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/initialize.st deleted file mode 100644 index 826e1af2..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/initialize.st +++ /dev/null @@ -1,12 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } cr' - with: '`{ :context | context at: ''`receiver'' } nextPut: Character cr'; - replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } lf' - with: '`{ :context | context at: ''`receiver'' } nextPut: Character lf'; - replace: '``@stream nextPut: Character cr; nextPut: Character lf' - with: '``@stream crlf'; - replace: '``@collection writeStream' - with: 'WriteStream on: ``@collection' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/name.st deleted file mode 100644 index aa09ac20..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Streams' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/rationale.st deleted file mode 100644 index 57a15ba8..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#cr and #lf are not part of the ANSI stream protocol.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/properties.json deleted file mode 100644 index 9bb495b2..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiStreamsRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeTransformationRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRAnsiStreamsRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/initialize.st deleted file mode 100644 index 1256fabc..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/initialize.st +++ /dev/null @@ -1,24 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: 'String tab' with: '(String with: Character tab)'; - replace: 'String cr' with: '(String with: Character cr)'; - replace: 'String lf' with: '(String with: Character lf)'; - replace: 'String crlf' with: '(String with: Character cr with: Character lf)'; - replace: 'String space' with: '(String with: Character space)'; - replace: '`@string includesSubString: `@subString' - with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; - replace: '`@string includesSubstring: `@subString' - with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; - replace: '``@string findTokens: ``@arg' withValueFrom: [ :node | - | argument | - argument := node arguments first. - argument isLiteralNode ifTrue: [ - argument value isArray - ifTrue: [ argument replaceWith: (RBLiteralNode value: (String withAll: argument value)) ]. - argument value isCharacter - ifTrue: [ argument replaceWith: (RBLiteralNode value: (String with: argument value)) ] ]. - node - selector: #subStrings:; - yourself ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/name.st deleted file mode 100644 index cdc89723..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Strings' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/rationale.st deleted file mode 100644 index a42a193e..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#cr, #crlf, #lf, #space, #tab, #findTokens:, ... are not part of the ANSI string protocol.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/properties.json deleted file mode 100644 index bcfa99fc..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRAnsiStringsRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeTransformationRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRAnsiStringsRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st deleted file mode 100644 index 1b916f3c..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st +++ /dev/null @@ -1,13 +0,0 @@ -running -checkClass: aContext - (aContext isMeta not - and: [ (aContext includesSelector: #initialize) - and: [ (#(GRObject GRNotification GRNotification GRError RBLintRule RBTransformationRule) noneSatisfy: [ :each | - aContext includesBehavior: (Smalltalk globals at: each) ]) - and: [ aContext class methodDictionary noneSatisfy: [ :each | - matcher - executeTree: each parseTree - initialAnswer: false ] ] ] ]) ifTrue: [ - result - addClass: aContext - selector: #initialize ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st deleted file mode 100644 index 40611cde..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initialize - super initialize. - matcher := RBParseTreeSearcher new. - matcher - matches: 'self basicNew initialize' - do: [ :node :answer | true ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/name.st deleted file mode 100644 index 5e0a6113..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ '#basicNew initialize is missing' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st deleted file mode 100644 index 996d9872..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#initialize is not called implicitely when sending #new to an object in other Smalltalk dialects. Consider subclassing GRObject.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json deleted file mode 100644 index 26feb6d9..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeBlockLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "matcher" - ], - "name" : "GRBasicNewInitializeMissingRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/initialize.st deleted file mode 100644 index 857cfe81..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/initialize.st +++ /dev/null @@ -1,23 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '[ :`@args | | `@temps | ``@.stmts ]' - do: [ :node :answer | - answer isNil - ifFalse: [ answer ] - ifTrue: [ - | source | - source := node source. - (source notNil and: [ node left notNil and: [ node right notNil ] ]) ifTrue: [ - | before after | - before := source at: node left + 1 ifAbsent: [ $ ]. - after := source at: node right - 1 ifAbsent: [ $ ]. - (before isSeparator and: [ after isSeparator ]) - ifFalse: [ node ] - ifTrue: [ - node bar notNil ifTrue: [ - before := source at: node bar - 1 ifAbsent: [ $ ]. - after := source at: node bar + 1 ifAbsent: [ $ ]. - (before isSeparator and: [ after isSeparator ]) - ifFalse: [ node ] ] ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/name.st deleted file mode 100644 index 4c9c6708..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Block formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/rationale.st deleted file mode 100644 index 3c042a50..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'There should spaces at the beginning and end of block.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/properties.json deleted file mode 100644 index 67dc7eb8..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRBlockFormattingRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeParseTreeLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRBlockFormattingRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/checkMethod..st deleted file mode 100644 index bec7aeb7..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/checkMethod..st +++ /dev/null @@ -1,20 +0,0 @@ -running -checkMethod: aContext - | matches | - matches := matcher - executeTree: aContext parseTree - initialAnswer: OrderedCollection new. - matches do: [ :node | - " This ensures that the description is of the form ClassName>>#selector:" - (node arguments first isLiteralNode - and: [ node arguments first value isString - and: [ aContext methodClass name greaseString , '>>#' , aContext selector greaseString ~= node arguments first value ] ]) ifTrue: [ - result addClass: aContext methodClass selector: aContext selector. - result addSearchString: node arguments first value ]. - " This ensures that the description is a string and ends with a dot." - (node arguments size > 1 - and: [ node arguments second isLiteralNode - and: [ node arguments second value isString - and: [ (node arguments second value endsWithSubCollection: '.') not ] ] ]) ifTrue: [ - result addClass: aContext methodClass selector: aContext selector. - result addSearchString: node arguments second value ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st deleted file mode 100644 index 9fb5c9de..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st +++ /dev/null @@ -1,9 +0,0 @@ -initialization -initialize - super initialize. - matcher := RBParseTreeSearcher new. - matcher - matchesAnyOf: #( - '``@receiver greaseDeprecatedApi: ``@arg1' - '``@receiver greaseDeprecatedApi: ``@arg1 details: ``@arg2' ) - do: [ :node :answer | answer add: node; yourself ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/name.st deleted file mode 100644 index 516849b7..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Invalid use of deprecated API protocol.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st deleted file mode 100644 index 9bff5427..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Make sure to follow the following pattern: self greaseDeprecatedApi: ''Class>>#selector'' details: ''Some description''.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json deleted file mode 100644 index e5708071..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeBlockLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "matcher" - ], - "name" : "GRDeprecatedApiProtocolRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st deleted file mode 100644 index 30369982..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st +++ /dev/null @@ -1,10 +0,0 @@ -running -checkMethod: aContext - (aContext methodClass isMeta not - and: [ (aContext selector beginsWithSubCollection: #initialize) - and: [ aContext selector numArgs > 0 - and: [ aContext methodClass ~= GRObject - and: [ (aContext methodClass includesBehavior: GRObject) - and: [ (aContext superMessages includes: aContext selector) not - and: [ aContext selfMessages noneSatisfy: [ :each | each beginsWithSubCollection: #initialize ] ] ] ] ] ] ]) - ifTrue: [ result addClass: aContext methodClass selector: aContext selector ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/name.st deleted file mode 100644 index d814b293..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Invalid object initialization' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/rationale.st deleted file mode 100644 index 7b2fed07..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Initialize methods are required to call the designated initializer or its super implementation.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/properties.json deleted file mode 100644 index 39c115bc..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRInvalidObjectInitializationRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeBlockLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRInvalidObjectInitializationRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st deleted file mode 100644 index 6d276d6c..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st +++ /dev/null @@ -1,12 +0,0 @@ -running -checkClass: aContext - | selectors | - selectors := self methodNames - inject: Set new - into: [ :set :each | - set - addAll: (aContext whichSelectorsReferTo: each); - yourself ]. - selectors do: [ :each | result addClass: aContext selector: each ]. - selectors isEmpty - ifFalse: [ result searchStrings: self methodNames ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/methodNames.st b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/methodNames.st deleted file mode 100644 index 7bfd5f10..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/methodNames.st +++ /dev/null @@ -1,3 +0,0 @@ -private -methodNames - ^ #( anyOne withIndexCollect: ) \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/name.st deleted file mode 100644 index 77664e0e..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses non portable message' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/rationale.st deleted file mode 100644 index 4de4dc3f..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Some methods are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/properties.json deleted file mode 100644 index f94b5725..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRNonPortableMessageRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeBlockLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRNonPortableMessageRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st deleted file mode 100644 index 95b1d5c1..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st +++ /dev/null @@ -1,8 +0,0 @@ -running -checkClass: aContext - | comment | - aContext isMeta - ifTrue: [ ^ self ]. - comment := aContext organization classComment asString. - comment isWideString ifTrue: [ - result addClass: aContext ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st deleted file mode 100644 index ae19cb73..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st +++ /dev/null @@ -1,17 +0,0 @@ -running -checkMethod: aContext - | foundLiteral | - foundLiteral := false. - "check individual literals first" - aContext literals do: [ :each | - (each isString and: [ each isWideString ]) ifTrue: [ - result - addClass: aContext methodClass - selector: aContext selector. - result addSearchString: each. - foundLiteral := true ] ]. - - "now check the whole method, could be in comments" - foundLiteral ifFalse: [ - aContext sourceCode asString isWideString ifTrue: [ - result addClass: aContext methodClass selector: aContext selector ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/name.st deleted file mode 100644 index 3469916d..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Non portable source format' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/rationale.st deleted file mode 100644 index 7306a747..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'The method source is required to be a plain string, for portability reasons a wide-string is not supported.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/properties.json deleted file mode 100644 index c940a9de..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRNonPortableSourceFormatRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeBlockLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRNonPortableSourceFormatRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st deleted file mode 100644 index 776d58af..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st +++ /dev/null @@ -1,8 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '`@collection beginsWith: `@subCollection' - with: '`@collection greaseBeginsWith: `@subCollection'; - replace: '`@collection endsWith: `@subCollection' - with: '`@collection greaseEndsWith: `@subCollection' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/name.st deleted file mode 100644 index fba52990..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Collections' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/rationale.st deleted file mode 100644 index 908ce1c0..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#beginsWith: and #endsWith: are not portable.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/properties.json deleted file mode 100644 index d32b9c06..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRNotPortableCollectionsRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeTransformationRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRNotPortableCollectionsRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/README.md deleted file mode 100644 index bca4d093..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I detect senders of Object >> #in: diff --git a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/initialize.st deleted file mode 100644 index 38aa19b0..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@object in: [ :`var | | `@temps | `@.statements ]' - with: '[ :`var | | `@temps | `@.statements ] value: ``@object' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/name.st deleted file mode 100644 index 65dd49f6..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Object>>#in:' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/rationale.st deleted file mode 100644 index c3b2c41b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Object>>#in: has different semantics on different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/properties.json deleted file mode 100644 index cc910d3f..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRObjectInRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 9/12/2009 10:37", - "super" : "GRSlimeTransformationRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRObjectInRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRPackage.extension/class/greaseSlime.st b/repository/Grease-Pharo90-Slime.package/GRPackage.extension/class/greaseSlime.st deleted file mode 100644 index e120aacb..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRPackage.extension/class/greaseSlime.st +++ /dev/null @@ -1,8 +0,0 @@ -*Grease-Pharo90-Slime -greaseSlime - ^ self new - name: 'Grease-Pharo90-Slime'; - description: 'Code critis for Grease. Detects common types of bugs and non-portable code.'; - addDependency: 'Grease-Core'; - url: #seasideUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRPackage.extension/properties.json b/repository/Grease-Pharo90-Slime.package/GRPackage.extension/properties.json deleted file mode 100644 index ae522a7e..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRPackage" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/initialize.st deleted file mode 100644 index c8c72c58..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/initialize.st +++ /dev/null @@ -1,20 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '`{ :node | node isValue and: [ node hasParentheses ] }' - do: [ :node :answer | - answer isNil - ifFalse: [ answer ] - ifTrue: [ - | found start stop | - found := false. - start := node startWithoutParentheses. - stop := node stopWithoutParentheses. - node parentheses reverseDo: [ :interval | - found := found - or: [ start - 1 ~= interval first - or: [ stop + 1 ~= interval last ] ]. - start := interval first. - stop := interval last ]. - found ifTrue: [ node ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/name.st deleted file mode 100644 index 48e67c85..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Parentheses formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/rationale.st deleted file mode 100644 index 298a86b2..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'There should be no spaces inside parentheses.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/properties.json deleted file mode 100644 index dee328d6..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRParensFormattingRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeParseTreeLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRParensFormattingRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/initialize.st deleted file mode 100644 index 500df13d..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/initialize.st +++ /dev/null @@ -1,11 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '^ ``@expr' - do: [ :node :answer | - answer isNil - ifFalse: [ answer ] - ifTrue: [ - node start + 2 ~= node value start - ifTrue: [ node ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/name.st deleted file mode 100644 index ed235f80..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Return formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/rationale.st deleted file mode 100644 index 904d4922..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'There should be a single space between the ^ and the following expression.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/properties.json deleted file mode 100644 index de40fc2b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRReturnFormattingRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeParseTreeLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRReturnFormattingRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/class/isVisible.st b/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/class/isVisible.st deleted file mode 100644 index 43f102e1..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/class/isVisible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isVisible - ^ self name ~= #GRSlimeBlockLintRule \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/instance/category.st b/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/instance/category.st deleted file mode 100644 index af69ca36..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/instance/category.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -category - ^ self group \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/properties.json deleted file mode 100644 index fe4136b6..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRSlimeBlockLintRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "RBBlockLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRSlimeBlockLintRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/class/isVisible.st b/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/class/isVisible.st deleted file mode 100644 index fa02a17b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/class/isVisible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isVisible - ^ self name ~= #GRSlimeParseTreeLintRule \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/instance/category.st b/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/instance/category.st deleted file mode 100644 index af69ca36..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/instance/category.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -category - ^ self group \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/properties.json deleted file mode 100644 index 3496a9d3..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRSlimeParseTreeLintRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "RBParseTreeLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRSlimeParseTreeLintRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/class/isVisible.st b/repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/class/isVisible.st deleted file mode 100644 index 1bdda3d8..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/class/isVisible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isVisible - ^ self name ~= #GRSlimeTransformationRule \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/properties.json deleted file mode 100644 index 59ba3260..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRSlimeTransformationRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "RBTransformationRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRSlimeTransformationRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/initialize.st deleted file mode 100644 index a0f0b5a3..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/initialize.st +++ /dev/null @@ -1,18 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '| `temp `@temps | ``@.stmts' - do: [ :node :answer | - answer isNil - ifFalse: [ answer ] - ifTrue: [ - (node leftBar notNil and: [ node rightBar notNil ]) ifTrue: [ - | found position | - found := false. - position := node leftBar. - node temporaries do: [ :each | - found := found or: [ position + 2 ~= each start ]. - position := each stop ]. - found := found or: [ position + 2 ~= node rightBar ]. - found ifTrue: [ node ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/name.st deleted file mode 100644 index 770e86d9..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Temporaries formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/rationale.st deleted file mode 100644 index 49cb65dd..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'There should be a single space between the | and the individual temps.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/properties.json deleted file mode 100644 index f5bfa60b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRTempsFormattingRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeParseTreeLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRTempsFormattingRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/README.md deleted file mode 100644 index 6f3d9062..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I check for TestCase >> #fail. \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st deleted file mode 100644 index bab892c3..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st +++ /dev/null @@ -1,7 +0,0 @@ -running -checkMethod: aContext - aContext methodClass isMeta - ifTrue: [ ^ self ]. - (aContext methodClass allSuperclasses includes:(Smalltalk at: #TestCase)) - ifFalse: [ ^ self ]. - ^ super checkMethod: aContext \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/group.st deleted file mode 100644 index 5a189b4d..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'SUnit Compatibility' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/initialize.st deleted file mode 100644 index d9d6784f..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: 'self fail' - with: 'self assert: false' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/name.st deleted file mode 100644 index cb37341d..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'TestCase >> #fail' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/rationale.st deleted file mode 100644 index 0a6ddcf6..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'TestCase >> #fail is not portable.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/properties.json deleted file mode 100644 index 82a9cffc..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRTestAssertionsRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 8/17/2014 11:24", - "super" : "GRSlimeTransformationRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRTestAssertionsRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st deleted file mode 100644 index 954a79b9..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st +++ /dev/null @@ -1,7 +0,0 @@ -running -checkMethod: aContext - aContext parseTree nodesDo: [ :node | - node isSequence ifTrue: [ - (node statements notEmpty and: [ node periods notEmpty ]) ifTrue: [ - node periods last > node statements last stop ifTrue: [ - ^ result addClass: aContext methodClass selector: aContext selector ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/name.st deleted file mode 100644 index 5873f52c..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Unnecessary Last Period' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/rationale.st deleted file mode 100644 index ccbe48b6..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Periods are not needed after the last satement.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/resetResult.st b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/resetResult.st deleted file mode 100644 index 5b87472b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/resetResult.st +++ /dev/null @@ -1,4 +0,0 @@ -running -resetResult - super resetResult. - result addSearchString: '..'; addSearchString: '.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/properties.json deleted file mode 100644 index 0147b08b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUnnecessaryLastPeriodRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeBlockLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRUnnecessaryLastPeriodRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st deleted file mode 100644 index 7923fa99..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st +++ /dev/null @@ -1,8 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matchesAnyOf: #( - '`@receiver canPerform: `@selector' - '`@receiver canUnderstand: `@selector' ) - do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st deleted file mode 100644 index b9ce70ca..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Sends #canPerform: or #canUnderstand:' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st deleted file mode 100644 index 7e3a24ab..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#canPerform: or #canUnderstand: are not portable.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json deleted file mode 100644 index 55e65987..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeParseTreeLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRUsesCanPerformOrUnderstandRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/checkMethod..st deleted file mode 100644 index 2fdbe101..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/checkMethod..st +++ /dev/null @@ -1,4 +0,0 @@ -running -checkMethod: aContext - aContext parseTree selector = #hash - ifTrue: [ super checkMethod: aContext ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/initialize.st deleted file mode 100644 index c56d728f..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '`@receiver class hash' - do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/name.st deleted file mode 100644 index 5bdd2ee0..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses its class for hash' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/rationale.st deleted file mode 100644 index 84eba400..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'The hash of an object should not depend on the hash of its class as some Smalltalk have non-constant class hashes.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/properties.json deleted file mode 100644 index e5c083e1..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesClassForHashRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeParseTreeLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRUsesClassForHashRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/initialize.st b/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/initialize.st deleted file mode 100644 index ffa7a3bd..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '{ `@.stmts }' - do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/name.st deleted file mode 100644 index 1228c96a..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses curly brace arrays' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/rationale.st deleted file mode 100644 index c8668119..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Curly brace expressions are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/properties.json deleted file mode 100644 index ec167193..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesCurlyBraceArraysRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeParseTreeLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRUsesCurlyBraceArraysRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st deleted file mode 100644 index c48f9bf5..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st +++ /dev/null @@ -1,8 +0,0 @@ -running -checkMethod: aContext - (self shouldExclude: aContext) ifFalse: [ - aContext pragmas do: [ :each | - result - addClass: aContext methodClass - selector: aContext selector. - result addSearchString: each selector ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/name.st deleted file mode 100644 index dce9f95b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses method annotations' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/rationale.st deleted file mode 100644 index 33162ca3..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'As of now, it is unclear if method-annotations/pragmas are compatible across all supported platforms. Likely this rule will soon be removed.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/shouldExclude..st b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/shouldExclude..st deleted file mode 100644 index 331fa027..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/instance/shouldExclude..st +++ /dev/null @@ -1,9 +0,0 @@ -running -shouldExclude: aContext - "The REST and OmniBrowser related packages are OK to have pragmas" - - | classCategory | - classCategory := aContext methodClass instanceSide category. - ^ #(#'-REST-' 'OmniBrowser') - anySatisfy: - [ :each | (classCategory indexOfSubCollection: each startingAt: 1) ~= 0 ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/properties.json deleted file mode 100644 index 07e34e71..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesMethodAnnotationsRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeBlockLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRUsesMethodAnnotationsRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/README.md b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st deleted file mode 100644 index 674dcf52..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st +++ /dev/null @@ -1,6 +0,0 @@ -running -checkClass: aContext - aContext allSuperclassesDo: [ :each | - (self classNames includes: each name) ifTrue: [ - result addClass: aContext. - result addSearchString: each name ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st deleted file mode 100644 index 18cb585b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st +++ /dev/null @@ -1,12 +0,0 @@ -running -checkMethod: aContext - (aContext methodClass instanceSide category - indexOfSubCollection: #'-Pharo-' - startingAt: 1) ~= 0 - ifTrue: - [ "classes in a -Pharo- package are per definition not portable and therefore allowed to use non-portable classes" ^ self ]. - aContext literals - do: [ :each | - (each isVariableBinding and: [ self classNames includes: each key ]) - ifTrue: [ result addClass: aContext methodClass selector: aContext selector. - result addSearchString: each key ] ] \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/classNames.st b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/classNames.st deleted file mode 100644 index f3d5db68..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/classNames.st +++ /dev/null @@ -1,3 +0,0 @@ -private -classNames - ^ #( Delay MIMEDocument Monitor Mutex MutexSet Random Semaphore TimeStamp Timestamp MessageSend ) \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/group.st b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/name.st b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/name.st deleted file mode 100644 index ba0b2df9..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses not portable class' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/rationale.st b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/rationale.st deleted file mode 100644 index e0f12e97..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Some classes are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/properties.json b/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/properties.json deleted file mode 100644 index 4d85da34..00000000 --- a/repository/Grease-Pharo90-Slime.package/GRUsesNotPortableClassRule.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSlimeBlockLintRule", - "category" : "Grease-Pharo90-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRUsesNotPortableClassRule", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/monticello.meta/categories.st b/repository/Grease-Pharo90-Slime.package/monticello.meta/categories.st deleted file mode 100644 index c906a39a..00000000 --- a/repository/Grease-Pharo90-Slime.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Pharo90-Slime'! diff --git a/repository/Grease-Pharo90-Slime.package/monticello.meta/initializers.st b/repository/Grease-Pharo90-Slime.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Pharo90-Slime.package/monticello.meta/package b/repository/Grease-Pharo90-Slime.package/monticello.meta/package deleted file mode 100644 index 0b4dab28..00000000 --- a/repository/Grease-Pharo90-Slime.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Pharo90-Slime') \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime.package/properties.json b/repository/Grease-Pharo90-Slime.package/properties.json deleted file mode 100644 index 6f31cf5a..00000000 --- a/repository/Grease-Pharo90-Slime.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/repository/Grease-Pharo90-Slime/GRAnsiBooleansRule.class.st b/repository/Grease-Pharo90-Slime/GRAnsiBooleansRule.class.st new file mode 100644 index 00000000..ea1a5299 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRAnsiBooleansRule.class.st @@ -0,0 +1,41 @@ +Class { + #name : 'GRAnsiBooleansRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'accessing' } +GRAnsiBooleansRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiBooleansRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ]' + with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 ] ]'; + replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ]' + with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 ] ] ]'; + replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ] and: [ | `@temp5 | ``@expr5 ]' + with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 and: [ | `@temp5 | ``@expr5 ] ] ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 ] ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 ] ] ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ] or: [ | `@temp6 | ``@expr6 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 or: [ | `@temp6 | ``@expr6 ] ] ] ] ]' +] + +{ #category : 'accessing' } +GRAnsiBooleansRule >> name [ + ^ 'Booleans' +] + +{ #category : 'accessing' } +GRAnsiBooleansRule >> rationale [ + ^ '#and:and: and #or:or: are not ANSI compatible.' +] diff --git a/repository/Grease-Pharo90-Slime/GRAnsiCharactersRule.class.st b/repository/Grease-Pharo90-Slime/GRAnsiCharactersRule.class.st new file mode 100644 index 00000000..82a9bbdb --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRAnsiCharactersRule.class.st @@ -0,0 +1,36 @@ +Class { + #name : 'GRAnsiCharactersRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'accessing' } +GRAnsiCharactersRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiCharactersRule >> initialize [ + super initialize. + self rewriteRule + replace: 'Character value: ``@expr' with: 'Character codePoint: ``@expr'; + replace: '`#source to: `#target' + withValueFrom: [ :node | + RBLiteralNode value: (String streamContents: [ :stream | + node receiver value codePoint to: node arguments first value codePoint do: [ :code | + stream nextPut: (Character codePoint: code) ] ]) ] + when: [ :node | + node receiver value isCharacter + and: [ node arguments first value isCharacter ] ] +] + +{ #category : 'accessing' } +GRAnsiCharactersRule >> name [ + ^ 'Characters' +] + +{ #category : 'accessing' } +GRAnsiCharactersRule >> rationale [ + ^ 'Character value: 64 and $a to: $b is not ANSI compatible.' +] diff --git a/repository/Grease-Pharo90-Slime/GRAnsiCollectionsRule.class.st b/repository/Grease-Pharo90-Slime/GRAnsiCollectionsRule.class.st new file mode 100644 index 00000000..3f8f2679 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRAnsiCollectionsRule.class.st @@ -0,0 +1,53 @@ +Class { + #name : 'GRAnsiCollectionsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'accessing' } +GRAnsiCollectionsRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiCollectionsRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@collection withIndexDo: [ :`each :`index | | `@temps | ``@.body ]' + with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; + replace: '``@collection doWithIndex: [ :`each :`index | | `@temps | ``@.body ]' + with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; + replace: '``@collection collect: ``@block1 thenDo: ``@block2' + with: '(``@collection collect: ``@block1) do: ``@block2'; + replace: '``@collection collect: ``@block1 thenSelect: ``@block2' + with: '(``@collection collect: ``@block1) select: ``@block2'; + replace: '``@collection pairsDo: [ :`t1 :`t2 | ``@.statements ]' + with: '1 to: ``@collection size by: 2 do: [ :index | | `t1 `t2 | `t1 := ``@collection at: index. `t2 := ``@collection at: index + 1. ``@.statements ]'; + replace: '``@collection reject: ``@block1 thenDo: ``@block2' + with: '(``@collection reject: ``@block1) do: ``@block2'; + replace: '``@collection select: ``@block1 thenCollect: ``@block2' + with: '(``@collection select: ``@block1) collect: ``@block2'; + replace: '``@collection select: ``@block1 thenDo: ``@block2' + with: '(``@collection select: ``@block1) do: ``@block2'; + replace: '``@collection detectSum: [ :`t1 | ``@.statements. `.last ]' + with: '``@collection inject: 0 into: [ :sum :`t1 | ``@.statements. sum + (`.last) ]'; + replace: '``@collection valuesDo: ``@block' + with: '``@collection do: ``@block'; + replace: '``@collection reversed' + with: '``@collection reverse'; + replace: '``@dictionary keysSortedSafely' + with: '``@dictionary keys asSortedCollection'; + replace: '``@collectionClass new: ``@size withAll: ``@character' + with: '(``@collectionClass new: ``@size) atAllPut: ``@character' +] + +{ #category : 'accessing' } +GRAnsiCollectionsRule >> name [ + ^ 'Collections' +] + +{ #category : 'accessing' } +GRAnsiCollectionsRule >> rationale [ + ^ 'Some collection methods are not ANSI compatible: #pairsDo:, #collect:thenDo:, #reject:thenDo:, #detectSum:, #valuesDo:, #keysSortedSafely, #new:withAll:, etc.' +] diff --git a/repository/Grease-Pharo90-Slime/GRAnsiConditionalsRule.class.st b/repository/Grease-Pharo90-Slime/GRAnsiConditionalsRule.class.st new file mode 100644 index 00000000..6b85dfa6 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRAnsiConditionalsRule.class.st @@ -0,0 +1,39 @@ +Class { + #name : 'GRAnsiConditionalsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'accessing' } +GRAnsiConditionalsRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiConditionalsRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@boolean ifNotNilDo: ``@block' + with: '``@boolean ifNotNil: ``@block'; + replace: '``@boolean ifNotNilDo: ``@block1 ifNil: ``@block2' + with: '``@boolean ifNotNil: ``@block1 ifNil: ``@block2'; + replace: '``@boolean ifNil: ``@block1 ifNotNilDo: ``@block2' + with: '``@boolean ifNil: ``@block1 ifNotNil: ``@block2'; + replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ]' + with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ]'; + replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ] ifNil: ``@block ' + with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ] ifNil: ``@block'; + replace: '``@boolean ifNil: ``@block ifNotNil: [ | `@temps | ``@.body ]' + with: '``@boolean ifNil: ``@block ifNotNil: [ :arg | | `@temps | ``@.body ]' +] + +{ #category : 'accessing' } +GRAnsiConditionalsRule >> name [ + ^ 'Conditionals' +] + +{ #category : 'accessing' } +GRAnsiConditionalsRule >> rationale [ + ^ 'Conditionals like #ifNotNilDo: are not ANSI compatible.' +] diff --git a/repository/Grease-Pharo90-Slime/GRAnsiConvertorRule.class.st b/repository/Grease-Pharo90-Slime/GRAnsiConvertorRule.class.st new file mode 100644 index 00000000..05bbb5aa --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRAnsiConvertorRule.class.st @@ -0,0 +1,29 @@ +Class { + #name : 'GRAnsiConvertorRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'accessing' } +GRAnsiConvertorRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiConvertorRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@object asString' with: '``@object greaseString'; + replace: '``@object asInteger' with: '``@object greaseInteger' +] + +{ #category : 'accessing' } +GRAnsiConvertorRule >> name [ + ^ 'Convertors' +] + +{ #category : 'accessing' } +GRAnsiConvertorRule >> rationale [ + ^ 'The ANSI standard does not support #asInteger and #asString on Object.' +] diff --git a/repository/Grease-Pharo90-Slime/GRAnsiExceptionsRule.class.st b/repository/Grease-Pharo90-Slime/GRAnsiExceptionsRule.class.st new file mode 100644 index 00000000..0064945d --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRAnsiExceptionsRule.class.st @@ -0,0 +1,29 @@ +Class { + #name : 'GRAnsiExceptionsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'accessing' } +GRAnsiExceptionsRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiExceptionsRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@block on: `class do: [ | `@temps | ``@.body ]' + with: '``@block on: `class do: [ :err | | `@temps | ``@.body ]' +] + +{ #category : 'accessing' } +GRAnsiExceptionsRule >> name [ + ^ 'Exceptions' +] + +{ #category : 'accessing' } +GRAnsiExceptionsRule >> rationale [ + ^ 'Exception handlers expect exactly one argument in ANSI.' +] diff --git a/repository/Grease-Pharo90-Slime/GRAnsiStreamsRule.class.st b/repository/Grease-Pharo90-Slime/GRAnsiStreamsRule.class.st new file mode 100644 index 00000000..ecdc3572 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRAnsiStreamsRule.class.st @@ -0,0 +1,35 @@ +Class { + #name : 'GRAnsiStreamsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'accessing' } +GRAnsiStreamsRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiStreamsRule >> initialize [ + super initialize. + self rewriteRule + replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } cr' + with: '`{ :context | context at: ''`receiver'' } nextPut: Character cr'; + replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } lf' + with: '`{ :context | context at: ''`receiver'' } nextPut: Character lf'; + replace: '``@stream nextPut: Character cr; nextPut: Character lf' + with: '``@stream crlf'; + replace: '``@collection writeStream' + with: 'WriteStream on: ``@collection' +] + +{ #category : 'accessing' } +GRAnsiStreamsRule >> name [ + ^ 'Streams' +] + +{ #category : 'accessing' } +GRAnsiStreamsRule >> rationale [ + ^ '#cr and #lf are not part of the ANSI stream protocol.' +] diff --git a/repository/Grease-Pharo90-Slime/GRAnsiStringsRule.class.st b/repository/Grease-Pharo90-Slime/GRAnsiStringsRule.class.st new file mode 100644 index 00000000..f812ca3f --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRAnsiStringsRule.class.st @@ -0,0 +1,47 @@ +Class { + #name : 'GRAnsiStringsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'accessing' } +GRAnsiStringsRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiStringsRule >> initialize [ + super initialize. + self rewriteRule + replace: 'String tab' with: '(String with: Character tab)'; + replace: 'String cr' with: '(String with: Character cr)'; + replace: 'String lf' with: '(String with: Character lf)'; + replace: 'String crlf' with: '(String with: Character cr with: Character lf)'; + replace: 'String space' with: '(String with: Character space)'; + replace: '`@string includesSubString: `@subString' + with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; + replace: '`@string includesSubstring: `@subString' + with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; + replace: '``@string findTokens: ``@arg' withValueFrom: [ :node | + | argument | + argument := node arguments first. + argument isLiteralNode ifTrue: [ + argument value isArray + ifTrue: [ argument replaceWith: (RBLiteralNode value: (String withAll: argument value)) ]. + argument value isCharacter + ifTrue: [ argument replaceWith: (RBLiteralNode value: (String with: argument value)) ] ]. + node + selector: #subStrings:; + yourself ] +] + +{ #category : 'accessing' } +GRAnsiStringsRule >> name [ + ^ 'Strings' +] + +{ #category : 'accessing' } +GRAnsiStringsRule >> rationale [ + ^ '#cr, #crlf, #lf, #space, #tab, #findTokens:, ... are not part of the ANSI string protocol.' +] diff --git a/repository/Grease-Pharo90-Slime/GRBasicNewInitializeMissingRule.class.st b/repository/Grease-Pharo90-Slime/GRBasicNewInitializeMissingRule.class.st new file mode 100644 index 00000000..c53839df --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRBasicNewInitializeMissingRule.class.st @@ -0,0 +1,48 @@ +Class { + #name : 'GRBasicNewInitializeMissingRule', + #superclass : 'GRSlimeBlockLintRule', + #instVars : [ + 'matcher' + ], + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'running' } +GRBasicNewInitializeMissingRule >> checkClass: aContext [ + (aContext isMeta not + and: [ (aContext includesSelector: #initialize) + and: [ (#(GRObject GRNotification GRNotification GRError RBLintRule RBTransformationRule) noneSatisfy: [ :each | + aContext includesBehavior: (Smalltalk globals at: each) ]) + and: [ aContext class methodDictionary noneSatisfy: [ :each | + matcher + executeTree: each parseTree + initialAnswer: false ] ] ] ]) ifTrue: [ + result + addClass: aContext + selector: #initialize ] +] + +{ #category : 'accessing' } +GRBasicNewInitializeMissingRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRBasicNewInitializeMissingRule >> initialize [ + super initialize. + matcher := RBParseTreeSearcher new. + matcher + matches: 'self basicNew initialize' + do: [ :node :answer | true ] +] + +{ #category : 'accessing' } +GRBasicNewInitializeMissingRule >> name [ + ^ '#basicNew initialize is missing' +] + +{ #category : 'accessing' } +GRBasicNewInitializeMissingRule >> rationale [ + ^ '#initialize is not called implicitely when sending #new to an object in other Smalltalk dialects. Consider subclassing GRObject.' +] diff --git a/repository/Grease-Pharo90-Slime/GRBlockFormattingRule.class.st b/repository/Grease-Pharo90-Slime/GRBlockFormattingRule.class.st new file mode 100644 index 00000000..b89d90eb --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRBlockFormattingRule.class.st @@ -0,0 +1,46 @@ +Class { + #name : 'GRBlockFormattingRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'accessing' } +GRBlockFormattingRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'initialization' } +GRBlockFormattingRule >> initialize [ + super initialize. + self matcher + matches: '[ :`@args | | `@temps | ``@.stmts ]' + do: [ :node :answer | + answer isNil + ifFalse: [ answer ] + ifTrue: [ + | source | + source := node source. + (source notNil and: [ node left notNil and: [ node right notNil ] ]) ifTrue: [ + | before after | + before := source at: node left + 1 ifAbsent: [ $ ]. + after := source at: node right - 1 ifAbsent: [ $ ]. + (before isSeparator and: [ after isSeparator ]) + ifFalse: [ node ] + ifTrue: [ + node bar notNil ifTrue: [ + before := source at: node bar - 1 ifAbsent: [ $ ]. + after := source at: node bar + 1 ifAbsent: [ $ ]. + (before isSeparator and: [ after isSeparator ]) + ifFalse: [ node ] ] ] ] ] ] +] + +{ #category : 'accessing' } +GRBlockFormattingRule >> name [ + ^ 'Block formatting' +] + +{ #category : 'accessing' } +GRBlockFormattingRule >> rationale [ + ^ 'There should spaces at the beginning and end of block.' +] diff --git a/repository/Grease-Pharo90-Slime/GRDeprecatedApiProtocolRule.class.st b/repository/Grease-Pharo90-Slime/GRDeprecatedApiProtocolRule.class.st new file mode 100644 index 00000000..8b055a64 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRDeprecatedApiProtocolRule.class.st @@ -0,0 +1,57 @@ +Class { + #name : 'GRDeprecatedApiProtocolRule', + #superclass : 'GRSlimeBlockLintRule', + #instVars : [ + 'matcher' + ], + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'running' } +GRDeprecatedApiProtocolRule >> checkMethod: aContext [ + | matches | + matches := matcher + executeTree: aContext parseTree + initialAnswer: OrderedCollection new. + matches do: [ :node | + " This ensures that the description is of the form ClassName>>#selector:" + (node arguments first isLiteralNode + and: [ node arguments first value isString + and: [ aContext methodClass name greaseString , '>>#' , aContext selector greaseString ~= node arguments first value ] ]) ifTrue: [ + result addClass: aContext methodClass selector: aContext selector. + result addSearchString: node arguments first value ]. + " This ensures that the description is a string and ends with a dot." + (node arguments size > 1 + and: [ node arguments second isLiteralNode + and: [ node arguments second value isString + and: [ (node arguments second value endsWithSubCollection: '.') not ] ] ]) ifTrue: [ + result addClass: aContext methodClass selector: aContext selector. + result addSearchString: node arguments second value ] ] +] + +{ #category : 'accessing' } +GRDeprecatedApiProtocolRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'initialization' } +GRDeprecatedApiProtocolRule >> initialize [ + super initialize. + matcher := RBParseTreeSearcher new. + matcher + matchesAnyOf: #( + '``@receiver greaseDeprecatedApi: ``@arg1' + '``@receiver greaseDeprecatedApi: ``@arg1 details: ``@arg2' ) + do: [ :node :answer | answer add: node; yourself ] +] + +{ #category : 'accessing' } +GRDeprecatedApiProtocolRule >> name [ + ^ 'Invalid use of deprecated API protocol.' +] + +{ #category : 'accessing' } +GRDeprecatedApiProtocolRule >> rationale [ + ^ 'Make sure to follow the following pattern: self greaseDeprecatedApi: ''Class>>#selector'' details: ''Some description''.' +] diff --git a/repository/Grease-Pharo90-Slime/GRInvalidObjectInitializationRule.class.st b/repository/Grease-Pharo90-Slime/GRInvalidObjectInitializationRule.class.st new file mode 100644 index 00000000..c0425b8e --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRInvalidObjectInitializationRule.class.st @@ -0,0 +1,33 @@ +Class { + #name : 'GRInvalidObjectInitializationRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'running' } +GRInvalidObjectInitializationRule >> checkMethod: aContext [ + (aContext methodClass isMeta not + and: [ (aContext selector beginsWithSubCollection: #initialize) + and: [ aContext selector numArgs > 0 + and: [ aContext methodClass ~= GRObject + and: [ (aContext methodClass includesBehavior: GRObject) + and: [ (aContext superMessages includes: aContext selector) not + and: [ aContext selfMessages noneSatisfy: [ :each | each beginsWithSubCollection: #initialize ] ] ] ] ] ] ]) + ifTrue: [ result addClass: aContext methodClass selector: aContext selector ] +] + +{ #category : 'accessing' } +GRInvalidObjectInitializationRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'accessing' } +GRInvalidObjectInitializationRule >> name [ + ^ 'Invalid object initialization' +] + +{ #category : 'accessing' } +GRInvalidObjectInitializationRule >> rationale [ + ^ 'Initialize methods are required to call the designated initializer or its super implementation.' +] diff --git a/repository/Grease-Pharo90-Slime/GRNonPortableMessageRule.class.st b/repository/Grease-Pharo90-Slime/GRNonPortableMessageRule.class.st new file mode 100644 index 00000000..662a0e43 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRNonPortableMessageRule.class.st @@ -0,0 +1,40 @@ +Class { + #name : 'GRNonPortableMessageRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'running' } +GRNonPortableMessageRule >> checkClass: aContext [ + | selectors | + selectors := self methodNames + inject: Set new + into: [ :set :each | + set + addAll: (aContext whichSelectorsReferTo: each); + yourself ]. + selectors do: [ :each | result addClass: aContext selector: each ]. + selectors isEmpty + ifFalse: [ result searchStrings: self methodNames ] +] + +{ #category : 'accessing' } +GRNonPortableMessageRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'private' } +GRNonPortableMessageRule >> methodNames [ + ^ #( anyOne withIndexCollect: ) +] + +{ #category : 'accessing' } +GRNonPortableMessageRule >> name [ + ^ 'Uses non portable message' +] + +{ #category : 'accessing' } +GRNonPortableMessageRule >> rationale [ + ^ 'Some methods are not portable accross different Smalltalk dialects.' +] diff --git a/repository/Grease-Pharo90-Slime/GRNonPortableSourceFormatRule.class.st b/repository/Grease-Pharo90-Slime/GRNonPortableSourceFormatRule.class.st new file mode 100644 index 00000000..4c6dddd6 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRNonPortableSourceFormatRule.class.st @@ -0,0 +1,50 @@ +Class { + #name : 'GRNonPortableSourceFormatRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'running' } +GRNonPortableSourceFormatRule >> checkClass: aContext [ + | comment | + aContext isMeta + ifTrue: [ ^ self ]. + comment := aContext organization classComment asString. + comment isWideString ifTrue: [ + result addClass: aContext ] +] + +{ #category : 'running' } +GRNonPortableSourceFormatRule >> checkMethod: aContext [ + | foundLiteral | + foundLiteral := false. + "check individual literals first" + aContext literals do: [ :each | + (each isString and: [ each isWideString ]) ifTrue: [ + result + addClass: aContext methodClass + selector: aContext selector. + result addSearchString: each. + foundLiteral := true ] ]. + + "now check the whole method, could be in comments" + foundLiteral ifFalse: [ + aContext sourceCode asString isWideString ifTrue: [ + result addClass: aContext methodClass selector: aContext selector ] ] +] + +{ #category : 'accessing' } +GRNonPortableSourceFormatRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'accessing' } +GRNonPortableSourceFormatRule >> name [ + ^ 'Non portable source format' +] + +{ #category : 'accessing' } +GRNonPortableSourceFormatRule >> rationale [ + ^ 'The method source is required to be a plain string, for portability reasons a wide-string is not supported.' +] diff --git a/repository/Grease-Pharo90-Slime/GRNotPortableCollectionsRule.class.st b/repository/Grease-Pharo90-Slime/GRNotPortableCollectionsRule.class.st new file mode 100644 index 00000000..0bfa7028 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRNotPortableCollectionsRule.class.st @@ -0,0 +1,31 @@ +Class { + #name : 'GRNotPortableCollectionsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'accessing' } +GRNotPortableCollectionsRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRNotPortableCollectionsRule >> initialize [ + super initialize. + self rewriteRule + replace: '`@collection beginsWith: `@subCollection' + with: '`@collection greaseBeginsWith: `@subCollection'; + replace: '`@collection endsWith: `@subCollection' + with: '`@collection greaseEndsWith: `@subCollection' +] + +{ #category : 'accessing' } +GRNotPortableCollectionsRule >> name [ + ^ 'Collections' +] + +{ #category : 'accessing' } +GRNotPortableCollectionsRule >> rationale [ + ^ '#beginsWith: and #endsWith: are not portable.' +] diff --git a/repository/Grease-Pharo90-Slime/GRObjectInRule.class.st b/repository/Grease-Pharo90-Slime/GRObjectInRule.class.st new file mode 100644 index 00000000..2a089915 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRObjectInRule.class.st @@ -0,0 +1,33 @@ +" +I detect senders of Object >> #in: + +" +Class { + #name : 'GRObjectInRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'accessing' } +GRObjectInRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRObjectInRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@object in: [ :`var | | `@temps | `@.statements ]' + with: '[ :`var | | `@temps | `@.statements ] value: ``@object' +] + +{ #category : 'accessing' } +GRObjectInRule >> name [ + ^ 'Object>>#in:' +] + +{ #category : 'accessing' } +GRObjectInRule >> rationale [ + ^ 'Object>>#in: has different semantics on different Smalltalk dialects.' +] diff --git a/repository/Grease-Pharo90-Slime/GRPackage.extension.st b/repository/Grease-Pharo90-Slime/GRPackage.extension.st new file mode 100644 index 00000000..a8b00495 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRPackage.extension.st @@ -0,0 +1,11 @@ +Extension { #name : 'GRPackage' } + +{ #category : '*Grease-Pharo90-Slime' } +GRPackage class >> greaseSlime [ + ^ self new + name: 'Grease-Pharo90-Slime'; + description: 'Code critis for Grease. Detects common types of bugs and non-portable code.'; + addDependency: 'Grease-Core'; + url: #seasideUrl; + yourself +] diff --git a/repository/Grease-Pharo90-Slime/GRParensFormattingRule.class.st b/repository/Grease-Pharo90-Slime/GRParensFormattingRule.class.st new file mode 100644 index 00000000..f4fa5473 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRParensFormattingRule.class.st @@ -0,0 +1,43 @@ +Class { + #name : 'GRParensFormattingRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'accessing' } +GRParensFormattingRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'initialization' } +GRParensFormattingRule >> initialize [ + super initialize. + self matcher + matches: '`{ :node | node isValue and: [ node hasParentheses ] }' + do: [ :node :answer | + answer isNil + ifFalse: [ answer ] + ifTrue: [ + | found start stop | + found := false. + start := node startWithoutParentheses. + stop := node stopWithoutParentheses. + node parentheses reverseDo: [ :interval | + found := found + or: [ start - 1 ~= interval first + or: [ stop + 1 ~= interval last ] ]. + start := interval first. + stop := interval last ]. + found ifTrue: [ node ] ] ] +] + +{ #category : 'accessing' } +GRParensFormattingRule >> name [ + ^ 'Parentheses formatting' +] + +{ #category : 'accessing' } +GRParensFormattingRule >> rationale [ + ^ 'There should be no spaces inside parentheses.' +] diff --git a/repository/Grease-Pharo90-Slime/GRReturnFormattingRule.class.st b/repository/Grease-Pharo90-Slime/GRReturnFormattingRule.class.st new file mode 100644 index 00000000..49d8e4fc --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRReturnFormattingRule.class.st @@ -0,0 +1,34 @@ +Class { + #name : 'GRReturnFormattingRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'accessing' } +GRReturnFormattingRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'initialization' } +GRReturnFormattingRule >> initialize [ + super initialize. + self matcher + matches: '^ ``@expr' + do: [ :node :answer | + answer isNil + ifFalse: [ answer ] + ifTrue: [ + node start + 2 ~= node value start + ifTrue: [ node ] ] ] +] + +{ #category : 'accessing' } +GRReturnFormattingRule >> name [ + ^ 'Return formatting' +] + +{ #category : 'accessing' } +GRReturnFormattingRule >> rationale [ + ^ 'There should be a single space between the ^ and the following expression.' +] diff --git a/repository/Grease-Pharo90-Slime/GRSlimeBlockLintRule.class.st b/repository/Grease-Pharo90-Slime/GRSlimeBlockLintRule.class.st new file mode 100644 index 00000000..05b6abab --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRSlimeBlockLintRule.class.st @@ -0,0 +1,16 @@ +Class { + #name : 'GRSlimeBlockLintRule', + #superclass : 'RBBlockLintRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'testing' } +GRSlimeBlockLintRule class >> isVisible [ + ^ self name ~= #GRSlimeBlockLintRule +] + +{ #category : 'accessing' } +GRSlimeBlockLintRule >> category [ + ^ self group +] diff --git a/repository/Grease-Pharo90-Slime/GRSlimeParseTreeLintRule.class.st b/repository/Grease-Pharo90-Slime/GRSlimeParseTreeLintRule.class.st new file mode 100644 index 00000000..c7887df6 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRSlimeParseTreeLintRule.class.st @@ -0,0 +1,16 @@ +Class { + #name : 'GRSlimeParseTreeLintRule', + #superclass : 'RBParseTreeLintRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'testing' } +GRSlimeParseTreeLintRule class >> isVisible [ + ^ self name ~= #GRSlimeParseTreeLintRule +] + +{ #category : 'accessing' } +GRSlimeParseTreeLintRule >> category [ + ^ self group +] diff --git a/repository/Grease-Pharo90-Slime/GRSlimeTransformationRule.class.st b/repository/Grease-Pharo90-Slime/GRSlimeTransformationRule.class.st new file mode 100644 index 00000000..395ff0a1 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRSlimeTransformationRule.class.st @@ -0,0 +1,11 @@ +Class { + #name : 'GRSlimeTransformationRule', + #superclass : 'RBTransformationRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'testing' } +GRSlimeTransformationRule class >> isVisible [ + ^ self name ~= #GRSlimeTransformationRule +] diff --git a/repository/Grease-Pharo90-Slime/GRTempsFormattingRule.class.st b/repository/Grease-Pharo90-Slime/GRTempsFormattingRule.class.st new file mode 100644 index 00000000..70cd86de --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRTempsFormattingRule.class.st @@ -0,0 +1,41 @@ +Class { + #name : 'GRTempsFormattingRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'accessing' } +GRTempsFormattingRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'initialization' } +GRTempsFormattingRule >> initialize [ + super initialize. + self matcher + matches: '| `temp `@temps | ``@.stmts' + do: [ :node :answer | + answer isNil + ifFalse: [ answer ] + ifTrue: [ + (node leftBar notNil and: [ node rightBar notNil ]) ifTrue: [ + | found position | + found := false. + position := node leftBar. + node temporaries do: [ :each | + found := found or: [ position + 2 ~= each start ]. + position := each stop ]. + found := found or: [ position + 2 ~= node rightBar ]. + found ifTrue: [ node ] ] ] ] +] + +{ #category : 'accessing' } +GRTempsFormattingRule >> name [ + ^ 'Temporaries formatting' +] + +{ #category : 'accessing' } +GRTempsFormattingRule >> rationale [ + ^ 'There should be a single space between the | and the individual temps.' +] diff --git a/repository/Grease-Pharo90-Slime/GRTestAssertionsRule.class.st b/repository/Grease-Pharo90-Slime/GRTestAssertionsRule.class.st new file mode 100644 index 00000000..04a9bf26 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRTestAssertionsRule.class.st @@ -0,0 +1,41 @@ +" +I check for TestCase >> #fail. +" +Class { + #name : 'GRTestAssertionsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'running' } +GRTestAssertionsRule >> checkMethod: aContext [ + aContext methodClass isMeta + ifTrue: [ ^ self ]. + (aContext methodClass allSuperclasses includes:(Smalltalk at: #TestCase)) + ifFalse: [ ^ self ]. + ^ super checkMethod: aContext +] + +{ #category : 'accessing' } +GRTestAssertionsRule >> group [ + ^ 'SUnit Compatibility' +] + +{ #category : 'initialization' } +GRTestAssertionsRule >> initialize [ + super initialize. + self rewriteRule + replace: 'self fail' + with: 'self assert: false' +] + +{ #category : 'accessing' } +GRTestAssertionsRule >> name [ + ^ 'TestCase >> #fail' +] + +{ #category : 'accessing' } +GRTestAssertionsRule >> rationale [ + ^ 'TestCase >> #fail is not portable.' +] diff --git a/repository/Grease-Pharo90-Slime/GRUnnecessaryLastPeriodRule.class.st b/repository/Grease-Pharo90-Slime/GRUnnecessaryLastPeriodRule.class.st new file mode 100644 index 00000000..fb4a905e --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRUnnecessaryLastPeriodRule.class.st @@ -0,0 +1,36 @@ +Class { + #name : 'GRUnnecessaryLastPeriodRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'running' } +GRUnnecessaryLastPeriodRule >> checkMethod: aContext [ + aContext parseTree nodesDo: [ :node | + node isSequence ifTrue: [ + (node statements notEmpty and: [ node periods notEmpty ]) ifTrue: [ + node periods last > node statements last stop ifTrue: [ + ^ result addClass: aContext methodClass selector: aContext selector ] ] ] ] +] + +{ #category : 'accessing' } +GRUnnecessaryLastPeriodRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'accessing' } +GRUnnecessaryLastPeriodRule >> name [ + ^ 'Unnecessary Last Period' +] + +{ #category : 'accessing' } +GRUnnecessaryLastPeriodRule >> rationale [ + ^ 'Periods are not needed after the last satement.' +] + +{ #category : 'running' } +GRUnnecessaryLastPeriodRule >> resetResult [ + super resetResult. + result addSearchString: '..'; addSearchString: '.' +] diff --git a/repository/Grease-Pharo90-Slime/GRUsesCanPerformOrUnderstandRule.class.st b/repository/Grease-Pharo90-Slime/GRUsesCanPerformOrUnderstandRule.class.st new file mode 100644 index 00000000..017f8529 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRUsesCanPerformOrUnderstandRule.class.st @@ -0,0 +1,31 @@ +Class { + #name : 'GRUsesCanPerformOrUnderstandRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'accessing' } +GRUsesCanPerformOrUnderstandRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRUsesCanPerformOrUnderstandRule >> initialize [ + super initialize. + self matcher + matchesAnyOf: #( + '`@receiver canPerform: `@selector' + '`@receiver canUnderstand: `@selector' ) + do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] +] + +{ #category : 'accessing' } +GRUsesCanPerformOrUnderstandRule >> name [ + ^ 'Sends #canPerform: or #canUnderstand:' +] + +{ #category : 'accessing' } +GRUsesCanPerformOrUnderstandRule >> rationale [ + ^ '#canPerform: or #canUnderstand: are not portable.' +] diff --git a/repository/Grease-Pharo90-Slime/GRUsesClassForHashRule.class.st b/repository/Grease-Pharo90-Slime/GRUsesClassForHashRule.class.st new file mode 100644 index 00000000..c3a3969d --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRUsesClassForHashRule.class.st @@ -0,0 +1,35 @@ +Class { + #name : 'GRUsesClassForHashRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'running' } +GRUsesClassForHashRule >> checkMethod: aContext [ + aContext parseTree selector = #hash + ifTrue: [ super checkMethod: aContext ] +] + +{ #category : 'accessing' } +GRUsesClassForHashRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRUsesClassForHashRule >> initialize [ + super initialize. + self matcher + matches: '`@receiver class hash' + do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] +] + +{ #category : 'accessing' } +GRUsesClassForHashRule >> name [ + ^ 'Uses its class for hash' +] + +{ #category : 'accessing' } +GRUsesClassForHashRule >> rationale [ + ^ 'The hash of an object should not depend on the hash of its class as some Smalltalk have non-constant class hashes.' +] diff --git a/repository/Grease-Pharo90-Slime/GRUsesCurlyBraceArraysRule.class.st b/repository/Grease-Pharo90-Slime/GRUsesCurlyBraceArraysRule.class.st new file mode 100644 index 00000000..049532d7 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRUsesCurlyBraceArraysRule.class.st @@ -0,0 +1,29 @@ +Class { + #name : 'GRUsesCurlyBraceArraysRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'accessing' } +GRUsesCurlyBraceArraysRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRUsesCurlyBraceArraysRule >> initialize [ + super initialize. + self matcher + matches: '{ `@.stmts }' + do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] +] + +{ #category : 'accessing' } +GRUsesCurlyBraceArraysRule >> name [ + ^ 'Uses curly brace arrays' +] + +{ #category : 'accessing' } +GRUsesCurlyBraceArraysRule >> rationale [ + ^ 'Curly brace expressions are not portable accross different Smalltalk dialects.' +] diff --git a/repository/Grease-Pharo90-Slime/GRUsesMethodAnnotationsRule.class.st b/repository/Grease-Pharo90-Slime/GRUsesMethodAnnotationsRule.class.st new file mode 100644 index 00000000..ac2f7d9f --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRUsesMethodAnnotationsRule.class.st @@ -0,0 +1,42 @@ +Class { + #name : 'GRUsesMethodAnnotationsRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'running' } +GRUsesMethodAnnotationsRule >> checkMethod: aContext [ + (self shouldExclude: aContext) ifFalse: [ + aContext pragmas do: [ :each | + result + addClass: aContext methodClass + selector: aContext selector. + result addSearchString: each selector ] ] +] + +{ #category : 'accessing' } +GRUsesMethodAnnotationsRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'accessing' } +GRUsesMethodAnnotationsRule >> name [ + ^ 'Uses method annotations' +] + +{ #category : 'accessing' } +GRUsesMethodAnnotationsRule >> rationale [ + ^ 'As of now, it is unclear if method-annotations/pragmas are compatible across all supported platforms. Likely this rule will soon be removed.' +] + +{ #category : 'running' } +GRUsesMethodAnnotationsRule >> shouldExclude: aContext [ + "The REST and OmniBrowser related packages are OK to have pragmas" + + | classCategory | + classCategory := aContext methodClass instanceSide category. + ^ #(#'-REST-' 'OmniBrowser') + anySatisfy: + [ :each | (classCategory indexOfSubCollection: each startingAt: 1) ~= 0 ] +] diff --git a/repository/Grease-Pharo90-Slime/GRUsesNotPortableClassRule.class.st b/repository/Grease-Pharo90-Slime/GRUsesNotPortableClassRule.class.st new file mode 100644 index 00000000..45c7e1f2 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/GRUsesNotPortableClassRule.class.st @@ -0,0 +1,48 @@ +Class { + #name : 'GRUsesNotPortableClassRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Pharo90-Slime', + #package : 'Grease-Pharo90-Slime' +} + +{ #category : 'running' } +GRUsesNotPortableClassRule >> checkClass: aContext [ + aContext allSuperclassesDo: [ :each | + (self classNames includes: each name) ifTrue: [ + result addClass: aContext. + result addSearchString: each name ] ] +] + +{ #category : 'running' } +GRUsesNotPortableClassRule >> checkMethod: aContext [ + (aContext methodClass instanceSide category + indexOfSubCollection: #'-Pharo-' + startingAt: 1) ~= 0 + ifTrue: + [ "classes in a -Pharo- package are per definition not portable and therefore allowed to use non-portable classes" ^ self ]. + aContext literals + do: [ :each | + (each isVariableBinding and: [ self classNames includes: each key ]) + ifTrue: [ result addClass: aContext methodClass selector: aContext selector. + result addSearchString: each key ] ] +] + +{ #category : 'private' } +GRUsesNotPortableClassRule >> classNames [ + ^ #( Delay MIMEDocument Monitor Mutex MutexSet Random Semaphore TimeStamp Timestamp MessageSend ) +] + +{ #category : 'accessing' } +GRUsesNotPortableClassRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'accessing' } +GRUsesNotPortableClassRule >> name [ + ^ 'Uses not portable class' +] + +{ #category : 'accessing' } +GRUsesNotPortableClassRule >> rationale [ + ^ 'Some classes are not portable accross different Smalltalk dialects.' +] diff --git a/repository/Grease-Pharo90-Slime/package.st b/repository/Grease-Pharo90-Slime/package.st new file mode 100644 index 00000000..990a1172 --- /dev/null +++ b/repository/Grease-Pharo90-Slime/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Pharo90-Slime' } diff --git a/repository/Grease-Slime.package/.filetree b/repository/Grease-Slime.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-Slime.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-Slime.package/GRAnsiBooleansRule.class/README.md b/repository/Grease-Slime.package/GRAnsiBooleansRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRAnsiBooleansRule.class/instance/group.st b/repository/Grease-Slime.package/GRAnsiBooleansRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Slime.package/GRAnsiBooleansRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiBooleansRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRAnsiBooleansRule.class/instance/initialize.st deleted file mode 100644 index a39505e1..00000000 --- a/repository/Grease-Slime.package/GRAnsiBooleansRule.class/instance/initialize.st +++ /dev/null @@ -1,18 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ]' - with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 ] ]'; - replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ]' - with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 ] ] ]'; - replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ] and: [ | `@temp5 | ``@expr5 ]' - with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 and: [ | `@temp5 | ``@expr5 ] ] ] ]'; - replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ]' - with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 ] ]'; - replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ]' - with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 ] ] ]'; - replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ]' - with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 ] ] ] ]'; - replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ] or: [ | `@temp6 | ``@expr6 ]' - with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 or: [ | `@temp6 | ``@expr6 ] ] ] ] ]' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiBooleansRule.class/instance/name.st b/repository/Grease-Slime.package/GRAnsiBooleansRule.class/instance/name.st deleted file mode 100644 index 5964bd28..00000000 --- a/repository/Grease-Slime.package/GRAnsiBooleansRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Booleans' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiBooleansRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRAnsiBooleansRule.class/instance/rationale.st deleted file mode 100644 index 1f109f56..00000000 --- a/repository/Grease-Slime.package/GRAnsiBooleansRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#and:and: and #or:or: are not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiBooleansRule.class/properties.json b/repository/Grease-Slime.package/GRAnsiBooleansRule.class/properties.json deleted file mode 100644 index a8dc29cc..00000000 --- a/repository/Grease-Slime.package/GRAnsiBooleansRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRAnsiBooleansRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRAnsiCharactersRule.class/README.md b/repository/Grease-Slime.package/GRAnsiCharactersRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRAnsiCharactersRule.class/instance/group.st b/repository/Grease-Slime.package/GRAnsiCharactersRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Slime.package/GRAnsiCharactersRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st deleted file mode 100644 index 2742a93f..00000000 --- a/repository/Grease-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st +++ /dev/null @@ -1,13 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: 'Character value: ``@expr' with: 'Character codePoint: ``@expr'; - replace: '`#source to: `#target' - withValueFrom: [ :node | - RBLiteralNode value: (String streamContents: [ :stream | - node receiver value codePoint to: node arguments first value codePoint do: [ :code | - stream nextPut: (Character codePoint: code) ] ]) ] - when: [ :node | - node receiver value isCharacter - and: [ node arguments first value isCharacter ] ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiCharactersRule.class/instance/name.st b/repository/Grease-Slime.package/GRAnsiCharactersRule.class/instance/name.st deleted file mode 100644 index a1b3f88e..00000000 --- a/repository/Grease-Slime.package/GRAnsiCharactersRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Characters' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st deleted file mode 100644 index e061dd71..00000000 --- a/repository/Grease-Slime.package/GRAnsiCharactersRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Character value: 64 and $a to: $b is not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiCharactersRule.class/properties.json b/repository/Grease-Slime.package/GRAnsiCharactersRule.class/properties.json deleted file mode 100644 index f05aee3e..00000000 --- a/repository/Grease-Slime.package/GRAnsiCharactersRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRAnsiCharactersRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/README.md b/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/instance/group.st b/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st deleted file mode 100644 index 1e93cbc8..00000000 --- a/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/instance/initialize.st +++ /dev/null @@ -1,30 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@collection withIndexDo: [ :`each :`index | | `@temps | ``@.body ]' - with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; - replace: '``@collection doWithIndex: [ :`each :`index | | `@temps | ``@.body ]' - with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; - replace: '``@collection collect: ``@block1 thenDo: ``@block2' - with: '(``@collection collect: ``@block1) do: ``@block2'; - replace: '``@collection collect: ``@block1 thenSelect: ``@block2' - with: '(``@collection collect: ``@block1) select: ``@block2'; - replace: '``@collection pairsDo: [ :`t1 :`t2 | ``@.statements ]' - with: '1 to: ``@collection size by: 2 do: [ :index | | `t1 `t2 | `t1 := ``@collection at: index. `t2 := ``@collection at: index + 1. ``@.statements ]'; - replace: '``@collection reject: ``@block1 thenDo: ``@block2' - with: '(``@collection reject: ``@block1) do: ``@block2'; - replace: '``@collection select: ``@block1 thenCollect: ``@block2' - with: '(``@collection select: ``@block1) collect: ``@block2'; - replace: '``@collection select: ``@block1 thenDo: ``@block2' - with: '(``@collection select: ``@block1) do: ``@block2'; - replace: '``@collection detectSum: [ :`t1 | ``@.statements. `.last ]' - with: '``@collection inject: 0 into: [ :sum :`t1 | ``@.statements. sum + (`.last) ]'; - replace: '``@collection valuesDo: ``@block' - with: '``@collection do: ``@block'; - replace: '``@collection reversed' - with: '``@collection reverse'; - replace: '``@dictionary keysSortedSafely' - with: '``@dictionary keys asSortedCollection'; - replace: '``@collectionClass new: ``@size withAll: ``@character' - with: '(``@collectionClass new: ``@size) atAllPut: ``@character' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/instance/name.st b/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/instance/name.st deleted file mode 100644 index fba52990..00000000 --- a/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Collections' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/instance/rationale.st deleted file mode 100644 index 8470c14b..00000000 --- a/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Some collection methods are not ANSI compatible: #pairsDo:, #collect:thenDo:, #reject:thenDo:, #detectSum:, #valuesDo:, #keysSortedSafely, #new:withAll:, etc.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/properties.json b/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/properties.json deleted file mode 100644 index 2cba4e65..00000000 --- a/repository/Grease-Slime.package/GRAnsiCollectionsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRAnsiCollectionsRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/README.md b/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/instance/group.st b/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/instance/initialize.st deleted file mode 100644 index fe291c53..00000000 --- a/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/instance/initialize.st +++ /dev/null @@ -1,16 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@boolean ifNotNilDo: ``@block' - with: '``@boolean ifNotNil: ``@block'; - replace: '``@boolean ifNotNilDo: ``@block1 ifNil: ``@block2' - with: '``@boolean ifNotNil: ``@block1 ifNil: ``@block2'; - replace: '``@boolean ifNil: ``@block1 ifNotNilDo: ``@block2' - with: '``@boolean ifNil: ``@block1 ifNotNil: ``@block2'; - replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ]' - with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ]'; - replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ] ifNil: ``@block ' - with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ] ifNil: ``@block'; - replace: '``@boolean ifNil: ``@block ifNotNil: [ | `@temps | ``@.body ]' - with: '``@boolean ifNil: ``@block ifNotNil: [ :arg | | `@temps | ``@.body ]' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/instance/name.st b/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/instance/name.st deleted file mode 100644 index 4693610d..00000000 --- a/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Conditionals' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/instance/rationale.st deleted file mode 100644 index 42b2134b..00000000 --- a/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Conditionals like #ifNotNilDo: are not ANSI compatible.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/properties.json b/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/properties.json deleted file mode 100644 index de2367dc..00000000 --- a/repository/Grease-Slime.package/GRAnsiConditionalsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRAnsiConditionalsRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRAnsiConvertorRule.class/README.md b/repository/Grease-Slime.package/GRAnsiConvertorRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRAnsiConvertorRule.class/instance/group.st b/repository/Grease-Slime.package/GRAnsiConvertorRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Slime.package/GRAnsiConvertorRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiConvertorRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRAnsiConvertorRule.class/instance/initialize.st deleted file mode 100644 index bcd5fbac..00000000 --- a/repository/Grease-Slime.package/GRAnsiConvertorRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@object asString' with: '``@object greaseString'; - replace: '``@object asInteger' with: '``@object greaseInteger' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiConvertorRule.class/instance/name.st b/repository/Grease-Slime.package/GRAnsiConvertorRule.class/instance/name.st deleted file mode 100644 index f3dd2a4d..00000000 --- a/repository/Grease-Slime.package/GRAnsiConvertorRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Convertors' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiConvertorRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRAnsiConvertorRule.class/instance/rationale.st deleted file mode 100644 index fa9200b0..00000000 --- a/repository/Grease-Slime.package/GRAnsiConvertorRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'The ANSI standard does not support #asInteger and #asString on Object.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiConvertorRule.class/properties.json b/repository/Grease-Slime.package/GRAnsiConvertorRule.class/properties.json deleted file mode 100644 index 79d6b75f..00000000 --- a/repository/Grease-Slime.package/GRAnsiConvertorRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRAnsiConvertorRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/README.md b/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/instance/group.st b/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/instance/initialize.st deleted file mode 100644 index f0aadb85..00000000 --- a/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@block on: `class do: [ | `@temps | ``@.body ]' - with: '``@block on: `class do: [ :err | | `@temps | ``@.body ]' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/instance/name.st b/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/instance/name.st deleted file mode 100644 index e86669e1..00000000 --- a/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Exceptions' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/instance/rationale.st deleted file mode 100644 index 392fdedd..00000000 --- a/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Exception handlers expect exactly one argument in ANSI.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/properties.json b/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/properties.json deleted file mode 100644 index bb66ec98..00000000 --- a/repository/Grease-Slime.package/GRAnsiExceptionsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRAnsiExceptionsRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRAnsiStreamsRule.class/README.md b/repository/Grease-Slime.package/GRAnsiStreamsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRAnsiStreamsRule.class/instance/group.st b/repository/Grease-Slime.package/GRAnsiStreamsRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Slime.package/GRAnsiStreamsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiStreamsRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRAnsiStreamsRule.class/instance/initialize.st deleted file mode 100644 index 826e1af2..00000000 --- a/repository/Grease-Slime.package/GRAnsiStreamsRule.class/instance/initialize.st +++ /dev/null @@ -1,12 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } cr' - with: '`{ :context | context at: ''`receiver'' } nextPut: Character cr'; - replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } lf' - with: '`{ :context | context at: ''`receiver'' } nextPut: Character lf'; - replace: '``@stream nextPut: Character cr; nextPut: Character lf' - with: '``@stream crlf'; - replace: '``@collection writeStream' - with: 'WriteStream on: ``@collection' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiStreamsRule.class/instance/name.st b/repository/Grease-Slime.package/GRAnsiStreamsRule.class/instance/name.st deleted file mode 100644 index aa09ac20..00000000 --- a/repository/Grease-Slime.package/GRAnsiStreamsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Streams' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiStreamsRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRAnsiStreamsRule.class/instance/rationale.st deleted file mode 100644 index 57a15ba8..00000000 --- a/repository/Grease-Slime.package/GRAnsiStreamsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#cr and #lf are not part of the ANSI stream protocol.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiStreamsRule.class/properties.json b/repository/Grease-Slime.package/GRAnsiStreamsRule.class/properties.json deleted file mode 100644 index 4c0faab4..00000000 --- a/repository/Grease-Slime.package/GRAnsiStreamsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRAnsiStreamsRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRAnsiStringsRule.class/README.md b/repository/Grease-Slime.package/GRAnsiStringsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRAnsiStringsRule.class/instance/group.st b/repository/Grease-Slime.package/GRAnsiStringsRule.class/instance/group.st deleted file mode 100644 index 011762ad..00000000 --- a/repository/Grease-Slime.package/GRAnsiStringsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'ANSI Compatibility' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiStringsRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRAnsiStringsRule.class/instance/initialize.st deleted file mode 100644 index af1892f0..00000000 --- a/repository/Grease-Slime.package/GRAnsiStringsRule.class/instance/initialize.st +++ /dev/null @@ -1,24 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: 'String tab' with: '(String with: Character tab)'; - replace: 'String cr' with: '(String with: Character cr)'; - replace: 'String lf' with: '(String with: Character lf)'; - replace: 'String crlf' with: '(String with: Character cr with: Character lf)'; - replace: 'String space' with: '(String with: Character space)'; - replace: '`@string includesSubString: `@subString' - with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; - replace: '`@string includesSubstring: `@subString' - with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; - replace: '``@string findTokens: ``@arg' withValueFrom: [ :node | - | argument | - argument := node arguments first. - argument isLiteralNode ifTrue: [ - argument value isArray - ifTrue: [ argument replaceWith: (RBLiteralNode value: (String withAll: argument value)) ]. - argument value isCharacter - ifTrue: [ argument replaceWith: (RBLiteralNode value: (String with: argument value)) ] ]. - node - selector: #subStrings:; - yourself ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiStringsRule.class/instance/name.st b/repository/Grease-Slime.package/GRAnsiStringsRule.class/instance/name.st deleted file mode 100644 index cdc89723..00000000 --- a/repository/Grease-Slime.package/GRAnsiStringsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Strings' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiStringsRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRAnsiStringsRule.class/instance/rationale.st deleted file mode 100644 index a42a193e..00000000 --- a/repository/Grease-Slime.package/GRAnsiStringsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#cr, #crlf, #lf, #space, #tab, #findTokens:, ... are not part of the ANSI string protocol.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRAnsiStringsRule.class/properties.json b/repository/Grease-Slime.package/GRAnsiStringsRule.class/properties.json deleted file mode 100644 index 260f4fb1..00000000 --- a/repository/Grease-Slime.package/GRAnsiStringsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRAnsiStringsRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/README.md b/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st b/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st deleted file mode 100644 index ccaa99ae..00000000 --- a/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/checkClass..st +++ /dev/null @@ -1,13 +0,0 @@ -running -checkClass: aContext - (aContext selectedClass isMeta not - and: [ (aContext selectedClass includesSelector: #initialize) - and: [ (#(GRObject GRNotification GRNotification GRError RBLintRule RBTransformationRule) noneSatisfy: [ :each | - aContext selectedClass includesBehavior: (Smalltalk globals at: each) ]) - and: [ aContext selectedClass class methodDictionary noneSatisfy: [ :each | - matcher - executeTree: each parseTree - initialAnswer: false ] ] ] ]) ifTrue: [ - result - addClass: aContext selectedClass - selector: #initialize ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/group.st b/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st deleted file mode 100644 index 10faf254..00000000 --- a/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/initialize.st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initialize - super initialize. - matcher := RBParseTreeSearcher new. - matcher - matches: 'self basicNew initialize' - do: [ :node :answer | true ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/name.st b/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/name.st deleted file mode 100644 index 5e0a6113..00000000 --- a/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ '#basicNew initialize is missing' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st deleted file mode 100644 index 996d9872..00000000 --- a/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#initialize is not called implicitely when sending #new to an object in other Smalltalk dialects. Consider subclassing GRObject.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json b/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json deleted file mode 100644 index 8f4919ea..00000000 --- a/repository/Grease-Slime.package/GRBasicNewInitializeMissingRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "matcher" ], - "name" : "GRBasicNewInitializeMissingRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRBlockFormattingRule.class/README.md b/repository/Grease-Slime.package/GRBlockFormattingRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRBlockFormattingRule.class/instance/group.st b/repository/Grease-Slime.package/GRBlockFormattingRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Slime.package/GRBlockFormattingRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRBlockFormattingRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRBlockFormattingRule.class/instance/initialize.st deleted file mode 100644 index c9bda0fc..00000000 --- a/repository/Grease-Slime.package/GRBlockFormattingRule.class/instance/initialize.st +++ /dev/null @@ -1,23 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '[ :`@args | | `@temps | ``@.stmts ]' - do: [ :node :answer | - answer isNil - ifFalse: [ answer ] - ifTrue: [ - | source | - source := node source. - (source notNil and: [ node left notNil and: [ node right notNil ] ]) ifTrue: [ - | before after | - before := source at: node left + 1 ifAbsent: [ $ ]. - after := source at: node right - 1 ifAbsent: [ $ ]. - (before isSeparator and: [ after isSeparator ]) - ifFalse: [ node ] - ifTrue: [ - node bar notNil ifTrue: [ - before := source at: node bar - 1 ifAbsent: [ $ ]. - after := source at: node bar + 1 ifAbsent: [ $ ]. - (before isSeparator and: [ after isSeparator ]) - ifFalse: [ node ] ] ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRBlockFormattingRule.class/instance/name.st b/repository/Grease-Slime.package/GRBlockFormattingRule.class/instance/name.st deleted file mode 100644 index 4c9c6708..00000000 --- a/repository/Grease-Slime.package/GRBlockFormattingRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Block formatting' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRBlockFormattingRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRBlockFormattingRule.class/instance/rationale.st deleted file mode 100644 index 3c042a50..00000000 --- a/repository/Grease-Slime.package/GRBlockFormattingRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'There should spaces at the beginning and end of block.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRBlockFormattingRule.class/properties.json b/repository/Grease-Slime.package/GRBlockFormattingRule.class/properties.json deleted file mode 100644 index 73b2b1ad..00000000 --- a/repository/Grease-Slime.package/GRBlockFormattingRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRBlockFormattingRule", - "pools" : [ - ], - "super" : "GRSlimeParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/README.md b/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/checkMethod..st b/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/checkMethod..st deleted file mode 100644 index a1813452..00000000 --- a/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/checkMethod..st +++ /dev/null @@ -1,15 +0,0 @@ -running -checkMethod: aContext - | matches | - matches := matcher - executeTree: aContext parseTree - initialAnswer: OrderedCollection new. - matches do: [ :node | - " This ensures that the description is of the form ClassName>>#selector:" - (node arguments first isLiteralNode and: [ node arguments first value isString and: [ aContext selectedClass name greaseString , '>>#' , aContext selector greaseString ~= node arguments first value ] ]) ifTrue: [ - result addClass: aContext selectedClass selector: aContext selector. - result addSearchString: node arguments first value ]. - " This ensures that the description is a string and ends with a dot." - (node arguments size > 1 and: [ node arguments second isLiteralNode and: [ node arguments second value isString and: [ (node arguments second value endsWithSubCollection: '.') not ] ] ]) ifTrue: [ - result addClass: aContext selectedClass selector: aContext selector. - result addSearchString: node arguments second value ] ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/group.st b/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st deleted file mode 100644 index 64cfada8..00000000 --- a/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/initialize.st +++ /dev/null @@ -1,9 +0,0 @@ -initialization -initialize - super initialize. - matcher := RBParseTreeSearcher new. - matcher - matchesAnyOf: #( - '``@receiver greaseDeprecatedApi: ``@arg1' - '``@receiver greaseDeprecatedApi: ``@arg1 details: ``@arg2' ) - do: [ :node :answer | answer add: node; yourself ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/name.st b/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/name.st deleted file mode 100644 index 516849b7..00000000 --- a/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Invalid use of deprecated API protocol.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st deleted file mode 100644 index 9bff5427..00000000 --- a/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Make sure to follow the following pattern: self greaseDeprecatedApi: ''Class>>#selector'' details: ''Some description''.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json b/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json deleted file mode 100644 index 2bd3d3a6..00000000 --- a/repository/Grease-Slime.package/GRDeprecatedApiProtocolRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "matcher" ], - "name" : "GRDeprecatedApiProtocolRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GREmptyStatementsRule.class/README.md b/repository/Grease-Slime.package/GREmptyStatementsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/checkMethod..st b/repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/checkMethod..st deleted file mode 100644 index dd17b88b..00000000 --- a/repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/checkMethod..st +++ /dev/null @@ -1,12 +0,0 @@ -running -checkMethod: aContext - | periods position | - aContext parseTree nodesDo: [ :node | - (node isSequence and: [ node periods notEmpty ]) ifTrue: [ - periods := OrderedCollection withAll: node periods. - 1 to: node statements size - 1 do: [ :index | - position := periods removeFirst. - ((node statements at: index) stop < position and: [ position < (node statements at: index + 1) start ]) - ifFalse: [ ^ result addClass: aContext selectedClass selector: aContext selector ] ]. - (periods isEmpty or: [ periods size = 1 and: [ node statements notEmpty and: [ node statements last stop < periods first ] ] ]) - ifFalse: [ ^ result addClass: aContext selectedClass selector: aContext selector ] ] ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/group.st b/repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/name.st b/repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/name.st deleted file mode 100644 index 3f4db678..00000000 --- a/repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Empty Statements' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/rationale.st b/repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/rationale.st deleted file mode 100644 index 252dd280..00000000 --- a/repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Empty statements are not supported by most Smalltalk implementations.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/resetResult.st b/repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/resetResult.st deleted file mode 100644 index 5b87472b..00000000 --- a/repository/Grease-Slime.package/GREmptyStatementsRule.class/instance/resetResult.st +++ /dev/null @@ -1,4 +0,0 @@ -running -resetResult - super resetResult. - result addSearchString: '..'; addSearchString: '.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GREmptyStatementsRule.class/properties.json b/repository/Grease-Slime.package/GREmptyStatementsRule.class/properties.json deleted file mode 100644 index a9d2a54f..00000000 --- a/repository/Grease-Slime.package/GREmptyStatementsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GREmptyStatementsRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/README.md b/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st b/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st deleted file mode 100644 index 4f220e1d..00000000 --- a/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/instance/checkMethod..st +++ /dev/null @@ -1,10 +0,0 @@ -running -checkMethod: aContext - (aContext selectedClass isMeta not - and: [ (aContext selector beginsWithSubCollection: #initialize) - and: [ aContext selector numArgs > 0 - and: [ aContext selectedClass ~= GRObject - and: [ (aContext selectedClass includesBehavior: GRObject) - and: [ (aContext superMessages includes: aContext selector) not - and: [ aContext selfMessages noneSatisfy: [ :each | each beginsWithSubCollection: #initialize ] ] ] ] ] ] ]) - ifTrue: [ result addClass: aContext selectedClass selector: aContext selector ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/instance/group.st b/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/instance/name.st b/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/instance/name.st deleted file mode 100644 index d814b293..00000000 --- a/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Invalid object initialization' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/instance/rationale.st deleted file mode 100644 index 7b2fed07..00000000 --- a/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Initialize methods are required to call the designated initializer or its super implementation.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/properties.json b/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/properties.json deleted file mode 100644 index 7b777755..00000000 --- a/repository/Grease-Slime.package/GRInvalidObjectInitializationRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRInvalidObjectInitializationRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRNonPortableMessageRule.class/README.md b/repository/Grease-Slime.package/GRNonPortableMessageRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st b/repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st deleted file mode 100644 index 76f7b2d7..00000000 --- a/repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/checkClass..st +++ /dev/null @@ -1,12 +0,0 @@ -running -checkClass: aContext - | selectors | - selectors := self methodNames - inject: Set new - into: [ :set :each | - set - addAll: (aContext selectedClass whichSelectorsReferTo: each); - yourself ]. - selectors do: [ :each | result addClass: aContext selectedClass selector: each ]. - selectors isEmpty - ifFalse: [ result searchStrings: self methodNames ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/group.st b/repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/methodNames.st b/repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/methodNames.st deleted file mode 100644 index 7bfd5f10..00000000 --- a/repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/methodNames.st +++ /dev/null @@ -1,3 +0,0 @@ -private -methodNames - ^ #( anyOne withIndexCollect: ) \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/name.st b/repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/name.st deleted file mode 100644 index 77664e0e..00000000 --- a/repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses non portable message' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/rationale.st deleted file mode 100644 index 4de4dc3f..00000000 --- a/repository/Grease-Slime.package/GRNonPortableMessageRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Some methods are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRNonPortableMessageRule.class/properties.json b/repository/Grease-Slime.package/GRNonPortableMessageRule.class/properties.json deleted file mode 100644 index 098183e3..00000000 --- a/repository/Grease-Slime.package/GRNonPortableMessageRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRNonPortableMessageRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/README.md b/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st b/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st deleted file mode 100644 index 5ce4a8ad..00000000 --- a/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkClass..st +++ /dev/null @@ -1,8 +0,0 @@ -running -checkClass: aContext - | comment | - aContext selectedClass isMeta - ifTrue: [ ^ self ]. - comment := aContext selectedClass organization classComment asString. - comment isWideString ifTrue: [ - result addClass: aContext selectedClass ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st b/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st deleted file mode 100644 index 36124da0..00000000 --- a/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/checkMethod..st +++ /dev/null @@ -1,17 +0,0 @@ -running -checkMethod: aContext - | foundLiteral | - foundLiteral := false. - "check individual literals first" - aContext compiledMethod literals do: [ :each | - (each isString and: [ each isWideString ]) ifTrue: [ - result - addClass: aContext selectedClass - selector: aContext selector. - result addSearchString: each. - foundLiteral := true ] ]. - - "now check the whole method, could be in comments" - foundLiteral ifFalse: [ - aContext sourceCode asString isWideString ifTrue: [ - result addClass: aContext selectedClass selector: aContext selector ] ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/group.st b/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/name.st b/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/name.st deleted file mode 100644 index 3469916d..00000000 --- a/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Non portable source format' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/rationale.st deleted file mode 100644 index 7306a747..00000000 --- a/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'The method source is required to be a plain string, for portability reasons a wide-string is not supported.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/properties.json b/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/properties.json deleted file mode 100644 index 5f3e13f7..00000000 --- a/repository/Grease-Slime.package/GRNonPortableSourceFormatRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRNonPortableSourceFormatRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/README.md b/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/group.st b/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st deleted file mode 100644 index 776d58af..00000000 --- a/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/initialize.st +++ /dev/null @@ -1,8 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '`@collection beginsWith: `@subCollection' - with: '`@collection greaseBeginsWith: `@subCollection'; - replace: '`@collection endsWith: `@subCollection' - with: '`@collection greaseEndsWith: `@subCollection' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/name.st b/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/name.st deleted file mode 100644 index fba52990..00000000 --- a/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Collections' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/rationale.st deleted file mode 100644 index 908ce1c0..00000000 --- a/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#beginsWith: and #endsWith: are not portable.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/properties.json b/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/properties.json deleted file mode 100644 index a31f5963..00000000 --- a/repository/Grease-Slime.package/GRNotPortableCollectionsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRNotPortableCollectionsRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRObjectInRule.class/README.md b/repository/Grease-Slime.package/GRObjectInRule.class/README.md deleted file mode 100644 index bca4d093..00000000 --- a/repository/Grease-Slime.package/GRObjectInRule.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I detect senders of Object >> #in: diff --git a/repository/Grease-Slime.package/GRObjectInRule.class/instance/group.st b/repository/Grease-Slime.package/GRObjectInRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Slime.package/GRObjectInRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRObjectInRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRObjectInRule.class/instance/initialize.st deleted file mode 100644 index 38aa19b0..00000000 --- a/repository/Grease-Slime.package/GRObjectInRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: '``@object in: [ :`var | | `@temps | `@.statements ]' - with: '[ :`var | | `@temps | `@.statements ] value: ``@object' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRObjectInRule.class/instance/name.st b/repository/Grease-Slime.package/GRObjectInRule.class/instance/name.st deleted file mode 100644 index 65dd49f6..00000000 --- a/repository/Grease-Slime.package/GRObjectInRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Object>>#in:' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRObjectInRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRObjectInRule.class/instance/rationale.st deleted file mode 100644 index c3b2c41b..00000000 --- a/repository/Grease-Slime.package/GRObjectInRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Object>>#in: has different semantics on different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRObjectInRule.class/properties.json b/repository/Grease-Slime.package/GRObjectInRule.class/properties.json deleted file mode 100644 index 48519280..00000000 --- a/repository/Grease-Slime.package/GRObjectInRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 9/12/2009 10:37", - "instvars" : [ - ], - "name" : "GRObjectInRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRPackage.extension/class/greaseSlime.st b/repository/Grease-Slime.package/GRPackage.extension/class/greaseSlime.st deleted file mode 100644 index 3408049e..00000000 --- a/repository/Grease-Slime.package/GRPackage.extension/class/greaseSlime.st +++ /dev/null @@ -1,8 +0,0 @@ -*grease-slime -greaseSlime - ^ self new - name: 'Grease-Slime'; - description: 'Code critis for Grease. Detects common types of bugs and non-portable code.'; - addDependency: 'Grease-Core'; - url: #seasideUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRPackage.extension/properties.json b/repository/Grease-Slime.package/GRPackage.extension/properties.json deleted file mode 100644 index dd2faaf0..00000000 --- a/repository/Grease-Slime.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPackage" } diff --git a/repository/Grease-Slime.package/GRParensFormattingRule.class/README.md b/repository/Grease-Slime.package/GRParensFormattingRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRParensFormattingRule.class/instance/group.st b/repository/Grease-Slime.package/GRParensFormattingRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Slime.package/GRParensFormattingRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRParensFormattingRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRParensFormattingRule.class/instance/initialize.st deleted file mode 100644 index a9bf5bdb..00000000 --- a/repository/Grease-Slime.package/GRParensFormattingRule.class/instance/initialize.st +++ /dev/null @@ -1,20 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '`{ :node | node isValue and: [ node hasParentheses ] }' - do: [ :node :answer | - answer isNil - ifFalse: [ answer ] - ifTrue: [ - | found start stop | - found := false. - start := node startWithoutParentheses. - stop := node stopWithoutParentheses. - node parentheses reverseDo: [ :interval | - found := found - or: [ start - 1 ~= interval first - or: [ stop + 1 ~= interval last ] ]. - start := interval first. - stop := interval last ]. - found ifTrue: [ node ] ] ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRParensFormattingRule.class/instance/name.st b/repository/Grease-Slime.package/GRParensFormattingRule.class/instance/name.st deleted file mode 100644 index 48e67c85..00000000 --- a/repository/Grease-Slime.package/GRParensFormattingRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Parentheses formatting' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRParensFormattingRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRParensFormattingRule.class/instance/rationale.st deleted file mode 100644 index 298a86b2..00000000 --- a/repository/Grease-Slime.package/GRParensFormattingRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'There should be no spaces inside parentheses.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRParensFormattingRule.class/properties.json b/repository/Grease-Slime.package/GRParensFormattingRule.class/properties.json deleted file mode 100644 index c27bd005..00000000 --- a/repository/Grease-Slime.package/GRParensFormattingRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRParensFormattingRule", - "pools" : [ - ], - "super" : "GRSlimeParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRReturnFormattingRule.class/README.md b/repository/Grease-Slime.package/GRReturnFormattingRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRReturnFormattingRule.class/instance/group.st b/repository/Grease-Slime.package/GRReturnFormattingRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Slime.package/GRReturnFormattingRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRReturnFormattingRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRReturnFormattingRule.class/instance/initialize.st deleted file mode 100644 index a488a67f..00000000 --- a/repository/Grease-Slime.package/GRReturnFormattingRule.class/instance/initialize.st +++ /dev/null @@ -1,11 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '^ ``@expr' - do: [ :node :answer | - answer isNil - ifFalse: [ answer ] - ifTrue: [ - node start + 2 ~= node value start - ifTrue: [ node ] ] ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRReturnFormattingRule.class/instance/name.st b/repository/Grease-Slime.package/GRReturnFormattingRule.class/instance/name.st deleted file mode 100644 index ed235f80..00000000 --- a/repository/Grease-Slime.package/GRReturnFormattingRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Return formatting' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRReturnFormattingRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRReturnFormattingRule.class/instance/rationale.st deleted file mode 100644 index 904d4922..00000000 --- a/repository/Grease-Slime.package/GRReturnFormattingRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'There should be a single space between the ^ and the following expression.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRReturnFormattingRule.class/properties.json b/repository/Grease-Slime.package/GRReturnFormattingRule.class/properties.json deleted file mode 100644 index 74cd5e6f..00000000 --- a/repository/Grease-Slime.package/GRReturnFormattingRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRReturnFormattingRule", - "pools" : [ - ], - "super" : "GRSlimeParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRSlimeBlockLintRule.class/README.md b/repository/Grease-Slime.package/GRSlimeBlockLintRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRSlimeBlockLintRule.class/class/isVisible.st b/repository/Grease-Slime.package/GRSlimeBlockLintRule.class/class/isVisible.st deleted file mode 100644 index 43f102e1..00000000 --- a/repository/Grease-Slime.package/GRSlimeBlockLintRule.class/class/isVisible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isVisible - ^ self name ~= #GRSlimeBlockLintRule \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRSlimeBlockLintRule.class/instance/category.st b/repository/Grease-Slime.package/GRSlimeBlockLintRule.class/instance/category.st deleted file mode 100644 index af69ca36..00000000 --- a/repository/Grease-Slime.package/GRSlimeBlockLintRule.class/instance/category.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -category - ^ self group \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRSlimeBlockLintRule.class/properties.json b/repository/Grease-Slime.package/GRSlimeBlockLintRule.class/properties.json deleted file mode 100644 index caeadc28..00000000 --- a/repository/Grease-Slime.package/GRSlimeBlockLintRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRSlimeBlockLintRule", - "pools" : [ - ], - "super" : "RBBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/README.md b/repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/class/isVisible.st b/repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/class/isVisible.st deleted file mode 100644 index fa02a17b..00000000 --- a/repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/class/isVisible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isVisible - ^ self name ~= #GRSlimeParseTreeLintRule \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/instance/category.st b/repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/instance/category.st deleted file mode 100644 index af69ca36..00000000 --- a/repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/instance/category.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -category - ^ self group \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/properties.json b/repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/properties.json deleted file mode 100644 index 3f5866db..00000000 --- a/repository/Grease-Slime.package/GRSlimeParseTreeLintRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRSlimeParseTreeLintRule", - "pools" : [ - ], - "super" : "RBParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRSlimeTransformationRule.class/README.md b/repository/Grease-Slime.package/GRSlimeTransformationRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRSlimeTransformationRule.class/class/isVisible.st b/repository/Grease-Slime.package/GRSlimeTransformationRule.class/class/isVisible.st deleted file mode 100644 index 1bdda3d8..00000000 --- a/repository/Grease-Slime.package/GRSlimeTransformationRule.class/class/isVisible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isVisible - ^ self name ~= #GRSlimeTransformationRule \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRSlimeTransformationRule.class/properties.json b/repository/Grease-Slime.package/GRSlimeTransformationRule.class/properties.json deleted file mode 100644 index 2be2819e..00000000 --- a/repository/Grease-Slime.package/GRSlimeTransformationRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRSlimeTransformationRule", - "pools" : [ - ], - "super" : "RBTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRTempsFormattingRule.class/README.md b/repository/Grease-Slime.package/GRTempsFormattingRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRTempsFormattingRule.class/instance/group.st b/repository/Grease-Slime.package/GRTempsFormattingRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Slime.package/GRTempsFormattingRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRTempsFormattingRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRTempsFormattingRule.class/instance/initialize.st deleted file mode 100644 index 447c54de..00000000 --- a/repository/Grease-Slime.package/GRTempsFormattingRule.class/instance/initialize.st +++ /dev/null @@ -1,18 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '| `temp `@temps | ``@.stmts' - do: [ :node :answer | - answer isNil - ifFalse: [ answer ] - ifTrue: [ - (node leftBar notNil and: [ node rightBar notNil ]) ifTrue: [ - | found position | - found := false. - position := node leftBar. - node temporaries do: [ :each | - found := found or: [ position + 2 ~= each start ]. - position := each stop ]. - found := found or: [ position + 2 ~= node rightBar ]. - found ifTrue: [ node ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRTempsFormattingRule.class/instance/name.st b/repository/Grease-Slime.package/GRTempsFormattingRule.class/instance/name.st deleted file mode 100644 index 770e86d9..00000000 --- a/repository/Grease-Slime.package/GRTempsFormattingRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Temporaries formatting' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRTempsFormattingRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRTempsFormattingRule.class/instance/rationale.st deleted file mode 100644 index 49cb65dd..00000000 --- a/repository/Grease-Slime.package/GRTempsFormattingRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'There should be a single space between the | and the individual temps.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRTempsFormattingRule.class/properties.json b/repository/Grease-Slime.package/GRTempsFormattingRule.class/properties.json deleted file mode 100644 index e3bc8a36..00000000 --- a/repository/Grease-Slime.package/GRTempsFormattingRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRTempsFormattingRule", - "pools" : [ - ], - "super" : "GRSlimeParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRTestAssertionsRule.class/README.md b/repository/Grease-Slime.package/GRTestAssertionsRule.class/README.md deleted file mode 100644 index 6f3d9062..00000000 --- a/repository/Grease-Slime.package/GRTestAssertionsRule.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I check for TestCase >> #fail. \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st b/repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st deleted file mode 100644 index f49f7864..00000000 --- a/repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/checkMethod..st +++ /dev/null @@ -1,7 +0,0 @@ -running -checkMethod: aContext - aContext selectedClass isMeta - ifTrue: [ ^ self ]. - (aContext includesBehaviorNamed: #TestCase) - ifFalse: [ ^ self ]. - ^ super checkMethod: aContext \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/group.st b/repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/group.st deleted file mode 100644 index 5a189b4d..00000000 --- a/repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'SUnit Compatibility' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/initialize.st deleted file mode 100644 index d9d6784f..00000000 --- a/repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self rewriteRule - replace: 'self fail' - with: 'self assert: false' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/name.st b/repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/name.st deleted file mode 100644 index cb37341d..00000000 --- a/repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'TestCase >> #fail' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/rationale.st deleted file mode 100644 index 0a6ddcf6..00000000 --- a/repository/Grease-Slime.package/GRTestAssertionsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'TestCase >> #fail is not portable.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRTestAssertionsRule.class/properties.json b/repository/Grease-Slime.package/GRTestAssertionsRule.class/properties.json deleted file mode 100644 index c38a5e97..00000000 --- a/repository/Grease-Slime.package/GRTestAssertionsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 8/17/2014 11:24", - "instvars" : [ - ], - "name" : "GRTestAssertionsRule", - "pools" : [ - ], - "super" : "GRSlimeTransformationRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/README.md b/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st b/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st deleted file mode 100644 index 4bf19dcd..00000000 --- a/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/checkMethod..st +++ /dev/null @@ -1,7 +0,0 @@ -running -checkMethod: aContext - aContext parseTree nodesDo: [ :node | - node isSequence ifTrue: [ - (node statements notEmpty and: [ node periods notEmpty ]) ifTrue: [ - node periods last > node statements last stop ifTrue: [ - ^ result addClass: aContext selectedClass selector: aContext selector ] ] ] ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/group.st b/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/group.st deleted file mode 100644 index 303be069..00000000 --- a/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Formatting' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/name.st b/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/name.st deleted file mode 100644 index 5873f52c..00000000 --- a/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Unnecessary Last Period' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/rationale.st deleted file mode 100644 index ccbe48b6..00000000 --- a/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Periods are not needed after the last satement.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/resetResult.st b/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/resetResult.st deleted file mode 100644 index 5b87472b..00000000 --- a/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/instance/resetResult.st +++ /dev/null @@ -1,4 +0,0 @@ -running -resetResult - super resetResult. - result addSearchString: '..'; addSearchString: '.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/properties.json b/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/properties.json deleted file mode 100644 index 5267492d..00000000 --- a/repository/Grease-Slime.package/GRUnnecessaryLastPeriodRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUnnecessaryLastPeriodRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/README.md b/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st b/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st deleted file mode 100644 index 7923fa99..00000000 --- a/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/initialize.st +++ /dev/null @@ -1,8 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matchesAnyOf: #( - '`@receiver canPerform: `@selector' - '`@receiver canUnderstand: `@selector' ) - do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st b/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st deleted file mode 100644 index b9ce70ca..00000000 --- a/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Sends #canPerform: or #canUnderstand:' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st deleted file mode 100644 index 7e3a24ab..00000000 --- a/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ '#canPerform: or #canUnderstand: are not portable.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json b/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json deleted file mode 100644 index 4f87f6b2..00000000 --- a/repository/Grease-Slime.package/GRUsesCanPerformOrUnderstandRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUsesCanPerformOrUnderstandRule", - "pools" : [ - ], - "super" : "GRSlimeParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRUsesClassForHashRule.class/README.md b/repository/Grease-Slime.package/GRUsesClassForHashRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/checkMethod..st b/repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/checkMethod..st deleted file mode 100644 index 2fdbe101..00000000 --- a/repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/checkMethod..st +++ /dev/null @@ -1,4 +0,0 @@ -running -checkMethod: aContext - aContext parseTree selector = #hash - ifTrue: [ super checkMethod: aContext ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/group.st b/repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/initialize.st deleted file mode 100644 index c56d728f..00000000 --- a/repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '`@receiver class hash' - do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/name.st b/repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/name.st deleted file mode 100644 index 5bdd2ee0..00000000 --- a/repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses its class for hash' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/rationale.st deleted file mode 100644 index 84eba400..00000000 --- a/repository/Grease-Slime.package/GRUsesClassForHashRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'The hash of an object should not depend on the hash of its class as some Smalltalk have non-constant class hashes.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesClassForHashRule.class/properties.json b/repository/Grease-Slime.package/GRUsesClassForHashRule.class/properties.json deleted file mode 100644 index b4c274aa..00000000 --- a/repository/Grease-Slime.package/GRUsesClassForHashRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUsesClassForHashRule", - "pools" : [ - ], - "super" : "GRSlimeParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/README.md b/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/group.st b/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/initialize.st deleted file mode 100644 index ffa7a3bd..00000000 --- a/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '{ `@.stmts }' - do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/name.st b/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/name.st deleted file mode 100644 index 1228c96a..00000000 --- a/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses curly brace arrays' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/rationale.st deleted file mode 100644 index c8668119..00000000 --- a/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Curly brace expressions are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/properties.json b/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/properties.json deleted file mode 100644 index fcf8d7c3..00000000 --- a/repository/Grease-Slime.package/GRUsesCurlyBraceArraysRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUsesCurlyBraceArraysRule", - "pools" : [ - ], - "super" : "GRSlimeParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/README.md b/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/instance/group.st b/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/instance/initialize.st b/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/instance/initialize.st deleted file mode 100644 index c7605206..00000000 --- a/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/instance/initialize.st +++ /dev/null @@ -1,6 +0,0 @@ -initialization -initialize - super initialize. - self matcher - matches: '`#literal `{ :node | node isLiteralArray and: [ node isForByteArray ] }' - do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/instance/name.st b/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/instance/name.st deleted file mode 100644 index fbcd5729..00000000 --- a/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses literal byte arrays' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/instance/rationale.st deleted file mode 100644 index 269ea76d..00000000 --- a/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Literal byte arrays are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/properties.json b/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/properties.json deleted file mode 100644 index a0fb6cd0..00000000 --- a/repository/Grease-Slime.package/GRUsesLiteralByteArraysRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUsesLiteralByteArraysRule", - "pools" : [ - ], - "super" : "GRSlimeParseTreeLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/README.md b/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st b/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st deleted file mode 100644 index a2dcaa36..00000000 --- a/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/checkMethod..st +++ /dev/null @@ -1,8 +0,0 @@ -running -checkMethod: aContext - (self shouldExclude: aContext) ifFalse: [ - aContext compiledMethod pragmas do: [ :each | - result - addClass: aContext selectedClass - selector: aContext selector. - result addSearchString: each keyword ] ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/group.st b/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/name.st b/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/name.st deleted file mode 100644 index dce9f95b..00000000 --- a/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses method annotations' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/rationale.st deleted file mode 100644 index 33162ca3..00000000 --- a/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'As of now, it is unclear if method-annotations/pragmas are compatible across all supported platforms. Likely this rule will soon be removed.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/shouldExclude..st b/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/shouldExclude..st deleted file mode 100644 index 12c9889e..00000000 --- a/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/instance/shouldExclude..st +++ /dev/null @@ -1,7 +0,0 @@ -running -shouldExclude: aContext - "The REST and OmniBrowser related packages are OK to have pragmas" - | classCategory | - classCategory := aContext selectedClass theNonMetaClass category. - ^ #(#'-REST-' 'OmniBrowser') anySatisfy: [ :each | - (classCategory indexOfSubCollection: each startingAt: 1) ~= 0 ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/properties.json b/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/properties.json deleted file mode 100644 index af11ace0..00000000 --- a/repository/Grease-Slime.package/GRUsesMethodAnnotationsRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUsesMethodAnnotationsRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/README.md b/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st b/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st deleted file mode 100644 index 0dfe2d4c..00000000 --- a/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/checkClass..st +++ /dev/null @@ -1,6 +0,0 @@ -running -checkClass: aContext - aContext selectedClass allSuperclassesDo: [ :each | - (self classNames includes: each name) ifTrue: [ - result addClass: aContext selectedClass. - result addSearchString: each name ] ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st b/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st deleted file mode 100644 index dfc95f4c..00000000 --- a/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/checkMethod..st +++ /dev/null @@ -1,11 +0,0 @@ -running -checkMethod: aContext - (aContext selectedClass theNonMetaClass category indexOfSubCollection: #'-Pharo-' startingAt: 1) ~= 0 ifTrue: [ - "classes in a -Pharo- package are per definition not portable and therefore allowed to use non-portable classes" - ^ self ]. - aContext compiledMethod literals do: [ :each | - (each isVariableBinding and: [ self classNames includes: each key ]) ifTrue: [ - result - addClass: aContext selectedClass - selector: aContext selector. - result addSearchString: each key ] ] \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/classNames.st b/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/classNames.st deleted file mode 100644 index f3d5db68..00000000 --- a/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/classNames.st +++ /dev/null @@ -1,3 +0,0 @@ -private -classNames - ^ #( Delay MIMEDocument Monitor Mutex MutexSet Random Semaphore TimeStamp Timestamp MessageSend ) \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/group.st b/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/group.st deleted file mode 100644 index 7e52dd3b..00000000 --- a/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/group.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -group - ^ 'Grease Portability' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/name.st b/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/name.st deleted file mode 100644 index ba0b2df9..00000000 --- a/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'Uses not portable class' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/rationale.st b/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/rationale.st deleted file mode 100644 index e0f12e97..00000000 --- a/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/instance/rationale.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -rationale - ^ 'Some classes are not portable accross different Smalltalk dialects.' \ No newline at end of file diff --git a/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/properties.json b/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/properties.json deleted file mode 100644 index d3a89bb4..00000000 --- a/repository/Grease-Slime.package/GRUsesNotPortableClassRule.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Slime", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRUsesNotPortableClassRule", - "pools" : [ - ], - "super" : "GRSlimeBlockLintRule", - "type" : "normal" } diff --git a/repository/Grease-Slime.package/monticello.meta/categories.st b/repository/Grease-Slime.package/monticello.meta/categories.st deleted file mode 100644 index bbef1fe9..00000000 --- a/repository/Grease-Slime.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Slime'! diff --git a/repository/Grease-Slime.package/monticello.meta/initializers.st b/repository/Grease-Slime.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Slime.package/monticello.meta/package b/repository/Grease-Slime.package/monticello.meta/package deleted file mode 100644 index 3c442c9d..00000000 --- a/repository/Grease-Slime.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Slime') \ No newline at end of file diff --git a/repository/Grease-Slime.package/properties.json b/repository/Grease-Slime.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-Slime.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Grease-Slime/GRAnsiBooleansRule.class.st b/repository/Grease-Slime/GRAnsiBooleansRule.class.st new file mode 100644 index 00000000..c95309be --- /dev/null +++ b/repository/Grease-Slime/GRAnsiBooleansRule.class.st @@ -0,0 +1,41 @@ +Class { + #name : 'GRAnsiBooleansRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'accessing' } +GRAnsiBooleansRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiBooleansRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ]' + with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 ] ]'; + replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ]' + with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 ] ] ]'; + replace: '``@expr1 and: [ | `@temp2 | ``@expr2 ] and: [ | `@temp3 | ``@expr3 ] and: [ | `@temp4 | ``@expr4 ] and: [ | `@temp5 | ``@expr5 ]' + with: '``@expr1 and: [ | `@temp2 | ``@expr2 and: [ | `@temp3 | ``@expr3 and: [ | `@temp4 | ``@expr4 and: [ | `@temp5 | ``@expr5 ] ] ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 ] ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 ] ] ] ]'; + replace: '``@expr1 or: [ | `@temp2 | ``@expr2 ] or: [ | `@temp3 | ``@expr3 ] or: [ | `@temp4 | ``@expr4 ] or: [ | `@temp5 | ``@expr5 ] or: [ | `@temp6 | ``@expr6 ]' + with: '``@expr1 or: [ | `@temp2 | ``@expr2 or: [ | `@temp3 | ``@expr3 or: [ | `@temp4 | ``@expr4 or: [ | `@temp5 | ``@expr5 or: [ | `@temp6 | ``@expr6 ] ] ] ] ]' +] + +{ #category : 'accessing' } +GRAnsiBooleansRule >> name [ + ^ 'Booleans' +] + +{ #category : 'accessing' } +GRAnsiBooleansRule >> rationale [ + ^ '#and:and: and #or:or: are not ANSI compatible.' +] diff --git a/repository/Grease-Slime/GRAnsiCharactersRule.class.st b/repository/Grease-Slime/GRAnsiCharactersRule.class.st new file mode 100644 index 00000000..22abc823 --- /dev/null +++ b/repository/Grease-Slime/GRAnsiCharactersRule.class.st @@ -0,0 +1,36 @@ +Class { + #name : 'GRAnsiCharactersRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'accessing' } +GRAnsiCharactersRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiCharactersRule >> initialize [ + super initialize. + self rewriteRule + replace: 'Character value: ``@expr' with: 'Character codePoint: ``@expr'; + replace: '`#source to: `#target' + withValueFrom: [ :node | + RBLiteralNode value: (String streamContents: [ :stream | + node receiver value codePoint to: node arguments first value codePoint do: [ :code | + stream nextPut: (Character codePoint: code) ] ]) ] + when: [ :node | + node receiver value isCharacter + and: [ node arguments first value isCharacter ] ] +] + +{ #category : 'accessing' } +GRAnsiCharactersRule >> name [ + ^ 'Characters' +] + +{ #category : 'accessing' } +GRAnsiCharactersRule >> rationale [ + ^ 'Character value: 64 and $a to: $b is not ANSI compatible.' +] diff --git a/repository/Grease-Slime/GRAnsiCollectionsRule.class.st b/repository/Grease-Slime/GRAnsiCollectionsRule.class.st new file mode 100644 index 00000000..02b6d29d --- /dev/null +++ b/repository/Grease-Slime/GRAnsiCollectionsRule.class.st @@ -0,0 +1,53 @@ +Class { + #name : 'GRAnsiCollectionsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'accessing' } +GRAnsiCollectionsRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiCollectionsRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@collection withIndexDo: [ :`each :`index | | `@temps | ``@.body ]' + with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; + replace: '``@collection doWithIndex: [ :`each :`index | | `@temps | ``@.body ]' + with: '``@collection keysAndValuesDo: [ :`index :`each | | `@temps | ``@.body ]'; + replace: '``@collection collect: ``@block1 thenDo: ``@block2' + with: '(``@collection collect: ``@block1) do: ``@block2'; + replace: '``@collection collect: ``@block1 thenSelect: ``@block2' + with: '(``@collection collect: ``@block1) select: ``@block2'; + replace: '``@collection pairsDo: [ :`t1 :`t2 | ``@.statements ]' + with: '1 to: ``@collection size by: 2 do: [ :index | | `t1 `t2 | `t1 := ``@collection at: index. `t2 := ``@collection at: index + 1. ``@.statements ]'; + replace: '``@collection reject: ``@block1 thenDo: ``@block2' + with: '(``@collection reject: ``@block1) do: ``@block2'; + replace: '``@collection select: ``@block1 thenCollect: ``@block2' + with: '(``@collection select: ``@block1) collect: ``@block2'; + replace: '``@collection select: ``@block1 thenDo: ``@block2' + with: '(``@collection select: ``@block1) do: ``@block2'; + replace: '``@collection detectSum: [ :`t1 | ``@.statements. `.last ]' + with: '``@collection inject: 0 into: [ :sum :`t1 | ``@.statements. sum + (`.last) ]'; + replace: '``@collection valuesDo: ``@block' + with: '``@collection do: ``@block'; + replace: '``@collection reversed' + with: '``@collection reverse'; + replace: '``@dictionary keysSortedSafely' + with: '``@dictionary keys asSortedCollection'; + replace: '``@collectionClass new: ``@size withAll: ``@character' + with: '(``@collectionClass new: ``@size) atAllPut: ``@character' +] + +{ #category : 'accessing' } +GRAnsiCollectionsRule >> name [ + ^ 'Collections' +] + +{ #category : 'accessing' } +GRAnsiCollectionsRule >> rationale [ + ^ 'Some collection methods are not ANSI compatible: #pairsDo:, #collect:thenDo:, #reject:thenDo:, #detectSum:, #valuesDo:, #keysSortedSafely, #new:withAll:, etc.' +] diff --git a/repository/Grease-Slime/GRAnsiConditionalsRule.class.st b/repository/Grease-Slime/GRAnsiConditionalsRule.class.st new file mode 100644 index 00000000..afdc27e2 --- /dev/null +++ b/repository/Grease-Slime/GRAnsiConditionalsRule.class.st @@ -0,0 +1,39 @@ +Class { + #name : 'GRAnsiConditionalsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'accessing' } +GRAnsiConditionalsRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiConditionalsRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@boolean ifNotNilDo: ``@block' + with: '``@boolean ifNotNil: ``@block'; + replace: '``@boolean ifNotNilDo: ``@block1 ifNil: ``@block2' + with: '``@boolean ifNotNil: ``@block1 ifNil: ``@block2'; + replace: '``@boolean ifNil: ``@block1 ifNotNilDo: ``@block2' + with: '``@boolean ifNil: ``@block1 ifNotNil: ``@block2'; + replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ]' + with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ]'; + replace: '``@boolean ifNotNil: [ | `@temps | ``@.body ] ifNil: ``@block ' + with: '``@boolean ifNotNil: [ :arg | | `@temps | ``@.body ] ifNil: ``@block'; + replace: '``@boolean ifNil: ``@block ifNotNil: [ | `@temps | ``@.body ]' + with: '``@boolean ifNil: ``@block ifNotNil: [ :arg | | `@temps | ``@.body ]' +] + +{ #category : 'accessing' } +GRAnsiConditionalsRule >> name [ + ^ 'Conditionals' +] + +{ #category : 'accessing' } +GRAnsiConditionalsRule >> rationale [ + ^ 'Conditionals like #ifNotNilDo: are not ANSI compatible.' +] diff --git a/repository/Grease-Slime/GRAnsiConvertorRule.class.st b/repository/Grease-Slime/GRAnsiConvertorRule.class.st new file mode 100644 index 00000000..3ffa49a1 --- /dev/null +++ b/repository/Grease-Slime/GRAnsiConvertorRule.class.st @@ -0,0 +1,29 @@ +Class { + #name : 'GRAnsiConvertorRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'accessing' } +GRAnsiConvertorRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiConvertorRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@object asString' with: '``@object greaseString'; + replace: '``@object asInteger' with: '``@object greaseInteger' +] + +{ #category : 'accessing' } +GRAnsiConvertorRule >> name [ + ^ 'Convertors' +] + +{ #category : 'accessing' } +GRAnsiConvertorRule >> rationale [ + ^ 'The ANSI standard does not support #asInteger and #asString on Object.' +] diff --git a/repository/Grease-Slime/GRAnsiExceptionsRule.class.st b/repository/Grease-Slime/GRAnsiExceptionsRule.class.st new file mode 100644 index 00000000..a772519d --- /dev/null +++ b/repository/Grease-Slime/GRAnsiExceptionsRule.class.st @@ -0,0 +1,29 @@ +Class { + #name : 'GRAnsiExceptionsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'accessing' } +GRAnsiExceptionsRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiExceptionsRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@block on: `class do: [ | `@temps | ``@.body ]' + with: '``@block on: `class do: [ :err | | `@temps | ``@.body ]' +] + +{ #category : 'accessing' } +GRAnsiExceptionsRule >> name [ + ^ 'Exceptions' +] + +{ #category : 'accessing' } +GRAnsiExceptionsRule >> rationale [ + ^ 'Exception handlers expect exactly one argument in ANSI.' +] diff --git a/repository/Grease-Slime/GRAnsiStreamsRule.class.st b/repository/Grease-Slime/GRAnsiStreamsRule.class.st new file mode 100644 index 00000000..59ccc759 --- /dev/null +++ b/repository/Grease-Slime/GRAnsiStreamsRule.class.st @@ -0,0 +1,35 @@ +Class { + #name : 'GRAnsiStreamsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'accessing' } +GRAnsiStreamsRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiStreamsRule >> initialize [ + super initialize. + self rewriteRule + replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } cr' + with: '`{ :context | context at: ''`receiver'' } nextPut: Character cr'; + replace: '`{ :node :context | node isVariable and: [ (Smalltalk includesKey: node name asSymbol) not and: [ context at: ''`receiver'' ifAbsentPut: [ node ]. true ] ] } lf' + with: '`{ :context | context at: ''`receiver'' } nextPut: Character lf'; + replace: '``@stream nextPut: Character cr; nextPut: Character lf' + with: '``@stream crlf'; + replace: '``@collection writeStream' + with: 'WriteStream on: ``@collection' +] + +{ #category : 'accessing' } +GRAnsiStreamsRule >> name [ + ^ 'Streams' +] + +{ #category : 'accessing' } +GRAnsiStreamsRule >> rationale [ + ^ '#cr and #lf are not part of the ANSI stream protocol.' +] diff --git a/repository/Grease-Slime/GRAnsiStringsRule.class.st b/repository/Grease-Slime/GRAnsiStringsRule.class.st new file mode 100644 index 00000000..1d5ed17b --- /dev/null +++ b/repository/Grease-Slime/GRAnsiStringsRule.class.st @@ -0,0 +1,47 @@ +Class { + #name : 'GRAnsiStringsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'accessing' } +GRAnsiStringsRule >> group [ + ^ 'ANSI Compatibility' +] + +{ #category : 'initialization' } +GRAnsiStringsRule >> initialize [ + super initialize. + self rewriteRule + replace: 'String tab' with: '(String with: Character tab)'; + replace: 'String cr' with: '(String with: Character cr)'; + replace: 'String lf' with: '(String with: Character lf)'; + replace: 'String crlf' with: '(String with: Character cr with: Character lf)'; + replace: 'String space' with: '(String with: Character space)'; + replace: '`@string includesSubString: `@subString' + with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; + replace: '`@string includesSubstring: `@subString' + with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0'; + replace: '``@string findTokens: ``@arg' withValueFrom: [ :node | + | argument | + argument := node arguments first. + argument isLiteralNode ifTrue: [ + argument value isArray + ifTrue: [ argument replaceWith: (RBLiteralNode value: (String withAll: argument value)) ]. + argument value isCharacter + ifTrue: [ argument replaceWith: (RBLiteralNode value: (String with: argument value)) ] ]. + node + selector: #subStrings:; + yourself ] +] + +{ #category : 'accessing' } +GRAnsiStringsRule >> name [ + ^ 'Strings' +] + +{ #category : 'accessing' } +GRAnsiStringsRule >> rationale [ + ^ '#cr, #crlf, #lf, #space, #tab, #findTokens:, ... are not part of the ANSI string protocol.' +] diff --git a/repository/Grease-Slime/GRBasicNewInitializeMissingRule.class.st b/repository/Grease-Slime/GRBasicNewInitializeMissingRule.class.st new file mode 100644 index 00000000..bff28a20 --- /dev/null +++ b/repository/Grease-Slime/GRBasicNewInitializeMissingRule.class.st @@ -0,0 +1,48 @@ +Class { + #name : 'GRBasicNewInitializeMissingRule', + #superclass : 'GRSlimeBlockLintRule', + #instVars : [ + 'matcher' + ], + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'running' } +GRBasicNewInitializeMissingRule >> checkClass: aContext [ + (aContext selectedClass isMeta not + and: [ (aContext selectedClass includesSelector: #initialize) + and: [ (#(GRObject GRNotification GRNotification GRError RBLintRule RBTransformationRule) noneSatisfy: [ :each | + aContext selectedClass includesBehavior: (Smalltalk globals at: each) ]) + and: [ aContext selectedClass class methodDictionary noneSatisfy: [ :each | + matcher + executeTree: each parseTree + initialAnswer: false ] ] ] ]) ifTrue: [ + result + addClass: aContext selectedClass + selector: #initialize ] +] + +{ #category : 'accessing' } +GRBasicNewInitializeMissingRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRBasicNewInitializeMissingRule >> initialize [ + super initialize. + matcher := RBParseTreeSearcher new. + matcher + matches: 'self basicNew initialize' + do: [ :node :answer | true ] +] + +{ #category : 'accessing' } +GRBasicNewInitializeMissingRule >> name [ + ^ '#basicNew initialize is missing' +] + +{ #category : 'accessing' } +GRBasicNewInitializeMissingRule >> rationale [ + ^ '#initialize is not called implicitely when sending #new to an object in other Smalltalk dialects. Consider subclassing GRObject.' +] diff --git a/repository/Grease-Slime/GRBlockFormattingRule.class.st b/repository/Grease-Slime/GRBlockFormattingRule.class.st new file mode 100644 index 00000000..d4549037 --- /dev/null +++ b/repository/Grease-Slime/GRBlockFormattingRule.class.st @@ -0,0 +1,46 @@ +Class { + #name : 'GRBlockFormattingRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'accessing' } +GRBlockFormattingRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'initialization' } +GRBlockFormattingRule >> initialize [ + super initialize. + self matcher + matches: '[ :`@args | | `@temps | ``@.stmts ]' + do: [ :node :answer | + answer isNil + ifFalse: [ answer ] + ifTrue: [ + | source | + source := node source. + (source notNil and: [ node left notNil and: [ node right notNil ] ]) ifTrue: [ + | before after | + before := source at: node left + 1 ifAbsent: [ $ ]. + after := source at: node right - 1 ifAbsent: [ $ ]. + (before isSeparator and: [ after isSeparator ]) + ifFalse: [ node ] + ifTrue: [ + node bar notNil ifTrue: [ + before := source at: node bar - 1 ifAbsent: [ $ ]. + after := source at: node bar + 1 ifAbsent: [ $ ]. + (before isSeparator and: [ after isSeparator ]) + ifFalse: [ node ] ] ] ] ] ] +] + +{ #category : 'accessing' } +GRBlockFormattingRule >> name [ + ^ 'Block formatting' +] + +{ #category : 'accessing' } +GRBlockFormattingRule >> rationale [ + ^ 'There should spaces at the beginning and end of block.' +] diff --git a/repository/Grease-Slime/GRDeprecatedApiProtocolRule.class.st b/repository/Grease-Slime/GRDeprecatedApiProtocolRule.class.st new file mode 100644 index 00000000..896d3859 --- /dev/null +++ b/repository/Grease-Slime/GRDeprecatedApiProtocolRule.class.st @@ -0,0 +1,52 @@ +Class { + #name : 'GRDeprecatedApiProtocolRule', + #superclass : 'GRSlimeBlockLintRule', + #instVars : [ + 'matcher' + ], + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'running' } +GRDeprecatedApiProtocolRule >> checkMethod: aContext [ + | matches | + matches := matcher + executeTree: aContext parseTree + initialAnswer: OrderedCollection new. + matches do: [ :node | + " This ensures that the description is of the form ClassName>>#selector:" + (node arguments first isLiteralNode and: [ node arguments first value isString and: [ aContext selectedClass name greaseString , '>>#' , aContext selector greaseString ~= node arguments first value ] ]) ifTrue: [ + result addClass: aContext selectedClass selector: aContext selector. + result addSearchString: node arguments first value ]. + " This ensures that the description is a string and ends with a dot." + (node arguments size > 1 and: [ node arguments second isLiteralNode and: [ node arguments second value isString and: [ (node arguments second value endsWithSubCollection: '.') not ] ] ]) ifTrue: [ + result addClass: aContext selectedClass selector: aContext selector. + result addSearchString: node arguments second value ] ] +] + +{ #category : 'accessing' } +GRDeprecatedApiProtocolRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'initialization' } +GRDeprecatedApiProtocolRule >> initialize [ + super initialize. + matcher := RBParseTreeSearcher new. + matcher + matchesAnyOf: #( + '``@receiver greaseDeprecatedApi: ``@arg1' + '``@receiver greaseDeprecatedApi: ``@arg1 details: ``@arg2' ) + do: [ :node :answer | answer add: node; yourself ] +] + +{ #category : 'accessing' } +GRDeprecatedApiProtocolRule >> name [ + ^ 'Invalid use of deprecated API protocol.' +] + +{ #category : 'accessing' } +GRDeprecatedApiProtocolRule >> rationale [ + ^ 'Make sure to follow the following pattern: self greaseDeprecatedApi: ''Class>>#selector'' details: ''Some description''.' +] diff --git a/repository/Grease-Slime/GREmptyStatementsRule.class.st b/repository/Grease-Slime/GREmptyStatementsRule.class.st new file mode 100644 index 00000000..e343993c --- /dev/null +++ b/repository/Grease-Slime/GREmptyStatementsRule.class.st @@ -0,0 +1,41 @@ +Class { + #name : 'GREmptyStatementsRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'running' } +GREmptyStatementsRule >> checkMethod: aContext [ + | periods position | + aContext parseTree nodesDo: [ :node | + (node isSequence and: [ node periods notEmpty ]) ifTrue: [ + periods := OrderedCollection withAll: node periods. + 1 to: node statements size - 1 do: [ :index | + position := periods removeFirst. + ((node statements at: index) stop < position and: [ position < (node statements at: index + 1) start ]) + ifFalse: [ ^ result addClass: aContext selectedClass selector: aContext selector ] ]. + (periods isEmpty or: [ periods size = 1 and: [ node statements notEmpty and: [ node statements last stop < periods first ] ] ]) + ifFalse: [ ^ result addClass: aContext selectedClass selector: aContext selector ] ] ] +] + +{ #category : 'accessing' } +GREmptyStatementsRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'accessing' } +GREmptyStatementsRule >> name [ + ^ 'Empty Statements' +] + +{ #category : 'accessing' } +GREmptyStatementsRule >> rationale [ + ^ 'Empty statements are not supported by most Smalltalk implementations.' +] + +{ #category : 'running' } +GREmptyStatementsRule >> resetResult [ + super resetResult. + result addSearchString: '..'; addSearchString: '.' +] diff --git a/repository/Grease-Slime/GRInvalidObjectInitializationRule.class.st b/repository/Grease-Slime/GRInvalidObjectInitializationRule.class.st new file mode 100644 index 00000000..e8c8beb6 --- /dev/null +++ b/repository/Grease-Slime/GRInvalidObjectInitializationRule.class.st @@ -0,0 +1,33 @@ +Class { + #name : 'GRInvalidObjectInitializationRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'running' } +GRInvalidObjectInitializationRule >> checkMethod: aContext [ + (aContext selectedClass isMeta not + and: [ (aContext selector beginsWithSubCollection: #initialize) + and: [ aContext selector numArgs > 0 + and: [ aContext selectedClass ~= GRObject + and: [ (aContext selectedClass includesBehavior: GRObject) + and: [ (aContext superMessages includes: aContext selector) not + and: [ aContext selfMessages noneSatisfy: [ :each | each beginsWithSubCollection: #initialize ] ] ] ] ] ] ]) + ifTrue: [ result addClass: aContext selectedClass selector: aContext selector ] +] + +{ #category : 'accessing' } +GRInvalidObjectInitializationRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'accessing' } +GRInvalidObjectInitializationRule >> name [ + ^ 'Invalid object initialization' +] + +{ #category : 'accessing' } +GRInvalidObjectInitializationRule >> rationale [ + ^ 'Initialize methods are required to call the designated initializer or its super implementation.' +] diff --git a/repository/Grease-Slime/GRNonPortableMessageRule.class.st b/repository/Grease-Slime/GRNonPortableMessageRule.class.st new file mode 100644 index 00000000..d725aea4 --- /dev/null +++ b/repository/Grease-Slime/GRNonPortableMessageRule.class.st @@ -0,0 +1,40 @@ +Class { + #name : 'GRNonPortableMessageRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'running' } +GRNonPortableMessageRule >> checkClass: aContext [ + | selectors | + selectors := self methodNames + inject: Set new + into: [ :set :each | + set + addAll: (aContext selectedClass whichSelectorsReferTo: each); + yourself ]. + selectors do: [ :each | result addClass: aContext selectedClass selector: each ]. + selectors isEmpty + ifFalse: [ result searchStrings: self methodNames ] +] + +{ #category : 'accessing' } +GRNonPortableMessageRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'private' } +GRNonPortableMessageRule >> methodNames [ + ^ #( anyOne withIndexCollect: ) +] + +{ #category : 'accessing' } +GRNonPortableMessageRule >> name [ + ^ 'Uses non portable message' +] + +{ #category : 'accessing' } +GRNonPortableMessageRule >> rationale [ + ^ 'Some methods are not portable accross different Smalltalk dialects.' +] diff --git a/repository/Grease-Slime/GRNonPortableSourceFormatRule.class.st b/repository/Grease-Slime/GRNonPortableSourceFormatRule.class.st new file mode 100644 index 00000000..99a1a1f8 --- /dev/null +++ b/repository/Grease-Slime/GRNonPortableSourceFormatRule.class.st @@ -0,0 +1,50 @@ +Class { + #name : 'GRNonPortableSourceFormatRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'running' } +GRNonPortableSourceFormatRule >> checkClass: aContext [ + | comment | + aContext selectedClass isMeta + ifTrue: [ ^ self ]. + comment := aContext selectedClass organization classComment asString. + comment isWideString ifTrue: [ + result addClass: aContext selectedClass ] +] + +{ #category : 'running' } +GRNonPortableSourceFormatRule >> checkMethod: aContext [ + | foundLiteral | + foundLiteral := false. + "check individual literals first" + aContext compiledMethod literals do: [ :each | + (each isString and: [ each isWideString ]) ifTrue: [ + result + addClass: aContext selectedClass + selector: aContext selector. + result addSearchString: each. + foundLiteral := true ] ]. + + "now check the whole method, could be in comments" + foundLiteral ifFalse: [ + aContext sourceCode asString isWideString ifTrue: [ + result addClass: aContext selectedClass selector: aContext selector ] ] +] + +{ #category : 'accessing' } +GRNonPortableSourceFormatRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'accessing' } +GRNonPortableSourceFormatRule >> name [ + ^ 'Non portable source format' +] + +{ #category : 'accessing' } +GRNonPortableSourceFormatRule >> rationale [ + ^ 'The method source is required to be a plain string, for portability reasons a wide-string is not supported.' +] diff --git a/repository/Grease-Slime/GRNotPortableCollectionsRule.class.st b/repository/Grease-Slime/GRNotPortableCollectionsRule.class.st new file mode 100644 index 00000000..145bc68e --- /dev/null +++ b/repository/Grease-Slime/GRNotPortableCollectionsRule.class.st @@ -0,0 +1,31 @@ +Class { + #name : 'GRNotPortableCollectionsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'accessing' } +GRNotPortableCollectionsRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRNotPortableCollectionsRule >> initialize [ + super initialize. + self rewriteRule + replace: '`@collection beginsWith: `@subCollection' + with: '`@collection greaseBeginsWith: `@subCollection'; + replace: '`@collection endsWith: `@subCollection' + with: '`@collection greaseEndsWith: `@subCollection' +] + +{ #category : 'accessing' } +GRNotPortableCollectionsRule >> name [ + ^ 'Collections' +] + +{ #category : 'accessing' } +GRNotPortableCollectionsRule >> rationale [ + ^ '#beginsWith: and #endsWith: are not portable.' +] diff --git a/repository/Grease-Slime/GRObjectInRule.class.st b/repository/Grease-Slime/GRObjectInRule.class.st new file mode 100644 index 00000000..2490327e --- /dev/null +++ b/repository/Grease-Slime/GRObjectInRule.class.st @@ -0,0 +1,33 @@ +" +I detect senders of Object >> #in: + +" +Class { + #name : 'GRObjectInRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'accessing' } +GRObjectInRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRObjectInRule >> initialize [ + super initialize. + self rewriteRule + replace: '``@object in: [ :`var | | `@temps | `@.statements ]' + with: '[ :`var | | `@temps | `@.statements ] value: ``@object' +] + +{ #category : 'accessing' } +GRObjectInRule >> name [ + ^ 'Object>>#in:' +] + +{ #category : 'accessing' } +GRObjectInRule >> rationale [ + ^ 'Object>>#in: has different semantics on different Smalltalk dialects.' +] diff --git a/repository/Grease-Slime/GRPackage.extension.st b/repository/Grease-Slime/GRPackage.extension.st new file mode 100644 index 00000000..2e2eef85 --- /dev/null +++ b/repository/Grease-Slime/GRPackage.extension.st @@ -0,0 +1,11 @@ +Extension { #name : 'GRPackage' } + +{ #category : '*grease-slime' } +GRPackage class >> greaseSlime [ + ^ self new + name: 'Grease-Slime'; + description: 'Code critis for Grease. Detects common types of bugs and non-portable code.'; + addDependency: 'Grease-Core'; + url: #seasideUrl; + yourself +] diff --git a/repository/Grease-Slime/GRParensFormattingRule.class.st b/repository/Grease-Slime/GRParensFormattingRule.class.st new file mode 100644 index 00000000..ceffe8db --- /dev/null +++ b/repository/Grease-Slime/GRParensFormattingRule.class.st @@ -0,0 +1,43 @@ +Class { + #name : 'GRParensFormattingRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'accessing' } +GRParensFormattingRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'initialization' } +GRParensFormattingRule >> initialize [ + super initialize. + self matcher + matches: '`{ :node | node isValue and: [ node hasParentheses ] }' + do: [ :node :answer | + answer isNil + ifFalse: [ answer ] + ifTrue: [ + | found start stop | + found := false. + start := node startWithoutParentheses. + stop := node stopWithoutParentheses. + node parentheses reverseDo: [ :interval | + found := found + or: [ start - 1 ~= interval first + or: [ stop + 1 ~= interval last ] ]. + start := interval first. + stop := interval last ]. + found ifTrue: [ node ] ] ] +] + +{ #category : 'accessing' } +GRParensFormattingRule >> name [ + ^ 'Parentheses formatting' +] + +{ #category : 'accessing' } +GRParensFormattingRule >> rationale [ + ^ 'There should be no spaces inside parentheses.' +] diff --git a/repository/Grease-Slime/GRReturnFormattingRule.class.st b/repository/Grease-Slime/GRReturnFormattingRule.class.st new file mode 100644 index 00000000..55514465 --- /dev/null +++ b/repository/Grease-Slime/GRReturnFormattingRule.class.st @@ -0,0 +1,34 @@ +Class { + #name : 'GRReturnFormattingRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'accessing' } +GRReturnFormattingRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'initialization' } +GRReturnFormattingRule >> initialize [ + super initialize. + self matcher + matches: '^ ``@expr' + do: [ :node :answer | + answer isNil + ifFalse: [ answer ] + ifTrue: [ + node start + 2 ~= node value start + ifTrue: [ node ] ] ] +] + +{ #category : 'accessing' } +GRReturnFormattingRule >> name [ + ^ 'Return formatting' +] + +{ #category : 'accessing' } +GRReturnFormattingRule >> rationale [ + ^ 'There should be a single space between the ^ and the following expression.' +] diff --git a/repository/Grease-Slime/GRSlimeBlockLintRule.class.st b/repository/Grease-Slime/GRSlimeBlockLintRule.class.st new file mode 100644 index 00000000..6f0e6165 --- /dev/null +++ b/repository/Grease-Slime/GRSlimeBlockLintRule.class.st @@ -0,0 +1,16 @@ +Class { + #name : 'GRSlimeBlockLintRule', + #superclass : 'RBBlockLintRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'testing' } +GRSlimeBlockLintRule class >> isVisible [ + ^ self name ~= #GRSlimeBlockLintRule +] + +{ #category : 'accessing' } +GRSlimeBlockLintRule >> category [ + ^ self group +] diff --git a/repository/Grease-Slime/GRSlimeParseTreeLintRule.class.st b/repository/Grease-Slime/GRSlimeParseTreeLintRule.class.st new file mode 100644 index 00000000..a594cd3b --- /dev/null +++ b/repository/Grease-Slime/GRSlimeParseTreeLintRule.class.st @@ -0,0 +1,16 @@ +Class { + #name : 'GRSlimeParseTreeLintRule', + #superclass : 'RBParseTreeLintRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'testing' } +GRSlimeParseTreeLintRule class >> isVisible [ + ^ self name ~= #GRSlimeParseTreeLintRule +] + +{ #category : 'accessing' } +GRSlimeParseTreeLintRule >> category [ + ^ self group +] diff --git a/repository/Grease-Slime/GRSlimeTransformationRule.class.st b/repository/Grease-Slime/GRSlimeTransformationRule.class.st new file mode 100644 index 00000000..02c1f99a --- /dev/null +++ b/repository/Grease-Slime/GRSlimeTransformationRule.class.st @@ -0,0 +1,11 @@ +Class { + #name : 'GRSlimeTransformationRule', + #superclass : 'RBTransformationRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'testing' } +GRSlimeTransformationRule class >> isVisible [ + ^ self name ~= #GRSlimeTransformationRule +] diff --git a/repository/Grease-Slime/GRTempsFormattingRule.class.st b/repository/Grease-Slime/GRTempsFormattingRule.class.st new file mode 100644 index 00000000..0ad072f9 --- /dev/null +++ b/repository/Grease-Slime/GRTempsFormattingRule.class.st @@ -0,0 +1,41 @@ +Class { + #name : 'GRTempsFormattingRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'accessing' } +GRTempsFormattingRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'initialization' } +GRTempsFormattingRule >> initialize [ + super initialize. + self matcher + matches: '| `temp `@temps | ``@.stmts' + do: [ :node :answer | + answer isNil + ifFalse: [ answer ] + ifTrue: [ + (node leftBar notNil and: [ node rightBar notNil ]) ifTrue: [ + | found position | + found := false. + position := node leftBar. + node temporaries do: [ :each | + found := found or: [ position + 2 ~= each start ]. + position := each stop ]. + found := found or: [ position + 2 ~= node rightBar ]. + found ifTrue: [ node ] ] ] ] +] + +{ #category : 'accessing' } +GRTempsFormattingRule >> name [ + ^ 'Temporaries formatting' +] + +{ #category : 'accessing' } +GRTempsFormattingRule >> rationale [ + ^ 'There should be a single space between the | and the individual temps.' +] diff --git a/repository/Grease-Slime/GRTestAssertionsRule.class.st b/repository/Grease-Slime/GRTestAssertionsRule.class.st new file mode 100644 index 00000000..2c24f18f --- /dev/null +++ b/repository/Grease-Slime/GRTestAssertionsRule.class.st @@ -0,0 +1,41 @@ +" +I check for TestCase >> #fail. +" +Class { + #name : 'GRTestAssertionsRule', + #superclass : 'GRSlimeTransformationRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'running' } +GRTestAssertionsRule >> checkMethod: aContext [ + aContext selectedClass isMeta + ifTrue: [ ^ self ]. + (aContext includesBehaviorNamed: #TestCase) + ifFalse: [ ^ self ]. + ^ super checkMethod: aContext +] + +{ #category : 'accessing' } +GRTestAssertionsRule >> group [ + ^ 'SUnit Compatibility' +] + +{ #category : 'initialization' } +GRTestAssertionsRule >> initialize [ + super initialize. + self rewriteRule + replace: 'self fail' + with: 'self assert: false' +] + +{ #category : 'accessing' } +GRTestAssertionsRule >> name [ + ^ 'TestCase >> #fail' +] + +{ #category : 'accessing' } +GRTestAssertionsRule >> rationale [ + ^ 'TestCase >> #fail is not portable.' +] diff --git a/repository/Grease-Slime/GRUnnecessaryLastPeriodRule.class.st b/repository/Grease-Slime/GRUnnecessaryLastPeriodRule.class.st new file mode 100644 index 00000000..8c2c982a --- /dev/null +++ b/repository/Grease-Slime/GRUnnecessaryLastPeriodRule.class.st @@ -0,0 +1,36 @@ +Class { + #name : 'GRUnnecessaryLastPeriodRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'running' } +GRUnnecessaryLastPeriodRule >> checkMethod: aContext [ + aContext parseTree nodesDo: [ :node | + node isSequence ifTrue: [ + (node statements notEmpty and: [ node periods notEmpty ]) ifTrue: [ + node periods last > node statements last stop ifTrue: [ + ^ result addClass: aContext selectedClass selector: aContext selector ] ] ] ] +] + +{ #category : 'accessing' } +GRUnnecessaryLastPeriodRule >> group [ + ^ 'Grease Formatting' +] + +{ #category : 'accessing' } +GRUnnecessaryLastPeriodRule >> name [ + ^ 'Unnecessary Last Period' +] + +{ #category : 'accessing' } +GRUnnecessaryLastPeriodRule >> rationale [ + ^ 'Periods are not needed after the last satement.' +] + +{ #category : 'running' } +GRUnnecessaryLastPeriodRule >> resetResult [ + super resetResult. + result addSearchString: '..'; addSearchString: '.' +] diff --git a/repository/Grease-Slime/GRUsesCanPerformOrUnderstandRule.class.st b/repository/Grease-Slime/GRUsesCanPerformOrUnderstandRule.class.st new file mode 100644 index 00000000..d4ccfbe4 --- /dev/null +++ b/repository/Grease-Slime/GRUsesCanPerformOrUnderstandRule.class.st @@ -0,0 +1,31 @@ +Class { + #name : 'GRUsesCanPerformOrUnderstandRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'accessing' } +GRUsesCanPerformOrUnderstandRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRUsesCanPerformOrUnderstandRule >> initialize [ + super initialize. + self matcher + matchesAnyOf: #( + '`@receiver canPerform: `@selector' + '`@receiver canUnderstand: `@selector' ) + do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] +] + +{ #category : 'accessing' } +GRUsesCanPerformOrUnderstandRule >> name [ + ^ 'Sends #canPerform: or #canUnderstand:' +] + +{ #category : 'accessing' } +GRUsesCanPerformOrUnderstandRule >> rationale [ + ^ '#canPerform: or #canUnderstand: are not portable.' +] diff --git a/repository/Grease-Slime/GRUsesClassForHashRule.class.st b/repository/Grease-Slime/GRUsesClassForHashRule.class.st new file mode 100644 index 00000000..fed55845 --- /dev/null +++ b/repository/Grease-Slime/GRUsesClassForHashRule.class.st @@ -0,0 +1,35 @@ +Class { + #name : 'GRUsesClassForHashRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'running' } +GRUsesClassForHashRule >> checkMethod: aContext [ + aContext parseTree selector = #hash + ifTrue: [ super checkMethod: aContext ] +] + +{ #category : 'accessing' } +GRUsesClassForHashRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRUsesClassForHashRule >> initialize [ + super initialize. + self matcher + matches: '`@receiver class hash' + do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] +] + +{ #category : 'accessing' } +GRUsesClassForHashRule >> name [ + ^ 'Uses its class for hash' +] + +{ #category : 'accessing' } +GRUsesClassForHashRule >> rationale [ + ^ 'The hash of an object should not depend on the hash of its class as some Smalltalk have non-constant class hashes.' +] diff --git a/repository/Grease-Slime/GRUsesCurlyBraceArraysRule.class.st b/repository/Grease-Slime/GRUsesCurlyBraceArraysRule.class.st new file mode 100644 index 00000000..91d22177 --- /dev/null +++ b/repository/Grease-Slime/GRUsesCurlyBraceArraysRule.class.st @@ -0,0 +1,29 @@ +Class { + #name : 'GRUsesCurlyBraceArraysRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'accessing' } +GRUsesCurlyBraceArraysRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRUsesCurlyBraceArraysRule >> initialize [ + super initialize. + self matcher + matches: '{ `@.stmts }' + do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] +] + +{ #category : 'accessing' } +GRUsesCurlyBraceArraysRule >> name [ + ^ 'Uses curly brace arrays' +] + +{ #category : 'accessing' } +GRUsesCurlyBraceArraysRule >> rationale [ + ^ 'Curly brace expressions are not portable accross different Smalltalk dialects.' +] diff --git a/repository/Grease-Slime/GRUsesLiteralByteArraysRule.class.st b/repository/Grease-Slime/GRUsesLiteralByteArraysRule.class.st new file mode 100644 index 00000000..65a6d3e1 --- /dev/null +++ b/repository/Grease-Slime/GRUsesLiteralByteArraysRule.class.st @@ -0,0 +1,29 @@ +Class { + #name : 'GRUsesLiteralByteArraysRule', + #superclass : 'GRSlimeParseTreeLintRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'accessing' } +GRUsesLiteralByteArraysRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'initialization' } +GRUsesLiteralByteArraysRule >> initialize [ + super initialize. + self matcher + matches: '`#literal `{ :node | node isLiteralArray and: [ node isForByteArray ] }' + do: [ :node :answer | answer isNil ifTrue: [ node ] ifFalse: [ answer ] ] +] + +{ #category : 'accessing' } +GRUsesLiteralByteArraysRule >> name [ + ^ 'Uses literal byte arrays' +] + +{ #category : 'accessing' } +GRUsesLiteralByteArraysRule >> rationale [ + ^ 'Literal byte arrays are not portable accross different Smalltalk dialects.' +] diff --git a/repository/Grease-Slime/GRUsesMethodAnnotationsRule.class.st b/repository/Grease-Slime/GRUsesMethodAnnotationsRule.class.st new file mode 100644 index 00000000..a371ac86 --- /dev/null +++ b/repository/Grease-Slime/GRUsesMethodAnnotationsRule.class.st @@ -0,0 +1,40 @@ +Class { + #name : 'GRUsesMethodAnnotationsRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'running' } +GRUsesMethodAnnotationsRule >> checkMethod: aContext [ + (self shouldExclude: aContext) ifFalse: [ + aContext compiledMethod pragmas do: [ :each | + result + addClass: aContext selectedClass + selector: aContext selector. + result addSearchString: each keyword ] ] +] + +{ #category : 'accessing' } +GRUsesMethodAnnotationsRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'accessing' } +GRUsesMethodAnnotationsRule >> name [ + ^ 'Uses method annotations' +] + +{ #category : 'accessing' } +GRUsesMethodAnnotationsRule >> rationale [ + ^ 'As of now, it is unclear if method-annotations/pragmas are compatible across all supported platforms. Likely this rule will soon be removed.' +] + +{ #category : 'running' } +GRUsesMethodAnnotationsRule >> shouldExclude: aContext [ + "The REST and OmniBrowser related packages are OK to have pragmas" + | classCategory | + classCategory := aContext selectedClass theNonMetaClass category. + ^ #(#'-REST-' 'OmniBrowser') anySatisfy: [ :each | + (classCategory indexOfSubCollection: each startingAt: 1) ~= 0 ] +] diff --git a/repository/Grease-Slime/GRUsesNotPortableClassRule.class.st b/repository/Grease-Slime/GRUsesNotPortableClassRule.class.st new file mode 100644 index 00000000..234cc085 --- /dev/null +++ b/repository/Grease-Slime/GRUsesNotPortableClassRule.class.st @@ -0,0 +1,47 @@ +Class { + #name : 'GRUsesNotPortableClassRule', + #superclass : 'GRSlimeBlockLintRule', + #category : 'Grease-Slime', + #package : 'Grease-Slime' +} + +{ #category : 'running' } +GRUsesNotPortableClassRule >> checkClass: aContext [ + aContext selectedClass allSuperclassesDo: [ :each | + (self classNames includes: each name) ifTrue: [ + result addClass: aContext selectedClass. + result addSearchString: each name ] ] +] + +{ #category : 'running' } +GRUsesNotPortableClassRule >> checkMethod: aContext [ + (aContext selectedClass theNonMetaClass category indexOfSubCollection: #'-Pharo-' startingAt: 1) ~= 0 ifTrue: [ + "classes in a -Pharo- package are per definition not portable and therefore allowed to use non-portable classes" + ^ self ]. + aContext compiledMethod literals do: [ :each | + (each isVariableBinding and: [ self classNames includes: each key ]) ifTrue: [ + result + addClass: aContext selectedClass + selector: aContext selector. + result addSearchString: each key ] ] +] + +{ #category : 'private' } +GRUsesNotPortableClassRule >> classNames [ + ^ #( Delay MIMEDocument Monitor Mutex MutexSet Random Semaphore TimeStamp Timestamp MessageSend ) +] + +{ #category : 'accessing' } +GRUsesNotPortableClassRule >> group [ + ^ 'Grease Portability' +] + +{ #category : 'accessing' } +GRUsesNotPortableClassRule >> name [ + ^ 'Uses not portable class' +] + +{ #category : 'accessing' } +GRUsesNotPortableClassRule >> rationale [ + ^ 'Some classes are not portable accross different Smalltalk dialects.' +] diff --git a/repository/Grease-Slime/package.st b/repository/Grease-Slime/package.st new file mode 100644 index 00000000..a1f60626 --- /dev/null +++ b/repository/Grease-Slime/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Slime' } diff --git a/repository/Grease-Squeak6-Core.package/.filetree b/repository/Grease-Squeak6-Core.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-Squeak6-Core.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-Squeak6-Core.package/Behavior.extension/instance/fullName.st b/repository/Grease-Squeak6-Core.package/Behavior.extension/instance/fullName.st deleted file mode 100644 index 6e09f0a2..00000000 --- a/repository/Grease-Squeak6-Core.package/Behavior.extension/instance/fullName.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak6-core -fullName - "In VW, will include the namespace" - - ^ self name \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/Behavior.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Behavior.extension/methodProperties.json deleted file mode 100644 index a3ca36c4..00000000 --- a/repository/Grease-Squeak6-Core.package/Behavior.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "fullName" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/Behavior.extension/properties.json b/repository/Grease-Squeak6-Core.package/Behavior.extension/properties.json deleted file mode 100644 index 37061187..00000000 --- a/repository/Grease-Squeak6-Core.package/Behavior.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Behavior" } diff --git a/repository/Grease-Squeak6-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Squeak6-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index eec59324..00000000 --- a/repository/Grease-Squeak6-Core.package/BlockClosure.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-squeak6-core -valueWithPossibleArguments: anArray - - ^ self valueWithEnoughArguments: anArray \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/BlockClosure.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/BlockClosure.extension/methodProperties.json deleted file mode 100644 index 32357e4b..00000000 --- a/repository/Grease-Squeak6-Core.package/BlockClosure.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "valueWithPossibleArguments:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/BlockClosure.extension/properties.json b/repository/Grease-Squeak6-Core.package/BlockClosure.extension/properties.json deleted file mode 100644 index 1d6f4884..00000000 --- a/repository/Grease-Squeak6-Core.package/BlockClosure.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "BlockClosure" } diff --git a/repository/Grease-Squeak6-Core.package/ByteArray.extension/instance/greaseString.st b/repository/Grease-Squeak6-Core.package/ByteArray.extension/instance/greaseString.st deleted file mode 100644 index c8affabf..00000000 --- a/repository/Grease-Squeak6-Core.package/ByteArray.extension/instance/greaseString.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-squeak6-core -greaseString - "ByteArrays should not automatically be converted to Strings. You should use a GRCodec for this." - ^ self printString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/ByteArray.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/ByteArray.extension/methodProperties.json deleted file mode 100644 index aa6e0f4c..00000000 --- a/repository/Grease-Squeak6-Core.package/ByteArray.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/ByteArray.extension/properties.json b/repository/Grease-Squeak6-Core.package/ByteArray.extension/properties.json deleted file mode 100644 index 191a2eca..00000000 --- a/repository/Grease-Squeak6-Core.package/ByteArray.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "ByteArray" } diff --git a/repository/Grease-Squeak6-Core.package/Character.extension/instance/greaseInteger.st b/repository/Grease-Squeak6-Core.package/Character.extension/instance/greaseInteger.st deleted file mode 100644 index 136d5d0e..00000000 --- a/repository/Grease-Squeak6-Core.package/Character.extension/instance/greaseInteger.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-squeak6-core -greaseInteger - "Answer an unicode code point of the receiver." - ^ self asUnicode \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/Character.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Character.extension/methodProperties.json deleted file mode 100644 index ba3a2e4b..00000000 --- a/repository/Grease-Squeak6-Core.package/Character.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseInteger" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/Character.extension/properties.json b/repository/Grease-Squeak6-Core.package/Character.extension/properties.json deleted file mode 100644 index 7532e33e..00000000 --- a/repository/Grease-Squeak6-Core.package/Character.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Character" } diff --git a/repository/Grease-Squeak6-Core.package/Collection.extension/instance/any.st b/repository/Grease-Squeak6-Core.package/Collection.extension/instance/any.st deleted file mode 100644 index f0ab3697..00000000 --- a/repository/Grease-Squeak6-Core.package/Collection.extension/instance/any.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak6-core -any - ^ self anyOne \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/Collection.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Collection.extension/methodProperties.json deleted file mode 100644 index 4dcd386e..00000000 --- a/repository/Grease-Squeak6-Core.package/Collection.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "any" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/Collection.extension/properties.json b/repository/Grease-Squeak6-Core.package/Collection.extension/properties.json deleted file mode 100644 index 93b0dc32..00000000 --- a/repository/Grease-Squeak6-Core.package/Collection.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Collection" } diff --git a/repository/Grease-Squeak6-Core.package/Duration.extension/class/milliseconds..st b/repository/Grease-Squeak6-Core.package/Duration.extension/class/milliseconds..st deleted file mode 100644 index 60a65d0c..00000000 --- a/repository/Grease-Squeak6-Core.package/Duration.extension/class/milliseconds..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak6-core -milliseconds: anInteger - ^ self milliSeconds: anInteger \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/Duration.extension/instance/asMilliseconds.st b/repository/Grease-Squeak6-Core.package/Duration.extension/instance/asMilliseconds.st deleted file mode 100644 index 14976605..00000000 --- a/repository/Grease-Squeak6-Core.package/Duration.extension/instance/asMilliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak6-core -asMilliseconds - ^ self asMilliSeconds \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/Duration.extension/instance/milliseconds.st b/repository/Grease-Squeak6-Core.package/Duration.extension/instance/milliseconds.st deleted file mode 100644 index 2952d5dc..00000000 --- a/repository/Grease-Squeak6-Core.package/Duration.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak6-core -milliseconds - ^ nanos quo: NanosInMillisecond \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/Duration.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Duration.extension/methodProperties.json deleted file mode 100644 index b69e8b01..00000000 --- a/repository/Grease-Squeak6-Core.package/Duration.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - "milliseconds:" : "7/15/2024 14:23:40" }, - "instance" : { - "asMilliseconds" : "7/15/2024 14:23:40", - "milliseconds" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/Duration.extension/properties.json b/repository/Grease-Squeak6-Core.package/Duration.extension/properties.json deleted file mode 100644 index 512e0f01..00000000 --- a/repository/Grease-Squeak6-Core.package/Duration.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Duration" } diff --git a/repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 946a8627..00000000 --- a/repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak6-core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - stream greaseNext: anInteger putAll: aCollection startingAt: startIndex \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/methodProperties.json deleted file mode 100644 index b2ff4263..00000000 --- a/repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseNext:putAll:startingAt:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/properties.json b/repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/properties.json deleted file mode 100644 index 472cde09..00000000 --- a/repository/Grease-Squeak6-Core.package/GRDelegatingStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRDelegatingStream" } diff --git a/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/README.md b/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/default.st b/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/default.st deleted file mode 100644 index 28508572..00000000 --- a/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/default.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -default - ^ self defaultValue \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/defaultValue.st b/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/defaultValue.st deleted file mode 100644 index b0275614..00000000 --- a/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/defaultValue.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -defaultValue - ^ nil \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/use.during..st b/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/use.during..st deleted file mode 100644 index 1e03f82f..00000000 --- a/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/class/use.during..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -use: anObject during: aBlock - ^ self - value: anObject - during: aBlock \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/methodProperties.json b/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/methodProperties.json deleted file mode 100644 index 527fb963..00000000 --- a/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - "default" : "7/15/2024 14:23:40", - "defaultValue" : "7/15/2024 14:23:40", - "use:during:" : "7/15/2024 14:23:40" }, - "instance" : { - } } diff --git a/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/properties.json b/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/properties.json deleted file mode 100644 index f57ef2b1..00000000 --- a/repository/Grease-Squeak6-Core.package/GRDynamicVariable.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRDynamicVariable", - "pools" : [ - ], - "super" : "DynamicVariable", - "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRPackage.extension/class/greaseSqueak6Core.st b/repository/Grease-Squeak6-Core.package/GRPackage.extension/class/greaseSqueak6Core.st deleted file mode 100644 index 8882e111..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPackage.extension/class/greaseSqueak6Core.st +++ /dev/null @@ -1,7 +0,0 @@ -*grease-squeak6-core -greaseSqueak6Core - ^ self new - name: 'Grease-Squeak6-Core'; - addDependency: 'Grease-Core'; - url: #greaseUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPackage.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index c69bc976..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "greaseSqueak6Core" : "7/15/2024 14:23:40" }, - "instance" : { - } } diff --git a/repository/Grease-Squeak6-Core.package/GRPackage.extension/properties.json b/repository/Grease-Squeak6-Core.package/GRPackage.extension/properties.json deleted file mode 100644 index dd2faaf0..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPackage" } diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/README.md deleted file mode 100644 index 581959b9..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am a hack so that we can load Seaside Pharo packages into Squeak. \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/methodProperties.json b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/methodProperties.json deleted file mode 100644 index 0e4a6622..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - } } diff --git a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/properties.json deleted file mode 100644 index aaface47..00000000 --- a/repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 7/15/2024 15:09", - "instvars" : [ - ], - "name" : "GRPharoPlatform", - "pools" : [ - ], - "super" : "GRPlatform", - "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st b/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st deleted file mode 100644 index 04a4d9d4..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/customizeExplorerContents.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak6-core -customizeExplorerContents - ^ true \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/explorerContents.st b/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/explorerContents.st deleted file mode 100644 index f102460b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/explorerContents.st +++ /dev/null @@ -1,9 +0,0 @@ -*grease-squeak6-core -explorerContents - | contents | - contents := self keys sort: [ :a :b | a compareSafely: b ]. - ^contents replace: [ :key | - ObjectExplorerWrapper - with: (self at: key) - name: (key printString contractTo: 32) - model: self ]. \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st b/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st deleted file mode 100644 index e86f480c..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/instance/hasContentsInExplorer.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak6-core -hasContentsInExplorer - ^ true \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/methodProperties.json deleted file mode 100644 index 12c131e9..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/methodProperties.json +++ /dev/null @@ -1,7 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "customizeExplorerContents" : "7/15/2024 14:23:40", - "explorerContents" : "7/15/2024 14:23:40", - "hasContentsInExplorer" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/properties.json b/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/properties.json deleted file mode 100644 index 943ee5f4..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSmallDictionary.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRSmallDictionary" } diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/README.md deleted file mode 100644 index f25fd5b5..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/README.md +++ /dev/null @@ -1,7 +0,0 @@ -A GRPharoConverterCodecStream is a WACodec stream around a TextConverter. It is always in text mode. - -Instance Variables - converter: - -converter - - the TextConverter used to do the encoding conversion diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/class/on.converter..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/class/on.converter..st deleted file mode 100644 index de8cd791..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/class/on.converter..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -on: aStream converter: aConverter - ^ self basicNew initializeOn: aStream converter: aConverter \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 8321e299..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -greaseNext: anInteger putAll: aCollection startingAt: startIndex - self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1) \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/initializeOn.converter..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/initializeOn.converter..st deleted file mode 100644 index c380485d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/initializeOn.converter..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeOn: aStream converter: aConverter - self initializeOn: aStream. - converter := aConverter \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next..st deleted file mode 100644 index ef51837b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next..st +++ /dev/null @@ -1,8 +0,0 @@ -streaming -next: anInteger - | writeStream | - writeStream := WriteStream on: (String new: anInteger). - anInteger timesRepeat: [ - writeStream nextPut: (self next - ifNil: [ ^ writeStream contents ]) ]. - ^ writeStream contents \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next.st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next.st deleted file mode 100644 index eee99a1a..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/next.st +++ /dev/null @@ -1,6 +0,0 @@ -streaming -next - | character | - character := converter nextFromStream: stream. - ^ character isNil - ifFalse: [ character asCharacter ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/nextPut..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/nextPut..st deleted file mode 100644 index e65f56c4..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPut: aCharacter - converter nextPut: aCharacter asCharacter toStream: stream \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/nextPutAll..st b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/nextPutAll..st deleted file mode 100644 index a30c4507..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -nextPutAll: aString - aString asString do: [ :each | self nextPut: each ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/properties.json b/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/properties.json deleted file mode 100644 index 2dde7c8d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakConverterCodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 9/14/2013 15:53", - "instvars" : [ - "converter" ], - "name" : "GRSqueakConverterCodecStream", - "pools" : [ - ], - "super" : "GRCodecStream", - "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/basicForEncoding..st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/basicForEncoding..st deleted file mode 100644 index f6b18bd4..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/basicForEncoding..st +++ /dev/null @@ -1,5 +0,0 @@ -private -basicForEncoding: aString - (self supportsEncoding: aString) - ifFalse: [ self unsupportedEncoding: aString ]. - ^ self basicNew initializeWithName: aString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/codecs.st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/codecs.st deleted file mode 100644 index 1ed0b26a..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/codecs.st +++ /dev/null @@ -1,8 +0,0 @@ -accessing -codecs - ^ (TextConverter allEncodingNames - select: [ :each | - "exclude UFT-8 which is handled by WAUtf8Codec" - self supportsEncoding: each ]) - collect: [ :each | - self basicForEncoding: each greaseString ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/supportedEncodingNames.st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/supportedEncodingNames.st deleted file mode 100644 index 0377703f..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/supportedEncodingNames.st +++ /dev/null @@ -1,8 +0,0 @@ -private -supportedEncodingNames - "answers the names of the encodings supported by this class" - - ^ (TextConverter allSubclasses gather: [ :class | class encodingNames ]) asSet asOrderedCollection - removeAllFoundIn: GRSqueakLatin1Codec supportedEncodingNames; - removeAllFoundIn: UTF8TextConverter encodingNames; - yourself \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/supportsEncoding..st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/supportsEncoding..st deleted file mode 100644 index 43a27325..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/class/supportsEncoding..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -supportsEncoding: aString - "Answer whether the the given encoding name is supported." - ^ self supportedEncodingNames includes: aString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/converter.st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/converter.st deleted file mode 100644 index 02b8754b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/converter.st +++ /dev/null @@ -1,3 +0,0 @@ -private -converter - ^ TextConverter newForEncoding: self name \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/decoderFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/decoderFor..st deleted file mode 100644 index be53dfea..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/decoderFor..st +++ /dev/null @@ -1,3 +0,0 @@ -conversion -decoderFor: aStream - ^ self encoderFor: aStream \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/encoderFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/encoderFor..st deleted file mode 100644 index 66a348a4..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRSqueakConverterCodecStream - on: aStream - converter: self converter \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/initializeWithName..st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/initializeWithName..st deleted file mode 100644 index fe95783c..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/initializeWithName..st +++ /dev/null @@ -1,7 +0,0 @@ -initialization -initializeWithName: aString - self initialize. - name := aString. - urlCodec := (#('iso-8859-15' 'cp-1252') includes: aString) - ifFalse: [ GRCodec forEncoding: 'utf-8' ] - ifTrue: [ self ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/name.st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/name.st deleted file mode 100644 index 22077c20..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ name \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/url.st b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/url.st deleted file mode 100644 index 232ad239..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/instance/url.st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -url - "RFC 3986: When a new URI scheme defines a component that represents textual data consisting of characters from the Universal Character Set [UCS], the data should first be encoded as octets according to the UTF-8 character encoding." - - ^ urlCodec \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/properties.json b/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/properties.json deleted file mode 100644 index 970bce64..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakGenericCodec.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "name", - "urlCodec" ], - "name" : "GRSqueakGenericCodec", - "pools" : [ - ], - "super" : "GRCodec", - "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/README.md deleted file mode 100644 index 3f437d62..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A GRPharoLatin1Codec is a WACodec optimized for ISO-8859-1 (direct byte to character mapping). \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/basicForEncoding..st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/basicForEncoding..st deleted file mode 100644 index f6b18bd4..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/basicForEncoding..st +++ /dev/null @@ -1,5 +0,0 @@ -private -basicForEncoding: aString - (self supportsEncoding: aString) - ifFalse: [ self unsupportedEncoding: aString ]. - ^ self basicNew initializeWithName: aString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/codecs.st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/codecs.st deleted file mode 100644 index 7a96b703..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/codecs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecs - ^ Array with: (self basicForEncoding: 'iso-8859-1') \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/supportedEncodingNames.st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/supportedEncodingNames.st deleted file mode 100644 index e5dca068..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/supportedEncodingNames.st +++ /dev/null @@ -1,3 +0,0 @@ -private -supportedEncodingNames - ^ #('iso-8859-1' 'ISO-8859-1' 'latin-1' 'latin1') \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/supportsEncoding..st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/supportsEncoding..st deleted file mode 100644 index 43a27325..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/class/supportsEncoding..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -supportsEncoding: aString - "Answer whether the the given encoding name is supported." - ^ self supportedEncodingNames includes: aString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/decode..st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/decode..st deleted file mode 100644 index 74b1f7bd..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/decode..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -decode: aStringOrByteArray - "Overridden for efficiency." - - ^ aStringOrByteArray asString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/decoderFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/decoderFor..st deleted file mode 100644 index 8b868322..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -decoderFor: aReadStream - "wrap to avoid String vs ByteArray issues" - ^ GRSqueakLatin1CodecStream on: aReadStream \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/encoderFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/encoderFor..st deleted file mode 100644 index 1a17fd93..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,4 +0,0 @@ -conversion -encoderFor: aWriteStream - "wrap to avoid String vs ByteArray issues" - ^ GRSqueakLatin1CodecStream on: aWriteStream \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/initializeWithName..st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/initializeWithName..st deleted file mode 100644 index b0256973..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/initializeWithName..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeWithName: aString - self initialize. - name := aString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/name.st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/name.st deleted file mode 100644 index 22077c20..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ name \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/properties.json b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/properties.json deleted file mode 100644 index 3468df5f..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1Codec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - "name" ], - "name" : "GRSqueakLatin1Codec", - "pools" : [ - ], - "super" : "GRNullCodec", - "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/README.md deleted file mode 100644 index e1c2471b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A GRPharoLatin1CodecStream is a WACodecStream optimized for ISO-8859-1 (direct byte to character mapping). \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/instance/next..st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/instance/next..st deleted file mode 100644 index a734bc76..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/instance/next..st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next: anInteger - ^ (stream next: anInteger) asString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/instance/next.st b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/instance/next.st deleted file mode 100644 index 766a570d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - ^ Character codePoint: stream next \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/properties.json b/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/properties.json deleted file mode 100644 index e187308b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakLatin1CodecStream.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRSqueakLatin1CodecStream", - "pools" : [ - ], - "super" : "GRNullCodecStream", - "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/README.md deleted file mode 100644 index fb7f3baf..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A GRSqueakPlatform is the Squeak implementation of GRPlatform, the Grease class that provides functionality that can not be implemented in a platform independent way. diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initialize.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initialize.st deleted file mode 100644 index 0c86564c..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -class initialization -initialize - self initializeXmlTable. - self initializeUrlTable. - self select \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initializeUrlTable.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initializeUrlTable.st deleted file mode 100644 index 9abf56b7..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initializeUrlTable.st +++ /dev/null @@ -1,7 +0,0 @@ -class initialization -initializeUrlTable - UrlTable := ByteArray new: 256. - 1 to: 256 do: [ :index | - ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~' includes: (Character codePoint: index - 1)) - ifTrue: [ UrlTable at: index put: 0 ] - ifFalse: [ UrlTable at: index put: 1 ] ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initializeXmlTable.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initializeXmlTable.st deleted file mode 100644 index 830a5595..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/initializeXmlTable.st +++ /dev/null @@ -1,7 +0,0 @@ -class initialization -initializeXmlTable - XmlTable := ByteArray new: 256. - 1 to: 256 do: [ :index | - ('"<&>' includes: (Character codePoint: index - 1)) - ifTrue: [ XmlTable at: index put: 1 ] - ifFalse: [ XmlTable at: index put: 0 ] ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/unload.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/unload.st deleted file mode 100644 index 4c8dd650..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/class/unload.st +++ /dev/null @@ -1,3 +0,0 @@ -class initialization -unload - self unselect \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/addToShutDownList..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/addToShutDownList..st deleted file mode 100644 index f8d3ad5f..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/addToShutDownList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -addToShutDownList: anObject - "Add anObject to the shutdown-list of the system. On shutdown the message #shutDown will be sent to anObject." - - Smalltalk addToShutDownList: anObject \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/addToStartUpList..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/addToStartUpList..st deleted file mode 100644 index ecbbe65e..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/addToStartUpList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -addToStartUpList: anObject - "Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject." - - Smalltalk addToStartUpList: anObject \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArray.named..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArray.named..st deleted file mode 100644 index ba4a0727..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArray.named..st +++ /dev/null @@ -1,6 +0,0 @@ -file library -asMethodReturningByteArray: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a ByteArray" - ^ self useByteArrayLiterals - ifTrue: [ self asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol ] - ifFalse: [ self asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st deleted file mode 100644 index 90bb405c..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArrayLiteral.named..st +++ /dev/null @@ -1,10 +0,0 @@ -private-file library -asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array using VW/NewCompiler byte array literal syntax." - ^ String streamContents: [ :stream | - stream nextPutAll: aSymbol; nextPut: Character cr. - stream tab; nextPutAll: '^ #['. - aByteArrayOrString asByteArray - do: [ :each | each printOn: stream ] - separatedBy: [ stream space ]. - stream nextPutAll: ']' ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st deleted file mode 100644 index a1f9fe07..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/asMethodReturningByteArrayWithCache.named..st +++ /dev/null @@ -1,10 +0,0 @@ -private-file library -asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol - "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array and caching this array in a literal array of size 1." - ^ String streamContents: [ :stream | - stream nextPutAll: aSymbol; nextPut: Character cr. - stream tab; nextPutAll: '^ #('. - aByteArrayOrString asByteArray - do: [ :each | each printOn: stream ] - separatedBy: [ stream space ]. - stream nextPutAll: ') asByteArray' ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/base64Decode..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/base64Decode..st deleted file mode 100644 index 382a7f83..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/base64Decode..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -base64Decode: aString - ^ (Base64MimeConverter mimeDecodeToChars: aString readStream) contents \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/base64Encode..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/base64Encode..st deleted file mode 100644 index 4cb93d20..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/base64Encode..st +++ /dev/null @@ -1,3 +0,0 @@ -encoding -base64Encode: aByteArray - ^ aByteArray base64Encoded \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/bindingOf..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/bindingOf..st deleted file mode 100644 index 2c8a9b8d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/bindingOf..st +++ /dev/null @@ -1,4 +0,0 @@ -bindings -bindingOf: aClass - "theoretically consider the environment of a class" - ^ aClass binding \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/compile.into.classified..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/compile.into.classified..st deleted file mode 100644 index 7fde3ad8..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/compile.into.classified..st +++ /dev/null @@ -1,31 +0,0 @@ -file library -compile: aString into: aClass classified: aSymbol - "The trick here is to be as silently a possible so that the package is not marked dirty when running WAFileLibrary test. - This also makes running tests much faster." - | methodNode compiledMethod selector methodAndNode | - methodNode := aClass compilerClass new - compile: aString - in: aClass - notifying: nil - ifFail: [ GRError signal: 'syntax error' ]. - selector := methodNode selector. - methodAndNode := CompiledMethodWithNode - generateMethodFromNode: methodNode - trailer: aClass defaultMethodTrailer. - compiledMethod := methodAndNode method. - compiledMethod - putSource: aString - fromParseNode: methodAndNode node - inFile: 2 - withPreamble: [ :file | - aClass - printCategoryChunk: aSymbol asString - on: file priorMethod: (aClass compiledMethodAt: selector ifAbsent: [ nil ]). - file cr ]. - aClass - addSelectorSilently: selector - withMethod: compiledMethod. - SystemChangeNotifier uniqueInstance doSilently: [ - aClass organization - classify: selector - under: aSymbol ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/contentsOfFile.binary..st deleted file mode 100644 index e9f9d30b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/contentsOfFile.binary..st +++ /dev/null @@ -1,12 +0,0 @@ -file library -contentsOfFile: aString binary: aBoolean - | stream | - stream := aBoolean - ifTrue: [ (FileDirectory default oldFileNamed: aString) - binary; - yourself ] - ifFalse: [ (MultiByteFileStream oldFileNamed: aString) - ascii; - wantsLineEndConversion: true; - yourself ]. - ^ [ stream contents ] ensure: [ stream close ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/defaultDirectoryPathString.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/defaultDirectoryPathString.st deleted file mode 100644 index 9121ad38..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/defaultDirectoryPathString.st +++ /dev/null @@ -1,3 +0,0 @@ -file library -defaultDirectoryPathString - ^ FileDirectory default fullName \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/deleteFile..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/deleteFile..st deleted file mode 100644 index d03eee50..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/deleteFile..st +++ /dev/null @@ -1,3 +0,0 @@ -files -deleteFile: aPathString - FileDirectory deleteFilePath: aPathString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/deprecationExceptionSet.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/deprecationExceptionSet.st deleted file mode 100644 index bb22f36e..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/deprecationExceptionSet.st +++ /dev/null @@ -1,3 +0,0 @@ -exceptions -deprecationExceptionSet - ^ Deprecation \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/directoriesIn..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/directoriesIn..st deleted file mode 100644 index be1b1351..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/directoriesIn..st +++ /dev/null @@ -1,9 +0,0 @@ -file library -directoriesIn: aPathString - "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString - must not include file names that start with ." - | directory | - directory := FileDirectory default directoryNamed: aPathString. - ^ (directory directoryNames - reject: [ :each | each first = $. ]) - collect: [ :each | directory fullNameFor: each ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/doSilently..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/doSilently..st deleted file mode 100644 index 2a887759..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/doSilently..st +++ /dev/null @@ -1,3 +0,0 @@ -private -doSilently: aBlock - ^ SystemChangeNotifier uniqueInstance doSilently: aBlock \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/ensureExistenceOfFolder..st deleted file mode 100644 index 27973d2b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/ensureExistenceOfFolder..st +++ /dev/null @@ -1,4 +0,0 @@ -file library -ensureExistenceOfFolder: aString - "creates a folder named aString in the image directory" - FileDirectory default assureExistenceOfPath: aString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileExists..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileExists..st deleted file mode 100644 index e667077f..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileExists..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -fileExists: aString - ^ FileDirectory default fileExists: aString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileNameFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileNameFor..st deleted file mode 100644 index 679781ba..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileNameFor..st +++ /dev/null @@ -1,7 +0,0 @@ -file library -fileNameFor: aPathString - | path | - path := FileDirectory default fullPathFor: aPathString. - ^ (path size > 1 and: [ path endsWith: FileDirectory slash ]) - ifTrue: [ path allButLast: FileDirectory slash size ] - ifFalse: [ path ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileStreamOn.do.binary..st deleted file mode 100644 index 2fd81137..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/fileStreamOn.do.binary..st +++ /dev/null @@ -1,13 +0,0 @@ -file library -fileStreamOn: aString do: aBlock binary: aBoolean - ^ aBoolean - ifTrue: [ - FileStream fileNamed: aString do: [ :stream | - stream binary. - aBlock value: stream ] ] - ifFalse: [ - MultiByteFileStream fileNamed: aString do: [ :stream | - stream - ascii; - wantsLineEndConversion: true. - aBlock value: stream ] ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/filesIn..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/filesIn..st deleted file mode 100644 index 89667dbc..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/filesIn..st +++ /dev/null @@ -1,9 +0,0 @@ -file library -filesIn: aPathString - "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString - must not include file names that start with ." - | directory | - directory := FileDirectory default directoryNamed: aPathString. - ^ (directory fileNames - reject: [ :each | each first = $. ]) - collect: [ :each | directory fullNameFor: each ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/integerAsByteArray..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/integerAsByteArray..st deleted file mode 100644 index e47b1197..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/integerAsByteArray..st +++ /dev/null @@ -1,10 +0,0 @@ -encoding -integerAsByteArray: anInteger - | size array | - size := anInteger greaseBytesCount. - array := ByteArray new: size. - size to: 1 by: -1 do: [ :digitIndex | - array - at: size - digitIndex + 1 - put: (anInteger greaseByteAt: digitIndex) ]. - ^ array \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/isDirectory..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/isDirectory..st deleted file mode 100644 index 74d6fa61..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/isDirectory..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -isDirectory: aPathString - ^ (FileDirectory forFileName: aPathString) directoryEntry isDirectory \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/isProcessTerminated..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/isProcessTerminated..st deleted file mode 100644 index 03b50778..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/isProcessTerminated..st +++ /dev/null @@ -1,4 +0,0 @@ -processes -isProcessTerminated: aProcess - "Return a boolean indicating whether aProcess has been terminated." - ^ aProcess isTerminated \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/label.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/label.st deleted file mode 100644 index 3ab4dd4d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/label.st +++ /dev/null @@ -1,3 +0,0 @@ -version info -label - ^ 'Squeak' \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/localNameOf..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/localNameOf..st deleted file mode 100644 index f943c14d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/localNameOf..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -localNameOf: aFilename - ^ (FileDirectory on: aFilename) localName \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newRandom.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newRandom.st deleted file mode 100644 index c77d4481..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newRandom.st +++ /dev/null @@ -1,10 +0,0 @@ -factory -newRandom - "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: - #nextInt: - should answer a random integer in the interval [1, anInteger] - #randomFrom: - should answer a random element from the given collection - - Make sure that both methods are safe under heavy concurrent load. - - Used by Gemstone/S traditional Randoms which cannot be persisted.." - ^ ThreadSafeRandom value \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newTemporaryFile.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newTemporaryFile.st deleted file mode 100644 index 01578607..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newTemporaryFile.st +++ /dev/null @@ -1,4 +0,0 @@ -files -newTemporaryFile - - ^ self newTemporaryFileNamed: UUID new greaseString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newTemporaryFileNamed..st deleted file mode 100644 index 9e117ca4..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newTemporaryFileNamed..st +++ /dev/null @@ -1,7 +0,0 @@ -files -newTemporaryFileNamed: aName - - | file | - file := FileDirectory default / aName. - file exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ]. - ^ file pathName \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newline.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newline.st deleted file mode 100644 index f3752602..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newline.st +++ /dev/null @@ -1,3 +0,0 @@ -file library -newline - ^ String with: Character cr \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/openDebuggerOn..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/openDebuggerOn..st deleted file mode 100644 index 6a1a8c2d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/openDebuggerOn..st +++ /dev/null @@ -1,5 +0,0 @@ -exceptions -openDebuggerOn: anError - "Squeak variant based on the Pharo platform code, intended to avoid the deprecated #debug:title:full: message" - - ToolSet handleError: anError \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/pathSeparator.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/pathSeparator.st deleted file mode 100644 index 00c6db56..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/pathSeparator.st +++ /dev/null @@ -1,3 +0,0 @@ -files -pathSeparator - ^ String with: FileDirectory pathNameDelimiter \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readFileStreamOn.do.binary..st deleted file mode 100644 index 91aadee5..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readFileStreamOn.do.binary..st +++ /dev/null @@ -1,13 +0,0 @@ -files -readFileStreamOn: aString do: aBlock binary: aBoolean - ^ aBoolean - ifTrue: [ - FileStream fileNamed: aString do: [ :stream | - stream binary. - aBlock value: stream ] ] - ifFalse: [ - MultiByteFileStream fileNamed: aString do: [ :stream | - stream - ascii; - wantsLineEndConversion: true. - aBlock value: stream ] ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readWriteByteStream.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readWriteByteStream.st deleted file mode 100644 index 35251d7b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readWriteByteStream.st +++ /dev/null @@ -1,5 +0,0 @@ -factory -readWriteByteStream - "ByteArray based read write stream" - - ^ RWBinaryOrTextStream on: (ByteArray new: 4096) \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readWriteCharacterStream.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readWriteCharacterStream.st deleted file mode 100644 index 3f94c5af..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/readWriteCharacterStream.st +++ /dev/null @@ -1,5 +0,0 @@ -factory -readWriteCharacterStream - "String based read write stream" - - ^ ReadWriteStream on: (String new: 4096) \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeFromShutDownList..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeFromShutDownList..st deleted file mode 100644 index 09cc5c70..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeFromShutDownList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromShutDownList: anObject - "Remove anObject from the shutdown list in the system." - - Smalltalk removeFromShutDownList: anObject \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeFromStartUpList..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeFromStartUpList..st deleted file mode 100644 index ecd7d527..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeFromStartUpList..st +++ /dev/null @@ -1,5 +0,0 @@ -startup -removeFromStartUpList: anObject - "Remove anObject from the startup list in the system." - - Smalltalk removeFromStartUpList: anObject \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeSelector.from..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeSelector.from..st deleted file mode 100644 index f9541b7e..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/removeSelector.from..st +++ /dev/null @@ -1,3 +0,0 @@ -file library -removeSelector: aSymbol from: aClass - aClass removeSelectorSilently: aSymbol \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/secureHashFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/secureHashFor..st deleted file mode 100644 index b0c1e2b2..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/secureHashFor..st +++ /dev/null @@ -1,3 +0,0 @@ -cryptography -secureHashFor: aString - ^ SecureHashAlgorithm new hashMessage: aString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/semaphoreClass.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/semaphoreClass.st deleted file mode 100644 index ceccf9e3..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/semaphoreClass.st +++ /dev/null @@ -1,4 +0,0 @@ -factory -semaphoreClass - "used by Gemstone/S traditional Semaphores which cannot be persisted" - ^ Semaphore \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sizeOfFile..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sizeOfFile..st deleted file mode 100644 index 2beda3e4..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sizeOfFile..st +++ /dev/null @@ -1,4 +0,0 @@ -files -sizeOfFile: aString - - ^ aString asDirectoryEntry fileSize \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st deleted file mode 100644 index 6131cf3d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st +++ /dev/null @@ -1,5 +0,0 @@ -meta-object-protocol -sourceCodeStringOf: aCompiledMethod - "Return a String with the source code for a compiled method." - - ^ self convertToSmalltalkNewlines: aCompiledMethod getSourceFromFile \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/stackDepth.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/stackDepth.st deleted file mode 100644 index 7b994393..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/stackDepth.st +++ /dev/null @@ -1,10 +0,0 @@ -exceptions -stackDepth - - | depth current | - depth := 0. - current := thisContext. - [ current isNil ] whileFalse: [ - current := current sender. - depth := depth + 1 ]. - ^ depth - 1 \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/terminateProcess..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/terminateProcess..st deleted file mode 100644 index a09b96e1..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/terminateProcess..st +++ /dev/null @@ -1,4 +0,0 @@ -processes -terminateProcess: aProcess - "Permanently terminate the process, unwinding first to execute #ensure: and #ifCurtailed: blocks." - aProcess terminate \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/thisContext.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/thisContext.st deleted file mode 100644 index 97018fc5..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/thisContext.st +++ /dev/null @@ -1,4 +0,0 @@ -processes -thisContext - - ^ thisContext sender \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/useByteArrayLiterals.st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/useByteArrayLiterals.st deleted file mode 100644 index f65fb83a..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/useByteArrayLiterals.st +++ /dev/null @@ -1,11 +0,0 @@ -private-file library -useByteArrayLiterals - "whether ByteArray literals can/should be used" - | hasSettings | - hasSettings := Smalltalk at: #PragmaSetting ifAbsent: [ nil ]. - ^ hasSettings isNil - ifTrue: [ - (Smalltalk at: #Preferences) - valueOfFlag: #compileUseNewCompiler - ifAbsent: [ false ] ] - ifFalse: [ false ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/weakDictionaryOfSize..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/weakDictionaryOfSize..st deleted file mode 100644 index b0ca3d82..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/weakDictionaryOfSize..st +++ /dev/null @@ -1,3 +0,0 @@ -factory -weakDictionaryOfSize: aNumber - ^ IdentityDictionary new: aNumber \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/write.toFile.inFolder..st deleted file mode 100644 index 08d697b5..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/write.toFile.inFolder..st +++ /dev/null @@ -1,15 +0,0 @@ -file library -write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString - "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" - | folder stream fullFilePath | - folder := FileDirectory default directoryNamed: aFolderString. - fullFilePath := folder fullNameFor: aFileNameString. - stream := aStringOrByteArray isString - ifTrue: [ - (MultiByteFileStream forceNewFileNamed: fullFilePath) - ascii; - wantsLineEndConversion: true; - yourself ] - ifFalse: [ (FileStream forceNewFileNamed: fullFilePath) binary ]. - [ stream nextPutAll: aStringOrByteArray ] - ensure: [ stream close ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st deleted file mode 100644 index 9207976d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st +++ /dev/null @@ -1,8 +0,0 @@ -files -writeFileStreamOn: aString do: aBlock binary: aBoolean - | stream | - stream := aBoolean - ifTrue: [ (FileStream fileNamed: aString) binary ] - ifFalse: [ (MultiByteFileStream fileNamed: aString) ascii; wantsLineEndConversion: true; yourself ]. - [ aBlock value: stream ] - ensure: [ stream close ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/methodProperties.json b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/methodProperties.json deleted file mode 100644 index 18983566..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/methodProperties.json +++ /dev/null @@ -1,54 +0,0 @@ -{ - "class" : { - "initialize" : "7/15/2024 14:23:40", - "initializeUrlTable" : "7/15/2024 14:23:40", - "initializeXmlTable" : "7/15/2024 14:23:40", - "unload" : "7/15/2024 14:23:40" }, - "instance" : { - "addToShutDownList:" : "7/15/2024 14:23:40", - "addToStartUpList:" : "7/15/2024 14:23:40", - "asMethodReturningByteArray:named:" : "7/15/2024 14:23:40", - "asMethodReturningByteArrayLiteral:named:" : "7/15/2024 14:23:40", - "asMethodReturningByteArrayWithCache:named:" : "7/15/2024 14:23:40", - "base64Decode:" : "7/15/2024 14:23:40", - "base64Encode:" : "7/15/2024 14:23:40", - "bindingOf:" : "7/15/2024 14:23:40", - "compile:into:classified:" : "7/15/2024 14:23:40", - "contentsOfFile:binary:" : "7/15/2024 14:23:40", - "defaultDirectoryPathString" : "pmm 7/15/2024 14:38", - "deleteFile:" : "pmm 7/15/2024 14:40", - "deprecationExceptionSet" : "7/15/2024 14:23:40", - "directoriesIn:" : "pmm 7/15/2024 14:38", - "doSilently:" : "7/15/2024 14:23:40", - "ensureExistenceOfFolder:" : "pmm 7/15/2024 14:38", - "fileExists:" : "pmm 7/15/2024 14:38", - "fileNameFor:" : "pmm 7/15/2024 14:39", - "fileStreamOn:do:binary:" : "pmm 7/15/2024 14:39", - "filesIn:" : "pmm 7/15/2024 14:39", - "integerAsByteArray:" : "pmm 7/15/2024 15:12", - "isDirectory:" : "pmm 7/15/2024 14:39", - "isProcessTerminated:" : "7/15/2024 14:23:40", - "label" : "pmm 7/15/2024 14:52", - "localNameOf:" : "7/15/2024 14:23:40", - "newRandom" : "7/15/2024 14:23:40", - "newTemporaryFile" : "pmm 7/15/2024 14:40", - "newTemporaryFileNamed:" : "pmm 7/15/2024 14:40", - "newline" : "7/15/2024 14:23:40", - "openDebuggerOn:" : "pmm 7/15/2024 14:57", - "pathSeparator" : "pmm 7/15/2024 15:00", - "readFileStreamOn:do:binary:" : "pmm 7/15/2024 15:08", - "readWriteByteStream" : "7/15/2024 14:23:40", - "readWriteCharacterStream" : "7/15/2024 14:23:40", - "removeFromShutDownList:" : "7/15/2024 14:23:40", - "removeFromStartUpList:" : "7/15/2024 14:23:40", - "removeSelector:from:" : "7/15/2024 14:23:40", - "secureHashFor:" : "7/15/2024 14:23:40", - "semaphoreClass" : "7/15/2024 14:23:40", - "sizeOfFile:" : "pmm 7/15/2024 14:40", - "stackDepth" : "7/15/2024 14:23:40", - "terminateProcess:" : "7/15/2024 14:23:40", - "thisContext" : "pmm 7/15/2024 14:42", - "useByteArrayLiterals" : "7/15/2024 14:23:40", - "weakDictionaryOfSize:" : "7/15/2024 14:23:40", - "write:toFile:inFolder:" : "pmm 7/15/2024 14:40", - "writeFileStreamOn:do:binary:" : "pmm 7/15/2024 15:08" } } diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/properties.json b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/properties.json deleted file mode 100644 index 5caa470c..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - "UrlTable", - "XmlTable" ], - "commentStamp" : "pmm 7/15/2024 15:10", - "instvars" : [ - ], - "name" : "GRSqueakPlatform", - "pools" : [ - ], - "super" : "GRPharoPlatform", - "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/README.md deleted file mode 100644 index c6047951..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WAUtf8Codec is a WACodec optimized for UTF-8. \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/basicForEncoding..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/basicForEncoding..st deleted file mode 100644 index d4c4a74b..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/basicForEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -private -basicForEncoding: aString - ^ self new \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/codecs.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/codecs.st deleted file mode 100644 index 632b84fb..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/codecs.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecs - ^ Array with: self new \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/supportsEncoding..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/supportsEncoding..st deleted file mode 100644 index dc3a8ade..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/class/supportsEncoding..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -supportsEncoding: aString - ^ (#('utf-8' 'UTF-8') includes: aString) or: [ UTF8TextConverter encodingNames includes: aString ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/decode..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/decode..st deleted file mode 100644 index b625727d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/decode..st +++ /dev/null @@ -1,36 +0,0 @@ -decoding -decode: aString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | outStream byte1 byte2 byte3 byte4 unicode stream | - stream := aString readStream. - outStream := WriteStream on: (String new: aString size). - [ stream atEnd not ] whileTrue: [ - byte1 := stream next asInteger. - unicode := byte1. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next asInteger. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63) ]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" - byte2 := stream next asInteger. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next asInteger. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte4 := stream next asInteger. - (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63) ]. - unicode ifNil: [ self invalidUtf8 ]. - unicode = 16rFEFF "ignore BOM" ifFalse: [ - outStream nextPut: (Character codePoint: unicode) ]. - unicode := nil ]. - ^ outStream contents \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/decoderFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/decoderFor..st deleted file mode 100644 index 55d20732..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/decoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -decoderFor: aStream - ^ GRSqueakUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/encoderFor..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/encoderFor..st deleted file mode 100644 index a8883243..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/encoderFor..st +++ /dev/null @@ -1,5 +0,0 @@ -conversion -encoderFor: aStream - ^ GRSqueakUtf8CodecStream - on: aStream - converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/invalidUtf8.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/invalidUtf8.st deleted file mode 100644 index e4481c22..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/name.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/name.st deleted file mode 100644 index 7886c830..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/name.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -name - ^ 'utf-8' \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/url.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/url.st deleted file mode 100644 index 4696d714..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/instance/url.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -url - ^ self \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/properties.json b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/properties.json deleted file mode 100644 index 8c5f1edc..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8Codec.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "pmm 2/20/2009 12:51", - "instvars" : [ - ], - "name" : "GRSqueakUtf8Codec", - "pools" : [ - ], - "super" : "GRCodec", - "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/README.md b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/README.md deleted file mode 100644 index 08323f18..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A WAUtf8CodecStream is a WACodecStream optimized for UTF-8 performance in the case where most of the characters are ASCII. diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/class/initialize.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/class/initialize.st deleted file mode 100644 index b8d03990..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/class/initialize.st +++ /dev/null @@ -1,17 +0,0 @@ -class initialization -initialize - (Smalltalk hasClassNamed: #UTF8TextConverter) "guard for Squeak 37" - ifFalse: [ ^ self ]. - - Latin1ToUtf8Map := ByteArray new: 256. - Latin1ToUtf8Encodings := Array new: 256. - 0 to: 255 do:[ :index | - | latin1 utf8 | - latin1 := String with: (Character codePoint: index). - utf8 := latin1 convertToWithConverter: UTF8TextConverter new. - latin1 = utf8 - ifTrue:[ - Latin1ToUtf8Map at: index + 1 put: 0 ] "no translation needed" - ifFalse:[ - Latin1ToUtf8Map at: index + 1 put: 1. "no translation needed" - Latin1ToUtf8Encodings at: index + 1 put: utf8 ] ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/crlf.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/crlf.st deleted file mode 100644 index ba607092..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/crlf.st +++ /dev/null @@ -1,4 +0,0 @@ -streaming -crlf - stream nextPut: Character cr. - stream nextPut: Character lf \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/encodeDefault..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/encodeDefault..st deleted file mode 100644 index cdd58a41..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/encodeDefault..st +++ /dev/null @@ -1,5 +0,0 @@ -private -encodeDefault: aString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - 1 to: aString size by: 1 do: [ :index | - converter nextPut: (aString at: index) toStream: stream ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/encodeFast..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/encodeFast..st deleted file mode 100644 index 9a8a0dc3..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/encodeFast..st +++ /dev/null @@ -1,14 +0,0 @@ -private -encodeFast: aByteString - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | lastIndex nextIndex | - lastIndex := 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ifTrue: [ ^ stream nextPutAll: aByteString ]. - [ nextIndex > lastIndex ifTrue: [ - stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. - stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). - lastIndex := nextIndex + 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ] whileFalse. - stream greaseNext: aByteString size - lastIndex + 1 putAll: aByteString startingAt: lastIndex \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index cd78fbe0..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -greaseNext: anInteger putAll: aCollection startingAt: startIndex - aCollection isByteString - ifTrue: [ self greaseNext: anInteger putAllFast: aCollection startingAt: startIndex ] - ifFalse: [ super greaseNext: anInteger putAll: aCollection startingAt: startIndex ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st deleted file mode 100644 index a4c114cb..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/greaseNext.putAllFast.startingAt..st +++ /dev/null @@ -1,17 +0,0 @@ -private -greaseNext: anInteger putAllFast: aByteString startingAt: startIndex - | lastIndex nextIndex | - lastIndex := startIndex. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - nextIndex = 0 ifTrue: [ ^ stream greaseNext: anInteger putAll: aByteString startingAt: startIndex ]. - [ - nextIndex >= (startIndex + anInteger) ifTrue: [ - ^ stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ]. - nextIndex > lastIndex ifTrue: [ - stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. - stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). - lastIndex := nextIndex + 1. - nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. - (nextIndex = 0 or: [ nextIndex >= (startIndex + anInteger) ]) ] whileFalse. - lastIndex >= (startIndex + anInteger) ifFalse: [ - stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/invalidUtf8.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/invalidUtf8.st deleted file mode 100644 index e4481c22..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/invalidUtf8.st +++ /dev/null @@ -1,3 +0,0 @@ -private -invalidUtf8 - ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/next..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/next..st deleted file mode 100644 index 116f524d..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/next..st +++ /dev/null @@ -1,46 +0,0 @@ -streaming -next: anInteger - "Convert the given string from UTF-8 using the fast path if converting to Latin-1" - | output byte1 byte2 byte3 byte4 unicode count alreadyWide | - output := ByteString new: anInteger. - count := 0. - alreadyWide := false. - [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ - byte1 := stream next. - unicode := byte1. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63). - alreadyWide ifFalse: [ - output := WideString withAll: output. - alreadyWide := true ] ]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" - byte2 := stream next. - (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte3 := stream next. - (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - byte4 := stream next. - (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63). - alreadyWide ifFalse: [ - output := WideString withAll: output. - alreadyWide := true ] ]. - unicode ifNil: [ self invalidUtf8 ]. - unicode = 16rFEFF "ignore BOM" ifFalse: [ - count := count + 1. - output at: count put: (Character codePoint: unicode) ]. - unicode := nil ]. - ^ count < anInteger - ifTrue: [ output first: count ] - ifFalse: [ output ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/next.st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/next.st deleted file mode 100644 index 4363f086..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/next.st +++ /dev/null @@ -1,3 +0,0 @@ -streaming -next - ^ (self next: 1) first \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/nextPut..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/nextPut..st deleted file mode 100644 index ad2d94ab..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/nextPut..st +++ /dev/null @@ -1,11 +0,0 @@ -streaming -nextPut: aCharacter - | codePoint shouldEncode | - codePoint := aCharacter codePoint. - codePoint > 255 - ifTrue: [ ^ self nextPutAll: (String with: aCharacter) ]. - shouldEncode := Latin1ToUtf8Map at: codePoint + 1. - shouldEncode = 1 - ifTrue: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] - ifFalse: [ stream nextPut: aCharacter ] - \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/nextPutAll..st deleted file mode 100644 index b9136110..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/instance/nextPutAll..st +++ /dev/null @@ -1,5 +0,0 @@ -streaming -nextPutAll: aString - aString isByteString - ifTrue: [ self encodeFast: aString ] - ifFalse: [ self encodeDefault: aString ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/properties.json b/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/properties.json deleted file mode 100644 index e9d9750c..00000000 --- a/repository/Grease-Squeak6-Core.package/GRSqueakUtf8CodecStream.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "category" : "Grease-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - "Latin1ToUtf8Encodings", - "Latin1ToUtf8Map" ], - "commentStamp" : "pmm 2/20/2009 12:27", - "instvars" : [ - ], - "name" : "GRSqueakUtf8CodecStream", - "pools" : [ - ], - "super" : "GRSqueakConverterCodecStream", - "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/Interval.extension/instance/any.st b/repository/Grease-Squeak6-Core.package/Interval.extension/instance/any.st deleted file mode 100644 index ffdfc68c..00000000 --- a/repository/Grease-Squeak6-Core.package/Interval.extension/instance/any.st +++ /dev/null @@ -1,6 +0,0 @@ -*grease-squeak6-core -any - "#first (used by SequenceableCollection>>anyOne) is an accessor of - Interval and does not error on an empty Interval." - - ^ self at: 1 \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/Interval.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Interval.extension/methodProperties.json deleted file mode 100644 index 4dcd386e..00000000 --- a/repository/Grease-Squeak6-Core.package/Interval.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "any" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/Interval.extension/properties.json b/repository/Grease-Squeak6-Core.package/Interval.extension/properties.json deleted file mode 100644 index d468cd35..00000000 --- a/repository/Grease-Squeak6-Core.package/Interval.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Interval" } diff --git a/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/instance/greaseByteAt..st b/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/instance/greaseByteAt..st deleted file mode 100644 index 9cec08f2..00000000 --- a/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/instance/greaseByteAt..st +++ /dev/null @@ -1,8 +0,0 @@ -*Grease-Squeak6-Core -greaseByteAt: index - "Primitive. Answer the value of an indexable field in the receiver. LargePositiveInteger uses bytes of base two number, and each is a 'digit' base 256. Fail if the argument (the index) is not an Integer or is out of bounds. Essential. See Object documentation whatIsAPrimitive." - - - self greaseBytesCount < index - ifTrue: [^0] - ifFalse: [^super at: index] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/instance/greaseBytesCount.st deleted file mode 100644 index 0e345af9..00000000 --- a/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/instance/greaseBytesCount.st +++ /dev/null @@ -1,8 +0,0 @@ -*Grease-Squeak6-Core -greaseBytesCount - "Primitive. Answer the number of indexable fields in the receiver. This - value is the same as the largest legal subscript. Essential. See Object - documentation whatIsAPrimitive." - - - self primitiveFailed \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/methodProperties.json deleted file mode 100644 index 8d698f47..00000000 --- a/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseByteAt:" : "7/15/2024 14:23:40", - "greaseBytesCount" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/properties.json b/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/properties.json deleted file mode 100644 index 2b034b1a..00000000 --- a/repository/Grease-Squeak6-Core.package/LargePositiveInteger.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "LargePositiveInteger" } diff --git a/repository/Grease-Squeak6-Core.package/MessageSend.extension/instance/argumentCount.st b/repository/Grease-Squeak6-Core.package/MessageSend.extension/instance/argumentCount.st deleted file mode 100644 index 3bcbd612..00000000 --- a/repository/Grease-Squeak6-Core.package/MessageSend.extension/instance/argumentCount.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak6-core -argumentCount - ^ selector numArgs - self arguments size \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st b/repository/Grease-Squeak6-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st deleted file mode 100644 index 8b5e0ed3..00000000 --- a/repository/Grease-Squeak6-Core.package/MessageSend.extension/instance/valueWithPossibleArguments..st +++ /dev/null @@ -1,7 +0,0 @@ -*grease-squeak6-core -valueWithPossibleArguments: anArray - "Evaluate the block represented by the receiver. - If the block requires one argument, use anArg, if it requires more than one, - fill up the rest with nils." - - ^ self valueWithEnoughArguments: anArray \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/MessageSend.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/MessageSend.extension/methodProperties.json deleted file mode 100644 index ab19e226..00000000 --- a/repository/Grease-Squeak6-Core.package/MessageSend.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "argumentCount" : "7/15/2024 14:23:40", - "valueWithPossibleArguments:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/MessageSend.extension/properties.json b/repository/Grease-Squeak6-Core.package/MessageSend.extension/properties.json deleted file mode 100644 index 66fcc3c1..00000000 --- a/repository/Grease-Squeak6-Core.package/MessageSend.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "MessageSend" } diff --git a/repository/Grease-Squeak6-Core.package/Number.extension/instance/milliseconds.st b/repository/Grease-Squeak6-Core.package/Number.extension/instance/milliseconds.st deleted file mode 100644 index 71f332b4..00000000 --- a/repository/Grease-Squeak6-Core.package/Number.extension/instance/milliseconds.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak6-core -milliseconds - ^ self milliSeconds \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/Number.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Number.extension/methodProperties.json deleted file mode 100644 index d74e8077..00000000 --- a/repository/Grease-Squeak6-Core.package/Number.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "milliseconds" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/Number.extension/properties.json b/repository/Grease-Squeak6-Core.package/Number.extension/properties.json deleted file mode 100644 index 1d2c94d4..00000000 --- a/repository/Grease-Squeak6-Core.package/Number.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Number" } diff --git a/repository/Grease-Squeak6-Core.package/Object.extension/instance/greaseString.st b/repository/Grease-Squeak6-Core.package/Object.extension/instance/greaseString.st deleted file mode 100644 index b6ad60ee..00000000 --- a/repository/Grease-Squeak6-Core.package/Object.extension/instance/greaseString.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak6-core -greaseString - ^ self asString \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/Object.extension/instance/sizeInMemory.st b/repository/Grease-Squeak6-Core.package/Object.extension/instance/sizeInMemory.st deleted file mode 100644 index a4993b8b..00000000 --- a/repository/Grease-Squeak6-Core.package/Object.extension/instance/sizeInMemory.st +++ /dev/null @@ -1,9 +0,0 @@ -*grease-squeak6-core -sizeInMemory - "Answer the number of bytes consumed by this instance including object header." - - ^ [ self class isVariable - ifTrue: [ self class byteSizeOfInstanceOfSize: self basicSize] - ifFalse: [ self class byteSizeOfInstance] - "Some classes count them no size (SmallInteger, Character..), so this fails" - ] on: Error do: [0]. \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/Object.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Object.extension/methodProperties.json deleted file mode 100644 index d62cb615..00000000 --- a/repository/Grease-Squeak6-Core.package/Object.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseString" : "7/15/2024 14:23:40", - "sizeInMemory" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/Object.extension/properties.json b/repository/Grease-Squeak6-Core.package/Object.extension/properties.json deleted file mode 100644 index 3d3b9ec4..00000000 --- a/repository/Grease-Squeak6-Core.package/Object.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Object" } diff --git a/repository/Grease-Squeak6-Core.package/PackageManifest.class/README.md b/repository/Grease-Squeak6-Core.package/PackageManifest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Squeak6-Core.package/PackageManifest.class/properties.json b/repository/Grease-Squeak6-Core.package/PackageManifest.class/properties.json deleted file mode 100644 index 9bda5689..00000000 --- a/repository/Grease-Squeak6-Core.package/PackageManifest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "PackageManifest", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } diff --git a/repository/Grease-Squeak6-Core.package/PositionableStream.extension/instance/greaseUpToAll..st b/repository/Grease-Squeak6-Core.package/PositionableStream.extension/instance/greaseUpToAll..st deleted file mode 100644 index 8a9bc547..00000000 --- a/repository/Grease-Squeak6-Core.package/PositionableStream.extension/instance/greaseUpToAll..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak6-core -greaseUpToAll: aCollection - "Needed for Seaside ports to other dialects where #upToAll: may have - different semantics" - ^ self upToAll: aCollection \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/PositionableStream.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/PositionableStream.extension/methodProperties.json deleted file mode 100644 index 92ad392b..00000000 --- a/repository/Grease-Squeak6-Core.package/PositionableStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseUpToAll:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/PositionableStream.extension/properties.json b/repository/Grease-Squeak6-Core.package/PositionableStream.extension/properties.json deleted file mode 100644 index 9e1697a6..00000000 --- a/repository/Grease-Squeak6-Core.package/PositionableStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "PositionableStream" } diff --git a/repository/Grease-Squeak6-Core.package/Random.extension/instance/randomFrom..st b/repository/Grease-Squeak6-Core.package/Random.extension/instance/randomFrom..st deleted file mode 100644 index 50da867d..00000000 --- a/repository/Grease-Squeak6-Core.package/Random.extension/instance/randomFrom..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-squeak6-core -randomFrom: aCollection - - ^ aCollection atRandom: self \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/Random.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Random.extension/methodProperties.json deleted file mode 100644 index 6972189a..00000000 --- a/repository/Grease-Squeak6-Core.package/Random.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "randomFrom:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/Random.extension/properties.json b/repository/Grease-Squeak6-Core.package/Random.extension/properties.json deleted file mode 100644 index 1c67d9ee..00000000 --- a/repository/Grease-Squeak6-Core.package/Random.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Random" } diff --git a/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/instance/encodeOn..st b/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/instance/encodeOn..st deleted file mode 100644 index add369dc..00000000 --- a/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/instance/encodeOn..st +++ /dev/null @@ -1,6 +0,0 @@ -*grease-squeak6-core -encodeOn: aDocument - "not the ideal package but we don't have a Seaside-Squeak-Core" - | converter | - converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). - converter print: self on: aDocument \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/instance/greaseString.st b/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/instance/greaseString.st deleted file mode 100644 index 06c66fa2..00000000 --- a/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/instance/greaseString.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak6-core -greaseString - | converter | - converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). - ^ converter print: self \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/methodProperties.json deleted file mode 100644 index f69f5b7f..00000000 --- a/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "encodeOn:" : "7/15/2024 14:23:40", - "greaseString" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/properties.json b/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/properties.json deleted file mode 100644 index 6e425dda..00000000 --- a/repository/Grease-Squeak6-Core.package/ScaledDecimal.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "ScaledDecimal" } diff --git a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st deleted file mode 100644 index be930027..00000000 --- a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/beginsWithSubCollection..st +++ /dev/null @@ -1,8 +0,0 @@ -*grease-squeak6-core -beginsWithSubCollection: aSequenceableCollection - self - greaseDeprecatedApi: 'SequenceableCollection>>#beginsWithSubCollection:' - details: 'Use SequenceableCollection>>#greaseBeginsWith:'. - "Some platforms implement #beginsWith: to answer true for an empty argument." - aSequenceableCollection isEmpty ifTrue: [ ^ false ]. - ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st deleted file mode 100644 index 7eb90e86..00000000 --- a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/endsWithSubCollection..st +++ /dev/null @@ -1,8 +0,0 @@ -*grease-squeak6-core -endsWithSubCollection: aSequenceableCollection - self - greaseDeprecatedApi: 'SequenceableCollection>>#endsWithSubCollection:' - details: 'Use SequenceableCollection>>#greaseEndsWith:'. - "Some platforms implement #endsWith: to answer true for an empty argument." - aSequenceableCollection isEmpty ifTrue: [ ^ false ]. - ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st deleted file mode 100644 index 428ad0ae..00000000 --- a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/greaseBeginsWith..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak6-core -greaseBeginsWith: aSequenceableCollection - - aSequenceableCollection isEmpty ifTrue: [ ^ true ]. - ^ self beginsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st deleted file mode 100644 index f1b16048..00000000 --- a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/instance/greaseEndsWith..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak6-core -greaseEndsWith: aSequenceableCollection - - aSequenceableCollection isEmpty ifTrue: [ ^ true ]. - ^ self endsWith: aSequenceableCollection \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/methodProperties.json deleted file mode 100644 index 91231d5b..00000000 --- a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/methodProperties.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "beginsWithSubCollection:" : "7/15/2024 14:23:40", - "endsWithSubCollection:" : "7/15/2024 14:23:40", - "greaseBeginsWith:" : "7/15/2024 14:23:40", - "greaseEndsWith:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/properties.json b/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/properties.json deleted file mode 100644 index 3b2523c3..00000000 --- a/repository/Grease-Squeak6-Core.package/SequenceableCollection.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SequenceableCollection" } diff --git a/repository/Grease-Squeak6-Core.package/SmallInteger.extension/instance/greaseByteAt..st b/repository/Grease-Squeak6-Core.package/SmallInteger.extension/instance/greaseByteAt..st deleted file mode 100644 index 50dd9644..00000000 --- a/repository/Grease-Squeak6-Core.package/SmallInteger.extension/instance/greaseByteAt..st +++ /dev/null @@ -1,14 +0,0 @@ -*Grease-Squeak6-Core -greaseByteAt: n - "Answer the value of an apparent byte-indexable field in the receiver, - analogous to the large integers, which are organized as bytes." - - n = 1 - ifTrue: [ - "Negate carefully in case the receiver is SmallInteger minVal" - ^ self < 0 - ifTrue: [ -256 - self bitAnd: 255 ] - ifFalse: [ self bitAnd: 255 ] ]. - ^ self < 0 - ifTrue: [ (-256 - self bitShift: -8) + 1 byteAt: n - 1 ] - ifFalse: [ (self bitShift: 8 - (n bitShift: 3)) bitAnd: 255 ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/SmallInteger.extension/instance/greaseBytesCount.st b/repository/Grease-Squeak6-Core.package/SmallInteger.extension/instance/greaseBytesCount.st deleted file mode 100644 index cb39e69c..00000000 --- a/repository/Grease-Squeak6-Core.package/SmallInteger.extension/instance/greaseBytesCount.st +++ /dev/null @@ -1,25 +0,0 @@ -*Grease-Squeak6-Core -greaseBytesCount - "Answer the number of indexable fields in the receiver. This value is the - same as the largest legal subscript. Included so that a SmallInteger can - behave like a LargePositiveInteger or LargeNegativeInteger." - - "32768 == (1 bitShift: 15)" - "32768 bytesCount >>> 2" - - "65536 == (1 bitShift: 16)" - "65536 bytesCount >>> 3" - - | value length | - length := 1. - value := self. - value >= 0 - ifTrue: - [[value > 255] whileTrue: - [value := value bitShift: -8. - length := length + 1]] - ifFalse: - [[value < -255] whileTrue: - [value := value bitShift: -8. - length := length + 1]]. - ^length \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/SmallInteger.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/SmallInteger.extension/methodProperties.json deleted file mode 100644 index 8d698f47..00000000 --- a/repository/Grease-Squeak6-Core.package/SmallInteger.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseByteAt:" : "7/15/2024 14:23:40", - "greaseBytesCount" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/SmallInteger.extension/properties.json b/repository/Grease-Squeak6-Core.package/SmallInteger.extension/properties.json deleted file mode 100644 index d2d9ab4a..00000000 --- a/repository/Grease-Squeak6-Core.package/SmallInteger.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SmallInteger" } diff --git a/repository/Grease-Squeak6-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak6-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 179c35ab..00000000 --- a/repository/Grease-Squeak6-Core.package/SocketStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,10 +0,0 @@ -*grease-squeak6-core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - "Put a String or a ByteArray onto the stream starting at the given position. - Currently a large collection will allocate a large buffer." - - anInteger > 0 ifFalse: [ ^ aCollection ]. - ^self - next: anInteger - putAll: (self isBinary ifTrue: [ aCollection asByteArray ] ifFalse: [ aCollection asString ]) - startingAt: startIndex. diff --git a/repository/Grease-Squeak6-Core.package/SocketStream.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/SocketStream.extension/methodProperties.json deleted file mode 100644 index b2ff4263..00000000 --- a/repository/Grease-Squeak6-Core.package/SocketStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseNext:putAll:startingAt:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/SocketStream.extension/properties.json b/repository/Grease-Squeak6-Core.package/SocketStream.extension/properties.json deleted file mode 100644 index 4800d84e..00000000 --- a/repository/Grease-Squeak6-Core.package/SocketStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "SocketStream" } diff --git a/repository/Grease-Squeak6-Core.package/String.extension/instance/padLeftTo.with..st b/repository/Grease-Squeak6-Core.package/String.extension/instance/padLeftTo.with..st deleted file mode 100644 index f0a1b317..00000000 --- a/repository/Grease-Squeak6-Core.package/String.extension/instance/padLeftTo.with..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak6-core -padLeftTo: length with: char - ^ self padded: #left to: length with: char \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/String.extension/instance/padRightTo.with..st b/repository/Grease-Squeak6-Core.package/String.extension/instance/padRightTo.with..st deleted file mode 100644 index 4574fd09..00000000 --- a/repository/Grease-Squeak6-Core.package/String.extension/instance/padRightTo.with..st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-squeak6-core -padRightTo: length with: char - ^ self padded: #right to: length with: char \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/String.extension/instance/substrings..st b/repository/Grease-Squeak6-Core.package/String.extension/instance/substrings..st deleted file mode 100644 index 90bc60ae..00000000 --- a/repository/Grease-Squeak6-Core.package/String.extension/instance/substrings..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak6-core -substrings: aString - - ^ self subStrings: aString - diff --git a/repository/Grease-Squeak6-Core.package/String.extension/instance/trimBoth..st b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimBoth..st deleted file mode 100644 index de95b969..00000000 --- a/repository/Grease-Squeak6-Core.package/String.extension/instance/trimBoth..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak6-core -trimBoth: aBlock - "Trim characters satisfying the condition given in aBlock from both sides of the receiving string." - - ^ self trimLeft: aBlock right: aBlock \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/String.extension/instance/trimBoth.st b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimBoth.st deleted file mode 100644 index 6bef8a94..00000000 --- a/repository/Grease-Squeak6-Core.package/String.extension/instance/trimBoth.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak6-core -trimBoth - "Trim separators from both sides of the receiving string." - - ^ self trimBoth: [ :char | char isSeparator ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft..st b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft..st deleted file mode 100644 index 245e4455..00000000 --- a/repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak6-core -trimLeft: aBlock - "Trim characters satisfying the condition given in aBlock from the left side of the receiving string." - - ^ self trimLeft: aBlock right: [ :char | false ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft.right..st b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft.right..st deleted file mode 100644 index d83b385a..00000000 --- a/repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft.right..st +++ /dev/null @@ -1,12 +0,0 @@ -*grease-squeak6-core -trimLeft: aLeftBlock right: aRightBlock - "Trim characters satisfying the condition given in aLeftBlock from the left side and aRightBlock from the right sides of the receiving string." - - | left right | - left := 1. - right := self size. - [ left <= right and: [ aLeftBlock value: (self at: left) ] ] - whileTrue: [ left := left + 1 ]. - [ left <= right and: [ aRightBlock value: (self at: right) ] ] - whileTrue: [ right := right - 1 ]. - ^ self copyFrom: left to: right \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft.st b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft.st deleted file mode 100644 index 9ef08a98..00000000 --- a/repository/Grease-Squeak6-Core.package/String.extension/instance/trimLeft.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak6-core -trimLeft - "Trim separators from the left side of the receiving string." - - ^ self trimLeft: [ :char | char isSeparator ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/String.extension/instance/trimRight..st b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimRight..st deleted file mode 100644 index 4f782511..00000000 --- a/repository/Grease-Squeak6-Core.package/String.extension/instance/trimRight..st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak6-core -trimRight: aBlock - "Trim characters satisfying the condition given in aBlock from the right side of the receiving string." - - ^ self trimLeft: [ :char | false ] right: aBlock \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/String.extension/instance/trimRight.st b/repository/Grease-Squeak6-Core.package/String.extension/instance/trimRight.st deleted file mode 100644 index 45eeb0d2..00000000 --- a/repository/Grease-Squeak6-Core.package/String.extension/instance/trimRight.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-squeak6-core -trimRight - "Trim separators from the right side of the receiving string." - - ^ self trimRight: [ :char | char isSeparator ] \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/String.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/String.extension/methodProperties.json deleted file mode 100644 index 33c18f4c..00000000 --- a/repository/Grease-Squeak6-Core.package/String.extension/methodProperties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "padLeftTo:with:" : "JohanBrichau 3/20/2016 16:34:12", - "padRightTo:with:" : "JohanBrichau 3/20/2016 16:34:12", - "substrings:" : "7/15/2024 14:23:40", - "trimBoth" : "7/15/2024 14:23:40", - "trimBoth:" : "7/15/2024 14:23:40", - "trimLeft" : "7/15/2024 14:23:40", - "trimLeft:" : "7/15/2024 14:23:40", - "trimLeft:right:" : "7/15/2024 14:23:40", - "trimRight" : "7/15/2024 14:23:40", - "trimRight:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/String.extension/properties.json b/repository/Grease-Squeak6-Core.package/String.extension/properties.json deleted file mode 100644 index c2138507..00000000 --- a/repository/Grease-Squeak6-Core.package/String.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "String" } diff --git a/repository/Grease-Squeak6-Core.package/Symbol.extension/instance/greaseAsMutator.st b/repository/Grease-Squeak6-Core.package/Symbol.extension/instance/greaseAsMutator.st deleted file mode 100644 index 075a4ccf..00000000 --- a/repository/Grease-Squeak6-Core.package/Symbol.extension/instance/greaseAsMutator.st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-squeak6-core -greaseAsMutator - - ^ self asSimpleSetter diff --git a/repository/Grease-Squeak6-Core.package/Symbol.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/Symbol.extension/methodProperties.json deleted file mode 100644 index c178c1b4..00000000 --- a/repository/Grease-Squeak6-Core.package/Symbol.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseAsMutator" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/Symbol.extension/properties.json b/repository/Grease-Squeak6-Core.package/Symbol.extension/properties.json deleted file mode 100644 index 565e67b0..00000000 --- a/repository/Grease-Squeak6-Core.package/Symbol.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "Symbol" } diff --git a/repository/Grease-Squeak6-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Squeak6-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st deleted file mode 100644 index 61b9e3e6..00000000 --- a/repository/Grease-Squeak6-Core.package/WriteStream.extension/instance/greaseNext.putAll.startingAt..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-squeak6-core -greaseNext: anInteger putAll: aCollection startingAt: startIndex - "Store the next anInteger elements from the given collection." - ^ self next: anInteger putAll: aCollection startingAt: startIndex \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/WriteStream.extension/methodProperties.json b/repository/Grease-Squeak6-Core.package/WriteStream.extension/methodProperties.json deleted file mode 100644 index b2ff4263..00000000 --- a/repository/Grease-Squeak6-Core.package/WriteStream.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "greaseNext:putAll:startingAt:" : "7/15/2024 14:23:40" } } diff --git a/repository/Grease-Squeak6-Core.package/WriteStream.extension/properties.json b/repository/Grease-Squeak6-Core.package/WriteStream.extension/properties.json deleted file mode 100644 index 239b3632..00000000 --- a/repository/Grease-Squeak6-Core.package/WriteStream.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "WriteStream" } diff --git a/repository/Grease-Squeak6-Core.package/monticello.meta/categories.st b/repository/Grease-Squeak6-Core.package/monticello.meta/categories.st deleted file mode 100644 index 89aae6c1..00000000 --- a/repository/Grease-Squeak6-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Squeak6-Core'! diff --git a/repository/Grease-Squeak6-Core.package/monticello.meta/initializers.st b/repository/Grease-Squeak6-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Squeak6-Core.package/monticello.meta/package b/repository/Grease-Squeak6-Core.package/monticello.meta/package deleted file mode 100644 index a8f1b73e..00000000 --- a/repository/Grease-Squeak6-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Squeak6-Core') \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/monticello.meta/version b/repository/Grease-Squeak6-Core.package/monticello.meta/version deleted file mode 100644 index 9b48d4ba..00000000 --- a/repository/Grease-Squeak6-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Squeak6-Core-pmm.3' message '- remove classCommentOf:, part of swagger - remove GRWorkingWriteStream, no need - add pad* methods from Squeak-Compatibility package' id '790decf6-ac96-4308-af19-043b7bd04807' date '29 June 2025' time '4:19:09.008435 pm' author 'pmm' ancestors ((name 'Grease-Squeak6-Core-pmm.2' message 'Improve Squeak 6 Support - move methods from GRPharoPlatform to GRSqeuakPlatform - keep GRPharoPlatform as empty - migrate from FileSystem to FileDirectory - implement missing methods - custom implementation of #openDebuggerOn:' id 'a32e7fbd-559a-4a6d-8442-57277c1ee178' date '16 July 2024' time '9:15:32.440636 pm' author 'pmm' ancestors ((name 'Grease-Squeak6-Core-cypress.1' message 'fabricated from a Cypress format repository' id '90a05819-76e9-4531-80d4-b8bde69d370f' date '15 July 2024' time '2:23:40.385068 pm' author '' ancestors () stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-Squeak6-Core.package/properties.json b/repository/Grease-Squeak6-Core.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-Squeak6-Core.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Grease-Squeak6-Core/Behavior.extension.st b/repository/Grease-Squeak6-Core/Behavior.extension.st new file mode 100644 index 00000000..619f6d9f --- /dev/null +++ b/repository/Grease-Squeak6-Core/Behavior.extension.st @@ -0,0 +1,8 @@ +Extension { #name : 'Behavior' } + +{ #category : '*grease-squeak6-core' } +Behavior >> fullName [ + "In VW, will include the namespace" + + ^ self name +] diff --git a/repository/Grease-Squeak6-Core/BlockClosure.extension.st b/repository/Grease-Squeak6-Core/BlockClosure.extension.st new file mode 100644 index 00000000..28b4d05b --- /dev/null +++ b/repository/Grease-Squeak6-Core/BlockClosure.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'BlockClosure' } + +{ #category : '*grease-squeak6-core' } +BlockClosure >> valueWithPossibleArguments: anArray [ + + ^ self valueWithEnoughArguments: anArray +] diff --git a/repository/Grease-Squeak6-Core/ByteArray.extension.st b/repository/Grease-Squeak6-Core/ByteArray.extension.st new file mode 100644 index 00000000..795f2b5d --- /dev/null +++ b/repository/Grease-Squeak6-Core/ByteArray.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'ByteArray' } + +{ #category : '*grease-squeak6-core' } +ByteArray >> greaseString [ + "ByteArrays should not automatically be converted to Strings. You should use a GRCodec for this." + ^ self printString +] diff --git a/repository/Grease-Squeak6-Core/Character.extension.st b/repository/Grease-Squeak6-Core/Character.extension.st new file mode 100644 index 00000000..a819a304 --- /dev/null +++ b/repository/Grease-Squeak6-Core/Character.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'Character' } + +{ #category : '*grease-squeak6-core' } +Character >> greaseInteger [ + "Answer an unicode code point of the receiver." + ^ self asUnicode +] diff --git a/repository/Grease-Squeak6-Core/Collection.extension.st b/repository/Grease-Squeak6-Core/Collection.extension.st new file mode 100644 index 00000000..827bdc0f --- /dev/null +++ b/repository/Grease-Squeak6-Core/Collection.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Collection' } + +{ #category : '*grease-squeak6-core' } +Collection >> any [ + ^ self anyOne +] diff --git a/repository/Grease-Squeak6-Core/Duration.extension.st b/repository/Grease-Squeak6-Core/Duration.extension.st new file mode 100644 index 00000000..3759a133 --- /dev/null +++ b/repository/Grease-Squeak6-Core/Duration.extension.st @@ -0,0 +1,16 @@ +Extension { #name : 'Duration' } + +{ #category : '*grease-squeak6-core' } +Duration >> asMilliseconds [ + ^ self asMilliSeconds +] + +{ #category : '*grease-squeak6-core' } +Duration >> milliseconds [ + ^ nanos quo: NanosInMillisecond +] + +{ #category : '*grease-squeak6-core' } +Duration class >> milliseconds: anInteger [ + ^ self milliSeconds: anInteger +] diff --git a/repository/Grease-Squeak6-Core/GRDelegatingStream.extension.st b/repository/Grease-Squeak6-Core/GRDelegatingStream.extension.st new file mode 100644 index 00000000..32a2c3e2 --- /dev/null +++ b/repository/Grease-Squeak6-Core/GRDelegatingStream.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'GRDelegatingStream' } + +{ #category : '*grease-squeak6-core' } +GRDelegatingStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + stream greaseNext: anInteger putAll: aCollection startingAt: startIndex +] diff --git a/repository/Grease-Squeak6-Core/GRDynamicVariable.class.st b/repository/Grease-Squeak6-Core/GRDynamicVariable.class.st new file mode 100644 index 00000000..accab8b2 --- /dev/null +++ b/repository/Grease-Squeak6-Core/GRDynamicVariable.class.st @@ -0,0 +1,23 @@ +Class { + #name : 'GRDynamicVariable', + #superclass : 'DynamicVariable', + #category : 'Grease-Squeak6-Core', + #package : 'Grease-Squeak6-Core' +} + +{ #category : 'accessing' } +GRDynamicVariable class >> default [ + ^ self defaultValue +] + +{ #category : 'accessing' } +GRDynamicVariable class >> defaultValue [ + ^ nil +] + +{ #category : 'accessing' } +GRDynamicVariable class >> use: anObject during: aBlock [ + ^ self + value: anObject + during: aBlock +] diff --git a/repository/Grease-Squeak6-Core/GRPackage.extension.st b/repository/Grease-Squeak6-Core/GRPackage.extension.st new file mode 100644 index 00000000..ffd36fc3 --- /dev/null +++ b/repository/Grease-Squeak6-Core/GRPackage.extension.st @@ -0,0 +1,10 @@ +Extension { #name : 'GRPackage' } + +{ #category : '*grease-squeak6-core' } +GRPackage class >> greaseSqueak6Core [ + ^ self new + name: 'Grease-Squeak6-Core'; + addDependency: 'Grease-Core'; + url: #greaseUrl; + yourself +] diff --git a/repository/Grease-Squeak6-Core/GRPharoPlatform.class.st b/repository/Grease-Squeak6-Core/GRPharoPlatform.class.st new file mode 100644 index 00000000..991087db --- /dev/null +++ b/repository/Grease-Squeak6-Core/GRPharoPlatform.class.st @@ -0,0 +1,9 @@ +" +I am a hack so that we can load Seaside Pharo packages into Squeak. +" +Class { + #name : 'GRPharoPlatform', + #superclass : 'GRPlatform', + #category : 'Grease-Squeak6-Core', + #package : 'Grease-Squeak6-Core' +} diff --git a/repository/Grease-Squeak6-Core/GRSmallDictionary.extension.st b/repository/Grease-Squeak6-Core/GRSmallDictionary.extension.st new file mode 100644 index 00000000..c834ecc7 --- /dev/null +++ b/repository/Grease-Squeak6-Core/GRSmallDictionary.extension.st @@ -0,0 +1,22 @@ +Extension { #name : 'GRSmallDictionary' } + +{ #category : '*grease-squeak6-core' } +GRSmallDictionary >> customizeExplorerContents [ + ^ true +] + +{ #category : '*grease-squeak6-core' } +GRSmallDictionary >> explorerContents [ + | contents | + contents := self keys sort: [ :a :b | a compareSafely: b ]. + ^contents replace: [ :key | + ObjectExplorerWrapper + with: (self at: key) + name: (key printString contractTo: 32) + model: self ]. +] + +{ #category : '*grease-squeak6-core' } +GRSmallDictionary >> hasContentsInExplorer [ + ^ true +] diff --git a/repository/Grease-Squeak6-Core/GRSqueakConverterCodecStream.class.st b/repository/Grease-Squeak6-Core/GRSqueakConverterCodecStream.class.st new file mode 100644 index 00000000..3c1484a0 --- /dev/null +++ b/repository/Grease-Squeak6-Core/GRSqueakConverterCodecStream.class.st @@ -0,0 +1,63 @@ +" +A GRPharoConverterCodecStream is a WACodec stream around a TextConverter. It is always in text mode. + +Instance Variables + converter: + +converter + - the TextConverter used to do the encoding conversion + +" +Class { + #name : 'GRSqueakConverterCodecStream', + #superclass : 'GRCodecStream', + #instVars : [ + 'converter' + ], + #category : 'Grease-Squeak6-Core', + #package : 'Grease-Squeak6-Core' +} + +{ #category : 'instance creation' } +GRSqueakConverterCodecStream class >> on: aStream converter: aConverter [ + ^ self basicNew initializeOn: aStream converter: aConverter +] + +{ #category : 'streaming' } +GRSqueakConverterCodecStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1) +] + +{ #category : 'initialization' } +GRSqueakConverterCodecStream >> initializeOn: aStream converter: aConverter [ + self initializeOn: aStream. + converter := aConverter +] + +{ #category : 'streaming' } +GRSqueakConverterCodecStream >> next [ + | character | + character := converter nextFromStream: stream. + ^ character isNil + ifFalse: [ character asCharacter ] +] + +{ #category : 'streaming' } +GRSqueakConverterCodecStream >> next: anInteger [ + | writeStream | + writeStream := WriteStream on: (String new: anInteger). + anInteger timesRepeat: [ + writeStream nextPut: (self next + ifNil: [ ^ writeStream contents ]) ]. + ^ writeStream contents +] + +{ #category : 'streaming' } +GRSqueakConverterCodecStream >> nextPut: aCharacter [ + converter nextPut: aCharacter asCharacter toStream: stream +] + +{ #category : 'streaming' } +GRSqueakConverterCodecStream >> nextPutAll: aString [ + aString asString do: [ :each | self nextPut: each ] +] diff --git a/repository/Grease-Squeak6-Core/GRSqueakGenericCodec.class.st b/repository/Grease-Squeak6-Core/GRSqueakGenericCodec.class.st new file mode 100644 index 00000000..91a8536f --- /dev/null +++ b/repository/Grease-Squeak6-Core/GRSqueakGenericCodec.class.st @@ -0,0 +1,81 @@ +Class { + #name : 'GRSqueakGenericCodec', + #superclass : 'GRCodec', + #instVars : [ + 'name', + 'urlCodec' + ], + #category : 'Grease-Squeak6-Core', + #package : 'Grease-Squeak6-Core' +} + +{ #category : 'private' } +GRSqueakGenericCodec class >> basicForEncoding: aString [ + (self supportsEncoding: aString) + ifFalse: [ self unsupportedEncoding: aString ]. + ^ self basicNew initializeWithName: aString +] + +{ #category : 'accessing' } +GRSqueakGenericCodec class >> codecs [ + ^ (TextConverter allEncodingNames + select: [ :each | + "exclude UFT-8 which is handled by WAUtf8Codec" + self supportsEncoding: each ]) + collect: [ :each | + self basicForEncoding: each greaseString ] +] + +{ #category : 'private' } +GRSqueakGenericCodec class >> supportedEncodingNames [ + "answers the names of the encodings supported by this class" + + ^ (TextConverter allSubclasses gather: [ :class | class encodingNames ]) asSet asOrderedCollection + removeAllFoundIn: GRSqueakLatin1Codec supportedEncodingNames; + removeAllFoundIn: UTF8TextConverter encodingNames; + yourself +] + +{ #category : 'testing' } +GRSqueakGenericCodec class >> supportsEncoding: aString [ + "Answer whether the the given encoding name is supported." + ^ self supportedEncodingNames includes: aString +] + +{ #category : 'private' } +GRSqueakGenericCodec >> converter [ + ^ TextConverter newForEncoding: self name +] + +{ #category : 'conversion' } +GRSqueakGenericCodec >> decoderFor: aStream [ + ^ self encoderFor: aStream +] + +{ #category : 'conversion' } +GRSqueakGenericCodec >> encoderFor: aStream [ + ^ GRSqueakConverterCodecStream + on: aStream + converter: self converter +] + +{ #category : 'initialization' } +GRSqueakGenericCodec >> initializeWithName: aString [ + self initialize. + name := aString. + urlCodec := (#('iso-8859-15' 'cp-1252') includes: aString) + ifFalse: [ GRCodec forEncoding: 'utf-8' ] + ifTrue: [ self ] +] + +{ #category : 'accessing' } +GRSqueakGenericCodec >> name [ + ^ name +] + +{ #category : 'accessing' } +GRSqueakGenericCodec >> url [ + "RFC 3986: When a new URI scheme defines a component that represents textual data consisting of characters from the Universal Character Set [UCS], the data should first be encoded as octets according to the UTF-8 character encoding." + + ^ urlCodec +] diff --git a/repository/Grease-Squeak6-Core/GRSqueakLatin1Codec.class.st b/repository/Grease-Squeak6-Core/GRSqueakLatin1Codec.class.st new file mode 100644 index 00000000..68c17177 --- /dev/null +++ b/repository/Grease-Squeak6-Core/GRSqueakLatin1Codec.class.st @@ -0,0 +1,65 @@ +" +A GRPharoLatin1Codec is a WACodec optimized for ISO-8859-1 (direct byte to character mapping). +" +Class { + #name : 'GRSqueakLatin1Codec', + #superclass : 'GRNullCodec', + #instVars : [ + 'name' + ], + #category : 'Grease-Squeak6-Core', + #package : 'Grease-Squeak6-Core' +} + +{ #category : 'private' } +GRSqueakLatin1Codec class >> basicForEncoding: aString [ + (self supportsEncoding: aString) + ifFalse: [ self unsupportedEncoding: aString ]. + ^ self basicNew initializeWithName: aString +] + +{ #category : 'accessing' } +GRSqueakLatin1Codec class >> codecs [ + ^ Array with: (self basicForEncoding: 'iso-8859-1') +] + +{ #category : 'private' } +GRSqueakLatin1Codec class >> supportedEncodingNames [ + ^ #('iso-8859-1' 'ISO-8859-1' 'latin-1' 'latin1') +] + +{ #category : 'testing' } +GRSqueakLatin1Codec class >> supportsEncoding: aString [ + "Answer whether the the given encoding name is supported." + ^ self supportedEncodingNames includes: aString +] + +{ #category : 'conversion' } +GRSqueakLatin1Codec >> decode: aStringOrByteArray [ + "Overridden for efficiency." + + ^ aStringOrByteArray asString +] + +{ #category : 'conversion' } +GRSqueakLatin1Codec >> decoderFor: aReadStream [ + "wrap to avoid String vs ByteArray issues" + ^ GRSqueakLatin1CodecStream on: aReadStream +] + +{ #category : 'conversion' } +GRSqueakLatin1Codec >> encoderFor: aWriteStream [ + "wrap to avoid String vs ByteArray issues" + ^ GRSqueakLatin1CodecStream on: aWriteStream +] + +{ #category : 'initialization' } +GRSqueakLatin1Codec >> initializeWithName: aString [ + self initialize. + name := aString +] + +{ #category : 'accessing' } +GRSqueakLatin1Codec >> name [ + ^ name +] diff --git a/repository/Grease-Squeak6-Core/GRSqueakLatin1CodecStream.class.st b/repository/Grease-Squeak6-Core/GRSqueakLatin1CodecStream.class.st new file mode 100644 index 00000000..72c43192 --- /dev/null +++ b/repository/Grease-Squeak6-Core/GRSqueakLatin1CodecStream.class.st @@ -0,0 +1,19 @@ +" +A GRPharoLatin1CodecStream is a WACodecStream optimized for ISO-8859-1 (direct byte to character mapping). +" +Class { + #name : 'GRSqueakLatin1CodecStream', + #superclass : 'GRNullCodecStream', + #category : 'Grease-Squeak6-Core', + #package : 'Grease-Squeak6-Core' +} + +{ #category : 'streaming' } +GRSqueakLatin1CodecStream >> next [ + ^ Character codePoint: stream next +] + +{ #category : 'streaming' } +GRSqueakLatin1CodecStream >> next: anInteger [ + ^ (stream next: anInteger) asString +] diff --git a/repository/Grease-Squeak6-Core/GRSqueakPlatform.class.st b/repository/Grease-Squeak6-Core/GRSqueakPlatform.class.st new file mode 100644 index 00000000..efbc436e --- /dev/null +++ b/repository/Grease-Squeak6-Core/GRSqueakPlatform.class.st @@ -0,0 +1,448 @@ +" +A GRSqueakPlatform is the Squeak implementation of GRPlatform, the Grease class that provides functionality that can not be implemented in a platform independent way. + +" +Class { + #name : 'GRSqueakPlatform', + #superclass : 'GRPharoPlatform', + #classVars : [ + 'UrlTable', + 'XmlTable' + ], + #category : 'Grease-Squeak6-Core', + #package : 'Grease-Squeak6-Core' +} + +{ #category : 'class initialization' } +GRSqueakPlatform class >> initialize [ + self initializeXmlTable. + self initializeUrlTable. + self select +] + +{ #category : 'class initialization' } +GRSqueakPlatform class >> initializeUrlTable [ + UrlTable := ByteArray new: 256. + 1 to: 256 do: [ :index | + ('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~' includes: (Character codePoint: index - 1)) + ifTrue: [ UrlTable at: index put: 0 ] + ifFalse: [ UrlTable at: index put: 1 ] ] +] + +{ #category : 'class initialization' } +GRSqueakPlatform class >> initializeXmlTable [ + XmlTable := ByteArray new: 256. + 1 to: 256 do: [ :index | + ('"<&>' includes: (Character codePoint: index - 1)) + ifTrue: [ XmlTable at: index put: 1 ] + ifFalse: [ XmlTable at: index put: 0 ] ] +] + +{ #category : 'class initialization' } +GRSqueakPlatform class >> unload [ + self unselect +] + +{ #category : 'startup' } +GRSqueakPlatform >> addToShutDownList: anObject [ + "Add anObject to the shutdown-list of the system. On shutdown the message #shutDown will be sent to anObject." + + Smalltalk addToShutDownList: anObject +] + +{ #category : 'startup' } +GRSqueakPlatform >> addToStartUpList: anObject [ + "Add anObject to the startup-list of the system. On startup the message #startUp will be sent to anObject." + + Smalltalk addToStartUpList: anObject +] + +{ #category : 'file library' } +GRSqueakPlatform >> asMethodReturningByteArray: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a ByteArray" + ^ self useByteArrayLiterals + ifTrue: [ self asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol ] + ifFalse: [ self asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol ] +] + +{ #category : 'private-file library' } +GRSqueakPlatform >> asMethodReturningByteArrayLiteral: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array using VW/NewCompiler byte array literal syntax." + ^ String streamContents: [ :stream | + stream nextPutAll: aSymbol; nextPut: Character cr. + stream tab; nextPutAll: '^ #['. + aByteArrayOrString asByteArray + do: [ :each | each printOn: stream ] + separatedBy: [ stream space ]. + stream nextPutAll: ']' ] +] + +{ #category : 'private-file library' } +GRSqueakPlatform >> asMethodReturningByteArrayWithCache: aByteArrayOrString named: aSymbol [ + "Generates the source of a method named aSymbol that returns aByteArrayOrString as a byte array and caching this array in a literal array of size 1." + ^ String streamContents: [ :stream | + stream nextPutAll: aSymbol; nextPut: Character cr. + stream tab; nextPutAll: '^ #('. + aByteArrayOrString asByteArray + do: [ :each | each printOn: stream ] + separatedBy: [ stream space ]. + stream nextPutAll: ') asByteArray' ] +] + +{ #category : 'encoding' } +GRSqueakPlatform >> base64Decode: aString [ + ^ (Base64MimeConverter mimeDecodeToChars: aString readStream) contents +] + +{ #category : 'encoding' } +GRSqueakPlatform >> base64Encode: aByteArray [ + ^ aByteArray base64Encoded +] + +{ #category : 'bindings' } +GRSqueakPlatform >> bindingOf: aClass [ + "theoretically consider the environment of a class" + ^ aClass binding +] + +{ #category : 'file library' } +GRSqueakPlatform >> compile: aString into: aClass classified: aSymbol [ + "The trick here is to be as silently a possible so that the package is not marked dirty when running WAFileLibrary test. + This also makes running tests much faster." + | methodNode compiledMethod selector methodAndNode | + methodNode := aClass compilerClass new + compile: aString + in: aClass + notifying: nil + ifFail: [ GRError signal: 'syntax error' ]. + selector := methodNode selector. + methodAndNode := CompiledMethodWithNode + generateMethodFromNode: methodNode + trailer: aClass defaultMethodTrailer. + compiledMethod := methodAndNode method. + compiledMethod + putSource: aString + fromParseNode: methodAndNode node + inFile: 2 + withPreamble: [ :file | + aClass + printCategoryChunk: aSymbol asString + on: file priorMethod: (aClass compiledMethodAt: selector ifAbsent: [ nil ]). + file cr ]. + aClass + addSelectorSilently: selector + withMethod: compiledMethod. + SystemChangeNotifier uniqueInstance doSilently: [ + aClass organization + classify: selector + under: aSymbol ] +] + +{ #category : 'file library' } +GRSqueakPlatform >> contentsOfFile: aString binary: aBoolean [ + | stream | + stream := aBoolean + ifTrue: [ (FileDirectory default oldFileNamed: aString) + binary; + yourself ] + ifFalse: [ (MultiByteFileStream oldFileNamed: aString) + ascii; + wantsLineEndConversion: true; + yourself ]. + ^ [ stream contents ] ensure: [ stream close ] +] + +{ #category : 'file library' } +GRSqueakPlatform >> defaultDirectoryPathString [ + ^ FileDirectory default fullName +] + +{ #category : 'files' } +GRSqueakPlatform >> deleteFile: aPathString [ + FileDirectory deleteFilePath: aPathString +] + +{ #category : 'exceptions' } +GRSqueakPlatform >> deprecationExceptionSet [ + ^ Deprecation +] + +{ #category : 'file library' } +GRSqueakPlatform >> directoriesIn: aPathString [ + "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString + must not include file names that start with ." + | directory | + directory := FileDirectory default directoryNamed: aPathString. + ^ (directory directoryNames + reject: [ :each | each first = $. ]) + collect: [ :each | directory fullNameFor: each ] +] + +{ #category : 'private' } +GRSqueakPlatform >> doSilently: aBlock [ + ^ SystemChangeNotifier uniqueInstance doSilently: aBlock +] + +{ #category : 'file library' } +GRSqueakPlatform >> ensureExistenceOfFolder: aString [ + "creates a folder named aString in the image directory" + FileDirectory default assureExistenceOfPath: aString +] + +{ #category : 'file library' } +GRSqueakPlatform >> fileExists: aString [ + ^ FileDirectory default fileExists: aString +] + +{ #category : 'file library' } +GRSqueakPlatform >> fileNameFor: aPathString [ + | path | + path := FileDirectory default fullPathFor: aPathString. + ^ (path size > 1 and: [ path endsWith: FileDirectory slash ]) + ifTrue: [ path allButLast: FileDirectory slash size ] + ifFalse: [ path ] +] + +{ #category : 'file library' } +GRSqueakPlatform >> fileStreamOn: aString do: aBlock binary: aBoolean [ + ^ aBoolean + ifTrue: [ + FileStream fileNamed: aString do: [ :stream | + stream binary. + aBlock value: stream ] ] + ifFalse: [ + MultiByteFileStream fileNamed: aString do: [ :stream | + stream + ascii; + wantsLineEndConversion: true. + aBlock value: stream ] ] +] + +{ #category : 'file library' } +GRSqueakPlatform >> filesIn: aPathString [ + "Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString + must not include file names that start with ." + | directory | + directory := FileDirectory default directoryNamed: aPathString. + ^ (directory fileNames + reject: [ :each | each first = $. ]) + collect: [ :each | directory fullNameFor: each ] +] + +{ #category : 'encoding' } +GRSqueakPlatform >> integerAsByteArray: anInteger [ + | size array | + size := anInteger greaseBytesCount. + array := ByteArray new: size. + size to: 1 by: -1 do: [ :digitIndex | + array + at: size - digitIndex + 1 + put: (anInteger greaseByteAt: digitIndex) ]. + ^ array +] + +{ #category : 'file library' } +GRSqueakPlatform >> isDirectory: aPathString [ + ^ (FileDirectory forFileName: aPathString) directoryEntry isDirectory +] + +{ #category : 'processes' } +GRSqueakPlatform >> isProcessTerminated: aProcess [ + "Return a boolean indicating whether aProcess has been terminated." + ^ aProcess isTerminated +] + +{ #category : 'version info' } +GRSqueakPlatform >> label [ + ^ 'Squeak' +] + +{ #category : 'file library' } +GRSqueakPlatform >> localNameOf: aFilename [ + ^ (FileDirectory on: aFilename) localName +] + +{ #category : 'factory' } +GRSqueakPlatform >> newRandom [ + "Answers the random number generator to be used to create session and continuation keys. Make sure it is seeded. They only methods that will be sent to it are: + #nextInt: - should answer a random integer in the interval [1, anInteger] + #randomFrom: - should answer a random element from the given collection + + Make sure that both methods are safe under heavy concurrent load. + + Used by Gemstone/S traditional Randoms which cannot be persisted.." + ^ ThreadSafeRandom value +] + +{ #category : 'files' } +GRSqueakPlatform >> newTemporaryFile [ + + ^ self newTemporaryFileNamed: UUID new greaseString +] + +{ #category : 'files' } +GRSqueakPlatform >> newTemporaryFileNamed: aName [ + + | file | + file := FileDirectory default / aName. + file exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ]. + ^ file pathName +] + +{ #category : 'file library' } +GRSqueakPlatform >> newline [ + ^ String with: Character cr +] + +{ #category : 'exceptions' } +GRSqueakPlatform >> openDebuggerOn: anError [ + "Squeak variant based on the Pharo platform code, intended to avoid the deprecated #debug:title:full: message" + + ToolSet handleError: anError +] + +{ #category : 'files' } +GRSqueakPlatform >> pathSeparator [ + ^ String with: FileDirectory pathNameDelimiter +] + +{ #category : 'files' } +GRSqueakPlatform >> readFileStreamOn: aString do: aBlock binary: aBoolean [ + ^ aBoolean + ifTrue: [ + FileStream fileNamed: aString do: [ :stream | + stream binary. + aBlock value: stream ] ] + ifFalse: [ + MultiByteFileStream fileNamed: aString do: [ :stream | + stream + ascii; + wantsLineEndConversion: true. + aBlock value: stream ] ] +] + +{ #category : 'factory' } +GRSqueakPlatform >> readWriteByteStream [ + "ByteArray based read write stream" + + ^ RWBinaryOrTextStream on: (ByteArray new: 4096) +] + +{ #category : 'factory' } +GRSqueakPlatform >> readWriteCharacterStream [ + "String based read write stream" + + ^ ReadWriteStream on: (String new: 4096) +] + +{ #category : 'startup' } +GRSqueakPlatform >> removeFromShutDownList: anObject [ + "Remove anObject from the shutdown list in the system." + + Smalltalk removeFromShutDownList: anObject +] + +{ #category : 'startup' } +GRSqueakPlatform >> removeFromStartUpList: anObject [ + "Remove anObject from the startup list in the system." + + Smalltalk removeFromStartUpList: anObject +] + +{ #category : 'file library' } +GRSqueakPlatform >> removeSelector: aSymbol from: aClass [ + aClass removeSelectorSilently: aSymbol +] + +{ #category : 'cryptography' } +GRSqueakPlatform >> secureHashFor: aString [ + ^ SecureHashAlgorithm new hashMessage: aString +] + +{ #category : 'factory' } +GRSqueakPlatform >> semaphoreClass [ + "used by Gemstone/S traditional Semaphores which cannot be persisted" + ^ Semaphore +] + +{ #category : 'files' } +GRSqueakPlatform >> sizeOfFile: aString [ + + ^ aString asDirectoryEntry fileSize +] + +{ #category : 'meta-object-protocol' } +GRSqueakPlatform >> sourceCodeStringOf: aCompiledMethod [ + "Return a String with the source code for a compiled method." + + ^ self convertToSmalltalkNewlines: aCompiledMethod getSourceFromFile +] + +{ #category : 'exceptions' } +GRSqueakPlatform >> stackDepth [ + + | depth current | + depth := 0. + current := thisContext. + [ current isNil ] whileFalse: [ + current := current sender. + depth := depth + 1 ]. + ^ depth - 1 +] + +{ #category : 'processes' } +GRSqueakPlatform >> terminateProcess: aProcess [ + "Permanently terminate the process, unwinding first to execute #ensure: and #ifCurtailed: blocks." + aProcess terminate +] + +{ #category : 'processes' } +GRSqueakPlatform >> thisContext [ + + ^ thisContext sender +] + +{ #category : 'private-file library' } +GRSqueakPlatform >> useByteArrayLiterals [ + "whether ByteArray literals can/should be used" + | hasSettings | + hasSettings := Smalltalk at: #PragmaSetting ifAbsent: [ nil ]. + ^ hasSettings isNil + ifTrue: [ + (Smalltalk at: #Preferences) + valueOfFlag: #compileUseNewCompiler + ifAbsent: [ false ] ] + ifFalse: [ false ] +] + +{ #category : 'factory' } +GRSqueakPlatform >> weakDictionaryOfSize: aNumber [ + ^ IdentityDictionary new: aNumber +] + +{ #category : 'file library' } +GRSqueakPlatform >> write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString [ + "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString" + | folder stream fullFilePath | + folder := FileDirectory default directoryNamed: aFolderString. + fullFilePath := folder fullNameFor: aFileNameString. + stream := aStringOrByteArray isString + ifTrue: [ + (MultiByteFileStream forceNewFileNamed: fullFilePath) + ascii; + wantsLineEndConversion: true; + yourself ] + ifFalse: [ (FileStream forceNewFileNamed: fullFilePath) binary ]. + [ stream nextPutAll: aStringOrByteArray ] + ensure: [ stream close ] +] + +{ #category : 'files' } +GRSqueakPlatform >> writeFileStreamOn: aString do: aBlock binary: aBoolean [ + | stream | + stream := aBoolean + ifTrue: [ (FileStream fileNamed: aString) binary ] + ifFalse: [ (MultiByteFileStream fileNamed: aString) ascii; wantsLineEndConversion: true; yourself ]. + [ aBlock value: stream ] + ensure: [ stream close ] +] diff --git a/repository/Grease-Squeak6-Core/GRSqueakUtf8Codec.class.st b/repository/Grease-Squeak6-Core/GRSqueakUtf8Codec.class.st new file mode 100644 index 00000000..af7f83e9 --- /dev/null +++ b/repository/Grease-Squeak6-Core/GRSqueakUtf8Codec.class.st @@ -0,0 +1,91 @@ +" +A WAUtf8Codec is a WACodec optimized for UTF-8. +" +Class { + #name : 'GRSqueakUtf8Codec', + #superclass : 'GRCodec', + #category : 'Grease-Squeak6-Core', + #package : 'Grease-Squeak6-Core' +} + +{ #category : 'private' } +GRSqueakUtf8Codec class >> basicForEncoding: aString [ + ^ self new +] + +{ #category : 'accessing' } +GRSqueakUtf8Codec class >> codecs [ + ^ Array with: self new +] + +{ #category : 'testing' } +GRSqueakUtf8Codec class >> supportsEncoding: aString [ + ^ (#('utf-8' 'UTF-8') includes: aString) or: [ UTF8TextConverter encodingNames includes: aString ] +] + +{ #category : 'decoding' } +GRSqueakUtf8Codec >> decode: aString [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | outStream byte1 byte2 byte3 byte4 unicode stream | + stream := aString readStream. + outStream := WriteStream on: (String new: aString size). + [ stream atEnd not ] whileTrue: [ + byte1 := stream next asInteger. + unicode := byte1. + (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. + (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next asInteger. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) + + (byte3 bitAnd: 63) ]. + (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" + byte2 := stream next asInteger. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next asInteger. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte4 := stream next asInteger. + (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + + ((byte2 bitAnd: 63) bitShift: 12) + + ((byte3 bitAnd: 63) bitShift: 6) + + (byte4 bitAnd: 63) ]. + unicode ifNil: [ self invalidUtf8 ]. + unicode = 16rFEFF "ignore BOM" ifFalse: [ + outStream nextPut: (Character codePoint: unicode) ]. + unicode := nil ]. + ^ outStream contents +] + +{ #category : 'conversion' } +GRSqueakUtf8Codec >> decoderFor: aStream [ + ^ GRSqueakUtf8CodecStream + on: aStream + converter: UTF8TextConverter new +] + +{ #category : 'conversion' } +GRSqueakUtf8Codec >> encoderFor: aStream [ + ^ GRSqueakUtf8CodecStream + on: aStream + converter: UTF8TextConverter new +] + +{ #category : 'private' } +GRSqueakUtf8Codec >> invalidUtf8 [ + ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' +] + +{ #category : 'accessing' } +GRSqueakUtf8Codec >> name [ + ^ 'utf-8' +] + +{ #category : 'accessing' } +GRSqueakUtf8Codec >> url [ + ^ self +] diff --git a/repository/Grease-Squeak6-Core/GRSqueakUtf8CodecStream.class.st b/repository/Grease-Squeak6-Core/GRSqueakUtf8CodecStream.class.st new file mode 100644 index 00000000..2f6ef6ce --- /dev/null +++ b/repository/Grease-Squeak6-Core/GRSqueakUtf8CodecStream.class.st @@ -0,0 +1,166 @@ +" +A WAUtf8CodecStream is a WACodecStream optimized for UTF-8 performance in the case where most of the characters are ASCII. + +" +Class { + #name : 'GRSqueakUtf8CodecStream', + #superclass : 'GRSqueakConverterCodecStream', + #classVars : [ + 'Latin1ToUtf8Encodings', + 'Latin1ToUtf8Map' + ], + #category : 'Grease-Squeak6-Core', + #package : 'Grease-Squeak6-Core' +} + +{ #category : 'class initialization' } +GRSqueakUtf8CodecStream class >> initialize [ + (Smalltalk hasClassNamed: #UTF8TextConverter) "guard for Squeak 37" + ifFalse: [ ^ self ]. + + Latin1ToUtf8Map := ByteArray new: 256. + Latin1ToUtf8Encodings := Array new: 256. + 0 to: 255 do:[ :index | + | latin1 utf8 | + latin1 := String with: (Character codePoint: index). + utf8 := latin1 convertToWithConverter: UTF8TextConverter new. + latin1 = utf8 + ifTrue:[ + Latin1ToUtf8Map at: index + 1 put: 0 ] "no translation needed" + ifFalse:[ + Latin1ToUtf8Map at: index + 1 put: 1. "no translation needed" + Latin1ToUtf8Encodings at: index + 1 put: utf8 ] ] +] + +{ #category : 'streaming' } +GRSqueakUtf8CodecStream >> crlf [ + stream nextPut: Character cr. + stream nextPut: Character lf +] + +{ #category : 'private' } +GRSqueakUtf8CodecStream >> encodeDefault: aString [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + 1 to: aString size by: 1 do: [ :index | + converter nextPut: (aString at: index) toStream: stream ] +] + +{ #category : 'private' } +GRSqueakUtf8CodecStream >> encodeFast: aByteString [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | lastIndex nextIndex | + lastIndex := 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ifTrue: [ ^ stream nextPutAll: aByteString ]. + [ nextIndex > lastIndex ifTrue: [ + stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. + stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). + lastIndex := nextIndex + 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ] whileFalse. + stream greaseNext: aByteString size - lastIndex + 1 putAll: aByteString startingAt: lastIndex +] + +{ #category : 'streaming' } +GRSqueakUtf8CodecStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + aCollection isByteString + ifTrue: [ self greaseNext: anInteger putAllFast: aCollection startingAt: startIndex ] + ifFalse: [ super greaseNext: anInteger putAll: aCollection startingAt: startIndex ] +] + +{ #category : 'private' } +GRSqueakUtf8CodecStream >> greaseNext: anInteger putAllFast: aByteString startingAt: startIndex [ + | lastIndex nextIndex | + lastIndex := startIndex. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + nextIndex = 0 ifTrue: [ ^ stream greaseNext: anInteger putAll: aByteString startingAt: startIndex ]. + [ + nextIndex >= (startIndex + anInteger) ifTrue: [ + ^ stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ]. + nextIndex > lastIndex ifTrue: [ + stream greaseNext: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex ]. + stream nextPutAll: (Latin1ToUtf8Encodings at: (aByteString byteAt: nextIndex) + 1). + lastIndex := nextIndex + 1. + nextIndex := ByteString findFirstInString: aByteString inSet: Latin1ToUtf8Map startingAt: lastIndex. + (nextIndex = 0 or: [ nextIndex >= (startIndex + anInteger) ]) ] whileFalse. + lastIndex >= (startIndex + anInteger) ifFalse: [ + stream greaseNext: startIndex + anInteger - lastIndex putAll: aByteString startingAt: lastIndex ] +] + +{ #category : 'private' } +GRSqueakUtf8CodecStream >> invalidUtf8 [ + ^ GRInvalidUtf8Error signal: 'Invalid UTF-8 input' +] + +{ #category : 'streaming' } +GRSqueakUtf8CodecStream >> next [ + ^ (self next: 1) first +] + +{ #category : 'streaming' } +GRSqueakUtf8CodecStream >> next: anInteger [ + "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | output byte1 byte2 byte3 byte4 unicode count alreadyWide | + output := ByteString new: anInteger. + count := 0. + alreadyWide := false. + [ count < anInteger and: [ stream atEnd not ] ] whileTrue: [ + byte1 := stream next. + unicode := byte1. + (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63) ]. + (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) + + (byte3 bitAnd: 63). + alreadyWide ifFalse: [ + output := WideString withAll: output. + alreadyWide := true ] ]. + (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" + byte2 := stream next. + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte3 := stream next. + (byte3 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + byte4 := stream next. + (byte4 bitAnd: 16rC0) = 16r80 ifFalse: [ self invalidUtf8 ]. + unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + + ((byte2 bitAnd: 63) bitShift: 12) + + ((byte3 bitAnd: 63) bitShift: 6) + + (byte4 bitAnd: 63). + alreadyWide ifFalse: [ + output := WideString withAll: output. + alreadyWide := true ] ]. + unicode ifNil: [ self invalidUtf8 ]. + unicode = 16rFEFF "ignore BOM" ifFalse: [ + count := count + 1. + output at: count put: (Character codePoint: unicode) ]. + unicode := nil ]. + ^ count < anInteger + ifTrue: [ output first: count ] + ifFalse: [ output ] +] + +{ #category : 'streaming' } +GRSqueakUtf8CodecStream >> nextPut: aCharacter [ + | codePoint shouldEncode | + codePoint := aCharacter codePoint. + codePoint > 255 + ifTrue: [ ^ self nextPutAll: (String with: aCharacter) ]. + shouldEncode := Latin1ToUtf8Map at: codePoint + 1. + shouldEncode = 1 + ifTrue: [ stream nextPutAll: (Latin1ToUtf8Encodings at: codePoint + 1) ] + ifFalse: [ stream nextPut: aCharacter ] + +] + +{ #category : 'streaming' } +GRSqueakUtf8CodecStream >> nextPutAll: aString [ + aString isByteString + ifTrue: [ self encodeFast: aString ] + ifFalse: [ self encodeDefault: aString ] +] diff --git a/repository/Grease-Squeak6-Core/Interval.extension.st b/repository/Grease-Squeak6-Core/Interval.extension.st new file mode 100644 index 00000000..10e8f136 --- /dev/null +++ b/repository/Grease-Squeak6-Core/Interval.extension.st @@ -0,0 +1,9 @@ +Extension { #name : 'Interval' } + +{ #category : '*grease-squeak6-core' } +Interval >> any [ + "#first (used by SequenceableCollection>>anyOne) is an accessor of + Interval and does not error on an empty Interval." + + ^ self at: 1 +] diff --git a/repository/Grease-Squeak6-Core/LargePositiveInteger.extension.st b/repository/Grease-Squeak6-Core/LargePositiveInteger.extension.st new file mode 100644 index 00000000..e108a549 --- /dev/null +++ b/repository/Grease-Squeak6-Core/LargePositiveInteger.extension.st @@ -0,0 +1,21 @@ +Extension { #name : 'LargePositiveInteger' } + +{ #category : '*Grease-Squeak6-Core' } +LargePositiveInteger >> greaseByteAt: index [ + "Primitive. Answer the value of an indexable field in the receiver. LargePositiveInteger uses bytes of base two number, and each is a 'digit' base 256. Fail if the argument (the index) is not an Integer or is out of bounds. Essential. See Object documentation whatIsAPrimitive." + + + self greaseBytesCount < index + ifTrue: [^0] + ifFalse: [^super at: index] +] + +{ #category : '*Grease-Squeak6-Core' } +LargePositiveInteger >> greaseBytesCount [ + "Primitive. Answer the number of indexable fields in the receiver. This + value is the same as the largest legal subscript. Essential. See Object + documentation whatIsAPrimitive." + + + self primitiveFailed +] diff --git a/repository/Grease-Squeak6-Core/MessageSend.extension.st b/repository/Grease-Squeak6-Core/MessageSend.extension.st new file mode 100644 index 00000000..f9013fa7 --- /dev/null +++ b/repository/Grease-Squeak6-Core/MessageSend.extension.st @@ -0,0 +1,15 @@ +Extension { #name : 'MessageSend' } + +{ #category : '*grease-squeak6-core' } +MessageSend >> argumentCount [ + ^ selector numArgs - self arguments size +] + +{ #category : '*grease-squeak6-core' } +MessageSend >> valueWithPossibleArguments: anArray [ + "Evaluate the block represented by the receiver. + If the block requires one argument, use anArg, if it requires more than one, + fill up the rest with nils." + + ^ self valueWithEnoughArguments: anArray +] diff --git a/repository/Grease-Squeak6-Core/Number.extension.st b/repository/Grease-Squeak6-Core/Number.extension.st new file mode 100644 index 00000000..41c8631d --- /dev/null +++ b/repository/Grease-Squeak6-Core/Number.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'Number' } + +{ #category : '*grease-squeak6-core' } +Number >> milliseconds [ + ^ self milliSeconds +] diff --git a/repository/Grease-Squeak6-Core/Object.extension.st b/repository/Grease-Squeak6-Core/Object.extension.st new file mode 100644 index 00000000..e066fff7 --- /dev/null +++ b/repository/Grease-Squeak6-Core/Object.extension.st @@ -0,0 +1,17 @@ +Extension { #name : 'Object' } + +{ #category : '*grease-squeak6-core' } +Object >> greaseString [ + ^ self asString +] + +{ #category : '*grease-squeak6-core' } +Object >> sizeInMemory [ + "Answer the number of bytes consumed by this instance including object header." + + ^ [ self class isVariable + ifTrue: [ self class byteSizeOfInstanceOfSize: self basicSize] + ifFalse: [ self class byteSizeOfInstance] + "Some classes count them no size (SmallInteger, Character..), so this fails" + ] on: Error do: [0]. +] diff --git a/repository/Grease-Squeak6-Core/PackageManifest.class.st b/repository/Grease-Squeak6-Core/PackageManifest.class.st new file mode 100644 index 00000000..deabc5c6 --- /dev/null +++ b/repository/Grease-Squeak6-Core/PackageManifest.class.st @@ -0,0 +1,6 @@ +Class { + #name : 'PackageManifest', + #superclass : 'Object', + #category : 'Grease-Squeak6-Core', + #package : 'Grease-Squeak6-Core' +} diff --git a/repository/Grease-Squeak6-Core/PositionableStream.extension.st b/repository/Grease-Squeak6-Core/PositionableStream.extension.st new file mode 100644 index 00000000..2c5cfd84 --- /dev/null +++ b/repository/Grease-Squeak6-Core/PositionableStream.extension.st @@ -0,0 +1,8 @@ +Extension { #name : 'PositionableStream' } + +{ #category : '*grease-squeak6-core' } +PositionableStream >> greaseUpToAll: aCollection [ + "Needed for Seaside ports to other dialects where #upToAll: may have + different semantics" + ^ self upToAll: aCollection +] diff --git a/repository/Grease-Squeak6-Core/Random.extension.st b/repository/Grease-Squeak6-Core/Random.extension.st new file mode 100644 index 00000000..6c712324 --- /dev/null +++ b/repository/Grease-Squeak6-Core/Random.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'Random' } + +{ #category : '*grease-squeak6-core' } +Random >> randomFrom: aCollection [ + + ^ aCollection atRandom: self +] diff --git a/repository/Grease-Squeak6-Core/ScaledDecimal.extension.st b/repository/Grease-Squeak6-Core/ScaledDecimal.extension.st new file mode 100644 index 00000000..7f564b2b --- /dev/null +++ b/repository/Grease-Squeak6-Core/ScaledDecimal.extension.st @@ -0,0 +1,16 @@ +Extension { #name : 'ScaledDecimal' } + +{ #category : '*grease-squeak6-core' } +ScaledDecimal >> encodeOn: aDocument [ + "not the ideal package but we don't have a Seaside-Squeak-Core" + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + converter print: self on: aDocument +] + +{ #category : '*grease-squeak6-core' } +ScaledDecimal >> greaseString [ + | converter | + converter := GRSignPrinter new, (GRNumberPrinter new precision: self scale). + ^ converter print: self +] diff --git a/repository/Grease-Squeak6-Core/SequenceableCollection.extension.st b/repository/Grease-Squeak6-Core/SequenceableCollection.extension.st new file mode 100644 index 00000000..d1c740ce --- /dev/null +++ b/repository/Grease-Squeak6-Core/SequenceableCollection.extension.st @@ -0,0 +1,35 @@ +Extension { #name : 'SequenceableCollection' } + +{ #category : '*grease-squeak6-core' } +SequenceableCollection >> beginsWithSubCollection: aSequenceableCollection [ + self + greaseDeprecatedApi: 'SequenceableCollection>>#beginsWithSubCollection:' + details: 'Use SequenceableCollection>>#greaseBeginsWith:'. + "Some platforms implement #beginsWith: to answer true for an empty argument." + aSequenceableCollection isEmpty ifTrue: [ ^ false ]. + ^ self beginsWith: aSequenceableCollection +] + +{ #category : '*grease-squeak6-core' } +SequenceableCollection >> endsWithSubCollection: aSequenceableCollection [ + self + greaseDeprecatedApi: 'SequenceableCollection>>#endsWithSubCollection:' + details: 'Use SequenceableCollection>>#greaseEndsWith:'. + "Some platforms implement #endsWith: to answer true for an empty argument." + aSequenceableCollection isEmpty ifTrue: [ ^ false ]. + ^ self endsWith: aSequenceableCollection +] + +{ #category : '*grease-squeak6-core' } +SequenceableCollection >> greaseBeginsWith: aSequenceableCollection [ + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self beginsWith: aSequenceableCollection +] + +{ #category : '*grease-squeak6-core' } +SequenceableCollection >> greaseEndsWith: aSequenceableCollection [ + + aSequenceableCollection isEmpty ifTrue: [ ^ true ]. + ^ self endsWith: aSequenceableCollection +] diff --git a/repository/Grease-Squeak6-Core/SmallInteger.extension.st b/repository/Grease-Squeak6-Core/SmallInteger.extension.st new file mode 100644 index 00000000..7c5bcd1e --- /dev/null +++ b/repository/Grease-Squeak6-Core/SmallInteger.extension.st @@ -0,0 +1,44 @@ +Extension { #name : 'SmallInteger' } + +{ #category : '*Grease-Squeak6-Core' } +SmallInteger >> greaseByteAt: n [ + "Answer the value of an apparent byte-indexable field in the receiver, + analogous to the large integers, which are organized as bytes." + + n = 1 + ifTrue: [ + "Negate carefully in case the receiver is SmallInteger minVal" + ^ self < 0 + ifTrue: [ -256 - self bitAnd: 255 ] + ifFalse: [ self bitAnd: 255 ] ]. + ^ self < 0 + ifTrue: [ (-256 - self bitShift: -8) + 1 byteAt: n - 1 ] + ifFalse: [ (self bitShift: 8 - (n bitShift: 3)) bitAnd: 255 ] +] + +{ #category : '*Grease-Squeak6-Core' } +SmallInteger >> greaseBytesCount [ + "Answer the number of indexable fields in the receiver. This value is the + same as the largest legal subscript. Included so that a SmallInteger can + behave like a LargePositiveInteger or LargeNegativeInteger." + + "32768 == (1 bitShift: 15)" + "32768 bytesCount >>> 2" + + "65536 == (1 bitShift: 16)" + "65536 bytesCount >>> 3" + + | value length | + length := 1. + value := self. + value >= 0 + ifTrue: + [[value > 255] whileTrue: + [value := value bitShift: -8. + length := length + 1]] + ifFalse: + [[value < -255] whileTrue: + [value := value bitShift: -8. + length := length + 1]]. + ^length +] diff --git a/repository/Grease-Squeak6-Core/SocketStream.extension.st b/repository/Grease-Squeak6-Core/SocketStream.extension.st new file mode 100644 index 00000000..3159f74a --- /dev/null +++ b/repository/Grease-Squeak6-Core/SocketStream.extension.st @@ -0,0 +1,14 @@ +Extension { #name : 'SocketStream' } + +{ #category : '*grease-squeak6-core' } +SocketStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + "Put a String or a ByteArray onto the stream starting at the given position. + Currently a large collection will allocate a large buffer." + + anInteger > 0 ifFalse: [ ^ aCollection ]. + ^self + next: anInteger + putAll: (self isBinary ifTrue: [ aCollection asByteArray ] ifFalse: [ aCollection asString ]) + startingAt: startIndex. + +] diff --git a/repository/Grease-Squeak6-Core/String.extension.st b/repository/Grease-Squeak6-Core/String.extension.st new file mode 100644 index 00000000..e8cfe83c --- /dev/null +++ b/repository/Grease-Squeak6-Core/String.extension.st @@ -0,0 +1,75 @@ +Extension { #name : 'String' } + +{ #category : '*grease-squeak6-core' } +String >> padLeftTo: length with: char [ + ^ self padded: #left to: length with: char +] + +{ #category : '*grease-squeak6-core' } +String >> padRightTo: length with: char [ + ^ self padded: #right to: length with: char +] + +{ #category : '*grease-squeak6-core' } +String >> substrings: aString [ + + ^ self subStrings: aString + + +] + +{ #category : '*grease-squeak6-core' } +String >> trimBoth [ + "Trim separators from both sides of the receiving string." + + ^ self trimBoth: [ :char | char isSeparator ] +] + +{ #category : '*grease-squeak6-core' } +String >> trimBoth: aBlock [ + "Trim characters satisfying the condition given in aBlock from both sides of the receiving string." + + ^ self trimLeft: aBlock right: aBlock +] + +{ #category : '*grease-squeak6-core' } +String >> trimLeft [ + "Trim separators from the left side of the receiving string." + + ^ self trimLeft: [ :char | char isSeparator ] +] + +{ #category : '*grease-squeak6-core' } +String >> trimLeft: aBlock [ + "Trim characters satisfying the condition given in aBlock from the left side of the receiving string." + + ^ self trimLeft: aBlock right: [ :char | false ] +] + +{ #category : '*grease-squeak6-core' } +String >> trimLeft: aLeftBlock right: aRightBlock [ + "Trim characters satisfying the condition given in aLeftBlock from the left side and aRightBlock from the right sides of the receiving string." + + | left right | + left := 1. + right := self size. + [ left <= right and: [ aLeftBlock value: (self at: left) ] ] + whileTrue: [ left := left + 1 ]. + [ left <= right and: [ aRightBlock value: (self at: right) ] ] + whileTrue: [ right := right - 1 ]. + ^ self copyFrom: left to: right +] + +{ #category : '*grease-squeak6-core' } +String >> trimRight [ + "Trim separators from the right side of the receiving string." + + ^ self trimRight: [ :char | char isSeparator ] +] + +{ #category : '*grease-squeak6-core' } +String >> trimRight: aBlock [ + "Trim characters satisfying the condition given in aBlock from the right side of the receiving string." + + ^ self trimLeft: [ :char | false ] right: aBlock +] diff --git a/repository/Grease-Squeak6-Core/Symbol.extension.st b/repository/Grease-Squeak6-Core/Symbol.extension.st new file mode 100644 index 00000000..816f5944 --- /dev/null +++ b/repository/Grease-Squeak6-Core/Symbol.extension.st @@ -0,0 +1,8 @@ +Extension { #name : 'Symbol' } + +{ #category : '*grease-squeak6-core' } +Symbol >> greaseAsMutator [ + + ^ self asSimpleSetter + +] diff --git a/repository/Grease-Squeak6-Core/WriteStream.extension.st b/repository/Grease-Squeak6-Core/WriteStream.extension.st new file mode 100644 index 00000000..b1fd5078 --- /dev/null +++ b/repository/Grease-Squeak6-Core/WriteStream.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'WriteStream' } + +{ #category : '*grease-squeak6-core' } +WriteStream >> greaseNext: anInteger putAll: aCollection startingAt: startIndex [ + "Store the next anInteger elements from the given collection." + ^ self next: anInteger putAll: aCollection startingAt: startIndex +] diff --git a/repository/Grease-Squeak6-Core/package.st b/repository/Grease-Squeak6-Core/package.st new file mode 100644 index 00000000..f531b361 --- /dev/null +++ b/repository/Grease-Squeak6-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Squeak6-Core' } diff --git a/repository/Grease-Tests-Core.package/.filetree b/repository/Grease-Tests-Core.package/.filetree deleted file mode 100644 index 57a67973..00000000 --- a/repository/Grease-Tests-Core.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/README.md b/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/class/isAbstract.st b/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/class/isAbstract.st deleted file mode 100644 index db84a7e8..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/class/isAbstract.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAbstract - ^ self name = #GRAbstractDictionaryTest \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/allowsDuplicateValues.st b/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/allowsDuplicateValues.st deleted file mode 100644 index 37514373..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/allowsDuplicateValues.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -allowsDuplicateValues - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/arbitraryAssociations.st b/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/arbitraryAssociations.st deleted file mode 100644 index a8ed3343..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/arbitraryAssociations.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -arbitraryAssociations - ^ associations ifNil: [ associations := self createArbitraryAssociations ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/arbitraryCollection.st b/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/arbitraryCollection.st deleted file mode 100644 index bd3f674f..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/arbitraryCollection.st +++ /dev/null @@ -1,7 +0,0 @@ -configuration -arbitraryCollection - | dict | - dict := self emptyCollection. - self arbitraryAssociations do: [ :each | - dict at: each key put: each value ]. - ^ dict \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/createArbitraryAssociations.st b/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/createArbitraryAssociations.st deleted file mode 100644 index 1279abe4..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/createArbitraryAssociations.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -createArbitraryAssociations - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/isExtensible.st b/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/isExtensible.st deleted file mode 100644 index 413e3eba..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/isExtensible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isExtensible - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/isInitializable.st b/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/isInitializable.st deleted file mode 100644 index 7ca2445b..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/isInitializable.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isInitializable - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/isKey.equivalentTo..st b/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/isKey.equivalentTo..st deleted file mode 100644 index 3ce38c24..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/isKey.equivalentTo..st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -isKey: anObject equivalentTo: anotherObject - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/testAssociationsDo.st b/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/testAssociationsDo.st deleted file mode 100644 index f0e09d73..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/testAssociationsDo.st +++ /dev/null @@ -1,17 +0,0 @@ -tests -testAssociationsDo - | collection assocs count | - collection := self arbitraryCollection. - assocs := self arbitraryAssociations copy. - count := 0. - collection associationsDo: [ :assoc | - | size | - count := count + 1. - size := assocs size. - assocs := assocs - reject: [ :each | - (self isKey: each key equivalentTo: assoc key) - and: [ each value = assoc value ] ]. - self assert: size - 1 = assocs size ]. - self assert: assocs isEmpty. - self assert: count = self arbitraryAssociations size \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/valuesOf..st b/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/valuesOf..st deleted file mode 100644 index a9fd6578..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/instance/valuesOf..st +++ /dev/null @@ -1,3 +0,0 @@ -private -valuesOf: aCollection - ^ aCollection values \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/properties.json b/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/properties.json deleted file mode 100644 index e4372492..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractDictionaryTest.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRCollectionTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "associations" - ], - "name" : "GRAbstractDictionaryTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/README.md b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/class/isAbstract.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/class/isAbstract.st deleted file mode 100644 index dd509826..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/class/isAbstract.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAbstract - ^ self name = #GRAbstractSequenceableCollectionTest \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/isHomogeneous.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/isHomogeneous.st deleted file mode 100644 index a1f0710c..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/isHomogeneous.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isHomogeneous - "Some classes can contain only objects of a particular class. String is an example of such a class." - ^ self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/isSequenced.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/isSequenced.st deleted file mode 100644 index 302305af..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/isSequenced.st +++ /dev/null @@ -1,6 +0,0 @@ -testing-ansi -isSequenced - "Answer whether the tested Collection implements the - protocol as defined in ANSI 5.7.12." - - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/isUnique.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/isUnique.st deleted file mode 100644 index 65b1bc2c..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/isUnique.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isUnique - "Some classes cannot be copied because they represent unique values. Symbol is an example of such a class." - ^ self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testAddFirst.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testAddFirst.st deleted file mode 100644 index d67f4f61..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testAddFirst.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testAddFirst - | collection | - (self isExtensible and: [ self isSequenced ]) ifFalse: [ ^ self ]. - - collection := self arbitraryCollection. - collection addFirst: self excludedElement. - self assert: (collection at: 1) = self excludedElement. - self assert: (collection copyFrom: 2 to: collection size) = self arbitraryCollection \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testBeginsWithEmptySubCollection.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testBeginsWithEmptySubCollection.st deleted file mode 100644 index 84cfb274..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testBeginsWithEmptySubCollection.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testBeginsWithEmptySubCollection - | collection | - collection := self arbitraryCollection. - self deny: (collection beginsWithSubCollection: self emptyCollection). - self deny: (self emptyCollection beginsWithSubCollection: collection) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testBeginsWithSubCollection.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testBeginsWithSubCollection.st deleted file mode 100644 index 4d2a2ca9..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testBeginsWithSubCollection.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testBeginsWithSubCollection - | collection | - collection := self arbitraryCollection. - self assert: (collection beginsWithSubCollection: (collection copyWithout: collection last)). - self assert: (collection beginsWithSubCollection: collection). - self deny: (collection beginsWithSubCollection: (collection copyWith: collection first)) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testCopyAfter.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testCopyAfter.st deleted file mode 100644 index e6ccc24f..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testCopyAfter.st +++ /dev/null @@ -1,35 +0,0 @@ -tests -testCopyAfter - | collection sub | - - "match last element" - collection := self arbitraryCollection. - sub := collection copyAfter: collection last. - self assert: sub validSequencedNewResponseFrom: collection. - self assert: sub isEmpty. - - "no match" - self isUnique ifFalse: [ - sub := collection copyAfter: self excludedElement. - self assert: sub validSequencedNewResponseFrom: collection. - self assert: sub isEmpty ]. - - "match an element" - sub := collection copyAfter: self includedElement. - self assert: sub validSequencedNewResponseFrom: collection. - self assert: sub = (collection copyFrom: collection size - sub size + 1 to: collection size). - self assert: (collection at: collection size - sub size) = self includedElement. - - self allowsDuplicateValues ifTrue: [ - sub := collection copyAfter: self duplicateElement. - self assert: sub validSequencedNewResponseFrom: collection. - self assert: sub = (collection copyFrom: collection size - sub size + 1 to: collection size). - self assert: (collection at: collection size - sub size) = self duplicateElement. - self assert: (sub includes: self duplicateElement) ]. - - "Make sure we're using equality" - (self isHomogeneous not and: [ self isInitializable ]) ifTrue: [ - collection := self collectionClass withAll: #(1 '1'). - sub := collection copyAfter: 1. - self assert: sub size = 1. - self assert: (sub at: 1) = '1' ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testCopyAfterLast.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testCopyAfterLast.st deleted file mode 100644 index 5a7c9f9d..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testCopyAfterLast.st +++ /dev/null @@ -1,35 +0,0 @@ -tests -testCopyAfterLast - | collection sub | - - "match first element" - collection := self arbitraryCollection. - sub := collection copyAfterLast: collection last. - self assert: sub validSequencedNewResponseFrom: collection. - self assert: sub isEmpty. - - "no match" - self isUnique ifFalse: [ - sub := collection copyAfter: self excludedElement. - self assert: sub validSequencedNewResponseFrom: collection. - self assert: sub isEmpty ]. - - "match an element" - sub := collection copyAfterLast: self includedElement. - self assert: sub validSequencedNewResponseFrom: collection. - self assert: sub = (collection copyFrom: collection size - sub size + 1 to: collection size). - self assert: (collection at: collection size - sub size) = self includedElement. - - self allowsDuplicateValues ifTrue: [ - sub := collection copyAfterLast: self duplicateElement. - self assert: sub validSequencedNewResponseFrom: collection. - self assert: sub = (collection copyFrom: collection size - sub size + 1 to: collection size). - self assert: (collection at: collection size - sub size) = self duplicateElement. - self deny: (sub includes: self duplicateElement) ]. - - "Make sure we're using equality" - (self isHomogeneous not and: [ self isInitializable ]) ifTrue: [ - collection := self collectionClass withAll: #(1 '1'). - sub := collection copyAfterLast: 1. - self assert: sub size = 1. - self assert: (sub at: 1) = '1' ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testCopyUpTo.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testCopyUpTo.st deleted file mode 100644 index 9d9587a8..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testCopyUpTo.st +++ /dev/null @@ -1,37 +0,0 @@ -tests -testCopyUpTo - | collection sub | - - "match first element" - collection := self arbitraryCollection. - sub := collection copyUpTo: (collection at: 1). - self assert: sub validSequencedNewResponseFrom: collection. - self assert: sub isEmpty. - - "no match" - self isUnique ifFalse: [ - sub := collection copyUpTo: self excludedElement. - self assert: sub validSequencedNewResponseFrom: collection. - self assert: sub size = collection size. - collection keysAndValuesDo: [ :index :value | - self assert: (sub at: index) = value ] ]. - - "match an element" - sub := collection copyUpTo: self includedElement. - self assert: sub validSequencedNewResponseFrom: collection. - self assert: sub = (collection copyFrom: 1 to: sub size). - self assert: (collection at: sub size + 1) = self includedElement. - - self allowsDuplicateValues ifTrue: [ - sub := collection copyUpTo: self duplicateElement. - self assert: sub validSequencedNewResponseFrom: collection. - self assert: sub = (collection copyFrom: 1 to: sub size). - self assert: (collection at: sub size + 1) = self duplicateElement. - self deny: (sub includes: self duplicateElement) ]. - - "Make sure we're using equality" - (self isHomogeneous not and: [ self isInitializable ]) ifTrue: [ - collection := self collectionClass withAll: #(1 '1'). - sub := collection copyUpTo: '1'. - self assert: sub size = 1. - self assert: (sub at: 1) = 1 ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testCopyUpToLast.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testCopyUpToLast.st deleted file mode 100644 index 6dde6e9e..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testCopyUpToLast.st +++ /dev/null @@ -1,37 +0,0 @@ -tests -testCopyUpToLast - | collection sub | - - "match first element" - collection := self arbitraryCollection. - sub := collection copyUpToLast: collection first. - self assert: sub validSequencedNewResponseFrom: collection. - self assert: sub isEmpty. - - "no match" - self isUnique ifFalse: [ - sub := collection copyUpToLast: self excludedElement. - self assert: sub validSequencedNewResponseFrom: collection. - self assert: sub size = collection size. - collection keysAndValuesDo: [ :index :value | - self assert: (sub at: index) = value ] ]. - - "match an element" - sub := collection copyUpToLast: self includedElement. - self assert: sub validSequencedNewResponseFrom: collection. - self assert: sub = (collection copyFrom: 1 to: sub size). - self assert: (collection at: sub size + 1) = self includedElement. - - self allowsDuplicateValues ifTrue: [ - sub := collection copyUpToLast: self duplicateElement. - self assert: sub validSequencedNewResponseFrom: collection. - self assert: sub = (collection copyFrom: 1 to: sub size). - self assert: (collection at: sub size + 1) = self duplicateElement. - self assert: (sub includes: self duplicateElement) ]. - - "Make sure we're using equality" - (self isHomogeneous not and: [ self isInitializable ]) ifTrue: [ - collection := self collectionClass withAll: #(1 '1'). - sub := collection copyUpToLast: '1'. - self assert: sub size = 1. - self assert: sub first = 1 ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testEndsWithEmptySubCollection.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testEndsWithEmptySubCollection.st deleted file mode 100644 index 9ff0e176..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testEndsWithEmptySubCollection.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testEndsWithEmptySubCollection - | collection | - collection := self arbitraryCollection. - self deny: (collection endsWithSubCollection: self emptyCollection). - self deny: (self emptyCollection endsWithSubCollection: collection) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testEndsWithSubCollection.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testEndsWithSubCollection.st deleted file mode 100644 index a902d65d..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testEndsWithSubCollection.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testEndsWithSubCollection - | collection | - collection := self arbitraryCollection. - self assert: (collection endsWithSubCollection: (collection copyWithout: collection first)). - self assert: (collection endsWithSubCollection: collection). - self deny: (collection endsWithSubCollection: (collection copyWith: collection first)) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testGreaseBeginsWith.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testGreaseBeginsWith.st deleted file mode 100644 index 69cd8b12..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testGreaseBeginsWith.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testGreaseBeginsWith - | collection | - collection := self arbitraryCollection. - self assert: (collection greaseBeginsWith: (collection copyWithout: collection last)). - self assert: (collection greaseBeginsWith: collection). - self deny: (collection greaseBeginsWith: (collection copyWith: collection first)). - self assert: (collection greaseBeginsWith: self emptyCollection). - self deny: (self emptyCollection greaseBeginsWith: collection) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testGreaseEndsWith.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testGreaseEndsWith.st deleted file mode 100644 index 5bf33d8b..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testGreaseEndsWith.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testGreaseEndsWith - | collection | - collection := self arbitraryCollection. - self assert: (collection greaseEndsWith: (collection copyWithout: collection first)). - self assert: (collection greaseEndsWith: collection). - self deny: (collection greaseEndsWith: (collection copyWith: collection first)). - self assert: (collection greaseEndsWith: self emptyCollection). - self deny: (self emptyCollection greaseEndsWith: collection) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testSort.st b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testSort.st deleted file mode 100644 index 4d4e0ea1..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/instance/testSort.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testSort - | collection | - self isSequenced ifFalse: [ ^ self ]. - - collection := self arbitraryCollection. - collection sort. - self assert: collection sortedWith: [ :a :b | a <= b ]. - - collection sort: [ :a :b | a > b ]. - self assert: collection sortedWith: [ :a :b | a > b ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/properties.json b/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/properties.json deleted file mode 100644 index 9bd277c8..00000000 --- a/repository/Grease-Tests-Core.package/GRAbstractSequenceableCollectionTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRCollectionTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRAbstractSequenceableCollectionTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRArrayTest.class/README.md b/repository/Grease-Tests-Core.package/GRArrayTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/allowsDuplicateValues.st b/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/allowsDuplicateValues.st deleted file mode 100644 index 37514373..00000000 --- a/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/allowsDuplicateValues.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -allowsDuplicateValues - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/collectionClass.st deleted file mode 100644 index acd1f706..00000000 --- a/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ Array \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isExtensible.st b/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isExtensible.st deleted file mode 100644 index 413e3eba..00000000 --- a/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isExtensible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isExtensible - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isHomogeneous.st b/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isHomogeneous.st deleted file mode 100644 index c136bcc0..00000000 --- a/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isHomogeneous.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isHomogeneous - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isInitializable.st b/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isInitializable.st deleted file mode 100644 index 2ea38e00..00000000 --- a/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isInitializable.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isInitializable - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isSequenced.st b/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isSequenced.st deleted file mode 100644 index 49222dce..00000000 --- a/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isSequenced.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isSequenced - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isUnique.st b/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isUnique.st deleted file mode 100644 index 9e721c84..00000000 --- a/repository/Grease-Tests-Core.package/GRArrayTest.class/instance/isUnique.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isUnique - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRArrayTest.class/properties.json b/repository/Grease-Tests-Core.package/GRArrayTest.class/properties.json deleted file mode 100644 index 88dc04c7..00000000 --- a/repository/Grease-Tests-Core.package/GRArrayTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRAbstractSequenceableCollectionTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRArrayTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRBagTest.class/README.md b/repository/Grease-Tests-Core.package/GRBagTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRBagTest.class/instance/allowsDuplicateValues.st b/repository/Grease-Tests-Core.package/GRBagTest.class/instance/allowsDuplicateValues.st deleted file mode 100644 index 37514373..00000000 --- a/repository/Grease-Tests-Core.package/GRBagTest.class/instance/allowsDuplicateValues.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -allowsDuplicateValues - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRBagTest.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GRBagTest.class/instance/collectionClass.st deleted file mode 100644 index 52471b48..00000000 --- a/repository/Grease-Tests-Core.package/GRBagTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ Bag \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRBagTest.class/instance/isExtensible.st b/repository/Grease-Tests-Core.package/GRBagTest.class/instance/isExtensible.st deleted file mode 100644 index f9cac6cc..00000000 --- a/repository/Grease-Tests-Core.package/GRBagTest.class/instance/isExtensible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isExtensible - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRBagTest.class/instance/isInitializable.st b/repository/Grease-Tests-Core.package/GRBagTest.class/instance/isInitializable.st deleted file mode 100644 index 2ea38e00..00000000 --- a/repository/Grease-Tests-Core.package/GRBagTest.class/instance/isInitializable.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isInitializable - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRBagTest.class/properties.json b/repository/Grease-Tests-Core.package/GRBagTest.class/properties.json deleted file mode 100644 index cc4f30e7..00000000 --- a/repository/Grease-Tests-Core.package/GRBagTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRCollectionTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRBagTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCodecTest.class/README.md b/repository/Grease-Tests-Core.package/GRCodecTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/asString..st b/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/asString..st deleted file mode 100644 index 433f0016..00000000 --- a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/asString..st +++ /dev/null @@ -1,5 +0,0 @@ -private -asString: aCollectionOfIntegers - ^ String streamContents: [ :stream | - aCollectionOfIntegers do: [ :each | - stream nextPut: (Character codePoint: each) ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/decodedString.st b/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/decodedString.st deleted file mode 100644 index c7550bff..00000000 --- a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/decodedString.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -decodedString - ^ 'Übèrstrîñgé' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/latin1String.st b/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/latin1String.st deleted file mode 100644 index 765c255b..00000000 --- a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/latin1String.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -latin1String - ^ self asString: #(220 98 232 114 115 116 114 238 241 103 233) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/macromanString.st b/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/macromanString.st deleted file mode 100644 index 2a3a5362..00000000 --- a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/macromanString.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -macromanString - ^ self asString: #(134 98 143 114 115 116 114 148 150 103 142) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/seasideByteArray.st b/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/seasideByteArray.st deleted file mode 100644 index ecd5b581..00000000 --- a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/seasideByteArray.st +++ /dev/null @@ -1,3 +0,0 @@ -private -seasideByteArray - ^ #(83 101 97 115 105 100 101) "Seaside" asByteArray \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testAllCodecs.st b/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testAllCodecs.st deleted file mode 100644 index 8e35754b..00000000 --- a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testAllCodecs.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testAllCodecs - self assert: GRCodec allCodecs notEmpty. - GRCodec allCodecs do: [ :codec | - self deny: codec class = GRCodec. - self assert: (codec isKindOf: GRCodec) ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testCodecLatin1.st b/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testCodecLatin1.st deleted file mode 100644 index d6fb2d56..00000000 --- a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testCodecLatin1.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testCodecLatin1 - #('iso-8859-1' 'ISO-8859-1' ) do: [ :each | - | codec | - codec := GRCodec forEncoding: each. - self assert: codec name = each. - self assert: codec url name = each. - - "Dialects may not guarantee anything about the comparability of - encoded strings. Convert to Strings for simplicity." - self assert: (codec encode: self decodedString) greaseString = self latin1String greaseString. - self assert: (codec url encode: self decodedString) greaseString = self latin1String greaseString. - self assert: (codec decode: self latin1String) = self decodedString. - self assert: (codec url decode: self latin1String) = self decodedString ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testCodecLatin1BorderLineString.st b/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testCodecLatin1BorderLineString.st deleted file mode 100644 index b20c2747..00000000 --- a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testCodecLatin1BorderLineString.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testCodecLatin1BorderLineString - #('iso-8859-1' 'ISO-8859-1' ) do: [ :each | - | codec writeStream | - codec := GRCodec forEncoding: each. - writeStream := codec encoderFor: GRPlatform current readWriteCharacterStream. - writeStream nextPut: (Character codePoint: 0). - writeStream nextPut: (Character codePoint: 255). - self assert: writeStream contents = (String with: (Character codePoint: 0) with: (Character codePoint: 255)) ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testNext.st b/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testNext.st deleted file mode 100644 index 8dbc63f3..00000000 --- a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testNext.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testNext - #('iso-8859-1' 'ISO-8859-1' ) do: [ :each | - | stream | - stream := (GRCodec forEncoding: each) - encoderFor: self seasideByteArray readStream. - self assert: stream next = $S. - self assert: (stream next: 1) = 'e' ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testNullCodec.st b/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testNullCodec.st deleted file mode 100644 index 114d2c78..00000000 --- a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testNullCodec.st +++ /dev/null @@ -1,16 +0,0 @@ -tests -testNullCodec - | codec strings | - codec := GRNullCodec new. - strings := OrderedCollection new - add: self latin1String; - add: self utf8String; - add: self utf16leString; - add: self utf16beString; - add: self macromanString; - yourself. - strings do: [ :string | - self assert: (codec encode: string) = string. - self assert: (codec url encode: string) = string. - self assert: (codec decode: string) = string. - self assert: (codec url decode: string) = string ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testReset.st b/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testReset.st deleted file mode 100644 index b5596d3b..00000000 --- a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/testReset.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testReset - | contents | - contents := String streamContents: [ :s | - | stream | - stream := (GRCodec forEncoding: 'ISO-8859-1') encoderFor: s. - stream - nextPutAll: 'abc'; - reset; - nextPut: $d ]. - self assert: contents = 'd' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/utf16beString.st b/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/utf16beString.st deleted file mode 100644 index 8f102e39..00000000 --- a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/utf16beString.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -utf16beString - ^ self asString: #(0 220 0 98 0 232 0 114 0 115 0 116 0 114 0 238 0 241 0 103 0 233) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/utf16leString.st b/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/utf16leString.st deleted file mode 100644 index e9859536..00000000 --- a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/utf16leString.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -utf16leString - ^ self asString: #(220 0 98 0 232 0 114 0 115 0 116 0 114 0 238 0 241 0 103 0 233 0) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/utf8String.st b/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/utf8String.st deleted file mode 100644 index 51a6526a..00000000 --- a/repository/Grease-Tests-Core.package/GRCodecTest.class/instance/utf8String.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -utf8String - ^ self asString: #(195 156 98 195 168 114 115 116 114 195 174 195 177 103 195 169) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCodecTest.class/properties.json b/repository/Grease-Tests-Core.package/GRCodecTest.class/properties.json deleted file mode 100644 index 9d2dd967..00000000 --- a/repository/Grease-Tests-Core.package/GRCodecTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRCodecTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/README.md b/repository/Grease-Tests-Core.package/GRCollectionTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/class/isAbstract.st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/class/isAbstract.st deleted file mode 100644 index 52f560ef..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/class/isAbstract.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAbstract - ^ self name = #GRCollectionTest \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/allowsDuplicateValues.st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/allowsDuplicateValues.st deleted file mode 100644 index c7632efc..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/allowsDuplicateValues.st +++ /dev/null @@ -1,5 +0,0 @@ -configuration -allowsDuplicateValues - "Does the tested collection allow storage of duplicate (equal) values." - - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/arbitraryCollection.st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/arbitraryCollection.st deleted file mode 100644 index 3ea9f949..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/arbitraryCollection.st +++ /dev/null @@ -1,8 +0,0 @@ -configuration -arbitraryCollection - "An general collection for testing. It should meet the needs of #duplicateElement, - #excludedElement, #includedElement, and so on where appropriate. Make sure the - duplicated element doesn't end up being in the first or last position both before - and after sorting." - - ^ self collectionClass withAll: #(4 3 1 2 3 5) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/assert.sortedWith..st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/assert.sortedWith..st deleted file mode 100644 index 83fec4c4..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/assert.sortedWith..st +++ /dev/null @@ -1,9 +0,0 @@ -asserting -assert: aCollection sortedWith: sortBlock - "Assert that aCollection is correctly sorted according to sortBlock." - - 1 to: aCollection size -1 do: [ :index | - | a b | - a := aCollection at: index. - b := aCollection at: index + 1. - self assert: ((sortBlock value: a value: b) or: [ (sortBlock value: b value: a) not ]) ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/assert.validSequencedNewResponseFrom..st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/assert.validSequencedNewResponseFrom..st deleted file mode 100644 index e953ac77..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/assert.validSequencedNewResponseFrom..st +++ /dev/null @@ -1,7 +0,0 @@ -asserting -assert: responseCollection validSequencedNewResponseFrom: receiverCollection - "Assert that the returned object is, in fact a new object, and that it is - of a valid response class for the tested collection." - - self deny: responseCollection == receiverCollection. - self assert: (self isValidNewSequencedResponseClass: responseCollection class) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/assert.validSequencedResponseFrom..st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/assert.validSequencedResponseFrom..st deleted file mode 100644 index 98b858fd..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/assert.validSequencedResponseFrom..st +++ /dev/null @@ -1,5 +0,0 @@ -asserting -assert: responseCollection validSequencedResponseFrom: receiverCollection - "Assert that the returned object is of a valid response class for the tested collection." - - self assert: (self isValidNewSequencedResponseClass: responseCollection class) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/collectionClass.st deleted file mode 100644 index d0bcd73d..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/collectionClass.st +++ /dev/null @@ -1,5 +0,0 @@ -configuration -collectionClass - "Answer the collection class that is being tested." - - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/duplicateElement.st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/duplicateElement.st deleted file mode 100644 index 9bec145d..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/duplicateElement.st +++ /dev/null @@ -1,5 +0,0 @@ -configuration -duplicateElement - "Answer an element that appears multiple times in #arbitraryCollection." - - ^ 3 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/emptyCollection.st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/emptyCollection.st deleted file mode 100644 index 53709871..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/emptyCollection.st +++ /dev/null @@ -1,5 +0,0 @@ -configuration -emptyCollection - "Answer an empty collection." - - ^ self collectionClass new \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/excludedElement.st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/excludedElement.st deleted file mode 100644 index b8675102..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/excludedElement.st +++ /dev/null @@ -1,5 +0,0 @@ -configuration -excludedElement - "Answer an element that does not appear in #arbitraryCollection." - - ^ 19 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/includedElement.st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/includedElement.st deleted file mode 100644 index 4e9031eb..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/includedElement.st +++ /dev/null @@ -1,5 +0,0 @@ -configuration -includedElement - "Answer a (non-duplicate) element that does appear in #arbitraryCollection." - - ^ 2 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/isExtensible.st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/isExtensible.st deleted file mode 100644 index bef6b274..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/isExtensible.st +++ /dev/null @@ -1,6 +0,0 @@ -testing-ansi -isExtensible - "Answer whether the tested Collection implements the - protocol as defined in ANSI 5.7.5 ." - - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/isInitializable.st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/isInitializable.st deleted file mode 100644 index 39829b13..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/isInitializable.st +++ /dev/null @@ -1,6 +0,0 @@ -testing-ansi -isInitializable - "Answer whether the tested Collection implements the - protocol as defined in ANSI 5.7.23." - - self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/isValidNewSequencedResponseClass..st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/isValidNewSequencedResponseClass..st deleted file mode 100644 index 311d5c41..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/isValidNewSequencedResponseClass..st +++ /dev/null @@ -1,10 +0,0 @@ -configuration -isValidNewSequencedResponseClass: aClass - "Answer whether aClass is a valid return type for methods that return a new sequenced - collection. These are methods such as #copyFrom:to: or #reverse, which are - defined by ANSI for most classes to return the same class as the receiver. - However, for Interval (and maybe other cases), ANSI specifies that the response - may be any ." - - ^ aClass == self collectionClass or: [ - aClass allSuperclasses includes: SequenceableCollection ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testAny.st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testAny.st deleted file mode 100644 index 7b0f230b..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testAny.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testAny - | collection | - collection := self arbitraryCollection. - - self assert: ((self valuesOf: collection) includes: collection any) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testEmptyAny.st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testEmptyAny.st deleted file mode 100644 index 4f0dcdf4..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testEmptyAny.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testEmptyAny - | collection | - collection := self emptyCollection. - - self should: [ (self valuesOf: collection) includes: collection any ] raise: Error \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testIsCollection.st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testIsCollection.st deleted file mode 100644 index 8db57b92..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testIsCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testIsCollection - self assert: self arbitraryCollection isCollection \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testNoneSatisfy.st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testNoneSatisfy.st deleted file mode 100644 index 98df2a29..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testNoneSatisfy.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testNoneSatisfy - | excluded included | - excluded := self excludedElement. - self assert: (self arbitraryCollection noneSatisfy: [ :each | each = excluded ]). - included := self includedElement. - self deny: (self arbitraryCollection noneSatisfy: [ :each | each = included ]). - self assert: (self emptyCollection noneSatisfy: [ :each | true ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testNotEmpty.st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testNotEmpty.st deleted file mode 100644 index 6f1d178d..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testNotEmpty.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testNotEmpty - - self assert: self arbitraryCollection notEmpty. - self deny: self emptyCollection notEmpty. - self assert: self arbitraryCollection notEmpty. - self deny: self emptyCollection notEmpty \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testSorted.st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testSorted.st deleted file mode 100644 index 5fef993c..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/testSorted.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testSorted - | sorted collection | - collection := self arbitraryCollection. - sorted := collection sorted. - self assert: sorted validSequencedNewResponseFrom: collection. - self assert: sorted sortedWith: [ :a :b | a <= b ]. - - sorted := collection sorted: [ :a :b | a > b ]. - self assert: sorted validSequencedNewResponseFrom: collection. - self assert: sorted sortedWith: [ :a :b | a > b ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/valuesOf..st b/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/valuesOf..st deleted file mode 100644 index b41c616e..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/instance/valuesOf..st +++ /dev/null @@ -1,5 +0,0 @@ -private -valuesOf: aCollection - "Answer the values of aCollecion. Dictionary tests override this." - - ^ aCollection \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCollectionTest.class/properties.json b/repository/Grease-Tests-Core.package/GRCollectionTest.class/properties.json deleted file mode 100644 index fcb96e78..00000000 --- a/repository/Grease-Tests-Core.package/GRCollectionTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRCollectionTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/README.md b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/setUp.st b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/setUp.st deleted file mode 100644 index 8607d1b3..00000000 --- a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/setUp.st +++ /dev/null @@ -1,5 +0,0 @@ -running -setUp - | codecStream | - codecStream := ((GRCodec forEncoding: 'utf-8') encoderFor: (WriteStream on: (GRCodec forEncoding: 'utf-8') encodedStringClass new)). - countingStream := GRCountingStream on: codecStream \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testInitialSize.st b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testInitialSize.st deleted file mode 100644 index c1f2b4dc..00000000 --- a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testInitialSize.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -testInitialSize - self assert: countingStream count = 0 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testNextPut.st b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testNextPut.st deleted file mode 100644 index 30dab46b..00000000 --- a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testNextPut.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testNextPut - countingStream nextPut: (Character codePoint: 16rE4). - self assert: countingStream size = 2. - self assert: countingStream count = 1. - self assert: countingStream contents asString = (String with: (Character codePoint: 16rC3) with: (Character codePoint: 16rA4)) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testNextPutAll.st b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testNextPutAll.st deleted file mode 100644 index 6400bf2e..00000000 --- a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testNextPutAll.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testNextPutAll - countingStream nextPutAll: (String with: (Character codePoint: 16rE4)). - self assert: countingStream size = 2. - self assert: countingStream count = 1. - self assert: countingStream contents asString = (String with: (Character codePoint: 16rC3) with: (Character codePoint: 16rA4)) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testReset.st b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testReset.st deleted file mode 100644 index 9825a753..00000000 --- a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/testReset.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testReset - countingStream nextPut: $a. - self assert: countingStream count = 1. - countingStream reset. - self assert: countingStream count = 0 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/properties.json b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/properties.json deleted file mode 100644 index eb816ded..00000000 --- a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "countingStream" - ], - "name" : "GRCountingStreamTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/README.md b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testArgumentCount.st b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testArgumentCount.st deleted file mode 100644 index 08651080..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testArgumentCount.st +++ /dev/null @@ -1,42 +0,0 @@ -tests-accessing -testArgumentCount - " unary " - | send | - send := GRDelayedSend - receiver: 1 - selector: #negated. - self assert: send argumentCount = 0. - send := GRDelayedSend - receiver: 1 - selector: #negated - arguments: #(). - self assert: send argumentCount = 0. - - " binary " - send := GRDelayedSend - receiver: 1 - selector: #+. - self assert: send argumentCount = 1. - send := GRDelayedSend - receiver: 1 - selector: #+ - argument: 2. - self assert: send argumentCount = 0. - - " keyword " - send := GRDelayedSend - receiver: 1 - selector: #between:and:. - self assert: send argumentCount = 2. - send := GRDelayedSend - receiver: 1 - selector: #between:and: - argument: 2. - self assert: send argumentCount = 1. - send := GRDelayedSend - receiver: 1 - selector: #between:and: - arguments: (Array - with: 2 - with: 3). - self assert: send argumentCount = 0 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueBinary.st b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueBinary.st deleted file mode 100644 index e7b60159..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueBinary.st +++ /dev/null @@ -1,14 +0,0 @@ -tests-evaluating -testValueBinary - | send | - send := GRDelayedSend - receiver: 1 - selector: #+. - self - should: [ send value ] - raise: GRInvalidArgumentCount. - send := GRDelayedSend - receiver: 1 - selector: #+ - argument: 2. - self assert: send value = 3 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueKeyword.st b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueKeyword.st deleted file mode 100644 index b163b237..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueKeyword.st +++ /dev/null @@ -1,23 +0,0 @@ -tests-evaluating -testValueKeyword - | send | - send := GRDelayedSend - receiver: 1 - selector: #between:and:. - self - should: [ send value ] - raise: GRInvalidArgumentCount. - send := GRDelayedSend - receiver: 1 - selector: #between:and: - argument: 2. - self - should: [ send value ] - raise: GRInvalidArgumentCount. - send := GRDelayedSend - receiver: 1 - selector: #between:and: - arguments: (Array - with: 2 - with: 3). - self deny: send value \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueUnary.st b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueUnary.st deleted file mode 100644 index 000ceb4b..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueUnary.st +++ /dev/null @@ -1,12 +0,0 @@ -tests-evaluating -testValueUnary - | send | - send := GRDelayedSend - receiver: 1 - selector: #negated. - self assert: send value = -1. - send := GRDelayedSend - receiver: 1 - selector: #negated - arguments: #(). - self assert: send value = -1 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueValueBinary.st b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueValueBinary.st deleted file mode 100644 index ea9cf18f..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueValueBinary.st +++ /dev/null @@ -1,22 +0,0 @@ -tests-evaluating -testValueValueBinary - | send | - send := GRDelayedSend - receiver: 1 - selector: #+. - self - should: - [ send - value: 2 - value: 3 ] - raise: GRInvalidArgumentCount. - send := GRDelayedSend - receiver: 1 - selector: #+ - argument: 2. - self - should: - [ send - value: 2 - value: 3 ] - raise: GRInvalidArgumentCount \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueValueKeyword.st b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueValueKeyword.st deleted file mode 100644 index 2ac02b12..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueValueKeyword.st +++ /dev/null @@ -1,31 +0,0 @@ -tests-evaluating -testValueValueKeyword - | send | - send := GRDelayedSend - receiver: 1 - selector: #between:and:. - self deny: (send - value: 2 - value: 3). - send := GRDelayedSend - receiver: 1 - selector: #between:and: - argument: 2. - self - should: - [ send - value: 4 - value: 5 ] - raise: GRInvalidArgumentCount. - send := GRDelayedSend - receiver: 1 - selector: #between:and: - arguments: (Array - with: 2 - with: 3). - self - should: - [ send - value: 4 - value: 5 ] - raise: GRInvalidArgumentCount \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueValueUnary.st b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueValueUnary.st deleted file mode 100644 index eeaf40d2..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueValueUnary.st +++ /dev/null @@ -1,22 +0,0 @@ -tests-evaluating -testValueValueUnary - | send | - send := GRDelayedSend - receiver: 1 - selector: #negated. - self - should: - [ send - value: 2 - value: 3 ] - raise: GRInvalidArgumentCount. - send := GRDelayedSend - receiver: 1 - selector: #negated - arguments: #(). - self - should: - [ send - value: 2 - value: 3 ] - raise: GRInvalidArgumentCount \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentBinary.st b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentBinary.st deleted file mode 100644 index 2c25afb0..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentBinary.st +++ /dev/null @@ -1,14 +0,0 @@ -tests-evaluating -testValueWithArgumentBinary - | send | - send := GRDelayedSend - receiver: 1 - selector: #+. - self assert: (send value: 2) = 3. - send := GRDelayedSend - receiver: 1 - selector: #+ - argument: 2. - self - should: [ send value: 2 ] - raise: GRInvalidArgumentCount \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentKeyword.st b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentKeyword.st deleted file mode 100644 index deef79f1..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentKeyword.st +++ /dev/null @@ -1,21 +0,0 @@ -tests-evaluating -testValueWithArgumentKeyword - | send | - send := GRDelayedSend - receiver: 1 - selector: #between:and:. - self - should: [ send value: 2 ] - raise: GRInvalidArgumentCount. - send := GRDelayedSend - receiver: 1 - selector: #between:and: - argument: 2. - self deny: (send value: 3). - send := GRDelayedSend - receiver: 1 - selector: #between:and: - arguments: #(2 3 ). - self - should: [ send value: 4 ] - raise: GRInvalidArgumentCount \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentUnary.st b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentUnary.st deleted file mode 100644 index 96c2dfd6..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentUnary.st +++ /dev/null @@ -1,16 +0,0 @@ -tests-evaluating -testValueWithArgumentUnary - | send | - send := GRDelayedSend - receiver: 1 - selector: #negated. - self - should: [ send value: 2 ] - raise: GRInvalidArgumentCount. - send := GRDelayedSend - receiver: 1 - selector: #negated - arguments: #(). - self - should: [ send value: 2 ] - raise: GRInvalidArgumentCount \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentsBinary.st b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentsBinary.st deleted file mode 100644 index 9ea87ffb..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentsBinary.st +++ /dev/null @@ -1,16 +0,0 @@ -tests-evaluating -testValueWithArgumentsBinary - | send | - send := GRDelayedSend - receiver: 1 - selector: #+. - self - should: [ send valueWithArguments: #(2 3 ) ] - raise: GRInvalidArgumentCount. - send := GRDelayedSend - receiver: 1 - selector: #+ - argument: 2. - self - should: [ send valueWithArguments: #(3 4 ) ] - raise: GRInvalidArgumentCount \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentsKeyword.st b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentsKeyword.st deleted file mode 100644 index b70d2001..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentsKeyword.st +++ /dev/null @@ -1,21 +0,0 @@ -tests-evaluating -testValueWithArgumentsKeyword - | send | - send := GRDelayedSend - receiver: 1 - selector: #between:and:. - self deny: (send valueWithArguments: #(2 3 )). - send := GRDelayedSend - receiver: 1 - selector: #between:and: - argument: 2. - self - should: [ send valueWithArguments: #(3 4 ) ] - raise: GRInvalidArgumentCount. - send := GRDelayedSend - receiver: 1 - selector: #between:and: - arguments: #(2 3 ). - self - should: [ send valueWithArguments: #(4 5 ) ] - raise: GRInvalidArgumentCount \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentsUnary.st b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentsUnary.st deleted file mode 100644 index b8a7c773..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithArgumentsUnary.st +++ /dev/null @@ -1,16 +0,0 @@ -tests-evaluating -testValueWithArgumentsUnary - | send | - send := GRDelayedSend - receiver: 1 - selector: #negated. - self - should: [ send valueWithArguments: #(2 3 ) ] - raise: GRInvalidArgumentCount. - send := GRDelayedSend - receiver: 1 - selector: #negated - arguments: #(). - self - should: [ send valueWithArguments: #(2 3 ) ] - raise: GRInvalidArgumentCount \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithPossibleArgumentsBinary.st b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithPossibleArgumentsBinary.st deleted file mode 100644 index 3316d54a..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithPossibleArgumentsBinary.st +++ /dev/null @@ -1,32 +0,0 @@ -tests-evaluating -testValueWithPossibleArgumentsBinary - | send | - send := GRDelayedSend - receiver: 1 - selector: #+. - self - should: [ send valueWithPossibleArguments: #() ] - raise: GRInvalidArgumentCount. - send := GRDelayedSend - receiver: 1 - selector: #+ - argument: 2. - self assert: (send valueWithPossibleArguments: #()) = 3. - send := GRDelayedSend - receiver: 1 - selector: #+. - self assert: (send valueWithPossibleArguments: #(2 )) = 3. - send := GRDelayedSend - receiver: 1 - selector: #+ - argument: 2. - self assert: (send valueWithPossibleArguments: #(3 )) = 3. - send := GRDelayedSend - receiver: 1 - selector: #+. - self assert: (send valueWithPossibleArguments: #(2 3 )) = 3. - send := GRDelayedSend - receiver: 1 - selector: #+ - argument: 2. - self assert: (send valueWithPossibleArguments: #(3 4 )) = 3 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithPossibleArgumentsKeyword.st b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithPossibleArgumentsKeyword.st deleted file mode 100644 index a656b293..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithPossibleArgumentsKeyword.st +++ /dev/null @@ -1,57 +0,0 @@ -tests-evaluating -testValueWithPossibleArgumentsKeyword - | send | - send := GRDelayedSend - receiver: 1 - selector: #between:and:. - self - should: [ send valueWithPossibleArguments: #() ] - raise: GRInvalidArgumentCount. - send := GRDelayedSend - receiver: 1 - selector: #between:and: - argument: 2. - self - should: [ send valueWithPossibleArguments: #() ] - raise: GRInvalidArgumentCount. - send := GRDelayedSend - receiver: 1 - selector: #between:and: - arguments: (Array - with: 2 - with: 3). - self deny: (send valueWithPossibleArguments: #()). - send := GRDelayedSend - receiver: 1 - selector: #between:and:. - self - should: [ send valueWithPossibleArguments: #(2 ) ] - raise: GRInvalidArgumentCount. - send := GRDelayedSend - receiver: 1 - selector: #between:and: - argument: 2. - self deny: (send valueWithPossibleArguments: #(3 )). - send := GRDelayedSend - receiver: 1 - selector: #between:and: - arguments: (Array - with: 2 - with: 3). - self deny: (send valueWithPossibleArguments: #(4 )). - send := GRDelayedSend - receiver: 1 - selector: #between:and:. - self deny: (send valueWithPossibleArguments: #(2 3 )). - send := GRDelayedSend - receiver: 1 - selector: #between:and: - argument: 2. - self deny: (send valueWithPossibleArguments: #(3 4 )). - send := GRDelayedSend - receiver: 1 - selector: #between:and: - arguments: (Array - with: 2 - with: 3). - self deny: (send valueWithPossibleArguments: #(4 5 )) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithPossibleArgumentsUnary.st b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithPossibleArgumentsUnary.st deleted file mode 100644 index 3b066f32..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/instance/testValueWithPossibleArgumentsUnary.st +++ /dev/null @@ -1,30 +0,0 @@ -tests-evaluating -testValueWithPossibleArgumentsUnary - | send | - send := GRDelayedSend - receiver: 1 - selector: #negated. - self assert: (send valueWithPossibleArguments: #()) = -1. - send := GRDelayedSend - receiver: 1 - selector: #negated - arguments: #(). - self assert: (send valueWithPossibleArguments: #()) = -1. - send := GRDelayedSend - receiver: 1 - selector: #negated. - self assert: (send valueWithPossibleArguments: #(2 )) = -1. - send := GRDelayedSend - receiver: 1 - selector: #negated - arguments: #(). - self assert: (send valueWithPossibleArguments: #(2 )) = -1. - send := GRDelayedSend - receiver: 1 - selector: #negated. - self assert: (send valueWithPossibleArguments: #(2 3 )) = -1. - send := GRDelayedSend - receiver: 1 - selector: #negated - arguments: #(). - self assert: (send valueWithPossibleArguments: #(2 3 )) = -1 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/properties.json b/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/properties.json deleted file mode 100644 index 79645fd3..00000000 --- a/repository/Grease-Tests-Core.package/GRDelayedSendTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRDelayedSendTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDictionaryTest.class/README.md b/repository/Grease-Tests-Core.package/GRDictionaryTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRDictionaryTest.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GRDictionaryTest.class/instance/collectionClass.st deleted file mode 100644 index b6f28cdc..00000000 --- a/repository/Grease-Tests-Core.package/GRDictionaryTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ Dictionary \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDictionaryTest.class/instance/createArbitraryAssociations.st b/repository/Grease-Tests-Core.package/GRDictionaryTest.class/instance/createArbitraryAssociations.st deleted file mode 100644 index ebcebb6a..00000000 --- a/repository/Grease-Tests-Core.package/GRDictionaryTest.class/instance/createArbitraryAssociations.st +++ /dev/null @@ -1,9 +0,0 @@ -configuration -createArbitraryAssociations - ^ OrderedCollection new - add: #c -> 3; - add: #a -> 1; - add: #b -> 2; - add: #e -> 1; - add: #d -> 4; - yourself \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDictionaryTest.class/instance/isKey.equivalentTo..st b/repository/Grease-Tests-Core.package/GRDictionaryTest.class/instance/isKey.equivalentTo..st deleted file mode 100644 index f422dcc0..00000000 --- a/repository/Grease-Tests-Core.package/GRDictionaryTest.class/instance/isKey.equivalentTo..st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -isKey: anObject equivalentTo: anotherObject - ^ anObject = anotherObject \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDictionaryTest.class/properties.json b/repository/Grease-Tests-Core.package/GRDictionaryTest.class/properties.json deleted file mode 100644 index 15006d3a..00000000 --- a/repository/Grease-Tests-Core.package/GRDictionaryTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRAbstractDictionaryTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRDictionaryTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDurationTest.class/README.md b/repository/Grease-Tests-Core.package/GRDurationTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testAccessors.st b/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testAccessors.st deleted file mode 100644 index fb9f3faf..00000000 --- a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testAccessors.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testAccessors - | duration | - duration := Duration seconds: 356521. - self assert: duration days = 4. - self assert: duration hours = 3. - self assert: duration minutes = 2. - self assert: duration seconds = 1. - self assert: duration milliseconds = 0 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testBasicInstanceCreation.st b/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testBasicInstanceCreation.st deleted file mode 100644 index 11a932f0..00000000 --- a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testBasicInstanceCreation.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testBasicInstanceCreation - self assert: (Duration days: 1 hours: 1 minutes: 1 seconds: 1) asMilliseconds = 90061000. - self assert: (Duration weeks: 1) asMilliseconds = 604800000. - self assert: (Duration days: 1) asMilliseconds = 86400000. - self assert: (Duration hours: 1) asMilliseconds = 3600000. - self assert: (Duration minutes: 1) asMilliseconds = 60000. - self assert: (Duration seconds: 1) asMilliseconds = 1000. - self assert: (Duration milliseconds: 1) asMilliseconds = 1 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testConversions.st b/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testConversions.st deleted file mode 100644 index 8e5c57d2..00000000 --- a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testConversions.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testConversions - | duration | - duration := Duration days: 4 hours: 3 minutes: 2 seconds: 1. - self assert: duration asSeconds = 356521. - self assert: duration asMilliseconds = 356521000. - self assert: duration negated asSeconds = -356521. - self assert: duration negated asMilliseconds = -356521000 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testIntegerConvenienceMethods.st b/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testIntegerConvenienceMethods.st deleted file mode 100644 index e2da6eb9..00000000 --- a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testIntegerConvenienceMethods.st +++ /dev/null @@ -1,8 +0,0 @@ -testing -testIntegerConvenienceMethods - self assert: 5 weeks = (Duration weeks: 5). - self assert: 5 days = (Duration days: 5). - self assert: 5 hours = (Duration hours: 5). - self assert: 5 minutes = (Duration minutes: 5). - self assert: 5 seconds = (Duration seconds: 5). - self assert: 5 milliseconds = (Duration milliseconds: 5) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testMixedInstanceCreation.st b/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testMixedInstanceCreation.st deleted file mode 100644 index b7fcabaa..00000000 --- a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testMixedInstanceCreation.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testMixedInstanceCreation - self assert: (Duration days: 1 hours: -23 minutes: 1 seconds: -59) asMilliseconds = 3601000 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testNegativeInstanceCreation.st b/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testNegativeInstanceCreation.st deleted file mode 100644 index e8300e1b..00000000 --- a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testNegativeInstanceCreation.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testNegativeInstanceCreation - self assert: (Duration days: -1 hours: -1 minutes: -1 seconds: -1) asMilliseconds = -90061000. - self assert: (Duration weeks: -1) asMilliseconds = -604800000. - self assert: (Duration days: -1) asMilliseconds = -86400000. - self assert: (Duration hours: -1) asMilliseconds = -3600000. - self assert: (Duration minutes: -1) asMilliseconds = -60000. - self assert: (Duration seconds: -1) asMilliseconds = -1000. - self assert: (Duration milliseconds: -1) asMilliseconds = -1 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testPartialSecondsInstanceCreation.st b/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testPartialSecondsInstanceCreation.st deleted file mode 100644 index 7c2d9b30..00000000 --- a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testPartialSecondsInstanceCreation.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testPartialSecondsInstanceCreation - "ANSI 5.8.3.1 and 5.8.3.2 specify that the seconds argument can be any - Number - not just an integer as is the case for the other arguments." - self assert: (Duration days: 0 hours: 0 minutes: 0 seconds: 1.5) asMilliseconds = 1500. - self assert: (Duration days: 0 hours: 0 minutes: 0 seconds: 3/2) asMilliseconds = 1500. - self assert: (Duration seconds: 1.5) asMilliseconds = 1500. - self assert: (Duration seconds: 3/2) asMilliseconds = 1500 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testRolloverInstanceCreation.st b/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testRolloverInstanceCreation.st deleted file mode 100644 index 4d32295c..00000000 --- a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testRolloverInstanceCreation.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testRolloverInstanceCreation - self assert: (Duration days: 0 hours: 25 minutes: 61 seconds: 61) asMilliseconds = 93721000. - self assert: (Duration hours: 25) asMilliseconds = 90000000. - self assert: (Duration minutes: 61) asMilliseconds = 3660000. - self assert: (Duration seconds: 61) asMilliseconds = 61000. - self assert: (Duration milliseconds: 1001) asMilliseconds = 1001 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testZero.st b/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testZero.st deleted file mode 100644 index 7a17a89e..00000000 --- a/repository/Grease-Tests-Core.package/GRDurationTest.class/instance/testZero.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testZero - | duration | - duration := Duration zero. - self assert: duration isZero. - self assert: duration asMilliseconds = 0. - self assert: duration = (Duration seconds: 0) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDurationTest.class/properties.json b/repository/Grease-Tests-Core.package/GRDurationTest.class/properties.json deleted file mode 100644 index e05909ba..00000000 --- a/repository/Grease-Tests-Core.package/GRDurationTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRDurationTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/README.md b/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testAnswer.st b/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testAnswer.st deleted file mode 100644 index 030c3af0..00000000 --- a/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testAnswer.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testAnswer - self assert: (GRDynamicVariable use: 'value' during: [ true ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testDefaultValue.st b/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testDefaultValue.st deleted file mode 100644 index 132e9588..00000000 --- a/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testDefaultValue.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testDefaultValue - self assert: GRTestDynamicVariable value = 'default test value'. - - GRTestDynamicVariable - use: 'my value' - during: [ ]. - self assert: GRTestDynamicVariable value = 'default test value' description:'The default value is no longer correct' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testWithNestedValue.st b/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testWithNestedValue.st deleted file mode 100644 index 6605a7b7..00000000 --- a/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testWithNestedValue.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testWithNestedValue - GRDynamicVariable - use: 'outer' - during: [ - GRDynamicVariable - use: 'inner' - during: [ self assert: GRDynamicVariable value = 'inner' ]. - self assert: GRDynamicVariable value = 'outer' ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testWithValue.st b/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testWithValue.st deleted file mode 100644 index 345524fc..00000000 --- a/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testWithValue.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testWithValue - GRDynamicVariable - use: 'value' - during: [ self assert: GRDynamicVariable value = 'value' ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testWithoutValue.st b/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testWithoutValue.st deleted file mode 100644 index 4a86e124..00000000 --- a/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/instance/testWithoutValue.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testWithoutValue - self assert: GRDynamicVariable value isNil \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/properties.json b/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/properties.json deleted file mode 100644 index 4a7a9ccb..00000000 --- a/repository/Grease-Tests-Core.package/GRDynamicVariableTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRDynamicVariableTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRErrorStub.class/README.md b/repository/Grease-Tests-Core.package/GRErrorStub.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRErrorStub.class/instance/foo.st b/repository/Grease-Tests-Core.package/GRErrorStub.class/instance/foo.st deleted file mode 100644 index 116f7e5b..00000000 --- a/repository/Grease-Tests-Core.package/GRErrorStub.class/instance/foo.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -foo - ^ foo \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRErrorStub.class/instance/initialize.st b/repository/Grease-Tests-Core.package/GRErrorStub.class/instance/initialize.st deleted file mode 100644 index 03ea2354..00000000 --- a/repository/Grease-Tests-Core.package/GRErrorStub.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initialize - super initialize. - foo := true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRErrorStub.class/properties.json b/repository/Grease-Tests-Core.package/GRErrorStub.class/properties.json deleted file mode 100644 index 4790c613..00000000 --- a/repository/Grease-Tests-Core.package/GRErrorStub.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRError", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "foo" - ], - "name" : "GRErrorStub", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/README.md b/repository/Grease-Tests-Core.package/GRExceptionTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/onExceptionReturn..st b/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/onExceptionReturn..st deleted file mode 100644 index ef297258..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/onExceptionReturn..st +++ /dev/null @@ -1,7 +0,0 @@ -private -onExceptionReturn: anObject - [ GRError signal ] - on: GRError - do: [ :ex | ^ anObject ]. - - ^ self \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testDefaultActionResume.st b/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testDefaultActionResume.st deleted file mode 100644 index 1fd5e3cb..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testDefaultActionResume.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testDefaultActionResume - "According to ANSI 5.5.15.2, the result of #defaultAction - should be used to resume resumable exceptions. Behaviour is undefined - for non-resumable exceptions so we do not test for that case." - - | result | - result := GRNotificationStub signal. - self assert: result = #returnValue \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testDeprecatedApi.st b/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testDeprecatedApi.st deleted file mode 100644 index 21e665ce..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testDeprecatedApi.st +++ /dev/null @@ -1,19 +0,0 @@ -tests -testDeprecatedApi - | exception seen | - exception := seen := nil. - - [ self - greaseDeprecatedApi: 'GRExceptionTest>>#testDeprecatedApi' - details: 'Message in a bottle.'. - seen := true ] - on: GRDeprecatedApiNotification - do: - [ :notification | - exception := notification. - exception resume. - seen := false ]. - self assert: seen. - self assert: exception notNil. - self assert: exception messageText = 'GRExceptionTest>>#testDeprecatedApi'. - self assert: exception details = 'Message in a bottle.' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testErrorInitialization.st b/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testErrorInitialization.st deleted file mode 100644 index 7b0a2b83..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testErrorInitialization.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -testErrorInitialization - "Make sure #initialize is called on #new and that calling 'super initialize' doesn't error." - self assert: GRErrorStub new foo \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testIsResumable.st b/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testIsResumable.st deleted file mode 100644 index 5e84b389..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testIsResumable.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testIsResumable - "Make sure the platform class provides #isResumable on Exception. - This test made a bit more complex by James Foster per issue #259 - for GemStone portability." - - | exception | - [ Exception signal ] - on: Exception - do: [ :ex | - exception := ex. - ex return - ]. - self shouldnt: [ exception isResumable ] raise: MessageNotUnderstood \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testNotificationInitialization.st b/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testNotificationInitialization.st deleted file mode 100644 index eda86e4f..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testNotificationInitialization.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -testNotificationInitialization - "Make sure #initialize is called on #new and that calling 'super initialize' doesn't error." - self assert: GRNotificationStub new foo \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testOnDoImplicitReturn.st b/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testOnDoImplicitReturn.st deleted file mode 100644 index 381cb84e..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testOnDoImplicitReturn.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testOnDoImplicitReturn - "According to ANSI 5.5.15.2, an exception handler block that runs to completion - should result in the call to #on:do: returning the block's value." - - | result | - result := [ GRErrorStub signal ] on: GRErrorStub do: [ :e | #blockValue ]. - self assert: result = #blockValue. - - result := nil. - result := [ GRNotificationStub signal ] on: GRNotificationStub do: [ :e | #blockValue ]. - self assert: result = #blockValue \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testOnDoNonLocalReturn.st b/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testOnDoNonLocalReturn.st deleted file mode 100644 index 39d3edf4..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testOnDoNonLocalReturn.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testOnDoNonLocalReturn - "You should be able to do a non-local return from within an exception - handler block. We rely on a helper method here so we can check the return - value." - - self assert: (self onExceptionReturn: 123) == 123 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalError.st b/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalError.st deleted file mode 100644 index df7fd1a9..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalError.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testSignalError - "Exception>>signal is part of the ANSI Smalltalk standard. However, Seaside - only signals subclasses of GRError and GRNotification so Smalltalk - implementations that do not otherwise provide it can implement it on - these two classes." - [ GRError new signal ] - on: GRError - do: [ :e | ^ self ]. - self assert: false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalErrorClassSide.st b/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalErrorClassSide.st deleted file mode 100644 index 4debb080..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalErrorClassSide.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testSignalErrorClassSide - "Exception class>>signal is part of the ANSI Smalltalk standard. However, Seaside - only signals subclasses of GRError and GRNotification so Smalltalk - implementations that do not otherwise provide it can implement it on - these two classes." - [ GRError signal ] - on: GRError - do: [ :e | ^ self ]. - self assert: false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalNotification.st b/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalNotification.st deleted file mode 100644 index 6387778b..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalNotification.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testSignalNotification - "Exception>>signal is part of the ANSI Smalltalk standard. However, Seaside - only signals subclasses of GRError and GRNotification so Smalltalk - implementations that do not otherwise provide it can implement it on - these two classes." - [ GRNotification new signal ] - on: GRNotification - do: [ :e | ^ self ]. - self assert: false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalNotificationClassSide.st b/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalNotificationClassSide.st deleted file mode 100644 index 6e3c9e03..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalNotificationClassSide.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testSignalNotificationClassSide - "Exception class>>signal is part of the ANSI Smalltalk standard. However, Seaside - only signals subclasses of GRError and GRNotification so Smalltalk - implementations that do not otherwise provide it can implement it on - these two classes." - [ GRNotification signal ] - on: GRNotification - do: [ :e | ^ self ]. - self assert: false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalWithError.st b/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalWithError.st deleted file mode 100644 index 60103d5e..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalWithError.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testSignalWithError - "Exception>>signal: is part of the ANSI Smalltalk standard. However, Seaside - only signals subclasses of GRError and GRNotification so Smalltalk - implementations that do not otherwise provide it can implement it on - these two classes." - | text | - text := 'Error!'. - [ GRError new signal: text ] - on: GRError - do: - [ :e | - self assert: e messageText = text. - ^ self ]. - self assert: false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalWithErrorClassSide.st b/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalWithErrorClassSide.st deleted file mode 100644 index 5ab52438..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalWithErrorClassSide.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testSignalWithErrorClassSide - "Exception class>>signal: is part of the ANSI Smalltalk standard. However, Seaside - only signals subclasses of GRError and GRNotification so Smalltalk - implementations that do not otherwise provide it can implement it on - these two classes." - | text | - text := 'Error!'. - [ GRError signal: text ] - on: GRError - do: - [ :e | - self assert: e messageText = text. - ^ self ]. - self assert: false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalWithNotification.st b/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalWithNotification.st deleted file mode 100644 index ee1bfe0a..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalWithNotification.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testSignalWithNotification - "Exception>>signal: is part of the ANSI Smalltalk standard. However, Seaside - only signals subclasses of GRError and GRNotification so Smalltalk - implementations that do not otherwise provide it can implement it on - these two classes." - | text | - text := 'Notification'. - [ GRNotification new signal: text ] - on: GRNotification - do: - [ :e | - self assert: e messageText = text. - ^ self ]. - self assert: false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalWithNotificationClassSide.st b/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalWithNotificationClassSide.st deleted file mode 100644 index a4420ab7..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/instance/testSignalWithNotificationClassSide.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testSignalWithNotificationClassSide - "Exception class>>signal: is part of the ANSI Smalltalk standard. However, Seaside - only signals subclasses of GRError and GRNotification so Smalltalk - implementations that do not otherwise provide it can implement it on - these two classes." - | text | - text := 'Notification'. - [ GRNotification signal: text ] - on: GRNotification - do: - [ :e | - self assert: e messageText = text. - ^ self ]. - self assert: false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRExceptionTest.class/properties.json b/repository/Grease-Tests-Core.package/GRExceptionTest.class/properties.json deleted file mode 100644 index 953e06ff..00000000 --- a/repository/Grease-Tests-Core.package/GRExceptionTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRExceptionTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/README.md b/repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/instance/collectionClass.st deleted file mode 100644 index f8f1e3f8..00000000 --- a/repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ IdentityDictionary \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/instance/createArbitraryAssociations.st b/repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/instance/createArbitraryAssociations.st deleted file mode 100644 index 0c775e33..00000000 --- a/repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/instance/createArbitraryAssociations.st +++ /dev/null @@ -1,9 +0,0 @@ -configuration -createArbitraryAssociations - ^ OrderedCollection new - add: 'c' -> 3; - add: 'a' -> 1; - add: 'b' -> 2; - add: 'd' -> 1; - add: 'b' copy -> 4; - yourself \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/instance/isKey.equivalentTo..st b/repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/instance/isKey.equivalentTo..st deleted file mode 100644 index 9065dc79..00000000 --- a/repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/instance/isKey.equivalentTo..st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -isKey: anObject equivalentTo: anotherObject - ^ anObject == anotherObject \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/properties.json b/repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/properties.json deleted file mode 100644 index 5dbb5796..00000000 --- a/repository/Grease-Tests-Core.package/GRIdentityDictionaryTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRAbstractDictionaryTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRIdentityDictionaryTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIntervalTest.class/README.md b/repository/Grease-Tests-Core.package/GRIntervalTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/allowsDuplicateValues.st b/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/allowsDuplicateValues.st deleted file mode 100644 index 3cc262dd..00000000 --- a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/allowsDuplicateValues.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -allowsDuplicateValues - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/arbitraryCollection.st b/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/arbitraryCollection.st deleted file mode 100644 index 7abde348..00000000 --- a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/arbitraryCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -arbitraryCollection - ^ 1 to: 4 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/collectionClass.st deleted file mode 100644 index 604476a5..00000000 --- a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ Interval \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/emptyCollection.st b/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/emptyCollection.st deleted file mode 100644 index 03e45a87..00000000 --- a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/emptyCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -emptyCollection - ^ 1 to: 0 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isExtensible.st b/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isExtensible.st deleted file mode 100644 index 413e3eba..00000000 --- a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isExtensible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isExtensible - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isHomogeneous.st b/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isHomogeneous.st deleted file mode 100644 index e7b0353b..00000000 --- a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isHomogeneous.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isHomogeneous - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isInitializable.st b/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isInitializable.st deleted file mode 100644 index 7ca2445b..00000000 --- a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isInitializable.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isInitializable - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isSequenced.st b/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isSequenced.st deleted file mode 100644 index 9c3573ad..00000000 --- a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isSequenced.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isSequenced - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isUnique.st b/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isUnique.st deleted file mode 100644 index 9e721c84..00000000 --- a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/isUnique.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isUnique - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/testBeginsWithSubCollection.st b/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/testBeginsWithSubCollection.st deleted file mode 100644 index f64f061d..00000000 --- a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/testBeginsWithSubCollection.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testBeginsWithSubCollection - self assert: ((-5 to: 10 by: 3) beginsWithSubCollection: (-5 to: 7 by: 3)). - self assert: ((-5 to: 10 by: 3) beginsWithSubCollection: (-5 to: 10 by: 3)). - self deny: ((-5 to: 10 by: 3) beginsWithSubCollection: (-8 to: 10 by: 3)) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/testEndsWithSubCollection.st b/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/testEndsWithSubCollection.st deleted file mode 100644 index 99d8f432..00000000 --- a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/testEndsWithSubCollection.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testEndsWithSubCollection - self assert: ((-5 to: 10 by: 3) endsWithSubCollection: (-2 to: 10 by: 3)). - self assert: ((-5 to: 10 by: 3) endsWithSubCollection: (-5 to: 10 by: 3)). - self deny: ((-5 to: 10 by: 3) endsWithSubCollection: (-5 to: 13 by: 3)) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/testSorted.st b/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/testSorted.st deleted file mode 100644 index b7b0ada5..00000000 --- a/repository/Grease-Tests-Core.package/GRIntervalTest.class/instance/testSorted.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testSorted - "Unlike super implementation do not assume Interval >> #sorted returns a new object" - | sorted collection | - collection := self arbitraryCollection. - sorted := collection sorted. - self assert: sorted validSequencedResponseFrom: collection. - self assert: sorted sortedWith: [ :a :b | a <= b ]. - - sorted := collection sorted: [ :a :b | a > b ]. - self assert: sorted validSequencedNewResponseFrom: collection. - self assert: sorted sortedWith: [ :a :b | a > b ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRIntervalTest.class/properties.json b/repository/Grease-Tests-Core.package/GRIntervalTest.class/properties.json deleted file mode 100644 index 214b0a29..00000000 --- a/repository/Grease-Tests-Core.package/GRIntervalTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRAbstractSequenceableCollectionTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRIntervalTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/README.md b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testAnswer.st b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testAnswer.st deleted file mode 100644 index 57b002f0..00000000 --- a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testAnswer.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testAnswer - self assert: (GRNotificationBasedDynamicVariable use: 'value' during: [ true ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testDefaultValue.st b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testDefaultValue.st deleted file mode 100644 index c97a7b65..00000000 --- a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testDefaultValue.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testDefaultValue - self assert: GRTestNotificationBasedDynamicVariable value = 'default test value'. - - GRTestNotificationBasedDynamicVariable - use: 'my value' - during: [ ]. - self assert: GRTestNotificationBasedDynamicVariable value = 'default test value' description:'The default value is no longer correct' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithNestedValue.st b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithNestedValue.st deleted file mode 100644 index 36d38629..00000000 --- a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithNestedValue.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testWithNestedValue - GRNotificationBasedDynamicVariable - use: 'outer' - during: [ - GRNotificationBasedDynamicVariable - use: 'inner' - during: [ self assert: GRNotificationBasedDynamicVariable value = 'inner' ]. - self assert: GRNotificationBasedDynamicVariable value = 'outer' ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithValue.st b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithValue.st deleted file mode 100644 index a666dd9b..00000000 --- a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithValue.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testWithValue - GRNotificationBasedDynamicVariable - use: 'value' - during: [ self assert: GRNotificationBasedDynamicVariable value = 'value' ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithoutValue.st b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithoutValue.st deleted file mode 100644 index d1831981..00000000 --- a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithoutValue.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testWithoutValue - self assert: GRNotificationBasedDynamicVariable value isNil \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/properties.json b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/properties.json deleted file mode 100644 index f30d17fb..00000000 --- a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRNotificationBasedDynamicVariableTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNotificationStub.class/README.md b/repository/Grease-Tests-Core.package/GRNotificationStub.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRNotificationStub.class/instance/defaultAction.st b/repository/Grease-Tests-Core.package/GRNotificationStub.class/instance/defaultAction.st deleted file mode 100644 index 8ff10db5..00000000 --- a/repository/Grease-Tests-Core.package/GRNotificationStub.class/instance/defaultAction.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -defaultAction - ^ #returnValue \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNotificationStub.class/instance/foo.st b/repository/Grease-Tests-Core.package/GRNotificationStub.class/instance/foo.st deleted file mode 100644 index 116f7e5b..00000000 --- a/repository/Grease-Tests-Core.package/GRNotificationStub.class/instance/foo.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -foo - ^ foo \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNotificationStub.class/instance/initialize.st b/repository/Grease-Tests-Core.package/GRNotificationStub.class/instance/initialize.st deleted file mode 100644 index 03ea2354..00000000 --- a/repository/Grease-Tests-Core.package/GRNotificationStub.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initialize - super initialize. - foo := true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNotificationStub.class/properties.json b/repository/Grease-Tests-Core.package/GRNotificationStub.class/properties.json deleted file mode 100644 index 1fe21db6..00000000 --- a/repository/Grease-Tests-Core.package/GRNotificationStub.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRNotification", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "foo" - ], - "name" : "GRNotificationStub", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/README.md b/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/codecStreamClass.st b/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/codecStreamClass.st deleted file mode 100644 index 6e797247..00000000 --- a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/codecStreamClass.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -codecStreamClass - ^ GRNullCodecStream \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testCrlf.st b/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testCrlf.st deleted file mode 100644 index afa66fd7..00000000 --- a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testCrlf.st +++ /dev/null @@ -1,10 +0,0 @@ -tests-characters -testCrlf - | stream | - stream := GRNullCodec new - encoderFor: (WriteStream on: String new). - stream crlf. - - self assert: stream contents size = 2. - self assert: stream contents first = Character cr. - self assert: stream contents last = Character lf \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testFlush.st b/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testFlush.st deleted file mode 100644 index c1cbda04..00000000 --- a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testFlush.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-protocol -testFlush - | stream | - stream := GRNullCodec new - encoderFor: (WriteStream on: String new). - stream nextPutAll: 'abc'. - self shouldnt: [ stream flush ] raise: Error. - self assert: stream contents = 'abc' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testName.st b/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testName.st deleted file mode 100644 index 8e8f6876..00000000 --- a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testName.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-characters -testName - | codec | - codec := GRNullCodec new. - - self assert: codec name = GRNullCodec codecName \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testNext.st b/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testNext.st deleted file mode 100644 index afb91b0f..00000000 --- a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testNext.st +++ /dev/null @@ -1,7 +0,0 @@ -tests-protocol -testNext - | stream | - stream := GRNullCodec new - encoderFor: 'Seaside' readStream. - self assert: stream next = $S. - self assert: (stream next: 1) = 'e' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testPrint.st b/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testPrint.st deleted file mode 100644 index 694f9e58..00000000 --- a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testPrint.st +++ /dev/null @@ -1,7 +0,0 @@ -tests-protocol -testPrint - | stream | - stream := GRNullCodec new - encoderFor: (WriteStream on: String new). - stream print: 123. - self assert: stream contents = '123' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testReadString.st b/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testReadString.st deleted file mode 100644 index d96c00fc..00000000 --- a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testReadString.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testReadString - | stream codecStream | - stream := 'abc' readStream. - codecStream := GRNullCodec new decoderFor: stream. - self assert: codecStream next = $a. - self assert: (codecStream next: 2) = 'bc' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testSize.st b/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testSize.st deleted file mode 100644 index 770edca0..00000000 --- a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testSize.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-protocol -testSize - | stream | - stream := GRNullCodec new - encoderFor: (WriteStream on: String new). - stream nextPutAll: 'abc'. - self assert: stream size = 3. - stream nextPut: $d. - self assert: stream size = 4 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testSpace.st b/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testSpace.st deleted file mode 100644 index a297766e..00000000 --- a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testSpace.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-characters -testSpace - | stream | - stream := GRNullCodec new - encoderFor: (WriteStream on: String new). - stream space. - - self assert: stream contents size = 1. - self assert: stream contents first = Character space \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testTab.st b/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testTab.st deleted file mode 100644 index 6e6796ca..00000000 --- a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testTab.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-characters -testTab - | stream | - stream := GRNullCodec new - encoderFor: (WriteStream on: String new). - stream tab. - - self assert: stream contents size = 1. - self assert: stream contents first = Character tab \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testWriteString.st b/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testWriteString.st deleted file mode 100644 index 63b04343..00000000 --- a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/instance/testWriteString.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testWriteString - | stream codecStream | - stream := WriteStream on: String new. - codecStream := GRNullCodec new encoderFor: stream. - codecStream - nextPut: $A; - nextPutAll: 'BC'; - nextPut: 68; - nextPutAll: #(69 70 ) asByteArray. - self assert: codecStream contents = 'ABCDEF' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/properties.json b/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/properties.json deleted file mode 100644 index f4b84ea6..00000000 --- a/repository/Grease-Tests-Core.package/GRNullCodecStreamTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRNullCodecStreamTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNumberTest.class/README.md b/repository/Grease-Tests-Core.package/GRNumberTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testBetweenAnd.st b/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testBetweenAnd.st deleted file mode 100644 index 9af558f2..00000000 --- a/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testBetweenAnd.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testBetweenAnd - self assert: (6 between: 1 and: 12) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testPluralize.st b/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testPluralize.st deleted file mode 100644 index 6070cc58..00000000 --- a/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testPluralize.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testPluralize - self assert: (0 pluralize: 'person') = '0 people'. - self assert: (1 pluralize: 'person') = '1 person'. - self assert: (2 pluralize: 'person') = '2 people'. - self assert: (3 pluralize: 'person') = '3 people'. - - self assert: (0 pluralize: 'penis') = '0 penises'. - self assert: (1 pluralize: 'penis') = '1 penis'. - self assert: (2 pluralize: 'penis') = '2 penises'. - - self assert: (0 pluralize: 'person' with: 'members') = '0 members'. - self assert: (1 pluralize: 'person' with: 'members') = '1 person'. - self assert: (2 pluralize: 'person' with: 'members') = '2 members'. - self assert: (3 pluralize: 'person' with: 'members') = '3 members' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testReadFrom.st b/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testReadFrom.st deleted file mode 100644 index 71e4f7da..00000000 --- a/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testReadFrom.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testReadFrom - "We test #readFrom: as the expected behaviour on all platforms, as we rely on it for WANumberAttribute and WAQualifiedValue" - - self assert: (Number readFrom: '123' readStream) = 123. - - self assert: (Float readFrom: '123.45' readStream) = 123.45. - - self assert: (Number readFrom: '123.45' readStream) = 123.45 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testTo.st b/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testTo.st deleted file mode 100644 index 4399e357..00000000 --- a/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testTo.st +++ /dev/null @@ -1,26 +0,0 @@ -tests -testTo - | collection | - collection := OrderedCollection new. - 1 to: 5 do: [ :ea | collection add: ea ]. - self assert: collection asArray = #(1 2 3 4 5). - - collection := OrderedCollection new. - 4 to: 4 do: [ :ea | collection add: ea ]. - self assert: collection asArray = #(4). - - collection := OrderedCollection new. - 4 to: 4 do: [ :ea | collection add: ea ]. - self assert: collection asArray = #(4). - - collection := OrderedCollection new. - 5 to: 4 do: [ :ea | collection add: ea ]. - self assert: collection asArray = #(). - - collection := OrderedCollection new. - -3 to: -1.5 do: [ :ea | collection add: ea ]. - self assert: collection asArray = #(-3 -2). - - collection := OrderedCollection new. - 1.5 to: 4 do: [ :ea | collection add: ea ]. - self assert: collection asArray = #(1.5 2.5 3.5) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testToDo.st b/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testToDo.st deleted file mode 100644 index 46f411ff..00000000 --- a/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testToDo.st +++ /dev/null @@ -1,26 +0,0 @@ -tests -testToDo - | collection | - collection := OrderedCollection new. - 1 to: 5 do: [ :ea | collection add: ea ]. - self assert: collection asArray = #(1 2 3 4 5). - - collection := OrderedCollection new. - 4 to: 4 do: [ :ea | collection add: ea ]. - self assert: collection asArray = #(4). - - collection := OrderedCollection new. - 4 to: 4 do: [ :ea | collection add: ea ]. - self assert: collection asArray = #(4). - - collection := OrderedCollection new. - 5 to: 4 do: [ :ea | collection add: ea ]. - self assert: collection asArray = #(). - - collection := OrderedCollection new. - -3 to: -1.5 do: [ :ea | collection add: ea ]. - self assert: collection asArray = #(-3 -2). - - collection := OrderedCollection new. - 1.5 to: 4 do: [ :ea | collection add: ea ]. - self assert: collection asArray = #(1.5 2.5 3.5) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testToDoClosures.st b/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testToDoClosures.st deleted file mode 100644 index 0d989b13..00000000 --- a/repository/Grease-Tests-Core.package/GRNumberTest.class/instance/testToDoClosures.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testToDoClosures - "#to:do: may be optimized and VAST currently has problems with closures - in this case. We would prefer to use the optimized version than than - (1 to: 5) do: [ ... ] so this test is here to highlight the problem at - least unless the platforms tell us the problem is not fixable." - - | collection | - collection := OrderedCollection new. - 1 to: 5 do: [ :each | collection add: [ each ] ]. - self assert: (collection collect: [ :each | each value ]) asArray = #(1 2 3 4 5) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRNumberTest.class/properties.json b/repository/Grease-Tests-Core.package/GRNumberTest.class/properties.json deleted file mode 100644 index 8a9155fa..00000000 --- a/repository/Grease-Tests-Core.package/GRNumberTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRNumberTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRObjectStub.class/README.md b/repository/Grease-Tests-Core.package/GRObjectStub.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRObjectStub.class/instance/foo.st b/repository/Grease-Tests-Core.package/GRObjectStub.class/instance/foo.st deleted file mode 100644 index 116f7e5b..00000000 --- a/repository/Grease-Tests-Core.package/GRObjectStub.class/instance/foo.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -foo - ^ foo \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRObjectStub.class/instance/initialize.st b/repository/Grease-Tests-Core.package/GRObjectStub.class/instance/initialize.st deleted file mode 100644 index 03ea2354..00000000 --- a/repository/Grease-Tests-Core.package/GRObjectStub.class/instance/initialize.st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initialize - super initialize. - foo := true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRObjectStub.class/properties.json b/repository/Grease-Tests-Core.package/GRObjectStub.class/properties.json deleted file mode 100644 index 52a24e1f..00000000 --- a/repository/Grease-Tests-Core.package/GRObjectStub.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRObject", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "foo" - ], - "name" : "GRObjectStub", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRObjectTest.class/README.md b/repository/Grease-Tests-Core.package/GRObjectTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRObjectTest.class/instance/testError.st b/repository/Grease-Tests-Core.package/GRObjectTest.class/instance/testError.st deleted file mode 100644 index f2b3af73..00000000 --- a/repository/Grease-Tests-Core.package/GRObjectTest.class/instance/testError.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testError - "Make sure #error: signals a subclass of GRError." - self - should: [ GRObject new error: 'oh dear' ] - raise: GRError. - self - should: [ GRObject error: 'oh dear' ] - raise: GRError \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRObjectTest.class/instance/testInitialize.st b/repository/Grease-Tests-Core.package/GRObjectTest.class/instance/testInitialize.st deleted file mode 100644 index b9de583a..00000000 --- a/repository/Grease-Tests-Core.package/GRObjectTest.class/instance/testInitialize.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -testInitialize - "Make sure #initialize is called on #new and that calling 'super initialize' doesn't error." - self assert: GRObjectStub new foo \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRObjectTest.class/instance/testRespondsTo.st b/repository/Grease-Tests-Core.package/GRObjectTest.class/instance/testRespondsTo.st deleted file mode 100644 index 090f7b65..00000000 --- a/repository/Grease-Tests-Core.package/GRObjectTest.class/instance/testRespondsTo.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -testRespondsTo - self assert: (GRObject new respondsTo: #greaseString). - self deny: (GRObject new respondsTo: #makeMeASandwich) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRObjectTest.class/properties.json b/repository/Grease-Tests-Core.package/GRObjectTest.class/properties.json deleted file mode 100644 index e4a8e84e..00000000 --- a/repository/Grease-Tests-Core.package/GRObjectTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRObjectTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/README.md b/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/allowsDuplicateValues.st b/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/allowsDuplicateValues.st deleted file mode 100644 index 37514373..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/allowsDuplicateValues.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -allowsDuplicateValues - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/collectionClass.st deleted file mode 100644 index 74109bc1..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ OrderedCollection \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isExtensible.st b/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isExtensible.st deleted file mode 100644 index f9cac6cc..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isExtensible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isExtensible - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isHomogeneous.st b/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isHomogeneous.st deleted file mode 100644 index c136bcc0..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isHomogeneous.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isHomogeneous - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isInitializable.st b/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isInitializable.st deleted file mode 100644 index 2ea38e00..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isInitializable.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isInitializable - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isSequenced.st b/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isSequenced.st deleted file mode 100644 index 49222dce..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isSequenced.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isSequenced - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isUnique.st b/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isUnique.st deleted file mode 100644 index 9e721c84..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/instance/isUnique.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isUnique - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/properties.json b/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/properties.json deleted file mode 100644 index 483a308b..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedCollectionTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRAbstractSequenceableCollectionTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GROrderedCollectionTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedMultiMap2Test.class/README.md b/repository/Grease-Tests-Core.package/GROrderedMultiMap2Test.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GROrderedMultiMap2Test.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GROrderedMultiMap2Test.class/instance/collectionClass.st deleted file mode 100644 index 4bf83132..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedMultiMap2Test.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ GROrderedMultiMap2 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedMultiMap2Test.class/properties.json b/repository/Grease-Tests-Core.package/GROrderedMultiMap2Test.class/properties.json deleted file mode 100644 index 860dd197..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedMultiMap2Test.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GROrderedMultiMapTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GROrderedMultiMap2Test", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/README.md b/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/class/shouldInheritSelectors.st b/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/class/shouldInheritSelectors.st deleted file mode 100644 index 2c6de3f7..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/class/shouldInheritSelectors.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -shouldInheritSelectors - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/allowsDuplicateKeys.st b/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/allowsDuplicateKeys.st deleted file mode 100644 index 14ff082b..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/allowsDuplicateKeys.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -allowsDuplicateKeys - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/collectionClass.st deleted file mode 100644 index 9cad610c..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ GROrderedMultiMap \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/testAllAt.st b/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/testAllAt.st deleted file mode 100644 index 99c029ab..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/testAllAt.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-accessing -testAllAt - self assert: (collection allAt: '1') = #(). - collection at: '1' add: 'foo'. - collection at: '1' add: 'bar'. - self assert: (collection allAt: '1') = #( 'foo' 'bar' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/testAllAtIfAbsent.st b/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/testAllAtIfAbsent.st deleted file mode 100644 index ea599a20..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/testAllAtIfAbsent.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-accessing -testAllAtIfAbsent - self assert: (collection allAt: '1' ifAbsent: [ 'absent' ]) = 'absent'. - collection at: '1' add: 'foo'. - collection at: '1' add: 'bar'. - self assert: (collection allAt: '1' ifAbsent: [ 'absent' ]) = #( 'foo' 'bar' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/testAtAdd.st b/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/testAtAdd.st deleted file mode 100644 index ad44a9e0..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/testAtAdd.st +++ /dev/null @@ -1,5 +0,0 @@ -tests-accessing -testAtAdd - collection at: '1' add: 'foo'. - collection at: '1' add: 'bar'. - self assertAssociations: (Array with: '1' -> 'foo' with: '1' -> 'bar') \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/testKeysAndAllValuesDo.st b/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/testKeysAndAllValuesDo.st deleted file mode 100644 index 38309b80..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/instance/testKeysAndAllValuesDo.st +++ /dev/null @@ -1,19 +0,0 @@ -tests-enumerating -testKeysAndAllValuesDo - | seen | - collection at: '1' add: 'foo'. - collection at: '2' add: 'bar'. - collection at: '1' add: 'zork'. - seen := OrderedCollection new. - collection keysAndAllValuesDo: [ :key :values | - seen add: key -> values ]. - self assert: seen size = 2. - - self assert: (seen at: 1) key = '1'. - self assert: (seen at: 1) value size = 2. - self assert: ((seen at: 1) value at: 1) = 'foo'. - self assert: ((seen at: 1) value at: 2) = 'zork'. - - self assert: (seen at: 2) key = '2'. - self assert: (seen at: 2) value size = 1. - self assert: ((seen at: 2) value at: 1) = 'bar'. \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/properties.json b/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/properties.json deleted file mode 100644 index 4804b955..00000000 --- a/repository/Grease-Tests-Core.package/GROrderedMultiMapTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSmallDictionaryTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GROrderedMultiMapTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPackage.extension/class/greaseTestsCore.st b/repository/Grease-Tests-Core.package/GRPackage.extension/class/greaseTestsCore.st deleted file mode 100644 index 1ee7ba68..00000000 --- a/repository/Grease-Tests-Core.package/GRPackage.extension/class/greaseTestsCore.st +++ /dev/null @@ -1,8 +0,0 @@ -*grease-tests-core -greaseTestsCore - ^ self new - name: 'Grease-Tests-Core'; - description: 'Unit tests for the package Grease-Core.'; - addDependency: 'Grease-Core'; - url: #greaseUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPackage.extension/properties.json b/repository/Grease-Tests-Core.package/GRPackage.extension/properties.json deleted file mode 100644 index ae522a7e..00000000 --- a/repository/Grease-Tests-Core.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRPackage" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPackageTest.class/README.md b/repository/Grease-Tests-Core.package/GRPackageTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/setUp.st b/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/setUp.st deleted file mode 100644 index ec0dfeec..00000000 --- a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/setUp.st +++ /dev/null @@ -1,4 +0,0 @@ -running -setUp - super setUp. - package := GRPackage new \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testAllDependencies.st b/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testAllDependencies.st deleted file mode 100644 index 2b366fe7..00000000 --- a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testAllDependencies.st +++ /dev/null @@ -1,23 +0,0 @@ -tests-dependencies -testAllDependencies - | packages | - packages := Dictionary new. - packages - at: 'Lust' put: (GRPackage new - name: 'Lust'; - addDependency: 'Gluttony'; - addDependency: 'Greed'; - yourself); - at: 'Gluttony' put: (GRPackage new - name: 'Gluttony'; - addDependency: 'Greed'; - yourself); - at: 'Greed' put: (GRPackage new - name: 'Greed'; - yourself). - packages values - do: [ :each | each resolveWith: packages ]. - - self assert: (packages at: 'Lust') allDependencies size = 3. - self assert: (packages at: 'Gluttony') allDependencies size = 2. - self assert: (packages at: 'Greed') allDependencies size = 1 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDependencies.st b/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDependencies.st deleted file mode 100644 index dc012270..00000000 --- a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDependencies.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-dependencies -testDependencies - self assert: package dependencies isEmpty. - package addDependency: 'Lust'. - package addDependency: 'Envy'. - self assert: package dependencies size = 2. - self assert: package dependencies first = 'Lust'. - self assert: package dependencies last = 'Envy' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDescription.st b/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDescription.st deleted file mode 100644 index ef7be170..00000000 --- a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testDescription.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testDescription - self assert: package description isNil. - package description: 'A hopeless package'. - self assert: package description = 'A hopeless package' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testLicense.st b/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testLicense.st deleted file mode 100644 index eb98b684..00000000 --- a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testLicense.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testLicense - self assert: package license = #MIT. - self assert: package isMIT. - - package license: #LGPL. - self assert: package license = #LGPL. - self assert: package isLGPL \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testName.st b/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testName.st deleted file mode 100644 index f3115540..00000000 --- a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testName.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testName - self assert: package name isNil. - package name: 'Gimme-Hope'. - self assert: package name = 'Gimme-Hope' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testPackages.st b/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testPackages.st deleted file mode 100644 index 3c074d00..00000000 --- a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testPackages.st +++ /dev/null @@ -1,10 +0,0 @@ -tests-packages -testPackages - | packages | - packages := GRPackage grPackages. - self assert: packages notEmpty. - packages do: [ :each | - self assert: each name notEmpty. - self assert: each license notNil. - self deny: (each dependencies includes: nil). - self assert: each url notNil ]. \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testUrl.st b/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testUrl.st deleted file mode 100644 index 880c574d..00000000 --- a/repository/Grease-Tests-Core.package/GRPackageTest.class/instance/testUrl.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testUrl - self assert: package url isNil. - - package url: #seasideLGPLUrl. - self assert: package url = GRPackage new seasideLGPLUrl. - - package url: 'http://www.seaside.st/distributions'. - self assert: package url = 'http://www.seaside.st/distributions' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPackageTest.class/properties.json b/repository/Grease-Tests-Core.package/GRPackageTest.class/properties.json deleted file mode 100644 index ad6dc9c9..00000000 --- a/repository/Grease-Tests-Core.package/GRPackageTest.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "package" - ], - "name" : "GRPackageTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/README.md b/repository/Grease-Tests-Core.package/GRPlatformTest.class/README.md deleted file mode 100644 index 4273d558..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/README.md +++ /dev/null @@ -1 +0,0 @@ -A GRPlatformTest is a test to make sure the platform (= the Smalltalk dialect we are running on) implements the protocol we need for system classes like Collection. An example would be to make sure Collection implements #count: with the semantics we need. \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/decodeUtf8Character..st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/decodeUtf8Character..st deleted file mode 100644 index 12710457..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/decodeUtf8Character..st +++ /dev/null @@ -1,9 +0,0 @@ -private -decodeUtf8Character: aCollectionOfIntegers - "Decodes a collection of bytes into a single character. We have this so we can avoid having non-ASCII characters in the source." - | codec toDecode decoded | - codec := GRCodec forEncoding: 'utf-8'. - toDecode := aCollectionOfIntegers asByteArray. - decoded := codec decode: toDecode. - self assert: decoded size = 1. - ^ decoded first \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/platform.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/platform.st deleted file mode 100644 index 63cfbfa2..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/platform.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -platform - - ^ GRPlatform current \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/returnSender.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/returnSender.st deleted file mode 100644 index 97bd2a26..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/returnSender.st +++ /dev/null @@ -1,4 +0,0 @@ -private -returnSender - - ^ GRPlatform current thisContext sender \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/runCase.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/runCase.st deleted file mode 100644 index 9465625f..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/runCase.st +++ /dev/null @@ -1,3 +0,0 @@ -running -runCase - GRPlatform current doSilently: [ super runCase ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testAsNumber.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testAsNumber.st deleted file mode 100644 index d639d2d7..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testAsNumber.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -testAsNumber - self assert: 2007 asNumber = 2007. - self assert: '2007' asNumber = 2007 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Decode.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Decode.st deleted file mode 100644 index 92cf811a..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Decode.st +++ /dev/null @@ -1,14 +0,0 @@ -tests-encoding -testBase64Decode - | input | - input := #( - 'YW55IGNhcm5hbCBwbGVhc3VyZS4=' 'any carnal pleasure.' - 'YW55IGNhcm5hbCBwbGVhc3VyZQ==' 'any carnal pleasure' - 'YW55IGNhcm5hbCBwbGVhc3Vy' 'any carnal pleasur' - 'YW55IGNhcm5hbCBwbGVhc3U=' 'any carnal pleasu' - 'YW55IGNhcm5hbCBwbGVhcw==' 'any carnal pleas'). - 1 to: input size by: 2 do: [ :index | - | decoded expected | - decoded := GRPlatform current base64Decode: (input at: index). - expected := input at: index + 1. - self assert: decoded = expected ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Encode.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Encode.st deleted file mode 100644 index 5bf20858..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Encode.st +++ /dev/null @@ -1,14 +0,0 @@ -tests-encoding -testBase64Encode - | input | - input := #( - (97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117 114 101 46) 'YW55IGNhcm5hbCBwbGVhc3VyZS4=' - (97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117 114 101) 'YW55IGNhcm5hbCBwbGVhc3VyZQ==' - (97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117 114) 'YW55IGNhcm5hbCBwbGVhc3Vy' - (97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117) 'YW55IGNhcm5hbCBwbGVhc3U=' - (97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115) 'YW55IGNhcm5hbCBwbGVhcw=='). - 1 to: input size by: 2 do: [ :index | - | decoded expected | - decoded := GRPlatform current base64Encode: (input at: index) asByteArray. - expected := input at: index + 1. - self assert: decoded = expected ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBindingOf.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBindingOf.st deleted file mode 100644 index 20a0fca5..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBindingOf.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testBindingOf - | binding | - binding := GRPlatform current bindingOf: GRPlatform. - self assert: binding value == GRPlatform \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBlockContextWithPossibleArguments.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBlockContextWithPossibleArguments.st deleted file mode 100644 index 9ae21150..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBlockContextWithPossibleArguments.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testBlockContextWithPossibleArguments - | block | - block := [ :x | 1 + x ]. - self assert: (block valueWithPossibleArguments: (Array with: 2)) = 3. - - block := [ false not ]. - self assert: (block valueWithPossibleArguments: (Array with: 3)) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBlockValuableProtocol.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBlockValuableProtocol.st deleted file mode 100644 index 89d324a4..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBlockValuableProtocol.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testBlockValuableProtocol - self assert: [ nil ] argumentCount isZero. - self assert: [ :x | x ] argumentCount = 1. - self assert: [ :a :b | a + b ] argumentCount = 2. - self - shouldnt: [ [ nil ] ] - raise: Error. - self - shouldnt: [ [ :x | x ] ] - raise: Error. - self - shouldnt: [ [ :a :b | a + b ] ] - raise: Error \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCharacterAsUnicode.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCharacterAsUnicode.st deleted file mode 100644 index 7269711a..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCharacterAsUnicode.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testCharacterAsUnicode - "test for: - Character >> #asUnicode - ^self asInteger" - self assert: $S asUnicode = 83 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCharacterTo.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCharacterTo.st deleted file mode 100644 index fe24d438..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCharacterTo.st +++ /dev/null @@ -1,75 +0,0 @@ -tests -testCharacterTo - | actual expected | - actual := Array withAll: 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_-'. - actual := actual collect: [ :each | each greaseInteger ]. - expected := #( - 97 - 98 - 99 - 100 - 101 - 102 - 103 - 104 - 105 - 106 - 107 - 108 - 109 - 110 - 111 - 112 - 113 - 114 - 115 - 116 - 117 - 118 - 119 - 120 - 121 - 122 - 65 - 66 - 67 - 68 - 69 - 70 - 71 - 72 - 73 - 74 - 75 - 76 - 77 - 78 - 79 - 80 - 81 - 82 - 83 - 84 - 85 - 86 - 87 - 88 - 89 - 90 - 48 - 49 - 50 - 51 - 52 - 53 - 54 - 55 - 56 - 57 - 95 - 45 - ). - self assert: actual size = expected size. - actual - with: expected - do: [ :first :second | self assert: first = second ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st deleted file mode 100644 index cac5ef2b..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st +++ /dev/null @@ -1,17 +0,0 @@ -tests-mop -testCompileAsciiString - | selector expected source | - - GRPlatform current supportsUnicode ifFalse: [ - ^ self ]. - - selector := #stringMethod. - expected := 'test ok'. - source := GRPlatform current asMethodReturningString: expected named: selector. - [ - | actual | - GRPlatform current compile: source into: self class classified: 'private'. - actual := self perform: selector. - self assert: expected = actual - ] ensure: [ - GRPlatform current removeSelector: #stringMethod from: self class ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileUnicodeString.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileUnicodeString.st deleted file mode 100644 index 116559bd..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileUnicodeString.st +++ /dev/null @@ -1,15 +0,0 @@ -tests-mop -testCompileUnicodeString - | selector expected source | - selector := #stringMethod. - expected := String - with: (Character value: 16r1F1F3) - with: (Character value: 16r1F1F1). - source := GRPlatform current asMethodReturningString: expected named: selector. - [ - | actual | - GRPlatform current compile: source into: self class classified: 'private'. - actual := self perform: selector. - self assert: expected = actual - ] ensure: [ - GRPlatform current removeSelector: #stringMethod from: self class ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testConvertToSmalltalkNewlines.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testConvertToSmalltalkNewlines.st deleted file mode 100644 index b77b8fca..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testConvertToSmalltalkNewlines.st +++ /dev/null @@ -1,19 +0,0 @@ -tests -testConvertToSmalltalkNewlines - | expected | - expected := 'a' , GRPlatform current newline , 'b'. - self assert: (GRPlatform current convertToSmalltalkNewlines: nil) isNil. - self assert: (GRPlatform current convertToSmalltalkNewlines: '') = ''. - self assert: (GRPlatform current convertToSmalltalkNewlines: 'abc') = 'abc'. - self - assert: (GRPlatform current convertToSmalltalkNewlines: 'a' , (String with: Character cr with: Character lf) , 'b') - = expected - description: 'Multics, Unix and Unix-like systems (GNU/Linux, AIX, Xenix, Mac OS X, FreeBSD, etc.), BeOS, Amiga, RISC OS, and others'. - self - assert: (GRPlatform current convertToSmalltalkNewlines: 'a' , (String with: Character lf) , 'b') - = expected - description: 'DEC RT-11 and most other early non-Unix, non-IBM OSes, CP/M, MP/M, MS-DOS, OS/2, Microsoft Windows, Symbian OS'. - self - assert: (GRPlatform current convertToSmalltalkNewlines: 'a' , (String with: Character cr) , 'b') - = expected - description: 'Commodore 8-bit machines, TRS-80, Apple II family, Mac OS up to version 9 and OS-9' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testDateArithmetic.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testDateArithmetic.st deleted file mode 100644 index 1e678d4e..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testDateArithmetic.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testDateArithmetic - | today tomorrow oneDay minusOneDay | - today := DateAndTime year: 2008 month: 9 day: 13 hour: 14 minute: 32 second: 05 offset: Duration zero. - tomorrow := DateAndTime year: 2008 month: 9 day: 14 hour: 14 minute: 32 second: 05 offset: Duration zero. - oneDay := Duration days: 1 hours: 0 minutes: 0 seconds: 0. - minusOneDay := Duration days: -1 hours: 0 minutes: 0 seconds: 0. - self assert: tomorrow - today = oneDay. - self assert: today - tomorrow = minusOneDay. - self assert: today + oneDay = tomorrow. - self assert: tomorrow - oneDay = today. - self assert: tomorrow + minusOneDay = today. - self assert: today - minusOneDay = tomorrow \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testDaysInMonthForYear.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testDaysInMonthForYear.st deleted file mode 100644 index b3e67f82..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testDaysInMonthForYear.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -testDaysInMonthForYear - (1 to: 12) with: #(31 28 31 30 31 30 31 31 30 31 30 31) do: [ :month :days | - self assert: days = (Date daysInMonth: (Date nameOfMonth: month) forYear: 2007) ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testDigitValue.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testDigitValue.st deleted file mode 100644 index 97f55dcf..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testDigitValue.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testDigitValue - '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' - with: (0 to: 35) - do: [ :each :expected | self assert: each digitValue = expected ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testEmptyOrNil.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testEmptyOrNil.st deleted file mode 100644 index 63d4e8f9..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testEmptyOrNil.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testEmptyOrNil - self assert: '' isEmptyOrNil. - self assert: nil isEmptyOrNil. - self assert: Array new isEmptyOrNil. - self deny: 'Timberwolf' isEmptyOrNil \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st deleted file mode 100644 index 2e7a73fa..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-files -testFileExists - | theFileName | - self - writeToFile: 'test' - withFileNameDo:[ :fileName | - self assert: (GRPlatform current fileExists: fileName). - theFileName := fileName ]. - self deny: (GRPlatform current fileExists: theFileName) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseAsByteArray.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseAsByteArray.st deleted file mode 100644 index 545b3c5b..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseAsByteArray.st +++ /dev/null @@ -1,7 +0,0 @@ -tests-encoding -testGreaseAsByteArray - self assert: 1024 greaseAsByteArray equals: #[4 0]. - self assert: (SmallInteger maxVal + 10) greaseAsByteArray equals: #[16 0 0 0 0 0 0 9]. - self assert: (SmallInteger minVal - 10) greaseAsByteArray equals: #[16 0 0 0 0 0 0 10]. - self assert: #[1 2 3] greaseAsByteArray equals: #[1 2 3]. - self assert: '123' greaseAsByteArray equals: #[49 50 51] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseByteAt.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseByteAt.st deleted file mode 100644 index 3d2b1b9c..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseByteAt.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-encoding -testGreaseByteAt - self assert: (1024 greaseByteAt: 1) equals: 0. - self assert: (1024 greaseByteAt: 2) equals: 4. - self assert: ((SmallInteger maxVal + 10) greaseByteAt: 1) equals: 9. - self assert: ((SmallInteger maxVal + 10) greaseByteAt: 8) equals: 16. - self assert: ((SmallInteger minVal - 10) greaseByteAt: 1) equals: 10. - self assert: ((SmallInteger minVal - 10) greaseByteAt: 8) equals: 16 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseBytesCount.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseBytesCount.st deleted file mode 100644 index d69bbf63..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseBytesCount.st +++ /dev/null @@ -1,5 +0,0 @@ -tests-encoding -testGreaseBytesCount - self assert: 1024 greaseBytesCount equals: 2. - self assert: (SmallInteger maxVal + 10) greaseBytesCount equals: 8. - self assert: (SmallInteger minVal + 10) greaseBytesCount equals: 8 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnCharacterAscii.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnCharacterAscii.st deleted file mode 100644 index f1f84439..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnCharacterAscii.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testGreaseIntegerOnCharacterAscii - "ASCII (1 byte)" - self assert: $a greaseInteger = 97. - self assert: $A greaseInteger = 65 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnCharacterBmp.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnCharacterBmp.st deleted file mode 100644 index 8155584d..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnCharacterBmp.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testGreaseIntegerOnCharacterBmp - "BMP (3 byte)" - | euro | - euro := self decodeUtf8Character: #(226 130 172 ). - self assert: euro greaseInteger = 8364 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnCharacterLatin1.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnCharacterLatin1.st deleted file mode 100644 index 58026237..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnCharacterLatin1.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testGreaseIntegerOnCharacterLatin1 - "Latin-1 (2 byte)" - | oWithStroke | - oWithStroke := self decodeUtf8Character: #(195 152 ). - self assert: oWithStroke greaseInteger = 216 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnCharacterSmp.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnCharacterSmp.st deleted file mode 100644 index 9d8c6743..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnCharacterSmp.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testGreaseIntegerOnCharacterSmp - "SMP (4 byte)" - | manna | - manna := self decodeUtf8Character: #(240 144 140 188 ). - self assert: manna greaseInteger = 66364 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnNumber.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnNumber.st deleted file mode 100644 index d630ec7d..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnNumber.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testGreaseIntegerOnNumber - self assert: 2007 greaseInteger = 2007. - self assert: 2007.0 greaseInteger = 2007. - self assert: 2007.1 greaseInteger = 2007. - self assert: 2007.9 greaseInteger = 2007 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnString.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnString.st deleted file mode 100644 index 635dd4b5..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseIntegerOnString.st +++ /dev/null @@ -1,16 +0,0 @@ -tests -testGreaseIntegerOnString - self assert: '' greaseInteger isNil. - self assert: 'a' greaseInteger isNil. - self assert: ' 1' greaseInteger isNil. - self assert: 'a1' greaseInteger isNil. - self assert: '-' greaseInteger isNil. - self assert: '-a' greaseInteger isNil. - self assert: '0' greaseInteger = 0. - self assert: '12' greaseInteger = 12. - self assert: '123' greaseInteger = 123. - self assert: '123456789' greaseInteger = 123456789. - self assert: '-0' greaseInteger = 0. - self assert: '-12' greaseInteger = -12. - self assert: '-123.4' greaseInteger = -123. - self assert: '-123456789' greaseInteger = -123456789 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseString.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseString.st deleted file mode 100644 index 94d10350..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testGreaseString.st +++ /dev/null @@ -1,29 +0,0 @@ -tests -testGreaseString - self assert: 'Timberwolf' greaseString = 'Timberwolf'. - self assert: #DireWolf greaseString = 'DireWolf'. - self deny: #DireWolf greaseString isSymbol. - self assert: true greaseString = 'true'. - self assert: 666 greaseString = '666'. - "make sure we're not immediate" - self assert: ((2 raisedTo: 64) + 1) greaseString = '18446744073709551617'. - "make sure we're not immediate" - self assert: ((2 raisedTo: 64) + 1) negated greaseString = '-18446744073709551617'. - self assert: $A greaseString = 'A'. - self assert: nil greaseString = 'nil'. - [ "Smalltalk/X has constant folding so 1 / 0 will be evaluated at compile time - resulting in an error when loading the code." - 1 perform: #/ with: 0 ] - on: ZeroDivide - do: [ :error | self assert: error greaseString isString ]. - self assert: 15.25 greaseString = '15.25'. - self assert: nil greaseString isString. - self assert: (4 @ 2) greaseString = '4@2'. - "#greaseString for a byte array should not do any decoding - this is in place to catch encoding errors early" - self assert: #(101 97 ) asByteArray greaseString ~= 'ea'. - self assert: #(101 97 ) asByteArray greaseString isString. - self assert: Object new greaseString isString. - "Printing scaled decimals (https://github.com/SeasideSt/Grease/issues/1)" - self assert: 1.21s3 greaseString = '1.210'. - self assert: -1.21s3 greaseString = '-1.210' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIfNil.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIfNil.st deleted file mode 100644 index 62f4c0ac..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIfNil.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -testIfNil - self assert: (nil ifNil: [ 1 ]) = 1. - self assert: (1 ifNil: [ 2 ]) = 1 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIfTrueIfFalse.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIfTrueIfFalse.st deleted file mode 100644 index 96f2035c..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIfTrueIfFalse.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testIfTrueIfFalse - self assert: (false ifFalse: [ #false ]) = #false. - self assert: (false ifTrue: [ #true ]) isNil. - self assert: (true ifTrue: [ #true ]) = #true. - self assert: (true ifFalse: [ #false ]) isNil. - self assert: (true ifTrue: [ #true ] ifFalse: [ #false ]) = #true. - self assert: (false ifTrue: [ #true ] ifFalse: [ #false ]) = #false. - self assert: (true ifFalse: [ #false ] ifTrue: [ #true ]) = #true. - self assert: (false ifFalse: [ #false ] ifTrue: [ #true ]) = #false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIsCharacter.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIsCharacter.st deleted file mode 100644 index 3f99b609..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIsCharacter.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -testIsCharacter - self deny: 7 isCharacter. - self assert: $7 isCharacter \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIsCollection.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIsCollection.st deleted file mode 100644 index f47c0513..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIsCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testIsCollection - self deny: Object new isCollection \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIsKeyword.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIsKeyword.st deleted file mode 100644 index 40484c0e..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIsKeyword.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testIsKeyword - self deny: #isKeyword isKeyword. - self deny: #+ isKeyword. - self assert: #isKeyword: isKeyword. - self assert: #isKeyword:isKeyword: isKeyword \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIsUnary.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIsUnary.st deleted file mode 100644 index cfaf6b77..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testIsUnary.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testIsUnary - self assert: #isUnary isUnary. - self deny: #+ isUnary. - self deny: #isUnary: isUnary. - self deny: #isUnary:isUnary: isUnary \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testLabel.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testLabel.st deleted file mode 100644 index 54ce0ae7..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testLabel.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -testLabel - self assert: (self platform label isKindOf: String). - self deny: self platform label isEmpty \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFile.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFile.st deleted file mode 100644 index a4c49df3..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFile.st +++ /dev/null @@ -1,20 +0,0 @@ -tests-files -testNewTemporaryFile - - | temporaryFile1 temporaryFile2 | - [ - temporaryFile1 := GRPlatform current newTemporaryFile. - temporaryFile2 := GRPlatform current newTemporaryFile. - GRPlatform current - writeFileStreamOn: temporaryFile1 - do: [ :str | str nextPutAll: 'test temporary' ] - binary: false. - GRPlatform current - writeFileStreamOn: temporaryFile2 - do: [ :str | str nextPutAll: #[116 101 115 116 32 116 101 109 112 111 114 97 114 121] ] - binary: true. - self assert: (GRPlatform current fileExists: temporaryFile1). - self deny: (GRPlatform current localNameOf: temporaryFile1) equals: (GRPlatform current localNameOf: temporaryFile2) - ] ensure: [ GRPlatform current deleteFile: temporaryFile1. GRPlatform current deleteFile: temporaryFile2 ]. - self deny: (GRPlatform current fileExists: temporaryFile1). - self deny: (GRPlatform current fileExists: temporaryFile2) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFileNamed.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFileNamed.st deleted file mode 100644 index 354c5403..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewTemporaryFileNamed.st +++ /dev/null @@ -1,16 +0,0 @@ -tests-files -testNewTemporaryFileNamed - - | temporaryFile fileName | - fileName := 'GRPlatformTestTemporaryFile'. - [ - temporaryFile := GRPlatform current newTemporaryFileNamed: fileName. - GRPlatform current - writeFileStreamOn: temporaryFile - do: [ :str | str nextPutAll: 'test temporary' ] - binary: false. - self assert: (GRPlatform current fileExists: temporaryFile). - self should: [ GRPlatform current newTemporaryFileNamed: fileName ] raise: GRError. - ] ensure: [ GRPlatform current deleteFile: temporaryFile ]. - self deny: (GRPlatform current fileExists: temporaryFile). - \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewline.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewline.st deleted file mode 100644 index 08046aea..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNewline.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -testNewline - self assert: GRPlatform current newline isString. - self deny: GRPlatform current newline isEmpty \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNumArgs.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNumArgs.st deleted file mode 100644 index 989d32c6..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testNumArgs.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testNumArgs - self assert: #not numArgs isZero. - self assert: #+ numArgs = 1. - self assert: #and: numArgs = 1. - self assert: #value:value: numArgs = 2 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testPathSeparator.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testPathSeparator.st deleted file mode 100644 index 4ffaf549..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testPathSeparator.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testPathSeparator - self assert: GRPlatform current pathSeparator isString \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testPrintStringLimitedTo.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testPrintStringLimitedTo.st deleted file mode 100644 index 0038d9c0..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testPrintStringLimitedTo.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testPrintStringLimitedTo - - | longString shortString | - longString := String streamContents: [ :stream | - 1 to: 1000 do: [ :i | stream nextPutAll: i printString ] ]. - "Squeak implementation adds 9 characters to limited string and VA Smalltalk adds 10, so we can't do an exact count." - self assert: longString printString size > 65. - shortString := longString printStringLimitedTo: 50. - self assert: shortString size < 65 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testRandomGenerator.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testRandomGenerator.st deleted file mode 100644 index 6198a03f..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testRandomGenerator.st +++ /dev/null @@ -1,19 +0,0 @@ -tests-streams -testRandomGenerator - | generator collection | - generator := self platform newRandom. - self should: [ generator nextInt: 0 ] raise: Error. - self assert: (generator nextInt: 1) = 1. - collection := (1 to: 200) collect: [ :ea | generator nextInt: 2 ]. - self assert: (collection includes: 1). - self assert: (collection includes: 2). - self assert: collection asSet size = 2. - - collection := 1 to: 5. - self assert: (collection includes: (generator randomFrom: collection)). - collection := -1.5 to: 3.5. - self assert: (collection includes: (generator randomFrom: collection)). - collection := #(1 2 3 4 5). - self assert: (collection includes: (generator randomFrom: collection)). - collection := #(1 2 3 4 5) asSet. - self assert: (collection includes: (generator randomFrom: collection)) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamAtEnd.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamAtEnd.st deleted file mode 100644 index ab628d8f..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamAtEnd.st +++ /dev/null @@ -1,10 +0,0 @@ -tests-streams -testReadStreamAtEnd - "ANSI 5.9.2.1" - - | stream | - stream := '' readStream. - self assert: stream atEnd. - - stream := 'a' readStream. - self deny: stream atEnd \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamContents.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamContents.st deleted file mode 100644 index 07727c60..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamContents.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-streams -testReadStreamContents - "ANSI 5.9.3.1" - - | stream | - stream := 'abc' readStream. - self assert: stream contents = 'abc'. - stream next: 2. - self assert: stream contents = 'abc' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamNegativeSkip.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamNegativeSkip.st deleted file mode 100644 index a8cf56f8..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamNegativeSkip.st +++ /dev/null @@ -1,14 +0,0 @@ -tests-streams -testReadStreamNegativeSkip - "ANSI does not mention negative values being used with #skip: but we - believe they work consistently. If not, we need to update our coding - conventions to make sure we never do this." - - | stream position | - stream := 'abcd' readStream. - stream next; next. - position := stream position. - self assert: (stream peek) = $c. - stream skip: -1. - self assert: stream position = (position - 1). - self assert: (stream peek) = $b \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamNext.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamNext.st deleted file mode 100644 index 581922ff..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamNext.st +++ /dev/null @@ -1,10 +0,0 @@ -tests-streams -testReadStreamNext - "ANSI 5.9.2.3" - - | stream | - stream := 'abcd' readStream. - self assert: stream next = $a. - self assert: (stream next: 0) = ''. - self assert: (stream next: 1) = 'b'. - self assert: (stream next: 2) = 'cd' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamPeek.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamPeek.st deleted file mode 100644 index 85e06606..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamPeek.st +++ /dev/null @@ -1,10 +0,0 @@ -tests-streams -testReadStreamPeek - "ANSI 5.9.2.7" - - | stream | - stream := 'abcd' readStream. - self assert: stream peek = $a. - - stream := '' readStream. - self assert: stream peek isNil \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamPosition.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamPosition.st deleted file mode 100644 index a27c4c50..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamPosition.st +++ /dev/null @@ -1,22 +0,0 @@ -tests-streams -testReadStreamPosition - "ANSI 5.9.1.4 and 5.9.1.5" - - | stream | - stream := 'abc' readStream. - self assert: stream position = 0. - stream next. - self assert: stream position = 1. - stream next. - self assert: stream position = 2. - stream next. - self assert: stream position = 3. - - stream position: 1. - self assert: stream position = 1. - self assert: stream next = $b. - stream position: 0. - self assert: stream position = 0. - self assert: stream next = $a. - stream position: 3. - self assert: stream atEnd \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamReset.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamReset.st deleted file mode 100644 index cdc32cce..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamReset.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-streams -testReadStreamReset - "ANSI 5.9.1.6" - - | stream | - stream := 'abc' readStream. - stream next: 2. - stream reset. - self assert: stream next = $a \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamSeasideUpToAll.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamSeasideUpToAll.st deleted file mode 100644 index 818f0bbb..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamSeasideUpToAll.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-streams-seaside -testReadStreamSeasideUpToAll - | stream string1 string2 | - stream := 'abc12def' readStream. - string1 := stream greaseUpToAll: '12'. - string2 := stream greaseUpToAll: '12'. - self assert: string1 = 'abc'. - self assert: string2 = 'def'. - self assert: stream atEnd \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamSkip.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamSkip.st deleted file mode 100644 index 51e45f77..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamSkip.st +++ /dev/null @@ -1,7 +0,0 @@ -tests-streams -testReadStreamSkip - "ANSI 5.9.2.9" - - | stream | - stream := 'abcd' readStream. - self assert: (stream skip: 2; peek) = $c \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamUpTo.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamUpTo.st deleted file mode 100644 index 77959ae6..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamUpTo.st +++ /dev/null @@ -1,12 +0,0 @@ -tests-streams -testReadStreamUpTo - "ANSI 5.9.2.11" - - | stream | - stream := 'abcd' readStream. - self assert: (stream upTo: $c) = 'ab'. - self assert: stream next = $d. - - stream := 'abcd' readStream. - self assert: (stream upTo: $x) = 'abcd'. - self assert: stream atEnd \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamUpToEnd.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamUpToEnd.st deleted file mode 100644 index a49dba9d..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadStreamUpToEnd.st +++ /dev/null @@ -1,15 +0,0 @@ -tests-streams -testReadStreamUpToEnd - "Not defined by ANSI." - - | stream | - stream := 'abcd' readStream. - self assert: stream upToEnd = 'abcd'. - self assert: stream atEnd. - self assert: stream upToEnd = ''. - self assert: stream atEnd. - - stream := 'abcd' readStream. - stream upTo: $b. - self assert: stream upToEnd = 'cd'. - self assert: stream atEnd \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamAtEnd.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamAtEnd.st deleted file mode 100644 index 7354b795..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamAtEnd.st +++ /dev/null @@ -1,10 +0,0 @@ -tests-streams -testReadWriteStreamAtEnd - "ANSI 5.9.2.1" - | stream | - stream := GRPlatform current readWriteCharacterStream. - self assert: stream atEnd. - stream - nextPut: $a; - reset. - self deny: stream atEnd \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamContents.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamContents.st deleted file mode 100644 index 38c75d17..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamContents.st +++ /dev/null @@ -1,18 +0,0 @@ -tests-streams -testReadWriteStreamContents - "ANSI 5.9.3.1" - | stream | - stream := GRPlatform current readWriteCharacterStream. - stream - nextPutAll: 'abc'; - reset. - self assert: stream contents = 'abc'. - stream next: 2. - self assert: stream contents = 'abc'. - stream := GRPlatform current readWriteByteStream. - stream - nextPutAll: 'abc' asByteArray; - reset. - self assert: stream contents = 'abc' asByteArray. - stream next: 2. - self assert: stream contents = 'abc' asByteArray \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamNegativeSkip.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamNegativeSkip.st deleted file mode 100644 index 34940f95..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamNegativeSkip.st +++ /dev/null @@ -1,30 +0,0 @@ -tests-streams -testReadWriteStreamNegativeSkip - "ANSI does not mention negative values being used with #skip: but we - believe they work consistently. If not, we need to update our coding - conventions to make sure we never do this." - | stream position | - stream := GRPlatform current readWriteCharacterStream. - stream - nextPutAll: 'abcd'; - reset. - stream - next; - next. - position := stream position. - self assert: stream peek = $c. - stream skip: -1. - self assert: stream position = (position - 1). - self assert: stream peek = $b. - stream := GRPlatform current readWriteByteStream. - stream - nextPutAll: 'abcd' asByteArray; - reset. - stream - next; - next. - position := stream position. - self assert: stream peek = 99. - stream skip: -1. - self assert: stream position = (position - 1). - self assert: stream peek = 98 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamNext.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamNext.st deleted file mode 100644 index 47682782..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamNext.st +++ /dev/null @@ -1,20 +0,0 @@ -tests-streams -testReadWriteStreamNext - "ANSI 5.9.2.3" - | stream | - stream := GRPlatform current readWriteCharacterStream. - stream - nextPutAll: 'abcd'; - reset. - self assert: stream next = $a. - self assert: (stream next: 0) = ''. - self assert: (stream next: 1) = 'b'. - self assert: (stream next: 2) = 'cd'. - stream := GRPlatform current readWriteByteStream. - stream - nextPutAll: 'abcd' asByteArray; - reset. - self assert: stream next = 97. - self assert: (stream next: 0) = '' asByteArray. - self assert: (stream next: 1) = 'b' asByteArray. - self assert: (stream next: 2) = 'cd' asByteArray \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamNextPut.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamNextPut.st deleted file mode 100644 index 5ada97a7..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamNextPut.st +++ /dev/null @@ -1,10 +0,0 @@ -tests-streams -testReadWriteStreamNextPut - "ANSI 5.9.4.3" - | stream | - stream := GRPlatform current readWriteCharacterStream. - stream nextPut: $a. - self assert: stream contents = 'a'. - stream := GRPlatform current readWriteByteStream. - stream nextPut: 97. - self assert: stream contents = 'a' asByteArray \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamNextPutAll.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamNextPutAll.st deleted file mode 100644 index 61ffa49a..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamNextPutAll.st +++ /dev/null @@ -1,13 +0,0 @@ -tests-streams -testReadWriteStreamNextPutAll - "ANSI 5.9.4.4" - | stream | - stream := GRPlatform current readWriteCharacterStream. - stream nextPutAll: 'abc'. - self assert: stream contents = 'abc'. - stream := GRPlatform current readWriteCharacterStream. - stream nextPutAll: #($a $b $c). - self assert: stream contents = 'abc'. - stream := GRPlatform current readWriteByteStream. - stream nextPutAll: #(97 98 99 ) asByteArray. - self assert: stream contents = 'abc' asByteArray \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamPeek.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamPeek.st deleted file mode 100644 index d505748f..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamPeek.st +++ /dev/null @@ -1,16 +0,0 @@ -tests-streams -testReadWriteStreamPeek - "ANSI 5.9.2.7" - | stream | - stream := GRPlatform current readWriteCharacterStream. - self assert: stream peek isNil. - stream := GRPlatform current readWriteCharacterStream. - stream - nextPutAll: 'abcd'; - reset. - self assert: stream peek = $a. - stream := GRPlatform current readWriteByteStream. - stream - nextPutAll: 'abcd' asByteArray; - reset. - self assert: stream peek = 97 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamPosition.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamPosition.st deleted file mode 100644 index 02c201d9..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamPosition.st +++ /dev/null @@ -1,42 +0,0 @@ -tests-streams -testReadWriteStreamPosition - "ANSI 5.9.1.4 and 5.9.1.5" - | stream | - stream := GRPlatform current readWriteCharacterStream. - stream - nextPutAll: 'abc'; - reset. - self assert: stream position = 0. - stream next. - self assert: stream position = 1. - stream next. - self assert: stream position = 2. - stream next. - self assert: stream position = 3. - stream position: 1. - self assert: stream position = 1. - self assert: stream next = $b. - stream position: 0. - self assert: stream position = 0. - self assert: stream next = $a. - stream position: 3. - self assert: stream atEnd. - stream := GRPlatform current readWriteByteStream. - stream - nextPutAll: 'abc' asByteArray; - reset. - self assert: stream position = 0. - stream next. - self assert: stream position = 1. - stream next. - self assert: stream position = 2. - stream next. - self assert: stream position = 3. - stream position: 1. - self assert: stream position = 1. - self assert: stream next = 98. - stream position: 0. - self assert: stream position = 0. - self assert: stream next = 97. - stream position: 3. - self assert: stream atEnd \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamReset.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamReset.st deleted file mode 100644 index 78b3dffa..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamReset.st +++ /dev/null @@ -1,24 +0,0 @@ -tests-streams -testReadWriteStreamReset - "ANSI 5.9.1.6" - | stream | - stream := GRPlatform current readWriteCharacterStream. - stream - nextPutAll: 'abc'; - reset. - stream next: 2. - stream reset. - self assert: stream next = $a. - stream := GRPlatform current readWriteCharacterStream. - stream - nextPutAll: 'abc'; - reset. - stream nextPutAll: 'def'. - self assert: stream contents = 'def'. - stream := GRPlatform current readWriteByteStream. - stream - nextPutAll: 'abc' asByteArray; - reset. - stream next: 2. - stream reset. - self assert: stream next = 97 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamSkip.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamSkip.st deleted file mode 100644 index e2537aec..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamSkip.st +++ /dev/null @@ -1,18 +0,0 @@ -tests-streams -testReadWriteStreamSkip - "ANSI 5.9.2.9" - | stream | - stream := GRPlatform current readWriteCharacterStream. - stream - nextPutAll: 'abcd'; - reset. - self assert: (stream - skip: 2; - peek) = $c. - stream := GRPlatform current readWriteByteStream. - stream - nextPutAll: 'abcd' asByteArray; - reset. - self assert: (stream - skip: 2; - peek) = 99 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamTab.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamTab.st deleted file mode 100644 index 675554e0..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamTab.st +++ /dev/null @@ -1,7 +0,0 @@ -tests-streams -testReadWriteStreamTab - "ANSI 5.9.4.6" - | stream | - stream := GRPlatform current readWriteCharacterStream. - stream tab. - self assert: stream contents first = Character tab \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamUpTo.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamUpTo.st deleted file mode 100644 index f0c43d30..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamUpTo.st +++ /dev/null @@ -1,28 +0,0 @@ -tests-streams -testReadWriteStreamUpTo - "ANSI 5.9.2.11" - | stream | - stream := GRPlatform current readWriteCharacterStream. - stream - nextPutAll: 'abcd'; - reset. - self assert: (stream upTo: $c) = 'ab'. - self assert: stream next = $d. - stream := GRPlatform current readWriteCharacterStream. - stream - nextPutAll: 'abcd'; - reset. - self assert: (stream upTo: $x) = 'abcd'. - self assert: stream atEnd. - stream := GRPlatform current readWriteByteStream. - stream - nextPutAll: 'abcd' asByteArray; - reset. - self assert: (stream upTo: 99) = #(97 98 ) asByteArray. - self assert: stream next = 100. - stream := GRPlatform current readWriteByteStream. - stream - nextPutAll: 'abcd' asByteArray; - reset. - self assert: (stream upTo: 120) = #(97 98 99 100 ) asByteArray. - self assert: stream atEnd \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamUpToEnd.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamUpToEnd.st deleted file mode 100644 index 3f02374e..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteStreamUpToEnd.st +++ /dev/null @@ -1,28 +0,0 @@ -tests-streams -testReadWriteStreamUpToEnd - "Not defined by ANSI." - | stream | - stream := GRPlatform current readWriteCharacterStream. - stream - nextPutAll: 'abcd'; - reset. - self assert: stream upToEnd = 'abcd'. - self assert: stream atEnd. - self assert: stream upToEnd = ''. - self assert: stream atEnd. - stream reset. - stream upTo: $b. - self assert: stream upToEnd = 'cd'. - self assert: stream atEnd. - stream := GRPlatform current readWriteByteStream. - stream - nextPutAll: 'abcd' asByteArray; - reset. - self assert: stream upToEnd = #(97 98 99 100 ) asByteArray. - self assert: stream atEnd. - self assert: stream upToEnd = #() asByteArray. - self assert: stream atEnd. - stream reset. - stream upTo: 98. - self assert: stream upToEnd = #(99 100 ) asByteArray. - self assert: stream atEnd \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSeconds.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSeconds.st deleted file mode 100644 index 59e7c517..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSeconds.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testSeconds - self assert: Time now seconds isInteger \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSecureHashFor.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSecureHashFor.st deleted file mode 100644 index 5a6dfb9f..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSecureHashFor.st +++ /dev/null @@ -1,19 +0,0 @@ -tests -testSecureHashFor - "Make sure the platform class provides a #secureHashFor: method. The method is called by Seaside when hashing passwords. - The Pharo implementation returns a SHA-1 hash but another equivalent hash method could also be used." - - | a b c d invalidUtf8 e f | - a := self platform secureHashFor: 'foobar'. - b := self platform secureHashFor: 'foobar'. - self assert: a equals: b. - - c := self platform secureHashFor: #[102 111 111 98 97 114]. - d := self platform secureHashFor: #[102 111 111 98 97 114]. - self assert: c equals: d. - - "The following ensures any byte array can be used (and not only the onces containing valid utf8)" - invalidUtf8 := #[160 161]. - e := self platform secureHashFor: invalidUtf8. - f := self platform secureHashFor: invalidUtf8. - self assert: e equals: f \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testShutDownList.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testShutDownList.st deleted file mode 100644 index 899d62b8..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testShutDownList.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-image -testShutDownList - "A smoke test: checks if the test-class can be added and removed to the shutdown list." - - [ self platform addToShutDownList: self class ] - ensure: [ self platform removeFromShutDownList: self class ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSizeOfFile.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSizeOfFile.st deleted file mode 100644 index 55677c3a..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSizeOfFile.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-files -testSizeOfFile - | theFileName | - self - writeToFile: 'test me' - withFileNameDo:[ :fileName | - self assert: (GRPlatform current sizeOfFile: fileName) equals: 7. - theFileName := fileName ]. - self deny: (GRPlatform current fileExists: theFileName) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st deleted file mode 100644 index 64a5c334..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st +++ /dev/null @@ -1,11 +0,0 @@ -tests-mop -testSourceCodeStringOf - - | sourceCodeString | - sourceCodeString := GRPlatform current sourceCodeStringOf: GRPlatform >> #sourceCodeStringOf:. - self - assert: sourceCodeString - equals: 'sourceCodeStringOf: aCompiledMethod - "Return a String with the source code for a compiled method." - - self subclassResponsibility' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testStackDepth.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testStackDepth.st deleted file mode 100644 index 3b50ae68..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testStackDepth.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testStackDepth - | stackDepth someBlock | - stackDepth := self platform stackDepth. - self assert: stackDepth isInteger. - self assert: stackDepth > 0. - someBlock := [ self assert: self platform stackDepth > stackDepth ]. - someBlock value. - self assert: stackDepth = self platform stackDepth \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testStartUpList.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testStartUpList.st deleted file mode 100644 index 742d9bef..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testStartUpList.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-image -testStartUpList - "A smoke test: checks if the test-class can be added and removed to the startup list." - - [ self platform addToStartUpList: self class ] - ensure: [ self platform removeFromStartUpList: self class ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSymbolAsMutator.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSymbolAsMutator.st deleted file mode 100644 index 5fc4744b..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSymbolAsMutator.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testSymbolAsMutator - "test for: - Symbol >> #asMutator - ^ (self copyWith: $:) asSymbol" - self assert: #name greaseAsMutator = #name: \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testTerminate.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testTerminate.st deleted file mode 100644 index 0d9cc193..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testTerminate.st +++ /dev/null @@ -1,23 +0,0 @@ -tests-processes -testTerminate - | ensureRun ifCurtailedRun semaphore1 semaphore2 semaphore3 semaphore4 process | - ensureRun := false. - ifCurtailedRun := false. - semaphore1 := self platform semaphoreClass new. - semaphore2 := self platform semaphoreClass new. - semaphore3 := self platform semaphoreClass new. - semaphore4 := self platform semaphoreClass new. - process := [ - [ [ semaphore1 signal. semaphore2 wait ] - ensure: [ ensureRun := true. semaphore3 signal ] ] - ifCurtailed: [ ifCurtailedRun := true. semaphore4 signal ] ] newProcess. - self deny: (self platform isProcessTerminated: process). - process resume. - semaphore1 wait. - self deny: (self platform isProcessTerminated: process). - self platform terminateProcess: process. - semaphore3 wait. - self assert: ensureRun. - semaphore4 wait. - self assert: ifCurtailedRun. - self assert: (self platform isProcessTerminated: process) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testThisContext.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testThisContext.st deleted file mode 100644 index d8fecfc7..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testThisContext.st +++ /dev/null @@ -1,27 +0,0 @@ -tests -testThisContext - | methodContext block ctx | - "This is just a basic test to see if thisContext works" - methodContext := self platform thisContext. - block := [ | blockContext | - blockContext := self platform thisContext. - self assert: blockContext sender = methodContext. - "The following is a difference between Gemstone and Pharo... " - (Smalltalk includesKey: #GRGemStonePlatform) - ifTrue: [ self assert: blockContext receiver = block ] - ifFalse: [ - self assert: blockContext receiver = self. - (blockContext respondsTo: #tempNamed:) - ifTrue:[ self assert: (blockContext tempNamed: 'blockContext') == blockContext ] - ifFalse:[ self assert: (blockContext namedTempAt: (blockContext tempNames indexOf: #blockContext)) == blockContext ] ]. - (blockContext respondsTo: #tempNamed:) - ifTrue:[ self assert: (blockContext tempNamed: 'methodContext') == methodContext ] - ifFalse: [ self assert: (blockContext namedTempAt: (blockContext tempNames indexOf: #methodContext)) == methodContext ] ]. - - block value. - self assert: self returnSender = methodContext. - self assert: methodContext receiver = self. - ctx := self platform thisContext. - (ctx respondsTo: #tempNamed:) - ifTrue:[ self assert: (ctx tempNamed: 'block') == block ] - ifFalse: [ self assert: (ctx namedTempAt: (ctx tempNames indexOf: #block)) == block ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testTotalSeconds.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testTotalSeconds.st deleted file mode 100644 index bab3d2ea..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testTotalSeconds.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testTotalSeconds - "Answer the total seconds since the Squeak epoch: 1 January 1901." - - | seconds | - seconds := Time totalSeconds. - self assert: seconds isInteger. - self assert: seconds > 3421645167 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testVersion.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testVersion.st deleted file mode 100644 index ba0bb786..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testVersion.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testVersion - self assert: (self platform version isKindOf: GRVersion). - self assert: (self platform versionString isKindOf: String). - self deny: self platform versionString isEmpty \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamContents.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamContents.st deleted file mode 100644 index eb97b401..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamContents.st +++ /dev/null @@ -1,12 +0,0 @@ -tests-streams -testWriteStreamContents - | stream | - stream := GRPlatform current writeCharacterStreamOn: String new. - self assert: stream contents = ''. - stream - nextPutAll: 'abcdef'. - self assert: stream contents = 'abcdef'. - stream - reset; - nextPutAll: 'gh'. - self assert: stream contents = 'gh' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamCrLf.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamCrLf.st deleted file mode 100644 index 59535c2a..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamCrLf.st +++ /dev/null @@ -1,7 +0,0 @@ -tests-streams -testWriteStreamCrLf - | stream | - stream := WriteStream on: String new. - stream crlf. - self assert: stream contents first codePoint = 13. - self assert: stream contents second codePoint = 10 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamNextPut.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamNextPut.st deleted file mode 100644 index 07a75bac..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamNextPut.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-streams -testWriteStreamNextPut - "ANSI 5.9.4.3" - - | stream | - stream := WriteStream on: String new. - stream nextPut: $a. - self assert: stream contents = 'a' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamNextPutAll.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamNextPutAll.st deleted file mode 100644 index dbd0ae17..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamNextPutAll.st +++ /dev/null @@ -1,12 +0,0 @@ -tests-streams -testWriteStreamNextPutAll - "ANSI 5.9.4.4" - - | stream | - stream := WriteStream on: String new. - stream nextPutAll: 'abc'. - self assert: stream contents = 'abc'. - - stream := WriteStream on: String new. - stream nextPutAll: #($a $b $c). - self assert: stream contents = 'abc' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamPosition.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamPosition.st deleted file mode 100644 index b0a08d11..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamPosition.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-streams -testWriteStreamPosition - | stream | - stream := GRPlatform current writeCharacterStreamOn: String new. - self assert: stream position = 0. - stream nextPutAll: 'abc'. - self assert: stream position = 3. - stream reset. - self assert: stream position = 0 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamReset.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamReset.st deleted file mode 100644 index 38b7fac4..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamReset.st +++ /dev/null @@ -1,10 +0,0 @@ -tests-streams -testWriteStreamReset - "ANSI 5.9.1.6" - - | stream | - stream := WriteStream on: String new. - stream nextPutAll: 'abc'. - stream reset. - stream nextPutAll: 'def'. - self assert: stream contents = 'def' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamSpace.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamSpace.st deleted file mode 100644 index ea724255..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamSpace.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-streams -testWriteStreamSpace - "ANSI 5.9.4.5" - - | stream | - stream := WriteStream on: String new. - stream space. - self assert: stream contents first = Character space \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamTab.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamTab.st deleted file mode 100644 index ce185690..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteStreamTab.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-streams -testWriteStreamTab - "ANSI 5.9.4.6" - - | stream | - stream := WriteStream on: String new. - stream tab. - self assert: stream contents first = Character tab \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteToFileInFolder.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteToFileInFolder.st deleted file mode 100644 index 04b46b21..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testWriteToFileInFolder.st +++ /dev/null @@ -1,27 +0,0 @@ -tests-files -testWriteToFileInFolder - - | bytes text | - bytes := ByteArray new. - self - writeToFile: bytes - withFileNameDo:[ :fileName | - self assert: (GRPlatform current contentsOfFile: fileName binary: true) equals: bytes ]. - - bytes := #[80 104 39 110 103 108 117 105 32 109 103 108 119 39 110 97 102 104 32 67 116 104 117 108 104 117 32 82 39 108 121 101 104 32 119 103 97 104 39 110 97 103 108 32 102 104 116 97 103 110]. - self - writeToFile: bytes - withFileNameDo:[ :fileName | - self assert:(GRPlatform current contentsOfFile: fileName binary: true) equals: bytes ]. - - text := String new. - self - writeToFile: text - withFileNameDo:[ :fileName | - self assert: (GRPlatform current contentsOfFile: fileName binary: false) equals: text ]. - - text := 'Ph''nglui mglw''nafh Cthulhu R''lyeh wgah''nagl fhtagn'. - self - writeToFile: text - withFileNameDo:[ :fileName | - self assert: (GRPlatform current contentsOfFile: fileName binary: false) equals: text ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/properties.json b/repository/Grease-Tests-Core.package/GRPlatformTest.class/properties.json deleted file mode 100644 index 78485803..00000000 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "pmm 8/19/2014 09:53", - "super" : "TestCase", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPlatformTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/README.md b/repository/Grease-Tests-Core.package/GRPrinterTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/separate.left..st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/separate.left..st deleted file mode 100644 index 9fa47cda..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/separate.left..st +++ /dev/null @@ -1,9 +0,0 @@ -tests-utilites -separate: aString left: aCharacter - | converter | - converter := GRNumberPrinter new. - ^ String streamContents: [ :stream | - converter - separate: aString - left: aCharacter - on: stream ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testComposedPrinter.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testComposedPrinter.st deleted file mode 100644 index 6962f7d3..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testComposedPrinter.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testComposedPrinter - | converter | - converter := GRSequentialPrinter new , 'CHF ' , GRNumberPrinter new. - self assert: (converter print: 1234) = 'CHF 1234'. - self assert: (converter print: -1234) = 'CHF 1234'. - converter := GRSignPrinter new , GRNumberPrinter new , '%'. - self assert: (converter print: 1234) = '1234%'. - self assert: (converter print: -1234) = '-1234%' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testCookieTimestamp.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testCookieTimestamp.st deleted file mode 100644 index 1dc6c2c3..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testCookieTimestamp.st +++ /dev/null @@ -1,17 +0,0 @@ -tests-timestamp -testCookieTimestamp - | printer date | - printer := GRPrinter cookieTimestamp. - date := DateAndTime - year: 2008 - month: 8 - day: 1 - hour: 9 - minute: 4 - second: 4 - offset: (Duration - days: 0 - hours: 0 - minutes: 0 - seconds: 0). - self assert: (printer print: date) = 'Fri, 01-Aug-2008 09:04:04 GMT' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testDigitsOf.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testDigitsOf.st deleted file mode 100644 index 853343f7..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testDigitsOf.st +++ /dev/null @@ -1,25 +0,0 @@ -tests-utilites -testDigitsOf - | converter | - converter := GRNumberPrinter new. - self assert: (converter - digitsOf: 0.0 - base: 10) = '0'. - self assert: (converter - digitsOf: 1.0 - base: 10) = '1'. - self assert: (converter - digitsOf: -1.0 - base: 10) = '1'. - self assert: (converter - digitsOf: -1234567890 - base: 10) = '1234567890'. - self assert: (converter - digitsOf: 1234567890 - base: 10) = '1234567890'. - self assert: (converter - digitsOf: -9876543210 - base: 10) = '9876543210'. - self assert: (converter - digitsOf: 9876543210 - base: 10) = '9876543210' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testDigitsOfBase.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testDigitsOfBase.st deleted file mode 100644 index 7ebe8778..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testDigitsOfBase.st +++ /dev/null @@ -1,49 +0,0 @@ -tests-utilites -testDigitsOfBase - | converter | - converter := GRNumberPrinter new. - self assert: (converter - digitsOf: 1234 - base: 2) = '10011010010'. - self assert: (converter - digitsOf: 1234 - base: 3) = '1200201'. - self assert: (converter - digitsOf: 1234 - base: 4) = '103102'. - self assert: (converter - digitsOf: 1234 - base: 5) = '14414'. - self assert: (converter - digitsOf: 1234 - base: 6) = '5414'. - self assert: (converter - digitsOf: 1234 - base: 7) = '3412'. - self assert: (converter - digitsOf: 1234 - base: 8) = '2322'. - self assert: (converter - digitsOf: 1234 - base: 9) = '1621'. - self assert: (converter - digitsOf: 1234 - base: 10) = '1234'. - self assert: (converter - digitsOf: 1234 - base: 11) = 'a22'. - self assert: (converter - digitsOf: 1234 - base: 12) = '86a'. - self assert: (converter - digitsOf: 1234 - base: 13) = '73c'. - self assert: (converter - digitsOf: 1234 - base: 14) = '642'. - self assert: (converter - digitsOf: 1234 - base: 15) = '574'. - self assert: (converter - digitsOf: 1234 - base: 16) = '4d2' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFileSizePrinterBinary.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFileSizePrinterBinary.st deleted file mode 100644 index 6428c1d8..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFileSizePrinterBinary.st +++ /dev/null @@ -1,16 +0,0 @@ -tests -testFileSizePrinterBinary - | converter | - converter := GRPrinter binaryFileSize. - self assert: (converter print: 1) = '1 byte'. - self assert: (converter print: 2) = '2 bytes'. - self assert: (converter print: 30) = '30 bytes'. - self assert: (converter print: 500) = '500 bytes'. - self assert: (converter print: 6000) = '5.9 KiB'. - self assert: (converter print: 70000) = '68.4 KiB'. - self assert: (converter print: 800000) = '781.3 KiB'. - self assert: (converter print: 9000000) = '8.6 MiB'. - self assert: (converter print: 10000000) = '9.5 MiB'. - self assert: (converter print: 200000000) = '190.7 MiB'. - self assert: (converter print: 3000000000) = '2.8 GiB'. - self assert: (converter print: 40000000000) = '37.3 GiB' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFileSizePrinterDecimal.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFileSizePrinterDecimal.st deleted file mode 100644 index 6795681d..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFileSizePrinterDecimal.st +++ /dev/null @@ -1,16 +0,0 @@ -tests -testFileSizePrinterDecimal - | converter | - converter := GRPrinter decimalFileSize. - self assert: (converter print: 1) = '1 byte'. - self assert: (converter print: 2) = '2 bytes'. - self assert: (converter print: 30) = '30 bytes'. - self assert: (converter print: 500) = '500 bytes'. - self assert: (converter print: 6000) = '6.0 kB'. - self assert: (converter print: 70000) = '70.0 kB'. - self assert: (converter print: 800000) = '800.0 kB'. - self assert: (converter print: 9000000) = '9.0 MB'. - self assert: (converter print: 10000000) = '10.0 MB'. - self assert: (converter print: 200000000) = '200.0 MB'. - self assert: (converter print: 3000000000) = '3.0 GB'. - self assert: (converter print: 40000000000) = '40.0 GB' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinter.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinter.st deleted file mode 100644 index 01fbed83..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinter.st +++ /dev/null @@ -1,19 +0,0 @@ -tests -testFloatPrinter - | converter | - converter := GRNumberPrinter new precision: 2. - self assert: (converter print: 1.009) = '1.01'. - self assert: (converter print: 1.01) = '1.01'. - self assert: (converter print: 1.019) = '1.02'. - self assert: (converter print: 1.25) = '1.25'. - self assert: (converter print: 1.254) = '1.25'. - self assert: (converter print: 1.256) = '1.26'. - self assert: (converter print: 1.009) = '1.01'. - self assert: (converter print: 0.9) = '0.90'. - self assert: (converter print: 0.99) = '0.99'. - self assert: (converter print: 0.999) = '1.00'. - self assert: (converter print: 0.9999) = '1.00'. - self assert: (converter print: -0.9) = '0.90'. - self assert: (converter print: -0.99) = '0.99'. - self assert: (converter print: -0.999) = '1.00'. - self assert: (converter print: -0.9999) = '1.00' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinterInfinity.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinterInfinity.st deleted file mode 100644 index d58ada65..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinterInfinity.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testFloatPrinterInfinity - | converter | - converter := GRNumberPrinter new. - self assert: (converter print: Float infinity) = 'Infinite'. - self assert: (converter print: Float infinity negated) = 'Infinite'. - converter infinite: 'very huge'. - self assert: (converter print: Float infinity) = 'very huge'. - self assert: (converter print: Float infinity negated) = 'very huge' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinterNaN.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinterNaN.st deleted file mode 100644 index 744b05af..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinterNaN.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testFloatPrinterNaN - | converter | - converter := GRNumberPrinter new. - self assert: (converter print: Float nan) = 'NaN'. - converter nan: 'Not A Number'. - self assert: (converter print: Float nan) = 'Not A Number' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinterPadding.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinterPadding.st deleted file mode 100644 index 6a0a46ee..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinterPadding.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testFloatPrinterPadding - | converter | - converter := GRNumberPrinter new. - converter digits: 3. - self assert: (converter print: 1) = ' 1'. - self assert: (converter print: 12) = ' 12'. - self assert: (converter print: 123) = '123'. - self assert: (converter print: 1234) = '1234'. - converter padding: $*. - self assert: (converter print: 1) = '**1'. - self assert: (converter print: 12) = '*12'. - self assert: (converter print: 123) = '123'. - self assert: (converter print: 1234) = '1234' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinterSeparator.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinterSeparator.st deleted file mode 100644 index 7ecd2ce5..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFloatPrinterSeparator.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testFloatPrinterSeparator - | converter | - converter := GRNumberPrinter new. - converter - precision: 2; - separator: $*. - self assert: (converter print: 12345.0) = '12*345.00'. - self assert: (converter print: 0.6789) = '0.68'. - converter - precision: 4; - separator: $!. - self assert: (converter print: 12345.0) = '12!345.000!0'. - self assert: (converter print: 0.6789) = '0.678!9' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFullMonthName.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFullMonthName.st deleted file mode 100644 index 1e09b7d4..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFullMonthName.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-parts-date -testFullMonthName - | printer | - printer := GRPrinter fullMonthName. - self assert: (printer print: (Date year: 2000 month: 8 day: 1)) = 'August'. - self assert: (printer print: (Date year: 2000 month: 11 day: 1)) = 'November' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFullWeekName.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFullWeekName.st deleted file mode 100644 index 0befa939..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testFullWeekName.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-parts-date -testFullWeekName - | printer | - printer := GRPrinter fullWeekName. - self assert: (printer print: (Date year: 1980 month: 1 day: 1)) = 'Tuesday'. - self assert: (printer print: (Date year: 2000 month: 1 day: 1)) = 'Saturday' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testHttp.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testHttp.st deleted file mode 100644 index ee97bfd8..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testHttp.st +++ /dev/null @@ -1,18 +0,0 @@ -tests-timestamp -testHttp - | printer date offsetHour | - offsetHour := 2. - printer := GRPrinter httpDate. - date := DateAndTime - year: 1994 - month: 11 - day: 6 - hour: 8 + offsetHour - minute: 49 - second: 37 - offset: (Duration - days: 0 - hours: offsetHour - minutes: 0 - seconds: 0). - self assert: (printer print: date) = 'Sun, 06 Nov 1994 08:49:37 GMT' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testIntegerPrinter.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testIntegerPrinter.st deleted file mode 100644 index 71c4170e..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testIntegerPrinter.st +++ /dev/null @@ -1,31 +0,0 @@ -tests -testIntegerPrinter - | converter | - converter := GRNumberPrinter new. - self assert: (converter print: 1234) = '1234'. - self assert: (converter print: -1234) = '1234'. - converter separator: $.. - self assert: (converter print: 1234) = '1.234'. - self assert: (converter print: 1234567) = '1.234.567'. - converter - base: 16; - separator: nil. - self assert: (converter print: 1234) = '4d2'. - self assert: (converter print: 123123) = '1e0f3'. - converter uppercase. - self assert: (converter print: 1234) = '4D2'. - self assert: (converter print: 123123) = '1E0F3'. - - - converter - base: 10; - separator: $'; - digits: 6; - padding: $0. - self assert: (converter print: 1234) = '001''234'. - self assert: (converter print: 12345) = '012''345'. - self assert: (converter print: 123456) = '123''456'. - self assert: (converter print: 1234567) = '1''234''567'. - self assert: (converter print: 12345678) = '12''345''678'. - self assert: (converter print: 123456789) = '123''456''789'. - self assert: (converter print: 0) = '000''000' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testIsoDate.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testIsoDate.st deleted file mode 100644 index 59aafdfb..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testIsoDate.st +++ /dev/null @@ -1,16 +0,0 @@ -tests-timestamp -testIsoDate - | printer | - printer := GRPrinter isoDate. - self assert: (printer print: (Date - year: 1980 - month: 6 - day: 11)) = '1980-06-11'. - self assert: (printer print: (Date - year: 2003 - month: 12 - day: 1)) = '2003-12-01'. - self assert: (printer print: (Date - year: 800 - month: 12 - day: 24)) = '0800-12-24' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testIsoTime.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testIsoTime.st deleted file mode 100644 index d600a27e..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testIsoTime.st +++ /dev/null @@ -1,16 +0,0 @@ -tests-timestamp -testIsoTime - | printer | - printer := GRPrinter isoTime. - self assert: (printer print: (Time - hour: 0 - minute: 0 - second: 0)) = '00:00:00'. - self assert: (printer print: (Time - hour: 1 - minute: 2 - second: 3)) = '01:02:03'. - self assert: (printer print: (Time - hour: 12 - minute: 23 - second: 34)) = '12:23:34' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testOrdinalizePrinter.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testOrdinalizePrinter.st deleted file mode 100644 index 5c45b5e1..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testOrdinalizePrinter.st +++ /dev/null @@ -1,18 +0,0 @@ -tests -testOrdinalizePrinter - | converter | - converter := GRNumberPrinter new , GROrdinalizePrinter new. - self assert: (converter print: 1) = '1st'. - self assert: (converter print: 2) = '2nd'. - self assert: (converter print: 3) = '3rd'. - self assert: (converter print: 4) = '4th'. - self assert: (converter print: 10) = '10th'. - self assert: (converter print: 111) = '111th'. - self assert: (converter print: 212) = '212th'. - self assert: (converter print: 313) = '313th'. - self assert: (converter print: 414) = '414th'. - self assert: (converter print: 20) = '20th'. - self assert: (converter print: 121) = '121st'. - self assert: (converter print: 222) = '222nd'. - self assert: (converter print: 323) = '323rd'. - self assert: (converter print: 424) = '424th' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPadCenter.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPadCenter.st deleted file mode 100644 index bb595af1..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPadCenter.st +++ /dev/null @@ -1,24 +0,0 @@ -tests-utilites -testPadCenter - | converter | - converter := GRPrinter new. - self assert: (converter - pad: '' - center: $* - to: 3) = '***'. - self assert: (converter - pad: '1' - center: $* - to: 3) = '*1*'. - self assert: (converter - pad: '12' - center: $* - to: 3) = '12*'. - self assert: (converter - pad: '123' - center: $* - to: 3) = '123'. - self assert: (converter - pad: '1234' - center: $* - to: 3) = '1234' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPadLeft.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPadLeft.st deleted file mode 100644 index fb14693a..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPadLeft.st +++ /dev/null @@ -1,24 +0,0 @@ -tests-utilites -testPadLeft - | converter | - converter := GRPrinter new. - self assert: (converter - pad: '' - left: $* - to: 3) = '***'. - self assert: (converter - pad: '1' - left: $* - to: 3) = '**1'. - self assert: (converter - pad: '12' - left: $* - to: 3) = '*12'. - self assert: (converter - pad: '123' - left: $* - to: 3) = '123'. - self assert: (converter - pad: '1234' - left: $* - to: 3) = '1234' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPadRight.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPadRight.st deleted file mode 100644 index dde92066..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPadRight.st +++ /dev/null @@ -1,24 +0,0 @@ -tests-utilites -testPadRight - | converter | - converter := GRPrinter new. - self assert: (converter - pad: '' - right: $* - to: 3) = '***'. - self assert: (converter - pad: '1' - right: $* - to: 3) = '1**'. - self assert: (converter - pad: '12' - right: $* - to: 3) = '12*'. - self assert: (converter - pad: '123' - right: $* - to: 3) = '123'. - self assert: (converter - pad: '1234' - right: $* - to: 3) = '1234' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPaddedCentury.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPaddedCentury.st deleted file mode 100644 index 37a2861b..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPaddedCentury.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-parts-date -testPaddedCentury - | printer | - printer := GRPrinter paddedCentury. - self assert: (printer print: (Date year: 1980 month: 1 day: 1)) = '80'. - self assert: (printer print: (Date year: 2009 month: 1 day: 1)) = '09' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPaddedHour12.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPaddedHour12.st deleted file mode 100644 index 721b2902..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testPaddedHour12.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-parts-time -testPaddedHour12 - | printer | - printer := GRPrinter paddedHour12. - self assert: (printer print: (Time hour: 5 minute: 0 second: 0)) = '05'. - self assert: (printer print: (Time hour: 10 minute: 0 second: 0)) = '10'. - self assert: (printer print: (Time hour: 14 minute: 0 second: 0)) = '02'. - self assert: (printer print: (Time hour: 23 minute: 0 second: 0)) = '11' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testRfc822.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testRfc822.st deleted file mode 100644 index 050e13d8..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testRfc822.st +++ /dev/null @@ -1,30 +0,0 @@ -tests-timestamp -testRfc822 - | printer date | - printer := GRPrinter rfc822. - date := DateAndTime - year: 2008 - month: 8 - day: 1 - hour: 9 - minute: 4 - second: 4 - offset: (Duration - days: 0 - hours: -2 - minutes: 0 - seconds: 0). - self assert: (printer print: date) = 'Fri, 01 Aug 2008 09:04:04 -0200'. - date := DateAndTime - year: 2008 - month: 8 - day: 31 - hour: 19 - minute: 41 - second: 46 - offset: (Duration - days: 0 - hours: 0 - minutes: 30 - seconds: 0). - self assert: (printer print: date) = 'Sun, 31 Aug 2008 19:41:46 +0030' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testRfc822WithTimeZone.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testRfc822WithTimeZone.st deleted file mode 100644 index d4d85597..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testRfc822WithTimeZone.st +++ /dev/null @@ -1,17 +0,0 @@ -tests-timestamp -testRfc822WithTimeZone - | printer date | - printer := GRPrinter rfc822WithTimeZone: 'GMT'. - date := DateAndTime - year: 2008 - month: 8 - day: 1 - hour: 9 - minute: 4 - second: 4 - offset: (Duration - days: 0 - hours: 0 - minutes: 0 - seconds: 0). - self assert: (printer print: date) = 'Fri, 01 Aug 2008 09:04:04 GMT' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSeparateLeft.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSeparateLeft.st deleted file mode 100644 index 4a091978..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSeparateLeft.st +++ /dev/null @@ -1,32 +0,0 @@ -tests-utilites -testSeparateLeft - self assert: (self - separate: '' - left: $*) = ''. - self assert: (self - separate: '1' - left: $*) = '1'. - self assert: (self - separate: '12' - left: $*) = '12'. - self assert: (self - separate: '123' - left: $*) = '123'. - self assert: (self - separate: '1234' - left: $*) = '123*4'. - self assert: (self - separate: '12345' - left: $*) = '123*45'. - self assert: (self - separate: '123456' - left: $*) = '123*456'. - self assert: (self - separate: '1234567' - left: $*) = '123*456*7'. - self assert: (self - separate: '12345678' - left: $*) = '123*456*78'. - self assert: (self - separate: '123456789' - left: $*) = '123*456*789' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSeparateRight.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSeparateRight.st deleted file mode 100644 index 2c3759ee..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSeparateRight.st +++ /dev/null @@ -1,34 +0,0 @@ -tests-utilites -testSeparateRight - | converter | - converter := GRNumberPrinter new. - self assert: (converter - separate: '' - right: $*) = ''. - self assert: (converter - separate: '1' - right: $*) = '1'. - self assert: (converter - separate: '12' - right: $*) = '12'. - self assert: (converter - separate: '123' - right: $*) = '123'. - self assert: (converter - separate: '1234' - right: $*) = '1*234'. - self assert: (converter - separate: '12345' - right: $*) = '12*345'. - self assert: (converter - separate: '123456' - right: $*) = '123*456'. - self assert: (converter - separate: '1234567' - right: $*) = '1*234*567'. - self assert: (converter - separate: '12345678' - right: $*) = '12*345*678'. - self assert: (converter - separate: '123456789' - right: $*) = '123*456*789' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSignPrinter.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSignPrinter.st deleted file mode 100644 index f9103416..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSignPrinter.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testSignPrinter - | converter | - converter := GRSignPrinter new. - converter - negativePrinter: $-; - positivePrinter: $+. - self assert: (converter print: 12) = '+'. - self assert: (converter print: -12) = '-' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testStringPrinter.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testStringPrinter.st deleted file mode 100644 index 05a02d47..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testStringPrinter.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testStringPrinter - | converter | - converter := GRStringPrinter new. - self assert: (converter print: 123) = '123'. - self assert: (converter print: 'foo') = 'foo'. - self assert: (converter print: true) = 'true' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testStringPrinterLength.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testStringPrinterLength.st deleted file mode 100644 index 37eb2de5..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testStringPrinterLength.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testStringPrinterLength - | converter | - converter := GRStringPrinter new. - self assert: (converter print: 'foo') = 'foo'. - converter length: 3. - self assert: (converter print: 'foo') = 'foo'. - converter length: 1. - self assert: (converter print: 'foo') = 'f' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testStringPrinterPad.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testStringPrinterPad.st deleted file mode 100644 index 8dd59145..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testStringPrinterPad.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testStringPrinterPad - | converter | - converter := GRStringPrinter new. - converter - character: $*; - length: 5. - converter padLeft. - self assert: (converter print: 'foo') = '**foo'. - converter padRight. - self assert: (converter print: 'foo') = 'foo**'. - converter padCenter. - self assert: (converter print: 'foo') = '*foo*' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testStringPrinterTrim.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testStringPrinterTrim.st deleted file mode 100644 index 0e4f327a..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testStringPrinterTrim.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testStringPrinterTrim - | converter | - converter := GRStringPrinter new. - self assert: (converter print: ' foo ') = ' foo '. - converter trimLeft. - self assert: (converter print: ' foo ') = 'foo '. - converter trimRight. - self assert: (converter print: ' foo ') = ' foo'. - converter trimBoth. - self assert: (converter print: ' foo ') = 'foo' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSwissCurrency.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSwissCurrency.st deleted file mode 100644 index 647cf64a..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testSwissCurrency.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-currency -testSwissCurrency - | printer | - printer := GRPrinter swissCurrency. - self assert: (printer print: 12.34) = 'CHF 12.35'. - self assert: (printer print: -12.39) = 'CHF -12.40' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedCentury.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedCentury.st deleted file mode 100644 index b3e94c99..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedCentury.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-parts-date -testUnpaddedCentury - | printer | - printer := GRPrinter unpaddedCentury. - self assert: (printer print: (Date year: 1980 month: 1 day: 1)) = '80'. - self assert: (printer print: (Date year: 2009 month: 1 day: 1)) = '9' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedDay.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedDay.st deleted file mode 100644 index fd1f2831..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedDay.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-parts-date -testUnpaddedDay - | printer | - printer := GRPrinter unpaddedDay. - self assert: (printer print: (Date year: 2000 month: 1 day: 4)) = '4'. - self assert: (printer print: (Date year: 2000 month: 1 day: 19)) = '19' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedHour12.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedHour12.st deleted file mode 100644 index 0652880b..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedHour12.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-parts-time -testUnpaddedHour12 - | printer | - printer := GRPrinter unpaddedHour12. - self assert: (printer print: (Time hour: 5 minute: 0 second: 0)) = '5'. - self assert: (printer print: (Time hour: 10 minute: 0 second: 0)) = '10'. - self assert: (printer print: (Time hour: 14 minute: 0 second: 0)) = '2'. - self assert: (printer print: (Time hour: 23 minute: 0 second: 0)) = '11' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedHour24.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedHour24.st deleted file mode 100644 index 49fcbe33..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedHour24.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-parts-time -testUnpaddedHour24 - | printer | - printer := GRPrinter unpaddedHour24. - self assert: (printer print: (Time hour: 5 minute: 0 second: 0)) = '5'. - self assert: (printer print: (Time hour: 10 minute: 0 second: 0)) = '10'. - self assert: (printer print: (Time hour: 14 minute: 0 second: 0)) = '14'. - self assert: (printer print: (Time hour: 23 minute: 0 second: 0)) = '23' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedMinute.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedMinute.st deleted file mode 100644 index e66d776f..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedMinute.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-parts-time -testUnpaddedMinute - | printer | - printer := GRPrinter unpaddedMinute. - self assert: (printer print: (Time hour: 0 minute: 5 second: 0)) = '5'. - self assert: (printer print: (Time hour: 0 minute: 12 second: 0)) = '12' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedMonth.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedMonth.st deleted file mode 100644 index 3f7d5747..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedMonth.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-parts-date -testUnpaddedMonth - | printer | - printer := GRPrinter unpaddedMonth. - self assert: (printer print: (Date year: 2000 month: 8 day: 1)) = '8'. - self assert: (printer print: (Date year: 2000 month: 11 day: 1)) = '11' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedSecond.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedSecond.st deleted file mode 100644 index f44a0724..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedSecond.st +++ /dev/null @@ -1,7 +0,0 @@ -tests-parts-time -testUnpaddedSecond - | printer | - printer := GRPrinter unpaddedSecond. - self assert: (printer print: (Time hour: 0 minute: 0 second: 0)) = '0'. - self assert: (printer print: (Time hour: 0 minute: 0 second: 9)) = '9'. - self assert: (printer print: (Time hour: 0 minute: 0 second: 12)) = '12' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedYear.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedYear.st deleted file mode 100644 index a610394b..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUnpaddedYear.st +++ /dev/null @@ -1,7 +0,0 @@ -tests-parts-date -testUnpaddedYear - | printer | - printer := GRPrinter unpaddedYear. - self assert: (printer print: (Date year: 766 month: 1 day: 1)) = '766'. - self assert: (printer print: (Date year: 1980 month: 1 day: 1)) = '1980'. - self assert: (printer print: (Date year: 2009 month: 1 day: 1)) = '2009' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUsCurrency.st b/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUsCurrency.st deleted file mode 100644 index 64b6d429..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/instance/testUsCurrency.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-currency -testUsCurrency - | printer | - printer := GRPrinter usCurrency. - self assert: (printer print: 12.34) = '$12.34'. - self assert: (printer print: -12.34) = '-$12.34' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRPrinterTest.class/properties.json b/repository/Grease-Tests-Core.package/GRPrinterTest.class/properties.json deleted file mode 100644 index 40c211a6..00000000 --- a/repository/Grease-Tests-Core.package/GRPrinterTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPrinterTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/README.md b/repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/instance/collectionClass.st deleted file mode 100644 index ec4c1e18..00000000 --- a/repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ GRPlatform current reducedConflictDictionary \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/properties.json b/repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/properties.json deleted file mode 100644 index 73bd00e9..00000000 --- a/repository/Grease-Tests-Core.package/GRReducedConflictDictionaryTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRDictionaryTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRReducedConflictDictionaryTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSetTest.class/README.md b/repository/Grease-Tests-Core.package/GRSetTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRSetTest.class/instance/allowsDuplicateValues.st b/repository/Grease-Tests-Core.package/GRSetTest.class/instance/allowsDuplicateValues.st deleted file mode 100644 index 3cc262dd..00000000 --- a/repository/Grease-Tests-Core.package/GRSetTest.class/instance/allowsDuplicateValues.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -allowsDuplicateValues - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSetTest.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GRSetTest.class/instance/collectionClass.st deleted file mode 100644 index 2dcbb8ae..00000000 --- a/repository/Grease-Tests-Core.package/GRSetTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ Set \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSetTest.class/instance/isExtensible.st b/repository/Grease-Tests-Core.package/GRSetTest.class/instance/isExtensible.st deleted file mode 100644 index f9cac6cc..00000000 --- a/repository/Grease-Tests-Core.package/GRSetTest.class/instance/isExtensible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isExtensible - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSetTest.class/instance/isInitializable.st b/repository/Grease-Tests-Core.package/GRSetTest.class/instance/isInitializable.st deleted file mode 100644 index 2ea38e00..00000000 --- a/repository/Grease-Tests-Core.package/GRSetTest.class/instance/isInitializable.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isInitializable - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSetTest.class/properties.json b/repository/Grease-Tests-Core.package/GRSetTest.class/properties.json deleted file mode 100644 index ba46ecf8..00000000 --- a/repository/Grease-Tests-Core.package/GRSetTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRCollectionTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRSetTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionary2Test.class/README.md b/repository/Grease-Tests-Core.package/GRSmallDictionary2Test.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionary2Test.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GRSmallDictionary2Test.class/instance/collectionClass.st deleted file mode 100644 index 94c36b81..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionary2Test.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ GRSmallDictionary2 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionary2Test.class/properties.json b/repository/Grease-Tests-Core.package/GRSmallDictionary2Test.class/properties.json deleted file mode 100644 index 61da0f57..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionary2Test.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSmallDictionaryTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRSmallDictionary2Test", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/README.md b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/allowsDuplicateKeys.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/allowsDuplicateKeys.st deleted file mode 100644 index f217e7bf..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/allowsDuplicateKeys.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -allowsDuplicateKeys - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/assertAssociations..st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/assertAssociations..st deleted file mode 100644 index 985c7d66..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/assertAssociations..st +++ /dev/null @@ -1,11 +0,0 @@ -asserting -assertAssociations: anOrderedCollection - | collAssociations iterated | - collAssociations := collection associations. - iterated := Array streamContents: [ :stream | - collection associationsDo: [ :each | stream nextPut: each ] ]. - self assert: collAssociations size = anOrderedCollection size. - self assert: iterated size = anOrderedCollection size. - 1 to: anOrderedCollection size do: [ :index | - self assert: (collAssociations at: index) = (anOrderedCollection at: index). - self assert: (iterated at: index) = (anOrderedCollection at: index) ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/collectionClass.st deleted file mode 100644 index caab7158..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ GRSmallDictionary \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/createArbitraryAssociations.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/createArbitraryAssociations.st deleted file mode 100644 index 1023a77f..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/createArbitraryAssociations.st +++ /dev/null @@ -1,9 +0,0 @@ -configuration -createArbitraryAssociations - ^ OrderedCollection new - add: 'c' -> 3; - add: 'a' -> 1; - add: 'b' -> 2; - add: 'e' -> 1; - add: 'd' -> 4; - yourself \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/isKey.equivalentTo..st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/isKey.equivalentTo..st deleted file mode 100644 index f422dcc0..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/isKey.equivalentTo..st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -isKey: anObject equivalentTo: anotherObject - ^ anObject = anotherObject \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/newCollection.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/newCollection.st deleted file mode 100644 index 09097ee4..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/newCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -newCollection - ^ self collectionClass new \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/setUp.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/setUp.st deleted file mode 100644 index 56843889..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/setUp.st +++ /dev/null @@ -1,4 +0,0 @@ -running -setUp - super setUp. - collection := self newCollection \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAddAll.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAddAll.st deleted file mode 100644 index 1f4dfd3a..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAddAll.st +++ /dev/null @@ -1,16 +0,0 @@ -tests-accessing -testAddAll - | dict result | - dict := (Dictionary new at: '1' put: 'foo'; yourself). - result := collection addAll: dict. - self assert: result == dict. - self assertAssociations: (Array with: '1' -> 'foo'). - - dict := (GROrderedMultiMap new at: '1' put: 'foo'; at: '1' add: 'bar'; yourself). - collection := self newCollection. - result := collection addAll: dict. - self assert: result == dict. - self assertAssociations: - (self allowsDuplicateKeys - ifFalse: [ Array with: '1' -> 'bar' ] - ifTrue: [ Array with: '1' -> 'foo' with: '1' -> 'bar' ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAddAndAssociations.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAddAndAssociations.st deleted file mode 100644 index 61c4e6d8..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAddAndAssociations.st +++ /dev/null @@ -1,20 +0,0 @@ -tests-accessing -testAddAndAssociations - | association | - association := collection add: '1' -> 'foo'. - self assert: association key = '1'. - self assert: association value = 'foo'. - self assertAssociations: (Array with: '1' -> 'foo'). - - association := collection add: '2' -> 'bar'. - self assert: association key = '2'. - self assert: association value = 'bar'. - self assertAssociations: (Array with: '1' -> 'foo' with: '2' -> 'bar'). - - association := collection add: '1' -> 'baz'. - self assert: association key = '1'. - self assert: association value = 'baz'. - self assertAssociations: - (self allowsDuplicateKeys - ifFalse: [ Array with: '1' -> 'baz' with: '2' -> 'bar' ] - ifTrue: [ Array with: '1' -> 'foo' with: '2' -> 'bar' with: '1' -> 'baz' ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAt.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAt.st deleted file mode 100644 index 9e0251fb..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAt.st +++ /dev/null @@ -1,7 +0,0 @@ -tests-accessing -testAt - self should: [ collection at: '1' ] raise: Error. - collection add: '1' -> 'foo'. - collection add: '1' -> 'bar'. - self assert: (collection at: '1') = - (self allowsDuplicateKeys ifTrue: [ 'foo' ] ifFalse: [ 'bar' ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAtIfAbsent.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAtIfAbsent.st deleted file mode 100644 index d38c527f..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAtIfAbsent.st +++ /dev/null @@ -1,7 +0,0 @@ -tests-accessing -testAtIfAbsent - self assert: (collection at: '1' ifAbsent: [ 'foo' ]) = 'foo'. - collection add: '1' -> 'bar'. - collection add: '1' -> 'baz'. - self assert: (collection at: '1' ifAbsent: [ 'foo' ]) = - (self allowsDuplicateKeys ifTrue: [ 'bar' ] ifFalse: [ 'baz' ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAtIfAbsentPut.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAtIfAbsentPut.st deleted file mode 100644 index 7febf1ca..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAtIfAbsentPut.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-accessing -testAtIfAbsentPut - self assert: (collection at: '1' ifAbsentPut: [ 'foo' ]) = 'foo'. - self assertAssociations: (Array with: '1' -> 'foo'). - self assert: (collection at: '1' ifAbsentPut: [ 'bar' ]) = 'foo'. - self assertAssociations: (Array with: '1' -> 'foo') \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAtIfPresent.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAtIfPresent.st deleted file mode 100644 index 55ad5a45..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAtIfPresent.st +++ /dev/null @@ -1,7 +0,0 @@ -tests-accessing -testAtIfPresent - collection add: '1' -> 'foo'. - collection add: '1' -> 'bar'. - self assert: (collection at: '1' ifPresent: [ :v | v , 'baz' ]) = - (self allowsDuplicateKeys ifTrue: [ 'foobaz' ] ifFalse: [ 'barbaz' ]). - self assert: (collection at: '2' ifPresent: [ :v | v , 'baz' ]) isNil \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAtPut.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAtPut.st deleted file mode 100644 index c9c60133..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testAtPut.st +++ /dev/null @@ -1,7 +0,0 @@ -tests-accessing -testAtPut - collection at: '1' put: 'foo'. - collection at: '2' put: 'bar'. - self assertAssociations: (Array with: '1' -> 'foo' with: '2' -> 'bar'). - collection at: '1' put: 'baz'. - self assertAssociations: (Array with: '1' -> 'baz' with: '2' -> 'bar') \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testCopy.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testCopy.st deleted file mode 100644 index 55e5664f..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testCopy.st +++ /dev/null @@ -1,16 +0,0 @@ -tests -testCopy - | other | - collection at: 1 put: 'foo'; at: 2 put: 'bar'. - other := collection copy. - collection at: 1 put: 'zork'; at: 3 put: 'zonk'. - other at: 2 put: 'other'. - - self assert: collection size = 3. - self assert: (collection at: 1) = 'zork'. - self assert: (collection at: 2) = 'bar'. - self assert: (collection at: 3) = 'zonk'. - - self assert: other size = 2. - self assert: (other at: 1) = 'foo'. - self assert: (other at: 2) = 'other' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testDo.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testDo.st deleted file mode 100644 index 2ef21e07..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testDo.st +++ /dev/null @@ -1,7 +0,0 @@ -tests-enumerating -testDo - | result | - result := OrderedCollection new. - collection at: '1' put: 'foo'; at: '2' put: 'bar'. - collection do: [ :each | result add: each ]. - self assert: result asArray = #( 'foo' 'bar' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testGrow.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testGrow.st deleted file mode 100644 index 09fdaa95..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testGrow.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testGrow - 1 to: 100 do: [ :i | - collection at: i put: i negated. - self assert: collection size = i. - [ :array :factor | - self assert: array size = i. - 1 to: i do: [ :j | self assert: (array at: j) = (factor * j) ] ] - value: collection keys value: 1; - value: collection values value: -1 ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testIncludesKey.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testIncludesKey.st deleted file mode 100644 index 70576c4b..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testIncludesKey.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-testing -testIncludesKey - self deny: (collection includesKey: '1'). - collection add: '1' -> 'foo'. - collection add: '1' -> 'bar'. - self assert: (collection includesKey: '1') \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testIsEmpty.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testIsEmpty.st deleted file mode 100644 index f6c3d770..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testIsEmpty.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-testing -testIsEmpty - self assert: collection isEmpty. - collection add: '1' -> 'foo'. - collection add: '1' -> 'bar'. - self deny: collection isEmpty \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testKeys.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testKeys.st deleted file mode 100644 index 4b097909..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testKeys.st +++ /dev/null @@ -1,5 +0,0 @@ -tests-enumerating -testKeys - collection add: '1' -> 'foo'; add: '2' -> 'bar'; add: '1' -> 'baz'. - self assert: collection keys = - (self allowsDuplicateKeys ifTrue: [ #('1' '2' '1') ] ifFalse: [ #('1' '2') ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testKeysAndValuesDo.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testKeysAndValuesDo.st deleted file mode 100644 index 414d9446..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testKeysAndValuesDo.st +++ /dev/null @@ -1,15 +0,0 @@ -tests-enumerating -testKeysAndValuesDo - | iterated | - collection keysAndValuesDo: [ :key :value | - self assert: false ]. - collection add: '1' -> 'foo'; add: '2' -> 'bar'; add: '1' -> 'baz'. - iterated := Array streamContents: [ :stream | - collection keysAndValuesDo: [ :key :value | - stream nextPut: key -> value ] ]. - self assert: iterated size = (self allowsDuplicateKeys ifTrue: [ 3 ] ifFalse: [ 2 ]). - self assert: iterated first = - (self allowsDuplicateKeys ifTrue: [ '1' -> 'foo' ] ifFalse: [ '1' -> 'baz' ]). - self assert: iterated second = ('2' -> 'bar'). - self allowsDuplicateKeys ifTrue: [ - self assert: iterated third = ('1' -> 'baz') ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testKeysDo.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testKeysDo.st deleted file mode 100644 index fc78435d..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testKeysDo.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-enumerating -testKeysDo - | result | - result := OrderedCollection new. - collection add: '1' -> 'foo'; add: '2' -> 'bar'; add: '1' -> 'baz'. - collection keysDo: [ :each | result add: each ]. - self assert: result asArray = - (self allowsDuplicateKeys ifTrue: [ #('1' '2' '1') ] ifFalse: [ #('1' '2') ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testRemoveKey.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testRemoveKey.st deleted file mode 100644 index 6c9602f6..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testRemoveKey.st +++ /dev/null @@ -1,12 +0,0 @@ -tests-accessing -testRemoveKey - self should: [ collection removeKey: '1' ] raise: Error. - collection add: '1' -> 'foo'. - collection add: '1' -> 'bar'. - collection add: '2' -> 'baz'. - self assert: (collection removeKey: '1') = - (self allowsDuplicateKeys ifTrue: [ #('foo' 'bar') ] ifFalse: [ 'bar' ]). - self assertAssociations: (Array with: '2' -> 'baz'). - self assert: (collection removeKey: '2') = - (self allowsDuplicateKeys ifTrue: [ #('baz') ] ifFalse: [ 'baz' ]). - self assertAssociations: #() \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testRemoveKey2.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testRemoveKey2.st deleted file mode 100644 index f2fbf914..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testRemoveKey2.st +++ /dev/null @@ -1,21 +0,0 @@ -tests-accessing -testRemoveKey2 - "https://github.com/SeasideSt/Grease/issues/81" - collection - at: 'x' put: 1; - at: 'y' put: 2; - at: 'z' put: 3. - - self - assert: (collection removeKey: 'z') equals: (self allowsDuplicateKeys ifTrue: [ #(3) ] ifFalse: [ 3 ]); - assert: collection size equals: 2. - - collection := self newCollection - at: 'x' put: 1; - at: 'y' put: 2; - at: 'z' put: 3; - yourself. - - self - assert: (collection removeKey: 'y') equals: (self allowsDuplicateKeys ifTrue: [ #(2) ] ifFalse: [ 2 ]); - assert: collection size equals: 2 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testRemoveKeyIfAbsent.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testRemoveKeyIfAbsent.st deleted file mode 100644 index cefba2fe..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testRemoveKeyIfAbsent.st +++ /dev/null @@ -1,12 +0,0 @@ -tests-accessing -testRemoveKeyIfAbsent - self assert: (collection removeKey: '1' ifAbsent: [ 'absent' ]) = 'absent'. - collection add: '1' -> 'foo'. - collection add: '1' -> 'bar'. - collection add: '2' -> 'baz'. - self assert: (collection removeKey: '1' ifAbsent: [ 'absent' ]) = - (self allowsDuplicateKeys ifTrue: [ #('foo' 'bar') ] ifFalse: [ 'bar' ]). - self assertAssociations: (Array with: '2' -> 'baz'). - self assert: (collection removeKey: '2' ifAbsent: [ 'absent' ]) = - (self allowsDuplicateKeys ifTrue: [ #('baz') ] ifFalse: [ 'baz' ]). - self assertAssociations: #() \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testSize.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testSize.st deleted file mode 100644 index 9695e70b..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testSize.st +++ /dev/null @@ -1,10 +0,0 @@ -tests-accessing -testSize - self assert: collection size = 0. - collection add: '1' -> 'foo'. - self assert: collection size = 1. - collection add: '2' -> 'bar'. - self assert: collection size = 2. - collection add: '1' -> 'baz'. - self assert: collection size = - (self allowsDuplicateKeys ifTrue: [ 3 ] ifFalse: [ 2 ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testValues.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testValues.st deleted file mode 100644 index 1fbb8a13..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testValues.st +++ /dev/null @@ -1,5 +0,0 @@ -tests-enumerating -testValues - collection add: '1' -> 'foo'; add: '2' -> 'bar'; add: '1' -> 'baz'. - self assert: collection values = - (self allowsDuplicateKeys ifTrue: [ #('foo' 'bar' 'baz') ] ifFalse: [ #('baz' 'bar') ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testWithAll.st b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testWithAll.st deleted file mode 100644 index d7f4b5d0..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/instance/testWithAll.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testWithAll - | dict | - dict := (Dictionary new at: '1' put: 'foo'; yourself). - collection := self collectionClass withAll: dict. - self assertAssociations: (Array with: '1' -> 'foo'). - - dict := (GROrderedMultiMap new at: '1' put: 'foo'; at: '1' add: 'bar'; yourself). - collection := self collectionClass withAll: dict. - self assertAssociations: - (self allowsDuplicateKeys - ifFalse: [ Array with: '1' -> 'bar' ] - ifTrue: [ Array with: '1' -> 'foo' with: '1' -> 'bar' ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/properties.json b/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/properties.json deleted file mode 100644 index 9f7c857b..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallDictionaryTest.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRAbstractDictionaryTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "collection" - ], - "name" : "GRSmallDictionaryTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/README.md b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/collectionClass.st deleted file mode 100644 index 86f0ffb1..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ GRSmallOrderedSet \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/setUp.st b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/setUp.st deleted file mode 100644 index 19659499..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/setUp.st +++ /dev/null @@ -1,4 +0,0 @@ -running -setUp - super setUp. - collection := GRSmallOrderedSet new \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testAdd.st b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testAdd.st deleted file mode 100644 index 1e571410..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testAdd.st +++ /dev/null @@ -1,8 +0,0 @@ -testing -testAdd - | object | - object := Object new. - self assert: collection size = 0. - self assert: (collection add: object) == object. - self assert: collection size = 1. - self assert: (collection add: object) == object \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testAddAll.st b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testAddAll.st deleted file mode 100644 index 8238bea6..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testAddAll.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testAddAll - collection addAll: #(2 1 1). - self assert: collection size = 2. - self assert: (collection includes: 1). - self assert: (collection includes: 2) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testCopy.st b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testCopy.st deleted file mode 100644 index 3568d2d9..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testCopy.st +++ /dev/null @@ -1,12 +0,0 @@ -testing -testCopy - | copy | - collection add: 1. - copy := collection copy. - collection add: 2. - - self assert: collection size = 2. - self assert: copy size = 1. - - self assert: (collection includes: 2). - self deny: (copy includes: 2). \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testDo.st b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testDo.st deleted file mode 100644 index 2b0b3fcd..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testDo.st +++ /dev/null @@ -1,10 +0,0 @@ -testing -testDo - | seen | - collection addAll: #(2 1 1). - seen := Array streamContents: [ :stream | - collection do: [ :each | - stream nextPut: each ] ]. - self assert: seen size = 2. - self assert: (seen at: 1) = 2. - self assert: (seen at: 2) = 1 \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testIncludes.st b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testIncludes.st deleted file mode 100644 index 34d34408..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testIncludes.st +++ /dev/null @@ -1,5 +0,0 @@ -testing -testIncludes - self deny: (collection includes: 0). - collection add: 0. - self assert: (collection includes: 0) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testIsEmpty.st b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testIsEmpty.st deleted file mode 100644 index c4d0d1e4..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testIsEmpty.st +++ /dev/null @@ -1,7 +0,0 @@ -testing -testIsEmpty - self assert: collection isEmpty. - collection add: 1. - self deny: collection isEmpty. - collection remove: 1. - self assert: collection isEmpty \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testRemove.st b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testRemove.st deleted file mode 100644 index 3920405c..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testRemove.st +++ /dev/null @@ -1,5 +0,0 @@ -testing -testRemove - collection add: 1. - self assert: (collection remove: 1) = 1. - self should: [ collection remove: 1 ] raise: Error \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testRemoveIfAbsent.st b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testRemoveIfAbsent.st deleted file mode 100644 index 19e49573..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testRemoveIfAbsent.st +++ /dev/null @@ -1,11 +0,0 @@ -testing -testRemoveIfAbsent - | absent | - collection add: 1. - absent := false. - - self assert: (collection remove: 1 ifAbsent: [ absent := true ]) = 1. - self deny: absent. - - collection remove: 1 ifAbsent: [ absent := true ]. - self assert: absent. \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testSize.st b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testSize.st deleted file mode 100644 index f756fab7..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/instance/testSize.st +++ /dev/null @@ -1,5 +0,0 @@ -testing -testSize - self assert: collection size = 0. - collection addAll: #(2 1 1). - self assert: collection size = 2. \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/properties.json b/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/properties.json deleted file mode 100644 index 57445798..00000000 --- a/repository/Grease-Tests-Core.package/GRSmallOrderedSetTest.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRSetTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "collection" - ], - "name" : "GRSmallOrderedSetTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/README.md b/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/allowsDuplicateValues.st b/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/allowsDuplicateValues.st deleted file mode 100644 index 37514373..00000000 --- a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/allowsDuplicateValues.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -allowsDuplicateValues - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/collectionClass.st deleted file mode 100644 index 49f47e7a..00000000 --- a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ SortedCollection \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isExtensible.st b/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isExtensible.st deleted file mode 100644 index f9cac6cc..00000000 --- a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isExtensible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isExtensible - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isHomogeneous.st b/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isHomogeneous.st deleted file mode 100644 index e7b0353b..00000000 --- a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isHomogeneous.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isHomogeneous - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isInitializable.st b/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isInitializable.st deleted file mode 100644 index 2ea38e00..00000000 --- a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isInitializable.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isInitializable - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isSequenced.st b/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isSequenced.st deleted file mode 100644 index 9c3573ad..00000000 --- a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isSequenced.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isSequenced - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isUnique.st b/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isUnique.st deleted file mode 100644 index 9e721c84..00000000 --- a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/instance/isUnique.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isUnique - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/properties.json b/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/properties.json deleted file mode 100644 index 552bf633..00000000 --- a/repository/Grease-Tests-Core.package/GRSortedCollectionTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRAbstractSequenceableCollectionTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRSortedCollectionTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/README.md b/repository/Grease-Tests-Core.package/GRStringTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/allowsDuplicateValues.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/allowsDuplicateValues.st deleted file mode 100644 index 37514373..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/allowsDuplicateValues.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -allowsDuplicateValues - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/arbitraryCollection.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/arbitraryCollection.st deleted file mode 100644 index 098d09eb..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/arbitraryCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -arbitraryCollection - ^ 'fadbbc' copy "String literals are immutable" \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/collectionClass.st deleted file mode 100644 index 4762dac5..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ String \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/duplicateElement.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/duplicateElement.st deleted file mode 100644 index b260086d..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/duplicateElement.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -duplicateElement - ^ $b \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/excludedElement.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/excludedElement.st deleted file mode 100644 index 38a332bb..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/excludedElement.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -excludedElement - ^ $Q \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/includedElement.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/includedElement.st deleted file mode 100644 index a2114a89..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/includedElement.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -includedElement - ^ $d \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/isExtensible.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/isExtensible.st deleted file mode 100644 index 413e3eba..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/isExtensible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isExtensible - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/isHomogeneous.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/isHomogeneous.st deleted file mode 100644 index e7b0353b..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/isHomogeneous.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isHomogeneous - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/isInitializable.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/isInitializable.st deleted file mode 100644 index 2ea38e00..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/isInitializable.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isInitializable - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/isSequenced.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/isSequenced.st deleted file mode 100644 index 49222dce..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/isSequenced.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isSequenced - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/isUnique.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/isUnique.st deleted file mode 100644 index 9e721c84..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/isUnique.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isUnique - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testAsUppercase.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testAsUppercase.st deleted file mode 100644 index 7b1a4cfb..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testAsUppercase.st +++ /dev/null @@ -1,4 +0,0 @@ -tests-converting -testAsUppercase - self assert: 'abc' asUppercase = 'ABC'. - self assert: 'ABC' asUppercase = 'ABC' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testCapitalized.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testCapitalized.st deleted file mode 100644 index 934707c4..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testCapitalized.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-converting -testCapitalized - self assert: 'capitalized' capitalized = 'Capitalized'. - self assert: 'Capitalized' capitalized = 'Capitalized'. - self assert: 'CAPITALIZED' capitalized = 'CAPITALIZED'. - self assert: #'capitalized' capitalized = #'Capitalized'. - self assert: #'Capitalized' capitalized = #'Capitalized'. - self assert: #'CAPITALIZED' capitalized = #'CAPITALIZED' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testCapitalizedUmlauts.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testCapitalizedUmlauts.st deleted file mode 100644 index dd029327..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testCapitalizedUmlauts.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-converting -testCapitalizedUmlauts - self assert: 'äöü' capitalized = 'Äöü'. - self assert: 'Äöü' capitalized = 'Äöü'. - self assert: 'ÄÖÜ' capitalized = 'ÄÖÜ'. - self assert: #'äöü' capitalized = #'Äöü'. - self assert: #'Äöü' capitalized = #'Äöü'. - self assert: #'ÄÖÜ' capitalized = #'ÄÖÜ' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testExcerpt.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testExcerpt.st deleted file mode 100644 index 69b80afd..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testExcerpt.st +++ /dev/null @@ -1,10 +0,0 @@ -tests-excerpt -testExcerpt - self assert: ('abcde' excerpt: 'c' radius: 0) = '...c...'. - self assert: ('abcde' excerpt: 'c' radius: 1) = '...bcd...'. - self assert: ('abcde' excerpt: 'c' radius: 2) = 'abcde'. - self assert: ('abcde' excerpt: 'c' radius: 3) = 'abcde'. - - self assert: ('abcde' excerpt: 'c' radius: 0 ellipsis: 'x') = 'xcx'. - self assert: ('abcde' excerpt: 'c' radius: 1 ellipsis: 'x') = 'xbcdx'. - self assert: ('abcde' excerpt: 'c' radius: 2 ellipsis: 'x') = 'abcde' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testExcerptEmpty.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testExcerptEmpty.st deleted file mode 100644 index 8ee139ab..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testExcerptEmpty.st +++ /dev/null @@ -1,5 +0,0 @@ -tests-excerpt -testExcerptEmpty - self assert: ('' excerpt: '') isNil. - self assert: ('' excerpt: 'x') isNil. - self assert: ('x' excerpt: '') isNil \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testExcerptLeft.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testExcerptLeft.st deleted file mode 100644 index 9303af88..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testExcerptLeft.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-excerpt -testExcerptLeft - self assert: ('abcde' excerpt: 'd' radius: 0 ellipsis: 'x') = 'xdx'. - self assert: ('abcde' excerpt: 'd' radius: 1 ellipsis: 'x') = 'xcde'. - self assert: ('abcde' excerpt: 'd' radius: 2 ellipsis: 'x') = 'xbcde'. - self assert: ('abcde' excerpt: 'd' radius: 3 ellipsis: 'x') = 'abcde' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testExcerptRight.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testExcerptRight.st deleted file mode 100644 index aa848501..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testExcerptRight.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-excerpt -testExcerptRight - self assert: ('abcde' excerpt: 'b' radius: 0 ellipsis: 'x') = 'xbx'. - self assert: ('abcde' excerpt: 'b' radius: 1 ellipsis: 'x') = 'abcx'. - self assert: ('abcde' excerpt: 'b' radius: 2 ellipsis: 'x') = 'abcdx'. - self assert: ('abcde' excerpt: 'b' radius: 3 ellipsis: 'x') = 'abcde' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorAssimilated.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorAssimilated.st deleted file mode 100644 index e95af510..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorAssimilated.st +++ /dev/null @@ -1,4 +0,0 @@ -tests-pluralize -testInflectorAssimilated - self assert: 'vertice' pluralize = 'vertices'. - self assert: 'index' pluralize = 'indices' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorCommonSuffixes.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorCommonSuffixes.st deleted file mode 100644 index 0d2974ac..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorCommonSuffixes.st +++ /dev/null @@ -1,5 +0,0 @@ -tests-pluralize -testInflectorCommonSuffixes - self assert: 'mouse' pluralize = 'mice'. - self assert: 'synopse' pluralize = 'synopses'. - self assert: 'man' pluralize = 'men' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorFfffSuffixes.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorFfffSuffixes.st deleted file mode 100644 index 4cfe5c22..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorFfffSuffixes.st +++ /dev/null @@ -1,4 +0,0 @@ -tests-pluralize -testInflectorFfffSuffixes - self assert: 'life' pluralize = 'lives'. - self assert: 'wolf' pluralize = 'wolves' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorIrregular.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorIrregular.st deleted file mode 100644 index 1aa45127..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorIrregular.st +++ /dev/null @@ -1,7 +0,0 @@ -tests-pluralize -testInflectorIrregular - self assert: 'genie' pluralize = 'genies'. - self assert: 'ox' pluralize = 'oxen'. - self assert: 'cow' pluralize = 'kine'. - self assert: 'child' pluralize = 'children'. - self assert: 'woman' pluralize = 'women' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorNotInflecting.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorNotInflecting.st deleted file mode 100644 index e39bf1af..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorNotInflecting.st +++ /dev/null @@ -1,6 +0,0 @@ -tests-pluralize -testInflectorNotInflecting - self assert: 'fish' pluralize = 'fish'. - self assert: 'travois' pluralize = 'travois'. - self assert: 'chassis' pluralize = 'chassis'. - self assert: 'nationalities' pluralize = 'nationalities' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorTsssSuffixes.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorTsssSuffixes.st deleted file mode 100644 index 1b79da0e..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorTsssSuffixes.st +++ /dev/null @@ -1,4 +0,0 @@ -tests-pluralize -testInflectorTsssSuffixes - self assert: 'church' pluralize = 'churches'. - self assert: 'class' pluralize = 'classes' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorYyyySuffixes.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorYyyySuffixes.st deleted file mode 100644 index 3db428f6..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testInflectorYyyySuffixes.st +++ /dev/null @@ -1,5 +0,0 @@ -tests-pluralize -testInflectorYyyySuffixes - self assert: 'story' pluralize = 'stories'. - self assert: 'lady' pluralize = 'ladies'. - self assert: 'stay' pluralize = 'stays' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testSubStrings.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testSubStrings.st deleted file mode 100644 index 881c323d..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testSubStrings.st +++ /dev/null @@ -1,26 +0,0 @@ -tests -testSubStrings - "#subStrings: is defined by ANSI 5.7.10.15: - Answer an array containing the substrings in the receiver separated by the elements of separators." - | mimeType tokens | - mimeType := 'application/xhtml+xml'. - tokens := mimeType substrings: '/'. - self assert: tokens size = 2. - self assert: tokens first = 'application'. - self assert: tokens second = 'xhtml+xml'. - - "ANSI is a bit unclear on how multiple sequential delimiters should be treated. - Make sure behaviour is consistent for several delimiters in a row (taken from - Squeak's behaviour)" - tokens := 'abc,.def.ghi' substrings: '.,'. - self assert: tokens size = 3. - self assert: tokens first = 'abc'. - self assert: tokens second = 'def'. - self assert: tokens third = 'ghi'. - - "also ensure behavior consistent for several delimiters in a row at beginning and end of string...for completeness" - tokens := ',.abc,.def.ghi.,' substrings: '.,'. - self assert: tokens size = 3. - self assert: tokens first = 'abc'. - self assert: tokens second = 'def'. - self assert: tokens third = 'ghi' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTrimBoth.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTrimBoth.st deleted file mode 100644 index f950a46a..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTrimBoth.st +++ /dev/null @@ -1,12 +0,0 @@ -tests-trim -testTrimBoth - self assert: '' trimBoth = ''. - self assert: ' ' trimBoth = ''. - self assert: ' ' trimBoth = ''. - self assert: 'foo' trimBoth = 'foo'. - self assert: ' foo ' trimBoth = 'foo'. - self assert: ' foo ' trimBoth = 'foo'. - self assert: ((String with: Character cr), ' foo ') trimBoth = 'foo'. - - self assert: ('aabbaa' trimBoth: [ :each | each = $a ]) = 'bb'. - self assert: ('bbaabb' trimBoth: [ :each | each = $a ]) = 'bbaabb' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTrimLeft.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTrimLeft.st deleted file mode 100644 index 9b0ea58f..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTrimLeft.st +++ /dev/null @@ -1,11 +0,0 @@ -tests-trim -testTrimLeft - self assert: '' trimLeft = ''. - self assert: ' ' trimLeft = ''. - self assert: ' ' trimLeft = ''. - self assert: 'foo' trimLeft = 'foo'. - self assert: ' foo ' trimLeft = 'foo '. - self assert: ' foo ' trimLeft = 'foo '. - - self assert: ('aabbaa' trimLeft: [ :each | each = $a ]) = 'bbaa'. - self assert: ('bbaabb' trimLeft: [ :each | each = $a ]) = 'bbaabb' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTrimRight.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTrimRight.st deleted file mode 100644 index 0a5f10a9..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTrimRight.st +++ /dev/null @@ -1,11 +0,0 @@ -tests-trim -testTrimRight - self assert: '' trimRight = ''. - self assert: ' ' trimRight = ''. - self assert: ' ' trimRight = ''. - self assert: 'foo' trimRight = 'foo'. - self assert: ' foo ' trimRight = ' foo'. - self assert: ' foo ' trimRight = ' foo'. - - self assert: ('aabbaa' trimRight: [ :each | each = $a ]) = 'aabb'. - self assert: ('bbaabb' trimRight: [ :each | each = $a ]) = 'bbaabb' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTruncate.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTruncate.st deleted file mode 100644 index c98e3d52..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTruncate.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-truncate -testTruncate - self assert: ('abc' truncate) = 'abc'. - self assert: ('abc' truncate: 3) = 'abc'. - self assert: ('abc' truncate: 2) = 'ab...'. - - self assert: ('abc' truncate: 1 ellipsis: '') = 'a'. - self assert: ('abc' truncate: 0 ellipsis: 'none') = 'none' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTruncateEmpty.st b/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTruncateEmpty.st deleted file mode 100644 index d56a6abc..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/instance/testTruncateEmpty.st +++ /dev/null @@ -1,3 +0,0 @@ -tests-truncate -testTruncateEmpty - self assert: '' truncate = '' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRStringTest.class/properties.json b/repository/Grease-Tests-Core.package/GRStringTest.class/properties.json deleted file mode 100644 index 3d55c265..00000000 --- a/repository/Grease-Tests-Core.package/GRStringTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRAbstractSequenceableCollectionTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRStringTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSymbolTest.class/README.md b/repository/Grease-Tests-Core.package/GRSymbolTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/allowsDuplicateValues.st b/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/allowsDuplicateValues.st deleted file mode 100644 index 37514373..00000000 --- a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/allowsDuplicateValues.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -allowsDuplicateValues - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/arbitraryCollection.st b/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/arbitraryCollection.st deleted file mode 100644 index 881b1988..00000000 --- a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/arbitraryCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -arbitraryCollection - ^ #'fadbbc' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/collectionClass.st b/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/collectionClass.st deleted file mode 100644 index 7b79cac0..00000000 --- a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ Symbol \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/duplicateElement.st b/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/duplicateElement.st deleted file mode 100644 index b260086d..00000000 --- a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/duplicateElement.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -duplicateElement - ^ $b \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/emptyCollection.st b/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/emptyCollection.st deleted file mode 100644 index de2fe826..00000000 --- a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/emptyCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -emptyCollection - ^ #'' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/excludedElement.st b/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/excludedElement.st deleted file mode 100644 index 38a332bb..00000000 --- a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/excludedElement.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -excludedElement - ^ $Q \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/includedElement.st b/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/includedElement.st deleted file mode 100644 index a2114a89..00000000 --- a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/includedElement.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -includedElement - ^ $d \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isExtensible.st b/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isExtensible.st deleted file mode 100644 index 413e3eba..00000000 --- a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isExtensible.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isExtensible - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isHomogeneous.st b/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isHomogeneous.st deleted file mode 100644 index e7b0353b..00000000 --- a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isHomogeneous.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isHomogeneous - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isInitializable.st b/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isInitializable.st deleted file mode 100644 index 7ca2445b..00000000 --- a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isInitializable.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isInitializable - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isSequenced.st b/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isSequenced.st deleted file mode 100644 index 9c3573ad..00000000 --- a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isSequenced.st +++ /dev/null @@ -1,3 +0,0 @@ -testing-ansi -isSequenced - ^ false \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isUnique.st b/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isUnique.st deleted file mode 100644 index 6f14228f..00000000 --- a/repository/Grease-Tests-Core.package/GRSymbolTest.class/instance/isUnique.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isUnique - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRSymbolTest.class/properties.json b/repository/Grease-Tests-Core.package/GRSymbolTest.class/properties.json deleted file mode 100644 index 30701521..00000000 --- a/repository/Grease-Tests-Core.package/GRSymbolTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRAbstractSequenceableCollectionTest", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRSymbolTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/README.md b/repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/class/defaultValue.st b/repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/class/defaultValue.st deleted file mode 100644 index dab874c7..00000000 --- a/repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/class/defaultValue.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultValue - ^ 'default test value' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/properties.json b/repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/properties.json deleted file mode 100644 index 45a40585..00000000 --- a/repository/Grease-Tests-Core.package/GRTestDynamicVariable.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRDynamicVariable", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRTestDynamicVariable", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/README.md b/repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/class/defaultValue.st b/repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/class/defaultValue.st deleted file mode 100644 index dab874c7..00000000 --- a/repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/class/defaultValue.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultValue - ^ 'default test value' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/properties.json b/repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/properties.json deleted file mode 100644 index fd4b4364..00000000 --- a/repository/Grease-Tests-Core.package/GRTestNotificationBasedDynamicVariable.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "GRNotificationBasedDynamicVariable", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRTestNotificationBasedDynamicVariable", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/README.md b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/asByteArray..st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/asByteArray..st deleted file mode 100644 index 4ba05d6f..00000000 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/asByteArray..st +++ /dev/null @@ -1,5 +0,0 @@ -private -asByteArray: aCollectionOfIntegers - ^ ByteArray streamContents: [ :stream | - aCollectionOfIntegers do: [ :each | - stream nextPut: each ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/asString..st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/asString..st deleted file mode 100644 index 433f0016..00000000 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/asString..st +++ /dev/null @@ -1,5 +0,0 @@ -private -asString: aCollectionOfIntegers - ^ String streamContents: [ :stream | - aCollectionOfIntegers do: [ :each | - stream nextPut: (Character codePoint: each) ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/decodedString.st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/decodedString.st deleted file mode 100644 index c7550bff..00000000 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/decodedString.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -decodedString - ^ 'Übèrstrîñgé' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/seasideByteArray.st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/seasideByteArray.st deleted file mode 100644 index ecd5b581..00000000 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/seasideByteArray.st +++ /dev/null @@ -1,3 +0,0 @@ -private -seasideByteArray - ^ #(83 101 97 115 105 100 101) "Seaside" asByteArray \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8.st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8.st deleted file mode 100644 index 22c03f1c..00000000 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testCodecUtf8 - #('UTF-8' 'utf-8') do: [ :codecName | - | codec | - codec := GRCodec forEncoding: codecName. - self assert: codec name asLowercase = codecName asLowercase. - self assert: codec url name asLowercase = codecName asLowercase. - self assert: (codec encode: self decodedString) = (self utf8StringOrByteArrayForCodec: codec). - self assert: (codec url encode: self decodedString) = (self utf8StringOrByteArrayForCodec: codec). - self assert: (codec decode: (self utf8StringOrByteArrayForCodec: codec)) = self decodedString. - self assert: (codec url decode: (self utf8StringOrByteArrayForCodec: codec)) = self decodedString ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8Bom.st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8Bom.st deleted file mode 100644 index cf83f5dc..00000000 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8Bom.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testCodecUtf8Bom - #('UTF-8' 'utf-8') do: [ :codecName | - | codec bom | - codec := GRCodec forEncoding: codecName. - (codec encodedStringClass == ByteArray) - ifTrue:[ bom := self asByteArray: #(239 187 191) ] - ifFalse:[bom := self asString: #(239 187 191) ]. - self assert: (codec decode: bom , (self utf8StringOrByteArrayForCodec: codec)) = self decodedString. - self assert: (codec url decode: bom , (self utf8StringOrByteArrayForCodec: codec)) = self decodedString ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8BorderLineString.st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8BorderLineString.st deleted file mode 100644 index 678e755e..00000000 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8BorderLineString.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testCodecUtf8BorderLineString - #('UTF-8' 'utf-8') do: [ :codecName | - | codec writeStream | - codec := GRCodec forEncoding: codecName. - writeStream := codec encoderFor: (GRPlatform current writeCharacterStreamOn: codec encodedStringClass new). - writeStream nextPut: (Character codePoint: 0). - writeStream nextPut: (Character codePoint: 255). - writeStream nextPut: (Character codePoint: 256). - self assert: writeStream contents asString = (String - with: (Character codePoint: 16r00) "character 0" - with: (Character codePoint: 16rC3) with: (Character codePoint: 16rBF) "character 255" - with: (Character codePoint: 16rC4) with: (Character codePoint: 16r80)) "character 256" ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8ShortestForm.st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8ShortestForm.st deleted file mode 100644 index d18279a1..00000000 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8ShortestForm.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testCodecUtf8ShortestForm - "Non shortest form characters should be rejected - See Corrigendum #1: UTF-8 Shortest Form http://www.unicode.org/versions/corrigendum1.html" - #('UTF-8' 'utf-8') do: [ :codecName | - | codec abc | - codec := GRCodec forEncoding: codecName. - codec encodedStringClass == ByteArray - ifTrue:[ abc := self asByteArray: #(193 129 193 130 193 131 ) ] - ifFalse:[ abc := self asString: #(193 129 193 130 193 131 ) ]. - self - should: [ self deny: (codec decode: abc) = 'ABC' ] - raise: Error ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testNext.st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testNext.st deleted file mode 100644 index c38bdbea..00000000 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testNext.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testNext - | stream | - stream := (GRCodec forEncoding: 'utf8') - encoderFor: self seasideByteArray readStream. - self assert: stream next = $S. - self assert: (stream next: 1) = 'e' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/utf8String.st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/utf8String.st deleted file mode 100644 index 51a6526a..00000000 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/utf8String.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -utf8String - ^ self asString: #(195 156 98 195 168 114 115 116 114 195 174 195 177 103 195 169) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/utf8StringOrByteArrayForCodec..st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/utf8StringOrByteArrayForCodec..st deleted file mode 100644 index 3020173f..00000000 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/utf8StringOrByteArrayForCodec..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -utf8StringOrByteArrayForCodec: codec - | bytes | - bytes := #(195 156 98 195 168 114 115 116 114 195 174 195 177 103 195 169). - ^ codec encodedStringClass == ByteArray - ifTrue:[ self asByteArray: bytes ] - ifFalse:[ self asString: bytes ] \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/properties.json b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/properties.json deleted file mode 100644 index cd88f848..00000000 --- a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRUtf8CodecTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRVersionTest.class/README.md b/repository/Grease-Tests-Core.package/GRVersionTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/assert.equals..st b/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/assert.equals..st deleted file mode 100644 index 72d1e90e..00000000 --- a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/assert.equals..st +++ /dev/null @@ -1,15 +0,0 @@ -asserting -assert: aVersionArray equals: bVersionArray - | a b | - a := self buildVersion: aVersionArray. - b := self buildVersion: bVersionArray. - self deny: a < b. - self assert: a <= b. - self deny: b < a. - self assert: b <= a. - self deny: b > a. - self assert: b >= a. - self deny: a > b. - self assert: a >= b. - self assert: a = b. - self assert: a hash = b hash \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/assert.sortsBefore..st b/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/assert.sortsBefore..st deleted file mode 100644 index e5f4185e..00000000 --- a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/assert.sortsBefore..st +++ /dev/null @@ -1,14 +0,0 @@ -asserting -assert: aVersionArray sortsBefore: bVersionArray - | a b | - a := self buildVersion: aVersionArray. - b := self buildVersion: bVersionArray. - self assert: a < b. - self assert: a <= b. - self deny: b < a. - self deny: b <= a. - self assert: b > a. - self assert: b >= a. - self deny: a > b. - self deny: a >= b. - self deny: a = b \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/buildVersion..st b/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/buildVersion..st deleted file mode 100644 index 0d9993ea..00000000 --- a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/buildVersion..st +++ /dev/null @@ -1,8 +0,0 @@ -private -buildVersion: anArray - ^ (GRVersion - major: (anArray at: 1 ifAbsent: [ nil ]) - minor: (anArray at: 2 ifAbsent: [ nil ]) - revision: (anArray at: 3 ifAbsent: [ nil ])) - stage: (anArray at: 4 ifAbsent: [ nil ]) number: (anArray at: 5 ifAbsent: [ nil ]); - yourself \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testAccessors.st b/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testAccessors.st deleted file mode 100644 index 4e897e3c..00000000 --- a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testAccessors.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testAccessors - | version | - version := self buildVersion: #(1 2 3 #alpha 4). - self assert: version major = 1. - self assert: version minor = 2. - self assert: version revision = 3. - self assert: version stage = #alpha. - self assert: version stageNumber = 4. \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testComparison.st b/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testComparison.st deleted file mode 100644 index 597b1dff..00000000 --- a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testComparison.st +++ /dev/null @@ -1,28 +0,0 @@ -tests -testComparison - self assert: #(1) sortsBefore: #(2). - self assert: #(2) sortsBefore: #(10). - self assert: #(1) sortsBefore: #(1 1). - self assert: #(1 nil nil #alpha) sortsBefore: #(1). - self assert: #(1 nil nil #alpha) sortsBefore: #(1 0). - self assert: #(1 nil nil #alpha) sortsBefore: #(1 0 0). - self assert: #(1 0) sortsBefore: #(2). - self assert: #(1 0) sortsBefore: #(2 0). - self assert: #(1 0) sortsBefore: #(1 1). - self assert: #(1 2) sortsBefore: #(1 10). - self assert: #(1 0 nil #alpha) sortsBefore: #(1 0). - self assert: #(1 0 nil #alpha) sortsBefore: #(1 0 0). - self assert: #(1 0 0) sortsBefore: #(2). - self assert: #(1 0 0) sortsBefore: #(1 1). - self assert: #(1 0 1) sortsBefore: #(1 1). - self assert: #(1 0 1 #alpha) sortsBefore: #(1 1). - self assert: #(1 1 0 #alpha) sortsBefore: #(1 1). - self assert: #(1 1 0 #alpha 2) sortsBefore: #(1 1). - self assert: #(1 1 0 #beta) sortsBefore: #(1 1). - self assert: #(1 1 0 #beta 2) sortsBefore: #(1 1). - self assert: #(1 nil nil #alpha) sortsBefore: #(1 nil nil #alpha 2). - self assert: #(1 nil nil #beta) sortsBefore: #(1 nil nil #beta 2). - self assert: #(1 0 nil #alpha) sortsBefore: #(1 0 nil #alpha 2). - self assert: #(1 0 nil #beta) sortsBefore: #(1 0 nil #beta 2). - self assert: #(1 0 0 #alpha) sortsBefore: #(1 0 0 #alpha 2). - self assert: #(1 0 0 #beta) sortsBefore: #(1 0 0 #beta 2) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testConvenience.st b/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testConvenience.st deleted file mode 100644 index 2323dd83..00000000 --- a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testConvenience.st +++ /dev/null @@ -1,47 +0,0 @@ -tests -testConvenience - | version | - version := GRVersion major: 1 minor: 2 revision: 3. - self assert: version stage isNil. - self assert: version stageNumber isNil. - self assert: version isFinal. - self deny: version isAlpha. - self deny: version isBeta. - version beAlpha. - self assert: version stage = #alpha. - self assert: version stageNumber isNil. - self assert: version isAlpha. - self deny: version isBeta. - self deny: version isFinal. - version beBeta. - self assert: version stage = #beta. - self assert: version stageNumber isNil. - self assert: version isBeta. - self deny: version isAlpha. - self deny: version isFinal. - version beReleaseCandidate. - self assert: version stage = #rc. - self assert: version stageNumber isNil. - self assert: version isReleaseCandidate. - version beReleaseCandidate: 1. - self assert: version stage = #rc. - self assert: version stageNumber = 1. - self assert: version isReleaseCandidate. - version beAlpha: 1. - self assert: version stage = #alpha. - self assert: version stageNumber = 1. - self assert: version isAlpha. - self deny: version isBeta. - self deny: version isFinal. - version beBeta: 1. - self assert: version stage = #beta. - self assert: version stageNumber = 1. - self assert: version isBeta. - self deny: version isAlpha. - self deny: version isFinal. - version beFinal. - self assert: version stage isNil. - self assert: version stageNumber isNil. - self assert: version isFinal. - self deny: version isAlpha. - self deny: version isBeta \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testEquality.st b/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testEquality.st deleted file mode 100644 index 5f7ae331..00000000 --- a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testEquality.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testEquality - self assert: #(1) equals: #(1). - self assert: #(1) equals: #(1 0). - self assert: #(1) equals: #(1 0 0). - self assert: #(1 0) equals: #(1 0). - self assert: #(1 0) equals: #(1 0 0). - self assert: #(1 0 0) equals: #(1 0 0). - self assert: #(1 0 0 #alpha) equals: #(1 0 0 #alpha 1). - self assert: #(1 0 0 #beta) equals: #(1 0 0 #beta 1) \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testStringConversion.st b/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testStringConversion.st deleted file mode 100644 index 1c52670b..00000000 --- a/repository/Grease-Tests-Core.package/GRVersionTest.class/instance/testStringConversion.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testStringConversion - self assert: (GRVersion major: 1 minor: 2 revision: 3) greaseString = '1.2.3'. - self assert: (GRVersion major: 11 minor: 12 revision: 13) greaseString = '11.12.13'. - self assert: (GRVersion major: 1 minor: 2) greaseString = '1.2'. - self assert: (GRVersion major: 1 minor: 2 revision: 0) greaseString = '1.2.0'. - self assert: (GRVersion major: 1) greaseString = '1.0'. - self assert: ((GRVersion major: 1 minor: 2 revision: 3) beAlpha) greaseString = '1.2.3alpha'. - self assert: ((GRVersion major: 1 minor: 2 revision: 3) beAlpha: 1) greaseString = '1.2.3alpha1'. - self assert: ((GRVersion major: 1 minor: 2 revision: 3) beBeta) greaseString = '1.2.3beta'. - self assert: ((GRVersion major: 1 minor: 2 revision: 3) beBeta: 1) greaseString = '1.2.3beta1' \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/GRVersionTest.class/properties.json b/repository/Grease-Tests-Core.package/GRVersionTest.class/properties.json deleted file mode 100644 index a9fac191..00000000 --- a/repository/Grease-Tests-Core.package/GRVersionTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRVersionTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/monticello.meta/categories.st b/repository/Grease-Tests-Core.package/monticello.meta/categories.st deleted file mode 100644 index 7e8202de..00000000 --- a/repository/Grease-Tests-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -self packageOrganizer ensurePackage: #'Grease-Tests-Core' withTags: #()! diff --git a/repository/Grease-Tests-Core.package/monticello.meta/initializers.st b/repository/Grease-Tests-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Core.package/monticello.meta/package b/repository/Grease-Tests-Core.package/monticello.meta/package deleted file mode 100644 index 8f1c9893..00000000 --- a/repository/Grease-Tests-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-Core') \ No newline at end of file diff --git a/repository/Grease-Tests-Core.package/properties.json b/repository/Grease-Tests-Core.package/properties.json deleted file mode 100644 index 6f31cf5a..00000000 --- a/repository/Grease-Tests-Core.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/repository/Grease-Tests-Core/GRAbstractDictionaryTest.class.st b/repository/Grease-Tests-Core/GRAbstractDictionaryTest.class.st new file mode 100644 index 00000000..0f2f6e6e --- /dev/null +++ b/repository/Grease-Tests-Core/GRAbstractDictionaryTest.class.st @@ -0,0 +1,77 @@ +Class { + #name : 'GRAbstractDictionaryTest', + #superclass : 'GRCollectionTest', + #instVars : [ + 'associations' + ], + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'testing' } +GRAbstractDictionaryTest class >> isAbstract [ + ^ self name = #GRAbstractDictionaryTest +] + +{ #category : 'configuration' } +GRAbstractDictionaryTest >> allowsDuplicateValues [ + ^ true +] + +{ #category : 'configuration' } +GRAbstractDictionaryTest >> arbitraryAssociations [ + ^ associations ifNil: [ associations := self createArbitraryAssociations ] +] + +{ #category : 'configuration' } +GRAbstractDictionaryTest >> arbitraryCollection [ + | dict | + dict := self emptyCollection. + self arbitraryAssociations do: [ :each | + dict at: each key put: each value ]. + ^ dict +] + +{ #category : 'configuration' } +GRAbstractDictionaryTest >> createArbitraryAssociations [ + self subclassResponsibility +] + +{ #category : 'testing-ansi' } +GRAbstractDictionaryTest >> isExtensible [ + ^ false +] + +{ #category : 'testing-ansi' } +GRAbstractDictionaryTest >> isInitializable [ + ^ false +] + +{ #category : 'configuration' } +GRAbstractDictionaryTest >> isKey: anObject equivalentTo: anotherObject [ + self subclassResponsibility +] + +{ #category : 'tests' } +GRAbstractDictionaryTest >> testAssociationsDo [ + | collection assocs count | + collection := self arbitraryCollection. + assocs := self arbitraryAssociations copy. + count := 0. + collection associationsDo: [ :assoc | + | size | + count := count + 1. + size := assocs size. + assocs := assocs + reject: [ :each | + (self isKey: each key equivalentTo: assoc key) + and: [ each value = assoc value ] ]. + self assert: size - 1 = assocs size ]. + self assert: assocs isEmpty. + self assert: count = self arbitraryAssociations size +] + +{ #category : 'private' } +GRAbstractDictionaryTest >> valuesOf: aCollection [ + ^ aCollection values +] diff --git a/repository/Grease-Tests-Core/GRAbstractSequenceableCollectionTest.class.st b/repository/Grease-Tests-Core/GRAbstractSequenceableCollectionTest.class.st new file mode 100644 index 00000000..4e0014a3 --- /dev/null +++ b/repository/Grease-Tests-Core/GRAbstractSequenceableCollectionTest.class.st @@ -0,0 +1,263 @@ +Class { + #name : 'GRAbstractSequenceableCollectionTest', + #superclass : 'GRCollectionTest', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'testing' } +GRAbstractSequenceableCollectionTest class >> isAbstract [ + ^ self name = #GRAbstractSequenceableCollectionTest +] + +{ #category : 'testing' } +GRAbstractSequenceableCollectionTest >> isHomogeneous [ + "Some classes can contain only objects of a particular class. String is an example of such a class." + ^ self subclassResponsibility +] + +{ #category : 'testing-ansi' } +GRAbstractSequenceableCollectionTest >> isSequenced [ + "Answer whether the tested Collection implements the + protocol as defined in ANSI 5.7.12." + + self subclassResponsibility +] + +{ #category : 'testing' } +GRAbstractSequenceableCollectionTest >> isUnique [ + "Some classes cannot be copied because they represent unique values. Symbol is an example of such a class." + ^ self subclassResponsibility +] + +{ #category : 'tests' } +GRAbstractSequenceableCollectionTest >> testAddFirst [ + | collection | + (self isExtensible and: [ self isSequenced ]) ifFalse: [ ^ self ]. + + collection := self arbitraryCollection. + collection addFirst: self excludedElement. + self assert: (collection at: 1) = self excludedElement. + self assert: (collection copyFrom: 2 to: collection size) = self arbitraryCollection +] + +{ #category : 'tests' } +GRAbstractSequenceableCollectionTest >> testBeginsWithEmptySubCollection [ + | collection | + collection := self arbitraryCollection. + self deny: (collection beginsWithSubCollection: self emptyCollection). + self deny: (self emptyCollection beginsWithSubCollection: collection) +] + +{ #category : 'tests' } +GRAbstractSequenceableCollectionTest >> testBeginsWithSubCollection [ + | collection | + collection := self arbitraryCollection. + self assert: (collection beginsWithSubCollection: (collection copyWithout: collection last)). + self assert: (collection beginsWithSubCollection: collection). + self deny: (collection beginsWithSubCollection: (collection copyWith: collection first)) +] + +{ #category : 'tests' } +GRAbstractSequenceableCollectionTest >> testCopyAfter [ + | collection sub | + + "match last element" + collection := self arbitraryCollection. + sub := collection copyAfter: collection last. + self assert: sub validSequencedNewResponseFrom: collection. + self assert: sub isEmpty. + + "no match" + self isUnique ifFalse: [ + sub := collection copyAfter: self excludedElement. + self assert: sub validSequencedNewResponseFrom: collection. + self assert: sub isEmpty ]. + + "match an element" + sub := collection copyAfter: self includedElement. + self assert: sub validSequencedNewResponseFrom: collection. + self assert: sub = (collection copyFrom: collection size - sub size + 1 to: collection size). + self assert: (collection at: collection size - sub size) = self includedElement. + + self allowsDuplicateValues ifTrue: [ + sub := collection copyAfter: self duplicateElement. + self assert: sub validSequencedNewResponseFrom: collection. + self assert: sub = (collection copyFrom: collection size - sub size + 1 to: collection size). + self assert: (collection at: collection size - sub size) = self duplicateElement. + self assert: (sub includes: self duplicateElement) ]. + + "Make sure we're using equality" + (self isHomogeneous not and: [ self isInitializable ]) ifTrue: [ + collection := self collectionClass withAll: #(1 '1'). + sub := collection copyAfter: 1. + self assert: sub size = 1. + self assert: (sub at: 1) = '1' ] +] + +{ #category : 'tests' } +GRAbstractSequenceableCollectionTest >> testCopyAfterLast [ + | collection sub | + + "match first element" + collection := self arbitraryCollection. + sub := collection copyAfterLast: collection last. + self assert: sub validSequencedNewResponseFrom: collection. + self assert: sub isEmpty. + + "no match" + self isUnique ifFalse: [ + sub := collection copyAfter: self excludedElement. + self assert: sub validSequencedNewResponseFrom: collection. + self assert: sub isEmpty ]. + + "match an element" + sub := collection copyAfterLast: self includedElement. + self assert: sub validSequencedNewResponseFrom: collection. + self assert: sub = (collection copyFrom: collection size - sub size + 1 to: collection size). + self assert: (collection at: collection size - sub size) = self includedElement. + + self allowsDuplicateValues ifTrue: [ + sub := collection copyAfterLast: self duplicateElement. + self assert: sub validSequencedNewResponseFrom: collection. + self assert: sub = (collection copyFrom: collection size - sub size + 1 to: collection size). + self assert: (collection at: collection size - sub size) = self duplicateElement. + self deny: (sub includes: self duplicateElement) ]. + + "Make sure we're using equality" + (self isHomogeneous not and: [ self isInitializable ]) ifTrue: [ + collection := self collectionClass withAll: #(1 '1'). + sub := collection copyAfterLast: 1. + self assert: sub size = 1. + self assert: (sub at: 1) = '1' ] +] + +{ #category : 'tests' } +GRAbstractSequenceableCollectionTest >> testCopyUpTo [ + | collection sub | + + "match first element" + collection := self arbitraryCollection. + sub := collection copyUpTo: (collection at: 1). + self assert: sub validSequencedNewResponseFrom: collection. + self assert: sub isEmpty. + + "no match" + self isUnique ifFalse: [ + sub := collection copyUpTo: self excludedElement. + self assert: sub validSequencedNewResponseFrom: collection. + self assert: sub size = collection size. + collection keysAndValuesDo: [ :index :value | + self assert: (sub at: index) = value ] ]. + + "match an element" + sub := collection copyUpTo: self includedElement. + self assert: sub validSequencedNewResponseFrom: collection. + self assert: sub = (collection copyFrom: 1 to: sub size). + self assert: (collection at: sub size + 1) = self includedElement. + + self allowsDuplicateValues ifTrue: [ + sub := collection copyUpTo: self duplicateElement. + self assert: sub validSequencedNewResponseFrom: collection. + self assert: sub = (collection copyFrom: 1 to: sub size). + self assert: (collection at: sub size + 1) = self duplicateElement. + self deny: (sub includes: self duplicateElement) ]. + + "Make sure we're using equality" + (self isHomogeneous not and: [ self isInitializable ]) ifTrue: [ + collection := self collectionClass withAll: #(1 '1'). + sub := collection copyUpTo: '1'. + self assert: sub size = 1. + self assert: (sub at: 1) = 1 ] +] + +{ #category : 'tests' } +GRAbstractSequenceableCollectionTest >> testCopyUpToLast [ + | collection sub | + + "match first element" + collection := self arbitraryCollection. + sub := collection copyUpToLast: collection first. + self assert: sub validSequencedNewResponseFrom: collection. + self assert: sub isEmpty. + + "no match" + self isUnique ifFalse: [ + sub := collection copyUpToLast: self excludedElement. + self assert: sub validSequencedNewResponseFrom: collection. + self assert: sub size = collection size. + collection keysAndValuesDo: [ :index :value | + self assert: (sub at: index) = value ] ]. + + "match an element" + sub := collection copyUpToLast: self includedElement. + self assert: sub validSequencedNewResponseFrom: collection. + self assert: sub = (collection copyFrom: 1 to: sub size). + self assert: (collection at: sub size + 1) = self includedElement. + + self allowsDuplicateValues ifTrue: [ + sub := collection copyUpToLast: self duplicateElement. + self assert: sub validSequencedNewResponseFrom: collection. + self assert: sub = (collection copyFrom: 1 to: sub size). + self assert: (collection at: sub size + 1) = self duplicateElement. + self assert: (sub includes: self duplicateElement) ]. + + "Make sure we're using equality" + (self isHomogeneous not and: [ self isInitializable ]) ifTrue: [ + collection := self collectionClass withAll: #(1 '1'). + sub := collection copyUpToLast: '1'. + self assert: sub size = 1. + self assert: sub first = 1 ] +] + +{ #category : 'tests' } +GRAbstractSequenceableCollectionTest >> testEndsWithEmptySubCollection [ + | collection | + collection := self arbitraryCollection. + self deny: (collection endsWithSubCollection: self emptyCollection). + self deny: (self emptyCollection endsWithSubCollection: collection) +] + +{ #category : 'tests' } +GRAbstractSequenceableCollectionTest >> testEndsWithSubCollection [ + | collection | + collection := self arbitraryCollection. + self assert: (collection endsWithSubCollection: (collection copyWithout: collection first)). + self assert: (collection endsWithSubCollection: collection). + self deny: (collection endsWithSubCollection: (collection copyWith: collection first)) +] + +{ #category : 'tests' } +GRAbstractSequenceableCollectionTest >> testGreaseBeginsWith [ + | collection | + collection := self arbitraryCollection. + self assert: (collection greaseBeginsWith: (collection copyWithout: collection last)). + self assert: (collection greaseBeginsWith: collection). + self deny: (collection greaseBeginsWith: (collection copyWith: collection first)). + self assert: (collection greaseBeginsWith: self emptyCollection). + self deny: (self emptyCollection greaseBeginsWith: collection) +] + +{ #category : 'tests' } +GRAbstractSequenceableCollectionTest >> testGreaseEndsWith [ + | collection | + collection := self arbitraryCollection. + self assert: (collection greaseEndsWith: (collection copyWithout: collection first)). + self assert: (collection greaseEndsWith: collection). + self deny: (collection greaseEndsWith: (collection copyWith: collection first)). + self assert: (collection greaseEndsWith: self emptyCollection). + self deny: (self emptyCollection greaseEndsWith: collection) +] + +{ #category : 'tests' } +GRAbstractSequenceableCollectionTest >> testSort [ + | collection | + self isSequenced ifFalse: [ ^ self ]. + + collection := self arbitraryCollection. + collection sort. + self assert: collection sortedWith: [ :a :b | a <= b ]. + + collection sort: [ :a :b | a > b ]. + self assert: collection sortedWith: [ :a :b | a > b ] +] diff --git a/repository/Grease-Tests-Core/GRArrayTest.class.st b/repository/Grease-Tests-Core/GRArrayTest.class.st new file mode 100644 index 00000000..36fc8908 --- /dev/null +++ b/repository/Grease-Tests-Core/GRArrayTest.class.st @@ -0,0 +1,41 @@ +Class { + #name : 'GRArrayTest', + #superclass : 'GRAbstractSequenceableCollectionTest', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'configuration' } +GRArrayTest >> allowsDuplicateValues [ + ^ true +] + +{ #category : 'configuration' } +GRArrayTest >> collectionClass [ + ^ Array +] + +{ #category : 'testing-ansi' } +GRArrayTest >> isExtensible [ + ^ false +] + +{ #category : 'testing' } +GRArrayTest >> isHomogeneous [ + ^ false +] + +{ #category : 'testing-ansi' } +GRArrayTest >> isInitializable [ + ^ true +] + +{ #category : 'testing-ansi' } +GRArrayTest >> isSequenced [ + ^ true +] + +{ #category : 'testing' } +GRArrayTest >> isUnique [ + ^ false +] diff --git a/repository/Grease-Tests-Core/GRBagTest.class.st b/repository/Grease-Tests-Core/GRBagTest.class.st new file mode 100644 index 00000000..164f1d5c --- /dev/null +++ b/repository/Grease-Tests-Core/GRBagTest.class.st @@ -0,0 +1,26 @@ +Class { + #name : 'GRBagTest', + #superclass : 'GRCollectionTest', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'configuration' } +GRBagTest >> allowsDuplicateValues [ + ^ true +] + +{ #category : 'configuration' } +GRBagTest >> collectionClass [ + ^ Bag +] + +{ #category : 'testing-ansi' } +GRBagTest >> isExtensible [ + ^ true +] + +{ #category : 'testing-ansi' } +GRBagTest >> isInitializable [ + ^ true +] diff --git a/repository/Grease-Tests-Core/GRCodecTest.class.st b/repository/Grease-Tests-Core/GRCodecTest.class.st new file mode 100644 index 00000000..2038cd11 --- /dev/null +++ b/repository/Grease-Tests-Core/GRCodecTest.class.st @@ -0,0 +1,124 @@ +Class { + #name : 'GRCodecTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'private' } +GRCodecTest >> asString: aCollectionOfIntegers [ + ^ String streamContents: [ :stream | + aCollectionOfIntegers do: [ :each | + stream nextPut: (Character codePoint: each) ] ] +] + +{ #category : 'accessing' } +GRCodecTest >> decodedString [ + ^ 'Übèrstrîñgé' +] + +{ #category : 'accessing' } +GRCodecTest >> latin1String [ + ^ self asString: #(220 98 232 114 115 116 114 238 241 103 233) +] + +{ #category : 'accessing' } +GRCodecTest >> macromanString [ + ^ self asString: #(134 98 143 114 115 116 114 148 150 103 142) +] + +{ #category : 'private' } +GRCodecTest >> seasideByteArray [ + ^ #(83 101 97 115 105 100 101) "Seaside" asByteArray +] + +{ #category : 'tests' } +GRCodecTest >> testAllCodecs [ + self assert: GRCodec allCodecs notEmpty. + GRCodec allCodecs do: [ :codec | + self deny: codec class = GRCodec. + self assert: (codec isKindOf: GRCodec) ] +] + +{ #category : 'tests' } +GRCodecTest >> testCodecLatin1 [ + #('iso-8859-1' 'ISO-8859-1' ) do: [ :each | + | codec | + codec := GRCodec forEncoding: each. + self assert: codec name = each. + self assert: codec url name = each. + + "Dialects may not guarantee anything about the comparability of + encoded strings. Convert to Strings for simplicity." + self assert: (codec encode: self decodedString) greaseString = self latin1String greaseString. + self assert: (codec url encode: self decodedString) greaseString = self latin1String greaseString. + self assert: (codec decode: self latin1String) = self decodedString. + self assert: (codec url decode: self latin1String) = self decodedString ] +] + +{ #category : 'tests' } +GRCodecTest >> testCodecLatin1BorderLineString [ + #('iso-8859-1' 'ISO-8859-1' ) do: [ :each | + | codec writeStream | + codec := GRCodec forEncoding: each. + writeStream := codec encoderFor: GRPlatform current readWriteCharacterStream. + writeStream nextPut: (Character codePoint: 0). + writeStream nextPut: (Character codePoint: 255). + self assert: writeStream contents = (String with: (Character codePoint: 0) with: (Character codePoint: 255)) ] +] + +{ #category : 'tests' } +GRCodecTest >> testNext [ + #('iso-8859-1' 'ISO-8859-1' ) do: [ :each | + | stream | + stream := (GRCodec forEncoding: each) + encoderFor: self seasideByteArray readStream. + self assert: stream next = $S. + self assert: (stream next: 1) = 'e' ] +] + +{ #category : 'tests' } +GRCodecTest >> testNullCodec [ + | codec strings | + codec := GRNullCodec new. + strings := OrderedCollection new + add: self latin1String; + add: self utf8String; + add: self utf16leString; + add: self utf16beString; + add: self macromanString; + yourself. + strings do: [ :string | + self assert: (codec encode: string) = string. + self assert: (codec url encode: string) = string. + self assert: (codec decode: string) = string. + self assert: (codec url decode: string) = string ] +] + +{ #category : 'tests' } +GRCodecTest >> testReset [ + | contents | + contents := String streamContents: [ :s | + | stream | + stream := (GRCodec forEncoding: 'ISO-8859-1') encoderFor: s. + stream + nextPutAll: 'abc'; + reset; + nextPut: $d ]. + self assert: contents = 'd' +] + +{ #category : 'accessing' } +GRCodecTest >> utf16beString [ + ^ self asString: #(0 220 0 98 0 232 0 114 0 115 0 116 0 114 0 238 0 241 0 103 0 233) +] + +{ #category : 'accessing' } +GRCodecTest >> utf16leString [ + ^ self asString: #(220 0 98 0 232 0 114 0 115 0 116 0 114 0 238 0 241 0 103 0 233 0) +] + +{ #category : 'accessing' } +GRCodecTest >> utf8String [ + ^ self asString: #(195 156 98 195 168 114 115 116 114 195 174 195 177 103 195 169) +] diff --git a/repository/Grease-Tests-Core/GRCollectionTest.class.st b/repository/Grease-Tests-Core/GRCollectionTest.class.st new file mode 100644 index 00000000..305c4add --- /dev/null +++ b/repository/Grease-Tests-Core/GRCollectionTest.class.st @@ -0,0 +1,178 @@ +Class { + #name : 'GRCollectionTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'testing' } +GRCollectionTest class >> isAbstract [ + ^ self name = #GRCollectionTest +] + +{ #category : 'configuration' } +GRCollectionTest >> allowsDuplicateValues [ + "Does the tested collection allow storage of duplicate (equal) values." + + self subclassResponsibility +] + +{ #category : 'configuration' } +GRCollectionTest >> arbitraryCollection [ + "An general collection for testing. It should meet the needs of #duplicateElement, + #excludedElement, #includedElement, and so on where appropriate. Make sure the + duplicated element doesn't end up being in the first or last position both before + and after sorting." + + ^ self collectionClass withAll: #(4 3 1 2 3 5) +] + +{ #category : 'asserting' } +GRCollectionTest >> assert: aCollection sortedWith: sortBlock [ + "Assert that aCollection is correctly sorted according to sortBlock." + + 1 to: aCollection size -1 do: [ :index | + | a b | + a := aCollection at: index. + b := aCollection at: index + 1. + self assert: ((sortBlock value: a value: b) or: [ (sortBlock value: b value: a) not ]) ] +] + +{ #category : 'asserting' } +GRCollectionTest >> assert: responseCollection validSequencedNewResponseFrom: receiverCollection [ + "Assert that the returned object is, in fact a new object, and that it is + of a valid response class for the tested collection." + + self deny: responseCollection == receiverCollection. + self assert: (self isValidNewSequencedResponseClass: responseCollection class) +] + +{ #category : 'asserting' } +GRCollectionTest >> assert: responseCollection validSequencedResponseFrom: receiverCollection [ + "Assert that the returned object is of a valid response class for the tested collection." + + self assert: (self isValidNewSequencedResponseClass: responseCollection class) +] + +{ #category : 'configuration' } +GRCollectionTest >> collectionClass [ + "Answer the collection class that is being tested." + + self subclassResponsibility +] + +{ #category : 'configuration' } +GRCollectionTest >> duplicateElement [ + "Answer an element that appears multiple times in #arbitraryCollection." + + ^ 3 +] + +{ #category : 'configuration' } +GRCollectionTest >> emptyCollection [ + "Answer an empty collection." + + ^ self collectionClass new +] + +{ #category : 'configuration' } +GRCollectionTest >> excludedElement [ + "Answer an element that does not appear in #arbitraryCollection." + + ^ 19 +] + +{ #category : 'configuration' } +GRCollectionTest >> includedElement [ + "Answer a (non-duplicate) element that does appear in #arbitraryCollection." + + ^ 2 +] + +{ #category : 'testing-ansi' } +GRCollectionTest >> isExtensible [ + "Answer whether the tested Collection implements the + protocol as defined in ANSI 5.7.5 ." + + self subclassResponsibility +] + +{ #category : 'testing-ansi' } +GRCollectionTest >> isInitializable [ + "Answer whether the tested Collection implements the + protocol as defined in ANSI 5.7.23." + + self subclassResponsibility +] + +{ #category : 'configuration' } +GRCollectionTest >> isValidNewSequencedResponseClass: aClass [ + "Answer whether aClass is a valid return type for methods that return a new sequenced + collection. These are methods such as #copyFrom:to: or #reverse, which are + defined by ANSI for most classes to return the same class as the receiver. + However, for Interval (and maybe other cases), ANSI specifies that the response + may be any ." + + ^ aClass == self collectionClass or: [ + aClass allSuperclasses includes: SequenceableCollection ] +] + +{ #category : 'tests' } +GRCollectionTest >> testAny [ + | collection | + collection := self arbitraryCollection. + + self assert: ((self valuesOf: collection) includes: collection any) +] + +{ #category : 'tests' } +GRCollectionTest >> testEmptyAny [ + | collection | + collection := self emptyCollection. + + self should: [ (self valuesOf: collection) includes: collection any ] raise: Error +] + +{ #category : 'tests' } +GRCollectionTest >> testIsCollection [ + self assert: self arbitraryCollection isCollection +] + +{ #category : 'tests' } +GRCollectionTest >> testNoneSatisfy [ + | excluded included | + excluded := self excludedElement. + self assert: (self arbitraryCollection noneSatisfy: [ :each | each = excluded ]). + included := self includedElement. + self deny: (self arbitraryCollection noneSatisfy: [ :each | each = included ]). + self assert: (self emptyCollection noneSatisfy: [ :each | true ]) +] + +{ #category : 'tests' } +GRCollectionTest >> testNotEmpty [ + + self assert: self arbitraryCollection notEmpty. + self deny: self emptyCollection notEmpty. + self assert: self arbitraryCollection notEmpty. + self deny: self emptyCollection notEmpty +] + +{ #category : 'tests' } +GRCollectionTest >> testSorted [ + | sorted collection | + collection := self arbitraryCollection. + sorted := collection sorted. + self assert: sorted validSequencedNewResponseFrom: collection. + self assert: sorted sortedWith: [ :a :b | a <= b ]. + + sorted := collection sorted: [ :a :b | a > b ]. + self assert: sorted validSequencedNewResponseFrom: collection. + self assert: sorted sortedWith: [ :a :b | a > b ] +] + +{ #category : 'private' } +GRCollectionTest >> valuesOf: aCollection [ + "Answer the values of aCollecion. Dictionary tests override this." + + ^ aCollection +] diff --git a/repository/Grease-Tests-Core/GRCountingStreamTest.class.st b/repository/Grease-Tests-Core/GRCountingStreamTest.class.st new file mode 100644 index 00000000..e5bec92d --- /dev/null +++ b/repository/Grease-Tests-Core/GRCountingStreamTest.class.st @@ -0,0 +1,45 @@ +Class { + #name : 'GRCountingStreamTest', + #superclass : 'TestCase', + #instVars : [ + 'countingStream' + ], + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'running' } +GRCountingStreamTest >> setUp [ + | codecStream | + codecStream := ((GRCodec forEncoding: 'utf-8') encoderFor: (WriteStream on: (GRCodec forEncoding: 'utf-8') encodedStringClass new)). + countingStream := GRCountingStream on: codecStream +] + +{ #category : 'testing' } +GRCountingStreamTest >> testInitialSize [ + self assert: countingStream count = 0 +] + +{ #category : 'testing' } +GRCountingStreamTest >> testNextPut [ + countingStream nextPut: (Character codePoint: 16rE4). + self assert: countingStream size = 2. + self assert: countingStream count = 1. + self assert: countingStream contents asString = (String with: (Character codePoint: 16rC3) with: (Character codePoint: 16rA4)) +] + +{ #category : 'testing' } +GRCountingStreamTest >> testNextPutAll [ + countingStream nextPutAll: (String with: (Character codePoint: 16rE4)). + self assert: countingStream size = 2. + self assert: countingStream count = 1. + self assert: countingStream contents asString = (String with: (Character codePoint: 16rC3) with: (Character codePoint: 16rA4)) +] + +{ #category : 'testing' } +GRCountingStreamTest >> testReset [ + countingStream nextPut: $a. + self assert: countingStream count = 1. + countingStream reset. + self assert: countingStream count = 0 +] diff --git a/repository/Grease-Tests-Core/GRDelayedSendTest.class.st b/repository/Grease-Tests-Core/GRDelayedSendTest.class.st new file mode 100644 index 00000000..1ee0cf33 --- /dev/null +++ b/repository/Grease-Tests-Core/GRDelayedSendTest.class.st @@ -0,0 +1,427 @@ +Class { + #name : 'GRDelayedSendTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'tests-accessing' } +GRDelayedSendTest >> testArgumentCount [ + " unary " + | send | + send := GRDelayedSend + receiver: 1 + selector: #negated. + self assert: send argumentCount = 0. + send := GRDelayedSend + receiver: 1 + selector: #negated + arguments: #(). + self assert: send argumentCount = 0. + + " binary " + send := GRDelayedSend + receiver: 1 + selector: #+. + self assert: send argumentCount = 1. + send := GRDelayedSend + receiver: 1 + selector: #+ + argument: 2. + self assert: send argumentCount = 0. + + " keyword " + send := GRDelayedSend + receiver: 1 + selector: #between:and:. + self assert: send argumentCount = 2. + send := GRDelayedSend + receiver: 1 + selector: #between:and: + argument: 2. + self assert: send argumentCount = 1. + send := GRDelayedSend + receiver: 1 + selector: #between:and: + arguments: (Array + with: 2 + with: 3). + self assert: send argumentCount = 0 +] + +{ #category : 'tests-evaluating' } +GRDelayedSendTest >> testValueBinary [ + | send | + send := GRDelayedSend + receiver: 1 + selector: #+. + self + should: [ send value ] + raise: GRInvalidArgumentCount. + send := GRDelayedSend + receiver: 1 + selector: #+ + argument: 2. + self assert: send value = 3 +] + +{ #category : 'tests-evaluating' } +GRDelayedSendTest >> testValueKeyword [ + | send | + send := GRDelayedSend + receiver: 1 + selector: #between:and:. + self + should: [ send value ] + raise: GRInvalidArgumentCount. + send := GRDelayedSend + receiver: 1 + selector: #between:and: + argument: 2. + self + should: [ send value ] + raise: GRInvalidArgumentCount. + send := GRDelayedSend + receiver: 1 + selector: #between:and: + arguments: (Array + with: 2 + with: 3). + self deny: send value +] + +{ #category : 'tests-evaluating' } +GRDelayedSendTest >> testValueUnary [ + | send | + send := GRDelayedSend + receiver: 1 + selector: #negated. + self assert: send value = -1. + send := GRDelayedSend + receiver: 1 + selector: #negated + arguments: #(). + self assert: send value = -1 +] + +{ #category : 'tests-evaluating' } +GRDelayedSendTest >> testValueValueBinary [ + | send | + send := GRDelayedSend + receiver: 1 + selector: #+. + self + should: + [ send + value: 2 + value: 3 ] + raise: GRInvalidArgumentCount. + send := GRDelayedSend + receiver: 1 + selector: #+ + argument: 2. + self + should: + [ send + value: 2 + value: 3 ] + raise: GRInvalidArgumentCount +] + +{ #category : 'tests-evaluating' } +GRDelayedSendTest >> testValueValueKeyword [ + | send | + send := GRDelayedSend + receiver: 1 + selector: #between:and:. + self deny: (send + value: 2 + value: 3). + send := GRDelayedSend + receiver: 1 + selector: #between:and: + argument: 2. + self + should: + [ send + value: 4 + value: 5 ] + raise: GRInvalidArgumentCount. + send := GRDelayedSend + receiver: 1 + selector: #between:and: + arguments: (Array + with: 2 + with: 3). + self + should: + [ send + value: 4 + value: 5 ] + raise: GRInvalidArgumentCount +] + +{ #category : 'tests-evaluating' } +GRDelayedSendTest >> testValueValueUnary [ + | send | + send := GRDelayedSend + receiver: 1 + selector: #negated. + self + should: + [ send + value: 2 + value: 3 ] + raise: GRInvalidArgumentCount. + send := GRDelayedSend + receiver: 1 + selector: #negated + arguments: #(). + self + should: + [ send + value: 2 + value: 3 ] + raise: GRInvalidArgumentCount +] + +{ #category : 'tests-evaluating' } +GRDelayedSendTest >> testValueWithArgumentBinary [ + | send | + send := GRDelayedSend + receiver: 1 + selector: #+. + self assert: (send value: 2) = 3. + send := GRDelayedSend + receiver: 1 + selector: #+ + argument: 2. + self + should: [ send value: 2 ] + raise: GRInvalidArgumentCount +] + +{ #category : 'tests-evaluating' } +GRDelayedSendTest >> testValueWithArgumentKeyword [ + | send | + send := GRDelayedSend + receiver: 1 + selector: #between:and:. + self + should: [ send value: 2 ] + raise: GRInvalidArgumentCount. + send := GRDelayedSend + receiver: 1 + selector: #between:and: + argument: 2. + self deny: (send value: 3). + send := GRDelayedSend + receiver: 1 + selector: #between:and: + arguments: #(2 3 ). + self + should: [ send value: 4 ] + raise: GRInvalidArgumentCount +] + +{ #category : 'tests-evaluating' } +GRDelayedSendTest >> testValueWithArgumentUnary [ + | send | + send := GRDelayedSend + receiver: 1 + selector: #negated. + self + should: [ send value: 2 ] + raise: GRInvalidArgumentCount. + send := GRDelayedSend + receiver: 1 + selector: #negated + arguments: #(). + self + should: [ send value: 2 ] + raise: GRInvalidArgumentCount +] + +{ #category : 'tests-evaluating' } +GRDelayedSendTest >> testValueWithArgumentsBinary [ + | send | + send := GRDelayedSend + receiver: 1 + selector: #+. + self + should: [ send valueWithArguments: #(2 3 ) ] + raise: GRInvalidArgumentCount. + send := GRDelayedSend + receiver: 1 + selector: #+ + argument: 2. + self + should: [ send valueWithArguments: #(3 4 ) ] + raise: GRInvalidArgumentCount +] + +{ #category : 'tests-evaluating' } +GRDelayedSendTest >> testValueWithArgumentsKeyword [ + | send | + send := GRDelayedSend + receiver: 1 + selector: #between:and:. + self deny: (send valueWithArguments: #(2 3 )). + send := GRDelayedSend + receiver: 1 + selector: #between:and: + argument: 2. + self + should: [ send valueWithArguments: #(3 4 ) ] + raise: GRInvalidArgumentCount. + send := GRDelayedSend + receiver: 1 + selector: #between:and: + arguments: #(2 3 ). + self + should: [ send valueWithArguments: #(4 5 ) ] + raise: GRInvalidArgumentCount +] + +{ #category : 'tests-evaluating' } +GRDelayedSendTest >> testValueWithArgumentsUnary [ + | send | + send := GRDelayedSend + receiver: 1 + selector: #negated. + self + should: [ send valueWithArguments: #(2 3 ) ] + raise: GRInvalidArgumentCount. + send := GRDelayedSend + receiver: 1 + selector: #negated + arguments: #(). + self + should: [ send valueWithArguments: #(2 3 ) ] + raise: GRInvalidArgumentCount +] + +{ #category : 'tests-evaluating' } +GRDelayedSendTest >> testValueWithPossibleArgumentsBinary [ + | send | + send := GRDelayedSend + receiver: 1 + selector: #+. + self + should: [ send valueWithPossibleArguments: #() ] + raise: GRInvalidArgumentCount. + send := GRDelayedSend + receiver: 1 + selector: #+ + argument: 2. + self assert: (send valueWithPossibleArguments: #()) = 3. + send := GRDelayedSend + receiver: 1 + selector: #+. + self assert: (send valueWithPossibleArguments: #(2 )) = 3. + send := GRDelayedSend + receiver: 1 + selector: #+ + argument: 2. + self assert: (send valueWithPossibleArguments: #(3 )) = 3. + send := GRDelayedSend + receiver: 1 + selector: #+. + self assert: (send valueWithPossibleArguments: #(2 3 )) = 3. + send := GRDelayedSend + receiver: 1 + selector: #+ + argument: 2. + self assert: (send valueWithPossibleArguments: #(3 4 )) = 3 +] + +{ #category : 'tests-evaluating' } +GRDelayedSendTest >> testValueWithPossibleArgumentsKeyword [ + | send | + send := GRDelayedSend + receiver: 1 + selector: #between:and:. + self + should: [ send valueWithPossibleArguments: #() ] + raise: GRInvalidArgumentCount. + send := GRDelayedSend + receiver: 1 + selector: #between:and: + argument: 2. + self + should: [ send valueWithPossibleArguments: #() ] + raise: GRInvalidArgumentCount. + send := GRDelayedSend + receiver: 1 + selector: #between:and: + arguments: (Array + with: 2 + with: 3). + self deny: (send valueWithPossibleArguments: #()). + send := GRDelayedSend + receiver: 1 + selector: #between:and:. + self + should: [ send valueWithPossibleArguments: #(2 ) ] + raise: GRInvalidArgumentCount. + send := GRDelayedSend + receiver: 1 + selector: #between:and: + argument: 2. + self deny: (send valueWithPossibleArguments: #(3 )). + send := GRDelayedSend + receiver: 1 + selector: #between:and: + arguments: (Array + with: 2 + with: 3). + self deny: (send valueWithPossibleArguments: #(4 )). + send := GRDelayedSend + receiver: 1 + selector: #between:and:. + self deny: (send valueWithPossibleArguments: #(2 3 )). + send := GRDelayedSend + receiver: 1 + selector: #between:and: + argument: 2. + self deny: (send valueWithPossibleArguments: #(3 4 )). + send := GRDelayedSend + receiver: 1 + selector: #between:and: + arguments: (Array + with: 2 + with: 3). + self deny: (send valueWithPossibleArguments: #(4 5 )) +] + +{ #category : 'tests-evaluating' } +GRDelayedSendTest >> testValueWithPossibleArgumentsUnary [ + | send | + send := GRDelayedSend + receiver: 1 + selector: #negated. + self assert: (send valueWithPossibleArguments: #()) = -1. + send := GRDelayedSend + receiver: 1 + selector: #negated + arguments: #(). + self assert: (send valueWithPossibleArguments: #()) = -1. + send := GRDelayedSend + receiver: 1 + selector: #negated. + self assert: (send valueWithPossibleArguments: #(2 )) = -1. + send := GRDelayedSend + receiver: 1 + selector: #negated + arguments: #(). + self assert: (send valueWithPossibleArguments: #(2 )) = -1. + send := GRDelayedSend + receiver: 1 + selector: #negated. + self assert: (send valueWithPossibleArguments: #(2 3 )) = -1. + send := GRDelayedSend + receiver: 1 + selector: #negated + arguments: #(). + self assert: (send valueWithPossibleArguments: #(2 3 )) = -1 +] diff --git a/repository/Grease-Tests-Core/GRDictionaryTest.class.st b/repository/Grease-Tests-Core/GRDictionaryTest.class.st new file mode 100644 index 00000000..0cc41a7c --- /dev/null +++ b/repository/Grease-Tests-Core/GRDictionaryTest.class.st @@ -0,0 +1,27 @@ +Class { + #name : 'GRDictionaryTest', + #superclass : 'GRAbstractDictionaryTest', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'configuration' } +GRDictionaryTest >> collectionClass [ + ^ Dictionary +] + +{ #category : 'configuration' } +GRDictionaryTest >> createArbitraryAssociations [ + ^ OrderedCollection new + add: #c -> 3; + add: #a -> 1; + add: #b -> 2; + add: #e -> 1; + add: #d -> 4; + yourself +] + +{ #category : 'configuration' } +GRDictionaryTest >> isKey: anObject equivalentTo: anotherObject [ + ^ anObject = anotherObject +] diff --git a/repository/Grease-Tests-Core/GRDurationTest.class.st b/repository/Grease-Tests-Core/GRDurationTest.class.st new file mode 100644 index 00000000..505808df --- /dev/null +++ b/repository/Grease-Tests-Core/GRDurationTest.class.st @@ -0,0 +1,92 @@ +Class { + #name : 'GRDurationTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'tests' } +GRDurationTest >> testAccessors [ + | duration | + duration := Duration seconds: 356521. + self assert: duration days = 4. + self assert: duration hours = 3. + self assert: duration minutes = 2. + self assert: duration seconds = 1. + self assert: duration milliseconds = 0 +] + +{ #category : 'tests' } +GRDurationTest >> testBasicInstanceCreation [ + self assert: (Duration days: 1 hours: 1 minutes: 1 seconds: 1) asMilliseconds = 90061000. + self assert: (Duration weeks: 1) asMilliseconds = 604800000. + self assert: (Duration days: 1) asMilliseconds = 86400000. + self assert: (Duration hours: 1) asMilliseconds = 3600000. + self assert: (Duration minutes: 1) asMilliseconds = 60000. + self assert: (Duration seconds: 1) asMilliseconds = 1000. + self assert: (Duration milliseconds: 1) asMilliseconds = 1 +] + +{ #category : 'tests' } +GRDurationTest >> testConversions [ + | duration | + duration := Duration days: 4 hours: 3 minutes: 2 seconds: 1. + self assert: duration asSeconds = 356521. + self assert: duration asMilliseconds = 356521000. + self assert: duration negated asSeconds = -356521. + self assert: duration negated asMilliseconds = -356521000 +] + +{ #category : 'testing' } +GRDurationTest >> testIntegerConvenienceMethods [ + self assert: 5 weeks = (Duration weeks: 5). + self assert: 5 days = (Duration days: 5). + self assert: 5 hours = (Duration hours: 5). + self assert: 5 minutes = (Duration minutes: 5). + self assert: 5 seconds = (Duration seconds: 5). + self assert: 5 milliseconds = (Duration milliseconds: 5) +] + +{ #category : 'tests' } +GRDurationTest >> testMixedInstanceCreation [ + self assert: (Duration days: 1 hours: -23 minutes: 1 seconds: -59) asMilliseconds = 3601000 +] + +{ #category : 'tests' } +GRDurationTest >> testNegativeInstanceCreation [ + self assert: (Duration days: -1 hours: -1 minutes: -1 seconds: -1) asMilliseconds = -90061000. + self assert: (Duration weeks: -1) asMilliseconds = -604800000. + self assert: (Duration days: -1) asMilliseconds = -86400000. + self assert: (Duration hours: -1) asMilliseconds = -3600000. + self assert: (Duration minutes: -1) asMilliseconds = -60000. + self assert: (Duration seconds: -1) asMilliseconds = -1000. + self assert: (Duration milliseconds: -1) asMilliseconds = -1 +] + +{ #category : 'tests' } +GRDurationTest >> testPartialSecondsInstanceCreation [ + "ANSI 5.8.3.1 and 5.8.3.2 specify that the seconds argument can be any + Number - not just an integer as is the case for the other arguments." + self assert: (Duration days: 0 hours: 0 minutes: 0 seconds: 1.5) asMilliseconds = 1500. + self assert: (Duration days: 0 hours: 0 minutes: 0 seconds: 3/2) asMilliseconds = 1500. + self assert: (Duration seconds: 1.5) asMilliseconds = 1500. + self assert: (Duration seconds: 3/2) asMilliseconds = 1500 +] + +{ #category : 'tests' } +GRDurationTest >> testRolloverInstanceCreation [ + self assert: (Duration days: 0 hours: 25 minutes: 61 seconds: 61) asMilliseconds = 93721000. + self assert: (Duration hours: 25) asMilliseconds = 90000000. + self assert: (Duration minutes: 61) asMilliseconds = 3660000. + self assert: (Duration seconds: 61) asMilliseconds = 61000. + self assert: (Duration milliseconds: 1001) asMilliseconds = 1001 +] + +{ #category : 'tests' } +GRDurationTest >> testZero [ + | duration | + duration := Duration zero. + self assert: duration isZero. + self assert: duration asMilliseconds = 0. + self assert: duration = (Duration seconds: 0) +] diff --git a/repository/Grease-Tests-Core/GRDynamicVariableTest.class.st b/repository/Grease-Tests-Core/GRDynamicVariableTest.class.st new file mode 100644 index 00000000..cf32f8b2 --- /dev/null +++ b/repository/Grease-Tests-Core/GRDynamicVariableTest.class.st @@ -0,0 +1,44 @@ +Class { + #name : 'GRDynamicVariableTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'tests' } +GRDynamicVariableTest >> testAnswer [ + self assert: (GRDynamicVariable use: 'value' during: [ true ]) +] + +{ #category : 'tests' } +GRDynamicVariableTest >> testDefaultValue [ + self assert: GRTestDynamicVariable value = 'default test value'. + + GRTestDynamicVariable + use: 'my value' + during: [ ]. + self assert: GRTestDynamicVariable value = 'default test value' description:'The default value is no longer correct' +] + +{ #category : 'tests' } +GRDynamicVariableTest >> testWithNestedValue [ + GRDynamicVariable + use: 'outer' + during: [ + GRDynamicVariable + use: 'inner' + during: [ self assert: GRDynamicVariable value = 'inner' ]. + self assert: GRDynamicVariable value = 'outer' ] +] + +{ #category : 'tests' } +GRDynamicVariableTest >> testWithValue [ + GRDynamicVariable + use: 'value' + during: [ self assert: GRDynamicVariable value = 'value' ] +] + +{ #category : 'tests' } +GRDynamicVariableTest >> testWithoutValue [ + self assert: GRDynamicVariable value isNil +] diff --git a/repository/Grease-Tests-Core/GRErrorStub.class.st b/repository/Grease-Tests-Core/GRErrorStub.class.st new file mode 100644 index 00000000..a9f7eb45 --- /dev/null +++ b/repository/Grease-Tests-Core/GRErrorStub.class.st @@ -0,0 +1,20 @@ +Class { + #name : 'GRErrorStub', + #superclass : 'GRError', + #instVars : [ + 'foo' + ], + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'accessing' } +GRErrorStub >> foo [ + ^ foo +] + +{ #category : 'initialization' } +GRErrorStub >> initialize [ + super initialize. + foo := true +] diff --git a/repository/Grease-Tests-Core/GRExceptionTest.class.st b/repository/Grease-Tests-Core/GRExceptionTest.class.st new file mode 100644 index 00000000..04d41d53 --- /dev/null +++ b/repository/Grease-Tests-Core/GRExceptionTest.class.st @@ -0,0 +1,214 @@ +Class { + #name : 'GRExceptionTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'private' } +GRExceptionTest >> onExceptionReturn: anObject [ + [ GRError signal ] + on: GRError + do: [ :ex | ^ anObject ]. + + ^ self +] + +{ #category : 'tests' } +GRExceptionTest >> testDefaultActionResume [ + "According to ANSI 5.5.15.2, the result of #defaultAction + should be used to resume resumable exceptions. Behaviour is undefined + for non-resumable exceptions so we do not test for that case." + + | result | + result := GRNotificationStub signal. + self assert: result = #returnValue +] + +{ #category : 'tests' } +GRExceptionTest >> testDeprecatedApi [ + | exception seen | + exception := seen := nil. + + [ self + greaseDeprecatedApi: 'GRExceptionTest>>#testDeprecatedApi' + details: 'Message in a bottle.'. + seen := true ] + on: GRDeprecatedApiNotification + do: + [ :notification | + exception := notification. + exception resume. + seen := false ]. + self assert: seen. + self assert: exception notNil. + self assert: exception messageText = 'GRExceptionTest>>#testDeprecatedApi'. + self assert: exception details = 'Message in a bottle.' +] + +{ #category : 'tests' } +GRExceptionTest >> testErrorInitialization [ + "Make sure #initialize is called on #new and that calling 'super initialize' doesn't error." + self assert: GRErrorStub new foo +] + +{ #category : 'tests' } +GRExceptionTest >> testIsResumable [ + "Make sure the platform class provides #isResumable on Exception. + This test made a bit more complex by James Foster per issue #259 + for GemStone portability." + + | exception | + [ Exception signal ] + on: Exception + do: [ :ex | + exception := ex. + ex return + ]. + self shouldnt: [ exception isResumable ] raise: MessageNotUnderstood +] + +{ #category : 'tests' } +GRExceptionTest >> testNotificationInitialization [ + "Make sure #initialize is called on #new and that calling 'super initialize' doesn't error." + self assert: GRNotificationStub new foo +] + +{ #category : 'tests' } +GRExceptionTest >> testOnDoImplicitReturn [ + "According to ANSI 5.5.15.2, an exception handler block that runs to completion + should result in the call to #on:do: returning the block's value." + + | result | + result := [ GRErrorStub signal ] on: GRErrorStub do: [ :e | #blockValue ]. + self assert: result = #blockValue. + + result := nil. + result := [ GRNotificationStub signal ] on: GRNotificationStub do: [ :e | #blockValue ]. + self assert: result = #blockValue +] + +{ #category : 'tests' } +GRExceptionTest >> testOnDoNonLocalReturn [ + "You should be able to do a non-local return from within an exception + handler block. We rely on a helper method here so we can check the return + value." + + self assert: (self onExceptionReturn: 123) == 123 +] + +{ #category : 'tests' } +GRExceptionTest >> testSignalError [ + "Exception>>signal is part of the ANSI Smalltalk standard. However, Seaside + only signals subclasses of GRError and GRNotification so Smalltalk + implementations that do not otherwise provide it can implement it on + these two classes." + [ GRError new signal ] + on: GRError + do: [ :e | ^ self ]. + self assert: false +] + +{ #category : 'tests' } +GRExceptionTest >> testSignalErrorClassSide [ + "Exception class>>signal is part of the ANSI Smalltalk standard. However, Seaside + only signals subclasses of GRError and GRNotification so Smalltalk + implementations that do not otherwise provide it can implement it on + these two classes." + [ GRError signal ] + on: GRError + do: [ :e | ^ self ]. + self assert: false +] + +{ #category : 'tests' } +GRExceptionTest >> testSignalNotification [ + "Exception>>signal is part of the ANSI Smalltalk standard. However, Seaside + only signals subclasses of GRError and GRNotification so Smalltalk + implementations that do not otherwise provide it can implement it on + these two classes." + [ GRNotification new signal ] + on: GRNotification + do: [ :e | ^ self ]. + self assert: false +] + +{ #category : 'tests' } +GRExceptionTest >> testSignalNotificationClassSide [ + "Exception class>>signal is part of the ANSI Smalltalk standard. However, Seaside + only signals subclasses of GRError and GRNotification so Smalltalk + implementations that do not otherwise provide it can implement it on + these two classes." + [ GRNotification signal ] + on: GRNotification + do: [ :e | ^ self ]. + self assert: false +] + +{ #category : 'tests' } +GRExceptionTest >> testSignalWithError [ + "Exception>>signal: is part of the ANSI Smalltalk standard. However, Seaside + only signals subclasses of GRError and GRNotification so Smalltalk + implementations that do not otherwise provide it can implement it on + these two classes." + | text | + text := 'Error!'. + [ GRError new signal: text ] + on: GRError + do: + [ :e | + self assert: e messageText = text. + ^ self ]. + self assert: false +] + +{ #category : 'tests' } +GRExceptionTest >> testSignalWithErrorClassSide [ + "Exception class>>signal: is part of the ANSI Smalltalk standard. However, Seaside + only signals subclasses of GRError and GRNotification so Smalltalk + implementations that do not otherwise provide it can implement it on + these two classes." + | text | + text := 'Error!'. + [ GRError signal: text ] + on: GRError + do: + [ :e | + self assert: e messageText = text. + ^ self ]. + self assert: false +] + +{ #category : 'tests' } +GRExceptionTest >> testSignalWithNotification [ + "Exception>>signal: is part of the ANSI Smalltalk standard. However, Seaside + only signals subclasses of GRError and GRNotification so Smalltalk + implementations that do not otherwise provide it can implement it on + these two classes." + | text | + text := 'Notification'. + [ GRNotification new signal: text ] + on: GRNotification + do: + [ :e | + self assert: e messageText = text. + ^ self ]. + self assert: false +] + +{ #category : 'tests' } +GRExceptionTest >> testSignalWithNotificationClassSide [ + "Exception class>>signal: is part of the ANSI Smalltalk standard. However, Seaside + only signals subclasses of GRError and GRNotification so Smalltalk + implementations that do not otherwise provide it can implement it on + these two classes." + | text | + text := 'Notification'. + [ GRNotification signal: text ] + on: GRNotification + do: + [ :e | + self assert: e messageText = text. + ^ self ]. + self assert: false +] diff --git a/repository/Grease-Tests-Core/GRIdentityDictionaryTest.class.st b/repository/Grease-Tests-Core/GRIdentityDictionaryTest.class.st new file mode 100644 index 00000000..1e57f2e3 --- /dev/null +++ b/repository/Grease-Tests-Core/GRIdentityDictionaryTest.class.st @@ -0,0 +1,27 @@ +Class { + #name : 'GRIdentityDictionaryTest', + #superclass : 'GRAbstractDictionaryTest', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'configuration' } +GRIdentityDictionaryTest >> collectionClass [ + ^ IdentityDictionary +] + +{ #category : 'configuration' } +GRIdentityDictionaryTest >> createArbitraryAssociations [ + ^ OrderedCollection new + add: 'c' -> 3; + add: 'a' -> 1; + add: 'b' -> 2; + add: 'd' -> 1; + add: 'b' copy -> 4; + yourself +] + +{ #category : 'configuration' } +GRIdentityDictionaryTest >> isKey: anObject equivalentTo: anotherObject [ + ^ anObject == anotherObject +] diff --git a/repository/Grease-Tests-Core/GRIntervalTest.class.st b/repository/Grease-Tests-Core/GRIntervalTest.class.st new file mode 100644 index 00000000..2a09e10b --- /dev/null +++ b/repository/Grease-Tests-Core/GRIntervalTest.class.st @@ -0,0 +1,79 @@ +Class { + #name : 'GRIntervalTest', + #superclass : 'GRAbstractSequenceableCollectionTest', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'configuration' } +GRIntervalTest >> allowsDuplicateValues [ + ^ false +] + +{ #category : 'configuration' } +GRIntervalTest >> arbitraryCollection [ + ^ 1 to: 4 +] + +{ #category : 'configuration' } +GRIntervalTest >> collectionClass [ + ^ Interval +] + +{ #category : 'configuration' } +GRIntervalTest >> emptyCollection [ + ^ 1 to: 0 +] + +{ #category : 'testing-ansi' } +GRIntervalTest >> isExtensible [ + ^ false +] + +{ #category : 'testing' } +GRIntervalTest >> isHomogeneous [ + ^ true +] + +{ #category : 'testing-ansi' } +GRIntervalTest >> isInitializable [ + ^ false +] + +{ #category : 'testing-ansi' } +GRIntervalTest >> isSequenced [ + ^ false +] + +{ #category : 'testing' } +GRIntervalTest >> isUnique [ + ^ false +] + +{ #category : 'tests' } +GRIntervalTest >> testBeginsWithSubCollection [ + self assert: ((-5 to: 10 by: 3) beginsWithSubCollection: (-5 to: 7 by: 3)). + self assert: ((-5 to: 10 by: 3) beginsWithSubCollection: (-5 to: 10 by: 3)). + self deny: ((-5 to: 10 by: 3) beginsWithSubCollection: (-8 to: 10 by: 3)) +] + +{ #category : 'tests' } +GRIntervalTest >> testEndsWithSubCollection [ + self assert: ((-5 to: 10 by: 3) endsWithSubCollection: (-2 to: 10 by: 3)). + self assert: ((-5 to: 10 by: 3) endsWithSubCollection: (-5 to: 10 by: 3)). + self deny: ((-5 to: 10 by: 3) endsWithSubCollection: (-5 to: 13 by: 3)) +] + +{ #category : 'tests' } +GRIntervalTest >> testSorted [ + "Unlike super implementation do not assume Interval >> #sorted returns a new object" + | sorted collection | + collection := self arbitraryCollection. + sorted := collection sorted. + self assert: sorted validSequencedResponseFrom: collection. + self assert: sorted sortedWith: [ :a :b | a <= b ]. + + sorted := collection sorted: [ :a :b | a > b ]. + self assert: sorted validSequencedNewResponseFrom: collection. + self assert: sorted sortedWith: [ :a :b | a > b ] +] diff --git a/repository/Grease-Tests-Core/GRNotificationBasedDynamicVariableTest.class.st b/repository/Grease-Tests-Core/GRNotificationBasedDynamicVariableTest.class.st new file mode 100644 index 00000000..0de37e68 --- /dev/null +++ b/repository/Grease-Tests-Core/GRNotificationBasedDynamicVariableTest.class.st @@ -0,0 +1,44 @@ +Class { + #name : 'GRNotificationBasedDynamicVariableTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'tests' } +GRNotificationBasedDynamicVariableTest >> testAnswer [ + self assert: (GRNotificationBasedDynamicVariable use: 'value' during: [ true ]) +] + +{ #category : 'tests' } +GRNotificationBasedDynamicVariableTest >> testDefaultValue [ + self assert: GRTestNotificationBasedDynamicVariable value = 'default test value'. + + GRTestNotificationBasedDynamicVariable + use: 'my value' + during: [ ]. + self assert: GRTestNotificationBasedDynamicVariable value = 'default test value' description:'The default value is no longer correct' +] + +{ #category : 'tests' } +GRNotificationBasedDynamicVariableTest >> testWithNestedValue [ + GRNotificationBasedDynamicVariable + use: 'outer' + during: [ + GRNotificationBasedDynamicVariable + use: 'inner' + during: [ self assert: GRNotificationBasedDynamicVariable value = 'inner' ]. + self assert: GRNotificationBasedDynamicVariable value = 'outer' ] +] + +{ #category : 'tests' } +GRNotificationBasedDynamicVariableTest >> testWithValue [ + GRNotificationBasedDynamicVariable + use: 'value' + during: [ self assert: GRNotificationBasedDynamicVariable value = 'value' ] +] + +{ #category : 'tests' } +GRNotificationBasedDynamicVariableTest >> testWithoutValue [ + self assert: GRNotificationBasedDynamicVariable value isNil +] diff --git a/repository/Grease-Tests-Core/GRNotificationStub.class.st b/repository/Grease-Tests-Core/GRNotificationStub.class.st new file mode 100644 index 00000000..0003bd16 --- /dev/null +++ b/repository/Grease-Tests-Core/GRNotificationStub.class.st @@ -0,0 +1,25 @@ +Class { + #name : 'GRNotificationStub', + #superclass : 'GRNotification', + #instVars : [ + 'foo' + ], + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'accessing' } +GRNotificationStub >> defaultAction [ + ^ #returnValue +] + +{ #category : 'accessing' } +GRNotificationStub >> foo [ + ^ foo +] + +{ #category : 'initialization' } +GRNotificationStub >> initialize [ + super initialize. + foo := true +] diff --git a/repository/Grease-Tests-Core/GRNullCodecStreamTest.class.st b/repository/Grease-Tests-Core/GRNullCodecStreamTest.class.st new file mode 100644 index 00000000..63efa156 --- /dev/null +++ b/repository/Grease-Tests-Core/GRNullCodecStreamTest.class.st @@ -0,0 +1,114 @@ +Class { + #name : 'GRNullCodecStreamTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'accessing' } +GRNullCodecStreamTest >> codecStreamClass [ + ^ GRNullCodecStream +] + +{ #category : 'tests-characters' } +GRNullCodecStreamTest >> testCrlf [ + | stream | + stream := GRNullCodec new + encoderFor: (WriteStream on: String new). + stream crlf. + + self assert: stream contents size = 2. + self assert: stream contents first = Character cr. + self assert: stream contents last = Character lf +] + +{ #category : 'tests-protocol' } +GRNullCodecStreamTest >> testFlush [ + | stream | + stream := GRNullCodec new + encoderFor: (WriteStream on: String new). + stream nextPutAll: 'abc'. + self shouldnt: [ stream flush ] raise: Error. + self assert: stream contents = 'abc' +] + +{ #category : 'tests-characters' } +GRNullCodecStreamTest >> testName [ + | codec | + codec := GRNullCodec new. + + self assert: codec name = GRNullCodec codecName +] + +{ #category : 'tests-protocol' } +GRNullCodecStreamTest >> testNext [ + | stream | + stream := GRNullCodec new + encoderFor: 'Seaside' readStream. + self assert: stream next = $S. + self assert: (stream next: 1) = 'e' +] + +{ #category : 'tests-protocol' } +GRNullCodecStreamTest >> testPrint [ + | stream | + stream := GRNullCodec new + encoderFor: (WriteStream on: String new). + stream print: 123. + self assert: stream contents = '123' +] + +{ #category : 'tests' } +GRNullCodecStreamTest >> testReadString [ + | stream codecStream | + stream := 'abc' readStream. + codecStream := GRNullCodec new decoderFor: stream. + self assert: codecStream next = $a. + self assert: (codecStream next: 2) = 'bc' +] + +{ #category : 'tests-protocol' } +GRNullCodecStreamTest >> testSize [ + | stream | + stream := GRNullCodec new + encoderFor: (WriteStream on: String new). + stream nextPutAll: 'abc'. + self assert: stream size = 3. + stream nextPut: $d. + self assert: stream size = 4 +] + +{ #category : 'tests-characters' } +GRNullCodecStreamTest >> testSpace [ + | stream | + stream := GRNullCodec new + encoderFor: (WriteStream on: String new). + stream space. + + self assert: stream contents size = 1. + self assert: stream contents first = Character space +] + +{ #category : 'tests-characters' } +GRNullCodecStreamTest >> testTab [ + | stream | + stream := GRNullCodec new + encoderFor: (WriteStream on: String new). + stream tab. + + self assert: stream contents size = 1. + self assert: stream contents first = Character tab +] + +{ #category : 'tests' } +GRNullCodecStreamTest >> testWriteString [ + | stream codecStream | + stream := WriteStream on: String new. + codecStream := GRNullCodec new encoderFor: stream. + codecStream + nextPut: $A; + nextPutAll: 'BC'; + nextPut: 68; + nextPutAll: #(69 70 ) asByteArray. + self assert: codecStream contents = 'ABCDEF' +] diff --git a/repository/Grease-Tests-Core/GRNumberTest.class.st b/repository/Grease-Tests-Core/GRNumberTest.class.st new file mode 100644 index 00000000..3eb13eff --- /dev/null +++ b/repository/Grease-Tests-Core/GRNumberTest.class.st @@ -0,0 +1,108 @@ +Class { + #name : 'GRNumberTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'tests' } +GRNumberTest >> testBetweenAnd [ + self assert: (6 between: 1 and: 12) +] + +{ #category : 'tests' } +GRNumberTest >> testPluralize [ + self assert: (0 pluralize: 'person') = '0 people'. + self assert: (1 pluralize: 'person') = '1 person'. + self assert: (2 pluralize: 'person') = '2 people'. + self assert: (3 pluralize: 'person') = '3 people'. + + self assert: (0 pluralize: 'penis') = '0 penises'. + self assert: (1 pluralize: 'penis') = '1 penis'. + self assert: (2 pluralize: 'penis') = '2 penises'. + + self assert: (0 pluralize: 'person' with: 'members') = '0 members'. + self assert: (1 pluralize: 'person' with: 'members') = '1 person'. + self assert: (2 pluralize: 'person' with: 'members') = '2 members'. + self assert: (3 pluralize: 'person' with: 'members') = '3 members' +] + +{ #category : 'tests' } +GRNumberTest >> testReadFrom [ + "We test #readFrom: as the expected behaviour on all platforms, as we rely on it for WANumberAttribute and WAQualifiedValue" + + self assert: (Number readFrom: '123' readStream) = 123. + + self assert: (Float readFrom: '123.45' readStream) = 123.45. + + self assert: (Number readFrom: '123.45' readStream) = 123.45 +] + +{ #category : 'tests' } +GRNumberTest >> testTo [ + | collection | + collection := OrderedCollection new. + 1 to: 5 do: [ :ea | collection add: ea ]. + self assert: collection asArray = #(1 2 3 4 5). + + collection := OrderedCollection new. + 4 to: 4 do: [ :ea | collection add: ea ]. + self assert: collection asArray = #(4). + + collection := OrderedCollection new. + 4 to: 4 do: [ :ea | collection add: ea ]. + self assert: collection asArray = #(4). + + collection := OrderedCollection new. + 5 to: 4 do: [ :ea | collection add: ea ]. + self assert: collection asArray = #(). + + collection := OrderedCollection new. + -3 to: -1.5 do: [ :ea | collection add: ea ]. + self assert: collection asArray = #(-3 -2). + + collection := OrderedCollection new. + 1.5 to: 4 do: [ :ea | collection add: ea ]. + self assert: collection asArray = #(1.5 2.5 3.5) +] + +{ #category : 'tests' } +GRNumberTest >> testToDo [ + | collection | + collection := OrderedCollection new. + 1 to: 5 do: [ :ea | collection add: ea ]. + self assert: collection asArray = #(1 2 3 4 5). + + collection := OrderedCollection new. + 4 to: 4 do: [ :ea | collection add: ea ]. + self assert: collection asArray = #(4). + + collection := OrderedCollection new. + 4 to: 4 do: [ :ea | collection add: ea ]. + self assert: collection asArray = #(4). + + collection := OrderedCollection new. + 5 to: 4 do: [ :ea | collection add: ea ]. + self assert: collection asArray = #(). + + collection := OrderedCollection new. + -3 to: -1.5 do: [ :ea | collection add: ea ]. + self assert: collection asArray = #(-3 -2). + + collection := OrderedCollection new. + 1.5 to: 4 do: [ :ea | collection add: ea ]. + self assert: collection asArray = #(1.5 2.5 3.5) +] + +{ #category : 'tests' } +GRNumberTest >> testToDoClosures [ + "#to:do: may be optimized and VAST currently has problems with closures + in this case. We would prefer to use the optimized version than than + (1 to: 5) do: [ ... ] so this test is here to highlight the problem at + least unless the platforms tell us the problem is not fixable." + + | collection | + collection := OrderedCollection new. + 1 to: 5 do: [ :each | collection add: [ each ] ]. + self assert: (collection collect: [ :each | each value ]) asArray = #(1 2 3 4 5) +] diff --git a/repository/Grease-Tests-Core/GRObjectStub.class.st b/repository/Grease-Tests-Core/GRObjectStub.class.st new file mode 100644 index 00000000..86ce3b28 --- /dev/null +++ b/repository/Grease-Tests-Core/GRObjectStub.class.st @@ -0,0 +1,20 @@ +Class { + #name : 'GRObjectStub', + #superclass : 'GRObject', + #instVars : [ + 'foo' + ], + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'accessing' } +GRObjectStub >> foo [ + ^ foo +] + +{ #category : 'initialization' } +GRObjectStub >> initialize [ + super initialize. + foo := true +] diff --git a/repository/Grease-Tests-Core/GRObjectTest.class.st b/repository/Grease-Tests-Core/GRObjectTest.class.st new file mode 100644 index 00000000..28c830a5 --- /dev/null +++ b/repository/Grease-Tests-Core/GRObjectTest.class.st @@ -0,0 +1,29 @@ +Class { + #name : 'GRObjectTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'tests' } +GRObjectTest >> testError [ + "Make sure #error: signals a subclass of GRError." + self + should: [ GRObject new error: 'oh dear' ] + raise: GRError. + self + should: [ GRObject error: 'oh dear' ] + raise: GRError +] + +{ #category : 'tests' } +GRObjectTest >> testInitialize [ + "Make sure #initialize is called on #new and that calling 'super initialize' doesn't error." + self assert: GRObjectStub new foo +] + +{ #category : 'tests' } +GRObjectTest >> testRespondsTo [ + self assert: (GRObject new respondsTo: #greaseString). + self deny: (GRObject new respondsTo: #makeMeASandwich) +] diff --git a/repository/Grease-Tests-Core/GROrderedCollectionTest.class.st b/repository/Grease-Tests-Core/GROrderedCollectionTest.class.st new file mode 100644 index 00000000..d6dad346 --- /dev/null +++ b/repository/Grease-Tests-Core/GROrderedCollectionTest.class.st @@ -0,0 +1,41 @@ +Class { + #name : 'GROrderedCollectionTest', + #superclass : 'GRAbstractSequenceableCollectionTest', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'configuration' } +GROrderedCollectionTest >> allowsDuplicateValues [ + ^ true +] + +{ #category : 'configuration' } +GROrderedCollectionTest >> collectionClass [ + ^ OrderedCollection +] + +{ #category : 'testing-ansi' } +GROrderedCollectionTest >> isExtensible [ + ^ true +] + +{ #category : 'testing' } +GROrderedCollectionTest >> isHomogeneous [ + ^ false +] + +{ #category : 'testing-ansi' } +GROrderedCollectionTest >> isInitializable [ + ^ true +] + +{ #category : 'testing-ansi' } +GROrderedCollectionTest >> isSequenced [ + ^ true +] + +{ #category : 'testing' } +GROrderedCollectionTest >> isUnique [ + ^ false +] diff --git a/repository/Grease-Tests-Core/GROrderedMultiMap2Test.class.st b/repository/Grease-Tests-Core/GROrderedMultiMap2Test.class.st new file mode 100644 index 00000000..9f872000 --- /dev/null +++ b/repository/Grease-Tests-Core/GROrderedMultiMap2Test.class.st @@ -0,0 +1,11 @@ +Class { + #name : 'GROrderedMultiMap2Test', + #superclass : 'GROrderedMultiMapTest', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'configuration' } +GROrderedMultiMap2Test >> collectionClass [ + ^ GROrderedMultiMap2 +] diff --git a/repository/Grease-Tests-Core/GROrderedMultiMapTest.class.st b/repository/Grease-Tests-Core/GROrderedMultiMapTest.class.st new file mode 100644 index 00000000..5cc47dc7 --- /dev/null +++ b/repository/Grease-Tests-Core/GROrderedMultiMapTest.class.st @@ -0,0 +1,65 @@ +Class { + #name : 'GROrderedMultiMapTest', + #superclass : 'GRSmallDictionaryTest', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'testing' } +GROrderedMultiMapTest class >> shouldInheritSelectors [ + ^ true +] + +{ #category : 'configuration' } +GROrderedMultiMapTest >> allowsDuplicateKeys [ + ^ true +] + +{ #category : 'configuration' } +GROrderedMultiMapTest >> collectionClass [ + ^ GROrderedMultiMap +] + +{ #category : 'tests-accessing' } +GROrderedMultiMapTest >> testAllAt [ + self assert: (collection allAt: '1') = #(). + collection at: '1' add: 'foo'. + collection at: '1' add: 'bar'. + self assert: (collection allAt: '1') = #( 'foo' 'bar' ) +] + +{ #category : 'tests-accessing' } +GROrderedMultiMapTest >> testAllAtIfAbsent [ + self assert: (collection allAt: '1' ifAbsent: [ 'absent' ]) = 'absent'. + collection at: '1' add: 'foo'. + collection at: '1' add: 'bar'. + self assert: (collection allAt: '1' ifAbsent: [ 'absent' ]) = #( 'foo' 'bar' ) +] + +{ #category : 'tests-accessing' } +GROrderedMultiMapTest >> testAtAdd [ + collection at: '1' add: 'foo'. + collection at: '1' add: 'bar'. + self assertAssociations: (Array with: '1' -> 'foo' with: '1' -> 'bar') +] + +{ #category : 'tests-enumerating' } +GROrderedMultiMapTest >> testKeysAndAllValuesDo [ + | seen | + collection at: '1' add: 'foo'. + collection at: '2' add: 'bar'. + collection at: '1' add: 'zork'. + seen := OrderedCollection new. + collection keysAndAllValuesDo: [ :key :values | + seen add: key -> values ]. + self assert: seen size = 2. + + self assert: (seen at: 1) key = '1'. + self assert: (seen at: 1) value size = 2. + self assert: ((seen at: 1) value at: 1) = 'foo'. + self assert: ((seen at: 1) value at: 2) = 'zork'. + + self assert: (seen at: 2) key = '2'. + self assert: (seen at: 2) value size = 1. + self assert: ((seen at: 2) value at: 1) = 'bar'. +] diff --git a/repository/Grease-Tests-Core/GRPackage.extension.st b/repository/Grease-Tests-Core/GRPackage.extension.st new file mode 100644 index 00000000..119e3f5d --- /dev/null +++ b/repository/Grease-Tests-Core/GRPackage.extension.st @@ -0,0 +1,11 @@ +Extension { #name : 'GRPackage' } + +{ #category : '*grease-tests-core' } +GRPackage class >> greaseTestsCore [ + ^ self new + name: 'Grease-Tests-Core'; + description: 'Unit tests for the package Grease-Core.'; + addDependency: 'Grease-Core'; + url: #greaseUrl; + yourself +] diff --git a/repository/Grease-Tests-Core/GRPackageTest.class.st b/repository/Grease-Tests-Core/GRPackageTest.class.st new file mode 100644 index 00000000..e6670219 --- /dev/null +++ b/repository/Grease-Tests-Core/GRPackageTest.class.st @@ -0,0 +1,97 @@ +Class { + #name : 'GRPackageTest', + #superclass : 'TestCase', + #instVars : [ + 'package' + ], + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'running' } +GRPackageTest >> setUp [ + super setUp. + package := GRPackage new +] + +{ #category : 'tests-dependencies' } +GRPackageTest >> testAllDependencies [ + | packages | + packages := Dictionary new. + packages + at: 'Lust' put: (GRPackage new + name: 'Lust'; + addDependency: 'Gluttony'; + addDependency: 'Greed'; + yourself); + at: 'Gluttony' put: (GRPackage new + name: 'Gluttony'; + addDependency: 'Greed'; + yourself); + at: 'Greed' put: (GRPackage new + name: 'Greed'; + yourself). + packages values + do: [ :each | each resolveWith: packages ]. + + self assert: (packages at: 'Lust') allDependencies size = 3. + self assert: (packages at: 'Gluttony') allDependencies size = 2. + self assert: (packages at: 'Greed') allDependencies size = 1 +] + +{ #category : 'tests-dependencies' } +GRPackageTest >> testDependencies [ + self assert: package dependencies isEmpty. + package addDependency: 'Lust'. + package addDependency: 'Envy'. + self assert: package dependencies size = 2. + self assert: package dependencies first = 'Lust'. + self assert: package dependencies last = 'Envy' +] + +{ #category : 'tests' } +GRPackageTest >> testDescription [ + self assert: package description isNil. + package description: 'A hopeless package'. + self assert: package description = 'A hopeless package' +] + +{ #category : 'tests' } +GRPackageTest >> testLicense [ + self assert: package license = #MIT. + self assert: package isMIT. + + package license: #LGPL. + self assert: package license = #LGPL. + self assert: package isLGPL +] + +{ #category : 'tests' } +GRPackageTest >> testName [ + self assert: package name isNil. + package name: 'Gimme-Hope'. + self assert: package name = 'Gimme-Hope' +] + +{ #category : 'tests-packages' } +GRPackageTest >> testPackages [ + | packages | + packages := GRPackage grPackages. + self assert: packages notEmpty. + packages do: [ :each | + self assert: each name notEmpty. + self assert: each license notNil. + self deny: (each dependencies includes: nil). + self assert: each url notNil ]. +] + +{ #category : 'tests' } +GRPackageTest >> testUrl [ + self assert: package url isNil. + + package url: #seasideLGPLUrl. + self assert: package url = GRPackage new seasideLGPLUrl. + + package url: 'http://www.seaside.st/distributions'. + self assert: package url = 'http://www.seaside.st/distributions' +] diff --git a/repository/Grease-Tests-Core/GRPlatformTest.class.st b/repository/Grease-Tests-Core/GRPlatformTest.class.st new file mode 100644 index 00000000..65c874cb --- /dev/null +++ b/repository/Grease-Tests-Core/GRPlatformTest.class.st @@ -0,0 +1,1268 @@ +" +A GRPlatformTest is a test to make sure the platform (= the Smalltalk dialect we are running on) implements the protocol we need for system classes like Collection. An example would be to make sure Collection implements #count: with the semantics we need. +" +Class { + #name : 'GRPlatformTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'private' } +GRPlatformTest >> decodeUtf8Character: aCollectionOfIntegers [ + "Decodes a collection of bytes into a single character. We have this so we can avoid having non-ASCII characters in the source." + | codec toDecode decoded | + codec := GRCodec forEncoding: 'utf-8'. + toDecode := aCollectionOfIntegers asByteArray. + decoded := codec decode: toDecode. + self assert: decoded size = 1. + ^ decoded first +] + +{ #category : 'accessing' } +GRPlatformTest >> platform [ + + ^ GRPlatform current +] + +{ #category : 'private' } +GRPlatformTest >> returnSender [ + + ^ GRPlatform current thisContext sender +] + +{ #category : 'running' } +GRPlatformTest >> runCase [ + GRPlatform current doSilently: [ super runCase ] +] + +{ #category : 'tests' } +GRPlatformTest >> testAsNumber [ + self assert: 2007 asNumber = 2007. + self assert: '2007' asNumber = 2007 +] + +{ #category : 'tests-encoding' } +GRPlatformTest >> testBase64Decode [ + | input | + input := #( + 'YW55IGNhcm5hbCBwbGVhc3VyZS4=' 'any carnal pleasure.' + 'YW55IGNhcm5hbCBwbGVhc3VyZQ==' 'any carnal pleasure' + 'YW55IGNhcm5hbCBwbGVhc3Vy' 'any carnal pleasur' + 'YW55IGNhcm5hbCBwbGVhc3U=' 'any carnal pleasu' + 'YW55IGNhcm5hbCBwbGVhcw==' 'any carnal pleas'). + 1 to: input size by: 2 do: [ :index | + | decoded expected | + decoded := GRPlatform current base64Decode: (input at: index). + expected := input at: index + 1. + self assert: decoded = expected ] +] + +{ #category : 'tests-encoding' } +GRPlatformTest >> testBase64Encode [ + | input | + input := #( + (97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117 114 101 46) 'YW55IGNhcm5hbCBwbGVhc3VyZS4=' + (97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117 114 101) 'YW55IGNhcm5hbCBwbGVhc3VyZQ==' + (97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117 114) 'YW55IGNhcm5hbCBwbGVhc3Vy' + (97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117) 'YW55IGNhcm5hbCBwbGVhc3U=' + (97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115) 'YW55IGNhcm5hbCBwbGVhcw=='). + 1 to: input size by: 2 do: [ :index | + | decoded expected | + decoded := GRPlatform current base64Encode: (input at: index) asByteArray. + expected := input at: index + 1. + self assert: decoded = expected ] +] + +{ #category : 'tests' } +GRPlatformTest >> testBindingOf [ + | binding | + binding := GRPlatform current bindingOf: GRPlatform. + self assert: binding value == GRPlatform +] + +{ #category : 'tests' } +GRPlatformTest >> testBlockContextWithPossibleArguments [ + | block | + block := [ :x | 1 + x ]. + self assert: (block valueWithPossibleArguments: (Array with: 2)) = 3. + + block := [ false not ]. + self assert: (block valueWithPossibleArguments: (Array with: 3)) +] + +{ #category : 'tests' } +GRPlatformTest >> testBlockValuableProtocol [ + self assert: [ nil ] argumentCount isZero. + self assert: [ :x | x ] argumentCount = 1. + self assert: [ :a :b | a + b ] argumentCount = 2. + self + shouldnt: [ [ nil ] ] + raise: Error. + self + shouldnt: [ [ :x | x ] ] + raise: Error. + self + shouldnt: [ [ :a :b | a + b ] ] + raise: Error +] + +{ #category : 'tests' } +GRPlatformTest >> testCharacterAsUnicode [ + "test for: + Character >> #asUnicode + ^self asInteger" + self assert: $S asUnicode = 83 +] + +{ #category : 'tests' } +GRPlatformTest >> testCharacterTo [ + | actual expected | + actual := Array withAll: 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_-'. + actual := actual collect: [ :each | each greaseInteger ]. + expected := #( + 97 + 98 + 99 + 100 + 101 + 102 + 103 + 104 + 105 + 106 + 107 + 108 + 109 + 110 + 111 + 112 + 113 + 114 + 115 + 116 + 117 + 118 + 119 + 120 + 121 + 122 + 65 + 66 + 67 + 68 + 69 + 70 + 71 + 72 + 73 + 74 + 75 + 76 + 77 + 78 + 79 + 80 + 81 + 82 + 83 + 84 + 85 + 86 + 87 + 88 + 89 + 90 + 48 + 49 + 50 + 51 + 52 + 53 + 54 + 55 + 56 + 57 + 95 + 45 + ). + self assert: actual size = expected size. + actual + with: expected + do: [ :first :second | self assert: first = second ] +] + +{ #category : 'tests-mop' } +GRPlatformTest >> testCompileAsciiString [ + | selector expected source | + + GRPlatform current supportsUnicode ifFalse: [ + ^ self ]. + + selector := #stringMethod. + expected := 'test ok'. + source := GRPlatform current asMethodReturningString: expected named: selector. + [ + | actual | + GRPlatform current compile: source into: self class classified: 'private'. + actual := self perform: selector. + self assert: expected = actual + ] ensure: [ + GRPlatform current removeSelector: #stringMethod from: self class ] +] + +{ #category : 'tests-mop' } +GRPlatformTest >> testCompileUnicodeString [ + | selector expected source | + selector := #stringMethod. + expected := String + with: (Character value: 16r1F1F3) + with: (Character value: 16r1F1F1). + source := GRPlatform current asMethodReturningString: expected named: selector. + [ + | actual | + GRPlatform current compile: source into: self class classified: 'private'. + actual := self perform: selector. + self assert: expected = actual + ] ensure: [ + GRPlatform current removeSelector: #stringMethod from: self class ] +] + +{ #category : 'tests' } +GRPlatformTest >> testConvertToSmalltalkNewlines [ + | expected | + expected := 'a' , GRPlatform current newline , 'b'. + self assert: (GRPlatform current convertToSmalltalkNewlines: nil) isNil. + self assert: (GRPlatform current convertToSmalltalkNewlines: '') = ''. + self assert: (GRPlatform current convertToSmalltalkNewlines: 'abc') = 'abc'. + self + assert: (GRPlatform current convertToSmalltalkNewlines: 'a' , (String with: Character cr with: Character lf) , 'b') + = expected + description: 'Multics, Unix and Unix-like systems (GNU/Linux, AIX, Xenix, Mac OS X, FreeBSD, etc.), BeOS, Amiga, RISC OS, and others'. + self + assert: (GRPlatform current convertToSmalltalkNewlines: 'a' , (String with: Character lf) , 'b') + = expected + description: 'DEC RT-11 and most other early non-Unix, non-IBM OSes, CP/M, MP/M, MS-DOS, OS/2, Microsoft Windows, Symbian OS'. + self + assert: (GRPlatform current convertToSmalltalkNewlines: 'a' , (String with: Character cr) , 'b') + = expected + description: 'Commodore 8-bit machines, TRS-80, Apple II family, Mac OS up to version 9 and OS-9' +] + +{ #category : 'tests' } +GRPlatformTest >> testDateArithmetic [ + | today tomorrow oneDay minusOneDay | + today := DateAndTime year: 2008 month: 9 day: 13 hour: 14 minute: 32 second: 05 offset: Duration zero. + tomorrow := DateAndTime year: 2008 month: 9 day: 14 hour: 14 minute: 32 second: 05 offset: Duration zero. + oneDay := Duration days: 1 hours: 0 minutes: 0 seconds: 0. + minusOneDay := Duration days: -1 hours: 0 minutes: 0 seconds: 0. + self assert: tomorrow - today = oneDay. + self assert: today - tomorrow = minusOneDay. + self assert: today + oneDay = tomorrow. + self assert: tomorrow - oneDay = today. + self assert: tomorrow + minusOneDay = today. + self assert: today - minusOneDay = tomorrow +] + +{ #category : 'tests' } +GRPlatformTest >> testDaysInMonthForYear [ + (1 to: 12) with: #(31 28 31 30 31 30 31 31 30 31 30 31) do: [ :month :days | + self assert: days = (Date daysInMonth: (Date nameOfMonth: month) forYear: 2007) ] +] + +{ #category : 'tests' } +GRPlatformTest >> testDigitValue [ + '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' + with: (0 to: 35) + do: [ :each :expected | self assert: each digitValue = expected ] +] + +{ #category : 'tests' } +GRPlatformTest >> testEmptyOrNil [ + self assert: '' isEmptyOrNil. + self assert: nil isEmptyOrNil. + self assert: Array new isEmptyOrNil. + self deny: 'Timberwolf' isEmptyOrNil +] + +{ #category : 'tests-files' } +GRPlatformTest >> testFileExists [ + | theFileName | + self + writeToFile: 'test' + withFileNameDo:[ :fileName | + self assert: (GRPlatform current fileExists: fileName). + theFileName := fileName ]. + self deny: (GRPlatform current fileExists: theFileName) +] + +{ #category : 'tests-encoding' } +GRPlatformTest >> testGreaseAsByteArray [ + self assert: 1024 greaseAsByteArray equals: #[4 0]. + self assert: (SmallInteger maxVal + 10) greaseAsByteArray equals: #[16 0 0 0 0 0 0 9]. + self assert: (SmallInteger minVal - 10) greaseAsByteArray equals: #[16 0 0 0 0 0 0 10]. + self assert: #[1 2 3] greaseAsByteArray equals: #[1 2 3]. + self assert: '123' greaseAsByteArray equals: #[49 50 51] +] + +{ #category : 'tests-encoding' } +GRPlatformTest >> testGreaseByteAt [ + self assert: (1024 greaseByteAt: 1) equals: 0. + self assert: (1024 greaseByteAt: 2) equals: 4. + self assert: ((SmallInteger maxVal + 10) greaseByteAt: 1) equals: 9. + self assert: ((SmallInteger maxVal + 10) greaseByteAt: 8) equals: 16. + self assert: ((SmallInteger minVal - 10) greaseByteAt: 1) equals: 10. + self assert: ((SmallInteger minVal - 10) greaseByteAt: 8) equals: 16 +] + +{ #category : 'tests-encoding' } +GRPlatformTest >> testGreaseBytesCount [ + self assert: 1024 greaseBytesCount equals: 2. + self assert: (SmallInteger maxVal + 10) greaseBytesCount equals: 8. + self assert: (SmallInteger minVal + 10) greaseBytesCount equals: 8 +] + +{ #category : 'tests' } +GRPlatformTest >> testGreaseIntegerOnCharacterAscii [ + "ASCII (1 byte)" + self assert: $a greaseInteger = 97. + self assert: $A greaseInteger = 65 +] + +{ #category : 'tests' } +GRPlatformTest >> testGreaseIntegerOnCharacterBmp [ + "BMP (3 byte)" + | euro | + euro := self decodeUtf8Character: #(226 130 172 ). + self assert: euro greaseInteger = 8364 +] + +{ #category : 'tests' } +GRPlatformTest >> testGreaseIntegerOnCharacterLatin1 [ + "Latin-1 (2 byte)" + | oWithStroke | + oWithStroke := self decodeUtf8Character: #(195 152 ). + self assert: oWithStroke greaseInteger = 216 +] + +{ #category : 'tests' } +GRPlatformTest >> testGreaseIntegerOnCharacterSmp [ + "SMP (4 byte)" + | manna | + manna := self decodeUtf8Character: #(240 144 140 188 ). + self assert: manna greaseInteger = 66364 +] + +{ #category : 'tests' } +GRPlatformTest >> testGreaseIntegerOnNumber [ + self assert: 2007 greaseInteger = 2007. + self assert: 2007.0 greaseInteger = 2007. + self assert: 2007.1 greaseInteger = 2007. + self assert: 2007.9 greaseInteger = 2007 +] + +{ #category : 'tests' } +GRPlatformTest >> testGreaseIntegerOnString [ + self assert: '' greaseInteger isNil. + self assert: 'a' greaseInteger isNil. + self assert: ' 1' greaseInteger isNil. + self assert: 'a1' greaseInteger isNil. + self assert: '-' greaseInteger isNil. + self assert: '-a' greaseInteger isNil. + self assert: '0' greaseInteger = 0. + self assert: '12' greaseInteger = 12. + self assert: '123' greaseInteger = 123. + self assert: '123456789' greaseInteger = 123456789. + self assert: '-0' greaseInteger = 0. + self assert: '-12' greaseInteger = -12. + self assert: '-123.4' greaseInteger = -123. + self assert: '-123456789' greaseInteger = -123456789 +] + +{ #category : 'tests' } +GRPlatformTest >> testGreaseString [ + self assert: 'Timberwolf' greaseString = 'Timberwolf'. + self assert: #DireWolf greaseString = 'DireWolf'. + self deny: #DireWolf greaseString isSymbol. + self assert: true greaseString = 'true'. + self assert: 666 greaseString = '666'. + "make sure we're not immediate" + self assert: ((2 raisedTo: 64) + 1) greaseString = '18446744073709551617'. + "make sure we're not immediate" + self assert: ((2 raisedTo: 64) + 1) negated greaseString = '-18446744073709551617'. + self assert: $A greaseString = 'A'. + self assert: nil greaseString = 'nil'. + [ "Smalltalk/X has constant folding so 1 / 0 will be evaluated at compile time + resulting in an error when loading the code." + 1 perform: #/ with: 0 ] + on: ZeroDivide + do: [ :error | self assert: error greaseString isString ]. + self assert: 15.25 greaseString = '15.25'. + self assert: nil greaseString isString. + self assert: (4 @ 2) greaseString = '4@2'. + "#greaseString for a byte array should not do any decoding + this is in place to catch encoding errors early" + self assert: #(101 97 ) asByteArray greaseString ~= 'ea'. + self assert: #(101 97 ) asByteArray greaseString isString. + self assert: Object new greaseString isString. + "Printing scaled decimals (https://github.com/SeasideSt/Grease/issues/1)" + self assert: 1.21s3 greaseString = '1.210'. + self assert: -1.21s3 greaseString = '-1.210' +] + +{ #category : 'tests' } +GRPlatformTest >> testIfNil [ + self assert: (nil ifNil: [ 1 ]) = 1. + self assert: (1 ifNil: [ 2 ]) = 1 +] + +{ #category : 'tests' } +GRPlatformTest >> testIfTrueIfFalse [ + self assert: (false ifFalse: [ #false ]) = #false. + self assert: (false ifTrue: [ #true ]) isNil. + self assert: (true ifTrue: [ #true ]) = #true. + self assert: (true ifFalse: [ #false ]) isNil. + self assert: (true ifTrue: [ #true ] ifFalse: [ #false ]) = #true. + self assert: (false ifTrue: [ #true ] ifFalse: [ #false ]) = #false. + self assert: (true ifFalse: [ #false ] ifTrue: [ #true ]) = #true. + self assert: (false ifFalse: [ #false ] ifTrue: [ #true ]) = #false +] + +{ #category : 'tests' } +GRPlatformTest >> testIsCharacter [ + self deny: 7 isCharacter. + self assert: $7 isCharacter +] + +{ #category : 'tests' } +GRPlatformTest >> testIsCollection [ + self deny: Object new isCollection +] + +{ #category : 'tests' } +GRPlatformTest >> testIsKeyword [ + self deny: #isKeyword isKeyword. + self deny: #+ isKeyword. + self assert: #isKeyword: isKeyword. + self assert: #isKeyword:isKeyword: isKeyword +] + +{ #category : 'tests' } +GRPlatformTest >> testIsUnary [ + self assert: #isUnary isUnary. + self deny: #+ isUnary. + self deny: #isUnary: isUnary. + self deny: #isUnary:isUnary: isUnary +] + +{ #category : 'tests' } +GRPlatformTest >> testLabel [ + self assert: (self platform label isKindOf: String). + self deny: self platform label isEmpty +] + +{ #category : 'tests-files' } +GRPlatformTest >> testNewTemporaryFile [ + + | temporaryFile1 temporaryFile2 | + [ + temporaryFile1 := GRPlatform current newTemporaryFile. + temporaryFile2 := GRPlatform current newTemporaryFile. + GRPlatform current + writeFileStreamOn: temporaryFile1 + do: [ :str | str nextPutAll: 'test temporary' ] + binary: false. + GRPlatform current + writeFileStreamOn: temporaryFile2 + do: [ :str | str nextPutAll: #[116 101 115 116 32 116 101 109 112 111 114 97 114 121] ] + binary: true. + self assert: (GRPlatform current fileExists: temporaryFile1). + self deny: (GRPlatform current localNameOf: temporaryFile1) equals: (GRPlatform current localNameOf: temporaryFile2) + ] ensure: [ GRPlatform current deleteFile: temporaryFile1. GRPlatform current deleteFile: temporaryFile2 ]. + self deny: (GRPlatform current fileExists: temporaryFile1). + self deny: (GRPlatform current fileExists: temporaryFile2) +] + +{ #category : 'tests-files' } +GRPlatformTest >> testNewTemporaryFileNamed [ + + | temporaryFile fileName | + fileName := 'GRPlatformTestTemporaryFile'. + [ + temporaryFile := GRPlatform current newTemporaryFileNamed: fileName. + GRPlatform current + writeFileStreamOn: temporaryFile + do: [ :str | str nextPutAll: 'test temporary' ] + binary: false. + self assert: (GRPlatform current fileExists: temporaryFile). + self should: [ GRPlatform current newTemporaryFileNamed: fileName ] raise: GRError. + ] ensure: [ GRPlatform current deleteFile: temporaryFile ]. + self deny: (GRPlatform current fileExists: temporaryFile). + +] + +{ #category : 'tests' } +GRPlatformTest >> testNewline [ + self assert: GRPlatform current newline isString. + self deny: GRPlatform current newline isEmpty +] + +{ #category : 'tests' } +GRPlatformTest >> testNumArgs [ + self assert: #not numArgs isZero. + self assert: #+ numArgs = 1. + self assert: #and: numArgs = 1. + self assert: #value:value: numArgs = 2 +] + +{ #category : 'tests' } +GRPlatformTest >> testPathSeparator [ + self assert: GRPlatform current pathSeparator isString +] + +{ #category : 'tests' } +GRPlatformTest >> testPrintStringLimitedTo [ + + | longString shortString | + longString := String streamContents: [ :stream | + 1 to: 1000 do: [ :i | stream nextPutAll: i printString ] ]. + "Squeak implementation adds 9 characters to limited string and VA Smalltalk adds 10, so we can't do an exact count." + self assert: longString printString size > 65. + shortString := longString printStringLimitedTo: 50. + self assert: shortString size < 65 +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testRandomGenerator [ + | generator collection | + generator := self platform newRandom. + self should: [ generator nextInt: 0 ] raise: Error. + self assert: (generator nextInt: 1) = 1. + collection := (1 to: 200) collect: [ :ea | generator nextInt: 2 ]. + self assert: (collection includes: 1). + self assert: (collection includes: 2). + self assert: collection asSet size = 2. + + collection := 1 to: 5. + self assert: (collection includes: (generator randomFrom: collection)). + collection := -1.5 to: 3.5. + self assert: (collection includes: (generator randomFrom: collection)). + collection := #(1 2 3 4 5). + self assert: (collection includes: (generator randomFrom: collection)). + collection := #(1 2 3 4 5) asSet. + self assert: (collection includes: (generator randomFrom: collection)) +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadStreamAtEnd [ + "ANSI 5.9.2.1" + + | stream | + stream := '' readStream. + self assert: stream atEnd. + + stream := 'a' readStream. + self deny: stream atEnd +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadStreamContents [ + "ANSI 5.9.3.1" + + | stream | + stream := 'abc' readStream. + self assert: stream contents = 'abc'. + stream next: 2. + self assert: stream contents = 'abc' +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadStreamNegativeSkip [ + "ANSI does not mention negative values being used with #skip: but we + believe they work consistently. If not, we need to update our coding + conventions to make sure we never do this." + + | stream position | + stream := 'abcd' readStream. + stream next; next. + position := stream position. + self assert: (stream peek) = $c. + stream skip: -1. + self assert: stream position = (position - 1). + self assert: (stream peek) = $b +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadStreamNext [ + "ANSI 5.9.2.3" + + | stream | + stream := 'abcd' readStream. + self assert: stream next = $a. + self assert: (stream next: 0) = ''. + self assert: (stream next: 1) = 'b'. + self assert: (stream next: 2) = 'cd' +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadStreamPeek [ + "ANSI 5.9.2.7" + + | stream | + stream := 'abcd' readStream. + self assert: stream peek = $a. + + stream := '' readStream. + self assert: stream peek isNil +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadStreamPosition [ + "ANSI 5.9.1.4 and 5.9.1.5" + + | stream | + stream := 'abc' readStream. + self assert: stream position = 0. + stream next. + self assert: stream position = 1. + stream next. + self assert: stream position = 2. + stream next. + self assert: stream position = 3. + + stream position: 1. + self assert: stream position = 1. + self assert: stream next = $b. + stream position: 0. + self assert: stream position = 0. + self assert: stream next = $a. + stream position: 3. + self assert: stream atEnd +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadStreamReset [ + "ANSI 5.9.1.6" + + | stream | + stream := 'abc' readStream. + stream next: 2. + stream reset. + self assert: stream next = $a +] + +{ #category : 'tests-streams-seaside' } +GRPlatformTest >> testReadStreamSeasideUpToAll [ + | stream string1 string2 | + stream := 'abc12def' readStream. + string1 := stream greaseUpToAll: '12'. + string2 := stream greaseUpToAll: '12'. + self assert: string1 = 'abc'. + self assert: string2 = 'def'. + self assert: stream atEnd +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadStreamSkip [ + "ANSI 5.9.2.9" + + | stream | + stream := 'abcd' readStream. + self assert: (stream skip: 2; peek) = $c +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadStreamUpTo [ + "ANSI 5.9.2.11" + + | stream | + stream := 'abcd' readStream. + self assert: (stream upTo: $c) = 'ab'. + self assert: stream next = $d. + + stream := 'abcd' readStream. + self assert: (stream upTo: $x) = 'abcd'. + self assert: stream atEnd +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadStreamUpToEnd [ + "Not defined by ANSI." + + | stream | + stream := 'abcd' readStream. + self assert: stream upToEnd = 'abcd'. + self assert: stream atEnd. + self assert: stream upToEnd = ''. + self assert: stream atEnd. + + stream := 'abcd' readStream. + stream upTo: $b. + self assert: stream upToEnd = 'cd'. + self assert: stream atEnd +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadWriteStreamAtEnd [ + "ANSI 5.9.2.1" + | stream | + stream := GRPlatform current readWriteCharacterStream. + self assert: stream atEnd. + stream + nextPut: $a; + reset. + self deny: stream atEnd +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadWriteStreamContents [ + "ANSI 5.9.3.1" + | stream | + stream := GRPlatform current readWriteCharacterStream. + stream + nextPutAll: 'abc'; + reset. + self assert: stream contents = 'abc'. + stream next: 2. + self assert: stream contents = 'abc'. + stream := GRPlatform current readWriteByteStream. + stream + nextPutAll: 'abc' asByteArray; + reset. + self assert: stream contents = 'abc' asByteArray. + stream next: 2. + self assert: stream contents = 'abc' asByteArray +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadWriteStreamNegativeSkip [ + "ANSI does not mention negative values being used with #skip: but we + believe they work consistently. If not, we need to update our coding + conventions to make sure we never do this." + | stream position | + stream := GRPlatform current readWriteCharacterStream. + stream + nextPutAll: 'abcd'; + reset. + stream + next; + next. + position := stream position. + self assert: stream peek = $c. + stream skip: -1. + self assert: stream position = (position - 1). + self assert: stream peek = $b. + stream := GRPlatform current readWriteByteStream. + stream + nextPutAll: 'abcd' asByteArray; + reset. + stream + next; + next. + position := stream position. + self assert: stream peek = 99. + stream skip: -1. + self assert: stream position = (position - 1). + self assert: stream peek = 98 +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadWriteStreamNext [ + "ANSI 5.9.2.3" + | stream | + stream := GRPlatform current readWriteCharacterStream. + stream + nextPutAll: 'abcd'; + reset. + self assert: stream next = $a. + self assert: (stream next: 0) = ''. + self assert: (stream next: 1) = 'b'. + self assert: (stream next: 2) = 'cd'. + stream := GRPlatform current readWriteByteStream. + stream + nextPutAll: 'abcd' asByteArray; + reset. + self assert: stream next = 97. + self assert: (stream next: 0) = '' asByteArray. + self assert: (stream next: 1) = 'b' asByteArray. + self assert: (stream next: 2) = 'cd' asByteArray +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadWriteStreamNextPut [ + "ANSI 5.9.4.3" + | stream | + stream := GRPlatform current readWriteCharacterStream. + stream nextPut: $a. + self assert: stream contents = 'a'. + stream := GRPlatform current readWriteByteStream. + stream nextPut: 97. + self assert: stream contents = 'a' asByteArray +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadWriteStreamNextPutAll [ + "ANSI 5.9.4.4" + | stream | + stream := GRPlatform current readWriteCharacterStream. + stream nextPutAll: 'abc'. + self assert: stream contents = 'abc'. + stream := GRPlatform current readWriteCharacterStream. + stream nextPutAll: #($a $b $c). + self assert: stream contents = 'abc'. + stream := GRPlatform current readWriteByteStream. + stream nextPutAll: #(97 98 99 ) asByteArray. + self assert: stream contents = 'abc' asByteArray +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadWriteStreamPeek [ + "ANSI 5.9.2.7" + | stream | + stream := GRPlatform current readWriteCharacterStream. + self assert: stream peek isNil. + stream := GRPlatform current readWriteCharacterStream. + stream + nextPutAll: 'abcd'; + reset. + self assert: stream peek = $a. + stream := GRPlatform current readWriteByteStream. + stream + nextPutAll: 'abcd' asByteArray; + reset. + self assert: stream peek = 97 +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadWriteStreamPosition [ + "ANSI 5.9.1.4 and 5.9.1.5" + | stream | + stream := GRPlatform current readWriteCharacterStream. + stream + nextPutAll: 'abc'; + reset. + self assert: stream position = 0. + stream next. + self assert: stream position = 1. + stream next. + self assert: stream position = 2. + stream next. + self assert: stream position = 3. + stream position: 1. + self assert: stream position = 1. + self assert: stream next = $b. + stream position: 0. + self assert: stream position = 0. + self assert: stream next = $a. + stream position: 3. + self assert: stream atEnd. + stream := GRPlatform current readWriteByteStream. + stream + nextPutAll: 'abc' asByteArray; + reset. + self assert: stream position = 0. + stream next. + self assert: stream position = 1. + stream next. + self assert: stream position = 2. + stream next. + self assert: stream position = 3. + stream position: 1. + self assert: stream position = 1. + self assert: stream next = 98. + stream position: 0. + self assert: stream position = 0. + self assert: stream next = 97. + stream position: 3. + self assert: stream atEnd +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadWriteStreamReset [ + "ANSI 5.9.1.6" + | stream | + stream := GRPlatform current readWriteCharacterStream. + stream + nextPutAll: 'abc'; + reset. + stream next: 2. + stream reset. + self assert: stream next = $a. + stream := GRPlatform current readWriteCharacterStream. + stream + nextPutAll: 'abc'; + reset. + stream nextPutAll: 'def'. + self assert: stream contents = 'def'. + stream := GRPlatform current readWriteByteStream. + stream + nextPutAll: 'abc' asByteArray; + reset. + stream next: 2. + stream reset. + self assert: stream next = 97 +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadWriteStreamSkip [ + "ANSI 5.9.2.9" + | stream | + stream := GRPlatform current readWriteCharacterStream. + stream + nextPutAll: 'abcd'; + reset. + self assert: (stream + skip: 2; + peek) = $c. + stream := GRPlatform current readWriteByteStream. + stream + nextPutAll: 'abcd' asByteArray; + reset. + self assert: (stream + skip: 2; + peek) = 99 +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadWriteStreamTab [ + "ANSI 5.9.4.6" + | stream | + stream := GRPlatform current readWriteCharacterStream. + stream tab. + self assert: stream contents first = Character tab +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadWriteStreamUpTo [ + "ANSI 5.9.2.11" + | stream | + stream := GRPlatform current readWriteCharacterStream. + stream + nextPutAll: 'abcd'; + reset. + self assert: (stream upTo: $c) = 'ab'. + self assert: stream next = $d. + stream := GRPlatform current readWriteCharacterStream. + stream + nextPutAll: 'abcd'; + reset. + self assert: (stream upTo: $x) = 'abcd'. + self assert: stream atEnd. + stream := GRPlatform current readWriteByteStream. + stream + nextPutAll: 'abcd' asByteArray; + reset. + self assert: (stream upTo: 99) = #(97 98 ) asByteArray. + self assert: stream next = 100. + stream := GRPlatform current readWriteByteStream. + stream + nextPutAll: 'abcd' asByteArray; + reset. + self assert: (stream upTo: 120) = #(97 98 99 100 ) asByteArray. + self assert: stream atEnd +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testReadWriteStreamUpToEnd [ + "Not defined by ANSI." + | stream | + stream := GRPlatform current readWriteCharacterStream. + stream + nextPutAll: 'abcd'; + reset. + self assert: stream upToEnd = 'abcd'. + self assert: stream atEnd. + self assert: stream upToEnd = ''. + self assert: stream atEnd. + stream reset. + stream upTo: $b. + self assert: stream upToEnd = 'cd'. + self assert: stream atEnd. + stream := GRPlatform current readWriteByteStream. + stream + nextPutAll: 'abcd' asByteArray; + reset. + self assert: stream upToEnd = #(97 98 99 100 ) asByteArray. + self assert: stream atEnd. + self assert: stream upToEnd = #() asByteArray. + self assert: stream atEnd. + stream reset. + stream upTo: 98. + self assert: stream upToEnd = #(99 100 ) asByteArray. + self assert: stream atEnd +] + +{ #category : 'tests' } +GRPlatformTest >> testSeconds [ + self assert: Time now seconds isInteger +] + +{ #category : 'tests' } +GRPlatformTest >> testSecureHashFor [ + "Make sure the platform class provides a #secureHashFor: method. The method is called by Seaside when hashing passwords. + The Pharo implementation returns a SHA-1 hash but another equivalent hash method could also be used." + + | a b c d invalidUtf8 e f | + a := self platform secureHashFor: 'foobar'. + b := self platform secureHashFor: 'foobar'. + self assert: a equals: b. + + c := self platform secureHashFor: #[102 111 111 98 97 114]. + d := self platform secureHashFor: #[102 111 111 98 97 114]. + self assert: c equals: d. + + "The following ensures any byte array can be used (and not only the onces containing valid utf8)" + invalidUtf8 := #[160 161]. + e := self platform secureHashFor: invalidUtf8. + f := self platform secureHashFor: invalidUtf8. + self assert: e equals: f +] + +{ #category : 'tests-image' } +GRPlatformTest >> testShutDownList [ + "A smoke test: checks if the test-class can be added and removed to the shutdown list." + + [ self platform addToShutDownList: self class ] + ensure: [ self platform removeFromShutDownList: self class ] +] + +{ #category : 'tests-files' } +GRPlatformTest >> testSizeOfFile [ + | theFileName | + self + writeToFile: 'test me' + withFileNameDo:[ :fileName | + self assert: (GRPlatform current sizeOfFile: fileName) equals: 7. + theFileName := fileName ]. + self deny: (GRPlatform current fileExists: theFileName) +] + +{ #category : 'tests-mop' } +GRPlatformTest >> testSourceCodeStringOf [ + + | sourceCodeString | + sourceCodeString := GRPlatform current sourceCodeStringOf: GRPlatform >> #sourceCodeStringOf:. + self + assert: sourceCodeString + equals: 'sourceCodeStringOf: aCompiledMethod + "Return a String with the source code for a compiled method." + + self subclassResponsibility' +] + +{ #category : 'tests' } +GRPlatformTest >> testStackDepth [ + | stackDepth someBlock | + stackDepth := self platform stackDepth. + self assert: stackDepth isInteger. + self assert: stackDepth > 0. + someBlock := [ self assert: self platform stackDepth > stackDepth ]. + someBlock value. + self assert: stackDepth = self platform stackDepth +] + +{ #category : 'tests-image' } +GRPlatformTest >> testStartUpList [ + "A smoke test: checks if the test-class can be added and removed to the startup list." + + [ self platform addToStartUpList: self class ] + ensure: [ self platform removeFromStartUpList: self class ] +] + +{ #category : 'tests' } +GRPlatformTest >> testSymbolAsMutator [ + "test for: + Symbol >> #asMutator + ^ (self copyWith: $:) asSymbol" + self assert: #name greaseAsMutator = #name: +] + +{ #category : 'tests-processes' } +GRPlatformTest >> testTerminate [ + | ensureRun ifCurtailedRun semaphore1 semaphore2 semaphore3 semaphore4 process | + ensureRun := false. + ifCurtailedRun := false. + semaphore1 := self platform semaphoreClass new. + semaphore2 := self platform semaphoreClass new. + semaphore3 := self platform semaphoreClass new. + semaphore4 := self platform semaphoreClass new. + process := [ + [ [ semaphore1 signal. semaphore2 wait ] + ensure: [ ensureRun := true. semaphore3 signal ] ] + ifCurtailed: [ ifCurtailedRun := true. semaphore4 signal ] ] newProcess. + self deny: (self platform isProcessTerminated: process). + process resume. + semaphore1 wait. + self deny: (self platform isProcessTerminated: process). + self platform terminateProcess: process. + semaphore3 wait. + self assert: ensureRun. + semaphore4 wait. + self assert: ifCurtailedRun. + self assert: (self platform isProcessTerminated: process) +] + +{ #category : 'tests' } +GRPlatformTest >> testThisContext [ + | methodContext block ctx | + "This is just a basic test to see if thisContext works" + methodContext := self platform thisContext. + block := [ | blockContext | + blockContext := self platform thisContext. + self assert: blockContext sender = methodContext. + "The following is a difference between Gemstone and Pharo... " + (Smalltalk includesKey: #GRGemStonePlatform) + ifTrue: [ self assert: blockContext receiver = block ] + ifFalse: [ + self assert: blockContext receiver = self. + (blockContext respondsTo: #tempNamed:) + ifTrue:[ self assert: (blockContext tempNamed: 'blockContext') == blockContext ] + ifFalse:[ self assert: (blockContext namedTempAt: (blockContext tempNames indexOf: #blockContext)) == blockContext ] ]. + (blockContext respondsTo: #tempNamed:) + ifTrue:[ self assert: (blockContext tempNamed: 'methodContext') == methodContext ] + ifFalse: [ self assert: (blockContext namedTempAt: (blockContext tempNames indexOf: #methodContext)) == methodContext ] ]. + + block value. + self assert: self returnSender = methodContext. + self assert: methodContext receiver = self. + ctx := self platform thisContext. + (ctx respondsTo: #tempNamed:) + ifTrue:[ self assert: (ctx tempNamed: 'block') == block ] + ifFalse: [ self assert: (ctx namedTempAt: (ctx tempNames indexOf: #block)) == block ] +] + +{ #category : 'tests' } +GRPlatformTest >> testTotalSeconds [ + "Answer the total seconds since the Squeak epoch: 1 January 1901." + + | seconds | + seconds := Time totalSeconds. + self assert: seconds isInteger. + self assert: seconds > 3421645167 +] + +{ #category : 'tests' } +GRPlatformTest >> testVersion [ + self assert: (self platform version isKindOf: GRVersion). + self assert: (self platform versionString isKindOf: String). + self deny: self platform versionString isEmpty +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testWriteStreamContents [ + | stream | + stream := GRPlatform current writeCharacterStreamOn: String new. + self assert: stream contents = ''. + stream + nextPutAll: 'abcdef'. + self assert: stream contents = 'abcdef'. + stream + reset; + nextPutAll: 'gh'. + self assert: stream contents = 'gh' +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testWriteStreamCrLf [ + | stream | + stream := WriteStream on: String new. + stream crlf. + self assert: stream contents first codePoint = 13. + self assert: stream contents second codePoint = 10 +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testWriteStreamNextPut [ + "ANSI 5.9.4.3" + + | stream | + stream := WriteStream on: String new. + stream nextPut: $a. + self assert: stream contents = 'a' +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testWriteStreamNextPutAll [ + "ANSI 5.9.4.4" + + | stream | + stream := WriteStream on: String new. + stream nextPutAll: 'abc'. + self assert: stream contents = 'abc'. + + stream := WriteStream on: String new. + stream nextPutAll: #($a $b $c). + self assert: stream contents = 'abc' +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testWriteStreamPosition [ + | stream | + stream := GRPlatform current writeCharacterStreamOn: String new. + self assert: stream position = 0. + stream nextPutAll: 'abc'. + self assert: stream position = 3. + stream reset. + self assert: stream position = 0 +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testWriteStreamReset [ + "ANSI 5.9.1.6" + + | stream | + stream := WriteStream on: String new. + stream nextPutAll: 'abc'. + stream reset. + stream nextPutAll: 'def'. + self assert: stream contents = 'def' +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testWriteStreamSpace [ + "ANSI 5.9.4.5" + + | stream | + stream := WriteStream on: String new. + stream space. + self assert: stream contents first = Character space +] + +{ #category : 'tests-streams' } +GRPlatformTest >> testWriteStreamTab [ + "ANSI 5.9.4.6" + + | stream | + stream := WriteStream on: String new. + stream tab. + self assert: stream contents first = Character tab +] + +{ #category : 'tests-files' } +GRPlatformTest >> testWriteToFileInFolder [ + + | bytes text | + bytes := ByteArray new. + self + writeToFile: bytes + withFileNameDo:[ :fileName | + self assert: (GRPlatform current contentsOfFile: fileName binary: true) equals: bytes ]. + + bytes := #[80 104 39 110 103 108 117 105 32 109 103 108 119 39 110 97 102 104 32 67 116 104 117 108 104 117 32 82 39 108 121 101 104 32 119 103 97 104 39 110 97 103 108 32 102 104 116 97 103 110]. + self + writeToFile: bytes + withFileNameDo:[ :fileName | + self assert:(GRPlatform current contentsOfFile: fileName binary: true) equals: bytes ]. + + text := String new. + self + writeToFile: text + withFileNameDo:[ :fileName | + self assert: (GRPlatform current contentsOfFile: fileName binary: false) equals: text ]. + + text := 'Ph''nglui mglw''nafh Cthulhu R''lyeh wgah''nagl fhtagn'. + self + writeToFile: text + withFileNameDo:[ :fileName | + self assert: (GRPlatform current contentsOfFile: fileName binary: false) equals: text ] +] diff --git a/repository/Grease-Tests-Core/GRPrinterTest.class.st b/repository/Grease-Tests-Core/GRPrinterTest.class.st new file mode 100644 index 00000000..0d0a877b --- /dev/null +++ b/repository/Grease-Tests-Core/GRPrinterTest.class.st @@ -0,0 +1,721 @@ +Class { + #name : 'GRPrinterTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'tests-utilites' } +GRPrinterTest >> separate: aString left: aCharacter [ + | converter | + converter := GRNumberPrinter new. + ^ String streamContents: [ :stream | + converter + separate: aString + left: aCharacter + on: stream ] +] + +{ #category : 'tests' } +GRPrinterTest >> testComposedPrinter [ + | converter | + converter := GRSequentialPrinter new , 'CHF ' , GRNumberPrinter new. + self assert: (converter print: 1234) = 'CHF 1234'. + self assert: (converter print: -1234) = 'CHF 1234'. + converter := GRSignPrinter new , GRNumberPrinter new , '%'. + self assert: (converter print: 1234) = '1234%'. + self assert: (converter print: -1234) = '-1234%' +] + +{ #category : 'tests-timestamp' } +GRPrinterTest >> testCookieTimestamp [ + | printer date | + printer := GRPrinter cookieTimestamp. + date := DateAndTime + year: 2008 + month: 8 + day: 1 + hour: 9 + minute: 4 + second: 4 + offset: (Duration + days: 0 + hours: 0 + minutes: 0 + seconds: 0). + self assert: (printer print: date) = 'Fri, 01-Aug-2008 09:04:04 GMT' +] + +{ #category : 'tests-utilites' } +GRPrinterTest >> testDigitsOf [ + | converter | + converter := GRNumberPrinter new. + self assert: (converter + digitsOf: 0.0 + base: 10) = '0'. + self assert: (converter + digitsOf: 1.0 + base: 10) = '1'. + self assert: (converter + digitsOf: -1.0 + base: 10) = '1'. + self assert: (converter + digitsOf: -1234567890 + base: 10) = '1234567890'. + self assert: (converter + digitsOf: 1234567890 + base: 10) = '1234567890'. + self assert: (converter + digitsOf: -9876543210 + base: 10) = '9876543210'. + self assert: (converter + digitsOf: 9876543210 + base: 10) = '9876543210' +] + +{ #category : 'tests-utilites' } +GRPrinterTest >> testDigitsOfBase [ + | converter | + converter := GRNumberPrinter new. + self assert: (converter + digitsOf: 1234 + base: 2) = '10011010010'. + self assert: (converter + digitsOf: 1234 + base: 3) = '1200201'. + self assert: (converter + digitsOf: 1234 + base: 4) = '103102'. + self assert: (converter + digitsOf: 1234 + base: 5) = '14414'. + self assert: (converter + digitsOf: 1234 + base: 6) = '5414'. + self assert: (converter + digitsOf: 1234 + base: 7) = '3412'. + self assert: (converter + digitsOf: 1234 + base: 8) = '2322'. + self assert: (converter + digitsOf: 1234 + base: 9) = '1621'. + self assert: (converter + digitsOf: 1234 + base: 10) = '1234'. + self assert: (converter + digitsOf: 1234 + base: 11) = 'a22'. + self assert: (converter + digitsOf: 1234 + base: 12) = '86a'. + self assert: (converter + digitsOf: 1234 + base: 13) = '73c'. + self assert: (converter + digitsOf: 1234 + base: 14) = '642'. + self assert: (converter + digitsOf: 1234 + base: 15) = '574'. + self assert: (converter + digitsOf: 1234 + base: 16) = '4d2' +] + +{ #category : 'tests' } +GRPrinterTest >> testFileSizePrinterBinary [ + | converter | + converter := GRPrinter binaryFileSize. + self assert: (converter print: 1) = '1 byte'. + self assert: (converter print: 2) = '2 bytes'. + self assert: (converter print: 30) = '30 bytes'. + self assert: (converter print: 500) = '500 bytes'. + self assert: (converter print: 6000) = '5.9 KiB'. + self assert: (converter print: 70000) = '68.4 KiB'. + self assert: (converter print: 800000) = '781.3 KiB'. + self assert: (converter print: 9000000) = '8.6 MiB'. + self assert: (converter print: 10000000) = '9.5 MiB'. + self assert: (converter print: 200000000) = '190.7 MiB'. + self assert: (converter print: 3000000000) = '2.8 GiB'. + self assert: (converter print: 40000000000) = '37.3 GiB' +] + +{ #category : 'tests' } +GRPrinterTest >> testFileSizePrinterDecimal [ + | converter | + converter := GRPrinter decimalFileSize. + self assert: (converter print: 1) = '1 byte'. + self assert: (converter print: 2) = '2 bytes'. + self assert: (converter print: 30) = '30 bytes'. + self assert: (converter print: 500) = '500 bytes'. + self assert: (converter print: 6000) = '6.0 kB'. + self assert: (converter print: 70000) = '70.0 kB'. + self assert: (converter print: 800000) = '800.0 kB'. + self assert: (converter print: 9000000) = '9.0 MB'. + self assert: (converter print: 10000000) = '10.0 MB'. + self assert: (converter print: 200000000) = '200.0 MB'. + self assert: (converter print: 3000000000) = '3.0 GB'. + self assert: (converter print: 40000000000) = '40.0 GB' +] + +{ #category : 'tests' } +GRPrinterTest >> testFloatPrinter [ + | converter | + converter := GRNumberPrinter new precision: 2. + self assert: (converter print: 1.009) = '1.01'. + self assert: (converter print: 1.01) = '1.01'. + self assert: (converter print: 1.019) = '1.02'. + self assert: (converter print: 1.25) = '1.25'. + self assert: (converter print: 1.254) = '1.25'. + self assert: (converter print: 1.256) = '1.26'. + self assert: (converter print: 1.009) = '1.01'. + self assert: (converter print: 0.9) = '0.90'. + self assert: (converter print: 0.99) = '0.99'. + self assert: (converter print: 0.999) = '1.00'. + self assert: (converter print: 0.9999) = '1.00'. + self assert: (converter print: -0.9) = '0.90'. + self assert: (converter print: -0.99) = '0.99'. + self assert: (converter print: -0.999) = '1.00'. + self assert: (converter print: -0.9999) = '1.00' +] + +{ #category : 'tests' } +GRPrinterTest >> testFloatPrinterInfinity [ + | converter | + converter := GRNumberPrinter new. + self assert: (converter print: Float infinity) = 'Infinite'. + self assert: (converter print: Float infinity negated) = 'Infinite'. + converter infinite: 'very huge'. + self assert: (converter print: Float infinity) = 'very huge'. + self assert: (converter print: Float infinity negated) = 'very huge' +] + +{ #category : 'tests' } +GRPrinterTest >> testFloatPrinterNaN [ + | converter | + converter := GRNumberPrinter new. + self assert: (converter print: Float nan) = 'NaN'. + converter nan: 'Not A Number'. + self assert: (converter print: Float nan) = 'Not A Number' +] + +{ #category : 'tests' } +GRPrinterTest >> testFloatPrinterPadding [ + | converter | + converter := GRNumberPrinter new. + converter digits: 3. + self assert: (converter print: 1) = ' 1'. + self assert: (converter print: 12) = ' 12'. + self assert: (converter print: 123) = '123'. + self assert: (converter print: 1234) = '1234'. + converter padding: $*. + self assert: (converter print: 1) = '**1'. + self assert: (converter print: 12) = '*12'. + self assert: (converter print: 123) = '123'. + self assert: (converter print: 1234) = '1234' +] + +{ #category : 'tests' } +GRPrinterTest >> testFloatPrinterSeparator [ + | converter | + converter := GRNumberPrinter new. + converter + precision: 2; + separator: $*. + self assert: (converter print: 12345.0) = '12*345.00'. + self assert: (converter print: 0.6789) = '0.68'. + converter + precision: 4; + separator: $!. + self assert: (converter print: 12345.0) = '12!345.000!0'. + self assert: (converter print: 0.6789) = '0.678!9' +] + +{ #category : 'tests-parts-date' } +GRPrinterTest >> testFullMonthName [ + | printer | + printer := GRPrinter fullMonthName. + self assert: (printer print: (Date year: 2000 month: 8 day: 1)) = 'August'. + self assert: (printer print: (Date year: 2000 month: 11 day: 1)) = 'November' +] + +{ #category : 'tests-parts-date' } +GRPrinterTest >> testFullWeekName [ + | printer | + printer := GRPrinter fullWeekName. + self assert: (printer print: (Date year: 1980 month: 1 day: 1)) = 'Tuesday'. + self assert: (printer print: (Date year: 2000 month: 1 day: 1)) = 'Saturday' +] + +{ #category : 'tests-timestamp' } +GRPrinterTest >> testHttp [ + | printer date offsetHour | + offsetHour := 2. + printer := GRPrinter httpDate. + date := DateAndTime + year: 1994 + month: 11 + day: 6 + hour: 8 + offsetHour + minute: 49 + second: 37 + offset: (Duration + days: 0 + hours: offsetHour + minutes: 0 + seconds: 0). + self assert: (printer print: date) = 'Sun, 06 Nov 1994 08:49:37 GMT' +] + +{ #category : 'tests' } +GRPrinterTest >> testIntegerPrinter [ + | converter | + converter := GRNumberPrinter new. + self assert: (converter print: 1234) = '1234'. + self assert: (converter print: -1234) = '1234'. + converter separator: $.. + self assert: (converter print: 1234) = '1.234'. + self assert: (converter print: 1234567) = '1.234.567'. + converter + base: 16; + separator: nil. + self assert: (converter print: 1234) = '4d2'. + self assert: (converter print: 123123) = '1e0f3'. + converter uppercase. + self assert: (converter print: 1234) = '4D2'. + self assert: (converter print: 123123) = '1E0F3'. + + + converter + base: 10; + separator: $'; + digits: 6; + padding: $0. + self assert: (converter print: 1234) = '001''234'. + self assert: (converter print: 12345) = '012''345'. + self assert: (converter print: 123456) = '123''456'. + self assert: (converter print: 1234567) = '1''234''567'. + self assert: (converter print: 12345678) = '12''345''678'. + self assert: (converter print: 123456789) = '123''456''789'. + self assert: (converter print: 0) = '000''000' +] + +{ #category : 'tests-timestamp' } +GRPrinterTest >> testIsoDate [ + | printer | + printer := GRPrinter isoDate. + self assert: (printer print: (Date + year: 1980 + month: 6 + day: 11)) = '1980-06-11'. + self assert: (printer print: (Date + year: 2003 + month: 12 + day: 1)) = '2003-12-01'. + self assert: (printer print: (Date + year: 800 + month: 12 + day: 24)) = '0800-12-24' +] + +{ #category : 'tests-timestamp' } +GRPrinterTest >> testIsoTime [ + | printer | + printer := GRPrinter isoTime. + self assert: (printer print: (Time + hour: 0 + minute: 0 + second: 0)) = '00:00:00'. + self assert: (printer print: (Time + hour: 1 + minute: 2 + second: 3)) = '01:02:03'. + self assert: (printer print: (Time + hour: 12 + minute: 23 + second: 34)) = '12:23:34' +] + +{ #category : 'tests' } +GRPrinterTest >> testOrdinalizePrinter [ + | converter | + converter := GRNumberPrinter new , GROrdinalizePrinter new. + self assert: (converter print: 1) = '1st'. + self assert: (converter print: 2) = '2nd'. + self assert: (converter print: 3) = '3rd'. + self assert: (converter print: 4) = '4th'. + self assert: (converter print: 10) = '10th'. + self assert: (converter print: 111) = '111th'. + self assert: (converter print: 212) = '212th'. + self assert: (converter print: 313) = '313th'. + self assert: (converter print: 414) = '414th'. + self assert: (converter print: 20) = '20th'. + self assert: (converter print: 121) = '121st'. + self assert: (converter print: 222) = '222nd'. + self assert: (converter print: 323) = '323rd'. + self assert: (converter print: 424) = '424th' +] + +{ #category : 'tests-utilites' } +GRPrinterTest >> testPadCenter [ + | converter | + converter := GRPrinter new. + self assert: (converter + pad: '' + center: $* + to: 3) = '***'. + self assert: (converter + pad: '1' + center: $* + to: 3) = '*1*'. + self assert: (converter + pad: '12' + center: $* + to: 3) = '12*'. + self assert: (converter + pad: '123' + center: $* + to: 3) = '123'. + self assert: (converter + pad: '1234' + center: $* + to: 3) = '1234' +] + +{ #category : 'tests-utilites' } +GRPrinterTest >> testPadLeft [ + | converter | + converter := GRPrinter new. + self assert: (converter + pad: '' + left: $* + to: 3) = '***'. + self assert: (converter + pad: '1' + left: $* + to: 3) = '**1'. + self assert: (converter + pad: '12' + left: $* + to: 3) = '*12'. + self assert: (converter + pad: '123' + left: $* + to: 3) = '123'. + self assert: (converter + pad: '1234' + left: $* + to: 3) = '1234' +] + +{ #category : 'tests-utilites' } +GRPrinterTest >> testPadRight [ + | converter | + converter := GRPrinter new. + self assert: (converter + pad: '' + right: $* + to: 3) = '***'. + self assert: (converter + pad: '1' + right: $* + to: 3) = '1**'. + self assert: (converter + pad: '12' + right: $* + to: 3) = '12*'. + self assert: (converter + pad: '123' + right: $* + to: 3) = '123'. + self assert: (converter + pad: '1234' + right: $* + to: 3) = '1234' +] + +{ #category : 'tests-parts-date' } +GRPrinterTest >> testPaddedCentury [ + | printer | + printer := GRPrinter paddedCentury. + self assert: (printer print: (Date year: 1980 month: 1 day: 1)) = '80'. + self assert: (printer print: (Date year: 2009 month: 1 day: 1)) = '09' +] + +{ #category : 'tests-parts-time' } +GRPrinterTest >> testPaddedHour12 [ + | printer | + printer := GRPrinter paddedHour12. + self assert: (printer print: (Time hour: 5 minute: 0 second: 0)) = '05'. + self assert: (printer print: (Time hour: 10 minute: 0 second: 0)) = '10'. + self assert: (printer print: (Time hour: 14 minute: 0 second: 0)) = '02'. + self assert: (printer print: (Time hour: 23 minute: 0 second: 0)) = '11' +] + +{ #category : 'tests-timestamp' } +GRPrinterTest >> testRfc822 [ + | printer date | + printer := GRPrinter rfc822. + date := DateAndTime + year: 2008 + month: 8 + day: 1 + hour: 9 + minute: 4 + second: 4 + offset: (Duration + days: 0 + hours: -2 + minutes: 0 + seconds: 0). + self assert: (printer print: date) = 'Fri, 01 Aug 2008 09:04:04 -0200'. + date := DateAndTime + year: 2008 + month: 8 + day: 31 + hour: 19 + minute: 41 + second: 46 + offset: (Duration + days: 0 + hours: 0 + minutes: 30 + seconds: 0). + self assert: (printer print: date) = 'Sun, 31 Aug 2008 19:41:46 +0030' +] + +{ #category : 'tests-timestamp' } +GRPrinterTest >> testRfc822WithTimeZone [ + | printer date | + printer := GRPrinter rfc822WithTimeZone: 'GMT'. + date := DateAndTime + year: 2008 + month: 8 + day: 1 + hour: 9 + minute: 4 + second: 4 + offset: (Duration + days: 0 + hours: 0 + minutes: 0 + seconds: 0). + self assert: (printer print: date) = 'Fri, 01 Aug 2008 09:04:04 GMT' +] + +{ #category : 'tests-utilites' } +GRPrinterTest >> testSeparateLeft [ + self assert: (self + separate: '' + left: $*) = ''. + self assert: (self + separate: '1' + left: $*) = '1'. + self assert: (self + separate: '12' + left: $*) = '12'. + self assert: (self + separate: '123' + left: $*) = '123'. + self assert: (self + separate: '1234' + left: $*) = '123*4'. + self assert: (self + separate: '12345' + left: $*) = '123*45'. + self assert: (self + separate: '123456' + left: $*) = '123*456'. + self assert: (self + separate: '1234567' + left: $*) = '123*456*7'. + self assert: (self + separate: '12345678' + left: $*) = '123*456*78'. + self assert: (self + separate: '123456789' + left: $*) = '123*456*789' +] + +{ #category : 'tests-utilites' } +GRPrinterTest >> testSeparateRight [ + | converter | + converter := GRNumberPrinter new. + self assert: (converter + separate: '' + right: $*) = ''. + self assert: (converter + separate: '1' + right: $*) = '1'. + self assert: (converter + separate: '12' + right: $*) = '12'. + self assert: (converter + separate: '123' + right: $*) = '123'. + self assert: (converter + separate: '1234' + right: $*) = '1*234'. + self assert: (converter + separate: '12345' + right: $*) = '12*345'. + self assert: (converter + separate: '123456' + right: $*) = '123*456'. + self assert: (converter + separate: '1234567' + right: $*) = '1*234*567'. + self assert: (converter + separate: '12345678' + right: $*) = '12*345*678'. + self assert: (converter + separate: '123456789' + right: $*) = '123*456*789' +] + +{ #category : 'tests' } +GRPrinterTest >> testSignPrinter [ + | converter | + converter := GRSignPrinter new. + converter + negativePrinter: $-; + positivePrinter: $+. + self assert: (converter print: 12) = '+'. + self assert: (converter print: -12) = '-' +] + +{ #category : 'tests' } +GRPrinterTest >> testStringPrinter [ + | converter | + converter := GRStringPrinter new. + self assert: (converter print: 123) = '123'. + self assert: (converter print: 'foo') = 'foo'. + self assert: (converter print: true) = 'true' +] + +{ #category : 'tests' } +GRPrinterTest >> testStringPrinterLength [ + | converter | + converter := GRStringPrinter new. + self assert: (converter print: 'foo') = 'foo'. + converter length: 3. + self assert: (converter print: 'foo') = 'foo'. + converter length: 1. + self assert: (converter print: 'foo') = 'f' +] + +{ #category : 'tests' } +GRPrinterTest >> testStringPrinterPad [ + | converter | + converter := GRStringPrinter new. + converter + character: $*; + length: 5. + converter padLeft. + self assert: (converter print: 'foo') = '**foo'. + converter padRight. + self assert: (converter print: 'foo') = 'foo**'. + converter padCenter. + self assert: (converter print: 'foo') = '*foo*' +] + +{ #category : 'tests' } +GRPrinterTest >> testStringPrinterTrim [ + | converter | + converter := GRStringPrinter new. + self assert: (converter print: ' foo ') = ' foo '. + converter trimLeft. + self assert: (converter print: ' foo ') = 'foo '. + converter trimRight. + self assert: (converter print: ' foo ') = ' foo'. + converter trimBoth. + self assert: (converter print: ' foo ') = 'foo' +] + +{ #category : 'tests-currency' } +GRPrinterTest >> testSwissCurrency [ + | printer | + printer := GRPrinter swissCurrency. + self assert: (printer print: 12.34) = 'CHF 12.35'. + self assert: (printer print: -12.39) = 'CHF -12.40' +] + +{ #category : 'tests-parts-date' } +GRPrinterTest >> testUnpaddedCentury [ + | printer | + printer := GRPrinter unpaddedCentury. + self assert: (printer print: (Date year: 1980 month: 1 day: 1)) = '80'. + self assert: (printer print: (Date year: 2009 month: 1 day: 1)) = '9' +] + +{ #category : 'tests-parts-date' } +GRPrinterTest >> testUnpaddedDay [ + | printer | + printer := GRPrinter unpaddedDay. + self assert: (printer print: (Date year: 2000 month: 1 day: 4)) = '4'. + self assert: (printer print: (Date year: 2000 month: 1 day: 19)) = '19' +] + +{ #category : 'tests-parts-time' } +GRPrinterTest >> testUnpaddedHour12 [ + | printer | + printer := GRPrinter unpaddedHour12. + self assert: (printer print: (Time hour: 5 minute: 0 second: 0)) = '5'. + self assert: (printer print: (Time hour: 10 minute: 0 second: 0)) = '10'. + self assert: (printer print: (Time hour: 14 minute: 0 second: 0)) = '2'. + self assert: (printer print: (Time hour: 23 minute: 0 second: 0)) = '11' +] + +{ #category : 'tests-parts-time' } +GRPrinterTest >> testUnpaddedHour24 [ + | printer | + printer := GRPrinter unpaddedHour24. + self assert: (printer print: (Time hour: 5 minute: 0 second: 0)) = '5'. + self assert: (printer print: (Time hour: 10 minute: 0 second: 0)) = '10'. + self assert: (printer print: (Time hour: 14 minute: 0 second: 0)) = '14'. + self assert: (printer print: (Time hour: 23 minute: 0 second: 0)) = '23' +] + +{ #category : 'tests-parts-time' } +GRPrinterTest >> testUnpaddedMinute [ + | printer | + printer := GRPrinter unpaddedMinute. + self assert: (printer print: (Time hour: 0 minute: 5 second: 0)) = '5'. + self assert: (printer print: (Time hour: 0 minute: 12 second: 0)) = '12' +] + +{ #category : 'tests-parts-date' } +GRPrinterTest >> testUnpaddedMonth [ + | printer | + printer := GRPrinter unpaddedMonth. + self assert: (printer print: (Date year: 2000 month: 8 day: 1)) = '8'. + self assert: (printer print: (Date year: 2000 month: 11 day: 1)) = '11' +] + +{ #category : 'tests-parts-time' } +GRPrinterTest >> testUnpaddedSecond [ + | printer | + printer := GRPrinter unpaddedSecond. + self assert: (printer print: (Time hour: 0 minute: 0 second: 0)) = '0'. + self assert: (printer print: (Time hour: 0 minute: 0 second: 9)) = '9'. + self assert: (printer print: (Time hour: 0 minute: 0 second: 12)) = '12' +] + +{ #category : 'tests-parts-date' } +GRPrinterTest >> testUnpaddedYear [ + | printer | + printer := GRPrinter unpaddedYear. + self assert: (printer print: (Date year: 766 month: 1 day: 1)) = '766'. + self assert: (printer print: (Date year: 1980 month: 1 day: 1)) = '1980'. + self assert: (printer print: (Date year: 2009 month: 1 day: 1)) = '2009' +] + +{ #category : 'tests-currency' } +GRPrinterTest >> testUsCurrency [ + | printer | + printer := GRPrinter usCurrency. + self assert: (printer print: 12.34) = '$12.34'. + self assert: (printer print: -12.34) = '-$12.34' +] diff --git a/repository/Grease-Tests-Core/GRReducedConflictDictionaryTest.class.st b/repository/Grease-Tests-Core/GRReducedConflictDictionaryTest.class.st new file mode 100644 index 00000000..96285782 --- /dev/null +++ b/repository/Grease-Tests-Core/GRReducedConflictDictionaryTest.class.st @@ -0,0 +1,11 @@ +Class { + #name : 'GRReducedConflictDictionaryTest', + #superclass : 'GRDictionaryTest', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'configuration' } +GRReducedConflictDictionaryTest >> collectionClass [ + ^ GRPlatform current reducedConflictDictionary +] diff --git a/repository/Grease-Tests-Core/GRSetTest.class.st b/repository/Grease-Tests-Core/GRSetTest.class.st new file mode 100644 index 00000000..093c6cf5 --- /dev/null +++ b/repository/Grease-Tests-Core/GRSetTest.class.st @@ -0,0 +1,26 @@ +Class { + #name : 'GRSetTest', + #superclass : 'GRCollectionTest', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'configuration' } +GRSetTest >> allowsDuplicateValues [ + ^ false +] + +{ #category : 'configuration' } +GRSetTest >> collectionClass [ + ^ Set +] + +{ #category : 'testing-ansi' } +GRSetTest >> isExtensible [ + ^ true +] + +{ #category : 'testing-ansi' } +GRSetTest >> isInitializable [ + ^ true +] diff --git a/repository/Grease-Tests-Core/GRSmallDictionary2Test.class.st b/repository/Grease-Tests-Core/GRSmallDictionary2Test.class.st new file mode 100644 index 00000000..48e9adc5 --- /dev/null +++ b/repository/Grease-Tests-Core/GRSmallDictionary2Test.class.st @@ -0,0 +1,11 @@ +Class { + #name : 'GRSmallDictionary2Test', + #superclass : 'GRSmallDictionaryTest', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'configuration' } +GRSmallDictionary2Test >> collectionClass [ + ^ GRSmallDictionary2 +] diff --git a/repository/Grease-Tests-Core/GRSmallDictionaryTest.class.st b/repository/Grease-Tests-Core/GRSmallDictionaryTest.class.st new file mode 100644 index 00000000..a23924a5 --- /dev/null +++ b/repository/Grease-Tests-Core/GRSmallDictionaryTest.class.st @@ -0,0 +1,317 @@ +Class { + #name : 'GRSmallDictionaryTest', + #superclass : 'GRAbstractDictionaryTest', + #instVars : [ + 'collection' + ], + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'configuration' } +GRSmallDictionaryTest >> allowsDuplicateKeys [ + ^ false +] + +{ #category : 'asserting' } +GRSmallDictionaryTest >> assertAssociations: anOrderedCollection [ + | collAssociations iterated | + collAssociations := collection associations. + iterated := Array streamContents: [ :stream | + collection associationsDo: [ :each | stream nextPut: each ] ]. + self assert: collAssociations size = anOrderedCollection size. + self assert: iterated size = anOrderedCollection size. + 1 to: anOrderedCollection size do: [ :index | + self assert: (collAssociations at: index) = (anOrderedCollection at: index). + self assert: (iterated at: index) = (anOrderedCollection at: index) ] +] + +{ #category : 'configuration' } +GRSmallDictionaryTest >> collectionClass [ + ^ GRSmallDictionary +] + +{ #category : 'configuration' } +GRSmallDictionaryTest >> createArbitraryAssociations [ + ^ OrderedCollection new + add: 'c' -> 3; + add: 'a' -> 1; + add: 'b' -> 2; + add: 'e' -> 1; + add: 'd' -> 4; + yourself +] + +{ #category : 'configuration' } +GRSmallDictionaryTest >> isKey: anObject equivalentTo: anotherObject [ + ^ anObject = anotherObject +] + +{ #category : 'configuration' } +GRSmallDictionaryTest >> newCollection [ + ^ self collectionClass new +] + +{ #category : 'running' } +GRSmallDictionaryTest >> setUp [ + super setUp. + collection := self newCollection +] + +{ #category : 'tests-accessing' } +GRSmallDictionaryTest >> testAddAll [ + | dict result | + dict := (Dictionary new at: '1' put: 'foo'; yourself). + result := collection addAll: dict. + self assert: result == dict. + self assertAssociations: (Array with: '1' -> 'foo'). + + dict := (GROrderedMultiMap new at: '1' put: 'foo'; at: '1' add: 'bar'; yourself). + collection := self newCollection. + result := collection addAll: dict. + self assert: result == dict. + self assertAssociations: + (self allowsDuplicateKeys + ifFalse: [ Array with: '1' -> 'bar' ] + ifTrue: [ Array with: '1' -> 'foo' with: '1' -> 'bar' ]) +] + +{ #category : 'tests-accessing' } +GRSmallDictionaryTest >> testAddAndAssociations [ + | association | + association := collection add: '1' -> 'foo'. + self assert: association key = '1'. + self assert: association value = 'foo'. + self assertAssociations: (Array with: '1' -> 'foo'). + + association := collection add: '2' -> 'bar'. + self assert: association key = '2'. + self assert: association value = 'bar'. + self assertAssociations: (Array with: '1' -> 'foo' with: '2' -> 'bar'). + + association := collection add: '1' -> 'baz'. + self assert: association key = '1'. + self assert: association value = 'baz'. + self assertAssociations: + (self allowsDuplicateKeys + ifFalse: [ Array with: '1' -> 'baz' with: '2' -> 'bar' ] + ifTrue: [ Array with: '1' -> 'foo' with: '2' -> 'bar' with: '1' -> 'baz' ]) +] + +{ #category : 'tests-accessing' } +GRSmallDictionaryTest >> testAt [ + self should: [ collection at: '1' ] raise: Error. + collection add: '1' -> 'foo'. + collection add: '1' -> 'bar'. + self assert: (collection at: '1') = + (self allowsDuplicateKeys ifTrue: [ 'foo' ] ifFalse: [ 'bar' ]) +] + +{ #category : 'tests-accessing' } +GRSmallDictionaryTest >> testAtIfAbsent [ + self assert: (collection at: '1' ifAbsent: [ 'foo' ]) = 'foo'. + collection add: '1' -> 'bar'. + collection add: '1' -> 'baz'. + self assert: (collection at: '1' ifAbsent: [ 'foo' ]) = + (self allowsDuplicateKeys ifTrue: [ 'bar' ] ifFalse: [ 'baz' ]) +] + +{ #category : 'tests-accessing' } +GRSmallDictionaryTest >> testAtIfAbsentPut [ + self assert: (collection at: '1' ifAbsentPut: [ 'foo' ]) = 'foo'. + self assertAssociations: (Array with: '1' -> 'foo'). + self assert: (collection at: '1' ifAbsentPut: [ 'bar' ]) = 'foo'. + self assertAssociations: (Array with: '1' -> 'foo') +] + +{ #category : 'tests-accessing' } +GRSmallDictionaryTest >> testAtIfPresent [ + collection add: '1' -> 'foo'. + collection add: '1' -> 'bar'. + self assert: (collection at: '1' ifPresent: [ :v | v , 'baz' ]) = + (self allowsDuplicateKeys ifTrue: [ 'foobaz' ] ifFalse: [ 'barbaz' ]). + self assert: (collection at: '2' ifPresent: [ :v | v , 'baz' ]) isNil +] + +{ #category : 'tests-accessing' } +GRSmallDictionaryTest >> testAtPut [ + collection at: '1' put: 'foo'. + collection at: '2' put: 'bar'. + self assertAssociations: (Array with: '1' -> 'foo' with: '2' -> 'bar'). + collection at: '1' put: 'baz'. + self assertAssociations: (Array with: '1' -> 'baz' with: '2' -> 'bar') +] + +{ #category : 'tests' } +GRSmallDictionaryTest >> testCopy [ + | other | + collection at: 1 put: 'foo'; at: 2 put: 'bar'. + other := collection copy. + collection at: 1 put: 'zork'; at: 3 put: 'zonk'. + other at: 2 put: 'other'. + + self assert: collection size = 3. + self assert: (collection at: 1) = 'zork'. + self assert: (collection at: 2) = 'bar'. + self assert: (collection at: 3) = 'zonk'. + + self assert: other size = 2. + self assert: (other at: 1) = 'foo'. + self assert: (other at: 2) = 'other' +] + +{ #category : 'tests-enumerating' } +GRSmallDictionaryTest >> testDo [ + | result | + result := OrderedCollection new. + collection at: '1' put: 'foo'; at: '2' put: 'bar'. + collection do: [ :each | result add: each ]. + self assert: result asArray = #( 'foo' 'bar' ) +] + +{ #category : 'tests' } +GRSmallDictionaryTest >> testGrow [ + 1 to: 100 do: [ :i | + collection at: i put: i negated. + self assert: collection size = i. + [ :array :factor | + self assert: array size = i. + 1 to: i do: [ :j | self assert: (array at: j) = (factor * j) ] ] + value: collection keys value: 1; + value: collection values value: -1 ] +] + +{ #category : 'tests-testing' } +GRSmallDictionaryTest >> testIncludesKey [ + self deny: (collection includesKey: '1'). + collection add: '1' -> 'foo'. + collection add: '1' -> 'bar'. + self assert: (collection includesKey: '1') +] + +{ #category : 'tests-testing' } +GRSmallDictionaryTest >> testIsEmpty [ + self assert: collection isEmpty. + collection add: '1' -> 'foo'. + collection add: '1' -> 'bar'. + self deny: collection isEmpty +] + +{ #category : 'tests-enumerating' } +GRSmallDictionaryTest >> testKeys [ + collection add: '1' -> 'foo'; add: '2' -> 'bar'; add: '1' -> 'baz'. + self assert: collection keys = + (self allowsDuplicateKeys ifTrue: [ #('1' '2' '1') ] ifFalse: [ #('1' '2') ]) +] + +{ #category : 'tests-enumerating' } +GRSmallDictionaryTest >> testKeysAndValuesDo [ + | iterated | + collection keysAndValuesDo: [ :key :value | + self assert: false ]. + collection add: '1' -> 'foo'; add: '2' -> 'bar'; add: '1' -> 'baz'. + iterated := Array streamContents: [ :stream | + collection keysAndValuesDo: [ :key :value | + stream nextPut: key -> value ] ]. + self assert: iterated size = (self allowsDuplicateKeys ifTrue: [ 3 ] ifFalse: [ 2 ]). + self assert: iterated first = + (self allowsDuplicateKeys ifTrue: [ '1' -> 'foo' ] ifFalse: [ '1' -> 'baz' ]). + self assert: iterated second = ('2' -> 'bar'). + self allowsDuplicateKeys ifTrue: [ + self assert: iterated third = ('1' -> 'baz') ] +] + +{ #category : 'tests-enumerating' } +GRSmallDictionaryTest >> testKeysDo [ + | result | + result := OrderedCollection new. + collection add: '1' -> 'foo'; add: '2' -> 'bar'; add: '1' -> 'baz'. + collection keysDo: [ :each | result add: each ]. + self assert: result asArray = + (self allowsDuplicateKeys ifTrue: [ #('1' '2' '1') ] ifFalse: [ #('1' '2') ]) +] + +{ #category : 'tests-accessing' } +GRSmallDictionaryTest >> testRemoveKey [ + self should: [ collection removeKey: '1' ] raise: Error. + collection add: '1' -> 'foo'. + collection add: '1' -> 'bar'. + collection add: '2' -> 'baz'. + self assert: (collection removeKey: '1') = + (self allowsDuplicateKeys ifTrue: [ #('foo' 'bar') ] ifFalse: [ 'bar' ]). + self assertAssociations: (Array with: '2' -> 'baz'). + self assert: (collection removeKey: '2') = + (self allowsDuplicateKeys ifTrue: [ #('baz') ] ifFalse: [ 'baz' ]). + self assertAssociations: #() +] + +{ #category : 'tests-accessing' } +GRSmallDictionaryTest >> testRemoveKey2 [ + "https://github.com/SeasideSt/Grease/issues/81" + collection + at: 'x' put: 1; + at: 'y' put: 2; + at: 'z' put: 3. + + self + assert: (collection removeKey: 'z') equals: (self allowsDuplicateKeys ifTrue: [ #(3) ] ifFalse: [ 3 ]); + assert: collection size equals: 2. + + collection := self newCollection + at: 'x' put: 1; + at: 'y' put: 2; + at: 'z' put: 3; + yourself. + + self + assert: (collection removeKey: 'y') equals: (self allowsDuplicateKeys ifTrue: [ #(2) ] ifFalse: [ 2 ]); + assert: collection size equals: 2 +] + +{ #category : 'tests-accessing' } +GRSmallDictionaryTest >> testRemoveKeyIfAbsent [ + self assert: (collection removeKey: '1' ifAbsent: [ 'absent' ]) = 'absent'. + collection add: '1' -> 'foo'. + collection add: '1' -> 'bar'. + collection add: '2' -> 'baz'. + self assert: (collection removeKey: '1' ifAbsent: [ 'absent' ]) = + (self allowsDuplicateKeys ifTrue: [ #('foo' 'bar') ] ifFalse: [ 'bar' ]). + self assertAssociations: (Array with: '2' -> 'baz'). + self assert: (collection removeKey: '2' ifAbsent: [ 'absent' ]) = + (self allowsDuplicateKeys ifTrue: [ #('baz') ] ifFalse: [ 'baz' ]). + self assertAssociations: #() +] + +{ #category : 'tests-accessing' } +GRSmallDictionaryTest >> testSize [ + self assert: collection size = 0. + collection add: '1' -> 'foo'. + self assert: collection size = 1. + collection add: '2' -> 'bar'. + self assert: collection size = 2. + collection add: '1' -> 'baz'. + self assert: collection size = + (self allowsDuplicateKeys ifTrue: [ 3 ] ifFalse: [ 2 ]) +] + +{ #category : 'tests-enumerating' } +GRSmallDictionaryTest >> testValues [ + collection add: '1' -> 'foo'; add: '2' -> 'bar'; add: '1' -> 'baz'. + self assert: collection values = + (self allowsDuplicateKeys ifTrue: [ #('foo' 'bar' 'baz') ] ifFalse: [ #('baz' 'bar') ]) +] + +{ #category : 'tests' } +GRSmallDictionaryTest >> testWithAll [ + | dict | + dict := (Dictionary new at: '1' put: 'foo'; yourself). + collection := self collectionClass withAll: dict. + self assertAssociations: (Array with: '1' -> 'foo'). + + dict := (GROrderedMultiMap new at: '1' put: 'foo'; at: '1' add: 'bar'; yourself). + collection := self collectionClass withAll: dict. + self assertAssociations: + (self allowsDuplicateKeys + ifFalse: [ Array with: '1' -> 'bar' ] + ifTrue: [ Array with: '1' -> 'foo' with: '1' -> 'bar' ]) +] diff --git a/repository/Grease-Tests-Core/GRSmallOrderedSetTest.class.st b/repository/Grease-Tests-Core/GRSmallOrderedSetTest.class.st new file mode 100644 index 00000000..2c6ba480 --- /dev/null +++ b/repository/Grease-Tests-Core/GRSmallOrderedSetTest.class.st @@ -0,0 +1,107 @@ +Class { + #name : 'GRSmallOrderedSetTest', + #superclass : 'GRSetTest', + #instVars : [ + 'collection' + ], + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'configuration' } +GRSmallOrderedSetTest >> collectionClass [ + ^ GRSmallOrderedSet +] + +{ #category : 'running' } +GRSmallOrderedSetTest >> setUp [ + super setUp. + collection := GRSmallOrderedSet new +] + +{ #category : 'testing' } +GRSmallOrderedSetTest >> testAdd [ + | object | + object := Object new. + self assert: collection size = 0. + self assert: (collection add: object) == object. + self assert: collection size = 1. + self assert: (collection add: object) == object +] + +{ #category : 'testing' } +GRSmallOrderedSetTest >> testAddAll [ + collection addAll: #(2 1 1). + self assert: collection size = 2. + self assert: (collection includes: 1). + self assert: (collection includes: 2) +] + +{ #category : 'testing' } +GRSmallOrderedSetTest >> testCopy [ + | copy | + collection add: 1. + copy := collection copy. + collection add: 2. + + self assert: collection size = 2. + self assert: copy size = 1. + + self assert: (collection includes: 2). + self deny: (copy includes: 2). +] + +{ #category : 'testing' } +GRSmallOrderedSetTest >> testDo [ + | seen | + collection addAll: #(2 1 1). + seen := Array streamContents: [ :stream | + collection do: [ :each | + stream nextPut: each ] ]. + self assert: seen size = 2. + self assert: (seen at: 1) = 2. + self assert: (seen at: 2) = 1 +] + +{ #category : 'testing' } +GRSmallOrderedSetTest >> testIncludes [ + self deny: (collection includes: 0). + collection add: 0. + self assert: (collection includes: 0) +] + +{ #category : 'testing' } +GRSmallOrderedSetTest >> testIsEmpty [ + self assert: collection isEmpty. + collection add: 1. + self deny: collection isEmpty. + collection remove: 1. + self assert: collection isEmpty +] + +{ #category : 'testing' } +GRSmallOrderedSetTest >> testRemove [ + collection add: 1. + self assert: (collection remove: 1) = 1. + self should: [ collection remove: 1 ] raise: Error +] + +{ #category : 'testing' } +GRSmallOrderedSetTest >> testRemoveIfAbsent [ + | absent | + collection add: 1. + absent := false. + + self assert: (collection remove: 1 ifAbsent: [ absent := true ]) = 1. + self deny: absent. + + collection remove: 1 ifAbsent: [ absent := true ]. + self assert: absent. +] + +{ #category : 'testing' } +GRSmallOrderedSetTest >> testSize [ + self assert: collection size = 0. + collection addAll: #(2 1 1). + self assert: collection size = 2. +] diff --git a/repository/Grease-Tests-Core/GRSortedCollectionTest.class.st b/repository/Grease-Tests-Core/GRSortedCollectionTest.class.st new file mode 100644 index 00000000..8d60a7e0 --- /dev/null +++ b/repository/Grease-Tests-Core/GRSortedCollectionTest.class.st @@ -0,0 +1,41 @@ +Class { + #name : 'GRSortedCollectionTest', + #superclass : 'GRAbstractSequenceableCollectionTest', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'configuration' } +GRSortedCollectionTest >> allowsDuplicateValues [ + ^ true +] + +{ #category : 'configuration' } +GRSortedCollectionTest >> collectionClass [ + ^ SortedCollection +] + +{ #category : 'testing-ansi' } +GRSortedCollectionTest >> isExtensible [ + ^ true +] + +{ #category : 'testing' } +GRSortedCollectionTest >> isHomogeneous [ + ^ true +] + +{ #category : 'testing-ansi' } +GRSortedCollectionTest >> isInitializable [ + ^ true +] + +{ #category : 'testing-ansi' } +GRSortedCollectionTest >> isSequenced [ + ^ false +] + +{ #category : 'testing' } +GRSortedCollectionTest >> isUnique [ + ^ false +] diff --git a/repository/Grease-Tests-Core/GRStringTest.class.st b/repository/Grease-Tests-Core/GRStringTest.class.st new file mode 100644 index 00000000..3fe8316a --- /dev/null +++ b/repository/Grease-Tests-Core/GRStringTest.class.st @@ -0,0 +1,254 @@ +Class { + #name : 'GRStringTest', + #superclass : 'GRAbstractSequenceableCollectionTest', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'configuration' } +GRStringTest >> allowsDuplicateValues [ + ^ true +] + +{ #category : 'configuration' } +GRStringTest >> arbitraryCollection [ + ^ 'fadbbc' copy "String literals are immutable" +] + +{ #category : 'configuration' } +GRStringTest >> collectionClass [ + ^ String +] + +{ #category : 'configuration' } +GRStringTest >> duplicateElement [ + ^ $b +] + +{ #category : 'configuration' } +GRStringTest >> excludedElement [ + ^ $Q +] + +{ #category : 'configuration' } +GRStringTest >> includedElement [ + ^ $d +] + +{ #category : 'testing-ansi' } +GRStringTest >> isExtensible [ + ^ false +] + +{ #category : 'testing' } +GRStringTest >> isHomogeneous [ + ^ true +] + +{ #category : 'testing-ansi' } +GRStringTest >> isInitializable [ + ^ true +] + +{ #category : 'testing-ansi' } +GRStringTest >> isSequenced [ + ^ true +] + +{ #category : 'testing' } +GRStringTest >> isUnique [ + ^ false +] + +{ #category : 'tests-converting' } +GRStringTest >> testAsUppercase [ + self assert: 'abc' asUppercase = 'ABC'. + self assert: 'ABC' asUppercase = 'ABC' +] + +{ #category : 'tests-converting' } +GRStringTest >> testCapitalized [ + self assert: 'capitalized' capitalized = 'Capitalized'. + self assert: 'Capitalized' capitalized = 'Capitalized'. + self assert: 'CAPITALIZED' capitalized = 'CAPITALIZED'. + self assert: #'capitalized' capitalized = #'Capitalized'. + self assert: #'Capitalized' capitalized = #'Capitalized'. + self assert: #'CAPITALIZED' capitalized = #'CAPITALIZED' +] + +{ #category : 'tests-converting' } +GRStringTest >> testCapitalizedUmlauts [ + self assert: 'äöü' capitalized = 'Äöü'. + self assert: 'Äöü' capitalized = 'Äöü'. + self assert: 'ÄÖÜ' capitalized = 'ÄÖÜ'. + self assert: #'äöü' capitalized = #'Äöü'. + self assert: #'Äöü' capitalized = #'Äöü'. + self assert: #'ÄÖÜ' capitalized = #'ÄÖÜ' +] + +{ #category : 'tests-excerpt' } +GRStringTest >> testExcerpt [ + self assert: ('abcde' excerpt: 'c' radius: 0) = '...c...'. + self assert: ('abcde' excerpt: 'c' radius: 1) = '...bcd...'. + self assert: ('abcde' excerpt: 'c' radius: 2) = 'abcde'. + self assert: ('abcde' excerpt: 'c' radius: 3) = 'abcde'. + + self assert: ('abcde' excerpt: 'c' radius: 0 ellipsis: 'x') = 'xcx'. + self assert: ('abcde' excerpt: 'c' radius: 1 ellipsis: 'x') = 'xbcdx'. + self assert: ('abcde' excerpt: 'c' radius: 2 ellipsis: 'x') = 'abcde' +] + +{ #category : 'tests-excerpt' } +GRStringTest >> testExcerptEmpty [ + self assert: ('' excerpt: '') isNil. + self assert: ('' excerpt: 'x') isNil. + self assert: ('x' excerpt: '') isNil +] + +{ #category : 'tests-excerpt' } +GRStringTest >> testExcerptLeft [ + self assert: ('abcde' excerpt: 'd' radius: 0 ellipsis: 'x') = 'xdx'. + self assert: ('abcde' excerpt: 'd' radius: 1 ellipsis: 'x') = 'xcde'. + self assert: ('abcde' excerpt: 'd' radius: 2 ellipsis: 'x') = 'xbcde'. + self assert: ('abcde' excerpt: 'd' radius: 3 ellipsis: 'x') = 'abcde' +] + +{ #category : 'tests-excerpt' } +GRStringTest >> testExcerptRight [ + self assert: ('abcde' excerpt: 'b' radius: 0 ellipsis: 'x') = 'xbx'. + self assert: ('abcde' excerpt: 'b' radius: 1 ellipsis: 'x') = 'abcx'. + self assert: ('abcde' excerpt: 'b' radius: 2 ellipsis: 'x') = 'abcdx'. + self assert: ('abcde' excerpt: 'b' radius: 3 ellipsis: 'x') = 'abcde' +] + +{ #category : 'tests-pluralize' } +GRStringTest >> testInflectorAssimilated [ + self assert: 'vertice' pluralize = 'vertices'. + self assert: 'index' pluralize = 'indices' +] + +{ #category : 'tests-pluralize' } +GRStringTest >> testInflectorCommonSuffixes [ + self assert: 'mouse' pluralize = 'mice'. + self assert: 'synopse' pluralize = 'synopses'. + self assert: 'man' pluralize = 'men' +] + +{ #category : 'tests-pluralize' } +GRStringTest >> testInflectorFfffSuffixes [ + self assert: 'life' pluralize = 'lives'. + self assert: 'wolf' pluralize = 'wolves' +] + +{ #category : 'tests-pluralize' } +GRStringTest >> testInflectorIrregular [ + self assert: 'genie' pluralize = 'genies'. + self assert: 'ox' pluralize = 'oxen'. + self assert: 'cow' pluralize = 'kine'. + self assert: 'child' pluralize = 'children'. + self assert: 'woman' pluralize = 'women' +] + +{ #category : 'tests-pluralize' } +GRStringTest >> testInflectorNotInflecting [ + self assert: 'fish' pluralize = 'fish'. + self assert: 'travois' pluralize = 'travois'. + self assert: 'chassis' pluralize = 'chassis'. + self assert: 'nationalities' pluralize = 'nationalities' +] + +{ #category : 'tests-pluralize' } +GRStringTest >> testInflectorTsssSuffixes [ + self assert: 'church' pluralize = 'churches'. + self assert: 'class' pluralize = 'classes' +] + +{ #category : 'tests-pluralize' } +GRStringTest >> testInflectorYyyySuffixes [ + self assert: 'story' pluralize = 'stories'. + self assert: 'lady' pluralize = 'ladies'. + self assert: 'stay' pluralize = 'stays' +] + +{ #category : 'tests' } +GRStringTest >> testSubStrings [ + "#subStrings: is defined by ANSI 5.7.10.15: + Answer an array containing the substrings in the receiver separated by the elements of separators." + | mimeType tokens | + mimeType := 'application/xhtml+xml'. + tokens := mimeType substrings: '/'. + self assert: tokens size = 2. + self assert: tokens first = 'application'. + self assert: tokens second = 'xhtml+xml'. + + "ANSI is a bit unclear on how multiple sequential delimiters should be treated. + Make sure behaviour is consistent for several delimiters in a row (taken from + Squeak's behaviour)" + tokens := 'abc,.def.ghi' substrings: '.,'. + self assert: tokens size = 3. + self assert: tokens first = 'abc'. + self assert: tokens second = 'def'. + self assert: tokens third = 'ghi'. + + "also ensure behavior consistent for several delimiters in a row at beginning and end of string...for completeness" + tokens := ',.abc,.def.ghi.,' substrings: '.,'. + self assert: tokens size = 3. + self assert: tokens first = 'abc'. + self assert: tokens second = 'def'. + self assert: tokens third = 'ghi' +] + +{ #category : 'tests-trim' } +GRStringTest >> testTrimBoth [ + self assert: '' trimBoth = ''. + self assert: ' ' trimBoth = ''. + self assert: ' ' trimBoth = ''. + self assert: 'foo' trimBoth = 'foo'. + self assert: ' foo ' trimBoth = 'foo'. + self assert: ' foo ' trimBoth = 'foo'. + self assert: ((String with: Character cr), ' foo ') trimBoth = 'foo'. + + self assert: ('aabbaa' trimBoth: [ :each | each = $a ]) = 'bb'. + self assert: ('bbaabb' trimBoth: [ :each | each = $a ]) = 'bbaabb' +] + +{ #category : 'tests-trim' } +GRStringTest >> testTrimLeft [ + self assert: '' trimLeft = ''. + self assert: ' ' trimLeft = ''. + self assert: ' ' trimLeft = ''. + self assert: 'foo' trimLeft = 'foo'. + self assert: ' foo ' trimLeft = 'foo '. + self assert: ' foo ' trimLeft = 'foo '. + + self assert: ('aabbaa' trimLeft: [ :each | each = $a ]) = 'bbaa'. + self assert: ('bbaabb' trimLeft: [ :each | each = $a ]) = 'bbaabb' +] + +{ #category : 'tests-trim' } +GRStringTest >> testTrimRight [ + self assert: '' trimRight = ''. + self assert: ' ' trimRight = ''. + self assert: ' ' trimRight = ''. + self assert: 'foo' trimRight = 'foo'. + self assert: ' foo ' trimRight = ' foo'. + self assert: ' foo ' trimRight = ' foo'. + + self assert: ('aabbaa' trimRight: [ :each | each = $a ]) = 'aabb'. + self assert: ('bbaabb' trimRight: [ :each | each = $a ]) = 'bbaabb' +] + +{ #category : 'tests-truncate' } +GRStringTest >> testTruncate [ + self assert: ('abc' truncate) = 'abc'. + self assert: ('abc' truncate: 3) = 'abc'. + self assert: ('abc' truncate: 2) = 'ab...'. + + self assert: ('abc' truncate: 1 ellipsis: '') = 'a'. + self assert: ('abc' truncate: 0 ellipsis: 'none') = 'none' +] + +{ #category : 'tests-truncate' } +GRStringTest >> testTruncateEmpty [ + self assert: '' truncate = '' +] diff --git a/repository/Grease-Tests-Core/GRSymbolTest.class.st b/repository/Grease-Tests-Core/GRSymbolTest.class.st new file mode 100644 index 00000000..9d29324e --- /dev/null +++ b/repository/Grease-Tests-Core/GRSymbolTest.class.st @@ -0,0 +1,66 @@ +Class { + #name : 'GRSymbolTest', + #superclass : 'GRAbstractSequenceableCollectionTest', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'configuration' } +GRSymbolTest >> allowsDuplicateValues [ + ^ true +] + +{ #category : 'configuration' } +GRSymbolTest >> arbitraryCollection [ + ^ #'fadbbc' +] + +{ #category : 'configuration' } +GRSymbolTest >> collectionClass [ + ^ Symbol +] + +{ #category : 'configuration' } +GRSymbolTest >> duplicateElement [ + ^ $b +] + +{ #category : 'configuration' } +GRSymbolTest >> emptyCollection [ + ^ #'' +] + +{ #category : 'configuration' } +GRSymbolTest >> excludedElement [ + ^ $Q +] + +{ #category : 'configuration' } +GRSymbolTest >> includedElement [ + ^ $d +] + +{ #category : 'testing-ansi' } +GRSymbolTest >> isExtensible [ + ^ false +] + +{ #category : 'testing' } +GRSymbolTest >> isHomogeneous [ + ^ true +] + +{ #category : 'testing-ansi' } +GRSymbolTest >> isInitializable [ + ^ false +] + +{ #category : 'testing-ansi' } +GRSymbolTest >> isSequenced [ + ^ false +] + +{ #category : 'testing' } +GRSymbolTest >> isUnique [ + ^ true +] diff --git a/repository/Grease-Tests-Core/GRTestDynamicVariable.class.st b/repository/Grease-Tests-Core/GRTestDynamicVariable.class.st new file mode 100644 index 00000000..95e89b06 --- /dev/null +++ b/repository/Grease-Tests-Core/GRTestDynamicVariable.class.st @@ -0,0 +1,11 @@ +Class { + #name : 'GRTestDynamicVariable', + #superclass : 'GRDynamicVariable', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'defaults' } +GRTestDynamicVariable class >> defaultValue [ + ^ 'default test value' +] diff --git a/repository/Grease-Tests-Core/GRTestNotificationBasedDynamicVariable.class.st b/repository/Grease-Tests-Core/GRTestNotificationBasedDynamicVariable.class.st new file mode 100644 index 00000000..90395136 --- /dev/null +++ b/repository/Grease-Tests-Core/GRTestNotificationBasedDynamicVariable.class.st @@ -0,0 +1,11 @@ +Class { + #name : 'GRTestNotificationBasedDynamicVariable', + #superclass : 'GRNotificationBasedDynamicVariable', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'defaults' } +GRTestNotificationBasedDynamicVariable class >> defaultValue [ + ^ 'default test value' +] diff --git a/repository/Grease-Tests-Core/GRUtf8CodecTest.class.st b/repository/Grease-Tests-Core/GRUtf8CodecTest.class.st new file mode 100644 index 00000000..9601bbb5 --- /dev/null +++ b/repository/Grease-Tests-Core/GRUtf8CodecTest.class.st @@ -0,0 +1,108 @@ +Class { + #name : 'GRUtf8CodecTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'private' } +GRUtf8CodecTest >> asByteArray: aCollectionOfIntegers [ + ^ ByteArray streamContents: [ :stream | + aCollectionOfIntegers do: [ :each | + stream nextPut: each ] ] +] + +{ #category : 'private' } +GRUtf8CodecTest >> asString: aCollectionOfIntegers [ + ^ String streamContents: [ :stream | + aCollectionOfIntegers do: [ :each | + stream nextPut: (Character codePoint: each) ] ] +] + +{ #category : 'accessing' } +GRUtf8CodecTest >> decodedString [ + ^ 'Übèrstrîñgé' +] + +{ #category : 'private' } +GRUtf8CodecTest >> seasideByteArray [ + ^ #(83 101 97 115 105 100 101) "Seaside" asByteArray +] + +{ #category : 'tests' } +GRUtf8CodecTest >> testCodecUtf8 [ + #('UTF-8' 'utf-8') do: [ :codecName | + | codec | + codec := GRCodec forEncoding: codecName. + self assert: codec name asLowercase = codecName asLowercase. + self assert: codec url name asLowercase = codecName asLowercase. + self assert: (codec encode: self decodedString) = (self utf8StringOrByteArrayForCodec: codec). + self assert: (codec url encode: self decodedString) = (self utf8StringOrByteArrayForCodec: codec). + self assert: (codec decode: (self utf8StringOrByteArrayForCodec: codec)) = self decodedString. + self assert: (codec url decode: (self utf8StringOrByteArrayForCodec: codec)) = self decodedString ] +] + +{ #category : 'tests' } +GRUtf8CodecTest >> testCodecUtf8Bom [ + #('UTF-8' 'utf-8') do: [ :codecName | + | codec bom | + codec := GRCodec forEncoding: codecName. + (codec encodedStringClass == ByteArray) + ifTrue:[ bom := self asByteArray: #(239 187 191) ] + ifFalse:[bom := self asString: #(239 187 191) ]. + self assert: (codec decode: bom , (self utf8StringOrByteArrayForCodec: codec)) = self decodedString. + self assert: (codec url decode: bom , (self utf8StringOrByteArrayForCodec: codec)) = self decodedString ] +] + +{ #category : 'tests' } +GRUtf8CodecTest >> testCodecUtf8BorderLineString [ + #('UTF-8' 'utf-8') do: [ :codecName | + | codec writeStream | + codec := GRCodec forEncoding: codecName. + writeStream := codec encoderFor: (GRPlatform current writeCharacterStreamOn: codec encodedStringClass new). + writeStream nextPut: (Character codePoint: 0). + writeStream nextPut: (Character codePoint: 255). + writeStream nextPut: (Character codePoint: 256). + self assert: writeStream contents asString = (String + with: (Character codePoint: 16r00) "character 0" + with: (Character codePoint: 16rC3) with: (Character codePoint: 16rBF) "character 255" + with: (Character codePoint: 16rC4) with: (Character codePoint: 16r80)) "character 256" ] +] + +{ #category : 'tests' } +GRUtf8CodecTest >> testCodecUtf8ShortestForm [ + "Non shortest form characters should be rejected + See Corrigendum #1: UTF-8 Shortest Form http://www.unicode.org/versions/corrigendum1.html" + #('UTF-8' 'utf-8') do: [ :codecName | + | codec abc | + codec := GRCodec forEncoding: codecName. + codec encodedStringClass == ByteArray + ifTrue:[ abc := self asByteArray: #(193 129 193 130 193 131 ) ] + ifFalse:[ abc := self asString: #(193 129 193 130 193 131 ) ]. + self + should: [ self deny: (codec decode: abc) = 'ABC' ] + raise: Error ] +] + +{ #category : 'tests' } +GRUtf8CodecTest >> testNext [ + | stream | + stream := (GRCodec forEncoding: 'utf8') + encoderFor: self seasideByteArray readStream. + self assert: stream next = $S. + self assert: (stream next: 1) = 'e' +] + +{ #category : 'accessing' } +GRUtf8CodecTest >> utf8String [ + ^ self asString: #(195 156 98 195 168 114 115 116 114 195 174 195 177 103 195 169) +] + +{ #category : 'accessing' } +GRUtf8CodecTest >> utf8StringOrByteArrayForCodec: codec [ + | bytes | + bytes := #(195 156 98 195 168 114 115 116 114 195 174 195 177 103 195 169). + ^ codec encodedStringClass == ByteArray + ifTrue:[ self asByteArray: bytes ] + ifFalse:[ self asString: bytes ] +] diff --git a/repository/Grease-Tests-Core/GRVersionTest.class.st b/repository/Grease-Tests-Core/GRVersionTest.class.st new file mode 100644 index 00000000..c3061f5f --- /dev/null +++ b/repository/Grease-Tests-Core/GRVersionTest.class.st @@ -0,0 +1,164 @@ +Class { + #name : 'GRVersionTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Core', + #package : 'Grease-Tests-Core' +} + +{ #category : 'asserting' } +GRVersionTest >> assert: aVersionArray equals: bVersionArray [ + | a b | + a := self buildVersion: aVersionArray. + b := self buildVersion: bVersionArray. + self deny: a < b. + self assert: a <= b. + self deny: b < a. + self assert: b <= a. + self deny: b > a. + self assert: b >= a. + self deny: a > b. + self assert: a >= b. + self assert: a = b. + self assert: a hash = b hash +] + +{ #category : 'asserting' } +GRVersionTest >> assert: aVersionArray sortsBefore: bVersionArray [ + | a b | + a := self buildVersion: aVersionArray. + b := self buildVersion: bVersionArray. + self assert: a < b. + self assert: a <= b. + self deny: b < a. + self deny: b <= a. + self assert: b > a. + self assert: b >= a. + self deny: a > b. + self deny: a >= b. + self deny: a = b +] + +{ #category : 'private' } +GRVersionTest >> buildVersion: anArray [ + ^ (GRVersion + major: (anArray at: 1 ifAbsent: [ nil ]) + minor: (anArray at: 2 ifAbsent: [ nil ]) + revision: (anArray at: 3 ifAbsent: [ nil ])) + stage: (anArray at: 4 ifAbsent: [ nil ]) number: (anArray at: 5 ifAbsent: [ nil ]); + yourself +] + +{ #category : 'tests' } +GRVersionTest >> testAccessors [ + | version | + version := self buildVersion: #(1 2 3 #alpha 4). + self assert: version major = 1. + self assert: version minor = 2. + self assert: version revision = 3. + self assert: version stage = #alpha. + self assert: version stageNumber = 4. +] + +{ #category : 'tests' } +GRVersionTest >> testComparison [ + self assert: #(1) sortsBefore: #(2). + self assert: #(2) sortsBefore: #(10). + self assert: #(1) sortsBefore: #(1 1). + self assert: #(1 nil nil #alpha) sortsBefore: #(1). + self assert: #(1 nil nil #alpha) sortsBefore: #(1 0). + self assert: #(1 nil nil #alpha) sortsBefore: #(1 0 0). + self assert: #(1 0) sortsBefore: #(2). + self assert: #(1 0) sortsBefore: #(2 0). + self assert: #(1 0) sortsBefore: #(1 1). + self assert: #(1 2) sortsBefore: #(1 10). + self assert: #(1 0 nil #alpha) sortsBefore: #(1 0). + self assert: #(1 0 nil #alpha) sortsBefore: #(1 0 0). + self assert: #(1 0 0) sortsBefore: #(2). + self assert: #(1 0 0) sortsBefore: #(1 1). + self assert: #(1 0 1) sortsBefore: #(1 1). + self assert: #(1 0 1 #alpha) sortsBefore: #(1 1). + self assert: #(1 1 0 #alpha) sortsBefore: #(1 1). + self assert: #(1 1 0 #alpha 2) sortsBefore: #(1 1). + self assert: #(1 1 0 #beta) sortsBefore: #(1 1). + self assert: #(1 1 0 #beta 2) sortsBefore: #(1 1). + self assert: #(1 nil nil #alpha) sortsBefore: #(1 nil nil #alpha 2). + self assert: #(1 nil nil #beta) sortsBefore: #(1 nil nil #beta 2). + self assert: #(1 0 nil #alpha) sortsBefore: #(1 0 nil #alpha 2). + self assert: #(1 0 nil #beta) sortsBefore: #(1 0 nil #beta 2). + self assert: #(1 0 0 #alpha) sortsBefore: #(1 0 0 #alpha 2). + self assert: #(1 0 0 #beta) sortsBefore: #(1 0 0 #beta 2) +] + +{ #category : 'tests' } +GRVersionTest >> testConvenience [ + | version | + version := GRVersion major: 1 minor: 2 revision: 3. + self assert: version stage isNil. + self assert: version stageNumber isNil. + self assert: version isFinal. + self deny: version isAlpha. + self deny: version isBeta. + version beAlpha. + self assert: version stage = #alpha. + self assert: version stageNumber isNil. + self assert: version isAlpha. + self deny: version isBeta. + self deny: version isFinal. + version beBeta. + self assert: version stage = #beta. + self assert: version stageNumber isNil. + self assert: version isBeta. + self deny: version isAlpha. + self deny: version isFinal. + version beReleaseCandidate. + self assert: version stage = #rc. + self assert: version stageNumber isNil. + self assert: version isReleaseCandidate. + version beReleaseCandidate: 1. + self assert: version stage = #rc. + self assert: version stageNumber = 1. + self assert: version isReleaseCandidate. + version beAlpha: 1. + self assert: version stage = #alpha. + self assert: version stageNumber = 1. + self assert: version isAlpha. + self deny: version isBeta. + self deny: version isFinal. + version beBeta: 1. + self assert: version stage = #beta. + self assert: version stageNumber = 1. + self assert: version isBeta. + self deny: version isAlpha. + self deny: version isFinal. + version beFinal. + self assert: version stage isNil. + self assert: version stageNumber isNil. + self assert: version isFinal. + self deny: version isAlpha. + self deny: version isBeta +] + +{ #category : 'tests' } +GRVersionTest >> testEquality [ + self assert: #(1) equals: #(1). + self assert: #(1) equals: #(1 0). + self assert: #(1) equals: #(1 0 0). + self assert: #(1 0) equals: #(1 0). + self assert: #(1 0) equals: #(1 0 0). + self assert: #(1 0 0) equals: #(1 0 0). + self assert: #(1 0 0 #alpha) equals: #(1 0 0 #alpha 1). + self assert: #(1 0 0 #beta) equals: #(1 0 0 #beta 1) +] + +{ #category : 'tests' } +GRVersionTest >> testStringConversion [ + self assert: (GRVersion major: 1 minor: 2 revision: 3) greaseString = '1.2.3'. + self assert: (GRVersion major: 11 minor: 12 revision: 13) greaseString = '11.12.13'. + self assert: (GRVersion major: 1 minor: 2) greaseString = '1.2'. + self assert: (GRVersion major: 1 minor: 2 revision: 0) greaseString = '1.2.0'. + self assert: (GRVersion major: 1) greaseString = '1.0'. + self assert: ((GRVersion major: 1 minor: 2 revision: 3) beAlpha) greaseString = '1.2.3alpha'. + self assert: ((GRVersion major: 1 minor: 2 revision: 3) beAlpha: 1) greaseString = '1.2.3alpha1'. + self assert: ((GRVersion major: 1 minor: 2 revision: 3) beBeta) greaseString = '1.2.3beta'. + self assert: ((GRVersion major: 1 minor: 2 revision: 3) beBeta: 1) greaseString = '1.2.3beta1' +] diff --git a/repository/Grease-Tests-Core/package.st b/repository/Grease-Tests-Core/package.st new file mode 100644 index 00000000..9e581e37 --- /dev/null +++ b/repository/Grease-Tests-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Tests-Core' } diff --git a/repository/Grease-Tests-GemStone-Core.package/.filetree b/repository/Grease-Tests-GemStone-Core.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/README.md b/repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/instance/arbitraryCollection.st b/repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/instance/arbitraryCollection.st deleted file mode 100644 index 0c1627ff..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/instance/arbitraryCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -arbitraryCollection - ^ 'fadbbc' asDoubleByteString \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/instance/collectionClass.st b/repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/instance/collectionClass.st deleted file mode 100644 index fa384274..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ DoubleByteString \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/properties.json b/repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/properties.json deleted file mode 100644 index b560b508..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRDoubleByteStringTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-GemStone-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "DaleHenrichs 03/08/2011 14:08", - "instvars" : [ - ], - "name" : "GRDoubleByteStringTest", - "pools" : [ - ], - "super" : "GRStringTest", - "type" : "normal" } diff --git a/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/README.md b/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testCompileIntoClassified.st b/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testCompileIntoClassified.st deleted file mode 100644 index 83af490b..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testCompileIntoClassified.st +++ /dev/null @@ -1,16 +0,0 @@ -testing -testCompileIntoClassified - | source protocol selectors selector | - source := 'aMethod - ^ ''a result'''. - protocol := 'a-protocol'. - selector := #aMethod. - - GRPlatform current compile: source into: self class classified: protocol. - [ - self assert: (self class selectors includes: selector). - selectors := self class organization listAtCategoryNamed: protocol. - self assert: selectors = (Array with: selector). - ] ensure: [ - self class removeSelectorSilently: selector. - ]. \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testConvertToSmalltalkNewlines.st b/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testConvertToSmalltalkNewlines.st deleted file mode 100644 index 3bfcea22..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testConvertToSmalltalkNewlines.st +++ /dev/null @@ -1,19 +0,0 @@ -testing -testConvertToSmalltalkNewlines - "GemStone uses lf as native newline character" - - | expected got codePoint euro | - expected := 'selector', String lf, '"comment"'. - got := GRPlatform current convertToSmalltalkNewlines: expected. - codePoint := (got at: 9) codePoint. - self assert: expected = got. - self assert: expected = (GRPlatform current - convertToSmalltalkNewlines: ('selector', String lf, '"comment"')). - self assert: expected = (GRPlatform current - convertToSmalltalkNewlines: ('selector', String crlf, '"comment"')). - - euro := (String with: (Character value: 8364)). - self assert: expected, euro = (GRPlatform current - convertToSmalltalkNewlines: expected, euro). - - self assert: (GRPlatform current convertToSmalltalkNewlines: nil) isNil \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testEncoderForUtf8Roundtrip.st b/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testEncoderForUtf8Roundtrip.st deleted file mode 100644 index ce68ab53..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testEncoderForUtf8Roundtrip.st +++ /dev/null @@ -1,12 +0,0 @@ -as yet unclassified -testEncoderForUtf8Roundtrip - | codec encoded string writeStream | - codec := GRCodec forEncoding: 'utf-8'. - "byte array with utf8 encoded characters 'a umlaut' and 'a'" - encoded := ByteArray with: 195 with: 164 with: 97. - string := (codec decoderFor: encoded readStream) next: 10. - self assert: string size = 2. - self assert: (string at: 1) asciiValue = 228. - self assert: (string at: 2) asciiValue = 97. - writeStream := String new writeStream. - self assert: ((codec encoderFor: writeStream) nextPutAll: string) contents = encoded. \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testFullName.st b/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testFullName.st deleted file mode 100644 index e26b0e82..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testFullName.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -testFullName - self assert: Object fullName = #'Object' \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/properties.json b/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/properties.json deleted file mode 100644 index f2f7e2b4..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-GemStone-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "DaleHenrichs 03/08/2011 14:08", - "instvars" : [ - ], - "name" : "GRGemStonePlatformTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/instance/addBlockToCollection.with..st b/repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/instance/addBlockToCollection.with..st deleted file mode 100644 index c715445c..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/instance/addBlockToCollection.with..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-tests-gemstone-core -addBlockToCollection: collection with: ea - - collection add: [ea] \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/instance/expectedFailures.st b/repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/instance/expectedFailures.st deleted file mode 100644 index f49184f7..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/instance/expectedFailures.st +++ /dev/null @@ -1,6 +0,0 @@ -*grease-tests-gemstone-core -expectedFailures - "GemStone does not conform to the ANSI standard in this case" - - ((System stoneVersionAt: 'gsVersion') beginsWith: '2.') ifTrue: [ ^#( #testToDoClosures ) ]. - ^#() \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/instance/testToDoClosuresGemStone.st b/repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/instance/testToDoClosuresGemStone.st deleted file mode 100644 index 4ba45664..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/instance/testToDoClosuresGemStone.st +++ /dev/null @@ -1,8 +0,0 @@ -*grease-tests-gemstone-core -testToDoClosuresGemStone - "workaround for non-ANSI compliance" - - | collection | - collection := OrderedCollection new. - 1 to: 5 do: [ :ea | self addBlockToCollection: collection with: ea ]. - self assert: (collection collect: [ :ea | ea value ]) asArray = #(1 2 3 4 5) \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/properties.json b/repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/properties.json deleted file mode 100644 index c01ca854..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRNumberTest.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRNumberTest" } diff --git a/repository/Grease-Tests-GemStone-Core.package/GRPackage.extension/class/greaseTestsGemStoneCore.st b/repository/Grease-Tests-GemStone-Core.package/GRPackage.extension/class/greaseTestsGemStoneCore.st deleted file mode 100644 index 8e8599f8..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRPackage.extension/class/greaseTestsGemStoneCore.st +++ /dev/null @@ -1,9 +0,0 @@ -*grease-tests-gemstone-core -greaseTestsGemStoneCore - - ^ self new - name: 'Grease-Tests-GemStone-Core'; - addDependency: 'Grease-GemStone-Core'; - addDependency: 'Grease-Tests-Core'; - url: #gemstoneUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRPackage.extension/properties.json b/repository/Grease-Tests-GemStone-Core.package/GRPackage.extension/properties.json deleted file mode 100644 index dd2faaf0..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPackage" } diff --git a/repository/Grease-Tests-GemStone-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st b/repository/Grease-Tests-GemStone-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st deleted file mode 100644 index c73ff2de..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st +++ /dev/null @@ -1,12 +0,0 @@ -*grease-tests-gemstone-core -writeToFile: aStringOrByteArray withFileNameDo: aBlock - | fileName directory | - fileName := 'GRGemStonePlatformTest'. - directory := ServerFileDirectory default. - [ - GRPlatform current - write: aStringOrByteArray - toFile: fileName - inFolder: directory fullName. - aBlock value: directory fullName , GRPlatform current pathSeparator , fileName ] - ensure: [ directory deleteFileNamed: fileName ] \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRPlatformTest.extension/properties.json b/repository/Grease-Tests-GemStone-Core.package/GRPlatformTest.extension/properties.json deleted file mode 100644 index ab3f269a..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRPlatformTest.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPlatformTest" } diff --git a/repository/Grease-Tests-GemStone-Core.package/GRQuadByteStringTest.class/README.md b/repository/Grease-Tests-GemStone-Core.package/GRQuadByteStringTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-GemStone-Core.package/GRQuadByteStringTest.class/instance/arbitraryCollection.st b/repository/Grease-Tests-GemStone-Core.package/GRQuadByteStringTest.class/instance/arbitraryCollection.st deleted file mode 100644 index b34728d2..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRQuadByteStringTest.class/instance/arbitraryCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -arbitraryCollection - ^ 'fadbbc' asQuadByteString \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRQuadByteStringTest.class/instance/collectionClass.st b/repository/Grease-Tests-GemStone-Core.package/GRQuadByteStringTest.class/instance/collectionClass.st deleted file mode 100644 index 919c2ab6..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRQuadByteStringTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ QuadByteString \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRQuadByteStringTest.class/properties.json b/repository/Grease-Tests-GemStone-Core.package/GRQuadByteStringTest.class/properties.json deleted file mode 100644 index b6af165d..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRQuadByteStringTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-GemStone-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "DaleHenrichs 03/08/2011 14:08", - "instvars" : [ - ], - "name" : "GRQuadByteStringTest", - "pools" : [ - ], - "super" : "GRStringTest", - "type" : "normal" } diff --git a/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/multiByteConvert..st b/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/multiByteConvert..st deleted file mode 100644 index 7e52fede..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/multiByteConvert..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-tests-gemstone-core -multiByteConvert: aString - - ^self collectionClass withAll: aString \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteCapitalized.st b/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteCapitalized.st deleted file mode 100644 index 2b574007..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteCapitalized.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-tests-gemstone-core -testMultiByteCapitalized - self assert: (self multiByteConvert: 'capitalized') capitalized = 'Capitalized'. - self assert: (self multiByteConvert: 'Capitalized') capitalized = 'Capitalized' . - self assert: (self multiByteConvert: 'CAPITALIZED') capitalized = 'CAPITALIZED' . \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteExcerpt.st b/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteExcerpt.st deleted file mode 100644 index f8354583..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteExcerpt.st +++ /dev/null @@ -1,10 +0,0 @@ -*grease-tests-gemstone-core -testMultiByteExcerpt - self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 0) = '...c...'. - self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 1) = '...bcd...'. - self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 2) = (self multiByteConvert: 'abcde'). - self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 3) = (self multiByteConvert: 'abcde'). - - self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 0 ellipsis: 'x') = 'xcx'. - self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 1 ellipsis: 'x') = 'xbcdx'. - self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 2 ellipsis: 'x') = (self multiByteConvert: 'abcde') \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteSubStrings.st b/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteSubStrings.st deleted file mode 100644 index 6baae92e..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteSubStrings.st +++ /dev/null @@ -1,26 +0,0 @@ -*grease-tests-gemstone-core -testMultiByteSubStrings - "#subStrings: is defined by ANSI 5.7.10.15: - Answer an array containing the substrings in the receiver separated by the elements of separators." - | mimeType tokens | - mimeType := (self multiByteConvert: 'application/xhtml+xml'). - tokens := mimeType subStrings: '/'. - self assert: tokens size = 2. - self assert: tokens first = 'application'. - self assert: tokens second = 'xhtml+xml'. - - "ANSI is a bit unclear on how multiple sequential delimiters should be treated. - Make sure behaviour is consistent for several delimiters in a row (taken from - Squeak's behaviour)" - tokens := (self multiByteConvert: 'abc,.def.ghi') subStrings: '.,'. - self assert: tokens size = 3. - self assert: tokens first = 'abc'. - self assert: tokens second = 'def'. - self assert: tokens third = 'ghi'. - - "also ensure behavior consistent for several delimiters in a row at beginning and end of string...for completeness" - tokens := (self multiByteConvert: ',.abc,.def.ghi.,') subStrings: '.,'. - self assert: tokens size = 3. - self assert: tokens first = 'abc'. - self assert: tokens second = 'def'. - self assert: tokens third = 'ghi'. \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteTrimBoth.st b/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteTrimBoth.st deleted file mode 100644 index 76a0776f..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteTrimBoth.st +++ /dev/null @@ -1,12 +0,0 @@ -*grease-tests-gemstone-core -testMultiByteTrimBoth - self assert: (self multiByteConvert: '') trimBoth = ''. - self assert: (self multiByteConvert: ' ') trimBoth = ''. - self assert: (self multiByteConvert: ' ') trimBoth = ''. - self assert: (self multiByteConvert: 'foo') trimBoth = 'foo'. - self assert: (self multiByteConvert: ' foo ') trimBoth = 'foo'. - self assert: (self multiByteConvert: ' foo ') trimBoth = 'foo'. - self assert: ((self collectionClass with: Character cr), ' foo ') trimBoth = 'foo'. - - self assert: ((self multiByteConvert: 'aabbaa') trimBoth: [ :each | each = $a ]) = 'bb'. - self assert: ((self multiByteConvert: 'bbaabb') trimBoth: [ :each | each = $a ]) = 'bbaabb' \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteTruncate.st b/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteTruncate.st deleted file mode 100644 index 5cbf7eb4..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/instance/testMultiByteTruncate.st +++ /dev/null @@ -1,8 +0,0 @@ -*grease-tests-gemstone-core -testMultiByteTruncate - self assert: ((self multiByteConvert: 'abc') truncate) = (self multiByteConvert: 'abc'). - self assert: ((self multiByteConvert: 'abc') truncate: 3) = (self multiByteConvert: 'abc'). - self assert: ((self multiByteConvert: 'abc') truncate: 2) = 'ab...'. - - self assert: ((self multiByteConvert: 'abc') truncate: 1 ellipsis: '') = 'a'. - self assert: ((self multiByteConvert: 'abc') truncate: 0 ellipsis: 'none') = 'none' \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/properties.json b/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/properties.json deleted file mode 100644 index 9b178028..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRStringTest.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRStringTest" } diff --git a/repository/Grease-Tests-GemStone-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st b/repository/Grease-Tests-GemStone-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st deleted file mode 100644 index 1f63f6d1..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-tests-gemstone-core -expectedFailures - ^ #( - #testCodecUtf8Bom "GemStone interprest bom character as a space ... nicht richtig" - ) \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/GRUtf8CodecTest.extension/properties.json b/repository/Grease-Tests-GemStone-Core.package/GRUtf8CodecTest.extension/properties.json deleted file mode 100644 index 8b1a3361..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/GRUtf8CodecTest.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRUtf8CodecTest" } diff --git a/repository/Grease-Tests-GemStone-Core.package/monticello.meta/categories.st b/repository/Grease-Tests-GemStone-Core.package/monticello.meta/categories.st deleted file mode 100644 index 22857f5e..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: 'Grease-Tests-GemStone-Core'! diff --git a/repository/Grease-Tests-GemStone-Core.package/monticello.meta/initializers.st b/repository/Grease-Tests-GemStone-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-GemStone-Core.package/monticello.meta/package b/repository/Grease-Tests-GemStone-Core.package/monticello.meta/package deleted file mode 100644 index 59950b6e..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-GemStone-Core') \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone-Core.package/properties.json b/repository/Grease-Tests-GemStone-Core.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-Tests-GemStone-Core.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Grease-Tests-GemStone-Core/GRDoubleByteStringTest.class.st b/repository/Grease-Tests-GemStone-Core/GRDoubleByteStringTest.class.st new file mode 100644 index 00000000..14dc3971 --- /dev/null +++ b/repository/Grease-Tests-GemStone-Core/GRDoubleByteStringTest.class.st @@ -0,0 +1,16 @@ +Class { + #name : 'GRDoubleByteStringTest', + #superclass : 'GRStringTest', + #category : 'Grease-Tests-GemStone-Core', + #package : 'Grease-Tests-GemStone-Core' +} + +{ #category : 'configuration' } +GRDoubleByteStringTest >> arbitraryCollection [ + ^ 'fadbbc' asDoubleByteString +] + +{ #category : 'configuration' } +GRDoubleByteStringTest >> collectionClass [ + ^ DoubleByteString +] diff --git a/repository/Grease-Tests-GemStone-Core/GRGemStonePlatformTest.class.st b/repository/Grease-Tests-GemStone-Core/GRGemStonePlatformTest.class.st new file mode 100644 index 00000000..074e5fa9 --- /dev/null +++ b/repository/Grease-Tests-GemStone-Core/GRGemStonePlatformTest.class.st @@ -0,0 +1,64 @@ +Class { + #name : 'GRGemStonePlatformTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-GemStone-Core', + #package : 'Grease-Tests-GemStone-Core' +} + +{ #category : 'testing' } +GRGemStonePlatformTest >> testCompileIntoClassified [ + | source protocol selectors selector | + source := 'aMethod + ^ ''a result'''. + protocol := 'a-protocol'. + selector := #aMethod. + + GRPlatform current compile: source into: self class classified: protocol. + [ + self assert: (self class selectors includes: selector). + selectors := self class organization listAtCategoryNamed: protocol. + self assert: selectors = (Array with: selector). + ] ensure: [ + self class removeSelectorSilently: selector. + ]. +] + +{ #category : 'testing' } +GRGemStonePlatformTest >> testConvertToSmalltalkNewlines [ + "GemStone uses lf as native newline character" + + | expected got codePoint euro | + expected := 'selector', String lf, '"comment"'. + got := GRPlatform current convertToSmalltalkNewlines: expected. + codePoint := (got at: 9) codePoint. + self assert: expected = got. + self assert: expected = (GRPlatform current + convertToSmalltalkNewlines: ('selector', String lf, '"comment"')). + self assert: expected = (GRPlatform current + convertToSmalltalkNewlines: ('selector', String crlf, '"comment"')). + + euro := (String with: (Character value: 8364)). + self assert: expected, euro = (GRPlatform current + convertToSmalltalkNewlines: expected, euro). + + self assert: (GRPlatform current convertToSmalltalkNewlines: nil) isNil +] + +{ #category : 'as yet unclassified' } +GRGemStonePlatformTest >> testEncoderForUtf8Roundtrip [ + | codec encoded string writeStream | + codec := GRCodec forEncoding: 'utf-8'. + "byte array with utf8 encoded characters 'a umlaut' and 'a'" + encoded := ByteArray with: 195 with: 164 with: 97. + string := (codec decoderFor: encoded readStream) next: 10. + self assert: string size = 2. + self assert: (string at: 1) asciiValue = 228. + self assert: (string at: 2) asciiValue = 97. + writeStream := String new writeStream. + self assert: ((codec encoderFor: writeStream) nextPutAll: string) contents = encoded. +] + +{ #category : 'testing' } +GRGemStonePlatformTest >> testFullName [ + self assert: Object fullName = #'Object' +] diff --git a/repository/Grease-Tests-GemStone-Core/GRNumberTest.extension.st b/repository/Grease-Tests-GemStone-Core/GRNumberTest.extension.st new file mode 100644 index 00000000..62fca63f --- /dev/null +++ b/repository/Grease-Tests-GemStone-Core/GRNumberTest.extension.st @@ -0,0 +1,25 @@ +Extension { #name : 'GRNumberTest' } + +{ #category : '*grease-tests-gemstone-core' } +GRNumberTest >> addBlockToCollection: collection with: ea [ + + collection add: [ea] +] + +{ #category : '*grease-tests-gemstone-core' } +GRNumberTest >> expectedFailures [ + "GemStone does not conform to the ANSI standard in this case" + + ((System stoneVersionAt: 'gsVersion') beginsWith: '2.') ifTrue: [ ^#( #testToDoClosures ) ]. + ^#() +] + +{ #category : '*grease-tests-gemstone-core' } +GRNumberTest >> testToDoClosuresGemStone [ + "workaround for non-ANSI compliance" + + | collection | + collection := OrderedCollection new. + 1 to: 5 do: [ :ea | self addBlockToCollection: collection with: ea ]. + self assert: (collection collect: [ :ea | ea value ]) asArray = #(1 2 3 4 5) +] diff --git a/repository/Grease-Tests-GemStone-Core/GRPackage.extension.st b/repository/Grease-Tests-GemStone-Core/GRPackage.extension.st new file mode 100644 index 00000000..cd38ed7e --- /dev/null +++ b/repository/Grease-Tests-GemStone-Core/GRPackage.extension.st @@ -0,0 +1,12 @@ +Extension { #name : 'GRPackage' } + +{ #category : '*grease-tests-gemstone-core' } +GRPackage class >> greaseTestsGemStoneCore [ + + ^ self new + name: 'Grease-Tests-GemStone-Core'; + addDependency: 'Grease-GemStone-Core'; + addDependency: 'Grease-Tests-Core'; + url: #gemstoneUrl; + yourself +] diff --git a/repository/Grease-Tests-GemStone-Core/GRPlatformTest.extension.st b/repository/Grease-Tests-GemStone-Core/GRPlatformTest.extension.st new file mode 100644 index 00000000..fcda4fb7 --- /dev/null +++ b/repository/Grease-Tests-GemStone-Core/GRPlatformTest.extension.st @@ -0,0 +1,15 @@ +Extension { #name : 'GRPlatformTest' } + +{ #category : '*grease-tests-gemstone-core' } +GRPlatformTest >> writeToFile: aStringOrByteArray withFileNameDo: aBlock [ + | fileName directory | + fileName := 'GRGemStonePlatformTest'. + directory := ServerFileDirectory default. + [ + GRPlatform current + write: aStringOrByteArray + toFile: fileName + inFolder: directory fullName. + aBlock value: directory fullName , GRPlatform current pathSeparator , fileName ] + ensure: [ directory deleteFileNamed: fileName ] +] diff --git a/repository/Grease-Tests-GemStone-Core/GRQuadByteStringTest.class.st b/repository/Grease-Tests-GemStone-Core/GRQuadByteStringTest.class.st new file mode 100644 index 00000000..6d84ef91 --- /dev/null +++ b/repository/Grease-Tests-GemStone-Core/GRQuadByteStringTest.class.st @@ -0,0 +1,16 @@ +Class { + #name : 'GRQuadByteStringTest', + #superclass : 'GRStringTest', + #category : 'Grease-Tests-GemStone-Core', + #package : 'Grease-Tests-GemStone-Core' +} + +{ #category : 'configuration' } +GRQuadByteStringTest >> arbitraryCollection [ + ^ 'fadbbc' asQuadByteString +] + +{ #category : 'configuration' } +GRQuadByteStringTest >> collectionClass [ + ^ QuadByteString +] diff --git a/repository/Grease-Tests-GemStone-Core/GRStringTest.extension.st b/repository/Grease-Tests-GemStone-Core/GRStringTest.extension.st new file mode 100644 index 00000000..bb8ee571 --- /dev/null +++ b/repository/Grease-Tests-GemStone-Core/GRStringTest.extension.st @@ -0,0 +1,78 @@ +Extension { #name : 'GRStringTest' } + +{ #category : '*grease-tests-gemstone-core' } +GRStringTest >> multiByteConvert: aString [ + + ^self collectionClass withAll: aString +] + +{ #category : '*grease-tests-gemstone-core' } +GRStringTest >> testMultiByteCapitalized [ + self assert: (self multiByteConvert: 'capitalized') capitalized = 'Capitalized'. + self assert: (self multiByteConvert: 'Capitalized') capitalized = 'Capitalized' . + self assert: (self multiByteConvert: 'CAPITALIZED') capitalized = 'CAPITALIZED' . +] + +{ #category : '*grease-tests-gemstone-core' } +GRStringTest >> testMultiByteExcerpt [ + self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 0) = '...c...'. + self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 1) = '...bcd...'. + self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 2) = (self multiByteConvert: 'abcde'). + self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 3) = (self multiByteConvert: 'abcde'). + + self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 0 ellipsis: 'x') = 'xcx'. + self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 1 ellipsis: 'x') = 'xbcdx'. + self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 2 ellipsis: 'x') = (self multiByteConvert: 'abcde') +] + +{ #category : '*grease-tests-gemstone-core' } +GRStringTest >> testMultiByteSubStrings [ + "#subStrings: is defined by ANSI 5.7.10.15: + Answer an array containing the substrings in the receiver separated by the elements of separators." + | mimeType tokens | + mimeType := (self multiByteConvert: 'application/xhtml+xml'). + tokens := mimeType subStrings: '/'. + self assert: tokens size = 2. + self assert: tokens first = 'application'. + self assert: tokens second = 'xhtml+xml'. + + "ANSI is a bit unclear on how multiple sequential delimiters should be treated. + Make sure behaviour is consistent for several delimiters in a row (taken from + Squeak's behaviour)" + tokens := (self multiByteConvert: 'abc,.def.ghi') subStrings: '.,'. + self assert: tokens size = 3. + self assert: tokens first = 'abc'. + self assert: tokens second = 'def'. + self assert: tokens third = 'ghi'. + + "also ensure behavior consistent for several delimiters in a row at beginning and end of string...for completeness" + tokens := (self multiByteConvert: ',.abc,.def.ghi.,') subStrings: '.,'. + self assert: tokens size = 3. + self assert: tokens first = 'abc'. + self assert: tokens second = 'def'. + self assert: tokens third = 'ghi'. +] + +{ #category : '*grease-tests-gemstone-core' } +GRStringTest >> testMultiByteTrimBoth [ + self assert: (self multiByteConvert: '') trimBoth = ''. + self assert: (self multiByteConvert: ' ') trimBoth = ''. + self assert: (self multiByteConvert: ' ') trimBoth = ''. + self assert: (self multiByteConvert: 'foo') trimBoth = 'foo'. + self assert: (self multiByteConvert: ' foo ') trimBoth = 'foo'. + self assert: (self multiByteConvert: ' foo ') trimBoth = 'foo'. + self assert: ((self collectionClass with: Character cr), ' foo ') trimBoth = 'foo'. + + self assert: ((self multiByteConvert: 'aabbaa') trimBoth: [ :each | each = $a ]) = 'bb'. + self assert: ((self multiByteConvert: 'bbaabb') trimBoth: [ :each | each = $a ]) = 'bbaabb' +] + +{ #category : '*grease-tests-gemstone-core' } +GRStringTest >> testMultiByteTruncate [ + self assert: ((self multiByteConvert: 'abc') truncate) = (self multiByteConvert: 'abc'). + self assert: ((self multiByteConvert: 'abc') truncate: 3) = (self multiByteConvert: 'abc'). + self assert: ((self multiByteConvert: 'abc') truncate: 2) = 'ab...'. + + self assert: ((self multiByteConvert: 'abc') truncate: 1 ellipsis: '') = 'a'. + self assert: ((self multiByteConvert: 'abc') truncate: 0 ellipsis: 'none') = 'none' +] diff --git a/repository/Grease-Tests-GemStone-Core/GRUtf8CodecTest.extension.st b/repository/Grease-Tests-GemStone-Core/GRUtf8CodecTest.extension.st new file mode 100644 index 00000000..edd9c911 --- /dev/null +++ b/repository/Grease-Tests-GemStone-Core/GRUtf8CodecTest.extension.st @@ -0,0 +1,8 @@ +Extension { #name : 'GRUtf8CodecTest' } + +{ #category : '*grease-tests-gemstone-core' } +GRUtf8CodecTest >> expectedFailures [ + ^ #( + #testCodecUtf8Bom "GemStone interprest bom character as a space ... nicht richtig" + ) +] diff --git a/repository/Grease-Tests-GemStone-Core/package.st b/repository/Grease-Tests-GemStone-Core/package.st new file mode 100644 index 00000000..3a61c141 --- /dev/null +++ b/repository/Grease-Tests-GemStone-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Tests-GemStone-Core' } diff --git a/repository/Grease-Tests-GemStone32-Core.package/.filetree b/repository/Grease-Tests-GemStone32-Core.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/README.md b/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/instance/arbitraryCollection.st b/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/instance/arbitraryCollection.st deleted file mode 100644 index 0c1627ff..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/instance/arbitraryCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -arbitraryCollection - ^ 'fadbbc' asDoubleByteString \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/instance/collectionClass.st b/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/instance/collectionClass.st deleted file mode 100644 index fa384274..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ DoubleByteString \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/properties.json b/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/properties.json deleted file mode 100644 index aac15724..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRDoubleByteStringTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-GemStone32-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRDoubleByteStringTest", - "pools" : [ - ], - "super" : "GRStringTest", - "type" : "normal" } diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/README.md b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testCompileIntoClassified.st b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testCompileIntoClassified.st deleted file mode 100644 index 83af490b..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testCompileIntoClassified.st +++ /dev/null @@ -1,16 +0,0 @@ -testing -testCompileIntoClassified - | source protocol selectors selector | - source := 'aMethod - ^ ''a result'''. - protocol := 'a-protocol'. - selector := #aMethod. - - GRPlatform current compile: source into: self class classified: protocol. - [ - self assert: (self class selectors includes: selector). - selectors := self class organization listAtCategoryNamed: protocol. - self assert: selectors = (Array with: selector). - ] ensure: [ - self class removeSelectorSilently: selector. - ]. \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testConvertToSmalltalkNewlines.st b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testConvertToSmalltalkNewlines.st deleted file mode 100644 index 3bfcea22..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testConvertToSmalltalkNewlines.st +++ /dev/null @@ -1,19 +0,0 @@ -testing -testConvertToSmalltalkNewlines - "GemStone uses lf as native newline character" - - | expected got codePoint euro | - expected := 'selector', String lf, '"comment"'. - got := GRPlatform current convertToSmalltalkNewlines: expected. - codePoint := (got at: 9) codePoint. - self assert: expected = got. - self assert: expected = (GRPlatform current - convertToSmalltalkNewlines: ('selector', String lf, '"comment"')). - self assert: expected = (GRPlatform current - convertToSmalltalkNewlines: ('selector', String crlf, '"comment"')). - - euro := (String with: (Character value: 8364)). - self assert: expected, euro = (GRPlatform current - convertToSmalltalkNewlines: expected, euro). - - self assert: (GRPlatform current convertToSmalltalkNewlines: nil) isNil \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testEncoderForUtf8Roundtrip.st b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testEncoderForUtf8Roundtrip.st deleted file mode 100644 index ce68ab53..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testEncoderForUtf8Roundtrip.st +++ /dev/null @@ -1,12 +0,0 @@ -as yet unclassified -testEncoderForUtf8Roundtrip - | codec encoded string writeStream | - codec := GRCodec forEncoding: 'utf-8'. - "byte array with utf8 encoded characters 'a umlaut' and 'a'" - encoded := ByteArray with: 195 with: 164 with: 97. - string := (codec decoderFor: encoded readStream) next: 10. - self assert: string size = 2. - self assert: (string at: 1) asciiValue = 228. - self assert: (string at: 2) asciiValue = 97. - writeStream := String new writeStream. - self assert: ((codec encoderFor: writeStream) nextPutAll: string) contents = encoded. \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testFullName.st b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testFullName.st deleted file mode 100644 index e26b0e82..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testFullName.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -testFullName - self assert: Object fullName = #'Object' \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/properties.json b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/properties.json deleted file mode 100644 index 29396189..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-GemStone32-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRGemStonePlatformTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/addBlockToCollection.with..st b/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/addBlockToCollection.with..st deleted file mode 100644 index d2b2b2b2..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/addBlockToCollection.with..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-tests-gemstone32-core -addBlockToCollection: collection with: ea - - collection add: [ea] \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/expectedFailures.st b/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/expectedFailures.st deleted file mode 100644 index 95dae186..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/expectedFailures.st +++ /dev/null @@ -1,6 +0,0 @@ -*grease-tests-gemstone32-core -expectedFailures - "GemStone does not conform to the ANSI standard in this case" - - ((System stoneVersionAt: 'gsVersion') beginsWith: '2.') ifTrue: [ ^#( #testToDoClosures ) ]. - ^#() \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/testToDoClosuresGemStone.st b/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/testToDoClosuresGemStone.st deleted file mode 100644 index 21ae2a01..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/instance/testToDoClosuresGemStone.st +++ /dev/null @@ -1,8 +0,0 @@ -*grease-tests-gemstone32-core -testToDoClosuresGemStone - "workaround for non-ANSI compliance" - - | collection | - collection := OrderedCollection new. - 1 to: 5 do: [ :ea | self addBlockToCollection: collection with: ea ]. - self assert: (collection collect: [ :ea | ea value ]) asArray = #(1 2 3 4 5) \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/properties.json b/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/properties.json deleted file mode 100644 index c01ca854..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRNumberTest.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRNumberTest" } diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRPackage.extension/class/greaseTestsGemStoneCore.st b/repository/Grease-Tests-GemStone32-Core.package/GRPackage.extension/class/greaseTestsGemStoneCore.st deleted file mode 100644 index 616e2a89..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRPackage.extension/class/greaseTestsGemStoneCore.st +++ /dev/null @@ -1,9 +0,0 @@ -*grease-tests-gemstone32-core -greaseTestsGemStoneCore - - ^ self new - name: 'Grease-Tests-GemStone32-Core'; - addDependency: 'Grease-GemStone-Core'; - addDependency: 'Grease-Tests-Core'; - url: #gemstoneUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRPackage.extension/properties.json b/repository/Grease-Tests-GemStone32-Core.package/GRPackage.extension/properties.json deleted file mode 100644 index dd2faaf0..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPackage" } diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st b/repository/Grease-Tests-GemStone32-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st deleted file mode 100644 index 6976c3c7..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo.st +++ /dev/null @@ -1,12 +0,0 @@ -*grease-tests-gemstone32-core -writeToFile: aStringOrByteArray withFileNameDo: aBlock - | fileName directory | - fileName := 'GRGemStonePlatformTest'. - directory := ServerFileDirectory default. - [ - GRPlatform current - write: aStringOrByteArray - toFile: fileName - inFolder: directory fullName. - aBlock value: directory fullName , GRPlatform current pathSeparator , fileName ] - ensure: [ directory deleteFileNamed: fileName ] \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRPlatformTest.extension/properties.json b/repository/Grease-Tests-GemStone32-Core.package/GRPlatformTest.extension/properties.json deleted file mode 100644 index ab3f269a..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRPlatformTest.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPlatformTest" } diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/README.md b/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/instance/arbitraryCollection.st b/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/instance/arbitraryCollection.st deleted file mode 100644 index b34728d2..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/instance/arbitraryCollection.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -arbitraryCollection - ^ 'fadbbc' asQuadByteString \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/instance/collectionClass.st b/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/instance/collectionClass.st deleted file mode 100644 index 919c2ab6..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/instance/collectionClass.st +++ /dev/null @@ -1,3 +0,0 @@ -configuration -collectionClass - ^ QuadByteString \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/properties.json b/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/properties.json deleted file mode 100644 index 5643404e..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRQuadByteStringTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-GemStone32-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRQuadByteStringTest", - "pools" : [ - ], - "super" : "GRStringTest", - "type" : "normal" } diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/multiByteConvert..st b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/multiByteConvert..st deleted file mode 100644 index f68bfeb2..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/multiByteConvert..st +++ /dev/null @@ -1,4 +0,0 @@ -*grease-tests-gemstone32-core -multiByteConvert: aString - - ^self collectionClass withAll: aString \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteCapitalized.st b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteCapitalized.st deleted file mode 100644 index e2b5c14d..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteCapitalized.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-tests-gemstone32-core -testMultiByteCapitalized - self assert: (self multiByteConvert: 'capitalized') capitalized = 'Capitalized'. - self assert: (self multiByteConvert: 'Capitalized') capitalized = 'Capitalized' . - self assert: (self multiByteConvert: 'CAPITALIZED') capitalized = 'CAPITALIZED' . \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteExcerpt.st b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteExcerpt.st deleted file mode 100644 index be28723e..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteExcerpt.st +++ /dev/null @@ -1,10 +0,0 @@ -*grease-tests-gemstone32-core -testMultiByteExcerpt - self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 0) = '...c...'. - self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 1) = '...bcd...'. - self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 2) = (self multiByteConvert: 'abcde'). - self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 3) = (self multiByteConvert: 'abcde'). - - self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 0 ellipsis: 'x') = 'xcx'. - self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 1 ellipsis: 'x') = 'xbcdx'. - self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 2 ellipsis: 'x') = (self multiByteConvert: 'abcde') \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteSubStrings.st b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteSubStrings.st deleted file mode 100644 index 20972006..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteSubStrings.st +++ /dev/null @@ -1,26 +0,0 @@ -*grease-tests-gemstone32-core -testMultiByteSubStrings - "#subStrings: is defined by ANSI 5.7.10.15: - Answer an array containing the substrings in the receiver separated by the elements of separators." - | mimeType tokens | - mimeType := (self multiByteConvert: 'application/xhtml+xml'). - tokens := mimeType subStrings: '/'. - self assert: tokens size = 2. - self assert: tokens first = 'application'. - self assert: tokens second = 'xhtml+xml'. - - "ANSI is a bit unclear on how multiple sequential delimiters should be treated. - Make sure behaviour is consistent for several delimiters in a row (taken from - Squeak's behaviour)" - tokens := (self multiByteConvert: 'abc,.def.ghi') subStrings: '.,'. - self assert: tokens size = 3. - self assert: tokens first = 'abc'. - self assert: tokens second = 'def'. - self assert: tokens third = 'ghi'. - - "also ensure behavior consistent for several delimiters in a row at beginning and end of string...for completeness" - tokens := (self multiByteConvert: ',.abc,.def.ghi.,') subStrings: '.,'. - self assert: tokens size = 3. - self assert: tokens first = 'abc'. - self assert: tokens second = 'def'. - self assert: tokens third = 'ghi'. \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteTrimBoth.st b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteTrimBoth.st deleted file mode 100644 index 6b73b88b..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteTrimBoth.st +++ /dev/null @@ -1,12 +0,0 @@ -*grease-tests-gemstone32-core -testMultiByteTrimBoth - self assert: (self multiByteConvert: '') trimBoth = ''. - self assert: (self multiByteConvert: ' ') trimBoth = ''. - self assert: (self multiByteConvert: ' ') trimBoth = ''. - self assert: (self multiByteConvert: 'foo') trimBoth = 'foo'. - self assert: (self multiByteConvert: ' foo ') trimBoth = 'foo'. - self assert: (self multiByteConvert: ' foo ') trimBoth = 'foo'. - self assert: ((self collectionClass with: Character cr), ' foo ') trimBoth = 'foo'. - - self assert: ((self multiByteConvert: 'aabbaa') trimBoth: [ :each | each = $a ]) = 'bb'. - self assert: ((self multiByteConvert: 'bbaabb') trimBoth: [ :each | each = $a ]) = 'bbaabb' \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteTruncate.st b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteTruncate.st deleted file mode 100644 index faadc979..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/instance/testMultiByteTruncate.st +++ /dev/null @@ -1,8 +0,0 @@ -*grease-tests-gemstone32-core -testMultiByteTruncate - self assert: ((self multiByteConvert: 'abc') truncate) = (self multiByteConvert: 'abc'). - self assert: ((self multiByteConvert: 'abc') truncate: 3) = (self multiByteConvert: 'abc'). - self assert: ((self multiByteConvert: 'abc') truncate: 2) = 'ab...'. - - self assert: ((self multiByteConvert: 'abc') truncate: 1 ellipsis: '') = 'a'. - self assert: ((self multiByteConvert: 'abc') truncate: 0 ellipsis: 'none') = 'none' \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/properties.json b/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/properties.json deleted file mode 100644 index 9b178028..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRStringTest.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRStringTest" } diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st b/repository/Grease-Tests-GemStone32-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st deleted file mode 100644 index 86b72193..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-tests-gemstone32-core -expectedFailures - ^ #() "all tests pass in GemStone 3.2" \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRUtf8CodecTest.extension/properties.json b/repository/Grease-Tests-GemStone32-Core.package/GRUtf8CodecTest.extension/properties.json deleted file mode 100644 index 8b1a3361..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/GRUtf8CodecTest.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRUtf8CodecTest" } diff --git a/repository/Grease-Tests-GemStone32-Core.package/monticello.meta/categories.st b/repository/Grease-Tests-GemStone32-Core.package/monticello.meta/categories.st deleted file mode 100644 index 601b1fa0..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Tests-GemStone32-Core'! diff --git a/repository/Grease-Tests-GemStone32-Core.package/monticello.meta/initializers.st b/repository/Grease-Tests-GemStone32-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-GemStone32-Core.package/monticello.meta/package b/repository/Grease-Tests-GemStone32-Core.package/monticello.meta/package deleted file mode 100644 index 8584d7db..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-GemStone32-Core') \ No newline at end of file diff --git a/repository/Grease-Tests-GemStone32-Core.package/properties.json b/repository/Grease-Tests-GemStone32-Core.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-Tests-GemStone32-Core.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Grease-Tests-GemStone32-Core/GRDoubleByteStringTest.class.st b/repository/Grease-Tests-GemStone32-Core/GRDoubleByteStringTest.class.st new file mode 100644 index 00000000..b847ddf8 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core/GRDoubleByteStringTest.class.st @@ -0,0 +1,16 @@ +Class { + #name : 'GRDoubleByteStringTest', + #superclass : 'GRStringTest', + #category : 'Grease-Tests-GemStone32-Core', + #package : 'Grease-Tests-GemStone32-Core' +} + +{ #category : 'configuration' } +GRDoubleByteStringTest >> arbitraryCollection [ + ^ 'fadbbc' asDoubleByteString +] + +{ #category : 'configuration' } +GRDoubleByteStringTest >> collectionClass [ + ^ DoubleByteString +] diff --git a/repository/Grease-Tests-GemStone32-Core/GRGemStonePlatformTest.class.st b/repository/Grease-Tests-GemStone32-Core/GRGemStonePlatformTest.class.st new file mode 100644 index 00000000..6a5b17b6 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core/GRGemStonePlatformTest.class.st @@ -0,0 +1,64 @@ +Class { + #name : 'GRGemStonePlatformTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-GemStone32-Core', + #package : 'Grease-Tests-GemStone32-Core' +} + +{ #category : 'testing' } +GRGemStonePlatformTest >> testCompileIntoClassified [ + | source protocol selectors selector | + source := 'aMethod + ^ ''a result'''. + protocol := 'a-protocol'. + selector := #aMethod. + + GRPlatform current compile: source into: self class classified: protocol. + [ + self assert: (self class selectors includes: selector). + selectors := self class organization listAtCategoryNamed: protocol. + self assert: selectors = (Array with: selector). + ] ensure: [ + self class removeSelectorSilently: selector. + ]. +] + +{ #category : 'testing' } +GRGemStonePlatformTest >> testConvertToSmalltalkNewlines [ + "GemStone uses lf as native newline character" + + | expected got codePoint euro | + expected := 'selector', String lf, '"comment"'. + got := GRPlatform current convertToSmalltalkNewlines: expected. + codePoint := (got at: 9) codePoint. + self assert: expected = got. + self assert: expected = (GRPlatform current + convertToSmalltalkNewlines: ('selector', String lf, '"comment"')). + self assert: expected = (GRPlatform current + convertToSmalltalkNewlines: ('selector', String crlf, '"comment"')). + + euro := (String with: (Character value: 8364)). + self assert: expected, euro = (GRPlatform current + convertToSmalltalkNewlines: expected, euro). + + self assert: (GRPlatform current convertToSmalltalkNewlines: nil) isNil +] + +{ #category : 'as yet unclassified' } +GRGemStonePlatformTest >> testEncoderForUtf8Roundtrip [ + | codec encoded string writeStream | + codec := GRCodec forEncoding: 'utf-8'. + "byte array with utf8 encoded characters 'a umlaut' and 'a'" + encoded := ByteArray with: 195 with: 164 with: 97. + string := (codec decoderFor: encoded readStream) next: 10. + self assert: string size = 2. + self assert: (string at: 1) asciiValue = 228. + self assert: (string at: 2) asciiValue = 97. + writeStream := String new writeStream. + self assert: ((codec encoderFor: writeStream) nextPutAll: string) contents = encoded. +] + +{ #category : 'testing' } +GRGemStonePlatformTest >> testFullName [ + self assert: Object fullName = #'Object' +] diff --git a/repository/Grease-Tests-GemStone32-Core/GRNumberTest.extension.st b/repository/Grease-Tests-GemStone32-Core/GRNumberTest.extension.st new file mode 100644 index 00000000..f7198cc3 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core/GRNumberTest.extension.st @@ -0,0 +1,25 @@ +Extension { #name : 'GRNumberTest' } + +{ #category : '*grease-tests-gemstone32-core' } +GRNumberTest >> addBlockToCollection: collection with: ea [ + + collection add: [ea] +] + +{ #category : '*grease-tests-gemstone32-core' } +GRNumberTest >> expectedFailures [ + "GemStone does not conform to the ANSI standard in this case" + + ((System stoneVersionAt: 'gsVersion') beginsWith: '2.') ifTrue: [ ^#( #testToDoClosures ) ]. + ^#() +] + +{ #category : '*grease-tests-gemstone32-core' } +GRNumberTest >> testToDoClosuresGemStone [ + "workaround for non-ANSI compliance" + + | collection | + collection := OrderedCollection new. + 1 to: 5 do: [ :ea | self addBlockToCollection: collection with: ea ]. + self assert: (collection collect: [ :ea | ea value ]) asArray = #(1 2 3 4 5) +] diff --git a/repository/Grease-Tests-GemStone32-Core/GRPackage.extension.st b/repository/Grease-Tests-GemStone32-Core/GRPackage.extension.st new file mode 100644 index 00000000..c94febf7 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core/GRPackage.extension.st @@ -0,0 +1,12 @@ +Extension { #name : 'GRPackage' } + +{ #category : '*grease-tests-gemstone32-core' } +GRPackage class >> greaseTestsGemStoneCore [ + + ^ self new + name: 'Grease-Tests-GemStone32-Core'; + addDependency: 'Grease-GemStone-Core'; + addDependency: 'Grease-Tests-Core'; + url: #gemstoneUrl; + yourself +] diff --git a/repository/Grease-Tests-GemStone32-Core/GRPlatformTest.extension.st b/repository/Grease-Tests-GemStone32-Core/GRPlatformTest.extension.st new file mode 100644 index 00000000..d306ae06 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core/GRPlatformTest.extension.st @@ -0,0 +1,15 @@ +Extension { #name : 'GRPlatformTest' } + +{ #category : '*grease-tests-gemstone32-core' } +GRPlatformTest >> writeToFile: aStringOrByteArray withFileNameDo: aBlock [ + | fileName directory | + fileName := 'GRGemStonePlatformTest'. + directory := ServerFileDirectory default. + [ + GRPlatform current + write: aStringOrByteArray + toFile: fileName + inFolder: directory fullName. + aBlock value: directory fullName , GRPlatform current pathSeparator , fileName ] + ensure: [ directory deleteFileNamed: fileName ] +] diff --git a/repository/Grease-Tests-GemStone32-Core/GRQuadByteStringTest.class.st b/repository/Grease-Tests-GemStone32-Core/GRQuadByteStringTest.class.st new file mode 100644 index 00000000..687eda49 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core/GRQuadByteStringTest.class.st @@ -0,0 +1,16 @@ +Class { + #name : 'GRQuadByteStringTest', + #superclass : 'GRStringTest', + #category : 'Grease-Tests-GemStone32-Core', + #package : 'Grease-Tests-GemStone32-Core' +} + +{ #category : 'configuration' } +GRQuadByteStringTest >> arbitraryCollection [ + ^ 'fadbbc' asQuadByteString +] + +{ #category : 'configuration' } +GRQuadByteStringTest >> collectionClass [ + ^ QuadByteString +] diff --git a/repository/Grease-Tests-GemStone32-Core/GRStringTest.extension.st b/repository/Grease-Tests-GemStone32-Core/GRStringTest.extension.st new file mode 100644 index 00000000..3f911342 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core/GRStringTest.extension.st @@ -0,0 +1,78 @@ +Extension { #name : 'GRStringTest' } + +{ #category : '*grease-tests-gemstone32-core' } +GRStringTest >> multiByteConvert: aString [ + + ^self collectionClass withAll: aString +] + +{ #category : '*grease-tests-gemstone32-core' } +GRStringTest >> testMultiByteCapitalized [ + self assert: (self multiByteConvert: 'capitalized') capitalized = 'Capitalized'. + self assert: (self multiByteConvert: 'Capitalized') capitalized = 'Capitalized' . + self assert: (self multiByteConvert: 'CAPITALIZED') capitalized = 'CAPITALIZED' . +] + +{ #category : '*grease-tests-gemstone32-core' } +GRStringTest >> testMultiByteExcerpt [ + self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 0) = '...c...'. + self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 1) = '...bcd...'. + self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 2) = (self multiByteConvert: 'abcde'). + self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 3) = (self multiByteConvert: 'abcde'). + + self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 0 ellipsis: 'x') = 'xcx'. + self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 1 ellipsis: 'x') = 'xbcdx'. + self assert: ((self multiByteConvert: 'abcde') excerpt: 'c' radius: 2 ellipsis: 'x') = (self multiByteConvert: 'abcde') +] + +{ #category : '*grease-tests-gemstone32-core' } +GRStringTest >> testMultiByteSubStrings [ + "#subStrings: is defined by ANSI 5.7.10.15: + Answer an array containing the substrings in the receiver separated by the elements of separators." + | mimeType tokens | + mimeType := (self multiByteConvert: 'application/xhtml+xml'). + tokens := mimeType subStrings: '/'. + self assert: tokens size = 2. + self assert: tokens first = 'application'. + self assert: tokens second = 'xhtml+xml'. + + "ANSI is a bit unclear on how multiple sequential delimiters should be treated. + Make sure behaviour is consistent for several delimiters in a row (taken from + Squeak's behaviour)" + tokens := (self multiByteConvert: 'abc,.def.ghi') subStrings: '.,'. + self assert: tokens size = 3. + self assert: tokens first = 'abc'. + self assert: tokens second = 'def'. + self assert: tokens third = 'ghi'. + + "also ensure behavior consistent for several delimiters in a row at beginning and end of string...for completeness" + tokens := (self multiByteConvert: ',.abc,.def.ghi.,') subStrings: '.,'. + self assert: tokens size = 3. + self assert: tokens first = 'abc'. + self assert: tokens second = 'def'. + self assert: tokens third = 'ghi'. +] + +{ #category : '*grease-tests-gemstone32-core' } +GRStringTest >> testMultiByteTrimBoth [ + self assert: (self multiByteConvert: '') trimBoth = ''. + self assert: (self multiByteConvert: ' ') trimBoth = ''. + self assert: (self multiByteConvert: ' ') trimBoth = ''. + self assert: (self multiByteConvert: 'foo') trimBoth = 'foo'. + self assert: (self multiByteConvert: ' foo ') trimBoth = 'foo'. + self assert: (self multiByteConvert: ' foo ') trimBoth = 'foo'. + self assert: ((self collectionClass with: Character cr), ' foo ') trimBoth = 'foo'. + + self assert: ((self multiByteConvert: 'aabbaa') trimBoth: [ :each | each = $a ]) = 'bb'. + self assert: ((self multiByteConvert: 'bbaabb') trimBoth: [ :each | each = $a ]) = 'bbaabb' +] + +{ #category : '*grease-tests-gemstone32-core' } +GRStringTest >> testMultiByteTruncate [ + self assert: ((self multiByteConvert: 'abc') truncate) = (self multiByteConvert: 'abc'). + self assert: ((self multiByteConvert: 'abc') truncate: 3) = (self multiByteConvert: 'abc'). + self assert: ((self multiByteConvert: 'abc') truncate: 2) = 'ab...'. + + self assert: ((self multiByteConvert: 'abc') truncate: 1 ellipsis: '') = 'a'. + self assert: ((self multiByteConvert: 'abc') truncate: 0 ellipsis: 'none') = 'none' +] diff --git a/repository/Grease-Tests-GemStone32-Core/GRUtf8CodecTest.extension.st b/repository/Grease-Tests-GemStone32-Core/GRUtf8CodecTest.extension.st new file mode 100644 index 00000000..2406afb9 --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core/GRUtf8CodecTest.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'GRUtf8CodecTest' } + +{ #category : '*grease-tests-gemstone32-core' } +GRUtf8CodecTest >> expectedFailures [ + ^ #() "all tests pass in GemStone 3.2" +] diff --git a/repository/Grease-Tests-GemStone32-Core/package.st b/repository/Grease-Tests-GemStone32-Core/package.st new file mode 100644 index 00000000..fd487a4a --- /dev/null +++ b/repository/Grease-Tests-GemStone32-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Tests-GemStone32-Core' } diff --git a/repository/Grease-Tests-Pharo-Core.package/.filetree b/repository/Grease-Tests-Pharo-Core.package/.filetree deleted file mode 100644 index 57a67973..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/class/greaseTestsPharoCore.st b/repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/class/greaseTestsPharoCore.st deleted file mode 100644 index faa9bf79..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/class/greaseTestsPharoCore.st +++ /dev/null @@ -1,9 +0,0 @@ -*Grease-Tests-Pharo-Core -greaseTestsPharoCore - ^ self new - name: 'Grease-Tests-Pharo-Core'; - description: 'Unit tests for the package Grease-Pharo-Core.'; - addDependency: 'Grease-Pharo-Core'; - addDependency: 'Grease-Tests-Core'; - url: #greaseUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/properties.json b/repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/properties.json deleted file mode 100644 index ae522a7e..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRPackage" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/README.md b/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/assert.next.startingAt.gives..st b/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/assert.next.startingAt.gives..st deleted file mode 100644 index ded3d577..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/assert.next.startingAt.gives..st +++ /dev/null @@ -1,10 +0,0 @@ -private -assert: aString next: anInteger startingAt: startIndex gives: anEncodedString - | actual encoder | - encoder := GRCodec forEncoding: 'utf-8'. - actual := encoder encodedStringClass streamContents: [ :stream | - ((GRCodec forEncoding: 'utf-8') encoderFor: stream) - greaseNext: anInteger putAll: aString startingAt: startIndex ]. - encoder encodedStringClass == ByteArray - ifTrue:[ self assert: actual = anEncodedString asByteArray ] - ifFalse:[ self assert: actual = anEncodedString ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/assertEncodingIgnoresLanguageTat..st b/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/assertEncodingIgnoresLanguageTat..st deleted file mode 100644 index 622b446b..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/assertEncodingIgnoresLanguageTat..st +++ /dev/null @@ -1,7 +0,0 @@ -private -assertEncodingIgnoresLanguageTat: aStringWithLanguageTag - | codec withLanguageTag withoutLanguageTag | - codec := GRCodec forEncoding: 'utf-8'. - withLanguageTag := codec encode: aStringWithLanguageTag. - withoutLanguageTag := codec encode: (self stripLeadingCharFrom: aStringWithLanguageTag). - self assert: withLanguageTag = withoutLanguageTag \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/stripLeadingCharFrom..st b/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/stripLeadingCharFrom..st deleted file mode 100644 index 8f85d506..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/stripLeadingCharFrom..st +++ /dev/null @@ -1,8 +0,0 @@ -private -stripLeadingCharFrom: aString - "strips the leadingChar from every character in the given string" - ^ String streamContents: [ :stream | - aString do: [ :each | - stream nextPut: (Character - leadingChar: 0 - code: each greaseInteger) ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testAllCodesIncludesIso88591.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testAllCodesIncludesIso88591.st deleted file mode 100644 index 3922305f..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testAllCodesIncludesIso88591.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -testAllCodesIncludesIso88591 - self assert: (GRCodec allCodecs anySatisfy: [ :each | - each name = 'iso-8859-1' ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testGreaseNextPutAllStartingAt.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testGreaseNextPutAllStartingAt.st deleted file mode 100644 index fe0c4411..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/instance/testGreaseNextPutAllStartingAt.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testGreaseNextPutAllStartingAt - | umlaut encodedUmlaut | - umlaut := String with: (Character codePoint: 228). - ((GRCodec forEncoding: 'utf-8') encodedStringClass == ByteArray) - ifTrue:[ encodedUmlaut := ByteArray with: 195 with: 164 ] - ifFalse:[ encodedUmlaut := String with: (Character codePoint: 195) with: (Character codePoint: 164) ]. - self assert: 'ab' next: 1 startingAt: 1 gives: 'a'. - self assert: 'a', umlaut, 'b' next: 1 startingAt: 1 gives: 'a'. - self assert: 'ab', umlaut next: 1 startingAt: 1 gives: 'a'. - self assert: 'a', umlaut, 'b' next: 2 startingAt: 1 gives: 'a', encodedUmlaut. - self assert: 'a', umlaut, 'b' next: 1 startingAt: 2 gives: encodedUmlaut. - self assert: 'a', umlaut, 'b' next: 2 startingAt: 2 gives: encodedUmlaut, 'b'. - self assert: 'a', umlaut, umlaut next: 2 startingAt: 2 gives: encodedUmlaut, encodedUmlaut. - self assert: 'ab', umlaut, 'b', umlaut next: 3 startingAt: 2 gives: 'b', encodedUmlaut, 'b' \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/properties.json b/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/properties.json deleted file mode 100644 index 4ab9f669..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoCodecTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Pharo-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoCodecTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/README.md b/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/expectedFailures.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/expectedFailures.st deleted file mode 100644 index 197de855..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/expectedFailures.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -expectedFailures - ^ #(testFromStringThreeDigit) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testAllColors.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testAllColors.st deleted file mode 100644 index b483e1a5..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testAllColors.st +++ /dev/null @@ -1,12 +0,0 @@ -testing -testAllColors - | toTest | - toTest := #( - 16r000000 16r000001 16r000101 16r010101 16r010100 16r010000 16r001001 16r101001 - 16r001122 16r334455 16r667788 16r99AABB 16rCCDDEE 16rFF0011 - 16r123456 16r789ABC 16rDEFEDC - 16rFEFEEF 16rFEFEFF 16rFEFEFE 16rFFFEFE 16rFFFFFE 16rFFFFFF). - toTest do: [ :int | - | hex | - hex := int printPaddedWith: $0 to: 6 base: 16. - self assert: (Color fromString: hex) asHTMLColor asLowercase = ('#', hex) asLowercase ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testColorAsHtmlColor.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testColorAsHtmlColor.st deleted file mode 100644 index fcb5dcbb..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testColorAsHtmlColor.st +++ /dev/null @@ -1,19 +0,0 @@ -testing -testColorAsHtmlColor - "test for: - Color >> #hex - | aStream | - aStream := (String new: 6) writeStream. - aStream nextPutAll: (((self red * 255) asInteger printStringBase: 16) - padded: #left to: 2 with: $0). - aStream nextPutAll: (((self green * 255) asInteger printStringBase: 16) - padded: #left to: 2 with: $0). - aStream nextPutAll: (((self blue * 255) asInteger printStringBase: 16) - padded: #left to: 2 with: $0). - ^ aStream contents - - Color >> #asHTMLColor - ^ '#', self hex" - self assert: (#('#ffffff' '#FFFFFF' ) includes: Color white asHTMLColor). - self assert: (Color black asHTMLColor = '#000000'). - self assert: (#('#ff0000' '#FF0000' ) includes: Color red asHTMLColor) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testFromSixDigit.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testFromSixDigit.st deleted file mode 100644 index 639a183a..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testFromSixDigit.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testFromSixDigit - self assert: (Color fromString: 'ff0000') = Color red. - self assert: (Color fromString: 'FF0000') = Color red. - self assert: (Color fromString: '#ff0000') = Color red. - self assert: (Color fromString: '#FF0000') = Color red diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testFromStringName.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testFromStringName.st deleted file mode 100644 index 821c945e..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testFromStringName.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testFromStringName - self assert: (Color fromString: 'red') = Color red. - self assert: (Color fromString: 'RED') = Color red. - self assert: (Color fromString: '#red') = Color red. - self assert: (Color fromString: '#RED') = Color red diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testFromStringSixDigit.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testFromStringSixDigit.st deleted file mode 100644 index e9b720fc..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testFromStringSixDigit.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testFromStringSixDigit - self assert: (Color fromString: 'ff0000') = Color red. - self assert: (Color fromString: 'FF0000') = Color red. - self assert: (Color fromString: '#ff0000') = Color red. - self assert: (Color fromString: '#FF0000') = Color red diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testFromStringThreeDigit.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testFromStringThreeDigit.st deleted file mode 100644 index 3ae0aeac..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/instance/testFromStringThreeDigit.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testFromStringThreeDigit - self assert: (Color fromString: 'f00') = Color red. - self assert: (Color fromString: 'F00') = Color red. - self assert: (Color fromString: '#f00') = Color red. - self assert: (Color fromString: '#F00') = Color red \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/properties.json b/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/properties.json deleted file mode 100644 index d2512288..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoColorTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Pharo-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoColorTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/README.md b/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st deleted file mode 100644 index 341866ff..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/instance/testNoAmbiguities.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testNoAmbiguities - (Smalltalk includesKey: #GRPharoGenericCodec) ifTrue:[ - #('utf-8' 'UTF-8' 'utf8') do: [ :each | - self deny: ((Smalltalk at: #GRPharoGenericCodec) supportsEncoding: each) ]. - GRPharoLatin1Codec supportedEncodingNames do: [ :each | - self deny: ((Smalltalk at: #GRPharoGenericCodec) supportsEncoding: each) ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/properties.json b/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/properties.json deleted file mode 100644 index 5a620d00..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoGenericCodecTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Pharo-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoGenericCodecTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/README.md b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/runCase.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/runCase.st deleted file mode 100644 index 74f6fc77..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/runCase.st +++ /dev/null @@ -1,3 +0,0 @@ -running -runCase - GRPharoPlatform current doSilently: [ super performTest ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st deleted file mode 100644 index 8fe4388c..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testCompileIntoClassified.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testCompileIntoClassified - | source protocol selectors selector | - source := 'aMethod - ^ ''a result'''. - protocol := 'a-protocol'. - selector := #aMethod. - GRPlatform current - compile: source - into: self class - classified: protocol. - - [ self assert: (self class selectors includes: selector). - selectors := self class selectorsInProtocol: protocol. - self assert: selectors = (Array with: selector) ] ensure: [ self class removeSelector: selector ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testDeprecationExceptionSet.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testDeprecationExceptionSet.st deleted file mode 100644 index 33cfb193..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testDeprecationExceptionSet.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testDeprecationExceptionSet - | value | - value := [ - "intentially send Pharo instead of Grease deprecation message" - self deprecated: 'test'. - 'failed' ] - on: GRDeprecatedApiNotification, GRPlatform current deprecationExceptionSet - do: [ :e | 'passed' ]. - self assert: value = 'passed' \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testFullName.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testFullName.st deleted file mode 100644 index 18bfc31b..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testFullName.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testFullName - self assert: Object fullName = 'Object' \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st deleted file mode 100644 index c6c6c2ea..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testGreaseIntegerOnCharacter.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testGreaseIntegerOnCharacter - | character | - character := Character codePoint: 19982. - self assert: character greaseInteger = 19982. - character := Unicode value: 19982. - self assert: character greaseInteger = 19982 \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st deleted file mode 100644 index b1c2016e..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st +++ /dev/null @@ -1,33 +0,0 @@ -tests -testMessageSendValueWithPossibleArguments - | send | - send := MessageSend receiver: 1 selector: #+. - self assert: (send valueWithPossibleArguments: (Array with: 2)) = 3. - self assert: (send valueWithArguments: (Array with: 2)) = 3. - self assert: (send value: 2) = 3. - - send := MessageSend receiver: false selector: #not. - self assert: (send valueWithPossibleArguments: (Array with: 3)). - - send := MessageSend receiver: 1 selector: #+ arguments: #(2). - self assert: (send valueWithPossibleArguments: (Array with: 4)) = 3. - self assert: send value = 3. - - send := MessageSend receiver: Array selector: #with:with: arguments: #(1). - self assert: (send valueWithPossibleArguments: (Array with: 2)) size = 2. - - send := MessageSend receiver: Array selector: #with:with:. - self assert: (send value: 1 value: 2) size = 2. - - send := MessageSend - receiver: 1 - selector: #+. - self assert: send argumentCount = 1. - self assert: send arguments size = 0. - - send := MessageSend - receiver: 1 - selector: #+ - argument: 2. - self assert: send argumentCount isZero. - self assert: send arguments size = 1 \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderTextUTF8.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderTextUTF8.st deleted file mode 100644 index a85ee772..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderTextUTF8.st +++ /dev/null @@ -1,7 +0,0 @@ -tests-filestreams -testReadWriteToFileInFolderTextUTF8 - #('Übèrstrîñgé' '£ęλ~') do:[ :text | - self - writeToFile: text - withFileNameDo:[ :fileName | - self assert: text equals: (GRPlatform current contentsOfFile: fileName binary: false) ] ]. \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testUseByteArrayLiterals.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testUseByteArrayLiterals.st deleted file mode 100644 index 65cfb81c..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testUseByteArrayLiterals.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testUseByteArrayLiterals - | useByteArrayLiterals | - useByteArrayLiterals := GRPlatform current useByteArrayLiterals. - self assert: (useByteArrayLiterals or: [ useByteArrayLiterals not ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/writeToFile.withFileNameDo..st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/writeToFile.withFileNameDo..st deleted file mode 100644 index 8600ec62..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/writeToFile.withFileNameDo..st +++ /dev/null @@ -1,12 +0,0 @@ -private -writeToFile: aStringOrByteArray withFileNameDo: aBlock - | fileName directory | - fileName := 'GRPharoPlatformTest'. - directory := FileSystem disk workingDirectory. - [ GRPlatform current - write: aStringOrByteArray - toFile: fileName - inFolder: directory fullName. - aBlock value: directory fullName,GRPlatform current pathSeparator,fileName - ] ensure: [ - (directory / fileName) delete ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/properties.json b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/properties.json deleted file mode 100644 index 806464d0..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Pharo-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "GRPharoPlatformTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st b/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st deleted file mode 100644 index 4d8e31eb..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Tests-Pharo-Core -testScaledDecimalGreaseString - self assert: 123.4s1 greaseString = '123.4'. - self assert: 123.4s2 greaseString = '123.40'. - self assert: 123s0 greaseString = '123' \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st b/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st deleted file mode 100644 index 2085b080..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st +++ /dev/null @@ -1,12 +0,0 @@ -*Grease-Tests-Pharo-Core -writeToFile: aStringOrByteArray withFileNameDo: aBlock - | fileName directory | - fileName := 'GRPharoPlatformTest'. - directory := FileSystem disk workingDirectory. - [ GRPlatform current - write: aStringOrByteArray - toFile: fileName - inFolder: directory fullName. - aBlock value: directory fullName,GRPlatform current pathSeparator,fileName - ] ensure: [ - (directory / fileName) delete ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/properties.json b/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/properties.json deleted file mode 100644 index 63c6422f..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPlatformTest.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRPlatformTest" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st b/repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st deleted file mode 100644 index a118fc23..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st +++ /dev/null @@ -1,19 +0,0 @@ -*Grease-Tests-Pharo-Core -testScaledDecimalPrinter - | converter | - converter := GRNumberPrinter new precision: 2. - self assert: (converter print: 1.009s3) = '1.01'. - self assert: (converter print: 1.01s2) = '1.01'. - self assert: (converter print: 1.019s3) = '1.02'. - self assert: (converter print: 1.25s2) = '1.25'. - self assert: (converter print: 1.254s3) = '1.25'. - self assert: (converter print: 1.256s3) = '1.26'. - self assert: (converter print: 1.009s3) = '1.01'. - self assert: (converter print: 0.9s1) = '0.90'. - self assert: (converter print: 0.99s2) = '0.99'. - self assert: (converter print: 0.999s3) = '1.00'. - self assert: (converter print: 0.9999s4) = '1.00'. - self assert: (converter print: -0.9s1) = '0.90'. - self assert: (converter print: -0.99s2) = '0.99'. - self assert: (converter print: -0.999s3) = '1.00'. - self assert: (converter print: -0.9999s4) = '1.00' \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/properties.json b/repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/properties.json deleted file mode 100644 index c4ec57ca..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRPrinterTest.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRPrinterTest" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st b/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st deleted file mode 100644 index 15a035a8..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st +++ /dev/null @@ -1,5 +0,0 @@ -*Grease-Tests-Pharo-Core -expectedFailures - ^ SystemVersion current major < 9 - ifTrue: [ #(testCodecUtf8ShortestForm) ] - ifFalse:[ #() ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/properties.json b/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/properties.json deleted file mode 100644 index 3821af97..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/GRUtf8CodecTest.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRUtf8CodecTest" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st b/repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st deleted file mode 100644 index 7bce97a3..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -self packageOrganizer ensurePackage: #'Grease-Tests-Pharo-Core' withTags: #()! diff --git a/repository/Grease-Tests-Pharo-Core.package/monticello.meta/initializers.st b/repository/Grease-Tests-Pharo-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Pharo-Core.package/monticello.meta/package b/repository/Grease-Tests-Pharo-Core.package/monticello.meta/package deleted file mode 100644 index 647f3643..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-Pharo-Core') \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core.package/properties.json b/repository/Grease-Tests-Pharo-Core.package/properties.json deleted file mode 100644 index 6f31cf5a..00000000 --- a/repository/Grease-Tests-Pharo-Core.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Core/GRPackage.extension.st b/repository/Grease-Tests-Pharo-Core/GRPackage.extension.st new file mode 100644 index 00000000..3a0a24f4 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core/GRPackage.extension.st @@ -0,0 +1,12 @@ +Extension { #name : 'GRPackage' } + +{ #category : '*Grease-Tests-Pharo-Core' } +GRPackage class >> greaseTestsPharoCore [ + ^ self new + name: 'Grease-Tests-Pharo-Core'; + description: 'Unit tests for the package Grease-Pharo-Core.'; + addDependency: 'Grease-Pharo-Core'; + addDependency: 'Grease-Tests-Core'; + url: #greaseUrl; + yourself +] diff --git a/repository/Grease-Tests-Pharo-Core/GRPharoCodecTest.class.st b/repository/Grease-Tests-Pharo-Core/GRPharoCodecTest.class.st new file mode 100644 index 00000000..3d922276 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core/GRPharoCodecTest.class.st @@ -0,0 +1,60 @@ +Class { + #name : 'GRPharoCodecTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Pharo-Core', + #package : 'Grease-Tests-Pharo-Core' +} + +{ #category : 'private' } +GRPharoCodecTest >> assert: aString next: anInteger startingAt: startIndex gives: anEncodedString [ + | actual encoder | + encoder := GRCodec forEncoding: 'utf-8'. + actual := encoder encodedStringClass streamContents: [ :stream | + ((GRCodec forEncoding: 'utf-8') encoderFor: stream) + greaseNext: anInteger putAll: aString startingAt: startIndex ]. + encoder encodedStringClass == ByteArray + ifTrue:[ self assert: actual = anEncodedString asByteArray ] + ifFalse:[ self assert: actual = anEncodedString ] +] + +{ #category : 'private' } +GRPharoCodecTest >> assertEncodingIgnoresLanguageTat: aStringWithLanguageTag [ + | codec withLanguageTag withoutLanguageTag | + codec := GRCodec forEncoding: 'utf-8'. + withLanguageTag := codec encode: aStringWithLanguageTag. + withoutLanguageTag := codec encode: (self stripLeadingCharFrom: aStringWithLanguageTag). + self assert: withLanguageTag = withoutLanguageTag +] + +{ #category : 'private' } +GRPharoCodecTest >> stripLeadingCharFrom: aString [ + "strips the leadingChar from every character in the given string" + ^ String streamContents: [ :stream | + aString do: [ :each | + stream nextPut: (Character + leadingChar: 0 + code: each greaseInteger) ] ] +] + +{ #category : 'tests' } +GRPharoCodecTest >> testAllCodesIncludesIso88591 [ + self assert: (GRCodec allCodecs anySatisfy: [ :each | + each name = 'iso-8859-1' ]) +] + +{ #category : 'tests' } +GRPharoCodecTest >> testGreaseNextPutAllStartingAt [ + | umlaut encodedUmlaut | + umlaut := String with: (Character codePoint: 228). + ((GRCodec forEncoding: 'utf-8') encodedStringClass == ByteArray) + ifTrue:[ encodedUmlaut := ByteArray with: 195 with: 164 ] + ifFalse:[ encodedUmlaut := String with: (Character codePoint: 195) with: (Character codePoint: 164) ]. + self assert: 'ab' next: 1 startingAt: 1 gives: 'a'. + self assert: 'a', umlaut, 'b' next: 1 startingAt: 1 gives: 'a'. + self assert: 'ab', umlaut next: 1 startingAt: 1 gives: 'a'. + self assert: 'a', umlaut, 'b' next: 2 startingAt: 1 gives: 'a', encodedUmlaut. + self assert: 'a', umlaut, 'b' next: 1 startingAt: 2 gives: encodedUmlaut. + self assert: 'a', umlaut, 'b' next: 2 startingAt: 2 gives: encodedUmlaut, 'b'. + self assert: 'a', umlaut, umlaut next: 2 startingAt: 2 gives: encodedUmlaut, encodedUmlaut. + self assert: 'ab', umlaut, 'b', umlaut next: 3 startingAt: 2 gives: 'b', encodedUmlaut, 'b' +] diff --git a/repository/Grease-Tests-Pharo-Core/GRPharoColorTest.class.st b/repository/Grease-Tests-Pharo-Core/GRPharoColorTest.class.st new file mode 100644 index 00000000..9da8c3ec --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core/GRPharoColorTest.class.st @@ -0,0 +1,81 @@ +Class { + #name : 'GRPharoColorTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Pharo-Core', + #package : 'Grease-Tests-Pharo-Core' +} + +{ #category : 'testing' } +GRPharoColorTest >> expectedFailures [ + ^ #(testFromStringThreeDigit) +] + +{ #category : 'testing' } +GRPharoColorTest >> testAllColors [ + | toTest | + toTest := #( + 16r000000 16r000001 16r000101 16r010101 16r010100 16r010000 16r001001 16r101001 + 16r001122 16r334455 16r667788 16r99AABB 16rCCDDEE 16rFF0011 + 16r123456 16r789ABC 16rDEFEDC + 16rFEFEEF 16rFEFEFF 16rFEFEFE 16rFFFEFE 16rFFFFFE 16rFFFFFF). + toTest do: [ :int | + | hex | + hex := int printPaddedWith: $0 to: 6 base: 16. + self assert: (Color fromString: hex) asHTMLColor asLowercase = ('#', hex) asLowercase ] +] + +{ #category : 'testing' } +GRPharoColorTest >> testColorAsHtmlColor [ + "test for: + Color >> #hex + | aStream | + aStream := (String new: 6) writeStream. + aStream nextPutAll: (((self red * 255) asInteger printStringBase: 16) + padded: #left to: 2 with: $0). + aStream nextPutAll: (((self green * 255) asInteger printStringBase: 16) + padded: #left to: 2 with: $0). + aStream nextPutAll: (((self blue * 255) asInteger printStringBase: 16) + padded: #left to: 2 with: $0). + ^ aStream contents + + Color >> #asHTMLColor + ^ '#', self hex" + self assert: (#('#ffffff' '#FFFFFF' ) includes: Color white asHTMLColor). + self assert: (Color black asHTMLColor = '#000000'). + self assert: (#('#ff0000' '#FF0000' ) includes: Color red asHTMLColor) +] + +{ #category : 'testing' } +GRPharoColorTest >> testFromSixDigit [ + self assert: (Color fromString: 'ff0000') = Color red. + self assert: (Color fromString: 'FF0000') = Color red. + self assert: (Color fromString: '#ff0000') = Color red. + self assert: (Color fromString: '#FF0000') = Color red + +] + +{ #category : 'testing' } +GRPharoColorTest >> testFromStringName [ + self assert: (Color fromString: 'red') = Color red. + self assert: (Color fromString: 'RED') = Color red. + self assert: (Color fromString: '#red') = Color red. + self assert: (Color fromString: '#RED') = Color red + +] + +{ #category : 'testing' } +GRPharoColorTest >> testFromStringSixDigit [ + self assert: (Color fromString: 'ff0000') = Color red. + self assert: (Color fromString: 'FF0000') = Color red. + self assert: (Color fromString: '#ff0000') = Color red. + self assert: (Color fromString: '#FF0000') = Color red + +] + +{ #category : 'testing' } +GRPharoColorTest >> testFromStringThreeDigit [ + self assert: (Color fromString: 'f00') = Color red. + self assert: (Color fromString: 'F00') = Color red. + self assert: (Color fromString: '#f00') = Color red. + self assert: (Color fromString: '#F00') = Color red +] diff --git a/repository/Grease-Tests-Pharo-Core/GRPharoGenericCodecTest.class.st b/repository/Grease-Tests-Pharo-Core/GRPharoGenericCodecTest.class.st new file mode 100644 index 00000000..d1825be4 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core/GRPharoGenericCodecTest.class.st @@ -0,0 +1,15 @@ +Class { + #name : 'GRPharoGenericCodecTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Pharo-Core', + #package : 'Grease-Tests-Pharo-Core' +} + +{ #category : 'tests' } +GRPharoGenericCodecTest >> testNoAmbiguities [ + (Smalltalk includesKey: #GRPharoGenericCodec) ifTrue:[ + #('utf-8' 'UTF-8' 'utf8') do: [ :each | + self deny: ((Smalltalk at: #GRPharoGenericCodec) supportsEncoding: each) ]. + GRPharoLatin1Codec supportedEncodingNames do: [ :each | + self deny: ((Smalltalk at: #GRPharoGenericCodec) supportsEncoding: each) ] ] +] diff --git a/repository/Grease-Tests-Pharo-Core/GRPharoPlatformTest.class.st b/repository/Grease-Tests-Pharo-Core/GRPharoPlatformTest.class.st new file mode 100644 index 00000000..97f0b63a --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core/GRPharoPlatformTest.class.st @@ -0,0 +1,119 @@ +Class { + #name : 'GRPharoPlatformTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Pharo-Core', + #package : 'Grease-Tests-Pharo-Core' +} + +{ #category : 'running' } +GRPharoPlatformTest >> runCase [ + GRPharoPlatform current doSilently: [ super performTest ] +] + +{ #category : 'tests' } +GRPharoPlatformTest >> testCompileIntoClassified [ + | source protocol selectors selector | + source := 'aMethod + ^ ''a result'''. + protocol := 'a-protocol'. + selector := #aMethod. + GRPlatform current + compile: source + into: self class + classified: protocol. + + [ self assert: (self class selectors includes: selector). + selectors := self class selectorsInProtocol: protocol. + self assert: selectors = (Array with: selector) ] ensure: [ self class removeSelector: selector ] +] + +{ #category : 'tests' } +GRPharoPlatformTest >> testDeprecationExceptionSet [ + | value | + value := [ + "intentially send Pharo instead of Grease deprecation message" + self deprecated: 'test'. + 'failed' ] + on: GRDeprecatedApiNotification, GRPlatform current deprecationExceptionSet + do: [ :e | 'passed' ]. + self assert: value = 'passed' +] + +{ #category : 'tests' } +GRPharoPlatformTest >> testFullName [ + self assert: Object fullName = 'Object' +] + +{ #category : 'tests' } +GRPharoPlatformTest >> testGreaseIntegerOnCharacter [ + | character | + character := Character codePoint: 19982. + self assert: character greaseInteger = 19982. + character := Unicode value: 19982. + self assert: character greaseInteger = 19982 +] + +{ #category : 'tests' } +GRPharoPlatformTest >> testMessageSendValueWithPossibleArguments [ + | send | + send := MessageSend receiver: 1 selector: #+. + self assert: (send valueWithPossibleArguments: (Array with: 2)) = 3. + self assert: (send valueWithArguments: (Array with: 2)) = 3. + self assert: (send value: 2) = 3. + + send := MessageSend receiver: false selector: #not. + self assert: (send valueWithPossibleArguments: (Array with: 3)). + + send := MessageSend receiver: 1 selector: #+ arguments: #(2). + self assert: (send valueWithPossibleArguments: (Array with: 4)) = 3. + self assert: send value = 3. + + send := MessageSend receiver: Array selector: #with:with: arguments: #(1). + self assert: (send valueWithPossibleArguments: (Array with: 2)) size = 2. + + send := MessageSend receiver: Array selector: #with:with:. + self assert: (send value: 1 value: 2) size = 2. + + send := MessageSend + receiver: 1 + selector: #+. + self assert: send argumentCount = 1. + self assert: send arguments size = 0. + + send := MessageSend + receiver: 1 + selector: #+ + argument: 2. + self assert: send argumentCount isZero. + self assert: send arguments size = 1 +] + +{ #category : 'tests-filestreams' } +GRPharoPlatformTest >> testReadWriteToFileInFolderTextUTF8 [ + #('Übèrstrîñgé' '£ęλ~') do:[ :text | + self + writeToFile: text + withFileNameDo:[ :fileName | + self assert: text equals: (GRPlatform current contentsOfFile: fileName binary: false) ] ]. +] + +{ #category : 'tests' } +GRPharoPlatformTest >> testUseByteArrayLiterals [ + | useByteArrayLiterals | + useByteArrayLiterals := GRPlatform current useByteArrayLiterals. + self assert: (useByteArrayLiterals or: [ useByteArrayLiterals not ]) +] + +{ #category : 'private' } +GRPharoPlatformTest >> writeToFile: aStringOrByteArray withFileNameDo: aBlock [ + | fileName directory | + fileName := 'GRPharoPlatformTest'. + directory := FileSystem disk workingDirectory. + [ GRPlatform current + write: aStringOrByteArray + toFile: fileName + inFolder: directory fullName. + aBlock value: directory fullName,GRPlatform current pathSeparator,fileName + ] ensure: [ + (directory / fileName) delete ] +] diff --git a/repository/Grease-Tests-Pharo-Core/GRPlatformTest.extension.st b/repository/Grease-Tests-Pharo-Core/GRPlatformTest.extension.st new file mode 100644 index 00000000..3e1fdc2b --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core/GRPlatformTest.extension.st @@ -0,0 +1,22 @@ +Extension { #name : 'GRPlatformTest' } + +{ #category : '*Grease-Tests-Pharo-Core' } +GRPlatformTest >> testScaledDecimalGreaseString [ + self assert: 123.4s1 greaseString = '123.4'. + self assert: 123.4s2 greaseString = '123.40'. + self assert: 123s0 greaseString = '123' +] + +{ #category : '*Grease-Tests-Pharo-Core' } +GRPlatformTest >> writeToFile: aStringOrByteArray withFileNameDo: aBlock [ + | fileName directory | + fileName := 'GRPharoPlatformTest'. + directory := FileSystem disk workingDirectory. + [ GRPlatform current + write: aStringOrByteArray + toFile: fileName + inFolder: directory fullName. + aBlock value: directory fullName,GRPlatform current pathSeparator,fileName + ] ensure: [ + (directory / fileName) delete ] +] diff --git a/repository/Grease-Tests-Pharo-Core/GRPrinterTest.extension.st b/repository/Grease-Tests-Pharo-Core/GRPrinterTest.extension.st new file mode 100644 index 00000000..d03a6d70 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core/GRPrinterTest.extension.st @@ -0,0 +1,22 @@ +Extension { #name : 'GRPrinterTest' } + +{ #category : '*Grease-Tests-Pharo-Core' } +GRPrinterTest >> testScaledDecimalPrinter [ + | converter | + converter := GRNumberPrinter new precision: 2. + self assert: (converter print: 1.009s3) = '1.01'. + self assert: (converter print: 1.01s2) = '1.01'. + self assert: (converter print: 1.019s3) = '1.02'. + self assert: (converter print: 1.25s2) = '1.25'. + self assert: (converter print: 1.254s3) = '1.25'. + self assert: (converter print: 1.256s3) = '1.26'. + self assert: (converter print: 1.009s3) = '1.01'. + self assert: (converter print: 0.9s1) = '0.90'. + self assert: (converter print: 0.99s2) = '0.99'. + self assert: (converter print: 0.999s3) = '1.00'. + self assert: (converter print: 0.9999s4) = '1.00'. + self assert: (converter print: -0.9s1) = '0.90'. + self assert: (converter print: -0.99s2) = '0.99'. + self assert: (converter print: -0.999s3) = '1.00'. + self assert: (converter print: -0.9999s4) = '1.00' +] diff --git a/repository/Grease-Tests-Pharo-Core/GRUtf8CodecTest.extension.st b/repository/Grease-Tests-Pharo-Core/GRUtf8CodecTest.extension.st new file mode 100644 index 00000000..6a3d1a59 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core/GRUtf8CodecTest.extension.st @@ -0,0 +1,8 @@ +Extension { #name : 'GRUtf8CodecTest' } + +{ #category : '*Grease-Tests-Pharo-Core' } +GRUtf8CodecTest >> expectedFailures [ + ^ SystemVersion current major < 9 + ifTrue: [ #(testCodecUtf8ShortestForm) ] + ifFalse:[ #() ] +] diff --git a/repository/Grease-Tests-Pharo-Core/package.st b/repository/Grease-Tests-Pharo-Core/package.st new file mode 100644 index 00000000..32ede20a --- /dev/null +++ b/repository/Grease-Tests-Pharo-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Tests-Pharo-Core' } diff --git a/repository/Grease-Tests-Pharo-Slime.package/.filetree b/repository/Grease-Tests-Pharo-Slime.package/.filetree deleted file mode 100644 index 57a67973..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/README.md b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/assertRule.matches..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/assertRule.matches..st deleted file mode 100644 index 65b1cddd..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/assertRule.matches..st +++ /dev/null @@ -1,4 +0,0 @@ -running-checks -assertRule: aRuleClass matches: expectedMatches - - self assertRule: aRuleClass matches: expectedMatches ignoring: Array new \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/assertRule.matches.ignoring..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/assertRule.matches.ignoring..st deleted file mode 100644 index d2c4aa91..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/assertRule.matches.ignoring..st +++ /dev/null @@ -1,13 +0,0 @@ -running-checks -assertRule: aRuleClass matches: expectedMatches ignoring: ignoredRuleClasses - - self run: aRuleClass ignoring: ignoredRuleClasses do: [ :critiques | | critiquedEntities | - critiquedEntities := critiques collect:[ :critique | critique sourceAnchor entity ]. - critiquedEntities do:[ :critiquedEntity | - self - assert: (expectedMatches includes: critiquedEntity) - description: ('{1} should not be reported' format: { critiquedEntity printString }) ]. - expectedMatches do: [ :expectedEntity | - self - assert: (critiquedEntities includes: expectedEntity) - description: ('{1} should be reported' format: { expectedEntity printString }) ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/canParse..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/canParse..st deleted file mode 100644 index ddf9adbc..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/canParse..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing-code -canParse: aString - - RBParser - parseMethod: aString - onError: [ :err :pos | ^ false ]. - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/category.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/category.st deleted file mode 100644 index e4bff2ba..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/category.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing-code -category - - ^ self class category , '-Data' \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/compile.in..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/compile.in..st deleted file mode 100644 index cb2577d5..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/compile.in..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing-code -compile: aString in: aClass - - GRPlatform current - compile: aString - into: aClass - classified: #accessing \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineClass.superclass..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineClass.superclass..st deleted file mode 100644 index 9769e83e..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineClass.superclass..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing-code -defineClass: aClassSymbol superclass: aSuperSymbol - "For compatibility" - ^ self defineSubClassOf: aSuperSymbol \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf..st deleted file mode 100644 index fdcf43d7..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing-code -defineSubClassOf: aSuperSymbol - - ^ self defineSubClassOf: aSuperSymbol inPackage: self category \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf.inPackage..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf.inPackage..st deleted file mode 100644 index 9ad6f16a..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/defineSubClassOf.inPackage..st +++ /dev/null @@ -1,20 +0,0 @@ -accessing-code -defineSubClassOf: aSuperSymbol inPackage: packageName - - | class | - class := SystemVersion current major >= 12 - ifTrue: [ - factory make: [ :aBuilder | - aBuilder - superclass: (Smalltalk at: aSuperSymbol); - package: packageName ] ] - ifFalse: [ - factory - newSubclassOf: (Smalltalk at: aSuperSymbol) - instanceVariableNames: '' - classVariableNames: 'classVarsString' - category: packageName ]. - environment - addClass: class; - addClass: class classSide. - ^ class \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/expectedFailures.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/expectedFailures.st deleted file mode 100644 index 8c178caf..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/expectedFailures.st +++ /dev/null @@ -1,6 +0,0 @@ -running -expectedFailures - - SystemVersion current major >= 12 ifTrue:[ ^ #() ]. - - ^ #(#testEmptyStatements) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/rules.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/rules.st deleted file mode 100644 index 46d95352..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/rules.st +++ /dev/null @@ -1,10 +0,0 @@ -running -rules - - ^ (OrderedCollection new - addAll: GRReSlimeBlockLintRule allSubclasses; - addAll: GRReSlimeParseTreeLintRule allSubclasses; - addAll: GRReSlimeTransformationRule allSubclasses; - add: ReMultiplePeriodsTerminatingStatementRule; - add: ReMethodSignaturePeriodRule; - yourself) reject: #isAbstract \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/run.ignoring.do..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/run.ignoring.do..st deleted file mode 100644 index b6ec29e2..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/run.ignoring.do..st +++ /dev/null @@ -1,28 +0,0 @@ -running-checks -run: aRuleClass ignoring: ignoredRuleClasses do: aBlock - - | rules rule runner | - rules := self rules - collect: [ :each | each new ]. - rule := rules - detect: [ :each | each isKindOf: aRuleClass ] - ifNone: [ self error: ('{1} is not a slime rule' format: { aRuleClass name }) ]. - self - assert: (rule name isString and: [ rule name notEmpty ]) - description: aRuleClass name , ' has no name'. - self - assert: (rule rationale isString and: [ rule rationale notEmpty and: [ rule rationale endsWithSubCollection: '.' ] ]) - description: aRuleClass name , ' has no rationale'. - runner := ReSmalllintChecker new. - rules do: [ :each | - runner - rule: { each }; - environment: environment; - run ]. - rules do: [ :each | | result | - result := runner criticsOf: each. - self - assert: (rule = each or: [ result isEmpty or: [ ignoredRuleClasses includes: each class ] ]) - description: ('{1} should not report errors' format: { each name }) ]. - aBlock value: (runner criticsOf: rule). - ^ rule \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/runCase.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/runCase.st deleted file mode 100644 index a508309b..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/runCase.st +++ /dev/null @@ -1,4 +0,0 @@ -running -runCase - - GRPlatform current doSilently: [ super runCase ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/runTransformation.changes..st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/runTransformation.changes..st deleted file mode 100644 index 2bbd5df3..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/runTransformation.changes..st +++ /dev/null @@ -1,15 +0,0 @@ -running-checks -runTransformation: aClass changes: aCollection - - | expected | - expected := aCollection collect: [ :each | RBParser parseMethod: each ]. - self run: aClass ignoring: Array new do: [ :critiques | | changes | - changes := critiques collect:[ :critique | critique change ]. - changes do: [ :change | - self - assert: (expected anySatisfy: [ :parseTree | change parseTree = parseTree ]) - description: ('{1} should not be transformed' format: { change selector }) ]. - expected do: [ :parseTree | - self - assert: (changes anySatisfy: [ :change | change parseTree = parseTree ]) - description: ('{1} should be transformed' format: { parseTree selector }) ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/setUp.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/setUp.st deleted file mode 100644 index 1ba40656..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/setUp.st +++ /dev/null @@ -1,7 +0,0 @@ -running -setUp - - super setUp. - factory := ClassFactoryForTestCase new. - model := RBNamespace new. - environment := RBClassEnvironment new \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/tearDown.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/tearDown.st deleted file mode 100644 index 82f6aabd..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/tearDown.st +++ /dev/null @@ -1,5 +0,0 @@ -running -tearDown - - super tearDown. - factory cleanUp \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiBooleansRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiBooleansRule.st deleted file mode 100644 index fc3a5aee..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiBooleansRule.st +++ /dev/null @@ -1,12 +0,0 @@ -tests-transform -testAnsiBooleansRule - - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'and 1 and: [ 2 ] and: [ 3 ] and: [ 4 ]' in: class. - self compile: 'or 1 or: [ 2 ] or: [ 3 ] or: [ 4 ]' in: class. - self - runTransformation: GRAnsiBooleansRule - changes: #( - 'and 1 and: [ 2 and: [ 3 and: [ 4 ] ] ]' - 'or 1 or: [ 2 or: [ 3 or: [ 4 ] ] ]' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCharacterRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCharacterRule.st deleted file mode 100644 index ddc22642..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCharacterRule.st +++ /dev/null @@ -1,11 +0,0 @@ -tests-transform -testAnsiCharacterRule - - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'character Character value: 123' in: class. - self compile: 'characterRange $a to: $c' in: class. - self compile: 'integerRange 1 to: 10' in: class. - self - runTransformation: GRAnsiCharactersRule - changes: #('character Character codePoint: 123' 'characterRange ''abc''') \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCollectionsRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCollectionsRule.st deleted file mode 100644 index 85726226..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCollectionsRule.st +++ /dev/null @@ -1,37 +0,0 @@ -tests-transform -testAnsiCollectionsRule - - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'withIndexDo #() withIndexDo: [ :each :index | each + index ]' in: class. - self compile: 'doWithIndex #() doWithIndex: [ :each :index | each + index ]' in: class. - self compile: 'collectThenDo #() collect: [ :a | a ] thenDo: [ :b | b ]' in: class. - self compile: 'collectThenSelect #() collect: [ :a | a ] thenSelect: [ :b | true ]' in: class. - self compile: 'detectSum #(1 2) detectSum: [ :each | each ]' in: class. - self compile: 'detectSumMultiline #(1 2) detectSum: [ :each | #foo copy. each ]' in: class. - self compile: 'pairsDo #(1 2 3 4) pairsDo: [ :a :b | b ]' in: class. - self compile: 'rejectThenDo #() reject: [ :a | true ] thenDo: [ :b | b ]' in: class. - self compile: 'selectThenCollect #() select: [ :a | true ] thenCollect: [ :b | b ]' in: class. - self compile: 'selectThenDo #() select: [ :a | true ] thenDo: [ :b | b ]' in: class. - self compile: 'valuesDo #() valuesDo: [ :a | a ]' in: class. - self compile: 'reversed #() reversed' in: class. - self compile: 'keysSortedSafely Dictionary new keysSortedSafely' in: class. - self compile: 'newWithAll Array new: 4 withAll: $a' in: class. - self - runTransformation: GRAnsiCollectionsRule - changes: #( - 'withIndexDo #() keysAndValuesDo: [ :index :each | each + index ]' - 'doWithIndex #() keysAndValuesDo: [ :index :each | each + index ]' - 'collectThenDo (#() collect: [ :a | a ]) do: [ :b | b ]' - 'selectThenDo (#() select: [ :a | true ]) do: [ :b | b ]' - 'rejectThenDo (#() reject: [ :a | true ]) do: [ :b | b ]' - 'selectThenCollect (#() select: [ :a | true ]) collect: [ :b | b ]' - 'pairsDo 1 to: #(1 2 3 4) size by: 2 do: [ :index | | a b | a := #(1 2 3 4) at: index. b := #(1 2 3 4) at: index + 1. b ]' - 'collectThenSelect (#() collect: [ :a | a ]) select: [ :b | true ]' - 'detectSum #(1 2) inject: 0 into: [ :sum :each | sum + each ]' - 'detectSumMultiline #(1 2) inject: 0 into: [ :sum :each | #foo copy. sum + each ]' - 'valuesDo #() do: [ :a | a ]' - 'reversed #() reverse' - 'keysSortedSafely Dictionary new keys asSortedCollection' - 'newWithAll (Array new: 4) atAllPut: $a' - ) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiConditionalsRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiConditionalsRule.st deleted file mode 100644 index cffcbfa7..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiConditionalsRule.st +++ /dev/null @@ -1,12 +0,0 @@ -tests-transform -testAnsiConditionalsRule - - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'ifNotNil 1 ifNotNil: [ | a | self or. self and ]' in: class. - self compile: 'ifNotNilDo 1 ifNotNilDo: [ :a | ^ a ]' in: class. - self - runTransformation: GRAnsiConditionalsRule - changes: #( - 'ifNotNil 1 ifNotNil: [ :arg | | a | self or. self and ]' - 'ifNotNilDo 1 ifNotNil: [ :a | ^ a ]' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiConvertorRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiConvertorRule.st deleted file mode 100644 index b29370e2..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiConvertorRule.st +++ /dev/null @@ -1,12 +0,0 @@ -tests-transform -testAnsiConvertorRule - - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'convertInteger ''1'' asInteger' in: class. - self compile: 'convertString 2 asString' in: class. - self - runTransformation: GRAnsiConvertorRule - changes: #( - 'convertInteger ''1'' greaseInteger' - 'convertString 2 greaseString' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiExceptionsRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiExceptionsRule.st deleted file mode 100644 index 57b75a75..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiExceptionsRule.st +++ /dev/null @@ -1,14 +0,0 @@ -tests-transform -testAnsiExceptionsRule - - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'exception1 [ self or ] on: Error do: [ self or ]' in: class. - self compile: 'exception2 [ self or ] on: Error do: [ self or. self or ]' in: class. - self compile: 'exception3 [ self or ] on: Error do: [ | a | a := 0 ]' in: class. - self - runTransformation: GRAnsiExceptionsRule - changes: #( - 'exception1 [ self or ] on: Error do: [ :err | self or ]' - 'exception2 [ self or ] on: Error do: [ :err | self or. self or ]' - 'exception3 [ self or ] on: Error do: [ :err | | a | a := 0 ]' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiStreamsRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiStreamsRule.st deleted file mode 100644 index 7a8b3238..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiStreamsRule.st +++ /dev/null @@ -1,14 +0,0 @@ -tests-transform -testAnsiStreamsRule - - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'writeStream ^ '''' writeStream' in: class. - self compile: 'writeCr | stream | stream := WriteStream on: ''''. stream cr. stream nextPut: Character cr' in: class. - self compile: 'writeLf | stream | stream := WriteStream on: ''''. stream lf. stream nextPut: Character lf' in: class. - self - runTransformation: GRAnsiStreamsRule - changes: #( - 'writeStream ^ WriteStream on: ''''' - 'writeCr | stream | stream := WriteStream on: ''''. stream nextPut: Character cr. stream nextPut: Character cr' - 'writeLf | stream | stream := WriteStream on: ''''. stream nextPut: Character lf. stream nextPut: Character lf') \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiStringsRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiStringsRule.st deleted file mode 100644 index 9e0aeb9e..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiStringsRule.st +++ /dev/null @@ -1,28 +0,0 @@ -tests-transform -testAnsiStringsRule - - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'stringCr String cr, (String with: Character cr)' in: class. - self compile: 'stringTab String tab, (String with: Character tab)' in: class. - self compile: 'stringLf String lf, (String with: Character lf)' in: class. - self compile: 'stringCrLf String crlf, (String with: Character cr with: Character lf)' in: class. - self compile: 'stringSpace String space, (String with: Character space)' in: class. - self compile: 'findTokens ''123'' findTokens: '',''' in: class. - self compile: 'findTokensCharacter ''123'' findTokens: $,' in: class. - self compile: 'findTokensArray ''123'' findTokens: #($, $;)' in: class. - self compile: 'includesSubString ''1234'' includesSubString: ''23''' in: class. - self compile: 'includesSubString ''1234'' includesSubstring: ''23''' in: class. - self - runTransformation: GRAnsiStringsRule - changes: #( - 'stringCr (String with: Character cr), (String with: Character cr)' - 'stringTab (String with: Character tab), (String with: Character tab)' - 'stringLf (String with: Character lf), (String with: Character lf)' - 'stringCrLf (String with: Character cr with: Character lf), (String with: Character cr with: Character lf)' - 'stringSpace (String with: Character space), (String with: Character space)' - 'findTokens ''123'' subStrings: '',''' - 'findTokensCharacter ''123'' subStrings: '',''' - 'findTokensArray ''123'' subStrings: '',;''' - 'includesSubString (''1234'' indexOfSubCollection: ''23'' startingAt: 0) ~= 0' - 'includesSubString (''1234'' indexOfSubCollection: ''23'' startingAt: 0) ~= 0') \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testBasicNewInitializeMissing.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testBasicNewInitializeMissing.st deleted file mode 100644 index 679e1393..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testBasicNewInitializeMissing.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-block -testBasicNewInitializeMissing - - | class | - class := self defineSubClassOf: #Object. - self compile: 'initialize' in: class. - self - assertRule: GRBasicNewInitializeMissingRule - matches: { class } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testDeprecatedApiProtocol.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testDeprecatedApiProtocol.st deleted file mode 100644 index bc229c20..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testDeprecatedApiProtocol.st +++ /dev/null @@ -1,11 +0,0 @@ -tests-parsetree -testDeprecatedApiProtocol - - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'deprecated1 self greaseDeprecatedApi: ''',class name,'>>#deprecated1'' details: ''Something.''' in: class. - self compile: 'deprecated2 self greaseDeprecatedApi: ''',class name,'>>#deprecated'' details: ''Something.''' in: class. - self compile: 'deprecated3 self greaseDeprecatedApi: ''GRSlimeMock>>#deprecated3'' details: ''Something.''' in: class. - self - assertRule: GRDeprecatedApiProtocolRule - matches: { class>>#deprecated2 . class>>#deprecated3 } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testEmptyStatements.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testEmptyStatements.st deleted file mode 100644 index 7e3c3a62..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testEmptyStatements.st +++ /dev/null @@ -1,18 +0,0 @@ -tests-block -testEmptyStatements - "We added this test to make sure that this Pharo-supplied rule works because we previously had this one in Grease and it is important." - - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'emptyStatement1.', (String with: Character cr), ' self and' in: class. - self compile: 'emptyStatement2', (String with: Character cr), ' self and..' in: class. - self compile: 'emptyStatement3', (String with: Character cr), ' self and."foo".' in: class. - self compile: 'emptyStatement4', (String with: Character cr), ' self and."foo".self and' in: class. - self - assertRule: ReMultiplePeriodsTerminatingStatementRule - matches: { class>>#emptyStatement2 . class>>#emptyStatement3 . class>>#emptyStatement4 } - ignoring: { ReMethodSignaturePeriodRule }. - self - assertRule: ReMethodSignaturePeriodRule - matches: { class>>#emptyStatement1 } - ignoring: { ReMultiplePeriodsTerminatingStatementRule }. \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testInvalidObjectInitialization.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testInvalidObjectInitialization.st deleted file mode 100644 index c7bddcd6..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testInvalidObjectInitialization.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-block -testInvalidObjectInitialization - - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'initializeFoo: aNumber' in: class. - self - assertRule: GRInvalidObjectInitializationRule - matches: { class>>#initializeFoo: } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testNonPortableMessageRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testNonPortableMessageRule.st deleted file mode 100644 index d5b8d927..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testNonPortableMessageRule.st +++ /dev/null @@ -1,15 +0,0 @@ -tests-block -testNonPortableMessageRule - - | class | - class := self defineSubClassOf: #GRObject. - - self compile: 'invalid1 ^ Array new anyOne' in: class. - self compile: 'valid1 ^ Array new first' in: class. - - self compile: 'invalid2 ^ Array new withIndexCollect: [ :each :index | each hash ]' in: class. - self compile: 'valid2 ^ Array new do: [ :each | each hash ]' in: class. - - self - assertRule: GRNonPortableMessageRule - matches: { class>>#invalid1 . class>>#invalid2 } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testNotPortableCollectionsRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testNotPortableCollectionsRule.st deleted file mode 100644 index ba64daef..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testNotPortableCollectionsRule.st +++ /dev/null @@ -1,12 +0,0 @@ -tests-transform -testNotPortableCollectionsRule - - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'beginsWith1 ''abc'' beginsWith: ''a''' in: class. - self compile: 'endsWith1 ''abc'' endsWith: ''a''' in: class. - self - runTransformation: GRNotPortableCollectionsRule - changes: #( - 'beginsWith1 ''abc'' greaseBeginsWith: ''a''' - 'endsWith1 ''abc'' greaseEndsWith: ''a''') \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testObjectIn.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testObjectIn.st deleted file mode 100644 index 5711be2a..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testObjectIn.st +++ /dev/null @@ -1,13 +0,0 @@ -tests-transform -testObjectIn - - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'objectIn1 1 in: [ :val | val factorial ]' in: class. - self compile: 'objectIn2 2 in: [ :val | | temps | val factorial ]' in: class. - self compile: 'objectIn3 2 in: [ ''not this'' ]' in: class. - self - runTransformation: GRObjectInRule - changes: #( - 'objectIn1 [ :val | val factorial ] value: 1' - 'objectIn2 [ :val | | temps | val factorial ] value: 2') \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testReferencesNotPortableClass.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testReferencesNotPortableClass.st deleted file mode 100644 index a3070f80..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testReferencesNotPortableClass.st +++ /dev/null @@ -1,10 +0,0 @@ -tests-block -testReferencesNotPortableClass - - | class | - class := self defineSubClassOf: #GRObject inPackage: 'SomeCategory'. - self compile: 'invalid ^ Semaphore new' in: class. - self compile: 'valid ^ GRObject new' in: class. - self - assertRule: GRReferencesNotPortableClassRule - matches: { class>>#invalid } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testSubclassesNotPortableClass.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testSubclassesNotPortableClass.st deleted file mode 100644 index c86dc173..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testSubclassesNotPortableClass.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-block -testSubclassesNotPortableClass - - | class | - class := self defineSubClassOf: #Mutex inPackage: 'SomeCategory'. - self - assertRule: GRSubclassesNotPortableClassRule - matches: { class } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule.st deleted file mode 100644 index 1fecfedc..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-transform -testTestCaseFailRule - - | class | - class := self defineSubClassOf: #TestCase. - self compile: 'testMethod self fail' in: class. - self - runTransformation: GRTestAssertionsRule - changes: #( 'testMethod self assert: false' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule2.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule2.st deleted file mode 100644 index 13e098a6..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testTestCaseFailRule2.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-transform -testTestCaseFailRule2 - - | class | - class := self defineSubClassOf: #Object. - self compile: 'method self fail' in: class. - self - runTransformation: GRTestAssertionsRule - changes: #( ) \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesCanPerformOrUnderstand.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesCanPerformOrUnderstand.st deleted file mode 100644 index 5573c829..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesCanPerformOrUnderstand.st +++ /dev/null @@ -1,20 +0,0 @@ -tests-parsetree -testUsesCanPerformOrUnderstand - - | class | - class := self defineSubClassOf: #GRObject. - self - compile: 'invalid1 - Object class canUnderstand: #new' - in: class. - self - compile: 'invalid2 - Object class canPerform: #new' - in: class. - self - compile: 'valid - Object respondsTo: #new' - in: class. - self - assertRule: GRUsesCanPerformOrUnderstandRule - matches: { class>>#invalid1 . class>>#invalid2 } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesClassForHash.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesClassForHash.st deleted file mode 100644 index 7b934bbe..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesClassForHash.st +++ /dev/null @@ -1,16 +0,0 @@ -tests-parsetree -testUsesClassForHash - - | class | - class := self defineSubClassOf: #GRObject. - self - compile: 'foo - ^ super hash bitXor: self class hash' - in: class. - self - compile: 'hash - ^ super hash bitXor: self class hash' - in: class. - self - assertRule: GRUsesClassForHashRule - matches: { class>>#hash } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesNotPortableClass.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesNotPortableClass.st deleted file mode 100644 index f65d00a4..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testUsesNotPortableClass.st +++ /dev/null @@ -1,10 +0,0 @@ -tests-block -testUsesNotPortableClass - - | class | - class := self defineSubClassOf: #GRObject inPackage: 'SomeCategory'. - self compile: 'invalid ^ Semaphore new' in: class. - self compile: 'valid ^ GRObject new' in: class. - self - assertRule: GRReferencesNotPortableClassRule - matches: { class>>#invalid } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/properties.json b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/properties.json deleted file mode 100644 index b4ebf23f..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Pharo-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "model", - "environment", - "factory" - ], - "name" : "GRReSlimeTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/categories.st b/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/categories.st deleted file mode 100644 index 6c2ac5ef..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Tests-Pharo-Slime'! diff --git a/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/initializers.st b/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/package b/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/package deleted file mode 100644 index e2360038..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-Pharo-Slime') \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime.package/properties.json b/repository/Grease-Tests-Pharo-Slime.package/properties.json deleted file mode 100644 index 6f31cf5a..00000000 --- a/repository/Grease-Tests-Pharo-Slime.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/repository/Grease-Tests-Pharo-Slime/GRReSlimeTest.class.st b/repository/Grease-Tests-Pharo-Slime/GRReSlimeTest.class.st new file mode 100644 index 00000000..d2b19276 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime/GRReSlimeTest.class.st @@ -0,0 +1,532 @@ +Class { + #name : 'GRReSlimeTest', + #superclass : 'TestCase', + #instVars : [ + 'model', + 'environment', + 'factory' + ], + #category : 'Grease-Tests-Pharo-Slime', + #package : 'Grease-Tests-Pharo-Slime' +} + +{ #category : 'running-checks' } +GRReSlimeTest >> assertRule: aRuleClass matches: expectedMatches [ + + self assertRule: aRuleClass matches: expectedMatches ignoring: Array new +] + +{ #category : 'running-checks' } +GRReSlimeTest >> assertRule: aRuleClass matches: expectedMatches ignoring: ignoredRuleClasses [ + + self run: aRuleClass ignoring: ignoredRuleClasses do: [ :critiques | | critiquedEntities | + critiquedEntities := critiques collect:[ :critique | critique sourceAnchor entity ]. + critiquedEntities do:[ :critiquedEntity | + self + assert: (expectedMatches includes: critiquedEntity) + description: ('{1} should not be reported' format: { critiquedEntity printString }) ]. + expectedMatches do: [ :expectedEntity | + self + assert: (critiquedEntities includes: expectedEntity) + description: ('{1} should be reported' format: { expectedEntity printString }) ] ] +] + +{ #category : 'accessing-code' } +GRReSlimeTest >> canParse: aString [ + + RBParser + parseMethod: aString + onError: [ :err :pos | ^ false ]. + ^ true +] + +{ #category : 'accessing-code' } +GRReSlimeTest >> category [ + + ^ self class category , '-Data' +] + +{ #category : 'accessing-code' } +GRReSlimeTest >> compile: aString in: aClass [ + + GRPlatform current + compile: aString + into: aClass + classified: #accessing +] + +{ #category : 'accessing-code' } +GRReSlimeTest >> defineClass: aClassSymbol superclass: aSuperSymbol [ + "For compatibility" + ^ self defineSubClassOf: aSuperSymbol +] + +{ #category : 'accessing-code' } +GRReSlimeTest >> defineSubClassOf: aSuperSymbol [ + + ^ self defineSubClassOf: aSuperSymbol inPackage: self category +] + +{ #category : 'accessing-code' } +GRReSlimeTest >> defineSubClassOf: aSuperSymbol inPackage: packageName [ + + | class | + class := SystemVersion current major >= 12 + ifTrue: [ + factory make: [ :aBuilder | + aBuilder + superclass: (Smalltalk at: aSuperSymbol); + package: packageName ] ] + ifFalse: [ + factory + newSubclassOf: (Smalltalk at: aSuperSymbol) + instanceVariableNames: '' + classVariableNames: 'classVarsString' + category: packageName ]. + environment + addClass: class; + addClass: class classSide. + ^ class +] + +{ #category : 'running' } +GRReSlimeTest >> expectedFailures [ + + SystemVersion current major >= 12 ifTrue:[ ^ #() ]. + + ^ #(#testEmptyStatements) +] + +{ #category : 'running' } +GRReSlimeTest >> rules [ + + ^ (OrderedCollection new + addAll: GRReSlimeBlockLintRule allSubclasses; + addAll: GRReSlimeParseTreeLintRule allSubclasses; + addAll: GRReSlimeTransformationRule allSubclasses; + add: ReMultiplePeriodsTerminatingStatementRule; + add: ReMethodSignaturePeriodRule; + yourself) reject: #isAbstract +] + +{ #category : 'running-checks' } +GRReSlimeTest >> run: aRuleClass ignoring: ignoredRuleClasses do: aBlock [ + + | rules rule runner | + rules := self rules + collect: [ :each | each new ]. + rule := rules + detect: [ :each | each isKindOf: aRuleClass ] + ifNone: [ self error: ('{1} is not a slime rule' format: { aRuleClass name }) ]. + self + assert: (rule name isString and: [ rule name notEmpty ]) + description: aRuleClass name , ' has no name'. + self + assert: (rule rationale isString and: [ rule rationale notEmpty and: [ rule rationale endsWithSubCollection: '.' ] ]) + description: aRuleClass name , ' has no rationale'. + runner := ReSmalllintChecker new. + rules do: [ :each | + runner + rule: { each }; + environment: environment; + run ]. + rules do: [ :each | | result | + result := runner criticsOf: each. + self + assert: (rule = each or: [ result isEmpty or: [ ignoredRuleClasses includes: each class ] ]) + description: ('{1} should not report errors' format: { each name }) ]. + aBlock value: (runner criticsOf: rule). + ^ rule +] + +{ #category : 'running' } +GRReSlimeTest >> runCase [ + + GRPlatform current doSilently: [ super runCase ] +] + +{ #category : 'running-checks' } +GRReSlimeTest >> runTransformation: aClass changes: aCollection [ + + | expected | + expected := aCollection collect: [ :each | RBParser parseMethod: each ]. + self run: aClass ignoring: Array new do: [ :critiques | | changes | + changes := critiques collect:[ :critique | critique change ]. + changes do: [ :change | + self + assert: (expected anySatisfy: [ :parseTree | change parseTree = parseTree ]) + description: ('{1} should not be transformed' format: { change selector }) ]. + expected do: [ :parseTree | + self + assert: (changes anySatisfy: [ :change | change parseTree = parseTree ]) + description: ('{1} should be transformed' format: { parseTree selector }) ] ] +] + +{ #category : 'running' } +GRReSlimeTest >> setUp [ + + super setUp. + factory := ClassFactoryForTestCase new. + model := RBNamespace new. + environment := RBClassEnvironment new +] + +{ #category : 'running' } +GRReSlimeTest >> tearDown [ + + super tearDown. + factory cleanUp +] + +{ #category : 'tests-transform' } +GRReSlimeTest >> testAnsiBooleansRule [ + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'and 1 and: [ 2 ] and: [ 3 ] and: [ 4 ]' in: class. + self compile: 'or 1 or: [ 2 ] or: [ 3 ] or: [ 4 ]' in: class. + self + runTransformation: GRAnsiBooleansRule + changes: #( + 'and 1 and: [ 2 and: [ 3 and: [ 4 ] ] ]' + 'or 1 or: [ 2 or: [ 3 or: [ 4 ] ] ]' ) +] + +{ #category : 'tests-transform' } +GRReSlimeTest >> testAnsiCharacterRule [ + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'character Character value: 123' in: class. + self compile: 'characterRange $a to: $c' in: class. + self compile: 'integerRange 1 to: 10' in: class. + self + runTransformation: GRAnsiCharactersRule + changes: #('character Character codePoint: 123' 'characterRange ''abc''') +] + +{ #category : 'tests-transform' } +GRReSlimeTest >> testAnsiCollectionsRule [ + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'withIndexDo #() withIndexDo: [ :each :index | each + index ]' in: class. + self compile: 'doWithIndex #() doWithIndex: [ :each :index | each + index ]' in: class. + self compile: 'collectThenDo #() collect: [ :a | a ] thenDo: [ :b | b ]' in: class. + self compile: 'collectThenSelect #() collect: [ :a | a ] thenSelect: [ :b | true ]' in: class. + self compile: 'detectSum #(1 2) detectSum: [ :each | each ]' in: class. + self compile: 'detectSumMultiline #(1 2) detectSum: [ :each | #foo copy. each ]' in: class. + self compile: 'pairsDo #(1 2 3 4) pairsDo: [ :a :b | b ]' in: class. + self compile: 'rejectThenDo #() reject: [ :a | true ] thenDo: [ :b | b ]' in: class. + self compile: 'selectThenCollect #() select: [ :a | true ] thenCollect: [ :b | b ]' in: class. + self compile: 'selectThenDo #() select: [ :a | true ] thenDo: [ :b | b ]' in: class. + self compile: 'valuesDo #() valuesDo: [ :a | a ]' in: class. + self compile: 'reversed #() reversed' in: class. + self compile: 'keysSortedSafely Dictionary new keysSortedSafely' in: class. + self compile: 'newWithAll Array new: 4 withAll: $a' in: class. + self + runTransformation: GRAnsiCollectionsRule + changes: #( + 'withIndexDo #() keysAndValuesDo: [ :index :each | each + index ]' + 'doWithIndex #() keysAndValuesDo: [ :index :each | each + index ]' + 'collectThenDo (#() collect: [ :a | a ]) do: [ :b | b ]' + 'selectThenDo (#() select: [ :a | true ]) do: [ :b | b ]' + 'rejectThenDo (#() reject: [ :a | true ]) do: [ :b | b ]' + 'selectThenCollect (#() select: [ :a | true ]) collect: [ :b | b ]' + 'pairsDo 1 to: #(1 2 3 4) size by: 2 do: [ :index | | a b | a := #(1 2 3 4) at: index. b := #(1 2 3 4) at: index + 1. b ]' + 'collectThenSelect (#() collect: [ :a | a ]) select: [ :b | true ]' + 'detectSum #(1 2) inject: 0 into: [ :sum :each | sum + each ]' + 'detectSumMultiline #(1 2) inject: 0 into: [ :sum :each | #foo copy. sum + each ]' + 'valuesDo #() do: [ :a | a ]' + 'reversed #() reverse' + 'keysSortedSafely Dictionary new keys asSortedCollection' + 'newWithAll (Array new: 4) atAllPut: $a' + ) +] + +{ #category : 'tests-transform' } +GRReSlimeTest >> testAnsiConditionalsRule [ + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'ifNotNil 1 ifNotNil: [ | a | self or. self and ]' in: class. + self compile: 'ifNotNilDo 1 ifNotNilDo: [ :a | ^ a ]' in: class. + self + runTransformation: GRAnsiConditionalsRule + changes: #( + 'ifNotNil 1 ifNotNil: [ :arg | | a | self or. self and ]' + 'ifNotNilDo 1 ifNotNil: [ :a | ^ a ]' ) +] + +{ #category : 'tests-transform' } +GRReSlimeTest >> testAnsiConvertorRule [ + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'convertInteger ''1'' asInteger' in: class. + self compile: 'convertString 2 asString' in: class. + self + runTransformation: GRAnsiConvertorRule + changes: #( + 'convertInteger ''1'' greaseInteger' + 'convertString 2 greaseString' ) +] + +{ #category : 'tests-transform' } +GRReSlimeTest >> testAnsiExceptionsRule [ + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'exception1 [ self or ] on: Error do: [ self or ]' in: class. + self compile: 'exception2 [ self or ] on: Error do: [ self or. self or ]' in: class. + self compile: 'exception3 [ self or ] on: Error do: [ | a | a := 0 ]' in: class. + self + runTransformation: GRAnsiExceptionsRule + changes: #( + 'exception1 [ self or ] on: Error do: [ :err | self or ]' + 'exception2 [ self or ] on: Error do: [ :err | self or. self or ]' + 'exception3 [ self or ] on: Error do: [ :err | | a | a := 0 ]' ) +] + +{ #category : 'tests-transform' } +GRReSlimeTest >> testAnsiStreamsRule [ + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'writeStream ^ '''' writeStream' in: class. + self compile: 'writeCr | stream | stream := WriteStream on: ''''. stream cr. stream nextPut: Character cr' in: class. + self compile: 'writeLf | stream | stream := WriteStream on: ''''. stream lf. stream nextPut: Character lf' in: class. + self + runTransformation: GRAnsiStreamsRule + changes: #( + 'writeStream ^ WriteStream on: ''''' + 'writeCr | stream | stream := WriteStream on: ''''. stream nextPut: Character cr. stream nextPut: Character cr' + 'writeLf | stream | stream := WriteStream on: ''''. stream nextPut: Character lf. stream nextPut: Character lf') +] + +{ #category : 'tests-transform' } +GRReSlimeTest >> testAnsiStringsRule [ + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'stringCr String cr, (String with: Character cr)' in: class. + self compile: 'stringTab String tab, (String with: Character tab)' in: class. + self compile: 'stringLf String lf, (String with: Character lf)' in: class. + self compile: 'stringCrLf String crlf, (String with: Character cr with: Character lf)' in: class. + self compile: 'stringSpace String space, (String with: Character space)' in: class. + self compile: 'findTokens ''123'' findTokens: '',''' in: class. + self compile: 'findTokensCharacter ''123'' findTokens: $,' in: class. + self compile: 'findTokensArray ''123'' findTokens: #($, $;)' in: class. + self compile: 'includesSubString ''1234'' includesSubString: ''23''' in: class. + self compile: 'includesSubString ''1234'' includesSubstring: ''23''' in: class. + self + runTransformation: GRAnsiStringsRule + changes: #( + 'stringCr (String with: Character cr), (String with: Character cr)' + 'stringTab (String with: Character tab), (String with: Character tab)' + 'stringLf (String with: Character lf), (String with: Character lf)' + 'stringCrLf (String with: Character cr with: Character lf), (String with: Character cr with: Character lf)' + 'stringSpace (String with: Character space), (String with: Character space)' + 'findTokens ''123'' subStrings: '',''' + 'findTokensCharacter ''123'' subStrings: '',''' + 'findTokensArray ''123'' subStrings: '',;''' + 'includesSubString (''1234'' indexOfSubCollection: ''23'' startingAt: 0) ~= 0' + 'includesSubString (''1234'' indexOfSubCollection: ''23'' startingAt: 0) ~= 0') +] + +{ #category : 'tests-block' } +GRReSlimeTest >> testBasicNewInitializeMissing [ + + | class | + class := self defineSubClassOf: #Object. + self compile: 'initialize' in: class. + self + assertRule: GRBasicNewInitializeMissingRule + matches: { class } +] + +{ #category : 'tests-parsetree' } +GRReSlimeTest >> testDeprecatedApiProtocol [ + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'deprecated1 self greaseDeprecatedApi: ''',class name,'>>#deprecated1'' details: ''Something.''' in: class. + self compile: 'deprecated2 self greaseDeprecatedApi: ''',class name,'>>#deprecated'' details: ''Something.''' in: class. + self compile: 'deprecated3 self greaseDeprecatedApi: ''GRSlimeMock>>#deprecated3'' details: ''Something.''' in: class. + self + assertRule: GRDeprecatedApiProtocolRule + matches: { class>>#deprecated2 . class>>#deprecated3 } +] + +{ #category : 'tests-block' } +GRReSlimeTest >> testEmptyStatements [ + "We added this test to make sure that this Pharo-supplied rule works because we previously had this one in Grease and it is important." + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'emptyStatement1.', (String with: Character cr), ' self and' in: class. + self compile: 'emptyStatement2', (String with: Character cr), ' self and..' in: class. + self compile: 'emptyStatement3', (String with: Character cr), ' self and."foo".' in: class. + self compile: 'emptyStatement4', (String with: Character cr), ' self and."foo".self and' in: class. + self + assertRule: ReMultiplePeriodsTerminatingStatementRule + matches: { class>>#emptyStatement2 . class>>#emptyStatement3 . class>>#emptyStatement4 } + ignoring: { ReMethodSignaturePeriodRule }. + self + assertRule: ReMethodSignaturePeriodRule + matches: { class>>#emptyStatement1 } + ignoring: { ReMultiplePeriodsTerminatingStatementRule }. +] + +{ #category : 'tests-block' } +GRReSlimeTest >> testInvalidObjectInitialization [ + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'initializeFoo: aNumber' in: class. + self + assertRule: GRInvalidObjectInitializationRule + matches: { class>>#initializeFoo: } +] + +{ #category : 'tests-block' } +GRReSlimeTest >> testNonPortableMessageRule [ + + | class | + class := self defineSubClassOf: #GRObject. + + self compile: 'invalid1 ^ Array new anyOne' in: class. + self compile: 'valid1 ^ Array new first' in: class. + + self compile: 'invalid2 ^ Array new withIndexCollect: [ :each :index | each hash ]' in: class. + self compile: 'valid2 ^ Array new do: [ :each | each hash ]' in: class. + + self + assertRule: GRNonPortableMessageRule + matches: { class>>#invalid1 . class>>#invalid2 } +] + +{ #category : 'tests-transform' } +GRReSlimeTest >> testNotPortableCollectionsRule [ + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'beginsWith1 ''abc'' beginsWith: ''a''' in: class. + self compile: 'endsWith1 ''abc'' endsWith: ''a''' in: class. + self + runTransformation: GRNotPortableCollectionsRule + changes: #( + 'beginsWith1 ''abc'' greaseBeginsWith: ''a''' + 'endsWith1 ''abc'' greaseEndsWith: ''a''') +] + +{ #category : 'tests-transform' } +GRReSlimeTest >> testObjectIn [ + + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'objectIn1 1 in: [ :val | val factorial ]' in: class. + self compile: 'objectIn2 2 in: [ :val | | temps | val factorial ]' in: class. + self compile: 'objectIn3 2 in: [ ''not this'' ]' in: class. + self + runTransformation: GRObjectInRule + changes: #( + 'objectIn1 [ :val | val factorial ] value: 1' + 'objectIn2 [ :val | | temps | val factorial ] value: 2') +] + +{ #category : 'tests-block' } +GRReSlimeTest >> testReferencesNotPortableClass [ + + | class | + class := self defineSubClassOf: #GRObject inPackage: 'SomeCategory'. + self compile: 'invalid ^ Semaphore new' in: class. + self compile: 'valid ^ GRObject new' in: class. + self + assertRule: GRReferencesNotPortableClassRule + matches: { class>>#invalid } +] + +{ #category : 'tests-block' } +GRReSlimeTest >> testSubclassesNotPortableClass [ + + | class | + class := self defineSubClassOf: #Mutex inPackage: 'SomeCategory'. + self + assertRule: GRSubclassesNotPortableClassRule + matches: { class } +] + +{ #category : 'tests-transform' } +GRReSlimeTest >> testTestCaseFailRule [ + + | class | + class := self defineSubClassOf: #TestCase. + self compile: 'testMethod self fail' in: class. + self + runTransformation: GRTestAssertionsRule + changes: #( 'testMethod self assert: false' ) +] + +{ #category : 'tests-transform' } +GRReSlimeTest >> testTestCaseFailRule2 [ + + | class | + class := self defineSubClassOf: #Object. + self compile: 'method self fail' in: class. + self + runTransformation: GRTestAssertionsRule + changes: #( ) +] + +{ #category : 'tests-parsetree' } +GRReSlimeTest >> testUsesCanPerformOrUnderstand [ + + | class | + class := self defineSubClassOf: #GRObject. + self + compile: 'invalid1 + Object class canUnderstand: #new' + in: class. + self + compile: 'invalid2 + Object class canPerform: #new' + in: class. + self + compile: 'valid + Object respondsTo: #new' + in: class. + self + assertRule: GRUsesCanPerformOrUnderstandRule + matches: { class>>#invalid1 . class>>#invalid2 } +] + +{ #category : 'tests-parsetree' } +GRReSlimeTest >> testUsesClassForHash [ + + | class | + class := self defineSubClassOf: #GRObject. + self + compile: 'foo + ^ super hash bitXor: self class hash' + in: class. + self + compile: 'hash + ^ super hash bitXor: self class hash' + in: class. + self + assertRule: GRUsesClassForHashRule + matches: { class>>#hash } +] + +{ #category : 'tests-block' } +GRReSlimeTest >> testUsesNotPortableClass [ + + | class | + class := self defineSubClassOf: #GRObject inPackage: 'SomeCategory'. + self compile: 'invalid ^ Semaphore new' in: class. + self compile: 'valid ^ GRObject new' in: class. + self + assertRule: GRReferencesNotPortableClassRule + matches: { class>>#invalid } +] diff --git a/repository/Grease-Tests-Pharo-Slime/package.st b/repository/Grease-Tests-Pharo-Slime/package.st new file mode 100644 index 00000000..6f09c1c4 --- /dev/null +++ b/repository/Grease-Tests-Pharo-Slime/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Tests-Pharo-Slime' } diff --git a/repository/Grease-Tests-Slime.package/.filetree b/repository/Grease-Tests-Slime.package/.filetree deleted file mode 100644 index 57a67973..00000000 --- a/repository/Grease-Tests-Slime.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRPackage.extension/class/greaseTestsSlime.st b/repository/Grease-Tests-Slime.package/GRPackage.extension/class/greaseTestsSlime.st deleted file mode 100644 index 0ef4a959..00000000 --- a/repository/Grease-Tests-Slime.package/GRPackage.extension/class/greaseTestsSlime.st +++ /dev/null @@ -1,8 +0,0 @@ -*grease-tests-slime -greaseTestsSlime - ^ self new - name: 'Grease-Tests-Slime'; - description: 'Unit tests for the package Grease-Slime.'; - addDependency: 'Grease-Pharo-Slime'; - url: #seasideUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRPackage.extension/properties.json b/repository/Grease-Tests-Slime.package/GRPackage.extension/properties.json deleted file mode 100644 index ae522a7e..00000000 --- a/repository/Grease-Tests-Slime.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRPackage" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/README.md b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/canParse..st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/canParse..st deleted file mode 100644 index 083ac05b..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/canParse..st +++ /dev/null @@ -1,6 +0,0 @@ -accessing-code -canParse: aString - RBParser - parseMethod: aString - onError: [ :err :pos | ^ false ]. - ^ true \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/category.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/category.st deleted file mode 100644 index cfe78bd0..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/category.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -category - ^ self class category , '-Data' \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/compile.in..st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/compile.in..st deleted file mode 100644 index cb2577d5..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/compile.in..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing-code -compile: aString in: aClass - - GRPlatform current - compile: aString - into: aClass - classified: #accessing \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineClass.superclass..st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineClass.superclass..st deleted file mode 100644 index 9769e83e..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineClass.superclass..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing-code -defineClass: aClassSymbol superclass: aSuperSymbol - "For compatibility" - ^ self defineSubClassOf: aSuperSymbol \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineSubClassOf..st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineSubClassOf..st deleted file mode 100644 index 4921f353..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/defineSubClassOf..st +++ /dev/null @@ -1,20 +0,0 @@ -accessing-code -defineSubClassOf: aSuperSymbol - - | class | - class := SystemVersion current major >= 12 - ifTrue: [ - factory make: [ :aBuilder | - aBuilder - superclass: (Smalltalk at: aSuperSymbol); - package: self category ] ] - ifFalse: [ - factory - newSubclassOf: (Smalltalk at: aSuperSymbol) - instanceVariableNames: '' - classVariableNames: 'classVarsString' - category: self category ]. - environment - addClass: class; - addClass: class theMetaClass. - ^ class \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/rules.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/rules.st deleted file mode 100644 index 2c7b8557..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/rules.st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -rules - ^ OrderedCollection new - addAll: GRSlimeBlockLintRule allSubclasses; - addAll: GRSlimeParseTreeLintRule allSubclasses; - addAll: GRSlimeTransformationRule allSubclasses; - yourself \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/run.do..st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/run.do..st deleted file mode 100644 index ef79f4af..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/run.do..st +++ /dev/null @@ -1,24 +0,0 @@ -running-checks -run: aClass do: aBlock - | rules rule composite undo | - rules := self rules - collect: [ :each | each new ]. - rule := rules - detect: [ :each | each isKindOf: aClass ] - ifNone: [ self error: aClass name , ' is not a slime rule' ]. - self - assert: (rule name isString and: [ rule name notEmpty ]) - description: aClass name , ' has no name'. - self - assert: (rule rationale isString and: [ rule rationale notEmpty and: [ rule rationale endsWithSubCollection: '.' ] ]) - description: aClass name , ' has no rationale'. - composite := RBCompositeLintRule rules: rules name: 'Slime'. - undo := model changes execute. - [ RBSmalllintChecker runRule: composite onEnvironment: environment. - rules do: [ :each | - self - assert: (rule = each or: [ each result isEmpty and: [ each changes isEmpty ] ]) - description: each name , ' should not report errors' ]. - aBlock value: rule value: rules ] - ensure: [ undo execute ]. - ^ rule \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/run.ignoring.do..st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/run.ignoring.do..st deleted file mode 100644 index 52eb3ebc..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/run.ignoring.do..st +++ /dev/null @@ -1,24 +0,0 @@ -running-checks -run: aClass ignoring: aCollectionOfClasses do: aBlock - | rules rule composite undo | - rules := self rules - collect: [ :each | each new ]. - rule := rules - detect: [ :each | each isKindOf: aClass ] - ifNone: [ self error: aClass name , ' is not a slime rule' ]. - self - assert: (rule name isString and: [ rule name notEmpty ]) - description: aClass name , ' has no name'. - self - assert: (rule rationale isString and: [ rule rationale notEmpty and: [ rule rationale endsWithSubCollection: '.' ] ]) - description: aClass name , ' has no rationale'. - composite := RBCompositeLintRule rules: rules name: 'Slime'. - undo := model changes execute. - [ RBSmalllintChecker runRule: composite onEnvironment: environment. - rules do: [ :each | - self - assert: (rule = each or: [ (each result isEmpty and: [ each changes isEmpty ]) or: [ aCollectionOfClasses includes: each class ] ]) - description: each name , ' should not report errors' ]. - aBlock value: rule value: rules ] - ensure: [ undo execute ]. - ^ rule \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/runCase.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/runCase.st deleted file mode 100644 index 9465625f..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/runCase.st +++ /dev/null @@ -1,3 +0,0 @@ -running -runCase - GRPlatform current doSilently: [ super runCase ] \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/runRule.selectors..st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/runRule.selectors..st deleted file mode 100644 index 491fd029..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/runRule.selectors..st +++ /dev/null @@ -1,3 +0,0 @@ -running-checks -runRule: aClass selectors: aCollection - self runRule: aClass selectors: aCollection ignoring: Array new \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/runRule.selectors.ignoring..st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/runRule.selectors.ignoring..st deleted file mode 100644 index 6104e852..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/runRule.selectors.ignoring..st +++ /dev/null @@ -1,12 +0,0 @@ -running-checks -runRule: aClass selectors: aCollection ignoring: aCollectionOfClasses - self run: aClass ignoring: aCollectionOfClasses do: [ :rule :rules | - rule result classesAndSelectorsDo: [ :class :selector | - self - assert: (aCollection includes: selector) - description: selector printString , ' should not be reported' ]. - aCollection do: [ :selector | - self - assert: (rule result classes - anySatisfy: [ :class | rule result includesSelector: selector in: class ]) - description: selector printString , ' should be reported' ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/runTransformation.changes..st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/runTransformation.changes..st deleted file mode 100644 index 991ef4f1..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/runTransformation.changes..st +++ /dev/null @@ -1,14 +0,0 @@ -running-checks -runTransformation: aClass changes: aCollection - | expected | - expected := aCollection - collect: [ :each | RBParser parseMethod: each ]. - self run: aClass ignoring: Array new do: [ :rule :rules | - rule changes do: [ :change | - self - assert: (expected anySatisfy: [ :parseTree | change parseTree = parseTree ]) - description: change selector , ' should not be transformed' ]. - expected do: [ :parseTree | - self - assert: (rule changes anySatisfy: [ :change | change parseTree = parseTree ]) - description: parseTree selector , ' should be transformed' ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/setUp.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/setUp.st deleted file mode 100644 index ee5004c0..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/setUp.st +++ /dev/null @@ -1,6 +0,0 @@ -running -setUp - super setUp. - factory := ClassFactoryForTestCase new. - model := RBNamespace new. - environment := RBClassEnvironment new \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/tearDown.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/tearDown.st deleted file mode 100644 index 82f6aabd..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/tearDown.st +++ /dev/null @@ -1,5 +0,0 @@ -running -tearDown - - super tearDown. - factory cleanUp \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiBooleansRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiBooleansRule.st deleted file mode 100644 index d4560588..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiBooleansRule.st +++ /dev/null @@ -1,11 +0,0 @@ -tests-transform -testAnsiBooleansRule - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'and 1 and: [ 2 ] and: [ 3 ] and: [ 4 ]' in: class. - self compile: 'or 1 or: [ 2 ] or: [ 3 ] or: [ 4 ]' in: class. - self - runTransformation: GRAnsiBooleansRule - changes: #( - 'and 1 and: [ 2 and: [ 3 and: [ 4 ] ] ]' - 'or 1 or: [ 2 or: [ 3 or: [ 4 ] ] ]' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiCharacterRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiCharacterRule.st deleted file mode 100644 index f8d58d84..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiCharacterRule.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-transform -testAnsiCharacterRule - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'character Character value: 123' in: class. - self compile: 'characterRange $a to: $c' in: class. - self - runTransformation: GRAnsiCharactersRule - changes: #('character Character codePoint: 123' 'characterRange ''abc''') \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiCollectionsRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiCollectionsRule.st deleted file mode 100644 index 8b101581..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiCollectionsRule.st +++ /dev/null @@ -1,36 +0,0 @@ -tests-transform -testAnsiCollectionsRule - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'withIndexDo #() withIndexDo: [ :each :index | each + index ]' in: class. - self compile: 'doWithIndex #() doWithIndex: [ :each :index | each + index ]' in: class. - self compile: 'collectThenDo #() collect: [ :a | a ] thenDo: [ :b | b ]' in: class. - self compile: 'collectThenSelect #() collect: [ :a | a ] thenSelect: [ :b | true ]' in: class. - self compile: 'detectSum #(1 2) detectSum: [ :each | each ]' in: class. - self compile: 'detectSumMultiline #(1 2) detectSum: [ :each | #foo copy. each ]' in: class. - self compile: 'pairsDo #(1 2 3 4) pairsDo: [ :a :b | b ]' in: class. - self compile: 'rejectThenDo #() reject: [ :a | true ] thenDo: [ :b | b ]' in: class. - self compile: 'selectThenCollect #() select: [ :a | true ] thenCollect: [ :b | b ]' in: class. - self compile: 'selectThenDo #() select: [ :a | true ] thenDo: [ :b | b ]' in: class. - self compile: 'valuesDo #() valuesDo: [ :a | a ]' in: class. - self compile: 'reversed #() reversed' in: class. - self compile: 'keysSortedSafely Dictionary new keysSortedSafely' in: class. - self compile: 'newWithAll Array new: 4 withAll: $a' in: class. - self - runTransformation: GRAnsiCollectionsRule - changes: #( - 'withIndexDo #() keysAndValuesDo: [ :index :each | each + index ]' - 'doWithIndex #() keysAndValuesDo: [ :index :each | each + index ]' - 'collectThenDo (#() collect: [ :a | a ]) do: [ :b | b ]' - 'selectThenDo (#() select: [ :a | true ]) do: [ :b | b ]' - 'rejectThenDo (#() reject: [ :a | true ]) do: [ :b | b ]' - 'selectThenCollect (#() select: [ :a | true ]) collect: [ :b | b ]' - 'pairsDo 1 to: #(1 2 3 4) size by: 2 do: [ :index | | a b | a := #(1 2 3 4) at: index. b := #(1 2 3 4) at: index + 1. b ]' - 'collectThenSelect (#() collect: [ :a | a ]) select: [ :b | true ]' - 'detectSum #(1 2) inject: 0 into: [ :sum :each | sum + each ]' - 'detectSumMultiline #(1 2) inject: 0 into: [ :sum :each | #foo copy. sum + each ]' - 'valuesDo #() do: [ :a | a ]' - 'reversed #() reverse' - 'keysSortedSafely Dictionary new keys asSortedCollection' - 'newWithAll (Array new: 4) atAllPut: $a' - ) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiConditionalsRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiConditionalsRule.st deleted file mode 100644 index e1ac638b..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiConditionalsRule.st +++ /dev/null @@ -1,11 +0,0 @@ -tests-transform -testAnsiConditionalsRule - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'ifNotNil 1 ifNotNil: [ | a | self or. self and ]' in: class. - self compile: 'ifNotNilDo 1 ifNotNilDo: [ :a | ^ a ]' in: class. - self - runTransformation: GRAnsiConditionalsRule - changes: #( - 'ifNotNil 1 ifNotNil: [ :arg | | a | self or. self and ]' - 'ifNotNilDo 1 ifNotNil: [ :a | ^ a ]' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiConvertorRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiConvertorRule.st deleted file mode 100644 index 898f4f52..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiConvertorRule.st +++ /dev/null @@ -1,11 +0,0 @@ -tests-transform -testAnsiConvertorRule - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'convertInteger ''1'' asInteger' in: class. - self compile: 'convertString 2 asString' in: class. - self - runTransformation: GRAnsiConvertorRule - changes: #( - 'convertInteger ''1'' greaseInteger' - 'convertString 2 greaseString' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiExceptionsRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiExceptionsRule.st deleted file mode 100644 index 7232e149..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiExceptionsRule.st +++ /dev/null @@ -1,13 +0,0 @@ -tests-transform -testAnsiExceptionsRule - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'exception1 [ self or ] on: Error do: [ self or ]' in: class. - self compile: 'exception2 [ self or ] on: Error do: [ self or. self or ]' in: class. - self compile: 'exception3 [ self or ] on: Error do: [ | a | a := 0 ]' in: class. - self - runTransformation: GRAnsiExceptionsRule - changes: #( - 'exception1 [ self or ] on: Error do: [ :err | self or ]' - 'exception2 [ self or ] on: Error do: [ :err | self or. self or ]' - 'exception3 [ self or ] on: Error do: [ :err | | a | a := 0 ]' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiStreamsRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiStreamsRule.st deleted file mode 100644 index 5f1430b1..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiStreamsRule.st +++ /dev/null @@ -1,13 +0,0 @@ -tests-transform -testAnsiStreamsRule - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'writeStream ^ '''' writeStream' in: class. - self compile: 'writeCr | stream | stream := WriteStream on: ''''. stream cr. stream nextPut: Character cr' in: class. - self compile: 'writeLf | stream | stream := WriteStream on: ''''. stream lf. stream nextPut: Character lf' in: class. - self - runTransformation: GRAnsiStreamsRule - changes: #( - 'writeStream ^ WriteStream on: ''''' - 'writeCr | stream | stream := WriteStream on: ''''. stream nextPut: Character cr. stream nextPut: Character cr' - 'writeLf | stream | stream := WriteStream on: ''''. stream nextPut: Character lf. stream nextPut: Character lf') \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiStringsRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiStringsRule.st deleted file mode 100644 index dde1cae1..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testAnsiStringsRule.st +++ /dev/null @@ -1,27 +0,0 @@ -tests-transform -testAnsiStringsRule - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'stringCr String cr, (String with: Character cr)' in: class. - self compile: 'stringTab String tab, (String with: Character tab)' in: class. - self compile: 'stringLf String lf, (String with: Character lf)' in: class. - self compile: 'stringCrLf String crlf, (String with: Character cr with: Character lf)' in: class. - self compile: 'stringSpace String space, (String with: Character space)' in: class. - self compile: 'findTokens ''123'' findTokens: '',''' in: class. - self compile: 'findTokensCharacter ''123'' findTokens: $,' in: class. - self compile: 'findTokensArray ''123'' findTokens: #($, $;)' in: class. - self compile: 'includesSubString ''1234'' includesSubString: ''23''' in: class. - self compile: 'includesSubString ''1234'' includesSubstring: ''23''' in: class. - self - runTransformation: GRAnsiStringsRule - changes: #( - 'stringCr (String with: Character cr), (String with: Character cr)' - 'stringTab (String with: Character tab), (String with: Character tab)' - 'stringLf (String with: Character lf), (String with: Character lf)' - 'stringCrLf (String with: Character cr with: Character lf), (String with: Character cr with: Character lf)' - 'stringSpace (String with: Character space), (String with: Character space)' - 'findTokens ''123'' subStrings: '',''' - 'findTokensCharacter ''123'' subStrings: '',''' - 'findTokensArray ''123'' subStrings: '',;''' - 'includesSubString (''1234'' indexOfSubCollection: ''23'' startingAt: 0) ~= 0' - 'includesSubString (''1234'' indexOfSubCollection: ''23'' startingAt: 0) ~= 0') \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBasicNewInitializeMissing.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBasicNewInitializeMissing.st deleted file mode 100644 index 07bf2a45..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBasicNewInitializeMissing.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-block -testBasicNewInitializeMissing - | class | - class := self defineSubClassOf: #Object. - self compile: 'initialize' in: class. - self - runRule: GRBasicNewInitializeMissingRule - selectors: #(initialize) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBlockFormatting.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBlockFormatting.st deleted file mode 100644 index 21cb487d..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testBlockFormatting.st +++ /dev/null @@ -1,28 +0,0 @@ -tests-parsetree -testBlockFormatting - | class | - class := self defineSubClassOf: #GRObject. - self - compile: 'invalid1 - [:a ]' - in: class. - self - compile: 'invalid2 - [:a | ]' - in: class. - self - compile: 'invalid3 - [ :b]' - in: class. - - self - compile: 'invalid4 - [ :a| ]' - in: class. - self - compile: 'invalid5 - [ :a |a ]' - in: class. - self - runRule: GRBlockFormattingRule - selectors: #(invalid1 invalid2 invalid3 invalid4 invalid5) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testDeprecatedApiProtocol.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testDeprecatedApiProtocol.st deleted file mode 100644 index 5735b56e..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testDeprecatedApiProtocol.st +++ /dev/null @@ -1,10 +0,0 @@ -tests-block -testDeprecatedApiProtocol - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'deprecated1 self greaseDeprecatedApi: ''',class name,'>>#deprecated1'' details: ''Something.''' in: class. - self compile: 'deprecated2 self greaseDeprecatedApi: ''',class name,'>>#deprecated'' details: ''Something.''' in: class. - self compile: 'deprecated3 self greaseDeprecatedApi: ''GRSlimeMock>>#deprecated3'' details: ''Something.''' in: class. - self - runRule: GRDeprecatedApiProtocolRule - selectors: #(deprecated2 deprecated3) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testInvalidObjectInitialization.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testInvalidObjectInitialization.st deleted file mode 100644 index f11fb191..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testInvalidObjectInitialization.st +++ /dev/null @@ -1,8 +0,0 @@ -tests-block -testInvalidObjectInitialization - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'initializeFoo: aNumber' in: class. - self - runRule: GRInvalidObjectInitializationRule - selectors: #(initializeFoo:) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNonPortableMessageRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNonPortableMessageRule.st deleted file mode 100644 index b9254341..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNonPortableMessageRule.st +++ /dev/null @@ -1,14 +0,0 @@ -tests-block -testNonPortableMessageRule - | class | - class := self defineSubClassOf: #GRObject. - - self compile: 'invalid1 ^ Array new anyOne' in: class. - self compile: 'valid1 ^ Array new first' in: class. - - self compile: 'invalid2 ^ Array new withIndexCollect: [ :each :index | each hash ]' in: class. - self compile: 'valid2 ^ Array new do: [ :each | each hash ]' in: class. - - self - runRule: GRNonPortableMessageRule - selectors: #(invalid1 invalid2) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNonPortableSourceFormat.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNonPortableSourceFormat.st deleted file mode 100644 index cad8fe0b..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNonPortableSourceFormat.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-block -testNonPortableSourceFormat - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'invalid ^ ''Unicode snow man', (String with: (Character codePoint: 16r2603)) , '''' in: class. - self compile: 'valid ^ ''everything is fine''' in: class. - self - runRule: GRNonPortableSourceFormatRule - selectors: #(invalid) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNotPortableCollectionsRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNotPortableCollectionsRule.st deleted file mode 100644 index 039b45c2..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testNotPortableCollectionsRule.st +++ /dev/null @@ -1,11 +0,0 @@ -tests-transform -testNotPortableCollectionsRule - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'beginsWith1 ''abc'' beginsWith: ''a''' in: class. - self compile: 'endsWith1 ''abc'' endsWith: ''a''' in: class. - self - runTransformation: GRNotPortableCollectionsRule - changes: #( - 'beginsWith1 ''abc'' greaseBeginsWith: ''a''' - 'endsWith1 ''abc'' greaseEndsWith: ''a''') \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testObjectIn.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testObjectIn.st deleted file mode 100644 index 5aec1103..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testObjectIn.st +++ /dev/null @@ -1,12 +0,0 @@ -tests-transform -testObjectIn - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'objectIn1 1 in: [ :val | val factorial ]' in: class. - self compile: 'objectIn2 2 in: [ :val | | temps | val factorial ]' in: class. - self compile: 'objectIn3 2 in: [ ''not this'' ]' in: class. - self - runTransformation: GRObjectInRule - changes: #( - 'objectIn1 [ :val | val factorial ] value: 1' - 'objectIn2 [ :val | | temps | val factorial ] value: 2') \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testParensFormatting.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testParensFormatting.st deleted file mode 100644 index a632b605..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testParensFormatting.st +++ /dev/null @@ -1,15 +0,0 @@ -tests-parsetree -testParensFormatting - | class | - class := self defineSubClassOf: #GRObject. - self - compile: 'invalid1 - ( 1 + 2)' - in: class. - self - compile: 'invalid2 - (1 + 2 )' - in: class. - self - runRule: GRParensFormattingRule - selectors: #(invalid1 invalid2) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testReturnFormatting.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testReturnFormatting.st deleted file mode 100644 index 27d8438d..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testReturnFormatting.st +++ /dev/null @@ -1,15 +0,0 @@ -tests-parsetree -testReturnFormatting - | class | - class := self defineSubClassOf: #GRObject. - self - compile: 'invalid1 - ^1' - in: class. - self - compile: 'invalid2 - ^ 2' - in: class. - self - runRule: GRReturnFormattingRule - selectors: #(invalid1 invalid2) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTempsFormatting.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTempsFormatting.st deleted file mode 100644 index 2eddb2b4..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTempsFormatting.st +++ /dev/null @@ -1,19 +0,0 @@ -tests-parsetree -testTempsFormatting - | class | - class := self defineSubClassOf: #GRObject. - self - compile: 'invalid1 - | a|' - in: class. - self - compile: 'invalid2 - |a |' - in: class. - self - compile: 'invalid3 - | a b |' - in: class. - self - runRule: GRTempsFormattingRule - selectors: #(invalid1 invalid2 invalid3) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTestCaseFailRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTestCaseFailRule.st deleted file mode 100644 index a4800822..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testTestCaseFailRule.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-transform -testTestCaseFailRule - | class | - class := self defineSubClassOf: #TestCase. - self compile: 'testMethod self fail' in: class. - self - runTransformation: GRTestAssertionsRule - changes: #( - 'testMethod self assert: false' ) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUnnecessaryLastPeriodRule.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUnnecessaryLastPeriodRule.st deleted file mode 100644 index b96f1b62..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUnnecessaryLastPeriodRule.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-block -testUnnecessaryLastPeriodRule - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'invalid 1. 2.' in: class. - self compile: 'valid 1. 2' in: class. - self - runRule: GRUnnecessaryLastPeriodRule - selectors: #(invalid) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCanPerformOrUnderstand.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCanPerformOrUnderstand.st deleted file mode 100644 index a29a53fb..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCanPerformOrUnderstand.st +++ /dev/null @@ -1,19 +0,0 @@ -tests-parsetree -testUsesCanPerformOrUnderstand - | class | - class := self defineSubClassOf: #GRObject. - self - compile: 'invalid1 - Object class canUnderstand: #new' - in: class. - self - compile: 'invalid2 - Object class canPerform: #new' - in: class. - self - compile: 'valid - Object respondsTo: #new' - in: class. - self - runRule: GRUsesCanPerformOrUnderstandRule - selectors: #(invalid1 invalid2) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesClassForHash.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesClassForHash.st deleted file mode 100644 index e95c920c..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesClassForHash.st +++ /dev/null @@ -1,15 +0,0 @@ -tests-parsetree -testUsesClassForHash - | class | - class := self defineSubClassOf: #GRObject. - self - compile: 'foo - ^ super hash bitXor: self class hash' - in: class. - self - compile: 'hash - ^ super hash bitXor: self class hash' - in: class. - self - runRule: GRUsesClassForHashRule - selectors: #(hash) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCurlyBraceArrays.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCurlyBraceArrays.st deleted file mode 100644 index 7e341c1e..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesCurlyBraceArrays.st +++ /dev/null @@ -1,17 +0,0 @@ -tests-parsetree -testUsesCurlyBraceArrays - | class | - (self canParse: 'foo { self foo. self bar }') - ifFalse: [ ^ self ]. - class := self defineSubClassOf: #GRObject. - self - compile: 'invalid - ^ { self foo. self bar }' - in: class. - self - compile: 'valid - ^ Array new' - in: class. - self - runRule: GRUsesCurlyBraceArraysRule - selectors: #(invalid) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesMethodAnnotations.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesMethodAnnotations.st deleted file mode 100644 index dd1e7931..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesMethodAnnotations.st +++ /dev/null @@ -1,11 +0,0 @@ -tests-block -testUsesMethodAnnotations - | class | - (self canParse: 'foo ') - ifFalse: [ ^ self ]. - class := self defineSubClassOf: #GRObject. - self compile: 'invalid ' in: class. - self compile: 'valid' in: class. - self - runRule: GRUsesMethodAnnotationsRule - selectors: #(invalid) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesNotPortableClass.st b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesNotPortableClass.st deleted file mode 100644 index d988a2fd..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/instance/testUsesNotPortableClass.st +++ /dev/null @@ -1,9 +0,0 @@ -tests-block -testUsesNotPortableClass - | class | - class := self defineSubClassOf: #GRObject. - self compile: 'invalid ^ Semaphore new' in: class. - self compile: 'valid ^ GRObject new' in: class. - self - runRule: GRUsesNotPortableClassRule - selectors: #(invalid) \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/properties.json b/repository/Grease-Tests-Slime.package/GRSlimeTest.class/properties.json deleted file mode 100644 index b2e89aff..00000000 --- a/repository/Grease-Tests-Slime.package/GRSlimeTest.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Grease-Tests-Slime", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "model", - "environment", - "factory" - ], - "name" : "GRSlimeTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/monticello.meta/categories.st b/repository/Grease-Tests-Slime.package/monticello.meta/categories.st deleted file mode 100644 index d34cfb4a..00000000 --- a/repository/Grease-Tests-Slime.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Tests-Slime'! diff --git a/repository/Grease-Tests-Slime.package/monticello.meta/initializers.st b/repository/Grease-Tests-Slime.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Slime.package/monticello.meta/package b/repository/Grease-Tests-Slime.package/monticello.meta/package deleted file mode 100644 index 1aca9493..00000000 --- a/repository/Grease-Tests-Slime.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-Slime') \ No newline at end of file diff --git a/repository/Grease-Tests-Slime.package/properties.json b/repository/Grease-Tests-Slime.package/properties.json deleted file mode 100644 index 6f31cf5a..00000000 --- a/repository/Grease-Tests-Slime.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/repository/Grease-Tests-Slime/GRPackage.extension.st b/repository/Grease-Tests-Slime/GRPackage.extension.st new file mode 100644 index 00000000..50311b39 --- /dev/null +++ b/repository/Grease-Tests-Slime/GRPackage.extension.st @@ -0,0 +1,11 @@ +Extension { #name : 'GRPackage' } + +{ #category : '*grease-tests-slime' } +GRPackage class >> greaseTestsSlime [ + ^ self new + name: 'Grease-Tests-Slime'; + description: 'Unit tests for the package Grease-Slime.'; + addDependency: 'Grease-Pharo-Slime'; + url: #seasideUrl; + yourself +] diff --git a/repository/Grease-Tests-Slime/GRSlimeTest.class.st b/repository/Grease-Tests-Slime/GRSlimeTest.class.st new file mode 100644 index 00000000..fa12e86a --- /dev/null +++ b/repository/Grease-Tests-Slime/GRSlimeTest.class.st @@ -0,0 +1,598 @@ +Class { + #name : 'GRSlimeTest', + #superclass : 'TestCase', + #instVars : [ + 'model', + 'environment', + 'factory' + ], + #category : 'Grease-Tests-Slime', + #package : 'Grease-Tests-Slime' +} + +{ #category : 'accessing-code' } +GRSlimeTest >> canParse: aString [ + RBParser + parseMethod: aString + onError: [ :err :pos | ^ false ]. + ^ true +] + +{ #category : 'accessing' } +GRSlimeTest >> category [ + ^ self class category , '-Data' +] + +{ #category : 'accessing-code' } +GRSlimeTest >> compile: aString in: aClass [ + + GRPlatform current + compile: aString + into: aClass + classified: #accessing +] + +{ #category : 'accessing-code' } +GRSlimeTest >> defineClass: aClassSymbol superclass: aSuperSymbol [ + "For compatibility" + ^ self defineSubClassOf: aSuperSymbol +] + +{ #category : 'accessing-code' } +GRSlimeTest >> defineSubClassOf: aSuperSymbol [ + + | class | + class := SystemVersion current major >= 12 + ifTrue: [ + factory make: [ :aBuilder | + aBuilder + superclass: (Smalltalk at: aSuperSymbol); + package: self category ] ] + ifFalse: [ + factory + newSubclassOf: (Smalltalk at: aSuperSymbol) + instanceVariableNames: '' + classVariableNames: 'classVarsString' + category: self category ]. + environment + addClass: class; + addClass: class theMetaClass. + ^ class +] + +{ #category : 'accessing' } +GRSlimeTest >> rules [ + ^ OrderedCollection new + addAll: GRSlimeBlockLintRule allSubclasses; + addAll: GRSlimeParseTreeLintRule allSubclasses; + addAll: GRSlimeTransformationRule allSubclasses; + yourself +] + +{ #category : 'running-checks' } +GRSlimeTest >> run: aClass do: aBlock [ + | rules rule composite undo | + rules := self rules + collect: [ :each | each new ]. + rule := rules + detect: [ :each | each isKindOf: aClass ] + ifNone: [ self error: aClass name , ' is not a slime rule' ]. + self + assert: (rule name isString and: [ rule name notEmpty ]) + description: aClass name , ' has no name'. + self + assert: (rule rationale isString and: [ rule rationale notEmpty and: [ rule rationale endsWithSubCollection: '.' ] ]) + description: aClass name , ' has no rationale'. + composite := RBCompositeLintRule rules: rules name: 'Slime'. + undo := model changes execute. + [ RBSmalllintChecker runRule: composite onEnvironment: environment. + rules do: [ :each | + self + assert: (rule = each or: [ each result isEmpty and: [ each changes isEmpty ] ]) + description: each name , ' should not report errors' ]. + aBlock value: rule value: rules ] + ensure: [ undo execute ]. + ^ rule +] + +{ #category : 'running-checks' } +GRSlimeTest >> run: aClass ignoring: aCollectionOfClasses do: aBlock [ + | rules rule composite undo | + rules := self rules + collect: [ :each | each new ]. + rule := rules + detect: [ :each | each isKindOf: aClass ] + ifNone: [ self error: aClass name , ' is not a slime rule' ]. + self + assert: (rule name isString and: [ rule name notEmpty ]) + description: aClass name , ' has no name'. + self + assert: (rule rationale isString and: [ rule rationale notEmpty and: [ rule rationale endsWithSubCollection: '.' ] ]) + description: aClass name , ' has no rationale'. + composite := RBCompositeLintRule rules: rules name: 'Slime'. + undo := model changes execute. + [ RBSmalllintChecker runRule: composite onEnvironment: environment. + rules do: [ :each | + self + assert: (rule = each or: [ (each result isEmpty and: [ each changes isEmpty ]) or: [ aCollectionOfClasses includes: each class ] ]) + description: each name , ' should not report errors' ]. + aBlock value: rule value: rules ] + ensure: [ undo execute ]. + ^ rule +] + +{ #category : 'running' } +GRSlimeTest >> runCase [ + GRPlatform current doSilently: [ super runCase ] +] + +{ #category : 'running-checks' } +GRSlimeTest >> runRule: aClass selectors: aCollection [ + self runRule: aClass selectors: aCollection ignoring: Array new +] + +{ #category : 'running-checks' } +GRSlimeTest >> runRule: aClass selectors: aCollection ignoring: aCollectionOfClasses [ + self run: aClass ignoring: aCollectionOfClasses do: [ :rule :rules | + rule result classesAndSelectorsDo: [ :class :selector | + self + assert: (aCollection includes: selector) + description: selector printString , ' should not be reported' ]. + aCollection do: [ :selector | + self + assert: (rule result classes + anySatisfy: [ :class | rule result includesSelector: selector in: class ]) + description: selector printString , ' should be reported' ] ] +] + +{ #category : 'running-checks' } +GRSlimeTest >> runTransformation: aClass changes: aCollection [ + | expected | + expected := aCollection + collect: [ :each | RBParser parseMethod: each ]. + self run: aClass ignoring: Array new do: [ :rule :rules | + rule changes do: [ :change | + self + assert: (expected anySatisfy: [ :parseTree | change parseTree = parseTree ]) + description: change selector , ' should not be transformed' ]. + expected do: [ :parseTree | + self + assert: (rule changes anySatisfy: [ :change | change parseTree = parseTree ]) + description: parseTree selector , ' should be transformed' ] ] +] + +{ #category : 'running' } +GRSlimeTest >> setUp [ + super setUp. + factory := ClassFactoryForTestCase new. + model := RBNamespace new. + environment := RBClassEnvironment new +] + +{ #category : 'running' } +GRSlimeTest >> tearDown [ + + super tearDown. + factory cleanUp +] + +{ #category : 'tests-transform' } +GRSlimeTest >> testAnsiBooleansRule [ + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'and 1 and: [ 2 ] and: [ 3 ] and: [ 4 ]' in: class. + self compile: 'or 1 or: [ 2 ] or: [ 3 ] or: [ 4 ]' in: class. + self + runTransformation: GRAnsiBooleansRule + changes: #( + 'and 1 and: [ 2 and: [ 3 and: [ 4 ] ] ]' + 'or 1 or: [ 2 or: [ 3 or: [ 4 ] ] ]' ) +] + +{ #category : 'tests-transform' } +GRSlimeTest >> testAnsiCharacterRule [ + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'character Character value: 123' in: class. + self compile: 'characterRange $a to: $c' in: class. + self + runTransformation: GRAnsiCharactersRule + changes: #('character Character codePoint: 123' 'characterRange ''abc''') +] + +{ #category : 'tests-transform' } +GRSlimeTest >> testAnsiCollectionsRule [ + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'withIndexDo #() withIndexDo: [ :each :index | each + index ]' in: class. + self compile: 'doWithIndex #() doWithIndex: [ :each :index | each + index ]' in: class. + self compile: 'collectThenDo #() collect: [ :a | a ] thenDo: [ :b | b ]' in: class. + self compile: 'collectThenSelect #() collect: [ :a | a ] thenSelect: [ :b | true ]' in: class. + self compile: 'detectSum #(1 2) detectSum: [ :each | each ]' in: class. + self compile: 'detectSumMultiline #(1 2) detectSum: [ :each | #foo copy. each ]' in: class. + self compile: 'pairsDo #(1 2 3 4) pairsDo: [ :a :b | b ]' in: class. + self compile: 'rejectThenDo #() reject: [ :a | true ] thenDo: [ :b | b ]' in: class. + self compile: 'selectThenCollect #() select: [ :a | true ] thenCollect: [ :b | b ]' in: class. + self compile: 'selectThenDo #() select: [ :a | true ] thenDo: [ :b | b ]' in: class. + self compile: 'valuesDo #() valuesDo: [ :a | a ]' in: class. + self compile: 'reversed #() reversed' in: class. + self compile: 'keysSortedSafely Dictionary new keysSortedSafely' in: class. + self compile: 'newWithAll Array new: 4 withAll: $a' in: class. + self + runTransformation: GRAnsiCollectionsRule + changes: #( + 'withIndexDo #() keysAndValuesDo: [ :index :each | each + index ]' + 'doWithIndex #() keysAndValuesDo: [ :index :each | each + index ]' + 'collectThenDo (#() collect: [ :a | a ]) do: [ :b | b ]' + 'selectThenDo (#() select: [ :a | true ]) do: [ :b | b ]' + 'rejectThenDo (#() reject: [ :a | true ]) do: [ :b | b ]' + 'selectThenCollect (#() select: [ :a | true ]) collect: [ :b | b ]' + 'pairsDo 1 to: #(1 2 3 4) size by: 2 do: [ :index | | a b | a := #(1 2 3 4) at: index. b := #(1 2 3 4) at: index + 1. b ]' + 'collectThenSelect (#() collect: [ :a | a ]) select: [ :b | true ]' + 'detectSum #(1 2) inject: 0 into: [ :sum :each | sum + each ]' + 'detectSumMultiline #(1 2) inject: 0 into: [ :sum :each | #foo copy. sum + each ]' + 'valuesDo #() do: [ :a | a ]' + 'reversed #() reverse' + 'keysSortedSafely Dictionary new keys asSortedCollection' + 'newWithAll (Array new: 4) atAllPut: $a' + ) +] + +{ #category : 'tests-transform' } +GRSlimeTest >> testAnsiConditionalsRule [ + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'ifNotNil 1 ifNotNil: [ | a | self or. self and ]' in: class. + self compile: 'ifNotNilDo 1 ifNotNilDo: [ :a | ^ a ]' in: class. + self + runTransformation: GRAnsiConditionalsRule + changes: #( + 'ifNotNil 1 ifNotNil: [ :arg | | a | self or. self and ]' + 'ifNotNilDo 1 ifNotNil: [ :a | ^ a ]' ) +] + +{ #category : 'tests-transform' } +GRSlimeTest >> testAnsiConvertorRule [ + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'convertInteger ''1'' asInteger' in: class. + self compile: 'convertString 2 asString' in: class. + self + runTransformation: GRAnsiConvertorRule + changes: #( + 'convertInteger ''1'' greaseInteger' + 'convertString 2 greaseString' ) +] + +{ #category : 'tests-transform' } +GRSlimeTest >> testAnsiExceptionsRule [ + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'exception1 [ self or ] on: Error do: [ self or ]' in: class. + self compile: 'exception2 [ self or ] on: Error do: [ self or. self or ]' in: class. + self compile: 'exception3 [ self or ] on: Error do: [ | a | a := 0 ]' in: class. + self + runTransformation: GRAnsiExceptionsRule + changes: #( + 'exception1 [ self or ] on: Error do: [ :err | self or ]' + 'exception2 [ self or ] on: Error do: [ :err | self or. self or ]' + 'exception3 [ self or ] on: Error do: [ :err | | a | a := 0 ]' ) +] + +{ #category : 'tests-transform' } +GRSlimeTest >> testAnsiStreamsRule [ + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'writeStream ^ '''' writeStream' in: class. + self compile: 'writeCr | stream | stream := WriteStream on: ''''. stream cr. stream nextPut: Character cr' in: class. + self compile: 'writeLf | stream | stream := WriteStream on: ''''. stream lf. stream nextPut: Character lf' in: class. + self + runTransformation: GRAnsiStreamsRule + changes: #( + 'writeStream ^ WriteStream on: ''''' + 'writeCr | stream | stream := WriteStream on: ''''. stream nextPut: Character cr. stream nextPut: Character cr' + 'writeLf | stream | stream := WriteStream on: ''''. stream nextPut: Character lf. stream nextPut: Character lf') +] + +{ #category : 'tests-transform' } +GRSlimeTest >> testAnsiStringsRule [ + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'stringCr String cr, (String with: Character cr)' in: class. + self compile: 'stringTab String tab, (String with: Character tab)' in: class. + self compile: 'stringLf String lf, (String with: Character lf)' in: class. + self compile: 'stringCrLf String crlf, (String with: Character cr with: Character lf)' in: class. + self compile: 'stringSpace String space, (String with: Character space)' in: class. + self compile: 'findTokens ''123'' findTokens: '',''' in: class. + self compile: 'findTokensCharacter ''123'' findTokens: $,' in: class. + self compile: 'findTokensArray ''123'' findTokens: #($, $;)' in: class. + self compile: 'includesSubString ''1234'' includesSubString: ''23''' in: class. + self compile: 'includesSubString ''1234'' includesSubstring: ''23''' in: class. + self + runTransformation: GRAnsiStringsRule + changes: #( + 'stringCr (String with: Character cr), (String with: Character cr)' + 'stringTab (String with: Character tab), (String with: Character tab)' + 'stringLf (String with: Character lf), (String with: Character lf)' + 'stringCrLf (String with: Character cr with: Character lf), (String with: Character cr with: Character lf)' + 'stringSpace (String with: Character space), (String with: Character space)' + 'findTokens ''123'' subStrings: '',''' + 'findTokensCharacter ''123'' subStrings: '',''' + 'findTokensArray ''123'' subStrings: '',;''' + 'includesSubString (''1234'' indexOfSubCollection: ''23'' startingAt: 0) ~= 0' + 'includesSubString (''1234'' indexOfSubCollection: ''23'' startingAt: 0) ~= 0') +] + +{ #category : 'tests-block' } +GRSlimeTest >> testBasicNewInitializeMissing [ + | class | + class := self defineSubClassOf: #Object. + self compile: 'initialize' in: class. + self + runRule: GRBasicNewInitializeMissingRule + selectors: #(initialize) +] + +{ #category : 'tests-parsetree' } +GRSlimeTest >> testBlockFormatting [ + | class | + class := self defineSubClassOf: #GRObject. + self + compile: 'invalid1 + [:a ]' + in: class. + self + compile: 'invalid2 + [:a | ]' + in: class. + self + compile: 'invalid3 + [ :b]' + in: class. + + self + compile: 'invalid4 + [ :a| ]' + in: class. + self + compile: 'invalid5 + [ :a |a ]' + in: class. + self + runRule: GRBlockFormattingRule + selectors: #(invalid1 invalid2 invalid3 invalid4 invalid5) +] + +{ #category : 'tests-block' } +GRSlimeTest >> testDeprecatedApiProtocol [ + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'deprecated1 self greaseDeprecatedApi: ''',class name,'>>#deprecated1'' details: ''Something.''' in: class. + self compile: 'deprecated2 self greaseDeprecatedApi: ''',class name,'>>#deprecated'' details: ''Something.''' in: class. + self compile: 'deprecated3 self greaseDeprecatedApi: ''GRSlimeMock>>#deprecated3'' details: ''Something.''' in: class. + self + runRule: GRDeprecatedApiProtocolRule + selectors: #(deprecated2 deprecated3) +] + +{ #category : 'tests-block' } +GRSlimeTest >> testInvalidObjectInitialization [ + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'initializeFoo: aNumber' in: class. + self + runRule: GRInvalidObjectInitializationRule + selectors: #(initializeFoo:) +] + +{ #category : 'tests-block' } +GRSlimeTest >> testNonPortableMessageRule [ + | class | + class := self defineSubClassOf: #GRObject. + + self compile: 'invalid1 ^ Array new anyOne' in: class. + self compile: 'valid1 ^ Array new first' in: class. + + self compile: 'invalid2 ^ Array new withIndexCollect: [ :each :index | each hash ]' in: class. + self compile: 'valid2 ^ Array new do: [ :each | each hash ]' in: class. + + self + runRule: GRNonPortableMessageRule + selectors: #(invalid1 invalid2) +] + +{ #category : 'tests-block' } +GRSlimeTest >> testNonPortableSourceFormat [ + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'invalid ^ ''Unicode snow man', (String with: (Character codePoint: 16r2603)) , '''' in: class. + self compile: 'valid ^ ''everything is fine''' in: class. + self + runRule: GRNonPortableSourceFormatRule + selectors: #(invalid) +] + +{ #category : 'tests-transform' } +GRSlimeTest >> testNotPortableCollectionsRule [ + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'beginsWith1 ''abc'' beginsWith: ''a''' in: class. + self compile: 'endsWith1 ''abc'' endsWith: ''a''' in: class. + self + runTransformation: GRNotPortableCollectionsRule + changes: #( + 'beginsWith1 ''abc'' greaseBeginsWith: ''a''' + 'endsWith1 ''abc'' greaseEndsWith: ''a''') +] + +{ #category : 'tests-transform' } +GRSlimeTest >> testObjectIn [ + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'objectIn1 1 in: [ :val | val factorial ]' in: class. + self compile: 'objectIn2 2 in: [ :val | | temps | val factorial ]' in: class. + self compile: 'objectIn3 2 in: [ ''not this'' ]' in: class. + self + runTransformation: GRObjectInRule + changes: #( + 'objectIn1 [ :val | val factorial ] value: 1' + 'objectIn2 [ :val | | temps | val factorial ] value: 2') +] + +{ #category : 'tests-parsetree' } +GRSlimeTest >> testParensFormatting [ + | class | + class := self defineSubClassOf: #GRObject. + self + compile: 'invalid1 + ( 1 + 2)' + in: class. + self + compile: 'invalid2 + (1 + 2 )' + in: class. + self + runRule: GRParensFormattingRule + selectors: #(invalid1 invalid2) +] + +{ #category : 'tests-parsetree' } +GRSlimeTest >> testReturnFormatting [ + | class | + class := self defineSubClassOf: #GRObject. + self + compile: 'invalid1 + ^1' + in: class. + self + compile: 'invalid2 + ^ 2' + in: class. + self + runRule: GRReturnFormattingRule + selectors: #(invalid1 invalid2) +] + +{ #category : 'tests-parsetree' } +GRSlimeTest >> testTempsFormatting [ + | class | + class := self defineSubClassOf: #GRObject. + self + compile: 'invalid1 + | a|' + in: class. + self + compile: 'invalid2 + |a |' + in: class. + self + compile: 'invalid3 + | a b |' + in: class. + self + runRule: GRTempsFormattingRule + selectors: #(invalid1 invalid2 invalid3) +] + +{ #category : 'tests-transform' } +GRSlimeTest >> testTestCaseFailRule [ + | class | + class := self defineSubClassOf: #TestCase. + self compile: 'testMethod self fail' in: class. + self + runTransformation: GRTestAssertionsRule + changes: #( + 'testMethod self assert: false' ) +] + +{ #category : 'tests-block' } +GRSlimeTest >> testUnnecessaryLastPeriodRule [ + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'invalid 1. 2.' in: class. + self compile: 'valid 1. 2' in: class. + self + runRule: GRUnnecessaryLastPeriodRule + selectors: #(invalid) +] + +{ #category : 'tests-parsetree' } +GRSlimeTest >> testUsesCanPerformOrUnderstand [ + | class | + class := self defineSubClassOf: #GRObject. + self + compile: 'invalid1 + Object class canUnderstand: #new' + in: class. + self + compile: 'invalid2 + Object class canPerform: #new' + in: class. + self + compile: 'valid + Object respondsTo: #new' + in: class. + self + runRule: GRUsesCanPerformOrUnderstandRule + selectors: #(invalid1 invalid2) +] + +{ #category : 'tests-parsetree' } +GRSlimeTest >> testUsesClassForHash [ + | class | + class := self defineSubClassOf: #GRObject. + self + compile: 'foo + ^ super hash bitXor: self class hash' + in: class. + self + compile: 'hash + ^ super hash bitXor: self class hash' + in: class. + self + runRule: GRUsesClassForHashRule + selectors: #(hash) +] + +{ #category : 'tests-parsetree' } +GRSlimeTest >> testUsesCurlyBraceArrays [ + | class | + (self canParse: 'foo { self foo. self bar }') + ifFalse: [ ^ self ]. + class := self defineSubClassOf: #GRObject. + self + compile: 'invalid + ^ { self foo. self bar }' + in: class. + self + compile: 'valid + ^ Array new' + in: class. + self + runRule: GRUsesCurlyBraceArraysRule + selectors: #(invalid) +] + +{ #category : 'tests-block' } +GRSlimeTest >> testUsesMethodAnnotations [ + | class | + (self canParse: 'foo ') + ifFalse: [ ^ self ]. + class := self defineSubClassOf: #GRObject. + self compile: 'invalid ' in: class. + self compile: 'valid' in: class. + self + runRule: GRUsesMethodAnnotationsRule + selectors: #(invalid) +] + +{ #category : 'tests-block' } +GRSlimeTest >> testUsesNotPortableClass [ + | class | + class := self defineSubClassOf: #GRObject. + self compile: 'invalid ^ Semaphore new' in: class. + self compile: 'valid ^ GRObject new' in: class. + self + runRule: GRUsesNotPortableClassRule + selectors: #(invalid) +] diff --git a/repository/Grease-Tests-Slime/package.st b/repository/Grease-Tests-Slime/package.st new file mode 100644 index 00000000..da73b8f2 --- /dev/null +++ b/repository/Grease-Tests-Slime/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Tests-Slime' } diff --git a/repository/Grease-Tests-Squeak6-Core.package/.filetree b/repository/Grease-Tests-Squeak6-Core.package/.filetree deleted file mode 100644 index 8998102c..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/.filetree +++ /dev/null @@ -1,4 +0,0 @@ -{ - "noMethodMetaData" : true, - "separateMethodMetaAndSource" : false, - "useCypressPropertiesFile" : true } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/class/greaseTestsSqueak6Core.st b/repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/class/greaseTestsSqueak6Core.st deleted file mode 100644 index 5dcab405..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/class/greaseTestsSqueak6Core.st +++ /dev/null @@ -1,9 +0,0 @@ -*grease-tests-squeak6-core -greaseTestsSqueak6Core - ^ self new - name: 'Grease-Tests-Squeak6-Core'; - description: 'Unit tests for the package Grease-Squeak6-Core.'; - addDependency: 'Grease-Squeak6-Core'; - addDependency: 'Grease-Tests-Core'; - url: #seasideUrl; - yourself \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/methodProperties.json b/repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/methodProperties.json deleted file mode 100644 index 90fd53fb..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - "greaseTestsSqueak6Core" : " 7/15/2024 14:23:54" }, - "instance" : { - } } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/properties.json deleted file mode 100644 index dd2faaf0..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPackage.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPackage" } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st b/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st deleted file mode 100644 index 5b48fa46..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/instance/testScaledDecimalGreaseString.st +++ /dev/null @@ -1,5 +0,0 @@ -*grease-tests-squeak6-core -testScaledDecimalGreaseString - self assert: 123.4s1 greaseString = '123.4'. - self assert: 123.4s2 greaseString = '123.40'. - self assert: 123s0 greaseString = '123' \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st b/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st deleted file mode 100644 index eb2b6468..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/instance/writeToFile.withFileNameDo..st +++ /dev/null @@ -1,12 +0,0 @@ -*grease-tests-squeak6-core -writeToFile: aStringOrByteArray withFileNameDo: aBlock - | fileName directory | - fileName := 'GRSqueakPlatformTest'. - directory := FileDirectory default. - [ GRPlatform current - write: aStringOrByteArray - toFile: fileName - inFolder: directory fullName. - aBlock value: directory fullName, GRPlatform current pathSeparator, fileName - ] ensure: [ - directory deleteFileNamed: fileName ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/methodProperties.json b/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/methodProperties.json deleted file mode 100644 index 49ab0fa0..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/methodProperties.json +++ /dev/null @@ -1,6 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testScaledDecimalGreaseString" : " 7/15/2024 14:23:54", - "writeToFile:withFileNameDo:" : "pmm 7/15/2024 14:30" } } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/properties.json deleted file mode 100644 index ab3f269a..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPlatformTest.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPlatformTest" } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st b/repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st deleted file mode 100644 index b6da31a0..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/instance/testScaledDecimalPrinter.st +++ /dev/null @@ -1,19 +0,0 @@ -*grease-tests-squeak6-core -testScaledDecimalPrinter - | converter | - converter := GRNumberPrinter new precision: 2. - self assert: (converter print: 1.009s3) = '1.01'. - self assert: (converter print: 1.01s2) = '1.01'. - self assert: (converter print: 1.019s3) = '1.02'. - self assert: (converter print: 1.25s2) = '1.25'. - self assert: (converter print: 1.254s3) = '1.25'. - self assert: (converter print: 1.256s3) = '1.26'. - self assert: (converter print: 1.009s3) = '1.01'. - self assert: (converter print: 0.9s1) = '0.90'. - self assert: (converter print: 0.99s2) = '0.99'. - self assert: (converter print: 0.999s3) = '1.00'. - self assert: (converter print: 0.9999s4) = '1.00'. - self assert: (converter print: -0.9s1) = '0.90'. - self assert: (converter print: -0.99s2) = '0.99'. - self assert: (converter print: -0.999s3) = '1.00'. - self assert: (converter print: -0.9999s4) = '1.00' \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/methodProperties.json b/repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/methodProperties.json deleted file mode 100644 index 5f8002a6..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "testScaledDecimalPrinter" : " 7/15/2024 14:23:54" } } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/properties.json deleted file mode 100644 index 125a8c96..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRPrinterTest.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRPrinterTest" } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/README.md b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/assert.next.startingAt.gives..st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/assert.next.startingAt.gives..st deleted file mode 100644 index 8ff0ff41..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/assert.next.startingAt.gives..st +++ /dev/null @@ -1,7 +0,0 @@ -private -assert: aString next: anInteger startingAt: startIndex gives: anEncodedString - | actual | - actual := String streamContents: [ :stream | - ((GRCodec forEncoding: 'utf-8') encoderFor: stream) - greaseNext: anInteger putAll: aString startingAt: startIndex ]. - self assert: actual = anEncodedString \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/assertEncodingIgnoresLanguageTat..st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/assertEncodingIgnoresLanguageTat..st deleted file mode 100644 index 622b446b..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/assertEncodingIgnoresLanguageTat..st +++ /dev/null @@ -1,7 +0,0 @@ -private -assertEncodingIgnoresLanguageTat: aStringWithLanguageTag - | codec withLanguageTag withoutLanguageTag | - codec := GRCodec forEncoding: 'utf-8'. - withLanguageTag := codec encode: aStringWithLanguageTag. - withoutLanguageTag := codec encode: (self stripLeadingCharFrom: aStringWithLanguageTag). - self assert: withLanguageTag = withoutLanguageTag \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/stripLeadingCharFrom..st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/stripLeadingCharFrom..st deleted file mode 100644 index 8f85d506..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/stripLeadingCharFrom..st +++ /dev/null @@ -1,8 +0,0 @@ -private -stripLeadingCharFrom: aString - "strips the leadingChar from every character in the given string" - ^ String streamContents: [ :stream | - aString do: [ :each | - stream nextPut: (Character - leadingChar: 0 - code: each greaseInteger) ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testAllCodesIncludesIso88591.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testAllCodesIncludesIso88591.st deleted file mode 100644 index 3922305f..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testAllCodesIncludesIso88591.st +++ /dev/null @@ -1,4 +0,0 @@ -tests -testAllCodesIncludesIso88591 - self assert: (GRCodec allCodecs anySatisfy: [ :each | - each name = 'iso-8859-1' ]) \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testGreaseNextPutAllStartingAt.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testGreaseNextPutAllStartingAt.st deleted file mode 100644 index dba72236..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testGreaseNextPutAllStartingAt.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testGreaseNextPutAllStartingAt - | umlaut encodedUmlaut | - umlaut := String with: (Character codePoint: 228). - encodedUmlaut := String with: (Character codePoint: 195) with: (Character codePoint: 164). - self assert: 'ab' next: 1 startingAt: 1 gives: 'a'. - self assert: 'a', umlaut, 'b' next: 1 startingAt: 1 gives: 'a'. - self assert: 'ab', umlaut next: 1 startingAt: 1 gives: 'a'. - self assert: 'a', umlaut, 'b' next: 2 startingAt: 1gives: 'a', encodedUmlaut. - self assert: 'a', umlaut, 'b' next: 1 startingAt: 2 gives: encodedUmlaut. - self assert: 'a', umlaut, 'b' next: 2 startingAt: 2 gives: encodedUmlaut, 'b'. - self assert: 'a', umlaut, umlaut next: 2 startingAt: 2 gives: encodedUmlaut, encodedUmlaut. - self assert: 'ab', umlaut, 'b', umlaut next: 3 startingAt: 2 gives: 'b', encodedUmlaut, 'b' \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testLanguageTag.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testLanguageTag.st deleted file mode 100644 index 57a2a02c..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/instance/testLanguageTag.st +++ /dev/null @@ -1,16 +0,0 @@ -tests -testLanguageTag - "this makes sure the encoder doesn't fall on the nose with unicode" - "Make Japanese String from unicode. see http://www.unicode.org/charts/PDF/U3040.pdf" - | leading hiraA hiraO hiraAO | - leading := (Smalltalk classNamed: #JapaneseEnvironment) leadingChar. - hiraA := (Character - leadingChar: leading - code: 12354) greaseString. "HIRAGANA LETTER A" - hiraO := (Character - leadingChar: leading - code: 12362) greaseString. "HIRAGANA LETTER O" - hiraAO := hiraA , hiraO. - self assertEncodingIgnoresLanguageTat: hiraA. - self assertEncodingIgnoresLanguageTat: hiraO. - self assertEncodingIgnoresLanguageTat: hiraAO \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/properties.json deleted file mode 100644 index 9b72396b..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakCodecTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRSqueakCodecTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/README.md b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/expectedFailures.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/expectedFailures.st deleted file mode 100644 index 197de855..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/expectedFailures.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -expectedFailures - ^ #(testFromStringThreeDigit) \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testAllColors.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testAllColors.st deleted file mode 100644 index b483e1a5..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testAllColors.st +++ /dev/null @@ -1,12 +0,0 @@ -testing -testAllColors - | toTest | - toTest := #( - 16r000000 16r000001 16r000101 16r010101 16r010100 16r010000 16r001001 16r101001 - 16r001122 16r334455 16r667788 16r99AABB 16rCCDDEE 16rFF0011 - 16r123456 16r789ABC 16rDEFEDC - 16rFEFEEF 16rFEFEFF 16rFEFEFE 16rFFFEFE 16rFFFFFE 16rFFFFFF). - toTest do: [ :int | - | hex | - hex := int printPaddedWith: $0 to: 6 base: 16. - self assert: (Color fromString: hex) asHTMLColor asLowercase = ('#', hex) asLowercase ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testColorAsHtmlColor.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testColorAsHtmlColor.st deleted file mode 100644 index fcb5dcbb..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testColorAsHtmlColor.st +++ /dev/null @@ -1,19 +0,0 @@ -testing -testColorAsHtmlColor - "test for: - Color >> #hex - | aStream | - aStream := (String new: 6) writeStream. - aStream nextPutAll: (((self red * 255) asInteger printStringBase: 16) - padded: #left to: 2 with: $0). - aStream nextPutAll: (((self green * 255) asInteger printStringBase: 16) - padded: #left to: 2 with: $0). - aStream nextPutAll: (((self blue * 255) asInteger printStringBase: 16) - padded: #left to: 2 with: $0). - ^ aStream contents - - Color >> #asHTMLColor - ^ '#', self hex" - self assert: (#('#ffffff' '#FFFFFF' ) includes: Color white asHTMLColor). - self assert: (Color black asHTMLColor = '#000000'). - self assert: (#('#ff0000' '#FF0000' ) includes: Color red asHTMLColor) \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromSixDigit.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromSixDigit.st deleted file mode 100644 index 639a183a..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromSixDigit.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testFromSixDigit - self assert: (Color fromString: 'ff0000') = Color red. - self assert: (Color fromString: 'FF0000') = Color red. - self assert: (Color fromString: '#ff0000') = Color red. - self assert: (Color fromString: '#FF0000') = Color red diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringName.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringName.st deleted file mode 100644 index 821c945e..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringName.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testFromStringName - self assert: (Color fromString: 'red') = Color red. - self assert: (Color fromString: 'RED') = Color red. - self assert: (Color fromString: '#red') = Color red. - self assert: (Color fromString: '#RED') = Color red diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringSixDigit.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringSixDigit.st deleted file mode 100644 index e9b720fc..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringSixDigit.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testFromStringSixDigit - self assert: (Color fromString: 'ff0000') = Color red. - self assert: (Color fromString: 'FF0000') = Color red. - self assert: (Color fromString: '#ff0000') = Color red. - self assert: (Color fromString: '#FF0000') = Color red diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringThreeDigit.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringThreeDigit.st deleted file mode 100644 index 3ae0aeac..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/instance/testFromStringThreeDigit.st +++ /dev/null @@ -1,6 +0,0 @@ -testing -testFromStringThreeDigit - self assert: (Color fromString: 'f00') = Color red. - self assert: (Color fromString: 'F00') = Color red. - self assert: (Color fromString: '#f00') = Color red. - self assert: (Color fromString: '#F00') = Color red \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/properties.json deleted file mode 100644 index 3b3b1ed2..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakColorTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRSqueakColorTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/README.md b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/instance/testNoAmbiguities.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/instance/testNoAmbiguities.st deleted file mode 100644 index de47bc4c..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/instance/testNoAmbiguities.st +++ /dev/null @@ -1,6 +0,0 @@ -tests -testNoAmbiguities - #('utf-8' 'UTF-8' 'utf8') do: [ :each | - self deny: (GRSqueakGenericCodec supportsEncoding: each) ]. - GRSqueakLatin1Codec supportedEncodingNames do: [ :each | - self deny: (GRSqueakGenericCodec supportsEncoding: each) ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/properties.json deleted file mode 100644 index ac8b2c1c..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakGenericCodecTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRSqueakGenericCodecTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/README.md b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/README.md deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testCompileIntoClassified.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testCompileIntoClassified.st deleted file mode 100644 index 9af1697f..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testCompileIntoClassified.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testCompileIntoClassified - | source protocol selectors selector | - source := 'aMethod - ^ ''a result'''. - protocol := 'a-protocol'. - selector := #aMethod. - GRPlatform current - compile: source - into: self class - classified: protocol. - - [ self assert: (self class selectors includes: selector). - selectors := self class organization listAtCategoryNamed: protocol. - self assert: selectors = (Array with: selector) ] ensure: [ self class removeSelectorSilently: selector ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testDeprecationExceptionSet.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testDeprecationExceptionSet.st deleted file mode 100644 index e43f8e40..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testDeprecationExceptionSet.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testDeprecationExceptionSet - | value | - value := [ - "intentially send Squeak instead of Grease deprecation message" - self deprecated: 'test'. - 'failed' ] - on: GRDeprecatedApiNotification, GRPlatform current deprecationExceptionSet - do: [ :e | 'passed' ]. - self assert: value = 'passed' \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testFullName.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testFullName.st deleted file mode 100644 index 18bfc31b..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testFullName.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testFullName - self assert: Object fullName = 'Object' \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testGreaseIntegerOnCharacter.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testGreaseIntegerOnCharacter.st deleted file mode 100644 index b62275e7..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testGreaseIntegerOnCharacter.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testGreaseIntegerOnCharacter - | character | - character := Character codePoint: 19982. - self assert: character greaseInteger = 19982. - character := Unicode value: 19982. - self assert: character greaseInteger = 19982. - LanguageEnvironment allSubclassesDo: [ :each | - (each class selectors includes: #leadingChar) ifTrue: [ - "fuck me gently with a chainsaw" - character := Character - leadingChar: each leadingChar - code: 19982. - self assert: character greaseInteger = 19982 ] ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st deleted file mode 100644 index 1f1bb911..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testMessageSendValueWithPossibleArguments.st +++ /dev/null @@ -1,33 +0,0 @@ -tests -testMessageSendValueWithPossibleArguments - | send | - send := MessageSend receiver: 1 selector: #+. - self assert: (send valueWithPossibleArguments: (Array with: 2)) = 3. - self assert: (send valueWithArguments: (Array with: 2)) = 3. - self assert: (send value: 2) = 3. - - send := MessageSend receiver: false selector: #not. - self assert: (send valueWithPossibleArguments: (Array with: 3)). - - send := MessageSend receiver: 1 selector: #+ arguments: #(2). - self assert: (send valueWithPossibleArguments: (Array with: 4)) = 3. - self assert: send value = 3. - - send := MessageSend receiver: Array selector: #with:with: arguments: #(1). - self assert: (send valueWithPossibleArguments: (Array with: 2)) size = 2. - - send := MessageSend receiver: Array selector: #with:with:. - self assert: (send value: 1 value: 2) size = 2. - - send := MessageSend - receiver: 1 - selector: #+. - self assert: send argumentCount = 1. - self assert: send arguments size = 0. - - send := MessageSend - receiver: 1 - selector: #+ - argument: 2. - self assert: send argumentCount isZero. - self assert: send arguments size = 1 diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderBinary.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderBinary.st deleted file mode 100644 index 0195f248..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderBinary.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testWriteToFileInFolderBinary - self writeToFile: #[80 104 39 110 103 108 117 105 32 109 103 108 119 39 110 97 102 104 32 67 116 104 117 108 104 117 32 82 39 108 121 101 104 32 119 103 97 104 39 110 97 103 108 32 102 104 116 97 103 110] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderText.st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderText.st deleted file mode 100644 index 0d513815..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/testWriteToFileInFolderText.st +++ /dev/null @@ -1,3 +0,0 @@ -tests -testWriteToFileInFolderText - self writeToFile: 'Ph''nglui mglw''nafh Cthulhu R''lyeh wgah''nagl fhtagn' \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/writeToFile..st b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/writeToFile..st deleted file mode 100644 index f773658a..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/instance/writeToFile..st +++ /dev/null @@ -1,11 +0,0 @@ -private -writeToFile: aStringOrByteArray - | fileName directory | - fileName := 'GRPharoPlatformTest'. - directory := FileDirectory default. - [ GRPlatform current - write: aStringOrByteArray - toFile: fileName - inFolder: directory pathName - ] ensure: [ - directory deleteFileNamed: fileName ] \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/properties.json deleted file mode 100644 index f126228b..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRSqueakPlatformTest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "category" : "Grease-Tests-Squeak6-Core", - "classinstvars" : [ - ], - "classvars" : [ - ], - "commentStamp" : "", - "instvars" : [ - ], - "name" : "GRSqueakPlatformTest", - "pools" : [ - ], - "super" : "TestCase", - "type" : "normal" } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st b/repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st deleted file mode 100644 index 1b447631..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/instance/expectedFailures.st +++ /dev/null @@ -1,3 +0,0 @@ -*grease-tests-squeak6-core -expectedFailures - ^ #(testCodecUtf8ShortestForm) \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/methodProperties.json b/repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/methodProperties.json deleted file mode 100644 index 2da0499d..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/methodProperties.json +++ /dev/null @@ -1,5 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "expectedFailures" : " 7/15/2024 14:23:54" } } diff --git a/repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/properties.json b/repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/properties.json deleted file mode 100644 index 8b1a3361..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/GRUtf8CodecTest.extension/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - "name" : "GRUtf8CodecTest" } diff --git a/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/categories.st b/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/categories.st deleted file mode 100644 index 9698a9dc..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Grease-Tests-Squeak6-Core'! diff --git a/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/initializers.st b/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29b..00000000 diff --git a/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/package b/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/package deleted file mode 100644 index b93761df..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-Squeak6-Core') \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/version b/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/version deleted file mode 100644 index c39cd75e..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/monticello.meta/version +++ /dev/null @@ -1 +0,0 @@ -(name 'Grease-Tests-Squeak6-Core-pmm.2' message 'migrate from FileSystem to FileDirectory' id '40a694dc-fd36-4eb0-8f1b-d8cf16a284b7' date '16 July 2024' time '9:17:38.293269 pm' author 'pmm' ancestors ((name 'Grease-Tests-Squeak6-Core-cypress.1' message 'fabricated from a Cypress format repository' id 'afd2d406-4bbd-45d0-aca3-6af0f80eb7d8' date '15 July 2024' time '2:23:54.178963 pm' author '' ancestors () stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/repository/Grease-Tests-Squeak6-Core.package/properties.json b/repository/Grease-Tests-Squeak6-Core.package/properties.json deleted file mode 100644 index f037444a..00000000 --- a/repository/Grease-Tests-Squeak6-Core.package/properties.json +++ /dev/null @@ -1,2 +0,0 @@ -{ - } diff --git a/repository/Grease-Tests-Squeak6-Core/GRPackage.extension.st b/repository/Grease-Tests-Squeak6-Core/GRPackage.extension.st new file mode 100644 index 00000000..128bf4ef --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core/GRPackage.extension.st @@ -0,0 +1,12 @@ +Extension { #name : 'GRPackage' } + +{ #category : '*grease-tests-squeak6-core' } +GRPackage class >> greaseTestsSqueak6Core [ + ^ self new + name: 'Grease-Tests-Squeak6-Core'; + description: 'Unit tests for the package Grease-Squeak6-Core.'; + addDependency: 'Grease-Squeak6-Core'; + addDependency: 'Grease-Tests-Core'; + url: #seasideUrl; + yourself +] diff --git a/repository/Grease-Tests-Squeak6-Core/GRPlatformTest.extension.st b/repository/Grease-Tests-Squeak6-Core/GRPlatformTest.extension.st new file mode 100644 index 00000000..321284d9 --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core/GRPlatformTest.extension.st @@ -0,0 +1,22 @@ +Extension { #name : 'GRPlatformTest' } + +{ #category : '*grease-tests-squeak6-core' } +GRPlatformTest >> testScaledDecimalGreaseString [ + self assert: 123.4s1 greaseString = '123.4'. + self assert: 123.4s2 greaseString = '123.40'. + self assert: 123s0 greaseString = '123' +] + +{ #category : '*grease-tests-squeak6-core' } +GRPlatformTest >> writeToFile: aStringOrByteArray withFileNameDo: aBlock [ + | fileName directory | + fileName := 'GRSqueakPlatformTest'. + directory := FileDirectory default. + [ GRPlatform current + write: aStringOrByteArray + toFile: fileName + inFolder: directory fullName. + aBlock value: directory fullName, GRPlatform current pathSeparator, fileName + ] ensure: [ + directory deleteFileNamed: fileName ] +] diff --git a/repository/Grease-Tests-Squeak6-Core/GRPrinterTest.extension.st b/repository/Grease-Tests-Squeak6-Core/GRPrinterTest.extension.st new file mode 100644 index 00000000..9e544292 --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core/GRPrinterTest.extension.st @@ -0,0 +1,22 @@ +Extension { #name : 'GRPrinterTest' } + +{ #category : '*grease-tests-squeak6-core' } +GRPrinterTest >> testScaledDecimalPrinter [ + | converter | + converter := GRNumberPrinter new precision: 2. + self assert: (converter print: 1.009s3) = '1.01'. + self assert: (converter print: 1.01s2) = '1.01'. + self assert: (converter print: 1.019s3) = '1.02'. + self assert: (converter print: 1.25s2) = '1.25'. + self assert: (converter print: 1.254s3) = '1.25'. + self assert: (converter print: 1.256s3) = '1.26'. + self assert: (converter print: 1.009s3) = '1.01'. + self assert: (converter print: 0.9s1) = '0.90'. + self assert: (converter print: 0.99s2) = '0.99'. + self assert: (converter print: 0.999s3) = '1.00'. + self assert: (converter print: 0.9999s4) = '1.00'. + self assert: (converter print: -0.9s1) = '0.90'. + self assert: (converter print: -0.99s2) = '0.99'. + self assert: (converter print: -0.999s3) = '1.00'. + self assert: (converter print: -0.9999s4) = '1.00' +] diff --git a/repository/Grease-Tests-Squeak6-Core/GRSqueakCodecTest.class.st b/repository/Grease-Tests-Squeak6-Core/GRSqueakCodecTest.class.st new file mode 100644 index 00000000..2433816b --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core/GRSqueakCodecTest.class.st @@ -0,0 +1,73 @@ +Class { + #name : 'GRSqueakCodecTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Squeak6-Core', + #package : 'Grease-Tests-Squeak6-Core' +} + +{ #category : 'private' } +GRSqueakCodecTest >> assert: aString next: anInteger startingAt: startIndex gives: anEncodedString [ + | actual | + actual := String streamContents: [ :stream | + ((GRCodec forEncoding: 'utf-8') encoderFor: stream) + greaseNext: anInteger putAll: aString startingAt: startIndex ]. + self assert: actual = anEncodedString +] + +{ #category : 'private' } +GRSqueakCodecTest >> assertEncodingIgnoresLanguageTat: aStringWithLanguageTag [ + | codec withLanguageTag withoutLanguageTag | + codec := GRCodec forEncoding: 'utf-8'. + withLanguageTag := codec encode: aStringWithLanguageTag. + withoutLanguageTag := codec encode: (self stripLeadingCharFrom: aStringWithLanguageTag). + self assert: withLanguageTag = withoutLanguageTag +] + +{ #category : 'private' } +GRSqueakCodecTest >> stripLeadingCharFrom: aString [ + "strips the leadingChar from every character in the given string" + ^ String streamContents: [ :stream | + aString do: [ :each | + stream nextPut: (Character + leadingChar: 0 + code: each greaseInteger) ] ] +] + +{ #category : 'tests' } +GRSqueakCodecTest >> testAllCodesIncludesIso88591 [ + self assert: (GRCodec allCodecs anySatisfy: [ :each | + each name = 'iso-8859-1' ]) +] + +{ #category : 'tests' } +GRSqueakCodecTest >> testGreaseNextPutAllStartingAt [ + | umlaut encodedUmlaut | + umlaut := String with: (Character codePoint: 228). + encodedUmlaut := String with: (Character codePoint: 195) with: (Character codePoint: 164). + self assert: 'ab' next: 1 startingAt: 1 gives: 'a'. + self assert: 'a', umlaut, 'b' next: 1 startingAt: 1 gives: 'a'. + self assert: 'ab', umlaut next: 1 startingAt: 1 gives: 'a'. + self assert: 'a', umlaut, 'b' next: 2 startingAt: 1gives: 'a', encodedUmlaut. + self assert: 'a', umlaut, 'b' next: 1 startingAt: 2 gives: encodedUmlaut. + self assert: 'a', umlaut, 'b' next: 2 startingAt: 2 gives: encodedUmlaut, 'b'. + self assert: 'a', umlaut, umlaut next: 2 startingAt: 2 gives: encodedUmlaut, encodedUmlaut. + self assert: 'ab', umlaut, 'b', umlaut next: 3 startingAt: 2 gives: 'b', encodedUmlaut, 'b' +] + +{ #category : 'tests' } +GRSqueakCodecTest >> testLanguageTag [ + "this makes sure the encoder doesn't fall on the nose with unicode" + "Make Japanese String from unicode. see http://www.unicode.org/charts/PDF/U3040.pdf" + | leading hiraA hiraO hiraAO | + leading := (Smalltalk classNamed: #JapaneseEnvironment) leadingChar. + hiraA := (Character + leadingChar: leading + code: 12354) greaseString. "HIRAGANA LETTER A" + hiraO := (Character + leadingChar: leading + code: 12362) greaseString. "HIRAGANA LETTER O" + hiraAO := hiraA , hiraO. + self assertEncodingIgnoresLanguageTat: hiraA. + self assertEncodingIgnoresLanguageTat: hiraO. + self assertEncodingIgnoresLanguageTat: hiraAO +] diff --git a/repository/Grease-Tests-Squeak6-Core/GRSqueakColorTest.class.st b/repository/Grease-Tests-Squeak6-Core/GRSqueakColorTest.class.st new file mode 100644 index 00000000..ea05ddfe --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core/GRSqueakColorTest.class.st @@ -0,0 +1,81 @@ +Class { + #name : 'GRSqueakColorTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Squeak6-Core', + #package : 'Grease-Tests-Squeak6-Core' +} + +{ #category : 'testing' } +GRSqueakColorTest >> expectedFailures [ + ^ #(testFromStringThreeDigit) +] + +{ #category : 'testing' } +GRSqueakColorTest >> testAllColors [ + | toTest | + toTest := #( + 16r000000 16r000001 16r000101 16r010101 16r010100 16r010000 16r001001 16r101001 + 16r001122 16r334455 16r667788 16r99AABB 16rCCDDEE 16rFF0011 + 16r123456 16r789ABC 16rDEFEDC + 16rFEFEEF 16rFEFEFF 16rFEFEFE 16rFFFEFE 16rFFFFFE 16rFFFFFF). + toTest do: [ :int | + | hex | + hex := int printPaddedWith: $0 to: 6 base: 16. + self assert: (Color fromString: hex) asHTMLColor asLowercase = ('#', hex) asLowercase ] +] + +{ #category : 'testing' } +GRSqueakColorTest >> testColorAsHtmlColor [ + "test for: + Color >> #hex + | aStream | + aStream := (String new: 6) writeStream. + aStream nextPutAll: (((self red * 255) asInteger printStringBase: 16) + padded: #left to: 2 with: $0). + aStream nextPutAll: (((self green * 255) asInteger printStringBase: 16) + padded: #left to: 2 with: $0). + aStream nextPutAll: (((self blue * 255) asInteger printStringBase: 16) + padded: #left to: 2 with: $0). + ^ aStream contents + + Color >> #asHTMLColor + ^ '#', self hex" + self assert: (#('#ffffff' '#FFFFFF' ) includes: Color white asHTMLColor). + self assert: (Color black asHTMLColor = '#000000'). + self assert: (#('#ff0000' '#FF0000' ) includes: Color red asHTMLColor) +] + +{ #category : 'testing' } +GRSqueakColorTest >> testFromSixDigit [ + self assert: (Color fromString: 'ff0000') = Color red. + self assert: (Color fromString: 'FF0000') = Color red. + self assert: (Color fromString: '#ff0000') = Color red. + self assert: (Color fromString: '#FF0000') = Color red + +] + +{ #category : 'testing' } +GRSqueakColorTest >> testFromStringName [ + self assert: (Color fromString: 'red') = Color red. + self assert: (Color fromString: 'RED') = Color red. + self assert: (Color fromString: '#red') = Color red. + self assert: (Color fromString: '#RED') = Color red + +] + +{ #category : 'testing' } +GRSqueakColorTest >> testFromStringSixDigit [ + self assert: (Color fromString: 'ff0000') = Color red. + self assert: (Color fromString: 'FF0000') = Color red. + self assert: (Color fromString: '#ff0000') = Color red. + self assert: (Color fromString: '#FF0000') = Color red + +] + +{ #category : 'testing' } +GRSqueakColorTest >> testFromStringThreeDigit [ + self assert: (Color fromString: 'f00') = Color red. + self assert: (Color fromString: 'F00') = Color red. + self assert: (Color fromString: '#f00') = Color red. + self assert: (Color fromString: '#F00') = Color red +] diff --git a/repository/Grease-Tests-Squeak6-Core/GRSqueakGenericCodecTest.class.st b/repository/Grease-Tests-Squeak6-Core/GRSqueakGenericCodecTest.class.st new file mode 100644 index 00000000..a812721c --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core/GRSqueakGenericCodecTest.class.st @@ -0,0 +1,14 @@ +Class { + #name : 'GRSqueakGenericCodecTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Squeak6-Core', + #package : 'Grease-Tests-Squeak6-Core' +} + +{ #category : 'tests' } +GRSqueakGenericCodecTest >> testNoAmbiguities [ + #('utf-8' 'UTF-8' 'utf8') do: [ :each | + self deny: (GRSqueakGenericCodec supportsEncoding: each) ]. + GRSqueakLatin1Codec supportedEncodingNames do: [ :each | + self deny: (GRSqueakGenericCodec supportsEncoding: each) ] +] diff --git a/repository/Grease-Tests-Squeak6-Core/GRSqueakPlatformTest.class.st b/repository/Grease-Tests-Squeak6-Core/GRSqueakPlatformTest.class.st new file mode 100644 index 00000000..3dd7f4d7 --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core/GRSqueakPlatformTest.class.st @@ -0,0 +1,115 @@ +Class { + #name : 'GRSqueakPlatformTest', + #superclass : 'TestCase', + #category : 'Grease-Tests-Squeak6-Core', + #package : 'Grease-Tests-Squeak6-Core' +} + +{ #category : 'tests' } +GRSqueakPlatformTest >> testCompileIntoClassified [ + | source protocol selectors selector | + source := 'aMethod + ^ ''a result'''. + protocol := 'a-protocol'. + selector := #aMethod. + GRPlatform current + compile: source + into: self class + classified: protocol. + + [ self assert: (self class selectors includes: selector). + selectors := self class organization listAtCategoryNamed: protocol. + self assert: selectors = (Array with: selector) ] ensure: [ self class removeSelectorSilently: selector ] +] + +{ #category : 'tests' } +GRSqueakPlatformTest >> testDeprecationExceptionSet [ + | value | + value := [ + "intentially send Squeak instead of Grease deprecation message" + self deprecated: 'test'. + 'failed' ] + on: GRDeprecatedApiNotification, GRPlatform current deprecationExceptionSet + do: [ :e | 'passed' ]. + self assert: value = 'passed' +] + +{ #category : 'tests' } +GRSqueakPlatformTest >> testFullName [ + self assert: Object fullName = 'Object' +] + +{ #category : 'tests' } +GRSqueakPlatformTest >> testGreaseIntegerOnCharacter [ + | character | + character := Character codePoint: 19982. + self assert: character greaseInteger = 19982. + character := Unicode value: 19982. + self assert: character greaseInteger = 19982. + LanguageEnvironment allSubclassesDo: [ :each | + (each class selectors includes: #leadingChar) ifTrue: [ + "fuck me gently with a chainsaw" + character := Character + leadingChar: each leadingChar + code: 19982. + self assert: character greaseInteger = 19982 ] ] +] + +{ #category : 'tests' } +GRSqueakPlatformTest >> testMessageSendValueWithPossibleArguments [ + | send | + send := MessageSend receiver: 1 selector: #+. + self assert: (send valueWithPossibleArguments: (Array with: 2)) = 3. + self assert: (send valueWithArguments: (Array with: 2)) = 3. + self assert: (send value: 2) = 3. + + send := MessageSend receiver: false selector: #not. + self assert: (send valueWithPossibleArguments: (Array with: 3)). + + send := MessageSend receiver: 1 selector: #+ arguments: #(2). + self assert: (send valueWithPossibleArguments: (Array with: 4)) = 3. + self assert: send value = 3. + + send := MessageSend receiver: Array selector: #with:with: arguments: #(1). + self assert: (send valueWithPossibleArguments: (Array with: 2)) size = 2. + + send := MessageSend receiver: Array selector: #with:with:. + self assert: (send value: 1 value: 2) size = 2. + + send := MessageSend + receiver: 1 + selector: #+. + self assert: send argumentCount = 1. + self assert: send arguments size = 0. + + send := MessageSend + receiver: 1 + selector: #+ + argument: 2. + self assert: send argumentCount isZero. + self assert: send arguments size = 1 + +] + +{ #category : 'tests' } +GRSqueakPlatformTest >> testWriteToFileInFolderBinary [ + self writeToFile: #[80 104 39 110 103 108 117 105 32 109 103 108 119 39 110 97 102 104 32 67 116 104 117 108 104 117 32 82 39 108 121 101 104 32 119 103 97 104 39 110 97 103 108 32 102 104 116 97 103 110] +] + +{ #category : 'tests' } +GRSqueakPlatformTest >> testWriteToFileInFolderText [ + self writeToFile: 'Ph''nglui mglw''nafh Cthulhu R''lyeh wgah''nagl fhtagn' +] + +{ #category : 'private' } +GRSqueakPlatformTest >> writeToFile: aStringOrByteArray [ + | fileName directory | + fileName := 'GRPharoPlatformTest'. + directory := FileDirectory default. + [ GRPlatform current + write: aStringOrByteArray + toFile: fileName + inFolder: directory pathName + ] ensure: [ + directory deleteFileNamed: fileName ] +] diff --git a/repository/Grease-Tests-Squeak6-Core/GRUtf8CodecTest.extension.st b/repository/Grease-Tests-Squeak6-Core/GRUtf8CodecTest.extension.st new file mode 100644 index 00000000..145bc328 --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core/GRUtf8CodecTest.extension.st @@ -0,0 +1,6 @@ +Extension { #name : 'GRUtf8CodecTest' } + +{ #category : '*grease-tests-squeak6-core' } +GRUtf8CodecTest >> expectedFailures [ + ^ #(testCodecUtf8ShortestForm) +] diff --git a/repository/Grease-Tests-Squeak6-Core/package.st b/repository/Grease-Tests-Squeak6-Core/package.st new file mode 100644 index 00000000..cc0b9ee5 --- /dev/null +++ b/repository/Grease-Tests-Squeak6-Core/package.st @@ -0,0 +1 @@ +Package { #name : 'Grease-Tests-Squeak6-Core' }