Mercurial > repos > rhope
comparison interp.c @ 31:fab5bb137cf9
Added Unix Time worker to interpreter
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 28 Sep 2009 19:48:45 -0400 |
parents | 3cc5e4a42344 |
children | 9ee9adc696e7 |
comparison
equal
deleted
inserted
replaced
29:3cc5e4a42344 | 31:fab5bb137cf9 |
---|---|
2216 aworker->implement_func=(custom_worker *)vis_dropdown_select; | 2216 aworker->implement_func=(custom_worker *)vis_dropdown_select; |
2217 aworker->input_types[0] = BUILTIN_TYPE_DROPDOWN; | 2217 aworker->input_types[0] = BUILTIN_TYPE_DROPDOWN; |
2218 aworker->input_types[1] = BUILTIN_TYPE_WHOLE; | 2218 aworker->input_types[1] = BUILTIN_TYPE_WHOLE; |
2219 #endif | 2219 #endif |
2220 #endif | 2220 #endif |
2221 | 2221 aworker = create_worker(prog, "Unix Time", 0, 1, WORKER_TYPE); |
2222 aworker->implement_func=(custom_worker *)unix_time; | |
2222 /*if(current_def > num_defs) | 2223 /*if(current_def > num_defs) |
2223 num_defs = current_def; | 2224 num_defs = current_def; |
2224 if(current_company > num_companies) | 2225 if(current_company > num_companies) |
2225 num_companies = current_company;*/ | 2226 num_companies = current_company;*/ |
2226 } | 2227 } |
3999 //No one else knows about this new datum yet so we can skip getting a lock | 4000 //No one else knows about this new datum yet so we can skip getting a lock |
4000 datum_set_yesno(inputlist[0], result); | 4001 datum_set_yesno(inputlist[0], result); |
4001 return 0; | 4002 return 0; |
4002 } | 4003 } |
4003 | 4004 |
4005 int unix_time(datum ** inputlist, queue_entry * worker_entry) | |
4006 { | |
4007 inputlist[0] = new_datum(BUILTIN_TYPE_WHOLE, 2, 0, worker_entry->instance->def->program); | |
4008 inputlist[0]->c.integers.num_a = time(NULL); | |
4009 return 0; | |
4010 } | |
4011 | |
4004 int vis_end(datum ** inputlist, queue_entry * worker_entry) | 4012 int vis_end(datum ** inputlist, queue_entry * worker_entry) |
4005 { | 4013 { |
4006 // fprintf(outfile, "End worker reached.\n"); | 4014 // fprintf(outfile, "End worker reached.\n"); |
4007 execute_active=FALSE; | 4015 execute_active=FALSE; |
4008 release_ref(inputlist[0]); | 4016 release_ref(inputlist[0]); |