2.2.1 코드 구성

한글 코드는 KS C 5601-1987 표준을 따릅니다. 코드 표는 94행 x 94열로 배열된 8,836 개의 코드 위치로 구성됩니다. 행과 열은 1부터 94까지 번호가 부여됩니다.

한글 코드의 첫번째 바이트(b7-b1)는 코드의 행 번호를 결정하고두번째 바이트(b7-b1)는 열 번호를 결정합니다. 첫번째 바이트와 두 번째 바이트의 코드 범위는 16진수 A1부터 FE까지입니다.

다음의 예제는 행과 열 번호로 나타낸 한글 문자의 2-바이트 코드 입니다.

 

 

2.2.2 한글 코드 표

그림 2-3은 2-바이트 코드 표의 배치와 한글 문자 세트의 위치를 보여줍니다.

그림2-3 2-바이트 코드 표의 DEC 한글 문자 세트

 

 

주

줄 무늬 표시 영역은 ASCII 제어 코드로 할당된 영역입니다. 한글 코드가 이 영역에 할당되지 않음으로써, ASCII 코드와의 상충이 없습니다.

그림 2-4는 한글 코드 표의 상세한 구성을 보여 줍니다.

 

 

 

 

그림2-4 한글 코드 표의 구성

 

 

 

 

 

4.1.1 단말기 특성의 설정

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 도움말 메시지와 마찬가지로, SHOW LOGICAL 명령과 SHOW TRANSLATION 명령을 제외하고는 HANGULGEN 유틸리티를 사용하여 영어 또는 한글 메시지를 선택할 수 있습니다.

4.2.3 APPEND, BACKUP, CONVERT, COPY, CREATE 및TYPE 명령에서의 한글 사용

파일에 한글 데이터를 포함시킬 수 있습니다. 또한 APPEND, BACKUP, CONVERT, COPY, CREATE 및 TYPE 명령에 한글을 사용할 수 있습니다. 예를 들면 다음과 같습니다.

$ CREATE HANGUL.DAT

한글 문자를 사용할수 있습니다 ^Z

$

$ TYPE HANGUL.DAT

한글 문자를 사용할수 있습니다

$

4.2.4 ASSIGN, DEASSIGN 및 DEFINE 명령에서의 한글 사용

논리명과 등가 문자열에 한글을 사용할 수 있습니다. 또한 ASSIGN, DEASSIGN 및 DEFINE 명령에서도 한글을 사용할 수 있습니다.

ASSIGN 명령과 DEFINE 명령을 사용하여 한글 문자로 정의된 논리명을 화면표시하기 위하여 SHOW LOGICAL 명령과 SHOW TRANSLATION 명령을 사용할 수 있습니다. 그리고, 렉시칼 함수F$LOGICAL은 한글로 변환될 수 있습니다. 예를 들면 다음과 같습니다.

$ DEFINE 논리명 그림

$ SHOW LOGICAL 논리명

"논리명" = "그림" (LNM$PROCESS_TABLE)

$ _변수=F$LOGICAL("논리명")

$ SHOW SYMBOL _변수

_변수 = "그림"

$

4.2.5 DIRECTORY 명령에서의 한글 사용

DIRECTORY 명령에서는 2개 국어 시스템 메시지가 지원됩니다. HANGULGEN 유틸리티를 사용하여 영어 또는 한글 메시지를 선택할 수 있습니다.

4.2.6 MESSAGE 명령에서의 한글 사용

메시지 파일의 기능 필드(facility field)와 원문에서 한글을 사용할수 있습니다. 그러나, 식별 필드(ident field)에서는 한글이 허용되지 않습니다.

4.2.7 OpenVMS 도움말에서의 한글 사용

HELP 명령 사용시 OpenVMS HELP 기능을 호출하여 OpenVMS 명령에 관한 정보를 화면에 표시하거나 또는 HANGULGEN 유틸리티를 사용하여 한글 또는 영어로 주제를 화면에 표시할 수 있습니다.

출력 장치가 HANGUL_MSG로 설정되어있다 하더라도 다음 명령을 사용하면 영어로된 도움말을 직접 화면표시할 수 있습니다.

$HELP @HELPLIB

더우기, OpenVMS/Hangul 전용 도움말 주제를 다음의 명령을 사용하여 화면에 표시할 수 있습니다.

$HELP @HSYHLP

4.2.8 READ 명령과 WRITE 명령에서의 한글 사용

데이터의 입력과 출력 원문에 한글 문자를 포함할 수 있습니다. 예를 들면 다음과 같습니다.

$ TYPE HANGUL.DAT

한글 문자 읽기 쓰기 테스트1

$ OPEN/READ INPUT HANGUL.DAT

$ OPEN/WRITE OUTPUT HANGUL1.DAT

$ READ INPUT REC

$ WRITE OUTPUT REC

$ WRITE OUTPUT "한글 문자 읽기 쓰기 테스트2"

$ CLOSE INPUT

$ CLOSE OUTPUT

$ TYPE HANGUL1.DAT

한글 문자 읽기 쓰기 테스트1

한글 문자 읽기 쓰기 테스트2

$

4.2.9 REPLY 명령에서의 한글 사용

메시지 원문에 한글을 사용할 수 있습니다. 예를 들면 다음과 같습 니다.

$ REPLY/TERMINAL=TT "REPLY에 한글 문자 사용"

Reply received on HANGUL from user JOHN at _HANDVF$LTA5236:

15:19:48

REPLY에 한글 문자 사용

$

4.2.10 SET 명령에서의 한글 사용

프롬프트 지정에 한글을 사용하거나 또는 명령 설명 파일의 동작어 에 한글을 사용할 수 있습니다. 그러나, 한정자나 레이블에는 한글 을 사용할 수 없습니다.

4.2.11 SEARCH 명령에서의 한글 사용

탐색될 문자열에 한글을 사용할 수 있습니다. 예를 들면 다음과 같습니다.

$ TYPE HANGUL.DAT

그 그림이 아름답습니다

그 화가는 매우 유명합니다

$

$ SEARCH/HIGHLIGHT=UNDERLINE HANGUL.DAT 그림이 그 그림이 아름답습니다

$

4.2.12 한글 기호

기호명은 알파벳 문자(_와 $ 포함)로 시작해야 합니다. 두번째와 그 이후 문자부터는 한글을 사용할 수 있습니다. 또한, 할당될 문 자열에 한글이 포함될 수도 있습니다. 예를 들면 다음과 같습니다.

$ _변수="한글 데이터"

$ SHOW SYMBOL _변수

_변수 = "한글 데이터"

$

4.2.13 명령 프로시저에서의 레이블

명령 프로시저의 레이블명에 한글을 사용할 수 있습니다. 따라서 GOTO 명령에 한글 레이블을 사용할 수도 있습니다.

5.3.1 SET 명령

SET 명령은 한글 단말기 특성을 설정합니다. 이러한 특성에는 장치 유형, 입력 유형 및 출력 유형이 포함됩니다. 영어 및 한글 도움말 /오류 메시지를 제공하는 유틸리티에서는, 해당되는 출력 유형을 지정하여서 출력 언어를 선택합니다.

5.3.2 SHOW 명령

SHOW 명령은 한글 단말기 특성을 보여주는데, 각 장치 당 1 행씩 다음 필드들의 정보를 화면표시합니다.

• 현재 SYS$INPUT 장치의 장치명
• 장치 유형
• 입력 유형(HANGUL 또는 ASCII)
• 출력 유형(HANGUL_MSG 또는 ASCII_MSG)

HANGULGEN에서는 DOOSAN 220C와 VT382의 장치 유형이

HANGUL_VDU로 표시됩니다.

그리고 LA380의 장치 유형은 HANGUL_PRT로 표시됩니다.

6.3.1 한글 개인명

HMAIL에서는 개인명에 한글을 사용할 수 있습니다. 예를 들어, 사용자 KIM이 파일 FILE.TXT를 한글 개인명 사용자 HANGUL::LEE 에게 발송하고자 하는 경우, 명령을 다음과 같이 입력할 수 있습니다.

HMAIL> set personal_name "김 영근, 컴퓨터실"

HMAIL> exit

$ HMAIL/SUBJECT="Meeting Agenda" FILE.TXT HANGUL::LEE

또는 사용자 KIM이 한 개인명을 현재 메시지에만 적용되게 설정할 경우 명령을 다음과 같이 입력할 수 있습니다.

HMAIL> send/personal_name="김 영근, 컴퓨터실" file.txt

수신: hangul::lee

주제: Meeting agenda

노드 HANGUL에 있는 사용자 LEE는 다음의 메시지를 수신합니다.

HANGUL 노드의 HANGUL::KIM 에서온 새 전자우편 "김 영근, 컴퓨터실"

6.3.2 한글 제목명

HMAIL에서는 제목에 한글을 사용할 수 있습니다. 다음은 그 사 용 예를 보여줍니다.

HMAIL>

수신: hangul::lee

주제:회의 의사록

6.3.3 한글 폴더명

폴더명에 한글을 사용할 수 있습니다. 다음의 예들은 폴더명에 한 글을 사용하는 방법을 보여줍니다.

HMAIL> select mail

%MAIL-I-SELECTED, 5 메시지가 선택되었습니다

HMAIL> move/all 회의 의사록

회의 의사록 폴더가 없습니다.

폴더를 만드시겠습니까 ?(Y/N, 기본값은 N) y

%MAIL-I-NEWFOLDER, 회의 의사록 폴더가 생성되었습니다

6.3.4 한글 문자열 대조

HMAIL에서는 SEARCH 명령과 SELECT, SET FOLDER, DIRECTORY 및 READ 명령의 /SUBJECT_SUBSTRING 한정자 같이 명령의 탐색 문자열에 한글을 사용할 수 있습니다.

예를 들면 다음과 같습니다.

HMAIL> select 회의 의사록

%MAIL-I-SELECTED, 5 메시지가 선택되었습니다

HMAIL> directory

회의 의사록

 

# 발신	날짜	주제
1 HANGUL::ZQCHEN	8-JUL-1991	부서장 회의
2 LIU	17-AUG-1991	17-AUG-1991
3 SYSTEM	12-OCT-1991	시스템 데이터베이스 갱신
4 LEE	14-OCT-1991	긴급 회의
5 SYSTEM	20-OCT-1991	시스템 데이터베이스

HMAIL> directory/subject_substring=데이터베이스

회의 의사록

# 발신	날짜	주제
1 LIU	17-AUG-1991	데이터베이스 정보
2 SYSTEM	12-OCT-1991	시스템 데이터베이스 갱신
3 SYSTEM	20-OCT-1991	시스템 데이터베이스

6.3.5 HMAIL에서의 내정 편집기

HMAIL에서는 HTPU가 내정 편집기로 호출됩니다. 그러나, SET EDITOR 명령을 사용하여 이 내정값을 무시하고 다른 편집기를 선택할 수 있습니다. 예를 들어, 명령을 사용하여 내정 편집기를 다른 편집기로 설정하려면 다음과 같이 할 수 있습니다.

HMAIL> set editor [other editor]1

9.8.1 HMAIL

HMAIL> SET PERSONAL "권경화" 주제

HMAIL> SELECT MAIL

HMAIL> DIR

# 발신 날짜

1 NODEA::KIM 1992 년 11 월 16 일 업무 보고서

HMAIL> 1

#1 1992 년 11 월 16 일 수요일 오전 11 시 20 분 53 초 MAIL

발신: NODEA::KIM "권경화"

수신: LEE

참조:

주제: 업무 보고서

총무 부장 귀하

금년도 업무 현황을 아래와 같이 보고드립니다

:

:

:

HMAIL> EXIT

$

9.8.2 DIR 명령

디렉토리 USER$:[LEE]

TEST.DAT;1 파일 ID: (2229,2,0)

크기: 1/3 소유자: [SYSTEM]

생성일: 1992 년 11 월 15 일 목요일 오후 6 시 35 분 25 초

개정일: 1992 년 11 월 15 일 목요일 오후 6 시 35 분 28 초 (1)

만료일: <지정된 것이 없음>

백업일: <백업이 기록되지 않았음>

파일 구성: 순차

파일 속성: 할당: 3, 확장: 0, 글로벌 버퍼 수: 0, 버전 한계 없음

레코드 형식: 가변길이

레코드 속성: Carriage return carriage control

RMS 속성: 없음

Journaling enabled: 없음

파일 보호: System:RWED, Owner:RWED, Group:RE, World:

액세스 제어 리스트: 없음

합계: 1 파일, 1/3 블록

$ DIR/DATE TEST*.DAT

디렉토리 USER$:[LEE]

TEST.DAT;1 1992 년 11 월 15 일 화요일 오후 6 시 35 분 25 초

TEST1.DAT;1 1992 년 11 월 15 일 화요일 오후 6 시 36 분 19 초

TEST2.DAT;1 1992 년 11 월 15 일 화요일 오후 6 시 36 분 22 초

TEST3.DAT;1 1992 년 11 월 15 일 화요일 오후 6 시 36 분 26 초

TEST4.DAT;1 1992 년 11 월 15 일 화요일 오후 6 시 36 분 31 초

합계: 5 파일

$

9.8.3 RTL 날짜/시각 처리 루틴

$ TYPE DATETIME.C

/* DECLARATIONS */

#include <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_047,LIB$TIME_FORMAT_023

$ DEFINE SYS$LANGUAGE HANGUL

$

$ DEFINE LIB$DT_INPUT_FORMAT -

_$"!Y4 년 !MNB 월 !DB 일 !MIU!HB2 시 !MB 분 !SB.!C2 초 "

$ RUN DATETIME

Input date time:1992 년 10 월 11 일 오후2 시 16 분 26.02초

Output date time: 1992 년 10 월 11 일 화요일 오후 2 시 16 분 26 초

$

$ DEFINE LIB$DT_INPUT_FORMAT -

_$"!Y4 년 !MAU 월 !DB 일 !HB4 시 !MB 분 !SB.!C2 초 "

$ RUN DATETIME

Input date time:1992 년 10 월 11 일 17 시 12 분 22.02 초

Output date time: 1992 년 10 월 11 일 화요일 오후 5 시 12 분 22 초

$

 

 

10.1.1 TFF 환경 설정

이하의 소절들에서는 OpenVMS/Hangul 운영체제 상에서 TFF를 사용 할 수 있기 전에, 사용자가 수행해야 하는 기본적인 단계를 서술합니다. TFF 환경의 설정과 유지보수 방법에 관해서는 VMS Terminal Fallback Utility Manual을 참조하십시오.

10.1.2 물리적 기억장소 요건

TFF는 고가의 시스템 자원(비페이지형 동적 기억장소 영역)을 사용하기 때문에, 사용자는 시스템 레벨에서의 환경을 조심스럽게 준비하여야 합니다. HANGUL_DS 폴백 표를 로드하는 데에는 최소한 14 KBytes의 비페이지형 동적 기억장소가 요구됩니다.

 

 

 

11.1.1 문자 셀 사용자 인터페이스

OpenVMS 디버거의 문자 셀 사용자 인터페이스는 DEC 한글 문자 세트를 지원하기 위해 한글 SMG와 DEC C's XPG4 로컬라이제이션 유틸리티를 함께 사용합니다. 다음 논리명이 정의되어야 DEC 한글 문자 세트 지원이 가능합니다.

• DBG$SMGSHR

이 논리명은 OpenVMS 디버거가 화면 모드 지원을 위해 사용하는 SMG 공유 가능 이미지의 이름을 정의합니다. DEC 한글 문자 세트가 지원되도록 하려면 이 논리명을 다음과 같이 정의하십시오.

$ DEFINE/JOB DBG$SMGSHR HSMGSHR

• SMG$DEFAULT_CHARACTER_SET

이 논리명은 한글 SMG가 지원하는 기본 문자 세트를 정의합니다. DEC 한글 문자 세트가 지원되도록 하려면 이 논리명을 다음과 같이 정의하십시오.

$ DEFINE/JOB SMG$DEFAULT_CHARACTER_SET HANGUL

• LANG

이 논리명은 DEC C's XPG4 로컬라이제이션 유틸리티 및 런타임 라이브러리의 모든 로캘 범주에 대한 기본 로캘 설정을 정의합니다. DEC 한글 문자 세트가 지원되도록 하려면 이 논리명을 다음과 같이 정의하십시오.

$ DEFINE/JOB LANG KO_KR_DECKOREAN

11.1.2 DECwindows Motif 사용자 인터페이스

OpenVMS 디버거의 DECwindows Motif 사용자 인터페이스는 DEC 한글 문자 세트의 문자를 표시할 수 있습니다. 디버거의 리소스 파일인 VMSDEBUG.DAT는 DECW$SYSTEM_DEFAULT 또는 DECW$USER_DEFAULTS 디렉토리에 있으며 각 디버거 윈도우에 대한 글꼴을 명시적으로 지정할 수 있습니다. VMSDEBUG.DAT에 있는 DebugDefault.font 리소스는 모든 디버거 윈도우에 대한 기본 글꼴을 지정합니다. 또한 각 윈도우는 이 기본값과 다른 글꼴을 사용할 수도 있습니다. 자세한 내용은 VMSDEBUG.DAT 파일을 참조하십시오.

OpenVMS 디버거 윈도우에서 DEC 한글 문자 세트 지원을 작동시키려면 해당 윈도우가 DEC 한글 문자 세트 글꼴을 사용해야 합니다. 다음 방법 중 하나를 사용해 글꼴을 지정합니다.

1. 디버거 윈도우의 리소스에 의해 명시적으로 지정
2. 위 방법으로 글꼴이 명시적으로 지정되지 않은 경우, 디버거 의 기본 글꼴 리소스인 DebugDefault.font로 지정
3. 디버거의 기본 글꼴 리소스나 디버거 윈도우의 글꼴 리소스 모두가 글꼴을 지정하지 않은 경우에는 시스템 기본 글꼴 리소스를 사용해 지정

11.2.1 EXAMINE 명령

EXAMINE 명령은 새 한정자인 /WCHAR_T:n을 지원합니다. 이 명령은 검사된 각각의 엔터티를 n 롱워드의 다중 바이트 파일 코드 시퀀스 (n자)로 해석하여 표시합니다. n의 기본값은 1입니다.

검사된 문자열이 변환되면 OpenVMS 디버거는 디버거가 실행되는프로세스의 로캘 데이터베이스를 사용합니다. 기본값은 C 로캘입니다.

B.1.1 호출할 수 있는 HSYSHR 루틴의 사용 예

$ TYPE HSY$EXAMPLE:SAMPLE_HSYSHR.C

/* SAMPLE_HSYSHR.C

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

This is a C language example to demonstrate 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 charact

*/

#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*/

!++

! 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 useslib$sfreel_dd

! to free our string when it needs to.

!

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

status = ;ob$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_PINTER]);

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

B.3.1 HTPU의 호출식 루틴

다음의 호출식 루틴들은 HTPU 동작시 사용할 수 있습니다.

1. Simplified Callable Interface(간이 호출식 인터페이스)

 

TPU$TPU	DCL 명령에서의 HTPU와 등가의 HTPU를 호출합니다.
TPU$EDIT	입력 파일의 판독 및 편집, 그리고 수정된 버퍼를 출력 파일에 기입하기 위하여 HTPU를 호출합니다.

1. Full Callable Interface(완전 호출식 인터페이스)

 

TPU$CLEANUP	HTPU의 내부 데이터 구조를 지우고, 추가의 호출을 준비합니다.
TPU$CLIPARSE	TPU$INITIALIZE를 위하여 명령행을 해석하고 항목 목록을 구성합니다.
PU$CLOSE_TERMINAL	이 루틴이 사용자 호출 루틴 내에서 호출되는 시점과 사용자 호출 루틴의 복귀 시점 동안에 단말기에 연결된 HTPU 채널을 닫습니다.
TPU$CONTROL	TPU$INITIALIZE 호출 후에, 사용자가 HTPU를 종료할 때까지 제어를 HTPU에 넘겨 줍니다.
TPU$EXECUTE_COMMAND	TPU$INITIALIZE 호출 후에, HTPU의 명령문을 실행합니다.
TPU$EXECUTE_INIFILE	TPU$INITIALIZE 호출 후 즉시 초기화 파일 을 실행합니다.
TPU$FILEIO	내정 파일 I/O 루틴입니다.
TPU$HANDLER	내정 조건 처리기입니다.
TPU$INITIALIZE	예외 처리기를 설정한 후에 HTPU를 초기화합니다.
TPU$MESSAGE	내장 프로시저 MESSAGE를 사용하여 오류 메시지와 문자열을 작성합니다.
TPU$PARSEINFO	CLI$DCL_PARSE를 사용하여 명령을 해석한 후에, TPU$INITIALIZE에 대한 항목 목록을 구성합니다.

B.3.2 예제 프로그램

다음은 Full Callable Interface를 사용하여 HTPU를 호출하기 위한 BLISS로 작성된 예제 프로그램입니다.

!++

!

! 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 (INDENT = '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 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