init dep handling for xo-expression2 -> xo-procedure2
This commit is contained in:
parent
87b89db2f3
commit
9a52d270bd
6 changed files with 115 additions and 3 deletions
|
|
@ -5,16 +5,23 @@
|
|||
|
||||
#include "init_procedure2.hpp"
|
||||
#include "init_primitives.hpp"
|
||||
//#include "procedure2_register_facets.hpp"
|
||||
//#include "procedure2_register_types.hpp"
|
||||
#include "procedure2_register_facets.hpp"
|
||||
#include "procedure2_register_types.hpp"
|
||||
|
||||
#include <xo/object2/init_object2.hpp>
|
||||
#include <xo/gc/CollectorTypeRegistry.hpp>
|
||||
|
||||
namespace xo {
|
||||
using xo::scm::Primitives;
|
||||
using xo::scm::procedure2_register_facets;
|
||||
using xo::scm::procedure2_register_types;
|
||||
using xo::mm::CollectorTypeRegistry;
|
||||
|
||||
void
|
||||
InitSubsys<S_procedure2_tag>::init()
|
||||
{
|
||||
procedure2_register_facets();
|
||||
|
||||
CollectorTypeRegistry::instance().register_types(&procedure2_register_types);
|
||||
}
|
||||
|
||||
InitEvidence
|
||||
|
|
@ -22,6 +29,9 @@ namespace xo {
|
|||
{
|
||||
InitEvidence retval;
|
||||
|
||||
/* recursive subsystem deps for xo-object2/ */
|
||||
retval ^= InitSubsys<S_object2_tag>::require();
|
||||
|
||||
/* xo-procedure2/'s own initialization code */
|
||||
retval ^= Subsystem::provide<S_procedure2_tag>("procedure2", &init);
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue