Отправлено: 24.03.11 18:04. Заголовок: Может кому надо ?

В связи с тем, что я пока обхожусь без волшебного мира ms dos, мне потребовалась замена моему старенькому dbview
Я начал ее делать, естественно на харборе
Но мне нужны операции с файлом на физическом уровне, которые стандартный rdd не поддерживает: физическое удаление произвольной записи, быстрая вставка записи в середине файла. У rdd есть только 2 операции на физическом уровне: pack и zap

Я для себя написал еще 3 функции:

dbInsert(<nRec>, <nCount>) - вставить nCount записей перед записью nRec
dbDelRecord(<nRec>, <nCount>) - удалить nCount записей после записи nRec
dbTruncate(<nRec>, <nCount>) - удалить все записи после nRec

Естественно, все функции работают только при монопольном открытии файла
Если надо, выложу

 Отправлено: 24.03.11 18:17. Заголовок: Pasha пишет: Если н..

Pasha пишет:

цитата:

Если надо, выложу

Конечно, выкладывай! Это интересно

 Отправлено: 24.03.11 18:24. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Конечно, выкладывай! Это интересно

Присоединяюсь !!!

 Отправлено: 24.03.11 20:47. Заголовок: Ниже привожу сырцы э..

Ниже привожу сырцы этих функций. Их можно включить в prg с помощью #pragma BEGINDUMP,
или оформить в виде отдельного c модуля.
Эти функции не обновляют индекс, так что при их использовании индекс открывать не надо.

Для всех функций если первый параметр опушен - используется текущая запись
Для первых 2-х функций количество записей по умолчанию равно 1

#pragma BEGINDUMP 
  
 #include "hbapi.h" 
 #include "hbapiitm.h" 
 #include "hbapirdd.h" 
 #include "hbrdddbf.h" 
  
 HB_FUNC( DBINSERT ) 
 { 
    DBFAREAP pArea = ( DBFAREAP ) hb_rddGetCurrentWorkAreaPointer(); 
    BOOL bOk = TRUE; 
  
    if( pArea && ! pArea->fReadonly && ! pArea->fShared ) 
    { 
       ULONG ulRec, ulCount = ISNUM(2) ? hb_parnl(2) : 1; 
  
       if( ISNUM(1) ) 
          ulRec = hb_parnl(1); 
       else 
          SELF_RECNO( ( AREAP ) pArea, &ulRec ); 
  
       if( ulRec == 0 || ulRec > pArea->ulRecCount ) 
          bOk = FALSE; 
  
       if( bOk && SELF_GOCOLD( ( AREAP ) pArea ) != SUCCESS ) 
          bOk = FALSE; 
       else 
       { 
          char pData; 
          ULONG ulIndex; 
  
          for( ulIndex = 0; ulIndex < ulCount; ulIndex ++) 
             SELF_APPEND( ( AREAP ) pArea, TRUE ); 
          SELF_FLUSH( ( AREAP ) pArea ); 
  
  
          if( bOk ) 
          { 
             ULONG ulLen = (pArea->ulRecCount - ulRec) * pArea->uiRecordLen; 
             ULONG ulLen1 = ulCount*pArea->uiRecordLen; 
             ULONG ulRecNo; 
             char * pData = hb_xgrab( ulLen + 1 ); 
             char * pZero = hb_xgrab( ulLen1 + 1 ); 
  
             hb_fsSeekLarge( pArea->hDataFile, ( HB_FOFFSET ) pArea->uiHeaderLen + 
                             ( HB_FOFFSET ) pArea->uiRecordLen * 
                             ( HB_FOFFSET ) (ulRec - 1), FS_SET ); 
             hb_fsReadLarge( pArea->hDataFile, pData, ulLen ); 
  
             hb_fsSeekLarge( pArea->hDataFile, ( HB_FOFFSET ) pArea->uiHeaderLen + 
                             ( HB_FOFFSET ) pArea->uiRecordLen * 
                             ( HB_FOFFSET ) (pArea->ulRecCount - ulCount), FS_SET ); 
             hb_fsReadLarge( pArea->hDataFile, pZero, ulLen1 ); 
  
             hb_fsSeekLarge( pArea->hDataFile, ( HB_FOFFSET ) pArea->uiHeaderLen + 
                             ( HB_FOFFSET ) pArea->uiRecordLen * 
                             ( HB_FOFFSET ) (ulRec - 1), FS_SET ); 
             hb_fsWriteLarge( pArea->hDataFile, pZero, ulLen1 ); 
  
             hb_fsSeekLarge( pArea->hDataFile, ( HB_FOFFSET ) pArea->uiHeaderLen + 
                             ( HB_FOFFSET ) pArea->uiRecordLen * 
                             ( HB_FOFFSET ) (ulRec + ulCount - 1), FS_SET ); 
             hb_fsWriteLarge( pArea->hDataFile, pData, ulLen ); 
             hb_xfree( pData ); 
             hb_xfree( pZero ); 
  
             SELF_GOTO( ( AREAP ) pArea, ulRec );  
          } 
  
       } 
  
       if( bOk && SELF_GOTO( ( AREAP ) pArea, ulRec ) != SUCCESS ) 
          bOk = FALSE; 
    } 
    hb_retl( bOk ); 
 } 
  
  
 HB_FUNC( DBDELRECORD ) 
 { 
    DBFAREAP pArea = ( DBFAREAP ) hb_rddGetCurrentWorkAreaPointer(); 
    BOOL bOk = TRUE; 
  
    if( pArea && ! pArea->fReadonly && ! pArea->fShared ) 
    { 
       ULONG ulRec, ulCount = ISNUM(2) ? hb_parnl(2) : 1; 
  
       if( ISNUM(1) ) 
          ulRec = hb_parnl(1); 
       else 
          SELF_RECNO( ( AREAP ) pArea, &ulRec ); 
  
       if( ulRec == 0 || (ulRec + ulCount - 1) > pArea->ulRecCount ) 
          bOk = FALSE; 
  
       if( bOk && SELF_GOCOLD( ( AREAP ) pArea ) != SUCCESS ) 
          bOk = FALSE; 
       else 
       { 
          char pData; 
  
          if( (ulRec + ulCount - 1) < pArea->ulRecCount ) 
          { 
             ULONG ulLen = (pArea->ulRecCount - (ulRec + ulCount - 1)) * pArea->uiRecordLen; 
             char * pData = hb_xgrab( ulLen + 1 ); 
             hb_fsSeekLarge( pArea->hDataFile, ( HB_FOFFSET ) pArea->uiHeaderLen + 
                             ( HB_FOFFSET ) pArea->uiRecordLen * 
                             ( HB_FOFFSET ) (ulRec + ulCount - 1), FS_SET ); 
             hb_fsReadLarge( pArea->hDataFile, pData, ulLen ); 
             hb_fsSeekLarge( pArea->hDataFile, ( HB_FOFFSET ) pArea->uiHeaderLen + 
                             ( HB_FOFFSET ) pArea->uiRecordLen * 
                             ( HB_FOFFSET ) (ulRec - 1), FS_SET ); 
             hb_fsWriteLarge( pArea->hDataFile, pData, ulLen ); 
             hb_xfree( pData ); 
          } 
  
          pArea->fUpdateHeader = TRUE; 
          pArea->ulRecCount -= ulCount; 
       } 
  
       if( bOk && SELF_WRITEDBHEADER( ( AREAP ) pArea ) != SUCCESS ) 
          bOk = FALSE; 
       if( bOk && SELF_GOTO( ( AREAP ) pArea, ulRec ) != SUCCESS ) 
          bOk = FALSE; 
    } 
    hb_retl( bOk ); 
 } 
  
 HB_FUNC( DBTRUNCATE ) 
 { 
    DBFAREAP pArea = ( DBFAREAP ) hb_rddGetCurrentWorkAreaPointer(); 
    BOOL bOk = TRUE; 
    ULONG ulRec = hb_parnl(1); 
  
    if( pArea && ! pArea->fReadonly && ! pArea->fShared ) 
    { 
  
       if( ISNUM(1) ) 
          ulRec = hb_parnl(1); 
       else 
          SELF_RECNO( ( AREAP ) pArea, &ulRec ); 
  
       if( ulRec == 0 || ulRec > pArea->ulRecCount ) 
          bOk = FALSE; 
  
       if( bOk && SELF_GOCOLD( ( AREAP ) pArea ) != SUCCESS ) 
          bOk = FALSE; 
       else 
       { 
          pArea->fUpdateHeader = TRUE; 
          pArea->ulRecCount = ulRec; 
       } 
  
       if( bOk && SELF_WRITEDBHEADER( ( AREAP ) pArea ) != SUCCESS ) 
          bOk = FALSE; 
       if( bOk && SELF_GOTO( ( AREAP ) pArea, ulRec ) != SUCCESS ) 
          bOk = FALSE; 
    } 
    hb_retl( bOk ); 
 } 
  
 #pragma ENDDUMP