rpl/src/rplexternals.h - diff

Return to rplexternals.h CVS log

Up to [local] / rpl / src

version 1.101, 2023/11/27 08:48:46	version 1.103, 2024/01/09 07:33:56
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.35	RPL/2 (R) version 4.1.35
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 885	Line 885
} } while(0)	} } while(0)

#define vectorSize(rpl_object) \	#define vectorSize(rpl_object) \
({ if ((*rpl_object).type == VIN) \	({ integer8 __size; if (((*rpl_object).type == VIN) \|\| \
(((integer8 ) (*rpl_object).objet)).taille; \	((*rpl_object).type == VRL) \|\| \
else if ((*rpl_object).type == VRL) \	((*rpl_object).type == VCX)) \
(((real8 ) (*rpl_object).objet)).taille; \	__size = (((struct_vecteur ) (*rpl_object).objet)).taille; \
else if ((*rpl_object).type == VCX)) \	else executionError("Type mistmatch error"); __size; })
(((complex16 ) (*rpl_object).objet)).taille; \
else { executionError("Type mistmatch error"); 0; } })

// Integer vector	// Integer vector