#! /usr/bin/gst
" xml.create.st "
" "
" Aug/30/2013 "
" --------------------------------------------- "
|record_out_proc key name population date_mod str_out ttx ttz|
record_out_proc :=
[:arr |
key := arr at: 1.
name := arr at: 2.
population := arr at: 3.
date_mod := arr at: 4.
ttx := String with: Character tab.
ttz := String with: Character nl.
str_out := '<', key, '>', ttz ,
'' , name, '' ,
'' , population, '' ,
'' , date_mod, '' ,
ttz, '', key, '>'.
Transcript show: key,ttx.
Transcript show: name,ttx.
Transcript show: population,ttx.
Transcript show: date_mod;nl.
file nextPutAll: str_out; nl.
].
" --------------------------------------------- "
file_out := Smalltalk getArgv: 1.
Transcript show: file_out;nl.
| file |
file := FileStream open: file_out mode: FileStream write.
Transcript show: '*** 開始 ***'; nl.
Transcript show: Date today printString; nl.
ttx := String with: Character tab.
file nextPutAll: ''; nl.
file nextPutAll: ''; nl.
record_out_proc value: #('t2261' '静岡' '46217' '1965-10-15').
record_out_proc value: #('t2262' '浜松' '85934' '1965-9-21').
record_out_proc value: #('t2263' '沼津' '92365' '1965-8-8').
record_out_proc value: #('t2264' '三島' '15832' '1965-3-12').
record_out_proc value: #('t2265' '富士' '54198' '1965-1-20').
record_out_proc value: #('t2266' '熱海' '98436' '1965-5-24').
record_out_proc value: #('t2267' '富士宮' '35672' '1965-8-21').
record_out_proc value: #('t2268' '藤枝' '19823' '1965-9-16').
record_out_proc value: #('t2269' '御殿場' '45276' '1965-10-8').
record_out_proc value: #('t2270' '島田' '82561' '1965-3-12').
file nextPutAll: ''; nl.
file close.
Transcript show: '*** 終了 ***'; nl.
" --------------------------------------------- "