20 lines
640 B
Factor
20 lines
640 B
Factor
|
! Copyright (C) 2009 Jeremy Hughes.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: classes help.markup help.syntax kernel quotations words
|
||
|
|
alien.marshall.structs strings alien.structs alien.marshall ;
|
||
|
|
IN: alien.marshall.structs
|
||
|
|
|
||
|
|
HELP: define-marshalled-struct
|
||
|
|
{ $values
|
||
|
|
{ "name" string } { "vocab" "a vocabulary specifier" } { "fields" "an alist" }
|
||
|
|
}
|
||
|
|
{ $description "Calls " { $link define-struct } " and " { $link define-struct-tuple } "." } ;
|
||
|
|
|
||
|
|
HELP: define-struct-tuple
|
||
|
|
{ $values
|
||
|
|
{ "name" string }
|
||
|
|
}
|
||
|
|
{ $description "Defines a subclass of " { $link struct-wrapper } ", a constructor, "
|
||
|
|
"and accessor words."
|
||
|
|
} ;
|