fm, man: newline-handling; irc: /me and /ctcp, window handling, connection timeout

This commit is contained in:
Jörg Deckert 2014-04-16 18:38:44 +02:00
parent 0723196cd5
commit f516399383
11 changed files with 127 additions and 57 deletions

View File

@ -348,7 +348,7 @@ dlbox[w_sel].setview(w_view[1])
info_print
PRI f_view | n,stradr
PRI f_view | n,stradr,ch,lch
ios.winset(3)
ios.curoff
@ -356,9 +356,14 @@ PRI f_view | n,stradr
stradr := get_fname(w_view[w_sel] + w_pos[w_sel])
n := 1
lch := 0
ifnot ios.os_error(ios.sdopen("r",stradr)) 'datei öffnen
repeat 'text ausgeben
if ios.printchar(ios.sdgetc) == ios#CHAR_NL 'zeilenzahl zählen und stop
ch := ios.sdgetc
if ch == ios#CHAR_NL OR ch == $0a 'CR or NL
if ch == lch OR (lch <> ios#CHAR_NL AND lch <> $0a)
ios.printnl
lch := ch
if ++n == (fm#W3Y2 - 2)
n := 1
if ios.keywait == "q"
@ -367,6 +372,11 @@ PRI f_view | n,stradr
dlbox[0].redraw
dlbox[1].redraw
return
else
lch := 0
else
ios.printchar(ch)
lch := ch
until ios.sdeof 'ausgabe bis eof
ios.print(string(13,"[EOF]"))
ios.keywait

View File

@ -556,7 +556,7 @@ PRI ircConnect | t
handleStatusStr(@strWaitConnect, 2, TRUE)
t := cnt
repeat until (cnt - t) / clkfreq > 1 '1s lang Meldungen des Servers entgegennehmen
repeat until (ircsrv[0] <> 0) or ((cnt - t) / clkfreq > 10) 'bis zu erster Serverantwort (max. 10s lang) Meldungen des Servers entgegennehmen
ircGetline
PRI ircClose
@ -708,6 +708,30 @@ PRI ircGetLine | i, x, prefixstr, nickstr, chanstr, msgstr, commandstr
temp_str[x] := 0
handleStatusStr(@temp_str, 2, TRUE)
elseif str.startsWithCharacters(commandstr, string("NOTICE ")) 'Notiz
chanstr := commandstr + 8
if (msgstr := str.replaceCharacter(chanstr, " ", 0))
msgstr++
nickstr := @receive_str[1]
if str.replaceCharacter(nickstr, "!", 0)
' check for CTCP
i := strsize(msgstr)
if byte[msgstr] == 1 AND byte[msgstr][i - 1] == 1
' it's a CTCP msg
byte[msgstr][i - 1] := 0 ' move string end up one spot
msgstr++ ' seek past the CTCP byte
handleCTCPStr(nickstr, msgstr)
if (ircsrv[0] == 0) and prefixstr 'noch kein Servername ermittelt
msgstr := @strConnected
repeat x from 0 to strsize(msgstr) - 1
temp_str[x] := byte[msgstr][x]
repeat i from 0 to LEN_IRCSRV
ircsrv[i] := byte[prefixstr][i]
temp_str[x++] := byte[prefixstr][i]
if byte[prefixstr][i] == 0
quit
ircsrv[LEN_IRCSRV] := 0
handleStatusStr(@temp_str, 2, TRUE)
title_draw
#ifdef __DEBUG
handleStatusStr(commandstr, 2, FALSE)
#endif
@ -765,6 +789,7 @@ PRI ircGetLine | i, x, prefixstr, nickstr, chanstr, msgstr, commandstr
handleStatusStr(@temp_str, 2, TRUE)
else 'unbekanntes Kommando
handleStatusStr(commandstr, 2, FALSE)
if (focus == 3) and (nooutput == FALSE) 'Eingabefenster aktiv und Ausgabe nicht gesperrt
ios.winset(3)
ios.curon
@ -837,13 +862,34 @@ PRI ircPutLine | i
if handleidx == $FF
handleStatusStr(@strNotConnected, 2, FALSE)
else
sendStr(string("PRIVMSG "))
if (i := str.replaceCharacter(@send_str[5], " ", 0))
sendStr(string("PRIVMSG "))
sendStr(@send_str[5])
sendStr(string(" :"))
sendStr(i)
sendStr(string(13,10))
handleChatStr(@send_str[5], @nickname, i, 1)
elseif str.startsWithCharacters(@send_str, string("/me")) 'CTCP Action
if handleidx == $FF
handleStatusStr(@strNotConnected, 2, FALSE)
else
sendStr(string("PRIVMSG "))
sendStr(@channel)
sendStr(string(" :",1,"ACTION "))
sendStr(@send_str[4])
sendStr(string(1,13,10))
handleCTCPStr(@channel, @send_str[4])
elseif str.startsWithCharacters(@send_str, string("/ctcp")) 'allgemeine CTCP-Befehle
if handleidx == $FF
handleStatusStr(@strNotConnected, 2, FALSE)
else
if (i := str.replaceCharacter(@send_str[6], " ", 0))
sendStr(string("PRIVMSG "))
sendStr(@send_str[6])
sendStr(string(" :",1))
sendStr(i)
sendStr(string(1,13,10))
handleCTCPStr(@send_str[6], i)
elseif send_str[0] == "/" 'anderes IRC-Kommando an Server
if handleidx == $FF
handleStatusStr(@strNotConnected, 2, FALSE)
@ -995,6 +1041,7 @@ PRI win_contentRefresh | win, lines, lineNum, linePos, space, i
ios.printnl
space := 0
ios.print(@send_str[linePos]) 'print remaining line
if (focus == 3) and (nooutput == FALSE) 'Eingabefenster aktiv und Ausgabe nicht gesperrt
ios.curon
PRI setscreen | buflen[4], i
@ -1125,7 +1172,7 @@ PRI handleChatStr(chanstr, nickstr, msgstr, me) | i, timenicklen, msglineend, ch
print_str[print_str_ptr++] := 0 'komplette Chat-Zeile fertig
print_str[print_str_ptr] := 0
print_str_ptr := 0
if scrolllinenr[1] == 0 'Chatfenster nicht gescrollt
if (scrolllinenr[1] == 0) and (nooutput == FALSE) 'Chatfenster nicht gescrollt und Ausgabe nicht gesperrt
ios.printnl
printStrWin(@print_str) 'im Chatfenster anzeigen
printStrBuf(1) 'in Fensterpuffer schreiben
@ -1172,7 +1219,7 @@ PRI handleCTCPStr(nickstr, msgstr) | i, msglineend
print_str[print_str_ptr++] := 0 'komplette Chat-Zeile fertig
print_str[print_str_ptr] := 0
print_str_ptr := 0
if scrolllinenr[1] == 0
if (scrolllinenr[1] == 0) and (nooutput == FALSE) 'Chatfenster nicht gescrollt und Ausgabe nicht gesperrt
ios.printnl
printStrWin(@print_str)
printStrBuf(1)
@ -1208,7 +1255,7 @@ PRI handleStatusStr(statusstr, win, showtime) | i, statlineend
print_str[print_str_ptr++] := 0 'komplette Status-Zeile fertig
print_str[print_str_ptr] := 0
print_str_ptr := 0
if scrolllinenr[win] == 0
if (scrolllinenr[win] == 0) and (nooutput == FALSE) 'Fenster nicht gescrollt und Ausgabe nicht gesperrt
ios.printnl
printStrWin(@print_str)
printStrBuf(win)
@ -1218,9 +1265,6 @@ PRI printStrWin(printStr) | i
'' │ Chat-Zeile in aktuellem Fenster zeigen │
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
if nooutput 'wenn Ausgabe gesterrt
return
i := 0
repeat
if byte[printStr][i] == 0 and byte[printStr][i+1] == 0 'nichts mehr anzuzeigen, Ende
@ -1487,10 +1531,7 @@ DAT 'Locale
strNotJoined byte "Not joined to channel",0
' |------------------------------------------------------------|
strHelp byte "Internal commands:"
byte $0d,"================="
byte $0d
byte $0d,"F1 This Help"
strHelp byte "F1 This Help"
byte $0d,"F2 /set Edit and save all settings"
byte $0d,"F3 Connect to server, login and join"
byte $0d,"F4 /join Join to channel (/join #<channel>)"
@ -1501,6 +1542,8 @@ DAT 'Locale
byte $0d,"F9 /quit Disconnect from server"
byte $0d,"F10 Exit irc client"
byte $0d," /msg Private Message (/msg <recipient> <text>)"
byte $0d," /me send own state/action (/me <action>)"
byte $0d," /ctcp client-to-client (/ctcp <recipient> <command>)"
byte $0d," /srv connect to server and login (srv <ip:port>)"
byte $0d," /save Save settings"
byte $0d,"Tab Switch windows, scroll with cursor up/down"
@ -1556,10 +1599,7 @@ DAT 'Locale
strNotJoined byte "Mit keinem Kanal verbunden",0
' |------------------------------------------------------------|
strHelp byte "Interne Befehle:"
byte $0d,"================"
byte $0d
byte $0d,"F1 Diese Hilfe"
strHelp byte "F1 Diese Hilfe"
byte $0d,"F2 /set Alle Einstellungen bearbeiten und abspeichern"
byte $0d,"F3 Mit Server verbinden, anmelden und Kanal betreten"
byte $0d,"F4 /join Kanal betreten (/join #<Kanal>)"
@ -1570,6 +1610,8 @@ DAT 'Locale
byte $0d,"F9 /quit Verbindung zu Server trennen"
byte $0d,"F10 Programm beenden"
byte $0d," /msg Private Mitteilung (/msg <Empfänger> <Text>)"
byte $0d," /me eigenen Status/Aktion senden (/me <Aktion>)"
byte $0d," /ctcp Client-to-Client (/ctcp <Empfänger> <Kommando>)"
byte $0d," /srv Mit Server verbinden und anmelden (srv <IP:Port>)"
byte $0d," /save Einstellungen speichern"
byte $0d,"Tab Fenster umschalten, scrollen mit Cursor hoch/runter"

View File

@ -39,9 +39,10 @@ CON
_CLKMODE = XTAL1 + PLL16X
_XINFREQ = 5_000_000
PUB main | i,n,len
PUB main | i,n,len,ch,lch
n := 1
lch := 0
ios.start
ios.parastart
ios.paranext(@parastr)
@ -56,13 +57,22 @@ PUB main | i,n,len
byte[@parastr][len + i] := 0
ifnot ios.sdopen("r",@parastr)
repeat 'text ausgeben
if ios.printchar(ios.sdgetc) == ios#CHAR_NL 'zeilenzahl zählen und stop
ch := ios.sdgetc
if ch == ios#CHAR_NL OR ch == $0a 'CR or NL
if ch == lch OR (lch <> ios#CHAR_NL AND lch <> $0a)
ios.printnl
lch := ch
if ++n == (rows - 2)
n := 1
if ios.keywait == "q"
ios.sdclose
ios.sddmact(ios#DM_USER) 'u-marker aktivieren
ios.stop
else
lch := 0
else
ios.printchar(ch)
lch := ch
until ios.sdeof 'ausgabe bis eof
else
'ios.print(string("Hilfetexte : ",$0d))

View File

@ -1,3 +1,4 @@
/? : Hilfe
/fh <fn> : Datei in HI-ROM flashen
/fl <fn> : Datei in LO-ROM flashen

View File

@ -1,21 +1,22 @@
linkes fenster - sd-card
linkes fenster - sd-card
rechtes fenster - ramdisk
pfeiltasten - cursor bewegen
bild hoch/runter - nächste/vorige fensterseite
return - verzeichnis öffnen
backspace - verzeichnis schließen
bild hoch/runter - nächste/vorige fensterseite
return - verzeichnis öffnen
backspace - verzeichnis schließen
space - eintrag selektieren
tab - fenster wechseln
pos1 - cursor auf ersten eintrag
f1 - textdatei anzeigen
f2 - selektierte dateien auf sd löschen
f2 - selektierte dateien auf sd löschen
f3 - selektierte dateien von sd in ram laden
f4 - selektierte dateien von ram auf sd speichern
f5 - gesamten ram löschen
f5 - gesamten ram löschen
f6 - sd auswerfen
f7 - verzeichnis erstellen
f8 - alle einträge selektieren/deselektieren
f8 - alle einträge selektieren/deselektieren
f9 - lenkes fenster maximieren/verkleinern
f10 - filemanager verlassen

View File

@ -1,3 +1,4 @@
/? : hilfetext
/p name.wav : hss-datei abspielen
/d : verzeichnis abspielen

View File

@ -1,3 +1,4 @@
help - diese hilfe
<sd:dateiname> - bin/adm/bel-datei wird gestartet
mount - sd-card mounten

View File

@ -1,3 +1,4 @@
/? : Hilfetext
/m name.dmp : DMP-Datei mono auf SID2 abspielen
/s name.dmp : DMP-Datei stereo auf beiden SIDs abspielen

View File

@ -1,3 +1,4 @@
/? : Hilfe
/l : Konfiguration anzeigen
----------- Administra-Funktionen

View File

@ -1,3 +1,4 @@
/? : Hilfetext
/p name.wav : WAV-Datei abspielen
/d : Verzeichnis wiedergeben

View File

@ -1,3 +1,4 @@
Wiedergabe von YM-Dateien mittels AY-3-891X / YM2149 emulator
/? : Hilfetext