1 /*****************************************************************************
2 
3 	Ln2Chr()
4 
5 	This function converts an edit buffer offset represented by a line
6 number into the corresponding character number.  It basically performs the
7 function of the control-Q command.
8 	The returned character offset is minimized with the edge of the
9 buffer.  This means that if there are 10 lines in the edit buffer and this
10 function is called to compute the character offset of the 100th line,  the
11 character offset of the 10th line is returned.  Of course,  this happens
12 whether the argument is positive or negative.
13 
14 *****************************************************************************/
15 
16 #include "zport.h"		/* define portability identifiers */
17 #include "tecoc.h"		/* define general identifiers */
18 #include "defext.h"		/* define external global variables */
19 #include "dchars.h"		/* define identifiers for characters */
20 #include "chmacs.h"		/* define character processing macros */
21 
Ln2Chr(Value)22 LONG Ln2Chr(Value)
23 LONG Value;
24 {
25 	charptr	TmpPtr;
26 
27 	if (Value > 0) {
28 		TmpPtr = GapEnd;
29 		while ((TmpPtr < EBfEnd) &&  (Value > 0)) {
30 			++TmpPtr;
31 			if (IsEOL(*TmpPtr)) {
32 				--Value;
33 			}
34 		}
35 		return TmpPtr-GapEnd;
36 	}
37 
38 	TmpPtr = GapBeg;
39 	while ((TmpPtr > EBfBeg) && (Value <= 0)) {
40 		--TmpPtr;
41 		if (IsEOL(*TmpPtr)) {
42 			++Value;
43 		}
44 	}
45 
46 /*
47  * at this point (Value > 0 OR TmpPtr == EBfBeg)
48  */
49 	if ((TmpPtr != EBfBeg) || (IsEOL(*TmpPtr))) {
50 		++TmpPtr;
51 	}
52 	return TmpPtr-GapBeg;
53 }
54