2 require '../oils_header.pl';
5 use OpenILS::Application::Storage::Driver::Pg::QueryParser;
9 $Data::Dumper::Indent = 1;
10 use Time::HiRes qw/time/;
11 use OpenILS::Utils::CStoreEditor;
13 OpenILS::Application::Storage::Driver::Pg::QueryParser->TEST_SETUP;
15 my $query = '#available title: foo bar* || (-baz || (subject:"1900'.
16 '-1910 junk" "and another thing" se:stuff #available '.
17 'statuses(0,7,12))) && && && au:malarky || au|'.
18 'corporate|personal:gonzo && dc.identifier:+123456789X'.
19 ' dc.contributor=rowling #metarecord estimation_'.
20 'strategy(exclusion) item_type(a, t) item_form(d) '.
21 'bib.subjectTitle=potter bib.subjectName=harry '.
22 'keyword|mapscale:1:250000';
24 #$query = 'concerto #available filter_group_entry(1,2,3) filter_group_entry(4,5)';
25 #$query = 'concerto || filter_group_entry(4) || filter_group_entry(3)';
26 #$query = 'concerto (audience(a) || (item_type(a) && item_form(b)))';
27 #$query = 'concerto || (piano && (item_type(a) || audience(a)))';
29 #$query = '(concerto item_type(a)) || (piano item_type(b))';
30 #$query = 'audience(a) (concerto || item_type(a) || (piano music item_form(b)))';
31 #$query = 'concerto && (item_type(a) || piano) && (item_form(b) || music)';
32 $query = 'concerto && (piano || item_type(a)) && (music || item_form(b))';
35 my $superpage_size = 1000;
36 my $core_limit = 25000;
39 my $config = '/openils/conf/opensrf_core.xml';
43 'superpage=i' => \$superpage,
44 'superpage-size=i' => \$superpage_size,
45 'core-limit=i' => \$core_limit,
47 'no-connect' => \$noconnect,
50 'config=s' => \$config
53 my $parser = OpenILS::Application::Storage::Driver::Pg::QueryParser->new(
54 superpage_size => $superpage_size,
55 superpage => $superpage,
56 core_limit => $core_limit,
62 osrf_connect($config);
64 # load the parser config
65 my $cstore = OpenSRF::AppSession->create( 'open-ils.cstore' );
67 config_record_attr_index_norm_map =>
69 'open-ils.cstore.direct.config.record_attr_index_norm_map.search.atomic',
70 { id => { "!=" => undef } },
71 { flesh => 1, flesh_fields => { crainm => [qw/norm/] }, order_by => [{ class => "crainm", field => "pos" }] }
73 search_relevance_adjustment =>
75 'open-ils.cstore.direct.search.relevance_adjustment.search.atomic',
76 { id => { "!=" => undef } }
78 config_metabib_field =>
80 'open-ils.cstore.direct.config.metabib_field.search.atomic',
81 { id => { "!=" => undef } }
83 config_metabib_field_virtual_map =>
85 'open-ils.cstore.direct.config.metabib_field_virtual_map.search.atomic',
86 { id => { "!=" => undef } }
88 config_metabib_search_alias =>
90 'open-ils.cstore.direct.config.metabib_search_alias.search.atomic',
91 { alias => { "!=" => undef } }
93 config_metabib_field_index_norm_map =>
95 'open-ils.cstore.direct.config.metabib_field_index_norm_map.search.atomic',
96 { id => { "!=" => undef } },
97 { flesh => 1, flesh_fields => { cmfinm => [qw/norm/] }, order_by => [{ class => "cmfinm", field => "pos" }] }
99 config_record_attr_definition =>
101 'open-ils.cstore.direct.config.record_attr_definition.search.atomic',
102 { name => { "!=" => undef } }
108 my $sql = $parser->toSQL;
111 print "Parsed query tree:\n" . Dumper($parser) unless $quiet;
112 print "Abstract query:\n" . Dumper($parser->parse_tree->to_abstract_query) unless $quiet;
114 print "SQL:\n$sql\n\n" unless $quiet;