Ejemplos de _retl en C++ (Cpp)

Ejemplo n.º 1

Archivo: Force.c Proyecto: azulae/Gestool

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

Ejemplo n.º 2

Archivo: Force.c Proyecto: azulae/Gestool

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

Ejemplo n.º 3

Archivo: utl_02c.c Proyecto: 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);
}

Ejemplo n.º 4

Archivo: utl_02c.c Proyecto: 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);
    }
}

Ejemplo n.º 5

Archivo: utl_02c.c Proyecto: 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);
    }
}

Ejemplo n.º 6

Archivo: READLIB.C Proyecto: 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;
 }

Ejemplo n.º 7

Archivo: Winsock.c Proyecto: 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 );
}

Ejemplo n.º 8

Archivo: READLIB.C Proyecto: fabioandrec/fivedos

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

Ejemplo n.º 9

Archivo: Force.c Proyecto: azulae/Gestool

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

Ejemplo n.º 10

Archivo: Winsock.c Proyecto: 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 );
}

Ejemplo n.º 11

Archivo: TIMER.C Proyecto: fabioandrec/fivedos

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

Ejemplo n.º 12

Archivo: Wbrwc3.c Proyecto: azulae/Gestool

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

Ejemplo n.º 13

Archivo: MOUSE.C Proyecto: fabioandrec/fivedos

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

Ejemplo n.º 14

Archivo: MOUSE.C Proyecto: fabioandrec/fivedos

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

Ejemplo n.º 15

Archivo: extend2.c Proyecto: cwanderlei/hbtest3

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

Ejemplo n.º 16

Archivo: TIMER.C Proyecto: fabioandrec/fivedos

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

Ejemplo n.º 17

Archivo: TIMER.C Proyecto: fabioandrec/fivedos

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

Ejemplo n.º 18

Archivo: extend2.c Proyecto: cwanderlei/hbtest3

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

Ejemplo n.º 19

Archivo: MOUSE.C Proyecto: fabioandrec/fivedos

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

Ejemplo n.º 20

Archivo: extend2.c Proyecto: cwanderlei/hbtest3

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

Ejemplo n.º 21

Archivo: MOUSE.C Proyecto: fabioandrec/fivedos

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

Ejemplo n.º 22

Archivo: extend2.c Proyecto: cwanderlei/hbtest3

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