From fcecde0f699162f4043648da3c2eefa2cc341e10 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 21 Jul 2022 18:18:08 +0200
Subject: Add sample cpp "binary".

---
 cpp | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 cpp

diff --git a/cpp b/cpp
new file mode 100755
index 00000000..127a4920
--- /dev/null
+++ b/cpp
@@ -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)
+    ))
-- 
cgit v1.2.3