Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[bin/crypt] nicer disk syntax

  • Loading branch information...
commit 2656ea529f4bc81473c67be1d16ccfadf98893b9 1 parent 7bd579c
Carl Mäsak authored
Showing with 18 additions and 0 deletions.
  1. +18 −0 bin/crypt
18 bin/crypt
View
@@ -1198,6 +1198,24 @@ multi MAIN() {
proceed;
}
+ when /^ :s [move|put] [the]?
+ $<disk>=[tiny||small||medium||large||huge]
+ disk [on|to] [the]?
+ $<target>=[left||middle||right]
+ rod $/ {
+
+ $command = "move $<disk> $<target>";
+ }
+
+ when /^ :s [move|put] [the]?
+ $<source>=[left||middle||right]
+ disk [on|to] [the]?
+ $<target>=[left||middle||right]
+ rod $/ {
+
+ $command = "move $<source> $<target>";
+ }
+
when /^ 'put' \h+ (\w+) \h+ ('in'|'on') \h+ (\w+) $/ {
$command = "put_thing_$1 $0 $2";
proceed;
Please sign in to comment.
Something went wrong with that request. Please try again.