2.2.1 代码结构

DEC 汉字码符合 GB-2312-80 标准。DEC GB-2312 字符集和扩充 GB 字符集的代码表都划分为 94 个区(节), 编号自 1 至 94。每个区又分为 94 个位,编号也自 1 至 94。

DEC 汉字码的第一字节决定该码的区号,而第二字节则决定该码的位号。此外,第二字节的最高有效位决定该码是属于 DEC GB-2312字符集还是扩充 GB 字符集。

下面两个例子说明在 DEC GB-2312 字符集及扩充 GB 字符集中一个汉字字符的双字节汉字码和区位号的相互关系。通常,区号及位号是十进制的,而双字节汉字码则以十六进制表示。

例子:

1.在 DEC GB-2312 字符集中,

区号 (十进制) = 第一字节 (十六进制) - A0 (十六进制) 和

位号 (十进制) = 第二字节 (十六进制) - A0 (十六进制)

所以, 当 16 = B0 — A0 和

01 = A1 — A0

区号 16、位号 1 就等于 DEC 汉字码 B0A1。

 

2.在扩充 GB 字符集中,

区号 (十进制) = 第一字节 (十六进制) — A0 (十六进制) 和

位号 (十进制) = 第二字节 (十六进制) — 20 (十六进制)

所以, 当 16 = B0 — A0 和

01 = 21 — 20

区号 16、位号 1 就等于 DEC 汉字码 B021。

2.2.2 汉字码表

图 2-3 展示双字节码空间的划分及 DEC 汉字字符集的位置。

图2-3 汉字码表

 

 

注意

斜线区域为 ASCII 控制码的分布位置。DEC 汉字码未分配在斜线区域,目的是使 DEC 汉字码与 ASCII控制码兼容。

 

 

图2-4 DEC GB-2312 汉字字符集

 

 

图2-5 扩充 GB 字符集

 

 

图 2-4 及图 2-5 展示 DEC GB-2312 字符集及扩充 GB字符集如何进一步划分为区。

 

第 3 章

3.3.1 硬件要求

ODL 的硬件要求如下:

1. 支持 ODL 协议的汉字终端或汉字打印机包括:
2. 终端:

VT382-C

• 打印机:

LA88-C

LA380-C

1. 带支持 ODL 协议的 LAT 软件的终端服务器。

3.3.2 LAT/Master

LAT/Master 是在 LAT 环境中支持 ODL 所需要的软件,它包括 OpenVMS/Hanzi 上运行的软件和终端服务器上运行的软件。

为了使 ODL 在 LAT 网络上操作, 必须把以下版本的DECserver 软件下行装入对应的服务器单元:

• DECserver 200 软件 3.0 版本 (或更高)
• DECserver 300 软件 1.0 版本 (或更高)
• DECserver 500 软件 2.1 版本 (或更高)
• DECserver 700 软件 1.0 版本 (或更高)
• DECserver 90L 软件 1.0 版本 (或更高)
• DECserver 90TL 软件 1.0 版本 (或更高)

要利用 LAT 能力, 须确保所有装入主机安装了正确的DECserver 软件版本以及该系统运行 OpenVMS。

要了解如何在装入主机上安装 DECserver 软件和把服务器映象下行装入服务器, 请参阅随 DECserver 提供的有关文献。

3.3.3 支持 ODL 所需要的系统设置

ODL 机制要求系统设置伪设备 FHA0: 和 FONT_HANDLER。

系统必须用下列命令配置:

$ RUN SYS$SYSTEM:SYSGEN

SYSGEN> CONNECT FHA0: /NOADAPTER /MAXUNIT=1

SYSGEN> EXIT

$ RUN /DETACH -

/AST_LIMIT=100 -

/PRIORITY=8 -

/PRIVILEGES=(CMKRNL,PHY_IO) -

/PROCESS_NAME="FONT_HANDLER" -

/RESOURCE_WAIT -

/NOSWAPPING -

/UIC=[1,20] -

HSY$SYSTEM:FONTHANDL.EXE

OpenVMS/Hanzi 上的 SYSGEN 命令为字形数据下行装入而装入一个伪设备驱动器并建立一个伪设备 FHA0:。RUN 命令建立一个系统进程 FONT_HANDLER 为终端及打印机的按需装入请求服务。

注意, 这些命令已编辑在 OpenVMS/Hanzi 系统启动命令过 SYS$STARTUP:HSY$STARTUP.COM 中, 因此正常情况下, OpenVMS/Hanzi 系统对 ODL 配置是正确的。

 

3.3.4 每一设备设置

如果设备与终端服务器相连接,则必须恰当地配置终端服务器端口。

对于直接连接或与一个终端服务器相连接的设备,系统中的每个终端端口必须对 ODL进行个别配置。通常,终端端口对 ODL 的默认值为撤销 ODL。HANZIGEN 公用程序用来对个别终端 (参阅用 HANZIGEN 设置终端端口一节) 允许 ODL。终端或打印机也要求设置，以便允许终端或打印机的 ODL 能力。

3.3.5 按需装入的限制

应该注意, ODL 只在终端处于 NODMA 和 NOPASTHRU 态时才起作用。用户可用下列命令来检验终端是否处于所要求的态:

$ SHOW TERMINAL

如果终端不是处于所要求的态,则可使用下列命令来设置:

• 把当前终端设置为 NODMA 态

$ SET TERMINAL/NODMA

• 把当前终端设置为 NOPASTHRU 态

$ SET TERMINAL/NOPASTHRU

 

 

 

第 4 章

4.1.1 设置汉字终端

在 OpenVMS/Hanzi 的大部分公用程序中, 您可用 HANZIGEN 公用程序把汉字终端初始化成恰当的设置类型:

HANZIGEN> SET /DEVICE_TYPE=VT382

4.1.2 设置汉字打印机

用户应使用 HANZIGEN 公用程序来初始化汉字打印机,以便具有所需的特征:

HANZIGEN> SET/DEVICE_TYPE=LA380/FONT/PERMANENT LAT100:

4.2.1 命令过程中的变元

您可在变元中使用有汉字字符的字符串。例如:

$ TYPE SAMPLE.COM

$ SHOW SYMBOL P1

$ SHOW SYMBOL P2

$ SHOW SYMBOL P3

$ EXIT

$

$ @SAMPLE 参数1 参数2 参数3

P1="参数1"

P2="参数2"

P3="参数3"

$

4.2.2 SHOW 中使用汉字

您可以使用下列 SHOW 命令, 以汉字显示系统资料:

• $ SHOW USER
• $ SHOW QUEUE
• $ SHOW SYSTEM
• $ SHOW MEMORY
• $ SHOW DEVICE
• $ SHOW PROCESS
• $ SHOW LOGICAL
• $ SHOW TRANSLATION

与 OpenVMS 求助信息相似, 用户可以应用 HANZIGEN 公用程序来选择英文或汉字信息, 唯 SHOW LOGICAL 及 SHOW TRANSLATION 例外。

4.2.3 APPEND、BACKUP、CONVERT、COPY、CREATE 和TYPE 中使用汉字

用户可在文件中使用汉字数据, 并可在APPEND、BACKUP、CONVERT、COPY、CREATE 和 TYPE命令中包括汉字。例如:

$ CREATE HANZI.DAT

独览梅花扫腊雪

$

$ TYPE HANZI.DAT

独览梅花扫腊雪

$

4.2.4 ASSIGN、DEASSIGN 和 DEFINE 中使用汉字

您可在逻辑名及其等效字符串中使用汉字, 也可于 ASSIGN、DEASSIGN、DEFINE 命令中使用汉字。

您可用 SHOW LOGICAL 和 SHOW TRANSLATION 命令显示由 ASSIGN 和 DEFINE 以汉字字符定义的逻辑名, 而词法功能 F$LOGICAL 则可转换汉字。例如:

$ DEFINE 逻辑名 等效名

$ SHOW LOGICAL 逻辑名

逻辑名="等效名" (PROCESS)

$ _变数=F$LOGICAL("逻辑名")

$ SHOW SYMBOL _变数

_变数 = "等效名"

$

4.2.5 DIRECTORY 中使用汉字

在 DIRECTORY 命令中支持两种语言的系统信息。可用 HANZIGEN 公用程序选择英文或汉字信息。

4.2.6 MESSAGE 中使用汉字

您可在信息文件中的设施字段及文本中使用汉字,但汉字不适用于 ident 字段。

4.2.7 OpenVMS HELP 中使用汉字

您可使用 HELP 命令和 HANZIGEN 公用程序来调用 OpenVMS HELP 设施, 以汉字或英文显示有关 OpenVMS 命令或题目的资料。

注意, 您可使用下列命令直接显示英文求助 (即使您的输出设备设置成 HANZI_MSG):

$ HELP @HELPLIB

此外, 使用下列命令可显示 OpenVMS/Hanzi 特定求助题目:

$ HELP @HSYHLP

4.2.8 READ 和 WRITE 中使用汉字

包含汉字字符的数据可以构成输入和输出文本的一部分。例如:

$ TYPE HANZI.DAT

汉字写读测试 1

$ OPEN/READ INPUT HANZI.DAT

$ OPEN/WRITE OUTPUT HANZI1.DAT

$ READ INPUT REC

$ WRITE OUTPUT REC

$ WRITE OUTPUT "汉字写读测试 2"

$ CLOSE INPUT

$ CLOSE OUTPUT

$ TYPE HANZI1.DAT

汉字写读测试 1

汉字写读测试 2

$

4.2.9 REPLY 中使用汉字

您可在信息文本中使用汉字。例如:

$ REPLY/TERMINAL=TT "REPLY 中混合汉字使用"

Reply received from user SYSTEM at _RTA3:12:34:56.78

REPLY 中混合汉字使用

$

4.2.10 SET 中使用汉字

您可使用汉字指定提示符或在命令描述文件的动词中使用汉字,但汉字不适用于限定词或标号。

4.2.11 SEARCH 中使用汉字

您可在被检索的字符串中使用汉字。例如:

$ TYPE HANZI.DAT

山高月小

古往今来

$

$ SEARCH/HIGHLIGHT=UNDERLINE HANZI.DAT 小

山高月小

$

4.2.12 汉字符号

符号名应以一个英文字母 (包括 _ 及 $) 开始。第二个以及接着的字符可用汉字。要赋值的字符串中亦可使用汉字。例如

$ _变数="汉字数据"

$ SHOW SYMBOL _变数

_变数="汉字数据"

4.2.13 命令过程中的标号

您可在命令过程中用汉字作为标号名, 您可用 GOTO 命令转移到一个汉字标号。

5.3.1 SET 命令

SET 命令设置汉字终端类型及允许按需装入。汉字终端类型可以是VT82、VT382、LA84、 LA86、LA88、LA280 或 LA380。要设置汉字终端为 ASCII 特征, 您可指定 VT100 或 VT300_series为设备类型。对于提供英文和汉字求助/出错信息的公用程序,您可使用 SET 命令通过 /OUTPUT任选项选择输出语言。

5.3.2 SHOW 命令

SHOW 命令展示汉字终端及打印机特征,显示格式是每种设备占一行，并且具如下字段:

• 当前 SYS$INPUT 设备的名称
• 设备类型
• 允许或不允许按需装入
• 输入类型 (HANZI 或 ASCII)
• 输出类型 (HANZI_MSG 或 ASCII_MSG)

在 HANZIGEN 命令级上, VT82 和 VT382

的设备类型将展示为 HANZI_VDU, 而 LA84-C、LA86-C、LA88-C、LA280-CB 和 LA380-CB的设备类型则为 HANZI_PRT。

但是, 在 DCL SHOW 命令上, 已由 HANZIGEN 设置为VT82 或VT382 终端的设备名是 VT80 或 VT300, 而由 HANZIGEN 设置为 LA84、LA86、LA88、LA280 或 LA380 终端的设备名则是 LA84。

7.3.1 /KEY 限定词

/KEY 限定词定义 SORT 的关键字,在一命令行中最多可出现 255 次。用圆括号把 /KEY 子限定词括起来。

除了在 OpenVMS SORT 和 MERGE 中提供的之外, OpenVMS/Hanzi 的 SORT 和 MERGE 还支持下列子限定词。

CSIZE:n	SORT 或 MERGE 的 CSIZE子限定词只能用于汉字整理序列。n 是 SORT 或 MERGE 关键字的字符数长度。注意, 不能在一个关键字说明中同时指定 CSIZE 和 SIZE。
RADICAL	RADICAL子限定词指定用部首整理序列来把记录排序或合并。
STROKE	STROKE子限定词指定用笔画整理序列来把记录排序或合并。
PINYIN	PINYIN子限定词指定用拼音整理序列来把记录排序或合并。
QUWEI	QUWEI子限定词指定用区位码整理序列来把记录排序或合并。

/KEY 限定词的例子如下:

/KEY=(POSITION:1, CSIZE:5, RADICAL, STROKE)

上例中, RADICAL 是主整理序列; STROKE是次整理序列。 注意, 同时可指定多重汉字整理序列。

7.3.2 /SPECIFICATION 限定词

OpenVMS/Hanzi 的 SORT 和 MERGE提供一个命令限定词,通过该限定词传送一个输入文件说明。说明文件的默认文件类型是.SRT。指定该文件的命令格式如下:

$ SORT/SPECIFICATION=input-specification-file ...

在《OpenVMS User's Manual》中,说明文件的格式和功能有详述。

说明文件中的 /FIELD 限定词用来定义 SORT 或 MERGE 关键字字段，与 /KEY 命令限定词很类似。除了OpenVMS SORT 或 MERGE 公用程序中 /FIELD限定词的所有有效的子限定词外, OpenVMS/Hanzi SORT 和 MERGE 还把下列当作有效子限定词:

• RADICAL
• STROKE
• PINYIN
• QUWEI

这些表示其相应整理序列的子限定词等于 /KEY命令限定词中相同子限定词。下面是说明文件中 /FIELD限定词的一个例子:

/FIELD=(NAME:Hanzi-field, POSITION:1, SIZE:4, PINYIN)

注意, 在一个 /FIELD 限定词内不能指定多个整理序列。如果要对一个关键字指定几种整理序列,则在说明文件中对同一关键字指定不同整理序列的多个 /FIELD 限定词。

8.3.1 汉字个人名

HMAIL 让用户可以在个人名中包含汉字字符。例如,用户 TENG 要以汉字个人名发送文件 FILE.TXT 至用户 HANZI::LEE, 可以输入以下命令:

 

HMAIL> send/personal_name="邓立人, 计算机工程部" file.txt

送往: hanzi::lee

主题: 紧急会议

 

在节点 HANZI 上的用户 LEE 会收到以下信息:

 

新邮件到达 HANZI 节点来自 TENG "邓立人,计算机工程部" (15:51:02)

8.3.2 汉字主题名

HMAIL 让用户可以在主题名中包含汉字。以下例子说明如何进行。

 

HMAIL> send file.txt

送往: hanzi::lee

主题: 紧急会议

8.3.3 汉字文件夹名

文件夹名可以包含汉字。以下例子说明如何产生一个汉字名称的文件夹。

 

HMAIL> select mail

%MAIL-I-SELECTED, 选择 5 个信息

 

HMAIL> move/all 会议报告

文件夹 会议报告 不存在

您想建立吗 (Y/N, 默认是 N)? y

%MAIL-I-NEWFOLDER, 文件夹 会议报告 已建立

8.3.4 汉字字符串匹配

在 HMAIL 中, SEARCH 命令的检索字符串和 SELECT、SET FOLDER、DIRECTORY 以及 READ 命令的 /SUBJECT_SUBSTRING 限定词均可使用汉字。例如:

 

 

8.3.5 汉字整理序列的文件夹名显示

在 OpenVMS MAIL 中, 文件夹名只可以按 ASCII 整理序列显示。在 HMAIL 中, 用户可以指定根据汉字整理序列显示文件夹名。DIRECTORY/FOLDER 命令增加了一个新的限定词
/COLLATING_SEQUENCE, 语法如下:

以下规则适用于 /COLLATING_SEQUENCE 这个新的限定词:

• 此限定词要在 DIRECTORY/FOLDER 命令中指定才有效。
• 关键字 ASCII 只可单独指定,不可与其他关键字混合。
• 除 ASCII 外的其他关键字, 都可指定多关键字;提供的第一个关键字是主整理序列,第二个是次整理序列, 依此类推。
• 重复的关键字不予理会。
• 指定一个以上的关键字时才需要括号。
• 如不指定此限定词, 文件夹名就会按 ASCII 序列显示。

以下例子说明这个新限定词的用法:

 

HMAIL> select 会议报告

%MAIL-I-SELECTED, 选择 5 个信息

HMAIL> directory/folder

在 DISK$USER:[USER]MAIL.MAI;1 中的文件夹列表

要取消列表, 可按 CTRL/C

CFMS CRDB

CVMS MAIL

会议报告 会议程序

数据库资料 私人邮件

系统资料 中文邮件

 

HMAIL>directory/folder/collating=(stroke,radical)

在 DISK$USER:[USER]MAIL.MAI;1 中的文件夹列表

要取消列表, 可按 CTRL/C

CFMS CRDB

CVMS MAIL

中文邮件 会议报告

会议程序 私人邮件

系统资料 数据库资料

 

HMAIL> directory/folder/collating=radical

在 DISK$USER:[USER]MAIL.MAI;1 中的文件夹列表

要取消列表, 可按 CTRL/C

CFMS CRDB

CVMS MAIL

中文邮件 系统资料

会议报告 会议程序

数据库资料 私人邮件

 

HMAIL> directory/folder/collating=ascii

在 DISK$USER:[USER]MAIL.MAI;1 中的文件夹列表

要取消列表, 可按 CTRL/C

CFMS CRDB

CVMS MAIL

会议报告 会议程序

数据库资料 私人邮件

系统资料 中文邮件

 

除了文件夹名显示的序列外, 在 /START 限定词中提供的值还会按选择的显示整理序列与文件夹名比较。因此, 您如果指定
/COLLATING=STROKE, 文件夹名的笔画整理值就会进行比较,以决定哪些文件夹名要显示出来。以下例子说明如何进行。

 

HMAIL> directory/folder/collating=stroke/start=记

在 DISK$USER:[USER]MAIL.MAI;1 中的文件夹列表

要取消列表, 可按 CTRL/C

会议报告 会议程序

系统资料 私人邮件

数据库资料

 

HMAIL>directory/folder/collating=radical/start=记

在 DISK$USER:[USER]MAIL.MAI;1 中的文件夹列表

要取消列表, 可按 CTRL/C

数据库资料 私人邮件

 

HMAIL> directory/folder/collating=ascii/start=记

在 DISK$USER:[USER]MAIL.MAI;1 中的文件夹列表

要取消列表, 可按 CTRL/C

数据库资料 私人邮件

系统资料 中文邮件

8.3.6 调用 HTPU 作为默认编辑程序

在 HMAIL 中, 会调用 HTPU 作为默认编辑程序。您可以使用 SET EDITOR 命令设置选择的编辑程序来取代此默认。例如,您可以用以下命令把默认编辑程序设置成其他的编辑程序:

HMAIL> set editor [其他编辑程序]2

11.8.1 HMAIL

$ DEFINE SYS$LANGUAGE HANZI

$ DEFINE LIB$DT_FORMAT LIB$DATE_FORMAT_043,LIB$TIME_FORMAT_021

$ HMAIL

MAIL

# 来自 日期 主题

1 NODEA:SYSTEM 1991年11月16日 星期六 作报告

 

HMAIL> 1

#1 1991年11月16日 星期六 上午11时20分53秒 MAIL

来自: NODEA::LEE "工程部: 李国基"

送往: CHAN

抄送:

主题: 工作报告

 

工业部长:

 

以下是我的工作报告:

 

:

:

HMAIL> exit

11.8.2 DIR 命令

$ DEFINE SYS$LANGUAGE HANZI

$ DEFINE LIB$DT_FORMAT LIB$DATE_FORMAT_043,LIB$TIME_FORMAT_021

$

$ DIR/FULL TEST.DAT

 

目录 USER$:[LEE]

TEST.DAT;1 文件 ID:(2229,2,0)

大小: 1/3 拥有者: [SYSTEM]

建立于: 1991年11月17日 星期日 下午 6月35分25秒

修订于: 1991年11月17日 星期日 下午 6月35分28秒 (1)

满期: <未指定>

备份: <没有备份被记录>

文件组织: 顺序的

文件属性 : 分配: 3, 扩展: 0,全局缓冲计数: 0, 没有版本极限

记录格式: 可变长度, 最大 74 个字节

记录属性: Carriage return carriage control

RMS 属性: 无

记日志已启动: 无

文件保护: System:RWED, Owner:RWED,Group:RE, World:

存取控制表: 无

 

共 1 个文件, 1/3 块。

 

$ DIR/DATE TEST*.DAT

 

目录 USER$:[LEE]

 

 

 

TEST.DAT;1 1991年11月17日 星期日 下午 6时35分25秒

TEST1.DAT;1 1991年11月17日 星期日 下午 6时36分19秒

TEST2.DAT;1 1991年11月17日 星期日 下午6时36分22秒

TEST3.DAT;1 1991年11月17日 星期日 下午 6时36分26秒

TEST4.DAT;1 1991年11月17日 星期日 下午 6时36分31秒

 

共 5 个文件。

 

11.8.3 RTL 日期/时间操纵例行程序

$ TYPE DATETIME.C

/* DECLARATIONS */

#inciude stdio.h

#include descrip.h

int lib$convert_date_string();

int lib$format_date_time();

int lib$get_input();

main()

{

unsigned int quadtime[2]; /*quadword to store time */

unsigned char instr[40]; /*input date time buffer */

unsigned char outstr[40]; /*output date time buffer*/

struct dsc$descriptor_s indate = /*input descriptor */

{ 40, DSC$K_DTYPE_T, DSC$K_CLASS_S, instr };

struct dsc$descriptor_s outdate = /*output descriptor */

{ 40, DSC$K_DTYPE_T, DSC$K_CLASS_S, outstr };

indate.dsc$a_pointer = instr;

outdate.dsc$a_pointer = outstr;

printf("Input date time:");

lib$get_input(&indate);

/* convert date time from input format to quadword storage*/

lib$convert_date_string(&indate,quadtime);

/* convert date time from quadword to output format */

lib$format_date_time(&outdate,quadtime);

printf("Output date time: %40.40s \n",outstr);

}

$ DEFINE LIB$DT_FORMAT LIB$DATE_FORMAT_043, LIB$TIME_FORMAT_021

$ DEFINE SYS$LANGUAGE HANZI

$

$ DEFINE LIB$DT_INPUT_FORMAT -

_$ "!Y4年!MNB月!DB日 !MIU!HB2时!MB分!SB.!C2秒"

$ RUN DATETIME

Input date time:1991年10月11日 下午2时16分26.02秒

Output date time:1991年10月11日 星期五 下午2时16分26秒

$

$ DEFINE LIB$DT_INPUT_FORMAT "!Y4年!MAU月!DB日 !HB4时!MB分!SB.!C2秒"

$ RUN DATETIME

Input date time: 1991年十月11日 17时12分22.02秒

Output date time: 1991年10月11日 星期五 下午5时12分22秒

$

 

 

 

第 12 章

12.1.1 字符单元用户界面

OpenVMS 调试器的字符单元用户界面一起使用汉字 SMG 和 DEC C 的 XPG4 本地化公用程序来支持 DEC 汉字字符集。要支持它，必须定义以下逻辑名:

• DBG$SMGSHR

这个逻辑名定义 OpenVMS 调试器用于支持屏幕模式的 SMG 共享映像的名称。要允许支持 DEC 汉字字符集，定义这个逻辑名如下:

$ DEFINE/JOB DBG$SMGSHR HSMGSHR

• SMG$DEFAULT_CHARACTER_SET

这个逻辑名定义汉字 SMG 支持的默认字符集。要允许支持 DEC 汉字字符集，定义这个逻辑名如下:

$ DEFINE/JOB SMG$DEFAULT_CHARACTER_SET HANZI

• LANG

这个逻辑名为 DEC C 的 XPG4 本地化公用程序和运行时库的所有现场定义默认的现场设置。要允许在 OpenVMS 调试器中支持 DEC 汉字字符集，定义这个逻辑名如下:

$ DEFINE/JOB LANG ZH_CN_DECHANZI

12.1.2 DECwindows Motif 用户界面

OpenVMS 调试器的 DECwindows Motif 用户界面可以显示 DEC 汉字字符集中的字符。在目录 DECW$SYSTEM_DEFAULT 或DECW$USER_DEFAULTS 中的调试器资源文件 VMSDEBUG.DAT 可以为每个调试器窗口明确指定字体。

在 VMSDEBUG.DAT 中, DebugDefault.font 资源为所有调试器窗口指定一种默认字体。每个窗口也可以使用与默认字符的不同字体。要知详情，请参阅 VMSDEBUG.DAT 文件。

要允许在 OpenVMS 调试器窗口中支持 DEC 汉字字符集，该窗口必须使用 DEC 汉字字符集字体。可通过以下方法之一指定该字体：

1. 通过调试器窗口的资源明确指定；
2. 当没有按上述方法明确指定字体时，通过调试器的默认字体资源地 DebugDefault.font 来指定；
3. 当既没有用调试器默认字体资源，也没有用调试器窗口的字体资源来指定字体时，通过系统默认字体资源来指定。

12.2.1 EXAMINE 命令

EXAMINE 命令支持一个新限定词 /WCHAR_T:n。这个命令把每个被检查实体解释和显示为 n 个长字 (n 个字符) 的多字节文件代码序列。n 的默认值是 1。

当转换被检查的字符串时，OpenVMS 调试器使用它运行进程的现场数据库。默认是 C 现场。

12.2.2 DEPOSIT 命令

DEPOSIT 命令支持一个新限定词 /WCHAR_T:n。这个命令把被转换的多字节文件代码序列中的 n 个长字存放在指定位置。n 的默认值是 1。

当转换这个 DEPOSIT 命令指定的字符串时，OpenVMS 调试器使用它运行进程的现场数据库。默认是 C 现场。

 

 

附录 A

B.1.1 使用可调用 HSYSHR 例行程序的例子

$ TYPE HSY$EXAMPLE:SAMPLE_HSYSHR.C

/* SAMPLE_HSYSHR.C

---------------

This is a C language example to demostrate the

ability of the HSY$ facility of the OpenVMS

Run Time Library, HSYSHR. The program

accepts an input file from the command line and

formats the text within it in the following ways:

- Left margin = 0, Right margin = 40

- Convert all half form ASCII characters to their full

- forms.

- Remove leading and trailing blanks of each

- input line.

- Remove all embedded controls or space characters.

*/

#include <stdlib.h>

#include <stdio.h>

typedef unsigned char mstr; /*Local language string type */

typedef unsigned char *mstr_p;/* Pointer type to local */

/* language string */

typedef unsigned long mchar; /*Multi-byte character type*/

#define INPUT_STR_LEN 128 /* Max length of input line*/

#define OUTPUT_STR_LEN 128*2 /* Max length of output line */

#define MARGIN 40 /* Width of output text */

#define EMPTY 0 /* Zero */

#define SUCCESS 1 /* Successful call */

#define FAILURE 0 /* Unsuccessful call */

#define SPACE 0x00000020 /* Space character in

HSYSHR format */

extern HSY$IS_VALID(), /* External HSY$ routines to */

HSY$CH_RNEXT(),HSY$CH_WNEXT(),/* used */

HSY$CH_SIZE(), HSY$CH_NCHAR(), HSY$CH_NBYTE(),

HSY$CH_TRIM(), HSY$SKPC(), HSY$TRA_ROM_FULL();

FILE *fdin, /* Input file descriptor */

*fdout; /* Output file descriptor */

int line_length; /* Remaining number of bytes */

/* of the current output line*/

/* WRITE_TEXT

----------

This routine will accept an input buffer and its length

in number of characters, and write the string to the

output file at 40 bytes per line. A blank line is printed

if the input buffer is null.

*/

int write_text(buffer, buf_len)

mstr_p buffer; /* Output buffer */

int buf_len; /* Buffer length in number */

/* of characters */

{

int char_size, /* Character size in bytes */

offset, /* Offset of input buffer */

i, j; /* Loop index */

mchar curr_char; /* Current multi-byte char */

mstr_p buf_ptr; /* Pointer to buffer */

if (buffer == NULL){ /* Empty line, next paragraph*/

fprintf(fdout, "\n");

if (line_length != EMPTY) fprintf(fdout,"\n");

line_length = MARGIN;

return SUCCESS;

}

offset=EMPTY;buf_ptr=buffer;/*Initialize for the loop */

for (i= EMPTY; i < buf_len; i++) {

curr_char = HSY$CH_RNEXT(&buf_ptr);

/*Read next character and */

/* advance string pointer. */

char_size = HSY$CH_SIZE(curr_char);

/* Calculate the size of the */

if (line_length < char_size) {

/* character in bytes. */

line_length = MARGIN;

fprintf(fdout,"\n");

}

for (j=0; j < char_size; j++){

/* Put a multi-byte character*/

fputc(buffer[offset++], fdout);

/* to the output file */

}

line_length -= char_size;

}

return SUCCESS;

}

/* TEXT_FORMAT

-----------

This routine accepts an input string, removes its

railing and leading blanks, converts all half form ASCII

to their full forms and places the

converted string into a buffer which will be written to

the output file.

*/

int text_format(in_str)

mstr in_str[]; /* Zero terminated input */

/* string */

{

mstr buffer[OUTPUT_STR_LEN];/* Output buffer */

mstr_p str_ptr, /* Pointer to source string */

dst_ptr; /* Pointer to dest. string */

mchar curr_char; /* Current multi-byte char */

int status, /* Return status */

pos, /* Position of trimmed string*/

charsofar, /* Character processed so far*/

noofchar, /* No. of characters and */

noofbytes; /* bytes in a string. */

if (!(str_ptr = HSY$SKPC(SPACE, in_str, strlen(in_str)-1)))

return write_text(NULL,EMPTY);/* Skip leading blanks */

pos = HSY$TRIM(str_ptr, strlen(str_ptr)-1);

/* Trim trailing blanks */

if (!(HSY$TRA_ROM_FULL(str_ptr, pos, buffer, OUTPUT_STR_LEN, &noofbytes)))

return FAILURE; /* Convert to full form */

noofchar = HSY$CH_NCHAR(buffer,noofbytes);

/* Calculate the length of */

/* string in characters. */

charsofar = EMPTY;

str_ptr = dst_ptr = buffer;/* Initialize for the loop */

while (noofchar--) {

curr_char = HSY$CH_RNEXT(&str_ptr);

/* Read the next character */

if (HSY$IS_VALID (curr_char)) {

/* Test for valid multi-byte */

HSY$CH_WNEXT(curr_char, &dst_ptr);

/* character and write to the*/

charsofar ++ ; /* destination. */

}

}

write_text(buffer, charsofar);

/* Write the text out to file*/

return SUCCESS;

}

/* MAIN

----

This main program check for a valid command line, open all

necessary files and call the appropriate routine to

process the input data.

*/

main(argc,argv)

int argc;

unsigned char *argv[];

{

mstr in_str[INPUT_STR_LEN]; /* Input line */

int status;

if (argc != 3) {

printf("Usage: $ FORMAT <input_file> <output_file>\n");

exit(EXIT_FAILURE);

}

if ((fdin = fopen(argv[1], "r")) == NULL) {

printf("Error: Cannot open input file %s.\n", argv[1]);

exit(EXIT_FAILURE);

}

if ((fdout = fopen(argv[2],"w")) == NULL) {

printf("Error: Cannot open output file %s.\n", argv[2]);

exit(EXIT_FAILURE);

}

line_length = MARGIN;

while (fgets(in_str, INPUT_STR_LEN, fdin) != NULL)

if (!(text_format(in_str))) {

printf("Information: Processing error.\n");

break;

}

printf("Information: Finish Processing.\n");

fclose (fdin);

fclose (fdout);

exit(EXIT_SUCCESS);

}

 

$ CC SAMPLE_HSYSHR.C

$ LINK SAMPLE_HSYSHR, SYS$LIBRARY:HSYIMGLIB/LIB

$ FORMAT :== $SAMPLE_HSYSHR.EXE

$ FORMAT TEXT.IN TEXT.OUT

B.3.1 状态码

上述可调用例行程序在处理汉字数据时送回的状态码与处理 ASCII 数据时送回的状态码相同。有关详情,请参阅《OpenVMS Utility Routine Reference Manual》。

B.3.2 可调用例行程序的接口

用户可把数据以完整文件或单个记录的形式提交可调用例行程序。当您的程序提您就在使用文件接口。当您的程序一次提交一个记录，然后一次接收一个已排序记录时,

您就在使用记录接口。

用户要结合文件接口与记录接口, 可在输入时提交文件,并在输出时接收已排序记录。另一个可行的方法是在输入时释放记录,并在输出时把已排序记录写入一个文件中。将这两个接口连接起来具有更大的灵活性。

有关详情, 请参阅《OpenVMS Utility Routine Reference Manual》。

B.3.3 使用可调用 SORT 和 MERGE 例行程序的例子

B.4.1 HTPU 可调用例行程序

下列可调用例行程序可供于 HTPU 操作中使用：

1. 简化可调用接口

TPU$TPU	调用 HTPU, 相当于 DCL 命令 EDIT/HTPU。
TPU$EDIT	调用 HTPU 来读和编辑输入文件并把经修改的缓冲区写至输出文件。

2. 全面可调用接口

TPU$CLEANUP	清理 HTPU 内部数据结构，并为附加的调用作好准备。
TPU$CLIPARSE	分析命令行并为TPU$INITIALIZE 建立项目单。
TPU$CLOSE_TERMINAL	在用户调用的例行程序中调用此例行程序和返回用户调用的例行程序期间关闭 HTPU 的终端通道。
TPU$CONTROL	调用 TPU$INITIALIZE 后，把控制传给 HTPU, 直至用户从 HTPU 退出或放弃。
TPU$EXECUTE_COMMAND	调用 TPU$INITIALIZE 后,执行 HTPU 语句。
TPU$EXECITE_INIFILE	调用 TPU$INITIALIZE 后，随即执行初始化文件。
TPU$FILEIO	默认文件输入输出例行程序。
TPU$HANDLER	默认条件处理程序。
TPU$INITIALIZE	建立异常处理程序后，初始化 HTPU。
TPU$MESSAGE	使用内设过程 MESSAGE 写出错信息和串。
TPU$PARSEINFO	使用 CLI$DCL_PARSE 分析命令后，为 TPU$INITIALIZE 建立项目单。

B.4.2 样本程序

以下是用 BLISS 编写的样本程序,以使用全面可调用接口调用 HTPU:

 

!++

!

! EXAMPLE.B32

!

! Example program of using HTPU full callable interface.

! To run this example:

! 1. $ BLISS EXAMPLE

! 2. $ LINK EXAMPLE,SYS$INPUT/OPTION

! SYS$SHARE:HTPUSHR/SHARE

! <EXIT>

! 3. $ DEFINE HTPU$TESTING <your directory>

! 4. $ RUN EXAMPLE

!

!--

MODULE test (IDENT = '001',

MAIN = test_main,

ADDRESSING_MODE (EXTERNAL = GENERAL)) =

BEGIN

 

!++

!

! FUNCTIONALITY:

!

! To test the callable interface of HTPUSHR

!

!--

REQUIRE

'SYS$LIBRARY:STARLET';

 

LITERAL

TEST_USER_ARG = %X'F0'; !an arbitrary pattern

!

! Table of Content

!

FORWARD ROUTINE

test_main, ! Module entry

test_callback, ! Callback for tpu$initialize

test_call_user, ! Call user routine

test_edit; ! Edit using HTPU

!

! HTPU callable routines

!

EXTERNAL ROUTINE

tpu$fileio, ! HTPU file routine

tpu$message, ! Displays HTPU message

tpu$cliparse, ! HTPU CLI parser

tpu$handler, ! HTPU handler

tpu$initialize, ! Initialize HTPU

tpu$execute_inifile, ! Execute initial commands

tpu$execute_command, ! Execute HTPU statements

tpu$control, ! HTPU main control loop

tpu$cleanup; ! Clean up HTPU

!

! HTPU Literals for cleanup

!

EXTERNAL LITERAL

tpu$m_last_time,

tpu$m_delete_journal,

tpu$m_delete_exith,

tpu$m_delete_buffers,

tpu$m_delete_windows,

tpu$m_execute_file,

tpu$m_execute_proc,

tpu$m_delete_context,

tpu$m_reset_terminal,

tpu$m_kill_processes,

tpu$m_close_section;

MACRO

$test_set_bpv (bpv, proc) =

(BEGIN

BIND

$test_bpv = bpv : VECTOR [2];

$test_bpv [0] = proc;

$test_bpv [1] = 0;

END) %;

 

ROUTINE test_main =

!++

! FUNCTIONALITY:

!

! Main routine to call HTPU

!

!--

 

BEGIN

LOCAL

callback_bpv : BLOCK [8, BYTE],

user_arg,

cleanup_flag,

status;

ENABLE

tpu$handler;

!

! Setup the callback procedure

!

$test_set_bpv (callback_bpv, test_callback);

!

!Set the user argument for test_callback,but ignored there

!

user_arg = TEST_USER_ARG;

!

!Initialize HTPU. Initialization options are specified in

! test_callback

!

status = tpu$initialize (callback_bpv, .user_arg);

IF NOT .status

THEN

RETURN .status;

!

! Set up the default section file

!

status = tpu$execute_inifile();

IF NOT .status

THEN

RETURN .status;

!

! Perform editing

!

status = test_edit();

IF NOT .status

THEN

RETURN .status;

!

! Finally, we clean up the HTPU and then return

!

cleanup_flag = tpu$m_delete_context;

RETURN tpu$cleanup (cleanup_flag);

END;

 

ROUTINE test_callback (user_arg) =

!++

! FUNCTIONALITY:

!

! Sets up the item list for tpu$initialize

!

!--

BEGIN

LOCAL

fileio_bpv : BLOCK [8, BYTE],

call_user_bpv : BLOCK [8, BYTE],

status;

!

! Construct fileio bpv

!

$test_set_bpv (fileio_bpv, tpu$fileio);

!

! Construct call_user bpv

!

$test_set_bpv (call_user_bpv, test_call_user);

!

! Calls tpu$cliparse to construct item list for

! tpu$intialize

! passing it tpu$fileio as the fileio routine and

! test_call_user as the call_user routine

!

RETURN tpu$cliparse (

$DESCRIPTOR ('HTPU htpu$testing:test.txt'),

fileio_bpv,

call_user_bpv);

END;

 

ROUTINE test_call_user (int_param,

str_param : REF BLOCK[,BYTE],

str_out : REF BLOCK [,BYTE]) =

!++

! FUNCTIONALITY

!

! It simply prints out the integer parameter int_param

! and the string parameter str_param by means of tpu$message

!

!--

BEGIN

EXTERNAL ROUTINE

lib$sget1_dd,

lib$get_vm;

LOCAL

buffer : VECTOR [80, BYTE],

buffer_desc : BLOCK [8, BYTE],

buffer_len,

str_out_len : WORD,

status;

!

! Form a fixed-length string descriptor

!

buffer_desc [DSC$W_LENGTH] = 80;

buffer_desc [DSC$B_DTYPE] = DSC$K_DTYPE_T;

buffer_desc [DSC$B_CLASS] = DSC$K_CLASS_S;

buffer_desc [DSC$A_POINTER] = buffer;

!

! Construct the ini_param message and print it out

!

status = $FAO ($DESCRIPTOR('Integer: !UL'),buffer_len,

buffer_desc, ..int_param);

IF NOT .status

THEN

RETURN .status;

buffer_desc [DSC$W_LENGTH] = .buffer_len;

status = tpu$message (buffer_desc);

buffer_desc [DSC$W_LENGTH] = 80;

!

! Construct the str_param message and print it out

!

status = $FAO ($DESCRIPTOR('String: !AF'), buffer_len,

buffer_desc, .str_param [DSC$W_LENGTH],

.str_param [DSC$A_POINTER]);

IF NOT .status

THEN

RETURN .status;

buffer_desc [DSC$W_LENGTH] = .buffer_len;

status = tpu$message (buffer_desc);

buffer_desc [DSC$W_LENGTH] = 80;

!

! Construct return string

! We need to use lib$sget1_dd to allocate the memory

! for the return string since TPU uses lib$sfree1_dd

! to free our string when it needs to.

!

str_out_len = %CHARCOUNT(%STRING('Success'));

status = lib$sget1_dd (str_out_len, str_out [0,0,0,0]);

IF NOT .status

THEN

RETURN .status;

CH$MOVE (.str_out_len,

UPLIT BYTE ('Success'),

.str_out [DSC$A_POINTER]);

RETURN SS$_NORMAL;

END;

 

ROUTINE test_edit =

!++

! FUNCTIONALITY:

!

! Perform editing to the buffer

!

!--

BEGIN

MACRO

$test_execute (command) =

(BEGIN

status=tpu$execute_command ($DESCRIPTOR (command));

IF NOT .status

THEN

RETURN .status;

END)%;

LOCAL

status;

!

! It first copies two lines to the MAIN buffer

!

$test_execute ('COPY_TEXT("This is the first statement");

SPLIT_LINE');

$test_execute('COPY_TEXT("This is the second statement");

SPLIT_LINE');

!

! It then passes control to HTPU

!

RETURN tpu$control (1);

END;

END

ELUDOM