1 ! Copyright (C) 2004, 2005 Mackenzie Straight
2 ! Copyright (C) 2007, 2010 Slava Pestov
3 ! Copyright (C) 2007, 2008 Doug Coleman
4 ! See http://factorcode.org/license.txt for BSD license.
5 USING: alien alien.c-types alien.syntax assocs continuations
6 alien.destructors kernel namespaces accessors sets summary
7 destructors destructors.private ;
15 FUNCTION-ALIAS: set-errno
16 void set_err_no ( int err-no ) ;
21 : preserve-errno ( quot -- )
22 errno [ call ] dip set-errno ; inline
26 FUNCTION-ALIAS: (malloc)
27 void* malloc ( size_t size ) ;
29 FUNCTION-ALIAS: (calloc)
30 void* calloc ( size_t count, size_t size ) ;
32 FUNCTION-ALIAS: (free)
33 void free ( void* alien ) ;
35 FUNCTION-ALIAS: (realloc)
36 void* realloc ( void* alien, size_t size ) ;
40 ! We stick malloc-ptr instances in the global disposables set
41 TUPLE: malloc-ptr value continuation ;
43 M: malloc-ptr hashcode* value>> hashcode* ;
46 over malloc-ptr? [ [ value>> ] bi@ = ] [ 2drop f ] if ;
48 : <malloc-ptr> ( value -- malloc-ptr )
49 malloc-ptr new swap >>value ;
56 drop "Memory allocation failed" ;
58 : check-ptr ( c-ptr -- c-ptr )
61 ERROR: realloc-error ptr size ;
63 M: realloc-error summary
64 drop "Memory reallocation failed" ;
68 : add-malloc ( alien -- alien )
69 dup <malloc-ptr> register-disposable ;
71 : delete-malloc ( alien -- )
72 [ <malloc-ptr> unregister-disposable ] when* ;
74 : malloc-exists? ( alien -- ? )
75 <malloc-ptr> disposables get key? ;
79 : malloc ( size -- alien )
80 (malloc) check-ptr add-malloc ;
82 : calloc ( count size -- alien )
83 (calloc) check-ptr add-malloc ;
85 : realloc ( alien size -- newalien )
87 over malloc-exists? [ realloc-error ] unless
88 [ drop ] [ (realloc) check-ptr ] 2bi
89 [ delete-malloc ] [ add-malloc ] bi* ;
92 >c-ptr [ delete-malloc ] [ (free) ] bi ;
94 FUNCTION: void memset ( void* buf, int char, size_t size ) ;
96 FUNCTION: void memcpy ( void* dst, void* src, ulong size ) ;
98 FUNCTION: int memcmp ( void* a, void* b, ulong size ) ;
100 : memory= ( a b size -- ? )
103 FUNCTION: size_t strlen ( c-string alien ) ;
105 FUNCTION: int system ( c-string command ) ;