reorganization
Allan Cornet [Sat, 3 Jun 2006 19:23:27 +0000 (19:23 +0000)]
55 files changed:
scilab/Makefile.incl.mak
scilab/config/Makecygdll.incl [deleted file]
scilab/config/Makefile.gcwin32 [deleted file]
scilab/config/Makefile.mingwin32 [deleted file]
scilab/configure.in
scilab/macros/util/ilib_for_link.sci
scilab/macros/util/ilib_gen_Make.sci
scilab/routines/calelm/ciargc.c
scilab/routines/calelm/finite.c
scilab/routines/f2c/MKL.h [deleted file]
scilab/routines/f2c/f2c.h
scilab/routines/f2c/src/sysdep.h
scilab/routines/fileio/misc.h
scilab/routines/graphics/Math.h
scilab/routines/graphics/RecLoad.c
scilab/routines/graphics/RecSave.c
scilab/routines/graphics/fig.h
scilab/routines/graphics/periFig.c
scilab/routines/graphics/periGif.c
scilab/routines/graphics/periPos.c
scilab/routines/interf/ciargc.c
scilab/routines/machine-abs.h
scilab/routines/machine-h.vc
scilab/routines/menusX/wmen_choice.c
scilab/routines/menusX/wmen_choose.c
scilab/routines/menusX/wmen_choose_modal.c
scilab/routines/menusX/wmen_mdial.c
scilab/routines/metanet/files.c
scilab/routines/metanet/loadg.c
scilab/routines/metanet/saveg.c
scilab/routines/os_specific/basin.f
scilab/routines/os_specific/cgetarg.c
scilab/routines/os_specific/isanan.c
scilab/routines/os_specific/timer.c
scilab/routines/os_specific/tmpdir.c
scilab/routines/pvm/pvm_proc_ctrl.c
scilab/routines/sparse/spConfig.h
scilab/routines/system/banier.c
scilab/routines/system/scicurdir.c
scilab/routines/system2/getfun.f
scilab/routines/tclsci/InitTclTk.c
scilab/routines/time/timer.c
scilab/routines/wsci/gvwin.h
scilab/routines/xdr/rpc/types.h
scilab/routines/xdr/rpc/xdr.h
scilab/routines/xdr/xdr.c
scilab/routines/xdr/xdr_array.c
scilab/routines/xdr/xdr_float.c
scilab/routines/xdr/xdr_mem.c
scilab/routines/xdr/xdr_rec.c
scilab/routines/xdr/xdr_reference.c
scilab/routines/xdr/xdr_stdio.c
scilab/scripts/Makefile [deleted file]
scilab/scripts/scilab-gcwin32.g [deleted file]
scilab/util/scidem-gcwin32 [deleted file]

index 810bc34..97290cb 100644 (file)
@@ -168,9 +168,9 @@ GUILIBS=-NODEFAULTLIB:libc.lib -NODEFAULTLIB:libcmt.lib $(GUI)  msvcrtd.lib
 # XLIBS is used for linking Scilab
 XLIBS=$(TKLIBS) $(PVMLIB) $(GUILIBS)
 # XLIBSBIN is used by the binary version of Scilab for linking examples
-XLIBSBIN=$(TKLIBSBIN) $(PVMLIB) $(GUILIBS) "$(SCIDIR1)\bin\glib-2.0.lib" "$(SCIDIR1)\bin\libxml2.lib" "$(SCIDIR1)\bin\iconv.lib"
+#XLIBSBIN=$(TKLIBSBIN) $(PVMLIB) $(GUILIBS) "$(SCIDIR1)\bin\glib-2.0.lib" "$(SCIDIR1)\bin\libxml2.lib" "$(SCIDIR1)\bin\iconv.lib"
 # if you use ATLAS library (dll)
-#XLIBSBIN=$(TKLIBSBIN) $(PVMLIB) $(GUILIBS) "$(SCIDIR1)\bin\atlas.lib" "$(SCIDIR1)\bin\libf2c.lib" "$(SCIDIR1)\bin\lapack.lib" "$(SCIDIR1)\bin\arpack.lib"
+XLIBSBIN=$(TKLIBSBIN) $(PVMLIB) $(GUILIBS) "$(SCIDIR1)\bin\atlas.lib" "$(SCIDIR1)\bin\libf2c.lib" "$(SCIDIR1)\bin\lapack.lib" "$(SCIDIR1)\bin\arpack.lib"
 
 .c.obj :
        @echo ------------- Compile file $< --------------
diff --git a/scilab/config/Makecygdll.incl b/scilab/config/Makecygdll.incl
deleted file mode 100644 (file)
index dc0bc58..0000000
+++ /dev/null
@@ -1,95 +0,0 @@
-#-----------------------------------------------------------------\r
-# This file can be used to produce a shared libary instead \r
-# a standard .a library \r
-# this file is for cygwin we do not use \r
-# libtool up to now \r
-# Copyright ENPC \r
-#-----------------------------------------------------------------\r
-\r
-top_builddir = $(SCIDIR)\r
-\r
-SHELL = /bin/sh\r
-DLLTOOL = dlltool\r
-LIBM = \r
-LIBTOOL = $(SHELL) $(top_builddir)/libtool\r
-OBJDUMP = objdump\r
-STATIC = \r
-LN_S = ln -s\r
-NM = /usr/bin/nm -B\r
-LDFLAGS =  $(EXTRA_LDFLAGS) \r
-LIBS = -lm \r
-FLIBS=\r
-#******************************************************************* \r
-\r
-QUIET=--quiet\r
-\r
-LIBRARY_NAME = $(LIBRARY:.a=)\r
-#******************************************************************* \r
-\r
-all:: $(LIBRARY_NAME).dll \r
-\r
-clean  ::\r
-       @$(RM) *.o\r
-       @$(RM) $(LIBRARY_NAME).dll\r
-       @$(RM) $(LIBRARY_NAME)_gateway.c \r
-\r
-distclean:: clean \r
-       @$(RM) $(LIBRARY_NAME).dia\r
-\r
-tests  : $(LIBRARY_NAME).dia\r
-\r
-$(LIBRARY_NAME).dia    : $(LIBRARY_NAME).dll  $(LIBRARY_NAME).tst\r
-       $(SCIDIR)/bin/scilab -nw -e "scitest('$(LIBRARY_NAME).tst');quit;"\r
-\r
-$(LIBRARY_NAME).dll : $(LIBRARY_NAME).def  \r
-       @$(ECHO) ------- Building $@  --------\r
-       @$(CC) --shared -s -o $(LIBRARY_NAME).dll $(LIBRARY_NAME).def \\r
-               $(OBJS) $(OTHERLIBS) $(SCIDIR)/bin/LibScilab.a  -lg2c  $(WINLIBS);\\r
-       dlltool -k --as as --dllname $(LIBRARY_NAME).dll --def $(LIBRARY_NAME).def --output-lib $(LIBRARY_NAME).a ;\r
-\r
-# here we could also use dumpexts XXXX \r
-ECHO=echo\r
-NM=nm \r
-SED=sed\r
-\r
-$(LIBRARY_NAME).def : $(OBJS)\r
-       @$(ECHO) ------- Building $@ from $^ --------\r
-       @$(ECHO) LIBRARY $* > $*.def\r
-       @$(ECHO) EXPORTS >> $*.def\r
-       @$(NM) $^ > Defs\r
-       @$(SED) -n '/^........ [BCDRT] _/s/^........ [BCDRT] _/ /p' Defs >> $*.def\r
-       @$(RM) Defs\r
-\r
-\r
-\r
-.SUFFIXES: .F  $(SUFFIXES)\r
-\r
-FCOMPILE = echo "to be done" \r
-\r
-.f.o:\r
-       @echo "compiling $< with f2c (g77 pbs with dllimport)"\r
-       @$(SCIDIR)/bin/f2c -I"$(SCIDIR)/routines/f2c" \\r
-               -I"$(SCIDIR)/routines"  -A $< ; \r
-               $(CC) $(CFLAGS) -I"$(SCIDIR)/routines/f2c" -c $*.c; \\r
-               $(RM) $*.c \r
-\r
-.F.o:\r
-       @echo "compiling $< with f2c (g77 pbs with dllimport)"\r
-       @$(SCIDIR)/bin/f2c -I"$(SCIDIR)/routines/f2c" \\r
-               -I"$(SCIDIR)/routines"  -A $< ; \r
-               $(CC) $(CFLAGS) -I"$(SCIDIR)/routines/f2c" -c $*.c; \\r
-               $(RM) $*.c \r
-\r
-\r
-\r
-\r
-\r
-\r
-\r
-\r
-\r
-\r
-\r
-\r
-\r
-\r
diff --git a/scilab/config/Makefile.gcwin32 b/scilab/config/Makefile.gcwin32
deleted file mode 100644 (file)
index 03919cc..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-# Copyright INRIA
-
-FFLAGS = $(FC_OPTIONS)
-
-bin/scilex: scilex-lib 
-       @x=1;if test -f $@; then  \
-               x=`find $(MAINSCI) $(DEFAULTS) $(LIBR)  \( -name '*.a' -o -name '*.o' \) \
-               -newer $@ -print | wc -l `; \
-       fi;\
-       if test $$x -ne 0; then \
-               $(RM) $@; \
-               echo "linking"; \
-               $(FC) $(FFLAGS) -o $@ $(MAINSCI) $(DEFAULTS) $(FC_LDFLAGS) $(LIBR)\
-                       $(TCLTK_LIBS) $(XLIBS) $(TERMCAPLIB); \
-       else \
-               echo bin/scilex is up to date ; \
-       fi
-
-
-show   :
-       @echo $(FC) $(FFLAGS) -o $@ $(MAINSCI) $(DEFAULTS) $(FC_LDFLAGS) $(LIBR)\
-               $(TCLTK_LIBS) $(XLIBS) $(TERMCAPLIB);
diff --git a/scilab/config/Makefile.mingwin32 b/scilab/config/Makefile.mingwin32
deleted file mode 100644 (file)
index 9ac5c5c..0000000
+++ /dev/null
@@ -1,64 +0,0 @@
-# Copyright ENPC 
-
-FFLAGS = $(FC_OPTIONS)
-CFLAGS = $(CC_OPTIONS)
-
-RESOURCES= routines/wsci/Rscilab.o
-DLL_NAME =LibScilab
-DLL_NAME1 =bin/LibScilab
-
-# scilex-lib
-
-bin/scilex bin/scilex.exe : scilex-lib  routines/wsci/Rscilab.o $(DLL_NAME1).a
-       @$(ECHO) ------- Building $@ --------
-       @$(CC)  -mconsole -o bin/scilex.exe libs/scimain.o \
-               $(RESOURCES) $(DLL_NAME1).a $(WINLIBS)  --enable-stdcall-fixup
-
-# with gcc -mno-cygwin et  f2c 
-
-$(DLL_NAME1).dll : $(DLL_NAME1).def  
-       @x=1;if test -f $(DLL_NAME1).dll; then  \
-               x=`find $(MAINSCI) $(DEFAULTS) $(LIBR)  \( -name '*.a' -o -name '*.o' \) \
-               -newer $(DLL_NAME1).dll  -print | wc -l `; \
-       fi;\
-       if test $$x -ne 0; then \
-               $(RM) $@; \
-               $(ECHO) ------- Building $@ --------; \
-               $(LD) --shared -s -o $(DLL_NAME1).dll $(DLL_NAME1).def \
-                       $(MAINSCI) $(DEFAULTS) $(RESOURCES) \
-                       $(LIBR) -lg2c $(WINLIBS)  ; \
-       else \
-               echo $(DLL_NAME1) is up to date ; \
-       fi
-
-ECHO=echo
-NM=nm 
-SED=sed
-
-$(DLL_NAME1).def : $(MAINSCI) $(DEFAULTS) $(RESOURCES) $(LIBR) 
-       @$(ECHO) ------- Building $@ --------
-       @$(ECHO) LIBRARY $(DLL_NAME) > $*.def
-       @$(ECHO) EXPORTS >> $*.def
-       @cat libs/libg2c.def  >> $*.def
-       @$(NM) $^ > Defs
-       @$(SED) -n '/^........ [BCDRT] _/s/^........ [BCDRT] _/ /p' Defs >> $*.def
-       @$(RM) Defs
-
-$(DLL_NAME1).a : $(DLL_NAME1).dll $(DLL_NAME1).def 
-       @$(ECHO) ------- Building $@ --------
-       @dlltool -k --as as --dllname $(DLL_NAME).dll \
-               --def $(DLL_NAME1).def --output-lib $(DLL_NAME1).a ;
-
-# XXXXX attention on veut un --whole-archive pour lg2c 
-
-scilex-force : 
-       $(CC)  -mconsole -o bin/scilex.exe libs/scimain.o \
-       $(RESOURCES) $(DLL_NAME1).a $(WINLIBS)  --enable-stdcall-fixup
-
-bin/sci.exe : 
-       $(CC) -mconsole -o bin/sci.exe  \
-               $(MAINSCI) $(DEFAULTS) $(RESOURCES) $(LIBR) -lg2c $(WINLIBS) 
-
-
-
-
index 29c6736..9578db2 100644 (file)
@@ -77,14 +77,6 @@ fi
 ## creating Path.incl if needed
 ###############################
 # 
-# change scidir for mingw 
-#   *-*-cygwin* |   *-*-mingw32*)
-
-case "$host" in
-   *-*-mingw32*)
-    SCIDIR=`echo $SCIDIR | sed -e 's+/cygdrive/\([[a-zA-Z]]*\)/+\1:/+g' `
-    ;;
-esac
 
 if test -f Path.incl; then
   PATH_INCL=`cat Path.incl`
@@ -204,13 +196,7 @@ fi
 # on windows target generating scripts for 
 # printing is useless 
 BLPR_SCRIPTS='$(BPROGRAMS)'
-# on windows target when generating script 
-# cygdrive/xxx must be replaced by xxx:/ 
-# for mingw32 
-SED_CYGDRIVE=
-# subset of examples which are supposed to work 
 EXAMPLES_TESTS='$(SUBDIRS1) $(SUBDIRS2)'
-# special stuff for cygwin in impdir 
 IMPPREF=S
 IMPENV= 
 # strip executable (not to be done on darwin) 
@@ -1228,99 +1214,6 @@ i*86-*-linux-gnu | *-pc-linux-gnu )
     cp -f $SCIDIR/pvm3/conf/HPPA.def $SCIDIR/pvm3/conf/HPPA.def.orig
     cp -f $SCIDIR/pvm3/conf/HPPA11.def $SCIDIR/pvm3/conf/HPPA.def
     ;;
-
-# CYGWIN32 for Windows 9X/NT/XP 
-  *-*-cygwin* )
-    SCILABSCRIPT=scilab-gcwin32.g
-    PERIFILE=periWin.o
-    MAIN='mainsci.o'
-    GUILIB='wsci'
-    XDRLIB='xdr'
-    XDRLIBNAME='libs/xdr.a'
-    MENUSOBJS=WOBJS
-    BLPR_SCRIPTS=
-    # with cygwin we keep /cygdrive/ SED_CYGDRIVE='$(CYGDRIVE)'
-    IMPPREF=B
-    IMPENV=env.o
-    # want to build f2c comand 
-    # which is required for building fortran dlls 
-    # which can be loaded into scilab 
-    F2C_SUBDIR=f2c/src
-    # just *-so tests 
-    EXAMPLES_TESTS='$(SUBDIRS1)'
-    GCC=yes
-    CC=gcc 
-    CC_OPTIONS=' -mieee-fp -O2 -DNDEBUG  -Wall'
-      if test "$enable_debug" = yes; then 
-       CC_OPTIONS=' -g   -Wall'
-      fi
-    CC_LDFLAGS=
-    WITH_G77='yes'
-    FC=g77
-    if test "$WITH_G77" = yes; then
-      FC=g77
-    fi 
-    FC_OPTIONS="-O2 "
-    FC_OPTIONS_O0=
-      if test "$enable_debug" = yes; then 
-        FC_OPTIONS="-g "
-      fi
-    FC_LDFLAGS=
-    if test "$with_f2c" = yes; then
-      # ignore with_f2c here       
-      FC=g77
-    fi    
-    LD=gcc
-    #LD_LDFLAGS="-mconsole --enable-stdcall-fixup"
-    WINXFLAGS='-I../xdr'
-    MAKEFILE_TARGET=Makefile.gcwin32
-    ;;
-# CYGWIN32 for Windows 9X/NT/XP 
-# mingw32 is detected 
-   *-*-mingw32*)
-    SCILABSCRIPT=scilab-gcwin32.g
-    PERIFILE=periWin.o
-    MAIN='mainwin95.o'
-    GUILIB='wsci'
-    XDRLIB='xdr'
-    XDRLIBNAME='libs/xdr.a'
-    MENUSOBJS=WOBJS
-    BLPR_SCRIPTS=
-    SED_CYGDRIVE='$(CYGDRIVE)'
-    IMPPREF=B
-    IMPENV=env.o
-    # want to build f2c comand 
-    # which is required for building fortran dlls 
-    # which can be loaded into scilab 
-    F2C_SUBDIR=f2c/src
-    # just *-so tests 
-    EXAMPLES_TESTS='$(SUBDIRS1)'
-    GCC=yes
-    CC=gcc 
-    CC_OPTIONS='-mno-cygwin -mieee-fp -O -DNDEBUG -fwritable-strings  -Wall'
-      if test "$enable_debug" = yes; then 
-       CC_OPTIONS='-mno-cygwin -g -fwritable-strings  -Wall'
-      fi
-    CC_LDFLAGS=
-    FC=g77
-    if test "$WITH_G77" = yes; then
-      FC=g77
-    fi 
-    FC_OPTIONS="-O -mno-cygwin"
-    FC_OPTIONS_O0="-mno-cygwin"
-      if test "$enable_debug" = yes; then 
-        FC_OPTIONS="-g -mno-cygwin"
-      fi
-    FC_LDFLAGS=
-    if test "$with_f2c" = yes; then
-      # ignore with_f2c here       
-      FC=g77
-    fi    
-    LD=gcc
-    LD_LDFLAGS="-mconsole --enable-stdcall-fixup"
-    WINXFLAGS='-I../xdr'
-    MAKEFILE_TARGET=Makefile.mingwin32
-    ;;
 # FreeBSD  systems (not supported by INRIA)
   *-*-freebsd*)
      GCC=yes
@@ -1632,18 +1525,12 @@ fi
 #######################
 
 # Pb of automatic insertion of -lXt -lXext -lX11 in Makefile.incl.in
-# which does not work with mingwin. Thus I add this two vars to 
+# Thus I add this two vars to 
 # configure.in 
 
 XXTXEXT="-lXt -lXext"
 XX11="-lX11"
 
-  case "$host" in
-      *-*-mingw32*)
-      XXTXEXT=
-      XX11=
-    ;;
-  esac
   
 ###########################
 ## test for JAVA compiler
@@ -1783,7 +1670,7 @@ PVMROOTR='$SCI/pvm3'
 PVMINST=
 PVMINST1=
 
-# files to be added for building the hoster with mingw 
+
 PVMHOSTERFILES= 
 # compile hoster ? 
 PVMHOSTER=
@@ -1827,15 +1714,6 @@ if test "$with_pvm" != no; then
                AC_DEFINE(WITH_PVM)
                PVMARCH="$ac_cv_PVM_arch"
                
-               case "$host" in
-               *-*-mingw32*)
-                       ac_cv_PVM_arch=MINGW
-                       PVMARCH="$ac_cv_PVM_arch"
-                       PVMHOSTERFILES="pvmwinrexec.o pvmwinrsh.o"
-                       PVMHOSTER=h
-                       ;;
-               esac
-               
                PVMLIBDIR=$PVMROOT/lib/$ac_cv_PVM_arch
                AC_ARG_WITH(pvm-library,
                        [  --with-pvm-library=DIR  PVM library files are in DIR ],
@@ -1846,19 +1724,7 @@ if test "$with_pvm" != no; then
                PVMLIB="$PVMLIBDIR/libpvm3.a"
                PVMSCIDIR=pvm
                PVMSCILIB="\$(SCIDIR)/libs/pvm.a"
-               
-               case "$host" in
-               *-*-mingw32*)
-                       # add src to PVMINCLUDE 
-                       PVMINCLUDE="$PVMINCLUDE -I$SCIDIR/pvm3/src"
-                       #     to have path with SCIDIR 
-                       # PVMROOT=`echo $PVMROOT | sed -e "s+$SCIDIR+\\$(SCIDIR)+g" `
-                       
-                       PVMLIB=`echo $PVMLIB | sed -e "s+$SCIDIR/pvm3+\\$(PVMROOT)+g" `
-                       PVMGLIB=`echo $PVMGLIB | sed -e "s+$SCIDIR/pvm3+\\$(PVMROOT)+g" `
-                       PVMINCLUDE=`echo $PVMINCLUDE | sed -e "s+$SCIDIR/pvm3+\\$(PVMROOT)+g" ` 
-                       ;;
-               esac
+                               
        fi
 fi
 
@@ -1919,14 +1785,7 @@ if test "$with_tk" != no; then
        fi
        
        TKBASE=
-       case "$host" in
-       *-*-mingw32*)
-               TKBASE=$SCIDIR
-               TK_INC_PATH=`echo $TK_INC_PATH | sed -e "s+$SCIDIR+\\$(TKBASE)+g" `
-               TCL_INC_PATH=`echo $TCL_INC_PATH | sed -e "s+$SCIDIR+\\$(TKBASE)+g" `
-               TCLTK_LIBS=`echo $TCLTK_LIBS | sed -e "s+$SCIDIR+\\$(TKBASE)+g" `
-       ;;
-       esac
+       
        
        GETLIBTK=libtk$TK_MAJOR_VERSION.$TK_MINOR_VERSION.$SONAME
        
@@ -1934,8 +1793,6 @@ if test "$with_tk" != no; then
                *-*-darwin*)
                GETLIBTK=/sw/lib/libtk$TK_MAJOR_VERSION.$TK_MINOR_VERSION.dylib
                ;;
-               *-*-cygwin* |   *-*-mingw32*)
-               GETLIBTK=tk$TK_MAJOR_VERSION$TK_MINOR_VERSION.dll
        esac 
 
 fi
@@ -2338,7 +2195,6 @@ AC_SUBST(CFLAGS)
 #AC_SUBST(FC_USE_CDEC)
 AC_SUBST(FC_SUBDIR)
 AC_SUBST(BLPR_SCRIPTS)
-AC_SUBST(SED_CYGDRIVE)
 AC_SUBST(F2C_SUBDIR)
 AC_SUBST(EXAMPLES_TESTS)
 AC_SUBST(IMPPREF)
index f1f7f58..66cddd9 100644 (file)
@@ -96,20 +96,9 @@ function ilib_link_gen_Make(names,files,libs,makename,libname,ldflags,cflags,ffl
        ilib_link_gen_Make_lcc(names,files,libs,Makename,libname,...
                               ldflags,cflags,fflags,cc,flag)
   else if getenv('WIN32','NO')=='OK' then
-    select comp_target
-     case 'VC++'   then Makename = makename+'.mak'
+     Makename = makename+'.mak'
       ilib_link_gen_Make_win32(names,files,libs,Makename,libname,...
                               ldflags,cflags,fflags,cc)
-     case 'gcc' then 
-      // cygwin assumed 
-      Makename = makename;
-      ilib_link_gen_Make_unix(names,files,libs,Makename,libname,...
-                             ldflags,cflags,fflags,cc)
-    else 
-       Makename = makename;
-       ilib_link_gen_Make_win32(names,files,libs,Makename,libname,...
-                               ldflags,cflags,fflags,cc)
-    end
   else
      Makename = makename;
      ilib_link_gen_Make_unix(names,files,libs,Makename,libname,...
@@ -138,27 +127,11 @@ function ilib_link_gen_Make_unix(names,files,libs,Makename,libname, ...
   if cc<>"" then 
     mfprintf(fd,"CC="+cc+ "\n");
   end
-  if getenv('WIN32','NO')=='OK' then
-    // cygwin 
-    mfprintf(fd,"OTHERLIBS = ");
-    for x=libs(:)' ; mfprintf(fd," %s.a",x);end
-    mfprintf(fd,"\n");
-    mfprintf(fd,"CFLAGS = $(CC_OPTIONS) -DFORDLL -I\""$(SCIDIR)/routines\"""+...
-            " -Dmexfunction_=mex$*_  -DmexFunction=mex_$* "+ cflags +" \n"); 
-    mfprintf(fd,"FFLAGS = $(FC_OPTIONS) -DFORDLL -I\""$(SCIDIR)/routines\"""+...
-            " -Dmexfunction=mex$* "+ fflags +"\n"); 
-  else
-     mfprintf(fd,"CFLAGS = $(CC_OPTIONS) "+cflags+ "\n");
-     mfprintf(fd,"FFLAGS = $(FC_OPTIONS) "+fflags+ "\n");
-  end
+  mfprintf(fd,"CFLAGS = $(CC_OPTIONS) "+cflags+ "\n");
+  mfprintf(fd,"FFLAGS = $(FC_OPTIONS) "+fflags+ "\n");
+  
   mfprintf(fd,"EXTRA_LDFLAGS = "+ ldflags+ "\n");
-  if getenv('WIN32','NO')=='OK' then
-    // cygwin assumed : we use a specific makedll 
-    // and not libtool up to now XXX 
-    mfprintf(fd,"include $(SCIDIR)/config/Makecygdll.incl\n");
-  else
-     mfprintf(fd,"include $(SCIDIR)/config/Makeso.incl\n");
-  end
+  mfprintf(fd,"include $(SCIDIR)/config/Makeso.incl\n");
   mclose(fd);
 endfunction
 
index 62dccb8..2563f04 100644 (file)
@@ -77,27 +77,12 @@ function ilib_gen_Make_unix(name,tables,files,libs,Makename,with_gateway,ldflags
   mfprintf(fd,"\n") ;
   mfprintf(fd,"LIBRARY = %s.a\n",name);
   mfprintf(fd,"include $(SCIDIR)/Makefile.incl\n");
-  if getenv('WIN32','NO')=='OK' then
-    // for cygwin 
-    mfprintf(fd,"OTHERLIBS = ");
-    for x=libs(:)' ; mfprintf(fd," %s.a",x);end
-    mfprintf(fd,"\n");
-    mfprintf(fd,"CFLAGS = $(CC_OPTIONS) -DFORDLL -I\""$(SCIDIR)/routines\"""+...
-            " -Dmexfunction_=mex$*_  -DmexFunction=mex_$* "+ cflags +" \n"); 
-    mfprintf(fd,"FFLAGS = $(FC_OPTIONS) -DFORDLL -I\""$(SCIDIR)/routines\"""+...
-            " -Dmexfunction=mex$* "+ fflags +"\n"); 
-  else
-     mfprintf(fd,"CFLAGS = $(CC_OPTIONS) -DmexFunction=mex_$* "+cflags+ "\n");
-     mfprintf(fd,"FFLAGS = $(FC_OPTIONS) -Dmexfunction=mex$* "+fflags+ "\n");
-  end
+  mfprintf(fd,"CFLAGS = $(CC_OPTIONS) -DmexFunction=mex_$* "+cflags+ "\n");
+  mfprintf(fd,"FFLAGS = $(FC_OPTIONS) -Dmexfunction=mex$* "+fflags+ "\n");
+
   mfprintf(fd,"EXTRA_LDFLAGS = "+ ldflags+ "\n");
-  if getenv('WIN32','NO')=='OK' then
-    // cygwin assumed : we use a specific makedll 
-    // and not libtool up to now XXX 
-    mfprintf(fd,"include $(SCIDIR)/config/Makecygdll.incl\n");
-  else
-     mfprintf(fd,"include $(SCIDIR)/config/Makeso.incl\n");
-  end
+  mfprintf(fd,"include $(SCIDIR)/config/Makeso.incl\n");
+
   mclose(fd);
 
 endfunction
index 0666f32..892a508 100644 (file)
@@ -1,10 +1,6 @@
 # include "../machine.h"
 int C2F(ciargc)()
 {
-#ifndef __ABSC__
-  return iargc();
-#else
   return IARGC();
-#endif
 }
 
index 05f13dc..7d63d94 100644 (file)
@@ -11,7 +11,7 @@ int finite(double x)
 }
 
 #else
-#if !(defined HAVE_FINITE) || (defined __MINGW32__)
+#if !(defined HAVE_FINITE)
 
 typedef unsigned int __uint32_t;
 typedef union 
diff --git a/scilab/routines/f2c/MKL.h b/scilab/routines/f2c/MKL.h
deleted file mode 100644 (file)
index 48940de..0000000
+++ /dev/null
@@ -1,39 +0,0 @@
-
-
-/** Used to change the blas names in order to use Intel library **/
-
-#define dcopy_  DCOPY 
-#define        dasum_  DASUM
-#define        daxpy_  DAXPY
-#define        dcabs1_ DCABS1
-#define        ddot_   DDOT
-#define        dgbmv_  DGBMV
-#define        dgemm_  DGEMM
-#define        dgemv_  DGEMV
-#define        dger_   DGER
-#define        dnrm2_  DNRM2
-#define        drot_   DROT
-#define        drotg_  DROTG
-#define        dsbmv_  DSBMV
-#define        dscal_  DSCAL
-#define        dspmv_  DSPMV
-#define        dspr_   DSPR
-#define        dspr2_  DSPR2
-#define        dswap_  DSWAP
-#define        dsymm_  DSYMM
-#define        dsymv_  DSYMV
-#define        dsyr_   DSYR
-#define        dsyr2_  DSYR2
-#define        dsyr2k_ DSYR2K
-#define        dsyrk_  DSYRK
-#define        dtbmv_  DTBMV
-#define        dtbsv_  DTBSV
-#define        dtpmv_  DTPMV
-#define        dtpsv_  DTPSV
-#define        dtrmm_  DTRMM
-#define        dtrmv_  DTRMV
-#define        dtrsm_  DTRSM
-#define        dtrsv_  DTRSV
-#define        dzasum_ DZASUM
-#define        dznrm2_ DZNRM2
-#define        idamax_ IDAMAX
index f25de29..7e46e3d 100644 (file)
@@ -5,11 +5,6 @@
 
 #ifndef F2C_INCLUDE
 #define F2C_INCLUDE
-/** added for MKL **/
-
-#ifdef MKL 
-#include "MKL.h"
-#endif 
 
 /** added for Scilab addinter  vc++ version **/
 /* XXXXX pour gcc -3.1 il faut un extern devant le 
index 6a76676..e3a68ef 100644 (file)
@@ -47,10 +47,6 @@ use or performance of this software.
 #define MSDOS
 #endif
 
-#ifdef __MINGW32__
-#define MSDOS
-#endif
-
 #ifdef MSDOS
 #define ANSI_Libraries
 #define ANSI_Prototypes
index 8049bf2..1c97896 100644 (file)
@@ -1,10 +1,6 @@
 #define IMPORT  extern
 #define EXPORT 
 
-#ifdef __MINGW32__
-#define HAVE_STRERROR
-#endif 
-
 #define        PRIVSIZE        100
 #define NLOOPS         8
 
index 5d4a350..0d69ff1 100644 (file)
 
 
 #ifdef _MSC_VER 
-#if !(defined __CYGWIN32__)
-#include <float.h>
-#define finite(x) _finite(x) 
-#endif 
+               #include <float.h>
+               #define finite(x) _finite(x) 
 #else  /* _MSC_VER */ 
-/** This should only be provided when finite prototype is missing **/
-/** XXX : to be tested **/
-#ifndef __cplusplus
-int finite __PARAMS((double));
-#endif
+       /** This should only be provided when finite prototype is missing **/
+       /** XXX : to be tested **/
+       #ifndef __cplusplus
+       int finite __PARAMS((double));
+       #endif
 #endif /* _MSC_VER */
 
 #ifdef _MSC_VER 
-#if !(defined __CYGWIN32__)
-#include <float.h>
-#define ISNAN(x) _isnan(x)
-#else 
-#define ISNAN(x) isnan(x)
-#endif /* __CYGWIN32__ */
+       #include <float.h>
+       #define ISNAN(x) _isnan(x)
 #else 
-#define ISNAN(x) isnan(x)
+       #define ISNAN(x) isnan(x)
 #endif 
 
 #define Abs(x) ( ( (x) >= 0) ? (x) : -( x) )
index 7d1362d..dc1f942 100644 (file)
 #endif
 
 #ifdef macintosh
-#      include "types.h"
+       #include "types.h"
 #else /* not macintosh */
-#       ifndef VMS
-#      include <sys/types.h>   /* for <netinet/in.h> on some systems */
-#      if !(defined _MSC_VER) && !(defined __MINGW32__)
-#          include <netinet/in.h>      /* for htonl() */
-#      endif
-#      endif
+       #ifndef VMS
+               #include <sys/types.h>  /* for <netinet/in.h> on some systems */
+               #if !(defined _MSC_VER)
+                       #include <netinet/in.h> /* for htonl() */
+               #endif
+       #endif
 #endif /* not macintosh */
 
 #ifdef _MSC_VER 
index 864e9ff..1facb2c 100644 (file)
@@ -417,14 +417,14 @@ static int SaveChamp(char *plot)
  *---------------------------------------------------------------------------*/
 
 #ifdef macintosh
-#      include "types.h"
+#include "types.h"
 #else /* not macintosh */
-#       ifndef VMS
-#      include <sys/types.h>   /* for <netinet/in.h> on some systems */
-#      if (!defined _MSC_VER) && !(defined __MINGW32__) 
-#          include <netinet/in.h>      /* for htonl() */
-#      endif
-#      endif
+       #ifndef VMS
+               #include <sys/types.h>  /* for <netinet/in.h> on some systems */
+                       #if (!defined _MSC_VER)
+                               #include <netinet/in.h> /* for htonl() */
+                       #endif
+       #endif
 #endif /* not macintosh */
 
 
index f62094c..36d276c 100644 (file)
@@ -385,7 +385,7 @@ extern      double          drand48();
 extern long            random();
 extern void            srandom(unsigned int);
 
-#elif !defined(__osf__) && !defined(__CYGWIN__)
+#elif !defined(__osf__) 
 extern void            srandom();
 
 #endif
index cc8f986..5332281 100644 (file)
@@ -108,7 +108,7 @@ static integer  xfig_font[]= { 12,32,0,1,2,3,16,17,18,19,0};
 static char *sizeXfig_[] = { "08" ,"10","12","14","18","24"};
 static integer  isizeXfig_[] = { 8,10,12,14,18,24};
 
-#if defined(__CYGWIN32__) || defined(__MINGW32__) || defined(__GNUC__) || defined(_MSC_VER)|| defined(__EDG__)
+#if defined(__GNUC__) || defined(_MSC_VER)|| defined(__EDG__)
 static FILE *file= (FILE *) 0;
 #define FPRINTF(x) ( file != (FILE*) 0) ?  fprintf x  : 0 
 #else 
index 53bb639..44a1790 100644 (file)
@@ -71,7 +71,7 @@ extern  char  *getenv();
 #endif
 
 #define Char2Int(x)   ( x & 0x000000ff )
-#if defined(__CYGWIN32__) || defined(__MINGW32__) || defined(__GNUC__) || defined(_MSC_VER)|| defined(__EDG__)
+#if defined(__GNUC__) || defined(_MSC_VER)|| defined(__EDG__)
 static FILE *file= (FILE *) 0;
 #define FPRINTF(x) ( file != (FILE*) 0) ?  fprintf x  : 0 
 #else 
index 6574187..c4c05ec 100644 (file)
@@ -91,7 +91,7 @@ static void WriteColorRGBDef(char *str, short unsigned int *tab, int ind);
 
 static double *vdouble = 0; /* used when a double argument is needed */
 
-#if defined(__CYGWIN32__) || defined(__MINGW32__) || defined(__GNUC__) || defined(_MSC_VER) || defined(__EDG__)
+#if defined(__GNUC__) || defined(_MSC_VER) || defined(__EDG__)
 static FILE *file= (FILE *) 0;
 #define FPRINTF(x) ( file != (FILE*) 0) ?  fprintf x  : 0 
 #else 
index 46afc5c..aa4b897 100644 (file)
@@ -1,8 +1,5 @@
 int ciargc()\r
 {\r
-#ifndef __ABSC__\r
-  return iargc();\r
-#else\r
   return IARGC();\r
-#endif\r
+\r
 }\r
index 103eb0b..9a6b10e 100644 (file)
@@ -94,13 +94,5 @@ typedef int integer;
 
 
 
-/** Intel Blas library on win32 */
-
-#ifdef MKL 
-#include "MKL.h" 
-#endif 
-
-
-
 
 #endif MACHINE_H 
index dfa3635..aeeb43e 100644 (file)
@@ -84,14 +84,4 @@ typedef int integer;
 #define  _PARAMS(paramlist)            paramlist
 #endif
 
-
-/** Intel Blas library on win32 */
-
-#ifdef MKL 
-#include "MKL.h" 
-#endif 
-
-
-
-
 #endif /* MACHINE_H  */
index 112d641..cae8b8b 100644 (file)
@@ -231,15 +231,6 @@ static BOOL APIENTRY MChoicePage(HWND hDlg,UINT message,UINT wParam,LONG lParam)
            PropSheet_SetWizButtons(GetParent(hDlg), PSWIZB_FINISH);
          SendMessage(GetDlgItem(hDlg,0x3024 ), BM_SETSTYLE, (WPARAM)BS_PUSHBUTTON, MAKELONG(FALSE, 0));
 
-         /** Je ne sais pas pourquoi mais ce qui suit fait que le dernier menu est mal mis a jour 
-           avec gcwin32 avec VC++ ca marche : J'ai donc comment'e ce qui suit 
-           et mis le meme code plus haut au initdialog 
-           j'espere que ca ne fout pas la merde SciMChoice.CPageXXXXXX
-         for ( i =0 ; i < SciMChoice.NItPg[SciMChoice.CPage] ; i++)
-           SendMessage(GetDlgItem(hDlg, (IDE_MD1+i)), WM_SETTEXT, 0, 
-                       (LPARAM)SciMChoice.pszName[SciMChoice.CPage*NITEMMAXPAGE+i]);
-
-           **/
          break;
        case PSN_WIZBACK:
          for ( i =0 ; i < SciMChoice.NItPg[SciMChoice.CPage] ; i++) 
index 254d004..d8f52fe 100644 (file)
@@ -1,6 +1,6 @@
 /* Copyright ENPC */
 /* wchoose.c 
- * Scilab [ gcwin32 and WIN32 ] 
+ * Scilab 
  *   Jean-Philipe Chancelier 
  *   Bugs and mail : Scilab@inria.fr 
  * modeless version 
index 692917d..a32b5ef 100644 (file)
@@ -1,6 +1,6 @@
 /* Copyright ENPC */
 /* wchoose.c 
- * Scilab [ gcwin32 and WIN32 ] 
+ * Scilab 
  *   Jean-Philipe Chancelier 
  *   Bugs and mail : Scilab@inria.fr 
  * 
index f85a20c..9127b39 100644 (file)
@@ -73,15 +73,7 @@ BOOL APIENTRY MDialogPage(HWND hDlg,UINT message,UINT wParam,LONG lParam)
            PropSheet_SetWizButtons(GetParent(hDlg), PSWIZB_FINISH);
          SendMessage(GetDlgItem(hDlg,0x3024 ), BM_SETSTYLE, (WPARAM)BS_PUSHBUTTON, MAKELONG(FALSE, 0));
 
-         /** Je ne sais pas pourquoi mais ce qui suit fait que le dernier menu est mal mis a jour 
-           avec gcwin32 avec VC++ ca marche : J'ai donc comment'e ce qui suit 
-           et mis le meme code plus haut au initdialog 
-           j'espere que ca ne fout pas la merde SciMDialog.CPageXXXXXX
-         for ( i =0 ; i < SciMDialog.NItPg[SciMDialog.CPage] ; i++)
-           SendMessage(GetDlgItem(hDlg, (IDE_MD1+i)), WM_SETTEXT, 0, 
-                       (LPARAM)SciMDialog.pszName[SciMDialog.CPage*NITEMMAXPAGE+i]);
-
-           **/
+           
          break;
        case PSN_WIZBACK:
          for ( i =0 ; i < SciMDialog.NItPg[SciMDialog.CPage] ; i++) 
index 2af090e..7ed1767 100644 (file)
@@ -1,10 +1,11 @@
 #include <stdio.h>
-#if !(defined _MSC_VER)&& !(defined __MINGW32__)
-#if defined(netbsd) || defined(freebsd)
-#include <sys/types.h>
-#endif
-#include <dirent.h>
+#if !(defined _MSC_VER)
+       #if defined(netbsd) || defined(freebsd)
+               #include <sys/types.h>
+       #endif
+       #include <dirent.h>
 #endif
+
 #include <string.h>
 #ifdef __STDC__
 #include <stdlib.h>
 
 #define MAXNAM 80
 
-int CheckGraphName(name,dir)
-char *name;
-char *dir;
+int CheckGraphName(char *name,char *dir)
 {
-#if (defined _MSC_VER) || (defined __MINGW32__)
+#if (defined _MSC_VER)
   return(0);
 #else 
   DIR *dirp;
index e732772..da9713b 100644 (file)
@@ -1,5 +1,5 @@
 #include <stdio.h>
-#if !(defined _MSC_VER) && !(defined __MINGW32__)
+#if !(defined _MSC_VER)
 #ifdef __FreeBSD__
 #include <sys/types.h>
 #endif
@@ -17,7 +17,7 @@
 #include <direct.h> /*_getcwd _chdir*/
 #endif
 
-#if (defined _MSC_VER) || (defined __MINGW32__)
+#if (defined _MSC_VER)
 /** only used for x=dir[1024] **/
 #define  getwd(x) _getcwd(x,1024)
 #endif
@@ -78,7 +78,7 @@ int *ndim,*ma;
   return;
   #else  **/
   FILE *fg;
-#if !(defined _MSC_VER) && !(defined __MINGW32__)
+#if !(defined _MSC_VER)
   DIR *dirp;
 #endif
   char fname[2 * MAXNAM];
@@ -92,7 +92,7 @@ int *ndim,*ma;
   char **lar;
 
   path[*lpath] = '\0';
-#if !(defined _MSC_VER) && !(defined __ABSC__) && !(defined __MINGW32__)
+#if !(defined _MSC_VER)
   if ((dirp=opendir(path)) != NULL) {
     sprintf(description,"\"%s\" is a directory",path);
     cerro(description);
@@ -102,7 +102,7 @@ int *ndim,*ma;
 #endif
   if (dirname(path) == NULL) getwd(dir);
   else strcpy(dir,dirname(path));
-#if !(defined _MSC_VER)&& !(defined __MINGW32__)
+#if !(defined _MSC_VER)
   if ((dirp=opendir(dir)) == NULL) {
     sprintf(description,"Directory \"%s\" does not exist",dir);
     cerro(description);
@@ -120,7 +120,7 @@ int *ndim,*ma;
     return;
   }
   strcpy(*name,pname);
-#if !(defined _MSC_VER) && !(defined __MINGW32__)
+#if !(defined _MSC_VER)
   if(!CheckGraphName(*name,dir)) {
     sprintf(description,"Graph file \"%s/%s.graph\" does not exist",dir,*name);
     cerro(description);
index cf913c3..1551e2e 100644 (file)
@@ -1,5 +1,5 @@
 #include <stdio.h>
-#if !(defined _MSC_VER) && !(defined __ABSC__) && !(defined __MINGW32__)
+#if !(defined _MSC_VER)
 #if defined(netbsd) || defined(freebsd) 
 #include <sys/types.h>
 #endif
@@ -16,7 +16,7 @@
 #include <stdlib.h> /*qsort*/
 #include <direct.h> /*_getcwd _chdir*/
 #endif
-#if (defined _MSC_VER) || (defined __MINGW32__) 
+#if (defined _MSC_VER)
 /** only used for x=dir[1024] **/
 #include <io.h>
 #define  getwd(x) _getcwd(x,1024) 
@@ -76,7 +76,7 @@ int *default_edge_hi_width,*default_font_size;
 int *ma;
 {
   FILE *f;
-#if !(defined _MSC_VER) &&! (defined __MINGW32__)
+#if !(defined _MSC_VER)
   DIR *dirp;
 #else
   int it;
@@ -122,9 +122,9 @@ int *ma;
     strcpy(nname,name);
   }
   else {
-#if (defined _MSC_VER) || (defined __MINGW32__)
+#if (defined _MSC_VER)
     getwd(dir);
-#if (defined _MSC_VER)   || (defined __MINGW32__)
+#if (defined _MSC_VER)
     it= chdir(path);
     chdir(dir);
 #else
@@ -146,7 +146,7 @@ int *ma;
       else strcpy(dir,dirname(path));     
     }
   }
-#if !(defined _MSC_VER) && ! (defined __MINGW32__)
+#if !(defined _MSC_VER)
   if ((dirp=opendir(dir)) == NULL) {
     sprintf(description,"Directory \"%s\" does not exist",dir);
     cerro(description);
index b265e4d..9019cc4 100644 (file)
@@ -63,7 +63,6 @@ C     ierr=2:erroneous string read
       end
 
       subroutine myback(lunit)
-C     backspace has erratic behaviour with cygwin32 
 c     this routine mimin the same behaviour without 
 c     using backspace 
 C     this routine is only used in getfun where lrecl 
index 83cbbc0..4b10816 100644 (file)
@@ -8,9 +8,5 @@ void cgetarg(n,str)
   char * str;
 #endif
 {
-#ifndef __ABSC__
   getarg(n,str,strlen(str));
-#else
-  GETARG(n,str,strlen(str));
-#endif
 }
index 8ca2945..032e8e3 100644 (file)
@@ -7,10 +7,8 @@
 
 
 #ifdef _MSC_VER 
-#ifndef __CYGWIN32__
-#define _ISANAN
-#include <float.h>
-#endif 
+       #define _ISANAN
+       #include <float.h>
 #endif 
 
 
index d55fd7b..47e7ef9 100644 (file)
@@ -4,7 +4,7 @@
 #include <stdio.h>
 
 #if ~defined(THINK_C) && ~defined(__MWERKS__)
-       #if !(defined _MSC_VER) && !(defined __MINGW32__) 
+       #if !(defined _MSC_VER)
                #include <sys/time.h>
        #else 
                #include <windows.h>
@@ -72,16 +72,7 @@ PLATFORM GetPlatform()
                #define X_GETTIMEOFDAY(t) 0 
        #else
                #if defined(_MSC_VER)
-                       #if !(defined _MSC_VER)
-                               #ifndef  __MINGW32__
-                                       #define X_GETTIMEOFDAY(t) gettimeofday(t, &tmz )
-                                       static struct timezone tmz;
-                               #else
-                                       #define X_GETTIMEOFDAY(t) 0
-                               #endif /** __MINGW32__ **/
-                       #else
-                               #define X_GETTIMEOFDAY(t) 0
-                       #endif /* MSC__ */
+                       #define X_GETTIMEOFDAY(t) 0
                #else
                        #define X_GETTIMEOFDAY(t) gettimeofday(t, (struct timezone*)0)
                #endif
@@ -96,14 +87,14 @@ static long int scilab_stimer_deprecated(void)
         YieldToAnyThread();
         return(0);
 #else 
-#if !(defined _MSC_VER) && !(defined __MINGW32__)
+#if !(defined _MSC_VER)
   struct timeval ctime;
   X_GETTIMEOFDAY(&ctime);
   scilab_timer_check();
   return(ctime.tv_usec);
 #else 
   return(stimerwin());
-#endif /* !(defined _MSC_VER) && !(defined __MINGW32__) */ 
+#endif /* !(defined _MSC_VER */ 
 #endif /* defined(THINK_C)||defined(__MWERKS__) */
 }
 /*-----------------------------------------------------------------------------------*/
index c1cd2e5..7670508 100644 (file)
@@ -12,7 +12,7 @@
 #if _MSC_VER
 #include <windows.h>
 #endif
-#if defined(__STDC__) || defined(_MSC_VER) || defined(__CYGWIN__)
+#if defined(__STDC__) || defined(_MSC_VER)
 #include <stdlib.h>
 #ifndef _MSC_VER
 #include <sys/types.h>
@@ -22,7 +22,7 @@
 extern  char  *getenv();
 #endif
 
-#if (defined _MSC_VER) || defined(__MINGW32__) 
+#if (defined _MSC_VER)
 #define putenv(x) _putenv(x)
 #endif
 
index 95f10c9..36bca54 100644 (file)
 #endif /** _MSC_VER **/
 
 /* stat function */
-#if (defined _MSC_VER) || defined(__MINGW32__) 
+#if (defined _MSC_VER)
 #define stat _stat 
 #endif 
 
@@ -422,13 +422,13 @@ void C2F(scipvmspawn)(char *task,  int *l1,
     where = NULL;
   else
     flag = PvmTaskHost;
-#if (defined _MSC_VER)  || defined(__MINGW32__) 
+#if (defined _MSC_VER)
   strcpy(cmd, "scilex.exe");
 #else
   /* I really need scilab here for gtk -version */
   strcpy(cmd, "scilab");
 #endif 
-#if (defined _MSC_VER) || defined(__MINGW32__) 
+#if (defined _MSC_VER)
   if ( _stricmp(task,"null") != 0) 
 #else 
   if (strcasecmp(task, "null")) 
index 2035aab..c58bdb0 100644 (file)
 #   define  LARGEST_LONG_INTEGER    LONG_MAX
 #endif
 
-#if defined(__CYGWIN32__)
-#   include <limits.h>
-#   include <float.h>
-#   define  MACHINE_RESOLUTION      DBL_EPSILON
-#   define  LARGEST_REAL            DBL_MAX
-#   define  SMALLEST_REAL           DBL_MIN
-#   define  LARGEST_SHORT_INTEGER   SHRT_MAX
-#   define  LARGEST_LONG_INTEGER    LONG_MAX
-#endif
-
 #endif /* NOT defined(__STDC__) */
 
 
index 9f8ad11..53862ac 100644 (file)
@@ -35,7 +35,7 @@ void banner(void)
                sciprint("   doesn't provide and doesn't support the port of Scilab to MacOS.\r\n\r\n");
        #endif /* __APPLE__ */
 
-       #if ( defined(WITH_GTK) || defined(__CYGWIN32__) || defined(__MINGW32__) ) || ( defined(_MSC_VER) && ( (_MSC_VER >= 1200) && (_MSC_VER < 1300) ) )
+       #if defined(WITH_GTK) || ( defined(_MSC_VER) && ( (_MSC_VER >= 1200) && (_MSC_VER < 1300) ) )
                sciprint("\r\n\r\n");
                sciprint("Warning: the operational team of the Scilab Consortium\r\n");
                sciprint("   doesn't provide and doesn't support this version of Scilab built with\r\n");
@@ -50,22 +50,9 @@ void banner(void)
                        sciprint("the GTK widget");
                #endif
 
-               #if ( defined(__CYGWIN32__) )
-                       #if ( defined(WITH_GTK) )
-                               sciprint(", ");
-                       #endif
-                       sciprint("Cygwin");
-               #endif
-
-               #if ( defined(__MINGW32__) )
-                       #if ( defined(WITH_GTK) || defined(__CYGWIN32__) )
-                               sciprint(", ");
-                       #endif
-                       sciprint("MinGW");
-               #endif
        #endif
 
-       #if ( defined(WITH_GTK) || defined(__CYGWIN32__) || defined(__MINGW32__) ) || ( defined(_MSC_VER) && ( (_MSC_VER >= 1200) && (_MSC_VER < 1300) ) )
+       #if defined(WITH_GTK) || ( defined(_MSC_VER) && ( (_MSC_VER >= 1200) && (_MSC_VER < 1300) ) )
                sciprint(".\r\n\r\n");
        #endif
 }
index c4f2f2e..9249108 100644 (file)
@@ -2,18 +2,17 @@
 #include <string.h>
 #include "../machine.h"
 #ifdef _MSC_VER 
-#include <windows.h>
-#if !(defined __CYGWIN32__)
-#include <direct.h>
-#define chdir(x) _chdir(x)
-#define GETCWD(x,y) _getcwd(x,y)
+       #include <windows.h>
+       #include <direct.h>
+       #define chdir(x) _chdir(x)
+       #define GETCWD(x,y) _getcwd(x,y)
 #else 
-#include <unistd.h>
-extern void sciprint(char *fmt,...);
-#define GETCWD(x,y) getcwd(x,y)
-#endif 
+       #include <unistd.h>
+       extern void sciprint(char *fmt,...);
+       #define GETCWD(x,y) getcwd(x,y)
 #endif 
 
+
 #define FSIZE 1024
 static char     cur_dir[FSIZE];
 
index c213ae1..501d8f8 100644 (file)
@@ -88,7 +88,6 @@ c
             goto 25            
          else
             if( ltype.eq.1) then
-C     .       jpc : cygwin32 b17.1 bug 
 c            backspace(lunit)
                call myback(lunit)
             else
index 88915ba..37e633b 100644 (file)
@@ -26,9 +26,6 @@ int TK_Started=0;
 #endif
 /*-----------------------------------------------------------------------------------*/ 
 char *GetSciPath(void);
-#if defined(__CYGWIN32__) 
-static char *GetSciPathCyg(void);
-#endif
 /*-----------------------------------------------------------------------------------*/
 void initTCLTK(void)
 {
@@ -106,13 +103,6 @@ int OpenTCLsci(void)
   else fclose(tmpfile);
 #endif /* _MSC_VER */ 
   
-#if defined(__CYGWIN32__) 
-  /* we must pass X: pathnames to tcl */
-  if ( SciPath ) FREE(SciPath);
-  SciPath=GetSciPathCyg();  
-  strcpy(TkScriptpath,SciPath);
-  strcat(TkScriptpath, "/tcl/TK_Scilab.tcl");
-#endif
   if (TCLinterp == NULL) 
     {
       TCLinterp = Tcl_CreateInterp();
@@ -206,37 +196,3 @@ char *GetSciPath(void)
        return PathUnix;
 }
 /*-----------------------------------------------------------------------------------*/
-#if defined(__CYGWIN32__) 
-/* from cygwin /cygdrive/f/ to f: 
- * PathUnix must be a valid pathname returned by GetSciPath
- */
-static char *GetSciPathCyg(void)
-/* force SciPath to Unix format for compatibility (Windows) */
-{
-  const char *cygwin = "/cygdrive/";
-  char *PathUnix=NULL;
-  char *SciPathTmp=NULL;
-  int i=0;
-
-  SciPathTmp=getenv("SCI");
-
-  if (SciPathTmp)
-    {
-      PathUnix=(char*)MALLOC( ((int)strlen(SciPathTmp)+1)*sizeof(char) );
-      
-      strcpy(PathUnix,SciPathTmp);
-      for (i=0;i<(int)strlen(PathUnix);i++)
-       {
-         if (PathUnix[i]=='\\') PathUnix[i]='/';
-       }
-    }
-  if (strncmp(PathUnix,cygwin,strlen(cygwin))==0)
-    {
-      strcpy(PathUnix,SciPathTmp +strlen(cygwin)-1);
-      *PathUnix = *(PathUnix+1);
-      *(PathUnix+1)= ':';
-    }
-  return PathUnix;
-}
-#endif
-/*-----------------------------------------------------------------------------------*/
index 9914ebe..1705161 100644 (file)
@@ -5,7 +5,7 @@
 #include <stdio.h>
 
 #if ~defined(THINK_C) && ~defined(__MWERKS__)
-       #if !(defined _MSC_VER) && !(defined __MINGW32__) 
+       #if !(defined _MSC_VER)
                #include <sys/time.h>
        #else 
                #include <windows.h>
index 393aacb..42d76d5 100644 (file)
@@ -14,9 +14,8 @@
 #include <string.h>
 #include <ctype.h>
 #include <time.h>
-#ifndef __ABSC__
 #include <process.h>
-#endif
+
 
 #define MAXSTR 256     /* maximum file name length and general string length */
 
@@ -25,7 +24,7 @@
 extern int gp_printfile(HINSTANCE hInstance,HWND hwnd,char *filename, char *port);
 
 #ifdef __GNUC__XXX
-/** XXXXXX Missing declarations for gcwin32 **/
+
 typedef PRINTER_DEFAULTS *LPPRINTER_DEFAULTS;
 
 #define PRINTER_ENUM_DEFAULT     0x00000001
index 1f10652..219b1cb 100644 (file)
 #define mem_free(ptr, bsize)   free(ptr)
 
 #ifndef makedev /* ie, we haven't already included it */
-#ifndef __ABSC__
 #include <sys/types.h>
-#endif
-#if (defined _MSC_VER) || (defined __ABSC__) || (defined __MINGW32__)
+#if (defined _MSC_VER)
 #undef FALSE
 #undef TRUE 
 #include <winsock.h>
@@ -66,38 +64,21 @@ typedef char * caddr_t;
 #define bzero(x,n) memset(x,0,n)
 #define bcopy(x,y,n) memcpy(x,y,n)
 #define IEEEFP
-#endif /* _MSC_VER && __ABSC__ */
+#endif /* _MSC_VER */
 
 #endif /* makedev */
 
-#if !(defined _MSC_VER) && !(defined __ABSC__) && ! (defined __MINGW32__)
+#if !(defined _MSC_VER)
 #include <sys/time.h>
 #endif
-#ifdef __ABSC__
-#include <time.h>
-#endif
 
 #ifndef INADDR_LOOPBACK
 #define        INADDR_LOOPBACK         (u_long)0x7F000001
 #endif
 
-/** not useful for gcwin32 
-#ifdef __GCWIN32__
-#ifndef PASCAL 
-#define PASCAL      __stdcall
-#endif
-u_long PASCAL htonl (u_long hostlong);
-u_long PASCAL ntohl (u_long netlong);
-#endif 
-**/
-/** for MINGWIN32   **/
 
-#ifdef __MINGW32__
-#ifndef PASCAL 
-#define PASCAL      __stdcall
-#endif
 u_long PASCAL htonl (u_long hostlong);
 u_long PASCAL ntohl (u_long netlong);
-#endif 
+
 
 #endif /* !_RPC_TYPES_H */
index c82784c..1c46fe4 100644 (file)
@@ -40,7 +40,7 @@
 #ifndef _RPC_XDR_H
 #define _RPC_XDR_H
 
-#if !(defined _MSC_VER) && !(defined __ABSC__) && !(defined __MINGW32__)
+#if !(defined _MSC_VER)
 #include <sys/cdefs.h>
 #endif 
 
@@ -269,7 +269,7 @@ extern bool_t   xdr_netobj();
  * These are the public routines for the various implementations of
  * xdr streams.
  */
-#if !(defined _MSC_VER) && !(defined __ABSC__) &&!(defined __MINGW32__)
+#if !(defined _MSC_VER)
 __BEGIN_DECLS
 #endif
 /* XDR using memory buffers */
@@ -291,7 +291,7 @@ extern bool_t xdrrec_skiprecord     __P((XDR *));
 
 /* true if no more input */
 extern bool_t xdrrec_eof       __P((XDR *));
-#if !(defined _MSC_VER) && !(defined __ABSC__) && !(defined __MINGW32__) 
+#if !(defined _MSC_VER)
 __END_DECLS
 #endif
 
index 02ad888..027c1f3 100644 (file)
@@ -46,20 +46,13 @@ static char *rcsid = "$Id: xdr.c,v 1.2 2002/06/28 10:46:30 chanceli Exp $";
 #include <stdio.h>
 #include <stdlib.h>
 
-/** #define __INSIDE_CYGWIN32__ **/
-#ifdef __MINGW32__
-#define _MSC_VER
-#endif 
-
-#if !(defined _MSC_VER) && !(defined __ABSC__)
-#include <rpc/types.h> 
-#include <rpc/xdr.h>
+
+#if !(defined _MSC_VER)
+       #include <rpc/types.h> 
+       #include <rpc/xdr.h>
 #else
-#ifdef __INSIDE_CYGWIN32__  
-#undef __INSIDE_CYGWIN32__  /** for winsock.h in cygwin for mingw32 **/
-#endif 
-#include "rpc/types.h" 
-#include "rpc/xdr.h"
+       #include "rpc/types.h" 
+       #include "rpc/xdr.h"
 #endif
 
 /*
index 8a571e0..f86fd13 100644 (file)
@@ -46,10 +46,6 @@ static char *rcsid = "$Id: xdr_array.c,v 1.1 2001/04/26 07:48:37 scilab Exp $";
 #include <stdlib.h>
 #include <string.h>
 
-#ifdef __MINGW32__
-#define _MSC_VER
-#endif 
-
 #ifdef  _MSC_VER 
 #include "rpc/types.h"
 #include "rpc/xdr.h"
index 5f5b8e0..250ce8c 100644 (file)
@@ -46,10 +46,6 @@ static char sccsid[] = "@(#)xdr_float.c 1.12 87/08/11 Copyr 1984 Sun Micro";
 #include <sys/types.h>
 
 
-#ifdef __MINGW32__
-#define _MSC_VER
-#endif 
-
 #if !(defined _MSC_VER)
 #include <sys/param.h>
 #include <rpc/types.h> 
index b473a18..bd98954 100644 (file)
@@ -46,10 +46,6 @@ static char *rcsid = "$Id: xdr_mem.c,v 1.2 2005/08/01 11:30:37 cornet Exp $";
 
 #include <string.h>
 
-#ifdef __MINGW32__
-#define _MSC_VER
-#endif 
-
 #if !(defined _MSC_VER)
 #include <netinet/in.h> /** jpc : je met netinet/ avant rpc pour eviter un warning */
 #include <rpc/types.h> 
index 0eedfeb..232d7e9 100644 (file)
@@ -53,10 +53,6 @@ static char *rcsid = "$Id: xdr_rec.c,v 1.2 2005/08/01 11:30:37 cornet Exp $";
 #include <stdlib.h>
 #include <string.h>
 
-#ifdef __MINGW32__
-#define _MSC_VER
-#endif 
-
 #if !(defined _MSC_VER)
 #include <netinet/in.h> /** jpc : je met netinet/ avant rpc pour eviter un warning */
 #include <rpc/types.h> 
index d4470f5..abc1092 100644 (file)
@@ -45,9 +45,6 @@ static char *rcsid = "$Id: xdr_reference.c,v 1.2 2005/08/01 11:30:37 cornet Exp
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
-#ifdef __MINGW32__
-#define _MSC_VER
-#endif 
 
 #if !(defined _MSC_VER)
 #include <rpc/types.h> 
index 1271d84..0e65b94 100644 (file)
@@ -43,9 +43,6 @@ static char *rcsid = "$Id: xdr_stdio.c,v 1.2 2005/08/01 11:30:37 cornet Exp $";
  * from the stream.
  */
 #include <stdio.h>
-#ifdef __MINGW32__
-#define _MSC_VER
-#endif 
 
 #if !(defined _MSC_VER)
 #include <netinet/in.h> /** jpc : je met netinet/ avant rpc pour eviter un warning */
diff --git a/scilab/scripts/Makefile b/scilab/scripts/Makefile
deleted file mode 100755 (executable)
index f782ab0..0000000
+++ /dev/null
@@ -1,92 +0,0 @@
-SHELL = /bin/sh
-
-include ../Path.incl
-include ../Version.incl
-include ../Makefile.incl
-
-IP = $(SCIDIR)/Path.incl
-IV = $(SCIDIR)/Version.incl
-
-SBIN = $(SCIDIR)/bin
-UTIL = $(SCIDIR)/util
-
-BPROGRAMS = $(SBIN)/Blatexpr $(SBIN)/Blatexpr2 \
-       $(SBIN)/Blatexprs $(SBIN)/Blpr $(SBIN)/BEpsf \
-       $(UTIL)/Blatdoc $(UTIL)/Blatdocs
-
-PROGRAMS = $(SBIN)/scilab 
-
-all:: $(PROGRAMS)
-
-CYGDRIVE= -e "s+/cygdrive/\([a-zA-Z]*\)/+\1:/+g" 
-SED_CYGDRIVE= $(CYGDRIVE)
-
-$(SBIN)/scilab: scilab-gcwin32.g $(IP) $(IV)
-       @$(RM) $(SBIN)/scilab
-       @sed -e "s+SCILAB_DIRECTORY+$(SCIDIR)+" $(SED_CYGDRIVE) \
-       -e "s+SCILAB_VERSION+$(SCIVERSION)+" \
-       -e "s+SCILABGS+sh+" scilab-gcwin32.g > scilab;
-       @cp scilab $(SBIN)
-       @chmod 775 $(SBIN)/scilab
-       @$(RM) scilab
-       @echo $(SBIN)/scilab created
-
-
-$(SBIN)/Blatexpr: Blatexpr.g $(IP)
-       @$(RM) $(SBIN)/Blatexpr
-       @sed -e "s+SCILAB_DIRECTORY+$(SCIDIR)+" Blatexpr.g > Blatexpr;
-       @cp Blatexpr $(SBIN)
-       @chmod 775 $(SBIN)/Blatexpr
-       @$(RM) Blatexpr
-       @echo $(SBIN)/Blatexpr created
-
-$(SBIN)/BEpsf: BEpsf.g $(IP)
-       @$(RM) $(SBIN)/BEpsf
-       @sed -e "s+SCILAB_DIRECTORY+$(SCIDIR)+" BEpsf.g > BEpsf;
-       @cp BEpsf $(SBIN)
-       @chmod 775 $(SBIN)/BEpsf
-       @$(RM) BEpsf
-       @echo $(SBIN)/BEpsf created
-
-$(SBIN)/Blatexpr2: Blatexpr2.g $(IP)
-       @$(RM) $(SBIN)/Blatexpr2
-       @sed -e "s+SCILAB_DIRECTORY+$(SCIDIR)+" Blatexpr2.g > Blatexpr2;
-       @cp Blatexpr2 $(SBIN)
-       @chmod 775 $(SBIN)/Blatexpr2
-       @$(RM) Blatexpr2
-       @echo $(SBIN)/Blatexpr2 created
-
-$(SBIN)/Blatexprs: Blatexprs.g $(IP)
-       @$(RM) $(SBIN)/Blatexprs
-       @sed -e "s+SCILAB_DIRECTORY+$(SCIDIR)+" Blatexprs.g > Blatexprs;
-       @cp Blatexprs $(SBIN)
-       @chmod 775 $(SBIN)/Blatexprs
-       @$(RM) Blatexprs
-       @echo $(SBIN)/Blatexprs created
-
-$(SBIN)/Blpr: Blpr.g $(IP)
-       @$(RM) $(SBIN)/Blpr
-       @sed -e "s+SCILAB_DIRECTORY+$(SCIDIR)+" Blpr.g > Blpr;
-       @cp Blpr $(SBIN)
-       @chmod 775 $(SBIN)/Blpr
-       @$(RM) Blpr
-       @echo $(SBIN)/Blpr created
-
-$(UTIL)/Blatdoc: Blatdoc.g $(IP)
-       @$(RM) $(UTIL)/Blatdoc
-       @sed -e "s+SCILAB_DIRECTORY+$(SCIDIR)+" Blatdoc.g > Blatdoc;
-       @cp Blatdoc $(UTIL)
-       @chmod 775 $(UTIL)/Blatdoc
-       @$(RM) Blatdoc
-       @echo $(UTIL)/Blatdoc created
-
-$(UTIL)/Blatdocs: Blatdocs.g $(IP)
-       @$(RM) $(UTIL)/Blatdocs
-       @sed -e "s+SCILAB_DIRECTORY+$(SCIDIR)+" Blatdocs.g > Blatdocs;
-       @cp Blatdocs $(UTIL)
-       @chmod 775 $(UTIL)/Blatdocs
-       @$(RM) Blatdocs
-       @echo $(UTIL)/Blatdocs created
-
-distclean::
-       @$(RM) $(PROGRAMS) 
diff --git a/scilab/scripts/scilab-gcwin32.g b/scilab/scripts/scilab-gcwin32.g
deleted file mode 100755 (executable)
index e783b72..0000000
+++ /dev/null
@@ -1,310 +0,0 @@
-#!/bin/sh
-# Warning : some old versions of sh dont allow inline function definitions
-# like do_scilex()... . In this case use a system V sh (sh5)
-# Set the SCI environment variable if not already set
-# Copyright Inria/Enpc 
-# XXXXX : Attention quand on est en mingwin on veut des 
-# env avec c: pas /cygdrive 
-# de plus en cygwin scilab peut se lancer sans script 
-
-#############################################################################
-#                                                                           #
-#                       DO NOT MODIFY BELOW THIS LINE                       #
-#                                                                           #
-#############################################################################
-
-if test "$HOME" = ""; then
-       HOME="SCILAB_DIRECTORY"
-fi
-export HOME
-
-SCI="SCILAB_DIRECTORY"
-export SCI
-
-if test "$WSCI" = ""; then
-       WSCI="SCILAB_DIRECTORY"
-fi
-export WSCI 
-
-PWD=`pwd`
-export PWD
-
-do_scilex()
-{
-       PATH=$PATH:$SCI:$SCI/util
-       export PATH
-       XAPPLRESDIR=$SCI/X11_defaults
-       export XAPPLRESDIR
-       $SCI/bin/scilex $* 
-}
-
-do_scilex_now()
-{
-       PATH=$PATH:$SCI:$SCI/util
-       export PATH
-       XAPPLRESDIR=$SCI/X11_defaults
-       export XAPPLRESDIR
-       $SCI/bin/scilex $* 
-}
-
-do_help()
-{
-       echo "Usage  :"
-       echo     "      scilab [-ns -nw -nwni -display display -l language]"
-       echo     "      scilab -mini"
-       echo     "      scilab -link <objects>"
-       echo     "      scilab -function <function-name>"
-       echo     "      scilab -print_p file printer"
-       echo     "      scilab -print_l file printer"
-       echo     "      scilab -save_p file format"
-       echo     "      scilab -save_l file format"
-}
-
-do_compile()
-{
-       umask 002
-       rm -f report
-       name=`basename $1 .sci`
-       echo generating $name.bin
-       echo "predef();getf('$name.sci');save('$name.bin');quit"\
-               | $SCI/bin/scilex -ns -nwni | sed 1,8d 1>report 2>&1
-       if (grep error report 1> /dev/null  2>&1);
-       then cat report;echo " " 
-               echo see `pwd`/report for more informations
-               grep libok report>/dev/null; 
-       else rm -f report;
-       fi
-       umask 022
-       exit 0
-}
-
-do_lib()
-{
-       umask 002
-       rm -f report
-       echo "$1=lib('$2/');save('$2/lib',$1);quit"\
-               | $SCI/bin/scilex -ns -nwni |sed 1,/--\>/d 1>report 2>&1
-       if (grep error report 1> /dev/null  2>&1);
-       then cat report;echo " " 
-               echo see `pwd`/report for more informations
-               grep libok report>/dev/null; 
-       else rm -f report;
-       fi
-       umask 022
-       exit 0
-}
-
-
-
-do_compile_test ()
-{
-       umask 002
-       rm -f report
-       name=`basename $1 .sci`
-       echo generating $name.bin
-       echo "predef();getf('$name.sci','c');save('$name.bin');quit"\
-               | $SCI/bin/scilex -ns -nwni | cat  1>report 2>&1
-       if (grep error report 1> /dev/null  2>&1);
-       then cat report;echo " " 
-               echo see `pwd`/report for more informations
-               grep libok report>/dev/null; 
-       fi
-       umask 022
-       exit 0
-}
-
-do_print() 
-{
-       $SCI/bin/BEpsf $1 $2 
-       lpr $2.eps
-       rm -f $2 $2.eps
-
-}
-
-do_save() 
-{
-       case $3 in 
-               Postscript)
-                       $SCI/bin/BEpsf $1 $2 
-               ;;
-               Postscript-Latex)
-                       $SCI/bin/Blatexpr $1 1.0 1.0 $2 
-               ;;
-               Xfig)
-                       case $1 in
-                               -portrait)
-                                       mv $2 $2.fig
-                               ;;
-                               -landscape)
-                                       sed -e "2s/Portrait/Landscape/" $2 >$2.fig
-                                       rm -f $2
-                               ;;
-                       esac
-               ;;
-               Gif)
-                       case $1 in
-                               -portrait)
-                                       mv $2 $2.gif
-                               ;;
-                               -landscape)
-                                       mv $2 $2.gif
-                               ;;
-                       esac
-               ;;
-       esac
-}
-
-# calling Scilab with no argument or special cases of calling Scilab
-
-rest="no"
-
-case $# in
-       0)
-               do_scilex &
-       ;;
-       2)
-               case $1 in
-               -comp)
-                       do_compile $2
-                       ;;
-               -link)
-                       shift
-                       $SCI/bin/scilink $SCI $*
-                       ;;
-               -function)
-                       $SCI/bin/minfopr $SCI $2
-                       ;;
-               *)
-                       rest="yes"
-                       ;;
-               esac
-       ;;
-       3)
-               case $1 in
-                       -lib)
-                               do_lib $2 $3
-                       ;;
-                       -print_l)
-                               do_print -landscape $2 $3
-                       ;;
-                       -print_p)
-                               do_print -portrait $2 $3
-                       ;;
-                       -save_l)
-                               do_save -landscape $2 $3
-                       ;;
-                       -save_p)
-                               do_save -portrait $2 $3
-                       ;;
-                       -link)
-                               shift
-                               $SCI/bin/scilink $SCI $*
-                       ;;
-                       *)
-                               rest="yes"
-                       ;;
-               esac
-       ;;
-       *)
-               case $1 in
-                       -link)
-                               shift
-                               $SCI/bin/scilink $SCI $*
-                       ;;
-                       *)
-                               rest="yes"
-                       ;;
-               esac
-       ;;
-esac
-
-# really calling Scilab with arguments
-
-sci_args=
-
-if test "$rest" = "yes"; then
-       
-       debug=
-       now=
-       display=
-       start_file=
-       prevarg=
-       language=
-       
-       for sciarg 
-       do
-               
-               # If the previous argument needs an argument, assign it.
-               if test -n "$prevarg"; then
-                       eval "$prevarg=\$sciarg"
-                       prevarg=
-                       continue
-               fi
-               
-               case $sciarg in
-                       -ns)
-                               sci_args="$sci_args -ns"
-                       ;;
-                       -nb)
-                               sci_args="$sci_args -nb"
-                       ;;
-                       -debug) 
-                               debug="-debug"
-                       ;;
-                       -nw)
-                               now="-nw"
-                               sci_args="$sci_args -nw"
-                       ;;
-                       -nwni)
-                               now="-nwni"
-                               sci_args="$sci_args -nwni"
-                       ;;
-                       -display|-d)
-                               prevarg="display"
-                       ;;
-                       -f)
-                               prevarg="start_file"
-                       ;;
-                       -l)
-                               prevarg="language"
-                       ;;
-                       -e)
-                               prevarg="start_exp"
-                       ;;
-                       -args)
-                               prevarg="arguments"
-                       ;;
-                       *)
-                               do_help
-                       ;;
-               esac
-       done
-       
-       if test -n "$display"; then
-               sci_args="$sci_args -display $display"
-       fi
-       
-       if test -n "$start_file"; then
-               sci_args="$sci_args -f $start_file"
-       fi
-       
-       if test -n "$start_exp"; then
-               sci_args="$sci_args -e $start_exp"
-       fi
-       
-       if test -n "$language"; then
-               sci_args="$sci_args -l $language"
-       fi
-       
-       if test -n "$now"; then
-               sci_exe="do_scilex_now"
-       else
-               sci_exe="do_scilex"
-       fi
-       
-       if test -n "$debug"; then 
-               gdb -e $SCI/bin/scilex
-       else    
-               $sci_exe $sci_args 
-       fi 
-fi
diff --git a/scilab/util/scidem-gcwin32 b/scilab/util/scidem-gcwin32
deleted file mode 100644 (file)
index 3eef60d..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/bin/sh 
-# scilab batch execution for testing 
-# scidem scidir fn fileres  flag
-echo ------------------- File $2--------------------
-SCI=$1
-export SCI
-if [ -f $3  ]; then rm $3;fi;
-trap "rm -f /tmp/$2.$$ /tmp/$2.$$.res /tmp/$2.$$.err /tmp/$2.$$.diff\
-        ;exit 1"  1 2 13 15
-echo "clear;lines(0);deff('[]=bugmes()','write(%io(2),''error on test'')');\
-        diary('$3');driver('Pos');" >> /tmp/$2.$$ ;
-sed     -e "s/pause,end/bugmes();quit;end/" \
-        -e "s/halt()//" \
-        $2 >> /tmp/$2.$$ ;
-echo "diary(0);xend();exit;" >> /tmp/$2.$$ ;
-(cat /tmp/$2.$$ | $SCI/bin/scilex -nwni > /tmp/$2.$$.res ) 2> /tmp/$2.$$.err ;
-sed -e "s/ \./0\./g" -e "s/E+/D+/g" -e "s/E-/D-/g" -e "s/-\./-0\./g" -e "s/^-->//g" -e "s/^-1->//g" $3 > $3.n
-grep -v "xinit(" $3.n | grep -v "diary(" | grep -v "exec("  > $3
-rm -f $3.n
-if ( grep error /tmp/$2.$$.res >  /dev/null ) ; then 
-        if [ $# != 4 ]; then 
-                echo "Test failed ERROR DETECTED  while executing $2" ;
-        fi;
-else if [ -f $3.ref ];then 
-        if ( diff -w $3 $3.ref > /tmp/$2.$$.diff ) ;
-        then  echo Test passed ;
-        else  echo Test Failed SEE : diff -w  $3 $3.ref ;
-        fi;
-      fi;
-fi;
-echo ---------------------------------------------------------- 
-rm -f /tmp/$2.$$ /tmp/$2.$$.res /tmp/$2.$$.err /tmp/$2.$$.diff
-exit 0
-