On Sat, 05 Dec 2009, [email protected] wrote: Hi,
> 2009-12-05 13:40 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) > * src/rtl/gtos2/Makefile > * config/os2/watcom.mk > % Changed the way -s option is disabled for certain modules > (currently gtos2). > This method doesn't require new variable, although it's still > a hack. I intentionally haven't used such method because also some contrib code may need it. Anyhow I've just written simple script which extracts all APIENTRY16 functions from OS2 OpenWatcom header files and then scans Harbour source code for each of them and now only GTOS2 uses such functions. Below is result of full scan. best regards, Przemek src/rtl/gtkeycod.c: * getkey()/getch()/_read_kbd()/KbdCharIn() or similar function src/rtl/gtos2/gtos2.c: KbdCharIn( s_key, IO_NOWAIT, ( HKBD ) * s_hk ); src/rtl/gtos2/gtos2.c: MouClose( s_uMouHandle ); /* relese mouse handle */ src/rtl/gtos2/gtos2.c: MouDrawPtr( s_uMouHandle ); src/rtl/gtos2/gtos2.c: MouGetNumButtons ( &usButtons, s_uMouHandle ); src/rtl/gtos2/gtos2.c: MouGetPtrPos( &pos, s_uMouHandle ); src/rtl/gtos2/gtos2.c: if( MouOpen ( 0L, &s_uMouHandle ) ) /* try to open mouse */ src/rtl/gtos2/gtos2.c: if( MouReadEventQue( &MouEvent, &WaitOption, s_uMouHandle ) == NO_ERROR ) src/rtl/gtos2/gtos2.c: MouRemovePtr( &rect, s_uMouHandle ); src/rtl/gtos2/gtos2.c: MouSetEventMask ( &fsEvents, s_uMouHandle ); /* mask some events */ src/rtl/gtos2/gtos2.c: MouSetPtrPos( &pos, s_uMouHandle ); src/rtl/gtos2/gtos2.c: VioGetCp( 0, &s_usOldCodePage, 0 ); src/rtl/gtos2/gtos2.c: VioGetCurPos( &y, &x, 0 ); src/rtl/gtos2/gtos2.c: VioGetCurType( &vi, 0 ); src/rtl/gtos2/gtos2.c:/* Instead of calling VioGetMode() every time I need MaxRow() or MaxCol() I src/rtl/gtos2/gtos2.c: con: VioGetMode is been called twice src/rtl/gtos2/gtos2.c: VioGetMode( &vi, 0 ); src/rtl/gtos2/gtos2.c: VioGetMode( &s_vi, 0 ); /* fill structure with current video mode settings */ src/rtl/gtos2/gtos2.c: VioGetMode( &s_vi, 0 ); /* fill structure with current settings */ src/rtl/gtos2/gtos2.c: VioGetMode( &s_vi, 0 ); /* fill structure with current settings */ src/rtl/gtos2/gtos2.c: VioGetMode( &s_vi, 0 ); /* fill structure with current settings */ src/rtl/gtos2/gtos2.c: VioGetState( &vi, 0 ); src/rtl/gtos2/gtos2.c: VioReadCellStr( ( PCH ) s_sLineBuf, &usSize, iRow, 0, 0 ); src/rtl/gtos2/gtos2.c: if( VioSetCp( 0, 437, 0 ) != NO_ERROR ) src/rtl/gtos2/gtos2.c: VioSetCp( 0, s_usOldCodePage, 0 ); src/rtl/gtos2/gtos2.c: VioSetCp( 0, s_usOldCodePage, 0 ); src/rtl/gtos2/gtos2.c: VioSetCurPos( ( USHORT ) iRow, ( USHORT ) iCol, 0 ); src/rtl/gtos2/gtos2.c: VioSetCurType( &vi, 0 ); src/rtl/gtos2/gtos2.c: fResult = VioSetMode( &s_vi, 0 ) == 0; /* 0 = Ok, other = Fail */ src/rtl/gtos2/gtos2.c: VioSetState( &vi, 0 ); src/rtl/gtos2/gtos2.c: VioWrtCellStr( ( PCH ) s_sLineBuf, iLen << 1, iRow, iCol, 0 ); _______________________________________________ Harbour mailing list (attachment size limit: 40KB) [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
