Resolve recursive macros.

1 files changed, 28 insertions, 0 deletions

diff --git a/module/c/cpp-types.scm b/module/c/cpp-types.scm
new file mode 100644
index 00000000..64bf6a7b
--- /dev/null
+++ b/module/c/cpp-types.scm
@@ -0,0 +1,28 @@
+(define-module (c cpp-types)
+  :use-module (c lex2)
+  :use-module (ice-9 match)
+  :use-module (c cpp-util)
+  :export (whitespace-token?
+           comment-token?
+           preprocessing-token?
+           newline-token?
+           identifier-token?))
+
+(define (whitespace-token? x)
+  (eq? 'whitespace (lexeme-type x)))
+
+(define (comment-token? x)
+  (eq? 'comment (lexeme-type x)))
+
+(define (preprocessing-token? x)
+  (eq? 'preprocessing-token (lexeme-type x)))
+
+(define (newline-token? x)
+  (and (whitespace-token? x)
+       (string=? "\n" (lexeme-body x))))
+
+(define (identifier-token? token)
+  (and (preprocessing-token? token)
+       (match (lexeme-body token)
+         (`(identifier ,id) id)
+         (_ #f))))