[m-rev.] diff: use MR_external_fatal_error() in cairo binding

[Julien Fischer]

extras/graphics/mercury_cairo/cairo.image.m:
extras/graphics/mercury_cairo/cairo.pdf.m:
extras/graphics/mercury_cairo/cairo.ps.m:
extras/graphics/mercury_cairo/cairo.svg.m:
 	Use MR_external_fatal_error() instead of MR_fatal_error() since
 	the latter incorrectly identifies the source of the error to be
 	the Mercury runtime.

Julien.

Index: cairo.image.m
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/extras/graphics/mercury_cairo/cairo.image.m,v
retrieving revision 1.2
diff -u -r1.2 cairo.image.m
--- cairo.image.m	7 Sep 2010 14:04:59 -0000	1.2
+++ cairo.image.m	5 Oct 2010 07:10:13 -0000
@@ -127,7 +127,7 @@
              break;

          default:
-            MR_fatal_error(\"invalid status\");
+            MR_external_fatal_error(\"Mercury cairo\", \"invalid status\");
      }
  ").

Index: cairo.pdf.m
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/extras/graphics/mercury_cairo/cairo.pdf.m,v
retrieving revision 1.2
diff -u -r1.2 cairo.pdf.m
--- cairo.pdf.m	7 Sep 2010 14:04:59 -0000	1.2
+++ cairo.pdf.m	5 Oct 2010 07:10:13 -0000
@@ -152,7 +152,8 @@
              break;

          default:
-            MR_fatal_error(\"cairo: unknown PDF surface status\");
+            MR_external_fatal_error(\"Mercury cairo\",
+                \"unknown PDF surface status\");
      }
  #else
      MaybeSurface = MCAIRO_pdf_surface_unsupported();
@@ -167,7 +168,8 @@
      cairo_pdf_surface_set_size(Surface->mcairo_raw_surface,
          Height, Width);
  #else
-    MR_fatal_error(\"Cairo PDF surface not available\");
+    MR_external_fatal_error(\"Mercury cairo\",
+        \"PDF surfaces not supported by this installation\");
  #endif
  ").

Index: cairo.ps.m
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/extras/graphics/mercury_cairo/cairo.ps.m,v
retrieving revision 1.3
diff -u -r1.3 cairo.ps.m
--- cairo.ps.m	10 Sep 2010 14:21:23 -0000	1.3
+++ cairo.ps.m	5 Oct 2010 07:10:13 -0000
@@ -198,7 +198,8 @@
              break;

          default:
-            MR_fatal_error(\"cairo: unknown PostScript surface status\");
+            MR_external_fatal_error(\"Mercury cairo\",
+                \"unknown PostScript surface status\");
      }

  #else
@@ -214,7 +215,8 @@
  #if defined(CAIRO_HAS_PS_SURFACE)
      cairo_ps_surface_restrict_to_level(Surface->mcairo_raw_surface, Level);
  #else
-   MR_fatal_error(\"Cairo PostScript surface not available\");
+   MR_external_fatal_error(\"Mercury cairo\",
+        \" PostScript surfaces are not supported by this installation\");
  #endif
  ").

Index: cairo.svg.m
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/extras/graphics/mercury_cairo/cairo.svg.m,v
retrieving revision 1.2
diff -u -r1.2 cairo.svg.m
--- cairo.svg.m	7 Sep 2010 14:04:59 -0000	1.2
+++ cairo.svg.m	5 Oct 2010 07:10:13 -0000
@@ -160,7 +160,8 @@
              break;

          default:
-            MR_fatal_error(\"cairo: unknown SVG surface status\");
+            MR_external_fatal_error(\"Mercury cairo\",
+                \"unknown SVG surface status\");
      }
  #else
      MaybeSurface = MCAIRO_svg_surface_unsupported();

--------------------------------------------------------------------------
mercury-reviews mailing list
Post messages to:       mercury-reviews at csse.unimelb.edu.au
Administrative Queries: owner-mercury-reviews at csse.unimelb.edu.au
Subscriptions:          mercury-reviews-request at csse.unimelb.edu.au
--------------------------------------------------------------------------