Skip to content

Commit c2a6883

Browse files
committed
Added Cypress-based repository for the neutral accesses from various Smalltalk dialects.
1 parent fc42f3a commit c2a6883

File tree

422 files changed

+2466
-0
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

422 files changed

+2466
-0
lines changed

repository/.filetree

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
{ "packageExtension" : ".package" }
Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
{
2+
"noMethodMetaData" : true,
3+
"separateMethodMetaAndSource" : false,
4+
"useCypressPropertiesFile" : true }

repository/ConfigurationOfMessagePack.package/ConfigurationOfMessagePack.class/README.md

Lines changed: 13 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,13 @@
1+
private
2+
bootstrapPackage: aString from: aPath
3+
| repository version |
4+
repository := MCHttpRepository
5+
location: aPath
6+
user: ''
7+
password: ''.
8+
repository
9+
versionReaderForFileNamed: aString , '.mcz'
10+
do: [:reader |
11+
version := reader version.
12+
version load.
13+
version workingCopy repositoryGroup addRepository: repository]
Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,10 @@
1+
development support
2+
compareVersions
3+
"Compare previous version to development version"
4+
5+
"self compareVersions"
6+
7+
"Note: you need 1.0-beta.28 or later for the class MetacelloToolBox"
8+
9+
self ensureMetacello.
10+
((Smalltalk at: #MetacelloToolBox) compareVersionsIn: self) inspect
Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,10 @@
1+
development support
2+
createNewDevelopmentVersion
3+
"Create a new development version using the #stable version as model."
4+
5+
"self createNewDevelopmentVersion"
6+
7+
"Note: you need 1.0-beta.28 or later for the class MetacelloToolBox"
8+
9+
self ensureMetacello.
10+
(Smalltalk at: #MetacelloToolBox) createNewDevelopmentVersionIn: self description: ''
Lines changed: 17 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,17 @@
1+
private
2+
ensureMetacello
3+
"Bootstrap Gofer (if necessary), bootstrap ConfigurationOfMetacello (using old Gofer API), then load the latest
4+
version of Metacello itself."
5+
6+
Smalltalk at: #MetacelloProject ifAbsent: [
7+
Smalltalk at: #Gofer ifAbsent: [
8+
"Current version of Gofer from which to bootstrap - as of 1.0-beta.21"
9+
self bootstrapPackage: 'Gofer-Core-lr.115' from: 'http://seaside.gemstone.com/ss/metacello' ].
10+
Smalltalk at: #Gofer ifPresent: [:goferClass | | gofer |
11+
gofer := goferClass new
12+
url: 'http://seaside.gemstone.com/ss/metacello';
13+
yourself.
14+
[ gofer addPackage: 'ConfigurationOfMetacello' ] on: Warning do: [:ex | ex resume ].
15+
gofer load ].
16+
"load 'default' group of Metacello"
17+
(Smalltalk at: #ConfigurationOfMetacello) perform: #load ]
Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
metacello tool support
2+
isMetacelloConfig
3+
"Answer true and the Metacello tools will operate on you"
4+
5+
^true
Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
metacello tool support
2+
lastMetacelloVersionLoad
3+
"Answer the last version loaded and the list of packages loaded for that version."
4+
5+
LastVersionLoad == nil ifTrue: [ LastVersionLoad := nil -> 'default' ].
6+
^LastVersionLoad
Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
loading
2+
load
3+
"self load"
4+
5+
^self project latestVersion load

0 commit comments

Comments
 (0)