Changeset 9ea58ca

Timestamp:

Apr 28, 2016, 3:29:10 PM (9 years ago)

Author:

Thierry Delisle <tdelisle@…>

Branches:

string

Parents:

8243cf9

Message:

finished translating VbyteSM from C++ to cfa

Location:

src/examples/strings/src/internal

Files:

• VbyteSM.c (modified) (1 diff)
• VbyteSM.h (modified) (1 diff)

src/examples/strings/src/internal/VbyteSM.c ¶

@@ -38 +38 @@
         }
 }
+
+void MoveThisBefore(HandleNode_t* const this, const HandleNode_t* rhs)
+{
+        assertf( this->string > rhs->string,
+        "VbyteSM: Error - Cannot move byte string at: %lX before byte string at: %lX and keep handles in ascending order",
+        (unsigned long int)this->string,
+        (unsigned long int)rhs->string);
+
+        HandleNode_t* i;
+        for( i = rhs->previous; 
+             (uintptr_t)this->string == (uintptr_t)i->string;
+             i = i->previous);
+
+        if( this != i )
+        {
+                DeleteNode(this);
+                AddThisAfter(this, i->previous);
+        }
+}
+
+int ByteCopy(char_t* Dst, int DstStart, int DstLnth, char_t* Src, int SrcStart, int SrcLnth)
+{
+        for ( int i = -1; i < DstLnth - 1; i += 1) {
+                if( i == SrcLnth -1 ) {
+                        for ( ; i < DstLnth - 1; i += 1 ) {
+                                Dst[DstStart + i] = ' ';
+                        }
+                        break;
+                }
+                Dst[DstStart + i] = Src[SrcStart + i];
+        }
+}
+
+char_t* VbyteAloc(VbyteHeap* const this, int size ) {
+        unsigned int NoBytes;
+        char_t* r;
+
+        NoBytes = (uintptr_t)this->EndVbyte + size;
+        if ( NoBytes > (uintptr_t)this->ExtVbyte ) {
+                garbage(this);
+                NoBytes = ( uintptr_t )this->EndVbyte + size;
+                if ( NoBytes > ( uintptr_t )this->ExtVbyte ) {
+                        extend( this, size );
+                }
+        }
+        r = this->EndVbyte;
+        this->EndVbyte += size;
+        return r;
+}
+
+void compaction(VbyteHeap* const this) {
+        HandleNode_t* h;
+        char_t *obase, *nbase, *limit;
+
+        this->NoOfCompactions += 1;
+        this->EndVbyte = this->StartVbyte;
+        h = this->Header.next;
+        do {
+                ByteCopy( this->EndVbyte, 1, h->length, h->string, 1, h->length );
+                obase = h->string;
+                h->string = this->EndVbyte;
+                nbase = h->string;
+                this->EndVbyte += h->length;
+                limit = obase + h->length;
+                h = h->next;
+                
+                for (;;) {
+                        if ( h == &this->Header ) break;
+                        if ( h->string >= limit ) break;
+                        
+                        h->string = nbase + (( uintptr_t )h->string - ( uintptr_t )obase );
+                        h = h->next;
+                }
+        } while( h != &this->Header );
+}
+
+void garbage(VbyteHeap* const this) {
+        int AmountUsed = 0;
+        for ( HandleNode_t* i = this->Header.next; i != &this->Header; i = i->next ) {
+                AmountUsed += i->length;
+        }
+        
+        int AmountFree = ( uintptr_t )this->ExtVbyte - ( uintptr_t )this->StartVbyte - AmountUsed;
+
+        if ( AmountFree < ( int )( this->CurrSize * 0.1 )) {
+                extend( this, this->CurrSize );
+        }
+        compaction( this );
+}
+
+void extend( VbyteHeap* const this, int size ) {
+        this->NoOfExtensions;
+        char_t* OldStartVbyte = this->StartVbyte;
+
+        this->CurrSize += max(size, this->InitSize);
+        this->StartVbyte = this->EndVbyte = calloc(this->CurrSize);
+        compaction( this );
+        free( OldStartVbyte );
+}
+
+void reduce( VbyteHeap* const this, int size ) {
+        this->NoOfReductions += 1;
+        char_t* OldStartVbyte = this->StartVbyte;
+        
+        this->CurrSize -= size;
+        this->StartVbyte = this->EndVbyte = calloc(this->CurrSize);
+        this->ExtVbyte = (void *)( this->StartVbyte + this->CurrSize );
+        compaction(this);
+        free( OldStartVbyte );
+}

src/examples/strings/src/internal/VbyteSM.h ¶

@@ -74 +74 @@
         this->CurrSize = size;
 
-        #warning missing malloc
-        this->StartVbyte = 0;
+        this->StartVbyte = calloc(size);
         this->EndVbyte = this->StartVbyte;
         this->ExtVbyte = (void*)( this->StartVbyte + this->CurrSize );