diff options
Diffstat (limited to 'stdlib/awk.tl')
-rw-r--r-- | stdlib/awk.tl | 8 |
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")) |