mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2025-12-14 13:23:53 +00:00
Code Issues Projects Releases Wiki Activity

Some `\n's needed an extra level of escaping because they

Browse Source 
Estimated hours taken: 0.2
Branches: main

extras/references/scoped_update.m:
        Some `\n's needed an extra level of escaping because they
        themselves appeared in escaped string literals.  In at
        least one case this caused a #define to break in the
        generated .c file.
This commit is contained in:
Ralph Becket
2004-03-03 02:54:08 +00:00
parent de011b461e
commit a7eda91023
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
extras/references/scoped_update.m
View File

@@ -1,5 +1,5 @@
%-----------------------------------------------------------------------------% %-----------------------------------------------------------------------------%
% Copyright (C) 1998-1999,2002 University of Melbourne. % Copyright (C) 1998-1999,2002, 2004 The University of Melbourne.
% This file may only be copied under the terms of the GNU Library General % This file may only be copied under the terms of the GNU Library General
% Public License - see the file COPYING.LIB in the Mercury distribution. % Public License - see the file COPYING.LIB in the Mercury distribution.
%-----------------------------------------------------------------------------% %-----------------------------------------------------------------------------%
@@ -90,7 +90,7 @@ void ME_exit_scope_failing(ME_ScopeHandle handle, MR_untrail_reason reason);
#ifdef ME_DEBUG_SCOPE #ifdef ME_DEBUG_SCOPE
#define ME_show_handle(msg, handle) \ #define ME_show_handle(msg, handle) \
printf(""%s <%5d, in: %5d, out: %5d\n"", (msg), \ printf(""%s <%5d, in: %5d, out: %5d\\n"", (msg), \
*(int *) (handle)->var, \ *(int *) (handle)->var, \
(int) (handle)->insideval, \ (int) (handle)->insideval, \
(int) (handle)->outsideval) (int) (handle)->outsideval)
@@ -112,7 +112,7 @@ ME_enter_scope_failing(ME_ScopeHandle handle, MR_untrail_reason reason)
case MR_undo: case MR_undo:
case MR_retry: case MR_retry:
ME_untrail_msg(""ME_enter_scope_failing: "" ME_untrail_msg(""ME_enter_scope_failing: ""
""exception/undo/retry\n""); ""exception/undo/retry\\n"");
ME_show_handle(""=> fail back into scope. old: "", ME_show_handle(""=> fail back into scope. old: "",
handle); handle);
handle->outsideval = *handle->var; handle->outsideval = *handle->var;
@@ -122,7 +122,7 @@ ME_enter_scope_failing(ME_ScopeHandle handle, MR_untrail_reason reason)
break; break;
default: default:
ME_untrail_msg(""ME_enter_scope_failing: default\n""); ME_untrail_msg(""ME_enter_scope_failing: default\\n"");
break; break;
} }
} }
@@ -135,7 +135,7 @@ ME_exit_scope_failing(ME_ScopeHandle handle, MR_untrail_reason reason)
case MR_undo: case MR_undo:
case MR_retry: case MR_retry:
ME_untrail_msg(""ME_exit_scope_failing: "" ME_untrail_msg(""ME_exit_scope_failing: ""
""exception/undo/retry\n""); ""exception/undo/retry\\n"");
ME_show_handle(""<= fail back out of scope. old: "", ME_show_handle(""<= fail back out of scope. old: "",
handle); handle);
*handle->var = handle->outsideval; *handle->var = handle->outsideval;
@@ -146,14 +146,14 @@ ME_exit_scope_failing(ME_ScopeHandle handle, MR_untrail_reason reason)
case MR_commit: case MR_commit:
case MR_solve: case MR_solve:
ME_untrail_msg(""ME_exit_scope_failing: "" ME_untrail_msg(""ME_exit_scope_failing: ""
""commit/solve\n""); ""commit/solve\\n"");
/* This *may* help GC collect more garbage */ /* This *may* help GC collect more garbage */
handle->var = (MR_Word *) 0; handle->var = (MR_Word *) 0;
handle->outsideval = handle->insideval = (MR_Word) 0; handle->outsideval = handle->insideval = (MR_Word) 0;
break; break;
default: default:
ME_untrail_msg(""ME_exit_scope_failing: default\n""); ME_untrail_msg(""ME_exit_scope_failing: default\\n"");
/* we may need to do something if reason == MR_gc */ /* we may need to do something if reason == MR_gc */
break; break;
} }