dalehenrich

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\')}

dalehenrich

[ :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')}

dalehenrich

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

dalehenrich

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

dalehenrich

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

Beginning of Tunnel

2007 GLASS Appliance

• Seaside2.6
• Monticello
• GemTools running on Squeak 3.9

dalehenrich

|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

dalehenrich

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

dalehenrich

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 ]

dalehenrich

NAME
  project log - Browse commit log for the Metacello project (git only)

SYNOPSIS
  project log [--limit=<max-commit-log-entries>] <project-name>

DESCRIPTION
  

OPTIONS

dalehenrich

[ :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