Skip to content

Instantly share code, notes, and snippets.

View dalehenrich's full-sized avatar

Dale Henrichs dalehenrich

View GitHub Profile
abort - Abort transaction
bedit - batch edit tool
begin - Begin transaction
break - Method breakpoint management
browse - Find and view classes and methods
bu - Manage GemStone backups
cat - Display contents of node
cd - Change node
cls - class management
commit - Commit transaction
projectinstall
"
project install ( <project-name> | [--local|--stone] --url=<project-entry-url> )
"
| projectName registration |
self
getSubcommandOptsMixedLongShort:
{#('local' nil #'none').
#('stone' nil #'none').
projectentry
"
project entry --baseline=<project-name> --repo=<project-repo> [--loads=<load-expression>] \
<project-path>
entry --config=<project-name> [--version=<project-version>] \
--repo=<project-repo> [--loads=<load-expression>] <project-path>
entry --git=<project-name> [--repo=<git-repo-path>] <project-path>
entry --url=<url-for-project-entry.ston> <project-path>
"

project load --url=...

tODE script:

project entry --url=http://gsdevkit.github.io/GsDevKit_home/Seaside31.ston
project clone --https --local Seaside3
project load Seaside3

project load --url=...

tODE script:

project entry --url=http://gsdevkit.github.io/GsDevKit_home/Seaside31.ston
project clone --https --local Seaside3
project load Seaside3

project entry --url=...

^ TDProjectSpecEntryDefinition new
comment: '';
projectUrl: 'https://github.com/GsDevKit/Seaside31';
baseline: 'Seaside3'
repository: 'github://GsDevKit/Seaside31:3.1.?/repository'
loads: #('Development' 'Zinc' 'FastCGI' 'Examples');
installScript: 'project clone --https --local Seaside3';
gitCheckout: 'gs_master';
status: #(#'inactive');
locked: false;

Loading Seaside over the ages

2007 - GLASS Applicance

???

2010 - Metacello

Gofer new
@dalehenrich
dalehenrich / extractSpecsFromBaseline.st
Created October 13, 2015 16:58
extract specs from baseline
| ar |
ar := (BaselineOfSton project version: 'baseline') spec packages map
values asArray.
ar do: [ :spec | spec instVarNamed: 'project' put: nil ].
STON toStringPretty: ar
@dalehenrich
dalehenrich / resetSHOUTGlobals.st
Last active September 22, 2015 17:27
reset SHOUT globals
[ :topez :objIn :tokens :command :commandNode |
| opts args |
"for help: ./resetSHOUTGlobals -h"
command
getOptsMixedLongShort: {#('help' $h #'none')}
optionsAndArguments: [ :options :operands |
opts := options.
args := operands ].
opts
at: 'help'
@dalehenrich
dalehenrich / resetSHOUTGlobals.ston
Last active September 22, 2015 17:28
reset SHOUT Global tode script
TDScriptLeafNode{#name:'resetSHOUTGlobals',#contents:'[ :topez :objIn :tokens :command :commandNode |
| opts args |
\"for help: ./resetSHOUTGlobals -h\"
command
getOptsMixedLongShort: {#(\'help\' $h #\'none\')}
optionsAndArguments: [ :options :operands |
opts := options.
args := operands ].
opts
at: \'help\'