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

Convert almost all remaining modules in the compiler to use

Browse Source 
Estimated hours taken: 6
Branches: main

compiler/*.m:
	Convert almost all remaining modules in the compiler to use
	"$module, $pred" instead of "this_file" in error messages.

	In a few cases, the old error message was misleading, since it
	contained an incorrect, out-of-date or cut-and-pasted predicate name.

tests/invalid/unresolved_overloading.err_exp:
	Update an expected output containing an updated error message.
This commit is contained in:
Zoltan Somogyi
2011-05-23 05:08:24 +00:00
parent dc79a9a412
commit 295415090e
318 changed files with 3197 additions and 5408 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/xml_documentation.m
View File

@@ -133,7 +133,7 @@ build_comments(S, comments(!.C), comments(!:C), !IO) :-
;
LineResult = error(E),
% XXX we should recover more gracefully from this error.
unexpected(this_file, io.error_message(E))
unexpected($module, $pred, io.error_message(E))
).
% Given a list of characters representing one line,
@@ -191,7 +191,7 @@ maybe_add_comment(Comments, Context, Xml) =
Xml
)
;
unexpected(this_file, "maybe_add_comment: not an element")
unexpected($module, $pred, "not an element")
).
% Get the comment string associated with the given prog_context.
@@ -199,12 +199,9 @@ maybe_add_comment(Comments, Context, Xml) =
:- func get_comment(comments, prog_context) = string.
get_comment(Comments, context(_, Line)) =
%
% XXX at a later date this hard-coded strategy should
% be made more flexible. What I imagine is that the
% user would pass a string saying in what order
% they wish to search for comments.
%
% XXX At a later date this hard-coded strategy should be made
% more flexible. What I imagine is that the user would pass a string
% saying in what order they wish to search for comments.
( comment_on_current_line(Comments, Line, C) ->
C
; comment_directly_above(Comments, Line, C) ->
@@ -338,7 +335,7 @@ import_documentation(InterfaceImportedModules, ImportedModule, !Xmls) :-
),
Xml = elem("import", [], [XmlName, XmlVisibility]),
!:Xmls = [Xml | !.Xmls].
%-----------------------------------------------------------------------------%
%-----------------------------------------------------------------------------%
@@ -822,11 +819,5 @@ xml_list(Tag, F, L) = elem(Tag, [], list.map(F, L)).
nyi(Tag) = tagged_string(Tag, "Not yet implemented!").
%-----------------------------------------------------------------------------%
%-----------------------------------------------------------------------------%
:- func this_file = string.
this_file = "xml_documentation.m".
%-----------------------------------------------------------------------------%
:- end_module check_hlds.xml_documentation.
%-----------------------------------------------------------------------------%