cpp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

#!/usr/bin/env sh
# -*- mode: scheme -*-
here=$(dirname $(realpath $0))
. $here/env

exec $GUILE -e main -s "$0" "$@"
!#

(use-modules ((c preprocessor2) :select (preprocess-string make-default-environment))
             ((hnh util io) :select (read-file))
             ((c cpp-environment) :select (pprint-environment))
             ((c unlex) :select (unlex))
             (srfi srfi-71)
             (srfi srfi-88))

(define (main args)
  (let* ((content (read-file (cadr args)))
         (env tokens (preprocess-string content (make-default-environment))))
    (pprint-environment env (current-output-port))
    (newline)
    (display "== tokens ==")
    (newline)
    (display (unlex tokens))
    (newline)
    ))