#!/usr/bin/perl | |
open(OUTPUT, "> httpd-fsdata.c"); | |
chdir("httpd-fs"); | |
opendir(DIR, "."); | |
@files = grep { !/^\./ && !/(CVS|~)/ } readdir(DIR); | |
closedir(DIR); | |
foreach $file (@files) { | |
if(-d $file && $file !~ /^\./) { | |
print "Processing directory $file\n"; | |
opendir(DIR, $file); | |
@newfiles = grep { !/^\./ && !/(CVS|~)/ } readdir(DIR); | |
closedir(DIR); | |
printf "Adding files @newfiles\n"; | |
@files = (@files, map { $_ = "$file/$_" } @newfiles); | |
next; | |
} | |
} | |
foreach $file (@files) { | |
if(-f $file) { | |
print "Adding file $file\n"; | |
open(FILE, $file) || die "Could not open file $file\n"; | |
$file =~ s-^-/-; | |
$fvar = $file; | |
$fvar =~ s-/-_-g; | |
$fvar =~ s-\.-_-g; | |
# for AVR, add PROGMEM here | |
print(OUTPUT "static const unsigned char data".$fvar."[] = {\n"); | |
print(OUTPUT "\t/* $file */\n\t"); | |
for($j = 0; $j < length($file); $j++) { | |
printf(OUTPUT "%#02x, ", unpack("C", substr($file, $j, 1))); | |
} | |
printf(OUTPUT "0,\n"); | |
$i = 0; | |
while(read(FILE, $data, 1)) { | |
if($i == 0) { | |
print(OUTPUT "\t"); | |
} | |
printf(OUTPUT "%#02x, ", unpack("C", $data)); | |
$i++; | |
if($i == 10) { | |
print(OUTPUT "\n"); | |
$i = 0; | |
} | |
} | |
print(OUTPUT "0};\n\n"); | |
close(FILE); | |
push(@fvars, $fvar); | |
push(@pfiles, $file); | |
} | |
} | |
for($i = 0; $i < @fvars; $i++) { | |
$file = $pfiles[$i]; | |
$fvar = $fvars[$i]; | |
if($i == 0) { | |
$prevfile = "NULL"; | |
} else { | |
$prevfile = "file" . $fvars[$i - 1]; | |
} | |
print(OUTPUT "const struct httpd_fsdata_file file".$fvar."[] = {{$prevfile, data$fvar, "); | |
print(OUTPUT "data$fvar + ". (length($file) + 1) .", "); | |
print(OUTPUT "sizeof(data$fvar) - ". (length($file) + 1) ."}};\n\n"); | |
} | |
print(OUTPUT "#define HTTPD_FS_ROOT file$fvars[$i - 1]\n\n"); | |
print(OUTPUT "#define HTTPD_FS_NUMFILES $i\n"); |