ADDED   eggs/ducttape-lib/#Makefile#
Index: eggs/ducttape-lib/#Makefile#
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/#Makefile#
@@ -0,0 +1,22 @@
+
+
+
+
+
+# # megatest reaper utility
+# $(PREFIX)/bin/.$(ARCHSTR)/lib/ducttape-lib.so: ducttape-lib.scm inteldate.scm mimetypes.scm
+# 	csc -s ducttape-lib.scm -j ducttape-lib -o ducttape-lib.so
+# 	$(INSTALL) ducttape-lib.so $@
+
+# $(PREFIX)/bin/mtest-reaper: $(PREFIX)/bin/.$(ARCHSTR)/lib/ducttape-lib.so mtest-reaper.scm
+# 	csc mtest-reaper.scm 
+# 	$(INSTALL) mtest-reaper $@
+
+install-prereq-eggs:
+	@echo chicken-install ansi-escape-sequences
+	@echo chicken-install slice
+	@echo chicken-install rfc3339
+
+install:
+	chicken-install
+

ADDED   eggs/ducttape-lib/Makefile
Index: eggs/ducttape-lib/Makefile
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/Makefile
@@ -0,0 +1,15 @@
+
+
+
+
+
+# # megatest reaper utility
+# $(PREFIX)/bin/.$(ARCHSTR)/lib/ducttape-lib.so: ducttape-lib.scm inteldate.scm mimetypes.scm
+# 	csc -s ducttape-lib.scm -j ducttape-lib -o ducttape-lib.so
+# 	$(INSTALL) ducttape-lib.so $@
+
+# $(PREFIX)/bin/mtest-reaper: $(PREFIX)/bin/.$(ARCHSTR)/lib/ducttape-lib.so mtest-reaper.scm
+# 	csc mtest-reaper.scm 
+# 	$(INSTALL) mtest-reaper $@
+
+

ADDED   eggs/ducttape-lib/calconv.scm
Index: eggs/ducttape-lib/calconv.scm
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/calconv.scm
@@ -0,0 +1,280 @@
+#!/usr/bin/env csi -s
+(use data-structures)
+(use test)
+
+
+
+
+;; date represetntations:
+
+
+
+;; 15.11.2 Calculating DOW
+;; from Julian date J: W := (+ 1 (mod (+ J 1) 7)) ;; julian date -> DOW (1=Sunday; 7=Saturday)
+
+;; jdn = julian day number; dow == day of week number
+(define (jdn->dow J)
+  (+ 1 (modulo (+ (truncate (+ 0.5 J)) 1) 7)))
+
+
+;; from gregoran date D/M/Y: W
+(define (gd->dow gd)
+  (jdn->dow (gd->jdn gd)))
+
+         
+;; https://en.wikipedia.org/wiki/Julian_day#Converting_Julian_or_Gregorian_calendar_date_to_Julian_day_number
+;
+(define (date->jdn Y-M-D calendar)
+  (let* ((Y (list-ref Y-M-D 0))
+         (M (list-ref Y-M-D 1))
+         (D (list-ref Y-M-D 2))
+
+         ;;You must compute first the number of years (y) and months (m) since March 1 −4800 (March 1, 4801 BC):
+         (a (floor (/(- 14 M) 12)))
+         (y (- (+ 4800 Y) a))
+         (m (+ M (* 12 a) -3))
+         ;; The value 'a' will be 1 for January and February, and 0 for
+         ;; other months. And 'm' will be 0 for March and 11 for
+         ;; February.
+
+         ;; All years in the BC era must be converted to astronomical
+         ;; years, so that 1 BC is year 0, 2 BC is year −1,
+         ;; etc. Convert to a negative number, then increment toward
+         ;; zero.
+
+         ;; Note: (153m+2)/5 gives the number of days since March 1
+         ;; and comes from the repetition of days in the month from
+         ;; March in groups of five:
+
+         ;;Mar–Jul: 	31 30 31 30 31
+         ;;Aug–Dec: 	31 30 31 30 31
+         ;;Jan–Feb: 	31 28
+         )
+    (case calendar
+      ((julian)
+       (+ D
+          (floor (/ (+ (* 153 m) 2) 5))
+          (* 365 y)
+          (floor (/ y 4))
+          -32083 -0.5))
+      ((gregorian)
+        (+ D
+           (floor (/ (+ (* 153 m) 2) 5))
+           (* 365 y)
+           (floor (/ y 4))
+           (* -1 (floor (/ y 100)))
+           (floor (/ y 400))
+           -32045 -0.5))
+      (else
+       (abort (make-property-condition
+               'exn
+               'message
+               (conc "Unknown calendar scheme: ["calendar"]" )))))))
+
+
+;; https://en.wikipedia.org/wiki/Julian_day#Julian_or_Gregorian_calendar_from_Julian_day_number
+;; This is an algorithm by Richards to convert a Julian Day Number, J,
+;; to a date in the Gregorian calendar (proleptic, when
+;; applicable). Richards does not state which dates the algorithm is
+;; valid for.[30] All variables are integer values, and the notation
+;; "a div b" indicates integer division, and "mod(a,b)" denotes the
+;; modulus operator.
+(define (jdn->date jdn calendar)
+  (let* ((div (lambda (a b) (truncate (/ a b))))
+         ;;algorithm parameters for Gregorian calendar
+         (y 4716) (j 1401) (m 2) (n 12)
+         (r 4)    (p 1461) (v 3) (u 5)
+         (s 153)  (w 2)    (B 274277)
+         (C -38)
+
+         (f (case calendar
+              ((julian)
+               (+ jdn j))
+              ((gregorian)
+               (+ jdn j 
+                  (div
+                   (*
+                    (div
+                     (+ (* jdn 4) B)
+                     146097)
+                    3)
+                   4)
+                  C))))
+         (e (+ (* r f) v))
+         (g (div (modulo e p) r))
+         (h (+ (* u g) w))
+         (D (add1
+             (div
+              (modulo h s)
+              u)))
+         (M (add1
+             (modulo
+              (+ (div h s) m)
+              n)))
+         (Y (+
+             (div e p)
+             (- y)
+             (div (+ n m (- M)) n))))
+    (map inexact->exact (list Y M D))))
+
+
+;; convert Gregorian calendar date to Julian Day Number
+;; input - list of year, month, day -- integers
+;; output - float
+;;
+;; Note: julian day number advances at noon UTC, so the value is is adjusted -0.5 at midnight UTC of the same day
+;;
+(define (gd->jdn gd)
+  (date->jdn gd 'gregorian))
+
+;; convert Julian calendar date to Julian Day Number
+;; input - list of year, month, day -- integers
+;; output - float
+;;
+;; Note: julian day number advances at noon UTC, so the value is is adjusted -0.5 at midnight UTC of the same day
+;;
+(define (jd->jdn jd)
+  (date->jdn jd 'julian))
+
+
+;; convert Julian Day Number to Gregorian calendar date 
+;; input - float (one digit max after decimal point, must be 5 or 0)
+;; output - list of year, month, day -- integers
+;;
+;; Note: julian day number advances at noon UTC, so the value is is adjusted -0.5 at midnight UTC of the same day
+;;
+(define (jdn->gd jdn)
+  (jdn->date jdn 'gregorian))
+
+;; convert Julian Day Number to Julian calendar date 
+;; input - float (one digit max after decimal point, must be 5 or 0)
+;; output - list of year, month, day -- integers
+;;
+;; Note: julian day number advances at noon UTC, so the value is is adjusted -0.5 at midnight UTC of the same day
+;;
+(define (jdn->jd jdn)
+  (jdn->date jdn 'julian))
+
+
+(use srfi-19)
+
+;; Convert unix epoch time to gregorian date
+(define (unixtime->gd seconds)
+  (let* ((date (seconds->date seconds))
+         (res
+          (map
+           (lambda (fmt)
+             (string->number (date->string date fmt)))
+           '( "~Y" "~m" "~d"))))
+    res))
+
+(define (current-gd)
+  (unixtime->gd (current-seconds)))
+
+(define (days-between-gds a b)
+  (let* ((a-jdn (gd->jdn a))
+         (b-jdn (gd->jdn b)))
+    (- a-jdn b-jdn)))
+
+(define (gd-pre-date gd days)
+  (jdn->gd (- (gd->jdn gd) days)))
+
+(define (gd-post-date gd days)
+  (jdn->gd (+ (gd->jdn gd) days)))
+
+
+(define (bday person)
+  (let* ((bdays
+          '((me          . (1977 8 13))
+            (gma-barclay . (1917 11 11))
+            (dad         . (1953 7 20))
+            (mum         . (1954 3 20))
+            (mindy       . (1980 5 30))
+            (ruth        . (1972 1 11))
+            (jj          . (1998 12 19)))))
+    (alist-ref person bdays)))
+
+(define (dday person)
+  (let* ((bdays
+          '(
+            (gma-barclay . (2014 11 14))
+            )))
+    (alist-ref person bdays)))
+
+
+(define (date-when-A-is-Bs-age A B)
+  (let* ((A-bday-gd (bday A))
+         (B-bday-gd (bday B))
+         (B-dday-gd (dday B))
+         (today (current-gd))
+         (days-since-B-born (days-between-gds today B-bday-gd)))
+    (if B-dday-gd
+        (let* ((dage-days
+                (days-between-gds B-dday-gd B-bday-gd)))
+               (gd-post-date A-bday-gd dage-days))
+        (gd-post-date A-bday-gd days-since-B-born))))
+
+
+
+
+(define (do-calconv-tests)
+  (test-group
+   "unit-tests"
+   ;; http://aa.usno.navy.mil/data/docs/JulianDate.php
+   ;;The Julian date for CE  2016 October  2 00:00:00.0 UT is
+   ;;JD 2457663.500000
+   ;;
+   ;;(test "gd->jdn" 2457663.500000 (wikipediagd->jdn '(2016 10 2)))
+
+   (let ((test-pairs
+          '(
+            ( (2016 10 2) 2457663.5 )
+            ( (1976 4 1)  2442869.5 )
+            ( (1917 11 11) 2421543.5 )
+            ( (1600 9 29) 2305719.5)
+            ( (1 12 25) 1721783.5) ;; calculated pairs from
+            ;;( (1582 10 15) 2299161.5) ;; broken test.
+            ;;   aour algorithm has trouble at the discontinuity when gregorian calendar was adopted
+            ;;   and days were intercalated.... weird.  only off by 1 day, so not spending cycles debugging..
+
+            ;; https://www.fourmilab.ch/documents/calendar/ because
+            ;; navy.mil calendar converterdoes not handle gregorian calendar
+            ;; proleptically.
+            )))
+
+     ;; The Julian calendar day Thursday, 4 October 1582 was followed
+     ;; by the first day of the Gregorian calendar, Friday, 15 October
+     ;; 1582 (the cycle of weekdays was not affected).
+     
+     (for-each
+      (lambda (test-pair)
+        (let ((gd (car test-pair))
+              (jdn (cadr test-pair)))
+          (test "gd->jdn" jdn (gd->jdn gd))
+          (test "jdn->gd" gd (jdn->gd jdn))
+          (test jdn (gd->jdn (jdn->gd jdn)))
+          (test gd (jdn->gd (gd->jdn gd)))
+          (test jdn (jd->jdn (jdn->jd (gd->jdn gd))))))
+      test-pairs))
+
+   (test "jdn epoch" '(-4712 1 1) (jdn->jd 0))))
+
+
+;; h m s -> secs
+;; secs -> h m s
+;; secs -> day
+;; days -> secs
+
+(do-tests)
+
+
+
+
+
+
+
+
+
+
+
+

ADDED   eggs/ducttape-lib/docs.org
Index: eggs/ducttape-lib/docs.org
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/docs.org
@@ -0,0 +1,19 @@
+
+* Calendar
+** Gregorian Date
+** 
+* Date data representations
+| abbreviation | Name              | Calendar       | Data structure        | Comment                                                          |
+|--------------+-------------------+----------------+-----------------------+------------------------------------------------------------------|
+| gd           | Gregorian Date    | Gregorian      | (list Y M D)          | Y,M,D : Y(int)=year M(int)=month D(int) = day on month           |
+| isodate      | ISO 8601 date     | Gregorian      | "YYYY-MM-DD"          | string, numbers are dash separated.  Follows Gregorian reckoning |
+| wd           | Work Date         | Gregorian (*1) | "YYYYwwWW.D"          | YYYY, WW and D are integers.  WW is "work week".                 |
+| jdn          | Julian Day Number | Julian Day     | integer               | count of days since the beginning of the Julian Period           |
+| jd           | Julian Date       |                | floating point number |                                                                  |
+| dow          | Day of week       |                |                       | 0 = Sunday, 6=Saturday                                           |
+|              |                   |                |                       |                                                                  |
+** see https://en.wikipedia.org/wiki/Julian_day for discussion of Julian Date|Period|Day Number
+** Work Date is a week-denominated year.  
+
+  
+* Conversion routines

ADDED   eggs/ducttape-lib/ducttape-lib.scm
Index: eggs/ducttape-lib/ducttape-lib.scm
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/ducttape-lib.scm
@@ -0,0 +1,869 @@
+(module ducttape-lib
+    (
+     current-ip-string
+     runs-ok
+     glib-debug-level
+     glib-debug-regex-filter
+     glib-silent-mode
+     glib-quiet-mode
+     glib-log-file
+     glib-color-mode
+     iputs-preamble
+     script-name
+     idbg
+     ierr
+     iwarn
+     inote
+     iputs
+     re-match?
+                                        ;     launch-repl
+     keyword-skim
+     skim-cmdline-opts-noarg-by-regex
+     skim-cmdline-opts-withargs-by-regex 
+     concat-lists
+     process-command-line
+     glib-append-logfile
+     glib-activate-logfile
+     isys
+     do-or-die
+     counter-maker
+     dir-is-writable?
+     mktemp
+     get-tmpdir
+     sendmail
+     find-exe
+
+     ;;zeropad
+     ;;string-leftpad
+     ;;string-rightpad
+     seconds->isodate
+     seconds->inteldate
+     seconds->inteldate-values
+     isodate->seconds
+     isodate->inteldate
+     inteldate->seconds
+     inteldate->isodate
+     ;;current-inteldate
+     ;;current-isodate
+
+     linux-get-process-info-records
+     false-on-exception
+     pid->environ-hash
+     pid->cwd
+     )
+
+  (import scheme chicken extras ports data-structures )
+  (use posix regex ansi-escape-sequences test srfi-1 irregex slice srfi-13 rfc3339 scsh-process directory-utils uuid-lib filepath srfi-19 hostinfo srfi-69 typed-records)
+  (include "mimetypes.scm") ; provides ext->mimetype
+  (include "inteldate.scm")
+  (define general-lib-version 1.00)
+  (define (toplevel-command sym proc) (lambda () #f))
+
+;;;; utility procedures
+
+  (define (pid->environ-hash pid)
+    (let* ((envfile (conc "/proc/"pid"/environ"))
+           (ht (make-hash-table))
+           (rawdata (with-input-from-file envfile read-string))
+           (lines (string-split rawdata  (make-string 1 #\nul ))))
+      (for-each
+       (lambda (line)
+         (let ((match (string-match (regexp "(^[^=]+)=(.*)") line)))
+           (if match
+               (hash-table-set! ht (list-ref match 1) (list-ref match 2)))))
+       lines)
+      ht))
+
+  (define (pid->cwd pid)
+    (read-symbolic-link (conc "/proc/"pid"/cwd")))
+
+  (define (current-ip-string)
+    (ip->string (hostname->ip (current-hostname))))
+
+  (define (false-on-exception thunk)
+    (handle-exceptions exn #f (thunk) ))
+
+  ;; begin credit: megatest's process.scm
+  (define (port->list fh )
+    (if (eof-object? fh) #f
+        (let loop ((curr (read-line fh))
+                   (result '()))
+          (if (not (eof-object? curr))
+              (loop (read-line fh)
+                    (append result (list curr)))
+              result))))
+
+  (define (conservative-read port)
+    (let loop ((res ""))
+      (if (not (eof-object? (peek-char port)))
+          (loop (conc res (read-char port)))
+          res)))
+  ;; end credit: megatest's process.scm
+
+  (define (counter-maker)
+    (let ((acc 0))
+      (lambda ( #!optional (increment 1) )
+        (set! acc (+ increment acc))
+        acc)))
+
+  (define (port->string port #!optional ) ; todo - add newline 
+    (let ((linelist (port->list port)))
+      (if linelist
+          (string-join linelist "\n")
+          "")))
+
+
+  (define (outport->foreach outport foreach-thunk)
+    (let loop ((line (foreach-thunk)))
+      (if line
+          (begin
+            (write-line line outport)
+            (loop (foreach-thunk))
+            )
+          (begin
+            ;;http://bugs.call-cc.org/ticket/766
+            ;;close-[input|output]-port implicitly calling process-wait on process pipe ports. This leads to errors like
+            ;;Error: (process-wait) waiting for child process failed - No child processes: 10872
+            (close-output-port outport)
+            #f))))
+
+                                        ; weird - alist-ref changes signature csc vs. csi... explitly defining.
+  (define (my-alist-ref key alist)
+    (let ((res (assoc key alist)))
+      (if res (cdr res) #f)))
+
+  (define (keyword-skim-alist args alist)
+    (let loop ((result-alist '()) (result-args args) (rest-alist alist))
+      (cond
+       ((null? rest-alist) (values result-alist result-args))
+       (else
+        (let ((keyword (caar rest-alist))
+              (defval (cdar rest-alist)))
+          (let-values (((kwval result-args2)
+                        (keyword-skim
+                         keyword
+                         defval
+                         result-args)))
+            (loop
+             (cons (cons keyword kwval) result-alist)
+             result-args2
+             (cdr rest-alist))))))))
+  
+  (define (isys command . rest-args)
+    (let-values
+        (((opt-alist args)
+          (keyword-skim-alist
+           rest-args
+           '( ( foreach-stdout-thunk: . #f )
+              ( foreach-stdin-thunk: . #f )
+              ( stdin-proc: . #f ) ) )))
+      (let* ((foreach-stdout-thunk
+              (my-alist-ref foreach-stdout-thunk: opt-alist))
+             (foreach-stdin-thunk
+              (my-alist-ref foreach-stdin-thunk: opt-alist))
+             (stdin-proc
+              (if foreach-stdin-thunk
+                  (lambda (port)
+                    (outport->foreach port foreach-stdin-thunk))
+                  (my-alist-ref stdin-proc: opt-alist))))
+
+        ;; TODO: support command is list.
+        
+        (let-values (((stdout stdin pid stderr)
+                      (if (null? args)
+                          (process* command)
+                          (process* command args))))
+          
+                                        ;(if foreach-stdin-thunk
+                                        ;    (set! stdin-proc
+                                        ;          (lambda (port)
+                                        ;            (outport->foreach port foreach-stdin-thunk))))
+          
+          (if stdin-proc
+              (stdin-proc stdin))
+          
+          (let ((stdout-res 
+                 (if foreach-stdout-thunk  ;; don't accumulate stdout if we have a thunk; probably doing this because stdout is BIG so lets not waste memory
+                     (begin
+                       (port-for-each foreach-stdout-thunk (lambda () (read-line stdout)))
+                       "foreach-stdout-thunk ate stdout"
+                       )
+                     (if stdin-proc
+                         "foreach-stdin-thunk/stdin-proc blocks stdout"
+                         (port->string stdout))))
+                (stderr-res
+                 (if stdin-proc
+                     "foreach-stdin-thunk/stdin-proc blocks stdout"
+                     (port->string stderr))))
+
+            ;; if we've used a stdin-proc, we've closed stdin port, which unfortunately causes a wait-pid internally, causing stdout and stderr ports to auto-close.  don't close them again.  (so sad - we lost stdout and stderr contents when we write to stdin)
+            ;; see - http://bugs.call-cc.org/ticket/766
+            (if (not stdin-proc)
+                (close-input-port stdout)
+                (close-input-port stderr))
+            
+            (let-values (((anotherpid normalexit? exitstatus)  (process-wait pid)))
+              (values exitstatus stdout-res stderr-res)))))))
+  
+  (define (do-or-die command   #!key nodie (foreach-stdout #f) (stdin-proc #f))
+    (let-values (((exit-code stdout-str stderr-str) (isys command foreach-stdout-thunk: foreach-stdout stdin-proc: stdin-proc )))
+      (if (equal? 0 exit-code)
+          stdout-str
+          (begin
+            (ierr (conc "Command  > " command " "  "< failed with " exit-code " because: \n" stderr-str) )
+            (if nodie #f (exit exit-code))))))
+
+
+
+
+  ;; this is broken.  one day i will fix it and thus understand run/collecting... don't use isys-broken.
+  (define (isys-broken  command-list)
+
+    (let-values ( ( (rv outport errport) (run/collecting (1 2) ("ls" "-l")  ) ) ) 
+      (print "rv is " rv)
+      (print "op is " outport)
+      (print "ep is " errport)
+      (values rv (port->string outport) (port->string errport))))
+
+
+
+  ;; runs-ok: evaluate expression while suppressing exceptions.
+                                        ;    on caught exception, returns #f
+                                        ;    otherwise, returns expression value
+  (define (runs-ok thunk)
+    (handle-exceptions exn #f (begin (thunk) #t)))
+
+  ;; concat-lists: result list = lista + listb
+  (define (concat-lists lista listb) ;; ok, I just reimplemented append...
+    (foldr cons listb lista))
+  
+
+(defstruct proc
+    (USER "")
+  (PID -1)
+  (%CPU -1.0)
+  (%MEM -1.0)
+  (VSZ -1)
+  (RSS -1)
+  (TTY "")
+  (STAT "")
+  (START "")
+  (TIME "")
+  (COMMAND ""))
+
+(define (linux-get-process-info-records)
+  (let* ((raw (do-or-die "/bin/ps auwx"))
+         (all-lines (string-split raw "\n"))
+         (lines (cdr all-lines)) ;; skip title lines
+         (re (regexp "/^(\\S+)\\s+(\\d+)\\s+(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+(.*)$")))
+    (filter
+     proc?
+     (map
+      (lambda (line)
+        (let ((match (string-match re line)))
+          (if match
+              (make-proc
+               USER:    (list-ref match 1)
+               PID:     (string->number (list-ref match 2))
+               %CPU:    (string->number (list-ref match 3))
+               %MEM:    (string->number (list-ref match 4))
+               VSZ:     (string->number (list-ref match 5))
+               RSS:     (string->number (list-ref match 6))
+               TTY:     (string->number (list-ref match 7))
+               STAT:    (list-ref match 8)
+               START:   (list-ref match 9)
+               TIME:    (list-ref match 10)
+               COMMAND: (list-ref match 11))
+              #f)))
+      lines))))
+
+  
+;;; setup general_lib env var parameters
+
+  ;; show warning/note/error/debug prefixes using ansi colors
+  (define glib-color-mode
+    (make-parameter (get-environment-variable "GLIB_COLORIZE")))
+
+  ;; if defined, has number value.  if number value > 0, show debug messages
+  ;; value should be decremented in subshells -- idea is raising debug level will show debug messages deeper and deeper in process call stack
+  (define glib-debug-level
+    (make-parameter
+     (let ( (raw-debug-level (get-environment-variable "GLIB_DEBUG_LEVEL")) )
+       (if raw-debug-level
+           (let ((num-debug-level (runs-ok (string->number raw-debug-level))))
+             (if (integer? num-debug-level)
+                 (begin
+                   (let ((new-num-debug-level (- num-debug-level 1)))
+                     (if (> new-num-debug-level 0) ;; decrement
+                         (setenv "GLIB_DEBUG_LEVEL" (number->string new-num-debug-level))
+                         (unsetenv "GLIB_DEBUG_LEVEL")))
+                   num-debug-level) ; it was set and > 0, mode is value
+                 (begin
+                   (unsetenv "GLIB_DEBUG_LEVEL") ;; value was invalid, unset it
+                   #f))) ; value was invalid, mode is f
+           #f)))) ; var not set, mode is f
+
+
+  (define glib-debug-mode (if (glib-debug-level)  #t  #f))
+
+  ;; glib-debug-regex-filter suppresses non-matching debug messages
+  (define glib-debug-regex-filter
+    (make-parameter
+     (let ((raw-debug-pattern (get-environment-variable "GLIB_DEBUG_PATTERN")))
+       (if raw-debug-pattern
+           raw-debug-pattern
+           "."))))
+
+  ;; silent mode suppresses Note and Warning type messages
+  (define glib-silent-mode
+    (make-parameter (get-environment-variable "GLIB_SILENT_MODE")))
+
+  ;; quiet mode suppresses Note type messages
+  (define glib-quiet-mode
+    (make-parameter (get-environment-variable "GLIB_QUIET_MODE")))
+
+  ;; if log file is defined, warning/note/error/debug messages are appended
+  ;; to named logfile.
+  (define glib-log-file
+    (make-parameter (get-environment-variable "GLIB_LOG_FILE")))
+
+
+
+
+  
+  
+;;; standard messages printing implementation
+
+                                        ; get the name of the current script/binary being run
+  (define (script-name)
+    (car (reverse (string-split (car (argv)) "/"))))
+
+  (define (glib-timestamp)
+    (rfc3339->string (time->rfc3339 (seconds->local-time))))
+
+
+  (define (iputs-preamble msg-type #!optional (suppress-color #f))
+    (let ((do-color (and
+                     (not suppress-color)
+                     (glib-color-mode)
+                     (terminal-port? (current-error-port)))))
+      (case msg-type
+        ((note)
+         (if do-color
+             (set-text (list 'fg-green 'bg-black 'bold) "Note:")
+             "Note:"
+             ))
+        ((warn)
+         (if do-color
+             (set-text (list 'fg-yellow 'bg-black 'bold) "Warning:")
+             "Warning:"
+             ))
+        ((err)
+         (if do-color
+             (set-text (list 'fg-red 'bg-black 'bold) "Error:")
+             "Error:"
+             ))
+        ((dbg)
+         (if do-color
+             (set-text (list 'fg-blue 'bg-magenta) "Debug:")
+             "Debug:"
+             )))))
+
+  (define (glib-append-logfile msg-type message #!optional (suppress-preamble #f))
+    (let
+        ((txt 
+          (string-join 
+           (list 
+            (glib-timestamp) 
+            (script-name)
+            (if suppress-preamble
+                message
+                (string-join  (list (iputs-preamble msg-type #t) message) " ")))
+           " | ")))
+
+      (if (glib-log-file)
+          (runs-ok
+           (call-with-output-file (glib-log-file)
+             (lambda (output-port)
+               (format output-port "~A ~%" txt)
+               )
+             #:append))
+          #t)))
+
+  (define (glib-activate-logfile #!optional (logfile #f))
+    ;; from python general-lib.py
+                                        ; message = "START - pid=%d ppid=%d argv=(%s) pwd=%s user=%s host=%s"%(pid,ppid," ".join("'"+x+"'" for x in sys.argv),os.environ['PWD'],os.getenv('USER','nouser'),os.getenv('HOST','nohost') )
+    (let ((pid (number->string (current-process-id)))
+          (ppid (number->string (parent-process-id)))
+          (argv 
+           (string-join 
+            (map 
+             (lambda (x) 
+               (string-join (list "\"" x "\"")  "" ))
+             (argv))
+            " "))
+          (pwd (or (get-environment-variable "PWD") "nopwd"))
+          (user (or (get-environment-variable "USER") "nouser"))
+          (host (or (get-environment-variable "HOST") "nohost")))
+      (if logfile
+          (begin
+            (glib-log-file logfile)
+            (setenv "GLIB_LOG_FILE" (glib-log-file))))
+      (glib-append-logfile 'note (format #f "START - pid=~A ppid=~A argv=(~A) pwd=~A user=~A host=~A" pid ppid argv pwd user host) #t)))         
+
+  ;; immediately activate logfile (will be noop if logfile disabled)
+  (glib-activate-logfile)
+
+  ;; log exit code
+  (define (set-exit-handler)
+    (let ((orig-exit-handler (exit-handler)))
+      (exit-handler 
+       (lambda (exitcode) 
+         (glib-append-logfile 'note (format #f "Exit ~A by sys.exit" exitcode) #t)
+         (orig-exit-handler exitcode)))))
+  (set-exit-handler)
+  
+  ;; TODO: hook exception handler so we can log exception before we sign off.
+
+  (define (idbg first-message  . rest-args)
+    (let* ((debug-level-threshold
+            (if (> (length rest-args) 0) (car rest-args) 1))
+           (message-list
+            (if (> (length rest-args) 1)
+                (cons first-message (cdr rest-args))
+                (list first-message)) )
+           (message (apply conc
+                  (map ->string message-list))))
+
+      (glib-append-logfile 'dbg message)
+      (if (glib-debug-level)
+          (if (<= debug-level-threshold (glib-debug-level))
+              (if (string-search (glib-debug-regex-filter) message)
+                  (begin 
+                    (format (current-error-port) "~A ~A (~A)~%" (iputs-preamble 'dbg) message (script-name))))))))
+
+  (define (ierr message-first  . message-rest)
+    (let* ((message
+            (apply conc
+             (map ->string (cons message-first message-rest)))))
+      (glib-append-logfile 'err message)
+      (format (current-error-port) "~A ~A (~A)~%" (iputs-preamble 'err) message (script-name))))
+
+  (define (iwarn message-first  . message-rest)
+    (let* ((message
+            (apply conc
+             (map ->string (cons message-first message-rest)))))
+      (glib-append-logfile 'warn message)
+      (if (not (glib-silent-mode))
+          (begin
+            (format (current-error-port) "~A ~A (~A)~%" (iputs-preamble 'warn) message (script-name))))))
+
+  (define (inote message-first  . message-rest)
+    (let* ((message
+            (apply conc
+             (map ->string (cons message-first message-rest)))))
+      (glib-append-logfile 'note message)
+      (if (not (or (glib-silent-mode) (glib-quiet-mode)))
+          (begin 
+            (format (current-error-port) "~A ~A (~A)~%" (iputs-preamble 'note) message (script-name))))))
+
+  
+  (define (iputs kind message #!optional (debug-level-threshold 1))
+    (cond
+     ((member kind (string-split "NOTE/Note/note/n/N" "/")) (inote message))
+     ((member kind (string-split "Error/ERROR/error/Err/ERR/err/E/e" "/")) (ierr message))
+     ((member kind
+              (string-split "Warning/WARNING/warning/Warn/WARN/warn/W/w" "/"))
+      (iwarn message))
+     ((member kind (string-split "Debug/DEBUG/debug/Dbg/DBG/dbg/D/d" "/"))
+      (idbg message debug-level-threshold))))
+
+  (define (mkdir-recursive path-so-far hier-list-to-create)
+    (if (null? hier-list-to-create)
+        path-so-far
+        (let* ((next-hier-item (car hier-list-to-create))
+               (rest-hier-items (cdr hier-list-to-create))
+               (path-to-mkdir (string-concatenate (list path-so-far "/" next-hier-item))))
+          (if (runs-ok (lambda () (create-directory path-to-mkdir)))
+              (mkdir-recursive path-to-mkdir rest-hier-items)
+              #f))))
+
+                                        ; ::mkdir-if-not-exists::
+                                        ; make a dir recursively if it does not 
+                                        ; already exist.
+                                        ; on success - returns path
+                                        ; on fail - returns #f
+  (define (mkdirp-if-not-exists the-dir)
+    (let ( (path-list (string-split the-dir "/")))
+      (mkdir-recursive "/" path-list)))
+
+                                        ; ::mkdir-if-not-exists::
+                                        ; make a dir recursively if it does not 
+                                        ; already exist.
+                                        ; on success - returns path
+                                        ; on fail - returns #f
+
+
+  (define (mkdirp-if-not-exists the-dir)
+    (let ( (path-list (string-split the-dir "/")))
+      (mkdir-recursive "/" path-list)))
+
+  (define (dir-is-writable? the-dir)
+    (let ((dummy-file (string-concatenate (list the-dir "/.dummyfile"))))
+      (and
+       (file-exists? the-dir)
+       (cond 
+        ((runs-ok (lambda ()(with-output-to-file dummy-file (lambda () (print "foo")))))
+         (begin
+           (runs-ok (lambda () (delete-file dummy-file) ))
+           the-dir))
+        (else #f)))))
+
+
+  (define (get-tmpdir )
+    (let* ((tmproot
+            (dir-is-writable?
+             (or 
+              (get-environment-variable "TMPDIR") 
+              "/tmp")))
+
+           (user
+            (or
+             (get-environment-variable "USER")
+             "USER_Envvar_not_set"))
+           (tmppath
+            (string-concatenate 
+             (list tmproot "/env21-general-" user ))))
+
+      (dir-is-writable?
+       (mkdirp-if-not-exists
+        tmppath))))
+
+  (define (mktemp
+           #!optional
+           (prefix "general_lib_tmpfile")
+           (dir #f))
+    (let-values
+        (((fd path) 
+          (file-mkstemp 
+           (conc 
+            (if dir  dir  (get-tmpdir))
+            "/" prefix ".XXXXXX"))))
+      (close-output-port (open-output-file* fd))
+      path))
+
+
+
+  ;;http://stackoverflow.com/questions/11134857/using-sendmail-for-html-body-and-binary-attachment
+  ;; write send-email using:
+  ;;   - isys-foreach-stdin-line
+  ;;   - formatting in http://stackoverflow.com/questions/11134857/using-sendmail-for-html-body-and-binary-attachment
+  (define (sendmail to_addr subject body
+                    #!key
+                    (from_addr "admin")
+                    cc_addr
+                    bcc_addr
+                    more-headers
+                    use_html
+                    (attach-files-list '()))
+
+    (define (sendmail-proc sendmail-port)
+      (define (wl line-str)
+        (write-line line-str sendmail-port))
+
+      (define (get-uuid)
+        (string-upcase (uuid->string (uuid-generate))))
+
+      (let ((mailpart-uuid (get-uuid))
+            (mailpart-body-uuid (get-uuid)))
+        
+        (define (boundary)
+          (wl (conc "--" mailpart-uuid)))
+
+        (define (body-boundary)
+          (wl (conc "--" mailpart-body-uuid)))
+
+
+        (define (email-mime-header)
+          (wl (conc "From: " from_addr))
+          (wl (conc "To: " to_addr))
+          (if cc_addr
+              (wl (conc "Cc: " cc_addr)))
+          (if bcc_addr
+              (wl (conc "Bcc: " bcc_addr)))
+          (if more-headers
+              (wl more-headers))
+          (wl (conc "Subject: " subject))
+          (wl "MIME-Version: 1.0")
+          (wl (conc "Content-Type: multipart/mixed; boundary=\"" mailpart-uuid "\""))
+          (wl "")
+          (boundary)
+          (wl (conc "Content-Type: multipart/alternative; boundary=\"" mailpart-body-uuid "\""))
+          (wl "")
+          )
+        
+        (define (email-text-body)
+          (body-boundary)
+          (wl "Content-Type: text/plain; charset=ISO-8859-1")
+          (wl "Content-Disposition: inline")
+          (wl "")
+          (wl body)
+          (body-boundary))
+        
+        (define (email-html-body)
+          (body-boundary)
+          (wl "Content-Type: text/plain; charset=ISO-8859-1")
+          (wl "")
+          (wl "You need to enable HTML option for email")
+          (body-boundary)
+          (wl "Content-Type: text/html; charset=ISO-8859-1")
+          (wl "Content-Disposition: inline")
+          (wl "")
+          (wl body)
+          (body-boundary))
+        
+        (define (attach-file file)
+          (let* ((filename
+                  (filepath:take-file-name file))
+                 (ext-with-dot
+                  (filepath:take-extension file))
+                 (ext (string-take-right
+                       ext-with-dot
+                       (- (string-length ext-with-dot) 1)))
+                 (mimetype (ext->mimetype ext))
+                 (uuencode-command (conc "uuencode " file " " filename)))
+            (boundary)
+            (wl (conc "Content-Type: " mimetype "; name=\"" filename "\""))
+            (wl "Content-Transfer-Encoding: uuencode")
+            (wl (conc "Content-Disposition: attachment; filename=\"" filename "\""))
+            (wl "")
+            (do-or-die
+             uuencode-command
+             foreach-stdout:
+             (lambda (line)
+               (wl line)))))
+        
+        ;; send the email
+        (email-mime-header)
+        (if use_html
+            (email-html-body)
+            (email-text-body))
+        (for-each attach-file attach-files-list)
+        (boundary)
+        (close-output-port sendmail-port)))
+    
+    (do-or-die "/usr/sbin/sendmail -t"
+               stdin-proc: sendmail-proc))
+
+  ;; like shell "which" command
+  (define (find-exe exe)
+    (let* ((path-items
+            (string-split
+             (or
+              (get-environment-variable "PATH") "")
+             ":")))
+
+      (let loop ((rest-path-items path-items))
+        (if (null? rest-path-items)
+            #f
+            (let* ((this-dir (car rest-path-items))
+                   (next-rest (cdr rest-path-items))
+                   (candidate (conc this-dir "/" exe)))
+              (if (file-execute-access? candidate)
+                  candidate
+                  (loop next-rest)))))))
+
+
+
+
+  ;; (define (launch-repl )
+  ;;   (use linenoise)
+  ;;   (current-input-port (make-linenoise-port))
+
+  ;;   (let ((histfile (conc (or (get-environment-variable "HOME") ".") "/." (script-name) "-hist")))
+  
+  ;;     (set-history-length! 30000)
+  
+  ;;     (load-history-from-file histfile)
+  
+  ;;     (let loop ((l (linenoise "> ")))
+  ;;       (cond ((equal? l "bye")
+  ;;              (save-history-to-file histfile)
+  ;;              "Bye!")
+  ;;             ((eof-object? l)
+  ;;              (save-history-to-file histfile)
+  ;;              (exit))
+  ;;             (else
+  ;;              (display l)
+  ;;              (handle-exceptions exn
+  ;;                  ;;(print-call-chain (current-error-port))
+  ;;                  (let ((message ((condition-property-accessor 'exn 'message) exn)))
+  ;;                    (print "exn> " message )
+  ;;                    ;;(pp (condition->list exn))
+  ;;                    ;;(exit)
+  ;;                    ;;(display "Went wrong")
+  ;;                    (newline))
+  ;;                (print (eval l)))))
+  ;;       (newline)
+  ;;       (history-add l)
+  ;;       (loop (linenoise "> ")))))
+  
+  ;; (define (launch-repl2 )
+  ;;   (use readline)
+  ;;   (use apropos)
+  ;;   (use trace)
+  ;;   ;(import csi)
+  ;;   (current-input-port (make-readline-port (conc (script-name) "> ") "... "))
+  ;;  ; (install-history-file #f (conc (or (get-environment-variable "HOME") ".") "/." (script-name) "_history"))
+  ;;   (parse-and-bind "set editing-mode emacs")
+  ;;   (install-history-file)
+  ;;   (let loop ((foo #f))
+
+  ;;     (let ((expr (read)))
+  ;;       (cond
+  ;;        ((eof-object? expr) (exit))
+  ;;        (else
+  ;;         (handle-exceptions exn
+  ;;             ;;(print-call-chain (current-error-port))
+  ;;             (let ((message ((condition-property-accessor 'exn 'message) exn)))
+  ;;               (print "exn> " message )
+  ;;               ;;(pp (condition->list exn))
+  ;;               ;;(exit)
+  ;;               ;;(display "Went wrong")
+  ;;               (newline))
+  ;;           (print (eval expr))))))
+  ;;     (loop #f))
+  ;;   )
+
+;;;; process command line options
+
+  ;; get command line switches (have no subsequent arg; eg. [-foo])
+  ;;  assumes these are switches without arguments
+  ;;  will return list of matches
+  ;;  removes matches from command-line-arguments parameter
+  (define (skim-cmdline-opts-noarg-by-regex switch-pattern)
+    (let* (
+           (irr (irregex switch-pattern))
+           (matches (filter
+                     (lambda (x)
+                       (irregex-match irr x))
+                     (command-line-arguments)))
+           (non-matches (filter
+                         (lambda (x)
+                           (not (member x matches)))
+                         (command-line-arguments))))
+
+      (command-line-arguments non-matches)
+      matches))
+
+  (define (keyword-skim keyword default args #!optional (eqpred equal?))
+    (let loop ( (kwval default) (args-remaining args) (args-to-return '()) )
+      (cond 
+       ((null? args-remaining)
+        (values
+         (if (list? kwval) (reverse kwval) kwval)
+         (reverse args-to-return)))
+       ((and (> (length args-remaining) 1) (eqpred keyword (car args-remaining)))
+        (if (list? default)
+            (if (equal? default kwval)
+                (loop (list (cadr args-remaining)) (cddr args-remaining) args-to-return)
+                (loop (cons (cadr args-remaining) kwval) (cddr args-remaining) args-to-return))
+            (loop (cadr args-remaining) (cddr args-remaining) args-to-return)))
+       (else (loop kwval (cdr args-remaining) (cons (car args-remaining) args-to-return))))))
+
+
+
+  ;; get command line switches (have a subsequent arg; eg. [-foo bar])
+  ;;  assumes these are switches without arguments
+  ;;  will return list of arguments to matches
+  ;;  removes matches from command-line-arguments parameter
+
+  (define (re-match? re str)
+    (irregex-match re str))
+
+  (define (skim-cmdline-opts-withargs-by-regex switch-pattern)
+    (let-values
+        (((result new-cmdline-args)
+          (keyword-skim switch-pattern
+                        '()
+                        (command-line-arguments)
+                        re-match?
+                        )))
+      (command-line-arguments new-cmdline-args)
+      result))
+  
+  
+
+  ;; recognize general-lib command line switches (--quiet, --silent, --color, -d.., -dp.., -logfile)
+  ;;    - reset parameters; reset GLIB_* env vars to match user specified intent
+  ;;    - mutate (command-line-arguments) parameter to subtract these recognized and handled switches
+  ;;       * beware -- now (argv) and (command-line-arguments) are inconsistent... cannot mutate (argv) alas.  Use (command-line-arguments)
+  (define (process-command-line)
+
+    ;; --quiet
+    (let ((quiet-opts (skim-cmdline-opts-noarg-by-regex "--?quiet")))
+      (if (not (null? quiet-opts))
+          (begin
+            (setenv "GLIB_QUIET_MODE" "1")
+            (glib-quiet-mode "1"))))
+
+    ;; --silent
+    (let ((silent-opts (skim-cmdline-opts-noarg-by-regex "--?silent")))
+      (if (not (null? silent-opts))
+          (begin
+            (setenv "GLIB_SILENT_MODE" "1")
+            (glib-silent-mode "1"))))
+
+    ;; -color
+    (let ((color-opts (skim-cmdline-opts-noarg-by-regex "--?colou?r(ize)?")))
+      (if (not (null? color-opts))
+          (begin
+            (setenv "GLIB_COLORIZE" "1")
+            (glib-color-mode "1"))))
+
+    ;; -nocolor
+    (let ((nocolor-opts (skim-cmdline-opts-noarg-by-regex "--?nocolou?r(ize)?")))
+      (if (not (null? nocolor-opts))
+          (begin
+            (unsetenv "GLIB_COLORIZE" )
+            (glib-color-mode #f))))
+
+    ;; -logfile
+    (let ((logfile-opts (skim-cmdline-opts-withargs-by-regex "--?log(-?file)?")))
+      (if (not (null? logfile-opts))
+          (begin
+            (glib-log-file (car (reverse logfile-opts)))
+            (setenv "GLIB_LOG_FILE" (glib-log-file)))))
+
+    ;; -d -dd -d#
+    (let ((debug-opts (skim-cmdline-opts-noarg-by-regex "-d(d*|\\d+)"))
+          (initial-debuglevel (if (glib-debug-level) (glib-debug-level) 0) ))
+      (if (not (null? debug-opts))
+          (begin
+            (glib-debug-level
+             (let loop ((opts debug-opts) (debuglevel initial-debuglevel))
+               (if (null? opts)
+                   debuglevel
+                   (let*
+                       ( (curopt (car opts))
+                         (restopts (cdr opts))
+                         (ds (string-match "-(d+)" curopt))
+                         (dnum (string-match "-d(\\d+)" curopt)))
+                     (cond
+                      (ds (loop restopts (+ debuglevel (string-length (cadr ds)))))
+                      (dnum  (loop restopts (string->number (cadr dnum)))))))))
+            (setenv "GLIB_DEBUG_LEVEL" (number->string (glib-debug-level))))))
+
+
+    ;; -dp <pat> / --debug-pattern <pat>
+    (let ((debugpat-opts (skim-cmdline-opts-withargs-by-regex "--?(debug-pattern|dp)")))
+      (if (not (null? debugpat-opts))
+          (begin
+            (glib-debug-regex-filter (string-join debugpat-opts "|"))
+            (setenv "GLIB_DEBUG_PATTERN" (glib-debug-regex-filter)))))) 
+
+  ;; handle command line immediately; 
+  (process-command-line)                    
+
+
+  ) ; end module

ADDED   eggs/ducttape-lib/examples/sample_glib_prog.scm
Index: eggs/ducttape-lib/examples/sample_glib_prog.scm
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/examples/sample_glib_prog.scm
@@ -0,0 +1,4 @@
+(include "general-lib.scm")
+(import general-lib)
+(inote "hello world")
+(exit 0)

ADDED   eggs/ducttape-lib/examples/test_glib.scm
Index: eggs/ducttape-lib/examples/test_glib.scm
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/examples/test_glib.scm
@@ -0,0 +1,345 @@
+#!/usr/bin/env csi -script
+(use test)
+(include "general-lib.scm")
+(import general-lib)
+(import ansi-escape-sequences)
+(use trace)
+(set! systype (do-or-die (if (file-exists? "/bin/uname") "/bin/uname" "/usr/bin/uname")))
+;(trace skim-cmdline-opts-withargs-by-regex)
+;(trace keyword-skim)
+;(trace re-match?)
+(define (reset-glib)
+  (unsetenv "GLIB_DEBUG_LEVEL")
+  (glib-debug-level #f)
+
+  (unsetenv "GLIB_DEBUG_PATTERN")
+  (glib-debug-regex-filter ".")
+
+  (unsetenv "GLIB_LOG_FILE")
+  (glib-log-file #f)
+
+  (unsetenv "GLIB_SILENT_MODE")
+  (glib-silent-mode #f)
+
+  (unsetenv "GLIB_QUIET_MODE")
+  (glib-quiet-mode #f)
+
+  (unsetenv "GLIB_COLOR_MODE")
+  (glib-color-mode #f)
+)
+
+(define (reset-glib-with-cmdline-list cmdline-list)
+  (reset-glib)
+
+  (command-line-arguments cmdline-list)
+  (process-command-line)
+)
+
+
+(define (direct-iputs-test)
+  (glib-color-mode #f)
+  (ierr "I'm an error")
+  (iwarn "I'm a warning")
+  (inote "I'm a note")
+
+  (glib-debug-level 1)
+  (idbg "I'm a debug statement")
+  (glib-debug-level #f)
+  (idbg "I'm a hidden debug statement")
+
+  (glib-silent-mode #t)
+  (iwarn "I shouldn't show up")
+  (inote "I shouldn't show up either")
+  (ierr "I should show up 1")
+  (glib-silent-mode #f)
+
+  (glib-quiet-mode #t)
+  (iwarn "I should show up 2")
+  (inote "I shouldn't show up though")
+  (ierr "I should show up 3")
+  (glib-quiet-mode #f)
+
+  (glib-debug-level 1)
+  (idbg "foo")
+  (iputs "dbg" "debug message")
+  (iputs "e" "error message")
+  (iputs "w" "warning message")
+  (iputs "n" "note message")
+
+  (glib-color-mode #t)
+  (ierr "I'm an error COLOR")
+  (iwarn "I'm a warning COLOR")
+  (inote "I'm a note COLOR")
+  (idbg "I'm a debug COLOR")
+
+
+  )
+
+(define (test-argprocessor-funcs)
+  
+  (test-group
+   "Command line processor utility functions"
+
+   (set! testargs1 '( "-d" "-d" "-d3" "-ddd" "-foo" "fooarg" "-foo" "fooarg2" "-lastArgIsDecoy" "-foo"))
+   (command-line-arguments testargs1)
+   (set! expected_result '("-d" "-d" "-d3" "-ddd"))
+   (set! expected_sideeffect '("-foo" "fooarg" "-foo" "fooarg2" "-lastArgIsDecoy" "-foo"))
+
+   (test "skim-cmdline-opts-noarg-by-regex result" expected_result (skim-cmdline-opts-noarg-by-regex "-d(d+|\\d+)?"))
+   (test "skim-cmdline-opts-noarg-by-regex sideeffect" expected_sideeffect (command-line-arguments))
+
+
+  
+   (command-line-arguments testargs1)
+   (set! expected_result '("fooarg" "fooarg2" ))
+   (set! expected_sideeffect '( "-d" "-d" "-d3" "-ddd" "-lastArgIsDecoy" "-foo"))
+   (test
+    "skim-cmdline-opts-withargs-by-regex result"
+    expected_result
+    (skim-cmdline-opts-withargs-by-regex "--?foo"))
+   
+   (test
+    "skim-cmdline-opts-withargs-by-regex sideeffect"
+    expected_sideeffect
+    (command-line-arguments))
+
+   ))
+
+(define (test-misc)
+  (test-group
+   "misc"
+   (let ((tmpfile (mktemp)))
+     (test-assert "mktemp: temp file created" (file-exists? tmpfile))
+     (if (file-exists? tmpfile)
+         (delete-file tmpfile))
+
+     )))
+
+(define (test-systemstuff)
+  (test-group
+   "system commands"
+
+   (let-values (((ec o e) (isys (find-exe "true"))))
+     (test-assert "isys: /bin/true should have exit code 0" (equal? ec 0)))
+   (let-values (((ec o e) (isys (find-exe "false"))))
+     (test-assert "isys: /bin/false should have exit code 1" (equal? ec 1)))
+
+   (let-values (((ec o e) (isys "/bin/echo" "foo" "bar" "baz")))
+     (test-assert "isys: /bin/echo should have exit code 0" (equal? ec 0))
+     (test-assert "isys: /bin/echo should have stdout 'foo bar baz'" (equal? o "foo bar baz")))
+   
+   (let-values (((ec o e) (isys "/bin/ls /zzzzz")))
+     (let ((expected-code
+            (if (equal? systype "Darwin") 1 2))
+           (expected-err
+            (if (equal? systype "Darwin")
+                "ls: /zzzzz: No such file or directory"
+                "/bin/ls: cannot access /zzzzz: No such file or directory"))
+
+           )
+       (test "isys: /bin/ls /zzzzz should have exit code 2" expected-code ec)
+       (test "isys: /bin/ls /zzzzz should have empty stdout" "" o)
+       (test
+        "isys: /bin/ls /zzzzz should have stderr"
+        expected-err
+        e))
+     )
+
+   (let-values (((ec o e) (isys "/bin/ls /etc/passwd")))
+     (test "isys: /bin/ls /etc/passwd should have exit code 0" 0 ec)
+     (test "isys: /bin/ls /etc/passwd should have stdout" "/etc/passwd" o)
+     (test
+      "isys: /bin/ls /etc/passwd should have empty stderr"
+      ""
+      e))
+
+      (let ((res (do-or-die "/bin/ls /etc/passwd")))
+        (test
+         "do-or-die: ls /etc/passwd should work"
+         "/etc/passwd" res ))
+
+      (let ((res (do-or-die "/bin/ls /zzzzz" nodie: #t)))
+        (test
+         "do-or-die: ls /zzzzz should die"
+         #f res ))
+
+      ; test reading from process stdout line at a time
+      (let* (
+             (lineno (counter-maker))
+
+             ; print each line with an index
+             (eachline-fn (lambda (line)
+                         (print "GOTLINE " (lineno) "> " line)))
+
+             (res
+              (do-or-die "/bin/ls -l /etc | head; true"
+                         foreach-stdout: eachline-fn )))
+        
+        (test-assert "ls -l /etc should not be empty"
+                     (not (equal? res ""))))
+      ;; test writing to process stdout line at a time
+
+      (let* ((tmpfile (mktemp))
+             (cmd (conc "cat > " tmpfile)))
+        (let-values (((c o e)
+                      (isys cmd stdin-proc:
+                       (lambda (myport)
+                         (write-line "hello" myport)
+                         (write-line "hello2" myport)
+                         (close-output-port myport)))))
+          (test "isys-sp: cat should exit 0" 0 c)
+          (let ((mycmd (conc "cat " tmpfile)))
+            (test "isys-sp: cat output should match input" "hello\nhello2" (do-or-die mycmd)))
+
+          (delete-file tmpfile)
+        ))
+
+      (let* ((tmpfile (mktemp))
+             (cmd (conc "cat > " tmpfile)))
+        (do-or-die cmd stdin-proc:
+                   (lambda (myport)
+                     (write-line "hello" myport)
+                     (write-line "hello2" myport)
+                     (close-output-port myport))
+                   cmd)
+        (test "dod-sp: cat output should match input" "hello\nhello2" (do-or-die (conc "cat " tmpfile)))
+        (delete-file tmpfile))
+
+
+
+      
+
+      (let*
+          ((thefile (conc "/tmp/" (get-environment-variable "USER")  "9-lines"))
+           (counter (counter-maker))
+           (stdin-writer
+            (lambda ()
+              (if (< (counter) 10)
+                  (number->string (counter 0))
+                  #f)))
+            (cmd (conc "cat > " thefile)))
+        (let-values
+            (((c o e)
+              (isys cmd foreach-stdin-thunk: stdin-writer)))
+
+          (test-assert "isys-fsl: cat should return 0" (equal? c 0))
+
+          (test-assert
+           "isys-fsl: cat should have written a file"
+           (file-exists? thefile))
+          
+          (if
+           (file-exists? thefile)
+           (begin
+             (test "isys-fsl: cat file should have right contents" "1\n2\n3\n4\n5\n6\n7\n8\n9" (do-or-die (conc "cat " thefile)))
+             (delete-file thefile)))))
+      
+   ) ; end test-group
+  ) ; end define
+
+   
+(define (test-argprocessor )
+  (test-group
+   "Command line processor parameter settings"
+
+   (reset-glib-with-cmdline-list '())
+   (test-assert "(nil) debug mode should be off" (not (glib-debug-level)))
+   (test-assert "(nil): debug pattern should be '.'" (equal? "." (glib-debug-regex-filter)))
+   (test-assert "(nil): colors should be off" (not (glib-color-mode)))
+   (test-assert "(nil): silent mode should be off" (not (glib-silent-mode)))
+   (test-assert "(nil): quiet mode should be off" (not (glib-quiet-mode)))
+   (test-assert "(nil): logfile should be off" (not (glib-log-file)))
+
+   (reset-glib-with-cmdline-list '("-d"))
+   (test-assert "-d: debug mode should be on at level 1" (eq? 1 (glib-debug-level)))
+
+   (reset-glib-with-cmdline-list '("-dd"))
+   (test "-dd: debug level should be 2" 2 (glib-debug-level))
+
+   (reset-glib-with-cmdline-list '("-ddd"))
+   (test "-ddd: debug level should be 3" 3 (glib-debug-level))
+
+   (reset-glib-with-cmdline-list '("-d2"))
+   (test "-d2: debug level should be 2" 2 (glib-debug-level))
+
+   (reset-glib-with-cmdline-list '("-d3"))
+   (test "-d3: debug level should be 3" 3 (glib-debug-level))
+
+   (reset-glib-with-cmdline-list '("-dp" "foo"))
+   (test "-dp foo: debug pattern should be 'foo'" "foo" (glib-debug-regex-filter))
+
+   (reset-glib-with-cmdline-list '("--debug-pattern" "foo"))
+   (test "--debug-pattern foo: debug pattern should be 'foo'" "foo" (glib-debug-regex-filter))
+
+   (reset-glib-with-cmdline-list '("-dp" "foo" "-dp" "bar"))
+   (test "-dp foo -dp bar: debug pattern should be 'foo|bar'"  "foo|bar" (glib-debug-regex-filter))
+
+   (reset-glib-with-cmdline-list '("--quiet"))
+   (test-assert "-quiet: quiet mode should be active" (glib-quiet-mode))
+
+   (reset-glib-with-cmdline-list '("--silent"))
+   (test-assert "-silent: silent mode should be active" (glib-silent-mode))
+
+   (reset-glib-with-cmdline-list '("--color"))
+   (test-assert "-color: color mode should be active" (glib-color-mode))
+
+   (reset-glib-with-cmdline-list '("--log" "foo"))
+   (test "--log foo: logfile should be 'foo'" "foo" (glib-log-file))
+
+))
+
+(define (test-inteldate)
+  (test-group
+   "inteldate conversion tests"
+   (let ((test-table
+          '(("16ww01.5" . "2016-01-01")
+            ("16ww18.5" . "2016-04-29")
+            ("1999ww33.5" . "1999-08-13")
+            ("16ww18.4" . "2016-04-28")
+            ("16ww18.3" . "2016-04-27")
+            ("13ww01.0" . "2012-12-30")
+            ("13ww52.6" . "2013-12-28")
+            ("16ww53.3" . "2016-12-28"))))
+     (for-each
+      (lambda (test-pair)
+        (let ((inteldate (car test-pair))
+              (isodate (cdr test-pair)))
+          (test
+           (conc "(isodate->inteldate "isodate ") => "inteldate)
+           inteldate
+           (isodate->inteldate isodate))
+          
+          (test
+           (conc "(inteldate->isodate "inteldate ")   => "isodate)
+           isodate
+           (inteldate->isodate inteldate))))
+      test-table))))
+
+(define (main)
+  ;; (test <description; #f uses func prototype> <expected result> <thunk>)
+  
+;  (test-group "silly settext group"
+;              (test #f "\x1b[1mfoo\x1b[0m" (set-text (list 'bold) "foo"))
+;              (test "settext bold" "\x1b[1mfoo\x1b[0m" (set-text (list 'bold) "foo"))
+;              )
+
+  ; visually inspect this
+  (direct-iputs-test)
+
+  ; following use unit test test-egg
+  (reset-glib)
+  (test-argprocessor-funcs)
+  (reset-glib)
+  (test-argprocessor)
+  (test-systemstuff)
+  (test-misc)
+  (test-inteldate)
+  ) ; end main()
+
+(main)
+(sendmail "brandon.j.barclay@intel.com" "6hello subject"  "test body")
+;(sendmail "bjbarcla" "2hello subject html"  "test body<h1>hello</h1><i>italics</i>" use_html: #t)
+;(sendmail "bb" "4hello attach subject html"  "<h2>hmm</h2>" use_html: #t attach-files-list: '( "/Users/bb/Downloads/wdmycloud-manual-4779-705103.pdf" ) )
+
+;(launch-repl)
+(test-exit)

ADDED   eggs/ducttape-lib/examples/useargs-example.scm
Index: eggs/ducttape-lib/examples/useargs-example.scm
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/examples/useargs-example.scm
@@ -0,0 +1,19 @@
+(use general-lib)
+
+(let (
+      (customers (skim-cmdline-opts-withargs-by-regex "--cust(omer)?"))
+      (magicmode (skim-cmdline-opts-noarg-by-regex "--magic"))
+      )
+  (print "your customers are " customers)
+  (if (null? magicmode)
+      (print "no unicorns for you")
+      (print "magic!")
+  )
+  )
+
+(idbg "hello")
+(idbg "hello2" 2)
+(idbg "hello2" 3)
+(inote "note")
+(iwarn "warn")
+(ierr "err")

ADDED   eggs/ducttape-lib/general-lib.meta
Index: eggs/ducttape-lib/general-lib.meta
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/general-lib.meta
@@ -0,0 +1,13 @@
+;;; general-lib.meta -*- Hen -*-
+
+((egg "general-lib.egg")
+ (synopsis "Tool for standard print routines and utilities for FDK Env Team.")
+ (category env)
+ (author "Brandon Barclay")
+ (doc-from-wiki)
+ (license "GPL-2")
+ ;; srfi-69, posix, srfi-18
+ (depends regex)
+ (test-depends test)
+ ; suspicious - (files "general-lib")
+ )

ADDED   eggs/ducttape-lib/general-lib.setup
Index: eggs/ducttape-lib/general-lib.setup
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/general-lib.setup
@@ -0,0 +1,1 @@
+(standard-extension 'general-lib '1.0.0)

ADDED   eggs/ducttape-lib/mimetypes.scm
Index: eggs/ducttape-lib/mimetypes.scm
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/mimetypes.scm
@@ -0,0 +1,782 @@
+;; gathered from macosx:
+;;   cat /etc/apache2/mime.types | grep -v '^#' | perl -ne 'print "(\"$2\" . \"$1\")\n" if /(\S+)\s+(\S+)/' > mimetypes.scm
+;; + manual manipulation
+
+(define glib_ext2mimetype '(("ez" . "application/andrew-inset")
+("aw" . "application/applixware")
+("atom" . "application/atom+xml")
+("atomcat" . "application/atomcat+xml")
+("atomsvc" . "application/atomsvc+xml")
+("ccxml" . "application/ccxml+xml")
+("cdmia" . "application/cdmi-capability")
+("cdmic" . "application/cdmi-container")
+("cdmid" . "application/cdmi-domain")
+("cdmio" . "application/cdmi-object")
+("cdmiq" . "application/cdmi-queue")
+("cu" . "application/cu-seeme")
+("davmount" . "application/davmount+xml")
+("dbk" . "application/docbook+xml")
+("dssc" . "application/dssc+der")
+("xdssc" . "application/dssc+xml")
+("ecma" . "application/ecmascript")
+("emma" . "application/emma+xml")
+("epub" . "application/epub+zip")
+("exi" . "application/exi")
+("pfr" . "application/font-tdpfr")
+("gml" . "application/gml+xml")
+("gpx" . "application/gpx+xml")
+("gxf" . "application/gxf")
+("stk" . "application/hyperstudio")
+("ink" . "application/inkml+xml")
+("ipfix" . "application/ipfix")
+("jar" . "application/java-archive")
+("ser" . "application/java-serialized-object")
+("class" . "application/java-vm")
+("js" . "application/javascript")
+("json" . "application/json")
+("jsonml" . "application/jsonml+json")
+("lostxml" . "application/lost+xml")
+("hqx" . "application/mac-binhex40")
+("cpt" . "application/mac-compactpro")
+("mads" . "application/mads+xml")
+("mrc" . "application/marc")
+("mrcx" . "application/marcxml+xml")
+("ma" . "application/mathematica")
+("mathml" . "application/mathml+xml")
+("mbox" . "application/mbox")
+("mscml" . "application/mediaservercontrol+xml")
+("metalink" . "application/metalink+xml")
+("meta4" . "application/metalink4+xml")
+("mets" . "application/mets+xml")
+("mods" . "application/mods+xml")
+("m21" . "application/mp21")
+("mp4s" . "application/mp4")
+("doc" . "application/msword")
+("mxf" . "application/mxf")
+("bin" . "application/octet-stream")
+("oda" . "application/oda")
+("opf" . "application/oebps-package+xml")
+("ogx" . "application/ogg")
+("omdoc" . "application/omdoc+xml")
+("onetoc" . "application/onenote")
+("oxps" . "application/oxps")
+("xer" . "application/patch-ops-error+xml")
+("pdf" . "application/pdf")
+("pgp" . "application/pgp-encrypted")
+("asc" . "application/pgp-signature")
+("prf" . "application/pics-rules")
+("p10" . "application/pkcs10")
+("p7m" . "application/pkcs7-mime")
+("p7s" . "application/pkcs7-signature")
+("p8" . "application/pkcs8")
+("ac" . "application/pkix-attr-cert")
+("cer" . "application/pkix-cert")
+("crl" . "application/pkix-crl")
+("pkipath" . "application/pkix-pkipath")
+("pki" . "application/pkixcmp")
+("pls" . "application/pls+xml")
+("ai" . "application/postscript")
+("cww" . "application/prs.cww")
+("pskcxml" . "application/pskc+xml")
+("rdf" . "application/rdf+xml")
+("rif" . "application/reginfo+xml")
+("rnc" . "application/relax-ng-compact-syntax")
+("rl" . "application/resource-lists+xml")
+("rld" . "application/resource-lists-diff+xml")
+("rs" . "application/rls-services+xml")
+("gbr" . "application/rpki-ghostbusters")
+("mft" . "application/rpki-manifest")
+("roa" . "application/rpki-roa")
+("rsd" . "application/rsd+xml")
+("rss" . "application/rss+xml")
+("rtf" . "application/rtf")
+("sbml" . "application/sbml+xml")
+("scq" . "application/scvp-cv-request")
+("scs" . "application/scvp-cv-response")
+("spq" . "application/scvp-vp-request")
+("spp" . "application/scvp-vp-response")
+("sdp" . "application/sdp")
+("setpay" . "application/set-payment-initiation")
+("setreg" . "application/set-registration-initiation")
+("shf" . "application/shf+xml")
+("smi" . "application/smil+xml")
+("rq" . "application/sparql-query")
+("srx" . "application/sparql-results+xml")
+("gram" . "application/srgs")
+("grxml" . "application/srgs+xml")
+("sru" . "application/sru+xml")
+("ssdl" . "application/ssdl+xml")
+("ssml" . "application/ssml+xml")
+("tei" . "application/tei+xml")
+("tfi" . "application/thraud+xml")
+("tsd" . "application/timestamped-data")
+("plb" . "application/vnd.3gpp.pic-bw-large")
+("psb" . "application/vnd.3gpp.pic-bw-small")
+("pvb" . "application/vnd.3gpp.pic-bw-var")
+("tcap" . "application/vnd.3gpp2.tcap")
+("pwn" . "application/vnd.3m.post-it-notes")
+("aso" . "application/vnd.accpac.simply.aso")
+("imp" . "application/vnd.accpac.simply.imp")
+("acu" . "application/vnd.acucobol")
+("atc" . "application/vnd.acucorp")
+("air" . "application/vnd.adobe.air-application-installer-package+zip")
+("fcdt" . "application/vnd.adobe.formscentral.fcdt")
+("fxp" . "application/vnd.adobe.fxp")
+("xdp" . "application/vnd.adobe.xdp+xml")
+("xfdf" . "application/vnd.adobe.xfdf")
+("ahead" . "application/vnd.ahead.space")
+("azf" . "application/vnd.airzip.filesecure.azf")
+("azs" . "application/vnd.airzip.filesecure.azs")
+("azw" . "application/vnd.amazon.ebook")
+("acc" . "application/vnd.americandynamics.acc")
+("ami" . "application/vnd.amiga.ami")
+("apk" . "application/vnd.android.package-archive")
+("cii" . "application/vnd.anser-web-certificate-issue-initiation")
+("fti" . "application/vnd.anser-web-funds-transfer-initiation")
+("atx" . "application/vnd.antix.game-component")
+("mpkg" . "application/vnd.apple.installer+xml")
+("m3u8" . "application/vnd.apple.mpegurl")
+("swi" . "application/vnd.aristanetworks.swi")
+("iota" . "application/vnd.astraea-software.iota")
+("aep" . "application/vnd.audiograph")
+("mpm" . "application/vnd.blueice.multipass")
+("bmi" . "application/vnd.bmi")
+("rep" . "application/vnd.businessobjects")
+("cdxml" . "application/vnd.chemdraw+xml")
+("mmd" . "application/vnd.chipnuts.karaoke-mmd")
+("cdy" . "application/vnd.cinderella")
+("cla" . "application/vnd.claymore")
+("rp9" . "application/vnd.cloanto.rp9")
+("c4g" . "application/vnd.clonk.c4group")
+("c11amc" . "application/vnd.cluetrust.cartomobile-config")
+("c11amz" . "application/vnd.cluetrust.cartomobile-config-pkg")
+("csp" . "application/vnd.commonspace")
+("cdbcmsg" . "application/vnd.contact.cmsg")
+("cmc" . "application/vnd.cosmocaller")
+("clkx" . "application/vnd.crick.clicker")
+("clkk" . "application/vnd.crick.clicker.keyboard")
+("clkp" . "application/vnd.crick.clicker.palette")
+("clkt" . "application/vnd.crick.clicker.template")
+("clkw" . "application/vnd.crick.clicker.wordbank")
+("wbs" . "application/vnd.criticaltools.wbs+xml")
+("pml" . "application/vnd.ctc-posml")
+("ppd" . "application/vnd.cups-ppd")
+("car" . "application/vnd.curl.car")
+("pcurl" . "application/vnd.curl.pcurl")
+("dart" . "application/vnd.dart")
+("rdz" . "application/vnd.data-vision.rdz")
+("uvf" . "application/vnd.dece.data")
+("uvt" . "application/vnd.dece.ttml+xml")
+("uvx" . "application/vnd.dece.unspecified")
+("uvz" . "application/vnd.dece.zip")
+("fe_launch" . "application/vnd.denovo.fcselayout-link")
+("dna" . "application/vnd.dna")
+("mlp" . "application/vnd.dolby.mlp")
+("dpg" . "application/vnd.dpgraph")
+("dfac" . "application/vnd.dreamfactory")
+("kpxx" . "application/vnd.ds-keypoint")
+("ait" . "application/vnd.dvb.ait")
+("svc" . "application/vnd.dvb.service")
+("geo" . "application/vnd.dynageo")
+("mag" . "application/vnd.ecowin.chart")
+("nml" . "application/vnd.enliven")
+("esf" . "application/vnd.epson.esf")
+("msf" . "application/vnd.epson.msf")
+("qam" . "application/vnd.epson.quickanime")
+("slt" . "application/vnd.epson.salt")
+("ssf" . "application/vnd.epson.ssf")
+("es3" . "application/vnd.eszigno3+xml")
+("ez2" . "application/vnd.ezpix-album")
+("ez3" . "application/vnd.ezpix-package")
+("fdf" . "application/vnd.fdf")
+("mseed" . "application/vnd.fdsn.mseed")
+("seed" . "application/vnd.fdsn.seed")
+("gph" . "application/vnd.flographit")
+("ftc" . "application/vnd.fluxtime.clip")
+("fm" . "application/vnd.framemaker")
+("fnc" . "application/vnd.frogans.fnc")
+("ltf" . "application/vnd.frogans.ltf")
+("fsc" . "application/vnd.fsc.weblaunch")
+("oas" . "application/vnd.fujitsu.oasys")
+("oa2" . "application/vnd.fujitsu.oasys2")
+("oa3" . "application/vnd.fujitsu.oasys3")
+("fg5" . "application/vnd.fujitsu.oasysgp")
+("bh2" . "application/vnd.fujitsu.oasysprs")
+("ddd" . "application/vnd.fujixerox.ddd")
+("xdw" . "application/vnd.fujixerox.docuworks")
+("xbd" . "application/vnd.fujixerox.docuworks.binder")
+("fzs" . "application/vnd.fuzzysheet")
+("txd" . "application/vnd.genomatix.tuxedo")
+("ggb" . "application/vnd.geogebra.file")
+("ggt" . "application/vnd.geogebra.tool")
+("gex" . "application/vnd.geometry-explorer")
+("gxt" . "application/vnd.geonext")
+("g2w" . "application/vnd.geoplan")
+("g3w" . "application/vnd.geospace")
+("gmx" . "application/vnd.gmx")
+("kml" . "application/vnd.google-earth.kml+xml")
+("kmz" . "application/vnd.google-earth.kmz")
+("gqf" . "application/vnd.grafeq")
+("gac" . "application/vnd.groove-account")
+("ghf" . "application/vnd.groove-help")
+("gim" . "application/vnd.groove-identity-message")
+("grv" . "application/vnd.groove-injector")
+("gtm" . "application/vnd.groove-tool-message")
+("tpl" . "application/vnd.groove-tool-template")
+("vcg" . "application/vnd.groove-vcard")
+("hal" . "application/vnd.hal+xml")
+("zmm" . "application/vnd.handheld-entertainment+xml")
+("hbci" . "application/vnd.hbci")
+("les" . "application/vnd.hhe.lesson-player")
+("hpgl" . "application/vnd.hp-hpgl")
+("hpid" . "application/vnd.hp-hpid")
+("hps" . "application/vnd.hp-hps")
+("jlt" . "application/vnd.hp-jlyt")
+("pcl" . "application/vnd.hp-pcl")
+("pclxl" . "application/vnd.hp-pclxl")
+("sfd-hdstx" . "application/vnd.hydrostatix.sof-data")
+("mpy" . "application/vnd.ibm.minipay")
+("afp" . "application/vnd.ibm.modcap")
+("irm" . "application/vnd.ibm.rights-management")
+("sc" . "application/vnd.ibm.secure-container")
+("icc" . "application/vnd.iccprofile")
+("igl" . "application/vnd.igloader")
+("ivp" . "application/vnd.immervision-ivp")
+("ivu" . "application/vnd.immervision-ivu")
+("igm" . "application/vnd.insors.igm")
+("xpw" . "application/vnd.intercon.formnet")
+("i2g" . "application/vnd.intergeo")
+("qbo" . "application/vnd.intu.qbo")
+("qfx" . "application/vnd.intu.qfx")
+("rcprofile" . "application/vnd.ipunplugged.rcprofile")
+("irp" . "application/vnd.irepository.package+xml")
+("xpr" . "application/vnd.is-xpr")
+("fcs" . "application/vnd.isac.fcs")
+("jam" . "application/vnd.jam")
+("rms" . "application/vnd.jcp.javame.midlet-rms")
+("jisp" . "application/vnd.jisp")
+("joda" . "application/vnd.joost.joda-archive")
+("ktz" . "application/vnd.kahootz")
+("karbon" . "application/vnd.kde.karbon")
+("chrt" . "application/vnd.kde.kchart")
+("kfo" . "application/vnd.kde.kformula")
+("flw" . "application/vnd.kde.kivio")
+("kon" . "application/vnd.kde.kontour")
+("kpr" . "application/vnd.kde.kpresenter")
+("ksp" . "application/vnd.kde.kspread")
+("kwd" . "application/vnd.kde.kword")
+("htke" . "application/vnd.kenameaapp")
+("kia" . "application/vnd.kidspiration")
+("kne" . "application/vnd.kinar")
+("skp" . "application/vnd.koan")
+("sse" . "application/vnd.kodak-descriptor")
+("lasxml" . "application/vnd.las.las+xml")
+("lbd" . "application/vnd.llamagraphics.life-balance.desktop")
+("lbe" . "application/vnd.llamagraphics.life-balance.exchange+xml")
+("123" . "application/vnd.lotus-1-2-3")
+("apr" . "application/vnd.lotus-approach")
+("pre" . "application/vnd.lotus-freelance")
+("nsf" . "application/vnd.lotus-notes")
+("org" . "application/vnd.lotus-organizer")
+("scm" . "application/vnd.lotus-screencam")
+("lwp" . "application/vnd.lotus-wordpro")
+("portpkg" . "application/vnd.macports.portpkg")
+("mcd" . "application/vnd.mcd")
+("mc1" . "application/vnd.medcalcdata")
+("cdkey" . "application/vnd.mediastation.cdkey")
+("mwf" . "application/vnd.mfer")
+("mfm" . "application/vnd.mfmp")
+("flo" . "application/vnd.micrografx.flo")
+("igx" . "application/vnd.micrografx.igx")
+("mif" . "application/vnd.mif")
+("daf" . "application/vnd.mobius.daf")
+("dis" . "application/vnd.mobius.dis")
+("mbk" . "application/vnd.mobius.mbk")
+("mqy" . "application/vnd.mobius.mqy")
+("msl" . "application/vnd.mobius.msl")
+("plc" . "application/vnd.mobius.plc")
+("txf" . "application/vnd.mobius.txf")
+("mpn" . "application/vnd.mophun.application")
+("mpc" . "application/vnd.mophun.certificate")
+("xul" . "application/vnd.mozilla.xul+xml")
+("cil" . "application/vnd.ms-artgalry")
+("cab" . "application/vnd.ms-cab-compressed")
+("xls" . "application/vnd.ms-excel")
+("xlam" . "application/vnd.ms-excel.addin.macroenabled.12")
+("xlsb" . "application/vnd.ms-excel.sheet.binary.macroenabled.12")
+("xlsm" . "application/vnd.ms-excel.sheet.macroenabled.12")
+("xltm" . "application/vnd.ms-excel.template.macroenabled.12")
+("eot" . "application/vnd.ms-fontobject")
+("chm" . "application/vnd.ms-htmlhelp")
+("ims" . "application/vnd.ms-ims")
+("lrm" . "application/vnd.ms-lrm")
+("thmx" . "application/vnd.ms-officetheme")
+("cat" . "application/vnd.ms-pki.seccat")
+("stl" . "application/vnd.ms-pki.stl")
+("ppt" . "application/vnd.ms-powerpoint")
+("ppam" . "application/vnd.ms-powerpoint.addin.macroenabled.12")
+("pptm" . "application/vnd.ms-powerpoint.presentation.macroenabled.12")
+("sldm" . "application/vnd.ms-powerpoint.slide.macroenabled.12")
+("ppsm" . "application/vnd.ms-powerpoint.slideshow.macroenabled.12")
+("potm" . "application/vnd.ms-powerpoint.template.macroenabled.12")
+("mpp" . "application/vnd.ms-project")
+("docm" . "application/vnd.ms-word.document.macroenabled.12")
+("dotm" . "application/vnd.ms-word.template.macroenabled.12")
+("wps" . "application/vnd.ms-works")
+("wpl" . "application/vnd.ms-wpl")
+("xps" . "application/vnd.ms-xpsdocument")
+("mseq" . "application/vnd.mseq")
+("mus" . "application/vnd.musician")
+("msty" . "application/vnd.muvee.style")
+("taglet" . "application/vnd.mynfc")
+("nlu" . "application/vnd.neurolanguage.nlu")
+("ntf" . "application/vnd.nitf")
+("nnd" . "application/vnd.noblenet-directory")
+("nns" . "application/vnd.noblenet-sealer")
+("nnw" . "application/vnd.noblenet-web")
+("ngdat" . "application/vnd.nokia.n-gage.data")
+("n-gage" . "application/vnd.nokia.n-gage.symbian.install")
+("rpst" . "application/vnd.nokia.radio-preset")
+("rpss" . "application/vnd.nokia.radio-presets")
+("edm" . "application/vnd.novadigm.edm")
+("edx" . "application/vnd.novadigm.edx")
+("ext" . "application/vnd.novadigm.ext")
+("odc" . "application/vnd.oasis.opendocument.chart")
+("otc" . "application/vnd.oasis.opendocument.chart-template")
+("odb" . "application/vnd.oasis.opendocument.database")
+("odf" . "application/vnd.oasis.opendocument.formula")
+("odft" . "application/vnd.oasis.opendocument.formula-template")
+("odg" . "application/vnd.oasis.opendocument.graphics")
+("otg" . "application/vnd.oasis.opendocument.graphics-template")
+("odi" . "application/vnd.oasis.opendocument.image")
+("oti" . "application/vnd.oasis.opendocument.image-template")
+("odp" . "application/vnd.oasis.opendocument.presentation")
+("otp" . "application/vnd.oasis.opendocument.presentation-template")
+("ods" . "application/vnd.oasis.opendocument.spreadsheet")
+("ots" . "application/vnd.oasis.opendocument.spreadsheet-template")
+("odt" . "application/vnd.oasis.opendocument.text")
+("odm" . "application/vnd.oasis.opendocument.text-master")
+("ott" . "application/vnd.oasis.opendocument.text-template")
+("oth" . "application/vnd.oasis.opendocument.text-web")
+("xo" . "application/vnd.olpc-sugar")
+("dd2" . "application/vnd.oma.dd2+xml")
+("oxt" . "application/vnd.openofficeorg.extension")
+("pptx" . "application/vnd.openxmlformats-officedocument.presentationml.presentation")
+("sldx" . "application/vnd.openxmlformats-officedocument.presentationml.slide")
+("ppsx" . "application/vnd.openxmlformats-officedocument.presentationml.slideshow")
+("potx" . "application/vnd.openxmlformats-officedocument.presentationml.template")
+("xlsx" . "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet")
+("xltx" . "application/vnd.openxmlformats-officedocument.spreadsheetml.template")
+("docx" . "application/vnd.openxmlformats-officedocument.wordprocessingml.document")
+("dotx" . "application/vnd.openxmlformats-officedocument.wordprocessingml.template")
+("mgp" . "application/vnd.osgeo.mapguide.package")
+("dp" . "application/vnd.osgi.dp")
+("esa" . "application/vnd.osgi.subsystem")
+("pdb" . "application/vnd.palm")
+("paw" . "application/vnd.pawaafile")
+("str" . "application/vnd.pg.format")
+("ei6" . "application/vnd.pg.osasli")
+("efif" . "application/vnd.picsel")
+("wg" . "application/vnd.pmi.widget")
+("plf" . "application/vnd.pocketlearn")
+("pbd" . "application/vnd.powerbuilder6")
+("box" . "application/vnd.previewsystems.box")
+("mgz" . "application/vnd.proteus.magazine")
+("qps" . "application/vnd.publishare-delta-tree")
+("ptid" . "application/vnd.pvi.ptid1")
+("qxd" . "application/vnd.quark.quarkxpress")
+("bed" . "application/vnd.realvnc.bed")
+("mxl" . "application/vnd.recordare.musicxml")
+("musicxml" . "application/vnd.recordare.musicxml+xml")
+("cryptonote" . "application/vnd.rig.cryptonote")
+("cod" . "application/vnd.rim.cod")
+("rm" . "application/vnd.rn-realmedia")
+("rmvb" . "application/vnd.rn-realmedia-vbr")
+("link66" . "application/vnd.route66.link66+xml")
+("st" . "application/vnd.sailingtracker.track")
+("see" . "application/vnd.seemail")
+("sema" . "application/vnd.sema")
+("semd" . "application/vnd.semd")
+("semf" . "application/vnd.semf")
+("ifm" . "application/vnd.shana.informed.formdata")
+("itp" . "application/vnd.shana.informed.formtemplate")
+("iif" . "application/vnd.shana.informed.interchange")
+("ipk" . "application/vnd.shana.informed.package")
+("twd" . "application/vnd.simtech-mindmapper")
+("mmf" . "application/vnd.smaf")
+("teacher" . "application/vnd.smart.teacher")
+("sdkm" . "application/vnd.solent.sdkm+xml")
+("dxp" . "application/vnd.spotfire.dxp")
+("sfs" . "application/vnd.spotfire.sfs")
+("sdc" . "application/vnd.stardivision.calc")
+("sda" . "application/vnd.stardivision.draw")
+("sdd" . "application/vnd.stardivision.impress")
+("smf" . "application/vnd.stardivision.math")
+("sdw" . "application/vnd.stardivision.writer")
+("sgl" . "application/vnd.stardivision.writer-global")
+("smzip" . "application/vnd.stepmania.package")
+("sm" . "application/vnd.stepmania.stepchart")
+("sxc" . "application/vnd.sun.xml.calc")
+("stc" . "application/vnd.sun.xml.calc.template")
+("sxd" . "application/vnd.sun.xml.draw")
+("std" . "application/vnd.sun.xml.draw.template")
+("sxi" . "application/vnd.sun.xml.impress")
+("sti" . "application/vnd.sun.xml.impress.template")
+("sxm" . "application/vnd.sun.xml.math")
+("sxw" . "application/vnd.sun.xml.writer")
+("sxg" . "application/vnd.sun.xml.writer.global")
+("stw" . "application/vnd.sun.xml.writer.template")
+("sus" . "application/vnd.sus-calendar")
+("svd" . "application/vnd.svd")
+("sis" . "application/vnd.symbian.install")
+("xsm" . "application/vnd.syncml+xml")
+("bdm" . "application/vnd.syncml.dm+wbxml")
+("xdm" . "application/vnd.syncml.dm+xml")
+("tao" . "application/vnd.tao.intent-module-archive")
+("pcap" . "application/vnd.tcpdump.pcap")
+("tmo" . "application/vnd.tmobile-livetv")
+("tpt" . "application/vnd.trid.tpt")
+("mxs" . "application/vnd.triscape.mxs")
+("tra" . "application/vnd.trueapp")
+("ufd" . "application/vnd.ufdl")
+("utz" . "application/vnd.uiq.theme")
+("umj" . "application/vnd.umajin")
+("unityweb" . "application/vnd.unity")
+("uoml" . "application/vnd.uoml+xml")
+("vcx" . "application/vnd.vcx")
+("vsd" . "application/vnd.visio")
+("vis" . "application/vnd.visionary")
+("vsf" . "application/vnd.vsf")
+("wbxml" . "application/vnd.wap.wbxml")
+("wmlc" . "application/vnd.wap.wmlc")
+("wmlsc" . "application/vnd.wap.wmlscriptc")
+("wtb" . "application/vnd.webturbo")
+("nbp" . "application/vnd.wolfram.player")
+("wpd" . "application/vnd.wordperfect")
+("wqd" . "application/vnd.wqd")
+("stf" . "application/vnd.wt.stf")
+("xar" . "application/vnd.xara")
+("xfdl" . "application/vnd.xfdl")
+("hvd" . "application/vnd.yamaha.hv-dic")
+("hvs" . "application/vnd.yamaha.hv-script")
+("hvp" . "application/vnd.yamaha.hv-voice")
+("osf" . "application/vnd.yamaha.openscoreformat")
+("osfpvg" . "application/vnd.yamaha.openscoreformat.osfpvg+xml")
+("saf" . "application/vnd.yamaha.smaf-audio")
+("spf" . "application/vnd.yamaha.smaf-phrase")
+("cmp" . "application/vnd.yellowriver-custom-menu")
+("zir" . "application/vnd.zul")
+("zaz" . "application/vnd.zzazz.deck+xml")
+("vxml" . "application/voicexml+xml")
+("wgt" . "application/widget")
+("hlp" . "application/winhlp")
+("wsdl" . "application/wsdl+xml")
+("wspolicy" . "application/wspolicy+xml")
+("7z" . "application/x-7z-compressed")
+("abw" . "application/x-abiword")
+("ace" . "application/x-ace-compressed")
+("dmg" . "application/x-apple-diskimage")
+("aab" . "application/x-authorware-bin")
+("aam" . "application/x-authorware-map")
+("aas" . "application/x-authorware-seg")
+("bcpio" . "application/x-bcpio")
+("torrent" . "application/x-bittorrent")
+("blb" . "application/x-blorb")
+("bz" . "application/x-bzip")
+("bz2" . "application/x-bzip2")
+("cbr" . "application/x-cbr")
+("vcd" . "application/x-cdlink")
+("cfs" . "application/x-cfs-compressed")
+("chat" . "application/x-chat")
+("pgn" . "application/x-chess-pgn")
+("nsc" . "application/x-conference")
+("cpio" . "application/x-cpio")
+("csh" . "application/x-csh")
+("deb" . "application/x-debian-package")
+("dgc" . "application/x-dgc-compressed")
+("dir" . "application/x-director")
+("wad" . "application/x-doom")
+("ncx" . "application/x-dtbncx+xml")
+("dtb" . "application/x-dtbook+xml")
+("res" . "application/x-dtbresource+xml")
+("dvi" . "application/x-dvi")
+("evy" . "application/x-envoy")
+("eva" . "application/x-eva")
+("bdf" . "application/x-font-bdf")
+("gsf" . "application/x-font-ghostscript")
+("psf" . "application/x-font-linux-psf")
+("otf" . "application/x-font-otf")
+("pcf" . "application/x-font-pcf")
+("snf" . "application/x-font-snf")
+("ttf" . "application/x-font-ttf")
+("pfa" . "application/x-font-type1")
+("woff" . "application/x-font-woff")
+("arc" . "application/x-freearc")
+("spl" . "application/x-futuresplash")
+("gca" . "application/x-gca-compressed")
+("ulx" . "application/x-glulx")
+("gnumeric" . "application/x-gnumeric")
+("gramps" . "application/x-gramps-xml")
+("gtar" . "application/x-gtar")
+("hdf" . "application/x-hdf")
+("install" . "application/x-install-instructions")
+("iso" . "application/x-iso9660-image")
+("jnlp" . "application/x-java-jnlp-file")
+("latex" . "application/x-latex")
+("lzh" . "application/x-lzh-compressed")
+("mie" . "application/x-mie")
+("prc" . "application/x-mobipocket-ebook")
+("m3u8" . "application/x-mpegurl")
+("application" . "application/x-ms-application")
+("lnk" . "application/x-ms-shortcut")
+("wmd" . "application/x-ms-wmd")
+("wmz" . "application/x-ms-wmz")
+("xbap" . "application/x-ms-xbap")
+("mdb" . "application/x-msaccess")
+("obd" . "application/x-msbinder")
+("crd" . "application/x-mscardfile")
+("clp" . "application/x-msclip")
+("exe" . "application/x-msdownload")
+("mvb" . "application/x-msmediaview")
+("wmf" . "application/x-msmetafile")
+("mny" . "application/x-msmoney")
+("pub" . "application/x-mspublisher")
+("scd" . "application/x-msschedule")
+("trm" . "application/x-msterminal")
+("wri" . "application/x-mswrite")
+("nc" . "application/x-netcdf")
+("nzb" . "application/x-nzb")
+("p12" . "application/x-pkcs12")
+("p7b" . "application/x-pkcs7-certificates")
+("p7r" . "application/x-pkcs7-certreqresp")
+("rar" . "application/x-rar-compressed")
+("ris" . "application/x-research-info-systems")
+("sh" . "application/x-sh")
+("shar" . "application/x-shar")
+("swf" . "application/x-shockwave-flash")
+("xap" . "application/x-silverlight-app")
+("sql" . "application/x-sql")
+("sit" . "application/x-stuffit")
+("sitx" . "application/x-stuffitx")
+("srt" . "application/x-subrip")
+("sv4cpio" . "application/x-sv4cpio")
+("sv4crc" . "application/x-sv4crc")
+("t3" . "application/x-t3vm-image")
+("gam" . "application/x-tads")
+("tar" . "application/x-tar")
+("tcl" . "application/x-tcl")
+("tex" . "application/x-tex")
+("tfm" . "application/x-tex-tfm")
+("texinfo" . "application/x-texinfo")
+("obj" . "application/x-tgif")
+("ustar" . "application/x-ustar")
+("src" . "application/x-wais-source")
+("der" . "application/x-x509-ca-cert")
+("fig" . "application/x-xfig")
+("xlf" . "application/x-xliff+xml")
+("xpi" . "application/x-xpinstall")
+("xz" . "application/x-xz")
+("z1" . "application/x-zmachine")
+("xaml" . "application/xaml+xml")
+("xdf" . "application/xcap-diff+xml")
+("xenc" . "application/xenc+xml")
+("xhtml" . "application/xhtml+xml")
+("xml" . "application/xml")
+("dtd" . "application/xml-dtd")
+("xop" . "application/xop+xml")
+("xpl" . "application/xproc+xml")
+("xslt" . "application/xslt+xml")
+("xspf" . "application/xspf+xml")
+("mxml" . "application/xv+xml")
+("yang" . "application/yang")
+("yin" . "application/yin+xml")
+("zip" . "application/zip")
+("adp" . "audio/adpcm")
+("au" . "audio/basic")
+("mid" . "audio/midi")
+("mp4a" . "audio/mp4")
+("m4a" . "audio/mp4a-latm")
+("mpga" . "audio/mpeg")
+("oga" . "audio/ogg")
+("s3m" . "audio/s3m")
+("sil" . "audio/silk")
+("uva" . "audio/vnd.dece.audio")
+("eol" . "audio/vnd.digital-winds")
+("dra" . "audio/vnd.dra")
+("dts" . "audio/vnd.dts")
+("dtshd" . "audio/vnd.dts.hd")
+("lvp" . "audio/vnd.lucent.voice")
+("pya" . "audio/vnd.ms-playready.media.pya")
+("ecelp4800" . "audio/vnd.nuera.ecelp4800")
+("ecelp7470" . "audio/vnd.nuera.ecelp7470")
+("ecelp9600" . "audio/vnd.nuera.ecelp9600")
+("rip" . "audio/vnd.rip")
+("weba" . "audio/webm")
+("aac" . "audio/x-aac")
+("aif" . "audio/x-aiff")
+("caf" . "audio/x-caf")
+("flac" . "audio/x-flac")
+("mka" . "audio/x-matroska")
+("m3u" . "audio/x-mpegurl")
+("wax" . "audio/x-ms-wax")
+("wma" . "audio/x-ms-wma")
+("ram" . "audio/x-pn-realaudio")
+("rmp" . "audio/x-pn-realaudio-plugin")
+("wav" . "audio/x-wav")
+("xm" . "audio/xm")
+("cdx" . "chemical/x-cdx")
+("cif" . "chemical/x-cif")
+("cmdf" . "chemical/x-cmdf")
+("cml" . "chemical/x-cml")
+("csml" . "chemical/x-csml")
+("xyz" . "chemical/x-xyz")
+("bmp" . "image/bmp")
+("cgm" . "image/cgm")
+("g3" . "image/g3fax")
+("gif" . "image/gif")
+("ief" . "image/ief")
+("jp2" . "image/jp2")
+("jpeg" . "image/jpeg")
+("ktx" . "image/ktx")
+("pict" . "image/pict")
+("png" . "image/png")
+("btif" . "image/prs.btif")
+("sgi" . "image/sgi")
+("svg" . "image/svg+xml")
+("tiff" . "image/tiff")
+("psd" . "image/vnd.adobe.photoshop")
+("uvi" . "image/vnd.dece.graphic")
+("sub" . "image/vnd.dvb.subtitle")
+("djvu" . "image/vnd.djvu")
+("dwg" . "image/vnd.dwg")
+("dxf" . "image/vnd.dxf")
+("fbs" . "image/vnd.fastbidsheet")
+("fpx" . "image/vnd.fpx")
+("fst" . "image/vnd.fst")
+("mmr" . "image/vnd.fujixerox.edmics-mmr")
+("rlc" . "image/vnd.fujixerox.edmics-rlc")
+("mdi" . "image/vnd.ms-modi")
+("wdp" . "image/vnd.ms-photo")
+("npx" . "image/vnd.net-fpx")
+("wbmp" . "image/vnd.wap.wbmp")
+("xif" . "image/vnd.xiff")
+("webp" . "image/webp")
+("3ds" . "image/x-3ds")
+("ras" . "image/x-cmu-raster")
+("cmx" . "image/x-cmx")
+("fh" . "image/x-freehand")
+("ico" . "image/x-icon")
+("pntg" . "image/x-macpaint")
+("sid" . "image/x-mrsid-image")
+("pcx" . "image/x-pcx")
+("pic" . "image/x-pict")
+("pnm" . "image/x-portable-anymap")
+("pbm" . "image/x-portable-bitmap")
+("pgm" . "image/x-portable-graymap")
+("ppm" . "image/x-portable-pixmap")
+("qtif" . "image/x-quicktime")
+("rgb" . "image/x-rgb")
+("tga" . "image/x-tga")
+("xbm" . "image/x-xbitmap")
+("xpm" . "image/x-xpixmap")
+("xwd" . "image/x-xwindowdump")
+("eml" . "message/rfc822")
+("igs" . "model/iges")
+("msh" . "model/mesh")
+("dae" . "model/vnd.collada+xml")
+("dwf" . "model/vnd.dwf")
+("gdl" . "model/vnd.gdl")
+("gtw" . "model/vnd.gtw")
+("mts" . "model/vnd.mts")
+("vtu" . "model/vnd.vtu")
+("wrl" . "model/vrml")
+("x3db" . "model/x3d+binary")
+("x3dv" . "model/x3d+vrml")
+("x3d" . "model/x3d+xml")
+("manifest" . "text/cache-manifest")
+("appcache" . "text/cache-manifest")
+("ics" . "text/calendar")
+("css" . "text/css")
+("csv" . "text/csv")
+("html" . "text/html")
+("n3" . "text/n3")
+("txt" . "text/plain")
+("dsc" . "text/prs.lines.tag")
+("rtx" . "text/richtext")
+("sgml" . "text/sgml")
+("tsv" . "text/tab-separated-values")
+("t" . "text/troff")
+("ttl" . "text/turtle")
+("uri" . "text/uri-list")
+("vcard" . "text/vcard")
+("curl" . "text/vnd.curl")
+("dcurl" . "text/vnd.curl.dcurl")
+("scurl" . "text/vnd.curl.scurl")
+("mcurl" . "text/vnd.curl.mcurl")
+("sub" . "text/vnd.dvb.subtitle")
+("fly" . "text/vnd.fly")
+("flx" . "text/vnd.fmi.flexstor")
+("gv" . "text/vnd.graphviz")
+("3dml" . "text/vnd.in3d.3dml")
+("spot" . "text/vnd.in3d.spot")
+("jad" . "text/vnd.sun.j2me.app-descriptor")
+("wml" . "text/vnd.wap.wml")
+("wmls" . "text/vnd.wap.wmlscript")
+("s" . "text/x-asm")
+("c" . "text/x-c")
+("f" . "text/x-fortran")
+("java" . "text/x-java-source")
+("opml" . "text/x-opml")
+("p" . "text/x-pascal")
+("nfo" . "text/x-nfo")
+("etx" . "text/x-setext")
+("sfv" . "text/x-sfv")
+("uu" . "text/x-uuencode")
+("vcs" . "text/x-vcalendar")
+("vcf" . "text/x-vcard")
+("3gp" . "video/3gpp")
+("3g2" . "video/3gpp2")
+("h261" . "video/h261")
+("h263" . "video/h263")
+("h264" . "video/h264")
+("jpgv" . "video/jpeg")
+("jpm" . "video/jpm")
+("mj2" . "video/mj2")
+("ts" . "video/mp2t")
+("mp4" . "video/mp4")
+("mpeg" . "video/mpeg")
+("ogv" . "video/ogg")
+("qt" . "video/quicktime")
+("uvh" . "video/vnd.dece.hd")
+("uvm" . "video/vnd.dece.mobile")
+("uvp" . "video/vnd.dece.pd")
+("uvs" . "video/vnd.dece.sd")
+("uvv" . "video/vnd.dece.video")
+("dvb" . "video/vnd.dvb.file")
+("fvt" . "video/vnd.fvt")
+("mxu" . "video/vnd.mpegurl")
+("pyv" . "video/vnd.ms-playready.media.pyv")
+("uvu" . "video/vnd.uvvu.mp4")
+("viv" . "video/vnd.vivo")
+("dv" . "video/x-dv")
+("webm" . "video/webm")
+("f4v" . "video/x-f4v")
+("fli" . "video/x-fli")
+("flv" . "video/x-flv")
+("m4v" . "video/x-m4v")
+("mkv" . "video/x-matroska")
+("mng" . "video/x-mng")
+("asf" . "video/x-ms-asf")
+("vob" . "video/x-ms-vob")
+("wm" . "video/x-ms-wm")
+("wmv" . "video/x-ms-wmv")
+("wmx" . "video/x-ms-wmx")
+("wvx" . "video/x-ms-wvx")
+("avi" . "video/x-msvideo")
+("movie" . "video/x-sgi-movie")
+("smv" . "video/x-smv")
+("ice" . "x-conference/x-cooltalk")))
+
+(define (ext->mimetype ext)
+  (let ((x (assoc ext glib_ext2mimetype)))
+   (if x (cdr x) "text/plain")))

ADDED   eggs/ducttape-lib/mtest-reaper.scm
Index: eggs/ducttape-lib/mtest-reaper.scm
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/mtest-reaper.scm
@@ -0,0 +1,136 @@
+;;(use general-lib)
+;;(import scheme chicken extras ports data-structures)
+;;(use directory-utils filepath)
+(use typed-records)
+;;(use regex-literals)
+;;(use regex)
+
+(import scheme chicken extras ports data-structures )
+(use posix regex ansi-escape-sequences test srfi-1 irregex slice srfi-13 rfc3339 scsh-process directory-utils uuid-lib filepath srfi-19 posix-extras hostinfo)
+(use pathname-expand)
+(use sql-de-lite)
+
+(define (safe-file-exists? path-string)
+  (false-on-exception (lambda () (file-exists? path-string))))
+
+;; assumes this compiled binary lives in <isoenv core root>/bin
+(define (find-dir-on-path-holding-binary binary)
+  (let ((filter-result
+         (filter (lambda (dir)
+                   (safe-file-exists? (conc dir "/" binary)))
+                 (string-split (get-environment-variable "PATH") ":"))))
+    (if (> (length filter-result) 0)
+        (car filter-result)
+        (abort (conc "Error: Cannot resolve path to binary '"binary"'. ")))))
+
+(define (get-dir-holding-self)
+  (let ((binname (car (argv))))
+    (cond
+     ((safe-file-exists?  binname) (pathname-expand binname))
+     (else  (find-dir-on-path-holding-binary binname)))))
+
+(define (self-exe-fullpath)
+  (let ((binname (car (argv))))
+    (cond
+     ((safe-file-exists?  binname) (pathname-expand binname))
+     (else  (conc (find-dir-on-path-holding-binary binname) "/" binname)))))
+
+(let* ((lib-path (conc (get-dir-holding-self) "/lib/ducttape-lib.so")))
+  (print "loading "lib-path)
+  (load lib-path))
+(import ducttape-lib)
+
+
+
+(define (get-my-mtest-server-procs)
+  (let* ((procs (linux-get-process-info-records))
+        (my-mtest-procs
+         (filter
+          (lambda (a-proc)
+            (and
+             (equal? (get-environment-variable "USER") (proc-USER a-proc))
+             (string-match (regexp "^.*\\/mtest\\s+.*-server.*") (proc-COMMAND a-proc))))
+          procs)))
+    my-mtest-procs))
+
+
+
+(define (pid->mtest-monitor-db-file pid)
+  (let* ((env   (pid->environ-hash pid))
+         (ltdir (hash-table-ref/default env "MT_LINKTREE" #f))
+         (radir (hash-table-ref/default env "MT_RUN_AREA_HOME" #f))
+         (cwd   (pid->cwd pid)))
+    (let ((res
+           (cond
+            (ltdir (conc ltdir "/.db/monitor.db"))
+            (radir (conc
+                    (do-or-die
+                     (conc "megatest -start-dir "radir" -show-config -section setup -var linktree"))
+                    "/.db/monitor.db"))
+            (cwd  (conc
+                   (do-or-die
+                    (conc "megatest -start-dir "cwd" -show-config -section setup -var linktree"))
+                   "/.db/monitor.db"))
+            
+            (else #f))))
+      res)))
+      
+(define (get-mdb-status mdb-file pid)
+    ;; select state from servers where pid='4465';
+  
+  (cond
+   ((not (string? mdb-file)) (conc "mdb-file could not be determined for pid " pid ">>"mdb-file ))
+   ((not (file-exists? mdb-file)) (conc "mdb-file does not exist for pid "pid" : "mdb-file))
+   (else
+    (let ((dbh (open-database mdb-file)))
+      
+      (set-busy-handler! dbh 10000)
+      (let* ((sql-str "select state from servers where pid=?;")
+             (stm (sql dbh sql-str))
+             (alists (query fetch-alists stm (->string pid))))
+        (if (null? alists)
+            "server pid not in monitor.db"
+            (cdr (car (car alists)))))))))
+
+    
+(define (mtest-server-pid->status pid)
+  (let* ((mdb-file (pid->mtest-monitor-db-file pid)))
+    (if mdb-file
+        (get-mdb-status mdb-file pid)
+        "no monitor.db file could be found"
+        )))
+
+
+(define (kill pid)
+  (print "KILL "pid)
+  (do-or-die (conc "kill -9 "pid)))
+
+(define (reap-defunct-mtest-server-pid pid)
+  (let ((status (mtest-server-pid->status pid)))
+    (print pid"->"(mtest-server-pid->status pid))
+    (if (member status (list "running" "dbprep" "available" "collision"))
+        (print "pid="pid" in status "status" -- not killing")
+        (kill pid))))
+
+(define (make-it-so)
+  (let* ((procs (get-my-mtest-server-procs))
+         (pids (map proc-PID procs)))
+    (for-each reap-defunct-mtest-server-pid pids)))
+
+
+(define (run-self-on-remote-host) #t)
+
+(if (file-exists? ".homehost")
+    (let* ((homehost (with-input-from-file ".homehost" (lambda () (read)) ))
+           (thishost (current-ip-string))
+          (me-exe   (self-exe-fullpath))
+          (sshcmd      (conc "ssh "homehost" 'cd "(get-environment-variable "PWD")" && "me-exe"'")))
+      (print ">>"homehost"<<")
+      (print ">>"me-exe"<<")
+      (print ">>"thishost"<<")
+      (print ">>"sshcmd"<<")
+      (if (equal? thishost homehost)
+          (print "makeitso")
+          (do-or-die sshcmd))
+      
+      ))

ADDED   eggs/ducttape-lib/ref/Makefile
Index: eggs/ducttape-lib/ref/Makefile
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/ref/Makefile
@@ -0,0 +1,47 @@
+SHELL=/bin/tcsh -f
+
+faceless=icfadm
+instdir=/tmp/$(faceless)/general-lib-inst
+
+doas=ssh $(faceless)@$(HOST)
+
+help:
+	@echo ""
+	@echo "make targets:"
+	@echo "============="
+	@echo "install      - build and install general_lib egg as icfadm"
+	@echo "test         - run unit tests on general-lib.scm (tests code, not egg)"
+	@echo "eggs-info     - show chicken-install commands to get eggs upon which general-lib depends"
+	@echo "test_example - compile an example scm against installed general_lib egg"
+	@echo "clean        - remove binaries and other build artifacts"
+	@echo ""
+
+clean:
+	rm -f *.so *.import.scm test_glib test_example foo *.c *.o
+
+install:
+	$(doas) "if (-e $(instdir)) rm -rf $(instdir)"
+	$(doas) "mkdir -p $(instdir)"
+	$(doas) "cp -a $(PWD)/* $(instdir)/."
+	$(doas) "source /p/foundry/env/pkgs/chicken/4.9.0.1/setup-chicken4x.csh && cd $(instdir) && chicken-install"
+
+# test hostname is "L" which root is available
+Linstall:
+	sudo chicken-install
+
+test:
+	chicken-install -no-install
+	csc test_glib.scm
+
+	./test_glib
+	if (-e foo) rm -f foo
+
+test_example:
+	@csc test_example.scm
+	@./test_example
+	@rm test_example
+
+eggs-info:
+	@echo chicken-install ansi-escape-sequences
+	@echo chicken-install slice
+	@echo chicken-install rfc3339

ADDED   eggs/ducttape-lib/ref/general-lib.meta
Index: eggs/ducttape-lib/ref/general-lib.meta
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/ref/general-lib.meta
@@ -0,0 +1,13 @@
+;;; general-lib.meta -*- Hen -*-
+
+((egg "general-lib.egg")
+ (synopsis "Tool for standard print routines and utilities for FDK Env Team.")
+ (category env)
+ (author "Brandon Barclay")
+ (doc-from-wiki)
+ (license "GPL-2")
+ ;; srfi-69, posix, srfi-18
+ (depends regex)
+ (test-depends test)
+ ; suspicious - (files "general-lib")
+ )

ADDED   eggs/ducttape-lib/ref/general-lib.scm
Index: eggs/ducttape-lib/ref/general-lib.scm
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/ref/general-lib.scm
@@ -0,0 +1,801 @@
+(module general-lib
+    (
+     runs-ok
+     glib-debug-level
+     glib-debug-regex-filter
+     glib-silent-mode
+     glib-quiet-mode
+     glib-log-file
+     glib-color-mode
+     iputs-preamble
+     script-name
+     idbg
+     ierr
+     iwarn
+     inote
+     iputs
+     re-match?
+                                        ;     launch-repl
+     keyword-skim
+     skim-cmdline-opts-noarg-by-regex
+     skim-cmdline-opts-withargs-by-regex 
+     concat-lists
+     process-command-line
+     glib-append-logfile
+     glib-activate-logfile
+     isys
+     do-or-die
+     counter-maker
+     dir-is-writable?
+     mktemp
+     get-tmpdir
+     sendmail
+     find-exe
+
+     zeropad
+     string-leftpad
+     string-rightpad
+     seconds->isodate
+     seconds->inteldate
+     seconds->inteldate-values
+     isodate->seconds
+     isodate->inteldate
+     inteldate->seconds
+     inteldate->isodate
+     current-inteldate
+     current-isodate
+     
+     )
+
+  (import scheme chicken extras ports data-structures )
+  (use posix regex ansi-escape-sequences test srfi-1 irregex slice srfi-13 rfc3339 scsh-process directory-utils uuid-lib filepath srfi-19 ) ; linenoise
+  (include "mimetypes.scm") ; provides ext->mimetype
+  (include "inteldate.scm")
+  (define general-lib-version 1.00)
+  (define (toplevel-command sym proc) (lambda () #f))
+;;;; utility procedures
+
+                                        ; begin credit: megatest's process.scm
+  (define (port->list fh )
+    (if (eof-object? fh) #f
+        (let loop ((curr (read-line fh))
+                   (result '()))
+          (if (not (eof-object? curr))
+              (loop (read-line fh)
+                    (append result (list curr)))
+              result))))
+
+  (define (conservative-read port)
+    (let loop ((res ""))
+      (if (not (eof-object? (peek-char port)))
+          (loop (conc res (read-char port)))
+          res)))
+                                        ; end credit: megatest's process.scm
+
+  (define (counter-maker)
+    (let ((acc 0))
+      (lambda ( #!optional (increment 1) )
+        (set! acc (+ increment acc))
+        acc)))
+
+  (define (port->string port #!optional ) ; todo - add newline 
+    (let ((linelist (port->list port)))
+      (if linelist
+          (string-join linelist "\n")
+          "")))
+
+
+  (define (outport->foreach outport foreach-thunk)
+    (let loop ((line (foreach-thunk)))
+      (if line
+          (begin
+            (write-line line outport)
+            (loop (foreach-thunk))
+            )
+          (begin
+            ;;http://bugs.call-cc.org/ticket/766
+            ;;close-[input|output]-port implicitly calling process-wait on process pipe ports. This leads to errors like
+            ;;Error: (process-wait) waiting for child process failed - No child processes: 10872
+            (close-output-port outport)
+            #f))))
+
+                                        ; weird - alist-ref changes signature csc vs. csi... explitly defining.
+  (define (my-alist-ref key alist)
+    (let ((res (assoc key alist)))
+      (if res (cdr res) #f)))
+
+  (define (keyword-skim-alist args alist)
+    (let loop ((result-alist '()) (result-args args) (rest-alist alist))
+      (cond
+       ((null? rest-alist) (values result-alist result-args))
+       (else
+        (let ((keyword (caar rest-alist))
+              (defval (cdar rest-alist)))
+          (let-values (((kwval result-args2)
+                        (keyword-skim
+                         keyword
+                         defval
+                         result-args)))
+            (loop
+             (cons (cons keyword kwval) result-alist)
+             result-args2
+             (cdr rest-alist))))))))
+  
+  (define (isys command . rest-args)
+    (let-values
+        (((opt-alist args)
+          (keyword-skim-alist
+           rest-args
+           '( ( foreach-stdout-thunk: . #f )
+              ( foreach-stdin-thunk: . #f )
+              ( stdin-proc: . #f ) ) )))
+      (let* ((foreach-stdout-thunk
+              (my-alist-ref foreach-stdout-thunk: opt-alist))
+             (foreach-stdin-thunk
+              (my-alist-ref foreach-stdin-thunk: opt-alist))
+             (stdin-proc
+              (if foreach-stdin-thunk
+                  (lambda (port)
+                    (outport->foreach port foreach-stdin-thunk))
+                  (my-alist-ref stdin-proc: opt-alist))))
+
+        ;; TODO: support command is list.
+        
+        (let-values (((stdout stdin pid stderr)
+                      (if (null? args)
+                          (process* command)
+                          (process* command args))))
+          
+                                        ;(if foreach-stdin-thunk
+                                        ;    (set! stdin-proc
+                                        ;          (lambda (port)
+                                        ;            (outport->foreach port foreach-stdin-thunk))))
+          
+          (if stdin-proc
+              (stdin-proc stdin))
+          
+          (let ((stdout-res 
+                 (if foreach-stdout-thunk  ;; don't accumulate stdout if we have a thunk; probably doing this because stdout is BIG so lets not waste memory
+                     (begin
+                       (port-for-each foreach-stdout-thunk (lambda () (read-line stdout)))
+                       "foreach-stdout-thunk ate stdout"
+                       )
+                     (if stdin-proc
+                         "foreach-stdin-thunk/stdin-proc blocks stdout"
+                         (port->string stdout))))
+                (stderr-res
+                 (if stdin-proc
+                     "foreach-stdin-thunk/stdin-proc blocks stdout"
+                     (port->string stderr))))
+
+            ;; if we've used a stdin-proc, we've closed stdin port, which unfortunately causes a wait-pid internally, causing stdout and stderr ports to auto-close.  don't close them again.  (so sad - we lost stdout and stderr contents when we write to stdin)
+            ;; see - http://bugs.call-cc.org/ticket/766
+            (if (not stdin-proc)
+                (close-input-port stdout)
+                (close-input-port stderr))
+            
+            (let-values (((anotherpid normalexit? exitstatus)  (process-wait pid)))
+              (values exitstatus stdout-res stderr-res)))))))
+  
+  (define (do-or-die command   #!key nodie (foreach-stdout #f) (stdin-proc #f))
+    (let-values (((exit-code stdout-str stderr-str) (isys command foreach-stdout-thunk: foreach-stdout stdin-proc: stdin-proc )))
+      (if (equal? 0 exit-code)
+          stdout-str
+          (begin
+            (ierr (conc "Command  > " command " "  "< failed with " exit-code " because: \n" stderr-str) )
+            (if nodie #f (exit exit-code))))))
+
+
+
+
+  ;; this is broken.  one day i will fix it and thus understand run/collecting... don't use isys-broken.
+  (define (isys-broken  command-list)
+
+    (let-values ( ( (rv outport errport) (run/collecting (1 2) ("ls" "-l")  ) ) ) 
+      (print "rv is " rv)
+      (print "op is " outport)
+      (print "ep is " errport)
+      (values rv (port->string outport) (port->string errport))))
+
+
+
+  ;; runs-ok: evaluate expression while suppressing exceptions.
+                                        ;    on caught exception, returns #f
+                                        ;    otherwise, returns expression value
+  (define (runs-ok thunk)
+    (handle-exceptions exn #f (begin (thunk) #t)))
+
+  ;; concat-lists: result list = lista + listb
+  (define (concat-lists lista listb) ;; ok, I just reimplemented append...
+    (foldr cons listb lista))
+  
+
+;;; setup general_lib env var parameters
+
+  ;; show warning/note/error/debug prefixes using ansi colors
+  (define glib-color-mode
+    (make-parameter (get-environment-variable "GLIB_COLORIZE")))
+
+  ;; if defined, has number value.  if number value > 0, show debug messages
+  ;; value should be decremented in subshells -- idea is raising debug level will show debug messages deeper and deeper in process call stack
+  (define glib-debug-level
+    (make-parameter
+     (let ( (raw-debug-level (get-environment-variable "GLIB_DEBUG_LEVEL")) )
+       (if raw-debug-level
+           (let ((num-debug-level (runs-ok (string->number raw-debug-level))))
+             (if (integer? num-debug-level)
+                 (begin
+                   (let ((new-num-debug-level (- num-debug-level 1)))
+                     (if (> new-num-debug-level 0) ;; decrement
+                         (setenv "GLIB_DEBUG_LEVEL" (number->string new-num-debug-level))
+                         (unsetenv "GLIB_DEBUG_LEVEL")))
+                   num-debug-level) ; it was set and > 0, mode is value
+                 (begin
+                   (unsetenv "GLIB_DEBUG_LEVEL") ;; value was invalid, unset it
+                   #f))) ; value was invalid, mode is f
+           #f)))) ; var not set, mode is f
+
+
+  (define glib-debug-mode (if (glib-debug-level)  #t  #f))
+
+  ;; glib-debug-regex-filter suppresses non-matching debug messages
+  (define glib-debug-regex-filter
+    (make-parameter
+     (let ((raw-debug-pattern (get-environment-variable "GLIB_DEBUG_PATTERN")))
+       (if raw-debug-pattern
+           raw-debug-pattern
+           "."))))
+
+  ;; silent mode suppresses Note and Warning type messages
+  (define glib-silent-mode
+    (make-parameter (get-environment-variable "GLIB_SILENT_MODE")))
+
+  ;; quiet mode suppresses Note type messages
+  (define glib-quiet-mode
+    (make-parameter (get-environment-variable "GLIB_QUIET_MODE")))
+
+  ;; if log file is defined, warning/note/error/debug messages are appended
+  ;; to named logfile.
+  (define glib-log-file
+    (make-parameter (get-environment-variable "GLIB_LOG_FILE")))
+
+
+
+
+  
+  
+;;; standard messages printing implementation
+
+                                        ; get the name of the current script/binary being run
+  (define (script-name)
+    (car (reverse (string-split (car (argv)) "/"))))
+
+  (define (glib-timestamp)
+    (rfc3339->string (time->rfc3339 (seconds->local-time))))
+
+
+  (define (iputs-preamble msg-type #!optional (suppress-color #f))
+    (let ((do-color (and
+                     (not suppress-color)
+                     (glib-color-mode)
+                     (terminal-port? (current-error-port)))))
+      (case msg-type
+        ((note)
+         (if do-color
+             (set-text (list 'fg-green 'bg-black 'bold) "Note:")
+             "Note:"
+             ))
+        ((warn)
+         (if do-color
+             (set-text (list 'fg-yellow 'bg-black 'bold) "Warning:")
+             "Warning:"
+             ))
+        ((err)
+         (if do-color
+             (set-text (list 'fg-red 'bg-black 'bold) "Error:")
+             "Error:"
+             ))
+        ((dbg)
+         (if do-color
+             (set-text (list 'fg-blue 'bg-magenta) "Debug:")
+             "Debug:"
+             )))))
+
+  (define (glib-append-logfile msg-type message #!optional (suppress-preamble #f))
+    (let
+        ((txt 
+          (string-join 
+           (list 
+            (glib-timestamp) 
+            (script-name)
+            (if suppress-preamble
+                message
+                (string-join  (list (iputs-preamble msg-type #t) message) " ")))
+           " | ")))
+
+      (if (glib-log-file)
+          (runs-ok
+           (call-with-output-file (glib-log-file)
+             (lambda (output-port)
+               (format output-port "~A ~%" txt)
+               )
+             #:append))
+          #t)))
+
+  (define (glib-activate-logfile #!optional (logfile #f))
+    ;; from python general-lib.py
+                                        ; message = "START - pid=%d ppid=%d argv=(%s) pwd=%s user=%s host=%s"%(pid,ppid," ".join("'"+x+"'" for x in sys.argv),os.environ['PWD'],os.getenv('USER','nouser'),os.getenv('HOST','nohost') )
+    (let ((pid (number->string (current-process-id)))
+          (ppid (number->string (parent-process-id)))
+          (argv 
+           (string-join 
+            (map 
+             (lambda (x) 
+               (string-join (list "\"" x "\"")  "" ))
+             (argv))
+            " "))
+          (pwd (or (get-environment-variable "PWD") "nopwd"))
+          (user (or (get-environment-variable "USER") "nouser"))
+          (host (or (get-environment-variable "HOST") "nohost")))
+      (if logfile
+          (begin
+            (glib-log-file logfile)
+            (setenv "GLIB_LOG_FILE" (glib-log-file))))
+      (glib-append-logfile 'note (format #f "START - pid=~A ppid=~A argv=(~A) pwd=~A user=~A host=~A" pid ppid argv pwd user host) #t)))         
+
+  ;; immediately activate logfile (will be noop if logfile disabled)
+  (glib-activate-logfile)
+
+  ;; log exit code
+  (define (set-exit-handler)
+    (let ((orig-exit-handler (exit-handler)))
+      (exit-handler 
+       (lambda (exitcode) 
+         (glib-append-logfile 'note (format #f "Exit ~A by sys.exit" exitcode) #t)
+         (orig-exit-handler exitcode)))))
+  (set-exit-handler)
+  
+  ;; TODO: hook exception handler so we can log exception before we sign off.
+
+  (define (idbg first-message  . rest-args)
+    (let* ((debug-level-threshold
+            (if (> (length rest-args) 0) (car rest-args) 1))
+           (message-list
+            (if (> (length rest-args) 1)
+                (cons first-message (cdr rest-args))
+                (list first-message)) )
+           (message (apply conc
+                  (map ->string message-list))))
+
+      (glib-append-logfile 'dbg message)
+      (if (glib-debug-level)
+          (if (<= debug-level-threshold (glib-debug-level))
+              (if (string-search (glib-debug-regex-filter) message)
+                  (begin 
+                    (format (current-error-port) "~A ~A (~A)~%" (iputs-preamble 'dbg) message (script-name))))))))
+
+  (define (ierr message-first  . message-rest)
+    (let* ((message
+            (apply conc
+             (map ->string (cons message-first message-rest)))))
+      (glib-append-logfile 'err message)
+      (format (current-error-port) "~A ~A (~A)~%" (iputs-preamble 'err) message (script-name))))
+
+  (define (iwarn message-first  . message-rest)
+    (let* ((message
+            (apply conc
+             (map ->string (cons message-first message-rest)))))
+      (glib-append-logfile 'warn message)
+      (if (not (glib-silent-mode))
+          (begin
+            (format (current-error-port) "~A ~A (~A)~%" (iputs-preamble 'warn) message (script-name))))))
+
+  (define (inote message-first  . message-rest)
+    (let* ((message
+            (apply conc
+             (map ->string (cons message-first message-rest)))))
+      (glib-append-logfile 'note message)
+      (if (not (or (glib-silent-mode) (glib-quiet-mode)))
+          (begin 
+            (format (current-error-port) "~A ~A (~A)~%" (iputs-preamble 'note) message (script-name))))))
+
+  
+  (define (iputs kind message #!optional (debug-level-threshold 1))
+    (cond
+     ((member kind (string-split "NOTE/Note/note/n/N" "/")) (inote message))
+     ((member kind (string-split "Error/ERROR/error/Err/ERR/err/E/e" "/")) (ierr message))
+     ((member kind
+              (string-split "Warning/WARNING/warning/Warn/WARN/warn/W/w" "/"))
+      (iwarn message))
+     ((member kind (string-split "Debug/DEBUG/debug/Dbg/DBG/dbg/D/d" "/"))
+      (idbg message debug-level-threshold))))
+
+  (define (mkdir-recursive path-so-far hier-list-to-create)
+    (if (null? hier-list-to-create)
+        path-so-far
+        (let* ((next-hier-item (car hier-list-to-create))
+               (rest-hier-items (cdr hier-list-to-create))
+               (path-to-mkdir (string-concatenate (list path-so-far "/" next-hier-item))))
+          (if (runs-ok (lambda () (create-directory path-to-mkdir)))
+              (mkdir-recursive path-to-mkdir rest-hier-items)
+              #f))))
+
+                                        ; ::mkdir-if-not-exists::
+                                        ; make a dir recursively if it does not 
+                                        ; already exist.
+                                        ; on success - returns path
+                                        ; on fail - returns #f
+  (define (mkdirp-if-not-exists the-dir)
+    (let ( (path-list (string-split the-dir "/")))
+      (mkdir-recursive "/" path-list)))
+
+                                        ; ::mkdir-if-not-exists::
+                                        ; make a dir recursively if it does not 
+                                        ; already exist.
+                                        ; on success - returns path
+                                        ; on fail - returns #f
+
+
+  (define (mkdirp-if-not-exists the-dir)
+    (let ( (path-list (string-split the-dir "/")))
+      (mkdir-recursive "/" path-list)))
+
+  (define (dir-is-writable? the-dir)
+    (let ((dummy-file (string-concatenate (list the-dir "/.dummyfile"))))
+      (and
+       (file-exists? the-dir)
+       (cond 
+        ((runs-ok (lambda ()(with-output-to-file dummy-file (lambda () (print "foo")))))
+         (begin
+           (runs-ok (lambda () (delete-file dummy-file) ))
+           the-dir))
+        (else #f)))))
+
+
+  (define (get-tmpdir )
+    (let* ((tmproot
+            (dir-is-writable?
+             (or 
+              (get-environment-variable "TMPDIR") 
+              "/tmp")))
+
+           (user
+            (or
+             (get-environment-variable "USER")
+             "USER_Envvar_not_set"))
+           (tmppath
+            (string-concatenate 
+             (list tmproot "/env21-general-" user ))))
+
+      (dir-is-writable?
+       (mkdirp-if-not-exists
+        tmppath))))
+
+  (define (mktemp
+           #!optional
+           (prefix "general_lib_tmpfile")
+           (dir #f))
+    (let-values
+        (((fd path) 
+          (file-mkstemp 
+           (conc 
+            (if dir  dir  (get-tmpdir))
+            "/" prefix ".XXXXXX"))))
+      (close-output-port (open-output-file* fd))
+      path))
+
+
+
+  ;;http://stackoverflow.com/questions/11134857/using-sendmail-for-html-body-and-binary-attachment
+  ;; write send-email using:
+  ;;   - isys-foreach-stdin-line
+  ;;   - formatting in http://stackoverflow.com/questions/11134857/using-sendmail-for-html-body-and-binary-attachment
+  (define (sendmail to_addr subject body
+                    #!key
+                    (from_addr "admin")
+                    cc_addr
+                    bcc_addr
+                    more-headers
+                    use_html
+                    (attach-files-list '()))
+
+    (define (sendmail-proc sendmail-port)
+      (define (wl line-str)
+        (write-line line-str sendmail-port))
+
+      (define (get-uuid)
+        (string-upcase (uuid->string (uuid-generate))))
+
+      (let ((mailpart-uuid (get-uuid))
+            (mailpart-body-uuid (get-uuid)))
+        
+        (define (boundary)
+          (wl (conc "--" mailpart-uuid)))
+
+        (define (body-boundary)
+          (wl (conc "--" mailpart-body-uuid)))
+
+
+        (define (email-mime-header)
+          (wl (conc "From: " from_addr))
+          (wl (conc "To: " to_addr))
+          (if cc_addr
+              (wl (conc "Cc: " cc_addr)))
+          (if bcc_addr
+              (wl (conc "Bcc: " bcc_addr)))
+          (if more-headers
+              (wl more-headers))
+          (wl (conc "Subject: " subject))
+          (wl "MIME-Version: 1.0")
+          (wl (conc "Content-Type: multipart/mixed; boundary=\"" mailpart-uuid "\""))
+          (wl "")
+          (boundary)
+          (wl (conc "Content-Type: multipart/alternative; boundary=\"" mailpart-body-uuid "\""))
+          (wl "")
+          )
+        
+        (define (email-text-body)
+          (body-boundary)
+          (wl "Content-Type: text/plain; charset=ISO-8859-1")
+          (wl "Content-Disposition: inline")
+          (wl "")
+          (wl body)
+          (body-boundary))
+        
+        (define (email-html-body)
+          (body-boundary)
+          (wl "Content-Type: text/plain; charset=ISO-8859-1")
+          (wl "")
+          (wl "You need to enable HTML option for email")
+          (body-boundary)
+          (wl "Content-Type: text/html; charset=ISO-8859-1")
+          (wl "Content-Disposition: inline")
+          (wl "")
+          (wl body)
+          (body-boundary))
+        
+        (define (attach-file file)
+          (let* ((filename
+                  (filepath:take-file-name file))
+                 (ext-with-dot
+                  (filepath:take-extension file))
+                 (ext (string-take-right
+                       ext-with-dot
+                       (- (string-length ext-with-dot) 1)))
+                 (mimetype (ext->mimetype ext))
+                 (uuencode-command (conc "uuencode " file " " filename)))
+            (boundary)
+            (wl (conc "Content-Type: " mimetype "; name=\"" filename "\""))
+            (wl "Content-Transfer-Encoding: uuencode")
+            (wl (conc "Content-Disposition: attachment; filename=\"" filename "\""))
+            (wl "")
+            (do-or-die
+             uuencode-command
+             foreach-stdout:
+             (lambda (line)
+               (wl line)))))
+        
+        ;; send the email
+        (email-mime-header)
+        (if use_html
+            (email-html-body)
+            (email-text-body))
+        (for-each attach-file attach-files-list)
+        (boundary)
+        (close-output-port sendmail-port)))
+    
+    (do-or-die "/usr/sbin/sendmail -t"
+               stdin-proc: sendmail-proc))
+
+  ;; like shell "which" command
+  (define (find-exe exe)
+    (let* ((path-items
+            (string-split
+             (or
+              (get-environment-variable "PATH") "")
+             ":")))
+
+      (let loop ((rest-path-items path-items))
+        (if (null? rest-path-items)
+            #f
+            (let* ((this-dir (car rest-path-items))
+                   (next-rest (cdr rest-path-items))
+                   (candidate (conc this-dir "/" exe)))
+              (if (file-execute-access? candidate)
+                  candidate
+                  (loop next-rest)))))))
+
+
+
+
+  ;; (define (launch-repl )
+  ;;   (use linenoise)
+  ;;   (current-input-port (make-linenoise-port))
+
+  ;;   (let ((histfile (conc (or (get-environment-variable "HOME") ".") "/." (script-name) "-hist")))
+  
+  ;;     (set-history-length! 30000)
+  
+  ;;     (load-history-from-file histfile)
+  
+  ;;     (let loop ((l (linenoise "> ")))
+  ;;       (cond ((equal? l "bye")
+  ;;              (save-history-to-file histfile)
+  ;;              "Bye!")
+  ;;             ((eof-object? l)
+  ;;              (save-history-to-file histfile)
+  ;;              (exit))
+  ;;             (else
+  ;;              (display l)
+  ;;              (handle-exceptions exn
+  ;;                  ;;(print-call-chain (current-error-port))
+  ;;                  (let ((message ((condition-property-accessor 'exn 'message) exn)))
+  ;;                    (print "exn> " message )
+  ;;                    ;;(pp (condition->list exn))
+  ;;                    ;;(exit)
+  ;;                    ;;(display "Went wrong")
+  ;;                    (newline))
+  ;;                (print (eval l)))))
+  ;;       (newline)
+  ;;       (history-add l)
+  ;;       (loop (linenoise "> ")))))
+  
+  ;; (define (launch-repl2 )
+  ;;   (use readline)
+  ;;   (use apropos)
+  ;;   (use trace)
+  ;;   ;(import csi)
+  ;;   (current-input-port (make-readline-port (conc (script-name) "> ") "... "))
+  ;;  ; (install-history-file #f (conc (or (get-environment-variable "HOME") ".") "/." (script-name) "_history"))
+  ;;   (parse-and-bind "set editing-mode emacs")
+  ;;   (install-history-file)
+  ;;   (let loop ((foo #f))
+
+  ;;     (let ((expr (read)))
+  ;;       (cond
+  ;;        ((eof-object? expr) (exit))
+  ;;        (else
+  ;;         (handle-exceptions exn
+  ;;             ;;(print-call-chain (current-error-port))
+  ;;             (let ((message ((condition-property-accessor 'exn 'message) exn)))
+  ;;               (print "exn> " message )
+  ;;               ;;(pp (condition->list exn))
+  ;;               ;;(exit)
+  ;;               ;;(display "Went wrong")
+  ;;               (newline))
+  ;;           (print (eval expr))))))
+  ;;     (loop #f))
+  ;;   )
+
+;;;; process command line options
+
+  ;; get command line switches (have no subsequent arg; eg. [-foo])
+  ;;  assumes these are switches without arguments
+  ;;  will return list of matches
+  ;;  removes matches from command-line-arguments parameter
+  (define (skim-cmdline-opts-noarg-by-regex switch-pattern)
+    (let* (
+           (irr (irregex switch-pattern))
+           (matches (filter
+                     (lambda (x)
+                       (irregex-match irr x))
+                     (command-line-arguments)))
+           (non-matches (filter
+                         (lambda (x)
+                           (not (member x matches)))
+                         (command-line-arguments))))
+
+      (command-line-arguments non-matches)
+      matches))
+
+  (define (keyword-skim keyword default args #!optional (eqpred equal?))
+    (let loop ( (kwval default) (args-remaining args) (args-to-return '()) )
+      (cond 
+       ((null? args-remaining)
+        (values
+         (if (list? kwval) (reverse kwval) kwval)
+         (reverse args-to-return)))
+       ((and (> (length args-remaining) 1) (eqpred keyword (car args-remaining)))
+        (if (list? default)
+            (if (equal? default kwval)
+                (loop (list (cadr args-remaining)) (cddr args-remaining) args-to-return)
+                (loop (cons (cadr args-remaining) kwval) (cddr args-remaining) args-to-return))
+            (loop (cadr args-remaining) (cddr args-remaining) args-to-return)))
+       (else (loop kwval (cdr args-remaining) (cons (car args-remaining) args-to-return))))))
+
+
+
+  ;; get command line switches (have a subsequent arg; eg. [-foo bar])
+  ;;  assumes these are switches without arguments
+  ;;  will return list of arguments to matches
+  ;;  removes matches from command-line-arguments parameter
+
+  (define (re-match? re str)
+    (irregex-match re str))
+
+  (define (skim-cmdline-opts-withargs-by-regex switch-pattern)
+    (let-values
+        (((result new-cmdline-args)
+          (keyword-skim switch-pattern
+                        '()
+                        (command-line-arguments)
+                        re-match?
+                        )))
+      (command-line-arguments new-cmdline-args)
+      result))
+  
+  
+
+  ;; recognize general-lib command line switches (--quiet, --silent, --color, -d.., -dp.., -logfile)
+  ;;    - reset parameters; reset GLIB_* env vars to match user specified intent
+  ;;    - mutate (command-line-arguments) parameter to subtract these recognized and handled switches
+  ;;       * beware -- now (argv) and (command-line-arguments) are inconsistent... cannot mutate (argv) alas.  Use (command-line-arguments)
+  (define (process-command-line)
+
+    ;; --quiet
+    (let ((quiet-opts (skim-cmdline-opts-noarg-by-regex "--?quiet")))
+      (if (not (null? quiet-opts))
+          (begin
+            (setenv "GLIB_QUIET_MODE" "1")
+            (glib-quiet-mode "1"))))
+
+    ;; --silent
+    (let ((silent-opts (skim-cmdline-opts-noarg-by-regex "--?silent")))
+      (if (not (null? silent-opts))
+          (begin
+            (setenv "GLIB_SILENT_MODE" "1")
+            (glib-silent-mode "1"))))
+
+    ;; -color
+    (let ((color-opts (skim-cmdline-opts-noarg-by-regex "--?colou?r(ize)?")))
+      (if (not (null? color-opts))
+          (begin
+            (setenv "GLIB_COLORIZE" "1")
+            (glib-color-mode "1"))))
+
+    ;; -nocolor
+    (let ((nocolor-opts (skim-cmdline-opts-noarg-by-regex "--?nocolou?r(ize)?")))
+      (if (not (null? nocolor-opts))
+          (begin
+            (unsetenv "GLIB_COLORIZE" )
+            (glib-color-mode #f))))
+
+    ;; -logfile
+    (let ((logfile-opts (skim-cmdline-opts-withargs-by-regex "--?log(-?file)?")))
+      (if (not (null? logfile-opts))
+          (begin
+            (glib-log-file (car (reverse logfile-opts)))
+            (setenv "GLIB_LOG_FILE" (glib-log-file)))))
+
+    ;; -d -dd -d#
+    (let ((debug-opts (skim-cmdline-opts-noarg-by-regex "-d(d*|\\d+)"))
+          (initial-debuglevel (if (glib-debug-level) (glib-debug-level) 0) ))
+      (if (not (null? debug-opts))
+          (begin
+            (glib-debug-level
+             (let loop ((opts debug-opts) (debuglevel initial-debuglevel))
+               (if (null? opts)
+                   debuglevel
+                   (let*
+                       ( (curopt (car opts))
+                         (restopts (cdr opts))
+                         (ds (string-match "-(d+)" curopt))
+                         (dnum (string-match "-d(\\d+)" curopt)))
+                     (cond
+                      (ds (loop restopts (+ debuglevel (string-length (cadr ds)))))
+                      (dnum  (loop restopts (string->number (cadr dnum)))))))))
+            (setenv "GLIB_DEBUG_LEVEL" (number->string (glib-debug-level))))))
+
+
+    ;; -dp <pat> / --debug-pattern <pat>
+    (let ((debugpat-opts (skim-cmdline-opts-withargs-by-regex "--?(debug-pattern|dp)")))
+      (if (not (null? debugpat-opts))
+          (begin
+            (glib-debug-regex-filter (string-join debugpat-opts "|"))
+            (setenv "GLIB_DEBUG_PATTERN" (glib-debug-regex-filter)))))) 
+
+  ;; handle command line immediately; 
+  (process-command-line)                    
+
+
+  ) ; end module

ADDED   eggs/ducttape-lib/ref/general-lib.setup
Index: eggs/ducttape-lib/ref/general-lib.setup
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/ref/general-lib.setup
@@ -0,0 +1,1 @@
+(standard-extension 'general-lib '1.0.0)

ADDED   eggs/ducttape-lib/ref/inteldate.scm
Index: eggs/ducttape-lib/ref/inteldate.scm
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/ref/inteldate.scm
@@ -0,0 +1,191 @@
+(use srfi-19)
+(use test)
+;;(use format)
+(use regex)
+;(declare (unit inteldate))
+;; utility procedures to convert among
+;; different ways to express date (inteldate, seconds since epoch, isodate)
+;;
+;; samples:
+;; isodate   -> "2016-01-01"
+;; inteldate -> "16ww01.5"
+;; seconds   -> 1451631600
+
+;; procedures provided:
+;; ====================
+;; seconds->isodate
+;; seconds->inteldate
+;;
+;; isodate->seconds
+;; isodate->inteldate
+;;
+;; inteldate->seconds
+;; inteldate->isodate
+
+;; srfi-19 used extensively; this doc is better tha the eggref:
+;; http://srfi.schemers.org/srfi-19/srfi-19.html
+
+;; Author: brandon.j.barclay@intel.com 16ww18.6
+
+(define (date->seconds date)
+  (inexact->exact
+   (string->number
+    (date->string date "~s"))))
+
+(define (seconds->isodate seconds)
+  (let* ((date (seconds->date seconds))
+         (result (date->string date "~Y-~m-~d")))
+    result))
+
+(define (isodate->seconds isodate)
+  "Takes a string input of the form 'YY-MM-DD' or 'YYYY-MM-DD' and returns epoch time; for YY, assume after Y2K"
+  (let* ((numlist (map string->number (string-split isodate "-")))
+        (raw-year (car numlist))
+        (year (if (< raw-year 100) (+ raw-year 2000) raw-year))
+        (month (list-ref numlist 1))
+        (day (list-ref numlist 2))
+        (date (make-date 0 0 0 0 day month year))
+        (seconds (date->seconds date)))
+
+    seconds))
+
+;; adapted from perl Intel::WorkWeek perl module
+;; intel year consists of numbered weeks starting from week 1
+;;   week 1 is the week containing jan 1 of the year
+;;   days of week are numbered starting from 0 on sunday
+;;   intel year does not match calendar year in workweek 1
+;;     before jan1.
+(define (seconds->inteldate-values seconds)
+  (define (date-difference->seconds d1 d2)
+    (- (date->seconds d1) (date->seconds d2)))
+
+  (let* ((thisdate (seconds->date seconds))
+         (thisdow (string->number (date->string thisdate "~w")))
+
+         (year (date-year thisdate))
+         ;; intel workweek 1 begins on sunday of week containing jan1
+         (jan1 (make-date 0 0 0 0 1 1 year))
+         (jan1dow (date-week-day jan1))
+         (ww01 (date-subtract-duration jan1 (seconds->time (* 60 60 24 jan1dow))))
+
+         (ww01_delta_seconds (date-difference->seconds thisdate ww01))
+         (wwnum_initial (inexact->exact (add1 (floor (/ ww01_delta_seconds 24 3600 7) ))))
+         
+         ;; we could be in ww1 of next year
+         (this-saturday (seconds->date
+                         (+ seconds
+                            (* 60 60 24 (- 6 thisdow)))))
+         (this-week-ends-next-year?
+          (> (date-year this-saturday) year))
+         (intelyear
+          (if this-week-ends-next-year?
+              (add1 year)
+              year))
+         (intelweek
+          (if this-week-ends-next-year?
+              1
+              wwnum_initial)))
+   (values intelyear intelweek thisdow)))
+
+(define (string-leftpad in width pad-char)
+  (let* ((unpadded-str (->string in))
+         (padlen_temp (- width (string-length unpadded-str)))
+         (padlen (if (< padlen_temp 0) 0 padlen_temp))
+         (padding (make-string padlen pad-char)))
+    (conc padding unpadded-str)))
+
+(define (string-rightpad in width pad-char)
+  (let* ((unpadded-str (->string in))
+         (padlen_temp (- width (string-length unpadded-str)))
+         (padlen (if (< padlen_temp 0) 0 padlen_temp))
+         (padding (make-string padlen pad-char)))
+    (conc unpadded-str padding)))
+
+(define (zeropad num width)
+  (string-leftpad num width #\0))
+
+(define (seconds->inteldate seconds)
+
+  (let-values (((intelyear intelweek day-of-week-num)
+                (seconds->inteldate-values seconds)))
+    (let ((intelyear-str
+           (zeropad
+            (->string
+             (if (> intelyear 1999)
+                 (- intelyear 2000) intelyear))
+            2))
+          (intelweek-str
+           (zeropad (->string intelweek) 2))
+          (dow-str (->string day-of-week-num)))
+      (conc intelyear-str "ww" intelweek-str "." dow-str))))
+
+(define (isodate->inteldate isodate)
+  (seconds->inteldate
+   (isodate->seconds isodate)))
+
+(define (inteldate->seconds inteldate)
+  (let ((match (string-match "^(\\d+)ww(\\d+).(\\d)$" inteldate)))
+    (if
+     (not match)
+     #f
+     (let* (
+            (intelyear-raw (string->number (list-ref match 1)))
+            (intelyear (if (< intelyear-raw 100)
+                           (+ intelyear-raw 2000)
+                           intelyear-raw))
+            (intelww (string->number (list-ref match 2)))
+            (dayofweek (string->number (list-ref match 3)))
+
+            (day-of-seconds (* 60 60 24 ))
+            (week-of-seconds (* day-of-seconds 7))
+            
+
+            ;; get seconds at ww1.0
+            (new-years-date (make-date 0 0 0 0 1 1 intelyear))
+            (new-years-seconds
+             (date->seconds new-years-date))
+            (new-years-dayofweek (date-week-day new-years-date))
+            (ww1.0_seconds (- new-years-seconds
+                              (* day-of-seconds
+                                 new-years-dayofweek)))
+            (workweek-adjustment (* week-of-seconds (sub1 intelww)))
+            (weekday-adjustment (* dayofweek day-of-seconds))
+
+            (result (+ ww1.0_seconds workweek-adjustment weekday-adjustment)))
+       result))))
+
+(define (inteldate->isodate inteldate)
+  (seconds->isodate (inteldate->seconds inteldate)))
+
+(define (current-inteldate)
+  (seconds->inteldate (current-seconds)))
+
+(define (current-isodate)
+  (seconds->isodate (current-seconds)))
+
+(define (inteldate-tests)
+  (test-group
+   "date conversion tests"
+   (let ((test-table
+          '(("16ww01.5" . "2016-01-01")
+            ("16ww18.5" . "2016-04-29")
+            ("1999ww33.5" . "1999-08-13")
+            ("16ww18.4" . "2016-04-28")
+            ("16ww18.3" . "2016-04-27")
+            ("13ww01.0" . "2012-12-30")
+            ("13ww52.6" . "2013-12-28")
+            ("16ww53.3" . "2016-12-28"))))
+     (for-each
+      (lambda (test-pair)
+        (let ((inteldate (car test-pair))
+              (isodate (cdr test-pair)))
+          (test
+           (conc "(isodate->inteldate "isodate ") => "inteldate)
+           inteldate
+           (isodate->inteldate isodate))
+          
+          (test
+           (conc "(inteldate->isodate "inteldate ")   => "isodate)
+           isodate
+           (inteldate->isodate inteldate))))
+      test-table))))

ADDED   eggs/ducttape-lib/ref/mimetypes.scm
Index: eggs/ducttape-lib/ref/mimetypes.scm
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/ref/mimetypes.scm
@@ -0,0 +1,782 @@
+;; gathered from macosx:
+;;   cat /etc/apache2/mime.types | grep -v '^#' | perl -ne 'print "(\"$2\" . \"$1\")\n" if /(\S+)\s+(\S+)/' > mimetypes.scm
+;; + manual manipulation
+
+(define glib_ext2mimetype '(("ez" . "application/andrew-inset")
+("aw" . "application/applixware")
+("atom" . "application/atom+xml")
+("atomcat" . "application/atomcat+xml")
+("atomsvc" . "application/atomsvc+xml")
+("ccxml" . "application/ccxml+xml")
+("cdmia" . "application/cdmi-capability")
+("cdmic" . "application/cdmi-container")
+("cdmid" . "application/cdmi-domain")
+("cdmio" . "application/cdmi-object")
+("cdmiq" . "application/cdmi-queue")
+("cu" . "application/cu-seeme")
+("davmount" . "application/davmount+xml")
+("dbk" . "application/docbook+xml")
+("dssc" . "application/dssc+der")
+("xdssc" . "application/dssc+xml")
+("ecma" . "application/ecmascript")
+("emma" . "application/emma+xml")
+("epub" . "application/epub+zip")
+("exi" . "application/exi")
+("pfr" . "application/font-tdpfr")
+("gml" . "application/gml+xml")
+("gpx" . "application/gpx+xml")
+("gxf" . "application/gxf")
+("stk" . "application/hyperstudio")
+("ink" . "application/inkml+xml")
+("ipfix" . "application/ipfix")
+("jar" . "application/java-archive")
+("ser" . "application/java-serialized-object")
+("class" . "application/java-vm")
+("js" . "application/javascript")
+("json" . "application/json")
+("jsonml" . "application/jsonml+json")
+("lostxml" . "application/lost+xml")
+("hqx" . "application/mac-binhex40")
+("cpt" . "application/mac-compactpro")
+("mads" . "application/mads+xml")
+("mrc" . "application/marc")
+("mrcx" . "application/marcxml+xml")
+("ma" . "application/mathematica")
+("mathml" . "application/mathml+xml")
+("mbox" . "application/mbox")
+("mscml" . "application/mediaservercontrol+xml")
+("metalink" . "application/metalink+xml")
+("meta4" . "application/metalink4+xml")
+("mets" . "application/mets+xml")
+("mods" . "application/mods+xml")
+("m21" . "application/mp21")
+("mp4s" . "application/mp4")
+("doc" . "application/msword")
+("mxf" . "application/mxf")
+("bin" . "application/octet-stream")
+("oda" . "application/oda")
+("opf" . "application/oebps-package+xml")
+("ogx" . "application/ogg")
+("omdoc" . "application/omdoc+xml")
+("onetoc" . "application/onenote")
+("oxps" . "application/oxps")
+("xer" . "application/patch-ops-error+xml")
+("pdf" . "application/pdf")
+("pgp" . "application/pgp-encrypted")
+("asc" . "application/pgp-signature")
+("prf" . "application/pics-rules")
+("p10" . "application/pkcs10")
+("p7m" . "application/pkcs7-mime")
+("p7s" . "application/pkcs7-signature")
+("p8" . "application/pkcs8")
+("ac" . "application/pkix-attr-cert")
+("cer" . "application/pkix-cert")
+("crl" . "application/pkix-crl")
+("pkipath" . "application/pkix-pkipath")
+("pki" . "application/pkixcmp")
+("pls" . "application/pls+xml")
+("ai" . "application/postscript")
+("cww" . "application/prs.cww")
+("pskcxml" . "application/pskc+xml")
+("rdf" . "application/rdf+xml")
+("rif" . "application/reginfo+xml")
+("rnc" . "application/relax-ng-compact-syntax")
+("rl" . "application/resource-lists+xml")
+("rld" . "application/resource-lists-diff+xml")
+("rs" . "application/rls-services+xml")
+("gbr" . "application/rpki-ghostbusters")
+("mft" . "application/rpki-manifest")
+("roa" . "application/rpki-roa")
+("rsd" . "application/rsd+xml")
+("rss" . "application/rss+xml")
+("rtf" . "application/rtf")
+("sbml" . "application/sbml+xml")
+("scq" . "application/scvp-cv-request")
+("scs" . "application/scvp-cv-response")
+("spq" . "application/scvp-vp-request")
+("spp" . "application/scvp-vp-response")
+("sdp" . "application/sdp")
+("setpay" . "application/set-payment-initiation")
+("setreg" . "application/set-registration-initiation")
+("shf" . "application/shf+xml")
+("smi" . "application/smil+xml")
+("rq" . "application/sparql-query")
+("srx" . "application/sparql-results+xml")
+("gram" . "application/srgs")
+("grxml" . "application/srgs+xml")
+("sru" . "application/sru+xml")
+("ssdl" . "application/ssdl+xml")
+("ssml" . "application/ssml+xml")
+("tei" . "application/tei+xml")
+("tfi" . "application/thraud+xml")
+("tsd" . "application/timestamped-data")
+("plb" . "application/vnd.3gpp.pic-bw-large")
+("psb" . "application/vnd.3gpp.pic-bw-small")
+("pvb" . "application/vnd.3gpp.pic-bw-var")
+("tcap" . "application/vnd.3gpp2.tcap")
+("pwn" . "application/vnd.3m.post-it-notes")
+("aso" . "application/vnd.accpac.simply.aso")
+("imp" . "application/vnd.accpac.simply.imp")
+("acu" . "application/vnd.acucobol")
+("atc" . "application/vnd.acucorp")
+("air" . "application/vnd.adobe.air-application-installer-package+zip")
+("fcdt" . "application/vnd.adobe.formscentral.fcdt")
+("fxp" . "application/vnd.adobe.fxp")
+("xdp" . "application/vnd.adobe.xdp+xml")
+("xfdf" . "application/vnd.adobe.xfdf")
+("ahead" . "application/vnd.ahead.space")
+("azf" . "application/vnd.airzip.filesecure.azf")
+("azs" . "application/vnd.airzip.filesecure.azs")
+("azw" . "application/vnd.amazon.ebook")
+("acc" . "application/vnd.americandynamics.acc")
+("ami" . "application/vnd.amiga.ami")
+("apk" . "application/vnd.android.package-archive")
+("cii" . "application/vnd.anser-web-certificate-issue-initiation")
+("fti" . "application/vnd.anser-web-funds-transfer-initiation")
+("atx" . "application/vnd.antix.game-component")
+("mpkg" . "application/vnd.apple.installer+xml")
+("m3u8" . "application/vnd.apple.mpegurl")
+("swi" . "application/vnd.aristanetworks.swi")
+("iota" . "application/vnd.astraea-software.iota")
+("aep" . "application/vnd.audiograph")
+("mpm" . "application/vnd.blueice.multipass")
+("bmi" . "application/vnd.bmi")
+("rep" . "application/vnd.businessobjects")
+("cdxml" . "application/vnd.chemdraw+xml")
+("mmd" . "application/vnd.chipnuts.karaoke-mmd")
+("cdy" . "application/vnd.cinderella")
+("cla" . "application/vnd.claymore")
+("rp9" . "application/vnd.cloanto.rp9")
+("c4g" . "application/vnd.clonk.c4group")
+("c11amc" . "application/vnd.cluetrust.cartomobile-config")
+("c11amz" . "application/vnd.cluetrust.cartomobile-config-pkg")
+("csp" . "application/vnd.commonspace")
+("cdbcmsg" . "application/vnd.contact.cmsg")
+("cmc" . "application/vnd.cosmocaller")
+("clkx" . "application/vnd.crick.clicker")
+("clkk" . "application/vnd.crick.clicker.keyboard")
+("clkp" . "application/vnd.crick.clicker.palette")
+("clkt" . "application/vnd.crick.clicker.template")
+("clkw" . "application/vnd.crick.clicker.wordbank")
+("wbs" . "application/vnd.criticaltools.wbs+xml")
+("pml" . "application/vnd.ctc-posml")
+("ppd" . "application/vnd.cups-ppd")
+("car" . "application/vnd.curl.car")
+("pcurl" . "application/vnd.curl.pcurl")
+("dart" . "application/vnd.dart")
+("rdz" . "application/vnd.data-vision.rdz")
+("uvf" . "application/vnd.dece.data")
+("uvt" . "application/vnd.dece.ttml+xml")
+("uvx" . "application/vnd.dece.unspecified")
+("uvz" . "application/vnd.dece.zip")
+("fe_launch" . "application/vnd.denovo.fcselayout-link")
+("dna" . "application/vnd.dna")
+("mlp" . "application/vnd.dolby.mlp")
+("dpg" . "application/vnd.dpgraph")
+("dfac" . "application/vnd.dreamfactory")
+("kpxx" . "application/vnd.ds-keypoint")
+("ait" . "application/vnd.dvb.ait")
+("svc" . "application/vnd.dvb.service")
+("geo" . "application/vnd.dynageo")
+("mag" . "application/vnd.ecowin.chart")
+("nml" . "application/vnd.enliven")
+("esf" . "application/vnd.epson.esf")
+("msf" . "application/vnd.epson.msf")
+("qam" . "application/vnd.epson.quickanime")
+("slt" . "application/vnd.epson.salt")
+("ssf" . "application/vnd.epson.ssf")
+("es3" . "application/vnd.eszigno3+xml")
+("ez2" . "application/vnd.ezpix-album")
+("ez3" . "application/vnd.ezpix-package")
+("fdf" . "application/vnd.fdf")
+("mseed" . "application/vnd.fdsn.mseed")
+("seed" . "application/vnd.fdsn.seed")
+("gph" . "application/vnd.flographit")
+("ftc" . "application/vnd.fluxtime.clip")
+("fm" . "application/vnd.framemaker")
+("fnc" . "application/vnd.frogans.fnc")
+("ltf" . "application/vnd.frogans.ltf")
+("fsc" . "application/vnd.fsc.weblaunch")
+("oas" . "application/vnd.fujitsu.oasys")
+("oa2" . "application/vnd.fujitsu.oasys2")
+("oa3" . "application/vnd.fujitsu.oasys3")
+("fg5" . "application/vnd.fujitsu.oasysgp")
+("bh2" . "application/vnd.fujitsu.oasysprs")
+("ddd" . "application/vnd.fujixerox.ddd")
+("xdw" . "application/vnd.fujixerox.docuworks")
+("xbd" . "application/vnd.fujixerox.docuworks.binder")
+("fzs" . "application/vnd.fuzzysheet")
+("txd" . "application/vnd.genomatix.tuxedo")
+("ggb" . "application/vnd.geogebra.file")
+("ggt" . "application/vnd.geogebra.tool")
+("gex" . "application/vnd.geometry-explorer")
+("gxt" . "application/vnd.geonext")
+("g2w" . "application/vnd.geoplan")
+("g3w" . "application/vnd.geospace")
+("gmx" . "application/vnd.gmx")
+("kml" . "application/vnd.google-earth.kml+xml")
+("kmz" . "application/vnd.google-earth.kmz")
+("gqf" . "application/vnd.grafeq")
+("gac" . "application/vnd.groove-account")
+("ghf" . "application/vnd.groove-help")
+("gim" . "application/vnd.groove-identity-message")
+("grv" . "application/vnd.groove-injector")
+("gtm" . "application/vnd.groove-tool-message")
+("tpl" . "application/vnd.groove-tool-template")
+("vcg" . "application/vnd.groove-vcard")
+("hal" . "application/vnd.hal+xml")
+("zmm" . "application/vnd.handheld-entertainment+xml")
+("hbci" . "application/vnd.hbci")
+("les" . "application/vnd.hhe.lesson-player")
+("hpgl" . "application/vnd.hp-hpgl")
+("hpid" . "application/vnd.hp-hpid")
+("hps" . "application/vnd.hp-hps")
+("jlt" . "application/vnd.hp-jlyt")
+("pcl" . "application/vnd.hp-pcl")
+("pclxl" . "application/vnd.hp-pclxl")
+("sfd-hdstx" . "application/vnd.hydrostatix.sof-data")
+("mpy" . "application/vnd.ibm.minipay")
+("afp" . "application/vnd.ibm.modcap")
+("irm" . "application/vnd.ibm.rights-management")
+("sc" . "application/vnd.ibm.secure-container")
+("icc" . "application/vnd.iccprofile")
+("igl" . "application/vnd.igloader")
+("ivp" . "application/vnd.immervision-ivp")
+("ivu" . "application/vnd.immervision-ivu")
+("igm" . "application/vnd.insors.igm")
+("xpw" . "application/vnd.intercon.formnet")
+("i2g" . "application/vnd.intergeo")
+("qbo" . "application/vnd.intu.qbo")
+("qfx" . "application/vnd.intu.qfx")
+("rcprofile" . "application/vnd.ipunplugged.rcprofile")
+("irp" . "application/vnd.irepository.package+xml")
+("xpr" . "application/vnd.is-xpr")
+("fcs" . "application/vnd.isac.fcs")
+("jam" . "application/vnd.jam")
+("rms" . "application/vnd.jcp.javame.midlet-rms")
+("jisp" . "application/vnd.jisp")
+("joda" . "application/vnd.joost.joda-archive")
+("ktz" . "application/vnd.kahootz")
+("karbon" . "application/vnd.kde.karbon")
+("chrt" . "application/vnd.kde.kchart")
+("kfo" . "application/vnd.kde.kformula")
+("flw" . "application/vnd.kde.kivio")
+("kon" . "application/vnd.kde.kontour")
+("kpr" . "application/vnd.kde.kpresenter")
+("ksp" . "application/vnd.kde.kspread")
+("kwd" . "application/vnd.kde.kword")
+("htke" . "application/vnd.kenameaapp")
+("kia" . "application/vnd.kidspiration")
+("kne" . "application/vnd.kinar")
+("skp" . "application/vnd.koan")
+("sse" . "application/vnd.kodak-descriptor")
+("lasxml" . "application/vnd.las.las+xml")
+("lbd" . "application/vnd.llamagraphics.life-balance.desktop")
+("lbe" . "application/vnd.llamagraphics.life-balance.exchange+xml")
+("123" . "application/vnd.lotus-1-2-3")
+("apr" . "application/vnd.lotus-approach")
+("pre" . "application/vnd.lotus-freelance")
+("nsf" . "application/vnd.lotus-notes")
+("org" . "application/vnd.lotus-organizer")
+("scm" . "application/vnd.lotus-screencam")
+("lwp" . "application/vnd.lotus-wordpro")
+("portpkg" . "application/vnd.macports.portpkg")
+("mcd" . "application/vnd.mcd")
+("mc1" . "application/vnd.medcalcdata")
+("cdkey" . "application/vnd.mediastation.cdkey")
+("mwf" . "application/vnd.mfer")
+("mfm" . "application/vnd.mfmp")
+("flo" . "application/vnd.micrografx.flo")
+("igx" . "application/vnd.micrografx.igx")
+("mif" . "application/vnd.mif")
+("daf" . "application/vnd.mobius.daf")
+("dis" . "application/vnd.mobius.dis")
+("mbk" . "application/vnd.mobius.mbk")
+("mqy" . "application/vnd.mobius.mqy")
+("msl" . "application/vnd.mobius.msl")
+("plc" . "application/vnd.mobius.plc")
+("txf" . "application/vnd.mobius.txf")
+("mpn" . "application/vnd.mophun.application")
+("mpc" . "application/vnd.mophun.certificate")
+("xul" . "application/vnd.mozilla.xul+xml")
+("cil" . "application/vnd.ms-artgalry")
+("cab" . "application/vnd.ms-cab-compressed")
+("xls" . "application/vnd.ms-excel")
+("xlam" . "application/vnd.ms-excel.addin.macroenabled.12")
+("xlsb" . "application/vnd.ms-excel.sheet.binary.macroenabled.12")
+("xlsm" . "application/vnd.ms-excel.sheet.macroenabled.12")
+("xltm" . "application/vnd.ms-excel.template.macroenabled.12")
+("eot" . "application/vnd.ms-fontobject")
+("chm" . "application/vnd.ms-htmlhelp")
+("ims" . "application/vnd.ms-ims")
+("lrm" . "application/vnd.ms-lrm")
+("thmx" . "application/vnd.ms-officetheme")
+("cat" . "application/vnd.ms-pki.seccat")
+("stl" . "application/vnd.ms-pki.stl")
+("ppt" . "application/vnd.ms-powerpoint")
+("ppam" . "application/vnd.ms-powerpoint.addin.macroenabled.12")
+("pptm" . "application/vnd.ms-powerpoint.presentation.macroenabled.12")
+("sldm" . "application/vnd.ms-powerpoint.slide.macroenabled.12")
+("ppsm" . "application/vnd.ms-powerpoint.slideshow.macroenabled.12")
+("potm" . "application/vnd.ms-powerpoint.template.macroenabled.12")
+("mpp" . "application/vnd.ms-project")
+("docm" . "application/vnd.ms-word.document.macroenabled.12")
+("dotm" . "application/vnd.ms-word.template.macroenabled.12")
+("wps" . "application/vnd.ms-works")
+("wpl" . "application/vnd.ms-wpl")
+("xps" . "application/vnd.ms-xpsdocument")
+("mseq" . "application/vnd.mseq")
+("mus" . "application/vnd.musician")
+("msty" . "application/vnd.muvee.style")
+("taglet" . "application/vnd.mynfc")
+("nlu" . "application/vnd.neurolanguage.nlu")
+("ntf" . "application/vnd.nitf")
+("nnd" . "application/vnd.noblenet-directory")
+("nns" . "application/vnd.noblenet-sealer")
+("nnw" . "application/vnd.noblenet-web")
+("ngdat" . "application/vnd.nokia.n-gage.data")
+("n-gage" . "application/vnd.nokia.n-gage.symbian.install")
+("rpst" . "application/vnd.nokia.radio-preset")
+("rpss" . "application/vnd.nokia.radio-presets")
+("edm" . "application/vnd.novadigm.edm")
+("edx" . "application/vnd.novadigm.edx")
+("ext" . "application/vnd.novadigm.ext")
+("odc" . "application/vnd.oasis.opendocument.chart")
+("otc" . "application/vnd.oasis.opendocument.chart-template")
+("odb" . "application/vnd.oasis.opendocument.database")
+("odf" . "application/vnd.oasis.opendocument.formula")
+("odft" . "application/vnd.oasis.opendocument.formula-template")
+("odg" . "application/vnd.oasis.opendocument.graphics")
+("otg" . "application/vnd.oasis.opendocument.graphics-template")
+("odi" . "application/vnd.oasis.opendocument.image")
+("oti" . "application/vnd.oasis.opendocument.image-template")
+("odp" . "application/vnd.oasis.opendocument.presentation")
+("otp" . "application/vnd.oasis.opendocument.presentation-template")
+("ods" . "application/vnd.oasis.opendocument.spreadsheet")
+("ots" . "application/vnd.oasis.opendocument.spreadsheet-template")
+("odt" . "application/vnd.oasis.opendocument.text")
+("odm" . "application/vnd.oasis.opendocument.text-master")
+("ott" . "application/vnd.oasis.opendocument.text-template")
+("oth" . "application/vnd.oasis.opendocument.text-web")
+("xo" . "application/vnd.olpc-sugar")
+("dd2" . "application/vnd.oma.dd2+xml")
+("oxt" . "application/vnd.openofficeorg.extension")
+("pptx" . "application/vnd.openxmlformats-officedocument.presentationml.presentation")
+("sldx" . "application/vnd.openxmlformats-officedocument.presentationml.slide")
+("ppsx" . "application/vnd.openxmlformats-officedocument.presentationml.slideshow")
+("potx" . "application/vnd.openxmlformats-officedocument.presentationml.template")
+("xlsx" . "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet")
+("xltx" . "application/vnd.openxmlformats-officedocument.spreadsheetml.template")
+("docx" . "application/vnd.openxmlformats-officedocument.wordprocessingml.document")
+("dotx" . "application/vnd.openxmlformats-officedocument.wordprocessingml.template")
+("mgp" . "application/vnd.osgeo.mapguide.package")
+("dp" . "application/vnd.osgi.dp")
+("esa" . "application/vnd.osgi.subsystem")
+("pdb" . "application/vnd.palm")
+("paw" . "application/vnd.pawaafile")
+("str" . "application/vnd.pg.format")
+("ei6" . "application/vnd.pg.osasli")
+("efif" . "application/vnd.picsel")
+("wg" . "application/vnd.pmi.widget")
+("plf" . "application/vnd.pocketlearn")
+("pbd" . "application/vnd.powerbuilder6")
+("box" . "application/vnd.previewsystems.box")
+("mgz" . "application/vnd.proteus.magazine")
+("qps" . "application/vnd.publishare-delta-tree")
+("ptid" . "application/vnd.pvi.ptid1")
+("qxd" . "application/vnd.quark.quarkxpress")
+("bed" . "application/vnd.realvnc.bed")
+("mxl" . "application/vnd.recordare.musicxml")
+("musicxml" . "application/vnd.recordare.musicxml+xml")
+("cryptonote" . "application/vnd.rig.cryptonote")
+("cod" . "application/vnd.rim.cod")
+("rm" . "application/vnd.rn-realmedia")
+("rmvb" . "application/vnd.rn-realmedia-vbr")
+("link66" . "application/vnd.route66.link66+xml")
+("st" . "application/vnd.sailingtracker.track")
+("see" . "application/vnd.seemail")
+("sema" . "application/vnd.sema")
+("semd" . "application/vnd.semd")
+("semf" . "application/vnd.semf")
+("ifm" . "application/vnd.shana.informed.formdata")
+("itp" . "application/vnd.shana.informed.formtemplate")
+("iif" . "application/vnd.shana.informed.interchange")
+("ipk" . "application/vnd.shana.informed.package")
+("twd" . "application/vnd.simtech-mindmapper")
+("mmf" . "application/vnd.smaf")
+("teacher" . "application/vnd.smart.teacher")
+("sdkm" . "application/vnd.solent.sdkm+xml")
+("dxp" . "application/vnd.spotfire.dxp")
+("sfs" . "application/vnd.spotfire.sfs")
+("sdc" . "application/vnd.stardivision.calc")
+("sda" . "application/vnd.stardivision.draw")
+("sdd" . "application/vnd.stardivision.impress")
+("smf" . "application/vnd.stardivision.math")
+("sdw" . "application/vnd.stardivision.writer")
+("sgl" . "application/vnd.stardivision.writer-global")
+("smzip" . "application/vnd.stepmania.package")
+("sm" . "application/vnd.stepmania.stepchart")
+("sxc" . "application/vnd.sun.xml.calc")
+("stc" . "application/vnd.sun.xml.calc.template")
+("sxd" . "application/vnd.sun.xml.draw")
+("std" . "application/vnd.sun.xml.draw.template")
+("sxi" . "application/vnd.sun.xml.impress")
+("sti" . "application/vnd.sun.xml.impress.template")
+("sxm" . "application/vnd.sun.xml.math")
+("sxw" . "application/vnd.sun.xml.writer")
+("sxg" . "application/vnd.sun.xml.writer.global")
+("stw" . "application/vnd.sun.xml.writer.template")
+("sus" . "application/vnd.sus-calendar")
+("svd" . "application/vnd.svd")
+("sis" . "application/vnd.symbian.install")
+("xsm" . "application/vnd.syncml+xml")
+("bdm" . "application/vnd.syncml.dm+wbxml")
+("xdm" . "application/vnd.syncml.dm+xml")
+("tao" . "application/vnd.tao.intent-module-archive")
+("pcap" . "application/vnd.tcpdump.pcap")
+("tmo" . "application/vnd.tmobile-livetv")
+("tpt" . "application/vnd.trid.tpt")
+("mxs" . "application/vnd.triscape.mxs")
+("tra" . "application/vnd.trueapp")
+("ufd" . "application/vnd.ufdl")
+("utz" . "application/vnd.uiq.theme")
+("umj" . "application/vnd.umajin")
+("unityweb" . "application/vnd.unity")
+("uoml" . "application/vnd.uoml+xml")
+("vcx" . "application/vnd.vcx")
+("vsd" . "application/vnd.visio")
+("vis" . "application/vnd.visionary")
+("vsf" . "application/vnd.vsf")
+("wbxml" . "application/vnd.wap.wbxml")
+("wmlc" . "application/vnd.wap.wmlc")
+("wmlsc" . "application/vnd.wap.wmlscriptc")
+("wtb" . "application/vnd.webturbo")
+("nbp" . "application/vnd.wolfram.player")
+("wpd" . "application/vnd.wordperfect")
+("wqd" . "application/vnd.wqd")
+("stf" . "application/vnd.wt.stf")
+("xar" . "application/vnd.xara")
+("xfdl" . "application/vnd.xfdl")
+("hvd" . "application/vnd.yamaha.hv-dic")
+("hvs" . "application/vnd.yamaha.hv-script")
+("hvp" . "application/vnd.yamaha.hv-voice")
+("osf" . "application/vnd.yamaha.openscoreformat")
+("osfpvg" . "application/vnd.yamaha.openscoreformat.osfpvg+xml")
+("saf" . "application/vnd.yamaha.smaf-audio")
+("spf" . "application/vnd.yamaha.smaf-phrase")
+("cmp" . "application/vnd.yellowriver-custom-menu")
+("zir" . "application/vnd.zul")
+("zaz" . "application/vnd.zzazz.deck+xml")
+("vxml" . "application/voicexml+xml")
+("wgt" . "application/widget")
+("hlp" . "application/winhlp")
+("wsdl" . "application/wsdl+xml")
+("wspolicy" . "application/wspolicy+xml")
+("7z" . "application/x-7z-compressed")
+("abw" . "application/x-abiword")
+("ace" . "application/x-ace-compressed")
+("dmg" . "application/x-apple-diskimage")
+("aab" . "application/x-authorware-bin")
+("aam" . "application/x-authorware-map")
+("aas" . "application/x-authorware-seg")
+("bcpio" . "application/x-bcpio")
+("torrent" . "application/x-bittorrent")
+("blb" . "application/x-blorb")
+("bz" . "application/x-bzip")
+("bz2" . "application/x-bzip2")
+("cbr" . "application/x-cbr")
+("vcd" . "application/x-cdlink")
+("cfs" . "application/x-cfs-compressed")
+("chat" . "application/x-chat")
+("pgn" . "application/x-chess-pgn")
+("nsc" . "application/x-conference")
+("cpio" . "application/x-cpio")
+("csh" . "application/x-csh")
+("deb" . "application/x-debian-package")
+("dgc" . "application/x-dgc-compressed")
+("dir" . "application/x-director")
+("wad" . "application/x-doom")
+("ncx" . "application/x-dtbncx+xml")
+("dtb" . "application/x-dtbook+xml")
+("res" . "application/x-dtbresource+xml")
+("dvi" . "application/x-dvi")
+("evy" . "application/x-envoy")
+("eva" . "application/x-eva")
+("bdf" . "application/x-font-bdf")
+("gsf" . "application/x-font-ghostscript")
+("psf" . "application/x-font-linux-psf")
+("otf" . "application/x-font-otf")
+("pcf" . "application/x-font-pcf")
+("snf" . "application/x-font-snf")
+("ttf" . "application/x-font-ttf")
+("pfa" . "application/x-font-type1")
+("woff" . "application/x-font-woff")
+("arc" . "application/x-freearc")
+("spl" . "application/x-futuresplash")
+("gca" . "application/x-gca-compressed")
+("ulx" . "application/x-glulx")
+("gnumeric" . "application/x-gnumeric")
+("gramps" . "application/x-gramps-xml")
+("gtar" . "application/x-gtar")
+("hdf" . "application/x-hdf")
+("install" . "application/x-install-instructions")
+("iso" . "application/x-iso9660-image")
+("jnlp" . "application/x-java-jnlp-file")
+("latex" . "application/x-latex")
+("lzh" . "application/x-lzh-compressed")
+("mie" . "application/x-mie")
+("prc" . "application/x-mobipocket-ebook")
+("m3u8" . "application/x-mpegurl")
+("application" . "application/x-ms-application")
+("lnk" . "application/x-ms-shortcut")
+("wmd" . "application/x-ms-wmd")
+("wmz" . "application/x-ms-wmz")
+("xbap" . "application/x-ms-xbap")
+("mdb" . "application/x-msaccess")
+("obd" . "application/x-msbinder")
+("crd" . "application/x-mscardfile")
+("clp" . "application/x-msclip")
+("exe" . "application/x-msdownload")
+("mvb" . "application/x-msmediaview")
+("wmf" . "application/x-msmetafile")
+("mny" . "application/x-msmoney")
+("pub" . "application/x-mspublisher")
+("scd" . "application/x-msschedule")
+("trm" . "application/x-msterminal")
+("wri" . "application/x-mswrite")
+("nc" . "application/x-netcdf")
+("nzb" . "application/x-nzb")
+("p12" . "application/x-pkcs12")
+("p7b" . "application/x-pkcs7-certificates")
+("p7r" . "application/x-pkcs7-certreqresp")
+("rar" . "application/x-rar-compressed")
+("ris" . "application/x-research-info-systems")
+("sh" . "application/x-sh")
+("shar" . "application/x-shar")
+("swf" . "application/x-shockwave-flash")
+("xap" . "application/x-silverlight-app")
+("sql" . "application/x-sql")
+("sit" . "application/x-stuffit")
+("sitx" . "application/x-stuffitx")
+("srt" . "application/x-subrip")
+("sv4cpio" . "application/x-sv4cpio")
+("sv4crc" . "application/x-sv4crc")
+("t3" . "application/x-t3vm-image")
+("gam" . "application/x-tads")
+("tar" . "application/x-tar")
+("tcl" . "application/x-tcl")
+("tex" . "application/x-tex")
+("tfm" . "application/x-tex-tfm")
+("texinfo" . "application/x-texinfo")
+("obj" . "application/x-tgif")
+("ustar" . "application/x-ustar")
+("src" . "application/x-wais-source")
+("der" . "application/x-x509-ca-cert")
+("fig" . "application/x-xfig")
+("xlf" . "application/x-xliff+xml")
+("xpi" . "application/x-xpinstall")
+("xz" . "application/x-xz")
+("z1" . "application/x-zmachine")
+("xaml" . "application/xaml+xml")
+("xdf" . "application/xcap-diff+xml")
+("xenc" . "application/xenc+xml")
+("xhtml" . "application/xhtml+xml")
+("xml" . "application/xml")
+("dtd" . "application/xml-dtd")
+("xop" . "application/xop+xml")
+("xpl" . "application/xproc+xml")
+("xslt" . "application/xslt+xml")
+("xspf" . "application/xspf+xml")
+("mxml" . "application/xv+xml")
+("yang" . "application/yang")
+("yin" . "application/yin+xml")
+("zip" . "application/zip")
+("adp" . "audio/adpcm")
+("au" . "audio/basic")
+("mid" . "audio/midi")
+("mp4a" . "audio/mp4")
+("m4a" . "audio/mp4a-latm")
+("mpga" . "audio/mpeg")
+("oga" . "audio/ogg")
+("s3m" . "audio/s3m")
+("sil" . "audio/silk")
+("uva" . "audio/vnd.dece.audio")
+("eol" . "audio/vnd.digital-winds")
+("dra" . "audio/vnd.dra")
+("dts" . "audio/vnd.dts")
+("dtshd" . "audio/vnd.dts.hd")
+("lvp" . "audio/vnd.lucent.voice")
+("pya" . "audio/vnd.ms-playready.media.pya")
+("ecelp4800" . "audio/vnd.nuera.ecelp4800")
+("ecelp7470" . "audio/vnd.nuera.ecelp7470")
+("ecelp9600" . "audio/vnd.nuera.ecelp9600")
+("rip" . "audio/vnd.rip")
+("weba" . "audio/webm")
+("aac" . "audio/x-aac")
+("aif" . "audio/x-aiff")
+("caf" . "audio/x-caf")
+("flac" . "audio/x-flac")
+("mka" . "audio/x-matroska")
+("m3u" . "audio/x-mpegurl")
+("wax" . "audio/x-ms-wax")
+("wma" . "audio/x-ms-wma")
+("ram" . "audio/x-pn-realaudio")
+("rmp" . "audio/x-pn-realaudio-plugin")
+("wav" . "audio/x-wav")
+("xm" . "audio/xm")
+("cdx" . "chemical/x-cdx")
+("cif" . "chemical/x-cif")
+("cmdf" . "chemical/x-cmdf")
+("cml" . "chemical/x-cml")
+("csml" . "chemical/x-csml")
+("xyz" . "chemical/x-xyz")
+("bmp" . "image/bmp")
+("cgm" . "image/cgm")
+("g3" . "image/g3fax")
+("gif" . "image/gif")
+("ief" . "image/ief")
+("jp2" . "image/jp2")
+("jpeg" . "image/jpeg")
+("ktx" . "image/ktx")
+("pict" . "image/pict")
+("png" . "image/png")
+("btif" . "image/prs.btif")
+("sgi" . "image/sgi")
+("svg" . "image/svg+xml")
+("tiff" . "image/tiff")
+("psd" . "image/vnd.adobe.photoshop")
+("uvi" . "image/vnd.dece.graphic")
+("sub" . "image/vnd.dvb.subtitle")
+("djvu" . "image/vnd.djvu")
+("dwg" . "image/vnd.dwg")
+("dxf" . "image/vnd.dxf")
+("fbs" . "image/vnd.fastbidsheet")
+("fpx" . "image/vnd.fpx")
+("fst" . "image/vnd.fst")
+("mmr" . "image/vnd.fujixerox.edmics-mmr")
+("rlc" . "image/vnd.fujixerox.edmics-rlc")
+("mdi" . "image/vnd.ms-modi")
+("wdp" . "image/vnd.ms-photo")
+("npx" . "image/vnd.net-fpx")
+("wbmp" . "image/vnd.wap.wbmp")
+("xif" . "image/vnd.xiff")
+("webp" . "image/webp")
+("3ds" . "image/x-3ds")
+("ras" . "image/x-cmu-raster")
+("cmx" . "image/x-cmx")
+("fh" . "image/x-freehand")
+("ico" . "image/x-icon")
+("pntg" . "image/x-macpaint")
+("sid" . "image/x-mrsid-image")
+("pcx" . "image/x-pcx")
+("pic" . "image/x-pict")
+("pnm" . "image/x-portable-anymap")
+("pbm" . "image/x-portable-bitmap")
+("pgm" . "image/x-portable-graymap")
+("ppm" . "image/x-portable-pixmap")
+("qtif" . "image/x-quicktime")
+("rgb" . "image/x-rgb")
+("tga" . "image/x-tga")
+("xbm" . "image/x-xbitmap")
+("xpm" . "image/x-xpixmap")
+("xwd" . "image/x-xwindowdump")
+("eml" . "message/rfc822")
+("igs" . "model/iges")
+("msh" . "model/mesh")
+("dae" . "model/vnd.collada+xml")
+("dwf" . "model/vnd.dwf")
+("gdl" . "model/vnd.gdl")
+("gtw" . "model/vnd.gtw")
+("mts" . "model/vnd.mts")
+("vtu" . "model/vnd.vtu")
+("wrl" . "model/vrml")
+("x3db" . "model/x3d+binary")
+("x3dv" . "model/x3d+vrml")
+("x3d" . "model/x3d+xml")
+("manifest" . "text/cache-manifest")
+("appcache" . "text/cache-manifest")
+("ics" . "text/calendar")
+("css" . "text/css")
+("csv" . "text/csv")
+("html" . "text/html")
+("n3" . "text/n3")
+("txt" . "text/plain")
+("dsc" . "text/prs.lines.tag")
+("rtx" . "text/richtext")
+("sgml" . "text/sgml")
+("tsv" . "text/tab-separated-values")
+("t" . "text/troff")
+("ttl" . "text/turtle")
+("uri" . "text/uri-list")
+("vcard" . "text/vcard")
+("curl" . "text/vnd.curl")
+("dcurl" . "text/vnd.curl.dcurl")
+("scurl" . "text/vnd.curl.scurl")
+("mcurl" . "text/vnd.curl.mcurl")
+("sub" . "text/vnd.dvb.subtitle")
+("fly" . "text/vnd.fly")
+("flx" . "text/vnd.fmi.flexstor")
+("gv" . "text/vnd.graphviz")
+("3dml" . "text/vnd.in3d.3dml")
+("spot" . "text/vnd.in3d.spot")
+("jad" . "text/vnd.sun.j2me.app-descriptor")
+("wml" . "text/vnd.wap.wml")
+("wmls" . "text/vnd.wap.wmlscript")
+("s" . "text/x-asm")
+("c" . "text/x-c")
+("f" . "text/x-fortran")
+("java" . "text/x-java-source")
+("opml" . "text/x-opml")
+("p" . "text/x-pascal")
+("nfo" . "text/x-nfo")
+("etx" . "text/x-setext")
+("sfv" . "text/x-sfv")
+("uu" . "text/x-uuencode")
+("vcs" . "text/x-vcalendar")
+("vcf" . "text/x-vcard")
+("3gp" . "video/3gpp")
+("3g2" . "video/3gpp2")
+("h261" . "video/h261")
+("h263" . "video/h263")
+("h264" . "video/h264")
+("jpgv" . "video/jpeg")
+("jpm" . "video/jpm")
+("mj2" . "video/mj2")
+("ts" . "video/mp2t")
+("mp4" . "video/mp4")
+("mpeg" . "video/mpeg")
+("ogv" . "video/ogg")
+("qt" . "video/quicktime")
+("uvh" . "video/vnd.dece.hd")
+("uvm" . "video/vnd.dece.mobile")
+("uvp" . "video/vnd.dece.pd")
+("uvs" . "video/vnd.dece.sd")
+("uvv" . "video/vnd.dece.video")
+("dvb" . "video/vnd.dvb.file")
+("fvt" . "video/vnd.fvt")
+("mxu" . "video/vnd.mpegurl")
+("pyv" . "video/vnd.ms-playready.media.pyv")
+("uvu" . "video/vnd.uvvu.mp4")
+("viv" . "video/vnd.vivo")
+("dv" . "video/x-dv")
+("webm" . "video/webm")
+("f4v" . "video/x-f4v")
+("fli" . "video/x-fli")
+("flv" . "video/x-flv")
+("m4v" . "video/x-m4v")
+("mkv" . "video/x-matroska")
+("mng" . "video/x-mng")
+("asf" . "video/x-ms-asf")
+("vob" . "video/x-ms-vob")
+("wm" . "video/x-ms-wm")
+("wmv" . "video/x-ms-wmv")
+("wmx" . "video/x-ms-wmx")
+("wvx" . "video/x-ms-wvx")
+("avi" . "video/x-msvideo")
+("movie" . "video/x-sgi-movie")
+("smv" . "video/x-smv")
+("ice" . "x-conference/x-cooltalk")))
+
+(define (ext->mimetype ext)
+  (let ((x (assoc ext glib_ext2mimetype)))
+   (if x (cdr x) "text/plain")))

ADDED   eggs/ducttape-lib/ref/sample_glib_prog.scm
Index: eggs/ducttape-lib/ref/sample_glib_prog.scm
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/ref/sample_glib_prog.scm
@@ -0,0 +1,4 @@
+(include "general-lib.scm")
+(import general-lib)
+(inote "hello world")
+(exit 0)

ADDED   eggs/ducttape-lib/ref/test_example.scm
Index: eggs/ducttape-lib/ref/test_example.scm
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/ref/test_example.scm
@@ -0,0 +1,3 @@
+(use general-lib)
+
+(inote "Hello world")

ADDED   eggs/ducttape-lib/ref/test_glib.scm
Index: eggs/ducttape-lib/ref/test_glib.scm
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/ref/test_glib.scm
@@ -0,0 +1,345 @@
+#!/usr/bin/env csi -script
+(use test)
+(include "general-lib.scm")
+(import general-lib)
+(import ansi-escape-sequences)
+(use trace)
+(set! systype (do-or-die (if (file-exists? "/bin/uname") "/bin/uname" "/usr/bin/uname")))
+;(trace skim-cmdline-opts-withargs-by-regex)
+;(trace keyword-skim)
+;(trace re-match?)
+(define (reset-glib)
+  (unsetenv "GLIB_DEBUG_LEVEL")
+  (glib-debug-level #f)
+
+  (unsetenv "GLIB_DEBUG_PATTERN")
+  (glib-debug-regex-filter ".")
+
+  (unsetenv "GLIB_LOG_FILE")
+  (glib-log-file #f)
+
+  (unsetenv "GLIB_SILENT_MODE")
+  (glib-silent-mode #f)
+
+  (unsetenv "GLIB_QUIET_MODE")
+  (glib-quiet-mode #f)
+
+  (unsetenv "GLIB_COLOR_MODE")
+  (glib-color-mode #f)
+)
+
+(define (reset-glib-with-cmdline-list cmdline-list)
+  (reset-glib)
+
+  (command-line-arguments cmdline-list)
+  (process-command-line)
+)
+
+
+(define (direct-iputs-test)
+  (glib-color-mode #f)
+  (ierr "I'm an error")
+  (iwarn "I'm a warning")
+  (inote "I'm a note")
+
+  (glib-debug-level 1)
+  (idbg "I'm a debug statement")
+  (glib-debug-level #f)
+  (idbg "I'm a hidden debug statement")
+
+  (glib-silent-mode #t)
+  (iwarn "I shouldn't show up")
+  (inote "I shouldn't show up either")
+  (ierr "I should show up 1")
+  (glib-silent-mode #f)
+
+  (glib-quiet-mode #t)
+  (iwarn "I should show up 2")
+  (inote "I shouldn't show up though")
+  (ierr "I should show up 3")
+  (glib-quiet-mode #f)
+
+  (glib-debug-level 1)
+  (idbg "foo")
+  (iputs "dbg" "debug message")
+  (iputs "e" "error message")
+  (iputs "w" "warning message")
+  (iputs "n" "note message")
+
+  (glib-color-mode #t)
+  (ierr "I'm an error COLOR")
+  (iwarn "I'm a warning COLOR")
+  (inote "I'm a note COLOR")
+  (idbg "I'm a debug COLOR")
+
+
+  )
+
+(define (test-argprocessor-funcs)
+  
+  (test-group
+   "Command line processor utility functions"
+
+   (set! testargs1 '( "-d" "-d" "-d3" "-ddd" "-foo" "fooarg" "-foo" "fooarg2" "-lastArgIsDecoy" "-foo"))
+   (command-line-arguments testargs1)
+   (set! expected_result '("-d" "-d" "-d3" "-ddd"))
+   (set! expected_sideeffect '("-foo" "fooarg" "-foo" "fooarg2" "-lastArgIsDecoy" "-foo"))
+
+   (test "skim-cmdline-opts-noarg-by-regex result" expected_result (skim-cmdline-opts-noarg-by-regex "-d(d+|\\d+)?"))
+   (test "skim-cmdline-opts-noarg-by-regex sideeffect" expected_sideeffect (command-line-arguments))
+
+
+  
+   (command-line-arguments testargs1)
+   (set! expected_result '("fooarg" "fooarg2" ))
+   (set! expected_sideeffect '( "-d" "-d" "-d3" "-ddd" "-lastArgIsDecoy" "-foo"))
+   (test
+    "skim-cmdline-opts-withargs-by-regex result"
+    expected_result
+    (skim-cmdline-opts-withargs-by-regex "--?foo"))
+   
+   (test
+    "skim-cmdline-opts-withargs-by-regex sideeffect"
+    expected_sideeffect
+    (command-line-arguments))
+
+   ))
+
+(define (test-misc)
+  (test-group
+   "misc"
+   (let ((tmpfile (mktemp)))
+     (test-assert "mktemp: temp file created" (file-exists? tmpfile))
+     (if (file-exists? tmpfile)
+         (delete-file tmpfile))
+
+     )))
+
+(define (test-systemstuff)
+  (test-group
+   "system commands"
+
+   (let-values (((ec o e) (isys (find-exe "true"))))
+     (test-assert "isys: /bin/true should have exit code 0" (equal? ec 0)))
+   (let-values (((ec o e) (isys (find-exe "false"))))
+     (test-assert "isys: /bin/false should have exit code 1" (equal? ec 1)))
+
+   (let-values (((ec o e) (isys "/bin/echo" "foo" "bar" "baz")))
+     (test-assert "isys: /bin/echo should have exit code 0" (equal? ec 0))
+     (test-assert "isys: /bin/echo should have stdout 'foo bar baz'" (equal? o "foo bar baz")))
+   
+   (let-values (((ec o e) (isys "/bin/ls /zzzzz")))
+     (let ((expected-code
+            (if (equal? systype "Darwin") 1 2))
+           (expected-err
+            (if (equal? systype "Darwin")
+                "ls: /zzzzz: No such file or directory"
+                "/bin/ls: cannot access /zzzzz: No such file or directory"))
+
+           )
+       (test "isys: /bin/ls /zzzzz should have exit code 2" expected-code ec)
+       (test "isys: /bin/ls /zzzzz should have empty stdout" "" o)
+       (test
+        "isys: /bin/ls /zzzzz should have stderr"
+        expected-err
+        e))
+     )
+
+   (let-values (((ec o e) (isys "/bin/ls /etc/passwd")))
+     (test "isys: /bin/ls /etc/passwd should have exit code 0" 0 ec)
+     (test "isys: /bin/ls /etc/passwd should have stdout" "/etc/passwd" o)
+     (test
+      "isys: /bin/ls /etc/passwd should have empty stderr"
+      ""
+      e))
+
+      (let ((res (do-or-die "/bin/ls /etc/passwd")))
+        (test
+         "do-or-die: ls /etc/passwd should work"
+         "/etc/passwd" res ))
+
+      (let ((res (do-or-die "/bin/ls /zzzzz" nodie: #t)))
+        (test
+         "do-or-die: ls /zzzzz should die"
+         #f res ))
+
+      ; test reading from process stdout line at a time
+      (let* (
+             (lineno (counter-maker))
+
+             ; print each line with an index
+             (eachline-fn (lambda (line)
+                         (print "GOTLINE " (lineno) "> " line)))
+
+             (res
+              (do-or-die "/bin/ls -l /etc | head; true"
+                         foreach-stdout: eachline-fn )))
+        
+        (test-assert "ls -l /etc should not be empty"
+                     (not (equal? res ""))))
+      ;; test writing to process stdout line at a time
+
+      (let* ((tmpfile (mktemp))
+             (cmd (conc "cat > " tmpfile)))
+        (let-values (((c o e)
+                      (isys cmd stdin-proc:
+                       (lambda (myport)
+                         (write-line "hello" myport)
+                         (write-line "hello2" myport)
+                         (close-output-port myport)))))
+          (test "isys-sp: cat should exit 0" 0 c)
+          (let ((mycmd (conc "cat " tmpfile)))
+            (test "isys-sp: cat output should match input" "hello\nhello2" (do-or-die mycmd)))
+
+          (delete-file tmpfile)
+        ))
+
+      (let* ((tmpfile (mktemp))
+             (cmd (conc "cat > " tmpfile)))
+        (do-or-die cmd stdin-proc:
+                   (lambda (myport)
+                     (write-line "hello" myport)
+                     (write-line "hello2" myport)
+                     (close-output-port myport))
+                   cmd)
+        (test "dod-sp: cat output should match input" "hello\nhello2" (do-or-die (conc "cat " tmpfile)))
+        (delete-file tmpfile))
+
+
+
+      
+
+      (let*
+          ((thefile (conc "/tmp/" (get-environment-variable "USER")  "9-lines"))
+           (counter (counter-maker))
+           (stdin-writer
+            (lambda ()
+              (if (< (counter) 10)
+                  (number->string (counter 0))
+                  #f)))
+            (cmd (conc "cat > " thefile)))
+        (let-values
+            (((c o e)
+              (isys cmd foreach-stdin-thunk: stdin-writer)))
+
+          (test-assert "isys-fsl: cat should return 0" (equal? c 0))
+
+          (test-assert
+           "isys-fsl: cat should have written a file"
+           (file-exists? thefile))
+          
+          (if
+           (file-exists? thefile)
+           (begin
+             (test "isys-fsl: cat file should have right contents" "1\n2\n3\n4\n5\n6\n7\n8\n9" (do-or-die (conc "cat " thefile)))
+             (delete-file thefile)))))
+      
+   ) ; end test-group
+  ) ; end define
+
+   
+(define (test-argprocessor )
+  (test-group
+   "Command line processor parameter settings"
+
+   (reset-glib-with-cmdline-list '())
+   (test-assert "(nil) debug mode should be off" (not (glib-debug-level)))
+   (test-assert "(nil): debug pattern should be '.'" (equal? "." (glib-debug-regex-filter)))
+   (test-assert "(nil): colors should be off" (not (glib-color-mode)))
+   (test-assert "(nil): silent mode should be off" (not (glib-silent-mode)))
+   (test-assert "(nil): quiet mode should be off" (not (glib-quiet-mode)))
+   (test-assert "(nil): logfile should be off" (not (glib-log-file)))
+
+   (reset-glib-with-cmdline-list '("-d"))
+   (test-assert "-d: debug mode should be on at level 1" (eq? 1 (glib-debug-level)))
+
+   (reset-glib-with-cmdline-list '("-dd"))
+   (test "-dd: debug level should be 2" 2 (glib-debug-level))
+
+   (reset-glib-with-cmdline-list '("-ddd"))
+   (test "-ddd: debug level should be 3" 3 (glib-debug-level))
+
+   (reset-glib-with-cmdline-list '("-d2"))
+   (test "-d2: debug level should be 2" 2 (glib-debug-level))
+
+   (reset-glib-with-cmdline-list '("-d3"))
+   (test "-d3: debug level should be 3" 3 (glib-debug-level))
+
+   (reset-glib-with-cmdline-list '("-dp" "foo"))
+   (test "-dp foo: debug pattern should be 'foo'" "foo" (glib-debug-regex-filter))
+
+   (reset-glib-with-cmdline-list '("--debug-pattern" "foo"))
+   (test "--debug-pattern foo: debug pattern should be 'foo'" "foo" (glib-debug-regex-filter))
+
+   (reset-glib-with-cmdline-list '("-dp" "foo" "-dp" "bar"))
+   (test "-dp foo -dp bar: debug pattern should be 'foo|bar'"  "foo|bar" (glib-debug-regex-filter))
+
+   (reset-glib-with-cmdline-list '("--quiet"))
+   (test-assert "-quiet: quiet mode should be active" (glib-quiet-mode))
+
+   (reset-glib-with-cmdline-list '("--silent"))
+   (test-assert "-silent: silent mode should be active" (glib-silent-mode))
+
+   (reset-glib-with-cmdline-list '("--color"))
+   (test-assert "-color: color mode should be active" (glib-color-mode))
+
+   (reset-glib-with-cmdline-list '("--log" "foo"))
+   (test "--log foo: logfile should be 'foo'" "foo" (glib-log-file))
+
+))
+
+(define (test-inteldate)
+  (test-group
+   "inteldate conversion tests"
+   (let ((test-table
+          '(("16ww01.5" . "2016-01-01")
+            ("16ww18.5" . "2016-04-29")
+            ("1999ww33.5" . "1999-08-13")
+            ("16ww18.4" . "2016-04-28")
+            ("16ww18.3" . "2016-04-27")
+            ("13ww01.0" . "2012-12-30")
+            ("13ww52.6" . "2013-12-28")
+            ("16ww53.3" . "2016-12-28"))))
+     (for-each
+      (lambda (test-pair)
+        (let ((inteldate (car test-pair))
+              (isodate (cdr test-pair)))
+          (test
+           (conc "(isodate->inteldate "isodate ") => "inteldate)
+           inteldate
+           (isodate->inteldate isodate))
+          
+          (test
+           (conc "(inteldate->isodate "inteldate ")   => "isodate)
+           isodate
+           (inteldate->isodate inteldate))))
+      test-table))))
+
+(define (main)
+  ;; (test <description; #f uses func prototype> <expected result> <thunk>)
+  
+;  (test-group "silly settext group"
+;              (test #f "\x1b[1mfoo\x1b[0m" (set-text (list 'bold) "foo"))
+;              (test "settext bold" "\x1b[1mfoo\x1b[0m" (set-text (list 'bold) "foo"))
+;              )
+
+  ; visually inspect this
+  (direct-iputs-test)
+
+  ; following use unit test test-egg
+  (reset-glib)
+  (test-argprocessor-funcs)
+  (reset-glib)
+  (test-argprocessor)
+  (test-systemstuff)
+  (test-misc)
+  (test-inteldate)
+  ) ; end main()
+
+(main)
+(sendmail "brandon.j.barclay@intel.com" "6hello subject"  "test body")
+;(sendmail "bjbarcla" "2hello subject html"  "test body<h1>hello</h1><i>italics</i>" use_html: #t)
+;(sendmail "bb" "4hello attach subject html"  "<h2>hmm</h2>" use_html: #t attach-files-list: '( "/Users/bb/Downloads/wdmycloud-manual-4779-705103.pdf" ) )
+
+;(launch-repl)
+(test-exit)

ADDED   eggs/ducttape-lib/ref/useargs-example.scm
Index: eggs/ducttape-lib/ref/useargs-example.scm
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/ref/useargs-example.scm
@@ -0,0 +1,19 @@
+(use general-lib)
+
+(let (
+      (customers (skim-cmdline-opts-withargs-by-regex "--cust(omer)?"))
+      (magicmode (skim-cmdline-opts-noarg-by-regex "--magic"))
+      )
+  (print "your customers are " customers)
+  (if (null? magicmode)
+      (print "no unicorns for you")
+      (print "magic!")
+  )
+  )
+
+(idbg "hello")
+(idbg "hello2" 2)
+(idbg "hello2" 3)
+(inote "note")
+(iwarn "warn")
+(ierr "err")

ADDED   eggs/ducttape-lib/workdate.scm
Index: eggs/ducttape-lib/workdate.scm
==================================================================
--- /dev/null
+++ eggs/ducttape-lib/workdate.scm
@@ -0,0 +1,180 @@
+(use srfi-19)
+(use test)
+(use format)
+(use regex)
+(declare (unit workdate))
+;; utility procedures to convert among
+;; different ways to express date (workdate, seconds since epoch, isodate)
+;;
+;; samples:
+;; isodate   -> "2016-01-01"
+;; workdate -> "16ww01.5"
+;; seconds   -> 1451631600
+
+;; procedures provided:
+;; ====================
+;; seconds->isodate
+;; seconds->workdate
+;;
+;; isodate->seconds
+;; isodate->workdate
+;;
+;; workdate->seconds
+;; workdate->isodate
+
+;; srfi-19 used extensively; this doc is better tha the eggref:
+;; http://srfi.schemers.org/srfi-19/srfi-19.html
+
+;; Author: brandon.j.barclay@intel.com 16ww18.6
+
+(define (date->seconds date)
+  (inexact->exact
+   (string->number
+    (date->string date "~s"))))
+
+(define (seconds->isodate seconds)
+  (let* ((date (seconds->date seconds))
+         (result (date->string date "~Y-~m-~d")))
+    result))
+
+(define (isodate->seconds isodate)
+  "Takes a string input of the form 'YY-MM-DD' or 'YYYY-MM-DD' and returns epoch time; for YY, assume after Y2K"
+  (let* ((numlist (map string->number (string-split isodate "-")))
+        (raw-year (car numlist))
+        (year (if (< raw-year 100) (+ raw-year 2000) raw-year))
+        (month (list-ref numlist 1))
+        (day (list-ref numlist 2))
+        (date (make-date 0 0 0 0 day month year))
+        (seconds (date->seconds date)))
+
+    seconds))
+
+;; adapted from perl Intel::Work perl module
+;; work year consists of numbered weeks starting from week 1
+;;   week 1 is the week containing jan 1 of the year
+;;   days of week are numbered starting from 0 on sunday
+;;   work year does not match calendar year in work 1
+;;     before jan1.
+(define (seconds->workdate-values seconds)
+  (define (date-difference->seconds d1 d2)
+    (- (date->seconds d1) (date->seconds d2)))
+
+  (let* ((thisdate (seconds->date seconds))
+         (thisdow (string->number (date->string thisdate "~w")))
+
+         (year (date-year thisdate))
+         ;; work work 1 begins on sunday of week containing jan1
+         (jan1 (make-date 0 0 0 0 1 1 year))
+         (jan1dow (date-week-day jan1))
+         (ww01 (date-subtract-duration jan1 (seconds->time (* 60 60 24 jan1dow))))
+
+         (ww01_delta_seconds (date-difference->seconds thisdate ww01))
+         (wwnum_initial (inexact->exact (add1 (floor (/ ww01_delta_seconds 24 3600 7) ))))
+         
+         ;; we could be in ww1 of next year
+         (this-saturday (seconds->date
+                         (+ seconds
+                            (* 60 60 24 (- 6 thisdow)))))
+         (this-week-ends-next-year?
+          (> (date-year this-saturday) year))
+         (workyear
+          (if this-week-ends-next-year?
+              (add1 year)
+              year))
+         (workweek
+          (if this-week-ends-next-year?
+              1
+              wwnum_initial)))
+   (values workyear workweek thisdow)))
+
+(define (seconds->workdate seconds)
+  (define (string-leftpad in width pad-char)
+    (let* ((unpadded-str (->string in))
+           (padlen_temp (- width (string-length unpadded-str)))
+           (padlen (if (< padlen_temp 0) 0 padlen_temp))
+           (padding
+            (fold conc ""
+                  (map (lambda (x) (->string pad-char)) (iota padlen)))))
+      (conc padding unpadded-str)))
+  (define (zeropad num width)
+    (string-leftpad num width #:0))
+
+  (let-values (((workyear workweek day-of-week-num)
+                (seconds->workdate-values seconds)))
+    (let ((workyear-str
+           (zeropad
+            (->string
+             (if (> workyear 1999)
+                 (- workyear 2000) workyear))
+            2))
+          (workweek-str
+           (zeropad (->string workweek) 2))
+          (dow-str (->string day-of-week-num)))
+      (conc workyear-str "ww" workweek-str "." dow-str))))
+
+(define (isodate->workdate isodate)
+  (seconds->workdate
+   (isodate->seconds isodate)))
+
+(define (workdate->seconds workdate)
+  (let ((match (string-match "^(\\d+)ww(\\d+).(\\d)$" workdate)))
+    (if
+     (not match)
+     #f
+     (let* (
+            (workyear-raw (string->number (list-ref match 1)))
+            (workyear (if (< workyear-raw 100)
+                           (+ workyear-raw 2000)
+                           workyear-raw))
+            (workww (string->number (list-ref match 2)))
+            (dayofweek (string->number (list-ref match 3)))
+
+            (day-of-seconds (* 60 60 24 ))
+            (week-of-seconds (* day-of-seconds 7))
+            
+
+            ;; get seconds at ww1.0
+            (new-years-date (make-date 0 0 0 0 1 1 workyear))
+            (new-years-seconds
+             (date->seconds new-years-date))
+            (new-years-dayofweek (date-week-day new-years-date))
+            (ww1.0_seconds (- new-years-seconds
+                              (* day-of-seconds
+                                 new-years-dayofweek)))
+            (work-adjustment (* week-of-seconds (sub1 workww)))
+            (weekday-adjustment (* dayofweek day-of-seconds))
+
+            (result (+ ww1.0_seconds work-adjustment weekday-adjustment)))
+       result))))
+
+(define (workdate->isodate workdate)
+  (seconds->isodate (workdate->seconds workdate)))
+
+(define (workdate-tests)
+  (test-group
+   "date conversion tests"
+   (let ((test-table
+          '(("16ww01.5" . "2016-01-01")
+            ("16ww18.5" . "2016-04-29")
+            ("1999ww33.5" . "1999-08-13")
+            ("16ww18.4" . "2016-04-28")
+            ("16ww18.3" . "2016-04-27")
+            ("13ww01.0" . "2012-12-30")
+            ("13ww52.6" . "2013-12-28")
+            ("16ww53.3" . "2016-12-28"))))
+     (for-each
+      (lambda (test-pair)
+        (let ((workdate (car test-pair))
+              (isodate (cdr test-pair)))
+          (test
+           (conc "(isodate->workdate "isodate ") => "workdate)
+           workdate
+           (isodate->workdate isodate))
+          
+          (test
+           (conc "(workdate->isodate "workdate ")   => "isodate)
+           isodate
+           (workdate->isodate workdate))))
+      test-table))))
+
+(workdate-tests)