Add missing entities when generating JMdict files

Julien LepillerMon May 25 21:47:26+0200 2020

3cbfd2f

Add missing entities when generating JMdict files

modules/nani/jmdict/entities.scm

2525 
    ("col" . 21)
2626 
    ("comp" . 22)
2727 
    ("conj" . 23)
28-
    ("cop-da" . 24)
28+
    ("cop" . 24)
2929 
    ("ctr" . 25)
3030 
    ("derog" . 26)
3131 
    ("eK" . 27)

…

175175 
    ("zool" . 171)
176176 
    ("joc" . 172)
177177 
    ("anat" . 173)
178-
    ("frq500" . 174)
179-
    ("frq1000" . 175)
180-
    ("frq2000" . 176)
181-
    ("frq5000" . 177)
182-
    ("frq10000" . 178)
183-
    ("frq20000" . 179)))
178+
    ("Christn" . 174)
179+
    ("net-sl" . 175)
180+
    ("dated" . 176)
181+
    ("hist" . 177)
182+
    ("lit" . 178)
183+
    ("litf" . 179)
184+
    ("surname" . 180)
185+
    ("place" . 181)
186+
    ("unclass" . 182)
187+
    ("company" . 183)
188+
    ("product" . 184)
189+
    ("work" . 185)
190+
    ("person" . 186)
191+
    ("given" . 187)
192+
    ("station" . 188)
193+
    ("organization" . 189)
194+
    ("frq500" . 190)
195+
    ("frq1000" . 191)
196+
    ("frq2000" . 192)
197+
    ("frq5000" . 193)
198+
    ("frq10000" . 194)
199+
    ("frq20000" . 195)))
184200 
185201 
(define (get-entity ent)
186202 
  (let ((val (assoc-ref entities ent)))
187-
    (if val val (begin (pk 'val ent) #f))))
203+
    (if val val (begin (pk 'unknown-entity-will-cause-error ent) #f))))