/usr/share/perl5/EB/Globals.pm is in eekboek 2.00.03-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 | #! perl -- -*- coding: utf-8 -*-
use utf8;
package EB::Globals;
use strict;
use warnings;
our $VERSION = sprintf "%d.%03d", q$Revision: 1.34 $ =~ /(\d+)/g;
use base qw(Exporter);
our @EXPORT;
# Define new constant subroutine, and add it to @EXPORT.
sub _newconst($$) {
my $t = $_[1];
$t = "'$t'" unless $t =~ /^\d+$/ || $t =~ /^\[.*\]$/;
#warn("sub $_[0](){$t}\n");
eval("sub $_[0](){$t}");
push(@EXPORT, $_[0]);
}
# Define an enumeration of constant subroutines.
sub _enumconst($@) {
my ($pfx, @list) = @_;
my $index = 0;
foreach ( @list ) {
my $key = $pfx.$_;
if ( $key =~ /^(.*)=(\d+)$/ ) {
$key = $1;
$index = $2;
}
_newconst( $key, $index++ );
}
}
# To defeat gettext. Strings here are not for translation.
sub N__($) { $_[0] }
_newconst("SCM_MAJVERSION", 1);
_newconst("SCM_MINVERSION", 0);
_newconst("SCM_REVISION", 14);
_newconst("AMTPRECISION", 2);
_newconst("AMTWIDTH", 9);
_newconst("NUMGROUPS", 3);
_newconst("BTWPRECISION", 4);
_newconst("BTWWIDTH", 5);
_newconst("AMTSCALE", 100);
_newconst("BTWSCALE", 10000);
_newconst("BKY_PREVIOUS", "<<<<");
_enumconst("DBKTYPE_", qw(INKOOP=1 VERKOOP BANK KAS MEMORIAAL) );
_newconst("DBKTYPES",
"[qw(".N__("-- Inkoop Verkoop Bank Kas Memoriaal").")]");
_enumconst("BTWTARIEF_", qw(NUL=0 HOOG LAAG PRIV ANDERS) );
_newconst("BTWTARIEVEN", "[qw(".N__("Nul Hoog Laag Privé Anders").")]");
_newconst("BTWPERIODES", "[qw(".N__("Geen Jaar 2 3 Kwartaal 5 6 7 8 9 10 11 Maand").")]");
_newconst("BTWPER_GEEN", 0);
_newconst("BTWPER_JAAR", 1);
_newconst("BTWPER_KWARTAAL", 4);
_newconst("BTWPER_MAAND", 12);
_enumconst("BTWTYPE_", qw(NORMAAL=0 VERLEGD INTRA EXTRA) );
_newconst("BTWTYPES", "[qw(".N__("Normaal Verlegd Intra Extra").")]");
_newconst("BTWKLASSE_BTW_BIT", 0x200);
_newconst("BTWKLASSE_KO_BIT", 0x100);
_newconst("BTWKLASSE_TYPE_BITS", 0x0ff);
# Eval, since it uses the (run-time defined) subroutines.
eval( 'sub BTWKLASSE($$$) {'.
' ($_[0] ? BTWKLASSE_BTW_BIT : 0)'.
' | ($_[1] ? ($_[1] & BTWKLASSE_TYPE_BITS) : 0)'.
' | ($_[2] ? BTWKLASSE_KO_BIT : 0);'.
'}' );
push(@EXPORT, qw(BTWKLASSE));
unless ( caller ) {
print STDOUT ("-- Constants\n\n",
"COMMENT ON TABLE Constants IS\n",
" 'This is generated from ", __PACKAGE__, ". DO NOT CHANGE.';\n\n",
"COPY Constants (name, value) FROM stdin;\n");
foreach my $key ( sort(@EXPORT) ) {
no strict;
next if ref($key->());
print STDOUT ("$key\t", $key->(), "\n");
}
print STDOUT ("\\.\n");
}
1;
|