From 38d7edeb1e552ba86a9a79b166915fe152e30550 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 7 Mar 2017 20:11:26 -0800 Subject: [PATCH] Small tweaks to file-attributes. --- src/runtime/file-attributes.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/runtime/file-attributes.scm b/src/runtime/file-attributes.scm index b32d83eea..8b422e409 100644 --- a/src/runtime/file-attributes.scm +++ b/src/runtime/file-attributes.scm @@ -42,7 +42,8 @@ USA. (define (parse-file-attributes-line port db multiline?) (declare (ignore db multiline?)) - ;;(parse-file-attributes (textual-input-port->parser-buffer port)) + ;; (parse-file-attributes + ;; (textual-input-port->parser-buffer port "-*- ")) #f) (define (parse-file-attributes parser-buffer) @@ -65,17 +66,15 @@ USA. (seq #\- (char-set not-asterisk)) (seq #\- #\* (char-set not-hyphen))))) (noise match:leader/trailer) - (noise (* (char-set char-set:whitespace))) (alt (seq parse:key/value-pair (* (seq ";" - (noise (* (char-set char-set:whitespace))) parse:key/value-pair)) (? (seq ";" (noise (* (char-set char-set:whitespace)))))) (encapsulate (lambda (v) (cons "mode" (vector-ref v 0))) - (seq (match (+ (char-set name-chars))) - (noise (* (char-set char-set:whitespace)))))) + (seq (match (+ (char-set name-chars))) + (noise (* (char-set char-set:whitespace)))))) (noise match:leader/trailer))))) (define match:leader/trailer @@ -86,7 +85,8 @@ USA. (encapsulate (lambda (v) (cons (vector-ref v 0) (string-trim (vector-ref v 1)))) - (seq (match (+ (char-set name-chars))) + (seq (noise (* (char-set char-set:whitespace))) + (match (+ (char-set name-chars))) (noise (* (char-set char-set:whitespace))) ":" (match match:value))))) -- 2.25.1