hcopy   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/base/base.xtm

Implementation

(bind-func hcopy:[String*,String*]*
  (lambda (x)
    (let ((size (tref x 0))
          (obj:String* (halloc))
          (s:i8* (halloc (+ size 1))))
      (strcpy s (cast (tref x 1) i8*))
      (tfill! obj size s)
      obj)))


Back to Index

Similar Entries