| xHarbour Reference Documentation > Function Reference |
![]() |
![]() |
![]() |
Rotates bits in a character string to the right.
CharRLR( <cString>, <nShift> ) --> cResult
The function returns a string by rotating the bits of the individual characters of <cString> for <nShift> places to the right. The lowest bit replaces the highest bit for each rotation.
| See also: | CharAND(), CharNOT(), CharOR(), CharRLL(), CharSHL(), CharSHR(), CharXOR() |
| Category: | CT:String manipulation , Bitwise functions , Character functions , xHarbour extensions |
| Source: | ct\charop.c |
| LIB: | xhb.lib |
| DLL: | xhbdll.dll |
// The example demonstrates the effect of rotating bits in
// a two-character string, by displaying the ASCII codes and
// their binary representation before and after the right rotation.
PROCEDURE Main
LOCAL cString := "AB"
LOCAL cShift
LOCAL nAsc1, nAsc2
? nAsc1 := Asc( cString[1] ) // result: 65
? nAsc2 := Asc( cString[2] ) // result: 66
? NtoC( nAsc1, 2, 8, "0" ) // result: 01000001
? NtoC( nAsc2, 2, 8, "0" ) // result: 01000010
cShift := CharRLR( cString, 2 )
? nAsc1 := Asc( cShift[1] ) // result: 80
? nAsc2 := Asc( cShift[2] ) // result: 144
? NtoC( nAsc1, 2, 8, "0" ) // result: 01010000
? NtoC( nAsc2, 2, 8, "0" ) // result: 10100000
RETURN
http://www.xHarbour.com