j-f-liu / iso-10303 Goto Github PK

Conversion { message: "Conversion error: ()", position: 348100 }

       Low,U : INTEGER) : ARRAY OF GENERIC : T;

      Low,U : INTEGER) : ARRAY  [Low:U] OF GENERIC : T;

SCHEMA IFC4;

ENTITY IfcActionRequest;
	PredefinedType : OPTIONAL IfcActionRequestTypeEnum;
END_ENTITY;

FUNCTION IfcListToArray
(Lis : LIST [0:?] OF GENERIC : T;
       Low,U : INTEGER) : ARRAY OF GENERIC : T;
   LOCAL
     N   : INTEGER;
     Res : ARRAY [Low:U] OF GENERIC : T;
   END_LOCAL;

   N := SIZEOF(Lis);
   IF (N <> (U-Low +1)) THEN
     RETURN(?);
   ELSE
     Res := [Lis[1] : N];
     REPEAT i := 2 TO N;
       Res[Low+i-1] := Lis[i];
     END_REPEAT;
     RETURN(Res);
   END_IF;
END_FUNCTION;

END_SCHEMA;