home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
aijournl
/
1986_10
/
aiapp3.fig
< prev
next >
Wrap
Text File
|
1986-07-16
|
384b
|
14 lines
FUNCTION alloc_str(typ : node_type ; s : string80) : node_ptr ;
VAR
pt : node_ptr ;
BEGIN
get_memory(pt) ;
pt^.tag := typ ;
pt^.string_data := s ;
alloc_str := pt ;
END ; (* alloc_str *)
Figure 3 - Low level allocation routine for strings.