Routine: ZISFGTM Platform: GT.M

Information

%ZISF ;SFISC/AC - HOST FILES FOR GT.M on Unix/VMS ;9/3/08 09:48

Source file <ZISFGTM.m>

Package	Total	Call Graph
Kernel	4	($$UP,SBR)^%ZIS1 SETPAR^%ZIS3 ASKPAR^%ZIS6 $$DEFDIR^%ZISH

Name	Comments	DBIA/ICR reference
HFS	;Host File Server
H
H1
HFSIOO
CHECK(X)	;Check that we have valid option
ASKHFS	;---Ask host file name here---
ASKAGN
CHKNM(H)	;Check the HFS name
MODE(X)	;Return %ZISOPAR in Y.
HOPT
HOPT1

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Condition for execution: $X+$L(%)>75 Line Location: H1+4
Function Call: WRITE	Prompt: %,! Line Location: H1+4
Function Call: WRITE	Prompt: ! Condition for execution: $X>19 Line Location: HFSIOO+1
Function Call: WRITE	Prompt: ?20,"INPUT/OUTPUT OPERATION: R//" Line Location: HFSIOO+1
Function Call: WRITE	Prompt: !,"HOST FILE NAME: "_IO_"//" Line Location: ASKAGN+0
Function Call: WRITE	Prompt: !,"ENTER HOST FILE NAME" Line Location: ASKAGN+1
Function Call: WRITE	Prompt: !,"You may enter a code that represents one of",!,"the following host file input/ouput operation:" Line Location: HOPT+0
Function Call: WRITE	Prompt: !?16,"R = READ ACCESS",!?16,"W = WRITE ACCESS",!?16,"N = NEWVERSION",!?16,"A = APPEND" Line Location: HOPT+1
Function Call: WRITE	Prompt: !,^(0) Line Location: HOPT1+1
Function Call: WRITE	Prompt: ! Line Location: HOPT1+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	HFSIOO, ASKHFS+3
^DIC(9.2 - [#9.2]	HOPT1, HOPT1+1

Name	Field # of Occurrence
%	HFS+3~, H1+4*, CHECK+1~
>> %E	HFSIOO, ASKHFS+3
>> %IS	H1
>> %IS("B"	ASKHFS+1, ASKHFS+2
>> %IS("HFSIO"	HFS+2
>> %IS("IOPAR"	HFS+2
>> %X	HFS+5, H1+1, H1+2, HFSIOO+3, HFSIOO+4, HFSIOO+5, ASKHFS+3, ASKHFS+4, ASKHFS+5, ASKAGN+1 , HOPT1+1, HOPT1+2*
>> %ZIS("HFSMODE"	H, HFSIOO
>> %ZIS("HFSNAME"	HFS+5, H1+4, ASKHFS+5
>> %ZIS("afn"	H1+1*
>> %ZISI	HOPT1*, HOPT1+1
>> %ZISOPAR	H, HFSIOO, HFSIOO+5
>> %ZTYPE	HFSIOO
>> DFOUT	HFSIOO+2
>> DTOUT	HFSIOO+2, ASKAGN+2
>> DUOUT	HFSIOO+2, ASKAGN+2
H	CHKNM~, CHKNM+1, CHKNM+3, CHKNM+5
IO	HFS+5, H1+2, H1+3, ASKHFS+2*, ASKAGN
IO("HFSIO"	H1, H1+3
IO("Q"	H1
>> IOP	HFS+2, H1+4, HFSIOO, ASKHFS+5
N	CHKNM+1~, CHKNM+3, CHKNM+5*, CHKNM+6
>> POP	HFSIOO+2, ASKAGN+2
X	CHECK~, CHECK+2, CHECK+3, MODE~, MODE+2
Y	CHECK+1~, CHECK+3, CHECK+4, MODE+1~, MODE+2, MODE+3