[DGD] 2.4.5 for 1.3 patches

[Greg Lewis]

G'day all,

I've played a little bit with 2.4.5-for-1.1.tgz and 1.3.  Here is a patch
that gets things working for me.  It's pretty basic, and could do with some
more work, but at least I can go tickle Harry in the stomach again...

It's also available at

http://www.eyesbeyond.com/dgd/2.4.5-1.3.diff

I've no real interest or time to take this any further, please feel free
to do with it what you will.

--- lpmud.dgd.orig	2009-07-03 22:33:04.000000000 -0700
+++ lpmud.dgd	2009-07-03 22:34:31.000000000 -0700
@@ -12,6 +12,7 @@
 static_chunk	= 64512;		/* static memory chunk */
 dynamic_chunk	= 261120;		/* dynamic memory chunk */
 dump_file	= "../dump";		/* state dump file */
+dump_interval	= 3600;			/* dump interval in seconds */
 
 typechecking	= 0;			/* global typechecking */
 include_file	= "/dgd/include/auto.h"; /* standard include file */
--- 2.4.5/dgd/sys/driver.c.orig	1996-11-28 14:23:11.000000000 -0800
+++ 2.4.5/dgd/sys/driver.c	2009-07-05 19:04:50.000000000 -0700
@@ -143,12 +143,40 @@
 }
 
 /*
+ * NAME:	touch()
+ * DESCRIPTION: determine whether to preserve untouched status.
+ */
+static int touch(object obj, string function)
+{
+    return 0;
+}
+
+/*
  * NAME:	inherit_program()
  * DESCRIPTION:	get an object to inherit
  */
-static object inherit_program(string file, string path)
+static object inherit_program(string file, string path, int priv)
+{
+    object obj;
+
+    file = path_object(path);
+    obj = find_object(file);
+    if (obj == 0) {
+	obj = compile_object(file);
+    }
+    return obj;
+}
+
+/*
+ * NAME:	include_file()
+ * DESCRIPTION:	translate an include path
+ */
+static mixed include_file(string file, string path)
 {
-    return call_object(path);
+    if (path[0] != '/') {
+	return file + "/../" + path;
+    }
+    return path;
 }
 
 /*
@@ -183,7 +211,7 @@
  * NAME:	telnet_connect()
  * DESCRIPTION:	return a player object
  */
-static object telnet_connect()
+static object telnet_connect(int port)
 {
     object user, player;
 
@@ -204,7 +232,7 @@
  * NAME:	binary_connect()
  * DESCRIPTION:	return another player object (just to test)
  */
-static object binary_connect()
+static object binary_connect(int port)
 {
     object user, player;
 
@@ -225,7 +253,7 @@
  * NAME:	runtime_error()
  * DESCRIPTION:	log a runtime error
  */
-static void runtime_error(string error, int caught)
+static void runtime_error(string error, int caught, int ticks)
 {
     mixed **trace;
     string progname, objname, function, str;
@@ -315,6 +343,15 @@
 }
 
 /*
+ * NAME:	atomic_error()
+ * DESCRIPTION:	deal with an atomic error
+ */
+static void atomic_error(string error, int atom, int ticks)
+{
+    send_message(error + "\n");
+}
+
+/*
  * NAME:	interrupt()
  * DESCRIPTION:	deal with a kill signal
  */
@@ -377,3 +414,12 @@
 {
     return 0;	/* No. */
 }
+
+/*
+ * NAME:	object_type()
+ * DESCRIPTION:	translate the object path used in a type declaration
+ */
+static string object_type(string file, string type)
+{
+    return type;
+}

-- 
Greg Lewis                          Email   : glewis at eyesbeyond.com
Eyes Beyond                         Web     : http://www.eyesbeyond.com
Information Technology              FreeBSD : glewis at FreeBSD.org