![](/images/backgrounds/286549/hp-sunsoft-pascal-4-0-users-manual-549395253x1.png)
10
In the section, “Summary of Procedures and Macros,” in the XView
Programming Manual, is the following entry:
texsw_insert()
Inserts characters in buf into textsw at the current insertion point. The number of characters actually inserted is returned. This will equal buf_len unless there was a memory allocation failure. If there was a failure, it will return 0.
Textsw_index
textsw_insert(textsw, buf, buf_len)
Textsw | textsw; |
char | *buf; |
int | buf_len; |
If you translate the entry to Pascal, it means:
•Leave the object data type, Textsw, as is.
•Since the function returns the number of characters inserted, invoke it as an integer function.
...
var
textsw: Textsw ;
buf: array[0..3] of char ;
buf_len: integer; N:Textsw_index;
begin
...
N := textsw_insert (textsw, buf, buf_len) ; end.
The XView Toolkit | 229 |