From 92f7852b6979239214848b7ebb4046d52e4aba06 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Sun, 13 Feb 2022 13:25:39 +0100 Subject: Begin Win32 re-implementation. --- atom_dcg.pl | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 atom_dcg.pl (limited to 'atom_dcg.pl') diff --git a/atom_dcg.pl b/atom_dcg.pl new file mode 100644 index 0000000..74689d5 --- /dev/null +++ b/atom_dcg.pl @@ -0,0 +1,11 @@ +:- module(atom_dcg, [atom_phrase/2]). + +:- meta_predicate atom_phrase(2, ?). + +atom_phrase(G, A) :- + ( var(A) + -> phrase(G, C), + atom_codes(A, C) + ; atom_codes(A, C), + phrase(G, C) + ). -- cgit v1.2.3