steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'inlinec' of git://github.com/jedahu/factor

db4
Slava Pestov 2009-07-08 21:09:19 -05:00
parent 75e31b8f1e 5b46a22297
commit 463a63d470
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/alien/inline/compiler/compiler.factor
View File

@ -27,12 +27,20 @@ SYMBOL: C++
{ C++ [ ".cpp" ] } { C++ [ ".cpp" ] }
} case ; } case ;
: compiler ( lang -- str ) HOOK: compiler os ( lang -- str )
M: word compiler ( lang -- str )
{ {
{ C [ "gcc" ] } { C [ "gcc" ] }
{ C++ [ "g++" ] } { C++ [ "g++" ] }
} case ; } case ;
M: openbsd compiler ( lang -- str )
{
{ C [ "gcc" ] }
{ C++ [ "eg++" ] }
} case ;
HOOK: compiler-descr os ( lang -- descr ) HOOK: compiler-descr os ( lang -- descr )
M: word compiler-descr compiler 1array ; M: word compiler-descr compiler 1array ;

3
basis/alien/inline/inline.factor
View File

@ -129,3 +129,6 @@ SYNTAX: C-STRUCTURE:
SYNTAX: ;C-LIBRARY compile-c-library ; SYNTAX: ;C-LIBRARY compile-c-library ;
SYNTAX: DELETE-C-LIBRARY: scan delete-inline-library ; SYNTAX: DELETE-C-LIBRARY: scan delete-inline-library ;
SYNTAX: RAW-C:
[ "\n" % parse-here % "\n" % c-strings get push ] "" make ;