- return(1);
-}
-
-static int
-termp_rv_pre(DECL_ARGS)
-{
- int nchild;
-
- term_newln(p);
-
- nchild = n->nchild;
- if (nchild > 0) {
- term_word(p, "The");
-
- for (n = n->child; n; n = n->next) {
- term_fontpush(p, TERMFONT_BOLD);
- term_word(p, n->string);
- term_fontpop(p);
-
- p->flags |= TERMP_NOSPACE;
- term_word(p, "()");
-
- if (n->next == NULL)
- continue;
-
- if (nchild > 2) {
- p->flags |= TERMP_NOSPACE;
- term_word(p, ",");
- }
- if (n->next->next == NULL)
- term_word(p, "and");
- }
-
- if (nchild > 1)
- term_word(p, "functions return");
- else
- term_word(p, "function returns");
-
- term_word(p, "the value\\~0 if successful;");
- } else
- term_word(p, "Upon successful completion,"
- " the value\\~0 is returned;");
-
- term_word(p, "otherwise the value\\~\\-1 is returned"
- " and the global variable");
-
- term_fontpush(p, TERMFONT_UNDER);
- term_word(p, "errno");
- term_fontpop(p);
-
- term_word(p, "is set to indicate the error.");
- p->flags |= TERMP_SENTENCE;
-
- return(0);