root/lang/scheme/gauche-shell/trunk/shell.scm @ 9601

;; -*- coding: utf-8 mode: scheme -*-

;;; This is a library to write a shell script with gauche.

(define-module shell)
(select-module shell)

(use srfi-1)
(use file.util)
(use gauche.collection)
(use gauche.process)
(export pwd ls
        $ command)



(define pwd current-directory)
(define-macro ($ arg)
  `(sys-getenv 
    ,(cond
      ((string? arg) arg)
      ((symbol? arg) (symbol->string arg))
      ((number? arg) (number->string arg))
      (else (x->string arg)))))

(define (ls . rest)
  (remove #/^\.{1,2}$/
          (if (null? rest)
              (directory-list (pwd))
              (apply directory-list rest))))

(define-macro (command com . args)
  `(process-output->string-list
    '(,(x->string com)
      ,@(map x->string args))))

(provide "shell")