#!/usr/bin/perlrequire 5;# LCL symbol...			localize symbols# ARC arch			architecture symbol# DFT cpp-expr			default method?# DEF symbol alternatives...	specifiy alternatives# DEP cpp-expr			when to apply these (which architecture &c)# MTH name init crack load	new method independent of everything else# LOD load			load method to use# END				guess$method_count=0;while(<>) {   if(/^\s+\*\s+(\w+)\s+(.*)$/) {      $1 eq "END" and last;      $1 eq "LCL" and do {         @lcl=split /\s+/,$2;      };      $1 eq "ARC" and do {         $arch=$2;      };      $1 eq "DFT" and do {         $default=$2;      };      $1 eq "LOD" and do {         $load=$2;      };      $1 eq "MTH" and do {         my($name,$init,$crack,$load)=split /\s+/,$2;         $methods .= "  { \"$name\", $init, $crack, $load },\n";         $method_count++;      };      $1 eq "DEF" and do {         my($def,$val)=split /\s+/,$2,2;         my(@val);         if($val) {            @val=split /\s*\$\s*/,$val;            for(@val) {               $_=["# undef $def\n# define $def $_\n", ", $def=$_"];            }         } else {            @val = (["# undef $def\n", ""], ["# define $def 1\n", ", $def"]);         }         $def{$def}=[@val];      };      $1 eq "DEP" and do {         $method=$method_count;         $def.="#elif $2\n";         $tab.="#elif $2\n$methods";         $def.="# define $arch 1\n" if $arch;         gen_def("");         $def.="# undef $arch\n" if $arch;         undef $arch;         undef $default;         undef %def;      };   }}sub gen_def {   my($sym)=(keys %def)[0];   if($sym) {      my($val)=delete $def{$sym};      for(@{$val}) {         gen_def($_[0].$_->[0],$_[1].$_->[1]);      }      $def{$sym}=$val;   } else {      $def.="# undef METHOD\n# define METHOD $method\n$_[0]";      $tab.="  { \"zip$method$_[1]\"";      for(@lcl) {         $def.="# undef $_\n# define $_ METHOD${method}_$_\n";         $tab.=", METHOD${method}_$_";      }      $tab.=", $load },\n";      $def.="#  if $default\n#   define DEFAULT_METHOD $method\n#  endif\n" if $default;      $def.="#  include \"zipcrack.c\"\n";      $method++;   }}##############################################################################open C,">crackdef.c" or die "crackdef.c: $!";print C <<EOF;/* * this file is automatically generated from zipcrack.c, do NOT modify */#if 0$def#else#warn no architecture compiled in#endif#ifndef DEFAULT_METHOD#define DEFAULT_METHOD 0#endifint default_method = DEFAULT_METHOD;method methods[] = {#if 0$tab#else#endif  { 0, 0, 0, 0 }};EOF