Lines Matching refs:append
83 (set! package-text (string-append
95 (emit (string-append ".Sh \"" sect-name "\"\n"))
96 (string-append "mk-" macro-name) )))
152 (define converter (string-append source-form "2" target-form ))
156 (error (string-append "cannot locate " converter)))
178 (out-push-new (string-append tmp-dir "/.cmds")) :+][+:
185 (define rep-string (string-append "<<" field-name ">>"))
194 (define post-proc-cmd (string-append
221 (define cvt-fn (find-file (string-append
227 (define sec-file (string-append tmp-dir "/" sec-name))
242 (shell (string-append
284 INVOKE cond-section sec = "FILES" mode = "append" :+][+:
288 INVOKE cond-section sec = "ENVIRONMENT" mode = "append" :+][+:
293 INVOKE cond-section sec = "FILES" mode = "append" :+][+:
297 INVOKE cond-section sec = "DESCRIPTION" mode = "append" :+][+:
299 INVOKE cond-section sec = "BUGS" mode = "append" :+][+:
300 INVOKE cond-section sec = "NOTES" mode = "append" :+][+:
317 .\" append invoke the "append" macro to emit additional text
330 (set! file-name (string-append tmp-dir "/" macro-name))
343 == append :+][+:
345 INVOKE (string-append "append-" macro-name) :+][+:
382 INVOKE append-description :+][+:
390 DEFINE append-description :+][+:
417 ENDDEF append-description
437 (set! cvt-cmd (string-append (get "option-format") "2mdoc"))
452 (string-append ".Pp\n" (get "option-info") "\n") )
467 (if (> (string-length tmp-str) 3) (string-append
481 (string-append "Fl " tmp-val
483 (string-append (if (exist? "long-opts") "Fl -" "") "help" )
496 (string-append "Fl " tmp-val
498 (string-append (if (exist? "long-opts") "Fl -" "") "more-help" )
516 (string-append "Fl " tmp-val " Oo Ar cfgfile Oc"
519 (string-append (if (exist? "long-opts") "Fl -" "")
533 (string-append "Fl " tmp-val " Ar cfgfile"
535 (string-append " , " tmp-str "load-opts Ns = Ns Ar cfgfile"
538 (string-append tmp-str "load-opts Ns = Ns Ar cfgfile , "
558 (string-append "Fl " tmp-val " Op Brq Ar v|c|n"
561 (string-append (if (exist? "long-opts") "Fl -" "")
573 (shell (string-append
609 (get "rcfile" (string-append "." (get "prog-name") "rc")) )
617 The file "\fI[+: (string-append (get "homerc") "/" rc-file)
701 (string-append tmp-val "\n")
716 (string-append "Please send bug reports to: " tmp-val "\n")
722 DEFINE append-bugs :+][+:
726 (string-append "\n.Pp\nPlease send bug reports to: " tmp-val "\n") )
729 ENDDEF append-bugs
746 (string-append "This program is released under the terms of "
766 DEFINE append-notes :+]
771 ENDDEF append-notes
778 INVOKE append-environment :+][+:
783 DEFINE append-environment :+]
785 ENDDEF append-environment
792 INVOKE append-files :+][+:
797 DEFINE append-files :+]
799 ENDDEF append-files
838 (set! opt-name (string-append (get "enable") "-" (get "name")))
841 (set! dis-name (string-append (get "disable") "-" (get "name")))
850 (set! opt-arg (string-append "Ar "