Changeset 3736d1 in git


Ignore:
Timestamp:
Mar 28, 2000, 9:13:18 AM (24 years ago)
Author:
Kai Krüger <krueger@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
58933c7b39cf945f3d73d5e959ff796a1570cd3f
Parents:
3c49a46bb44fc187a6364954e04cc7833458140b
Message:
	* creat_top.cc:
	  - fixed initilisation bug (enterid())
	  - changed help/example packages into Help/Example


git-svn-id: file:///usr/local/Singular/svn/trunk@4222 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed
  • modules/modgen/creat_top.cc

    r3c49a4 r3736d1  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: creat_top.cc,v 1.6 2000-02-18 13:33:47 krueger Exp $ */
     4/* $Id: creat_top.cc,v 1.7 2000-03-28 07:13:18 krueger Exp $ */
    55/*
    66* ABSTRACT: lib parsing
     
    3636  fprintf(fp, "  idhdl h;\n");
    3737  fprintf(fp, "\n");
    38   fprintf(fp, "  h=enterid(mstrdup(name),0, t, &IDROOT, FALSE);\n");
     38  fprintf(fp, "  h=enterid(mstrdup(name),0, t, &IDROOT, TRUE/*FALSE*/);\n");
    3939  fprintf(fp, "  if(h!=NULL) {\n");
    4040  fprintf(fp, "     switch(t) {\n");
     
    4343  fprintf(fp, "         case PROC_CMD: break;\n");
    4444  fprintf(fp, "     }\n");
    45   fprintf(fp, "  }\n");
     45  fprintf(fp, "  } else \n");
     46  fprintf(fp, "      Warn(\"Cannot create '%%s'\\n\", name);\n");
    4647  fprintf(fp, "  return(h);\n");
    4748  fprintf(fp, "}\n");
     
    9192  fprintf(fp, "int mod_init(int(*iiAddCproc)())\n{\n");
    9293  fprintf(fp, "  idhdl h;\n");
    93   fprintf(fp, "  idhdl helphdl = enter_id(\"help\", NULL, PACKAGE_CMD);\n");
    94   fprintf(fp, "  idhdl examplehdl = enter_id(\"example\", NULL, PACKAGE_CMD);\n\n");
     94  fprintf(fp, "  idhdl helphdl = enter_id(\"Help\", NULL, PACKAGE_CMD);\n");
     95  fprintf(fp, "  idhdl examplehdl = enter_id(\"Example\", NULL, PACKAGE_CMD);\n\n");
    9596}
    9697
Note: See TracChangeset for help on using the changeset viewer.