"Fossies" - the Fresh Open Source Software Archive

Member "xapian-bindings-1.4.14/php/add-php-ref-handling" (23 Nov 2019, 3187 Bytes) of package /linux/www/xapian-bindings-1.4.14.tar.xz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file.

    1 #!/usr/bin/perl -w
    2 # Add reference handling code
    3 #
    4 # Copyright (C) 2013,2014,2017 Olly Betts
    5 #
    6 # Permission is hereby granted, free of charge, to any person obtaining a copy
    7 # of this software and associated documentation files (the "Software"), to
    8 # deal in the Software without restriction, including without limitation the
    9 # rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
   10 # sell copies of the Software, and to permit persons to whom the Software is
   11 # furnished to do so, subject to the following conditions:
   12 #
   13 # The above copyright notice and this permission notice shall be included in
   14 # all copies or substantial portions of the Software.
   15 #
   16 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
   17 # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
   18 # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
   19 # AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
   20 # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
   21 # FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
   22 # IN THE SOFTWARE.
   23 
   24 use strict;
   25 
   26 my $query_ctor = 0;
   27 
   28 while (<>) {
   29     if (/^class XapianEnquire\b/) {
   30     $_ .= "\tprotected \$_ps=null;\n";
   31     $_ .= "\tprotected \$_sorter=null;\n";
   32     $_ .= "\tprotected \$_spies=null;\n";
   33     } elsif (/^\tfunction set_sort_by_\w*key\w*\((\$\w+)/) {
   34     $_ .= "\t\t\$this->_sorter=$1;\n";
   35     } elsif (/^\tfunction add_matchspy\((\$\w+)/) {
   36     $_ .= "\t\t\$this->_spies[]=$1;\n";
   37     } elsif (/^\tfunction clear_matchspies\(/) {
   38     $_ .= "\t\t\$this->_spies=null;\n";
   39     } elsif (/^\tfunction set_query\((\$\w+)/) {
   40     $_ .= "\t\t\$this->_ps=$1->_ps;\n";
   41     } elsif (/^\tfunction get_query\((\$\w+)/) {
   42     print;
   43     while (<>) {
   44         last if /^\t}/;
   45         s/^(\t+)return (new XapianQuery\(.*)/$1\$r=$2; \$r->_ps=\$this->_ps; return \$r;/;
   46         print;
   47     }
   48     } elsif (/^class XapianQuery\b/) {
   49     $_ .= "\tpublic \$_ps=null;\n";
   50     $query_ctor = 1;
   51     } elsif ($query_ctor && /^\tfunction __construct\((\$\w+)[^,]*,(\$\w+)[^,]*,(\$\w+)/) {
   52     $query_ctor = 0;
   53     $_ .= "\t\tif ($1 instanceof XapianPostingSource) {\n";
   54     $_ .= "\t\t\t\$this->_ps[]=$1;\n";
   55     $_ .= "\t\t} else if (is_array($2)) {\n";
   56     $_ .= "\t\t\tforeach ($2 as \$xxx) {\n";
   57     $_ .= "\t\t\t\tif (\$xxx instanceof XapianQuery) \$this->_ps[]=\$xxx->_ps;\n";
   58     $_ .= "\t\t\t}\n";
   59     $_ .= "\t\t} else {\n";
   60     $_ .= "\t\t\tif ($1 instanceof XapianQuery) \$this->_ps[]=$1->_ps;\n";
   61     $_ .= "\t\t\tif ($2 instanceof XapianQuery) \$this->_ps[]=$2->_ps;\n";
   62     $_ .= "\t\t\tif ($3 instanceof XapianQuery) \$this->_ps[]=$3->_ps;\n";
   63     $_ .= "\t\t}\n";
   64     } elsif (/^class XapianQueryParser\b/) {
   65     $_ .= "\tprotected \$_rps=null;\n";
   66     $_ .= "\tprotected \$_vrps=null;\n";
   67     $_ .= "\tprotected \$_stopper=null;\n";
   68     } elsif (/^class XapianTermGenerator\b/) {
   69     $_ .= "\tprotected \$_stopper=null;\n";
   70     } elsif (/^\tfunction add_rangeprocessor\((\$\w+)/) {
   71     $_ .= "\t\t\$this->_rps[]=$1;\n";
   72     } elsif (/^\tfunction add_valuerangeprocessor\((\$\w+)/) {
   73     $_ .= "\t\t\$this->_vrps[]=$1;\n";
   74     } elsif (/^\tfunction set_stopper\((\$\w+)/) {
   75     $_ .= "\t\t\$this->_stopper=$1;\n";
   76     }
   77     print;
   78 }