1 08/04/86 pascal_util_
2
3
4 To obtain information on a particular entry point us the "ep" request
5
6
7 Entry points in pascal_util_:
8 List generated by the help command
9
10
11 :Entry: establish_on_unit: 08/04/86 pascal_util_$establish_on_unit
12
13
14 Function: establishes one on_unit for the current procedure main or
15 other. On_units are used to establish handlers for unusual
16 occurrences quit program_interrupt overflow pascal_error etc...
17 For more information concerning on_units and conditions refer to the
18 Multics Reference Manual.
19 If one on_unit already exists for the given condition, it is
20 replaced by this one.
21 On units can be removed using the pascal_util_$remove_on_unit
22 procedure, or are automatically removed when the procedure exits.
23
24
25 Syntax:
26 $IMPORT
27 'pascal_util_ pascal' : establish_on_unit $
28
29 PROCEDURE establish_on_unit
30 condition_name : PACKED ARRAY a..b : integer of CHAR;
31 PROCEDURE condition_handler ; EXTERNAL :
32
33
34 Parameters:
35 condition_name
36 Is the name of the condition for which an on_unit is established.
37 Leading spaces are removed if any, and then all characters after and
38 including first space encountered -if any- are removed.
39 condition_handler
40 Is a procedure to be called if this condition occurs. This
41 procedure must be exported or imported but not internal.
42
43
44 Examples:
45
46 establist_on_unit 'program_interrupt' abort_current_request_execution ;
47
48 establish_on_unit 'cleanup' clean_up_environment ;
49
50
51 :Entry: remove_on_unit: 08/04/86 pascal_util_$remove_on_unit
52
53
54 Function: removes one on_unit in the the current procedure main or
55 other. On_units are used to establish handlers for unusual
56 occurrences quit program_interrupt overflow pascal_error etc...
57 For more information concerning on_units and conditions refer to the
58 Multics Reference Manual.
59 It is not an error if no on_unit exists in the current procedure
60 for the given condition.
61 On units can be established using the pascal_util_$establish_on_unit
62 procedure.
63
64
65 Syntax:
66 $IMPORT
67 'pascal_util_ pascal' : remove_on_unit $
68
69 PROCEDURE remove_on_unit
70 condition_name : PACKED ARRAY a..b : integer of CHAR ;
71 EXTERNAL ;
72
73
74 Parameters:
75 condition_name
76 Is the name of the condition for which an on_unit is removed.
77 Leading spaces are removed if any, and then all characters after and
78 including first space encountered -if any- are removed.
79
80
81 Examples:
82
83
84 remove_on_unit 'program_interrupt' ;
85
86
87 :Entry: breakall_on: 08/04/86 pascal_util_$breakall_on
88
89
90 Function: Sets the given Pascal text file in breakall mode.
91 Some screen applications may need to input characters exactly at
92 the moment when they are typed in. Since Pascal text input are
93 normally buffered line by line, you need this procedure to say to
94 Pascal I/O environment that you want now character by character input.
95 This procedure sets Pascal input in "unbuffered" mode for this text
96 file, and attempts to set the terminal in "breakall" mode. No error
97 is signalled if the terminal is already in this mode or if this mode
98 is not accepted.
99 If this call has switched your terminal from "^breakall" to
100 "breakall" mode, it is switched back to "^breakall" mode when the
101 procedure where the file is declared exits or when the procedure
102 pascal_util_$breakall_off if called for this file.
103
104
105 Syntax:
106
107 $IMPORT
108 'pascal_util_ pascal : breakall_on $
109
110 PROCEDURE breakall_on
111 VAR text_file : text ; EXTERNAL ;
112
113
114 Parameters:
115 text_file
116 Is the concerned text file. It must be attached but may be open or
117 not.
118
119
120 Examples:
121
122 breakall_on input ;
123
124
125 :Entry: breakall_off: 08/04/86 pascal_util_$breakall_off
126
127
128 Function: Resets the given Pascal text file in non breakall mode if
129 it was put in breakall mode by a previous call to
130 pascal_util_$breakall_on otherwise it has no effect.
131 This procedure resets Pascal input in "buffered" mode for this text
132 file, and resets the terminal in "breakall" mode if it was switched
133 from "^breakall" mode to "breakall" mode by the previous call to
134 pascal_util_$breakall_on.
135
136
137 Syntax:
138
139 $IMPORT
140 'pascal_util_ pascal : breakall_off $
141
142 PROCEDURE breakall_off
143 VAR text_file : text ; EXTERNAL ;
144
145
146 Parameters:
147 text_file
148 Is the concerned text_file. It must be attached but may be open or
149 not.
150
151
152 Examples:
153
154 breakall_off input ;