home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / ipl / progs / sing.icn < prev    next >
Text File  |  2000-07-29  |  2KB  |  100 lines
  1. ############################################################################
  2. #
  3. #    File:     sing.icn
  4. #
  5. #    Subject:  Program to sing The Twelve Days of Christmas
  6. #
  7. #    Author:   Frank J. Lhota
  8. #
  9. #    Date:     September 14, 1990
  10. #
  11. ############################################################################
  12. #
  13. #   This file is in the public domain.
  14. #
  15. ############################################################################
  16. #  
  17. #     This program is an Icon adaptation of a SNOBOL program by Mike
  18. #  Shapiro in the book The SNOBOL4 Programming Language.  The procedure
  19. #  sing writes the lyrics to the song, "The Twelve Days of Christmas"
  20. #  to the singer parameter.  "singer" can be any file open for output,
  21. #  but it would be especially nice to send the lyrics to a speech
  22. #  synthesiser (perhaps via a pipe).  
  23. #
  24. #     The algorithm used can be adapted to other popular songs, such as
  25. #  "Old McDonald had a Farm".
  26. #
  27. #  Reference:
  28. #
  29. #     "The SNOBOL 4 Programming Language" by Griswold, Poage, and
  30. #  Polonsky, 2nd ed. Englewood Cliffs, N.J. Prentiss-Hall, Inc. 1971.
  31. #
  32. # 
  33. ############################################################################
  34.  
  35. procedure sing(singer)
  36.  
  37.     local which, and
  38.     static day, gift
  39.  
  40.     initial {
  41.     day := [
  42.         "first",
  43.         "second",
  44.         "third",
  45.         "fourth",
  46.         "fifth",
  47.         "sixth",
  48.         "seventh",
  49.         "eighth",
  50.         "ninth",
  51.         "tenth",
  52.         "eleventh",
  53.         "twelfth"]
  54.  
  55.     gift := [
  56.         "twelve lords a'leaping,",
  57.         "eleven ladies dancing,",
  58.         "ten pipers piping,",
  59.         "nine drummers drumming,",
  60.         "eight maids a'milking,",
  61.         "seven swans a'swimming,",
  62.         "six geese a'laying,",
  63.         "five golden rings,",
  64.         "four colly birds,",
  65.         "three french hens,",
  66.         "two turtle doves,",
  67.         "a partridge in a pear tree."]
  68.     }
  69.  
  70.     every which := 1 to 12 do {
  71.     write (singer)    # Take a breath
  72.     write (singer, "On the ", day [which], " day of Christmas,")
  73.     write (singer, "my true love gave to me,")
  74.     every write (singer, !(gift[-which : 0]))
  75.  
  76.     if (/and := "and ") then gift[-1] := and || gift[-1]
  77.     }
  78.  
  79.     #
  80.     # Reset gift[-1] in case sing is called again.
  81.     #
  82.  
  83.     gift[-1] ?:= (=and & tab (0))
  84.  
  85.     return
  86.     
  87. end
  88.  
  89. ############################################################################
  90.  
  91. procedure main ()
  92.  
  93.     #
  94.     # Try out sing procedure with standard output.
  95.     #
  96.     
  97.     sing(&output)
  98.  
  99. end
  100.