HIVE
/
TriOS
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ftp.spin: ip_addr fixes

This commit is contained in:
Jörg Deckert 2013-12-11 20:37:08 +01:00
parent ab882355a6
commit cef5a73016
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
system/regnatix/ftp.spin
View File

@ -50,8 +50,6 @@ byte handle_data 'Handle FTP Data Verbindung
PUB main PUB main
ip_addr := 0
ios.start 'ios initialisieren ios.start 'ios initialisieren
ios.printnl ios.printnl
ios.parastart 'parameterübergabe starten ios.parastart 'parameterübergabe starten
@ -59,11 +57,11 @@ PUB main
if byte[@parastr][0] == "/" 'option? if byte[@parastr][0] == "/" 'option?
case byte[@parastr][1] case byte[@parastr][1]
"?": ios.print(@help) "?": ios.print(@help)
"a": if ios.paranext(@parastr) "s": if ios.paranext(@parastr)
setaddr(@parastr) setaddr(@parastr)
other: ios.print(@help) other: ios.print(@help)
if (ip_addr) ' Adresse nicht 0 if (ip_addr) ' Adresse nicht 0.0.0.0
ios.lanstart ios.lanstart
handle_control := ios.lan_connect(ip_addr, 21) handle_control := ios.lan_connect(ip_addr, 21)
ios.printnl ios.printnl
@ -76,14 +74,15 @@ PUB main
PRI setaddr (ipaddr) | pos, count 'IP-Adresse in Variable schreiben PRI setaddr (ipaddr) | pos, count 'IP-Adresse in Variable schreiben
count := 0 ip_addr := 0
count := 3
repeat while ipaddr repeat while ipaddr
pos := str.findCharacter(ipaddr, ".") pos := str.findCharacter(ipaddr, ".")
if(pos) if(pos)
byte[pos++] := 0 byte[pos++] := 0
ip_addr[count++] := num.FromStr(ipaddr, num#DEC) ip_addr += num.FromStr(ipaddr, num#DEC) << (8*count--)
ipaddr := pos ipaddr := pos
if(count == 4) if(count == -1)
quit quit
DAT 'sys: helptext DAT 'sys: helptext