Pasted

// Includes
    #include <stdio.h>
    #include <stdlib.h>
    #include <stdbool.h>
    #include <string.h>
    #include "..\x_str.h"
// Global Variables
    char*   gps_output_write = "wb";
    int     gpb_output_append = false;
    int     gpi_match_text = 0;
    int     gpi_match_field = 0;
    int     gpi_project_field = 0;
// Type Defintions
    // DBF Header Format
    typedef struct struct_DBF_HEADER
    {
        char    i_ver;
        char    i_year;
        char    i_mon;
        char    i_day;
        int     i_rec_count;
        short   i_header_size;
        short   i_rec_length;
    } type_DBF_HEADER;
    // DBF Field Defintion Formation
    typedef struct struct_DBF_FIELDS
    {
        char            s_name[11];
        char            s_type;
        unsigned int    i_fda;
        unsigned char   i_field_len;
        unsigned char   i_field_decimal;
        char            s_discard[14];
    } type_DBF_FIELDS;
//----------------------------------------------------------------------------
// Functions
//
long ifn_file_slurp( char* ps_file_name, char** ps_buffer ) {
    FILE* fp = fopen( ps_file_name, "rb" );
    long i_file_len = 0;
    if (fp != NULL) {
        if (fseek(fp, 0L, SEEK_END) == 0) {
            long i_bufsize = ftell(fp);
            if (i_bufsize == -1) { fprintf( stderr, "Error reading file - i_bufsize !" ); }
            if ( *ps_buffer != NULL ) { free(*ps_buffer); }
            *ps_buffer = malloc(sizeof(char) * (i_bufsize + 1));
            if (fseek(fp, 0L, SEEK_SET) != 0) { fputs("Error reading file - SEEK_SET !", stderr ); }
            i_file_len = fread(*ps_buffer, sizeof(char), i_bufsize, fp);
            if (i_file_len == 0) {
                fprintf( stderr, "Error reading file - i_file_len !" );
            } else {
                (*ps_buffer)[++i_file_len] = '\0';
            }
        }
        fclose(fp);
    } else {
        fprintf( stderr, "Error finding file - Input file doesn't exist !\n");
    }
    return (i_file_len);
}
//
//----------------------------------------------------------------------------
//
void    fn_help() {
    // ---------
    printf("\nUsage: ci_dbf input_file.DBF output_file.TXT [<options>]\n\n");
    printf("Options:\n");
    printf("\t/m {value}\tOutputs records containing {value}.\n");
    printf("\t/f {field}\tLimit match to {field}.\n");
    printf("\t/app\t\tAppend to output file.  Does not print field names.\n");
    printf("\t/prj {project}\tAdds a PROJECT field. Each record has {project} include in the output.\n");
    printf("\t/fmt\t\tFormat numeric fields - right align ..\n");
    printf("\t/?\t\tThis help text.\n");
    return;
}
//
//----------------------------------------------------------------------------
//
int main(int pi, char **ps ) {
    printf("\nCI_DBF.EXE - v2025.08.09a : Convert DBF to TabTXT\n");
    // Input Checks
        int pi_field_match = -1;
        // Options
        int i = 1;
        while( i < pi ) {
            if (( strncmp("/?"  , ps[i], 2) == 0))  { fn_help(); return(0); }
            if (( strncmp("/app", ps[i], 4) == 0))  { gps_output_write = "ab"; gpb_output_append = true; }
            if (( strncmp("/m"  , ps[i], 2) == 0))  { gpi_match_text = i + 1; }
            if (( strncmp("/f"  , ps[i], 2) == 0))  { gpi_match_field = i + 1; }
            if (( strncmp("/prj", ps[i], 4) == 0))  { gpi_project_field = i + 1; }
            i++;
        }
        if ( gpi_match_text > 0 )   { if ( ps[gpi_match_text] ) { x_fn_str_upper( ps[gpi_match_text] ); }}
        if ( gpi_match_field > 0)   { if ( ps[gpi_match_field] )    { pi_field_match = atoi( ps[gpi_match_field] ); }}
        // Main arguments
        if ( !ps[1] )   { fprintf( stderr, "No input file !\n" ); return( -1 ); }
        if ( !ps[2] )   { fprintf( stderr, "No output file !\n" ); return( -1 ); }
    // Header
        printf( "\nReading .. %s\n", ps[1] );
        char*               s_file              = NULL;
        long                i_file_size_bytes   = ifn_file_slurp( ps[1], &s_file );
        if ( i_file_size_bytes < 1 ) { return( -1 ); }
        type_DBF_HEADER*    xo_dbf_header       = (type_DBF_HEADER*) &s_file[0];
        //xo_dbf_header = (type_DBF_HEADER*) &s_file[0];
        printf( "\nVer:               %d"           , xo_dbf_header->i_ver );
        printf( "\nLast Mod:          %d-%02d-%02d" , (xo_dbf_header->i_year + 1900), xo_dbf_header->i_mon, xo_dbf_header->i_day );
        printf( "\nNumber of Records: %ld"          , xo_dbf_header->i_rec_count );
        printf( "\nHeader Size:       %d"           , xo_dbf_header->i_header_size );
        printf( "\nRecord Length:     %d"           , xo_dbf_header->i_rec_length );
        printf( "\nDBF Size Length:   %d"           , xo_dbf_header->i_header_size + ( xo_dbf_header->i_rec_count * xo_dbf_header->i_rec_length ) );
    // Columns -- Fields
        printf( "\n\nWriting ..%s\n", ps[2] );
        char s_EOL = 13;
        FILE* fp = fopen( ps[2], gps_output_write );
        type_DBF_FIELDS*    xo_dbf_fields[128];
        int i_field = 0;
        long i_file_index = 32;
        long i_buf = 0;
        long i_fda_calc = 1;
        char* s_buf;
        s_buf = malloc( xo_dbf_header->i_rec_length + 50 );
        if ( gpi_project_field == 0 ) {
            i_buf = snprintf ( s_buf, 10, "#\tDEL\t" );
        } else {
            i_buf = snprintf ( s_buf, 60, "#\tPROJECT\tDEL\t" );
        }
        if ( !gpb_output_append ) { fwrite( s_buf, i_buf, 1, fp ); }
        while ( s_file[i_file_index] != 0x0d ) {
            xo_dbf_fields[i_field] = (type_DBF_FIELDS*) &s_file[i_file_index];
            xo_dbf_fields[i_field]->i_fda = i_fda_calc;
            printf ( "\n%d\t%10s\t%c\t%d\t%d\t%d"
                , i_field
                , xo_dbf_fields[i_field]->s_name
                , xo_dbf_fields[i_field]->s_type
                , xo_dbf_fields[i_field]->i_fda
                , xo_dbf_fields[i_field]->i_field_len
                , xo_dbf_fields[i_field]->i_field_decimal
            );
            i_fda_calc += xo_dbf_fields[i_field]->i_field_len;
            i_buf = snprintf ( s_buf, 50, "%s (%c,%d)\t"
                , xo_dbf_fields[i_field]->s_name
                , xo_dbf_fields[i_field]->s_type
                , xo_dbf_fields[i_field]->i_field_len
            );
            if ( !gpb_output_append ) { fwrite( s_buf, i_buf, 1, fp ); }
            i_field++;
            i_file_index += 32;
        }
        if ( !gpb_output_append ) { fwrite( &s_EOL, 1, 1, fp ); }
        int i_field_count = i_field;
        printf( "\n\n%d fields.", i_field_count );
    // Rows -- Records
        char*   s_rec;
        char*   s_rec_upper;
        long    i_rec = 0;
        long    i_match = 0;
        char*   s_match;
        char    s_field[300]; // Each field can be a max of 254 characters
        char*   s_field_upper; 
        char*   s_match_field;
        int     i_match_field;
        int     i_space;
        s_rec = malloc( xo_dbf_header->i_rec_length + 1 );
        while ( i_rec < xo_dbf_header->i_rec_count ) {
            memcpy( s_rec, &s_file[xo_dbf_header->i_header_size + ( i_rec * xo_dbf_header->i_rec_length ) ], xo_dbf_header->i_rec_length );
            s_rec[xo_dbf_header->i_rec_length] = '\0';
            s_match = s_rec;
            if ( gpi_match_text > 0 ) {
                s_rec_upper = x_sfn_str_upper( s_rec );
                s_match = strstr( s_rec_upper, ps[gpi_match_text] );
                free( s_rec_upper );
            }
            if ( s_match ) {
                if ( gpi_project_field == 0 ) {
                    i_buf = snprintf ( s_buf, 10, "%d\t%c\t", (i_rec + 1), s_rec[0] );
                } else {
                    i_buf = snprintf ( s_buf, 60, "%d\t%s\t%c\t", (i_rec + 1), ps[gpi_project_field], s_rec[0] );
                }
                i_field = 0;
                i_match_field = 0;
                while ( i_field < i_field_count ) { 
                    memcpy( s_field, &s_rec[xo_dbf_fields[i_field]->i_fda], xo_dbf_fields[i_field]->i_field_len );
                    // Trim trailing whitespace
                        i_space = xo_dbf_fields[i_field]->i_field_len;
                        s_field[i_space] = 0x020;
                        while (( s_field[i_space] == 0x020 ) && ( i_space >= 0 )) {
                            i_space--;
                        }
                        s_field[i_space + 1] = '\0';
                    // Check for matching field
                        s_match_field = s_field;
                        if ( pi_field_match == i_field ) {
                            s_field_upper = x_sfn_str_upper( s_field );
                            s_match_field = strstr( s_field_upper, ps[gpi_match_text] );
                            free( s_field_upper );
                        }
                        if ( s_match_field ) { i_match_field++; }
                    // Add field data to output buffer
                        i_buf += snprintf ( &s_buf[i_buf], xo_dbf_header->i_rec_length - i_buf, "%s\t" , s_field );
                        i_field++;
                }
                if ( i_match_field == i_field_count ) {
                    i_match++;
                    fwrite( s_buf, i_buf - 1, 1, fp );
                    fwrite( &s_EOL, 1, 1, fp );
                }
            }
            i_rec++;
        }
        printf( "\n%d matched records.", i_match );
        printf( "\n" );
    // Program End
        fclose( fp );
        free( s_rec );
        free( s_buf );
        free( s_file );
        return( 0 );
}
//
//----------------------------------------------------------------------------