1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
$! The following extracts documentation from pgplot source files.
$!
$! This procedure assumes the current configuration's drivers.list is
$! in the current default directory.
$!
$! The following files are created:
$!
$! pgplot.index - a listing of routine names and short descriptions,
$! one routine per line
$! pgplot.doc - documentation extracted from source files,
$! one routine per page
$! pgplot.hlp - VMS help file showing routines and drivers
$
$ on error then $ goto abort
$ on severe_error then $ goto abort
$ on control_y then $ goto abort
$ pgplot = p1
$ src = pgplot - "]" + ".src]"
$ file_list = "''src'pg*.f"
$ ff[0,8] = 12
$ tab[0,8] = 9
$ copy sys$input pgplot.hlp
1 PGPLOT
PGPLOT GRAPHICS SUBROUTINE LIBRARY Version 5.1
PGPLOT is a Fortran subroutine package for drawing graphs on a variety
of display devices. For more details, see the manual ``PGPLOT Graphics
Subroutine Library'' available from T. J. Pearson
(tjp@astro.caltech.edu).
2 Routines
$ open/append hlp_file pgplot.hlp
$ create pgplot.hlp3
$ open/append hlp3_file pgplot.hlp3
$ create pgplot.index
$ open/append index_file pgplot.index
$ create pgplot.doc
$ open/append doc_file pgplot.doc
$ next_file:
$ file_name = f$search (file_list)
$ if file_name .eqs. "" then $ goto last_file
$ open/read src_file 'file_name'
$ read src_file title
$ if f$edit (f$extract (0, 2, title), "upcase") .nes. "C*" -
then $ goto end_file
$ write index_file f$extract (2, 255, title)
$ write doc_file ff
$ write doc_file title
$ look_for_doc:
$ read/end=end_file src_file line
$ write doc_file line
$ if f$edit (f$extract (0, 2, line), "upcase") .nes. "C+" -
then $ goto look_for_doc
$ write hlp_file " " + f$extract (2, 255, title)
$ write hlp3_file "3 " + f$element (0, " ", f$extract (2, 255, title))
$ write hlp3_file " " + f$extract (2, 255, title)
$ read_doc:
$ read/end=no_end src_file line
$ write doc_file line
$ if f$edit (f$extract (0, 2, line), "upcase") .eqs. "C-" -
then $ goto end_file
$ write hlp3_file " " + f$extract (1, 255, line)
$ goto read_doc
$
$ no_end:
$ write sys$output "No C- in ''file_name'"
$
$ end_file:
$ close src_file
$ goto next_file
$
$ last_file:
$ close hlp_file
$ close hlp3_file
$ close index_file
$ close doc_file
$ append pgplot.hlp3 pgplot.hlp
$ delete pgplot.hlp3;*
$
$ open/read drivers_file drivers.list
$ open/append hlp_file pgplot.hlp
$ write hlp_file "2 Drivers"
$ write hlp_file " The following drivers are supported on this system:"
$ write hlp_file ""
$ write hlp_file " File Code Description"
$ open/read drivers_file drivers.list
$ next_driver:
$ read/end=last_driver drivers_file driver
$ if f$extract (0, 1, driver) .nes. " " then $ goto next_driver
$ len = f$locate (tab, driver) ! tab is end of line
$ write hlp_file " " + f$extract (1, len-1, driver)
$ goto next_driver
$ last_driver:
$ close hlp_file
$ close drivers_file
$ exit (1)
$
$ abort:
$ write sys$output file_name
$ close src_file
$ close drivers_file
$ close hlp_file
$ close hlp3_file
$ close index_file
$ close doc_file
$ exit (0)
|
