! ******************************************************************************************************************************** ! Created: 30-AUG-2007 11:29:37 by OpenVMS SDL IA64-2 ! Source: 30-AUG-2007 11:29:36 GEM$:[GEMGROUP.SHEILAM.FORSYSDEF.IVMS-V83]DTK$ROUTINES.SDI;1 ! ******************************************************************************************************************************** !*** MODULE dtk$routines *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! *************************************************************************** ! * ! COPYRIGHT (c) 1988 BY * ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ! ALL RIGHTS RESERVED. * ! * ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ! TRANSFERRED. * ! * ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! * ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! * ! *************************************************************************** ! DTK$ANSWER_PHONE ! ! Wait for Phone to Ring and Answer ! ! The Wait for Phone to Ring and Answer routine ! waits for the phone connected to the DECtalk device to ring ! and then answers it. ! INTEGER*4 dtk$answer_phone EXTERNAL dtk$answer_phone ! DTK$CHECK_HDWR_STATUS ! ! Check Hardware Status ! ! The Check Hardware Status routine checks the DECtalk hardware for hardware ! malfunctions. ! INTEGER*4 dtk$check_hdwr_status EXTERNAL dtk$check_hdwr_status ! DTK$DIAL_PHONE ! ! Dial the Telephone ! ! The Dial the Telephone routine dials the specified number on the telephone. ! INTEGER*4 dtk$dial_phone EXTERNAL dtk$dial_phone ! DTK$HANGUP_PHONE ! ! Hang Up the Phone ! ! The Hang Up the Phone routine speaks an optional message and ! then hangs up the phone. ! INTEGER*4 dtk$hangup_phone EXTERNAL dtk$hangup_phone ! DTK$INITIALIZE ! ! Initialize DECtalk ! ! The Initialize DECtalk routine initializes a DECtalk device and returns the device's assigned ! voice identifier. ! INTEGER*4 dtk$initialize EXTERNAL dtk$initialize ! DTK$LOAD_DICTIONARY ! ! Load a Word into the DECtalk Dictionary ! ! The Load a Word into the DECtalk Dictionary routine ! loads a phonemic definition of a word into the DECtalk ! dictionary. ! INTEGER*4 dtk$load_dictionary EXTERNAL dtk$load_dictionary ! DTK$READ_KEYSTROKE ! ! Read a Key Entered on the Keypad ! ! The Read a Key Entered on the Keypad routine ! reads a key entered on the phone keypad. ! INTEGER*4 dtk$read_keystroke EXTERNAL dtk$read_keystroke ! DTK$READ_STRING ! ! Read a Series of Keys Entered on the Keypad ! ! The Read a Series of Keys Entered on the Keypad routine reads a ! series of keys entered on the phone keypad. ! INTEGER*4 dtk$read_string EXTERNAL dtk$read_string ! DTK$RETURN_LAST_INDEX ! ! Return Last Index Spoken ! ! The Return Last Index Spoken routine returns the last index spoken. ! INTEGER*4 dtk$return_last_index EXTERNAL dtk$return_last_index ! DTK$SPELL_TEXT ! ! Spell Text ! ! The Spell Text routine causes DECtalk to pronounce each letter of ! the specified text. ! INTEGER*4 dtk$spell_text EXTERNAL dtk$spell_text ! DTK$SPEAK_FILE ! ! Speak the Text in a Specified File ! ! The Speak the Text in a Specified File routine ! speaks the text contained in the specified file. ! INTEGER*4 dtk$speak_file EXTERNAL dtk$speak_file ! DTK$SPEAK_PHONEMIC_TEXT ! ! Speak the Specified Phonemic Text ! ! The Speak the Specified Phonemic Text routine ! sends the specified phonemic text to the DECtalk device ! to be spoken. ! INTEGER*4 dtk$speak_phonemic_text EXTERNAL dtk$speak_phonemic_text ! DTK$SPEAK_TEXT ! ! Speak the Specified Text ! ! The Speak the Specified Text routine ! sends the specified text to the DECtalk device ! to be spoken. ! INTEGER*4 dtk$speak_text EXTERNAL dtk$speak_text ! DTK$SET_INDEX ! ! Insert an Index at the Current Position ! ! The Insert an Index at the Current Position routine ! inserts an index into the current output stream. ! INTEGER*4 dtk$set_index EXTERNAL dtk$set_index ! DTK$SET_KEYPAD_MODE ! ! Turn the Phone Keypad On and Off ! ! The Turn the Phone Keypad On and Off routine turns recognition ! of the telephone keypad on or off. ! INTEGER*4 dtk$set_keypad_mode EXTERNAL dtk$set_keypad_mode ! DTK$SET_LOGGING_MODE ! ! Set the Logging Mode for the Video Terminal Connected to the DECtalk Device ! ! The Set the Logging Mode for the Video Terminal ! Connected to the DECtalk Device routine ! controls the information that is displayed on the video ! terminal while the DECtalk device is functioning. ! INTEGER*4 dtk$set_logging_mode EXTERNAL dtk$set_logging_mode ! DTK$SET_MODE ! ! Set the Mode for the DECtalk Terminal ! ! The Set the Mode for the DECtalk Terminal routine ! sets or resets the mode settings of the DECtalk terminal. ! INTEGER*4 dtk$set_mode EXTERNAL dtk$set_mode ! DTK$SET_SPEECH_MODE ! ! Turn Speech Mode On and Off ! ! The Turn Speech Mode On and Off routine ! either starts or stops the DECtalk device's speech. ! INTEGER*4 dtk$set_speech_mode EXTERNAL dtk$set_speech_mode ! DTK$SET_TERMINAL_MODE ! ! Set the Mode for the Video Terminal Connected to the DECtalk Device ! ! The Set the Mode for the Video Terminal ! Connected to the DECtalk Device routine ! controls the attributes of the video terminal connected ! to the DECtalk device. ! INTEGER*4 dtk$set_terminal_mode EXTERNAL dtk$set_terminal_mode ! DTK$SET_VOICE ! ! Set Voice Characteristics ! ! The Set Voice Characteristics routine ! changes the DECtalk voice characteristics to match those ! specified. ! INTEGER*4 dtk$set_voice EXTERNAL dtk$set_voice ! DTK$TERMINATE ! ! Terminate DECtalk ! ! The Terminate DECtalk routine terminates the use of an initialized DECtalk ! device. ! INTEGER*4 dtk$terminate EXTERNAL dtk$terminate !DEC$ END OPTIONS