rpl/src/instructions_r4.c - diff

Return to instructions_r4.c CVS log

Up to [local] / rpl / src

version 1.119, 2023/11/26 10:54:21	version 1.122, 2024/01/17 16:57:15
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.35	RPL/2 (R) version 4.1.36
Copyright (C) 1989-2023 Dr. BERTRAND Joël	Copyright (C) 1989-2024 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 3723 instruction_read(struct_processus *s_eta	Line 3723 instruction_read(struct_processus *s_eta

for(i = 0; i < longueur_effective; i++)	for(i = 0; i < longueur_effective; i++)
{	{
if (isprint(tampon_lecture[i]) != 0)	if (isprint(tampon_lecture[i]) == 0)
{	{
longueur_enregistrement += 4;	longueur_enregistrement += 4;
}	}
else	else
{	{
longueur_enregistrement++;	if ((tampon_lecture[i] == '"') \|\|
	(tampon_lecture[i] == '"'))
	{
	longueur_enregistrement += 2;
	}
	else
	{
	longueur_enregistrement++;
	}
}	}
}	}

Line 3756 instruction_read(struct_processus *s_eta	Line 3764 instruction_read(struct_processus *s_eta
{	{
if (isprint(tampon_lecture[i]) != 0)	if (isprint(tampon_lecture[i]) != 0)
{	{
(*ptr) = tampon_lecture[i];	if ((tampon_lecture[i] == '"') \|\|
ptr++;	(tampon_lecture[i] == '"'))
	{
	(*ptr) = '\\';
	ptr++;
	(*ptr) = tampon_lecture[i];
	ptr++;
	}
	else
	{
	(*ptr) = tampon_lecture[i];
	ptr++;
	}
}	}
else	else
{	{