void QueueNew(queue* q)
{
q->a = (stack*)malloc(sizeof(stack));
q->b = (stack*)malloc(sizeof(stack));
StackNew(q->a);
StackNew(q->b);
}
int main()
{
int N = 50;
srand(time(0));
stack *s = StackNew();
printf("Node size = %ld Stack size = %ld\n", sizeof(node), sizeof(stack));
for (int i = 0; i < N; i++) {
printf("Push %d\n", i);
StackPush(s, i);
}
StackPrint(s);
for (int i = 0; i < N; i++) {
int n = StackPop(s);
printf("Pop %d\n", n);
if (i % 2 == 0)
printf("Peek = %d\n", StackPeek(s));
}
printf("Size = %d\n", s->size);
StackFree(s);
long sum = sizeof(node) * 50 + sizeof(stack);
printf("%ld total bytes\n", sum);
}
int main(){
const char *friends[] = { "Al", "Bob", "Carl" };
Stack stack;
StackNew( &stack, sizeof(char*), &StringFree );
int x;
for( x = 0; x < 3; x++ ){
char *copy = strdup( friends[x] );
StackPush( &stack, © );
}
printf( "Stack Size: %i\n", stack.logical_length );
char *name = "";
for( x = 0; x < 3; x++ ){
StackPop( &stack, &name );
printf( "%s\n", name );
free(name);
}
printf( "Stack Size: %i\n", stack.logical_length );
StackDispose( &stack );
return 0;
}
int
main(void)
{
int top;
int array[] = {4, 3, 11, 7, 6, 9};
Stack s;
StackNew(&s, sizeof(int));
StackPush(&s, array);
StackPush(&s, array + 1);
StackPush(&s, array + 2);
StackPush(&s, array + 3);
StackPush(&s, array + 4);
StackPush(&s, array + 5);
StackPop(&s, &top);
printf("Top 1: %d\n", top);
StackPop(&s, &top);
printf("Top 2: %d\n", top);
StackPop(&s, &top);
printf("Top 3: %d\n", top);
StackPop(&s, &top);
printf("Top 4: %d\n", top);
StackPop(&s, &top);
printf("Top 5: %d\n", top);
StackPop(&s, &top);
printf("Top 6: %d\n", top);
/*
* String a: My name
* String a: My name
* value of a: 0x8048b62
* value of ms: 0x8048b62
* value of p: 0xbfb35334
* Address &a: 0xbfb35334
* Address &p: 0xbfb35338
* Address &ms: 0xbfb3533c
* Value ms: My name
*/
char *a = "My name";
void *p = &a;
char *ms = *(char **)p;
printf("String a: %s\n", a);
printf("String a: %s\n", a);
printf("value of a: %p\n", a);
printf("value of ms: %p\n", ms);
printf("value of p: %p\n", p);
printf("Address &a: %p\n", &a);
printf("Address &p: %p\n", &p);
printf("Address &ms: %p\n", &ms);
printf("Value ms: %s\n", ms);
return 0;
}
Stack *BoxGetNeighbours(Box *b, byte dim) {
byte i, sigma;
Box *ngb;
Stack *s;
if (!b) return 0;
s = StackNew();
/* printf("tau=%d, ", b->tau); */
for (i=0; i<dim; i++) {
for (sigma=0; sigma<2; sigma++) {
/* printf("sigma=%d, ", sigma); */
ngb = BoxNeighbour(b, i, sigma);
/* if (ngb) printf("ngb=%d, ", ngb->no); */
/* if (ngb) printf("ngb->tau=%d, ", ngb->tau); */
/* if (ngb) printf("ngb->children=%d, ", BoxNoOfChildren(ngb)); */
BoxExpandNeighbours(ngb, i, sigma, s);
}
}
return s;
}
int main(void){
int a[]={10,20,30,40,50,60};
int array_size = sizeof(a)/sizeof(a[0]);
int element_size = sizeof(int);
int i;
Stack stackInt;
StackNew(&stackInt,element_size);
for(i=0;i<array_size;i++){
StackPush(&stackInt,&a[i]);
}
int value;
while(!StackEmpty(&stackInt)){
StackPop(&stackInt, &value);
printf("Popped Value: %d\n",value);
}
StackDispose(&stackInt);
return 0;
}
int main()
{
const char *friends[] = {"xx", "jj", "kk"};
Stack stringStack;
StackNew(&stringStack, sizeof(char*), freeFn);
int i;
for(i = 0; i < 3; ++i) {
char *copy = strdup(friends[i]);
StackPush(&stringStack, ©);
}
char *name;
for(i = 0; i < 3; ++i) {
StackPop(&stringStack, &name);
printf("%s\n", name);
free(name);
}
StackDispose(&stringStack);
return 0;
}
int main(void)
{
int i;
char *cadenas[] = {"hola", "mundo", "caca"};
char *p;
Stack test;
StackNew(&test, sizeof(char *), dispose_string);
for(i=0; i<3; i++)
{
p = strdup(cadenas[i]);
StackPush(&test, &p);
}
for(i=0; i<3; i++)
{
StackPop(&test, &p);
printf("%s ", p);
}
printf("\nComplete");
return 0;
}
static Context* ContextNew(Runtime* rt, StreamType inputType, const char* strOrFileName) {
Context* ctx = (Context*)malloc(sizeof(Context));
if(!ctx) {
return NULL;
}
ctx->runtime = rt;
ctx->lastObject = NULL;
ctx->stack = NULL;
ctx->environment = EnvironmentNew(rt->environment);
if(!ctx->environment) {
goto cleanup;
}
ctx->stack = StackNew();
if(!ctx->stack) {
goto cleanup;
}
ctx->reader = ReaderNew(inputType, strOrFileName);
if(!ctx->reader) {
goto cleanup;
}
goto end;
cleanup:
if(ctx) {
EnvironmentDelete(ctx->environment);
StackDelete(ctx->stack);
ctx = NULL;
}
end:
return ctx;
}
TValue vm_interpret(AttoVM* vm, AttoBlock* block, int start, int argc)
{
DEBUGF("Interpret block: %d ops\n", block->code->size);
int error = 0;
TValue* max = (TValue*)(block->code->elements + start + block->code->size);
TValue *pc_val = (TValue*)(block->code->elements + start);
Instruction i = TV2INST(*pc_val);
Stack *stack = &block->stack;
const char* opcode_names[] = { OPCODE_NAMES };
const char* op_name = NULL;
int x;
for(x = 0; pc_val < max && !error; ++x) {
op_name = i >= NUM_OPS ? "unknown" : opcode_names[i];
if(i >= NUM_OPS) {
ERROR("bad opcode: %d", i);
}
DEBUGF("[%d]\t%s (%d)\n", x, op_name, i);
switch(i) {
case OP_NOP:
DISPATCH;
case OP_POP:
EXPECT_ON_STACK(1);
TValue v = pop(stack);
valueDestroy(&v);
DISPATCH;
case OP_DUP: {
EXPECT_ON_STACK(1);
TValue v = pop(stack);
push(stack, v);
push(stack, v);
DISPATCH;
}
case OP_SWAP: {
EXPECT_ON_STACK(2);
TValue f = pop(stack);
TValue s = pop(stack);
push(stack, f);
push(stack, s);
DISPATCH;
}
case OP_ADD:
case OP_SUB:
case OP_MUL:
case OP_DIV:
case OP_MOD:
case OP_POW: {
EXPECT_ON_STACK(2);
TValue b = pop(stack);
TValue a = pop(stack);
TValue res = MathOp(i, a, b);
push(stack, res);
DISPATCH;
}
case OP_OR:
case OP_AND:
case OP_XOR: {
EXPECT_ON_STACK(2);
TValue b = pop(stack);
TValue a = pop(stack);
TValue res = BitwiseOp(i, a, b);
push(stack, res);
DISPATCH;
}
case OP_NOT: {
EXPECT_ON_STACK(1);
TValue a = pop(stack);
push(stack, createNumber(~(long)TV2NUM(a)));
DISPATCH;
}
case OP_EQ:
case OP_LT:
case OP_GT:
case OP_LTE:
case OP_GTE:
case OP_CMP: {
EXPECT_ON_STACK(2);
TValue b = pop(stack);
TValue a = pop(stack);
TValue res = ComparisonOp(i, a, b);
push(stack, res);
DISPATCH;
}
case OP_IF: {
EXPECT_ON_STACK(1);
TValue t = pop(stack);
if(boolValue(t)) {
NEXTINST;
}
DISPATCH;
}
case OP_JMP: {
EXPECT_ON_STACK(1);
long jmp = (long)TV2NUM(pop(stack));
if(jmp + pc_val >= max || jmp + (long)pc_val < 0) {
ERROR("Invalid jump: %ld", jmp);
}
pc_val += jmp;
DISPATCH;
}
case OP_PUSHCONST: {
int index = TV2INST(*++pc_val);
if(index >= (int)block->k->size) {
ERROR("Constant index out of bounds: %d", index);
}
TValue k = getIndex(block->k, index);
push(stack, k);
DISPATCH;
}
case OP_PUSHVAR: {
int index = TV2INST(*++pc_val);
if(index < 0 || index >= block->sizev) {
ERROR("Variable index out of bounds: %d", index);
}
DEBUGF("PUSHVAR, index %d, value >> %s\n", index, TValue_to_string(block->vars[index]));
TValue var = block->vars[index];
var.value.var.index = index;
block->vars[index] = var;
push(stack, var);
DISPATCH;
}
case OP_SETVAR: {
EXPECT_ON_STACK(2);
TValue var = pop(stack);
if(var.type != TYPE_VAR) {
ERROR("Expected a var, but got %s", TValue_type_to_string(var));
}
int index = var.value.var.index;
TValue *val = malloc(sizeof(TValue));
*val = pop(stack);
block->vars[index] = createVar(val);
DEBUGF("SETVAR, index %d, value >> %s\n", index, TValue_to_string(block->vars[index]));
DISPATCH;
}
case OP_VALUEVAR: {
EXPECT_ON_STACK(1);
TValue var = pop(stack);
if(var.type != TYPE_VAR) {
ERROR("Expected a var, but got %s", TValue_type_to_string(var));
}
Value val = *var.value.var.value;
AttoType type = var.value.var.type;
TValue t;
t.value = val;
t.type = type;
push(stack, t);
DISPATCH;
}
case OP_BOOLVALUE: {
EXPECT_ON_STACK(1);
TValue tos = pop(stack);
int bool = boolValue(tos);
valueDestroy(&tos);
push(stack, createBool(bool));
DISPATCH;
}
case OP_CONCAT: {
EXPECT_ON_STACK(2);
TValue top = pop(stack);
TValue sec = pop(stack);
if(!(top.type == TYPE_STRING && sec.type == TYPE_STRING)) {
ERROR("Expected two string values, but got %s and %s", TValue_type_to_string(sec),
TValue_type_to_string(top));
}
char *top_s = TV2STR(top);
char *sec_s = TV2STR(sec);
char *str = malloc(strlen(top_s) + strlen(sec_s));
strcpy(str, sec_s);
strcat(str, top_s);
valueDestroy(&top);
valueDestroy(&sec);
push(stack, createString(str, strlen(str), 0));
free(str);
DISPATCH;
}
case OP_PRINT: {
EXPECT_ON_STACK(1);
TValue v = pop(stack);
char *str = TValue_to_string(v);
printf("%s", str);
if(v.type == TYPE_NUMBER) free(str);
valueDestroy(&v);
DISPATCH;
}
case OP_READLINE: {
char *buf = malloc(BUFSIZ);
memset(buf, '\0', BUFSIZ);
if(fgets(buf, BUFSIZ, stdin) ) {
char *nl = strchr(buf, '\n');
if(nl) {
*nl = '\0';
}
}
unsigned len = strlen(buf) + 1;
push(stack, createString(buf, len, 0));
free(buf);
DISPATCH;
}
case OP_DUMPSTACK:
print_stack(*stack);
DISPATCH;
case OP_CLEARSTACK: {
Stack s = StackNew();
StackDestroy(&block->stack);
*stack = s;
DISPATCH;
}
case OP_CALL: {
EXPECT_ON_STACK(2);
TValue fcn = pop(stack);
TValue num = pop(stack);
// FIXME: this explodes when types aren't right :(
if(fcn.type != TYPE_FUNCTION || num.type != TYPE_NUMBER) {
ERROR("Expected function and numeric values, but got %s and %s", TValue_type_to_string(fcn),
TValue_type_to_string(num));
}
int nargs = (int)TV2NUM(num);
EXPECT_ON_STACK(nargs);
int j;
for(j = 0; j < nargs; ++j) {
TValue v = pop(stack);
push(&fcn.value.function.b->stack, v);
}
TValue ret = vm_interpret(vm, fcn.value.function.b, 0, nargs);
if(ret.type != TYPE_NULL) {
push(stack, ret);
}
valueDestroy(&fcn);
valueDestroy(&num);
valueDestroy(&fcn);
DISPATCH;
}
case OP_RETURN: {
EXPECT_ON_STACK(1);
TValue ret = pop(stack);
DEBUGF("Finished block, returning with %s\n", TValue_to_string(ret));
return ret;
DISPATCH;
}
default:
ERROR("Unrecognized opcode: %d", i);
}
}
DEBUGLN("Finished block");
return createNull();
}
