1 files changed, 50 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl0/lib/DBI/ProfileSubs.pm b/Master/tlpkg/tlperl0/lib/DBI/ProfileSubs.pm
new file mode 100755
index 00000000000..02ca64d1d61
--- /dev/null
+++ b/Master/tlpkg/tlperl0/lib/DBI/ProfileSubs.pm
@@ -0,0 +1,50 @@
+package DBI::ProfileSubs;
+
+our $VERSION = sprintf("0.%06d", q$Revision: 9395 $ =~ /(\d+)/o);
+
+=head1 NAME
+
+DBI::ProfileSubs - Subroutines for dynamic profile Path
+
+=head1 SYNOPSIS
+
+  DBI_PROFILE='&norm_std_n3' prog.pl
+
+This is new and still experimental.
+
+=head1 TO DO
+
+Define come kind of naming convention for the subs.
+
+=cut
+
+use strict;
+use warnings;
+
+
+# would be good to refactor these regex into separate subs and find some
+# way to compose them in various combinations into multiple subs.
+# Perhaps via AUTOLOAD where \&auto_X_Y_Z creates a sub that does X, Y, and Z.
+# The final subs always need to be very fast.
+# 
+
+sub norm_std_n3 {
+    # my ($h, $method_name) = @_;
+    local $_ = $_;
+
+    s/\b\d+\b/<N>/g;             # 42 -> <N>
+    s/\b0x[0-9A-Fa-f]+\b/<N>/g;  # 0xFE -> <N>
+
+    s/'.*?'/'<S>'/g;             # single quoted strings (doesn't handle escapes)
+    s/".*?"/"<S>"/g;             # double quoted strings (doesn't handle escapes)
+
+    # convert names like log20001231 into log<N>
+    s/([a-z_]+)(\d{3,})\b/${1}<N>/ig;
+
+    # abbreviate massive "in (...)" statements and similar
+    s!((\s*<[NS]>\s*,\s*){100,})!sprintf("$2,<repeated %d times>",length($1)/2)!eg;
+
+    return $_;
+}
+
+1;