diff options
Diffstat (limited to 'pkg/system/phelp.cl')
| -rw-r--r-- | pkg/system/phelp.cl | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/pkg/system/phelp.cl b/pkg/system/phelp.cl new file mode 100644 index 00000000..4de3eab2 --- /dev/null +++ b/pkg/system/phelp.cl @@ -0,0 +1,41 @@ +# PHELP -- Paged help. + +procedure phelp (template) + +string template {prompt="module name template"} + +bool file_template=no {prompt="print help file"} +bool all=yes {prompt="find all modules matching template"} +string parameter="all" {prompt="parameter for which help is desired"} +string section="all" {prompt="section for which help is desired"} +string option="help" {prompt="type of help desired"} +int lmargin=1 {min=1, prompt="left margin"} +int rmargin=72 {min=2, prompt="right margin"} +string helpdb="helpdb" {prompt="help database to be used"} + +begin + file helptext + string s_template + + # Get a temp file to hold help text. + helptext = mktemp ("tmp$htx") + s_template = template + + # Run HELP, redirecting the output to the temp file. + help (s_template, > helptext, page=no, + all = all, + file_template = file_template, + parameter = parameter, + section = section, + option = option, + lmargin = lmargin, + rmargin = rmargin, + device = "terminal", + helpdb = helpdb) + + # Page saved text output. + page (helptext, prompt = s_template) + + # Delete temp file. + delete (helptext, verify-) +end |