Module: _rddord      Library: Clipper 5.3


This module contains the following functions and procedures:

function DBCLEARIND
function DBCREATEIN( Arg1, Arg2, Arg3, Arg4, Arg5 )
function DBREINDEX
function DBSETINDEX( Arg1 )
function DBSETORDER( Arg1 )
function INDEXEXT
function ORDDESCEND( Arg1, Arg2, Arg3 )
function ORDISUNIQU( Arg1, Arg2 )
function ORDKEYADD( Arg1, Arg2, Arg3 )
function ORDKEYCOUN( Arg1, Arg2 )
function ORDKEYDEL( Arg1, Arg2, Arg3 )
function ORDKEYGOTO( Arg1 )
function ORDKEYNO( Arg1, Arg2 )
function ORDKEYVAL
function ORDSCOPE( Arg1, Arg2 )
function ORDSETRELA( Arg1, Arg2, Arg3 )
function ORDSKIPUNI( Arg1 )
function _DTXCONDSE( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, ;
function INDEXKEY( Arg1 )

Note: Because this is raw decompiler output, the code is closer
to that seen in a .PPO file, rather than a .PRG file. In other
words, you must allow for the preprocessor conversions normally 
performed based on the contents of STD.CH and other .CH files
 
#include "common.ch"
#include "inkey.ch"

//---------------------------------------------------[top]-
//  DBCLEARIND
//
function DBCLEARIND

   return ordListClear()

//---------------------------------------------------[top]-
//  DBCREATEIN( Arg1, Arg2, Arg3, Arg4, Arg5 )
//
function DBCREATEIN( Arg1, Arg2, Arg3, Arg4, Arg5 )

   ordcreate(Arg1, Arg5, Arg2, Arg3, Arg4)
   return Nil

//---------------------------------------------------[top]-
//  DBREINDEX
//
function DBREINDEX

   return ordListRebuild()

//---------------------------------------------------[top]-
//  DBSETINDEX( Arg1 )
//
function DBSETINDEX( Arg1 )

   ordListAdd(Arg1)
   return Nil

//---------------------------------------------------[top]-
//  DBSETORDER( Arg1 )
//
function DBSETORDER( Arg1 )

   if ( ISCHARACTER( Arg1 ) .AND. !Empty(Val(Arg1)) )
      Arg1 := Val(Arg1)
   endif
   set order to Arg1
   return Nil

//---------------------------------------------------[top]-
//  INDEXEXT
//
function INDEXEXT

   return ordbagext()

//---------------------------------------------------[top]-
//  ORDDESCEND( Arg1, Arg2, Arg3 )
//
function ORDDESCEND( Arg1, Arg2, Arg3 )

   return dborderinf(12, Arg2, Arg1, Arg3)

//---------------------------------------------------[top]-
//  ORDISUNIQU( Arg1, Arg2 )
//
function ORDISUNIQU( Arg1, Arg2 )

   return dborderinf(13, Arg2, Arg1)

//---------------------------------------------------[top]-
//  ORDKEYADD( Arg1, Arg2, Arg3 )
//
function ORDKEYADD( Arg1, Arg2, Arg3 )

   return dborderinf(36, Arg2, Arg1, Arg3)

//---------------------------------------------------[top]-
//  ORDKEYCOUN( Arg1, Arg2 )
//
function ORDKEYCOUN( Arg1, Arg2 )

   return dborderinf(26, Arg2, Arg1)

//---------------------------------------------------[top]-
//  ORDKEYDEL( Arg1, Arg2, Arg3 )
//
function ORDKEYDEL( Arg1, Arg2, Arg3 )

   return dborderinf(37, Arg2, Arg1, Arg3)

//---------------------------------------------------[top]-
//  ORDKEYGOTO( Arg1 )
//
function ORDKEYGOTO( Arg1 )

   return dborderinf(3, Nil, Nil, Arg1)

//---------------------------------------------------[top]-
//  ORDKEYNO( Arg1, Arg2 )
//
function ORDKEYNO( Arg1, Arg2 )

   return dborderinf(3, Arg2, Arg1)

//---------------------------------------------------[top]-
//  ORDKEYVAL
//
function ORDKEYVAL

   return dborderinf(38)

//---------------------------------------------------[top]-
//  ORDSCOPE( Arg1, Arg2 )
//
function ORDSCOPE( Arg1, Arg2 )

   local Local1
   if ( ValType(Arg1) != "N" )
      Arg1 := 0
   endif
   if ( Arg1 < 0 )
      Arg1 := 0
   elseif ( Arg1 > 1 )
      Arg1 := 1
   endif
   if ( PCount() >= 2 .AND. ValType(Arg2) == "U" )
      Local1 := dborderinf(41 + Arg1)
   else
      Local1 := dborderinf(39 + Arg1, Nil, Nil, Arg2)
   endif
   return Local1

//---------------------------------------------------[top]-
//  ORDSETRELA( Arg1, Arg2, Arg3 )
//
function ORDSETRELA( Arg1, Arg2, Arg3 )

   set relation to  into (Arg1)
   ( Arg1 )->( ordscope(0, Arg2) )
   ( Arg1 )->( ordscope(1, Arg2) )
   return Nil

//---------------------------------------------------[top]-
//  ORDSKIPUNI( Arg1 )
//
function ORDSKIPUNI( Arg1 )

   return dborderinf(46, Nil, Nil, Arg1)

//---------------------------------------------------[top]-
//  _DTXCONDSE( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, ;
//
function _DTXCONDSE( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, ;
   Arg9, Arg10, Arg11 )

   return ordcondset(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg8, Arg9, ;
      Arg10, Arg11)

//---------------------------------------------------[top]-
//  INDEXKEY( Arg1 )
//
function INDEXKEY( Arg1 )

   if ( ValType(Arg1) != "N" )
      return ordkey(Arg1)
   endif
   if ( used() )
      return ordkey(Arg1)
   endif
   return ""

//---EOF


Use your Browser's BACK button to return to Function Listings