Mercurial > hg > octave-nkf

comparison src/utils.cc @ 186:7a647cf4850c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-10-25 23:15:50 by jwe]
author jwe
date Mon, 25 Oct 1993 23:15:50 +0000
parents 8a750c9ad116
children de0e58f9b064
comparison
equal deleted inserted replaced
185:2c7bce68e3d8 186:7a647cf4850c
408 char *tmp = strconcat (oh, "/lib/octave/"); 408 char *tmp = strconcat (oh, "/lib/octave/");
409 ol = strconcat (tmp, version_string); 409 ol = strconcat (tmp, version_string);
410 return ol; 410 return ol;
411 } 411 }
412 412
413 static char *
414 octave_info_dir (void)
415 {
416 static char *oi = (char *) NULL;
417 delete [] oi;
418 char *oh = octave_home ();
419 oi = strconcat (oh, "/info/");
420 return oi;
421 }
422
413 char * 423 char *
414 default_path (void) 424 default_path (void)
415 { 425 {
416 static char *pathstring = (char *) NULL; 426 static char *pathstring = (char *) NULL;
417 delete [] pathstring; 427 delete [] pathstring;
422 { 432 {
423 char *libdir = octave_lib_dir (); 433 char *libdir = octave_lib_dir ();
424 pathstring = strconcat (".:", libdir); 434 pathstring = strconcat (".:", libdir);
425 } 435 }
426 return pathstring; 436 return pathstring;
437 }
438
439 char *
440 default_info_file (void)
441 {
442 static char *info_file_string = (char *) NULL;
443 delete [] info_file_string;
444 char *oct_info_file = getenv ("OCTAVE_INFO_FILE");
445 if (oct_info_file != (char *) NULL)
446 info_file_string = strsave (oct_info_file);
447 else
448 {
449 char *infodir = octave_info_dir ();
450 info_file_string = strconcat (infodir, "octave.info");
451 }
452 return info_file_string;
427 } 453 }
428 454
429 char * 455 char *
430 get_site_defaults (void) 456 get_site_defaults (void)
431 { 457 {