lstjpb.f File Reference

Search backwards from a specified node of the jump/link table for a node of a specified type. More...

Go to the source code of this file.

Functions/Subroutines
function	lstjpb (NODE, LUN, JBTYP)
	This function searches backwards, beginning from a given node within the jump/link table, until it finds the most recent node of type jbtyp. More...

Detailed Description

Search backwards from a specified node of the jump/link table for a node of a specified type.

Author

Woollen

Date

1994-01-06

Definition in file lstjpb.f.

Function/Subroutine Documentation

lstjpb()

function lstjpb	(		NODE,
			LUN,
		character*(*)	JBTYP
	)

This function searches backwards, beginning from a given node within the jump/link table, until it finds the most recent node of type jbtyp.

The internal jmpb array is used to jump backwards within the jump/link table, and the function returns the table index of the found node. If the input node itself is of type jbtyp, then the function simply returns the index of that same node.

Note

See tabsub() for an explanation of the various node types present within an internal jump/link table.

Parameters

[in]	NODE	- integer: jump/link table index of entry to begin searching backwards from
[in]	LUN	- integer: I/O stream index into internal memory arrays
[in]	JBTYP	- character*(*): type of node for which to search

Returns

- integer: index of first node of type jbtyp found by jumping backwards from input node

• 0 no such node found

Author

Woollen

Date

1994-01-06

Definition at line 29 of file lstjpb.f.

References bort(), moda_msgcwd::inode, moda_tables::isc, moda_tables::jmpb, moda_tables::tag, and moda_tables::typ.

Referenced by getwin(), igetrfel(), nevn(), newwin(), nxtwin(), parusr(), strbtm(), trybump(), and ufbrw().