Skip to content

Instantly share code, notes, and snippets.

View bug.ston
TDScriptLeafNode{#name:'bug',#contents:'[ :topez :objIn :tokens :command |
| opts args |
\"for help: ./bug -h\"
command
getOptsMixedLongShort:
{#(\'help\' $h #\'none\').
#(\'boom\' nil #\'none\').
#(\'clean\' nil #\'none\').
#(\'create\' nil #\'none\').
#(\'install\' nil #\'none\')}
View bug.st
[ :topez :objIn :tokens :command |
| opts args |
"for help: ./bug -h"
command
getOptsMixedLongShort:
{#('help' $h #'none').
#('boom' nil #'none').
#('clean' nil #'none').
#('create' nil #'none').
#('install' nil #'none')}
View TheLightAtTheEndOfTheTunnel_2.md

The Light At The End Of The Tunnel: Announcing the release of GsDevKit_home and tODE

  1. GsDevKit_home & tODE provides a complete Smalltalk development environment for GemStone/S 64
    • easy GsDevKit installation:

      git clone https://github.com/GsDevKit/GsDevKit_home.git
      cd GsDevKit_home
      export GS_HOME=`pwd`
      export PATH=$GS_HOME/bin:$PATH
      
View TheLightAtTheEndOfTheTunnel_1.md

The Light At The End Of The Tunnel: Announcing the release of GsDevKit_home and tODE

GsDevKit_home

  1. GsDevKit_home development kit for GemStone/S 64, provides a framework of Bash scripts and directory structure for working with a collection of multiple stones.
  • Bash scripts
    • createStone
    • deleteStone
    • startStone
    • stopStone
View TheLightAtTheEndOfTheTunnel_0.md
View projectList.txt
|Foo| 5fc250e [master] filetree://$GS_HOME/shared/repos/Foo/repository
GsDevKit_home 4c94c05 [dev] $GS_HOME
|FileTree| 263ef78 [gemstone2.4] filetree:///export/foos1/users/dhenrich/dev/_home/shared/repos/filetree/repository
|GLASS1| 4887ed9 [master] filetree:///export/foos1/users/dhenrich/dev/_home/shared/repos/glass/repository
Gofer 1.0.5.4 [release] http://seaside.gemtalksystems.com/ss/metacello
|Grease| b674ad0 [master] filetree:///export/foos1/users/dhenrich/dev/_home/shared/repos/Grease/repository
|Metacello| 02c2382 [master] filetree:///export/foos1/users/dhenrich/dev/_home/shared/repos/metacello-work/repository
|RB| d6639e0 [dev] filetree:///export/foos1/users/dhenrich/dev/_home/shared/repos/rb/repository
|Ston| 25aace1 [gemstone] filetree:///export/foos1/users/dhenrich/dev/_home/shared/repos/ston/repository
|Tode| daf6
View projectCommandSummary.txt
project - Metacello project management support.
project install - Run the installScript for the given project entry
project clone - Clone repository (github only)
project browse - Browse project artifacts
project upgrade - Perform a post GsDevKit upgrade installation
project commit - Commit the Metacello project
project compare - View differences between repository versions (git only)
project diff - View code differences between image and repository
project entry - Create a new project entry
project unregister - Unregister the project
View TDMetacelloTool>>projectlog.st
projectlog
"
project log [--limit=<max-commit-log-entries>] <project-name>
"
| logLimit registration projectName |
self getSubcommandOptsMixedLongShort: {#('limit' nil #'required')}.
subOptions
at: 'limit'
ifPresent: [ :limit | logLimit := limit asNumber ]
View projectLogManPage.txt
NAME
project log - Browse commit log for the Metacello project (git only)
SYNOPSIS
project log [--limit=<max-commit-log-entries>] <project-name>
DESCRIPTION
OPTIONS
View seasideNewProject.st
[ :topez :objIn :tokens :command :commandNode |
| opts args |
"for help: ./seasideNewProject -h"
command
getOptsMixedLongShort:
{#('help' $h #'none'). #('stone' nil #'none'). #('local' nil #'none')}
optionsAndArguments: [ :options :operands |
opts := options.
args := operands ].
opts