Red/System [
Title: "derp"
]
#import [
LIBC-file cdecl [
_fdopen: "fdopen" [
fd [integer!]
type [c-string!]
return: [pointer! [byte!]]
]
_getline: "getline" [
line [pointer! [integer!]]
n [pointer! [integer!]]
stream [pointer! [byte!]]
return: [integer!]
]
]
]
getline: func [
stream [pointer! [byte!]]
return: [c-string!]
/local
line [integer!]
n [integer!]
] [
line: 0
n: 0
_getline :line :n stream
as c-string! line
]
stream: _fdopen 0 "r"
line: getline stream
print line
This works.