fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-05-18 16:49 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* harbour/include/hbcom.ch
  * harbour/src/rtl/hbcom.c
    + added two new errors: HB_COM_ERR_ACCESS, HB_COM_ERR_NOCOM
This commit is contained in:
Przemyslaw Czerpak
2012-05-18 14:49:44 +00:00
parent 37a107dcf9
commit e7d65ce8cd
3 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -16,6 +16,11 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-05-18 16:49 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* harbour/include/hbcom.ch
* harbour/src/rtl/hbcom.c
+ added two new errors: HB_COM_ERR_ACCESS, HB_COM_ERR_NOCOM
2012-05-17 14:07 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbqt/hbmk2_qt.hb
! Fix to last fix.

2
harbour/include/hbcom.ch
View File

@@ -127,5 +127,7 @@
#define HB_COM_ERR_ALREADYOPEN 8
#define HB_COM_ERR_IO 9
#define HB_COM_ERR_PIPE 10
#define HB_COM_ERR_ACCESS 11
#define HB_COM_ERR_NOCOM 12
#endif /* HB_COM_CH_ */

6
harbour/src/rtl/hbcom.c
View File

@@ -322,6 +322,12 @@ static void hb_comSetOsError( PHB_COM pCom, HB_BOOL fError )
case EAGAIN:
pCom->error = HB_COM_ERR_TIMEOUT;
break;
case EACCES:
pCom->error = HB_COM_ERR_ACCESS;
break;
case ENOTTY:
pCom->error = HB_COM_ERR_NOCOM;
break;
default:
pCom->error = HB_COM_ERR_OTHER;
break;