!=========================================================================
! Copyright (C) VMware, Inc. 1986-2011.  All Rights Reserved.
!
! $Id: idxmethods.topaz,v 1.9 2008-01-09 22:50:11 stever Exp $
!
! idxmethods.topaz  -  filein script for the indexing classes 
!
!  Any class with some or all methods to be stripped must have an entry
!  in this file.
!========================================================================

expectvalue %String
run
   "construct a script containing input statements that reference either
    $imageDir (slow filein) or $upgradeDir (fast filein) "

| fileList LF script filePath isFastFilein |
LF := Character lf .

isFastFilein := UserGlobals includesKey: #GemStoneFastFileinActive .

  "list of file name prefixes for which to generate input statements"
fileList := #( object2 rcidentitybag rccounter
   rckeyvaluedict rcq 
   btreequery btreecompquery btreerangecompquery
   btreecompforcompare btreecompforsort 
   indexmgrpolicy IndexManager
   indexquery identityquery equalityquery
   basicsortnode btreebasicinter btreebasicleaf 
   rcbtreebasicleaf rcbtreebasicinter
   btreeinterior btreeleaf btreenode btreereadstr 
   rcbtreeinterior rcbtreeleaf 
   bucketvaluebag constrpathterm constrpatheval 
   dependencylist indexlist  identityindex  pathevaluator pathsorter
   deplistbucket deplisttable
   pathterm queryexecuter rangeindexreadstr rangeindex  rcindexbucket
   rcrangeindex
   rcidxbktcache
   segmentset rcindexdictionary setpathterm sortnode sortnodearray 
   setpatheval identryholder idbtreenode ) .

"you may need to modify idxstrip.topaz and idxclasses.topaz 
 if you modify this file"

"filein shell script sets
   $upgradeDir = $imageDir
   $upgradeLogDir = $dbfDir
   $dbfDir = working directory.
"
isFastFilein
    ifTrue:[filePath := '$dbfDir/'.]  
    ifFalse: [filePath := '$upgradeDir/'.] .
script := String new .
fileList do:[ :aPrefix | | fileName |
  fileName := (aPrefix asString) + '.gs' .
  script addAll: 'input '; addAll: filePath; addAll: fileName ; add: LF.
  ].
script toServerTextFile: '$upgradeLogDir/indexing.inp' .
%

! now run the script we have created.
!
input $upgradeLogDir/indexing.inp

expectvalue System
run
System deleteServerFile: '$upgradeLogDir/indexing.inp'
%


