Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

[r7649]: incubator / DocMusings / transformxml / help.cls Maximize Restore History

Download this file

help.cls    17 lines (15 with data), 538 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
::routine Help public
-- The help text is taken from the comment at the begining of the source file.
use strict arg source
sourcename = filespec("name", source)
display = .false
signal on notready
do forever
sourceline = linein(source)
if sourceline~pos("****/") <> 0 then leave
sourceline = sourceline~changeStr("$sourcename", sourcename)
if display then say sourceline
if sourceline~pos("/****") <> 0 then display = .true
end
notready:
return