[futurebasic] Re: [FB] Problem of FBtoC 1.0.8 ?

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : April 2008 : Group Archive : Group : All Groups

From: Robert Purves <listrp@...>
Date: Sat, 26 Apr 2008 21:46:59 +1200
Yoshiyuki Hasegawa wrote:

> FBtoC team.
> The following codes are abnormal in FBtoC 1.0.8.
> It returns "0".
> It works normally in 1.0.7.
>
> '------------------
> #if ndef _FBtoC
> open "I", #1, @fspec
> #else
> open "I", #1, @fsRef
> #endif
>
> while ( eof( 1 ) == 0 )
> input #1, aa,bb,a,b,c,d,e,f
> wend
>
> close #1
> '------------------


[1] I don't understand your bug report. Which line of code above  
produces a bug for you?

[2] The expanded demo below seems to work in FB, FBtoC 1.0.7 and FBtoC  
1.0.8. I see no obvious bug.

'---------------
dim as long aa, bb, a, b, c, d, e, f
window 1
#if ndef _FBtoC
dim as FSSpec fspec
long if ( files$( _FSSpecOpen,,, fspec ) )
open "I", #1, @fspec
#else
dim as FSRef fsRef
long if ( files$( _FSRefOpen,,, fsRef ) )
open "I", #1, @fsRef
#endif
print eof( 1 )
while ( eof( 1 ) == 0 )
input #1, aa,bb,a,b,c,d,e,f
print aa bb a b c d e f
print eof( 1 )
wend
close #1
end if

do
HandleEvents
until ( gFBQuit )
'---------------

Robert P.