HP SunSoft Pascal 4.0 - Manual (Page 253)

The XView Toolkit 229
10
Sample Translation of an XView Function to Pascal
In the section, “Summary of Procedures and Macros,” in the XView
Programming Manual, is the following entry:
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.
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;
...
var
textsw: Textsw ;
buf: array[0..3] of char ;
buf_len: integer;
N:Textsw_index;
begin
...
N := textsw_insert (textsw, buf, buf_len) ;
end.