Compaq AA-PWCBD-TE Uživatelský manuál stáhnout pdf (Strana 131)

Sample DECTPU Procedures

The following DECTPU procedures are samples of how to use DECTPU to

perform certain tasks. These procedures show one way of using DECTPU; there

may be other, more efﬁcient ways to perform the same task. Make changes to

these procedures to accommodate your style of editing.

For these procedures to compile and execute correctly, you must make sure that

there are no conﬂicts between these sample procedures and your interface. This

appendix contains the following types of procedures:

1. Line-mode editor

2. Translation of control characters

3. Restoring terminal width before exiting from DECTPU

4. DCL command procedure to run DECTPU from a subprocess

A.1 Line-Mode Editor

Example A–1 shows a portion of an editing interface that uses line mode rather

than screen displays for editing tasks. You can use this mode of editing for batch

jobs or for running DECTPU on terminals that do not support screen-oriented

editing.

Example A–1 Line-Mode Editing

! Portion of a line mode editor for DECTPU

input_file := GET_INFO (COMMAND_LINE, "file_name"); ! Set up main

main_buffer := CREATE_BUFFER ("MAIN", input_file); ! buffer from input

POSITION (BEGINNING_OF (main_buffer)); ! file

LOOP ! Continuously loop until QUIT

cmd := READ_LINE ("*");

IF cmd = ""

THEN

cmd_char := "N";

ELSE

cmd_char := SUBSTR (cmd, 1, 1); CHANGE_CASE (cmd_char, UPPER);

ENDIF;

CASE cmd_char FROM "I" TO "T" ! Only accepting I,L,N,Q,T

(continued on next page)

Sample DECTPU Procedures A–1

1 2 ... 126 127 128 129 130 131 132 133 134 135 136 ... 151 152

Žádné komentáře

Compaq AA-PWCBD-TE Uživatelský manuál Strana 131