2 # a simple wrapper to test a .s-file mangler
3 # reads stdin, writes stdout
5 $which = $ARGV[0]; shift; # nice error checking, Will
7 require("ghc-asm-$which.prl") || die "require mangler failed!\n";
12 open(INP, "> /tmp/mangle1.$$") || die "Can't open tmp file 1\n";
16 close(INP) || die "Can't close tmp file 1";
18 &mangle_asm("/tmp/mangle1.$$", "/tmp/mangle2.$$");
20 open(INP, "< /tmp/mangle2.$$") || die "Can't open tmp file 2\n";
24 close(INP) || die "Can't close tmp file 2";
26 unlink("/tmp/mangle1.$$", "/tmp/mangle2.$$");