let the past begone in cvs land. welcome to igit igit!

world/drivers/amylaar/include/driver.h

@@ -0,0 +1,13 @@
+#define _INCLUDE_DRIVER_H
+
+// for debug outputs
+#define DRIVER_TYPE	"amylaar"
+
+// amylaar has closures
+#define DRIVER_HAS_CLOSURES
+
+// amylaar introduced those ugly but runtime-effective closures
+#define DRIVER_HAS_LAMBDA_CLOSURES
+
+// amylaar provides "compile_object" in master.c
+#define DRIVER_HAS_RENAMED_CLONES

world/drivers/amylaar/include/interface.h

@@ -0,0 +1,54 @@
+#define _INCLUDE_INTERFACE_H
+
+#define AMYLAAR
+
+// manual change here.. hmmm
+#define DRIVER_VERSION	"LPMUD/3.2.1.125"
+
+// driver abstraction kit -- abstraction layer from driver details
+
+#define	next_input_to(CALLBACK)	input_to(CALLBACK);
+
+#pragma combine_strings
+#pragma verbose_errors
+
+#if __EFUN_DEFINED__(strstr)
+// rexxism: is small an abbreviation of big?
+# define abbrev(SMALL, BIG)     (strstr(BIG, SMALL) == 0)
+// the same thing at the tail of the string
+# define trail(SMALL, BIG)      (strstr(BIG, SMALL, -strlen(SMALL)) != -1)
+#else
+# define abbrev(SMALL, BIG)     (SMALL == BIG[0..strlen(SMALL)-1])
+# define trail(SMALL, BIG)      (SMALL == BIG[<strlen(SMALL)..])
+#endif
+
+// generic string replacer
+#define	prereplace(s)		(" "+s+" ")
+#define replace(s, o, n)	implode(explode(s, o), n)
+#define	postreplace(s)		(s = s[1..<2])
+
+// let's use index() for strings and arrays
+// to avoid confusion with mapping-member semantics
+//
+#define	index member
+#define	rindex rmember
+
+#define send_udp(host, port, msg)	send_imp(host, port, msg)
+#define query_udp_port			query_imp_port
+
+// compare strings ignoring case
+#define	stricmp(one, two)		(lower_case(one) != lower_case(two))
+
+#define clonep(ob)	(objectp(ob) && member(file_name(ob), '#') >= 0)
+
+#define	o2s(ob)		to_string(ob)
+
+// object to (relative) http URL conversion macros
+#define object2url(ob)	replace( to_string(ob), "#", "," )
+#define url2object(ob)	replace( to_string(ob), ",", "#" )
+
+// varargs introduced in 3.2.1@132
+#define	varargs
+
+#define	AMOUNT_SOCKETS	sizeof(users())
+

world/drivers/amylaar/library/classic.i

@@ -0,0 +1 @@
+#include "../../ldmud/library/classic.i"

world/drivers/amylaar/library/library.c

@@ -0,0 +1 @@
+#include "../../ldmud/library/library.c"

world/drivers/amylaar/library/living.i

@@ -0,0 +1 @@
+#include "../../ldmud/library/living.i"

world/drivers/amylaar/master/classic.i

@@ -0,0 +1 @@
+#include "../../ldmud/master/classic.i"

world/drivers/amylaar/master/master.i

@@ -0,0 +1 @@
+#include "../../ldmud/master/master.i"

world/drivers/amylaar/master/psycmuve.i

@@ -0,0 +1 @@
+#include "../../ldmud/master/psycmuve.i"

world/drivers/amylaar/sys/driver_hook.h

@@ -0,0 +1,17 @@
+#define H_MOVE_OBJECT0	 0
+#define H_MOVE_OBJECT1	 1
+#define H_LOAD_UIDS	 2
+#define H_CLONE_UIDS	 3
+#define H_CREATE_SUPER	 4
+#define H_CREATE_OB	 5
+#define H_CREATE_CLONE	 6
+#define H_RESET		 7
+#define H_CLEAN_UP	 8
+#define H_MODIFY_COMMAND 9
+#define H_NOTIFY_FAIL	10
+#define H_NO_IPC_SLOT	11
+#define H_INCLUDE_DIRS	12
+#define H_TELNET_NEG	13
+#define H_NOECHO	14
+#define H_ERQ_STOP	15
+#define H_MODIFY_COMMAND_FNAME 16

world/drivers/amylaar/sys/erq.h

@@ -0,0 +1,43 @@
+/* external request demon interface definitions */
+#ifndef ERQ_H
+#define ERQ_H
+
+/* servive request types */
+
+#define ERQ_RLOOKUP  0
+#define ERQ_EXECUTE  1
+#define ERQ_FORK     2
+#define ERQ_AUTH     3
+#define ERQ_SPAWN    4
+#define ERQ_SEND     5
+#define ERQ_KILL     6
+#define ERQ_OPEN_UDP 7
+#define ERQ_OPEN_TCP 8
+#define ERQ_LISTEN   9
+
+/* answers from ERQ_EXECUTE / ERQ_FORK */
+
+#define ERQ_OK		  0
+#define ERQ_SIGNALED	  1
+#define ERQ_E_NOTFOUND	  2 /* process not found by wait */
+#define ERQ_E_UNKNOWN	  3 /* unknown exit condition from wait() */
+#define ERQ_E_ARGLENGTH	  4
+#define ERQ_E_ARGFORMAT	  5
+#define ERQ_E_ARGNUMBER	  6
+#define ERQ_E_ILLEGAL	  7
+#define ERQ_E_PATHLEN	  8
+#define ERQ_E_FORKFAIL	  9
+#define ERQ_E_TICKET	 11
+#define ERQ_E_INCOMPLETE 12
+#define ERQ_E_WOULDBLOCK 13
+#define ERQ_E_PIPE	 14
+#define ERQ_STDOUT	 15
+#define ERQ_STDERR	 16
+#define ERQ_EXITED	 17
+#define ERQ_E_NSLOTS     18
+
+/* reserved handles */
+
+#define ERQ_HANDLE_RLOOKUP (-1)
+
+#endif /* ERQ_H */

world/drivers/amylaar/sys/errno.h

@@ -0,0 +1,129 @@
+/* these are the linux values.. */
+
+#define	EPERM		 1	/* Operation not permitted */
+#define	ENOENT		 2	/* No such file or directory */
+#define	ESRCH		 3	/* No such process */
+#define	EINTR		 4	/* Interrupted system call */
+#define	EIO		 5	/* I/O error */
+#define	ENXIO		 6	/* No such device or address */
+#define	E2BIG		 7	/* Arg list too long */
+#define	ENOEXEC		 8	/* Exec format error */
+#define	EBADF		 9	/* Bad file number */
+#define	ECHILD		10	/* No child processes */
+#define	EAGAIN		11	/* Try again */
+#define	ENOMEM		12	/* Out of memory */
+#define	EACCES		13	/* Permission denied */
+#define	EFAULT		14	/* Bad address */
+#define	ENOTBLK		15	/* Block device required */
+#define	EBUSY		16	/* Device or resource busy */
+#define	EEXIST		17	/* File exists */
+#define	EXDEV		18	/* Cross-device link */
+#define	ENODEV		19	/* No such device */
+#define	ENOTDIR		20	/* Not a directory */
+#define	EISDIR		21	/* Is a directory */
+#define	EINVAL		22	/* Invalid argument */
+#define	ENFILE		23	/* File table overflow */
+#define	EMFILE		24	/* Too many open files */
+#define	ENOTTY		25	/* Not a typewriter */
+#define	ETXTBSY		26	/* Text file busy */
+#define	EFBIG		27	/* File too large */
+#define	ENOSPC		28	/* No space left on device */
+#define	ESPIPE		29	/* Illegal seek */
+#define	EROFS		30	/* Read-only file system */
+#define	EMLINK		31	/* Too many links */
+#define	EPIPE		32	/* Broken pipe */
+#define	EDOM		33	/* Math argument out of domain of func */
+#define	ERANGE		34	/* Math result not representable */
+#define	EDEADLK		35	/* Resource deadlock would occur */
+#define	ENAMETOOLONG	36	/* File name too long */
+#define	ENOLCK		37	/* No record locks available */
+#define	ENOSYS		38	/* Function not implemented */
+#define	ENOTEMPTY	39	/* Directory not empty */
+#define	ELOOP		40	/* Too many symbolic links encountered */
+#define	EWOULDBLOCK	EAGAIN	/* Operation would block */
+#define	ENOMSG		42	/* No message of desired type */
+#define	EIDRM		43	/* Identifier removed */
+#define	ECHRNG		44	/* Channel number out of range */
+#define	EL2NSYNC	45	/* Level 2 not synchronized */
+#define	EL3HLT		46	/* Level 3 halted */
+#define	EL3RST		47	/* Level 3 reset */
+#define	ELNRNG		48	/* Link number out of range */
+#define	EUNATCH		49	/* Protocol driver not attached */
+#define	ENOCSI		50	/* No CSI structure available */
+#define	EL2HLT		51	/* Level 2 halted */
+#define	EBADE		52	/* Invalid exchange */
+#define	EBADR		53	/* Invalid request descriptor */
+#define	EXFULL		54	/* Exchange full */
+#define	ENOANO		55	/* No anode */
+#define	EBADRQC		56	/* Invalid request code */
+#define	EBADSLT		57	/* Invalid slot */
+
+#define	EDEADLOCK	EDEADLK
+
+#define	EBFONT		59	/* Bad font file format */
+#define	ENOSTR		60	/* Device not a stream */
+#define	ENODATA		61	/* No data available */
+#define	ETIME		62	/* Timer expired */
+#define	ENOSR		63	/* Out of streams resources */
+#define	ENONET		64	/* Machine is not on the network */
+#define	ENOPKG		65	/* Package not installed */
+#define	EREMOTE		66	/* Object is remote */
+#define	ENOLINK		67	/* Link has been severed */
+#define	EADV		68	/* Advertise error */
+#define	ESRMNT		69	/* Srmount error */
+#define	ECOMM		70	/* Communication error on send */
+#define	EPROTO		71	/* Protocol error */
+#define	EMULTIHOP	72	/* Multihop attempted */
+#define	EDOTDOT		73	/* RFS specific error */
+#define	EBADMSG		74	/* Not a data message */
+#define	EOVERFLOW	75	/* Value too large for defined data type */
+#define	ENOTUNIQ	76	/* Name not unique on network */
+#define	EBADFD		77	/* File descriptor in bad state */
+#define	EREMCHG		78	/* Remote address changed */
+#define	ELIBACC		79	/* Can not access a needed shared library */
+#define	ELIBBAD		80	/* Accessing a corrupted shared library */
+#define	ELIBSCN		81	/* .lib section in a.out corrupted */
+#define	ELIBMAX		82	/* Attempting to link in too many shared libraries */
+#define	ELIBEXEC	83	/* Cannot exec a shared library directly */
+#define	EILSEQ		84	/* Illegal byte sequence */
+#define	ERESTART	85	/* Interrupted system call should be restarted */
+#define	ESTRPIPE	86	/* Streams pipe error */
+#define	EUSERS		87	/* Too many users */
+#define	ENOTSOCK	88	/* Socket operation on non-socket */
+#define	EDESTADDRREQ	89	/* Destination address required */
+#define	EMSGSIZE	90	/* Message too long */
+#define	EPROTOTYPE	91	/* Protocol wrong type for socket */
+#define	ENOPROTOOPT	92	/* Protocol not available */
+#define	EPROTONOSUPPORT	93	/* Protocol not supported */
+#define	ESOCKTNOSUPPORT	94	/* Socket type not supported */
+#define	EOPNOTSUPP	95	/* Operation not supported on transport endpoint */
+#define	EPFNOSUPPORT	96	/* Protocol family not supported */
+#define	EAFNOSUPPORT	97	/* Address family not supported by protocol */
+#define	EADDRINUSE	98	/* Address already in use */
+#define	EADDRNOTAVAIL	99	/* Cannot assign requested address */
+#define	ENETDOWN	100	/* Network is down */
+#define	ENETUNREACH	101	/* Network is unreachable */
+#define	ENETRESET	102	/* Network dropped connection because of reset */
+#define	ECONNABORTED	103	/* Software caused connection abort */
+#define	ECONNRESET	104	/* Connection reset by peer */
+#define	ENOBUFS		105	/* No buffer space available */
+#define	EISCONN		106	/* Transport endpoint is already connected */
+#define	ENOTCONN	107	/* Transport endpoint is not connected */
+#define	ESHUTDOWN	108	/* Cannot send after transport endpoint shutdown */
+#define	ETOOMANYREFS	109	/* Too many references: cannot splice */
+#define	ETIMEDOUT	110	/* Connection timed out */
+#define	ECONNREFUSED	111	/* Connection refused */
+#define	EHOSTDOWN	112	/* Host is down */
+#define	EHOSTUNREACH	113	/* No route to host */
+#define	EALREADY	114	/* Operation already in progress */
+#define	EINPROGRESS	115	/* Operation now in progress */
+#define	ESTALE		116	/* Stale NFS file handle */
+#define	EUCLEAN		117	/* Structure needs cleaning */
+#define	ENOTNAM		118	/* Not a XENIX named type file */
+#define	ENAVAIL		119	/* No XENIX semaphores available */
+#define	EISNAM		120	/* Is a named type file */
+#define	EREMOTEIO	121	/* Remote I/O error */
+#define	EDQUOT		122	/* Quota exceeded */
+
+#define	ENOMEDIUM	123	/* No medium found */
+#define	EMEDIUMTYPE	124	/* Wrong medium type */

world/drivers/amylaar/sys/functionlist.h

@@ -0,0 +1,22 @@
+#ifndef FUNCTIONLIST_H
+#define FUNCTIONLIST_H
+
+#include "/sys/lpctypes.h"
+
+#define RETURN_FUNCTION_NAME	0x01
+#define RETURN_FUNCTION_FLAGS	0x02
+#define RETURN_FUNCTION_TYPE	0x04
+#define RETURN_FUNCTION_NUMARG	0x08
+#define RETURN_FUNCTION_ARGTYPE 0x10 /* not implemented */
+
+#define NAME_INHERITED          0x80000000 /* Defined by inheritance         */
+#define TYPE_MOD_STATIC         0x40000000 /* Static function or variable    */
+#define TYPE_MOD_NO_MASK        0x20000000 /* The nomask => not redefineable */
+#define TYPE_MOD_PRIVATE        0x10000000 /* Can't be inherited             */
+#define TYPE_MOD_PUBLIC         0x08000000 /* Force inherit through private  */
+#define TYPE_MOD_VARARGS        0x04000000 /* Used for type checking         */
+#define TYPE_MOD_PROTECTED      0x01000000 /* cannot be called externally    */
+#define NAME_HIDDEN             0x00000800 /* Not visible for inheritance    */
+#define NAME_UNDEFINED          0x00000200 /* Not defined yet                */
+
+#endif /* FUNCTIONLIST_H */

world/drivers/amylaar/sys/lpctypes.h

@@ -0,0 +1,45 @@
+#ifndef LPCTYPES_H
+#define LPCTYPES_H
+
+/* compile time types, from functionlist() */
+
+#define TYPE_UNKNOWN    0       /* This type must be casted */
+#define TYPE_NUMBER     1
+#define TYPE_STRING     2
+#define TYPE_VOID       3
+#define TYPE_OBJECT     4
+#define TYPE_MAPPING    5
+#define TYPE_FLOAT      6
+#define TYPE_ANY        7       /* Will match any type */
+#define TYPE_SPACE      8
+#define TYPE_CLOSURE    9
+#define TYPE_SYMBOL    10
+#define TYPE_QUOTED_ARRAY 11
+#define TYPE_TERM      12
+
+#define TYPE_MOD_POINTER        0x0040  /* Pointer to a basic type        */
+
+/* runtime types, from typeof() */
+
+#define T_INVALID       0x0
+#define T_LVALUE        0x1
+#define T_NUMBER        0x2
+#define T_STRING        0x3
+#define T_POINTER       0x4
+#define T_OBJECT        0x5
+#define T_MAPPING       0x6
+#define T_FLOAT         0x7
+#define T_CLOSURE       0x8
+#define T_SYMBOL        0x9
+#define T_QUOTED_ARRAY  0xa
+
+#define CLOSURE_IS_LFUN(x)		(((x)&~1) == 0)
+#define CLOSURE_IS_IDENTIFIER(x)	((x) == 2)
+#define CLOSURE_IS_BOUND_LAMBDA(x)	((x) == 4)
+#define CLOSURE_IS_LAMBDA(x)		((x) == 5)
+#define CLOSURE_IS_UNBOUND_LAMBDA(x)	((x) == 6)
+#define CLOSURE_IS_SIMUL_EFUN(x) (((x) & 0xf800) == 0xf800)
+#define CLOSURE_IS_EFUN(x)	 (((x) & 0xf800) == 0xf000)
+#define CLOSURE_IS_OPERATOR(x)	 (((x) & 0xf800) == 0xe800)
+
+#endif /* LPCTYPES_H */

world/drivers/amylaar/sys/sent.h

@@ -0,0 +1,5 @@
+#define SENT_PLAIN	0
+#define SENT_SHORT_VERB	1
+#define SENT_NO_SPACE	2
+#define SENT_NO_VERB	3
+#define SENT_MARKER	4

world/drivers/amylaar/sys/wizlist.h

@@ -0,0 +1,10 @@
+#ifndef WIZLIST_H
+#define WIZLIST_H
+#define WL_NAME 	0
+#define WL_COMMANDS	1
+#define WL_EVAL_COST	2
+#define WL_HEART_BEATS  3
+#define WL_CALL_OUT	4 /* unimplemented */
+#define WL_ARRAY_TOTAL	5
+#define WL_EXTRA	6
+#endif /* WIZLIST_H */