1:- module(tidylog_comment_aol, [aol_comment//1]). 2
3:- use_module(library(tidylog/common),[ end_of_line//0
4 , prefer_none//1
5 , prefer_one//1
6 , rest_of_line//1
7 , when_generating//1
8 , when_parsing//1
9 ]). 10:- use_module(library(tidylog/char),[horizontal//0]). 11
12
('tidylog %full'(Text)) -->
15 when_generating(string_codes(Text,Codes)),
16
17 "%",
18 prefer_one(horizontal),
19 rest_of_line(Codes),
20 prefer_none(horizontal),
21 end_of_line,
22
23 when_parsing(string_codes(Text,Codes))