From 2c1dd2d67e43d366293a81506fa0de09a7ec749c Mon Sep 17 00:00:00 2001
From: Timothy Sample <samplet@ngyro.com>
Date: Sun, 25 Nov 2018 14:24:35 -0500
Subject: [PATCH] Add the colon built-in

* geesh/built-ins/colon.scm: New file.
* Makefile.am: Add it.
* geesh/built-ins.scm (*special-built-ins*): Add colon.
---
 Makefile.am               |  1 +
 geesh/built-ins.scm       |  2 +-
 geesh/built-ins/colon.scm | 28 ++++++++++++++++++++++++++++
 3 files changed, 30 insertions(+), 1 deletion(-)
 create mode 100644 geesh/built-ins/colon.scm

diff --git a/Makefile.am b/Makefile.am
index 64fbe99..ba60bd8 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -43,6 +43,7 @@ check-spec:
 MODULES =                                       \
   geesh/built-ins/break.scm                     \
   geesh/built-ins/cd.scm                        \
+  geesh/built-ins/colon.scm                     \
   geesh/built-ins/continue.scm                  \
   geesh/built-ins/echo.scm                      \
   geesh/built-ins/export.scm                    \
diff --git a/geesh/built-ins.scm b/geesh/built-ins.scm
index b831447..de21c79 100644
--- a/geesh/built-ins.scm
+++ b/geesh/built-ins.scm
@@ -33,7 +33,7 @@
 ;; Special built-ins take precedence over any other command.
 (define *special-built-ins*
   `(("." . ,undefined)
-    (":" . ,undefined)
+    (":" . ,(@@ (geesh built-ins colon) main))
     ("break" . ,(@@ (geesh built-ins break) main))
     ("continue" . ,(@@ (geesh built-ins continue) main))
     ("eval" . ,undefined)
diff --git a/geesh/built-ins/colon.scm b/geesh/built-ins/colon.scm
new file mode 100644
index 0000000..0e56936
--- /dev/null
+++ b/geesh/built-ins/colon.scm
@@ -0,0 +1,28 @@
+;;; The Geesh Shell Interpreter
+;;; Copyright 2018 Timothy Sample <samplet@ngyro.com>
+;;;
+;;; This file is part of Geesh.
+;;;
+;;; Geesh is free software: you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation, either version 3 of the License, or
+;;; (at your option) any later version.
+;;;
+;;; Geesh is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with Geesh.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (geesh built-ins colon))
+
+;;; Commentary:
+;;;
+;;; The 'colon' utility.
+;;;
+;;; Code:
+
+(define (main . args)
+  0)