HB_FUNC( SX_APPENDBLANK )
{
   sx_AppendBlank();
}

HB_FUNC( SX_CLOSE )
{
   sx_Close();
}

HB_FUNC( SX_COMMIT )
{
   sx_Commit();
}

HB_FUNC( SX_CREATEEXEC )
{
   sx_CreateExec();
}

HB_FUNC( SX_CREATEFIELD )
{
   sx_CreateField( ( PBYTE ) hb_parc( 1 ),    /* Field name */
                   ( PBYTE ) hb_parc( 2 ),    /* Field type */
                   ( SHORT ) hb_parni( 3 ),   /* Field lenght */
                   ( SHORT ) hb_parni( 4 ) ); /* Field decimals */
}

HB_FUNC( SX_CREATENEW )
{
   hb_retni(
      sx_CreateNew( ( PBYTE ) hb_parc( 1 ),      /* Field name */
                    ( PBYTE ) hb_parc( 2 ),      /* Alias */
                    ( SHORT ) hb_parni( 3 ),     /* RDE Type */
                    ( SHORT ) hb_parni( 4 ) ) ); /* The maximum number of fields to be added to the file structure */
}

HB_FUNC( SX_EOF )
{
   hb_retl( sx_Eof() );
}

HB_FUNC( SX_GETDATEJULIAN )
{
   hb_retni( sx_GetDateJulian( ( PBYTE ) hb_parc( 1 ) ) );    /* Field name  */
}

HB_FUNC( SX_GETLOGICAL )
{
   hb_retl( sx_GetLogical( ( PBYTE ) hb_parc( 1 ) ) );       /* Field name  */
}

HB_FUNC( SX_GETSTRING )
{
   hb_retc( ( char * ) sx_GetString( ( PBYTE ) hb_parc( 1 ) ) );  /* Field name  */
}

HB_FUNC( SX_GETVARIANT )
{
   hb_retc( ( char * ) sx_GetVariant( ( PBYTE ) hb_parc( 1 ) ) );  /* Field name  */
}

HB_FUNC( SX_GO )
{
   sx_Go( hb_parni( 1 ) );                /* The record number to go */
}

HB_FUNC( SX_GOBOTTOM )
{
   sx_GoBottom();
}

HB_FUNC( SX_GOTOP )
{
   sx_GoTop();
}

HB_FUNC( SX_INDEXTAG )
{
   hb_retni(
      sx_IndexTag( ( PBYTE ) hb_parc( 1 ),    /* Field name */
                   ( PBYTE ) hb_parc( 2 ),    /* Tag name */
                   ( PBYTE ) hb_parc( 3 ),    /* Index expression as a string */
                   ( SHORT ) hb_parni( 4 ),   /* Option (0=Standard) (1=Unique) (2=Roll-Your-Own) */
                   hb_parl( 5 ),              /* True for a descend index */
                   ( PBYTE ) hb_parc( 6) ) ); /* Condition */
}

HB_FUNC( SX_RECCOUNT )
{
   hb_retni( sx_RecCount() );
}

HB_FUNC( SX_RECNO )
{
   hb_retni( sx_RecNo() );
}

HB_FUNC( SX_REINDEX )
{
   sx_Reindex();
}

HB_FUNC( SX_REPLACE )
{
   switch( hb_parni( 2 ) )
   {
      case R_INTEGER :
      case R_JULIAN  : sx_Replace( ( PBYTE ) hb_parc( 1 ), ( SHORT ) hb_parni( 2 ), ( void * ) hb_parni( 3 ) );  break;
      case R_LOGICAL : sx_Replace( ( PBYTE ) hb_parc( 1 ), ( SHORT ) hb_parni( 2 ), ( void * ) hb_parni( 3 ) );  break;  /* TODO: somthing is wrong here... */
      case R_LONG    : sx_Replace( ( PBYTE ) hb_parc( 1 ), ( SHORT ) hb_parni( 2 ), ( void * ) hb_parnl( 3 ) );  break;
      case R_DOUBLE  :
           {
              double d = hb_parnd( 3 );
              sx_Replace( ( PBYTE ) hb_parc( 1 ), ( SHORT ) hb_parni( 2 ), ( void * ) &d );
              break;
           }
      case R_CHAR    :
      case R_DATESTR :
      case R_MEMO    :
      case R_BITMAP  :
      case R_BLOBFILE:
      case R_BLOBPTR : sx_Replace( ( PBYTE ) hb_parc( 1 ), ( SHORT ) hb_parni( 2 ), ( void * ) hb_parc( 3 ) );  break;
      default:         sx_Replace( ( PBYTE ) hb_parc( 1 ), ( SHORT ) hb_parni( 2 ), ( void * ) hb_parc( 3 ) );
   }
}

HB_FUNC( SX_RLOCK )
{
   sx_Rlock( hb_parni( 1 ) );             /* The physical record number of the record to be locked. */
}

HB_FUNC( SX_SEEK )
{
   hb_retl( sx_Seek( ( PBYTE ) hb_parc( 1 ) ) );            /* The value to search for as a string */
}

HB_FUNC( SX_SELECT )
{
   hb_retni( sx_Seek( ( PBYTE ) hb_parc( 1 ) ) );            /* The work area number returned when the file was opened.  */
}

HB_FUNC( SX_SETCENTURY )
{
   sx_SetCentury( hb_parl( 1 ) ? 1 : 0 ); /* If True, the century digits will be returned.
                                           * If False, they will not. */
}

HB_FUNC( SX_SETDATEFORMAT )
{
   sx_SetDateFormat( hb_parl( 1 ) ? 1 : 0 ); /* If True, the century digits will be returned.
                                              * If False, they will not. */
}

HB_FUNC( SX_SETMEMOBLOCKSIZE )
{
   sx_SetMemoBlockSize( ( WORD ) hb_parni( 1 ) ); /* The new default block size.
                                                   * The size must be a value from 1 through 1024. */
}

HB_FUNC( SX_SETORDER )
{
   hb_retni( sx_SetOrder( ( SHORT ) hb_parni( 1 ) ) ); /* Selects an existing order as the controlling index order. */
}

HB_FUNC( SX_SETSOFTSEEK )
{
   sx_SetSoftSeek( hb_parl( 1 ) ? 1 : 0 ); /* True to set softseek ON */
}

HB_FUNC( SX_SKIP )
{
   sx_Skip( hb_parnl( 1 ) );              /* Number of records to skip */
}

HB_FUNC( SX_SYSPROP )
{
   int i = hb_parni( 2 );
   hb_retni(
    sx_SysProp( ( WORD ) hb_parni( 1 ),            /* One of the predefined constant values. See Apollo.ch */
                ( void * ) &i ) );
}

HB_FUNC( SX_USE )
{
   hb_retni(
      sx_Use( ( PBYTE ) hb_parc( 1 ),      /* Filename */
              ( PBYTE ) hb_parc( 2 ),      /* Alias */
              ( SHORT ) hb_parni( 3 ),     /* OpenMode */
              ( SHORT ) hb_parni( 4 ) ) ); /* RDE Type */
}

HB_FUNC( SX_VERSION )
{
   hb_retc( ( char * ) sx_Version() );
}

HB_FUNC( SX_ZAP )
{
   sx_Zap();
}

init procedure ApolloInit

/*
   REQUEST _Apollo

   rddRegister( "Apollo", RDT_FULL )
*/

return

Function sx_GetVal( x )
RETURN Val( sx_Getvariant( x ) )