hierobj.kb 的例行程序


AddChild

文件名

hierobj.kb

语法

AddChild(Hier: HierarchyObject, parent_id: INTEGER, NewData: DataType)

参数

Hier -- 要处理的分层结构

parent_id -- 新节点的父级。必须是当前分层结构中的一个有效

的节点标识。

NewData -- 要存储在新节点的数据

返回

返回新节点的标识。如果父级标识无效,则返

回 -1。

副作用

说明

将分层结构中的节点添加为现有节点的子级。

调用的对话框窗体


FlattenHierarchy

文件名

hierobj.kb

语法

FlattenHierarchy(Hier: HierarchyObject, filename: STRING)

参数

Hier -- 要处理的分层结构

filename -- 要将分层结构写入其中的文件

返回

副作用

说明

将整个分层结构装入文件。

调用的对话框窗体


FlattenNode

文件名

hierobj.kb

语法

Flattennode(Hier: HierarchyObject, node_id: INTEGER, fhdl: FILE)

参数

Hier -- 要处理的分层结构

node_id -- 要从其获取数据的节点

fhdl -- 当前打开的要写入流信息的文件句柄

返回

副作用

说明

将某节点的信息写入打开的文件。

调用的对话框窗体


GetCurrent

文件名

hierobj.kb

语法

GetCurrent(Hier: HierarchyObject)

参数

Hier -- 要处理的分层结构

返回

返回当前组件的节点标识。

副作用

说明

获取分层结构中的当前指针。运行时间:O(1)

调用的对话框窗体


GetData

文件名

hierobj.kb

语法

GetData(Hier: HierarchyObject, node_id: INTEGER)

参数

Hier -- 要处理的分层结构

node_id -- 要从其获取数据的节点

返回

返回存储在节点标识中的数据。如果该节点不存在,则返

返回 $Unknown。

副作用

说明

返回存储在节点标识中的数据。

调用的对话框窗体


GetFirstChild

文件名

hierobj.kb

语法

GetFirstChild(Hier: HierarchyObject, node_id: INTEGER)

参数

Hier -- 要处理的分层结构

node_id -- 要从其查找第一个子级的节点

返回

返回节点标识的子级标识。如果不存在子级,则

返回 0。如果节点标识无效,则返回 -1。

副作用

说明

获取现有节点的子级。

调用的对话框窗体


GetNextSibling

文件名

hierobj.kb

语法

GetNextSibling(Hier: HierarchyObject, node_id: INTEGER)

参数

Hier -- 要处理的分层结构

node_id -- 要从其查找同胞的节点

返回

返回节点标识的同胞标识。如果不存在同胞,则返

回 0。如果节点标识无效,则返回 -1。

副作用

说明

获取现有节点的第一个同胞。

调用的对话框窗体


GetNumElements

文件名

hierobj.kb

语法

GetNumElements(Hier: HierarchyObject)

参数

Hier -- 要处理的分层结构

返回

返回当前分层结构中的组件数

副作用

说明

返回当前分层结构中的组件数

调用的对话框窗体


GetNumLevels

文件名

hierobj.kb

语法

GetNumLevels(Hier: HierarchyObject)

参数

Hier -- 要处理的分层结构

返回

返回当前分层结构中的层数

副作用

说明

返回当前分层结构中的层数

调用的对话框窗体


GetParent

文件名

hierobj.kb

语法

GetParent(Hier: HierarchyObject, node_id: INTEGER)

参数

Hier -- 要处理的分层结构

node_id -- 父级的节点标识

返回

返回节点标识的父级节点。如果不存在父级,则返

回 0。如果节点标识无效,则返回 -1。

副作用

说明

获取现有节点的父级。

调用的对话框窗体


IsValidNode

文件名

hierobj.kb

语法

IsValidNode(Hier: HierarchyObject, node_id: INTEGER)

参数

Hier -- 要处理的分层结构

node_id -- 要检查其有效性的节点

返回

如果节点标识有效,则返回 TRUE,否则返回 FALSE。

副作用

说明

检查当前节点是否有效。

调用的对话框窗体


MatchData

文件名

hierobj.kb

语法

MatchData(Hier: HierarchyObject, node_id: INTEGER, Data: DataType)

参数

Hier -- 要处理的分层结构

node_id -- 要检查其数据的节点

Data -- 要用作匹配准则的数据

返回

如果有匹配,则返回 TRUE,否则返回 FALSE。

副作用

说明

比较两个值并返回指示它们是否匹配的数据。

调用的对话框窗体


ReadFileForSource

文件名

hierobj.kb

语法

ReadHier(filename: STRING)

参数

filename -- 要从其读取分层结构的文件

返回

副作用

说明

阅读某文件,以确定向数据库进行写操作时曾使用的数据库。

调用的对话框窗体


ReadHier

文件名

hierobj.kb

语法

ReadHier(Hier: HierarchyObject, filename: STRING)

参数

Hier -- 要处理的分层结构

filename -- 要从其读取分层结构的文件

返回

副作用

说明

从某文本文件读取分层结构

调用的对话框窗体


ScanHierarchyForData

文件名

hierobj.kb

语法

ScanHierarchyForData(Hier: HierarchyObject, Data: DataType)

参数

Hier -- 要处理的分层结构

Data -- 要用作扫描准则的数据

返回

返回第一个匹配节点的标识,如果找不到匹配,则返回 -1。

副作用

说明

返回第一个匹配节点的标识。

调用的对话框窗体


ScanNextLevelForData

文件名

hierobj.kb

语法

ScanNextLevelForData(Hier: HierarchyObject, parent_id: INTEGER, Data: DataType)

参数

Hier -- 要处理的分层结构

parent_id -- 要扫描的层的父层

Data -- 要用作扫描准则的数据

返回

返回第一个匹配节点的标识。

副作用

说明

返回第一个匹配节点的标识。

调用的对话框窗体


SetCurrent

文件名

hierobj.kb

语法

SetCurrent(Hier: HierarchyObject, node_id: INTEGER)

参数

Hier -- 要处理的分层结构

node_id -- 同胞的节点标识

返回

如果节点标识有效,则返回 TRUE,否则返回 FALSE。

副作用

说明

将分层结构中的当前指针指向该节点标识。运行时间:O(1)

调用的对话框窗体


SetData

文件名

hierobj.kb

语法

SetData (REF Hier: HierarchyObject, VAL node_id: INTEGER, VAL NewData: DataType): BOOLEAN;

参数

Hier -- 要处理的分层结构

node_id -- 要从其获取数据的节点

NewData -- 要放在节点标识下的新数据

返回

如果节点标识有效,则返回 TRUE,否则返回 FALSE。这会覆盖存储

在节点标识中的当前数据。

副作用

说明

如果节点标识有效,则返回 TRUE,否则返回 FALSE。这会覆盖存储在节点标识中的当前数据。运行时间:O(1)

调用的对话框窗体


SetSource

文件名

hierobj.kb

语法

SetSource(Hier: HierarchyObject, source: STRING)

参数

Hier -- 要处理的分层结构

source -- 当前连接到的 Tivoli 源名称

返回

副作用

说明

设置分层结构中的源属性。

调用的对话框窗体


StartSubTreeWalk

文件名

hierobj.kb

语法

StartSubTreeWalk (Hier: HierarchyObject, node_id: INTEGER)

参数

Hier -- 要处理的分层结构

node_id -- 要启动遍历的节点

返回

如果 node_id 有效,则返回 TRUE,否则返回 FALSE。

副作用

说明

使分层结构以宽度优先的方式准备对某一子树的所有节点进行遍历。

调用的对话框窗体


TakeAStep

文件名

hierobj.kb

语法

TakeAStep(Hier: HierarchyObject)

参数

Hier -- 要处理的分层结构

返回

返回刚刚步入的节点

副作用

说明

将当前指针移动到宽度优先的遍历中的下一个节点。运行时间:O(n),其中 n = 新节点位置的子级数

调用的对话框窗体