int main(int argc, char **argv) { struct string_list *filelist = NULL; char *file; preprocess_only = 1; sparse_initialize(argc, argv, &filelist); FOR_EACH_PTR_NOTAG(filelist, file) { sparse(file); } END_FOR_EACH_PTR_NOTAG(file);
int main(int argc, char **argv) { static struct reporter reporter = { .r_symdef = r_symdef, .r_symbol = r_symbol, .r_member = r_member, }; struct string_list *filelist = NULL; char *file; SPARSE_CTX_INIT; sparse_initialize(sctx_ argc, argv, &filelist); FOR_EACH_PTR_NOTAG(filelist, file) { dotc_stream = sctxp input_stream_nr; dissect(sctx_ __sparse(sctx_ file), &reporter); } END_FOR_EACH_PTR_NOTAG(file);
static void test_sparse() { int *col_ind[MAXPROC]; double *values[MAXPROC], *vec[MAXPROC], *svec[MAXPROC]/*, start_time*/; int n, non_zero, *row_ind; sparse_initialize(&n, &non_zero, &row_ind, col_ind, values, vec, svec); armci_msg_barrier(); /*start_time = armci_timer();*/ sparse_multiply(n, non_zero, row_ind, col_ind, values, vec, svec); /* printf("%d: Timetaken = %f\n", me, armci_timer()-start_time); */ armci_msg_barrier(); if(me==0) gather_solution_vector(svec); if(me==0) { printf("O.K.\n"); fflush(stdout); } destroy_array((void **)vec); }
int main(int argc, char **argv) { struct string_list *filelist = NULL; struct symbol_list *builtins; char *file; builtins = sparse_initialize(argc, argv, &filelist); FOR_EACH_PTR_NOTAG(filelist, file) { struct symbol_list *syms; module_t m; syms = sparse(file); if (die_if_error) return 1; m = alloc_module(file); compile(m, builtins); compile(m, syms); verify_module(m); print_module(m, STDOUT_FILENO); free_module(m); } END_FOR_EACH_PTR_NOTAG(file); return 0; }