From 05262fba149cd91854a847076c37e1dc4c4073c1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
 <grubba@grubba.org>
Date: Fri, 27 Jan 2012 18:51:27 +0100
Subject: [PATCH] Tools.AutoDoc.MirarDocParser: values() and indices() on
 Image.Color now have a canonic order.

---
 .../AutoDoc.pmod/MirarDocParser.pike          | 54 +++++++++++++++++++
 1 file changed, 54 insertions(+)

diff --git a/lib/modules/Tools.pmod/AutoDoc.pmod/MirarDocParser.pike b/lib/modules/Tools.pmod/AutoDoc.pmod/MirarDocParser.pike
index 0bc656e7d2..4d3ed32e6f 100644
--- a/lib/modules/Tools.pmod/AutoDoc.pmod/MirarDocParser.pike
+++ b/lib/modules/Tools.pmod/AutoDoc.pmod/MirarDocParser.pike
@@ -30,6 +30,24 @@ constant makepic = ({
     return Image.load(IMAGE_DIR + \"lena.gif\");
   }
 
+  array indices(mixed x)
+  {
+    if (x == Image.Color) {
+      return sort(predef::indices(x));
+    }
+    return predef::indices(x);
+  }
+
+  array values(mixed x)
+  {
+    if (x == Image.Color) {
+      array res = predef::values(x);
+      sort(predef::indices(x), res);
+      return res;
+    }
+    return predef::values(x);
+  }
+
   object|string render();
 
   string make() {
@@ -75,6 +93,24 @@ constant makepic = ({
     return load(IMAGE_DIR + \"lena.gif\");
   }
 
+  array indices(mixed x)
+  {
+    if (x == Image.Color) {
+      return sort(predef::indices(x));
+    }
+    return predef::indices(x);
+  }
+
+  array values(mixed x)
+  {
+    if (x == Image.Color) {
+      array res = predef::values(x);
+      sort(predef::indices(x), res);
+      return res;
+    }
+    return predef::values(x);
+  }
+
   object|string render();
 
   string make() {
@@ -118,6 +154,24 @@ constant makepic = ({
     return load(IMAGE_DIR + \"lena.gif\");
   }
 
+  array indices(mixed x)
+  {
+    if (x == Image.Color) {
+      return sort(predef::indices(x));
+    }
+    return predef::indices(x);
+  }
+
+  array values(mixed x)
+  {
+    if (x == Image.Color) {
+      array res = predef::values(x);
+      sort(predef::indices(x), res);
+      return res;
+    }
+    return predef::values(x);
+  }
+
   object|string render();
 
   string make() {
-- 
GitLab