From 8538a310751370af157292b07404c328948bae7b Mon Sep 17 00:00:00 2001
From: "psyc://loupsycedyglgamf.onion/~lynX"
 <BM-NB7xa9gEpmJgYp9PVnEdACiZcGmmEJcY>
Date: Wed, 4 Apr 1984 00:44:06 +0000
Subject: [PATCH] reverting net/psyc/render.i - a symlink bit me

---
 place/welcome.c         |  7 +++++++
 world/net/psyc/render.i | 45 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 52 insertions(+)
 create mode 100644 place/welcome.c

diff --git a/place/welcome.c b/place/welcome.c
new file mode 100644
index 0000000..c87d593
--- /dev/null
+++ b/place/welcome.c
@@ -0,0 +1,7 @@
+#include <net.h>
+
+#define NAME	"welcome"
+#define PLACE_HISTORY
+
+#include <place.gen>
+
diff --git a/world/net/psyc/render.i b/world/net/psyc/render.i
index 7e3c13a..8cbaa80 100644
--- a/world/net/psyc/render.i
+++ b/world/net/psyc/render.i
@@ -268,6 +268,7 @@ static varargs string render_psyc(mixed source, string mc, mixed data,
 	}
 #endif /* NEW_RENDER */
 
+#ifdef LIBPSYC
 	int routeMe = 0;
 	mapping evars = ([ ]);
 
@@ -286,6 +287,50 @@ static varargs string render_psyc(mixed source, string mc, mixed data,
 	    }
 
 	return psyc_render(({ rvars, evars, mc, data }));
+#else
+
+#if __EFUN_DEFINED__(walk_mapping)
+	// walk_mapping could be rewritten into foreach, but thats work
+	walk_mapping(rvars, #'build_header, rvars, 0);
+#else                            // PIKE, MudOS...
+	mapeach(key, val, rvars) {
+	    build_header(key, val, rvars, 0);
+	}
+#endif
+
+	if (mappingp(vars)) {
+#if 0 //ndef EXPERIMENTAL
+	    if (member(vars, "_count"))
+		ebuf += "\n:_count\t" + vars["_count"];
+#endif
+#if __EFUN_DEFINED__(walk_mapping)
+	    // walk_mapping could be rewritten into foreach, but thats work
+	    walk_mapping(vars, #'build_header, vars, 1);
+#else                            // PIKE, MudOS...
+	    mapeach(key, val, vars) {
+		build_header(key, val, vars, 1);
+	    }
+#endif
+	}
+
+	if (data == "") ebuf += "\n"+ mc;
+	else ebuf += "\n"+ mc + "\n"+ data;
+
+#ifdef SPYC 	// || MODULE_LENGTH
+	if (needLen || strlen(ebuf) + strlen(rbuf) > 555)
+	    return ":_length\t"+ strlen(ebuf) + rbuf +"\n"+
+		ebuf +"\n" S_GLYPH_PACKET_DELIMITER "\n";
+	else
+#endif
+#ifndef NEW_LINE
+	if (excessiveNewline) return rbuf[1 ..] +"\n"+
+		ebuf + S_GLYPH_PACKET_DELIMITER "\n";
+	else
+#endif
+	if (strlen(rbuf)) return rbuf[1 ..] +"\n"+
+		ebuf +"\n" S_GLYPH_PACKET_DELIMITER "\n";
+	return	ebuf +"\n" S_GLYPH_PACKET_DELIMITER "\n";
+#endif
 }
 
 // notice for completeness: the PSYC renderer does not convert_charset