intermud.org forum

lpmuds.net I3 :: Re: router maintenance

Thu, 24 Sep 2009 23:48:33 -0100

By: aidil

The power supply of the *wpr router was replaced and maintenance was successfully completed.

lpmuds.net I3 :: router maintenance

Thu, 24 Sep 2009 12:05:20 -0100

By: aidil

Thursday september 24th starting at 10pm (timezone CEST) the *wpr router will be unavailable due to hardware maintenance. This maintenance is expected to last upto 2 hours.

Intermud 3 :: Re: Intermud 3 and JSON

Tue, 08 Sep 2009 17:54:53 -0100

By: aidil

For those interested, gurbalib (svn://wotf.org/gurbalib) has a JSON serialize/deserialize implemented in /daemons/serialize/json.c

It uses DGD's parse_string for parsing json messages. The code that generates them is very similar in setup to the code Tricky posted.

Because of the widespread support for it, and there being proper formal documentation and such, and being capable of encoding all data that is currently in use on i3, I see it as a good alternative for mudmode for future versions of the i3 protocol. It would allow the kind of structured data that makes i3 such a nice protocol, while removing the obscure mudmode stuff.

Aidil

Intermud 3 :: Re: Intermud 3 and JSON

Tue, 08 Sep 2009 17:03:55 -0100

By: Tricky

This has better integer and real number comparisons.

Licensed as usual: http://0.gp/bZY/lpmuds/LICENSE

PHP Formatted Code
/*

 * json.c

 *

 * mixed decodeJSON(string message)

 *   Creates an LPC variable from a JSON message.

 *

 * string encodeJSON(mixed lpcvar)

 *   Creates a JSON message from an LPC variable.

 *

 */

#define DEBUG_LEVEL 0
#define D(l,x) if (((l) - (DEBUG_LEVEL)) <= 0) printf("%O\n\n", x)

#define INT "(0|[1-9][0-9]*)"
#define FRAC "[.][0-9]+"
#define EXP "[eE][+-]?[0-9]+"

#define STRING "\"([^\"])*\""
// #define NUMBER "[-]?[0-9]+([.][0-9]+)?([eE][+-]?[0-9]+)?"
#define REAL "[-]?" + INT + "(" + FRAC + ")(" + EXP + ")?"
#define INTEGER "[-]?" + INT + "(" + EXP + ")?"
#define LITERAL "(false|null|true)"
#define NAME_SEPARATOR ":"
#define VALUE_SEPARATOR ","
#define ARRAY_BEGIN "[[]"
#define ARRAY_END "[]]"
#define OBJECT_BEGIN "{"
#define OBJECT_END "}"
#define WS "( |\t|\r|\n)+"

#define TOK_DEFAULT 0
#define TOK_STRING 1
#define TOK_REAL 2
#define TOK_INTEGER 3
#define TOK_LITERAL 4
#define TOK_NAME_SEPARATOR 5
#define TOK_VALUE_SEPARATOR 6
#define TOK_ARRAY_BEGIN 7
#define TOK_ARRAY_END 8
#define TOK_OBJECT_BEGIN 9
#define TOK_OBJECT_END 10
#define TOK_WS 11


mixed decodeJSON(string message)
{

    mixed *assoc;

    string tmp = "";

    int i, sz;

/* Preserve quotes. */

    message = replace_string(message, "\\\"", "&quot;");

    D(2, message);


    assoc = reg_assoc(

        message,
({

            STRING,

            REAL,

            INTEGER,

            LITERAL,

            NAME_SEPARATOR,

            VALUE_SEPARATOR,

            ARRAY_BEGIN,

            ARRAY_END,

            OBJECT_BEGIN,

            OBJECT_END,

            WS,
}),
({

            TOK_STRING,

            TOK_REAL,

            TOK_INTEGER,

            TOK_LITERAL,

            TOK_NAME_SEPARATOR,

            TOK_VALUE_SEPARATOR,

            TOK_ARRAY_BEGIN,

            TOK_ARRAY_END,

            TOK_OBJECT_BEGIN,

            TOK_OBJECT_END,

            TOK_WS,
}),

        TOK_DEFAULT
);


    D(1, assoc);

for(i = 0, sz = sizeof(assoc[0]) ; i < sz ; i++)
{
switch(assoc[1][i])
{
/* Here we try to clean up the integer, specifically with the exponent. */
case TOK_INTEGER:
{

                mixed a;

                string ts = "";

                int l, tsz;


                a = reg_assoc(

                  assoc[0][i],
({"-", INT, EXP}),
({1, 2, 3}),
0
);

for(l = 0, tsz = sizeof(a[0]) ; l < tsz ; l++)
{
if(a[1][l] == 0)continue;

switch(a[1][l])
{
case1:
case2: break;
case3:
/* LPC requires a sign for the exponent. */
if(regexp(a[0][l], "[eE][0-9]+"))
{

                                a[0][l] = replace_string(a[0][l], "e", "e+");

                                a[0][l] = replace_string(a[0][l], "E", "E+");
}
break;
}


                    ts += a[0][l];
}


                assoc[0][i] = ts;
break;
}
/* Here we try to clean up the real, specifically with the exponent. */
case TOK_REAL:
{

                mixed a;

                string ts = "";

                int l, tsz, last = 0;


                a = reg_assoc(

                  assoc[0][i],
({"-", INT, FRAC, EXP}),
({1, 2, 3, 4}),
0
);

for(l = 0, tsz = sizeof(a[0]) ; l < tsz ; l++)
{
if(a[1][l] == 0)continue;

switch(a[1][l])
{
case1:
case2: break;
case3:
/* This shouldn't trigger. */
if(last != 2) ts += "0";
break;
case4:
/* LPC requires a sign for the exponent. */
if(regexp(a[0][l], "[eE][0-9]+"))
{

                                a[0][l] = replace_string(a[0][l], "e", "e+");

                                a[0][l] = replace_string(a[0][l], "E", "E+");
}
break;
}


                    ts += a[0][l];

                    last = a[1][l];
}


                assoc[0][i] = ts;
break;
}
/* No idea what to do with this currently. */
/* Convert into a string and leave for the programmer to translate. */
case TOK_LITERAL:

                assoc[0][i] = "\"" + assoc[0][i] + "\"";
break;
case TOK_ARRAY_BEGIN:

                assoc[0][i] = "({";
break;
/* Add a comma to pacify restore_variable() */
case TOK_ARRAY_END:

                assoc[0][i] = ",})";
break;
case TOK_OBJECT_BEGIN:

                assoc[0][i] = "([";
break;
/* Add a comma to pacify restore_variable() */
case TOK_OBJECT_END:

                assoc[0][i] = ",])";
break;
/* Basically an illegal literal so we turn it into a string. */
case TOK_DEFAULT:
if(assoc[0][i] != "")

                    assoc[0][i] = "\"" + assoc[0][i] + "\"";

break;
/* Strip whitespace. */
case TOK_WS:

                assoc[0][i] = "";
break;
}


        tmp += assoc[0][i];
}

/* Restore quotes. */

    tmp = replace_string(tmp, "&quot;", "\\\"");

    D(2, assoc);

    D(1, tmp);
return restore_variable(tmp);
}


string encodeJSON(mixed mixvar)
{

    int sz;

    string ret;

if(undefinedp(mixvar))return"null";
if(intp(mixvar) || floatp(mixvar))return"" + mixvar;
if(stringp(mixvar))
{

        mixvar = replace_string(mixvar, "\"", "\\\"");

        mixvar = "\"" + mixvar + "\"";

        mixvar = replace_string(mixvar, "\\", "\\\\");

        mixvar = replace_string(mixvar, "\\\"", "\"");

        mixvar = replace_string(mixvar, "\b", "\\b");

        mixvar = replace_string(mixvar, "" + 0x0c, "\\f");

        mixvar = replace_string(mixvar, "\n", "\\n");

        mixvar = replace_string(mixvar, "\r", "\\r");

        mixvar = replace_string(mixvar, "\t", "\\t");

return mixvar;
}
if(arrayp(mixvar))
{

        ret = "[";

        sz = sizeof(mixvar);

for(int i = 0 ; i < sz ; i++)
{
if(i != 0) ret += ",";


            ret += encodeJSON(mixvar[i]);
}

return ret + "]";
}
if(mapp(mixvar))
{

        mixed ks, vs;


        ret = "{";

        ks = keys(mixvar);

        vs = values(mixvar);

        sz = sizeof(ks);

for(int i = 0 ; i < sz ; i++)
{
if(i != 0) ret += ",";


            ret += encodeJSON(ks[i]) + ":" + encodeJSON(vs[i]);
}

return ret + "}";
}
if(bufferp(mixvar))
{

        ret = "";

        sz = sizeof(mixvar);

for(int i = 0 ; i < sz ; i++)
{
if(i != 0) ret += ",";


            ret += encodeJSON(mixvar[i]);
}

return ret;
}
if(classp(mixvar))
{

        ret = "";

        mixvar = disassemble_class(mixvar);

        sz = sizeof(mixvar);

for(int i = 0 ; i < sz ; i++)
{
if(i != 0) ret += ",";


            ret += encodeJSON(mixvar[i]);
}

return ret;
}
if(objectp(mixvar))
{
/* What to do?

         * return "" or return encodeJSON(save_variable(mixvar))

         *

         * return "" for now.

         */
return"";
}
if(functionp(mixvar))return"";

/* Anything weird and we return null.

     * It really shouldn't get here, but you never know.

     */
return"null";
}


void test()
{

    mixed mixvar;

    string msg;


    msg = @JSON_MSG
{
"name": "Jack (\"Bee\") Nimble", 
"format": {
"type":       "rect", 
"width":      1920, 
"height":     1080, 
"interlace":  false, 
"frame rate": 24
}
}

JSON_MSG;

printf("%s\n\n", msg);

    mixvar = decodeJSON(msg);

    D(0, mixvar);
printf("%s\n\n", encodeJSON(mixvar));


    msg = @JSON_MSG
{
"Image":
{
"Width":  800,
"Height": 600,
"Title":  "View from 15th Floor",
"Thumbnail":
{
"Url":    "http://www.example.com/image/481989943",
"Height": 125,
"Width":  "100"
},
"IDs": [116, 943, 234, 38793]
}
}

JSON_MSG;

printf("%s\n\n", msg);

    mixvar = decodeJSON(msg);

    D(0, mixvar);
printf("%s\n\n", encodeJSON(mixvar));


    msg = @JSON_MSG
{"x":1e-2, "y":1.0e2 }

JSON_MSG;

printf("%s\n\n", msg);

    mixvar = decodeJSON(msg);

    D(0, mixvar);
printf("%s\n\n", encodeJSON(mixvar));
}

Intermud 3 :: Re: Intermud 3 and JSON

Wed, 26 Aug 2009 05:50:00 -0100

By: Tricky

I wrote up this piece of code for MudOS/FluffOS to convert from JSON to an LPC variable. I'm not too sure about the regex for NUMBER, however for I3 communications it will work perfectly.

Sorry about the lack of comments.

PHP Formatted Code
/*

 * json.c

 *

 * mixed processJSON(string message)

 *

 * Creates an LPC variable from a JSON message.

 */

#define DEBUG_LEVEL 0
#define D(l,x) if (((l) - (DEBUG_LEVEL)) <= 0) printf("%O\n\n", x)

#define STRING "\"([^\"\n])*\""
#define NUMBER "[-]?[0-9]+([.][0-9]+)?([eE][+-]?[0-9]+)?"
#define LITERAL "(false|null|true)"
#define NAME_SEPARATOR ":"
#define VALUE_SEPARATOR ","
#define ARRAY_BEGIN "[[]"
#define ARRAY_END "[]]"
#define OBJECT_BEGIN "{"
#define OBJECT_END "}"
#define WS "( |\t|\r|\n)+"

#define TOK_DEFAULT 0
#define TOK_STRING 1
#define TOK_NUMBER 2
#define TOK_LITERAL 3
#define TOK_NAME_SEPARATOR 4
#define TOK_VALUE_SEPARATOR 5
#define TOK_ARRAY_BEGIN 6
#define TOK_ARRAY_END 7
#define TOK_OBJECT_BEGIN 8
#define TOK_OBJECT_END 9
#define TOK_WS 10


mixed processJSON(string message)
{

    mixed *assoc;

    string tmp = "";

    int i, sz;


    assoc = reg_assoc(

        message,
({

            STRING,

            NUMBER,

            LITERAL,

            NAME_SEPARATOR,

            VALUE_SEPARATOR,

            ARRAY_BEGIN,

            ARRAY_END,

            OBJECT_BEGIN,

            OBJECT_END,

            WS,
}),
({

            TOK_STRING,

            TOK_NUMBER,

            TOK_LITERAL,

            TOK_NAME_SEPARATOR,

            TOK_VALUE_SEPARATOR,

            TOK_ARRAY_BEGIN,

            TOK_ARRAY_END,

            TOK_OBJECT_BEGIN,

            TOK_OBJECT_END,

            TOK_WS,
}),

        TOK_DEFAULT
);


    D(2, assoc);

    sz = sizeof(assoc[0]);

for(i = 0 ; i < sz ; i++)
{
switch(assoc[1][i])
{
/* No idea what to do with this currently. */
/* Convert into a string and leave for the programmer to translate. */
case TOK_LITERAL:

                assoc[0][i] = "\"" + assoc[0][i] + "\"";
break;
case TOK_ARRAY_BEGIN:

                assoc[0][i] = "({";
break;
case TOK_ARRAY_END:

                assoc[0][i] = ",})";
break;
case TOK_OBJECT_BEGIN:

                assoc[0][i] = "([";
break;
case TOK_OBJECT_END:

                assoc[0][i] = ",])";
break;
case TOK_DEFAULT:
/* Basically an illegal literal so we turn it into a string. */
if(assoc[0][i] != "")

                    assoc[0][i] = "\"" + assoc[0][i] + "\"";

break;
case TOK_WS:

                assoc[0][i] = "";
break;
}


        tmp += assoc[0][i];
}


    D(3, assoc);

    D(2, tmp);
return restore_variable(tmp);
}


void test()
{

    string msg1 = @JSON_MSG
{
"facebook_url": "http://www.facebook.com/sharer.php?u=http://0.gp/bZO",
"stat_url": "http://0.gp/bZO+",
"twitter_url": "http://twitter.com/home?status=http://0.gp/bZO",
"error":
{
"msg": "OK",
"code": 0
},
"url": "http://0.gp/bZO",
"target_host": "ebspso.dnsalias.org",
"host": "http://0.gp/"
}

JSON_MSG;


    string msg2 = @JSON_MSG
{
"Image":
{
"Width":  800,
"Height": 600,
"Title":  "View from 15th Floor",
"Thumbnail":
{
"Url":    "http://www.example.com/image/481989943",
"Height": 125,
"Width":  "100"
},
"IDs": [116, 943, 234, 38793]
}
}

JSON_MSG;


    D(1, msg1);

    D(0, processJSON(msg1));

    D(1, msg2);

    D(0, processJSON(msg2));
}

Tricky

Community :: Re: intermud.org revived

Thu, 20 Aug 2009 18:24:29 -0100

By: chaos

The more Crat approves of something, the fewer words he uses. Compare and contrast his verbiage when Samson starts acting up.

Community :: Re: intermud.org revived

Sat, 15 Aug 2009 16:01:12 -0100

By: aidil

Quote by: cratylus

sup yall

Uhm... the sky?

After your recent poking about intermud.org, I had expected a bit more then 2 words from ya.. :D

Community :: Re: intermud.org revived

Sat, 15 Aug 2009 01:50:05 -0100

By: cratylus

sup yall

lpmuds.net I3 :: Re: InterMUD.org RSS feeds

Fri, 14 Aug 2009 13:25:30 -0100

By: Tricky

I also added them to the lpuni.org frontpage (near bottom). :D

Tricky

lpmuds.net I3 :: Re: InterMUD.org RSS feeds

Fri, 14 Aug 2009 10:17:08 -0100

By: aidil

Hey, thanks man.

lpmuds.net I3 :: InterMUD.org RSS feeds

Fri, 14 Aug 2009 01:08:38 -0100

By: Tricky

As requested, the feeds for the forum and news page are now reporting on the inews channel on I3.

Tricky

Intermud 3 :: Some extensions to the I3 protocol

Wed, 12 Aug 2009 12:41:10 -0100

By: aidil

Tim's I3 todo list

Currently, none of the routers filter unknown packets, and custom (non spec) packets are used a fair bit.

The 'beep' support is a client only thing, the routers do not need to know about this.
The 'admin list' support is a router issue, I believe the *i4 router currently supports this.

As for adding comments to channels, this requires a change to the protocol if this is to be included in the chanlist update packets.

I have some additional extensions implemented on the *wpr router:

The 'destination mud' field in I3 packets can also contain an array of mudnames, where the router will ensure distribution to all those muds. This is to reduce bandwidth use as well as save some cpu on the sender and the router.

Before the packet is routed to its final destination, the array will be replaced by a string with the name of the specific target.

*wpr filters ucache broadcasts and only delivers them to muds supporting the feature.

Also, *wpr validates all inbound packets for known services. It validates if all data fields are present and of the proper type.

Community :: Re: intermud.org revived

Wed, 12 Aug 2009 10:49:41 -0100

By: aidil

Quote by: chaos

Excellent. Maybe it'll help motivate me to get Lost Souls on intermud sometime. Crat's all "what's the deal" already.

I was going to edit the wikipedia article on intermud to re-add this site to its external links... but it turns out it never left. Hurray for poor maintenance, I guess. So I added it to MUDfind instead. Whee.

Thank you. However, see the discussion page for intermud on wikipedia, the links to the intermud 3 specification may need to be changed (I changed them at some point when the old intermud.org dropped of the net)

Intermud 3 :: Re: Is this a bug in the specification?

Wed, 12 Aug 2009 10:38:46 -0100

By: aidil

Technically, you are correct, the key in an LPC mapping can be of any type, tho arrays and mappings tend to not work as you'd expect.

For I3, only strings are used as keys in a mapping, and it is safe to assume there are implementations (esp. non native ones) that will not handle non string keys.

I will update the mudmode specification to mention this.

Community :: Re: intermud.org revived

Wed, 12 Aug 2009 10:21:59 -0100

By: chaos

Intermud 3 :: Is this a bug in the specification?

Wed, 12 Aug 2009 10:20:16 -0100

By: raudhrskal

In the locally hosted mudmode specification, you have this fragment:

PHP Formatted Code

pair

    string:value

From my (limited) experience, mappings are value:value... key can be any primitive type, including object. Not sure if I ever tried to use a complex type.

Intermud 3 :: Intermud 3 and JSON

Tue, 11 Aug 2009 21:50:15 -0100

By: aidil

It would be quite feasible to use JSON instead of mudmode for transfer of I3 messages. I can add support for this to the *wpr router if anyone is interested.

Community :: intermud.org revived

Tue, 11 Aug 2009 21:13:22 -0100

By: aidil

Somewhere in the mid of 2008, the intermud.org server dropped of the net, and by the end of 2008, the intermud.org domain expired. It was picked up by me in order to create a new hub for intermud related information and discussion, and then I got overly busy for a few months..

But, here it is!
:)