/* Skrypt ARexx'a dla programu Pisarz 3.0
** Program wykonuje zestawienie (indeks) wszystkich rozdziaîów (nodes)
** dokumentacji w formacie 'Amiga Guide'
*/


/* address	'rexx_pisarz' */

Eol='0A'x
Tabs='0909'x

Options Results

	NazwaPliku='RAM:Indeks'
	Szerokosc=32

	FileHD='Plik'
	Open(FileHD,NazwaPliku,'w')		/* Zapis */

	JumpTo 0

	Do forever
		MarkReset
		Search @NODE
		if rc=1 then leave
		WordRight
		Mark
		WordRight
		CharLeft
		CharLeft
		GetBlock
		if rc=1 then leave
		Mark
		NodeName=LT_Info
		 WordRight
		 CharRight
		 Mark
		 LineEnd
		 CharLeft
		 CharLeft
		 GetBlock
		if rc=1 then leave
		Nazwa=LT_Info
		K=Szerokosc-Length(Nazwa)
		Spaces=SUBSTR('                                       ',1,K)
		Linia=Tabs'@{" 'Nazwa''Spaces'" LINK 'NodeName'}'
		Writeln(FileHD,Linia)
	end

	Close(FileHD)

	address command 'Pisarz:PisarzSys/Sort_PL 'NazwaPliku NazwaPliku'.sort'
Exit