diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use indexing to make the code easier to follow.

Browse Source
This commit is contained in:
Vitor Santos Costa 2018-04-09 22:16:50 +01:00
parent 04c38ecc29
commit ec8eb89cc7
1 changed files with 42 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
pl/messages.yap
View File

@ -780,28 +780,48 @@ syntax_error_token(nl, _, LC) --> !,
syntax_error_token(B,_, _LC) --> !, syntax_error_token(B,_, _LC) --> !,
[ nl, 'bad_token: ~q' - [B], nl ]. [ nl, 'bad_token: ~q' - [B], nl ].
print_lines( S, A, Key) -->
[Tok],
print_lines_(Tok, S, A, Key).
print_lines( S, _, Key) -->
[nl, end(Key0)], print_lines_( at_same_line, S, Prefix, Key) -->
!,
print_lines( S, Prefix, Key).
print_lines_(begin(Severity, OtherKey), S, Prefixes, Key) -->
!,
{ prefix( Severity, P ) },
print_message_lines(S, [P], OtherKey),
print_lines( S, Prefixes, Key ).
print_lines_( end(Key0), S, _, Key) -->
{ Key0 == Key },
!,
{ nl(S) }.
print_lines_( end(_OtherKey), S, Prefixes, Key) -->
!,
print_lines( S, Prefixes, Key ).
print_lines_( flush, S, _, Key) -->
[ end(Key0)],
{ Key == Key0 },
!,
{ flush_output(S) }.
print_lines_(flush, S, Prefixes, Key) -->
!,
{ flush_output(S) },
print_lines( S, Prefixes, Key ).
!,
print_lines( S, Prefixes, Key ).
print_lines_(format(Fmt,Args), S, Prefixes, Key) -->
!,
{ format(S, Fmt, Args) },
print_lines( S, Prefixes, Key ).
print_lines_( nl, S, _, Key) -->
[ end(Key0)],
{ Key == Key0 }, { Key == Key0 },
!, !,
{ nl(S), { nl(S),
flush_output(S) }. flush_output(S) }.
print_lines( S, _, Key) --> print_lines_(nl, S, Prefixes, Key) -->
[flush, end(Key0)],
{ Key == Key0 },
!,
{ flush_output(S) }.
print_lines(S, _, Key) -->
[ end(Key0) ],
{ Key0 == Key }, !,
{ nl(S) }.
print_lines( S, Prefix, Key) -->
[at_same_line],
!,
print_lines( S, Prefix, Key).
print_lines( S, Prefixes, Key) -->
[nl],
!, !,
{ nl(S), { nl(S),
Prefixes = [PrefixS - Cmds|More], Prefixes = [PrefixS - Cmds|More],
@ -815,50 +835,25 @@ print_lines( S, Prefixes, Key) -->
NPrefixes = More NPrefixes = More
}, },
print_lines( S, NPrefixes, Key). print_lines( S, NPrefixes, Key).
print_lines( S, Prefixes, Key) -->
[flush],
!,
{ flush_output(S) },
print_lines( S, Prefixes, Key ).
print_lines(S, Prefixes, Key) -->
[end(_OtherKey)],
!,
print_lines( S, Prefixes, Key ).
% consider this a message within the message % consider this a message within the message
print_lines(S, Prefixes, Key) --> print_lines_(prefix(Fmt-Args), S, Prefixes, Key) -->
[begin(Severity, OtherKey)],
!,
{ prefix( Severity, P ) },
print_message_lines(S, [P], OtherKey),
print_lines( S, Prefixes, Key ).
print_lines(S, Prefixes, Key) -->
[prefix(Fmt-Args)],
!, !,
print_lines( S, [Fmt-Args|Prefixes], Key ). print_lines( S, [Fmt-Args|Prefixes], Key ).
print_lines(S, Prefixes, Key) --> print_lines_(prefix(Fmt), S, Prefixes, Key) -->
[prefix(Fmt)],
{ atom( Fmt ) ; string( Fmt ) }, { atom( Fmt ) ; string( Fmt ) },
!, !,
print_lines( S, [Fmt-[]|Prefixes], Key ). print_lines( S, [Fmt-[]|Prefixes], Key ).
print_lines(S, Prefixes, Key) --> print_lines_(Fmt-Args, S, Prefixes, Key) -->
[Fmt-Args],
!,
{ format(S, Fmt, Args) },
print_lines( S, Prefixes, Key ).
print_lines(S, Prefixes, Key) -->
[format(Fmt,Args)],
!, !,
{ format(S, Fmt, Args) }, { format(S, Fmt, Args) },
print_lines( S, Prefixes, Key ). print_lines( S, Prefixes, Key ).
% deprecated.... % deprecated....
print_lines(S, Prefixes, Key) --> print_lines_(Fmt, S, Prefixes, Key) -->
[ Fmt ],
{ atom(Fmt) ; string( Fmt ) }, { atom(Fmt) ; string( Fmt ) },
!, !,
{ format(S, Fmt, []) }, { format(S, Fmt, []) },
print_lines(S, Prefixes, Key). print_lines(S, Prefixes, Key).
print_lines(S, _Prefixes, _Key) --> print_lines_(Msg, S, _Prefixes, _Key) -->
[ Msg ],
{ format(S, 'Illegal message Component: ~q !!!.~n', [Msg]) }. { format(S, 'Illegal message Component: ~q !!!.~n', [Msg]) }.
prefix(help, '~N'-[]). prefix(help, '~N'-[]).