issue #78 default parm value now in documentation

ldoc/doc.lua

@@ -752,13 +752,25 @@ function build_arg_list (names,pmods)
    return  '('..table.concat(buffer)..')'
 end
 
-function Item:type_of_param(p)
+function Item:param_modifiers (p)
    local mods = self.modifiers[self.parameter]
    if not mods then return '' end
-   local mparam = rawget(mods,p)
+   return rawget(mods,p)
+end
+
+function Item:type_of_param(p)
+   local mparam = self:param_modifiers(p)
    return mparam and mparam.type or ''
 end
 
+function Item:default_of_param(p)
+   local m = self:param_modifiers(p)
+   if not m then return nil end
+   local opt = m.optchain or m.opt
+   if opt == true then return nil end
+   return opt
+end
+
 function Item:type_of_ret(idx)
    local rparam = self.modifiers['return'][idx]
    return rparam and rparam.type or ''

ldoc/html/ldoc_ltp.lua

@@ -165,12 +165,16 @@ return [==[
         <ul>
 #     end
 #     for p in iter(param) do
-#        local name,tp = item:display_name_of(p), ldoc.typename(item:type_of_param(p))
+#        local name,tp,def = item:display_name_of(p), ldoc.typename(item:type_of_param(p)), item:default_of_param(p)
         <li><span class="parameter">$(name)</span>
 #       if tp ~= '' then
             <span class="types">$(tp)</span>
-#        end
-        $(M(item.params[p],item))</li>
+#       end
+        $(M(item.params[p],item))
+#       if def then
+         (<em>default</em> $(def))
+#       end
+        </li>
 #     end
 #     if sublist then
         </li></ul>