| 1369 | } |
| 1370 | } |
| 1371 | void module_help_proc(const char *newlib,const char *p, const char *help) |
| 1372 | { |
| 1373 | char *plib = iiConvName(newlib); |
| 1374 | idhdl pl = basePack->idroot->get(plib,0); |
| 1375 | if ((pl==NULL)||(IDTYP(pl)!=PACKAGE_CMD)) |
| 1376 | Werror(">>%s<< is not a package(trying to add help for %s)",plib,p); |
| 1377 | else |
| 1378 | { |
| 1379 | package s=currPack; |
| 1380 | currPack=IDPACKAGE(pl); |
| 1381 | char buff[SINGULAR_PATH_LENGTH]; |
| 1382 | buff[SINGULAR_PATH_LENGTH-1]='\0'; |
| 1383 | strncpy(buff,p,SINGULAR_PATH_LENGTH-1); |
| 1384 | strncat(buff,"_help",SINGULAR_PATH_LENGTH-1-strlen(p)); |
| 1385 | idhdl h=enterid(buff,0,STRING_CMD,&IDROOT,FALSE); |
| 1386 | IDSTRING(h)=omStrDup(help); |
| 1387 | currPack=s; |
| 1388 | } |
| 1389 | } |
| 1390 | /*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/ |
| 1391 | |
| 1392 | #ifdef HAVE_DYNAMIC_LOADING |
no test coverage detected