Schoenenberger_Systeme_GmbH/dxfmakros
3
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

[FIX] JSON Parser in Lisp konnte keine leeren JSON Attribut-Objekte behandeln (Kurve:{}) und hat einen Fehler geworfen. Dieses Verhalten wurde nun korrigiert

Browse Source
This commit is contained in:
Simon Hensch
2026-07-17 12:39:22 +02:00
parent d3ad4f8c5e
commit 659aa8e8c1
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Lisp/ssg_core.lsp
+11
View File
@@ -733,6 +733,17 @@
((and (not in-section) (= trimmed "{")) nil) ((and (not in-section) (= trimmed "{")) nil)
((and (not in-section) (= trimmed "}")) nil) ((and (not in-section) (= trimmed "}")) nil)
;; Leere Section auf einer Zeile: "name": {}
;; (Section-Start und -Ende zugleich - json.dump schreibt leere
;; Objekte immer inline, unabhaengig von der Einrueckung.)
((and (not in-inner)
(>= (strlen trimmed) 2)
(= (substr trimmed (1- (strlen trimmed)) 2) "{}"))
(setq section (substr trimmed 2
(1- (vl-string-search "\"" trimmed 1))))
(setq ergebnis (cons (cons section nil) ergebnis))
)
;; Section-Start: "name": { ;; Section-Start: "name": {
((and (not in-inner) (vl-string-search ": {" trimmed)) ((and (not in-inner) (vl-string-search ": {" trimmed))
(setq kv (ssg-cfg-parse-kv (setq kv (ssg-cfg-parse-kv