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

system/regnatix/fm.spin

@@ -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,17 +356,27 @@ 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 ++n == (fm#W3Y2 - 2)
+      if ch == ios#CHAR_NL OR ch == $0a                 'CR or NL
-          n := 1
+        if ch == lch OR (lch <> ios#CHAR_NL AND lch <> $0a)
-          if ios.keywait == "q"
+          ios.printnl
-            ios.sdclose
+          lch := ch
-            ios.printcls
+          if ++n == (fm#W3Y2 - 2)
-            dlbox[0].redraw
+            n := 1
-            dlbox[1].redraw
+            if ios.keywait == "q"
-            return
+              ios.sdclose
+              ios.printcls
+              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

system/regnatix/irc.spin

@@ -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
@@ -630,7 +630,7 @@ PRI ircPart(strMsg)
 
 PRI ircGetLine | i, x, prefixstr, nickstr, chanstr, msgstr, commandstr
 
-  if readLine(2000) 'vollständige Zeile empfangen
+  if readLine(2000)                                                           'vollständige Zeile empfangen
 
     secsrvact := 0                                                            'Sekunden seit letzter Serveraktivität zurücksetzen
     if receive_str[0] == ":"                                                  'Prefix folgt (sollte jede hereinkommende Message enthalten)
@@ -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,8 +789,9 @@ PRI ircGetLine | i, x, prefixstr, nickstr, chanstr, msgstr, commandstr
                   handleStatusStr(@temp_str, 2, TRUE)
     else                                                                      'unbekanntes Kommando
       handleStatusStr(commandstr, 2, FALSE)
-    ios.winset(3)
+    if (focus == 3) and (nooutput == FALSE)                                   'Eingabefenster aktiv und Ausgabe nicht gesperrt
-    ios.curon
+      ios.winset(3)
+      ios.curon
 
 PRI ircPutLine | i
 
@@ -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,7 +1041,8 @@ PRI win_contentRefresh | win, lines, lineNum, linePos, space, i
         ios.printnl
         space := 0
     ios.print(@send_str[linePos])                                'print remaining line
-  ios.curon
+  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:"
+  strHelp byte      "F1        This Help"
-          byte  $0d,"================="
-          byte  $0d
-          byte  $0d,"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:"
+  strHelp byte      "F1        Diese Hilfe"
-          byte  $0d,"================"
-          byte  $0d
-          byte  $0d,"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"

system/regnatix/man.spin

@@ -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 ++n == (rows - 2)
+      if ch == ios#CHAR_NL OR ch == $0a                 'CR or NL
-          n := 1
+        if ch == lch OR (lch <> ios#CHAR_NL AND lch <> $0a)
-          if ios.keywait == "q"
+          ios.printnl
-            ios.sdclose
+          lch := ch
-            ios.sddmact(ios#DM_USER)                    'u-marker aktivieren
+          if ++n == (rows - 2)
-            ios.stop
+            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))

system/sonstiges/flash.man

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

system/sonstiges/fm.man

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

system/sonstiges/hplay.man

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

system/sonstiges/regime.man

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

system/sonstiges/splay.man

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

system/sonstiges/sysconf.man

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

system/sonstiges/wplay.man

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

system/sonstiges/yplay.man

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