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

2010-03-25 09:29 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* include/hbapirdd.h
    ! Typos in comments.

  * contrib/hbct/print.c
    + Rewritten PRINTREADY() to work on all platforms the core 
      supports.

  * contrib/sddoci/sddoci.c
    + Added 'nullable' flag support. By the name it's right, 
      but it's foggy which flag constants belong to which 
      structure and rdd code suggest this flag does something 
      else depsite the name. Pls look at it.
This commit is contained in:
Viktor Szakats
2010-03-25 08:30:18 +00:00
parent 8b76d3119e
commit dc6bf8789c
4 changed files with 25 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
harbour/ChangeLog
View File

@@ -17,6 +17,20 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-03-25 09:29 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* include/hbapirdd.h
! Typos in comments.
* contrib/hbct/print.c
+ Rewritten PRINTREADY() to work on all platforms the core
supports.
* contrib/sddoci/sddoci.c
+ Added 'nullable' flag support. By the name it's right,
but it's foggy which flag constants belong to which
structure and rdd code suggest this flag does something
else depsite the name. Pls look at it.
2010-03-25 09:10 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/hbbz2/hbbz2.c
* use hb_xalloc()/hb_xfree() inside BZIP2 code to allocate/free memory

33
harbour/contrib/hbct/print.c
View File

@@ -6,12 +6,9 @@
* Harbour Project source code:
* CT3 Printer functions:
*
* PRINTSTAT(), PRINTREADY()
* Copyright 2001 Walter Negro - FOEESITRA" <waltern@foeesitra.org.ar>
*
* PRINTSEND()
* Copyright 2004 Phil Krylov <phil@newstar.rinet.ru>
*
* Copyright 2010 Viktor Szakats (harbour.01 syenar.hu) (PRINTREADY())
* Copyright 2004 Phil Krylov <phil@newstar.rinet.ru> (PRINTSEND())
* Copyright 2001 Walter Negro - FOEESITRA" <waltern@foeesitra.org.ar> (PRINTSTAT())
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -138,34 +135,18 @@ HB_FUNC( PRINTSTAT )
* $PLATFORMS$
* DOS
* $FILES$
* Source is print.c, library is libct.
* Library is libct.
* $SEEALSO$
* $END$
*/
HB_FUNC( PRINTREADY )
{
HB_USHORT uiPort = HB_ISNUM( 1 ) ? ( HB_USHORT ) hb_parni( 1 ) : 1;
int Status = 0;
char szLPT[ 8 ];
#if defined( HB_OS_DOS )
hb_snprintf( szLPT, sizeof( szLPT ), "LPT%hu", HB_ISNUM( 1 ) ? ( HB_USHORT ) hb_parni( 1 ) : 1 );
/* NOTE: DOS specific solution, using BIOS interrupt */
union REGS regs;
regs.h.ah = 2;
regs.HB_XREGS.dx = uiPort - 1;
HB_DOS_INT86( 0x17, &regs, &regs );
Status = regs.h.ah;
#else
HB_SYMBOL_UNUSED( uiPort );
#endif
hb_retl( Status == 0x90 );
hb_retl( hb_printerIsReady( szLPT ) );
}

3
harbour/contrib/sddoci/sddoci.c
View File

@@ -374,7 +374,8 @@ static HB_ERRCODE ocilibOpen( SQLBASEAREAP pArea )
iDec = OCI_ColumnGetPrecision( col );
bNullable = ( HB_BOOL ) OCI_ColumnGetNullable( col );
HB_SYMBOL_UNUSED( bNullable );
if( bNullable )
pFieldInfo.uiFlags |= HB_FF_NULLABLE;
pFieldInfo.uiLen = ( HB_USHORT ) uiSize;
pFieldInfo.uiDec = ( HB_USHORT ) iDec;

4
harbour/include/hbapirdd.h
View File

@@ -87,7 +87,7 @@ HB_EXTERN_BEGIN
/* FIeld types */
/* Field types */
#define HB_FT_NONE 0
#define HB_FT_STRING 1 /* "C" */
@@ -113,7 +113,7 @@ HB_EXTERN_BEGIN
/* FIeld flags */
/* Field flags */
#define HB_FF_HIDDEN 0x0001 /* System Column (not visible to user) */
#define HB_FF_NULLABLE 0x0002 /* Column can store null values */