updated shell code to register query commands with Tcl object
[scpubgit/DX.git] / bin / dx
1 use strictures 2;
2 use Module::Runtime qw(use_module);
3 use DX::Utils qw(:builders);
4
5 use_module('DX::ShellFrontend')->new(
6   session_mode => 'shell',
7   session => use_module('DX::ShellSession')->new(
8     shell_state => use_module('DX::ShellState')->new(
9       mode => 'shell',
10       template_query_state => use_module('DX::QueryState')->new(
11           predicates => {
12           'eq' => use_module('DX::Predicate::Eq')->new,
13           member_at => use_module('DX::Predicate::MemberAt')->new,
14           is_dict => use_module('DX::Predicate::IsDict')->new,
15         },
16         globals => dict(),
17         proposition_sequence
18           => use_module('DX::PropositionSequence')->new_empty,
19       ),
20     )
21   ),
22 )->repl