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

alien.c-types: Implement present on pointers for help-lint.

locals-and-roots
Doug Coleman 2016-04-05 22:17:36 -07:00
parent 1f7bf0d6ab
commit f865273e4d
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/alien/c-types/c-types.factor
View File

@ -1,9 +1,9 @@
! Copyright (C) 2004, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
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 summary ;
USING: accessors alien alien.accessors arrays classes
combinators compiler.units cpu.architecture delegate fry kernel
layouts macros math math.order present quotations sequences
summary system words words.symbol ;
IN: alien.c-types
SYMBOLS:
@ -50,6 +50,9 @@ PREDICATE: c-type-word < word
TUPLE: pointer { to initial: void read-only } ;
C: <pointer> pointer
M: pointer present
to>> present "pointer: " prepend ;
UNION: c-type-name
c-type-word pointer ;