some warnings
Allan CORNET [Sat, 24 Oct 2009 10:17:01 +0000 (12:17 +0200)]
scilab/modules/graphics/sci_gateway/c/sci_xstring.c
scilab/modules/graphics/src/c/getHandleProperty/set_format_n_property.c
scilab/modules/scicos_blocks/src/c/affich.c
scilab/modules/string/sci_gateway/c/sci_isascii.c

index e03f637..f174eb9 100644 (file)
 #include "MALLOC.h"
 #include "freeArrayOfString.h"
 #include "localization.h"
+#include "Scierror.h"
+#include "BuildObjects.h"
 /*--------------------------------------------------------------------------*/
 int sci_xstring( char *fname, unsigned long fname_len )
 {
-  double rect[4];
-  double x,y,angle=0.0;
-  int m1,n1,l1,m2,n2,l2,m3,n3,m4,n4,l4,m5,n5,l5;
-  char **Str = NULL;
-  char **sendStr = NULL;
-  int sendm3, sendn3;
-  long hdlstr;
-  int nbElement=0, i;
-  BOOL isboxed = FALSE;
-
-  CheckRhs(3,5);
-
-  GetRhsVar(3,MATRIX_OF_STRING_DATATYPE,&m3,&n3,&Str);
-  if ( m3*n3 == 0 )
+       double rect[4];
+       double x,y,angle=0.0;
+       int m1,n1,l1,m2,n2,l2,m3,n3,m4,n4,l4,m5,n5,l5;
+       char **Str = NULL;
+       char **sendStr = NULL;
+       int sendm3, sendn3;
+       long hdlstr;
+       int nbElement=0, i;
+       BOOL isboxed = FALSE;
+
+       CheckRhs(3,5);
+
+       GetRhsVar(3,MATRIX_OF_STRING_DATATYPE,&m3,&n3,&Str);
+       if ( m3*n3 == 0 )
        {
                LhsVar(1)=0;
                C2F(putlhsvar)();
@@ -47,93 +49,93 @@ int sci_xstring( char *fname, unsigned long fname_len )
        }
 
 
-  GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
-  GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2);
-
-  if(m1*n1 == 1 || m2*n2 == 1)
-  {
-    nbElement = m1*n1 * m2*n2;
-  }
-  else if(m1*n1 == m2*n2)
-  {
-    nbElement = m1*n1;
-  }
-  else
-  {
-    Scierror(999,_("%s: Incompatible input arguments #%d and #%d: Same element number expected.\n"), fname, 1, 2);
+       GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
+       GetRhsVar(2,MATRIX_OF_DOUBLE_DATATYPE,&m2,&n2,&l2);
+
+       if(m1*n1 == 1 || m2*n2 == 1)
+       {
+               nbElement = m1*n1 * m2*n2;
+       }
+       else if(m1*n1 == m2*n2)
+       {
+               nbElement = m1*n1;
+       }
+       else
+       {
+               Scierror(999,_("%s: Incompatible input arguments #%d and #%d: Same element number expected.\n"), fname, 1, 2);
                LhsVar(1)=0;
                C2F(putlhsvar)();
                return 0;
-  }
+       }
 
-  if(nbElement == 0)
+       if(nbElement == 0)
        {
                LhsVar(1)=0;
                C2F(putlhsvar)();
                return 0;
        }
-  
-  if (Rhs >= 4)
-  {
-    GetRhsVar(4,MATRIX_OF_DOUBLE_DATATYPE,&m4,&n4,&l4);
-    if(m4*n4 != 1 && m4*n4 != nbElement)
-    {
-      Scierror(999,_("%s: Wrong size for input argument #%d: %d or %d elements expected.\n"), fname, 4, 1, nbElement);
-                 LhsVar(1)=0;
-                 C2F(putlhsvar)();
-                 return 0;
-    }
-  }
-  if (Rhs >= 5)
-  { 
-    GetRhsVar(5,MATRIX_OF_DOUBLE_DATATYPE,&m5,&n5,&l5);
-    if(m5*n5 != 1 && m5*n5 != nbElement)
-    {
-      Scierror(999,_("%s: Wrong size for input argument #%d: %d or %d elements expected.\n"), fname, 5, 1, nbElement);
-                 LhsVar(1)=0;
-                 C2F(putlhsvar)();
-                 return 0;
-    }
-  }
-
-
-  x = *stk(l1);
-  y = *stk(l2);
-  sendStr = Str;
-  sendm3 = m3;
-  sendn3 = n3;
-  if (Rhs >= 4) angle = DEG2RAD(*stk(l4));
-  if (Rhs >= 5) isboxed = (*stk(l5) != 0);
-
-  if(nbElement == 1)
-  {
-    Objstring (sendStr,sendm3,sendn3,x,y,&angle,rect,TRUE,NULL,&hdlstr,FALSE,NULL,NULL,isboxed && (angle==0),TRUE,FALSE, ALIGN_LEFT ) ;
-  }
-  else
-  {
-    for(i=0;i<nbElement;i++)
-    {
-      if(m1*n1 == nbElement) x = *(stk(l1)+i);
-      if(m2*n2 == nbElement) y = *(stk(l2)+i);
-      if(m3*n3 == nbElement)
-      {
-        sendStr = Str+i;
-        sendm3 = sendn3 = 1;
-      }
-      if(Rhs >= 4 && m4*n4 == nbElement) angle = DEG2RAD(*(stk(l4)+i));
-      if(Rhs >= 5 && m5*n5 == nbElement) isboxed = (*stk(l5) != 0);
-
-      Objstring (sendStr,sendm3,sendn3,x,y,&angle,rect,TRUE,NULL,&hdlstr,FALSE,NULL,NULL,isboxed && (angle==0),TRUE,FALSE, ALIGN_LEFT ) ;
-    }
-    ConstructCompoundSeq(nbElement);
-  }
-
-  /* we must free Str memory */ 
-  
-  freeArrayOfString(Str,m3*n3);
-
-  LhsVar(1)=0;
+
+       if (Rhs >= 4)
+       {
+               GetRhsVar(4,MATRIX_OF_DOUBLE_DATATYPE,&m4,&n4,&l4);
+               if(m4*n4 != 1 && m4*n4 != nbElement)
+               {
+                       Scierror(999,_("%s: Wrong size for input argument #%d: %d or %d elements expected.\n"), fname, 4, 1, nbElement);
+                       LhsVar(1)=0;
+                       C2F(putlhsvar)();
+                       return 0;
+               }
+       }
+       if (Rhs >= 5)
+       { 
+               GetRhsVar(5,MATRIX_OF_DOUBLE_DATATYPE,&m5,&n5,&l5);
+               if(m5*n5 != 1 && m5*n5 != nbElement)
+               {
+                       Scierror(999,_("%s: Wrong size for input argument #%d: %d or %d elements expected.\n"), fname, 5, 1, nbElement);
+                       LhsVar(1)=0;
+                       C2F(putlhsvar)();
+                       return 0;
+               }
+       }
+
+
+       x = *stk(l1);
+       y = *stk(l2);
+       sendStr = Str;
+       sendm3 = m3;
+       sendn3 = n3;
+       if (Rhs >= 4) angle = DEG2RAD(*stk(l4));
+       if (Rhs >= 5) isboxed = (*stk(l5) != 0);
+
+       if(nbElement == 1)
+       {
+               Objstring (sendStr,sendm3,sendn3,x,y,&angle,rect,TRUE,NULL,&hdlstr,FALSE,NULL,NULL,isboxed && (angle==0),TRUE,FALSE, ALIGN_LEFT ) ;
+       }
+       else
+       {
+               for(i=0;i<nbElement;i++)
+               {
+                       if(m1*n1 == nbElement) x = *(stk(l1)+i);
+                       if(m2*n2 == nbElement) y = *(stk(l2)+i);
+                       if(m3*n3 == nbElement)
+                       {
+                               sendStr = Str+i;
+                               sendm3 = sendn3 = 1;
+                       }
+                       if(Rhs >= 4 && m4*n4 == nbElement) angle = DEG2RAD(*(stk(l4)+i));
+                       if(Rhs >= 5 && m5*n5 == nbElement) isboxed = (*stk(l5) != 0);
+
+                       Objstring (sendStr,sendm3,sendn3,x,y,&angle,rect,TRUE,NULL,&hdlstr,FALSE,NULL,NULL,isboxed && (angle==0),TRUE,FALSE, ALIGN_LEFT ) ;
+               }
+               ConstructCompoundSeq(nbElement);
+       }
+
+       /* we must free Str memory */ 
+
+       freeArrayOfString(Str,m3*n3);
+
+       LhsVar(1)=0;
        C2F(putlhsvar)();
-  return 0;
+       return 0;
 } 
 /*--------------------------------------------------------------------------*/
index d943a9c..dcbb1ac 100644 (file)
@@ -51,7 +51,7 @@ int set_format_n_property( sciPointObj * pobj, size_t stackPointer, int valueTyp
     FREE(pAXES_FEATURE(pobj)->format);
 
   format = getStringFromStack(stackPointer);
-  formatLength = strlen(format);
+  formatLength = (int)strlen(format);
 
   if(formatLength <= 1)
   {
index 7853222..483aabc 100644 (file)
@@ -90,16 +90,17 @@ void C2F(affichup)( double * textIndex,
                     char * value,
                     int valueLength)
 {
- int nbRow,nbCol;
-  /* First step, retreive text handle */
-  /* For now we got the index of the block coupound within the axes children */
-  sciPointObj * pText = getAffichTextObject((int) *winNum, ((int) *textIndex) - 1);
- if (pText==(sciPointObj *)NULL) return;
-  if (sciGetEntityType (pText)== SCI_TEXT) {
-  /* Second step update text data */
-    sciSetText(pText, &value, 1, 1);
-    sciDrawObj(pText);
-  }
+
+       /* First step, retreive text handle */
+       /* For now we got the index of the block coupound within the axes children */
+       sciPointObj * pText = getAffichTextObject((int) *winNum, ((int) *textIndex) - 1);
+       if (pText==(sciPointObj *)NULL) return;
+       if (sciGetEntityType (pText)== SCI_TEXT) 
+       {
+               /* Second step update text data */
+               sciSetText(pText, &value, 1, 1);
+               sciDrawObj(pText);
+       }
 }
 /*---------------------------------------------------------------------------------*/
 
index 431dae6..7b773a3 100644 (file)
@@ -99,7 +99,7 @@ static int isasciiMatrix(char *fname,int *piAddressVarOne)
                        int i = 0;
                        for (i = 0; i < nbElems; i++)
                        {
-                               int iVal = pdVarOne[i];
+                               int iVal = (int)pdVarOne[i];
 
                                if (isascii(iVal)) bOutputMatrix[i] = (int)TRUE;
                                else bOutputMatrix[i] = (int)FALSE;