Merge branch 'master' of git://github.com/slavapestov/factor
commit
b9c17fd329
|
@ -21,7 +21,7 @@ HELP: <c-type>
|
|||
HELP: no-c-type
|
||||
{ $values { "name" c-type-name } }
|
||||
{ $description "Throws a " { $link no-c-type } " error." }
|
||||
{ $error-description "Thrown by " { $link c-type } " if a given string does not name a C type. When thrown during compile time, indicates a typo in an " { $link alien-invoke } " or " { $link alien-callback } " form." } ;
|
||||
{ $error-description "Thrown by " { $link c-type } " if a given word is not a C type." } ;
|
||||
|
||||
HELP: c-type
|
||||
{ $values { "name" c-type-name } { "c-type" c-type } }
|
||||
|
|
|
@ -3,7 +3,7 @@
|
|||
USING: accessors alien alien.accessors arrays byte-arrays
|
||||
classes combinators compiler.units cpu.architecture delegate
|
||||
fry kernel layouts locals macros math math.order quotations
|
||||
sequences system words words.symbol ;
|
||||
sequences system words words.symbol summary ;
|
||||
QUALIFIED: math
|
||||
IN: alien.c-types
|
||||
|
||||
|
@ -37,7 +37,9 @@ unboxer
|
|||
: <c-type> ( -- c-type )
|
||||
\ c-type new ; inline
|
||||
|
||||
ERROR: no-c-type name ;
|
||||
ERROR: no-c-type word ;
|
||||
|
||||
M: no-c-type summary drop "Not a C type" ;
|
||||
|
||||
! C type protocol
|
||||
GENERIC: c-type ( name -- c-type ) foldable
|
||||
|
|
|
@ -245,11 +245,11 @@ HELP: lines
|
|||
{ $description "Reads lines of text until from the " { $link input-stream } " until it is exhausted, collecting them in a sequence of strings." } ;
|
||||
|
||||
HELP: each-line
|
||||
{ $values { "quot" { $quotation "( str -- )" } } }
|
||||
{ $values { "quot" { $quotation "( ... line -- ... )" } } }
|
||||
{ $description "Calls the quotation with successive lines of text, until the current " { $link input-stream } " is exhausted." } ;
|
||||
|
||||
HELP: each-block
|
||||
{ $values { "quot" { $quotation "( block -- )" } } }
|
||||
{ $values { "quot" { $quotation "( ... block -- ... )" } } }
|
||||
{ $description "Calls the quotation with successive blocks of data, until the current " { $link input-stream } " is exhausted." } ;
|
||||
|
||||
HELP: stream-contents
|
||||
|
|
Loading…
Reference in New Issue