valvallow valvallow

View transpose.scm
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/env gosh
 
(use text.csv)
(use file.util)
(use gauche.parseopt)
 
(define (usage cmd)
(print "Usage: " (sys-basename cmd) " [option ...] <file or input>")
(print " h|help : Show this help")
(print " d|delimiter : default:<tab>")
View run-parts.sh
1 2 3 4 5 6 7 8 9
# 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
View timebomb.sh
1 2 3 4 5 6 7 8 9 10
#!/bin/sh
 
usage ()
{
echo 'usage: '`basename "$0"` '[-h|-d] days target-directory'
echo ' options: '
echo ' -h : show this help'
echo ' -d : force delete'
exit;
}
View tweet-bals-batch-bulk.scm
1 2 3 4 5 6 7 8 9 10
#!/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")
View tweet-bals-batch-bulk.scm
1 2 3 4 5 6 7 8 9 10
#!/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")
View ab2maru.scm
1 2 3 4 5 6 7 8 9 10
(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)
View git-multi-pull.sh
1 2 3 4 5 6 7 8 9 10
#!/bin/sh
 
BASE_DIR=`pwd`
 
if [ "$#" -eq 0 ] ; then
echo 'Usage: ' "$0" ' dirname ...'
exit
fi
 
for dir in $@
View marquee.scm
1 2 3 4 5 6 7 8 9 10
#!/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:")
View string-byte-split.scm
1 2 3 4 5 6 7 8 9 10
#!/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")
View rebuild.sh
1 2 3 4 5 6 7 8 9 10
#!/bin/sh
 
SLN_NAME=""
 
while getopts v OPT
do
case $OPT in
"v" ) VERBOSE="TRUE" ; shift ;
esac
done
Something went wrong with that request. Please try again.