qb_inkey.c

Go to the documentation of this file.

/* QB compatible INKEY */

#include "fb.h"

/*:::::*/
FBCALL FBSTRING *fb_InkeyQB( void )
{
        FBSTRING *res = fb_Inkey();
        
        FB_LOCK();
        
        if( res && res->data 
                && ( FB_STRSIZE(res) == 2 ) 
                && ( res->data[0] == FB_EXT_CHAR ) )
        {
                res->data[0] = 0;
        }

        FB_UNLOCK();
        
        return res;
}