* Update the code for the SCILAB_API mode 11/6611/3
Sylvestre Ledru [Tue, 6 Mar 2012 22:15:09 +0000 (23:15 +0100)]
* Get ride of the zzledt function

Change-Id: Ifadf8c405a0533593e0b093f4c4b2d0428a9c844

scilab/ACKNOWLEDGEMENTS
scilab/modules/console/includes/GetCommandLine.h
scilab/modules/console/includes/zzledt.h [deleted file]
scilab/modules/console/src/c/GetCommandLine.c
scilab/modules/core/includes/machine.h.vc
scilab/modules/core/src/fortran/basin.f
scilab/modules/core/src/fortran/dbasin.f
scilab/modules/fileio/sci_gateway/c/sci_mscanf.c

index 4f289fe..f7135e4 100644 (file)
@@ -252,12 +252,6 @@ sparse: Operations on sparse matrices (interfaced by S. Steer INRIA, Bruno Pinco
      routines to read .mps file (sparse linear programming) are from
          J. Gondzio (Hopdm).
 
-os_specific: system specific Scilab routines (INRIA/ENPC). 
-         link.c ,link*.c: dynamic linking of programs for differents 
-         architectures (Erlich,Chancelier) link_linux.c was initiated 
-         by B.Lapeyre.
-         zzledt.c is from Mitchell and Gauthier ass.
-
 tclsci: interface with TCL/TK developed by Allan CORNET.
 
 scicos: developped by then INRIA's Metalau project
index b73f384..e974342 100644 (file)
 
 /**
 * getConsoleInputLine function
-* @return characters 
+* @return characters
 */
 CONSOLE_IMPEXP char *getConsoleInputLine(void);
 
+/**
+* line editor
+* @param buffer
+* @param buffer size
+* @param length line
+* @param eof
+*/
+CONSOLE_IMPEXP void C2F(eventloopprompt)(char *buffer, int *buf_size, int *len_line, int * eof);
+
 /*--------------------------------------------------------------------------*/
 #endif /* __GETCOMMANDLINE_H__ */
 
diff --git a/scilab/modules/console/includes/zzledt.h b/scilab/modules/console/includes/zzledt.h
deleted file mode 100644 (file)
index e501d50..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2007 - INRIA - Allan CORNET
- * Copyright (C) 2008 - INRIA - Bruno JOFRET
- *
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-/*--------------------------------------------------------------------------*/
-#ifndef __ZZLEDT_H__
-#define __ZZLEDT_H__
-
-#include "dynlib_console.h"
-
-/**
-* line editor
-* @param buffer
-* @param buffer size
-* @param length line
-* @param eof
-* @param menu flag
-* @param mode
-* @param dummy1 (fortran)
-*/
-CONSOLE_IMPEXP void C2F(zzledt)(char *buffer,int *buf_size,int *len_line,int * eof,int *menusflag,int * modex,long int dummy1);
-
-#endif /* __ZZLEDT_H__ */
-/*--------------------------------------------------------------------------*/
-
-
index 858d1c2..c8cb6b1 100644 (file)
@@ -30,7 +30,6 @@
 #include "storeCommand.h"       /* for ismenu() */
 #include "getKey.h"
 #include "initConsoleMode.h"
-#include "zzledt.h"
 #include "GetCommandLine.h"
 #include "TermReadAndProcess.h"
 #include "UpdateBrowseVar.h"
@@ -146,7 +145,7 @@ static void initAll(void)
 {
     /* Set console mode to raw */
 #ifndef _MSC_VER
-    if (getScilabMode() != SCILAB_STD)
+    if (getScilabMode() == SCILAB_NWNI || getScilabMode() == SCILAB_NW)
     {
         initConsoleMode(RAW);
     }
@@ -198,12 +197,18 @@ static void *watchGetCommandLine(void *in)
 
 /***********************************************************************/
 /*
- * Old zzledt... Called by Fortran...
- * @TODO rename that function !!!
+ * Previously called zzledt... Called by Fortran...
+ * Now renamed to EventLoopPrompt
  * @TODO remove unused arg buf_size, menusflag, modex & dummy1
  */
-void C2F(zzledt) (char *buffer, int *buf_size, int *len_line, int *eof, int *menusflag, int *modex, long int dummy1)
+void C2F(eventloopprompt) (char *buffer, int *buf_size, int *len_line, int *eof)
 {
+
+    if (getScilabMode() == SCILAB_API)
+    {
+        return;
+    }
+
     if (!initialJavaHooks && getScilabMode() != SCILAB_NWNI)
     {
         initialJavaHooks = TRUE;
index 80b5247..4c076ed 100644 (file)
@@ -21,7 +21,7 @@
 /* Define if have strerror: used in fileio/misc.c */
 #define HAVE_STRERROR 1
 
-/* Define if have termcap library: used in os_specific/zzledt.c */
+/* Define if have termcap library */
 #define HAVE_TERMCAP 1
 
 /* define if have _finite function */
index fb79bf0..c80fb66 100644 (file)
@@ -31,12 +31,12 @@ c
          call xscion(iflag)
          if (iflag.eq.0) then 
             if (intexmacs().eq.0) then
-               call zzledt(string,len(string),lline,status,menusflag,0)
+               call eventloopprompt(string, len(string), lline, status)
             else
-               call texmacsin(string,len(string),lline,status)
+               call texmacsin(string, len(string), lline, status)
             endif
          else
-            call zzledt(string,len(string),lline,status,menusflag,1)
+            call eventloopprompt(string, len(string), lline, status)
          endif
          if(status.ne.0) then
 c     .     status>0 : eof, status<0 :read interrupted (callbacks),
index 010eed6..7b30a67 100644 (file)
@@ -24,7 +24,7 @@ c
 
          string=' '
          call xscion(iflag)
-         call zzledt(string,len(string),lline,status,0,iflag)
+         call eventloopprompt(string,len(string),lline,status,0,iflag)
          if(status.ne.0) goto 10
          if (lline.eq.0) then
             string(1:1)=' '
index 6ab281a..3fd3deb 100644 (file)
@@ -21,7 +21,6 @@
 #include "scanf_functions.h"
 #include "StringConvert.h"
 #include "xscion.h"
-#include "../../../console/includes/zzledt.h"
 #include "../../../console/includes/GetCommandLine.h"   /* getConsoleInputLine */
 #ifdef _MSC_VER
 #include "strdup_windows.h"
@@ -59,7 +58,7 @@ int sci_scanf(char *fname, unsigned long fname_len)
     }
 
     GetRhsVar(iarg, STRING_DATATYPE, &m1, &n1, &l1);
-                                                 /** format **/
+    /** format **/
     n_count = StringConvert(cstk(l1)) + 1;  /* conversion */
 
     if (n_count > 1)
@@ -78,8 +77,7 @@ int sci_scanf(char *fname, unsigned long fname_len)
 
         /* get a line */
         C2F(xscion) (&iflag);
-        //C2F(zzledt)(String,&len,&lline,&status,&interrupt,&iflag,(long int)strlen(String));
-        //getLine(String,&len,&lline,&status);
+
         String = getConsoleInputLine();
         if (String == NULL)
         {
@@ -116,19 +114,19 @@ int sci_scanf(char *fname, unsigned long fname_len)
         {
             switch (err)
             {
-            case MISMATCH:
-                if (maxrow >= 0)
-                {
+                case MISMATCH:
+                    if (maxrow >= 0)
+                    {
+                        Free_Scan(rowcount, ncol, type_s, &data);
+                        Scierror(999, _("%s: Data mismatch.\n"), fname);
+                        return 0;
+                    }
+                    break;
+
+                case MEM_LACK:
                     Free_Scan(rowcount, ncol, type_s, &data);
-                    Scierror(999, _("%s: Data mismatch.\n"), fname);
+                    Scierror(999, _("%s: No more memory.\n"), fname);
                     return 0;
-                }
-                break;
-
-            case MEM_LACK:
-                Free_Scan(rowcount, ncol, type_s, &data);
-                Scierror(999, _("%s: No more memory.\n"), fname);
-                return 0;
             }
         }
     }                           /*  while (1) */