Codebase list fis-gtm / HEAD sr_unix / gtmhlpld.m
HEAD

Tree @HEAD (Download .tar.gz)

gtmhlpld.m @HEAD — raw · history · blame 

 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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;								;
; Copyright (c) 2002-2017 Fidelity National Information		;
; Services, Inc. and/or its subsidiaries. All rights reserved.	;
;								;
;	This source code contains the intellectual property	;
;	of its copyright holder(s), and is made available	;
;	under a license.  If you do not know the terms of	;
;	the license, please stop and do not read further.	;
;								;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
gtmload	;
	new (%zdebug)
	set %level=$zlevel
	set $ztrap=$select($data(%zdebug):"b",1:"zg %level:err")
	f  read "Help file > ",file  s x=$zsearch(file) q:file=""!(x'="")   d
 .		w !,"File does not exist, <CR> to quit.",!
 .		quit
	if file="" quit
	open file:(readonly)
	use file
	set ref="^HELP",incr=1,count=0,level=0,oldlevel=0,^HELP=""
	for  read line quit:$zeof  do
 .		set first=$extract(line)
 .		if first?1N!(first="-") do
 ..			if first?1N set level=first,oldlevel=first
 ..			else  set level=oldlevel+1
 ..			if level'>count set ref=$name(@ref,(level-1)*2)
 ..			set count=level
 ..			set:first?1N subtopic=$piece(line," ",2)
 ..			set:first="-" subtopic=$piece(line," ",1)
 ..			set ref=$name(@ref@("s"))
 ..			set ref=$name(@ref@($$UCASE(subtopic)))
 ..			set @ref=subtopic
 ..			set incr=1
 ..			quit
 .		else  do
 ..			set @ref@(incr)=line
 ..			set incr=incr+1
 ..			quit
 .		quit
	close file
 	quit
err	;
	set $ztrap=""
	u 0 w !,"Error in GT.M help load utility."
	set file="gtmhlpld.dmp"
	open file:newversion
	use file
	zshow "*"
	close file
	set $etrap="zgoto 0"
	zhalt 1
	;
UCASE(string)
	set lo="abcdefghijklmnopqrstuvwxyz"
	set up="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
	quit $translate(string,lo,up)