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

20000413-02:14 GMT+1 Victor Szakats <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
2000-04-13 00:11:26 +00:00
parent 6621e6ff4b
commit 7d0c4f2d05
4 changed files with 25 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -1,3 +1,10 @@
20000413-02:14 GMT+1 Victor Szakats <info@szelvesz.hu>
* include/hbapiitm.h
* source/vm/itemapi.c
* source/vm/extend.c
+ hb_itemPutD() added. hb_retd() modified to call this.
20000412-11:01 GMT+1 Victor Szakats <info@szelvesz.hu>
* include/hbdate.h

1
harbour/include/hbapiitm.h
View File

@@ -81,6 +81,7 @@ extern PHB_ITEM hb_itemPutC ( PHB_ITEM pItem, char * szText );
extern PHB_ITEM hb_itemPutCPtr ( PHB_ITEM pItem, char * szText, ULONG ulLen );
extern PHB_ITEM hb_itemPutCL ( PHB_ITEM pItem, char * szText, ULONG ulLen );
extern void hb_itemSetCMemo ( PHB_ITEM pItem );
extern PHB_ITEM hb_itemPutD ( PHB_ITEM pItem, long lYear, long lMonth, long lDay );
extern PHB_ITEM hb_itemPutDS ( PHB_ITEM pItem, char * szDate );
extern PHB_ITEM hb_itemPutDL ( PHB_ITEM pItem, long lJulian );
extern PHB_ITEM hb_itemPutL ( PHB_ITEM pItem, BOOL bValue );

2
harbour/source/vm/extend.c
View File

@@ -495,7 +495,7 @@ void hb_retd( long lYear, long lMonth, long lDay )
{
HB_TRACE(HB_TR_DEBUG, ("hb_retd(%04i, %02i, %02i)", lYear, lMonth, lDay));
hb_itemPutDL( &hb_stack.Return, hb_dateEncode( lYear, lMonth, lDay ) );
hb_itemPutD( &hb_stack.Return, lYear, lMonth, lDay );
}
void hb_retl( int iLogical )

16
harbour/source/vm/itemapi.c
View File

@@ -54,6 +54,7 @@
* hb_itemPutNDLen()
* hb_itemPutNILen()
* hb_itemPutNLLen()
* hb_itemPutD()
* hb_itemSetCMemo()
*
* Copyright 1999 Eddie Runia <eddie@runia.com>
@@ -711,6 +712,21 @@ PHB_ITEM hb_itemPutDS( PHB_ITEM pItem, char * szDate )
return pItem;
}
PHB_ITEM hb_itemPutD( PHB_ITEM pItem, long lYear, long lMonth, long lDay )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutD(%p, %04i, %02i, %02i)", pItem, lYear, lMonth, lDay));
if( pItem )
hb_itemClear( pItem );
else
pItem = hb_itemNew( NULL );
pItem->type = HB_IT_DATE;
pItem->item.asDate.value = hb_dateEncode( lYear, lMonth, lDay );
return pItem;
}
PHB_ITEM hb_itemPutDL( PHB_ITEM pItem, long lJulian )
{
HB_TRACE(HB_TR_DEBUG, ("hb_itemPutDL(%p, %ld)", pItem, lJulian));