valvallow

# run-parts:  Runs all the scripts found in a directory.

# keep going when something fails
set +e

if [ $# -lt 1 ]; then
 echo "Usage: run-parts <directory>"
 exit 1
fi

valvallow

#!/bin/sh

usage ()
{
    echo 'usage: '`basename "$0"` '[-h|-d] days target-directory'
	echo '  options: '
	echo '      -h : show this help'
	echo '      -d : force delete'
    exit;
}

valvallow

#!/usr/bin/env gosh

(use file.util)
(use net.twitter)
(use gauche.threads)
(use gauche.parseopt)

(define (usage cmd)
  (print "Usage: " (sys-basename cmd) " [option ...] message")
  (print "  h|help     : Show this help")

valvallow

#!/usr/bin/env gosh

(use file.util)
(use net.twitter)
(use gauche.threads)
(use gauche.parseopt)

(define (usage cmd)
  (print "Usage: " (sys-basename cmd) " [option ...] message")
  (print "  h|help     : Show this help")

valvallow

(use srfi-13)
(use srfi-14)

(define (ab->maru str)
  (string-map
   (^c (let1 i (char->integer c)
         (integer->char
          (cond ((char-set-contains? #[a-z] c)
                 (+ (- i (char->integer #\a)) #x24d0))
                ((char-set-contains? #[A-Z] c)

valvallow

#!/bin/sh

BASE_DIR=`pwd`

if [ "$#" -eq 0 ] ; then
        echo 'Usage: ' "$0" ' dirname ...'
        exit
fi

for dir in $@

valvallow

#!/usr/local/bin/gosh

(use gauche.parseopt)
(use gauche.process)
(use srfi-1)
(use srfi-13)

(define (usage cmd)
  (print "usage: " cmd " [option] ... input")
  (print " options:")

valvallow

#!/usr/local/bin/gosh

(use gauche.parseopt)
(use gauche.uvector)
(use srfi-13)

(define (usage cmd)
  (print "usage: " cmd " [option ...] string length")
  (print " options:")
  (print "  h|help  print this help")

valvallow

#!/bin/sh

SLN_NAME=""

while getopts vVn OPT
do
        case $OPT in
                "v" | "V" ) VERBOSE="TRUE"
                shift
                ;;

valvallow

git config --global alias.his "log --pretty='format:%C(yellow)%h%Creset %C(magenta)%<(22,trunc)%cd%Creset %><(11,trunc)%C(black bold)%ar%Creset | %Cgreen%<(10)%an%Creset | %<(130,trunc)%s %Cred%<(45,trunc)%d%Creset' --date=iso --all -n 15"