Kernel version 0.8 : FIXED TCP/IP config files reading not expanding ${A2OSX} in names

This commit is contained in:
Rémy GIBERT 2016-10-26 22:49:08 +02:00
parent aab7c77e4d
commit 773c1f22b8
2 changed files with 65 additions and 32 deletions

View File

@ -13,12 +13,11 @@ CFG.Read >PUSHW L.HOSTNAME
bcc .1 bcc .1
>PUSHA >PUSHA
>LDYA L.MSG.CFG.KO >LDYA L.MSG.CFG.KO
>SYSCALL PrintFYA
bra .2 bra .2
.1 >LDYA L.MSG.CFG.OK .1 >LDYA L.MSG.CFG.OK
>SYSCALL PrintFYA .2 >SYSCALL PrintFYA
.2 >PUSHW L.TCPIP.CONF >PUSHW L.TCPIP.CONF
>LDYA L.MSG.CFG >LDYA L.MSG.CFG
>SYSCALL PrintFYA >SYSCALL PrintFYA
@ -26,12 +25,11 @@ CFG.Read >PUSHW L.HOSTNAME
bcc .3 bcc .3
>PUSHA >PUSHA
>LDYA L.MSG.CFG.KO >LDYA L.MSG.CFG.KO
>SYSCALL PrintFYA
bra .4 bra .4
.3 >LDYA L.MSG.CFG.OK .3 >LDYA L.MSG.CFG.OK
>SYSCALL PrintFYA .4 >SYSCALL PrintFYA
.4 >PUSHW L.HOSTS >PUSHW L.HOSTS
>LDYA L.MSG.CFG >LDYA L.MSG.CFG
>SYSCALL PrintFYA >SYSCALL PrintFYA
@ -39,19 +37,29 @@ CFG.Read >PUSHW L.HOSTNAME
bcc .5 bcc .5
>PUSHA >PUSHA
>LDYA L.MSG.CFG.KO >LDYA L.MSG.CFG.KO
>SYSCALL PrintFYA
bra .6 bra .6
.5 >LDYA L.MSG.CFG.OK .5 >SYSCALL PrintFYA
>SYSCALL PrintFYA .6 >LDYA L.MSG.CFG.OK
.6 rts rts
*-------------------------------------- *--------------------------------------
CFG.Read.HOSTNAME CFG.Read.HOSTNAME
stz CFG.hCfgFile
stz CFG.hCfgPath
>LDYA L.HOSTNAME
>SYSCALL ExpandPStrYA
bcs .99
stx CFG.hCfgPath
pha
>PUSHWI 0 Aux type >PUSHWI 0 Aux type
>PUSHBI 4 S.FILEINFO.TYPE.TXT >PUSHBI 4 S.FILEINFO.TYPE.TXT
>PUSHBI SYS.FOPEN.R >PUSHBI SYS.FOPEN.R
>PUSHW L.HOSTNAME pla
>PUSHYA
>SYSCALL LoadFile >SYSCALL LoadFile
bcs .99 bcs .9
stx CFG.hCfgFile stx CFG.hCfgFile
>STYA CFG.FileLen >STYA CFG.FileLen
@ -60,37 +68,46 @@ CFG.Read.HOSTNAME
>STYA ZPIPCfgPtr >STYA ZPIPCfgPtr
lda CFG.FileLen+1 lda CFG.FileLen+1
bne .2 bne .9
ldy CFG.FileLen ldy CFG.FileLen
beq .2 beq .9
cpy #15 cpy #15
bcs .2 bcs .9
sta IPCFG+S.IPCFG.HOSTNAME,y sta IPCFG+S.IPCFG.HOSTNAME,y
.1 dey .1 dey
bmi .89 bmi .2
lda (ZPIPCfgPtr),y lda (ZPIPCfgPtr),y
sta IPCFG+S.IPCFG.HOSTNAME,y sta IPCFG+S.IPCFG.HOSTNAME,y
bra .1 bra .1
.2 jsr .89 .2 jsr CFG.Read.CleanUp
sec clc
rts rts
.89 lda CFG.hCfgFile .9 jsr CFG.Read.CleanUp
>SYSCALL FreeMemA sec
clc
.99 rts .99 rts
*-------------------------------------- *--------------------------------------
CFG.Read.TCPIP.CONF CFG.Read.TCPIP.CONF
stz CFG.hCfgFile
stz CFG.hCfgPath
>LDYA L.TCPIP.CONF
>SYSCALL ExpandPStrYA
bcs .99
stx CFG.hCfgPath
pha
>PUSHWI 0 Aux type >PUSHWI 0 Aux type
>PUSHBI 4 S.FILEINFO.TYPE.TXT >PUSHBI 4 S.FILEINFO.TYPE.TXT
>PUSHBI SYS.FOPEN.R >PUSHBI SYS.FOPEN.R
>PUSHW L.TCPIP.CONF pla
>PUSHYA
>SYSCALL LoadFile >SYSCALL LoadFile
bcs .99 bcs .9
stx CFG.hCfgFile stx CFG.hCfgFile
>STYA CFG.FileLen >STYA CFG.FileLen
txa txa
@ -98,7 +115,7 @@ CFG.Read.TCPIP.CONF
>STYA ZPIPCfgPtr >STYA ZPIPCfgPtr
.1 jsr CFG.GetLine .1 jsr CFG.GetLine
bcs .89 bcs .8
jsr CFG.GetKeyword jsr CFG.GetKeyword
bcs .1 bcs .1
@ -123,6 +140,10 @@ CFG.Read.TCPIP.CONF
bne .2 bne .2
bra .1 bra .1
.9 jsr CFG.Read.CleanUp
sec
.99 rts
.3 jsr CFG.ScanIP .3 jsr CFG.ScanIP
bcs .1 bcs .1
@ -144,11 +165,9 @@ CFG.Read.TCPIP.CONF
sta IPCFG sta IPCFG
bra .1 bra .1
.89 lda CFG.hCfgFile .8 jsr CFG.Read.CleanUp
>SYSCALL FreeMemA
clc clc
.99 rts rts
*-------------------------------------- *--------------------------------------
CFG.Read.HOSTS >PUSHWI 0 Aux type CFG.Read.HOSTS >PUSHWI 0 Aux type
>PUSHBI 4 S.FILEINFO.TYPE.TXT >PUSHBI 4 S.FILEINFO.TYPE.TXT
@ -168,6 +187,19 @@ CFG.Read.HOSTS >PUSHWI 0 Aux type
clc clc
.99 rts .99 rts
*-------------------------------------- *--------------------------------------
CFG.Read.CleanUp
pha
lda CFG.hCfgPath
beq .1
>SYSCALL FreeMemA
.1 lda CFG.hCfgFile
beq .8
>SYSCALL FreeMemA
.8 pla
rts
*--------------------------------------
CFG.GetLine stz UsrBuf256 CFG.GetLine stz UsrBuf256
ldx #0 ldx #0
ldy #0 ldy #0

View File

@ -8,9 +8,9 @@ AUTO 6
.OR $2000 .OR $2000
.TF /A2OSX.BOOT/SBIN/TCPIP .TF /A2OSX.BOOT/SBIN/TCPIP
*-------------------------------------- *--------------------------------------
.INB INC/MACROS.I .INB /A2OSX.DEV/INC/MACROS.I
.INB INC/A2OSX.I .INB /A2OSX.DEV/INC/A2OSX.I
.INB INC/LIBTCPIP.I .INB /A2OSX.DEV/INC/LIBTCPIP.I
*-------------------------------------- *--------------------------------------
ZPIPCfgPtr .EQ ZPBIN ZPIPCfgPtr .EQ ZPBIN
ZPIPDevPtr .EQ ZPBIN+2 ZPIPDevPtr .EQ ZPBIN+2
@ -231,6 +231,7 @@ hLIBTCPIP .BS 1
hNetDev .BS 1 hNetDev .BS 1
IPCFG .BS S.IPCFG IPCFG .BS S.IPCFG
CFG.hCfgFile .BS 1 CFG.hCfgFile .BS 1
CFG.hCfgPath .BS 1
CFG.FileLen .BS 2 CFG.FileLen .BS 2
CFG.Keyword .BS 1 CFG.Keyword .BS 1
CFG.StrBuf .BS 4 CFG.StrBuf .BS 4