head     1.1;
branch   1.1.1;
access   ;
symbols  arelease:1.1.1.1 avendor:1.1.1;
locks    ; strict;
comment  @# @;


1.1
date     2003.12.11.10.57.49;  author pyrasis;  state Exp;
branches 1.1.1.1;
next     ;

1.1.1.1
date     2003.12.11.10.57.49;  author pyrasis;  state Exp;
branches ;
next     ;


desc
@@



1.1
log
@Initial revision
@
text
@#!/usr/bin/perl

open(OUTPUTC, "> http-strings.c");
open(OUTPUTH, "> http-strings.h");

open(FILE, "http-strings");

while(<FILE>) {
  if(/(.+) "(.+)"/) {
    $var = $1;
    $data = $2;
    
    printf(OUTPUTC "char $var\[%d] = \n", length($data) + 1);
    printf(OUTPUTC "/* $data */\n");
    printf(OUTPUTC "{");
    for($j = 0; $j < length($data); $j++) {
      printf(OUTPUTC "%#02x, ", unpack("C", substr($data, $j, 1)));
    }
    printf(OUTPUTC "};\n");

    printf(OUTPUTH "extern char $var\[%d];\n", length($data) + 1);
    
  }
}
exit 0;

printf(OUTPUT "%#02x, ", unpack("C", $data));
@


1.1.1.1
log
@no message
@
text
@@
