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