From 80ffd8979949788f951b32ebf67d401f1cd26a25 Mon Sep 17 00:00:00 2001 From: Jan Sucan Date: Tue, 5 Aug 2025 11:01:59 +0200 Subject: ch23: Add info about compiling and running the application --- ch23/support/patches/gtk2hs-buildtools-0.13.5.0.patch | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 ch23/support/patches/gtk2hs-buildtools-0.13.5.0.patch (limited to 'ch23/support/patches/gtk2hs-buildtools-0.13.5.0.patch') diff --git a/ch23/support/patches/gtk2hs-buildtools-0.13.5.0.patch b/ch23/support/patches/gtk2hs-buildtools-0.13.5.0.patch new file mode 100644 index 0000000..9052c9d --- /dev/null +++ b/ch23/support/patches/gtk2hs-buildtools-0.13.5.0.patch @@ -0,0 +1,12 @@ +diff -rupN gtk2hs-buildtools-0.13.5.0/c2hs/c/CLexer.x new-gtk2hs-buildtools-0.13.5.0/c2hs/c/CLexer.x +--- gtk2hs-buildtools-0.13.5.0/c2hs/c/CLexer.x 1970-01-01 01:00:00.000000000 +0100 ++++ new-gtk2hs-buildtools-0.13.5.0/c2hs/c/CLexer.x 2025-08-01 14:51:49.676123965 +0200 +@@ -130,7 +130,7 @@ $white+ ; + -- * allows further ints after the file name a la GCC; as the GCC CPP docu + -- doesn't say how many ints there can be, we allow an unbound number + -- +-\#$space*@int$space*(\"($infname|@charesc)*\"$space*)?(@int$space*)*$eol ++\#$space*@digits$space*(\"($infname|@charesc)*\"$space*)?(@int$space*)*$eol + { \pos len str -> setPos (adjustPos (take len str) pos) >> lexToken } + + -- #pragma directive (K&R A12.8) -- cgit v1.2.3