CVS: setedit/sdg mli.cc,1.23,1.24

[Salvador E. T. <se...@us...>]

Update of /cvsroot/setedit/setedit/sdg
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv8431/sdg

Modified Files:
	mli.cc 
Log Message:
* Added: [SHL] new keywords to the "USB Descriptors" and "USB Transactions"
syntaxis.
* Modified: [PMacros] VHDL header macro (new tools and log removed).
* Added: [DOC] Documentation for the second parameter used in sLisp's
OpenFile.
* Added: [Functions] Search for USB descriptors.
* Added: [sLisp] Now you can add strings to integers (they get converted
using strtol). Based on a patch by Al-Junaid H. Walker (abic/australia/edu)


Index: mli.cc
===================================================================
RCS file: /cvsroot/setedit/setedit/sdg/mli.cc,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** mli.cc	21 Sep 2006 13:14:32 -0000	1.23
--- mli.cc	11 Jun 2008 12:37:51 -0000	1.24
***************
*** 672,676 ****
  static void AddIntegers(TLispInteger *Val,TMLIBase *o,int start ,int cant, int startret)
  {
!  LocVarInt(NewVal);
   int i,ret;
  
--- 672,676 ----
  static void AddIntegers(TLispInteger *Val,TMLIBase *o,int start ,int cant, int startret)
  {
!  LocVar(NewVal);
   int i,ret;
  
***************
*** 678,683 ****
   for (i=0; i<cant; i++)
      {
!      GetInteger(i,NewVal);
!      ret+=NewVal->val;
       destroyFloatVar(NewVal);
       NewVal=NULL;
--- 678,694 ----
   for (i=0; i<cant; i++)
      {
!      GetVar(i,NewVal);
!      switch (GroupTypeOf(NewVal))
!        {
!         case MLIGString:
!              ret+=strtol(((TLispString *)NewVal)->str,NULL,0);
!              break;
!         case MLIGInteger:
!              ret+=((TLispInteger *)NewVal)->val;
!              break;
!         default:
!              o->Error=MLITypeParam;
!              goto CleanUp;
!        }
       destroyFloatVar(NewVal);
       NewVal=NULL;