source: git/modules/modgen/creat_top.cc @ 014db1

/****************************************
*  Computer Algebra System SINGULAR     *
****************************************/
/* $Id: creat_top.cc,v 1.10 2000-03-30 06:35:44 krueger Exp $ */
/*
* ABSTRACT: lib parsing
*/

#include <mod2.h>

#include "modgen.h"
extern int yylineno;

void enter_id(FILE *fp, char *name, char *value);
/*========================================================================*/
void  mod_copy_tmp(
  FILE *fp_out,
  FILE *fp_in
  )
{
  int nread;
  char buf[1024];
  
  fseek(fp_in, 0L, 0);
  do {
    memset(buf, 0, sizeof(buf));
    fgets(buf, sizeof(buf), fp_in);
    modlineno++;
    //nread = fread (buf, sizeof (char), sizeof(buf)-1, fp_in);
    if(strncmp(buf, "#line @d ", 8)==0) {
      buf[6]='%';
      fprintf(fp_out, buf, modlineno);
    }
    else
      fwrite(buf, sizeof(char), strlen(buf)/*nread*/, fp_out);
  } while(!feof(fp_in));
  fputs("\n", fp_out);
}

/*========================================================================*/
void write_enter_id(FILE *fp)
{
  fprintf(fp, "\nidhdl enter_id(char *name, char *value, idtyp t)\n");
  fprintf(fp, "{\n");
  fprintf(fp, "  idhdl h;\n");
  fprintf(fp, "\n");
  fprintf(fp, "  h=enterid(mstrdup(name),0, t, &IDROOT, TRUE/*FALSE*/);\n");
  fprintf(fp, "  if(h!=NULL) {\n");
  fprintf(fp, "     switch(t) {\n");
  fprintf(fp, "         case STRING_CMD: IDSTRING(h) = mstrdup(value);break;\n");
  fprintf(fp, "         case PACKAGE_CMD: break;\n");
  fprintf(fp, "         case PROC_CMD: break;\n");
  fprintf(fp, "     }\n");
  fprintf(fp, "  } else \n");
  fprintf(fp, "      Warn(\"Cannot create '%%s'\\n\", name);\n");
  fprintf(fp, "  return(h);\n");
  fprintf(fp, "}\n");
  modlineno+=16;
}

/*========================================================================*/
void write_add_singular_proc(FILE *fp)
{
  fprintf(fp, "\nidhdl add_singular_proc(char *procname, int line,\n");
  fprintf(fp, "                       long pos, long end, BOOLEAN pstatic)\n");
  fprintf(fp, "{\n");
  fprintf(fp, "  idhdl h;\n");
  fprintf(fp, "  procinfov pi;\n\n");
  fprintf(fp, "  h = enter_id(procname, NULL, PROC_CMD);\n");
  fprintf(fp, "  if(h == NULL) return NULL;\n");
  fprintf(fp, "\n");
//  fprintf(fp, "  pi->libname = mstrdup(libname);\n");
  fprintf(fp, "  pi->procname = mstrdup(procname);\n");
  fprintf(fp, "  pi->language = LANG_SINGULAR;\n");
  fprintf(fp, "  pi->ref = 1;\n");
  fprintf(fp, "  pi->is_static = pstatic;\n");
  fprintf(fp, "  pi->data.s.proc_start = pos;\n");
  fprintf(fp, "  pi->data.s.def_end    = pos;\n");
  fprintf(fp, "  pi->data.s.help_start = 0L;\n");
  fprintf(fp, "  pi->data.s.help_end   = 0L;\n");
  fprintf(fp, "  pi->data.s.body_start = pos;\n");
  fprintf(fp, "  pi->data.s.body_end   = end;\n");
  fprintf(fp, "  pi->data.s.proc_end   = end;\n");
  fprintf(fp, "  pi->data.s.example_start = 0L;\n");
  fprintf(fp, "  pi->data.s.proc_lineno = line;\n");
  fprintf(fp, "  pi->data.s.body_lineno = line;\n");
  fprintf(fp, "  pi->data.s.example_lineno = 0;\n");
  fprintf(fp, "  pi->data.s.body = NULL;\n");
  fprintf(fp, "  pi->data.s.help_chksum = 0;\n");
  fprintf(fp, "  \n");
  fprintf(fp, "  return(h);\n");
  fprintf(fp, "}\n");
  modlineno+=30;
}

/*========================================================================*/
void write_mod_init(
  moddefv module,
  FILE *fp
  )
{
  fprintf(fp, "\n\n");
  fprintf(fp, "#line @d \"%s.cc\"\n", module->name);
  fprintf(fp, "extern \"C\"\n");
  fprintf(fp, "int mod_init(int(*iiAddCproc)())\n{\n");
  fprintf(fp, "  idhdl h;\n");
  fprintf(fp, "  idhdl helphdl = enter_id(\"Help\", NULL, PACKAGE_CMD);\n");
  fprintf(fp, "  idhdl examplehdl = enter_id(\"Example\", NULL, PACKAGE_CMD);\n\n");
  fprintf(fp, "  \n");
  fprintf(fp, "   if( helphdl == NULL)\n");
  fprintf(fp, "     Warn(\"Cannot create help-package\\n\");\n");
  fprintf(fp, "   else fill_help_package(helphdl);\n");
  fprintf(fp, "  \n");
  fprintf(fp, "   if( examplehdl == NULL)\n");
  fprintf(fp, "     Warn(\"Cannot create example-package\\n\");\n");
  fprintf(fp, "   else fill_example_package(examplehdl);\n");
}

/*========================================================================*/
int write_intro(
    moddefv module
    )
{
  char filename[512];

  mkdir(module->name, 0755);
  strcpy(filename, build_filename(module, module->name, 1));
  
  fflush(module->fmtfp);

  if( (module->modfp = fopen(filename, "w")) == NULL) {
    //free(filename);
    return -1;
  }
  if(trace)printf("Creating %s, ", filename);fflush(stdout);
  mod_write_header(module->modfp, module->name, 'c');
  mod_copy_tmp(module->modfp, module->fmtfp);
  if(trace)printf("\n");fflush(stdout);
  fclose(module->fmtfp);
  if(create_tmpfile(module)) return -1;
  if(create_tmpfile(module, 1)) return -1;
  if(create_tmpfile(module, 2)) return -1;
  if(module->fmtfp2 == NULL) { printf("Cannot write HELP\n"); return -1; }
  if(module->fmtfp3 == NULL) { printf("Cannot write EXAMPLE\n"); return -1; }
  
  strcpy(filename, build_filename(module, module->name, 2));
  //sprintf(filename, "%s/%s.h", module->name, module->name);
  if( (module->modfp_h = fopen(filename, "w")) == NULL) {
    //free(filename);
    return -1;
  }
  if(trace)printf("Creating %s, ", filename);fflush(stdout);
  mod_write_header(module->modfp_h, module->name, 'h');
  if(trace)printf("\n");fflush(stdout);

  //free(filename);
//  write_enter_id(module->modfp);
  return 0;
}