Changeset e54eb4 in git
- Timestamp:
- May 4, 1998, 7:17:29 PM (25 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
- Children:
- c5a88891ba4d777fe9b97be6204411eb90c6f654
- Parents:
- 88289708ee359c59e161ac6dfdaaac7d14fcccef
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/tesths.cc
r882897 re54eb4 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: tesths.cc,v 1.3 7 1998-05-04 11:36:45 obachmanExp $ */4 /* $Id: tesths.cc,v 1.38 1998-05-04 17:17:26 Singular Exp $ */ 5 5 6 6 /* … … 59 59 { 60 60 #ifdef HAVE_MPSR 61 {LON_BATCH, 0, 0, 'b'}, 61 {LON_BATCH, 0, 0, 'b'}, 62 62 #endif 63 63 {LON_HELP, 0, 0, 'h'}, 64 {LON_QUIET, 0, 0, 'q'}, 64 {LON_QUIET, 0, 0, 'q'}, 65 65 {LON_NO_TTY, 0, 0, 't'}, 66 66 {LON_VERSION, 0, 0, 'v'}, … … 96 96 const char* arg_name;// name of argument, if has_arg > 0 97 97 const char* help; // (short) help string 98 char* val; // (default) value of option: 0: not set 1:set 98 char* val; // (default) value of option: 0: not set 1:set 99 99 // string:"" if has_arg > 0 100 100 }; 101 101 102 102 // mention only documented options here 103 static struct sing_option sing_longopts[] = 104 { 105 #ifdef HAVE_MPSR 106 {LON_BATCH, 0, "Run in MP batch mode", 0}, 103 static struct sing_option sing_longopts[] = 104 { 105 #ifdef HAVE_MPSR 106 {LON_BATCH, 0, "Run in MP batch mode", 0}, 107 107 #endif 108 108 {LON_HELP, 0, "Print help message and exit", 0}, 109 {LON_QUIET, 0, "Do not print start-up banner and warnings", 0}, 109 {LON_QUIET, 0, "Do not print start-up banner and warnings", 0}, 110 110 {LON_NO_TTY, 0, "Do not redefine the terminal characteristics", 0}, 111 111 {LON_VERSION, 0, "Print extended version and configuration info", 0}, 112 112 #ifdef HAVE_TCL 113 113 {LON_TCLMODE 0, "Run in TCL mode, i.e., with TCL user interface", 0}, 114 #endif 114 #endif 115 115 {LON_ECHO, "VAL", "Set value of variable `echo' to (integer) VAL", ""}, 116 116 {LON_EXECUTE, "STRING", "Execute STRING on start-up", ""}, … … 169 169 printf(" %s [options] [file1 [file2 ...]]\n", name); 170 170 printf("Options:\n"); 171 171 172 172 while (longopts[i].name != 0) 173 173 { … … 197 197 } 198 198 } 199 #ifndef NDEBUG 199 #ifndef NDEBUG 200 200 else 201 201 printf("--%s Undocumented\n", longopts[i].name); … … 229 229 Print("// --%-10s %d\n", sopt->name, sopt->val); 230 230 else 231 Print("// --%-10s %s\n", sopt->name, sopt->val); 231 Print("// --%-10s %s\n", sopt->name, sopt->val); 232 232 } 233 233 else … … 286 286 // parse command line options 287 287 while((optc = getopt_long(argc, argv, 288 SHORT_OPTS_STRING, longopts, &option_index)) 288 SHORT_OPTS_STRING, longopts, &option_index)) 289 289 != EOF) 290 290 { 291 291 switch(optc) 292 292 { 293 293 294 294 case 'b': 295 #ifdef HAVE_MPSR 295 #ifdef HAVE_MPSR 296 296 feBatch=TRUE; 297 297 mainSetSingOptionValue(LON_BATCH, (char*) 1); … … 371 371 mainSetSingOptionValue(LON_EXECUTE, optarg); 372 372 break; 373 373 374 374 case 'r': 375 375 errno = 0; … … 391 391 mainSetSingOptionValue(LON_RANDOM, optarg); 392 392 break; 393 393 394 394 case 'u': 395 395 mainSetSingOptionValue(LON_USER_OPTION, optarg); … … 412 412 if (mintime <= 0) 413 413 { 414 printf("%s: `%s' invalid float argument for option `--%s'\n", 414 printf("%s: `%s' invalid float argument for option `--%s'\n", 415 415 argv[0], optarg, LON_MIN_TIME); 416 416 mainUsage(argv[0]); … … 429 429 mainSetSingOptionValue(LON_MP_HOST, optarg); 430 430 } 431 #endif 431 #endif 432 432 else if (strcmp(longopts[option_index].name, LON_TICKS_PER_SEC) == 0) 433 433 { … … 466 466 { 467 467 printf( 468 " Welcome to SINGULAR/\n"469 " A Computer Algebra System o<%s\n"470 " for Commutative Algebra and Algebraic Geometry \\ %s\n\n"471 " by: G.-M. Greuel, G. Pfister, H. Schoenemann\n"472 "F achbereich Mathematik der Universitaet, D-67653 Kaiserslautern\n"468 " SINGULAR : a Computer Algebra System /\n" 469 " for Commutative Algebra and Algebraic Geometry / %s\n" 470 " 0<\n" 471 " by: G.-M. Greuel, G. Pfister, H. Schoenemann \\ %s\n" 472 "FB Mathematik der Universitaet, D-67653 Kaiserslautern \\\n" 473 473 #if 0 474 474 "contributions: O.Bachmann,W.Decker,H.Grassmann,B.Martin,M.Messollen,W.Neumann,\n" 475 475 "\tW.Pohl,T.Siebert,R.Stobbe,T.Wichmann\n" 476 476 "e-mail: singular@mathematik.uni-kl.de\n", S_VERSION1,S_VERSION2); 477 #endif 477 #endif 478 478 , S_VERSION1,S_VERSION2); 479 479 #if 0 480 480 printf("%s %s (%d)",S_VERSION1,S_VERSION2, SINGULAR_VERSION_ID); 481 #endif 482 printf("\nPlease note: EVERY COMMAND MUST END WITH A SEMICOLON\";"483 "\"\n(e.g., help; help command; help General syntax; help ring; quit;)\n \n");481 #endif 482 printf("\nPlease note: every command must end with a semicolon \";" 483 "\"\n(e.g., help; help command; help General syntax; help ring; quit;)\n"); 484 484 } 485 485 else … … 497 497 if (load_std_lib) 498 498 { 499 int vv=verbose; 500 verbose &= ~Sy_bit(V_LOAD_LIB); 499 501 iiLibCmd(mstrdup("standard.lib"),TRUE); 500 } 502 verbose=vv; 503 } 501 504 errorreported = 0; 502 505 #ifndef macintosh
Note: See TracChangeset
for help on using the changeset viewer.