Commits

Anonymous committed 48659fe

Added comments.

  • Participants
  • Parent commits 8c76430

Comments (0)

Files changed (1)

perl5/ext-embed-internals/docbook/examples/0007-iterate-over-array/XSTest/lib/XSTest.xs

         RETVAL = 0;
     CODE:
         {
+            /* NV is a numeric value - a floating point double */
             NV ret;
             I32 max_index;
             I32 i;
 
             ret = 0.0;
 
+            /* av_len() returns the maximal element in the array. */
             max_index = av_len(my_array);
 
             for (i=0;i<=max_index;i++)
             {
                 SV * * elem;
 
+                /* av_fetch() fetches the element of my_array at position
+                 * i
+                 * */
                 elem = av_fetch(my_array, i, 0);
                 if (elem == NULL)
                 {