\begindata{arbiter,538995720} \V 2 \begindata{lset,538995976} \V 1 \begindata{lset,539560200} \V 1 \begindata{lset,539559944} \V 1 \begindata{cel,539559688} \V 2 \begindata{text,539629320} \textdsversion{12} \template{default} \define{hanging menu:[Justify,Hanging] attr:[LeftMargin LeftMargin Cm 166461] attr:[RightMargin RightMargin Cm 166461] attr:[Indent LeftMargin Cm -83230]} \leftindent{\bigger{\bigger{Birth A Collection of Random Quotations at Christmas }}WJHansen December, 1988 } Excerpts from The Holy Bible are from the Revised Standard Version, Thomas Nelson and Sons, (New York, 1953). Most of the cross references are in the original. Dates for the chronology ordering are more or less from The Jerusalem Bible. \heading{Usage:} \italic{First empower the Ness at the right} :::::::::::::::::::::::::::> \italic{(Scroll to its end and click on the "Empower" button.)} Click on an entry in a \bold{CF:} field and you will be transferred to the cited quotation, if it is in the data base. The \bold{Back} button returns you to the most recent place you came from. (This is a ring of five elements. Five presses of Back will bring you back to where you started.) \bold{Next} and \bold{Prev} each move to an adjacent quotation. \bold{Sort}ing takes a few seconds and destroys all marks in the Back button queue. - \bold{Chapter: Luke 2} 4 And Joseph also went up from Galilee, from the city of Nazareth, to Judea, to the city of David, which is called Bethlehem, because he was of the house and lineage of David, 5 to be enrolled with Mary, his betrothed, who was with child. 6 And while they were there, the time came for her to be delivered. 7 And she gave birth to her firstborn son and wrapped him in swaddling cloths, and laid him in a manger, because there was no place for them in the inn. 8 And in that region there were shepherds out in the field, keeping watch over their flock by night. 9 And an angel of the Lord appeared to them, and they were filled with fear. 10 And the angel said to them, "Be not afraid; for behold, I bring you news of a great joy which will come to all the people; 11 for to you is born this day in the city of David a Savior, who is Christ the Lord. 12 And this will be a sign for you; you will find a babe wrapped in swaddling cloths and lying in a manger." 13 And suddenly there was with the angel a multitude of the heavenly host praising God and saying, \hanging{14 "Glory to God in the Highest, and on earth peace among men with whom he is pleased."} 15 When the angels went away from them into heaven, the shepherds said to one another, "Let us go over to Bethlehem and see this thing that has happened, which the Lord has made known to us." 16 And they went with haste, and found Mary and Joseph, and the babe lying in a manger. 17 And when they saw it they made known the saying which had been told them concerning this child; 18 and all who heard it wondered at what the shepherds had told them. 19 But Mary kept all these things, pondering them in her heart. 20 And the shepherds returned, glorifying and praising God for all they had heard and seen, as it had been told them. Note: In school one is told never to begin or end a sentence with and. Note: The angel seems to think he knows to whom the child was born. Was the father really one of the shepherds? CF: Luke 1.11; Luke 1.27; Luke 2.51; Luke 3.22; Luke 19.38; Acts 2.36; Acts 5.19; Acts 5.31; Matthew 16.16; John 4.42; Isaiah 7.14; As You Like It II.7; Story of Babar; Chron: 76 Browse: 10 - \bold{Chapter: Moby Dick LXXVIII} Author: Herman Melville [Tashtego, while emptying the oil from a whale's head, has fallen in nad the head has commenced to sink. Queequeg dove in after both and eventually emerged dragging the victim.] Now how had this noble resuce been accomplished? Why, diving after the slowly descending head, Queequeg with his keen sword had made side lunges near its bottom, so as to scuttle a large hole there; then dropping his sword, had thrust his long arm far inwards and upwards, and so hauled out our poor Tash by the head. He averred, that upon first thrusting in for him, a leg was presented; but well knowing that that was not as it ought to be and might occasion great trouble;--he had thrust back the leg, and by a dexterous heave and toss, had wrought a somerset upon the Indian; so that with the next trial, he came forth in the good old way--head foremost. As for the great head itself, that was doing as well as could be expected. Note: Not necessarily Caesarean section. CF: Macbeth V.8; Luke 2.7; Chron: 1852 Browse: 15 - \bold{Chapter: Luke 1} 26 In the sixth month the angel Gabriel was sent from God to a city of Galilee named Nazareth, 27 to a virgin betrothed to a man whose name was Joseph, of the house of David; and the virgin's name was Mary. 28 And he came to her and said, "Hail, O favored one, the Lord is with you!" 29 But she was greatly troubled at the saying, and considered in her mind what sort of greeting this might be. 30 And the angel said to her, "Do not be afraid, Mary, for you have found favor with God. 31 And behold, you will conceive in your womb and bear a son and you shall call his name Jesus. \hanging{32 He will be great, and will be called the Son of the Most High; and the Lord God will give to him the throne of his father David, 33 and he will reign over the house of Jacob for ever; and of his kingdom there will be no end."} 34 And Mary said to the angel, "How can this be since I have no husband?" 35 And the angel said to her, \hanging{"The Holy Spirit will come upon you, and the power of the Most High will overshadow you; therefore the child to be born will be called holy, the Son of God.} 36 And behold, your kinswoman Elizabeth in her old age has also conceived a son; and this is the sixth month with her who was called barren. 37 For with God nothing will be impossible." Note: House of David? Nothing will be impossible. Note: Verse 28 is sometimes extended with: "Blessed are you among women." CF: Genesis 18.14; Luke 1.13; Luke 1.18; Luke 2.21; Luke 1.20-21; Matthew 28.18; Daniel 2.44; John 1.13; Chron: 76 Browse: 20 - \bold{Chapter: Isaiah 7} 10 Again the Lord spoke to Ahaz, 11 "Ask a sign of the Lord you God; let it be as deep as Sheol or high as heaven." 12 But Ahaz said, "I will not ask, and I will not put the Lord to the test." 13 And he said, "Hear then, O house of David! Is it too little for you to weary men, that you weary my God also? 14 Therefore the Lord himself will give you a sign. Behold, a young woman shall conceive and bear a son, and shall call his name Immanuel. 15 He shall eat curds and honey when he knows how to refuse the evil and choose the good. 16 For before the child knows how to refuse the evil and choose the good, the land before whose two kings you are in dread will be desserted. ..." Note: Other readings substitute \italic{virgin is with child and shall bear} for \italic{young woman shall conceive and bear.} CF: Matthew 1.23; Chron: -740 Browse: 30 - \bold{Chapter: Matthew 1} 18 Now the birth of Jesus Christ took place in this way. When his mother Mary had been betrothed to Joseph, before they came together she was found to be with child of the Holy Spirit; 19 and her husband Joseph, being a just man and unwilling to put her to shame, resolved to divorce her quietly. 20 But as he considered this, behold, an angel of the Lored appeared to him in a dream, saying, Joseph, son of David, do not fear to take Mary your wife, for that which is conceived in her is of the Holy Spirit; 21 and she will bear you a son, and you shall call his name Jesus, for he will save his people from their sins." 22 All this took place to fulfill what the Lord had spoken by the prophet: \hanging{23 "Behold, a virgin shall conceive and bear a son, and his name shall be called Emmanuel"} (which means, God with us). 24 When Joseph woke from sleep, he did as the angel of the Lord commanded him; he took his wife, 25 but knew her not until she had borne a son; and he called his name Jesus. CF: Luke 1.26-38; Luke 2.21; John 1.29; Acts 13.23; Isaiah 7.14; Through the Looking Glass 8.85-91; Chron: 72 Browse: 35 - \bold{Chapter: Macbeth IV} Author: William Shakespeare Scene 1 \hanging{Apparition. Be bloody, bold, and resolute; laugh to scorn The power of man, for none of woman born shall harm Macbeth.} CF: Macbeth V.8; Matthew 1.25; Chron: 1606 Browse: 37 - \bold{Chapter: Macbeth V} Author: William Shakespeare Scene 8 \hanging{Macbeth. I bear a charmed life, which must not yield To one of woman born. Macduff. Despair thy charm; And let the angel whom thou still hast serv'd Tell thee, Macduff was from his mother's womb Untimely ripp'd.} Note: Caesarean section. CF: Macbeth IV.1; Moby Dick LXXVIII; Chron: 1606 Browse: 38 - \bold{Chapter: Luke 1} 13 But the angel said to him, "Do not be afraid, Zechariah, for your prayer is heard, and your wife Elizabeth will bear you a son, and you shall call his name John. \hanging{14 And you will have joy and gladness, and many will rejoice at his birth; 15 for he will be great before the Lord, and he shall drink no wine nor strong drink, and he will be filled with the Holy Spirit, even from his mother's womb. 16 And he will turn many of the sons of Israel to the Lord their God, 17 and he will go before him in the spirit and power of Elijah, to turn the hearts of the fathers to the children, and the disobedient to the wisdom of the just, and to make ready for the Lord a people prepared."} Note: What about turning the hearts of the children? CF: Numbers 6.3; Malachi 4.5; Matthew 17.13; Luke 7.33; 11.14; Through the Looking Glass 8; Chron: 76 Browse: 40 - \bold{Chapter: Numbers 6} 1 And the Lord said to Moses, 2 "Say to the people of Israel, When either a man or a woman makes a special vow, the vow of a Nazarite, to separate himself to the Lord, 3 he shall separate himself from wine and strong drink; he shall drink no vinegar made from wine or strong drink, and shall not drink any juice of grapes or eat grapes fresh or dried. ..." Note: Apparently \italic{Nazarite} means "one separated". Perhaps this is why the town of Nazareth is listed as the birthplace. Note: Nicely non-sexist. CF: Luke 1.15; Chron: -1210 Browse: 45 - \bold{Chapter: Genesis 18} 13 The Lord said to Abraham, " Why did Sarah laugh, and say, 'Shall I indeed bear a child now that I am old?' 14 Is anything too hard for the Lord? At the appointed time I will return to you, in the spring, and Sarah shall have a son." CF: Matthew 19.26; Mark 10.27; Luke 1.37; Romans 9.9; Chron: -1850 Browse: 50 - \bold{Chapter: John 1} 9 The true light that enlightens every man was coming into the world. 10 And he was in the world, and the world was made through him, yet the world knew him not. 11 He came to his own home, and his own people received him not. 12 But to all who received him, who believed in his name, he gave power to become children of God; 13 who were born not of blood nor of the will of the flesh nor of the will of man, but of God. 14 And the Word became flesh and dwelt among us, full of grace and truth; we have beheld his glory, glory as of the only Son from the Father. CF: Galatians 4.4; Chron: 92 Browse: 55 - \bold{Chapter: Alice's Adventures in Wonderland 6} Author: Lewis Carroll [Alice is explaining the diurnal period and Cook wonders if it is twenty-four hours or twelve.] " Oh, don't bother \italic{me!}" said the Duchess; "I never could abide figures!" And with that she began nursing her child again, singing a sort of lullaby to it as she did so, and giving it a violent shake at the end of every line:-- \hanging{\italic{"Speak roughly to your little boy, And beat him when he sneezes: He only does it to annoy, Because he knows it teases."}} CHORUS (in which the cook and the baby joined).-- \hanging{\italic{"Wow! wow! wow!"}} Note: It's okay, the baby was about to turn into a pig. CF: Story of Babar; Luke 2.7; Chron: 1865 Browse: 58 - \bold{Chapter: As You Like It II} Author: William Shakespeare \hanging{7 Duke. Thou seest we are not all alone unhappy; This wide and universal theatre Presents more woeful pageants than the scene Wherein we play in. Jaques. All the worlds a stage, And all the men and women merely players; They have their exits and their entrances; And one man in his time plays many parts, His acts being seven ages. At first the infant, Mewling and puking in the nurse's arms;} CF: Luke 2.7; Story of Babar; Ugly Duckling; Chron: 1600 Browse: 59 - \bold{Chapter: Galatians 4} 1 I mean that the heir, as long as he is a child, is no better than a slave, though he is the owner of all the estate; 2 but he is under guardians and trustees until the date set by the father. 3 So with us; when we were children, we were slaves to the elemental spirits of the universe. 4 But when the time had come, God sent forth his Son, born of woman, born under the law, 5 to redeem those who were under the law, so that we might receive adoption as sons. CF: John 1.13; Chron: 57 Browse: 60 - \bold{Chapter: Ugly Duckling} Author: Hans Christian Andersen "Let me look at the egg which won't crack, " said the old duck. "You may be sure that it is a turkey's egg! I was cheated like that once and I had no end of trouble and worry with the creatures, for I may tell you that they are afraid of the water. I quacked and snapped at them, but it all did no good. Let me see the egg! Yes, it is a turkey's egg. You just leave it alone, and teach the other children to swim." "I will sit on it a little longer. I have sat so long already that I may as well go on till the Midsummer Fair comes round." "Please yourself," said the old duck, and away she went. At last the big egg cracked. "Cheep, cheep!" said the young one and tumbled out. How big and ugly he was! The duck looked at him. "That is a monstrous big duckling," she said. "None of the others looked like that. Can he be a turkey chick? Well, we shall soon find that out. Into the water he shall go, if I have to kick him in myself." Note: How to tell if your hatchling is a turkey or a swan: kick it in the water and see if it swims. CF: Matthew 2.11; Luke 2.7; Story of Babar; Sleeping Beauty; Chron: 1835 Browse: 65 - \bold{Chapter: Luke 3} 23 Jesus, when he began his ministry, was about thirty years of age, being the son (as was supposed) of Joseph, the son of Heli, 24 the son of Matthat, the son of Levi, ... 31 ... the son of David, ... 34 the son of Jacob, the son of Isaac, the son of Abraham, ... 36 ... the son of Shem, the son of Noah, the son of Lamech, 37 the son of Methuselah, the son of Enoch, the son of Jared, the son of Mahalale-el, the son of ca-inan, 38 the son of Enos, the son of Seth, the son of Adam, the son of God. Note: Possibly the difference in ancestry from Matthew can be accounted for by the fact that in this passage Jesus is already thirty years old and has had time to select his ancestors with more care. Note: Luke's genealogy for Joseph in full: Joseph Heli Matthat Levi Melchi Janna-i Joseph Mattathias Amos Nahum Esli Nagga-i Maath Mattathias Seme-in Josech Joda Jo-anan Rhesa Zerubbabel She-alti-el Neri Melchi Addi Cosam Elmadam Er Jesus Eliezer Jorim Matthat Levi Symeon Judas Joseph Jonam Eliakim Mele-a Menna Mattaha Nathan David Jesse Obed Boaz Sala Nahshon Amminadab Admin Arni Hezron Perez Judah Jacob Isaac Abraham Terah Nahor Serug Reu Peleg Eber Shelah Ca-inan Arphaxad Shem Noah Lamech Methuselah Enoch Jared Mahalale-el Ca-inan Enos Seth Adam God Note: Okay, we've got Admin here, but not Solomon, who was on Matthew's list. Why not? CF: Matthew 1.1-17; Genesis 5.3-32; Genesis 11.10-26; Ruth 4.18-22; 1 Chron 1.1-4; 1 Chron 1.24-28; 1 Chron 2.1-15; 1 Chron 3.23; John 8.57; Luke 1.27 Chron: 76 Browse: 70 - \bold{Chapter: Through the Looking Glass 8} "Or else what?" said Alice, for the Knight had made a sudden pause. "Or else it doesn't, you know. The name of the song is called \italic{`Haddock's Eyes.'} " "Oh, that's the name of the song, is it?" Alice said, trying to feel interested. "No, you don't understand," the Knight said, looking a little vexed. "That's what the name is \italic{called.} The name really \italic{is} \italic{`The Aged Aged Man.'} " Note: The song was called \italic{Ways and Means,} but it itself was \italic{A-Sitting On A Gate.} CF: Isaiah 7.14; Matthew 1.25; Luke 1.13; Chron: 1871 Browse: 75 - \bold{Chapter: Matthew 1} 1 The book of the genealogy of Jesus Christ, the son of David, the son of Abraham. 2 Abraham was the father of Isaac, and Isaac the father of Jacob, and Jacob the father of Judah and his brothers, ... 16 and Jacob the father of Joseph the husband of Mary, of whom Jesus was born, who is called Christ. Note: Matthew's genealogy for Joseph in full: Joseph Jacob Matthan Eleazar Eliud Achim Zadok Azor Eliakim Abiud Zerubbabel She-alti-el Jechoniah Josiah Amos Manasseh Hezekiah Ahaz Jotham Uzziah Jehoshaphat Asa Abijah Rehoboam Solomon David Jesse Obed Boaz Salmon Nahshon Amminadab Ram Hezron Perez Judah Jacob Isaac Abraham Note: No Admin? Luke says Admin was in the family. Surely a man who can feed the multitude with a few bushels has some grounding in the rudiments of Administration. CF: Luke 3.23-38; Ruth 4.18-22; 1 Chronicles 2.1-15; 2 Kings 24.14; Jeremiah 27.20; Chron: 72 Browse: 80 - \bold{Chapter: Jeremiah 23} 5 "Behold, the days are coming, says the Lord, when I will raise up for David a righteous Branch, and he shall reign as king and deal wisely, and shall execute justice and righteousness in the land. 6 In his days Judah will be saved, and Israel will dwell securely. And this is the name by which he will be called: `The Lord is our righteousness.' CF: Jeremiah 35.15; Isaiah 4.2; Zechariah 3.8; Zechariah 6.12; Chron: -605 Browse: 83 - \bold{Chapter: Matthew 2} 7 Then Herod summoned the wise men secretly and ascertained from them what time the star appeared; 8 and he sent them to Bethlehem, saying, "Go and search diligently for the child, and when you have found him bring me word, that I too may come and worship him." 9 When they had heard the king they went their way; and lo, the star which they had seen in the East went before them, till it came to rest over the place where the child was. 10 When they saw the star, they rejoiced exceedingly with great joy; 11 and going into the house they saw the child with Mary his mother, and they fell down and worshipped him. Then, opening their treasures, they offered him gifts, gold and frankincense and myrrh. 12 And being warned in a dream not to return to Herod, they departed to their own country by another way. Note: They knew their man Herod. Two paragraphs later he kills all the children in Bethlehem. But Joseph had already skipped town with his kid, or at least with Somebodies kid. CF: Matthew 1.18; Matthew 2.22; Matthew 12.26; Acts 10.22; Hebrews 11.7; Sleeping Beauty; Chron: 72 Browse: 85 - \bold{Chapter: Numbers 24} \hanging{17 I see him, but not now; I behold him but not nigh: a star shall come forth out of Jacob, and a scepter shall rise out of Israel; It shall crush the forehead of Moab and break down all the sons of Sheth. 18 Edom shall be dispossessed, Seir also, his enemies, shall be dispossessed, while Israel does valiantly. 19 By Jacob shall dominion be exercised, and the survivors of cities be destroyed!"} CF: Matthew 2.2; Zechariah 9.9; Chron: -1210 Browse: 90 - \bold{Chapter: Micah 5} \hanging{ 1 Now you are walled about with a wall; siege is laid against us; with a rod they strike upon the check the ruler of Israel. 2 But you, O Bethlehem Ephrathah, who are little to be among the clans of Judah, from you shall come forth for me one who is to be ruler in Israel, whose origin is from of old, from ancient days 3 Therefore he shall give them up until the time when she who is in travail has brought forth; then the rest of his brethren shall return to the people of Israel. } CF: Matthew 2.6; John 7.42; Chron: -720 Browse: 95 - \bold{Chapter: Daniel 2} "... 44 And in the days of those kings the God of heaven will set up a kingdom which shall never be destroyed, nor shall its sovereignty be left to another people. It shall break in pieces all these kingdoms and bring them to an end, and it shall stand for ever; 45 just as you saw that a stone was cut from the mountain by no human hand, and that it broke in pieces the iron, the bronze, the clay, the silver, and the gold. A great God has made known to the king what shall be hereafter. The dream is certain and its interpretation sure." Note: The dreamer was Nebuchadnezzar. CF: Revelations 11.15; Luke 1.32; Chron: -165 Browse: 100 - \bold{Chapter: Malachi 4} 1 "For behold, the day comes, burning like an oven, when all the arrogant and all evil doers will be stubble; the day that comes shall burn them up, says the Lord of hosts, so that it will leave them neither root nor branch. 2 But for you who fear my name the sun of righteousness shall rise, with healing in its wings. You shall go forth leaping like calves from the stall. 3 And you shall trod down the wicked, for they will be ashes under the soles of your feet, on the day when I act, says the Lord of hosts. 4 "Remember the law of my servant Moses, the statutes and ordinances that I commanded him at Horeb for all Israel. 5 "Behold, I will send you Elijah the prophet before the great and terrible day of the Lord comes. 6 And he will turn the hearts of the fathers to their children and the hearts of the children to their fathers, lest I come and smite the land with a curse. Note: The old testament ends with this prophecy. CF: Luke 1.17; Matthew 17.11; Mark 9.12; Chron: -450 Browse: 105 - \bold{Chapter: Zechariah 9} \hanging{9 Rejoice greatly, O daughter of Zion! Shout aloud, O daughter of Jerusalem! Lo your king comes to you; triumphant and victorious is he, humble and riding on an ass, on a colt, the foal of an ass. 10 I will cut off the chariot from Ephraim and the war horse from Jerusalem; and the battle bow shall be cut off, and he shall command peace to the nations; his dominion shall be from sea to sea, and from the river to the ends of the earth. 11 As for you also, because of the blood of my covenant with you, I will set your captives free from the waterless pit. 12 Return to your stronghold, O prisoners of hope; today I declare that I will restore to you double. 13 For I have bent Judah as my bow; I have made Ephraim its arrow. I will brandish your sons, O Zion, over your sons, O Greece, and wield you like a warrior's sword. 14 Then the Lord will appear over them, and his arrow go forth like lightning; the Lord God will sound the trumpet, and march forth in the whirlwinds of the south. 15 The Lord of hosts will protect them, and they shall devour and tread down the slingers; and they shall drink their blood like wine, and be full like a bowl, drenched like the corners of the altar.} CF: Matthew 2.6; Numbers 24.17; Chron: -518 Browse: 110 - \bold{Chapter: Story of Babar the Little Elephant} Author: Jean de Brunhoff Translator: Merle S. Haas In the great forest a little elephant is born. His name is Babar. His mother loves him very much. She rocks him to sleep with her trunk while singing softly to him. Note: In the warm bedroom, my mother reads the story. I love the little story. My mother falls asleep. CF: Matthew 2.11; Luke 2.7; As You Like It II; Ugly Duckling; Sleeping Beauty; Alice's Adventures in Wonderland 6; Chron: 1942 Browse: 115 - \bold{Chapter: Matthew 2} 1 Now when Jesus was born in Bethlehem of Judea in the days of Herod the king, behold, wise men from the East came to Jerusalem saying, 2 " Where is he who has been born king of the Jews? For we have seen his star in the East and have Come to worship him." 3 When Herod the king heard this, he was troubled, and all Jerusalem with him; 4 and assembling all the chief priests and scribes of the people, he inquired of them where the Christ was to be born. 5 They told him, "In Bethlehem of Judea; for so it is written by the prophet: \hanging{6 `And you, OBethlehem, in the land of Judah, are by no means least among the rulers of Judah; for from you shall come a ruler who will govern my people Israel.'"} CF: Numbers 24.17; Jeremiah 23.5; Zechariah 9.9; Micah 5.2; Mark 15.2; Luke 1.5; Luke 2.4-7; John 1.49; John 7.42; John 21.16; Chron: 72 Browse: 120 - \bold{Chapter: Sleeping Beauty} Author: The Grimm Brothers It happened one day that when the Queen was bathing, a frog came out of the water, and squatted on the ground, and said to her, "Thy wish shall be fulfilled. Before a year has gone by, you shall bring a daughter into the world." And as the frog foretold, so it happened. The Queen bore a daughter so beautiful that the king could not contain himself for joy, and he ordained a great feast. ... As it drew to an end, the wisewomen stood forward to present to the child their wonderful gifts. One bestowed virtue, one beauty, a third riches, and so on: whatever there was in the world to wish for. And when eleven of them had had their say, in came the uninvited thirteenth, burning to avenge herself. Without greeting or respect, she cried in a loud voice, "In the fifteenth year of her age the Princess shall prick herself with a spindle and shall fall down dead." And without another word she turned away and left the hall. Note: Beware of talking frogs. CF: Matthew 2.11; Luke 2.7; Story of Babar; Ugly Duckling; Chron: 1815 Browse: 125 - \enddata{text,539629320} 1 539629320 0 0 0 0 >OBJ< text >VIEW< textview >REF< defaulttext >LINK< < text \enddata{cel,539559688} 0 0 5 539559688 0 0 0 >OBJ< cel >VIEW< celview >REF< \enddata{lset,539559944} \begindata{lset,539648776} \V 1 \begindata{cel,539649032} \V 2 \begindata{ness,539632136} \origin{00\21 Sep 1989 at 0:07:48 EDT\wjh: Fred Hansen\00} \template{default} \define{global } \define{fullwidth menu:[Justify,Full Width] attr:[LeftMargin LeftMargin Cm -25431] attr:[RightMargin RightMargin Cm -27743]} \define{sans menu:[Font,Sans] attr:[FontFamily AndySans Int 0]} -- Ness data base processor -- Records in this data base begin with a line containing solely a dash (-). Text prior to the first dash-line are retained at the beginning of the file by the sort package. -- Fields in the record are denoted by lines beginning with a capitalized word followed with a colon. The Birth data base uses fields Chapter, Chron, Browse, Author, Notes, and CF. The first three of these are used for sorting. -- The CF field is processed specially: mouse hits in this line prior to the final semicolon cause the view to be moved to quotation cited. The format of each citation is .. The must match exactly the beginning of the Chapter: field for the target record. marker back1 := start(base(Selection())) marker back2 := back1 marker back3 := back1 marker back4 := back1 marker back5 := back1 boolean function initKludge() if not isreadonly(currentselection(defaulttext)) then textview_toggle_read_only(defaulttext) end if return TRUE end function boolean initializeReadOnly := initKludge(); function Selection() return currentselection(defaulttext) end function function goback() marker m m := back1 back1 := back2 back2 := back3 back3 := back4 back4 := back5 back5 := Selection() setcurrentselection(defaulttext, m) textview_line_to_top(defaulttext) end function function goandsaveback(m) back5 := back4 back4 := back3 back3 := back2 back2 := back1 dokeys(defaulttext, "\\e,") -- move cursor to top screen line back1 := Selection() setcurrentselection(defaulttext, m) textview_line_to_top(defaulttext) end function function goprevious() marker m -- move defaulttext backward until the next preceding "\\n\\n-\\n" -- has its "-" at the top of the screen -- first get cursor to top of screen: dokeys(defaulttext, "\\033,") m := previous(Selection()) -- in the following while loop, the selection is either a character -- or is empty at start of text. while m /= "" do if m = "-" and match (start(previous(previous(m))), "\\n\\n-\\n") /= "" then setcurrentselection(defaulttext, m) dokeys(defaulttext, "\\033!") exit function end if m := previous(m) end while -- not found. Do nothing end function function gonext() marker m dokeys(defaulttext, "\\033,") m := search(start(Selection()), "\\n\\n-\\n") if m /= "" then setcurrentselection(defaulttext, next(second(m))) dokeys(defaulttext, "\\033!") end if end function extend "next_button" on mouse "any" if mouseaction = mouseleftup then gonext() end if end mouse end extend extend "prev_button" on mouse "any" if mouseaction = mouseleftup then goprevious() end if end mouse end extend extend "back_button" on mouse "any" if mouseaction = mouseleftup then goback() end if end mouse end extend extend "start_button" on mouse "any" if mouseaction = mouseleftup then goandsaveback(start(base(Selection()))) end if end mouse end extend function SortText(field, flags) if mouseaction = mouseleftup then marker t TellUser("Sorting by " ~ field) im_ForceUpdate() t := base(Selection()) if isreadonly(t) then textview_toggle_read_only(defaulttext) end if replace(t, sort_records_per_flags(field, t, flags)) textview_toggle_read_only(defaulttext) TellUser("Sorted") end if end function extend "sort_chron" on mouse "any" SortText("Chron", "n") end mouse end extend extend "sort_title" on mouse "any" SortText("Chapter", "") end mouse end extend extend "sort_browse" on mouse "any" SortText("Browse", "n") end mouse end extend -- checkCF(t) -- t is a selection in the defaulttext -- if t is in a CF field, try to find the corresponding record -- and then go to it -- function checkCF(t) marker m, p t := start(t) -- Is t in a CF field? m := previous(t) while m /= "" and m /= "\\n" and m /= ":" do m := previous(m) end while m := previous(previous(previous(m))) m := match(start(m), "\\nCF:") if m = "" then -- t is not in a CF: field exit function end if -- can we find the Chapter t refers to? m := finish(m) p := anyof(m, ";\\n") while p /= "" and extent(p, t) /= "" do m := finish(p) p := anyof(m, ";\\n") end while -- the chapter name is everything before the . (if any) m := finish(span(m, " \\t")) t := search(m, ".") if t /= "" and extent (t,p) /= "" then t := extent (m, start(t)) elif extent(m, start(p)) = "" then exit function else t := extent(m, start(p)) end if m := search(base(Selection()), "Chapter: " ~ t) if m = "" then -- nope TellUser("No entry found for: " ~ t) exit function end if -- we have found the chapter -- select it goandsaveback(m) end function extend "defaulttext" on mouse "any" dohit(inset("defaulttext"), mouseaction, mousex, mousey) if mouseaction = mouseleftup then checkCF(Selection()) end if end mouse end extend \enddata{ness,539632136} 1 539632136 0 0 0 0 >OBJ< ness >VIEW< nessview >REF< script >LINK< text \enddata{cel,539649032} 0 0 5 539649032 0 0 0 >OBJ< cel >VIEW< celview >REF< \enddata{lset,539648776} 1 14 0 0 539559944 539648776 0 >OBJ< >VIEW< >REF< \enddata{lset,539560200} \begindata{lset,539726600} \V 1 \begindata{lset,539726856} \V 1 \begindata{lset,539727112} \V 1 \begindata{lset,539727368} \V 1 \begindata{cel,539727624} \V 2 \begindata{value,539629448} >6 \enddata{value,539629448} 10 539629448 1 0 0 0 >OBJ< value >VIEW< buttonV >REF< next_button >LINK< \begindata{text,539629832} \textdsversion{12} [string]