🚀 go-pugleaf

In article <4fl8k2$iv6@unlisys.unlisys.net>,
viebke@berlin.snafu.de (Andreas Viebke) wrote
> Ich habe mir fuer Trumpet 2.1f (unter Windows for Workgroups mit
> Win32s, V. 1.30A) ein Script geschrieben, das nacheinander mehrere
> Nummern waehlt, bis es eine freie Leitung erwischt. Nun bin ich
> nicht gerade ein Neuling, was das Programmieren in C betrifft,
> sollte also keine Schwierigkeiten mit dieser simplen Scriptsprache
> haben. Dennoch stehe ich vor einem Problem: die Schleife wird nicht
> korrekt abgearbeitet:
>
> $n1 = "..."
> ...
> $n8 = "..."
> %c = 0
> %n = 0
> %attempts = 40
> repeat
[...]
>   display "Dialling..."\n
>   output "at dt "$number\r
>   read 30 $line

# Ich verwende statt der obigen 3 Zeilen hier ein Konstrukt wie...

  $line = ""
  display "Dialling" $number "..."\n
  outputecho $number\r

  # Der Timeout-Wert (hier 50s) muss goesser sein als die Zeit, die
  # das Modem auf ein Abheben der Gegenseite abwartet (normalerweise
  # der Wert im Modem-Register S7).
  # Anderfalls bricht das Script ab, obwohl das Modem noch probiert.
  #
  %timeout = ![read 50 $line]
  if %timeout
    display "*** Timeout beim Waehlen."\n
    output "+++"\r
    output "ath"\r
    sleep 3
    abort
  else
    while $line = ""
      read 10 $line
    end
  end

# Hier geht's mit Deinem Script weiter...

>   %ok = pos ("CONNECT", $line)
>   %n = %n + 1
> until %ok

>
> Auf Nummer 1 folgt Nummer 2, dann Nummer 4, 6 usw.! Und der String
> "Dialling..." wird innerhalb eines Schleifendurchlaufs mehrmals
> angezeigt! Es kommt mir so vor, als ob das Read-Kommando nicht
> wartet, bis eine ganze Zeile vom Modem eingelesen wurde, sondern
> einfach schon weiterlaeuft, wenn die ersten Zeichen ankommen. Beim
> Input-Kommando passiert genau das gleiche!

Das 'outputecho' verhindert das "Verschlucken" von Teilen der Modemantwort.

Vielleicht hilft's.

hjb :-?

-- 
Hans-Juergen Beie
hjb@pollux.franken.de