packsize.c

来自「开放源码的编译器open watcom 1.6.0版的源代码」· C语言 代码 · 共 120 行

/****************************************************************************
*
*                            Open Watcom Project
*
*    Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
*  ========================================================================
*
*    This file contains Original Code and/or Modifications of Original
*    Code as defined in and that are subject to the Sybase Open Watcom
*    Public License version 1.0 (the 'License'). You may not use this file
*    except in compliance with the License. BY USING THIS FILE YOU AGREE TO
*    ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
*    provided with the Original Code and Modifications, and is also
*    available at www.sybase.com/developer/opensource.
*
*    The Original Code and all software distributed under the License are
*    distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
*    EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
*    ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
*    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
*    NON-INFRINGEMENT. Please see the License for the specific language
*    governing rights and limitations under the License.
*
*  ========================================================================
*
* Description:  WHEN YOU FIGURE OUT WHAT THIS FILE DOES, PLEASE
*               DESCRIBE IT HERE!
*
****************************************************************************/


#include "stdio.h"
#include "stdlib.h"
#include "process.h"
#include "string.h"
#include "conio.h"
#include "sys/stat.h"

#define BUF_SIZE        4096
#define MAX_PACK_SIZE   (3L*(1024*1024)/4)      // half of 1.44 meg
char    buff[BUF_SIZE];
char    prev_cond[BUF_SIZE];
char    prev_dir[_MAX_DIR];
char    name[_MAX_PATH];
char    new_pack[_MAX_FNAME];

int main( int argc, char **argv )
{
    FILE        *in,*out;
    char        *n;
    char        *dir;
    char        *file;
    char        *rel_file;
    char        *pack_file;
    char        *cond;
    struct stat sbuf;
    long        packsize;
    int         packnum;
    int         i;

    int rc = 0;
    in = fopen( "sizem.lst", "r" );
    out = fopen( "sizem.out", "w" );
    packsize = 0;
    packnum = 0;
    i = 0;
    if( argc != 2 ) {
        printf( "usage: %s <reldir>\n", argv[0] );
        exit( -1 );
    }
    for( ;; ) {
        cprintf( "%d\r", i++ );
        if( fgets( buff, sizeof( buff ), in ) == NULL ) break;
        buff[strlen(buff)-1] = '\0';
        n = strtok( buff, " \t" );
        dir = strtok( NULL, " \t" );
        file = strtok( NULL, " \t" );
        rel_file = strtok( NULL, " \t" );
        pack_file = strtok( NULL, " \t" );
        cond = strtok( NULL, "\0" );
        if( cond == NULL ) cond = pack_file+strlen(pack_file);
        strcpy( name, argv[1] );
        strcat( name, "\\" );
        if( *rel_file == '.' ) {
            strcat( name, dir );
            strcat( name, "\\" );
            strcat( name, file );
        } else {
            strcat( name, rel_file );
        }
        if( stat( name, &sbuf ) ) {
            printf( "\r\nFile '%s' does not exist - putting in own packfile\r\n", name );
            ++packnum;
            packsize = 0;
        } else {
            packsize += sbuf.st_size;
            if( strcmp( prev_cond, cond ) != 0 ||
                strcmp( prev_dir, dir ) != 0 ||
                packsize > MAX_PACK_SIZE ) {
                ++packnum;
                packsize = 0;
            }
        }
        sprintf( new_pack, "pck%05d", packnum );
        fprintf( out, "%-*s" "%-*s" "%-*s" "%-*s" "%-*s" "%s" "\n",
                dir-n,n,
                file-dir,dir,
                rel_file-file,file,
                pack_file-rel_file,rel_file,
                cond-pack_file,new_pack,
                cond );
        strcpy( prev_cond, cond );
        strcpy( prev_dir, dir );
    }
    fclose( in );
    fclose( out );
    return( rc );
}