/*
 * A WML Script implementation of the Ord function
 * which seems to be strangely missing.
 * Copyright (C) Simon Wistow, 2001
 */


extern function ord_string (str)
{
        var return_str;

        for (var i = 0; i< String.length(str); i++){
                if (i>0)
                        return_str += '|';
                return_str += ord(String.charAt(str,i));
        }

        return return_str;
}

extern function ord (char)
{
        var ordstring = " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~";

        return String.find(ordstring, char) + 32;
}