rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

replace adjacent whitespace characters with a single SPACE character

Browse Source
This commit is contained in:
Markus Triska
2023-08-27 12:55:29 +02:00
parent 9b96735615
commit 75aec69de1
1 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/lib/xpath.pl
View File

@@ -642,7 +642,8 @@ normalize_space(Cs0, Cs) :-
no_leading_whitespace(Cs0, Cs1), no_leading_whitespace(Cs0, Cs1),
reverse(Cs1, Cs2), reverse(Cs1, Cs2),
no_leading_whitespace(Cs2, Cs3), no_leading_whitespace(Cs2, Cs3),
reverse(Cs3, Cs). reverse(Cs3, Cs4),
single_intermediate_space(Cs4, Cs).
no_leading_whitespace([], []). no_leading_whitespace([], []).
no_leading_whitespace([C0|Cs0], Cs) :- no_leading_whitespace([C0|Cs0], Cs) :-
@@ -650,3 +651,13 @@ no_leading_whitespace([C0|Cs0], Cs) :-
no_leading_whitespace(Cs0, Cs) no_leading_whitespace(Cs0, Cs)
; Cs = [C0|Cs0] ; Cs = [C0|Cs0]
). ).
single_intermediate_space([], []).
single_intermediate_space([C0|Cs0], [C|Cs]) :-
( char_type(C0, whitespace) ->
no_leading_whitespace(Cs0, Cs1),
C = ' ',
single_intermediate_space(Cs1, Cs)
; C = C0,
single_intermediate_space(Cs0, Cs)
).