Mercurial > hg > octave-nkf

comparison src/help.cc @ 2124:97a566037a75

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-05-12 07:16:36 by jwe]
author jwe
date Sun, 12 May 1996 07:16:36 +0000
parents 36903d507b0e
children 0bddc913621b
comparison
equal deleted inserted replaced
2123:ee55d81f585a 2124:97a566037a75
47 #include "oct-obj.h" 47 #include "oct-obj.h"
48 #include "pager.h" 48 #include "pager.h"
49 #include "pathsearch.h" 49 #include "pathsearch.h"
50 #include "pt-const.h" 50 #include "pt-const.h"
51 #include "pt-exp.h" 51 #include "pt-exp.h"
52 #include "pt-pr-code.h"
52 #include "sighandlers.h" 53 #include "sighandlers.h"
53 #include "symtab.h" 54 #include "symtab.h"
54 #include "toplev.h" 55 #include "toplev.h"
55 #include "unwind-prot.h" 56 #include "unwind-prot.h"
56 #include "user-prefs.h" 57 #include "user-prefs.h"
752 tree_fvc *defn = sym_rec->def (); 753 tree_fvc *defn = sym_rec->def ();
753 754
754 if (nargout == 0 && ! quiet) 755 if (nargout == 0 && ! quiet)
755 output_buf << argv[i] << " is a user-defined function\n"; 756 output_buf << argv[i] << " is a user-defined function\n";
756 757
757 defn->print_code (output_buf); 758 tree_print_code tpc (output_buf);
759
760 defn->accept (tpc);
758 } 761 }
759 762
760 // XXX FIXME XXX -- this code should be shared with 763 // XXX FIXME XXX -- this code should be shared with
761 // Fwhich. 764 // Fwhich.
762 765
806 << "' has unknown type!"; 809 << "' has unknown type!";
807 } 810 }
808 } 811 }
809 if (! tmp->is_map ()) 812 if (! tmp->is_map ())
810 { 813 {
811 tmp->print_code (output_buf); 814 tree_print_code tpc (output_buf);
815
816 tmp->accept (tpc);
812 817
813 if (nargout == 0) 818 if (nargout == 0)
814 output_buf << "\n"; 819 output_buf << "\n";
815 } 820 }
816 } 821 }