58faf91453
* *
% remove brandings and homepage [1] from copyright header. Pass 1 - using script.
[1] nobody has access to it anymore AFAIK - and it's also just
a redirect since long
! update url in copyright header
; this should make the diff between 3.4 and 3.2 easier to manage
45 lines
954 B
Plaintext
45 lines
954 B
Plaintext
/*
|
|
* HiPer-SEEK indexing/search test
|
|
*
|
|
* Copyright 2008 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
|
|
*
|
|
*/
|
|
|
|
#include "dbinfo.ch"
|
|
|
|
// REQUEST RMDBFCDX
|
|
|
|
PROCEDURE Main()
|
|
|
|
FIELD FIRST, LAST, STREET, CITY
|
|
LOCAL n, hs
|
|
|
|
IF AScan( rddList( 1 ), "RMDBFCDX" ) != 0
|
|
rddSetDefault( "RMDBFCDX" )
|
|
ENDIF
|
|
|
|
USE test shared
|
|
hs := hs_Index( "test", "FIRST+LAST+STREET+CITY", 2, 0, , .T., 3 )
|
|
|
|
/* Look for all records which have 'SHERMAN' string inside */
|
|
hs_Set( hs, "SHERMAN" )
|
|
WHILE ( n := hs_Next( hs ) ) > 0
|
|
dbGoto( n )
|
|
IF hs_Verify( hs ) > 0
|
|
? RTrim( FIRST + LAST + STREET + CITY )
|
|
ENDIF
|
|
ENDDO
|
|
WAIT
|
|
|
|
/* Does RDD support Record Map Filters? */
|
|
IF dbInfo( DBI_RM_SUPPORTED )
|
|
/* if yest then let set filter for all records with 'SHERMAN'
|
|
word and look at them in browser */
|
|
hs_Filter( hs, "SHERMAN" )
|
|
dbGoTop()
|
|
Browse()
|
|
ENDIF
|
|
hs_Close( hs )
|
|
|
|
RETURN
|