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.106, 2025/04/15 10:17:57
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-2025 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 = 0; 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