[r7648]: incubator / DocMusings / transformxml / help.rex  Maximize  Restore  History

Download this file

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

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks