develooper Front page | perl.perl5.porters | Postings from January 2001

[PATCH: perl@8531] a peek at uuencoded EBCDIC (st-06compat.t)

From:
Peter Prymmer
Date:
January 26, 2001 14:44
Subject:
[PATCH: perl@8531] a peek at uuencoded EBCDIC (st-06compat.t)
Message ID:
Pine.OSF.4.10.10101261443561.14820-100000@aspara.forte.com

In lieu of internal transcoding I find that the following patch allows
all 8 tests to pass - at least on OS/390 under codepage IBM 1047 - .
If some of our POSIX-BC and/or IBM 037 compatriots have trouble with this
proposed fix please let me know since there is a fairly simple way to
modify it for use on the other char sets.

File affected:   t/lib/st-06compat.t

--- perl.8531/t/lib/st-06compat.t.orig	Sat Jan  6 21:33:45 2001
+++ perl.8531/t/lib/st-06compat.t	Fri Jan 26 14:15:46 2001
@@ -86,15 +86,27 @@
 
 package main;
 
+my $Is_EBCDIC = (ord('A') == 193) ? 1 : 0;
+
 my $r = ROOT->make;
 
 my $data = '';
 while (<DATA>) {
-	next if /^#/;
-	$data .= unpack("u", $_);
+	if (!$Is_EBCDIC) {
+	    next if /^#/;
+	    $data .= unpack("u", $_);
+	}
+	else {
+	    next if /^#$/;
+	    next if /^#\s+/;
+	    next if /^[^#]/;
+	    s/^#//;
+	    $data .= unpack("u", $_);
+	}
 }
 
-ok 1, length $data == 278;
+my $expected_length = $Is_EBCDIC ? 217 : 278;
+ok 1, length $data == $expected_length;
 
 my $y = thaw($data);
 ok 2, 1;
@@ -130,3 +142,12 @@
 M24U03$586`0"`````0B"6&(&4TE-4$Q%6%@$`@````$(@UAB!E-)35!,15A8
 M!`(````!"(188@9324U03$586%A8`````V]B:@0,!``````*6%A8`````W)E
 (9F($4D]/5%@`
+#
+# using Storable-1.007, output of: print '#' . pack("u", nfreeze(ROOT->make));
+# on OS/390 (cp 1047) original size: 217 bytes
+#
+#M!0,1!-G6UN,#````!00,!!$)X\G%Q&W(P>+(`P````(*!*6!D_$````$DH6H
+#M\0H$I8&3\@````22A:CR`````YF%A@0"````!@B!"(`(?0H(8/-+\?3Q]?D)
+#M```!R`H#]$OU`````Y6DE`0"````!001!N+)U-?3Q0(````!"(`$$@("````
+#M`0B!!!("`@````$(@@02`@(````!"(,$$@("`````0B$`````Y:"D00`````
+#E!`````&(!`(````#"@:BHYF)E8<$``````0$```````````!@0``
End of Patch.

Peter Prymmer






nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About