|
|
|
@ -17,7 +17,9 @@ sudo make install
|
|
|
|
```
|
|
|
|
```
|
|
|
|
|
|
|
|
|
|
|
|
* csv->xml
|
|
|
|
* csv->xml
|
|
|
|
|
|
|
|
```scheme
|
|
|
|
(call-with-input-file "file.xml" csv->xml)
|
|
|
|
(call-with-input-file "file.xml" csv->xml)
|
|
|
|
|
|
|
|
```
|
|
|
|
|
|
|
|
|
|
|
|
and file.xml could be:
|
|
|
|
and file.xml could be:
|
|
|
|
```xml
|
|
|
|
```xml
|
|
|
|
@ -40,6 +42,7 @@ and file.xml could be:
|
|
|
|
(sxml->csv
|
|
|
|
(sxml->csv
|
|
|
|
'((name age email) ("aaa" "11" "aaa@aaa.com") ("bbb" "12" "bbb@bbb.com"))
|
|
|
|
'((name age email) ("aaa" "11" "aaa@aaa.com") ("bbb" "12" "bbb@bbb.com"))
|
|
|
|
port)))
|
|
|
|
port)))
|
|
|
|
|
|
|
|
```
|
|
|
|
|
|
|
|
|
|
|
|
and file.csv would be:
|
|
|
|
and file.csv would be:
|
|
|
|
```csv
|
|
|
|
```csv
|
|
|
|
|