FreeBASIC  0.91.0
file_input_longint.c
Go to the documentation of this file.
1 /* input function for signed long long's */
2 
3 #include "fb.h"
4 #include <math.h>
5 
6 FBCALL int fb_InputLongint( long long *dst )
7 {
9  ssize_t len;
10  int isfp;
11 
12  len = fb_FileInputNextToken( buffer, FB_INPUT_MAXNUMERICLEN, FB_FALSE, &isfp );
13 
14  if( isfp == FALSE )
15  {
16  if( len <= FB_INPUT_MAXINTLEN )
17  *dst = fb_hStr2Int( buffer, len );
18  else
19  *dst = fb_hStr2Longint( buffer, len );
20  }
21  else
22  *dst = (long long)rint( fb_hStr2Double( buffer, len ) );
23 
24  return fb_ErrorSetNum( FB_RTERROR_OK );
25 }