// vim:noexpandtab:syntax=lpc // $Id: babeldos.i,v 1.3 2007/10/08 11:00:30 lynx Exp $ /* * this is one of the most impressive abuses of psyc rooms i've seen * so far.. have fun with it.. then maybe patch it in a fashion that * it becomes potentially actually useful. yet another drunken master- * piece coded by heldensaga and elridion. */ #include #include #include #define INHERIT_CONNECT start(); babel(); #define CREATE qInit(ME, 1000, 100); // too aggressive to connect babelfish on every reset!! //efine CRESET start(); inherit NET_PATH "connect"; #include #define emit binary_message volatile int has_con, is_translating, is_con; volatile mixed *current; volatile string krank, buffer; start() { unless (has_con || is_con) { is_con = 1; call_out(#'connect, 0, "babelfish.yahoo.com", 80); } } escape(data) { return regreplace(data, "[^a-zA-Z0-9]", (: return sprintf("%%%x", $1[0]); :), 1); } disconnected() { string k; //efine FMT "%~s
%s
%~s" #define FMT "%~s%~s" has_con = 0; P0(("%O received %O bytes of buffer for %O\n", ME, sizeof(buffer), current)) switch (pointerp(current) ? current[0] : "") { case TRANSLATION: if (sscanf(buffer, FMT, k)) krank = k; else krank = "und es geschah ihr als sei es von der ferne"; #ifdef TRANSLATION2 babel(TRANSLATION2, current[1], current[2], krank, current[4]); break; case TRANSLATION2: if (sscanf(buffer, FMT, k)) krank = k; else krank = "und sie sah fern als sei es ein geschehen"; #endif ::msg(current[1], current[2], replace(krank, """, "\""), current[4]); default: current = 0; start(); } } parse(data) { buffer += data + " "; input_to(#'parse, INPUT_IGNORE_BANG); } logon(int f) { is_con = 0; unless (::logon(f)) { return; } has_con = 1; input_to(#'parse, INPUT_IGNORE_BANG); if (qSize(ME)) { funcall(lambda(({}), ({ #'babel }) + shift(ME) )); } else { is_translating = 0; } } translat(source, mc, data, mapping vars, count) { if (is_translating) { //debug_message("enqueing: " + data + "\n"); enqueue(ME, ({ TRANSLATION, source, mc, data, vars })); } else { //debug_message("babeling: " + data + "\n"); is_translating = 1; babel(TRANSLATION, source, mc, data, vars); } return 1; } babel(mode, source, mc, data, mapping vars) { unless (has_con) { unshift(ME, ({ mode, source, mc, data, vars })); start(); return; } buffer = ""; krank = 0; current = ({ mode, source, mc, data, vars }); // old API // emit("GET /tr?lp=" + mode + "&urltext=" + escape(data) + " HTTP/1.1\r\n" // "Host: babelfish.altavista.com\r\n\r\n"); // new API emit("GET /translate_txt?ei=UTF-8&doit=done&fr=bf-res&intl=1&lp="+ mode +"&tt=urltext&trtext="+ escape(data) +" HTTP/1.1\r\nHost: babelfish.yahoo.com\r\n\r\n"); } msg(source, mc, data, mapping vars) { if (abbrev("_message_public", mc) && data) { return translat(source, mc, data, vars); } return ::msg(source, mc, data, vars); }