Move the json representation in the web folder
This commit is contained in:
parent
912b51abe4
commit
a57c915f94
|
@ -15,9 +15,9 @@
|
||||||
; "person-name-masculine": [{"value": "...", "count": X}, ...],
|
; "person-name-masculine": [{"value": "...", "count": X}, ...],
|
||||||
; "person-name-feminine": [{"value": "...", "count": X}, ...],
|
; "person-name-feminine": [{"value": "...", "count": X}, ...],
|
||||||
; "patterns": [{"value": [...], "count": X}, ...],
|
; "patterns": [{"value": [...], "count": X}, ...],
|
||||||
; "locality-markov": {"order": X, "next": [{ "sequence": [...], "distribution": [{"value": "...", "count": X}, ...] }, ...]},
|
; "locality-name": {"order": X, "next": [{ "sequence": [...], "distribution": [{"value": "...", "count": X}, ...] }, ...]},
|
||||||
; "area-markov": {"order": X, "next": [{"sequence": [...], "distribution": [{"value": "...", "count": X}, ...] }, ...]},
|
; "area-name": {"order": X, "next": [{"sequence": [...], "distribution": [{"value": "...", "count": X}, ...] }, ...]},
|
||||||
; "river-markov": {"order": X, "next": [{"sequence": [...], "distribution": [{"value": "...", "count": X}, ...] }, ...]},
|
; "river-name": {"order": X, "next": [{"sequence": [...], "distribution": [{"value": "...", "count": X}, ...] }, ...]},
|
||||||
; },
|
; },
|
||||||
; ...
|
; ...
|
||||||
; ],
|
; ],
|
||||||
|
@ -416,6 +416,6 @@
|
||||||
(define (extractor->jsexpr extractor)
|
(define (extractor->jsexpr extractor)
|
||||||
(map region->jsexpr (hash-values extractor)))
|
(map region->jsexpr (hash-values extractor)))
|
||||||
|
|
||||||
(define *output* (open-output-file "./gener-communes.json" #:exists 'truncate/replace))
|
(define *output* (open-output-file "./web/gener-communes.json" #:exists 'truncate/replace))
|
||||||
; output lisp structure
|
; output lisp structure
|
||||||
(write-json (extractor->jsexpr *extractor*) *output*)
|
(write-json (extractor->jsexpr *extractor*) *output*)
|
||||||
|
|
|
@ -218,7 +218,7 @@
|
||||||
gen)
|
gen)
|
||||||
|
|
||||||
; Read the file containing all the data
|
; Read the file containing all the data
|
||||||
(define *input* (open-input-file "./gener-communes.json"))
|
(define *input* (open-input-file "./web/gener-communes.json"))
|
||||||
|
|
||||||
; Process the input and train
|
; Process the input and train
|
||||||
(define *generator* (jsexpr->generator (read-json *input*)))
|
(define *generator* (jsexpr->generator (read-json *input*)))
|
||||||
|
|
Loading…
Reference in New Issue