mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2025-12-16 22:35:41 +00:00
Code Issues Projects Releases Wiki Activity

Delete some unused old code.

Browse Source 
Estimated hours taken: 0.1
Branches: main

compiler/prog_out.m:
	Delete some unused old code.
This commit is contained in:
Fergus Henderson
2002-03-25 19:27:29 +00:00
parent e643f5c691
commit 0c46efa1fc
1 changed files with 0 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
compiler/prog_out.m
View File

@@ -30,13 +30,6 @@
:- pred prog_out__context_to_string(prog_context, string).
:- mode prog_out__context_to_string(in, out) is det.
% XXX This pred should be deleted, and all uses replaced with
% XXX error_util:write_error_pieces, once zs has committed that
% XXX error_util.m.
:- pred prog_out__write_strings_with_context(prog_context, list(string),
io__state, io__state).
:- mode prog_out__write_strings_with_context(in, in, di, uo) is det.
% Write out a symbol name, with special characters escaped,
% but without any quotes. This is suitable for use in
% error messages, where the caller should print out an
@@ -163,52 +156,6 @@ prog_out__context_to_string(Context, ContextMessage) :-
ContextMessage)
).
%-----------------------------------------------------------------------------%
prog_out__write_strings_with_context(Context, Strings) -->
{ prog_out__context_to_string(Context, ContextMessage) },
{ string__length(ContextMessage, ContextLength) },
prog_out__write_strings_with_context_2(ContextMessage,
ContextLength, Strings, 0).
:- pred prog_out__write_strings_with_context_2(string, int, list(string), int,
io__state, io__state).
:- mode prog_out__write_strings_with_context_2(in, in, in, in, di, uo) is det.
prog_out__write_strings_with_context_2(_ContextMessage, _ContextLength,
[], _) --> [].
prog_out__write_strings_with_context_2(ContextMessage, ContextLength,
[S|Ss], N0) -->
{ string__length(S, MessageLength) },
(
{ N0 = 0 }
->
io__write_string(ContextMessage),
io__write_string(" "),
io__write_string(S),
{ N is ContextLength + MessageLength },
{ Rest = Ss }
;
{ N1 is MessageLength + N0 },
{ num_columns(NumColumns) },
{ N1 < NumColumns }
->
io__write_string(S),
{ N = N1 },
{ Rest = Ss }
;
io__write_char('\n'),
{ N = 0 },
{ Rest = [S|Ss] }
),
prog_out__write_strings_with_context_2(ContextMessage,
ContextLength, Rest, N).
:- pred num_columns(int::out) is det.
num_columns(80).
%-----------------------------------------------------------------------------%
% write out a (possibly qualified) symbol name