[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

dtk-exp fixes for DECtalk USB



Hi All,
I was interested in getting Emacspeak working with the DecTalk USB in
serial mode, which supposedly emulates an Express.  It initially gave
many errors and behaved poorly when the l{} function was used to do
character-at-a-time output.  I've modified the server so it gives fewer
errors in everyday use and l works properly.  I'm not quite sure about
the latter change: the way I did it might not be as precise as the original.
Anyhow, here's a patch.
Best,
Zack.
*** dtk-exp	2010-03-21 13:29:45.527094593 -0700
--- /usr/share/emacs/site-lisp/emacspeak/servers/dtk-exp	2010-03-21 10:05:03.000000000 -0700
***************
*** 113,119 ****
      set f  $tts(say_rate)
      tts_gobble_acknowledgements 0.001
      puts -nonewline  $tts(write)\
!         "\[_]\[:ra $f]\[:sa le]$text\[:sa c]"
          return ""
  }
  
--- 113,119 ----
      set f  $tts(say_rate)
      tts_gobble_acknowledgements 0.001
      puts -nonewline  $tts(write)\
!         "\[_]\[:ra $f]\[:sa wo]$text \[:sa c]"
          return ""
  }
  
***************
*** 162,168 ****
  
  proc t  {{pitch 440} {duration 50}} {
      global tts queue
!     set tone "\[:to $pitch $duration\]"
      set queue($tts(q_tail)) [list t $tone]
      incr tts(q_tail)
      return ""
--- 162,168 ----
  
  proc t  {{pitch 440} {duration 50}} {
      global tts queue
!     set tone "\[:to $pitch, $duration\]"
      set queue($tts(q_tail)) [list t $tone]
      incr tts(q_tail)
      return ""
***************
*** 270,276 ****
              }
              t {
                  set text  [lindex $event 1]
!                 puts -nonewline  $tts(write) "\[:i r 1 _.]$text\[_.] "
                  set retval [tts_get_acknowledgement ]
              }
              a {
--- 270,276 ----
              }
              t {
                  set text  [lindex $event 1]
!                 puts -nonewline  $tts(write) "\[:i r 1]$text\[_.] "
                  set retval [tts_get_acknowledgement ]
              }
              a {
***************
*** 326,337 ****
          regsub -all -- {-}  $element { } element
      }
      if {$tts(capitalize) } {
!         regsub -all {[A-Z]} $element {[_ :to 440 10]&} element
      }
      if {$tts(split_caps) } {
          if  {$tts(allcaps_beep)} {
!             set tone {[_:to 660 10]}
!             set abbrev_tone ":to 660 10"
          } else {
              set tone ""
              set abbrev_tone ""
--- 326,337 ----
          regsub -all -- {-}  $element { } element
      }
      if {$tts(capitalize) } {
!         regsub -all {[A-Z]} $element {[_ :to 440, 10]&} element
      }
      if {$tts(split_caps) } {
          if  {$tts(allcaps_beep)} {
!             set tone {[_:to 660, 10]}
!             set abbrev_tone ":to 660, 10"
          } else {
              set tone ""
              set abbrev_tone ""


If you have questions about this archive or had problems using it, please send mail to:

priestdo@cs.vassar.edu No Soliciting!

Emacspeak List Archive | 2007 | 2006 | 2005 | 2004 | 2003 | 2002 | 2001 | 2000 | 1999 | 1998 | Pre 1998

Emacspeak Files | Emacspeak Blog | Search the archive