*~

*.back

*.mo

dicos

dictionaries

site

public

all

.PRECIOUS: po/%.po dictionaries/%

JMDICT_LANGS=dut fre ger hun rus slv spa swe

DICOS=dicos/JMdict_e.nani $(addprefix dicos/JMdict_, $(addsuffix .nani, $(JMDICT_LANGS)))

PAGES=blog.scm e404.scm feeds.scm index.scm mentions.scm

HAUNT_FILES= haunt.scm $(addprefix pages/, $(PAGES)) \

        tools/i18n.scm tools/theme.scm

WEB_FILES= $(HAUNT_FILES) \

        $(shell find css) $(shell find images) $(DICOS) \

DICO_MODULES=modules/nani/trie.scm modules/nani/result.scm modules/nani/jmdict/trie.scm \

        modules/nani/jmdict/serialize.scm modules/nani/jmdict/xml.scm \

        modules/nani/jmdict/entities.scm

all: po/fr/LC_MESSAGES/nani.mo po/eo/LC_MESSAGES/nani.mo $(WEB_FILES)

	haunt build

	rm -rf public.bak

	mv public public.bak

	mv site public

	touch all

download:

	@rm -f dictionaries/*

	@$(MAKE) dictionaries/JMdic_e.xml dictionaries/JMdic.xml

dictionaries/%.xml:

	wget http://ftp.monash.edu/pub/nihongo/$(shell basename $<).gz -O $<.gz

	gunzip $<.gz

	sed -i -e 's|&lt;|\&\&lt;;|g' -e 's|&gt;|\&\&gt;;|g' $<

	sed -i -e 's|&\([^;]\+\);|\1|g' $<

	cp $< $@

dictionaries/%.sxml: dictionaries/%.xml tools/jmdict.scm

	guile -L modules tools/jmdict.scm convert $< nolang $@

dicos/JMdict_%.nani: dictionaries/JMdict.sxml tools/jmdict.scm $(DICO_MODULES)

	guile -L modules tools/jmdict.scm build \

        $< $(shell echo $@ | sed 's|^.*_\([^.]*\)\..*$$|\1|g') $@

dicos/JMdict_e.nani: dictionaries/JMdict_e.sxml tools/jmdict.scm $(DICO_MODULES)

	guile -L modules tools/jmdict.scm build $< e $@

po/%/LC_MESSAGES/nani.mo: po/%.po

	@mkdir -p $$(dirname $@)

	msgfmt --output-file=$@ $<

po/%.po: po/nani.pot

	if [ -f $@ ]; then \

	  msgmerge --update $@ $< ;\

	else \

          msginit --input=$< --locale=$$(printf $$(basename $@) | sed 's|.po$$||') --output=$@ ;\

        fi

po/nani.pot: $(HAUNT_FILES)

	xgettext --keyword=_ --language=scheme --add-comments --sort-output --from-code UTF-8 -o $@ $^

(use-modules (nani jmdict trie))

(use-modules (nani jmdict serialize))

(use-modules (nani jmdict xml))

(use-modules (nani trie))

(use-modules (nani result))

(use-modules (ice-9 match))

(use-modules (ice-9 binary-ports))

(define (convert input output)

  (let ((sxml (load-dic input)))

    (call-with-output-file output

      (lambda (port)

        (write sxml port)))))

(define (compile input sense-filter output)

  (let* ((sxml (if (equal? (substring input (- (string-length input) 3)) "xml")

                 (load-dic input)

                 (read input)))

         (results (sxml->results sxml))

         (results (map (lambda (result)

                         (update-result

                           result

                           #:senses (filter sense-filter

                                            (result-senses result))))

                       results))

         (results (filter (lambda (result) (not (null? (result-senses result))))

                          results))

         (kanji-trie (compress-trie (make-kanji-trie results)))

         (reading-trie (compress-trie (make-reading-trie results)))

         (meaning-trie (compress-trie (make-meaning-trie results))))

    (format #t "Number of entries in ~a: ~a~%" output (length results))

    (call-with-output-file output

      (lambda (port)

        (put-bytevector port

          (serialize-jmdict results kanji-trie reading-trie meaning-trie))))))

(match (command-line)

  ((_ cmd input lang output)

   (cond

    ((equal? cmd "build")

     (if (equal? lang "e")

       (compile input (const #t) output)

       (compile input (lambda (sense) (equal? (sense-language sense) lang)) output)))

    ((equal? cmd "convert")

     (convert input output))

    (else (format #t "Unknown cmd ~a.~%" cmd)))))