Mercurial > hg > octave-nkf
comparison src/help.cc @ 3168:1c267910655d
[project @ 1998-04-19 01:22:38 by jwe]
author | jwe |
---|---|
date | Sun, 19 Apr 1998 01:23:10 +0000 |
parents | 45490c020e47 |
children | 9580887dd160 |
comparison
equal
deleted
inserted
replaced
3167:d609b993be3b | 3168:1c267910655d |
---|---|
394 } | 394 } |
395 | 395 |
396 void | 396 void |
397 additional_help_message (ostream& os) | 397 additional_help_message (ostream& os) |
398 { | 398 { |
399 #if defined (USE_GNU_INFO) | |
400 | |
401 if (! Vsuppress_verbose_help_message) | 399 if (! Vsuppress_verbose_help_message) |
402 os << "\n\ | 400 os << "\n\ |
403 Additional help for builtin functions, operators, and variables\n\ | 401 Additional help for builtin functions, operators, and variables\n\ |
404 is available in the on-line version of the manual. Use the command\n\ | 402 is available in the on-line version of the manual. Use the command\n\ |
405 `help -i <topic>' to search the manual index.\n"; | 403 `help -i <topic>' to search the manual index.\n"; |
406 | |
407 #endif | |
408 | 404 |
409 if (! Vsuppress_verbose_help_message) | 405 if (! Vsuppress_verbose_help_message) |
410 os << "\n\ | 406 os << "\n\ |
411 Help and information about Octave is also available on the WWW\n\ | 407 Help and information about Octave is also available on the WWW\n\ |
412 at http://www.che.wisc.edu/octave/octave.html and via the\n\ | 408 at http://www.che.wisc.edu/octave/octave.html and via the\n\ |
575 | 571 |
576 names.list_in_columns (octave_stdout); | 572 names.list_in_columns (octave_stdout); |
577 } | 573 } |
578 } | 574 } |
579 } | 575 } |
580 | |
581 #if defined (USE_GNU_INFO) | |
582 | 576 |
583 static int | 577 static int |
584 try_info (const string& nm) | 578 try_info (const string& nm) |
585 { | 579 { |
586 int status = 0; | 580 int status = 0; |
652 } | 646 } |
653 } | 647 } |
654 } | 648 } |
655 } | 649 } |
656 | 650 |
657 #else | |
658 | |
659 static void | |
660 help_from_info (const string_vector&, int, int) | |
661 { | |
662 message ("help", "Info help is not available in this version of Octave"); | |
663 } | |
664 | |
665 #endif | |
666 | |
667 static bool | 651 static bool |
668 help_from_list (ostream& os, const help_list *list, | 652 help_from_list (ostream& os, const help_list *list, |
669 const string& nm, int usage) | 653 const string& nm, int usage) |
670 { | 654 { |
671 const char *name; | 655 const char *name; |
736 } | 720 } |
737 | 721 |
738 additional_help_message (octave_stdout); | 722 additional_help_message (octave_stdout); |
739 } | 723 } |
740 | 724 |
741 #if defined (USE_GNU_INFO) | |
742 #define HELP_DOC_STRING \ | |
743 "help [-i] [topic ...]\n\nprint cryptic yet witty messages" | |
744 #else | |
745 #define HELP_DOC_STRING \ | |
746 "help [topic ...]\n\nprint cryptic yet witty messages" | |
747 #endif | |
748 | |
749 DEFUN_TEXT (help, args, , | 725 DEFUN_TEXT (help, args, , |
750 HELP_DOC_STRING) | 726 "help [-i] [topic ...]\n\ |
727 \n\ | |
728 print cryptic yet witty messages") | |
751 { | 729 { |
752 octave_value_list retval; | 730 octave_value_list retval; |
753 | 731 |
754 int argc = args.length () + 1; | 732 int argc = args.length () + 1; |
755 | 733 |