Skip to content

Instantly share code, notes, and snippets.

Avatar

Dale Henrichs dalehenrich

View GitHub Profile
View man--all.txt
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
View TDMetacelloTool>>projectinstall.st
projectinstall
"
project install ( <project-name> | [--local|--stone] --url=<project-entry-url> )
"
| projectName registration |
self
getSubcommandOptsMixedLongShort:
{#('local' nil #'none').
#('stone' nil #'none').
View TDMetacelloTool>>projectentry.st
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>
"
View porjectLoadSeasideFromUrlTodeAPI.md

project load --url=...

tODE script:

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

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=...

View seaside31ProjectEntry.st
^ 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;
View howtoloadseaside.md

Loading Seaside over the ages

2007 - GLASS Applicance

???

2010 - Metacello

Gofer new
View extractSpecsFromBaseline.st
| 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 Sep 22, 2015
reset SHOUT globals
View resetSHOUTGlobals.st
[ :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 Sep 22, 2015
reset SHOUT Global tode script
View resetSHOUTGlobals.ston
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\'