PATHSEND/SERVERCLASS SEND procedure from C (2/2)
From
uros kusar@21:1/5 to
All on Thu Jun 3 06:04:13 2021
[continued from previous message]
ncp^val^suspended -> log^state ':=' "SUSPENDED"; !NCPSTASTAT
otherwise -> log^state ':=' "UNKNOWN "; !NCPSTASTAT
end; !NCPSTASTAT
!NCPSTASTAT
! convert queue count to ascii !!NCPSTASTAT
call numout( q^cnt, ncp^resp^stat.queue^count, !NCPSTASTAT
10, $occurs( q^cnt ) ); !NCPSTASTAT
!NCPSTASTAT
buff ':=' ncp^resp.resp^obj for !NCPSTASTAT
$len( ncp^resp.resp^obj ) & " " & !NCPSTASTAT
cur^state for $occurs( cur^state ) & " " & !NCPSTASTAT
log^state for $occurs( log^state ) & !NCPSTASTAT
" " & !NCPSTASTAT
q^cnt for $occurs( q^cnt ); !NCPSTASTAT
call write( term^num, buff, 53 ); !NCPSTASTAT
!NCPSTASTAT
! position on next STATION data !!NCPSTASTAT
if ncp^rqst.static.max^resps > 1 then !NCPSTASTAT
@ncp^resp := @ncp^resp.resp^data[28]; !NCPSTASTAT
!NCPSTASTAT
! increment counter !!NCPSTASTAT
x := x + 1; !NCPSTASTAT
end; !NCPSTASTAT
drop x; !NCPSTASTAT
end; !NCPSTASTAT
end !NCPSTASTAT
else !NCPSTASTAT
if err = 233 then !NCPSTASTAT
begin !NCPSTASTAT
! PATHSEND error, get error details !!NCPSTASTAT
call serverclass_send_info_( err, file^err ); !NCPSTASTAT
!NCPSTASTAT
! convert errors to ascii !!NCPSTASTAT
call numout( err^s, err, 10, $occurs( err^s ) ); !NCPSTASTAT
call numout( file^err^s, file^err, 10, $occurs( file^err^s ) );!NCPSTASTAT
!NCPSTASTAT
buff ':=' "PATHSEND error: " & err^s for $occurs( err^s ) & !NCPSTASTAT
", file error: " & file^err^s for $occurs( file^err^s ); !NCPSTASTAT
call write( term^num, buff, 40 ); !NCPSTASTAT
end !NCPSTASTAT
else !NCPSTASTAT
begin !NCPSTASTAT
! <> 233, unknown pathsend error !!NCPSTASTAT
end; !NCPSTASTAT
!NCPSTASTAT
! close hometerm !!NCPSTASTAT
call close( term^num ); !NCPSTASTAT
!NCPSTASTAT
end; !NCPSTASTAT
Uros
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)