OpenEuphoria

Method Euphoria Error

• Posted by Michael Nelson <mikestar13 at sbcglobal.net> Aug 10, 2005
• 487 views

--0-1021830745-1123698665=:16832
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit

The most recent release of Method Euphoria inadventently included a wrong copy
of the file method_euphoria.e which induces bugs in several areas, though the fix
is confined to a single internal function. I will upload a correction tonight.
Please do not download Method Euphoria until the correction is posted. If you
have installed the latest ME version and need to get things working before then,
you can replace valid_class() with this code:
 

function valid_class(object x,integer ct)
   integer super
   if not class_entity(x) then
      x=resolve_name(x,FALSE)
      if x!=NIL then
         x&=CLASS_TAIL
      else
         return NIL
      end if   
   end if      
   if ct=0 then return x end if 
   super=SuperclassList[x[1]][$] 
   if super=ct then
      return x
   else 
      return NIL
   end if    
end function 

 
Mike Nelson


--0-1021830745-1123698665=:16832
Content-Type: text/html; charset=iso-8859-1
Content-Transfer-Encoding: 8bit

<DIV>
<DIV>The most recent release of Method Euphoria inadventently included a wrong
copy of the file method_euphoria.e&nbsp;which induces bugs in several areas,
though the fix is confined to a single internal function. I will upload a
correction tonight. Please&nbsp;do not download Method Euphoria until the
correction is posted. If you have installed the latest ME version and need to get
things working before then, you can replace valid_class() with this code:</DIV>
<DIV>&nbsp;</DIV>
<DIV>&lt;eucode&gt;</DIV>
<DIV>function valid_class(object x,integer ct)<BR>&nbsp;&nbsp; integer
super<BR>&nbsp;&nbsp; if not class_entity(x)
then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
x=resolve_name(x,FALSE)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if x!=NIL
then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
x&amp;=CLASS_TAIL<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
else<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; return
NIL<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end if&nbsp;&nbsp; <BR>&nbsp;&nbsp; end
if&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp; if ct=0 then return x end if
<BR>&nbsp;&nbsp; super=SuperclassList[x[1]][$] <BR>&nbsp;&nbsp; if super=ct
then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; return x<BR>&nbsp;&nbsp; else
<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; return NIL<BR>&nbsp;&nbsp; end
if&nbsp;&nbsp;&nbsp; <BR>end function&nbsp;</DIV>
<DIV>&lt;/eucode&gt;</DIV>
<DIV>&nbsp;</DIV>
<DIV>Mike Nelson</DIV></DIV>
--0-1021830745-1123698665=:16832--