home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / aijournl / ai_oct86.arc / AIAPP3.FIG < prev    next >
Encoding:
Text File  |  1986-07-16  |  384 b   |  14 lines
  1.  
  2.  FUNCTION alloc_str(typ : node_type ; s : string80) : node_ptr ;
  3.   VAR
  4.    pt : node_ptr ;
  5.   BEGIN
  6.    get_memory(pt) ;
  7.    pt^.tag := typ ;
  8.    pt^.string_data := s ;
  9.    alloc_str := pt ;
  10.   END ; (* alloc_str *)
  11.  
  12.  
  13. Figure 3 - Low level allocation routine for strings.
  14.