dynapi-dev

[Dynapi-Dev] IO Element Server ws__typeof feature suggestion.

[Leif W <war...@us...>]

Hi!

I'm having some difficulty with the PHP and Perl translations when it comes
to the simple "typeof" feature found in most other languages.  Ok, it's
maybe something I dislike about both these languages but please don't bash
them.  :-)  They have no typeof feature.  They are both very much
"roll-your-own" philosophy about some things like this.  Perl much more so
than PHP, but PHP is a bit more accomodating with several is_type($var)
functions.  There's even a gettype, but its use is highly discouraged as the
strings returned are likely to change and it's slow.  (But I wonder about
the logic behind this, if everyone has to write their own typeof).

Anyways, how about the addition of a ws__typeof function, and if your
language has a typeof, then it's just a simple wrapper.  But also, to have a
more unified mechanism for possible input and output types...

Here's some Perl and PHP code I am working on.  Any thoughts of suggestions
on how to approach the problem and get a more unified interface across the
different languages?

Leif

========================
Perl
========================
# ws__typeof - used to estimate the data type
#
# Input Data Types (language specific):
#     SCALAR (number, string), ARRAY, HASH, or CODE
#
# Output Data Types (JavaScript / generic):
#     number, boolean, function, string, object, array, date, default
#
# Takes a reference as input, determines type of reference,
# if SCALAR, dereferences and determines format of data
#
sub ws__typeof
{
#    my $self = shift; # for OO, disregard for now
    my $ref = shift || carp "Not enough args (0 of 1) sent to ws__typeof:
$!";

    if ( $ref =~ /^SCALAR/ )
    {
        if ( $$ref =~ /^\d+$/ )
        {
            return( "number" );
        }
        elsif ( $$ref =~ m/\d{2}\/\d{2}\/\d{4} \d{2}:\d{2}:\d{2}/ )
        {
            return( "date" );
        }
        elsif ( $$ref =~ /^[\d\s\w]+([\d\s\w])*$/ ) # not binary string
friendly
        {
            return( "string" );
        }
        else
        {
            return( "unknown" );
        }
    }
    elsif ( $ref =~ /^ARRAY/ )
    {
        return( "array" );
    }
    elsif ( $ref =~ /^HASH/ )
    {
        return( "object" );
    }
    elsif ( $ref =~ /^CODE/ )
    {
        return( "code" );
    }
    else
    {
        return( "unknown" );
    }
}

========================
PHP
========================
/*
 * ws__typeof - used to estimate the data type
 *
 * Input Data Types (language specific):
 *     boolean, array, object, null
 *     scalar (numeric {integer, float}, string)
 *
 * Output Data Types (JavaScript / generic):
 *     number, boolean, function, string, object, array, date, default
 *
 * Takes a reference as input, determines type of reference,
 * if SCALAR, dereferences and determines format of data
 */

function ws__typeof ( $v )
{
    if ( is_bool( $v ) )
    {
        return "boolean";
    }
    else if ( is_scalar( $v ) )
    {
        if ( is_numeric( $v ) )
        {
            if ( is_integer( $v ) )
            {
                return "integer";
            }
            else if ( is_float( $v ) )
            {
                return "float";
            }
            else // imaginary?  ;-)
            {
                return "unknown number";
            }
        }
        else if ( is_string( $v ) )
        {
            if ( preg_match( "/\d{2}\/\d{2}\/\d{4} \d{2}:\d{2}:\d{2}/",
$v ) )
            {
                return "date";
            }
            else if ( preg_match( "/^\w+([\w\d])*$/", $v ) )
            {
                return "string";
            }
            else
            {
                return "unknown string";
            }
        }
        else
        {
            return "unknown scalar";
        }
    }
    else if ( is_array( $v ) )
    {
        return "array";
    }
    else if ( is_object( $v ) )
    {
        return "object";
    }
    else if ( is_null( $v ) )
    {
        return "null";
    }
    else
    {
        return "unknown";
    }
}

Re: [Dynapi-Dev] IO Element Server ws__typeof feature suggestion.

[Kevin <ke...@ke...>]

Hi,

I like the idea. Maybe the return value could be a numerical constant:

$WS_NUMBER=0
$WS_STRING=1
etc
quicker than string compares

PHP refererence I think is:
function ws__typeof ( &$v )

-
Kevin


"Leif W" <war...@us...> wrote:

> Hi!
> 
> I'm having some difficulty with the PHP and Perl translations when it comes
> to the simple "typeof" feature found in most other languages.  Ok, it's
> maybe something I dislike about both these languages but please don't bash
> them.  :-)  They have no typeof feature.  They are both very much
> "roll-your-own" philosophy about some things like this.  Perl much more so
> than PHP, but PHP is a bit more accomodating with several is_type($var)
> functions.  There's even a gettype, but its use is highly discouraged as the
> strings returned are likely to change and it's slow.  (But I wonder about
> the logic behind this, if everyone has to write their own typeof).
> 
> Anyways, how about the addition of a ws__typeof function, and if your
> language has a typeof, then it's just a simple wrapper.  But also, to have a
> more unified mechanism for possible input and output types...
> 
> Here's some Perl and PHP code I am working on.  Any thoughts of suggestions
> on how to approach the problem and get a more unified interface across the
> different languages?
> 
> Leif
> 
> ========================
> Perl
> ========================
> # ws__typeof - used to estimate the data type
> #
> # Input Data Types (language specific):
> #     SCALAR (number, string), ARRAY, HASH, or CODE
> #
> # Output Data Types (JavaScript / generic):
> #     number, boolean, function, string, object, array, date, default
> #
> # Takes a reference as input, determines type of reference,
> # if SCALAR, dereferences and determines format of data
> #
> sub ws__typeof
> {
> #    my $self = shift; # for OO, disregard for now
>     my $ref = shift || carp "Not enough args (0 of 1) sent to ws__typeof:
> $!";
> 
>     if ( $ref =~ /^SCALAR/ )
>     {
>         if ( $$ref =~ /^\d+$/ )
>         {
>             return( "number" );
>         }
>         elsif ( $$ref =~ m/\d{2}\/\d{2}\/\d{4} \d{2}:\d{2}:\d{2}/ )
>         {
>             return( "date" );
>         }
>         elsif ( $$ref =~ /^[\d\s\w]+([\d\s\w])*$/ ) # not binary string
> friendly
>         {
>             return( "string" );
>         }
>         else
>         {
>             return( "unknown" );
>         }
>     }
>     elsif ( $ref =~ /^ARRAY/ )
>     {
>         return( "array" );
>     }
>     elsif ( $ref =~ /^HASH/ )
>     {
>         return( "object" );
>     }
>     elsif ( $ref =~ /^CODE/ )
>     {
>         return( "code" );
>     }
>     else
>     {
>         return( "unknown" );
>     }
> }
> 
> ========================
> PHP
> ========================
> /*
>  * ws__typeof - used to estimate the data type
>  *
>  * Input Data Types (language specific):
>  *     boolean, array, object, null
>  *     scalar (numeric {integer, float}, string)
>  *
>  * Output Data Types (JavaScript / generic):
>  *     number, boolean, function, string, object, array, date, default
>  *
>  * Takes a reference as input, determines type of reference,
>  * if SCALAR, dereferences and determines format of data
>  */
> 
> function ws__typeof ( $v )
> {
>     if ( is_bool( $v ) )
>     {
>         return "boolean";
>     }
>     else if ( is_scalar( $v ) )
>     {
>         if ( is_numeric( $v ) )
>         {
>             if ( is_integer( $v ) )
>             {
>                 return "integer";
>             }
>             else if ( is_float( $v ) )
>             {
>                 return "float";
>             }
>             else // imaginary?  ;-)
>             {
>                 return "unknown number";
>             }
>         }
>         else if ( is_string( $v ) )
>         {
>             if ( preg_match( "/\d{2}\/\d{2}\/\d{4} \d{2}:\d{2}:\d{2}/",
> $v ) )
>             {
>                 return "date";
>             }
>             else if ( preg_match( "/^\w+([\w\d])*$/", $v ) )
>             {
>                 return "string";
>             }
>             else
>             {
>                 return "unknown string";
>             }
>         }
>         else
>         {
>             return "unknown scalar";
>         }
>     }
>     else if ( is_array( $v ) )
>     {
>         return "array";
>     }
>     else if ( is_object( $v ) )
>     {
>         return "object";
>     }
>     else if ( is_null( $v ) )
>     {
>         return "null";
>     }
>     else
>     {
>         return "unknown";
>     }
> }
> 
> 
> 
> 
> -------------------------------------------------------
> This SF.net email is sponsored by: SF.net Giveback Program.
> SourceForge.net hosts over 70,000 Open Source Projects.
> See the people who have HELPED US provide better services:
> Click here: http://sourceforge.net/supporters.php
> _______________________________________________
> Dynapi-Dev mailing list
> Dyn...@li...
> http://www.mail-archive.com/dyn...@li.../