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;
}
