Commit 68450878 authored by dobenour's avatar dobenour Committed by Ben Gamari

Purge GHC of literate Perl

Test Plan: GHC CI

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: snowleopard, thomie

Maniphest Tasks: T74

Differential Revision: https://phabricator.haskell.org/D2732
parent c2268ba0
......@@ -560,7 +560,7 @@ pprGotDeclaration _ _ _
-- and one for non-PIC.
--
-- Whenever you change something in this assembler output, make sure
-- the splitter in driver/split/ghc-split.lprl recognizes the new output
-- the splitter in driver/split/ghc-split.pl recognizes the new output
pprImportedSymbol :: DynFlags -> Platform -> CLabel -> SDoc
pprImportedSymbol dflags platform@(Platform { platformArch = ArchPPC, platformOS = OSDarwin }) importedLbl
......
%************************************************************************
%* *
\section[Driver-obj-splitting]{Splitting into many \tr{.o} files (for libraries)}
%* *
%************************************************************************
#************************************************************************
#* *
#* \section[Driver-obj-splitting]{Splitting into many \tr{.o} files (for libraries)}
#* *
#************************************************************************
\begin{code}
$TargetPlatform = $TARGETPLATFORM;
($Pgm = $0) =~ s|.*/||;
......@@ -209,13 +208,14 @@ sub ReadTMPIUpToAMarker {
$str =~ tr/\r//d if $TargetPlatform =~ /-mingw32$/m; # in case Perl doesn't convert line endings
$str;
}
\end{code}
=pod
We must (a)~strip the marker off the block, (b)~record any literal C
constants that are defined here, and (c)~inject copies of any C constants
that are used-but-not-defined here.
\begin{code}
=cut
sub process_asm_block {
local($str) = @_;
......@@ -430,5 +430,3 @@ sub tidy_up_and_die {
print STDERR $msg;
exit (($return_val == 0) ? 0 : 1);
}
\end{code}
......@@ -10,7 +10,7 @@
#
# -----------------------------------------------------------------------------
driver/split_PERL_SRC = ghc-split.lprl
driver/split_PERL_SRC = ghc-split.pl
driver/split_dist_PROGNAME = ghc-split
driver/split_dist_TOPDIR = YES
driver/split_dist_INSTALL = YES
......
......@@ -13,7 +13,7 @@
# Build a perl script. Invoke like this:
#
# driver/mangler_PERL_SRC = ghc-asm.lprl
# driver/mangler_PERL_SRC = ghc-asm.pl
# driver/mangler_dist_PROGNAME = ghc-asm
#
# $(eval $(call build-perl,driver/mangler,dist))
......@@ -50,14 +50,12 @@ $(call clean-target,$1,$2,$1/$2 $$($1_$2_INPLACE))
clean_$1 : clean_$1_$2
ifneq "$$(BINDIST)" "YES"
$1/$2/$$($1_$2_PROG).prl: $1/$$($1_PERL_SRC) $$$$(unlit_INPLACE) | $$$$(dir $$$$@)/.
"$$(unlit_INPLACE)" $$(UNLIT_OPTS) $$< $$@
$1/$2/$$($1_$2_PROG): $1/$2/$$($1_$2_PROG).prl
$1/$2/$$($1_$2_PROG): $1/$$/$$($1_PERL_SRC) $$$$(unlit_INPLACE) | $$$$(dir $$$$@)/.
$$(call removeFiles,$$@)
echo '#!$$(PERL)' >> $$@
echo '$$$$TARGETPLATFORM = "$$(TARGETPLATFORM)";' >> $$@
echo '$$$$TABLES_NEXT_TO_CODE = "$(GhcEnableTablesNextToCode)";' >> $$@
echo 'my $$$$TARGETPLATFORM = "$$(TARGETPLATFORM)";' >> $$@
echo 'my $$$$TABLES_NEXT_TO_CODE = "$(GhcEnableTablesNextToCode)";' >> $$@
cat $$< >> $$@
$$($1_$2_INPLACE): $1/$2/$$($1_$2_PROG) | $$$$(dir $$$$@)/.
......
#!/usr/bin/env perl
\begin{code}
use FindBin;
%DirCount = ();
......@@ -69,6 +67,3 @@ foreach $m (sort (keys %ModCount)) {
$totcmts += $ModComments{$m};
}
printf "\n%-20s %6d %6d\n", 'TOTAL:', $tot, $totcmts;
\end{code}
utils/count_lines_PERL_SRC = count_lines.lprl
utils/count_lines_PERL_SRC = count_lines.pl
utils/count_lines_dist_PROGNAME = count_lines
$(eval $(call build-perl,utils/count_lines,dist))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment