Ok, php can read and write gats style integers now.

2 files changed, 134 insertions, 4 deletions

diff --git a/php/int.php b/php/int.php
new file mode 100644
index 0000000..478af73
--- /dev/null
+++ b/php/int.php
@@ -0,0 +1,108 @@
+<?php
+
+/*
+function writeInta( $iIn )
+{
+        $ret = "";
+        if( $iIn < 0 )
+        {
+                $iIn = -$iIn;
+                $b = ($iIn&0x3f);
+                if( $iIn > $b )
+                        $b |= 0x80 | 0x40;
+                else
+                        $b |= 0x40;
+        }
+        else
+        {
+                $b = ($iIn&0x3f);
+                if( $iIn > $b )
+                        $b |= 0x80;
+        }
+
+        $ret .= chr( $b );
+        $iIn = $iIn >> 6;
+
+        while( $iIn > 0 )
+        {
+                $b = ($iIn&0x7f);
+                if( $iIn > $b )
+                        $b |= 0x80;
+                $ret .= chr( $b );
+                $iIn = $iIn >> 7;
+        }
+
+        return $ret;
+} */
+
+function writeInt( $iIn )
+{
+        $ret = "";
+        if( gmp_cmp( $iIn, 0 ) < 0 )
+        {
+                $iIn = gmp_mul( $iIn, -1 );
+                $b = gmp_intval( gmp_and( $iIn, 0x3f ) );
+                if( gmp_cmp( $iIn, $b ) > 0 )
+                        $b |= 0x80 | 0x40;
+                else
+                        $b |= 0x40;
+        }
+        else
+        {
+                $b = gmp_intval( gmp_and( $iIn, 0x3f ) );
+                if( gmp_cmp( $iIn, $b ) > 0 )
+                        $b |= 0x80;
+        }
+
+        $ret .= chr( $b );
+        $iIn = gmp_div( $iIn, 64 );
+
+        while( gmp_cmp( $iIn, 0 ) > 0 )
+        {
+                $b = gmp_intval( gmp_and( $iIn, 0x7f ) );
+                if( gmp_cmp( $iIn, $b ) > 0 )
+                        $b |= 0x80;
+                $ret .= chr( $b );
+                $iIn = gmp_div( $iIn, 128 );
+        }
+
+        return $ret;
+}
+
+function readInt( $sIn, &$pos )
+{
+        $neg = false;
+
+        $b = ord($sIn[$pos++]);
+        if( ($b&0x40) == 0x40 )
+                $neg = true;
+        $iOut = gmp_init( $b&0x3f );
+        $mult = gmp_init( 64 );
+        while( ($b&0x80) )
+        {
+                $b = ord($sIn[$pos++]);
+                $iOut = gmp_or( $iOut, gmp_mul( $b&0x7f, $mult ) );
+                $mult = gmp_mul( $mult, 128 );
+        }
+        if( $neg == true )
+                $iOut = gmp_mul( $iOut, -1 );
+
+        return $iOut;
+}
+
+function teststr( $str )
+{
+        $pos = 0;
+        $enc = writeInt( $str );
+        $out = gmp_strval( readInt( $enc, $pos ) );
+        print( $str . " => " . $out );
+        if( $out == $str )
+                print(", correct.\n");
+        else
+                print(", incorrect.\n");
+}
+//print( bin2hex( writeInt("3898993999921") ) . "\n" );
+teststr("-7");
+
+
+?>
diff --git a/src/tests/int.cpp b/src/tests/int.cpp
index 348e179..c19df9c 100644
--- a/src/tests/int.cpp
+++ b/src/tests/int.cpp
@@ -2,14 +2,36 @@
 
 #include <bu/sio.h>
 #include <bu/membuf.h>
+#include <stdlib.h>
 
 using namespace Bu;
 
-int main()
+void hexdump( char *dat, int iSize )
 {
-        MemBuf mb;
-        int64_t i = -6;
+        static const char *hex="0123456789ABCDEF";
+        printf("----\n");
+        for( int j = 0; j < iSize; j += 8 )
+        {
+                for( int k = j; /*k < iSize &&*/ k < j+8; k++ )
+                        printf((k<iSize)?"%c%c ":"   ", hex[(dat[k]>>4)&0x0F], hex[dat[k]&0x0F] );
+                printf("| ");
+                for( int k = j; k < iSize && k < j+8; k++ )
+                        printf("%c ", (dat[k]>13&&dat[k]<127)?(dat[k]):('.') );
+                printf("\n");
+        }
+        printf("----\n");
+}
 
+int main( int argc, char *argv[] )
+{
+        for( int j = 1; j < argc; j++ )
+        {
+                int64_t i = strtoll( argv[j], NULL, 10 );
+                MemBuf mb;
+                Gats::Integer::writePackedInt( mb, i );
+                hexdump( mb.getString().getStr(), mb.getString().getSize() );
+        }
+/*
         sio << "Before: " << i << sio.nl;
         Gats::Integer::writePackedInt( mb, i );
         mb.write("aaa", 3 );
@@ -19,7 +41,7 @@ int main()
         char buf[4];
         buf[mb.read( buf, 3 )] = '\0';
         sio << "Extra: \"" << buf << "\"" << sio.nl;
-
+*/
         return 0;
 }