From 283eea2de427603e2c347ff9991f4955589a2a3f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Sun, 9 Jun 1996 16:33:20 +0200
Subject: [PATCH] sort array now uses sort()
Rev: lib/simulate.lpc:1.15
---
lib/simulate.lpc | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/lib/simulate.lpc b/lib/simulate.lpc
index 8da82da8f8..0eead87e02 100644
--- a/lib/simulate.lpc
+++ b/lib/simulate.lpc
@@ -274,7 +274,13 @@ varargs mixed *sort_array(array foo,function cmp, mixed ... args)
int length;
int foop, fooend, barp, barend;
- if(!cmp) cmp=`>;
+ if(!cmp || cmp==`>)
+ {
+ foo+=({});
+ sort(foo);
+ return foo;
+ }
+
length=sizeof(foo);
foo+=({});
@@ -379,7 +385,7 @@ void create()
add_efun("sum_arrays",sum_arrays);
add_efun("system",system);
add_efun("this_function",this_function);
- add_efun("version",lambda() { return "uLPC v1.0E-8"; });
+ add_efun("version",lambda() { return "uLPC v1.0E-7"; });
add_efun("write_file",write_file);
}
--
GitLab