diff options
author | Arun Isaac | 2021-10-12 00:56:36 +0530 |
---|---|---|
committer | Arun Isaac | 2021-10-12 01:16:34 +0530 |
commit | 6a9f39aa381379e406e66ec6f0ba0c68e6ec9660 (patch) | |
tree | 7e2822bbdd55219cf45f8a566d55017e4bed387b /ccwl/yaml.scm | |
parent | ba49bd0ddf6970b70a62093f2ec55cee802fb90b (diff) | |
download | ccwl-6a9f39aa381379e406e66ec6f0ba0c68e6ec9660.tar.gz ccwl-6a9f39aa381379e406e66ec6f0ba0c68e6ec9660.tar.lz ccwl-6a9f39aa381379e406e66ec6f0ba0c68e6ec9660.zip |
ccwl: Implement compiling to graphviz.
* ccwl/yaml.scm (indent-level): Import (ccwl utils). Move to ...
* ccwl/utils.scm (indent-level): ... here.
Export indent-level.
* ccwl/graphviz.scm: New file.
* Makefile.am (SOURCES): Register it.
Diffstat (limited to 'ccwl/yaml.scm')
-rw-r--r-- | ccwl/yaml.scm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/ccwl/yaml.scm b/ccwl/yaml.scm index 256ba1d..8a2b7a5 100644 --- a/ccwl/yaml.scm +++ b/ccwl/yaml.scm @@ -30,6 +30,7 @@ (define-module (ccwl yaml) #:use-module (srfi srfi-26) #:use-module (ice-9 match) + #:use-module (ccwl utils) #:export (scm->yaml scm->yaml-string)) @@ -55,10 +56,6 @@ (display (if atom "true" "false") port)) (else (error "Unknown atom" atom)))) -(define (indent-level port level) - "Emit whitespaces to PORT corresponding to nesting LEVEL." - (display (make-string (* 2 level) #\space) port)) - (define (display-array-element element port level) "Display array ELEMENT to PORT at nesting LEVEL." (display "- " port) |