;
; print-dict.scm -- print Link-Grammar dictionary to file.
;
; Copyright (c) 2021 - Linas Vepstas
;
; --------------------------------------------------------
; OVERVIEW:
; Print Link Grammar dictionaries to a file. The print format is the
; standard `4.0.dict` utf-8 file format.
;
; Example Usage:
; --------------
; Print dict to stdout.
; (print-LG-flat #t dict)
;
; Print dict to file.
; (define port (open-file "/tmp/4.0.dict" "w"))
; (print-LG-flat port dict)
; (fsync port) (close port)
;
(use-modules (srfi srfi-1))
; --------------------------------------------------------
; Print dictionary.
(define-public (print-LG-flat DEST DICT)
"
print-LG-flat DEST DICT - print a Link-Grammar style dictionary.
Prints a flat-file style dictionary. That is a \"4.0.dict\" style
file. This does NOT print the file boilerplate, it only prints
the raw dictionary contents.
The DEST must be the destination file-handle, or #t to print to
stdout, or #f to print to string.
The DICT must be a dictionary.
"
(define (prt-wordlist WL)
(string-join
(map (lambda (WORD) (format #f "~A" WORD)) WL)))
(define (prt-junct CL)
(string-join
(map (lambda (CON) (format #f "~A" CON)) CL) " or "))
(for-each
(lambda (ENTRY)
(format DEST "\n~A: ~A;\n"
(prt-wordlist (first ENTRY))
(prt-junct (second ENTRY)))
)
DICT)
)
; --------------------------------------------------------