Mercurial > hg > xemacs-beta

comparison lib-src/ellcc.c @ 1706:9fc738581a9d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-09-22 03:21:12 by james] Remove GNU DLD support, fix the C++ build, make eval-related functions visible to modules, and fix minor Windows-related problems.
author james
date Mon, 22 Sep 2003 03:21:19 +0000
parents 4d97756f2fbe
children 543769b89fed
comparison
equal deleted inserted replaced
1705:cdbc76885304 1706:9fc738581a9d
713 { 713 {
714 fatal ("Failed to open output file %s", mod_output); 714 fatal ("Failed to open output file %s", mod_output);
715 } 715 }
716 fprintf (mout, "/* DO NOT EDIT - AUTOMATICALLY GENERATED */\n\n"); 716 fprintf (mout, "/* DO NOT EDIT - AUTOMATICALLY GENERATED */\n\n");
717 fprintf (mout, "#include <emodules.h>\n\n"); 717 fprintf (mout, "#include <emodules.h>\n\n");
718 fprintf (mout, "#ifdef __cplusplus\n");
719 fprintf (mout, "extern \"C\" {\n");
720 fprintf (mout, "#endif\n");
721 fprintf (mout, "extern const long emodule_compiler;\n");
722 fprintf (mout, "extern const char *emodule_name, *emodule_version, *emodule_title;\n");
723 fprintf (mout, "extern void docs_of_%s (void);\n", SSTR(mod_name));
724 fprintf (mout, "#ifdef __cplusplus\n");
725 fprintf (mout, "}\n");
726 fprintf (mout, "#endif\n\n");
718 fprintf (mout, "const long emodule_compiler = %ld;\n", EMODULES_REVISION); 727 fprintf (mout, "const long emodule_compiler = %ld;\n", EMODULES_REVISION);
719 fprintf (mout, "const char *emodule_name = \"%s\";\n", SSTR(mod_name)); 728 fprintf (mout, "const char *emodule_name = \"%s\";\n", SSTR(mod_name));
720 fprintf (mout, "const char *emodule_version = \"%s\";\n", SSTR(mod_version)); 729 fprintf (mout, "const char *emodule_version = \"%s\";\n", SSTR(mod_version));
721 fprintf (mout, "const char *emodule_title = \"%s\";\n", SSTR(mod_title)); 730 fprintf (mout, "const char *emodule_title = \"%s\";\n\n", SSTR(mod_title));
722 fprintf (mout, "\n\n"); 731 fprintf (mout, "void docs_of_%s ()\n", SSTR(mod_name));
723 fprintf (mout, "void docs_of_%s (void);\n", SSTR(mod_name));
724 fprintf (mout, "void docs_of_%s (void)\n", SSTR(mod_name));
725 if (fclose (mout) != 0) 732 if (fclose (mout) != 0)
726 { 733 {
727 fatal ("Failed to close output file %s", mod_output); 734 fatal ("Failed to close output file %s", mod_output);
728 } 735 }
729 736