Poems/ 0000755 0000156 0000703 00000000000 11331700121 010261 5 ustar jon sep Poems/makeall 0000755 0000156 0000703 00000005106 11324002114 011616 0 ustar jon sep #!/bin/tcsh #set A = `pwd` #set A = /Applications/Poems #set D = /net/fushun/web/html/data/media/public/sep/jon/poems #set D = ~/Documents/Poems set A = $1 set D = $2 echo The Application folder is $A echo The Document Destination folder is $D echo poems to go are in $A/poems echo ls $A/poems ls $A/poems if( -e $D ) then else mkdir $D # ~/Documents/Poems endif cd $A/poems foreach p ( * ) # $p is a poem name if( -e $D/$p) then # ~/Documents/Poems/SamMcGee else mkdir $D/$p endif end echo '
' > $D/index.html echo "Nice poems with memorization templates
" >> $D/index.html cd $A/poems foreach p ( *) if( $p == "CremationSam" ) then set title = "The Cremation of Sam McGee
by Robert Service" else if( $p == "Trees") then set title = "Trees (excerpt) -- Joyce Kilmer 1886-1918" else if( $p == "TheRaven") then set title = "The Raven (excerpt) -- by Edgar Allen Poe (1845)" else if( $p == "TheSwing") then set title = "The Swing -- by Robert Louis Stevenson (1845)" else if( $p == "ElvesCounsel") then set title = "The Lord of the Rings (excerpt) --by J. R. R. Tolkien" else if( $p == "Jabberwocky") then set title = "Jabberwocky -- by Lewis Carroll" else if( $p == "Highwayman") then set title = "The Highwayman (excerpt) -- by Alfred Noyes (1880-1958)" else if( $p == "PaulRevere") then set title = "Paul Revere's Ride -- by Henry Wadsworth Longfellow (1807-1882)" else if( $p == "WoodsFrost") then set title = "Stopping by Woods on a Snowy Evening -- by Robert Frost" else if( $p == "Evangeline") then set title = "Evangeline (excerpt)-- by Henry Wadsworth Longfellow" else if( $p == "RoadNotTakenFrost") then set title = "The Road Not Taken (excerpt) -- by Robert Frost" else if( $p == "RimeAncientMariner") then set title = "Rime of the Ancient Mariner (excerpt) -- by Samuel Taylor Coleridge" else if( $p == "BearInThere") then set title = "A Bear in There -- by Shel Silverstein" else set title = $p endif echo $title > $A/title # for particular page echo "" $title " " >> $D/index.html # for master page $A/makeone $A $D $p end echo "
Do you want to install new poems?" >> $D/index.html /bin/cp -f $A/inst.html $D/install.html echo "How to see your poems?" echo "Double click on $D/index.html or drag it onto the Safari or Firefox icon" Poems/Poems.tar 0000664 0000156 0000703 00000024000 11331700121 012052 0 ustar jon sep Poems/makeone 0000755 0000156 0000703 00000011611 11324002114 011625 0 ustar jon sep #!/bin/csh # $A/makeone $A $D $p # Make a folder full of poem fragments # $A application source # $p poem name # $A/poems/$p source of poem # $D/$p destination of poem set A = $1 # location of Application/Poem and Application/Poem/poem set D = $2 # location of Document/Poem and Document/Poem/poem set p = $3 # poem name set s = $A/poems/$p # source from Application/Poem/poems/POEM set d = $D/$p # destination to Document/Poem/poem cd $A if( $p == "CremationSam" ) then echo '
' > junk1 else echo '' > junk1 endif echo '' > junk2; # echo '' > junk2; echo 'OTHER POEMS' >> junk2 echo '" > junk4 cat junk2 junk3 junk4> $D/$p/index.html cat junk1 junk3 > page0.html; <$s awk -f awks/go.awk words=99 >> page0.html cat junk1 junk3 > page1.html; <$s awk -f awks/go.awk words=4 >> page1.html cat junk1 junk3 > page2.html; <$s awk -f awks/go.awk words=3 >> page2.html cat junk1 junk3 > page3.html; <$s awk -f awks/go.awk words=2 >> page3.html cat junk1 junk3 > page4.html; <$s awk -f awks/go.awk words=1 >> page4.html cat junk1 junk3 > gap4.html; <$s awk -f awks/gap.awk keep=4 >> gap4.html cat junk1 junk3 > gap5.html; <$s awk -f awks/gap.awk keep=5 >> gap5.html cat junk1 junk3 > gap6.html; <$s awk -f awks/gap.awk keep=6 >> gap6.html cat junk1 junk3 > ends2.html; <$s awk -f awks/ends.awk many=2 >> ends2.html cat junk1 junk3 > ends3.html; <$s awk -f awks/ends.awk many=3 >> ends3.html cat junk1 junk3 > openers.html; <$s awk -f awks/go2.awk space=0 >> openers.html echo " " >> openers.html echo "------------------------------" >> openers.html echo " " >> openers.html <$s awk -f awks/go2.awk space=1 >> openers.html if( $p == "CremationSam" ) then cat junk1 junk3 PDFs/rhymewordsonly >$d/rhymewordsonly.html cat junk1 junk3 PDFs/keys >$d/keys.html /bin/cp -f PDFs/*.pdf $d echo ' ' >> junk2 cat $A/title >> junk2 echo '
' >> junk2 echo " \ HOME: \ Entire, \ Cues 4, \ 3 , \ 2, \ 1, \ Ends 3, \ 2 , \ Gaps 4 , \ 5, \ 6, \ Openers. " > junk3 if( $p == "CremationSam" ) then echo " Rhymes," >> junk3 echo " Keys". >> junk3 endif echo "" >>junk3 echo "See other poems.
I want this page as a PDF. View recital by Jon.' >> page0.html echo '
I want this page as a PDF. View recital by Jon.' >> page1.html echo '
I want this page as a PDF. View recital by Jon.' >> page2.html echo '
I want this page as a PDF. View recital by Jon.' >> page3.html echo '
I want this page as a PDF. View recital by Jon.' >> page4.html echo '
I want this page as a PDF. View recital by Jon.' >> gap4.html echo '
I want this page as a PDF. View recital by Jon.' >> gap5.html echo '
I want this page as a PDF. View recital by Jon.' >> gap6.html echo '
I want this page as a PDF. View recital by Jon.' >> ends2.html echo '
I want this page as a PDF. View recital by Jon.' >> ends3.html endif /bin/rm -f junk? mv -f page?.html gap?.html ends?.html openers.html $d /bin/rm -rf title Poems/.DS_Store 0000644 0000156 0000703 00000014004 11324002114 011742 0 ustar jon sep Bud1 % @ @ @ @ E % DSDB ` @ @ @ Poems/BuildPoems4Mac 0000755 0000156 0000703 00000000224 11324002114 012754 0 ustar jon sep #!/bin/tcsh # makeall source_directory destination/directory /Applications/Poems/makeall /Applications/Poems ~/Documents/Poems Poems/._.DS_Store 0000644 0000156 0000703 00000000122 11324002114 012153 0 ustar jon sep Mac OS X 2 R @ Poems/BuildPoems4Linux 0000755 0000156 0000703 00000000214 11324002114 013352 0 ustar jon sep #!/bin/tcsh # makeall source_directory destination/directory ./makeall `pwd` /net/fushun/web/html/data/media/public/sep/jon/poems Poems/inst.html 0000644 0000156 0000703 00000004525 11324002114 012131 0 ustar jon sep
How to download a program parse a poem into fragments on a Mac or Linux I, Grampy Jon Claerbout, am a beginner at internet programming so this is pretty chancy, but at least it has been tested once by someone besides me (maybe). How to install this program
(on a Mac or Linux)
to parse a poem into fragments
as an aid to memorizationThese instructions are for Linux and Mac. It might be easy to install on any PC that already has "awk" and "tcsh". The main system differences are the need to specify input and output locations once at the beginning.
Mac
- Download the http://sep.stanford.edu/sep/jon/Poems.tar to your desktop.
- Double click on it to unpack it getting a folder named Poem.
- Drag Poem into your Application folder and look inside it for a file named "BuildPoems4Mac"
- Double click on BuildPoems4Mac. It should tell you that it has created in your Documents folder a folder named Poems.
- In your Documents/Poems find a file named index.html. Double click on it and your browser should pop up at your offline web site for my older poem archive. Leave your browser open to see changes you will make.
- Enter new poems in the folder /Applications/Poems/poems/ Make sure your new file names are only one word. Your poems better not be in some fancy format or it won't work. What does work is to find the poem you want on the internet. Highlight what you want, and copy with apple-c. Then open the Apple program "TextEdit" and paste with apple-v. Save in /Applications/Poems/poems/{MyNewPoem}
- Double click again on "BuildPoems4Mac
- Refresh your Firefox browser (or Safari window with apple-R.) Success!
- I made some nice one-page PDF files for The Creation of Sam McGee, but if you want any more, you'll need to make them yourself.
Linux or Unix
Have a peep inside BuildPoems4Linux
You need to change the source and target directories (because they won't be the same as mine). Then pretty much follow the Mac instructions above.Back. Poems/PDFs/ 0000755 0000156 0000703 00000000000 11324002114 011054 5 ustar jon sep Poems/PDFs/keys 0000644 0000156 0000703 00000001752 11324002114 011757 0 ustar jon sep strange moil Arctic trails blood cold; Northern Lights queerest night marge Now Sam left home cold, but gold often say Christmas cold! eyes close fun whimper night packed dogs fed turns "Cap," if I do seemed low says moan: cursed cold 'taint dead swear cremate pal's need streak dawn crouched raved nightfall corpse breath death corpse rid lashed "tax promised cremate promise made days come, lips dumb long, long night Howled woes day clay seemed on went, dogs spent trail bad sing marge jammed looked "Here," planks tore lit coal heaped flames soared burrowed hole hike, sizzle heavens icy sweat rolled greasy smoke not know stars out sick dread cooked sat Sam smile mile fine here left Plumtree strange Arctic Northern night Poems/PDFs/gap6.pdf 0000644 0000156 0000703 00000033461 11324002114 012413 0 ustar jon sep %PDF-1.3 % 4 0 obj << /Length 5 0 R /Filter /FlateDecode >> stream xZ]o6}ϯ H];AVlC1@=+6miD~T땮F"/)s/${v[-b
LrVhpޭFn}}2%[ۢy t6u+{wW gF+Axx>2[-&6.F[ލܟMۗSGRg"="ߙ+=o}GYk&*/'4k:|PnCMd2'q~LI酒u%?UnZ&y`%@A x%r*"0p RzPNЙeÐP(r=b^.'y粭PtRɺñ+z'6@+mӣIfE`hew%!>cQ/ֆ:v+h~4l 5W,ݺ97;~Zwy)RRV'ߪ:ڷbX% gMH'n==^k>p