Commit | Line | Data |
---|---|---|
811d10f5 AW |
1 | ;;; Tree Intermediate Language |
2 | ||
180ac9d7 | 3 | ;; Copyright (C) 2009, 2010, 2011, 2013 Free Software Foundation, Inc. |
811d10f5 | 4 | |
53befeb7 NJ |
5 | ;;;; This library is free software; you can redistribute it and/or |
6 | ;;;; modify it under the terms of the GNU Lesser General Public | |
7 | ;;;; License as published by the Free Software Foundation; either | |
8 | ;;;; version 3 of the License, or (at your option) any later version. | |
9 | ;;;; | |
10 | ;;;; This library is distributed in the hope that it will be useful, | |
11 | ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 | ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
13 | ;;;; Lesser General Public License for more details. | |
14 | ;;;; | |
15 | ;;;; You should have received a copy of the GNU Lesser General Public | |
16 | ;;;; License along with this library; if not, write to the Free Software | |
17 | ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA | |
811d10f5 AW |
18 | |
19 | ;;; Code: | |
20 | ||
21 | (define-module (language tree-il spec) | |
22 | #:use-module (system base language) | |
8753fd53 | 23 | #:use-module (system base pmatch) |
811d10f5 | 24 | #:use-module (language tree-il) |
4fefc3a8 | 25 | #:use-module (language tree-il compile-cps) |
811d10f5 AW |
26 | #:export (tree-il)) |
27 | ||
28 | (define (write-tree-il exp . port) | |
29 | (apply write (unparse-tree-il exp) port)) | |
30 | ||
811d10f5 | 31 | (define (join exps env) |
8753fd53 AW |
32 | (pmatch exps |
33 | (() (make-void #f)) | |
34 | ((,x) x) | |
6fc3eae4 AW |
35 | ((,x . ,rest) |
36 | (make-seq #f x (join rest env))) | |
86e449a6 | 37 | (else (error "what!" exps env)))) |
811d10f5 AW |
38 | |
39 | (define-language tree-il | |
40 | #:title "Tree Intermediate Language" | |
4b2afc62 | 41 | #:reader (lambda (port env) (read port)) |
811d10f5 | 42 | #:printer write-tree-il |
b81d329e | 43 | #:parser parse-tree-il |
811d10f5 | 44 | #:joiner join |
ac023564 | 45 | #:compilers `((cps . ,compile-cps)) |
b34e2535 | 46 | #:for-humans? #f |
811d10f5 | 47 | ) |