File: vars.lisp

package info (click to toggle)
cl-csv 20180712.git3eba29c-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 244 kB
  • sloc: lisp: 1,765; makefile: 2
file content (51 lines) | stat: -rw-r--r-- 1,835 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
(in-package :cl-csv)
(cl-interpol:enable-interpol-syntax)

(defvar *quote* #\" "Default quote character")
(defvar *separator* #\, "Default separator character")
(defvar *escape-mode* :quote
  "Controls how escapes are handled.
    :quote - replace the entire *quote-escape* sequence with the quote
             character whenever we find it. Commonly used with \"\" quote
             escapes

    :following - replace the escape character and the following character with
             just the following character.
             EG: (*quote-escape* #\\ )
                 \\ -> \
                 \r -> r
                 \' -> '
   ")

;; we want to read basically anything by default
(defvar *read-newline* t
        "Default newline string for reading.
         We trim extra whitespace by default *trim-outer-whitespace*")

;; we want to write toward excel by default
(defvar *write-newline* #?"\r\n"
        "When writing what should the newline convention be ")

(defvar *always-quote* nil "Default setting for always quoting")
(defvar *quote-escape* nil
  "Default setting for escaping quotes - by default this is a vector of #(*quote* *quote*)")
(defvar *unquoted-empty-string-is-nil* nil
  "Should unquoted empty string values, be nil or \"\".")

(defvar *quoted-empty-string-is-nil* nil
  "Should empty string values, be nil or \"\".
   Unquoted values are always trimmed of surrounding whitespace.
   Quoted values are never be trimmed")

(defvar *trim-outer-whitespace* t
  "Should white space between delimiters and data or quotes be removed

   These underscores (if they were spaces) are the locations in question
   'a',_b_,_' c '_,_d ")

(defvar *enable-signals* nil
  "Should the reading and writing process enable filtering signals")

(defvar *eof-char* #\null "The char we use for eof")

(defvar *buffer-size* 512)