mirror of
https://git.eta.st/eta/rsp6-decoder.git
synced 2024-11-24 02:25:38 +00:00
24 lines
945 B
Common Lisp
24 lines
945 B
Common Lisp
|
(defun f (x)
|
||
|
|
(let ((tr (string-right-trim '(#\Space #\Tab) x)))
|
||
|
|
(when (> (length tr) 0)
|
||
|
|
tr)))
|
||
|
|
|
||
|
|
(with-open-file (f "~/Downloads/CORPUSExtract.json")
|
||
|
|
(let* ((cl-json:*json-identifier-name-to-lisp* #'identity)
|
||
|
|
(data (cdr (assoc "TIPLOCDATA" (cl-json:decode-json f)
|
||
|
|
:test #'string=)))
|
||
|
|
(ret (make-hash-table :test 'equal)))
|
||
|
|
(loop
|
||
|
|
for entry in data
|
||
|
|
do (let ((nlc (cdr (assoc "NLC" entry :test #'string=)))
|
||
|
|
(crs (f (cdr (assoc "3ALPHA" entry :test #'string=))))
|
||
|
|
(desc (f (cdr (assoc "NLCDESC" entry :test #'string=)))))
|
||
|
|
(when (and nlc desc
|
||
|
|
(eql (rem nlc 100) 0))
|
||
|
|
(let ((nlc (format nil "~4,'0D" (/ nlc 100))))
|
||
|
|
(format t "~A → ~A / ~A~%" nlc crs desc)
|
||
|
|
(setf (gethash nlc ret)
|
||
|
|
`(("crs" . ,crs)
|
||
|
|
("desc" . ,desc)))))))
|
||
|
|
ret))
|