FIX: fine tunning CRLF/CR conversion to LF - now the conversion is used with READ/STRING,

but not when converting binary to string (so it is close to R2/Red behavior)

```
;; on Windows:
>> write/lines %foo ["a" "b"]
>> read/string %foo
== "a^/b^/"
;; but:
>> to-string read %foo
== "a^M^/b^M^/"
```

Related issue: metaeducation/rebol-issues#2336

Author: Oldes

src/core/a-lib.c

@@ -979,7 +979,7 @@ RL_API REBSER* RL_Encode_UTF8_String(void *src, REBCNT len, REBFLG uni, REBFLG o
 	return Encode_UTF8_String(src, len, uni, opts);
 }
 
-RL_API REBSER* RL_Decode_UTF_String(REBYTE *src, REBCNT len, REBINT utf)
+RL_API REBSER* RL_Decode_UTF_String(REBYTE *src, REBCNT len, REBINT utf, REBFLG ccr)
 /*
 **	Decode the UTF8 encoded data into Rebol series.
 **
@@ -989,9 +989,10 @@ RL_API REBSER* RL_Decode_UTF_String(REBYTE *src, REBCNT len, REBINT utf)
 **		src  - UTF8 encoded data
 **		len  - number of source bytes to convert.
 **		utf  - is 0, 8, +/-16, +/-32.
+**		ccr  - Convert LF/CRLF
 */
 {
-	return Decode_UTF_String(src, len, utf);
+	return Decode_UTF_String(src, len, utf, ccr);
 }
 
 

src/core/p-file.c

@@ -266,7 +266,7 @@ REBINT Mode_Syms[] = {
 	// Convert to string or block of strings.
 	// NOTE: This code is incorrect for files read in chunks!!!
 	if (args & (AM_READ_STRING | AM_READ_LINES)) {
-		ser = Decode_UTF_String(BIN_HEAD(ser), file->actual, -1);
+		ser = Decode_UTF_String(BIN_HEAD(ser), file->actual, -1, TRUE);
 		Set_String(ds, ser);
 		if (args & AM_READ_LINES) Set_Block(ds, Split_Lines(ds));
 	}

src/core/s-unicode.c

@@ -919,7 +919,7 @@ ConversionResult ConvertUTF8toUTF32 (
 
 /***********************************************************************
 **
-*/	REBSER *Decode_UTF_String(REBYTE *bp, REBCNT len, REBINT utf)
+*/	REBSER *Decode_UTF_String(REBYTE *bp, REBCNT len, REBINT utf, REBFLG ccr)
 /*
 **		Do all the details to decode a string.
 **		Input is a byte series. Len is len of input.
@@ -932,7 +932,7 @@ ConversionResult ConvertUTF8toUTF32 (
 	REBSER *dst;
 	REBINT size;
 
-	REBFLG ccr = FALSE; // in original R3-alpha if was TRUE
+	//REBFLG ccr = FALSE; // in original R3-alpha if was TRUE
 	//@@ https://github.com/rebol/rebol-issues/issues/2336
 
 	if (utf == -1) {

src/core/t-string.c

@@ -164,7 +164,7 @@ static REBSER *make_string(REBVAL *arg, REBOOL make)
 		default:
 			Trap0(RE_BAD_DECODE);
 		}
-		ser = Decode_UTF_String(bp, len, 8); // UTF-8
+		ser = Decode_UTF_String(bp, len, 8, FALSE); // UTF-8
 	}
 	// MAKE/TO <type> <any-string>
 	else if (ANY_BINSTR(arg)) {