summaryrefslogtreecommitdiffstats
path: root/stdlib
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib')
-rw-r--r--stdlib/awk.tl8
1 files changed, 8 insertions, 0 deletions
diff --git a/stdlib/awk.tl b/stdlib/awk.tl
index 50121736..35bd436e 100644
--- a/stdlib/awk.tl
+++ b/stdlib/awk.tl
@@ -95,6 +95,14 @@
(if (< end l)
(add [self.rec end..:])))
self.nf i))))
+ ((eq self.fs :csv)
+ (when self.ft
+ (awk-error "both fs and ft set"))
+ (when self.kfs
+ (awk-error "fs set to :csv and ft set"))
+ (lambda (self)
+ (set self.fields (get-csv self.rec)
+ self.nf (length self.fields))))
(self.fs
(when self.ft
(awk-error "both fs and ft set"))