C++ (Cpp) _retl Examples

Example #1

File: Force.c Project: azulae/Gestool

CLIPPER isReadOnly()
{
   if( _nversion( 1 )[ 14 ] == '3' )
      _retl( * ( (int *) ( ( (char *) (*_WorkAreas) ) + 0x90 ) ) ) ;
   else
      _retl( * ( (int *) ( ( (char *) (*_WorkAreas) ) + 0x78 ) ) ) ;
}

Example #2

File: Force.c Project: azulae/Gestool

CLIPPER isShared()
{
   if( _nversion( 1 )[ 14 ] == '3' )
      _retl( * ( (int *) ( ( (char *) (*_WorkAreas) ) + 0x88 ) ) ) ;
   else
      _retl( * ( (int *) ( ( (char *) (*_WorkAreas) ) + 0x76 ) ) ) ;
}

Example #3

File: utl_02c.c Project: osantana-archive/master/master-master/utl_02c.c

CLIPPER mkdirct()
{
    char *utl_pth = _parc(1);
    if (! (PCOUNT==1 || ISCHAR(1)))
        _retl(0);
    else
        _retl(mkdir(utl_pth)+1);
}

Example #4

File: utl_02c.c Project: osantana-archive/master/master-master/utl_02c.c

CLIPPER memout()
{
    if (! (PCOUNT==3 || ISNUM(1) || ISNUM(2) || ISNUM(3)))
        _retl(0);
    else
    {
        pokeb(_parni(1),_parni(2),(char)_parni(3));
        _retl(1);
    }
}

Example #5

File: utl_02c.c Project: osantana-archive/master/master-master/utl_02c.c

CLIPPER portout()
{
    if (! (PCOUNT==2 || ISNUM(1) || ISNUM(2)))
        _retl(0);
    else
    {
        outportb(_parni(1),(char)_parni(2));
        _retl(1);
    }
}

Example #6

File: READLIB.C Project: fabioandrec/fivedos

 CLIPPER  LLIBOPEN( void ){
    WORD i;
    if (PCOUNT() >= 1 && ISCHAR(1) && wLib == 0xffff){
       if ((wLib=_topen(_parc(1),0))!=0xffff){
          if (ScanLibOffsets()){
             _retl(TRUE);
             return;
          }
       }
    }
    _retl(FALSE);
    return;
 }

Example #7

File: Winsock.c Project: azulae/Gestool

    CLIPPER SETSOCKOPT( PARAMS ) //  SOCKET s, int level, int optname, const char FAR * optval, int optlen
#endif
{
   BOOL bTrue = 1;

   _retl( setsockopt( _parni( 1 ), _parni( 2 ), _parni( 3 ),
                      ( char * ) &bTrue, 2 ) == 0 );
}

Example #8

File: READLIB.C Project: fabioandrec/fivedos

 CLIPPER  LLIBCLOSE( void ){
    if (wLib != 0xffff){
       _tclose(wLib);
       wLib = 0xffff;
       wModules = 0;
    }
    _retl(TRUE);
    return;
 }

Example #9

File: Force.c Project: azulae/Gestool

CLIPPER _SetGEof()
{
   if ( ISLOG( 1 ) )
   {
      (*_WorkAreas)->fEof    = _parl( 1 );
      (*_WorkAreas)->fFound  = FALSE;
   }
   _retl( (*_WorkAreas)->fEof );
}

Example #10

File: Winsock.c Project: azulae/Gestool

    CLIPPER BINDTOPORT( PARAMS )   // nSocket, nPort, nAddr1, nAddr2, nAddr3, nAddr4 --> lSuccess
#endif
{
   SOCKADDR_IN sa; // sockaddr_in sa;

   _bset( ( char * ) &sa, 0, sizeof( sa ) );

   sa.sin_family       = AF_INET;
   sa.sin_port         = htons( _parni( 2 ) );
/*
   sa.sin_addr.s_net   = _parni( 3 );
   sa.sin_addr.s_host  = _parni( 4 );
   sa.sin_addr.s_lh    = _parni( 5 );
   sa.sin_addr.s_impno = _parni( 6 );
 */
   sa.sin_addr.s_addr  = htonl( INADDR_ANY );

   _retl( bind( _parni( 1 ), ( SOCKADDR * ) &sa, sizeof( sa ) ) == 0 );
}

Example #11

File: TIMER.C Project: fabioandrec/fivedos

CLIPPER TimerActiv( void ) // ate( nTimerHandle )
{
    _retl( TimerActivate( _parni( 1 ) ) );
}

Example #12

File: Wbrwc3.c Project: azulae/Gestool

void __pascal LAND( void )
{
   _retl( ( _parnl( 1 ) & _parnl( 2 ) ) != 0 );
}

Example #13

File: MOUSE.C Project: fabioandrec/fivedos

CLIPPER lMRight()    { _retl( bMouseRight() ); }

Example #14

File: MOUSE.C Project: fabioandrec/fivedos

CLIPPER lMLeft()     { _retl( bMouseLeft() ); }

Example #15

File: extend2.c Project: cwanderlei/hbtest3

CLIPPER HB_UNDOC5()
{
   _retl( _parl( 1 ) );
   _retl( _parl( -1 ) - 1 );
}

Example #16

File: TIMER.C Project: fabioandrec/fivedos

CLIPPER TimerDeAct( void ) // ivate( nTimerHandle )
{
    _retl( TimerDeActivate( _parni( 1 ) ) );
}

Example #17

File: TIMER.C Project: fabioandrec/fivedos

CLIPPER TimerRelea( void ) // se( nTimerHandle )
{
    _retl( TimerRelease( _parni( 1 ) ) );
}

Example #18

File: extend2.c Project: cwanderlei/hbtest3

CLIPPER HB_UNDOC14()
{
   _retl( _parl( 1 ) );
   _storl( 0, -1 );
}

Example #19

File: MOUSE.C Project: fabioandrec/fivedos

CLIPPER lMCenter()   { _retl( bMouseCenter() ); }

Example #20

File: extend2.c Project: cwanderlei/hbtest3

CLIPPER HB_LOGICAL1()
{
   _retl( _parl( 1 ) );
}

Example #21

File: MOUSE.C Project: fabioandrec/fivedos

CLIPPER lMPressed()  { _retl( bMousePressed() ); }

Example #22

File: extend2.c Project: cwanderlei/hbtest3

CLIPPER HB_LOGICAL2()
{
   _retl( _parl( 1, 1 ) );
}