tools/cpak/cpak.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <fcntl.h>
   7 #include <stdio.h>
   8 #include <stdlib.h>
   9 #include <unistd.h>
  10 #include <string.h>
  11
  12 struct inclist {
  13     struct inclist *next;
  14     char *text;
  15 };
  16
  17 FILE * fd, * fdo;
  18
  19 #define _read(stream,buff,count)    fread(buff,1,count,stream)
  20
  21 int main ( int argc, char **argv )
  22 {
  23 int count;
  24 int i, filecount, startarg;
  25 char fbuf[50];
  26
  27 /* Starting sequence of a C comment: '\slash','\asterisk' */
  28 char c_comment[3] = { 0x2f, 0x2a, 0x00 };
  29 /* Starting sequence of a C++ comment: '\slash','\slash' */
  30 char cpp_comment[3] = { 0x2f, 0x2f, 0x00 };
  31
  32 char ft[] = "zyx";
  33 struct inclist first = { NULL, ft }, *current, *search;
  34
  35 char bracket;
  36 char incname[50];
  37 char filename[100];
  38 char *outputdir;
  39
  40     if ( argc < 2 )
  41     {
  42         fprintf( stderr, "No input files given!\n" );
  43         exit ( -1 );
  44     }
  45
  46     if ( strcmp(argv[1],"-d") == 0 )
  47     {
  48         outputdir = argv[2];
  49         startarg = 3;
  50     }
  51     else
  52     {
  53         outputdir = ".";
  54         startarg = 1;
  55     }
  56
  57     sprintf(filename, "%s/functions.c", outputdir);
  58     fdo = fopen ( filename, "w" );
  59     if ( fdo == NULL )
  60     {
  61         fprintf ( stderr, "Could not open functions.c out-file!\n" );
  62         exit ( -1 );
  63     }
  64     fprintf ( fdo, "#include \"functions.h\"\n" );
  65
  66     printf ( "Collecting functions..." );
  67     for ( filecount = startarg ; filecount < argc ; filecount++ )
  68     {
  69 /*      printf ( "Opening %s\n", argv[filecount] ); */
  70         strcpy ( filename, argv[filecount] );
  71         strcat ( filename, ".c" );
  72         fd = fopen ( filename, "rb" );
  73         if ( fd == NULL )
  74         {
  75             fprintf ( stderr, "\n%s - No such file !\n", argv[filecount] );
  76             exit(-1);
  77         }
  78
  79         fprintf ( fdo, "#line 1 \"%s\"\n", filename );
  80         count = _read ( fd, fbuf, 1 );
  81         while ( count == 1 )
  82         {
  83             switch ( fbuf[0] )
  84             {
  85                 case '/':
  86                     count = _read( fd, &fbuf[1], 1 );
  87                     if ( fbuf[count] == '*' )
  88                     {
  89                         /* This is a C comment, copy everything until
  90                            the end of the comment */
  91                         fprintf ( fdo, c_comment );
  92                         do
  93                         {
  94                             do
  95                             {
  96                                 count = _read ( fd, fbuf, 1 );
  97                                 putc ( fbuf[0], fdo );
  98                             } while ( count == 1 && fbuf[0] != '*' );
  99                             count = _read( fd, fbuf, 1 );
 100                             putc ( fbuf[0], fdo );
 101                         } while ( count == 1 && fbuf[0] != '/' );
 102                     }
 103                     else if ( fbuf[count] == '/' )
 104                     {
 105                         /* This is a C++ comment, copy everything until
 106                            the end of the current line */
 107                         fprintf ( fdo, cpp_comment );
 108                         do
 109                         {
 110                           count = _read( fd, fbuf, 1 );
 111                           putc ( fbuf[0], fdo );
 112                         } while ( count == 1 && fbuf[0] != '\n' );
 113                     }
 114                     else
 115                     {
 116                         if ( fseek ( fd, -count, SEEK_CUR ) != 0 )
 117                         {
 118                             perror ( "fseek" );
 119                             exit ( -1 );
 120                         }
 121                         putc ( fbuf[0], fdo );
 122                     }
 123                     break;
 124                 case '#':
 125                     count = _read ( fd, &fbuf[1], 8 );
 126                     fbuf[count+1] = 0;
 127                     if ( strcmp ( fbuf, "#include " ) == 0 )
 128                     {
 129                         _read ( fd, incname, 1 );
 130                         if ( incname[0] == '<' || incname[0] == 0x22 )
 131                         {
 132                             int found;
 133
 134                             if ( incname[0] == '<' )
 135                             {
 136                                 bracket = '>';
 137                             }
 138                             else
 139                             {
 140                                 bracket = 0x22;
 141                             }
 142
 143                             i = 0;
 144                             do {
 145                                 i++;
 146                                 _read ( fd, &incname[i], 1 );
 147                             } while ( incname[i] != bracket );
 148                             incname[i+1] = 0;
 149
 150                             for
 151                             (
 152                                 found         = 0, search = &first;
 153                                 search->next != NULL;
 154                                 search        = search->next
 155                             )
 156                             {
 157                                 /* don't put <> includes after "" ones */
 158                                 if ( bracket == '>' && search->next->text[0] != '<')
 159                                     break;
 160
 161                                 if ( strcmp ( search->next->text, incname) == 0 )
 162                                 {
 163                                     found = 1;
 164                                     break;
 165                                 }
 166                             }
 167                             if ( !found )
 168                             {
 169                                 current = malloc ( sizeof ( struct inclist ) );
 170                                 current->next = search->next;
 171                                 current->text = strdup ( incname );
 172                                 search->next = current;
 173                             }
 174                         }
 175                         else
 176                         {
 177                             fprintf ( fdo, "#include %c", incname[0] );
 178                         }
 179                     }
 180                     else
 181                     {
 182                         if ( fseek ( fd, -count, SEEK_CUR ) != 0 )
 183                         {
 184                             perror ( "fseek" );
 185                             exit ( -1 );
 186                         }
 187                         putc ( fbuf[0], fdo );
 188                     }
 189                     if( count > 0 )
 190                         count = 1;
 191                     break;
 192                 default:
 193                     putc ( fbuf[0], fdo );
 194                     break;
 195             }
 196             count = _read ( fd, fbuf, 1 );
 197         }
 198         /* If the last character of the file is not a newline '\n'
 199            then append a newline character to avoid faulty concatenation
 200            of files */
 201         if ( fbuf[0] != '\n' )
 202         {
 203           putc ( '\n', fdo );
 204         }
 205         fclose ( fd );
 206     }
 207     fclose ( fdo );
 208
 209     sprintf(filename, "%s/functions.h", outputdir);
 210     fdo = fopen ( filename, "w" );
 211     if ( fdo == NULL )
 212     {
 213         fprintf ( stderr, "Could not open functions.h out-file!\n" );
 214         exit ( -1 );
 215     }
 216
 217     search = first.next;
 218     while ( search != NULL )
 219     {
 220         current = search;
 221         fprintf ( fdo, "#include %s\n", current->text );
 222         search = current->next;
 223         free ( current->text );
 224         free ( current );
 225     }
 226     fclose ( fdo );
 227
 228     printf ( "Done!\n" );
 229
 230     return ( 0 );
 231 }