! :folding=indent:collapseFolds=1: ! $Id$ ! ! Copyright (C) 2004 Slava Pestov. ! ! Redistribution and use in source and binary forms, with or without ! modification, are permitted provided that the following conditions are met: ! ! 1. Redistributions of source code must retain the above copyright notice, ! this list of conditions and the following disclaimer. ! ! 2. Redistributions in binary form must reproduce the above copyright notice, ! this list of conditions and the following disclaimer in the documentation ! and/or other materials provided with the distribution. ! ! THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, ! INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND ! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE ! DEVELOPERS AND CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, ! PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; ! OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, ! WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR ! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. IN: alien USE: compiler USE: errors USE: lists USE: math USE: namespaces USE: parser USE: stack USE: words : BEGIN-ENUM: #! C-style enumerations. Their use is not encouraged unless #! it is for C library interfaces. Used like this: #! #! BEGIN-ENUM 0 #! ENUM: x #! ENUM: y #! ENUM: z #! END-ENUM #! #! This is the same as : x 0 ; : y 1 ; : z 2 ;. scan str>number ; parsing : ENUM: dup CREATE swap unit define-compound succ ; parsing : END-ENUM drop ; parsing : alien-call ( ... returns library function parameters -- ... ) #! Call a C library function. #! 'returns' is a type spec, and 'parameters' is a list of #! type specs. 'library' is an entry in the "libraries" #! namespace. "alien-call cannot be interpreted." throw ; : library ( name -- handle ) "libraries" get get* ; : alien-function ( function library -- ) library dlsym ; : compile-alien-call pop-literal reverse PARAMETERS >r pop-literal pop-literal alien-function CALL JUMP-FIXUP r> CLEANUP pop-literal RETURNS ; global [ "libraries" set ] bind [ alien-call compile-alien-call ] unswons "compiling" set-word-property