#!/usr/bin/guile -s
!#
;; ----------------------------------------------------------------------
;;	csv_read.scm
;;
;;					Feb/28/2011
;;
;; ----------------------------------------------------------------------
(load "/var/www/data_base/common/guile_common/text_manipulate.scm")
;; ----------------------------------------------------------------------
(display "*** 開始 ***\n")
(define file-name (cadr (command-line)))

(define doc_aa (make-hash-table))

(csv_read_proc file-name doc_aa)

(dict_display_proc doc_aa)

(display "*** 終了 ***\n")
;; ----------------------------------------------------------------------