core/alien/accessors/accessors.factor

   1 ! Copyright (C) 2015 Doug Coleman.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 IN: alien.accessors
   4
   5 PRIMITIVE: alien-cell ( c-ptr n -- value )
   6 PRIMITIVE: alien-double ( c-ptr n -- value )
   7 PRIMITIVE: alien-float ( c-ptr n -- value )
   8 PRIMITIVE: alien-signed-1 ( c-ptr n -- value )
   9 PRIMITIVE: alien-signed-2 ( c-ptr n -- value )
  10 PRIMITIVE: alien-signed-4 ( c-ptr n -- value )
  11 PRIMITIVE: alien-signed-8 ( c-ptr n -- value )
  12 PRIMITIVE: alien-signed-cell ( c-ptr n -- value )
  13 PRIMITIVE: alien-unsigned-1 ( c-ptr n -- value )
  14 PRIMITIVE: alien-unsigned-2 ( c-ptr n -- value )
  15 PRIMITIVE: alien-unsigned-4 ( c-ptr n -- value )
  16 PRIMITIVE: alien-unsigned-8 ( c-ptr n -- value )
  17 PRIMITIVE: alien-unsigned-cell ( c-ptr n -- value )
  18 PRIMITIVE: set-alien-cell ( value c-ptr n -- )
  19 PRIMITIVE: set-alien-double ( value c-ptr n -- )
  20 PRIMITIVE: set-alien-float ( value c-ptr n -- )
  21 PRIMITIVE: set-alien-signed-1 ( value c-ptr n -- )
  22 PRIMITIVE: set-alien-signed-2 ( value c-ptr n -- )
  23 PRIMITIVE: set-alien-signed-4 ( value c-ptr n -- )
  24 PRIMITIVE: set-alien-signed-8 ( value c-ptr n -- )
  25 PRIMITIVE: set-alien-signed-cell ( value c-ptr n -- )
  26 PRIMITIVE: set-alien-unsigned-1 ( value c-ptr n -- )
  27 PRIMITIVE: set-alien-unsigned-2 ( value c-ptr n -- )
  28 PRIMITIVE: set-alien-unsigned-4 ( value c-ptr n -- )
  29 PRIMITIVE: set-alien-unsigned-8 ( value c-ptr n -- )
  30 PRIMITIVE: set-alien-unsigned-cell ( value c-ptr n -- )