diff options
Diffstat (limited to '')
-rwxr-xr-x | cpp | 22 |
1 files changed, 22 insertions, 0 deletions
@@ -0,0 +1,22 @@ +#!/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 ((env tokens (preprocess-string (read-file (cadr args)) (make-default-environment)))) + (pprint-environment env) + (newline) + (display (unlex tokens)) + (newline) + )) |