Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
Algorithm	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Alien	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Alt	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Apache	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
App	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
AppConfig	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Archive	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Authen	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
B	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
BerkeleyDB	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Bundle	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Bytes	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
CGI	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
CPAN	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
CPANPLUS	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Canary	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Capture	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Carp	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Class	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Clone	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Compress	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Config	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Context	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Convert	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Cpanel	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Crypt	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
DBD	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
DBI	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
DBIx	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
DBM	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Dancer	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Dancer2	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Data	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Date	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
DateTime	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Devel	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Digest	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Dist	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Email	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Encode	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Eval	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Excel	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Exception	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Exporter	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
ExtUtils	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
FFI	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
File	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
GD	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Graphics	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
HTML	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
HTTP	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Hash	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Hook	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
IO	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
IPC	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Imager	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
JSON	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
LWP	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
List	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Log	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
MIME	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Mail	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Math	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Method	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Mock	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Modern	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Module	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Mojo	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
MojoX	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Mojolicious	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Moo	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
MooX	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Moose	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
MooseX	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Mozilla	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Net	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Number	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
OLE	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Object	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
OpenGL	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
PAR	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
POD2	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
PPI	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
PPM	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Package	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Params	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Parse	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Path	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Perl	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
PerlIO	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Pod	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Portable	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Probe	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Role	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
SOAP	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
SQL	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Scope	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Sort	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Specio	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Spiffy	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Spreadsheet	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
StackTrace	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
String	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Sub	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Syntax	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Sys	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
TAP	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Task	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Template	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Term	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Test	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Test2	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Text	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Throwable	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Tie	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Time	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Tree	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Types	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Unicode	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Variable	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
WWW	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Win32	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Win32API	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
XML	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
YAML	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
auto	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
common	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
lib	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
libwww	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
local	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
namespace	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
odern	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
AppConfig.pm	31.7 KB	-rw-rw-rw-	2015-03-02 00:23
BerkeleyDB.pm	42.09 KB	-rw-rw-rw-	2020-09-17 12:21
BerkeleyDB.pod	80.17 KB	-rw-rw-rw-	2020-09-17 11:57
CGI.pm	122.63 KB	-rw-rw-rw-	2020-09-25 17:21
CGI.pod	66.13 KB	-rw-rw-rw-	2020-06-22 11:29
CPANPLUS.pm	7.05 KB	-rw-rw-rw-	2020-12-19 12:30
Clone.pm	2.29 KB	-rw-rw-rw-	2020-04-24 00:46
CryptX.pm	4.69 KB	-rw-rw-rw-	2020-08-25 11:02
DBI.pm	310.74 KB	-rw-rw-rw-	2020-01-31 17:27
DB_File.pm	67.74 KB	-rw-rw-rw-	2021-01-24 16:36
DDP.pm	530 B	-rw-rw-rw-	2015-05-30 02:50
DateTime.pm	132.7 KB	-rw-rw-rw-	2020-12-05 00:20
FCGI.pm	5.72 KB	-rw-rw-rw-	2019-12-14 20:22
Fh.pm	166 B	-rw-rw-rw-	2020-09-25 17:20
GD.pm	67.49 KB	-rw-rw-rw-	2020-09-24 16:52
Imager.pm	124.3 KB	-rw-rw-rw-	2020-06-14 07:15
Importer.pm	41.53 KB	-rw-rw-rw-	2020-08-17 01:24
JSON.pm	61.08 KB	-rw-rw-rw-	2021-01-24 02:09
LWP.pm	21.17 KB	-rw-rw-rw-	2021-01-07 23:21
MailTools.pm	458 B	-rw-rw-rw-	2019-05-21 18:26
MailTools.pod	2.24 KB	-rw-rw-rw-	2019-05-21 18:26
Mojo.pm	1.61 KB	-rw-rw-rw-	2021-01-17 16:56
Mojolicious.pm	29.21 KB	-rw-rw-rw-	2021-01-17 16:57
Moo.pm	33.61 KB	-rw-rw-rw-	2020-11-25 02:58
Moose.pm	38.63 KB	-rw-rw-rw-	2020-12-19 02:06
OLE.pm	4.28 KB	-rw-rw-rw-	2013-11-28 21:21
OpenGL.pm	140.62 KB	-rw-rw-rw-	2016-10-08 23:11
OpenGL.pod	37.33 KB	-rw-rw-rw-	2016-10-08 23:12
PAR.pm	40.34 KB	-rw-rw-rw-	2019-05-25 01:14
PPI.pm	29.52 KB	-rw-rw-rw-	2019-07-09 19:15
PPM.pm	75.77 KB	-rw-rw-rw-	2020-02-07 11:26
PadWalker.pm	4.1 KB	-rw-rw-rw-	2020-09-27 16:22
PkgConfig.pm	46.95 KB	-rw-rw-rw-	2020-11-11 12:32
Portable.pm	6.49 KB	-rw-rw-rw-	2020-02-07 22:46
Socket6.pm	9.55 KB	-rw-rw-rw-	2018-09-30 08:22
Specio.pm	14.83 KB	-rw-rw-rw-	2020-03-14 19:47
Spiffy.pm	15.12 KB	-rw-rw-rw-	2014-08-16 23:19
Spiffy.pod	17.75 KB	-rw-rw-rw-	2014-08-16 23:19
Template.pm	24.46 KB	-rw-rw-rw-	2020-07-14 01:47
Throwable.pm	4.4 KB	-rw-rw-rw-	2015-07-01 17:46
TimeDate.pm	267 B	-rw-rw-rw-	2020-05-19 21:30
V.pm	4.18 KB	-rw-rw-rw-	2007-11-07 02:08
XString.pm	1.76 KB	-rw-rw-rw-	2020-10-20 21:56
YAML.pm	3.12 KB	-rw-rw-rw-	2020-01-28 00:10
YAML.pod	22.62 KB	-rw-rw-rw-	2020-01-28 00:10
aliased.pm	9.98 KB	-rw-rw-rw-	2015-01-03 22:39
alienfile.pm	15.78 KB	-rw-rw-rw-	2021-01-11 23:36
dbixs_rev.pl	1.5 KB	-rw-rw-rw-	2013-04-05 02:17
enum.pm	10.63 KB	-rw-rw-rw-	2015-10-27 23:37
metaclass.pm	3.23 KB	-rw-rw-rw-	2020-12-19 02:06
mkconsts.pl	38.4 KB	-rw-rw-rw-	2019-02-05 22:12
ntheory.pm	14.33 KB	-rw-rw-rw-	2018-11-15 20:49
ojo.pm	7.04 KB	-rw-rw-rw-	2021-01-17 16:57
oo.pm	1.19 KB	-rw-rw-rw-	2020-09-02 14:16
oose.pm	2.62 KB	-rw-rw-rw-	2020-12-19 02:06
pler.pm	9.76 KB	-rw-rw-rw-	2010-11-29 09:50
ppm.xml	600 B	-rw-rw-rw-	2023-11-19 11:41
scan.pl	5.68 KB	-rw-rw-rw-	2019-02-05 22:12
superclass.pm	3.71 KB	-rw-rw-rw-	2014-03-11 12:54
syntax.pm	4.24 KB	-rw-rw-rw-	2012-05-18 22:47

Rename

#!/usr/local/bin/perl

my $ignore_re = '^(' . join("|", 
	qw(
		_
		[a-z]
		DBM
		DBC
		DB_AM_
		DB_BT_
		DB_RE_
		DB_HS_
		DB_FUNC_
		DB_DBT_
		DB_DBM
		DB_TSL
		MP
		TXN
        DB_TXN_GETPGNOS
        DB_TXN_BACKWARD_ALLOC
        DB_ALIGN8
	)) . ')' ;

my %ignore_def = map {$_, 1} qw() ;

%ignore_enums = map {$_, 1} qw( ACTION db_status_t db_notices db_lockmode_t ) ;

my %ignore_exact_enum = map { $_ => 1}
	qw(
                DB_TXN_GETPGNOS
                DB_TXN_BACKWARD_ALLOC
                );

my $filler = ' ' x 26 ;

chdir "libraries" || die "Cannot chdir into './libraries': $!\n";

foreach my $name (sort tuple glob("[2-9]*"), glob("[1-9][0-9]*"))
{
    next if $name =~ /(NOHEAP|NC|private)$/;

my $inc = "$name/include/db.h" ;
    next unless -f $inc ;

my $file = readFile($inc) ;
    StripCommentsAndStrings($file) ;
    my $result = scan($name, $file) ;
    print "\n\t#########\n\t# $name\n\t#########\n\n$result" 
        if $result;
}
exit ;

sub scan
{
    my $version = shift ;
    my $file = shift ;

my %seen_define = () ;
    my $result = "" ;

if (1) {
        # Preprocess all tri-graphs 
        # including things stuck in quoted string constants.
        $file =~ s/\?\?=/#/g;                         # | ??=|  #|
        $file =~ s/\?\?\!/|/g;                        # | ??!|  ||
        $file =~ s/\?\?'/^/g;                         # | ??'|  ^|
        $file =~ s/\?\?$/[/g;                        # | ??(|  [|
        $file =~ s/\?\?$/]/g;                        # | ??)|  ]|
        $file =~ s/\?\?\-/~/g;                        # | ??-|  ~|
        $file =~ s/\?\?\//\\/g;                       # | ??/|  \|
        $file =~ s/\?\?</{/g;                         # | ??<|  {|
        $file =~ s/\?\?>/}/g;                         # | ??>|  }|
    }
    
    while ( $file =~ /^\s*#\s*define\s+([\$\w]+)\b(?!\()\s*(.*)/gm ) 
    {
        my $def = $1;
        my $rest = $2;
        my $ignore = 0 ;
    
        $ignore = 1 if $ignore_def{$def} || $def =~ /$ignore_re/o ;
    
        # Cannot do: (-1) and ((LHANDLE)3) are OK:
        #print("Skip non-wordy $def => $rest\n"),
    
        $rest =~ s/\s*$//;
        #next if $rest =~ /[^\w\$]/;
    
        #print "Matched $_ ($def)\n" ;

next if $before{$def} ++ ;
    
        if ($ignore)
          { $seen_define{$def} = 'IGNORE' }
        elsif ($rest =~ /"/) 
          { $seen_define{$def} = 'STRING' }
        else
          { $seen_define{$def} = 'DEFINE' }
    }
    
    foreach $define (sort keys %seen_define)
    { 
        my $out = $filler ;
        substr($out,0, length $define) = $define;
        $result .= "\t$out => $seen_define{$define},\n" ;
    }
    
    while ($file =~ /\btypedef\s+enum\s*{(.*?)}\s*(\w+)/gs )
    {
        my $enum = $1 ;
        my $name = $2 ;
        my $ignore = 0 ;
    
        $ignore = 1 if $ignore_enums{$name} ;
    
        #$enum =~ s/\s*=\s*\S+\s*(,?)\s*\n/$1/g;
        $enum =~ s/^\s*//;
        $enum =~ s/\s*$//;
    
        my @tokens = map { s/\s*=.*// ; $_} split /\s*,\s*/, $enum ;
        my @new =  grep { ! $Enums{$_}++ } @tokens ;

if (@new)
        {
            my $value ;
            if ($ignore)
              { $value = "IGNORE, # $version" }
            else
              { $value = "'$version'," }

$result .= "\n\t# enum $name\n";
            my $out = $filler ;
            foreach $name (@new)
            {
                next if $ignore_exact_enum{$name} ;
                $out = $filler ;
                substr($out,0, length $name) = $name;
                $result .= "\t$out => $value\n" ;
            }
        }
    }

return $result ;
}

sub StripCommentsAndStrings
{

# Strip C & C++ coments
  # From the perlfaq
  $_[0] =~

s{
       /\*         ##  Start of /* ... */ comment
       [^*]*\*+    ##  Non-* followed by 1-or-more *'s
       (
         [^/*][^*]*\*+
       )*          ##  0-or-more things which don't start with /
                   ##    but do end with '*'
       /           ##  End of /* ... */ comment
 
     |         ##     OR  C++ Comment
       //          ## Start of C++ comment // 
       [^\n]*      ## followed by 0-or-more non end of line characters

|         ##     OR  various things which aren't comments:
 
       (
         "           ##  Start of " ... " string
         (
           \\.           ##  Escaped char
         |               ##    OR
           [^"\\]        ##  Non "\
         )*
         "           ##  End of " ... " string
 
       |         ##     OR
 
         '           ##  Start of ' ... ' string
         (
           \\.           ##  Escaped char
         |               ##    OR
           [^'\\]        ##  Non '\
         )*
         '           ##  End of ' ... ' string
 
       |         ##     OR
 
         .           ##  Anything other char
         [^/"'\\]*   ##  Chars which doesn't start a comment, string or escape
       )
     }{$2}gxs;

# Remove double-quoted strings.
  #$_[0] =~ s#"(\\.|[^"\\])*"##g;

# Remove single-quoted strings.
  #$_[0] =~ s#'(\\.|[^'\\])*'##g;

# Remove leading whitespace.
  $_[0] =~ s/\A\s+//m ;

# Remove trailing whitespace.
  $_[0] =~ s/\s+\Z//m ;

# Replace all multiple whitespace by a single space.
  #$_[0] =~ s/\s+/ /g ;
}

sub readFile
{
   my $filename = shift ;
   open F, "<$filename" || die "Cannot open $filename: $!\n" ;
   local $/ ;
   my $x = <F> ;
   close F ;
   return $x ;
}

sub tuple
{
    my (@a) = split(/\./, $a) ;
    my (@b) = split(/\./, $b) ;
    if (@a != @b) {
        my $diff = @a - @b ;
        push @b, (0 x $diff) if $diff > 0 ;
        push @a, (0 x -$diff) if $diff < 0 ;
    }
    foreach $A (@a) {
        $B = shift @b ;
        $A == $B or return $A <=> $B ;
    }
    return 0;
}

__END__