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

2013-04-06 12:04 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* bin/check.hb
  * tests/fixcase.hb
    ! do not strip newlines from comments

  * include/hbrddnsx.h
    ! fixcase fixups
This commit is contained in:
Viktor Szakats
2013-04-06 12:05:38 +02:00
parent 78964ff62d
commit 2ad4417ea6
4 changed files with 15 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
ChangeLog.txt
View File

@@ -10,10 +10,18 @@
* Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
*/
2013-04-06 12:04 UTC+0200 Viktor Szakats (harbour syenar.net)
* bin/check.hb
* tests/fixcase.hb
! do not strip newlines from comments
* include/hbrddnsx.h
! fixcase fixups
2013-04-06 11:54 UTC+0200 Viktor Szakats (harbour syenar.net)
* src/compiler/cmdcheck.c
! fixed some code messed up by case fixup
; TODO: fix case fixup code (getccomment()?)
; TODO: fix case fixup code (getccomment()?) [CLOSED: can't reproduce it anymore]
2013-04-05 18:58 UTC+0200 Viktor Szakats (harbour syenar.net)
* bin/check.hb

4
bin/check.hb
View File

@@ -539,9 +539,7 @@ STATIC FUNCTION GetCComments( cFile )
FOR tmp := 1 TO Len( aHits ) STEP 2
FOR tmp1 := aHits[ tmp ] TO aHits[ tmp + 1 ]
IF ! hb_BSubStr( cFile, tmp1, 1 ) $ Chr( 13 ) + Chr( 10 )
hb_BPoke( @cComments, tmp1, hb_BPeek( cFile, tmp1 ) )
ENDIF
hb_BPoke( @cComments, tmp1, hb_BPeek( cFile, tmp1 ) )
NEXT
NEXT

8
include/hbrddnsx.h
View File

@@ -235,15 +235,15 @@ HB_EXTERN_BEGIN
#define NSX_TAG_MULTIKEY 0x20
/*
sx_chill() => if ( indexFlag & ( NSX_TAG_NOUPDATE | NSX_TAG_TEMPLATE ) == 0 )
sx_Chill() => if ( indexFlag & ( NSX_TAG_NOUPDATE | NSX_TAG_TEMPLATE ) == 0 )
indexFlag |= NSX_TAG_CHGONLY | NSX_TAG_PARTIAL;
sx_warm() => if ( indexFlag & ( NSX_TAG_NOUPDATE | NSX_TAG_TEMPLATE ) == 0 )
sx_Warm() => if ( indexFlag & ( NSX_TAG_NOUPDATE | NSX_TAG_TEMPLATE ) == 0 )
indexFlag &= ~NSX_TAG_CHGONLY
indexFlag |= NSX_TAG_PARTIAL // I do not like this
sx_freeze() => indexFlag |= NSX_TAG_NOUPDATE | NSX_TAG_PARTIAL
sx_Freeze() => indexFlag |= NSX_TAG_NOUPDATE | NSX_TAG_PARTIAL
indexFlag &= ~NSX_TAG_CHGONLY
sx_thermometer() => if ( NSX_TAG_NOUPDATE | NSX_TAG_TEMPLATE ) -> 4
sx_Thermometer() => if ( NSX_TAG_NOUPDATE | NSX_TAG_TEMPLATE ) -> 4
if ( NSX_TAG_CHGONLY ) -> 3
if ( NSX_TAG_PARTIAL ) -> 2
else -> 1

4
tests/fixcase.hb
View File

@@ -242,9 +242,7 @@ STATIC FUNCTION GetCComments( cFile )
FOR tmp := 1 TO Len( aHits ) STEP 2
FOR tmp1 := aHits[ tmp ] TO aHits[ tmp + 1 ]
IF ! hb_BSubStr( cFile, tmp1, 1 ) $ Chr( 13 ) + Chr( 10 )
hb_BPoke( @cComments, tmp1, hb_BPeek( cFile, tmp1 ) )
ENDIF
hb_BPoke( @cComments, tmp1, hb_BPeek( cFile, tmp1 ) )
NEXT
NEXT