home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2007 September / PCWSEP07.iso / Software / Linux / Linux Mint 3.0 Light / LinuxMint-3.0-Light.iso / casper / filesystem.squashfs / usr / share / festival / festdoc.scm < prev    next >
Encoding:
Text File  |  2006-12-20  |  7.5 KB  |  180 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;;                                                                       ;;
  3. ;;;                Centre for Speech Technology Research                  ;;
  4. ;;;                     University of Edinburgh, UK                       ;;
  5. ;;;                       Copyright (c) 1996,1997                         ;;
  6. ;;;                        All Rights Reserved.                           ;;
  7. ;;;                                                                       ;;
  8. ;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
  9. ;;;  this software and its documentation without restriction, including   ;;
  10. ;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
  11. ;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
  12. ;;;  permit persons to whom this work is furnished to do so, subject to   ;;
  13. ;;;  the following conditions:                                            ;;
  14. ;;;   1. The code must retain the above copyright notice, this list of    ;;
  15. ;;;      conditions and the following disclaimer.                         ;;
  16. ;;;   2. Any modifications must be clearly marked as such.                ;;
  17. ;;;   3. Original authors' names are not deleted.                         ;;
  18. ;;;   4. The authors' names are not used to endorse or promote products   ;;
  19. ;;;      derived from this software without specific prior written        ;;
  20. ;;;      permission.                                                      ;;
  21. ;;;                                                                       ;;
  22. ;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
  23. ;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
  24. ;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
  25. ;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
  26. ;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
  27. ;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
  28. ;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
  29. ;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
  30. ;;;  THIS SOFTWARE.                                                       ;;
  31. ;;;                                                                       ;;
  32. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  33. ;;;                         Author: Alan W Black
  34. ;;;                         Date:   August 1996
  35. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  36. ;;;  Save documentation strings as texinfo files 
  37. ;;;
  38. ;;;  Finds all functions with documentation, and all variables with
  39. ;;;  documentation, sorts and dumps the information in doc/festfunc.texi
  40. ;;;  and doc/festvars.texi
  41. ;;;
  42. ;;;  The makefile in the doc directory runs the compiled festival binary and
  43. ;;;  causes these files to be created form the currently defined functions
  44. ;;;  and variables
  45. ;;;
  46. ;;;  Also provides function to extract manual section for documentation
  47. ;;;  string and send a url to Netscape to display it 
  48. ;;;
  49.  
  50. (define (make-doc)
  51. "(make-doc)
  52. Find function and variable document strings and save them in texinfo
  53. format to respective files."
  54.  (format t "Making function, feature and variable lists\n")
  55.  
  56.  ;; Need to ensure all library files are actually loaded if they contain
  57.  ;; funcstions/variables which have to be put in the manual
  58.  (require 'festival)
  59.  (require 'display)
  60.  (require 'mbrola)
  61.  (require 'tilt)
  62.  
  63.  (make-a-doc "festfunc.texi" 'function)
  64.  (make-a-doc "festfeat.texi" 'features)
  65.  (make-a-doc "festvars.texi" 'vars))
  66.  
  67. (define (make-a-doc outfile doclist)
  68. "(make-a-doc FILENAME DOCLIST)
  69. Make a texinfo document in FILENAME as a texinfo table, items are
  70. from DOCLIST.  DOCLIST names which doclist to use, it may be
  71. one of 'function, 'features or 'vars."
  72.   (let ((outfp (fopen outfile "wb")))
  73.    (format outfp "@table @code\n")
  74.    ;; Yes I am so lazy I'm not willing to write a sort function in Scheme
  75.    (sort-and-dump-docstrings doclist outfp)
  76.    (format outfp "@end table\n")
  77.    (fclose outfp)))
  78.  
  79. ;;;
  80. ;;;  Documentation string may refer to a section in the manual
  81. ;;;  If it does then we can automatically go to that section in the
  82. ;;;  menu using Netscape.
  83. ;;;
  84.  
  85. (defvar manual-browser "netscape"
  86. "manual-browser
  87. The Unix program name of your Netscape Navigator browser.
  88. [see Getting some help]")
  89.  
  90. (defvar manual-url 
  91.   (format nil "http://www.cstr.ed.ac.uk/projects/festival/manual-%s.%s.%s/"
  92.       (car festival_version_number)
  93.       (car (cdr festival_version_number))
  94.       (car (cdr (cdr festival_version_number))))
  95. "manual-url
  96. The default URL for the Festival Manual in html format.  You may
  97. reset this to a file://.../... type URL on you're local machine.
  98. [see Getting some help]")
  99.  
  100. ;;;  Paul got this idea from VM, the email system for emacs and
  101. ;;;  I found out how to do this from their code, thanks Kyle
  102.  
  103. (define (send-url-to-netscape url)
  104. "(send-url-to-netscape URL)
  105. Send given URL to netscape for display.  This is primarily used to 
  106. display parts of the manual referenced in documentation strings."
  107.   (system
  108.    (string-append
  109.     manual-browser
  110.     " -remote \"openURL( "
  111.     url
  112.     " )\" ")))
  113.  
  114. (define (lastline string)
  115. "(lastline STRING)
  116. Returns the part of the string which between the last newline and the 
  117. end of string."
  118.   (let ((ns (string-after string "\n")))
  119.     (if (string-equal ns "")
  120.     string
  121.     (lastline ns))))
  122.  
  123. (define (manual-sym symbol)
  124. "(manual-sym SYMBOL)
  125. Display the section in the manual that SYMBOL's docstring has
  126. identified as the most relevant.  The section is named on the
  127. last line of a documentation string with no newlines within it
  128. prefixed by \"[see \" with a \"]\" just immediately before the end
  129. of the documentation string.  The manual section name is translated to
  130. the section in the HTML version of the manual and a URL is
  131. and sent to Netscape for display.  [see Getting some help]"
  132. (let ((section (string-before (string-after 
  133.                    (lastline (eval (list 'doc symbol)))
  134.                    "[see ")
  135.                   "]")))
  136.   (cond
  137.    ((string-equal section "")
  138.     (eval (list 'doc symbol)))  ;; nothing there
  139.    (t
  140.     (manual section)))))
  141.  
  142. (define (manual section)
  143. "(manual SECTION)
  144. Display SECTION in the manual.  SECTION is a string identifying
  145. a manual section (it could be an initial substring.  If SECTION
  146. is nil or unspecifed then the Manual table of contents is displayed.
  147. This uses netscape to display the manual page so you must have that
  148. (use variable manual-browser to identify it) and the variable 
  149. manual-url pointing to a copy of the manual. [see Getting some help]"
  150. (let ((tmpfile (make_tmp_filename))
  151.       (manual-section))
  152.   (cond
  153.    ((string-matches section "\"")
  154.     (string-append "Invalid section reference containing quote: "
  155.            section "\n"))
  156.    ((not section)
  157.     (send-url-to-netscape (string-append manual-url "festival_toc.html")))
  158.    (t                            ;; find section in manual
  159.     (get_url (string-append manual-url "festival_toc.html") tmpfile)
  160.     (system
  161.      (string-append
  162.       "grep -i \"^<LI><A NAME.*" section "\" \"" tmpfile 
  163.       "\" | sed 's/^.*HREF=.//' | sed 's/.>.*$//' > \""
  164.       tmpfile ".out\""))
  165.     (set! manual-section (load (string-append tmpfile ".out") t))
  166.     (cond
  167.      ((not manual-section)
  168.       (string-append "No section called: " section))
  169.      (t
  170.       (send-url-to-netscape (string-append manual-url (car manual-section)))
  171.       (delete-file tmpfile)
  172.       (delete-file (string-append tmpfile ".out"))
  173.       "Sent manual reference url to netscape."))))))
  174.  
  175. (provide 'festdoc)
  176.  
  177.  
  178.  
  179.  
  180.