diff --git a/ChrisTest/.ChrisVec.krak.un~ b/ChrisTest/.ChrisVec.krak.un~ deleted file mode 100644 index 1fa0c76..0000000 Binary files a/ChrisTest/.ChrisVec.krak.un~ and /dev/null differ diff --git a/ChrisTest/.ChrisVecTest.krak.un~ b/ChrisTest/.ChrisVecTest.krak.un~ deleted file mode 100644 index f8608e6..0000000 Binary files a/ChrisTest/.ChrisVecTest.krak.un~ and /dev/null differ diff --git a/ChrisTest/.ErrorLog.txt.un~ b/ChrisTest/.ErrorLog.txt.un~ deleted file mode 100644 index 4a2cdf1..0000000 Binary files a/ChrisTest/.ErrorLog.txt.un~ and /dev/null differ diff --git a/ChrisTest/.HelloWorld.krak.un~ b/ChrisTest/.HelloWorld.krak.un~ deleted file mode 100644 index d4f41b2..0000000 Binary files a/ChrisTest/.HelloWorld.krak.un~ and /dev/null differ diff --git a/ChrisTest/.SupressOut.sh.un~ b/ChrisTest/.SupressOut.sh.un~ deleted file mode 100644 index d84ceec..0000000 Binary files a/ChrisTest/.SupressOut.sh.un~ and /dev/null differ diff --git a/ChrisTest/DotProdTest/DotProdTest b/ChrisTest/DotProdTest/DotProdTest deleted file mode 100755 index 5303b9e..0000000 Binary files a/ChrisTest/DotProdTest/DotProdTest and /dev/null differ diff --git a/ChrisTest/DotProdTest/DotProdTest.c b/ChrisTest/DotProdTest/DotProdTest.c deleted file mode 100644 index 39ee4cf..0000000 --- a/ChrisTest/DotProdTest/DotProdTest.c +++ /dev/null @@ -1,362 +0,0 @@ -#include "DotProdTest.h" - -/*unknown declaration named translation_unit*/ -/*unknown declaration named translation_unit*/ -/*unknown declaration named translation_unit*/ -/*unknown declaration named translation_unit*/ -/*unknown declaration named translation_unit*/ -/*unknown declaration named translation_unit*/ -/*unknown declaration named translation_unit*/ -/*unknown declaration named translation_unit*/ -/*unknown declaration named translation_unit*/ -/** - * Variable Declarations - */ - -/** - * Function Definitions - */ - - -double dot_vector_lessthan_double_greaterthan__vector_lessthan_double_greaterthan_(vector_lessthan_double_greaterthan_ a, vector_lessthan_double_greaterthan_ b) -{ - if (((((a).size))<(((b).size)))) - { - println_char_P__("Error: Vectors not of same size") ; - print_char_P__("Vector a is of size: ") ; - println_int(((a).size)) ; - print_char_P__("Vector b is of size: ") ; - println_int(((b).size)) ; - println_char_P__("Did you know that Grover Cleveland served two seperate terms as President of the United States, four years apart?") ; - }; -; - double ans = 0;; - for ( int i = 0;((i)<(lesser_lessthan_int_greaterthan__int_int(((a).size), ((b).size)) )); i++) - { - ans = ((ans)+(((vector_lessthan_double_greaterthan___at_int(&a,i) )*(vector_lessthan_double_greaterthan___at_int(&b,i) )))); - }; -; - println_double(ans) ; - return ans; -} -int main() -{ - vector_lessthan_double_greaterthan_ aVec; vector_lessthan_double_greaterthan___construct(&aVec) /*Init Position Call*/; - vector_lessthan_double_greaterthan_ bVec; vector_lessthan_double_greaterthan___construct(&bVec) /*Init Position Call*/; - double j;; - for ( int i = 0;((i)<(4)); i++) - { - j = ((i)+(0.0)); - vector_lessthan_double_greaterthan___addEnd_double(&aVec,j) ; - vector_lessthan_double_greaterthan___addEnd_double(&bVec,j) ; - }; -; - vector_lessthan_double_greaterthan___addEnd_double(&bVec,12.3) ; - double dotProd = dot_vector_lessthan_double_greaterthan__vector_lessthan_double_greaterthan_(aVec, bVec) ;; - return 0; - vector_lessthan_double_greaterthan___destruct(&aVec); - vector_lessthan_double_greaterthan___destruct(&bVec); -} -void print_char_P__(char* toPrint) -{ - { - - printf(toPrint); - ; - }; - return; -} -void print_string(string toPrint) -{ - print_char_P__(string__toCharArray(&toPrint) ) ; -} -void print_int(int toPrint) -{ - { - - printf("%d", toPrint); - ; - }; - return; -} -void print_float(float toPrint) -{ - { - - printf("%f", toPrint); - ; - }; - return; -} -void print_double(double toPrint) -{ - { - - printf("%f", toPrint); - ; - }; - return; -} -void println() -{ - print_char_P__("\n") ; -} -void println_char_P__(char* toPrint) -{ - print_char_P__(toPrint) ; - println() ; -} -void println_string(string toPrint) -{ - println_char_P__(string__toCharArray(&toPrint) ) ; -} -void println_int(int toPrint) -{ - print_int(toPrint) ; - println() ; -} -void println_float(float toPrint) -{ - print_float(toPrint) ; - println() ; -} -void println_double(double toPrint) -{ - print_double(toPrint) ; - println() ; -} -void delete_lessthan_char_greaterthan__char_P__(char* toDelete) -{ - free(toDelete) ; -} -void delete_lessthan_char_greaterthan__char_P___int(char* toDelete, int itemCount) -{ - delete_lessthan_char_greaterthan__char_P__(toDelete) ; -} -void delete_lessthan_double_greaterthan__double_P__(double* toDelete) -{ - free(toDelete) ; -} -void delete_lessthan_double_greaterthan__double_P___int(double* toDelete, int itemCount) -{ - delete_lessthan_double_greaterthan__double_P__(toDelete) ; -} -char* malloc_lessthan_char_greaterthan__int(int size) -{ - char* memPtr = 0;; - { - - memPtr = malloc(size); - ; - }; - return memPtr; -} -double* malloc_lessthan_double_greaterthan__int(int size) -{ - double* memPtr = 0;; - { - - memPtr = malloc(size); - ; - }; - return memPtr; -} -char* new_lessthan_char_greaterthan__int(int count) -{ - return malloc_lessthan_char_greaterthan__int(((sizeof_lessthan_char_greaterthan_() )*(count))) ; -} -double* new_lessthan_double_greaterthan__int(int count) -{ - return malloc_lessthan_double_greaterthan__int(((sizeof_lessthan_double_greaterthan_() )*(count))) ; -} -int sizeof_lessthan_char_greaterthan_() -{ - int result = 0;; - char testObj;; - { - - result = sizeof(testObj); - ; - }; - return result; -} -int sizeof_lessthan_double_greaterthan_() -{ - int result = 0;; - double testObj;; - { - - result = sizeof(testObj); - ; - }; - return result; -}/* Method Definitions for string */ - -string* string__construct(string* this) -{ - vector_lessthan_char_greaterthan___construct(&this->data) ; - return this; -} - -string* string__construct_char_P__(string* this, char* str) -{ - vector_lessthan_char_greaterthan___construct(&this->data) ; - while (*(str)) - { - vector_lessthan_char_greaterthan___addEnd_char(&this->data,*(str)) ; - str = ((str)+(1)); - }; -; - return this; -} - -char* string__toCharArray(string* this) -{ - char* out = new_lessthan_char_greaterthan__int(((this->data).size)) ;; - for ( int i = 0;((i)<(((this->data).size))); i++) - (out)[i] = vector_lessthan_char_greaterthan___get_int(&this->data,i) ; -; - return out; -} -/* Done with string */ - -int lesser_lessthan_int_greaterthan__int_int(int a, int b) -{ - if (((a)>(b))) - return b; -; - return a; -}/* Method Definitions for vector */ - -vector_lessthan_char_greaterthan_* vector_lessthan_char_greaterthan___construct(vector_lessthan_char_greaterthan_* this) -{ - this->size = 0; - this->available = 8; - this->data = new_lessthan_char_greaterthan__int(8) ; - return this; -} - -void vector_lessthan_char_greaterthan___destruct(vector_lessthan_char_greaterthan_* this) -{ - delete_lessthan_char_greaterthan__char_P__(this->data) ; -} - -bool vector_lessthan_char_greaterthan___resize_int(vector_lessthan_char_greaterthan_* this, int newSize) -{ - char* newData = new_lessthan_char_greaterthan__int(newSize) ;; - if (!(newData)) - return false; -; - for ( int i = 0;((i)<(lesser_lessthan_int_greaterthan__int_int(this->size, newSize) )); i++) - (newData)[i] = (this->data)[i]; -; - delete_lessthan_char_greaterthan__char_P___int(this->data, 0) ; - this->data = newData; - this->available = newSize; - return true; -} - -char vector_lessthan_char_greaterthan___at_int(vector_lessthan_char_greaterthan_* this, int index) -{ - return vector_lessthan_char_greaterthan___get_int(this,index) ; -} - -char vector_lessthan_char_greaterthan___get_int(vector_lessthan_char_greaterthan_* this, int index) -{ - if (((((index)<(0)))||(((index)>=(this->size))))) - { - return (this->data)[0]; - }; -; - return (this->data)[index]; -} - -char* vector_lessthan_char_greaterthan___getBackingMemory(vector_lessthan_char_greaterthan_* this) -{ - return this->data; -} - -void vector_lessthan_char_greaterthan___set_int_char(vector_lessthan_char_greaterthan_* this, int index, char dataIn) -{ - if (((((index)<(0)))||(((index)>=(this->size))))) - return; -; - (this->data)[index] = dataIn; -} - -void vector_lessthan_char_greaterthan___addEnd_char(vector_lessthan_char_greaterthan_* this, char dataIn) -{ - this->size++; - if (((this->size)>=(this->available))) - vector_lessthan_char_greaterthan___resize_int(this,((this->size)*(2))) ; -; - (this->data)[((this->size)-(1))] = dataIn; -} -/* Done with vector */ -/* Method Definitions for vector */ - -vector_lessthan_double_greaterthan_* vector_lessthan_double_greaterthan___construct(vector_lessthan_double_greaterthan_* this) -{ - this->size = 0; - this->available = 8; - this->data = new_lessthan_double_greaterthan__int(8) ; - return this; -} - -void vector_lessthan_double_greaterthan___destruct(vector_lessthan_double_greaterthan_* this) -{ - delete_lessthan_double_greaterthan__double_P__(this->data) ; -} - -bool vector_lessthan_double_greaterthan___resize_int(vector_lessthan_double_greaterthan_* this, int newSize) -{ - double* newData = new_lessthan_double_greaterthan__int(newSize) ;; - if (!(newData)) - return false; -; - for ( int i = 0;((i)<(lesser_lessthan_int_greaterthan__int_int(this->size, newSize) )); i++) - (newData)[i] = (this->data)[i]; -; - delete_lessthan_double_greaterthan__double_P___int(this->data, 0) ; - this->data = newData; - this->available = newSize; - return true; -} - -double vector_lessthan_double_greaterthan___at_int(vector_lessthan_double_greaterthan_* this, int index) -{ - return vector_lessthan_double_greaterthan___get_int(this,index) ; -} - -double vector_lessthan_double_greaterthan___get_int(vector_lessthan_double_greaterthan_* this, int index) -{ - if (((((index)<(0)))||(((index)>=(this->size))))) - { - return (this->data)[0]; - }; -; - return (this->data)[index]; -} - -double* vector_lessthan_double_greaterthan___getBackingMemory(vector_lessthan_double_greaterthan_* this) -{ - return this->data; -} - -void vector_lessthan_double_greaterthan___set_int_double(vector_lessthan_double_greaterthan_* this, int index, double dataIn) -{ - if (((((index)<(0)))||(((index)>=(this->size))))) - return; -; - (this->data)[index] = dataIn; -} - -void vector_lessthan_double_greaterthan___addEnd_double(vector_lessthan_double_greaterthan_* this, double dataIn) -{ - this->size++; - if (((this->size)>=(this->available))) - vector_lessthan_double_greaterthan___resize_int(this,((this->size)*(2))) ; -; - (this->data)[((this->size)-(1))] = dataIn; -} -/* Done with vector */ diff --git a/ChrisTest/DotProdTest/DotProdTest.h b/ChrisTest/DotProdTest/DotProdTest.h deleted file mode 100644 index d28375f..0000000 --- a/ChrisTest/DotProdTest/DotProdTest.h +++ /dev/null @@ -1,155 +0,0 @@ -#include -#include -#include -/*unknown declaration named translation_unit*/ -/*unknown declaration named translation_unit*/ -/*unknown declaration named translation_unit*/ -/*unknown declaration named translation_unit*/ -/*unknown declaration named translation_unit*/ -/*unknown declaration named translation_unit*/ -/*unknown declaration named translation_unit*/ -/*unknown declaration named translation_unit*/ -/*unknown declaration named translation_unit*/ -/** - * Plain Typedefs - */ - -/*typedef string */ -typedef struct __struct_dummy_string__ string; -/*typedef vector */ -/* non instantiated template vector *//*typedef vector */ -typedef struct __struct_dummy_vector_lessthan_char_greaterthan___ vector_lessthan_char_greaterthan_; -/*typedef vector */ -typedef struct __struct_dummy_vector_lessthan_double_greaterthan___ vector_lessthan_double_greaterthan_; -/** - * Import Includes - */ - -/** - * Extern Variable Declarations - */ - -/** - * Class Structs - */ - -struct __struct_dummy_vector_lessthan_double_greaterthan___ { - double* data; - int size; - int available; -}; -struct __struct_dummy_vector_lessthan_char_greaterthan___ { - char* data; - int size; - int available; -}; -struct __struct_dummy_string__ { - vector_lessthan_char_greaterthan_ data; -}; -/** - * Function Prototypes - */ - - -double dot_vector_lessthan_double_greaterthan__vector_lessthan_double_greaterthan_(vector_lessthan_double_greaterthan_ a, vector_lessthan_double_greaterthan_ b); /*func*/ - -int main(); /*func*/ - -void print_char_P__(char* toPrint); /*func*/ - -void print_string(string toPrint); /*func*/ - -void print_int(int toPrint); /*func*/ - -void print_float(float toPrint); /*func*/ - -void print_double(double toPrint); /*func*/ - -void println(); /*func*/ - -void println_char_P__(char* toPrint); /*func*/ - -void println_string(string toPrint); /*func*/ - -void println_int(int toPrint); /*func*/ - -void println_float(float toPrint); /*func*/ - -void println_double(double toPrint); /*func*/ -/* template function delete NoValue */ -/* template function delete NoValue */ -/* template function delete NoValue */ -/* template function delete NoValue */ - -void delete_lessthan_char_greaterthan__char_P__(char* toDelete); /*func*/ - -void delete_lessthan_char_greaterthan__char_P___int(char* toDelete, int itemCount); /*func*/ - -void delete_lessthan_double_greaterthan__double_P__(double* toDelete); /*func*/ - -void delete_lessthan_double_greaterthan__double_P___int(double* toDelete, int itemCount); /*func*/ -/* template function free NoValue */ -/* template function malloc NoValue */ - -char* malloc_lessthan_char_greaterthan__int(int size); /*func*/ - -double* malloc_lessthan_double_greaterthan__int(int size); /*func*/ -/* template function new NoValue */ -/* template function new NoValue */ - -char* new_lessthan_char_greaterthan__int(int count); /*func*/ - -double* new_lessthan_double_greaterthan__int(int count); /*func*/ -/* template function sizeof NoValue */ - -int sizeof_lessthan_char_greaterthan_(); /*func*/ - -int sizeof_lessthan_double_greaterthan_(); /*func*/ -/* Method Prototypes for string */ - -string* string__construct(string* this); - -string* string__construct_char_P__(string* this, char* str); - -char* string__toCharArray(string* this); -/* Done with string */ -/* template function greater NoValue */ -/* template function lesser NoValue */ - -int lesser_lessthan_int_greaterthan__int_int(int a, int b); /*func*/ -/* Method Prototypes for vector */ - -vector_lessthan_char_greaterthan_* vector_lessthan_char_greaterthan___construct(vector_lessthan_char_greaterthan_* this); - -void vector_lessthan_char_greaterthan___destruct(vector_lessthan_char_greaterthan_* this); - -bool vector_lessthan_char_greaterthan___resize_int(vector_lessthan_char_greaterthan_* this, int newSize); - -char vector_lessthan_char_greaterthan___at_int(vector_lessthan_char_greaterthan_* this, int index); - -char vector_lessthan_char_greaterthan___get_int(vector_lessthan_char_greaterthan_* this, int index); - -char* vector_lessthan_char_greaterthan___getBackingMemory(vector_lessthan_char_greaterthan_* this); - -void vector_lessthan_char_greaterthan___set_int_char(vector_lessthan_char_greaterthan_* this, int index, char dataIn); - -void vector_lessthan_char_greaterthan___addEnd_char(vector_lessthan_char_greaterthan_* this, char dataIn); -/* Done with vector */ -/* Method Prototypes for vector */ - -vector_lessthan_double_greaterthan_* vector_lessthan_double_greaterthan___construct(vector_lessthan_double_greaterthan_* this); - -void vector_lessthan_double_greaterthan___destruct(vector_lessthan_double_greaterthan_* this); - -bool vector_lessthan_double_greaterthan___resize_int(vector_lessthan_double_greaterthan_* this, int newSize); - -double vector_lessthan_double_greaterthan___at_int(vector_lessthan_double_greaterthan_* this, int index); - -double vector_lessthan_double_greaterthan___get_int(vector_lessthan_double_greaterthan_* this, int index); - -double* vector_lessthan_double_greaterthan___getBackingMemory(vector_lessthan_double_greaterthan_* this); - -void vector_lessthan_double_greaterthan___set_int_double(vector_lessthan_double_greaterthan_* this, int index, double dataIn); - -void vector_lessthan_double_greaterthan___addEnd_double(vector_lessthan_double_greaterthan_* this, double dataIn); -/* Done with vector */ diff --git a/ChrisTest/DotProdTest/DotProdTest.sh b/ChrisTest/DotProdTest/DotProdTest.sh deleted file mode 100644 index e882242..0000000 --- a/ChrisTest/DotProdTest/DotProdTest.sh +++ /dev/null @@ -1,2 +0,0 @@ -#!/bin/sh -cc -std=c99 DotProdTest.c -o DotProdTest \ No newline at end of file diff --git a/stdlib/.io.krak.un~ b/stdlib/.io.krak.un~ deleted file mode 100644 index 550e9d8..0000000 Binary files a/stdlib/.io.krak.un~ and /dev/null differ diff --git a/stdlib/vector.krak b/stdlib/vector.krak index 61e55fc..512a0f6 100644 --- a/stdlib/vector.krak +++ b/stdlib/vector.krak @@ -1,6 +1,6 @@ import mem:*; import util:*; -//import io:*; +import io:*; typedef template vector (Destructable) { |T*| data; @@ -36,7 +36,9 @@ typedef template vector (Destructable) { |T| get(|int| index) { if (index < 0 || index >= size) { - // println("Vector access out of bounds! Retuning 0th element as sanest option"); + println("Vector access out of bounds! Retuning 0th element as sanest option"); + print("Vector tried to access element: "); + println(index); return data[0]; } return data[index];