<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><br><div><div>On Apr 13, 2010, at 4:42 AM, Gary Byers wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><span class="Apple-style-span" style="border-collapse: separate; font-family: Helvetica; font-size: medium; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; "><blockquote type="cite">And in the end in all the slots there are integers or floats..., or Strings.<br></blockquote><blockquote type="cite">How do I get the size of a string ? length * x.<br></blockquote><br>The SIZEOF a SIMPLE-STRING is its length * 4, + the size of a header (4 bytes<br>in 32-bit CCL, 8 bytes in 64-bit CCL), rounded up to an object alignment boundary<br>(8/16 bytes.) The SIZEOF function that I mailed out yesterday should know how<br>compute this value.</span></blockquote><br></div><div>uvsize is a pretty handy function to compute these kinds of sizes. Overall, I prefer sizeof to be a method in order to be able to compute sizes of custom types/classes. However, Your sizeof appears to return strange results for some simple types including floats, CCL32:</div><div><br></div><div><div>? (sizeof 3.14)</div><div>8</div><div>;; should this not be 4</div><div><br></div><div><div>? (type-of 3.14)</div><div>SINGLE-FLOAT</div><div><br></div><div>In CCL64 the result is 0 because single-floats are not uvectors and the case is not handled in your cond</div><div><br></div><div>It should be simple to create some additional methods such as </div><div><br></div><div>(defmethod sizeof ((string string)) ..</div><div><br></div><div>(defmethod sizeof (thing) ...</div><div><br></div><div>and implement then using uvsize functions</div><div><br></div><div>alex</div></div><div><br></div><div><br></div></div><div><br></div><div><br></div><div><br></div><br><div>
<span class="Apple-style-span" style="font-size: 12px; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><p style="margin: 0.0px 0.0px 0.0px 0.0px"><font face="Helvetica" size="3" style="font: 12.0px Helvetica">Prof. Alexander Repenning</font></p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><br class="khtml-block-placeholder"></p><p style="margin: 0.0px 0.0px 0.0px 0.0px">University of Colorado</p><p style="margin: 0.0px 0.0px 0.0px 0.0px">Computer Science Department</p><p style="margin: 0.0px 0.0px 0.0px 0.0px">Boulder, CO 80309-430</p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><br class="khtml-block-placeholder"></p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><font face="Helvetica" size="3" style="font: 12.0px Helvetica">vCard: <a href="http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf">http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf</a></font></p><br class="Apple-interchange-newline"></span></span>
</div>
<br></body></html>