--- /dev/null
+This is ../info/texinfo.info, produced by makeinfo version 4.0 from
+texinfo.texi.
+
+INFO-DIR-SECTION Texinfo documentation system
+START-INFO-DIR-ENTRY
+* Texinfo: (texinfo). The GNU documentation format.
+* install-info: (texinfo)Invoking install-info. Update info/dir entries.
+* texi2dvi: (texinfo)Format with texi2dvi. Print Texinfo documents.
+* texindex: (texinfo)Format with tex/texindex. Sort Texinfo index files.
+* makeinfo: (texinfo)makeinfo Preferred. Translate Texinfo source.
+END-INFO-DIR-ENTRY
+
+ This file documents Texinfo, a documentation system that can produce
+both online information and a printed manual from a single source file.
+
+ Copyright (C) 1988, 90, 91, 92, 93, 95, 96, 97, 98, 99 Free Software
+Foundation, Inc.
+
+ This edition is for Texinfo version 4.0, 28 September 1999.
+
+ Permission is granted to make and distribute verbatim copies of this
+manual provided the copyright notice and this permission notice are
+preserved on all copies.
+
+ Permission is granted to copy and distribute modified versions of this
+manual under the conditions for verbatim copying, provided that the
+entire resulting derived work is distributed under the terms of a
+permission notice identical to this one.
+
+ Permission is granted to copy and distribute translations of this
+manual into another language, under the above conditions for modified
+versions, except that this permission notice may be stated in a
+translation approved by the Free Software Foundation.
+
+\1f
+File: texinfo.info, Node: Concept Index, Prev: Command and Variable Index, Up: Top
+
+Concept Index
+*************
+
+* Menu:
+
+* !: Inserting Accents.
+* (dir) as Up node of Top node: First Node.
+* --commands-in-node-names: makeinfo options.
+* --delete: Invoking install-info.
+* --dir-file=NAME: Invoking install-info.
+* --entry=TEXT: Invoking install-info.
+* --error-limit=LIMIT: makeinfo options.
+* --fill-column=WIDTH: makeinfo options.
+* --footnote-style=STYLE: makeinfo options.
+* --force: makeinfo options.
+* --help <1>: Invoking install-info.
+* --help: makeinfo options.
+* --info-dir=DIR: Invoking install-info.
+* --info-file=FILE: Invoking install-info.
+* --item=TEXT: Invoking install-info.
+* --no-headers: makeinfo options.
+* --no-number-footnotes: makeinfo options.
+* --no-pointer-validate: makeinfo options.
+* --no-split: makeinfo options.
+* --no-validate: makeinfo options.
+* --no-warn: makeinfo options.
+* --number-sections: makeinfo options.
+* --output=FILE: makeinfo options.
+* --paragraph-indent=INDENT: makeinfo options.
+* --quiet: Invoking install-info.
+* --reference-limit=LIMIT: makeinfo options.
+* --remove: Invoking install-info.
+* --section=SEC: Invoking install-info.
+* --verbose: makeinfo options.
+* --version <1>: Invoking install-info.
+* --version: makeinfo options.
+* -D DIR: Invoking install-info.
+* -d NAME: Invoking install-info.
+* -D VAR: makeinfo options.
+* -e LIMIT: makeinfo options.
+* -e TEXT: Invoking install-info.
+* -F: makeinfo options.
+* -f WIDTH: makeinfo options.
+* -h <1>: Invoking install-info.
+* -h: makeinfo options.
+* -I DIR: makeinfo options.
+* -i FILE: Invoking install-info.
+* -o FILE: makeinfo options.
+* -P DIR: makeinfo options.
+* -p INDENT: makeinfo options.
+* -r: Invoking install-info.
+* -r LIMIT: makeinfo options.
+* -s SEC: Invoking install-info.
+* -s STYLE: makeinfo options.
+* -V <1>: makeinfo options.
+* -V: Invoking install-info.
+* .cshrc initialization file: Preparing for TeX.
+* .profile initialization file: Preparing for TeX.
+* /L: Inserting Accents.
+* /l: Inserting Accents.
+* /o: Inserting Accents.
+* /O: Inserting Accents.
+* : last in INFOPATH: Other Info Directories.
+* <URL: convention, not used: uref.
+* ?: Inserting Accents.
+* @-command list: Command List.
+* @-command syntax: Command Syntax.
+* @-commands: Formatting Commands.
+* @-commands in @node, limited support: Pointer Validation.
+* @-commands in nodename: Node Line Requirements.
+* @include file sample: Sample Include File.
+* @menu parts: Menu Parts.
+* @node line writing: Writing a Node.
+* @value in @node lines: Pointer Validation.
+* @w, for blank items: itemize.
+* \input source line ignored: setfilename.
+* A4 paper, printing on: A4 Paper.
+* aa: Inserting Accents.
+* AA: Inserting Accents.
+* Abbreviations for keys: key.
+* Abbreviations, tagging: acronym.
+* Accents, inserting: Inserting Accents.
+* Acronyms, tagging: acronym.
+* Acute accent: Inserting Accents.
+* Adding a new info file: New Info File.
+* ae: Inserting Accents.
+* AE: Inserting Accents.
+* African languages: documentlanguage.
+* Aliases, command: alias.
+* Alphabetical @-command list: Command List.
+* Anchors: anchor.
+* Another Info directory: Other Info Directories.
+* Apostrophe in nodename: Node Line Requirements.
+* Arguments, repeated and optional: Optional Arguments.
+* ASCII text output: makeinfo options.
+* Aspect ratio of images: Images.
+* autoexec.bat: Other Info Directories.
+* Automatic pointer creation with makeinfo: makeinfo Pointer Creation.
+* Automatically insert nodes, menus: Updating Nodes and Menus.
+* Auxiliary files, avoiding: Format with tex/texindex.
+* B5 paper, printing on: pagesizes.
+* Backslash in macros: Defining Macros.
+* Backslash, and macros: Invoking Macros.
+* Badly referenced nodes: Running Info-Validate.
+* Bastard title page: titlepage.
+* Batch formatting for Info: Batch Formatting.
+* Beginning a Texinfo file: Beginning a File.
+* Beginning line of a Texinfo file: First Line.
+* Berry, Karl: Acknowledgements and History.
+* Big points: Images.
+* Black rectangle in hardcopy: Overfull hboxes.
+* Blank lines: sp.
+* Body of a macro: Defining Macros.
+* Bolio: Acknowledgements and History.
+* Book characteristics, printed: Printed Books.
+* Book, printing small: smallbook.
+* BoTeX: Acknowledgements and History.
+* Box with rounded corners: cartouche.
+* Box, ugly black in hardcopy: Overfull hboxes.
+* Braces and argument syntax: Command Syntax.
+* Braces, inserting: Braces Atsigns.
+* Braces, when to use: Formatting Commands.
+* Breaks in a line: Line Breaks.
+* Breve accent: Inserting Accents.
+* Buffer formatting and printing: Printing.
+* Bugs, reporting: Reporting Bugs.
+* Bullets, inserting: Dots Bullets.
+* Case in nodename: Node Line Requirements.
+* Case, not altering in @code: code.
+* Catching errors with Info formatting: Debugging with Info.
+* Catching errors with TeX formatting: Debugging with TeX.
+* Catching mistakes: Catching Mistakes.
+* Cedilla accent: Inserting Accents.
+* Centimeters: Images.
+* Chapter structuring: Structuring.
+* Chapters, formatting one at a time: Format with tex/texindex.
+* Characteristics, printed books or manuals: Printed Books.
+* Characters, invalid in node name: Node Line Requirements.
+* Chassell, Robert J.: Acknowledgements and History.
+* Check accent: Inserting Accents.
+* Checking for badly referenced nodes: Running Info-Validate.
+* Checklist for bug reports: Reporting Bugs.
+* Ciceros: Images.
+* Circumflex accent: Inserting Accents.
+* code, arg to @kbdinputstyle: kbd.
+* Colon in nodename: Node Line Requirements.
+* Column widths, defining for multitables: Multitable Column Widths.
+* Combining indices: Combining Indices.
+* Comma in nodename: Node Line Requirements.
+* Command aliases: alias.
+* Command definitions: Sample Function Definition.
+* Command names, indicating: command.
+* Command syntax: Command Syntax.
+* Commands to insert special characters: Braces Atsigns.
+* Commands using raw HTML: Raw Formatter Commands.
+* Commands using raw TeX: Raw Formatter Commands.
+* Commands, inserting them: Inserting.
+* Comments: Comments.
+* Compile command for formatting: Compile-Command.
+* Compressed files, reading: Invoking install-info.
+* Conditionally visible text: Conditionals.
+* Conditions for copying Texinfo: Copying.
+* Contents, after title page: Contents.
+* Contents, Table of: Contents.
+* Contents-like outline of file structure: Showing the Structure.
+* Conventions for writing definitions: Def Cmd Conventions.
+* Conventions, syntactic: Conventions.
+* Copying conditions: Copying.
+* Copying permissions: Sample Permissions.
+* Copying software: Software Copying Permissions.
+* Copyright page: Copyright & Permissions.
+* Correcting mistakes: Catching Mistakes.
+* Create nodes, menus automatically: Updating Nodes and Menus.
+* Creating an Info file: Creating an Info File.
+* Creating an unsplit file: Unsplit.
+* Creating index entries: Indexing Commands.
+* Creating pointers with makeinfo: makeinfo Pointer Creation.
+* Cropmarks for printing: Cropmarks and Magnification.
+* Cross reference parts: Cross Reference Parts.
+* Cross references: Cross References.
+* Cross references using @inforef: inforef.
+* Cross references using @pxref: pxref.
+* Cross references using @ref: ref.
+* Cross references using @xref: xref.
+* Cross-reference targets, arbitrary: anchor.
+* Custom page sizes: pagesizes.
+* Customize Emacs package: Texinfo Mode Printing.
+* Customized highlighting: definfoenclose.
+* Customizing of TeX for Texinfo: Preparing for TeX.
+* Debugging the Texinfo structure: Catching Mistakes.
+* Debugging with Info formatting: Debugging with Info.
+* Debugging with TeX formatting: Debugging with TeX.
+* Defining indexing entries: Indexing Commands.
+* Defining macros: Defining Macros.
+* Defining new indices: New Indices.
+* Defining new Texinfo commands: Defining New Texinfo Commands.
+* Definition commands: Definition Commands.
+* Definition conventions: Def Cmd Conventions.
+* Definition template: Def Cmd Template.
+* Definitions grouped together: deffnx.
+* Definitions, a.k.a. macros: Defining Macros.
+* Depth of text area: pagesizes.
+* Description for menu, start: Inserting.
+* Details of macro usage: Macro Details.
+* Dido^t points: Images.
+* Different cross reference commands: Cross Reference Commands.
+* Dimension formatting: dmn.
+* Dimensions and image sizes: Images.
+* dir directory for Info installation: Install an Info File.
+* dir file listing: New Info File.
+* dir file, creating your own: Other Info Directories.
+* dir files and Info directories: Other Info Directories.
+* Dir files, compressed: Invoking install-info.
+* dir, created by install-info: Invoking install-info.
+* Display formatting: display.
+* distinct, arg to @kbdinputstyle: kbd.
+* Distorting images: Images.
+* Distribution: Software Copying Permissions.
+* Docbook output format: Using Texinfo.
+* Document input encoding: documentencoding.
+* Document language, declaring: documentlanguage.
+* Dot accent: Inserting Accents.
+* Dotless i, j: Inserting Accents.
+* Dots, inserting <1>: dots.
+* Dots, inserting: Dots Bullets.
+* Double-colon menu entries: Less Cluttered Menu Entry.
+* Dumping a .fmt file: Preparing for TeX.
+* DVI file: Format with tex/texindex.
+* Ellipsis, inserting: Dots Bullets.
+* Emacs: Texinfo Mode.
+* Emacs shell, format, print from: Within Emacs.
+* Emphasizing text: Emphasis.
+* Emphasizing text, font for: emph & strong.
+* Encoding, declaring: documentencoding.
+* End node footnote style: Footnote Styles.
+* End of header line: End of Header.
+* End titlepage starts headings: end titlepage.
+* Ending a Sentence: Ending a Sentence.
+* Ending a Texinfo file: Ending a File.
+* Entries for an index: Indexing Commands.
+* Entries, making index: Index Entries.
+* Enumeration: enumerate.
+* Environment indentation: exampleindent.
+* epsf.tex: Images.
+* epsf.tex, installing: Preparing for TeX.
+* Equivalence, indicating it: Equivalence.
+* Error message, indicating it: Error Glyph.
+* Errors, parsing: makeinfo in Emacs.
+* Es-zet: Inserting Accents.
+* European A4 paper: A4 Paper.
+* Evaluation glyph: result.
+* Example for a small book: small.
+* Example indentation: exampleindent.
+* Example menu: Menu Example.
+* example, arg to @kbdinputstyle: kbd.
+* Examples, formatting them: example.
+* Expanding macros: Invoking Macros.
+* Expansion, indicating it: expansion.
+* Expressions in a program, indicating: code.
+* F.B.I., as acronym: acronym.
+* File beginning: Beginning a File.
+* File ending: Ending a File.
+* File section structure, showing it: Showing the Structure.
+* Filling paragraphs: Refilling Paragraphs.
+* Final output: Overfull hboxes.
+* Finding badly referenced nodes: Running Info-Validate.
+* Fine-tuning, and hyphenation: - and hyphenation.
+* First line of a Texinfo file: First Line.
+* First node: First Node.
+* Floating accents, inserting: Inserting Accents.
+* Flooding: pxref.
+* Fonts for indices: syncodeindex.
+* Fonts for printing, not for Info: Fonts.
+* Footings: Headings.
+* Footnotes: Footnotes.
+* Format a dimension: dmn.
+* Format and print hardcopy: Hardcopy.
+* Format and print in Texinfo mode: Texinfo Mode Printing.
+* Format file, dumping: Preparing for TeX.
+* Format with the compile command: Compile-Command.
+* Format, print from Emacs shell: Within Emacs.
+* Formats for images: Images.
+* Formatting a file for Info: Creating an Info File.
+* Formatting commands: Formatting Commands.
+* Formatting examples: example.
+* Formatting for Info: Info Formatting.
+* Formatting for printing: Printing.
+* Formatting headings and footings: Headings.
+* Formatting requirements: Requirements Summary.
+* Formatting with tex and texindex: Format with tex/texindex.
+* Frequently used commands, inserting: Inserting.
+* Function definitions: Sample Function Definition.
+* General syntactic conventions: Conventions.
+* Generating menus with indices: Printing Indices & Menus.
+* Generating plain text files: makeinfo options.
+* German S: Inserting Accents.
+* GIF, unsupported due to patents: Images.
+* Globbing: Format with tex/texindex.
+* Glyphs: Glyphs.
+* GNU Emacs: Texinfo Mode.
+* GNU Emacs shell, format, print from: Within Emacs.
+* Going to other Info files' nodes: Other Info Files.
+* Grave accent: Inserting Accents.
+* Group (hold text together vertically): group.
+* Grouping two definitions together: deffnx.
+* Hardcopy, printing it: Hardcopy.
+* hboxes, overfull: Overfull hboxes.
+* Header for Texinfo files: Header.
+* Header of a Texinfo file: First Line.
+* Headings: Headings.
+* Headings, page, begin to appear: end titlepage.
+* Height of images: Images.
+* Height of text area: pagesizes.
+* help2man: Using Texinfo.
+* Highlighting text: Indicating.
+* Highlighting, customized: definfoenclose.
+* Hints: Tips.
+* History of Texinfo: Acknowledgements and History.
+* Holding text together vertically: group.
+* href, producing HTML: uref.
+* HTML: makeinfo html.
+* HTML commands, using ordinary: Raw Formatter Commands.
+* http-equiv, and charset: documentencoding.
+* Hungarian umlaut accent: Inserting Accents.
+* Hurricanes: ref.
+* Hyphenation patterns, language-dependent: documentlanguage.
+* Hyphenation, helping TeX do: - and hyphenation.
+* Hyphenation, preventing: w.
+* i: Inserting Accents.
+* If text conditionally visible: Conditionals.
+* ifinfo permissions: ifinfo Permissions.
+* Ignored before @setfilename: setfilename.
+* Ignored text: Comments.
+* Image formats: Images.
+* Images, inserting: Images.
+* Inches: Images.
+* Include file requirements: Include File Requirements.
+* Include file sample: Sample Include File.
+* Include files: Include Files.
+* Include files, and section levels: Raise/lower sections.
+* Indentation undoing: exdent.
+* Indenting environments: exampleindent.
+* Indenting paragraphs: paragraphindent.
+* Index entries: Indexing Commands.
+* Index entries, making: Index Entries.
+* Index entry writing: Indexing Commands.
+* Index file names: Format with tex/texindex.
+* Index font types: Indexing Commands.
+* Indexing commands, predefined: Indexing Commands.
+* Indexing table entries automatically: ftable vtable.
+* Indicating commands, definitions, etc.: Indicating.
+* Indicating evaluation: result.
+* Indices: Indices.
+* Indices, combining them: Combining Indices.
+* Indices, defining new: New Indices.
+* Indices, printing and menus: Printing Indices & Menus.
+* Indices, sorting: Hardcopy.
+* Indices, two letter names: syncodeindex.
+* Indirect subfiles: Tag and Split Files.
+* Info batch formatting: Batch Formatting.
+* Info file installation: Install an Info File.
+* Info file requires @setfilename: setfilename.
+* Info file, listing a new: New Info File.
+* Info file, splitting manually: Splitting.
+* Info files: Info Files.
+* Info formatting: Info Formatting.
+* Info installed in another directory: Other Info Directories.
+* Info validating a large file: Using Info-validate.
+* Info, creating an online file: Creating an Info File.
+* Info-directory-list: Other Info Directories.
+* Info; other files' nodes: Other Info Files.
+* INFOPATH: Other Info Directories.
+* Initialization file for TeX input: Preparing for TeX.
+* Input encoding, declaring: documentencoding.
+* Insert nodes, menus automatically: Updating Nodes and Menus.
+* Inserting @, braces: Braces Atsigns.
+* Inserting accents: Inserting Accents.
+* Inserting dots <1>: Dots Bullets.
+* Inserting dots: dots.
+* Inserting ellipsis: Dots Bullets.
+* Inserting frequently used commands: Inserting.
+* Inserting space: Inserting Space.
+* Inserting special characters and symbols: Insertions.
+* INSTALL file, generating: makeinfo options.
+* install-info: Invoking install-info.
+* Installing an Info file: Install an Info File.
+* Installing Info in another directory: Other Info Directories.
+* Internationalization: Internationalization.
+* Introduction to Texinfo: Using Texinfo.
+* Introduction, as part of file: Software Copying Permissions.
+* Invalid characters in node names: Node Line Requirements.
+* Invoking macros: Invoking Macros.
+* ISO 639 codes: documentlanguage.
+* Itemization: itemize.
+* j: Inserting Accents.
+* JPEG image format: Images.
+* Keyboard input: kbd.
+* Keys, recommended names: key.
+* Keywords, indicating: code.
+* Knuth, Donald: Printed Books.
+* Language codes: documentlanguage.
+* Language, declaring: documentlanguage.
+* Larger or smaller pages: Cropmarks and Magnification.
+* Legal paper, printing on: pagesizes.
+* Less cluttered menu entry: Less Cluttered Menu Entry.
+* License agreement: Software Copying Permissions.
+* Line breaks: Line Breaks.
+* Line breaks, preventing: w.
+* Line length, column widths as fraction of: Multitable Column Widths.
+* Line spacing: sp.
+* Lisp example: lisp.
+* Lisp example for a small book: small.
+* List of @-commands: Command List.
+* Listing a new info file: New Info File.
+* Lists and tables, making: Lists and Tables.
+* Local variables: Compile-Command.
+* Location of menus: Menu Location.
+* Looking for badly referenced nodes: Running Info-Validate.
+* lpr (DVI print command): Print with lpr.
+* lpr-d, replacements on MS-DOS/MS-Windows: Print with lpr.
+* Macro definitions <1>: Sample Function Definition.
+* Macro definitions: Defining Macros.
+* Macro details: Macro Details.
+* Macro invocation: Invoking Macros.
+* Macron accent: Inserting Accents.
+* Macros: Defining New Texinfo Commands.
+* Macros, undefining: Defining Macros.
+* Magnified printing: Cropmarks and Magnification.
+* mailto link: email.
+* makeinfo: Using Texinfo.
+* makeinfo inside Emacs: makeinfo in Emacs.
+* makeinfo options: makeinfo options.
+* Making a printed manual: Hardcopy.
+* Making a tag table automatically: Tag and Split Files.
+* Making a tag table manually: Unsplit.
+* Making cross references: Cross References.
+* Making line and page breaks: Breaks.
+* Making lists and tables: Lists and Tables.
+* Man page output, not supported: Using Texinfo.
+* Man page, reference to: uref.
+* Manual characteristics, printed: Printed Books.
+* Margins on page, not controllable: pagesizes.
+* Marking text within a paragraph: Marking Text.
+* Marking words and phrases: Marking Text.
+* Master menu: The Top Node.
+* Master menu parts: Master Menu Parts.
+* Mathematical expressions <1>: math.
+* Mathematical expressions: Raw Formatter Commands.
+* Menu description, start: Inserting.
+* Menu entries with two colons: Less Cluttered Menu Entry.
+* Menu example: Menu Example.
+* Menu location: Menu Location.
+* Menu parts: Menu Parts.
+* Menu writing: Writing a Menu.
+* Menus: Menus.
+* Menus generated with indices: Printing Indices & Menus.
+* meta HTML tag, and charset: documentencoding.
+* META key: key.
+* Meta-syntactic chars for arguments: Optional Arguments.
+* Millimeters: Images.
+* Minimal requirements for formatting: Requirements Summary.
+* Minimal Texinfo file (requirements): Minimum.
+* Mistakes, catching: Catching Mistakes.
+* Mode, using Texinfo: Texinfo Mode.
+* Multiple spaces: Multiple Spaces.
+* Multitable column widths: Multitable Column Widths.
+* Multitable rows: Multitable Rows.
+* Must have in Texinfo file: Minimum.
+* Mutually recursive macros: Defining Macros.
+* Names for indices: syncodeindex.
+* Names of index files: Format with tex/texindex.
+* Names recommended for keys: key.
+* Naming a `Top' Node in references: Top Node Naming.
+* NASA, as acronym: acronym.
+* Navigation links, omitting: makeinfo options.
+* Need space at page bottom: need.
+* New index defining: New Indices.
+* New info file, listing it in dir file: New Info File.
+* New Texinfo commands, defining: Defining New Texinfo Commands.
+* Node line requirements: Node Line Requirements.
+* Node line writing: Writing a Node.
+* Node name must be unique: Node Line Requirements.
+* Node name, should not contain @-commands: Node Line Requirements.
+* Node names, choosing: Node Names.
+* Node, `Top': The Top Node.
+* Node, defined: node.
+* Nodes for menus are short: Menu Location.
+* Nodes in other Info files: Other Info Files.
+* Nodes, catching mistakes: Catching Mistakes.
+* Nodes, checking for badly referenced: Running Info-Validate.
+* Non-breakable space: w.
+* Not ending a sentence: Not Ending a Sentence.
+* O'Dea, Brendan: Using Texinfo.
+* Obtaining TeX: Obtaining TeX.
+* Occurrences, listing with @occur: Using occur.
+* OE: Inserting Accents.
+* oe: Inserting Accents.
+* Optional and repeated arguments: Optional Arguments.
+* Options for makeinfo: makeinfo options.
+* Ordinary HTML commands, using: Raw Formatter Commands.
+* Ordinary TeX commands, using: Raw Formatter Commands.
+* Other Info files' nodes: Other Info Files.
+* Outline of file structure, showing it: Showing the Structure.
+* Output file splitting: makeinfo options.
+* Output formats, supporting more: Using Texinfo.
+* Overfull hboxes: Overfull hboxes.
+* Overview of Texinfo: Overview.
+* Page breaks: page.
+* Page delimiter in Texinfo mode: Showing the Structure.
+* Page headings: Headings.
+* Page numbering: Headings.
+* Page sizes for books: smallbook.
+* Page sizes, customized: pagesizes.
+* page-delimiter: Showing the Structure.
+* Pages, starting odd: setchapternewpage.
+* Paper size, European A4: A4 Paper.
+* Paragraph indentation: paragraphindent.
+* Paragraph, marking text within: Marking Text.
+* Paragraphs, filling: Refilling Paragraphs.
+* Parameters to macros: Defining Macros.
+* Parsing errors: makeinfo in Emacs.
+* Part of file formatting and printing: Printing.
+* Parts of a cross reference: Cross Reference Parts.
+* Parts of a master menu: Master Menu Parts.
+* Parts of a menu: Menu Parts.
+* PDF output: PDF Output.
+* pdftex: PDF Output.
+* pdftex, and images: Images.
+* Period in nodename: Node Line Requirements.
+* Periods, inserting: Not Ending a Sentence.
+* Permissions: Sample Permissions.
+* Permissions, printed: Copyright & Permissions.
+* Picas: Images.
+* Pictures, inserting: Images.
+* Pinard, Franc,ois: Acknowledgements and History.
+* plain TeX: Raw Formatter Commands.
+* Plain text output: makeinfo options.
+* PNG image format: Images.
+* Point, indicating in a buffer: Point Glyph.
+* Pointer creation with makeinfo: makeinfo Pointer Creation.
+* Pointer validation with makeinfo: Pointer Validation.
+* Pointer validation, suppressing <1>: Format with tex/texindex.
+* Pointer validation, suppressing: makeinfo options.
+* Points (dimension): Images.
+* Predefined indexing commands: Indexing Commands.
+* Predefined names for indices: syncodeindex.
+* Preparing for TeX: Preparing for TeX.
+* Preventing line and page breaks: Breaks.
+* Previous node of Top node: First Node.
+* Print and format in Texinfo mode: Texinfo Mode Printing.
+* Print, format from Emacs shell: Within Emacs.
+* Printed book and manual characteristics: Printed Books.
+* Printed output, indicating it: Print Glyph.
+* Printed permissions: Copyright & Permissions.
+* Printing a region or buffer: Printing.
+* Printing an index: Printing Indices & Menus.
+* Printing cropmarks: Cropmarks and Magnification.
+* Printing DVI files, on MS-DOS/MS-Windows: Print with lpr.
+* Printing hardcopy: Hardcopy.
+* Problems, catching: Catching Mistakes.
+* Program names, indicating: command.
+* Prototype row, column widths defined by: Multitable Column Widths.
+* Quotations: quotation.
+* Raising and lowering sections: Raise/lower sections.
+* Raw formatter commands: Raw Formatter Commands.
+* Recommended names for keys: key.
+* Rectangle, black in hardcopy: Overfull hboxes.
+* Recursion, mutual: Defining Macros.
+* Recursive macro invocations: Defining Macros.
+* Reference to @-commands: Command List.
+* References: Cross References.
+* References using @inforef: inforef.
+* References using @pxref: pxref.
+* References using @ref: ref.
+* References using @xref: xref.
+* Referring to other Info files: Other Info Files.
+* Refilling paragraphs: Refilling Paragraphs.
+* Region formatting and printing: Printing.
+* Region printing in Texinfo mode: Texinfo Mode Printing.
+* Reid, Brian: Acknowledgements and History.
+* Repeated and optional arguments: Optional Arguments.
+* Reporting bugs: Reporting Bugs.
+* Required in Texinfo file: Minimum.
+* Requirements for formatting: Requirements Summary.
+* Requirements for include files: Include File Requirements.
+* Requirements for updating commands: Updating Requirements.
+* Reserved words, indicating: code.
+* Result of an expression: result.
+* ridt.eps: Images.
+* Ring accent: Inserting Accents.
+* Rows, of a multitable: Multitable Rows.
+* Running an Info formatter: Info Formatting.
+* Running Info-validate: Using Info-validate.
+* Running macros: Invoking Macros.
+* Running makeinfo in Emacs: makeinfo in Emacs.
+* Sample @include file: Sample Include File.
+* Sample function definition: Sample Function Definition.
+* Sample permissions: Sample Permissions.
+* Sample Texinfo file: Short Sample.
+* Sample Texinfo file, no comments: Sample Texinfo File.
+* Scaled points: Images.
+* Schwab, Andreas: Acknowledgements and History.
+* Scribe: Acknowledgements and History.
+* Sea surges: ref.
+* Section structure of a file, showing it: Showing the Structure.
+* Sections, raising and lowering: Raise/lower sections.
+* Sentence ending punctuation: Ending a Sentence.
+* Sentence non-ending punctuation: Not Ending a Sentence.
+* Separate footnote style: Footnote Styles.
+* SGML-tools output format: Using Texinfo.
+* Sharp S: Inserting Accents.
+* Shell formatting with tex and texindex: Format with tex/texindex.
+* Shell printing, on MS-DOS/MS-Windows: Print with lpr.
+* Shell, format, print from: Within Emacs.
+* Shell, running makeinfo in: makeinfo in Emacs.
+* Short nodes for menus: Menu Location.
+* Short table of contents: Contents.
+* Showing the section structure of a file: Showing the Structure.
+* Showing the structure of a file: Using texinfo-show-structure.
+* Site-wide Texinfo configuration file: Preparing for TeX.
+* Size of printed book: smallbook.
+* slanted typewriter font, for @kbd: kbd.
+* Small book example: small.
+* Small book size: smallbook.
+* Small caps font: Smallcaps.
+* Software copying permissions: Software Copying Permissions.
+* Sorting indices: Hardcopy.
+* Source file: Using Texinfo.
+* Space, inserting horizontal: Multiple Spaces.
+* Space, inserting vertical: sp.
+* Spaces in macros: Defining Macros.
+* Spaces, in menus: Writing a Menu.
+* Spacing, inserting: Inserting Space.
+* Special characters, commands to insert: Braces Atsigns.
+* Special insertions: Insertions.
+* Special typesetting commands: Dots Bullets.
+* Specifying index entries: Indexing Commands.
+* Splitting an Info file manually: Splitting.
+* Splitting of output files: makeinfo options.
+* ss: Inserting Accents.
+* Stallman, Richard M.: Acknowledgements and History.
+* Start of header line: Start of Header.
+* Starting chapters: setchapternewpage.
+* Structure of a file, showing it: Showing the Structure.
+* Structure, catching mistakes in: Catching Mistakes.
+* Structuring of chapters: Structuring.
+* Subsection-like commands: unnumberedsubsec appendixsubsec subheading.
+* Subsub commands: subsubsection.
+* Suggestions for Texinfo, making: Reporting Bugs.
+* Syntactic conventions: Conventions.
+* Syntactic tokens, indicating: code.
+* Syntax, of @-commands: Command Syntax.
+* Syntax, optional & repeated arguments: Optional Arguments.
+* Table of contents: Contents.
+* Table of contents, after title page: Contents.
+* Tables and lists, making: Lists and Tables.
+* Tables with indexes: ftable vtable.
+* Tables, making multi-column: Multi-column Tables.
+* Tables, making two-column: Two-column Tables.
+* Tabs; don't use!: Conventions.
+* Tag table, making automatically: Tag and Split Files.
+* Tag table, making manually: Unsplit.
+* Targets for cross-references, arbitrary: anchor.
+* Template for a definition: Def Cmd Template.
+* TeX commands, using ordinary: Raw Formatter Commands.
+* TeX index sorting: Hardcopy.
+* TeX input initialization: Preparing for TeX.
+* TeX, how to obtain: Obtaining TeX.
+* texi2dvi: Format with tex/texindex.
+* texi2dvi (shell script): Format with texi2dvi.
+* texi2roff, unsupported software: Printed Books.
+* texindex <1>: Hardcopy.
+* texindex: Format with tex/texindex.
+* Texinfo commands, defining new: Defining New Texinfo Commands.
+* Texinfo file beginning: Beginning a File.
+* Texinfo file ending: Ending a File.
+* Texinfo file header: Header.
+* Texinfo file minimum: Minimum.
+* Texinfo file section structure, showing it: Showing the Structure.
+* Texinfo mode: Texinfo Mode.
+* Texinfo overview: Overview.
+* Texinfo printed book characteristics: Printed Books.
+* Texinfo, introduction to: Using Texinfo.
+* texinfo.cnf: setfilename.
+* texinfo.cnf installation: Preparing for TeX.
+* texinfo.tex, installing: Preparing for TeX.
+* TEXINPUTS: Preparing for TeX.
+* TEXINPUTS environment variable: Preparing for TeX.
+* Text width and height: pagesizes.
+* Text, conditionally visible: Conditionals.
+* Text, marking up: Marking Text.
+* Thin space between number, dimension: dmn.
+* Tie-after accent: Inserting Accents.
+* Tied space: w.
+* Tilde accent: Inserting Accents.
+* Tips: Tips.
+* Title page: titlepage.
+* Title page, bastard: titlepage.
+* Titlepage end starts headings: end titlepage.
+* Titlepage permissions: Titlepage Permissions.
+* Titlepage, for plain text: Titlepage & Copyright Page.
+* Top node: The Top Node.
+* Top node is first: First Node.
+* Top node naming for references: Top Node Naming.
+* Top node summary: Top Node Summary.
+* Tree structuring: Tree Structuring.
+* Two `First' Lines for @deffn: deffnx.
+* Two letter names for indices: syncodeindex.
+* Two named items for @table: itemx.
+* Two part menu entry: Less Cluttered Menu Entry.
+* txi-CC.tex: documentlanguage.
+* Typesetting commands for dots, etc.: Dots Bullets.
+* Ugly black rectangles in hardcopy: Overfull hboxes.
+* Umlaut accent: Inserting Accents.
+* Unbreakable space: w.
+* Uncluttered menu entry: Less Cluttered Menu Entry.
+* Undefining macros: Defining Macros.
+* Underbar accent: Inserting Accents.
+* Underdot accent: Inserting Accents.
+* Uniform resource locator, indicating: url.
+* Uniform resource locator, referring to: uref.
+* Unique nodename requirement: Node Line Requirements.
+* Unprocessed text: Comments.
+* Unsplit file creation: Unsplit.
+* Up node of Top node: First Node.
+* Updating nodes and menus: Updating Nodes and Menus.
+* Updating requirements: Updating Requirements.
+* URI syntax for Info: Info Files.
+* URL, indicating: url.
+* URL, referring to: uref.
+* Usage tips: Tips.
+* user input: kbd.
+* User options, marking: Variables Commands.
+* User-defined Texinfo commands: Defining New Texinfo Commands.
+* Using Texinfo in general: Using Texinfo.
+* Validating a large file: Using Info-validate.
+* Validation of pointers: Pointer Validation.
+* Value of an expression, indicating: result.
+* version number, finding: Invoking install-info.
+* Vertical whitespace (vskip): Copyright & Permissions.
+* Vertically holding text together: group.
+* Visibility of conditional text: Conditionals.
+* Weinberg, Zack: Acknowledgements and History.
+* Weisshaus, Melissa: Acknowledgements and History.
+* Whitespace in macros: Defining Macros.
+* Whitespace, inserting: Multiple Spaces.
+* Width of images: Images.
+* Width of text area: pagesizes.
+* Widths, defining multitable column: Multitable Column Widths.
+* Wildcards: Format with tex/texindex.
+* Words and phrases, marking them: Marking Text.
+* Writing a menu: Writing a Menu.
+* Writing an @node line: Writing a Node.
+* Writing index entries: Indexing Commands.
+* Zaretskii, Eli: Acknowledgements and History.
+* Zuhn, David D.: Acknowledgements and History.
+
+
--- /dev/null
+;;; gpm.el --- Support the mouse when emacs run on a Linux console.
+
+;; Copyright (C) 1999 Free Software Foundation
+
+;; Author: William Perry <wmperry@gnu.org>
+;; Keywords: mouse, terminals
+
+;; This file is part of XEmacs.
+
+;; XEmacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; XEmacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+(defvar gpm-enabled-devices (make-hash-table :test 'eq
+ :size 13
+ :weakness 'key)
+ "A hash table of devices with GPM currently turned on.")
+
+(defun gpm-mode (&optional arg device)
+ "Toggle GPM mouse mode.
+With prefix arg, turn GPM mouse mode on if and only if arg is positive."
+ (interactive (list current-prefix-arg (selected-device)))
+ (cond
+ ((null arg) ; Toggle
+ (if (gethash device gpm-enabled-devices)
+ (progn
+ (gpm-enable device nil)
+ (remhash device gpm-enabled-devices))
+ (gpm-enable device t)
+ (puthash device t gpm-enabled-devices)))
+ ((> arg 0) ; Turn on
+ (gpm-enable device t)
+ (puthash device t gpm-enabled-devices))
+ ((gethash device gpm-enabled-devices) ; Turn off
+ (gpm-enable device nil)
+ (remhash device gpm-enabled-devices))))
+
+(defun turn-on-gpm-mouse-tracking (&optional device)
+ ;; Enable mouse tracking on linux console
+ (gpm-mode 5 device))
+
+(defun turn-off-gpm-mouse-tracking (&optional device)
+ ;; Disable mouse tracking on linux console
+ (gpm-mode -5 device))
+
+(defun gpm-create-device-hook (device)
+ (if (and (not noninteractive) ; Don't want to do this in batch mode
+ (fboundp 'gpm-enable) ; Must have C-level GPM support
+ (eq system-type 'linux) ; Must be running linux
+ (eq (device-type device) 'tty) ; on a tty
+ (equal "linux" (console-tty-terminal-type ; an a linux terminal type
+ (device-console device))))
+ (turn-on-gpm-mouse-tracking device)))
+
+(defun gpm-delete-device-hook (device)
+ (if (and (not noninteractive) ; Don't want to do this in batch mode
+ (fboundp 'gpm-enable) ; Must have C-level GPM support
+ (eq system-type 'linux) ; Must be running linux
+ (eq (device-type device) 'tty) ; on a tty
+ (equal "linux" (console-tty-terminal-type ; an a linux terminal type
+ (device-console device))))
+ (turn-off-gpm-mouse-tracking device)))
+
+;; Restore normal mouse behaviour outside Emacs
+
+(add-hook 'suspend-hook 'turn-off-gpm-mouse-tracking)
+(add-hook 'suspend-resume-hook 'turn-on-gpm-mouse-tracking)
+(add-hook 'create-device-hook 'gpm-create-device-hook)
+(add-hook 'delete-device-hook 'gpm-delete-device-hook)
+
+(provide 'gpm)
--- /dev/null
+;;; DO NOT MODIFY THIS FILE
+(if (featurep 'mule-autoloads) (error "Already loaded"))
+\f
+;;;### (autoloads (ccl-execute-with-args check-ccl-program define-ccl-program declare-ccl-program ccl-dump ccl-compile ccl-program-p) "mule-ccl" "mule/mule-ccl.el")
+
+(autoload 'ccl-program-p "mule-ccl" "\
+T if OBJECT is a valid CCL compiled code." nil nil)
+
+(autoload 'ccl-compile "mule-ccl" "\
+Return a compiled code of CCL-PROGRAM as a vector of integer." nil nil)
+
+(autoload 'ccl-dump "mule-ccl" "\
+Disassemble compiled CCL-CODE." nil nil)
+
+(autoload 'declare-ccl-program "mule-ccl" "\
+Declare NAME as a name of CCL program.
+
+To compile a CCL program which calls another CCL program not yet
+defined, it must be declared as a CCL program in advance.
+Optional arg VECTOR is a compiled CCL code of the CCL program." nil 'macro)
+
+(autoload 'define-ccl-program "mule-ccl" "\
+Set NAME the compiled code of CCL-PROGRAM.
+CCL-PROGRAM is `eval'ed before being handed to the CCL compiler `ccl-compile'.
+The compiled code is a vector of integers." nil 'macro)
+
+(autoload 'check-ccl-program "mule-ccl" "\
+Check validity of CCL-PROGRAM.
+If CCL-PROGRAM is a symbol denoting a valid CCL program, return
+CCL-PROGRAM, else return nil.
+If CCL-PROGRAM is a vector and optional arg NAME (symbol) is supplied,
+register CCL-PROGRAM by name NAME, and return NAME." nil 'macro)
+
+(autoload 'ccl-execute-with-args "mule-ccl" "\
+Execute CCL-PROGRAM with registers initialized by the remaining args.
+The return value is a vector of resulting CCL registers." nil nil)
+
+;;;***
+
+(provide 'mule-autoloads)
--- /dev/null
+;;; custom-load.el --- automatically extracted custom dependencies
+
+;;; Code:
+
+(custom-add-loads 'mule '("mule-cmds"))
+
+;;; custom-load.el ends here
--- /dev/null
+@c -*-texinfo-*-
+@setfilename ../../info/index.info
+
+@c Indexing guidelines
+
+@c I assume that all indexes will be combined.
+@c Therefore, if a generated findex and permutations
+@c cover the ways an index user would look up the entry,
+@c then no cindex is added.
+@c Concept index (cindex) entries will also be permuted. Therefore, they
+@c have no commas and few irrelevant connectives in them.
+
+@c I tried to include words in a cindex that give the context of the entry,
+@c particularly if there is more than one entry for the same concept.
+@c For example, "nil in keymap"
+@c Similarly for explicit findex and vindex entries, e.g. "print example".
+
+@c Error codes are given cindex entries, e.g. "end-of-file error".
+
+@c pindex is used for .el files and Unix programs
+
+@node Index, , Interface to X Windows, Top
+@unnumbered Index
+
+@ignore
+All variables, functions, keys, programs, files, and concepts are
+in this one index.
+
+All names and concepts are permuted, so they appear several times, one
+for each permutation of the parts of the name. For example,
+@code{function-name} would appear as @b{function-name} and @b{name,
+function-}. Key entries are not permuted, however.
+@end ignore
+
+@c Print the indices
+
+@printindex fn
--- /dev/null
+@c -*-texinfo-*-
+@setfilename ../../info/index.info
+
+@c Indexing guidelines
+
+@c I assume that all indexes will be combined.
+@c Therefore, if a generated findex and permutations
+@c cover the ways an index user would look up the entry,
+@c then no cindex is added.
+@c Concept index (cindex) entries will also be permuted. Therefore, they
+@c have no commas and few irrelevant connectives in them.
+
+@c I tried to include words in a cindex that give the context of the entry,
+@c particularly if there is more than one entry for the same concept.
+@c For example, "nil in keymap"
+@c Similarly for explicit findex and vindex entries, e.g. "print example".
+
+@c Error codes are given cindex entries, e.g. "end-of-file error".
+
+@c pindex is used for .el files and Unix programs
+
+@node Index, , Standard Hooks, Top
+@unnumbered Index
+
+@ignore
+All variables, functions, keys, programs, files, and concepts are
+in this one index.
+
+All names and concepts are permuted, so they appear several times, one
+for each permutation of the parts of the name. For example,
+@code{function-name} would appear as @b{function-name} and @b{name,
+function-}. Key entries are not permuted, however.
+@end ignore
+
+@c Print the indices
+
+@printindex fn
--- /dev/null
+/* esd.c - play a sound over ESD
+
+This file is part of XEmacs.
+
+XEmacs is free software; you can redistribute it and/or modify it
+under the terms of the GNU General Public License as published by the
+Free Software Foundation; either version 2, or (at your option) any
+later version.
+
+XEmacs is distributed in the hope that it will be useful, but WITHOUT
+ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+for more details.
+
+You should have received a copy of the GNU General Public License
+along with XEmacs; see the file COPYING. If not, write to
+the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA. */
+
+/* Synched up with: Not in FSF. */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include "lisp.h"
+#include "miscplay.h"
+
+#include <esd.h>
+
+#include <unistd.h>
+#include <fcntl.h>
+#include <stdio.h>
+#include <errno.h>
+#include <string.h>
+
+/* the name given to ESD - I think this should identify ourselves */
+#define ESD_NAME "xemacs"
+
+int esd_play_sound_file(char *file, int vol);
+int esd_play_sound_file(char *file, int vol)
+{ /* #### FIXME: vol is ignored */
+ return esd_play_file(ESD_NAME, file, 0);
+}
+
+int esd_play_sound_data(unsigned char *data, size_t length, int vol);
+int esd_play_sound_data(unsigned char *data, size_t length, int vol)
+{ /* #### FIXME: vol is ignored */
+ size_t (*parsesndfile)(void **dayta,size_t *sz,void **outbuf);
+ size_t (*sndcnv)(void **dayta,size_t *sz,void **);
+ fmtType ffmt;
+ int fmt,speed,tracks;
+ unsigned char *pptr,*optr,*cptr,*sptr;
+ ssize_t wrtn;
+ size_t crtn;
+ size_t prtn;
+ int flags, sock;
+
+ /* analyze_format needs at least this many bytes to work with */
+ if (length < HEADERSZ)
+ return 0;
+
+ ffmt = analyze_format(data,&fmt,&speed,&tracks,&parsesndfile);
+
+ if (ffmt != fmtRaw && ffmt != fmtSunAudio && ffmt != fmtWave) {
+ message(GETTEXT("audio: Unsupported file format (neither RAW, nor Sun/DECAudio, nor WAVE)"));
+ return 0;
+ }
+
+ /* convert header information into ESD flags */
+ flags = ESD_STREAM|ESD_PLAY;
+ sndcnv = sndcnvnop;
+ switch (fmt)
+ {
+ case AFMT_MU_LAW:
+ sndcnv = sndcnvULaw_2linear;
+ flags |= ESD_BITS8;
+ break;
+ case AFMT_S8:
+ sndcnv = sndcnv2unsigned; /* ESD needs unsigned bytes */
+ case AFMT_U8:
+ flags |= ESD_BITS8;
+ break;
+ case AFMT_S16_BE:
+ sndcnv = sndcnv16swap; /* ESD wants little endian */
+ case AFMT_S16_LE:
+ flags |= ESD_BITS16;
+ break;
+ default:
+ message(GETTEXT("audio: byte format %d unimplemented"), fmt);
+ return 0;
+ }
+ switch (tracks)
+ {
+ case 1: flags |= ESD_MONO; break;
+ case 2: flags |= ESD_STEREO; break;
+ default:
+ message(GETTEXT("audio: %d channels - only 1 or 2 supported"), tracks);
+ return 0;
+ }
+
+ sock = esd_play_stream(flags, speed, NULL, "xemacs");
+ if (sock < 0)
+ return 0;
+
+ reset_parsestate();
+
+ for (pptr = data; (prtn = parsesndfile((void **)&pptr,&length,
+ (void **)&optr)) > 0; )
+ for (cptr = optr; (crtn = sndcnv((void **)&cptr,&prtn,
+ (void **)&sptr)) > 0; ) {
+ if ((wrtn = write(sock,sptr,crtn)) < 0) {
+ message(GETTEXT("audio: write error (%s)"), strerror(errno));
+ goto END_OF_PLAY;
+ }
+ if (wrtn != crtn) {
+ message(GETTEXT("audio: only wrote %d of %d bytes"), wrtn, crtn);
+ goto END_OF_PLAY;
+ }
+ }
+
+ if (ffmt == fmtWave)
+ parse_wave_complete();
+
+END_OF_PLAY:
+ /* Now cleanup all used resources */
+
+ close(sock);
+ return 1;
+}
--- /dev/null
+/* miscplay.c - general routines related to playing sounds
+ **
+ ** Copyright (C) 1995,96 by Markus Gutschke (gutschk@math.uni-muenster.de)
+ ** This was sawed out from version 1.3 of linuxplay.c by
+ ** Robert Bihlmeyer <robbe@orcus.priv.at>.
+ **
+ ** Parts of this code were inspired by sunplay.c, which is copyright 1989 by
+ ** Jef Poskanzer and 1991,92 by Jamie Zawinski; c.f. sunplay.c for further
+ ** information.
+ **
+ ** Permission to use, copy, modify, and distribute this software and its
+ ** documentation for any purpose and without fee is hereby granted, provided
+ ** that the above copyright notice appear in all copies and that both that
+ ** copyright notice and this permission notice appear in supporting
+ ** documentation. This software is provided "as is" without express or
+ ** implied warranty.
+ */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include "miscplay.h"
+#include "lisp.h"
+#include "syssignal.h"
+#include "sysfile.h"
+#define warn(str) message("audio: %s ",GETTEXT(str))
+
+#include <stdlib.h>
+
+#ifdef __GNUC__
+#define UNUSED(x) ((void)(x))
+#else
+#define UNUSED(x)
+#define __inline__
+#endif
+
+/* Maintain global variable for keeping parser state information; this struct
+ is set to zero before the first invocation of the parser. The use of a
+ global variable prevents multiple concurrent executions of this code, but
+ this does not happen anyways... */
+enum wvState
+{ wvMain,
+ wvSubchunk,
+ wvOutOfBlock,
+ wvSkipChunk,
+ wvSoundChunk,
+ wvFatal,
+ wvFatalNotify
+};
+
+static union {
+ struct {
+ int align;
+ enum wvState state;
+ size_t left;
+ unsigned char leftover[HEADERSZ];
+ signed long chunklength;
+ } wave;
+ struct {
+ int align;
+ int isdata;
+ int skipping;
+ size_t left;
+ unsigned char leftover[HEADERSZ];
+ } audio;
+} parsestate;
+
+/* Use a global buffer as scratch-pad for possible conversions of the
+ sampling format */
+unsigned char miscplay_sndbuf[SNDBUFSZ];
+
+/* Initialize global parser state information to zero */
+void reset_parsestate()
+{
+ memset(&parsestate,0,sizeof(parsestate));
+}
+
+/* Verify that we could fully parse the entire soundfile; this is needed
+ only for files in WAVE format */
+int parse_wave_complete()
+{
+ if (parsestate.wave.state != wvOutOfBlock &&
+ parsestate.wave.state != wvFatal) {
+ warn("Unexpected end of WAVE file");
+ return 0;
+ } else
+ return 1;
+}
+
+/* There is no special treatment required for parsing raw data files; we
+ assume that these files contain data in 8bit unsigned format that
+ has been sampled at 8kHz; there is no extra header */
+static size_t parseraw(void **data,size_t *sz,void **outbuf)
+{
+ int rc = *sz;
+
+ *outbuf = *data;
+ *sz = 0;
+ return(rc);
+}
+
+/* Currently we cannot cope with files in VOC format; if you really need
+ to play these files, they should be converted by using SOX */
+static size_t parsevoc(void **data,size_t *sz,void **outbuf)
+{
+ UNUSED(data);
+ UNUSED(sz);
+ UNUSED(outbuf);
+ return(0);
+}
+
+/* We need to perform some look-ahead in order to parse files in WAVE format;
+ this might require re-partioning of the data segments if headers cross the
+ boundaries between two read operations. This is done in a two-step way:
+ first we request a certain amount of bytes... */
+static __inline__ int waverequire(void **data,size_t *sz,size_t rq)
+{
+ int rc = 1;
+
+ if (rq > HEADERSZ) {
+ warn("Header size exceeded while parsing WAVE file");
+ parsestate.wave.state = wvFatal;
+ *sz = 0;
+ return(0); }
+ if ((rq -= parsestate.wave.left) <= 0)
+ return(rc);
+ if (rq > *sz) {rq = *sz; rc = 0;}
+ memcpy(parsestate.wave.leftover+parsestate.wave.left,
+ *data,rq);
+ parsestate.wave.left += rq;
+ (*(unsigned char **)data) += rq;
+ *sz -= rq;
+ return(rc);
+}
+
+/* ...and next we remove this many bytes from the buffer */
+static __inline__ void waveremove(size_t rq)
+{
+ if (parsestate.wave.left <= rq)
+ parsestate.wave.left = 0;
+ else {
+ parsestate.wave.left -= rq;
+ memmove(parsestate.wave.leftover,
+ parsestate.wave.leftover+rq,
+ parsestate.wave.left); }
+ return;
+}
+
+/* Sound files in WAVE format can contain an arbitrary amount of tagged
+ chunks; this requires quite some effort for parsing the data */
+static size_t parsewave(void **data,size_t *sz,void **outbuf)
+{
+ for (;;)
+ switch (parsestate.wave.state) {
+ case wvMain:
+ if (!waverequire(data,sz,20))
+ return(0);
+ /* Keep compatibility with Linux 68k, etc. by not relying on byte-sex */
+ parsestate.wave.chunklength = parsestate.wave.leftover[16] +
+ 256*(parsestate.wave.leftover[17] +
+ 256*(parsestate.wave.leftover[18] +
+ 256*parsestate.wave.leftover[19]));
+ waveremove(20);
+ parsestate.wave.state = wvSubchunk;
+ break;
+ case wvSubchunk:
+ if (!waverequire(data,sz,parsestate.wave.chunklength))
+ return(0);
+ parsestate.wave.align = parsestate.wave.chunklength < 14 ? 1
+ : parsestate.wave.leftover[12];
+ if (parsestate.wave.align != 1 &&
+ parsestate.wave.align != 2 &&
+ parsestate.wave.align != 4) {
+ warn("Illegal datawidth detected while parsing WAVE file");
+ parsestate.wave.state = wvFatal; }
+ else
+ parsestate.wave.state = wvOutOfBlock;
+ waveremove(parsestate.wave.chunklength);
+ break;
+ case wvOutOfBlock:
+ if (!waverequire(data,sz,8))
+ return(0);
+ /* Keep compatibility with Linux 68k, etc. by not relying on byte-sex */
+ parsestate.wave.chunklength = parsestate.wave.leftover[4] +
+ 256*(parsestate.wave.leftover[5] +
+ 256*(parsestate.wave.leftover[6] +
+ 256*(parsestate.wave.leftover[7] & 0x7F)));
+ if (memcmp(parsestate.wave.leftover,"data",4))
+ parsestate.wave.state = wvSkipChunk;
+ else
+ parsestate.wave.state = wvSoundChunk;
+ waveremove(8);
+ break;
+ case wvSkipChunk:
+ if (parsestate.wave.chunklength > 0 && *sz > 0 &&
+ (signed long)*sz < (signed long)parsestate.wave.chunklength) {
+ parsestate.wave.chunklength -= *sz;
+ *sz = 0; }
+ else {
+ if (parsestate.wave.chunklength > 0 && *sz > 0) {
+ *sz -= parsestate.wave.chunklength;
+ (*(unsigned char **)data) += parsestate.wave.chunklength; }
+ parsestate.wave.state = wvOutOfBlock; }
+ break;
+ case wvSoundChunk: {
+ size_t count,rq;
+ if (parsestate.wave.left) { /* handle leftover bytes from last
+ alignment operation */
+ count = parsestate.wave.left;
+ rq = HEADERSZ-count;
+ if (rq > (size_t) parsestate.wave.chunklength)
+ rq = parsestate.wave.chunklength;
+ if (!waverequire(data,sz,rq)) {
+ parsestate.wave.chunklength -= parsestate.wave.left - count;
+ return(0); }
+ parsestate.wave.chunklength -= rq;
+ *outbuf = parsestate.wave.leftover;
+ parsestate.wave.left = 0;
+ return(rq); }
+ if (*sz >= (size_t) parsestate.wave.chunklength) {
+ count = parsestate.wave.chunklength;
+ rq = 0; }
+ else {
+ count = *sz;
+ count -= rq = count % parsestate.wave.align; }
+ *outbuf = *data;
+ (*(unsigned char **)data) += count;
+ *sz -= count;
+ if ((parsestate.wave.chunklength -= count) < parsestate.wave.align) {
+ parsestate.wave.state = wvOutOfBlock;
+ /* Some broken software (e.g. SOX) attaches junk to the end of a sound
+ chunk; so, let's ignore this... */
+ if (parsestate.wave.chunklength)
+ parsestate.wave.state = wvSkipChunk; }
+ else if (rq)
+ /* align data length to a multiple of datasize; keep additional data
+ in "leftover" buffer --- this is necessary to ensure proper
+ functioning of the sndcnv... routines */
+ waverequire(data,sz,rq);
+ return(count); }
+ case wvFatalNotify:
+ warn("Irrecoverable error while parsing WAVE file");
+ parsestate.wave.state = wvFatal;
+ break;
+ case wvFatal:
+ default:
+ *sz = 0;
+ return(0); }
+}
+
+/* Strip the header from files in Sun/DEC audio format; this requires some
+ extra processing as the header can be an arbitrary size and it might
+ result in alignment errors for subsequent conversions --- thus we do
+ some buffering, where needed */
+static size_t parsesundecaudio(void **data,size_t *sz,void **outbuf)
+{
+ /* There is data left over from the last invocation of this function; join
+ it with the new data and return a sound chunk that is as big as a
+ single entry */
+ if (parsestate.audio.left) {
+ if (parsestate.audio.left + *sz > (size_t) parsestate.audio.align) {
+ int count;
+ memmove(parsestate.audio.leftover + parsestate.audio.left,
+ *data,
+ count = parsestate.audio.align - parsestate.audio.left);
+ *outbuf = parsestate.audio.leftover;
+ *sz -= count;
+ *data = (*(char **)data) + count;
+ parsestate.audio.left = 0;
+ return(parsestate.audio.align); }
+ else {
+ /* We need even more data in order to get one complete single entry! */
+ memmove(parsestate.audio.leftover + parsestate.audio.left,
+ *data,
+ *sz);
+ *data = (*(char **)data) + *sz;
+ parsestate.audio.left += *sz;
+ *sz = 0;
+ return(0); } }
+
+ /* This is the main sound chunk, strip of any extra data that does not fit
+ the alignment requirements and move these bytes into the leftover buffer*/
+ if (parsestate.audio.isdata) {
+ int rc = *sz;
+ *outbuf = *data;
+ if ((parsestate.audio.left = rc % parsestate.audio.align) != 0) {
+ memmove(parsestate.audio.leftover,
+ (char *)*outbuf + rc - parsestate.audio.left,
+ parsestate.audio.left);
+ rc -= parsestate.audio.left; }
+ *sz = 0;
+ return(rc); }
+
+ /* This is the first invocation of this function; we need to parse the
+ header information and determine how many bytes we need to skip until
+ the start of the sound chunk */
+ if (!parsestate.audio.skipping) {
+ unsigned char *header = (unsigned char *) *data;
+ if (*sz < 8) {
+ warn("Irrecoverable error while parsing Sun/DEC audio file");
+ return(0); }
+ /* Keep compatibility with Linux 68k, etc. by not relying on byte-sex */
+ if (header[3]) { /* Sun audio (big endian) */
+ parsestate.audio.align = ((header[15] > 2)+1)*header[23];
+ parsestate.audio.skipping = header[7]+256*(header[6]+256*
+ (header[5]+256*header[4])); }
+ else { /* DEC audio (little endian) */
+ parsestate.audio.align = ((header[12] > 2)+1)*header[20];
+ parsestate.audio.skipping = header[4]+256*(header[5]+256*
+ (header[6]+256*header[7])); }}
+
+ /* We are skipping extra data that has been attached to header; most usually
+ this will be just a comment, such as the original filename and/or the
+ creation date. Make sure that we do not return less than one single sound
+ sample entry to the caller; if this happens, rather decide to move those
+ few bytes into the leftover buffer and deal with it later */
+ if (*sz >= (size_t) parsestate.audio.skipping) {
+ /* Skip just the header information and return the sound chunk */
+ int rc = *sz - parsestate.audio.skipping;
+ *outbuf = (char *)*data + parsestate.audio.skipping;
+ if ((parsestate.audio.left = rc % parsestate.audio.align) != 0) {
+ memmove(parsestate.audio.leftover,
+ (char *)*outbuf + rc - parsestate.audio.left,
+ parsestate.audio.left);
+ rc -= parsestate.audio.left; }
+ *sz = 0;
+ parsestate.audio.skipping = 0;
+ parsestate.audio.isdata++;
+ return(rc); }
+ else {
+ /* Skip everything */
+ parsestate.audio.skipping -= *sz;
+ return(0); }
+}
+
+/* If the soundcard could not be set to natively support the data format, we
+ try to do some limited on-the-fly conversion to a different format; if
+ no conversion is needed, though, we can output directly */
+size_t sndcnvnop(void **data,size_t *sz,void **outbuf)
+{
+ int rc = *sz;
+
+ *outbuf = *data;
+ *sz = 0;
+ return(rc);
+}
+
+/* Convert 8 bit unsigned stereo data to 8 bit unsigned mono data */
+size_t sndcnv8U_2mono(void **data,size_t *sz,void **outbuf)
+{
+ REGISTER unsigned char *src;
+ REGISTER unsigned char *dest;
+ int rc,count;
+
+ count = *sz / 2;
+ if (count > SNDBUFSZ) { *sz -= 2*SNDBUFSZ; count = SNDBUFSZ; }
+ else *sz = 0;
+ rc = count;
+ src = (unsigned char *) *data;
+ *outbuf =
+ dest = miscplay_sndbuf;
+ while (count--)
+ *dest++ = (unsigned char)(((int)*(src)++ +
+ (int)*(src)++) / 2);
+ *data = src;
+ return(rc);
+}
+
+/* Convert 8 bit signed stereo data to 8 bit signed mono data */
+size_t sndcnv8S_2mono(void **data,size_t *sz,void **outbuf)
+{
+ REGISTER unsigned char *src;
+ REGISTER unsigned char *dest;
+ int rc, count;
+
+ count = *sz / 2;
+ if (count > SNDBUFSZ) { *sz -= 2*SNDBUFSZ; count = SNDBUFSZ; }
+ else *sz = 0;
+ rc = count;
+ src = (unsigned char *) *data;
+ *outbuf =
+ dest = miscplay_sndbuf;
+ while (count--)
+ *dest++ = (unsigned char)(((int)*((signed char *)(src++)) +
+ (int)*((signed char *)(src++))) / 2);
+ *data = src;
+ return(rc);
+}
+
+/* Convert 8 bit signed stereo data to 8 bit unsigned mono data */
+size_t sndcnv2monounsigned(void **data,size_t *sz,void **outbuf)
+{
+ REGISTER unsigned char *src;
+ REGISTER unsigned char *dest;
+ int rc,count;
+
+ count = *sz / 2;
+ if (count > SNDBUFSZ) { *sz -= 2*SNDBUFSZ; count = SNDBUFSZ; }
+ else *sz = 0;
+ rc = count;
+ src = (unsigned char *) *data;
+ *outbuf =
+ dest = miscplay_sndbuf;
+ while (count--)
+ *dest++ = (unsigned char)(((int)*((signed char *)(src++)) +
+ (int)*((signed char *)(src++))) / 2) ^ 0x80;
+ *data = src;
+ return(rc);
+}
+
+/* Convert 8 bit signed mono data to 8 bit unsigned mono data */
+size_t sndcnv2unsigned(void **data,size_t *sz,void **outbuf)
+{
+ REGISTER unsigned char *src;
+ REGISTER unsigned char *dest;
+ int rc,count;
+
+ count = *sz;
+ if (count > SNDBUFSZ) { *sz -= SNDBUFSZ; count = SNDBUFSZ; }
+ else *sz = 0;
+ rc = count;
+ src = (unsigned char *) *data;
+ *outbuf =
+ dest = miscplay_sndbuf;
+ while (count--)
+ *dest++ = *(src)++ ^ 0x80;
+ *data = src;
+ return(rc);
+}
+
+/* Convert a number in the range -32768..32767 to an 8 bit ulaw encoded
+ number --- I hope, I got this conversion right :-) */
+static __inline__ signed char int2ulaw(int i)
+{
+ /* Lookup table for fast calculation of number of bits that need shifting*/
+ static short int t_bits[128] = {
+ 0,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,
+ 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
+ 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
+ 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7};
+ REGISTER int bits,logi;
+
+ /* unrolling this condition (hopefully) improves execution speed */
+ if (i < 0) {
+ if ((i = (132-i)) > 0x7FFF) i = 0x7FFF;
+ logi = (i >> ((bits = t_bits[i/256])+4));
+ return((bits << 4 | logi) ^ 0x7F); }
+ else {
+ if ((i = 132+i) > 0x7FFF) i = 0x7FFF;
+ logi = (i >> ((bits = t_bits[i/256])+4));
+ return(~(bits << 4 | logi)); }
+}
+
+/* Convert from 8 bit ulaw mono to 8 bit linear mono */
+size_t sndcnvULaw_2linear(void **data,size_t *sz,void **outbuf)
+{
+ /* conversion table stolen from Linux's ulaw.h */
+ static unsigned char ulaw_dsp[] = {
+ 3, 7, 11, 15, 19, 23, 27, 31,
+ 35, 39, 43, 47, 51, 55, 59, 63,
+ 66, 68, 70, 72, 74, 76, 78, 80,
+ 82, 84, 86, 88, 90, 92, 94, 96,
+ 98, 99, 100, 101, 102, 103, 104, 105,
+ 106, 107, 108, 109, 110, 111, 112, 113,
+ 113, 114, 114, 115, 115, 116, 116, 117,
+ 117, 118, 118, 119, 119, 120, 120, 121,
+ 121, 121, 122, 122, 122, 122, 123, 123,
+ 123, 123, 124, 124, 124, 124, 125, 125,
+ 125, 125, 125, 125, 126, 126, 126, 126,
+ 126, 126, 126, 126, 127, 127, 127, 127,
+ 127, 127, 127, 127, 127, 127, 127, 127,
+ 128, 128, 128, 128, 128, 128, 128, 128,
+ 128, 128, 128, 128, 128, 128, 128, 128,
+ 128, 128, 128, 128, 128, 128, 128, 128,
+ 253, 249, 245, 241, 237, 233, 229, 225,
+ 221, 217, 213, 209, 205, 201, 197, 193,
+ 190, 188, 186, 184, 182, 180, 178, 176,
+ 174, 172, 170, 168, 166, 164, 162, 160,
+ 158, 157, 156, 155, 154, 153, 152, 151,
+ 150, 149, 148, 147, 146, 145, 144, 143,
+ 143, 142, 142, 141, 141, 140, 140, 139,
+ 139, 138, 138, 137, 137, 136, 136, 135,
+ 135, 135, 134, 134, 134, 134, 133, 133,
+ 133, 133, 132, 132, 132, 132, 131, 131,
+ 131, 131, 131, 131, 130, 130, 130, 130,
+ 130, 130, 130, 130, 129, 129, 129, 129,
+ 129, 129, 129, 129, 129, 129, 129, 129,
+ 128, 128, 128, 128, 128, 128, 128, 128,
+ 128, 128, 128, 128, 128, 128, 128, 128,
+ 128, 128, 128, 128, 128, 128, 128, 128,
+ };
+ unsigned char *p=(unsigned char *)*data;
+
+ *outbuf = *data;
+ while ((*sz)--)
+ *p++ = ulaw_dsp[*p];
+ *sz = 0;
+ *data = p;
+ return p - (unsigned char *)*outbuf;
+}
+
+/* Convert 8 bit ulaw stereo data to 8 bit ulaw mono data */
+size_t sndcnvULaw_2mono(void **data,size_t *sz,void **outbuf)
+{
+
+ static short int ulaw2int[256] = {
+ /* Precomputed lookup table for conversion from ulaw to 15 bit signed */
+ -16062,-15550,-15038,-14526,-14014,-13502,-12990,-12478,
+ -11966,-11454,-10942,-10430, -9918, -9406, -8894, -8382,
+ -7998, -7742, -7486, -7230, -6974, -6718, -6462, -6206,
+ -5950, -5694, -5438, -5182, -4926, -4670, -4414, -4158,
+ -3966, -3838, -3710, -3582, -3454, -3326, -3198, -3070,
+ -2942, -2814, -2686, -2558, -2430, -2302, -2174, -2046,
+ -1950, -1886, -1822, -1758, -1694, -1630, -1566, -1502,
+ -1438, -1374, -1310, -1246, -1182, -1118, -1054, -990,
+ -942, -910, -878, -846, -814, -782, -750, -718,
+ -686, -654, -622, -590, -558, -526, -494, -462,
+ -438, -422, -406, -390, -374, -358, -342, -326,
+ -310, -294, -278, -262, -246, -230, -214, -198,
+ -186, -178, -170, -162, -154, -146, -138, -130,
+ -122, -114, -106, -98, -90, -82, -74, -66,
+ -60, -56, -52, -48, -44, -40, -36, -32,
+ -28, -24, -20, -16, -12, -8, -4, +0,
+ +16062,+15550,+15038,+14526,+14014,+13502,+12990,+12478,
+ +11966,+11454,+10942,+10430, +9918, +9406, +8894, +8382,
+ +7998, +7742, +7486, +7230, +6974, +6718, +6462, +6206,
+ +5950, +5694, +5438, +5182, +4926, +4670, +4414, +4158,
+ +3966, +3838, +3710, +3582, +3454, +3326, +3198, +3070,
+ +2942, +2814, +2686, +2558, +2430, +2302, +2174, +2046,
+ +1950, +1886, +1822, +1758, +1694, +1630, +1566, +1502,
+ +1438, +1374, +1310, +1246, +1182, +1118, +1054, +990,
+ +942, +910, +878, +846, +814, +782, +750, +718,
+ +686, +654, +622, +590, +558, +526, +494, +462,
+ +438, +422, +406, +390, +374, +358, +342, +326,
+ +310, +294, +278, +262, +246, +230, +214, +198,
+ +186, +178, +170, +162, +154, +146, +138, +130,
+ +122, +114, +106, +98, +90, +82, +74, +66,
+ +60, +56, +52, +48, +44, +40, +36, +32,
+ +28, +24, +20, +16, +12, +8, +4, +0};
+
+ REGISTER unsigned char *src;
+ REGISTER unsigned char *dest;
+ int rc,count;
+
+ count = *sz / 2;
+ if (count > SNDBUFSZ) { *sz -= 2*SNDBUFSZ; count = SNDBUFSZ; }
+ else *sz = 0;
+ rc = count;
+ src = (unsigned char *) *data;
+ *outbuf =
+ dest = miscplay_sndbuf;
+ while (count--)
+ /* it is not possible to directly interpolate between two ulaw encoded
+ data bytes, thus we need to convert to linear format first and later
+ we convert back to ulaw format */
+ *dest++ = int2ulaw(ulaw2int[*(src)++] +
+ ulaw2int[*(src)++]);
+ *data = src;
+ return(rc);
+}
+
+size_t sndcnv16swap(void **data,size_t *sz,void **outbuf)
+{
+ /* #### Not aliasing-safe!! Must convert to use unions instead! */
+ size_t cnt = *sz / 2;
+ unsigned short *p;
+
+ *outbuf = *data;
+ p = (unsigned short *) *outbuf;
+ while (cnt--) {
+ *p++ = ((*p & 0x00ff) << 8) | (*p >> 8);
+ }
+ *data = p;
+ cnt = *sz;
+ *sz = 0;
+ return cnt;
+}
+
+/* Convert 16 bit little endian signed stereo data to 16 bit little endian
+ signed mono data */
+size_t sndcnv16_2monoLE(void **data,size_t *sz,void **outbuf)
+{
+ REGISTER unsigned char *src;
+ REGISTER unsigned char *dest;
+ int rc,count;
+ signed short i;
+
+ count = *sz / 2;
+ if (count > SNDBUFSZ) { *sz -= 2*SNDBUFSZ; count = SNDBUFSZ; }
+ else *sz = 0;
+ rc = count;
+ src = (unsigned char *) *data;
+ *outbuf =
+ dest = miscplay_sndbuf;
+ for (count /= 2; count--; ) {
+ i = ((int)(src[0]) +
+ 256*(int)(src[1]) +
+ (int)(src[2]) +
+ 256*(int)(src[3])) / 2;
+ src += 4;
+ *dest++ = (unsigned char)(i & 0xFF);
+ *dest++ = (unsigned char)((i / 256) & 0xFF); }
+ *data = src;
+ return(rc);
+}
+
+/* Convert 16 bit big endian signed stereo data to 16 bit big endian
+ signed mono data */
+size_t sndcnv16_2monoBE(void **data,size_t *sz,void **outbuf)
+{
+ REGISTER unsigned char *src;
+ REGISTER unsigned char *dest;
+ int rc,count;
+ signed short i;
+
+ count = *sz / 2;
+ if (count > SNDBUFSZ) { *sz -= 2*SNDBUFSZ; count = SNDBUFSZ; }
+ else *sz = 0;
+ rc = count;
+ src = (unsigned char *) *data;
+ *outbuf =
+ dest = miscplay_sndbuf;
+ for (count /= 2; count--; ) {
+ i = ((int)(src[1]) +
+ 256*(int)(src[0]) +
+ (int)(src[3]) +
+ 256*(int)(src[2])) / 2;
+ src += 4;
+ *dest++ = (unsigned char)((i / 256) & 0xFF);
+ *dest++ = (unsigned char)(i & 0xFF); }
+ *data = src;
+ return(rc);
+}
+
+/* Convert 16 bit little endian signed data to 8 bit unsigned data */
+size_t sndcnv2byteLE(void **data,size_t *sz,void **outbuf)
+{
+ REGISTER unsigned char *src;
+ REGISTER unsigned char *dest;
+ int rc,count;
+
+ count = *sz / 2;
+ if (count > SNDBUFSZ) { *sz -= 2*SNDBUFSZ; count = SNDBUFSZ; }
+ else *sz = 0;
+ rc = count;
+ src = (unsigned char *) *data;
+ *outbuf =
+ dest = miscplay_sndbuf;
+ while (count--) {
+ *dest++ = (unsigned char)(((signed char *)src)[1] ^ (signed char)0x80);
+ src += 2;
+ }
+ *data = src;
+ return(rc);
+}
+
+/* Convert 16 bit big endian signed data to 8 bit unsigned data */
+size_t sndcnv2byteBE(void **data,size_t *sz,void **outbuf)
+{
+ REGISTER unsigned char *src;
+ REGISTER unsigned char *dest;
+ int rc,count;
+
+ count = *sz / 2;
+ if (count > SNDBUFSZ) { *sz -= 2*SNDBUFSZ; count = SNDBUFSZ; }
+ else *sz = 0;
+ rc = count;
+ src = (unsigned char *) *data;
+ *outbuf =
+ dest = miscplay_sndbuf;
+ while (count--) {
+ *dest++ = (unsigned char)(((signed char *)src)[0] ^ (signed char)0x80);
+ src += 2;
+ }
+ *data = src;
+ return(rc);
+}
+
+/* Convert 16 bit little endian signed stereo data to 8 bit unsigned
+ mono data */
+size_t sndcnv2monobyteLE(void **data,size_t *sz,void **outbuf)
+{
+ REGISTER unsigned char *src;
+ REGISTER unsigned char *dest;
+ int rc,count;
+
+ count = *sz / 4;
+ if (count > SNDBUFSZ) { *sz -= 4*SNDBUFSZ; count = SNDBUFSZ; }
+ else *sz = 0;
+ rc = count;
+ src = (unsigned char *) *data;
+ *outbuf =
+ dest = miscplay_sndbuf;
+ while (count--) {
+ *dest++ = (unsigned char)(((int)((signed char *)src)[1] +
+ (int)((signed char *)src)[3]) / 2 ^ 0x80);
+ src += 4;
+ }
+ *data = src;
+ return(rc);
+}
+
+/* Convert 16 bit big endian signed stereo data to 8 bit unsigned
+ mono data */
+size_t sndcnv2monobyteBE(void **data,size_t *sz,void **outbuf)
+{
+ REGISTER unsigned char *src;
+ REGISTER unsigned char *dest;
+ int rc,count;
+
+ count = *sz / 4;
+ if (count > SNDBUFSZ) { *sz -= 4*SNDBUFSZ; count = SNDBUFSZ; }
+ else *sz = 0;
+ rc = count;
+ src = (unsigned char *) *data;
+ *outbuf =
+ dest = miscplay_sndbuf;
+ while (count--) {
+ *dest++ = (unsigned char)(((int)((signed char *)src)[0] +
+ (int)((signed char *)src)[2]) / 2 ^ 0x80);
+ src += 4;
+ }
+ *data = src;
+ return(rc);
+}
+
+/* Look at the header of the sound file and try to determine the format;
+ we can recognize files in VOC, WAVE, and, Sun/DEC-audio format--- everything
+ else is assumed to be raw 8 bit unsigned data sampled at 8kHz */
+fmtType analyze_format(unsigned char *format,int *fmt,int *speed,
+ int *tracks,
+ size_t (**parsesndfile)(void **,size_t *sz,
+ void **))
+{
+ /* Keep compatibility with Linux 68k, etc. by not relying on byte-sex */
+ if (!memcmp(format,"Creative Voice File\x1A\x1A\x00",22) &&
+ (format[22]+256*format[23]) ==
+ ((0x1233-format[24]-256*format[25])&0xFFFF)) { /* VOC */
+ *fmt = AFMT_U8;
+ *speed = 8000;
+ *tracks = 2;
+ *parsesndfile = parsevoc;
+ return(fmtVoc); }
+ else if (!memcmp(format,"RIFF",4) &&
+ !memcmp(format+8,"WAVEfmt ",8)) { /* WAVE */
+ if (memcmp(format+20,"\001\000\001"/* PCM mono */,4) &&
+ memcmp(format+20,"\001\000\002"/* PCM stereo */,4))
+ return(fmtIllegal);
+ *fmt = (format[32]/(*tracks = format[22])) == 1 ?
+ AFMT_U8 : AFMT_S16_LE;
+ /* Keep compatibility with Linux 68k, etc. by not relying on byte-sex */
+ *speed = format[24]+256*(format[25]+256*
+ (format[26]+256*format[27]));
+ *parsesndfile = parsewave;
+ return(fmtWave); }
+ else if (!memcmp(format,".snd",4)) { /* Sun Audio (big endian) */
+ if (format[7]+256*(format[6]+256*(format[5]+256*format[4])) < 24) {
+ *fmt = AFMT_MU_LAW;
+ *speed = 8000;
+ *tracks = 1;
+ *parsesndfile = parsesundecaudio;
+ return(fmtSunAudio); }
+ if (!memcmp(format+12,"\000\000\000\001",4)) *fmt = AFMT_MU_LAW;
+ else if (!memcmp(format+12,"\000\000\000\002",4)) *fmt = AFMT_S8;
+ else if (!memcmp(format+12,"\000\000\000\003",4)) *fmt = AFMT_S16_BE;
+ else return(fmtIllegal);
+ /* Keep compatibility with Linux 68k, etc. by not relying on byte-sex */
+ *speed = format[19]+256*(format[18]+256*
+ (format[17]+256*format[16]));
+ *tracks = format[23];
+ *parsesndfile = parsesundecaudio;
+ return(fmtSunAudio); }
+ else if (!memcmp(format,".sd",4)) { /* DEC Audio (little endian) */
+ if (format[4]+256*(format[5]+256*(format[6]+256*format[7])) < 24) {
+ *fmt = AFMT_MU_LAW;
+ *speed = 8000;
+ *tracks = 1;
+ *parsesndfile = parsesundecaudio;
+ return(fmtSunAudio); }
+ if (!memcmp(format+12,"\001\000\000",4)) *fmt = AFMT_MU_LAW;
+ else if (!memcmp(format+12,"\002\000\000",4)) *fmt = AFMT_S8;
+ else if (!memcmp(format+12,"\003\000\000",4)) *fmt = AFMT_S16_LE;
+ else return(fmtIllegal);
+ /* Keep compatibility with Linux 68k, etc. by not relying on byte-sex */
+ *speed = format[16]+256*(format[17]+256*
+ (format[18]+256*format[19]));
+ *tracks = format[20];
+ *parsesndfile = parsesundecaudio;
+ return(fmtSunAudio); }
+ else {
+ *fmt = AFMT_U8;
+ *speed = 8000;
+ *tracks = 1;
+ *parsesndfile = parseraw;
+ return(fmtRaw); }
+}
--- /dev/null
+/* miscplay.h - general routines related to playing sounds
+ **
+ ** Copyright (C) 1995,96 by Markus Gutschke (gutschk@math.uni-muenster.de)
+ ** This was sawed out from version 1.3 of linuxplay.c by
+ ** Robert Bihlmeyer <robbe@orcus.priv.at>.
+ **
+ ** Parts of this code were inspired by sunplay.c, which is copyright 1989 by
+ ** Jef Poskanzer and 1991,92 by Jamie Zawinski; c.f. sunplay.c for further
+ ** information.
+ **
+ ** Permission to use, copy, modify, and distribute this software and its
+ ** documentation for any purpose and without fee is hereby granted, provided
+ ** that the above copyright notice appear in all copies and that both that
+ ** copyright notice and this permission notice appear in supporting
+ ** documentation. This software is provided "as is" without express or
+ ** implied warranty.
+ */
+
+#include <stdlib.h>
+
+#define HEADERSZ 256 /* has to be at least as big as the biggest header */
+#define SNDBUFSZ 2048 /* has to be at least as big as HEADERSZ */
+
+/* Audio data formats from <linux/soundcard.h> */
+#define AFMT_MU_LAW 0x00000001
+#define AFMT_A_LAW 0x00000002
+#define AFMT_IMA_ADPCM 0x00000004
+#define AFMT_U8 0x00000008
+#define AFMT_S16_LE 0x00000010 /* Little endian signed 16*/
+#define AFMT_S16_BE 0x00000020 /* Big endian signed 16 */
+#define AFMT_S8 0x00000040
+#define AFMT_U16_LE 0x00000080 /* Little endian U16 */
+#define AFMT_U16_BE 0x00000100 /* Big endian U16 */
+#define AFMT_MPEG 0x00000200 /* MPEG (2) audio */
+
+typedef enum {fmtIllegal,fmtRaw,fmtVoc,fmtWave,fmtSunAudio} fmtType;
+
+size_t sndcnvnop(void **data,size_t *sz,void **outbuf);
+size_t sndcnv8U_2mono(void **data,size_t *sz,void **outbuf);
+size_t sndcnv8S_2mono(void **data,size_t *sz,void **outbuf);
+size_t sndcnv2monounsigned(void **data,size_t *sz,void **outbuf);
+size_t sndcnv2unsigned(void **data,size_t *sz,void **outbuf);
+size_t sndcnvULaw_2linear(void **data,size_t *sz,void **outbuf);
+size_t sndcnvULaw_2mono(void **data,size_t *sz,void **outbuf);
+size_t sndcnv16swap(void **data,size_t *sz,void **outbuf);
+size_t sndcnv16_2monoLE(void **data,size_t *sz,void **outbuf);
+size_t sndcnv16_2monoBE(void **data,size_t *sz,void **outbuf);
+size_t sndcnv2byteLE(void **data,size_t *sz,void **outbuf);
+size_t sndcnv2byteBE(void **data,size_t *sz,void **outbuf);
+size_t sndcnv2monobyteLE(void **data,size_t *sz,void **outbuf);
+size_t sndcnv2monobyteBE(void **data,size_t *sz,void **outbuf);
+
+fmtType analyze_format(unsigned char *format,int *fmt,int *speed,
+ int *tracks,
+ size_t (**parsesndfile)(void **,size_t *sz,
+ void **));
+void reset_parsestate(void);
+int parse_wave_complete(void);
--- /dev/null
+;; Copyright (C) 1999 Free Software Foundation, Inc.
+
+;; Author: Hrvoje Niksic <hniksic@xemacs.org>
+;; Maintainer: Hrvoje Niksic <hniksic@xemacs.org>
+;; Created: 1999
+;; Keywords: tests
+
+;; This file is part of XEmacs.
+
+;; XEmacs is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; XEmacs is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with XEmacs; see the file COPYING. If not, write to the Free
+;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+;; 02111-1307, USA.
+
+;;; Synched up with: Not in FSF.
+
+;;; Commentary:
+
+;; Test some Mule functionality (most of these remain to be written) .
+;; See test-harness.el for instructions on how to run these tests.
+
+;;-----------------------------------------------------------------
+;; Test whether all legal chars may be safely inserted to a buffer.
+;;-----------------------------------------------------------------
+
+(defun test-chars (&optional for-test-harness)
+ "Insert all characters in a buffer, to see if XEmacs will crash.
+This is done by creating a string with all the legal characters
+in [0, 2^19) range, inserting it into the buffer, and checking
+that the buffer's contents are equivalent to the string.
+
+If FOR-TEST-HARNESS is specified, a temporary buffer is used, and
+the Assert macro checks for correctness."
+ (let ((max (expt 2 (if (featurep 'mule) 19 8)))
+ (list nil)
+ (i 0))
+ (while (< i max)
+ (and (not for-test-harness)
+ (zerop (% i 1000))
+ (message "%d" i))
+ (and (int-char i)
+ ;; Don't aset to a string directly because random string
+ ;; access is O(n) under Mule.
+ (setq list (cons (int-char i) list)))
+ (setq i (1+ i)))
+ (let ((string (apply #'string (nreverse list))))
+ (if for-test-harness
+ ;; For use with test-harness, use Assert and a temporary
+ ;; buffer.
+ (with-temp-buffer
+ (insert string)
+ (Assert (equal (buffer-string) string)))
+ ;; For use without test harness: use a normal buffer, so that
+ ;; you can also test whether redisplay works.
+ (switch-to-buffer (get-buffer-create "test"))
+ (erase-buffer)
+ (buffer-disable-undo)
+ (insert string)
+ (assert (equal (buffer-string) string))))))
+
+;; It would be really *really* nice if test-harness allowed a way to
+;; run a test in byte-compiled mode only. It's tedious to have
+;; time-consuming tests like this one run twice, once interpreted and
+;; once compiled, for no good reason.
+(test-chars t)
projects / chise / xemacs-chise.git.1 / commitdiff