Subversion Repositories Kolibri OS

Rev

Rev 9674 | Rev 9731 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9674 Rev 9708
Line 2732... Line 2732...
2732 
		IF (0 <= code) & (code <= 255) THEN
 2732 
		IF (0 <= code) & (code <= 255) THEN
2733 
			code := cp[code]
 2733 
			code := cp[code]
2734 
		ELSE
 2734 
		ELSE
2735 
			code := ORD(c)
 2735 
			code := ORD(c)
2736 
		END;
 2736 
		END;
2737 
		res := WCHR(code) # c;
 2737 
		IF code # ORD(c) THEN
2738 
		c := WCHR(code)
 2738 
			c := WCHR(code);
- 
 
 2739 
			res := TRUE
- 
 
 2740 
		END
2739 
	END
 2741 
	END
2740 
	RETURN res
 2742 
	RETURN res
2741 
END conv;
 2743 
END conv;
Line 2742... Line 2744...
2742 
 
 2744 
 
2743 
 
 2745 
 
2744 
PROCEDURE conv1251to866 (VAR c: WCHAR): BOOLEAN;
 2746 
PROCEDURE conv1251to866 (VAR c: WCHAR): BOOLEAN;
Line 2745... Line 2747...
2745 
	RETURN conv(c, E.cp866, E.W1251)
 2747 
	RETURN conv(c, E.cp866, E.CP1251)
2746 
END conv1251to866;
 2748 
END conv1251to866;
2747 
 
 2749 
 
Line 2748... Line 2750...
2748 
 
 2750 
 
2749 
PROCEDURE conv866to1251 (VAR c: WCHAR): BOOLEAN;
 2751 
PROCEDURE conv866to1251 (VAR c: WCHAR): BOOLEAN;
2750 
	RETURN conv(c, E.cp1251, E.CP866)
 2752 
	RETURN conv(c, E.cp1251, E.CP866)
2751 
END conv866to1251;
 2753 
END conv866to1251;
2752 
 
 2754 
 
2753 
 
 2755 
 
2754 
PROCEDURE convert* (text: tText; cp: E.CP; enc: INTEGER);
 2756 
PROCEDURE convert* (text: tText; (*cp: E.CP;*) enc: INTEGER);
2755 
VAR
 2757 
VAR
2756 
	line: tLine;
 2758 
	line: tLine;
2757 
	func: Lines.fConvert;
 2759 
	func: Lines.fConvert;
2758 
	modified: BOOLEAN;
 2760 
	modified: BOOLEAN;
2759 
BEGIN
 2761 
BEGIN
2760 
	modified := FALSE;
 2762 
	modified := FALSE;
2761 
	line := text.first(tLine);
 2763 
	line := text.first(tLine);
2762 
	IF enc = E.CP866 THEN
 2764 
	IF enc = E.CP866 THEN