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
   13% Define "all of line" comment
   14aol_comment('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))