mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2025-08-09 07:47:00 +02:00
Code Issues Projects Releases Wiki Activity

Fix the fix for parsing quoted-filenames.

Browse Source
This commit is contained in:
Dimitri Fontaine 2014-04-28 15:18:18 +02:00
parent b5c89e750c
commit b758058208
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/parser.lisp
View File

@ -380,7 +380,10 @@
(list :filename (parse-namestring (coerce f 'string)))))
(defrule quoted-filename (and #\' (+ (not #\')) #\')
(:destructure (open f close) (declare (ignore open close)) (text f)))
(:lambda (q-f)
(destructuring-bind (open f close) q-f
(declare (ignore open close))
(list :filename (parse-namestring (coerce f 'string))))))
(defrule maybe-quoted-filename (or quoted-filename filename)
(:identity t))