#! /usr/bin/swipl -f -q
/* ------------------------------------------------------------------- */
/*
	text_create.pl

						Oct/22/2015
*/
/* ------------------------------------------------------------------- */
line_out_proc(Data_in) :-
	concat_atom(Data_in,'\t',Str_aa),
	concat_atom([Str_aa,'\n'],Line_out),
	format(Line_out).
/* ------------------------------------------------------------------- */
data_out_proc(File_out,Data_a) :-
	tell(File_out),
	maplist(line_out_proc,Data_a),
	told.
/* ------------------------------------------------------------------- */
data_prepare_proc(A) :-  A = 
		[['t2381','名古屋','51829','1942-5-16'],
		['t2382','豊橋','27148','1942-3-21'],
		['t2383','岡崎','32915','1942-5-8'],
		['t2384','一宮','47329','1942-10-27'],
		['t2385','蒲郡','32718','1942-7-14'],
		['t2386','常滑','24185','1942-6-12'],
		['t2387','大府','83194','1942-4-17'],
		['t2388','瀬戸','91582','1942-3-24'],
		['t2389','犬山','73261','1942-7-8']].

/* ------------------------------------------------------------------- */
:- initialization main.

main(Argv) :-
	format('*** 開始 ***\n'),
	format('Argv: ~w\n', [Argv]),
	[File_out|_] = Argv,
	write(File_out),nl,

	data_prepare_proc(Data_a),

	data_out_proc(File_out,Data_a),

	format('*** 終了 ***\n'),
	halt.

/* ------------------------------------------------------------------- */