aboutsummaryrefslogtreecommitdiff
path: root/csv/csv.ha
diff options
context:
space:
mode:
Diffstat (limited to 'csv/csv.ha')
-rw-r--r--csv/csv.ha30
1 files changed, 0 insertions, 30 deletions
diff --git a/csv/csv.ha b/csv/csv.ha
deleted file mode 100644
index 40e1e3b..0000000
--- a/csv/csv.ha
+++ /dev/null
@@ -1,30 +0,0 @@
-use io;
-use strings;
-use fmt;
-
-export type error = !(str | io::error);
-
-export fn writerecord(w: io::handle, record: []str, separator: const str = ",", quote: const rune =
- '"') (void | error) = {
- let sep = "";
- for (const field .. record) {
- if (strings::contains(field, separator)) {
- if (strings::contains(field, quote)) {
- return "ERROR: Field contains quote character
- (not supported)";
- };
- fmt::fprintf(w, "{}{}{}{}", sep, quote, field, quote)!;
- } else {
- fmt::fprintf(w, "{}{}", sep, field)!;
- };
- sep = separator;
- };
- fmt::fprintln(w)!;
-};
-
-export fn writerecords(w: io::handle, records: [][]str, separator: const str = ",", quote: const
- rune = '"') (void | error) = {
- for (const record .. records) {
- writerecord(w, record, separator, quote)?;
- };
-};