From: arne@vajhoej.dk   
      
   I have been looking a bit at Solr recently. For those that don't   
   know Solr, then it is a text search engine - or more accurate it   
   is a web frontend for the Lucene text search engine. Both   
   Solr and Lucene are Apache projects (open source).   
      
   Solr is basically exposing a web API, so anything that can do   
   HTTP POST can use Solr. But clients encapsulating the HTTP   
   stuff does exist for many languages. On VMS then both JVM languages   
   and Python should be able to use a standard client.   
      
   But there are also the traditional languages. Maybe it could   
   be nice to be able to access Solr from one of those.  VMS Pascal   
   is actually a very nice language, so I picked that. And I could   
   reuse some stuff I had on the shelf.   
      
   pSolr (Pascal)-|->phttp (Pascal)->vms_http (C)->vms_socket (C)->sockets   
                   |->pJSON (Pascal)->cJSON (C, not written by me)   
      
   Demo:   
      
   $ type load.pas   
   [inherit('common','pSolr')]   
   program load(input,output);   
      
   var   
       solr : solr_ctxptr;   
      
   begin   
       solr := psolr_setup('arnepc5', 8888, 'chessopening');   
       psolr_delete(solr, '*:*');   
       psolr_insert(solr, 1, 'names', 'Spanish defense, Ruy Lopez',   
   'moves', '1. e4, e5, 2. Nf3, Nc6, 3. Bb5,');   
       psolr_insert(solr, 2, 'names', 'French defense', 'moves', '1. e4,   
   e6, 2. d4, d5,');   
       psolr_insert(solr, 3, 'names', 'Sicilian defense', 'moves', '1. e4,   
   c5,');   
       psolr_insert(solr, 4, 'names', 'Queens gambit', 'moves', '1. d4, d5,   
   2. c4,');   
       psolr_insert(solr, 5, 'names', 'Dutch defense', 'moves', 'd4, f5,');   
       psolr_insert(solr, 6, 'names', 'Reti opening', 'moves', 'Nf3, d5, 2.   
   c4,');   
   end.   
   $ pas load   
   $ link load + psolr/libr   
   $ run load   
   $ type search.pas   
   [inherit('common','pSolr')]   
   program search(input,output);   
      
   procedure dump(solr : solr_ctxptr; query : pstr);   
      
   var   
       res : solr_query_res;   
       i : integer;   
      
   begin   
       writeln('search for : ' + query);   
       res := psolr_query_df(solr, query, 'alltext');   
       for i := 1 to psolr_hits(res) do begin   
          writeln('  ', psolr_get_field(res, i-1, 'names'), ' - ',   
   psolr_get_field(res, i-1, 'moves'));   
       end;   
   end;   
      
   var   
       solr : solr_ctxptr;   
      
   begin   
       solr := psolr_setup('arnepc5', 8888, 'chessopening');   
       (* all *)   
       dump(solr, '*:*');   
       (* one *)   
       dump(solr, 'names:defense');   
       dump(solr, 'moves:d4');   
       (* dual *)   
       dump(solr, 'alltext:defense');   
       dump(solr, 'alltext:d4');   
       dump(solr, 'defense'); (* default field *)   
       dump(solr, 'd4'); (* default field *)   
       (* boolean *)   
       dump(solr, 'names:defense moves:d4'); (* implicit or *)   
       dump(solr, 'names:defense AND moves:d4'); (* and *)   
       dump(solr, 'names:defense NOT moves:d4'); (* not *)   
       dump(solr, 'defense d4'); (* default field + implicit or *)   
       dump(solr, 'defense AND d4'); (* default field + and *)   
       dump(solr, 'defense NOT d4'); (* default field + not *)   
       (* wildcard *)   
       dump(solr, 'names:def*');   
       dump(solr, 'moves:N*');   
   end.   
   $ pas search   
   $ link search + psolr/libr   
   $ run search   
   search for : *:*   
      Spanish defense, Ruy Lopez - 1. e4, e5, 2. Nf3, Nc6, 3. Bb5,   
      French defense - 1. e4, e6, 2. d4, d5,   
      Sicilian defense - 1. e4, c5,   
      Queens gambit - 1. d4, d5, 2. c4,   
      Dutch defense - d4, f5,   
      Reti opening - Nf3, d5, 2. c4,   
   search for : names:defense   
      French defense - 1. e4, e6, 2. d4, d5,   
      Sicilian defense - 1. e4, c5,   
      Dutch defense - d4, f5,   
      Spanish defense, Ruy Lopez - 1. e4, e5, 2. Nf3, Nc6, 3. Bb5,   
   search for : moves:d4   
      Dutch defense - d4, f5,   
      Queens gambit - 1. d4, d5, 2. c4,   
      French defense - 1. e4, e6, 2. d4, d5,   
   search for : alltext:defense   
      Dutch defense - d4, f5,   
      Sicilian defense - 1. e4, c5,   
      French defense - 1. e4, e6, 2. d4, d5,   
      Spanish defense, Ruy Lopez - 1. e4, e5, 2. Nf3, Nc6, 3. Bb5,   
   search for : alltext:d4   
      Dutch defense - d4, f5,   
      Queens gambit - 1. d4, d5, 2. c4,   
      French defense - 1. e4, e6, 2. d4, d5,   
   search for : defense   
      Dutch defense - d4, f5,   
      Sicilian defense - 1. e4, c5,   
      French defense - 1. e4, e6, 2. d4, d5,   
      Spanish defense, Ruy Lopez - 1. e4, e5, 2. Nf3, Nc6, 3. Bb5,   
   search for : d4   
      Dutch defense - d4, f5,   
      Queens gambit - 1. d4, d5, 2. c4,   
      French defense - 1. e4, e6, 2. d4, d5,   
   search for : names:defense moves:d4   
      Dutch defense - d4, f5,   
      French defense - 1. e4, e6, 2. d4, d5,   
      Queens gambit - 1. d4, d5, 2. c4,   
      Sicilian defense - 1. e4, c5,   
      Spanish defense, Ruy Lopez - 1. e4, e5, 2. Nf3, Nc6, 3. Bb5,   
   search for : names:defense AND moves:d4   
      Dutch defense - d4, f5,   
      French defense - 1. e4, e6, 2. d4, d5,   
   search for : names:defense NOT moves:d4   
      Sicilian defense - 1. e4, c5,   
      Spanish defense, Ruy Lopez - 1. e4, e5, 2. Nf3, Nc6, 3. Bb5,   
   search for : defense d4   
      Dutch defense - d4, f5,   
      French defense - 1. e4, e6, 2. d4, d5,   
      Queens gambit - 1. d4, d5, 2. c4,   
      Sicilian defense - 1. e4, c5,   
      Spanish defense, Ruy Lopez - 1. e4, e5, 2. Nf3, Nc6, 3. Bb5,   
   search for : defense AND d4   
      Dutch defense - d4, f5,   
      French defense - 1. e4, e6, 2. d4, d5,   
   search for : defense NOT d4   
      Sicilian defense - 1. e4, c5,   
      Spanish defense, Ruy Lopez - 1. e4, e5, 2. Nf3, Nc6, 3. Bb5,   
   search for : names:def*   
      Spanish defense, Ruy Lopez - 1. e4, e5, 2. Nf3, Nc6, 3. Bb5,   
      French defense - 1. e4, e6, 2. d4, d5,   
      Sicilian defense - 1. e4, c5,   
      Dutch defense - d4, f5,   
   search for : moves:N*   
      Spanish defense, Ruy Lopez - 1. e4, e5, 2. Nf3, Nc6, 3. Bb5,   
      Reti opening - Nf3, d5, 2. c4,   
      
   Very far from a complete API - only the most basic stuff.   
      
   And there are restrictions including 32 KB limit on strings   
   (VMS Pascal varying of char).   
      
   But maybe still interesting.   
      
   If anyone is interested then everything is available here:   
      https://www.vajhoej.dk/arne/opensource/vms/vmspsolr-src-v0_1.zip   
      
   Arne   
      
   --- SoupGate-DOS v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)