en-dict-comp.scm

#! /usr/bin/env -S guile
!#
;
; en-dict-comp.scm
; Compare parses produced by a given LG dictionary to those of
; the English dictionary.
;
; Usage:
; guile -s dict-comp.scm <dict-name> <sentence-file-name>
;
; <dict-name> should be a valid Link-Grammar dictionary
; <sentence-file-name> should be a file containing sentences
;
; Example:
; guile -s dict-comp.scm micro-fuzz sentences.txt
;

(use-modules (srfi srfi-1))
(use-modules (ice-9 rdelim))
(use-modules (opencog) (opencog nlp) (opencog learn))

; Check usage
(if (not (equal? 3 (length (program-arguments))))
	(begin
		(format #t
			"Usage: ~A <dict-name> <sentence-file-name>\n"
			(first (program-arguments)))
		(exit #f)))

(define test-dict (second (program-arguments)))
(define sent-file (third (program-arguments)))

; Check file access
(if (not (equal? (stat:type (stat test-dict)) 'directory))
	(begin
		(format #t "Cannot find dictionary ~A\n" test-dict)
		(exit #f)))

(if (not (access? sent-file R_OK))
	(begin
		(format #t "Cannot find sentence file ~A\n" sent-file)
		(exit #f)))

; Perform comparison
(format #t "Verifying dictionary \"~A\" with sentences from \"~A\"\n"
	test-dict sent-file)


;; Set #:INCLUDE-MISSING to #f to disable the processing of sentences
;; containing words that the dictionary does not know about (i.e. to
;; disable unknown-word guessing.)
(define compare
	(make-lg-en-comparator (LgDictNode test-dict)
		#:INCLUDE-MISSING #t))

(define (process-file PORT)
	(define line (read-line PORT))
	(if (not (eof-object? line))
		(begin
			; The # symbol is a comment-card
			(if (and
				(< 0 (string-length line))
				; % is a comment for LG, ! is a directive for LG,
				; * means "bad sentence" and # is a comment for python
				(not (equal? #\# (string-ref line 0)))
				(not (equal? #\! (string-ref line 0)))
				(not (equal? #\* (string-ref line 0)))
				(not (equal? #\% (string-ref line 0))))
				(compare line))
			(process-file PORT))
		(compare #f)))

(process-file (open sent-file O_RDONLY))

(format #t "Finished verifying dictionary \"~A\" with sentences from \"~A\"\n"
	test-dict sent-file)