X Tutup
Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion .travis.yml
Original file line number Diff line number Diff line change
Expand Up @@ -8,7 +8,7 @@ env:
- ST=Squeak-4.4 BASELINE=Grease LOADS="'Tests'" REPOSITORY="filetree://${TRAVIS_BUILD_DIR}/repository"
- ST=GemStone-2.4.4.2 BASELINE=Grease LOADS="'Tests'" REPOSITORY="filetree://${TRAVIS_BUILD_DIR}/repository"
- ST=GemStone-3.1.0.6 BASELINE=Grease LOADS="'Tests'" REPOSITORY="filetree://${TRAVIS_BUILD_DIR}/repository"
- ST=GemStone-3.2.0 BASELINE=Grease LOADS="'Tests'" REPOSITORY="filetree://${TRAVIS_BUILD_DIR}/repository"
- ST=GemStone-3.2.2 BASELINE=Grease LOADS="'Tests'" REPOSITORY="filetree://${TRAVIS_BUILD_DIR}/repository"

install:
- export PROJECT_HOME="$(pwd)"
Expand Down
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
convenience
decode: aString
"Overridden for efficencey."
"Overridden for efficiency."

^ aString
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
convenience
encode: aString
"Overridden for efficencey."
"Overridden for efficiency."

^ aString
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
"codecs" : "jf 2/7/2009 20:27",
"supportsEncoding:" : "lr 7/25/2011 19:46" },
"instance" : {
"decode:" : "lr 2/7/2009 11:50",
"decode:" : "pmm 8/19/2014 10:00",
"decoderFor:" : "jf 9/30/2009 00:28",
"encode:" : "lr 2/7/2009 11:50",
"encode:" : "pmm 8/19/2014 10:00",
"encoderFor:" : "jf 9/30/2009 00:28",
"name" : "pmm 5/26/2010 07:07",
"url" : "lr 2/7/2009 12:06" } }
Original file line number Diff line number Diff line change
Expand Up @@ -4,11 +4,11 @@ resolveWith: aDictionary
collect: [ :each |
aDictionary at: each ifAbsent: [
"if Foo-Pharo-Bar fails try Foo-Pharo20-Bar and Foo-Pharo30-Bar"
(each indexOfSubCollection: '-Pharo-' startingAt: 0) ~= 0 ifTrue: [
(each indexOfSubCollection: '-Pharo-' startingAt: 1) ~= 0 ifTrue: [
"try -Pharo20-"
aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo20-') ifAbsent: [
"try -Pharo30-"
aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo30-') ifAbsent: [
"try -Pharo40-"
aDictionary at: (each copyReplaceAll: '-Pharo-' with: '-Pharo40-') ifAbsent: [
self error: self name printString , ' depends on unknown package ' , each printString ] ] ] ] ]]
self error: self name printString , ' depends on unknown package ' , each printString ] ] ] ] ] ]
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,7 @@
"name" : "lr 2/17/2010 15:18",
"name:" : "lr 10/25/2009 11:26",
"printOn:" : "merged 10/20/2008 09:24",
"resolveWith:" : "StephanEggermont 7/2/2014 19:02",
"resolveWith:" : "jok 8/23/2014 10:59",
"seasideAddonsUrl" : "pmm 9/12/2013 15:59",
"seasideLGPLUrl" : "pmm 9/12/2013 15:59",
"seasideUrl" : "pmm 9/12/2013 15:58",
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
exceptions
deprecationExceptionSet
"Answer the exception set that should considered besides WADeprecation."
^#()
^ ExceptionSet new
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
file library
localNameOf: aFilename
"Answer the local name of a file indentified by an absolute file path.
"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'.
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -2,5 +2,5 @@ version info
version
"Answer the Grease version"

^ (GRVersion major: 1 minor: 1 revision: 9)
^ (GRVersion major: 1 minor: 1 revision: 10)
yourself
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
file library
write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString
"Write aStringOrByteArray to a file named aFilenameString in the folder aFolderString."
"Write aStringOrByteArray to a file named aFileNameString in the folder aFolderString."
self subclassResponsibility
Original file line number Diff line number Diff line change
Expand Up @@ -12,14 +12,14 @@
"compile:into:classified:" : "jf 1/22/2009 02:11",
"contentsOfFile:binary:" : "jf 1/22/2009 02:11",
"convertToSmalltalkNewlines:" : "lr 4/15/2010 19:15",
"deprecationExceptionSet" : "pmm 2/16/2014 23:12",
"deprecationExceptionSet" : "pmm 9/6/2014 12:17",
"directoriesIn:" : "NickAger 3/9/2012 11:29",
"doTransaction:" : "lr 7/25/2011 19:51",
"ensureExistenceOfFolder:" : "pmm 2/5/2011 09:54",
"filesIn:" : "pmm 2/5/2011 09:54",
"isProcessTerminated:" : "jf 2/6/2009 16:00",
"label" : "jf 2/9/2010 00:57",
"localNameOf:" : "pmm 2/5/2011 09:54",
"localNameOf:" : "pmm 8/19/2014 10:10",
"newRandom" : "jf 9/25/2009 16:40",
"newline" : "lr 4/15/2010 19:13",
"openDebuggerOn:" : "jf 1/22/2009 02:11",
Expand All @@ -34,8 +34,8 @@
"semaphoreClass" : "jf 1/22/2009 02:10",
"stackDepth" : "jf 1/22/2009 02:11",
"terminateProcess:" : "jf 2/6/2009 16:00",
"version" : "JohanBrichau 6/11/2014 07:41",
"version" : "JohanBrichau 7/20/2014 17:51",
"versionString" : "jf 2/9/2010 00:57",
"weakDictionaryOfSize:" : "jf 1/22/2009 02:11",
"write:toFile:inFolder:" : "pmm 2/5/2011 09:53",
"write:toFile:inFolder:" : "pmm 8/19/2014 10:11",
"writeCharacterStreamOn:" : "pmm 8/26/2011 09:45" } }
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
factory-http
isoDate
"Ansers a printer that formats dates accoring to ISO(YYYY-MM-DD) E.g. 2003-12-24"
"Ansers a printer that formats dates according to ISO(YYYY-MM-DD) E.g. 2003-12-24"

^ self paddedYear , $- , self paddedMonth , $- , self paddedDay
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
factory-http
isoTime
"Ansers a printer that formats time accoring to ISO(HH:MM:SS) E.g. 12:23:34"
"Ansers a printer that formats time according to ISO(HH:MM:SS) E.g. 12:23:34"

^ self paddedHour24 , $: , self paddedMinute , $: , self paddedSecond
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
factory-http
rfc822
"Answers a privter that formats dates according to RFC 822 (email). Eg.
"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
Original file line number Diff line number Diff line change
Expand Up @@ -10,8 +10,8 @@
"fullMonthName" : "lr 7/24/2008 13:59",
"fullWeekName" : "lr 7/24/2008 14:25",
"httpDate" : "lr 2/19/2012 13:01",
"isoDate" : "lr 2/19/2012 13:01",
"isoTime" : "lr 2/19/2012 13:01",
"isoDate" : "pmm 8/19/2014 10:06",
"isoTime" : "pmm 8/19/2014 10:05",
"monthName:" : "jf 9/30/2009 00:32",
"numberWithAtLeastDigits:" : "lr 2/19/2012 13:00",
"offsetSign" : "jf 9/30/2009 00:33",
Expand All @@ -24,7 +24,7 @@
"paddedSecond" : "jf 9/30/2009 00:32",
"paddedYear" : "jf 9/30/2009 00:32",
"rfc1123" : "lr 2/19/2012 13:01",
"rfc822" : "lr 2/19/2012 13:01",
"rfc822" : "pmm 8/19/2014 10:06",
"rfc822WithTimeZone:" : "lr 2/19/2012 13:02",
"swissCurrency" : "jf 9/30/2009 00:33",
"unpaddedCentury" : "jf 9/30/2009 00:32",
Expand Down
8 changes: 4 additions & 4 deletions repository/Grease-Core.package/monticello.meta/categories.st
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
SystemOrganization addCategory: #'Grease-Core'!
SystemOrganization addCategory: 'Grease-Core-Collections'!
SystemOrganization addCategory: 'Grease-Core-Exceptions'!
SystemOrganization addCategory: 'Grease-Core-Text'!
SystemOrganization addCategory: 'Grease-Core-Utilities'!
SystemOrganization addCategory: #'Grease-Core-Collections'!
SystemOrganization addCategory: #'Grease-Core-Exceptions'!
SystemOrganization addCategory: #'Grease-Core-Text'!
SystemOrganization addCategory: #'Grease-Core-Utilities'!
4 changes: 2 additions & 2 deletions repository/Grease-Core.package/monticello.meta/version

Large diffs are not rendered by default.

Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ running
checkMethod: aContext
| periods position |
aContext parseTree nodesDo: [ :node |
(node isSequence and:[node periods notEmpty]) ifTrue: [
(node isSequence and: [ node periods notEmpty ]) ifTrue: [
periods := OrderedCollection withAll: node periods.
1 to: node statements size - 1 do: [ :index |
position := periods removeFirst.
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@
"class" : {
},
"instance" : {
"checkMethod:" : "JohanBrichau 6/8/2014 17:59",
"checkMethod:" : "pmm 8/19/2014 09:36",
"group" : "jok 1/26/2010 14:25",
"name" : "lr 9/8/2009 13:59",
"rationale" : "lr 9/8/2009 14:12",
Expand Down
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
I check for TestCase >> #fail.
Original file line number Diff line number Diff line change
@@ -0,0 +1,7 @@
running
checkMethod: aContext
aContext selectedClass isMeta
ifTrue: [ ^ self ].
(aContext includesBehaviorNamed: #TestCase)
ifFalse: [ ^ self ].
^ super checkMethod: aContext
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
accessing
group
^ 'SUnit Compatibility'
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
initialization
initialize
super initialize.
self rewriteRule
replace: 'self fail'
with: 'self assert: false'
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
accessing
name
^ 'TestCase >> #fail'
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
accessing
rationale
^ 'TestCase >> #fail is not portable.'
Original file line number Diff line number Diff line change
@@ -0,0 +1,9 @@
{
"class" : {
},
"instance" : {
"checkMethod:" : "pmm 8/17/2014 12:27",
"group" : "pmm 8/17/2014 11:21",
"initialize" : "pmm 8/17/2014 11:21",
"name" : "pmm 8/17/2014 11:22",
"rationale" : "pmm 8/17/2014 11:55" } }
Original file line number Diff line number Diff line change
@@ -0,0 +1,14 @@
{
"category" : "Grease-Slime",
"classinstvars" : [
],
"classvars" : [
],
"commentStamp" : "pmm 8/17/2014 11:24",
"instvars" : [
],
"name" : "GRTestAssertionsRule",
"pools" : [
],
"super" : "GRSlimeTransformationRule",
"type" : "normal" }
Loading
X Tutup