XML Parser Source 1.1

{
    ds = ds_map_create();
    var i,j,tt;
    s = 0;
    mode = -1;
    modes = 0;
    for(i=1;i<string_length(argument0)+100;i=i+1)
    {
        cc = 1;
        sc = string_char_at( argument0 , i );
        if string_char_at( argument0 , i ) == '>'
        {
            if modes == 1
            {
                //show_message( branch[ mode ] );
            }
            modes = 0;
            cc = 0;
        }
        if string_char_at( argument0 , i ) == '<'
        {
            cc = 0;
            if string_char_at( argument0 , i + 1 ) == '/'
            {
                tt = branch[ 0 ];
                for(j=1;j<=mode;j=j+1)
                {
                    tt = tt + '\' + branch[ j ];
                }
                ds_map_add( ds , tt , content[ mode ] );
                mode = mode - 1;
                modes = -1;
            }
            else
            {
                mode = mode + 1;
                modes = 1;
                branch[ mode ] = '';
                content[ mode ] = '';
            }
        }
        if cc == 0 or mode == -1
        {
            //nothing
        }
        else if modes == 1
        {
            branch[ mode ] = branch[ mode ] + sc;
        }
        else if modes == 0
        {
            content[ mode ] = content[ mode ] + sc;
        }
    }
    //word[ j ] = string_copy( argument0 , s , i - s );
}