version 1.35, 2008/06/17 18:46:04
|
version 1.36, 2008/06/17 20:18:11
|
Line 440 create gen-wrapped-types
|
Line 440 create gen-wrapped-types
|
endif |
endif |
.\" }\n" ; |
.\" }\n" ; |
|
|
|
: open-wrappers ( -- addr ) |
|
lib-filename 2@ s" .la" s+ |
|
2dup open-lib >r |
|
drop free throw r> ; |
|
|
: tempdir ( -- c-addr u ) |
: tempdir ( -- c-addr u ) |
s" TMPDIR" getenv dup 0= if |
s" TMPDIR" getenv dup 0= if |
2drop s" /tmp" |
2drop s" /tmp" |
Line 496 DEFER compile-wrapper-function ( -- )
|
Line 501 DEFER compile-wrapper-function ( -- )
|
c-libs @ ['] append-l list-map |
c-libs @ ['] append-l list-map |
\ 2dup type cr |
\ 2dup type cr |
2dup system drop free throw $? abort" libtool link failed" |
2dup system drop free throw $? abort" libtool link failed" |
lib-filename 2@ s" .la" s+ |
open-wrappers |
\ 2dup type cr |
dup 0= if |
2dup open-lib dup 0= if |
.lib-error true abort" open-lib failed" |
.lib-error true abort" open-lib failed" |
|
endif |
endif |
( lib-handle ) lib-handle-addr @ ! |
( lib-handle ) lib-handle-addr @ ! |
2dup delete-file throw drop free throw |
|
lib-filename 2@ s" .c" s+ 2dup delete-file throw drop free throw |
|
lib-filename 2@ drop free throw 0 0 lib-filename 2! ; |
lib-filename 2@ drop free throw 0 0 lib-filename 2! ; |
' compile-wrapper-function1 IS compile-wrapper-function |
' compile-wrapper-function1 IS compile-wrapper-function |
\ s" ar rcs xxx.a xxx.o" system |
\ s" ar rcs xxx.a xxx.o" system |