IN: accessors

GENERIC: line>> ( object -- value )

USING: accessors alien.c-types classes.struct
classes.struct.private kernel readline.ffi ;

M: HIST_ENTRY line>>
T{ struct-slot-spec
{ name "line" }
{ offset 0 }
{ class object }
{ type c-string }
} read-struct-slot ; inline

USING: accessors slots.private xml.errors ;

M: attr-w/< line>> 2 slot ; inline

USING: accessors slots.private xml.errors ;

M: bad-cdata line>> 2 slot ; inline

USING: accessors slots.private xml.errors ;

M: bad-decl line>> 2 slot ; inline

USING: accessors slots.private xml.errors ;

M: bad-directive line>> 2 slot ; inline

USING: accessors slots.private xml.errors ;

M: bad-doctype line>> 2 slot ; inline

USING: accessors slots.private xml.errors ;

M: bad-encoding line>> 2 slot ; inline

USING: accessors slots.private xml.errors ;

M: bad-external-id line>> 2 slot ; inline