; -------------------------------------------------------------------
;
;	common_lisp/text_manipulate.lisp
;
;						Jan/05/2015
;
; -------------------------------------------------------------------
(defun text_read_proc (file_in)
(let (
	(dict_aa (make-hash-table :test #'equal))
	)

(with-open-file (fp_in file_in)
	(loop for line = (read-line fp_in nil nil)
	while line
		do (multiple-value-bind (id name population date_mod)
			(line_to_value_proc line #\tab)
			(setf dict_aa
			(dict_append_proc dict_aa id name population date_mod))
			)
		)
	(close fp_in)
)
dict_aa)
)
; -------------------------------------------------------------------
(defun dict_display_proc_single (key value)
	(let (
	(s0 (gethash 'name value))
	(s1 (gethash 'population value))
	(s2 (gethash 'date_mod value))
		)
	(format t "~a	~a	~a	~a~%" key s0 s1 s2)
	)
	)
; -------------------------------------------------------------------
(defun dict_display_proc (hash)
	(maphash #'(lambda (key value) (dict_display_proc_single key value)) hash)
)

; -------------------------------------------------------------------
(defun text_write_proc_single (stream key value)
	(let (
		(s0 (gethash 'name value))
		(s1 (gethash 'population value))
		(s2 (gethash 'date_mod value))
		)
	(format stream "~a	~a	~a	~a~%" key s0 s1 s2)
	)
)

; -------------------------------------------------------------------
(defun text_write_proc (file_out hash_in)
	(let (
	(stream (open file_out :direction :output :if-exists :supersede))
		)
	(format t "*** write_proc check ***~%")
	(maphash #'(lambda (key value) (text_write_proc_single stream key value)) hash_in)
	(close stream)
)
)

; -------------------------------------------------------------------
(defun dict_append_proc (dict_aa id_in name population date_mod)
	(let (
		(unit_pp (make-hash-table))
		)
	(setf (gethash 'name unit_pp) name) 
	(setf (gethash 'population unit_pp) population)
	(setf (gethash 'date_mod unit_pp) date_mod)
	(setf (gethash id_in dict_aa) unit_pp)
;
	dict_aa)
	)

; -------------------------------------------------------------------
(defun  line_to_value_proc (line_in delimit)
	(let (
		(pos_aa (position delimit line_in))
		)
		(let (
			(id (subseq line_in 0 pos_aa))
			(line_bb (subseq line_in (+ pos_aa 1)))
			)
		(let (
			(pos_bb (position delimit line_bb))
			)
		(let (
			(name (subseq line_bb 0 pos_bb))
			(line_cc (subseq line_bb (+ pos_bb 1)))
			)
		(let (
			(pos_cc (position delimit line_cc))
			)
		(let (
			(population (parse-integer (subseq line_cc 0 pos_cc)))
			(line_dd (subseq line_cc (+ pos_cc 1)))
			)
		(let (
			(pos_dd (position delimit line_dd))
			)
		(let (
			(date_mod (subseq line_dd 0 pos_dd))
			)
;
;
	(values id name population date_mod)
	)
	)
	)
	)
	)
	)
	)
	)
)

; -------------------------------------------------------------------
(defun get_current_date_proc ()
	(multiple-value-bind (s m h dd mm yy)
		(decode-universal-time (get-universal-time))
		(format nil "~4,'0d-~2,'0d-~2,'0d" yy mm dd)))
; -------------------------------------------------------------------
(defun dict_update_proc (dict_aa id_in population_in)
	(format t "*** dict_update_proc *** start ***~%")
	(format t "*** hash-table-count *** ~a~%" (hash-table-count dict_aa))
	(multiple-value-bind (unit present) (gethash id_in dict_aa)
	(if present
		(progn
			(format t "*** dict_update_proc *** present ***~%")
			(let (
			(today (get_current_date_proc))
				)
			(setf (gethash 'population unit) population_in)
			(setf (gethash 'date_mod unit) today)
			)
			)
		)
	)
	(format t "*** dict_update_proc *** end ***~%")
dict_aa)
; -------------------------------------------------------------------
(defun csv_read_proc (file_in)
(let (
	(dict_aa (make-hash-table :test #'equal))
	)
;
(format t "*** csv_read_proc *** start ***~%")

(with-open-file (fp_in file_in)
	(loop for line = (read-line fp_in nil nil)
	while line
		do (multiple-value-bind (id name population date_mod)
			(line_to_value_proc line #\,)
			(setf dict_aa
			(dict_append_proc dict_aa id name population date_mod))
			)
		)
	(close fp_in)
)
dict_aa)
)
; -------------------------------------------------------------------
(defun csv_write_proc_single (stream key value)
	(let (
		(s0 (gethash 'name value))
	(s1 (gethash 'population value))
	(s2 (gethash 'date_mod value))
		)
	(format stream "~a,~a,~a,~a~%" key s0 s1 s2)
	)
)

; -------------------------------------------------------------------
(defun csv_write_proc (file_out hash_in)
	(let (
	(stream (open file_out :direction :output :if-exists :supersede))
		)
	(format t "*** csv_write_proc ppp ***~%")
	(maphash #'(lambda (key value) (csv_write_proc_single stream key value)) hash_in)
	(close stream)
	(format t "*** csv_write_proc qqq ***~%")
)
)

; -------------------------------------------------------------------