module: unix-portability
author: Hannes Mehnert <hannes@mehnert.org>

define function unix-lseek (fd :: <integer>, position :: <integer>, mode :: <integer>)
 => (position :: <integer>)
  raw-as-integer
    (%call-c-function ("mylseek")
       (fd :: <raw-c-unsigned-int>, position :: <raw-c-unsigned-long>, 
        mode :: <raw-c-unsigned-int>) 
       => (result :: <raw-c-signed-int>)
       (integer-as-raw(fd), integer-as-raw(position), integer-as-raw(mode))
     end)
end;

define function unix-errno () => (res :: <integer>)
 raw-as-integer
  (primitive-c-signed-int-at
     (%call-c-function ("__error") () => (errnop :: <raw-pointer>) () end,
     integer-as-raw(0), integer-as-raw(0)))
end;

define constant $proc-path = "file";