static void
record_writer(struct cdt_record *rp)
{
fputs("<oracc:record>",wfile);
list_exec(rp->fields,(list_exec_func*)field_writer);
fputs("</oracc:record>",wfile);
}
static void
debug_each_composite_column()
{
List *vlist;
do_indent ();
fprintf (ipf->output_fp,
"<comp_col %d text=\"%s\" delim=\"%s\" viswidth=%d maxwidth=%d zero=%s space=%s\n",
iterate_composite_column->index,
iterate_composite_column->text,
print_escaped(iterate_composite_column->delim),
iterate_composite_column->visible_width,
iterate_composite_column->maxwidth,
t_or_f(iterate_composite_column->zero_flag),
t_or_f(iterate_composite_column->space_flag));
do_indent ();
fprintf (ipf->output_fp,
"\tcomplex_index=%d complex_columns=%d complex_has_variant=%s s_l_d=%s phant=%s>\n",
iterate_composite_column->complex_index,
iterate_composite_column->complex_columns,
t_or_f(iterate_composite_column->complex->complex_has_variant),
t_or_f(iterate_composite_column->short_line_divider),
t_or_f(iterate_composite_column->needs_phantom));
do_indent ();
fprintf (ipf->output_fp, "\tcomplex = %p\n", iterate_composite_column);
vlist = vars_lookup2(iterate_line->name, iterate_composite_column->index);
if (list_len(vlist))
{
indent += 2;
vars_normalize_length(vlist);
list_exec (vlist, debug_print_variant);
indent -= 2;
}
}
static Scheme_Object *
list_star_immutable_prim (int argc, Scheme_Object *argv[])
{
Scheme_Object *l;
l = list_exec(argc, argv, 1);
scheme_make_list_immutable(l);
return l;
}
static void
db_writer(FILE *fp, struct cdt_node *np)
{
struct cdt_database *db = list_first(np->children);
wfile = fp;
fprintf(wfile,"<oracc:data oracc:type=\"%s\">",db->type);
list_exec(db->records,(list_exec_func *)record_writer);
fputs("</oracc:data>",wfile);
}
int
main (int argc, char **argv)
{
char *fn = NULL;
List *files = list_create(LIST_SINGLE);
while (NULL != (fn = fgets(fnbuf,_MAX_PATH,stdin)))
{
fn[strlen(fn)-1] = '\0';
list_add(files,strdup(fn));
}
fnlist = malloc((1+files->count) * sizeof(const char *));
findex = 0;
list_exec(files,fn_expand);
fnlist[findex] = NULL;
kwic_fp = xfopen(kwic_fn,"b");
unit_fp = xfopen(unit_f,"b");
runexpatNS(i_list, fnlist, start_wm, end_wm, "|");
xfclose(kwic_fn,kwic_fp;
xfclose(unit_fn_kwic_fp);
}
static void
serialize_psu_list(char *key,List *lp)
{
psu_list_lang = key;
list_exec(lp,(list_exec_func*)serialize_one_psu);
}
int
main(int argc, char * const*argv)
{
List *files = list_create(LIST_SINGLE);
char *fn;
unsigned char *key;
FILE*keysf;
const char *keysname, *fldsname;
int i,top;
f_log = stderr;
options(argc,argv,"2c:p:s");
if (!curr_project)
usage();
setlocale(LC_ALL,LOCALE);
if (l2)
vidp = vid_load_data(se_file(curr_project,"cat","vid.dat"));
estp = est_init(curr_project, "cat");
dp = dbi_create("cat",
se_dir(curr_project,"cat"),
500000,
sizeof(struct location8),DBI_ACCRETE);
dbi_set_cache(dp,cache_size);
dbi_set_user(dp,d_cat);
progress("secatx: creating index %s\n",dp->dir);
pqidsf = xfopen(se_file(curr_project,"cat","pqids.lst"),"w");
fldsname = strdup(se_file(curr_project,"cat","fieldnames.tab"));
fldsf = xfopen(fldsname,"w");
for (i = 0,top=(sizeof(static_names)/sizeof(const char *))-3;
i < top;
++i)
{
struct sn_tab *s = statnames(static_names[i],strlen(static_names[i]));
fprintf(fldsf,"%s\t%d\n",static_names[i],s->uid);
}
if (one_big_stdin)
{
runexpat(i_stdin, NULL, startElement, endElement);
}
else
{
while (NULL != (fn = fgets(fnbuf,_MAX_PATH,stdin)))
{
fn[strlen(fn)-1] = '\0';
list_add(files,strdup(fn));
}
fnlist = malloc(1+files->count * sizeof(const char *));
findex = 0;
list_exec(files,fn_expand);
runexpat(i_list, fnlist, startElement, endElement);
}
dbi_flush(dp);
dbi_free(dp);
est_dump(estp);
est_term(estp);
if (l2)
{
vid_free(vidp);
vidp = NULL;
}
progress("secatx: completed db creation\n");
dp = dbi_open("cat",se_dir(curr_project,"cat"));
if (dp && dp->h.entry_count > 0)
{
keysname = strdup(se_file(curr_project,"cat","key.lst"));
keysf = xfopen(keysname,"w");
while (NULL != (key = dbi_each (dp)))
#if 1
fprintf(keysf,"%s\n",key);
#else
fprintf(keysf,"%lu\t%s\n",(unsigned long)dp->nfound,key);
#endif
xfclose(keysname,keysf);
}
else
{
fprintf(stderr,"secatx: no keys in input\n");
}
dbi_close(dp);
xfclose(fldsname,fldsf);
ce_cfg(curr_project, "cat", "catalog", "xmd", ce_xmd, NULL);
return 0;
}
static Scheme_Object *
list_star_prim (int argc, Scheme_Object *argv[])
{
return list_exec(argc, argv, 1);
}
static int
asm_exec(const char *infile, const char *outfile)
{
list_t *l;
const char *file;
int rv;
if (opt.prog_asm == NULL)
error("No assembler is defined");
l = list_alloc();
list_add_file(l, opt.prog_asm, &progdirs, X_OK);
Wflag_add(l, W_ASM);
list_add_list(l, opt.Wa);
{
-p gnu
-f <type>
#if defined(USE_YASM)
av[na++] = "-p";
av[na++] = "gnu";
av[na++] = "-f";
#if defined(os_win32)
av[na++] = "win32";
#elif defined(os_darwin)
av[na++] = "macho";
#else
av[na++] = "elf";
#endif
#endif
#if defined(os_sunos) && defined(mach_sparc64)
av[na++] = "-m64";
#endif
#if defined(os_darwin)
if (Bstatic)
av[na++] = "-static";
#endif
#if !defined(USE_YASM)
if (vflag)
av[na++] = "-v";
#endif
if (kflag)
av[na++] = "-k";
#ifdef os_darwin
av[na++] = "-arch";
#if mach_amd64
av[na++] = amd64_i386 ? "i386" : "x86_64";
#else
av[na++] = "i386";
#endif
#else
#ifdef mach_amd64
if (amd64_i386)
av[na++] = "--32";
#endif
#endif
av[na++] = "-o";
if (outfile && cflag)
ermfile = av[na++] = outfile;
else if (cflag)
ermfile = av[na++] = olist[i] = setsuf(clist[i], 'o');
else
ermfile = av[na++] = olist[i] = gettmp();
av[na++] = assource;
av[na++] = 0;
if (callsys(as, av)) {
cflag++;
eflag++;
cunlink(tmp4);
continue;
}
}
if (infile != NULL)
list_add(l, infile);
else if (outfile != NULL)
list_add(l, "-");
if (outfile != NULL) {
list_add(l, "-o");
list_add(l, outfile);
}
rv = list_exec(l);
list_free(l);
return rv;
}
