diff --git a/basis/alien/marshall/structs/structs-docs.factor b/basis/alien/marshall/structs/structs-docs.factor new file mode 100644 index 0000000000..0c5645810e --- /dev/null +++ b/basis/alien/marshall/structs/structs-docs.factor @@ -0,0 +1,19 @@ +! 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." +} ;