RosettaCodeData/Task/Variable-size-Get/PL-I/variable-size-get.pli

9 lines
459 B
Plaintext

put skip list (SIZE(x)); /* gives the number of bytes occupied by X */
/* whatever data type or structure it is. */
put skip list (CURRENTSIZE(x));
/* gives the current number of bytes of X */
/* actually used by such things as a */
/* varying-length string, including its */
/* length field. */