|
|
|
@ -5,18 +5,18 @@ Guile csv reader
|
|
|
|
|
|
|
|
|
|
|
|
== USAGE
|
|
|
|
== USAGE
|
|
|
|
|
|
|
|
|
|
|
|
* install
|
|
|
|
=== install
|
|
|
|
./configure && make
|
|
|
|
./configure && make
|
|
|
|
sudo make install
|
|
|
|
sudo make install
|
|
|
|
|
|
|
|
|
|
|
|
* read csv
|
|
|
|
=== read csv
|
|
|
|
```scheme
|
|
|
|
```scheme
|
|
|
|
(use-modules (csv))
|
|
|
|
(use-modules (csv))
|
|
|
|
(define my-csv-reader (make-csv-reader #:\,))
|
|
|
|
(define my-csv-reader (make-csv-reader #:\,))
|
|
|
|
(call-with-input-file "file.csv" my-csv-reader)
|
|
|
|
(call-with-input-file "file.csv" my-csv-reader)
|
|
|
|
```
|
|
|
|
```
|
|
|
|
|
|
|
|
|
|
|
|
* csv->xml
|
|
|
|
=== csv->xml
|
|
|
|
```scheme
|
|
|
|
```scheme
|
|
|
|
(call-with-input-file "file.xml" csv->xml)
|
|
|
|
(call-with-input-file "file.xml" csv->xml)
|
|
|
|
```
|
|
|
|
```
|
|
|
|
@ -35,7 +35,7 @@ and file.xml could be:
|
|
|
|
</record-1>
|
|
|
|
</record-1>
|
|
|
|
```
|
|
|
|
```
|
|
|
|
|
|
|
|
|
|
|
|
* sxml->csv or csv-write to output a csv format file
|
|
|
|
=== sxml->csv or csv-write to output a csv format file
|
|
|
|
|
|
|
|
|
|
|
|
```scheme
|
|
|
|
```scheme
|
|
|
|
(call-with-output-file "file.csv"
|
|
|
|
(call-with-output-file "file.csv"
|
|
|
|
|