Change 34698 by [EMAIL PROTECTED] on 2008/11/02 21:12:59
Subject: PATCH: Large omnibus patch to clean up the JRRT quotes
From: Tom Christiansen <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
Date: Sun, 02 Nov 2008 01:43:39 -0600
Affected files ...
... //depot/perl/av.c#141 edit
... //depot/perl/deb.c#60 edit
... //depot/perl/doio.c#375 edit
... //depot/perl/doop.c#208 edit
... //depot/perl/dump.c#320 edit
... //depot/perl/embed.pl#371 edit
... //depot/perl/ext/DynaLoader/dl_dyld.xs#11 edit
... //depot/perl/ext/DynaLoader/dl_next.xs#23 edit
... //depot/perl/globals.c#39 edit
... //depot/perl/gv.c#406 edit
... //depot/perl/hv.c#385 edit
... //depot/perl/locale.c#42 edit
... //depot/perl/malloc.c#134 edit
... //depot/perl/mathoms.c#92 edit
... //depot/perl/mg.c#540 edit
... //depot/perl/miniperlmain.c#55 edit
... //depot/perl/mro.c#58 edit
... //depot/perl/numeric.c#56 edit
... //depot/perl/op.c#1018 edit
... //depot/perl/os2/perlrexx.c#5 edit
... //depot/perl/pad.c#128 edit
... //depot/perl/perl.c#885 edit
... //depot/perl/perlio.c#392 edit
... //depot/perl/perly.y#95 edit
... //depot/perl/pod/perlhack.pod#140 edit
... //depot/perl/pp.c#641 edit
... //depot/perl/pp_ctl.c#708 edit
... //depot/perl/pp_hot.c#587 edit
... //depot/perl/pp_pack.c#146 edit
... //depot/perl/pp_sort.c#86 edit
... //depot/perl/pp_sys.c#571 edit
... //depot/perl/regcomp.c#670 edit
... //depot/perl/regexec.c#575 edit
... //depot/perl/run.c#57 edit
... //depot/perl/scope.c#232 edit
... //depot/perl/sv.c#1573 edit
... //depot/perl/taint.c#58 edit
... //depot/perl/toke.c#835 edit
... //depot/perl/universal.c#207 edit
... //depot/perl/utf8.c#316 edit
... //depot/perl/util.c#667 edit
... //depot/perl/vms/vms.c#233 edit
... //depot/perl/win32/perllib.c#63 edit
... //depot/perl/xsutils.c#60 edit
Differences ...
==== //depot/perl/av.c#141 (text) ====
Index: perl/av.c
--- perl/av.c#140~34694~ 2008-11-02 08:50:12.000000000 -0800
+++ perl/av.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,8 +9,10 @@
*/
/*
- * "...for the Entwives desired order, and plenty, and peace (by which they
- * meant that things should remain where they had set them)." --Treebeard
+ * '...for the Entwives desired order, and plenty, and peace (by which they
+ * meant that things should remain where they had set them).' --Treebeard
+ *
+ * [p.476 of _The Lord of the Rings_, III/iv: "Treebeard"]
*/
/*
==== //depot/perl/deb.c#60 (text) ====
Index: perl/deb.c
--- perl/deb.c#59~34585~ 2008-10-25 05:23:01.000000000 -0700
+++ perl/deb.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,8 +9,10 @@
*/
/*
- * "Didst thou think that the eyes of the White Tower were blind? Nay, I
- * have seen more than thou knowest, Gray Fool." --Denethor
+ * 'Didst thou think that the eyes of the White Tower were blind? Nay,
+ * I have seen more than thou knowest, Grey Fool.' --Denethor
+ *
+ * [p.853 of _The Lord of the Rings_, V/vii: "The Pyre of Denethor"]
*/
/*
==== //depot/perl/doio.c#375 (text) ====
Index: perl/doio.c
--- perl/doio.c#374~34679~ 2008-10-31 01:55:20.000000000 -0700
+++ perl/doio.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,10 +9,12 @@
*/
/*
- * "Far below them they saw the white waters pour into a foaming bowl, and
- * then swirl darkly about a deep oval basin in the rocks, until they found
- * their way out again through a narrow gate, and flowed away, fuming and
- * chattering, into calmer and more level reaches."
+ * Far below them they saw the white waters pour into a foaming bowl, and
+ * then swirl darkly about a deep oval basin in the rocks, until they found
+ * their way out again through a narrow gate, and flowed away, fuming and
+ * chattering, into calmer and more level reaches.
+ *
+ * [p.684 of _The Lord of the Rings_, IV/vi: "The Forbidden Pool"]
*/
/* This file contains functions that do the actual I/O on behalf of ops.
==== //depot/perl/doop.c#208 (text) ====
Index: perl/doop.c
--- perl/doop.c#207~34694~ 2008-11-02 08:50:12.000000000 -0800
+++ perl/doop.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,7 +9,9 @@
*/
/*
- * "'So that was the job I felt I had to do when I started,' thought Sam."
+ * 'So that was the job I felt I had to do when I started,' thought Sam.
+ *
+ * [p.934 of _The Lord of the Rings_, VI/iii: "Mount Doom"]
*/
/* This file contains some common functions needed to carry out certain
==== //depot/perl/dump.c#320 (text) ====
Index: perl/dump.c
--- perl/dump.c#319~34679~ 2008-10-31 01:55:20.000000000 -0700
+++ perl/dump.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,8 +9,10 @@
*/
/*
- * "'You have talked long in your sleep, Frodo,' said Gandalf gently, 'and
- * it has not been hard for me to read your mind and memory.'"
+ * 'You have talked long in your sleep, Frodo,' said Gandalf gently, 'and
+ * it has not been hard for me to read your mind and memory.'
+ *
+ * [p.220 of _The Lord of the Rings_, II/i: "Many Meetings"]
*/
/* This file contains utility routines to dump the contents of SV and OP
==== //depot/perl/embed.pl#371 (xtext) ====
Index: perl/embed.pl
--- perl/embed.pl#370~34586~ 2008-10-25 05:47:01.000000000 -0700
+++ perl/embed.pl 2008-11-02 13:12:59.000000000 -0800
@@ -50,7 +50,9 @@
Up to the threshold of the door there mounted a flight of twenty-seven
broad stairs, hewn by some unknown art of the same black stone. This
-was the only entrance to the tower.
+was the only entrance to the tower; ...
+
+ [p.577 of _The Lord of the Rings_, III/x: "The Voice of Saruman"]
EOW
==== //depot/perl/ext/DynaLoader/dl_dyld.xs#11 (text) ====
Index: perl/ext/DynaLoader/dl_dyld.xs
--- perl/ext/DynaLoader/dl_dyld.xs#10~32703~ 2007-12-22 08:17:01.000000000
-0800
+++ perl/ext/DynaLoader/dl_dyld.xs 2008-11-02 13:12:59.000000000 -0800
@@ -9,11 +9,13 @@
*/
/*
- And Gandalf said: 'Many folk like to know beforehand what is to
- be set on the table; but those who have laboured to prepare the
- feast like to keep their secret; for wonder makes the words of
- praise louder.'
-*/
+ * And Gandalf said: 'Many folk like to know beforehand what is to
+ * be set on the table; but those who have laboured to prepare the
+ * feast like to keep their secret; for wonder makes the words of
+ * praise louder.'
+ *
+ * [p.970 of _The Lord of the Rings_, VI/v: "The Steward and the King"]
+ */
/* Porting notes:
==== //depot/perl/ext/DynaLoader/dl_next.xs#23 (text) ====
Index: perl/ext/DynaLoader/dl_next.xs
--- perl/ext/DynaLoader/dl_next.xs#22~32703~ 2007-12-22 08:17:01.000000000
-0800
+++ perl/ext/DynaLoader/dl_next.xs 2008-11-02 13:12:59.000000000 -0800
@@ -8,11 +8,13 @@
*/
/*
- And Gandalf said: 'Many folk like to know beforehand what is to
- be set on the table; but those who have laboured to prepare the
- feast like to keep their secret; for wonder makes the words of
- praise louder.'
-*/
+ * And Gandalf said: 'Many folk like to know beforehand what is to
+ * be set on the table; but those who have laboured to prepare the
+ * feast like to keep their secret; for wonder makes the words of
+ * praise louder.'
+ *
+ * [p.970 of _The Lord of the Rings_, VI/v: "The Steward and the King"]
+ */
/* Porting notes:
==== //depot/perl/globals.c#39 (text) ====
Index: perl/globals.c
--- perl/globals.c#38~25866~ 2005-10-28 14:09:31.000000000 -0700
+++ perl/globals.c 2008-11-02 13:12:59.000000000 -0800
@@ -8,8 +8,10 @@
*/
/*
- * "For the rest, they shall represent the other Free Peoples of the World:
- * Elves, Dwarves, and Men." --Elrond
+ * 'For the rest, they shall represent the other Free Peoples of the World:
+ * Elves, Dwarves, and Men.' --Elrond
+ *
+ * [p.275 of _The Lord of the Rings_, II/iii: "The Ring Goes South"]
*/
/* This file exists to #include "perl.h" _ONCE_ with
==== //depot/perl/gv.c#406 (text) ====
Index: perl/gv.c
--- perl/gv.c#405~34679~ 2008-10-31 01:55:20.000000000 -0700
+++ perl/gv.c 2008-11-02 13:12:59.000000000 -0800
@@ -10,11 +10,13 @@
/*
* 'Mercy!' cried Gandalf. 'If the giving of information is to be the cure
- * of your inquisitiveness, I shall spend all the rest of my days answering
+ * of your inquisitiveness, I shall spend all the rest of my days in answering
* you. What more do you want to know?'
* 'The names of all the stars, and of all living things, and the whole
* history of Middle-earth and Over-heaven and of the Sundering Seas,'
* laughed Pippin.
+ *
+ * [p.599 of _The Lord of the Rings_, III/xi: "The Palantír"]
*/
/*
==== //depot/perl/hv.c#385 (text) ====
Index: perl/hv.c
--- perl/hv.c#384~34675~ 2008-10-30 16:22:31.000000000 -0700
+++ perl/hv.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,7 +9,11 @@
*/
/*
- * "I sit beside the fire and think of all that I have seen." --Bilbo
+ * I sit beside the fire and think
+ * of all that I have seen.
+ * --Bilbo
+ *
+ * [p.278 of _The Lord of the Rings_, II/iii: "The Ring Goes South"]
*/
/*
==== //depot/perl/locale.c#42 (text) ====
Index: perl/locale.c
--- perl/locale.c#41~34585~ 2008-10-25 05:23:01.000000000 -0700
+++ perl/locale.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,13 +9,15 @@
*/
/*
- * A Elbereth Gilthoniel,
- * silivren penna míriel
- * o menel aglar elenath!
- * Na-chaered palan-díriel
- * o galadhremmin ennorath,
- * Fanuilos, le linnathon
- * nef aear, si nef aearon!
+ * A Elbereth Gilthoniel,
+ * silivren penna míriel
+ * o menel aglar elenath!
+ * Na-chaered palan-díriel
+ * o galadhremmin ennorath,
+ * Fanuilos, le linnathon
+ * nef aear, si nef aearon!
+ *
+ * [p.238 of _The Lord of the Rings_, II/i: "Many Meetings"]
*/
/* utility functions for handling locale-specific stuff like what
==== //depot/perl/malloc.c#134 (text) ====
Index: perl/malloc.c
--- perl/malloc.c#133~34579~ 2008-10-24 23:38:00.000000000 -0700
+++ perl/malloc.c 2008-11-02 13:12:59.000000000 -0800
@@ -3,7 +3,9 @@
*/
/*
- * "'The Chamber of Records,' said Gimli. 'I guess that is where we now
stand.'"
+ * 'The Chamber of Records,' said Gimli. 'I guess that is where we now stand.'
+ *
+ * [p.321 of _The Lord of the Rings_, II/v: "The Bridge of Khazad-Dûm"]
*/
/* This file contains Perl's own implementation of the malloc library.
==== //depot/perl/mathoms.c#92 (text) ====
Index: perl/mathoms.c
--- perl/mathoms.c#91~34675~ 2008-10-30 16:22:31.000000000 -0700
+++ perl/mathoms.c 2008-11-02 13:12:59.000000000 -0800
@@ -8,10 +8,12 @@
*/
/*
- * "Anything that Hobbits had no immediate use for, but were unwilling to
- * throw away, they called a mathom. Their dwellings were apt to become
- * rather crowded with mathoms, and many of the presents that passed from
- * hand to hand were of that sort."
+ * Anything that Hobbits had no immediate use for, but were unwilling to
+ * throw away, they called a mathom. Their dwellings were apt to become
+ * rather crowded with mathoms, and many of the presents that passed from
+ * hand to hand were of that sort.
+ *
+ * [p.5 of _The Lord of the Rings_: "Prologue"]
*/
#ifndef NO_MATHOMS
==== //depot/perl/mg.c#540 (text) ====
Index: perl/mg.c
--- perl/mg.c#539~34694~ 2008-11-02 08:50:12.000000000 -0800
+++ perl/mg.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,8 +9,10 @@
*/
/*
- * "Sam sat on the ground and put his head in his hands. 'I wish I had never
- * come here, and I don't want to see no more magic,' he said, and fell
silent."
+ * Sam sat on the ground and put his head in his hands. 'I wish I had never
+ * come here, and I don't want to see no more magic,' he said, and fell
silent.
+ *
+ * [p.363 of _The Lord of the Rings_, II/vii: "The Mirror of Galadriel"]
*/
/*
==== //depot/perl/miniperlmain.c#55 (text) ====
Index: perl/miniperlmain.c
--- perl/miniperlmain.c#54~32237~ 2007-11-07 15:23:27.000000000 -0800
+++ perl/miniperlmain.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,7 +9,11 @@
*/
/*
- * "The Road goes ever on and on, down from the door where it began."
+ * The Road goes ever on and on
+ * Down from the door where it began.
+ *
+ * [Bilbo on p.35 of _The Lord of the Rings_, I/i: "A Long-Expected Party"]
+ * [Frodo on p.73 of _The Lord of the Rings_, I/iii: "Three Is Company"]
*/
/* This file contains the main() function for the perl interpreter.
==== //depot/perl/mro.c#58 (text) ====
Index: perl/mro.c
--- perl/mro.c#57~34675~ 2008-10-30 16:22:31.000000000 -0700
+++ perl/mro.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,8 +9,10 @@
*/
/*
- * "Which order shall we go in?" said Frodo. "Eldest first, or quickest first?
- * You'll be last either way, Master Peregrin."
+ * 'Which order shall we go in?' said Frodo. 'Eldest first, or quickest first?
+ * You'll be last either way, Master Peregrin.'
+ *
+ * [p.101 of _The Lord of the Rings_, I/iii: "A Conspiracy Unmasked"]
*/
/*
==== //depot/perl/numeric.c#56 (text) ====
Index: perl/numeric.c
--- perl/numeric.c#55~34585~ 2008-10-25 05:23:01.000000000 -0700
+++ perl/numeric.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,8 +9,10 @@
*/
/*
- * "That only makes eleven (plus one mislaid) and not fourteen, unless
- * wizards count differently to other people."
+ * "That only makes eleven (plus one mislaid) and not fourteen,
+ * unless wizards count differently to other people." --Beorn
+ *
+ * [p.115 of _The Hobbit_: "Queer Lodgings"]
*/
/*
==== //depot/perl/op.c#1018 (text) ====
Index: perl/op.c
--- perl/op.c#1017~34695~ 2008-11-02 09:04:09.000000000 -0800
+++ perl/op.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,11 +9,13 @@
*/
/*
- * "You see: Mr. Drogo, he married poor Miss Primula Brandybuck. She was
- * our Mr. Bilbo's first cousin on the mother's side (her mother being the
- * youngest of the Old Took's daughters); and Mr. Drogo was his second
- * cousin. So Mr. Frodo is his first *and* second cousin, once removed
- * either way, as the saying is, if you follow me." --the Gaffer
+ * 'You see: Mr. Drogo, he married poor Miss Primula Brandybuck. She was
+ * our Mr. Bilbo's first cousin on the mother's side (her mother being the
+ * youngest of the Old Took's daughters); and Mr. Drogo was his second
+ * cousin. So Mr. Frodo is his first *and* second cousin, once removed
+ * either way, as the saying is, if you follow me.' --the Gaffer
+ *
+ * [p.23 of _The Lord of the Rings_, I/i: "A Long-Expected Party"]
*/
/* This file contains the functions that create, manipulate and optimize
==== //depot/perl/os2/perlrexx.c#5 (text) ====
Index: perl/os2/perlrexx.c
--- perl/os2/perlrexx.c#4~13805~ 2001-12-19 07:04:03.000000000 -0800
+++ perl/os2/perlrexx.c 2008-11-02 13:12:59.000000000 -0800
@@ -8,7 +8,11 @@
#include <os2.h>
/*
- * "The Road goes ever on and on, down from the door where it began."
+ * The Road goes ever on and on
+ * Down from the door where it began.
+ *
+ * [Bilbo on p.35 of _The Lord of the Rings_, I/i: "A Long-Expected Party"]
+ * [Frodo on p.73 of _The Lord of the Rings_, I/iii: "Three Is Company"]
*/
#ifdef OEMVS
==== //depot/perl/pad.c#128 (text) ====
Index: perl/pad.c
--- perl/pad.c#127~34675~ 2008-10-30 16:22:31.000000000 -0700
+++ perl/pad.c 2008-11-02 13:12:59.000000000 -0800
@@ -5,13 +5,17 @@
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
+ */
+
+/*
+ * 'Anyway: there was this Mr. Frodo left an orphan and stranded, as you
+ * might say, among those queer Bucklanders, being brought up anyhow in
+ * Brandy Hall. A regular warren, by all accounts. Old Master Gorbadoc
+ * never had fewer than a couple of hundred relations in the place.
+ * Mr. Bilbo never did a kinder deed than when he brought the lad back
+ * to live among decent folk.' --the Gaffer
*
- * "Anyway: there was this Mr Frodo left an orphan and stranded, as you
- * might say, among those queer Bucklanders, being brought up anyhow in
- * Brandy Hall. A regular warren, by all accounts. Old Master Gorbadoc
- * never had fewer than a couple of hundred relations in the place. Mr
- * Bilbo never did a kinder deed than when he brought the lad back to
- * live among decent folk." --the Gaffer
+ * [p.23 of _The Lord of the Rings_, I/i: "A Long-Expected Party"]
*/
/* XXX DAPM
==== //depot/perl/perl.c#885 (text) ====
Index: perl/perl.c
--- perl/perl.c#884~34694~ 2008-11-02 08:50:12.000000000 -0800
+++ perl/perl.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,7 +9,11 @@
*/
/*
- * "A ship then new they built for him/of mithril and of elven glass" --Bilbo
+ * A ship then new they built for him
+ * of mithril and of elven-glass
+ * --from Bilbo's song of Eärendil
+ *
+ * [p.236 of _The Lord of the Rings_, II/i: "Many Meetings"]
*/
/* This file contains the top-level functions that are used to create, use
==== //depot/perl/perlio.c#392 (text) ====
Index: perl/perlio.c
--- perl/perlio.c#391~34679~ 2008-10-31 01:55:20.000000000 -0700
+++ perl/perlio.c 2008-11-02 13:12:59.000000000 -0800
@@ -10,6 +10,8 @@
/*
* Hour after hour for nearly three weary days he had jogged up and down,
* over passes, and through long dales, and across many streams.
+ *
+ * [pp.791-792 of _The Lord of the Rings_, V/iii: "The Muster of Rohan"]
*/
/* This file contains the functions needed to implement PerlIO, which
==== //depot/perl/perly.y#95 (text) ====
Index: perl/perly.y
--- perl/perly.y#94~34585~ 2008-10-25 05:23:01.000000000 -0700
+++ perl/perly.y 2008-11-02 13:12:59.000000000 -0800
@@ -10,8 +10,12 @@
/*
* 'I see,' laughed Strider. 'I look foul and feel fair. Is that it?
- * All that is gold does not glitter, not all those who wander are lost.'
+ * All that is gold does not glitter, not all those who wander are lost.'
*
+ * [p.171 of _The Lord of the Rings_, I/x: "Strider"]
+ */
+
+/*
* This file holds the grammar for the Perl language. If edited, you need
* to run regen_perly.pl, which re-creates the files perly.h, perly.tab
* and perly.act which are derived from this.
==== //depot/perl/pod/perlhack.pod#140 (text) ====
Index: perl/pod/perlhack.pod
--- perl/pod/perlhack.pod#139~34568~ 2008-10-24 09:35:48.000000000 -0700
+++ perl/pod/perlhack.pod 2008-11-02 13:12:59.000000000 -0800
@@ -3584,7 +3584,63 @@
If you can do these things, you've started on the long road to Perl porting.
Thanks for wanting to help make Perl better - and happy hacking!
+=head2 Metaphoric Quotations
+
+If you recognized the quote about the Road above, you're in luck.
+
+Most software projects begin each file with a literal description of each
+file's purpose. Perl instead begins each with a literary allusion to that
+file's purpose.
+
+Like chapters in many books, all top-level Perl source files (along with a
+few others here and there) begin with an epigramic inscription that alludes,
+indirectly and metaphorically, to the material you're about to read.
+
+Quotations are taken from writings of J.R.R Tolkien pertaining to his
+Legendarium, almost always from I<The Lord of the Rings>. Chapters and
+page numbers are given using the following editions:
+
+=over 4
+
+=item *
+
+I<The Hobbit>, by J.R.R. Tolkien. The hardcover, 70th-anniversary
+edition of 2007 was used, published in the UK by Harper Collins Publishers
+and in the US by the Houghton Mifflin Company.
+
+=item *
+
+I<The Lord of the Rings>, by J.R.R. Tolkien. The hardcover,
+50th-anniversary edition of 2004 was used, published in the UK by Harper
+Collins Publishers and in the US by the Houghton Mifflin Company.
+
+=item *
+
+I<The Lays of Beleriand>, by J.R.R. Tolkien and published posthumously by his
+son and literary executor, C.J.R. Tolkien, being the 3rd of the 12 volumes
+in Christopher's mammoth I<History of Middle Earth>. Page numbers derive
+from the hardcover edition, first published in 1983 by George Allen &
+Unwin; no page numbers changed for the special 3-volume omnibus edition of
+2002 or the various trade-paper editions, all again now by Harper Collins
+or Houghton Mifflin.
+
+=back
+
+Other JRRT books fair game for quotes would thus include I<The Adventures of
+Tom Bombadil>, I<The Silmarillion>, I<Unfinished Tales>, and I<The Tale of
+the Children of Hurin>, all but the first posthumously assembled by CJRT.
+But I<The Lord of the Rings> itself is perfectly fine and probably best to
+quote from, provided you can find a suitable quote there.
+
+So if you were to supply a new, complete, top-level source file to add to
+Perl, you should conform to this peculiar practice by yourself selecting an
+appropriate quotation from Tolkien, retaining the original spelling and
+punctuation and using the same format the rest of the quotes are in.
+Indirect and oblique is just fine; remember, it's a metaphor, so being meta
+is, after all, what it's for.
+
=head1 AUTHOR
This document was written by Nathan Torkington, and is maintained by
the perl5-porters mailing list.
+
==== //depot/perl/pp.c#641 (text) ====
Index: perl/pp.c
--- perl/pp.c#640~34694~ 2008-11-02 08:50:12.000000000 -0800
+++ perl/pp.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,8 +9,11 @@
*/
/*
- * "It's a big house this, and very peculiar. Always a bit more to discover,
- * and no knowing what you'll find around a corner. And Elves, sir!" --Samwise
+ * 'It's a big house this, and very peculiar. Always a bit more
+ * to discover, and no knowing what you'll find round a corner.
+ * And Elves, sir!' --Samwise Gamgee
+ *
+ * [p.225 of _The Lord of the Rings_, II/i: "Many Meetings"]
*/
/* This file contains general pp ("push/pop") functions that execute the
==== //depot/perl/pp_ctl.c#708 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#707~34694~ 2008-11-02 08:50:12.000000000 -0800
+++ perl/pp_ctl.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,12 +9,14 @@
*/
/*
- * Now far ahead the Road has gone,
- * And I must follow, if I can,
- * Pursuing it with eager feet,
- * Until it joins some larger way
- * Where many paths and errands meet.
- * And whither then? I cannot say.
+ * Now far ahead the Road has gone,
+ * And I must follow, if I can,
+ * Pursuing it with eager feet,
+ * Until it joins some larger way
+ * Where many paths and errands meet.
+ * And whither then? I cannot say.
+ *
+ * [Bilbo on p.35 of _The Lord of the Rings_, I/i: "A Long-Expected Party"]
*/
/* This file contains control-oriented pp ("push/pop") functions that
==== //depot/perl/pp_hot.c#587 (text) ====
Index: perl/pp_hot.c
--- perl/pp_hot.c#586~34694~ 2008-11-02 08:50:12.000000000 -0800
+++ perl/pp_hot.c 2008-11-02 13:12:59.000000000 -0800
@@ -12,8 +12,10 @@
* Then he heard Merry change the note, and up went the Horn-cry of Buckland,
* shaking the air.
*
- * Awake! Awake! Fear, Fire, Foes! Awake!
- * Fire, Foes! Awake!
+ * Awake! Awake! Fear, Fire, Foes! Awake!
+ * Fire, Foes! Awake!
+ *
+ * [p.1007 of _The Lord of the Rings_, VI/viii: "The Scouring of the
Shire"]
*/
/* This file contains 'hot' pp ("push/pop") functions that
==== //depot/perl/pp_pack.c#146 (text) ====
Index: perl/pp_pack.c
--- perl/pp_pack.c#145~34653~ 2008-10-29 16:04:34.000000000 -0700
+++ perl/pp_pack.c 2008-11-02 13:12:59.000000000 -0800
@@ -14,6 +14,8 @@
* wooden spoon, a short two-pronged fork and some skewers were stowed; and
* hidden at the bottom of the pack in a flat wooden box a dwindling treasure,
* some salt.
+ *
+ * [p.653 of _The Lord of the Rings_, IV/iv: "Of Herbs and Stewed Rabbit"]
*/
/* This file contains pp ("push/pop") functions that
==== //depot/perl/pp_sort.c#86 (text) ====
Index: perl/pp_sort.c
--- perl/pp_sort.c#85~34695~ 2008-11-02 09:04:09.000000000 -0800
+++ perl/pp_sort.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,8 +9,10 @@
*/
/*
- * ...they shuffled back towards the rear of the line. 'No, not at the
- * rear!' the slave-driver shouted. 'Three files up. And stay there...
+ * ...they shuffled back towards the rear of the line. 'No, not at the
+ * rear!' the slave-driver shouted. 'Three files up. And stay there...
+ *
+ * [p.931 of _The Lord of the Rings_, VI/ii: "The Land of Shadow"]
*/
/* This file contains pp ("push/pop") functions that
==== //depot/perl/pp_sys.c#571 (text) ====
Index: perl/pp_sys.c
--- perl/pp_sys.c#570~34694~ 2008-11-02 08:50:12.000000000 -0800
+++ perl/pp_sys.c 2008-11-02 13:12:59.000000000 -0800
@@ -13,6 +13,8 @@
* cloven by a great fissure, out of which the red glare came, now leaping
* up, now dying down into darkness; and all the while far below there was
* a rumour and a trouble as of great engines throbbing and labouring.
+ *
+ * [p.945 of _The Lord of the Rings_, VI/iii: "Mount Doom"]
*/
/* This file contains system pp ("push/pop") functions that
==== //depot/perl/regcomp.c#670 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c#669~34697~ 2008-11-02 10:31:19.000000000 -0800
+++ perl/regcomp.c 2008-11-02 13:12:59.000000000 -0800
@@ -2,7 +2,9 @@
*/
/*
- * "A fair jaw-cracker dwarf-language must be." --Samwise Gamgee
+ * 'A fair jaw-cracker dwarf-language must be.' --Samwise Gamgee
+ *
+ * [p.285 of _The Lord of the Rings_, II/iii: "The Ring Goes South"]
*/
/* This file contains functions for compiling a regular expression. See
==== //depot/perl/regexec.c#575 (text) ====
Index: perl/regexec.c
--- perl/regexec.c#574~34675~ 2008-10-30 16:22:31.000000000 -0700
+++ perl/regexec.c 2008-11-02 13:12:59.000000000 -0800
@@ -2,7 +2,11 @@
*/
/*
- * "One Ring to rule them all, One Ring to find them..."
+ * One Ring to rule them all, One Ring to find them
+ &
+ * [p.v of _The Lord of the Rings_, opening poem]
+ * [p.50 of _The Lord of the Rings_, I/iii: "The Shadow of the Past"]
+ * [p.254 of _The Lord of the Rings_, II/ii: "The Council of Elrond"]
*/
/* This file contains functions for executing a regular expression. See
==== //depot/perl/run.c#57 (text) ====
Index: perl/run.c
--- perl/run.c#56~26732~ 2006-01-08 11:53:11.000000000 -0800
+++ perl/run.c 2008-11-02 13:12:59.000000000 -0800
@@ -26,9 +26,11 @@
#include "perl.h"
/*
- * "Away now, Shadowfax! Run, greatheart, run as you have never run before!
- * Now we are come to the lands where you were foaled, and every stone you
- * know. Run now! Hope is in speed!" --Gandalf
+ * 'Away now, Shadowfax! Run, greatheart, run as you have never run before!
+ * Now we are come to the lands where you were foaled, and every stone you
+ * know. Run now! Hope is in speed!' --Gandalf
+ *
+ * [p.600 of _The Lord of the Rings_, III/xi: "The Palantír"]
*/
int
==== //depot/perl/scope.c#232 (text) ====
Index: perl/scope.c
--- perl/scope.c#231~34679~ 2008-10-31 01:55:20.000000000 -0700
+++ perl/scope.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,8 +9,10 @@
*/
/*
- * "For the fashion of Minas Tirith was such that it was built on seven
- * levels..."
+ * For the fashion of Minas Tirith was such that it was built on seven
+ * levels...
+ *
+ * [p.751 of _The Lord of the Rings_, V/i: "Minas Tirith"]
*/
/* This file contains functions to manipulate several of Perl's stacks;
==== //depot/perl/sv.c#1573 (text) ====
Index: perl/sv.c
--- perl/sv.c#1572~34694~ 2008-11-02 08:50:12.000000000 -0800
+++ perl/sv.c 2008-11-02 13:12:59.000000000 -0800
@@ -6,7 +6,16 @@
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
*
- * "I wonder what the Entish is for 'yes' and 'no'," he thought.
+ */
+
+/*
+ * 'I wonder what the Entish is for "yes" and "no",' he thought.
+ * --Pippin
+ *
+ * [p.480 of _The Lord of the Rings_, III/iv: "Treebeard"]
+ */
+
+/*
*
*
* This file contains the code that creates, manipulates and destroys
==== //depot/perl/taint.c#58 (text) ====
Index: perl/taint.c
--- perl/taint.c#57~34671~ 2008-10-30 14:39:14.000000000 -0700
+++ perl/taint.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,9 +9,11 @@
*/
/*
- * "...we will have peace, when you and all your works have perished--and
- * the works of your dark master to whom you would deliver us. You are a
- * liar, Saruman, and a corrupter of men's hearts." --Theoden
+ * '...we will have peace, when you and all your works have perished--and
+ * the works of your dark master to whom you would deliver us. You are a
+ * liar, Saruman, and a corrupter of men's hearts.' --Théoden
+ *
+ * [p.580 of _The Lord of the Rings_, III/x: "The Voice of Saruman"]
*/
/* This file contains a few functions for handling data tainting in Perl
==== //depot/perl/toke.c#835 (text) ====
Index: perl/toke.c
--- perl/toke.c#834~34694~ 2008-11-02 08:50:12.000000000 -0800
+++ perl/toke.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,7 +9,9 @@
*/
/*
- * "It all comes from here, the stench and the peril." --Frodo
+ * 'It all comes from here, the stench and the peril.' --Frodo
+ *
+ * [p.719 of _The Lord of the Rings_, IV/ix: "Shelob's Lair"]
*/
/*
==== //depot/perl/universal.c#207 (text) ====
Index: perl/universal.c
--- perl/universal.c#206~34694~ 2008-11-02 08:50:12.000000000 -0800
+++ perl/universal.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,9 +9,11 @@
*/
/*
- * "The roots of those mountains must be roots indeed; there must be
- * great secrets buried there which have not been discovered since the
- * beginning." --Gandalf, relating Gollum's story
+ * '"The roots of those mountains must be roots indeed; there must be
+ * great secrets buried there which have not been discovered since the
+ * beginning."' --Gandalf, relating Gollum's history
+ *
+ * [p.54 of _The Lord of the Rings_, I/ii: "The Shadow of the Past"]
*/
/* This file contains the code that implements the functions in Perl's
==== //depot/perl/utf8.c#316 (text) ====
Index: perl/utf8.c
--- perl/utf8.c#315~34653~ 2008-10-29 16:04:34.000000000 -0700
+++ perl/utf8.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,16 +9,23 @@
*/
/*
- * 'What a fix!' said Sam. 'That's the one place in all the lands we've ever
- * heard of that we don't want to see any closer; and that's the one place
- * we're trying to get to! And that's just where we can't get, nohow.'
+ * 'What a fix!' said Sam. 'That's the one place in all the lands we've ever
+ * heard of that we don't want to see any closer; and that's the one place
+ * we're trying to get to! And that's just where we can't get, nohow.'
+ *
+ * [p.603 of _The Lord of the Rings_, IV/I: "The Taming of Sméagol"]
*
* 'Well do I understand your speech,' he answered in the same language;
* 'yet few strangers do so. Why then do you not speak in the Common Tongue,
- * as is the custom in the West, if you wish to be answered?'
+ * as is the custom in the West, if you wish to be answered?'
+ * --Gandalf, addressing Théoden's door wardens
+ *
+ * [p.508 of _The Lord of the Rings_, III/vi: "The King of the Golden
Hall"]
*
* ...the travellers perceived that the floor was paved with stones of many
* hues; branching runes and strange devices intertwined beneath their feet.
+ *
+ * [p.512 of _The Lord of the Rings_, III/vi: "The King of the Golden
Hall"]
*/
#include "EXTERN.h"
==== //depot/perl/util.c#667 (text) ====
Index: perl/util.c
--- perl/util.c#666~34694~ 2008-11-02 08:50:12.000000000 -0800
+++ perl/util.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,8 +9,10 @@
*/
/*
- * "Very useful, no doubt, that was to Saruman; yet it seems that he was
- * not content." --Gandalf
+ * 'Very useful, no doubt, that was to Saruman; yet it seems that he was
+ * not content.' --Gandalf to Pippin
+ *
+ * [p.598 of _The Lord of the Rings_, III/xi: "The Palantír"]
*/
/* This file contains assorted utility routines.
==== //depot/perl/vms/vms.c#233 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#232~34668~ 2008-10-30 11:17:04.000000000 -0700
+++ perl/vms/vms.c 2008-11-02 13:12:59.000000000 -0800
@@ -12,14 +12,15 @@
*/
/*
- * Yet small as was their hunted band
- * still fell and fearless was each hand,
- * and strong deeds they wrought yet oft,
- * and loved the woods, whose ways more soft
- * them seemed than thralls of that black throne
- * to live and languish in halls of stone.
+ * Yet small as was their hunted band
+ * still fell and fearless was each hand,
+ * and strong deeds they wrought yet oft,
+ * and loved the woods, whose ways more soft
+ * them seemed than thralls of that black throne
+ * to live and languish in halls of stone.
+ * "The Lay of Leithian", Canto II, lines 135-40
*
- * The Lay of Leithian, 135-40
+ * [p.162 of _The Lays of Beleriand_]
*/
#include <acedef.h>
==== //depot/perl/win32/perllib.c#63 (text) ====
Index: perl/win32/perllib.c
--- perl/win32/perllib.c#62~31211~ 2007-05-13 09:35:02.000000000 -0700
+++ perl/win32/perllib.c 2008-11-02 13:12:59.000000000 -0800
@@ -1,5 +1,9 @@
/*
- * "The Road goes ever on and on, down from the door where it began."
+ * The Road goes ever on and on
+ * Down from the door where it began.
+ *
+ * [Bilbo on p.35 of _The Lord of the Rings_, I/i: "A Long-Expected Party"]
+ * [Frodo on p.73 of _The Lord of the Rings_, I/iii: "Three Is Company"]
*/
#define PERLIO_NOT_STDIO 0
#include "EXTERN.h"
==== //depot/perl/xsutils.c#60 (text) ====
Index: perl/xsutils.c
--- perl/xsutils.c#59~34679~ 2008-10-31 01:55:20.000000000 -0700
+++ perl/xsutils.c 2008-11-02 13:12:59.000000000 -0800
@@ -9,8 +9,10 @@
*/
/*
- * "Perilous to us all are the devices of an art deeper than we possess
- * ourselves." --Gandalf
+ * 'Perilous to us all are the devices of an art deeper than we possess
+ * ourselves.' --Gandalf
+ *
+ * [p.597 of _The Lord of the Rings_, III/xi: "The Palantír"]
*/
End of Patch.
