Logo Search packages:      
Sourcecode: vat version File versions  Download package

tcl2c++.c

/*
      Netvideo version 3.1
      Written by Ron Frederick <frederick@parc.xerox.com>

      Simple hack to translate a Tcl/Tk init file into a C string constant
*/

/*
 * Copyright (c) Xerox Corporation 1992. All rights reserved.
 *  
 * License is granted to copy, to use, and to make and to use derivative
 * works for research and evaluation purposes, provided that Xerox is
 * acknowledged in all documentation pertaining to any such copy or derivative
 * work. Xerox grants no other licenses expressed or implied. The Xerox trade
 * name should not be used in any advertising without its written permission.
 *  
 * XEROX CORPORATION MAKES NO REPRESENTATIONS CONCERNING EITHER THE
 * MERCHANTABILITY OF THIS SOFTWARE OR THE SUITABILITY OF THIS SOFTWARE
 * FOR ANY PARTICULAR PURPOSE.  The software is provided "as is" without
 * express or implied warranty of any kind.
 *  
 * These notices must be retained in any copies of any part of this software.
 */

#include <stdio.h>
#include <ctype.h>

static int pass;

void put(int c)
{
      static int n;

      if (pass > 10) {
            putchar(c);
      } else
            printf("%u,%c", c, ((++n & 0xf) == 0) ? '\n' : ' ');
}

main(int argc, char **argv)
{
      int c;
      FILE* f;
      
      if (argc < 3) {
            fprintf(stderr, "Usage: tcl2c++ pass file ...\n");
            exit(1);
      }
      printf("static const char code[] = {\n");
      pass = atoi(argv[1]);
      for ( ; --argc >= 2; ++argv) {
            int nl = 1;
            int skipping = 0;

            f = fopen(argv[2], "r");
            if (f == 0) {
                  perror(argv[2]);
                  exit(1);
            }
            while ((c = getc(f)) != EOF) {
                  switch (c) {
                  case ' ':
                  case '\t':
                  case '\f':
                        if (nl || skipping)
                              continue;
                        break;
                  case '#':
                        if (skipping)
                              continue;
                        if (nl) {
                              skipping = 1;
                              continue;
                        }
                        break;
                  case '\n':
                        if (skipping) {
                              skipping = 0;
                              nl = 1;
                              continue;
                        }
                        nl = 1;
                        break;
                  case 's':
                        if (skipping)
                              continue;
                        if (nl && (pass == 1 || pass > 10)) {
                              /* skip 'source' lines */
                              const char* targ = "source";
                              const char* cp = targ + 1;
                              while ((c = getc(f)) == *cp)
                                    ++cp;
                              if (*cp == 0) {
                                    if (c == ' ' || c == '\t') {
                                          skipping = 1;
                                          continue;
                                    }
                              }
                              for ( ; targ < cp; ++targ)
                                    put(*targ);
                        }
                        nl = 0;
                        break;
                  default:
                        nl = 0;
                        if (skipping)
                              continue;
                        break;
                  }
                  put(c);
            }
            fclose(f);
      }
      printf("0 };\n");
      printf("#include \"Tcl.h\"\nstatic EmbeddedTcl etcl(%d, code);\n",
             pass);
      exit(0);
      /*NOTREACHED*/
}

Generated by  Doxygen 1.6.0   Back to index