Page 1 of 1
What's the best way to set individual bits, in a bit string
Posted: Fri Feb 26, 2021 8:00 pm
by FWExplorer
Hi,
Looking at Harbour SetBit(), it looks like it requires either a number of a hex string.
Is there an existing function that can take a binary string like "001110110", and set one of the 0 bits to 1?
Re: What's the best way to set individual bits, in a bit string
Posted: Sat Feb 27, 2021 10:11 am
by nageswaragunupudi
Code: Select all
cBits := "001110110"
? Chr(AscPos( 3 ) ) // --> "1" : Character at 3rd position
// Now set character at 2nd position to "1"
cBits := PosChar( cBits, "1", 2 )
? cBits // "011110110"
Re: What's the best way to set individual bits, in a bit string
Posted: Sat Feb 27, 2021 3:11 pm
by FWExplorer
Nages,
Thanks, of course we can do it that way. Sorry, I left out that I was looking for a C alternative. I guess my real question is how to convert Joe Booth's Bit.c to Harbour:
Code: Select all
/*******************************************************************************
* Program Id: bit.c
* Version: 1.00
********************************************************************************
*
* Purpose: Sets the given bit in a passed bit string. Returns the previous
* value. Be sure to pass the string by reference. NOTE. In order
* to stay as fast as possible, minimal parameter checking is
* performed. It is up to the user to not be too stupid.
*
* Syntax: bit( <OptC String>, <OptN (1...n) Offset> [, <OptL Set/Clear>] )
*
********************************************************************************
#include <extend.h>
CLIPPER bit( void )
{
unsigned char mask,
*ptr;
unsigned int loc,
offset = _parni( 2 ) - 1,
res = 0;
loc = offset / 8;
if ( loc < _parclen( 1 ) )
{
ptr = _parc( 1 ) + loc;
loc = offset % 8;
res = *ptr << loc & 0x80;
if ( PCOUNT > 2 )
{
mask = (unsigned char ) 0x80 >> loc;
if ( _parl( 3 ) )
*ptr = *ptr | mask;
else
*ptr = *ptr & ~mask;
}
}
_retl( res );
}
nageswaragunupudi wrote:Code: Select all
cBits := "001110110"
? Chr(AscPos( 3 ) ) // --> "1" : Character at 3rd position
// Now set character at 2nd position to "1"
cBits := PosChar( cBits, "1", 2 )
? cBits // "011110110"
Re: What's the best way to set individual bits, in a bit string
Posted: Sun Feb 28, 2021 4:31 am
by nageswaragunupudi
Code: Select all
#include <hbapi.h>
HB_FUNC( BIT )
{
unsigned char mask,
*ptr;
unsigned int loc,
offset = hb_parni( 2 ) - 1,
res = 0;
loc = offset / 8;
if ( loc < hb_parclen( 1 ) )
{
ptr = hb_parc( 1 ) + loc;
loc = offset % 8;
res = *ptr << loc & 0x80;
if ( hb_pcount() > 2 )
{
mask = (unsigned char ) 0x80 >> loc;
if ( hb_parl( 3 ) )
*ptr = *ptr | mask;
else
*ptr = *ptr & ~mask;
}
}
hb_retl( res );
}
Re: What's the best way to set individual bits, in a bit string
Posted: Sun Feb 28, 2021 3:46 pm
by FWExplorer
Thanks, nages
I badly want to understand the Harbour C api. There's certainly plenty of documentation in terms of reference material, and a few examples from the Clipper days and the Harbour implementation.
But I'm so far from understanding it, and there's no clear path to being an expert. Months back, Antonio put together a full-working sample, within a couple of days, that interfaced to a Prolog dll library. I could NEVER have figured out how to construct Antonio's interface.
There doesn't seem to be any step-by-step tutorial and exercise guide for coding in the Harbour C api, along with any Fivewin extensions.
Anyway, thanks for taking the time to code this, it'll be useful.
Re: What's the best way to set individual bits, in a bit string
Posted: Sun Feb 28, 2021 4:04 pm
by nageswaragunupudi
Please study "c" programs in fwh\samples\function folder.
Re: What's the best way to set individual bits, in a bit string
Posted: Sun Feb 28, 2021 6:01 pm
by FWExplorer
Thanks nage,
There's no function folder in samples.
if you mean the .c code in the ..\samples and subfolders, yes that's helpful.
But nobody - as far as I know - has put together any kind structured tutorial document with short samples and maybe exercises. All we have is reference documentation and samples, which leaves it up a random process, and there's always a chance that the developer might miss something fundamental.
Let me think about this a bit. Maybe I can start the docs, from the vantage point of someone who used the api and experimented a little, but needs to develop a foundation.
Re: What's the best way to set individual bits, in a bit string
Posted: Sun Feb 28, 2021 6:21 pm
by nageswaragunupudi
Very sorry:
fwh\source\function
Re: What's the best way to set individual bits, in a bit string
Posted: Sun Feb 28, 2021 6:33 pm
by nageswaragunupudi
If you are interested, you can make a beginning with this sample:
Code: Select all
#include "fivewin.ch"
//----------------------------------------------------------------------------//
function Main()
local num1 := 100
local num2 := 50
local result
result := MY_ADD( num1, num2 )
? num1, num2, result
return nil
//----------------------------------------------------------------------------//
#pragma BEGINDUMP
#include <hbapi.h>
HB_FUNC( MY_ADD ) // ( num1, num2 ) --> result
{
int n1 = hb_parni( 1 );
int n2 = hb_parni( 2 );
hb_retni( n1 + n2 );
}
#pragma ENDDUMP
//----------------------------------------------------------------------------//
Save this to fwh\samples folder and build with buildh.bat.
After this, you can try adding functions like MY_MULT(), MY_DIVIDE(), etc.
Then you can make more complex functions.
Re: What's the best way to set individual bits, in a bit string
Posted: Sun Feb 28, 2021 7:30 pm
by FWExplorer
Yes, that's a nice sample to start with, thanks.