#! /usr/bin/escript
%% ----------------------------------------------------------------
%%	json_create.erl
%%
%%					Aug/29/2013
%%
%% ----------------------------------------------------------------
main(A) ->
	io:format("*** 開始 ***\n"),
	[Arg0|_]=A,
	File_out = Arg0,
	List_aa = data_prepare (),
	file:write_file (File_out, List_aa),
	io:format("*** 終了 ***\n").

%% ----------------------------------------------------------------
data_prepare ()->
	["{",
	row_prepare ("t0921","宇都宮",74185,"1996-11-17"),",",
	row_prepare ("t0922","小山",69271,"1996-8-21"),",",
	row_prepare ("t0923","佐野",51328,"1996-4-15"),",",
	row_prepare ("t0924","足利",28539,"1996-9-24"),",",
	row_prepare ("t0925","日光",65137,"1996-8-17"),",",
	row_prepare ("t0926","下野",78293,"1996-7-8"),",",
	row_prepare ("t0927","さくら",86215,"1996-6-29"),",",
	row_prepare ("t0928","矢板",98235,"1996-2-21"),",",
	row_prepare ("t0929","真岡",12374,"1996-4-3"),",",
	row_prepare ("t0930","栃木",74813,"1996-7-19"),",",
	row_prepare ("t0931","大田原",58421,"1996-7-25"),",",
	row_prepare ("t0932","鹿沼",85216,"1996-7-18"),",",
	row_prepare ("t0933","那須塩原",31754,"1996-4-14"),",",
	row_prepare ("t0934","那須烏山",82351,"1996-3-20") ,"}"].
%% ----------------------------------------------------------------
row_prepare (Id,Name,Population,Date_mod)->
	lists:concat (["\"",Id,"\": {\"name\": \"",Name,"\",\"population\": ",
	Population,",\"date_mod\": \"",
	Date_mod,"\"}\n"]).
%% ----------------------------------------------------------------