merge version educ nat
Serge Steer [Fri, 12 Jul 2002 12:43:49 +0000 (12:43 +0000)]
16 files changed:
scilab/ACKNOWLEDGEMENTS
scilab/CHANGES
scilab/Makefile.OBJ.in
scilab/Makefile.amk
scilab/Makefile.in
scilab/Makefile.incl.mak
scilab/Makefile.mak
scilab/Makesubdirs.bat
scilab/README
scilab/Version.incl
scilab/bin/.cvsignore
scilab/bin/wscilab.mnu
scilab/configure.in
scilab/libs/Makefile
scilab/libs/Makefile.mak
scilab/scilab.star

index 3791a53..22c282a 100644 (file)
@@ -81,8 +81,6 @@ system2: low level Scilab routines (INRIA).
 
 X11: optionnal Xaw and Xmu routines  (from mit X11 distribution).
 
-xless: Xless
-
 xsci: top level window and utilities using code from: xterm, xxgdb, xfig 
         combined and modified by J.P. Chancelier.
 
@@ -94,9 +92,6 @@ wsci: Scilab programs for the windows version using code from
 
 imp: a set of programs for Scilab prints (J.P.Chancelier).
 
-geci: interprocess communication tool made by CalICo group from
-         LaBRI (University of Bordeaux I, France).
-
 dcd: Library of Fortran Routines for Cumulative Distribution
          Functions, Inverses, and Other Parameters (February, 1994)
          Barry W. Brown, James Lovato, Kathy Russell Department of
index 25c9e34..c1ad1b1 100644 (file)
@@ -5,19 +5,25 @@ NEW FUNCTIONALITIES
 ===================
 Slicot based control routines have been introduced
 Interface with TeXmacs 
+text editor for Windows.
 
 OTHERS IMPROVEMENTS
 ===================
 Linear algebra primitives now based on Lapack instead of Linpack/Eispack
 Basic functions revised (thanks to B Pincon)
-stacksize use is no more restricted
+stacksize use is no more restricted.
+Hypertext online help instead of the old help browser. 
 
 INCOMPATIBLITY
 ==============
 User's Scilab function libraries must be rebuild
 gschur and gspec are now obsolete and replaced by schur and spec
 
+Geci and communication library have been removed
 
+Metanet graph editor has been removed. You can use SCIGRAPH contribution instead.
+
+man pages have to be written in HTML or better in XML
 
                     Main Changes Scilab 2.5 -> 2.6
                     ==============================
index 1edb4ee..4c921e6 100644 (file)
@@ -16,7 +16,6 @@ LIBRSCI = $(SCIDIR)/libs/system.a $(SCIDIR)/libs/interf.a \
        $(SCIDIR)/libs/sun.a $(SCIDIR)/libs/gd.a  \
         $(SCIDIR)/libs/intersci.a  $(SCIDIR)/libs/@GUILIB@.a \
        $(SCIDIR)/libs/graphics.a $(SCIDIR)/libs/menusX.a \
-        $(SCIDIR)/libs/libcomm.a $(SCIDIR)/libs/comm.a \
        $(SCIDIR)/libs/sound.a $(SCIDIR)/libs/dcd.a $(SCIDIR)/libs/rand.a \
         $(BLAS) \
        $(SCIDIR)/libs/int.a \
index ffbf0e6..57162a2 100644 (file)
@@ -7,7 +7,6 @@ all::scicode bin/scilex.exe
 scicode:\r
        @Makesubdirs.bat routines ABSOFT\r
        @Makesubdirs.bat macros ABSOFT\r
-       @Makesubdirs.bat wless ABSOFT\r
        @Makesubdirs.bat imp ABSOFT\r
        @Makesubdirs.bat intersci ABSOFT\r
        @if "%COMPILE_PVM%" == "yes" Makesubdirs.bat pvm ABSOFT\r
@@ -28,7 +27,7 @@ LIBRSCI = libs/system.lib libs/interf.lib libs/system2.lib libs/optim.lib \
        libs/poly.lib libs/calelm.lib libs/lapack.lib libs/graphics.lib \\r
        libs/sparse.lib libs/metanet.lib libs/sun.lib \\r
        libs/intersci.lib libs/wsci.lib libs/graphics.lib libs/menusX.lib \\r
-       libs/libcomm.lib libs/comm.lib libs/sound.lib libs/dcd.lib \\r
+       libs/sound.lib libs/dcd.lib \\r
        libs/rand.lib libs/blas.lib libs/xdr.lib \\r
        libs/gd.lib \\r
        $(TKSCI) $(PVM)\r
index 26da87e..fcbc178 100644 (file)
@@ -28,8 +28,8 @@ include config/@MAKEFILE_TARGET@
 distclean::
        $(RM) bin/scilex
 
-SUBDIRS = scripts maple macros imp intersci @MANVIEWER@ @XMETANET@ \
-       tests demos @COMM@ examples man
+SUBDIRS = scripts maple macros imp intersci  \
+       tests demos  examples
 
 scilex-lib::
        @case '${MFLAGS}' in *[ik]*) set +e;; esac; \
@@ -67,10 +67,39 @@ clean::
                (cd $$i ; echo "making clean in $$i..."; \
                        $(MAKE) $(MFLAGS)  clean); \
        done
+# making the man
+# whatis must be done first
 
-#clean::
-#      @cd pvm3; echo "making clean in pvm3..."; \
-#      $(MAKE) $(MFLAGS)  clean;
+man: whatis html index
+
+whatis:
+       @case '${MFLAGS}' in *[ik]*) set +e;; esac; \
+       for i in man;\
+       do \
+               (cd $$i ; echo "making whatis in $$i..."; \
+                       $(MAKE) $(MFLAGS) whatis); \
+       done
+
+html:  
+       @case '${MFLAGS}' in *[ik]*) set +e;; esac; \
+       for i in man;\
+       do \
+               (cd $$i ; echo "making html in $$i..."; \
+                       $(MAKE) $(MFLAGS) html); \
+       done
+
+index:
+       @case '${MFLAGS}' in *[ik]*) set +e;; esac; \
+       (cd man ; echo "making index in man..."; \
+       $(MAKE) $(MFLAGS) index);
+
+manclean:      
+       @case '${MFLAGS}' in *[ik]*) set +e;; esac; \
+       for i in man;\
+       do \
+               (cd $$i ; echo "making manclean in $$i..."; \
+                       $(MAKE) $(MFLAGS) manclean); \
+       done
 
 tests:
        @echo "Type \"make tests\" in $(SCIDIR)/tests directory "
@@ -80,6 +109,7 @@ distclean::
        $(RM) config.cache config.log config.status .binary foo.f foo.o \
        conftest conftest.c so_locations
 
+# SCIBASE for scilab binaries generation
 SCIBASE = scilab-2.6
 
 PVMBINDISTFILES = \
@@ -117,7 +147,10 @@ BINDISTFILES = \
        $(SCIBASE)/imp/NperiPos.ps \
        $(SCIBASE)/imp/giffonts \
        $(SCIBASE)/macros \
-       $(SCIBASE)/man \
+       $(SCIBASE)/man/eng/index.html \
+       $(SCIBASE)/man/eng/*/*.html \
+       $(SCIBASE)/man/fr/index.html \
+       $(SCIBASE)/man/fr/*/*.html \
        $(SCIBASE)/maple \
        $(SCIBASE)/routines/*.h \
        $(SCIBASE)/routines/Make.lib \
index 90b8bb1..8bbc4c6 100644 (file)
@@ -10,11 +10,11 @@ MAKE=nmake /f Makefile.mak
 #---------------------
 # To compile with TCL/TK interface, uncomment the following lines and give
 # the good pathnames for TKLIBS and TCL_INCLUDES.
-#TKSCI=libs/tksci.lib 
-#TKLIBS=d:\tcl8.0\win\tcl80.lib d:\tk8.0\win\tk80.lib
-#TKLIBSBIN="$(SCIDIR1)\bin\tcl80.lib" "$(SCIDIR1)\bin\tk80.lib"
-#TCL_INCLUDES=-Id:\tcl8.0\generic -Id:\tk8.0\generic -Id:\tk8.0\xlib
-#DTK=-DWITH_TK
+TKSCI=libs/tksci.lib 
+TKLIBS=C:\Tcl\lib\tcl83.lib C:\Tcl\lib\tk83.lib
+TKLIBSBIN=C:\Tcl\bin\tcl83.lib C:\Tcl\bin\tk83.lib 
+TCL_INCLUDES=-Ic:\Tcl\include -Ic:\Tcl\include\X11
+DTK=-DWITH_TK
 #---------------------
 # Scilab pvm library
 #---------------------
index a4b67b6..61ddf33 100644 (file)
@@ -2,7 +2,7 @@
 SCIDIR=.
 include Makefile.incl.mak 
 
-all ::  routines-pvm  bin/scilex.exe macros wless imp intersci man 
+all ::  routines-pvm  bin/scilex.exe macros  imp intersci
 
 !IF "$(DLPVM)" == "YES"
 routines-pvm :: routines pvm 
@@ -21,9 +21,6 @@ routines::
 macros::
        Makesubdirs.bat macros
 
-wless::
-       Makesubdirs.bat wless
-
 imp::
        Makesubdirs.bat imp
 
@@ -51,7 +48,7 @@ LIBRSCI = libs/system.lib libs/interf.lib libs/system2.lib libs/optim.lib \
        libs/graphics.lib \
        libs/sparse.lib libs/metanet.lib libs/sun.lib \
        libs/intersci.lib libs/wsci.lib libs/graphics.lib libs/menusX.lib \
-       libs/libcomm.lib libs/comm.lib libs/sound.lib libs/dcd.lib \
+       libs/sound.lib libs/dcd.lib \
        libs/rand.lib libs/blas.lib libs/xdr.lib  \
        libs/gd.lib libs/int.lib \
        libs/libf2c.lib $(TKSCI) $(PVM)
index 6c1c88c..9d7fc43 100644 (file)
@@ -6,7 +6,6 @@ if "%1" == "routines-distclean" goto routines-distclean
 if "%1" == "macros" goto macros
 if "%1" == "macros-clean" goto macros-clean 
 if "%1" == "macros-distclean" goto macros-distclean 
-if "%1" == "wless" goto wless
 if "%1" == "imp" goto imp
 if "%1" == "intersci" goto intersci
 if "%1" == "dumpexts" goto dumpexts
@@ -73,13 +72,6 @@ cd macros
 cd ..
 goto end
 
-:wless
-cd wless
- echo making all in wless
- nmake /C /f Makefile.mak 
-cd ..
-goto end
-
 :imp
 cd imp
  echo making all in imp
index 37a9b01..0f094f1 100755 (executable)
@@ -1,4 +1,4 @@
-                         Scilab version 2.6
+                         Scilab version 2.7
                          ******************
  
  ******************************************************************************
@@ -36,8 +36,8 @@
  
     1 - Configure your system by issuing the following command in the Scilab 
         directory:
-       ./configure --with-tk
-       Or simply "./configure" if you don't have tcl/tk 8.0 or later 
+       ./configure
+       Or use  "./configure  --without-tk" if you don't have tcl/tk 8.0 or later 
         installed.
  
         This will create and/or modify a few Makefile and other files for your 
            Athena Widgets library when needed, so the use of this option is not
            recommanded (see below KNOWN PROBLEMS 3).
 
-        --with-xaw3d: use 3D version of Athena Widgets.
+       --without-xaw3d: do not use 3D version of Athena Widgets. The default
+           is to compile with these libraries. If they are not found, standard
+           Athena Widgets are taken.
 
         --without-pvm: compile without PVM library. The default is to compile
            with PVM library.
+       
+           If your PVM libraries and include files are in customized places, 
+           you can specify them by hand with the following arguments:
+        --with-pvm-library=DIR: PVM library files are in DIR
+        --with-pvm-include=DIR: PVM include files are in DIR
  
-        --with-tk: compile with TCL/TK library. The default is to compile
-           without TCL/TK library. You must have libraries of TCL/TK 8.x and 
+        --without-tk: compile without TCL/TK library. The default is to compile
+           with TCL/TK library. You must have libraries of TCL/TK 8.x and 
            corresponding include files installed in standard directory 
            (configure is looking for them).
 
-           If your libraries and include files are in customized places, 
+           If your TCL/TK libraries and include files are in customized places, 
            you can specify them by hand with the following arguments:
         --with-tcl-library=DIR: Tcl library files are in DIR
         --with-tcl-include=DIR: Tcl include files are in DIR
         --with-tk-library=DIR: Tk library files are in DIR
         --with-tk-include=DIR: Tk include files are in DIR
-        
-        Similarily for PVM :
-        --with-pvm-library=DIR: PVM library files are in DIR
-        --with-pvm-include=DIR: PVM include files are in DIR
 
-        --prefix=DIR: scilab will install itself in DIR/scilab-2.6 
+         --prefix=DIR: scilab will install itself in DIR/scilab-2.6 
            and create 3 symlinks in DIR/bin
         By default prefix=/usr
                 
index 7349f96..9c39c9e 100644 (file)
@@ -1 +1 @@
-SCIVERSION=scilab-2.6
+SCIVERSION=scilab-2.7-CVS
index 3847b30..82d5699 100755 (executable)
@@ -1,3 +1,3 @@
-geci xmetanet xless intersci-n intersci Slatexpr SEpsf
+intersci-n intersci Slatexpr SEpsf
 Slatexpr2  Slatexprs  Slpr BEpsf Blpr Blatexprs Blatexpr2 Blatexpr 
 scilab scilex 
index 2749cca..e290c25 100755 (executable)
@@ -96,16 +96,6 @@ E&dit
                xbasc()\r
 [EndMenu]\r
 \r
-[Menu]\r
-&Help\r
-       &Help Dialog\r
-               [HELP]\r
-       &Topic\r
-               help [INPUT]Help Topic?\r
-       &Apropos \r
-               apropos [INPUT]Key ?\r
-[EndMenu]\r
-\r
 ; [Menu]\r
 ; &Plot\r
 ;      Plot2d\r
index 2056025..2d08f4f 100644 (file)
@@ -1,7 +1,7 @@
 dnl Process this file with autoconf to produce a configure script.
 ## Copyright INRIA
 
-AC_REVISION($Revision: 1.28 $)dnl
+AC_REVISION($Revision: 1.29 $)dnl
 AC_INIT(license.txt)
 SCIDIR=`pwd`
 AC_CONFIG_AUX_DIR(config)
@@ -37,13 +37,13 @@ AC_ARG_WITH(local-xaw,
     [  --with-local-xaw        use Xaw widgets given with Scilab (not recommended) ])
 
 AC_ARG_WITH(xaw3d,
-    [  --with-xaw3d            use Xaw3d widgets ])
+    [  --without-xaw3d         do not use Xaw3d widgets ])
 
 AC_ARG_WITH(pvm,
     [  --without-pvm           do not compile with PVM library ])
 
 AC_ARG_WITH(tk,
-    [  --with-tk               compile with TCL/TK ])
+    [  --without-tk            do not compile with TCL/TK ])
 
 AC_ARG_WITH(gtk,
     [  --with-gtk              use Gtk widgets ])
@@ -88,7 +88,7 @@ fi
 ########################
 
 RM='rm -f'
-FILES_TO_CLEAN='*.CKP *.ln *.BAK *.bak core errs ,* *~ *.a .emacs_* tags TAGS make.log MakeOut .*~ *.trace so_locations *.orig *.cos'
+FILES_TO_CLEAN='*.CKP *.ln *.BAK *.bak core errs ,* *~ *.a .emacs_* tags TAGS make.log MakeOut .*~ *.trace so_locations *.orig *.cos' *.obj 
 
 ##################
 ## making archives
@@ -162,21 +162,6 @@ GZVT=
 #   xdr for Win32
 XDRLIB=
 XDRLIBNAME=
-# communication module: default is "geci" for UNIX
-#   does not exist on Win32
-COMM=geci
-# man viewer: default is "xless" for UNIX
-#   does not exist on Win32
-# allow --without-xless flag to configure for users who
-#   already have xless installed
-if test "$with_xless" != no; then
-MANVIEWER=xless
-else
-MANVIEWER=
-fi
-# graphics Metanet program: default is "xmetanet" for UNIX
-#   does not exist on Win32
-XMETANET=xmetanet
 # objects files in routines/menusX: default is XOBJS for UNIX
 #   for Win32 use WOBJS
 MENUSOBJS=XOBJS
@@ -848,9 +833,6 @@ case "$host" in
     XDRLIB='xdr'
     XDRLIBNAME='libs/xdr.a'
     MENUSOBJS=WOBJS
-    COMM=
-    MANVIEWER=wless
-    XMETANET=
     BLPR_SCRIPTS=
     SED_CYGDRIVE='$(CYGDRIVE)'
     # want to build f2c comand 
@@ -1143,7 +1125,7 @@ if test "$PERIFILE" = periX11.o; then
       LDFLAGS="$LDFLAGS -L$x_libraries -R$x_libraries"
     fi
     AC_CHECK_LIB(Xmu,main,[XAthena=yes],[XAthena=no],-lXt -lXext $X_PRE_LIBS -lX11 $X_EXTRA_LIBS)
-    if test "$with_xaw3d" = yes; then
+    if test "$with_xaw3d" != no; then
       AC_CHECK_LIB(Xaw3d,main,[XAthena3d=yes],[XAthena3d=no],-lXmu -lXt -lXext $X_PRE_LIBS -lX11 $X_EXTRA_LIBS)
       if test "$XAthena3d" = no; then
         AC_MSG_ERROR("Xaw3d missing. Use Xaw instead")
@@ -1400,7 +1382,7 @@ TCLTK_LIBS=
 TKSCILIB=
 TKSCIDIR=
 
-if test "$with_tk" = yes; then
+if test "$with_tk" != no; then
 
 # check user arguments
 USER_TCL_LIB_PATH=""
@@ -1438,7 +1420,7 @@ if test $WITH_TKSCI = 1; then
   TKSCILIB="\$(SCIDIR)/libs/tksci.a"
   TKSCIDIR=tksci
 else
-  AC_MSG_ERROR("TCL/TK not found. Do not use --with-tk")
+  AC_MSG_ERROR("TCL/TK not found. Use --without-tk")
 fi
 
 fi
@@ -1510,9 +1492,6 @@ AC_SUBST(GZVT)
 AC_SUBST(XDRLIB)
 AC_SUBST(XDRLIBNAME)
 AC_SUBST(WINXFLAGS)
-AC_SUBST(COMM)
-AC_SUBST(MANVIEWER)
-AC_SUBST(XMETANET)
 AC_SUBST(MENUSOBJS)
 AC_SUBST(MALLOC)
 AC_SUBST(PVMARCH)
@@ -1563,5 +1542,5 @@ AC_SUBST(SED_CYGDRIVE)
 AC_SUBST(F2C_SUBDIR)
 AC_SUBST(EXAMPLES_TESTS)
 
-AC_OUTPUT(Makefile.OBJ Makefile.incl Makefile scripts/Makefile routines/Makefile routines/default/Makefile routines/sun/Makefile routines/graphics/Makefile routines/menusX/Makefile routines/xsci/Makefile routines/sparse/Makefile Makemex routines/stack.h config/Makeso.incl routines/control/Makefile routines/calelm/Makefile routines/xsci/jpc_SGraph.c xmetanet/movedraw.c config/Makefile.aix config/Makefile.ultrix routines/lapack/Makefile scripts/scilab.g scripts/scilab-gtk.g examples/Makefile) 
+AC_OUTPUT(Makefile.OBJ Makefile.incl Makefile scripts/Makefile routines/Makefile routines/default/Makefile routines/sun/Makefile routines/graphics/Makefile routines/menusX/Makefile routines/xsci/Makefile routines/sparse/Makefile Makemex routines/stack.h config/Makeso.incl routines/control/Makefile routines/calelm/Makefile routines/xsci/jpc_SGraph.c  config/Makefile.aix config/Makefile.ultrix routines/lapack/Makefile scripts/scilab.g scripts/scilab-gtk.g examples/Makefile) 
  
index e5b1a92..0ec0b75 100644 (file)
@@ -7,7 +7,6 @@
 
 DEFS= blas.def \
 calelm.def \
-comm.def \
 control.def \
 dcd.def \
 fraclab.def \
@@ -17,7 +16,6 @@ interf.def \
 intersci.def \
 lapack.def \
 slicot.def \
-libcomm.def \
 libf2c.def \
 menusX.def \
 metanet.def \
index 02da0fd..31dca1e 100644 (file)
@@ -4,7 +4,7 @@ include ../Makefile.incl.mak
 all :: ..\bin\LibScilab.def 
 
 
-FILES = AAbase.def+blas.def+calelm.def+comm.def+control.def+dcd.def+default.def+fraclab.def+graphics.def+integ.def+interf.def+intersci.def+lapack.def+libcomm.def+libf2c.def+menusX.def+metanet.def+optim.def+poly.def+rand.def+scicos.def+signal.def+sound.def+sparse.def+sun.def+system.def+system2.def+wsci.def+xdr.def+gd.def+int.def+slicot.def
+FILES = AAbase.def+blas.def+calelm.def+control.def+dcd.def+default.def+fraclab.def+graphics.def+integ.def+interf.def+intersci.def+lapack.def+libf2c.def+menusX.def+metanet.def+optim.def+poly.def+rand.def+scicos.def+signal.def+sound.def+sparse.def+sun.def+system.def+system2.def+wsci.def+xdr.def+gd.def+int.def+slicot.def
 
 !IF "$(DTK)" == "-DWITH_TK"
 FILES1 = $(FILES)+tksci.def 
index b81457f..6d31104 100644 (file)
@@ -6,7 +6,7 @@ mode(-1);  // silent execution mode
 // clean database when restarted
 predef(0); //unprotect all variables 
 clear  // erase all variables 
-clear %helps scicos_pal // explicitly clear %helps scicos_pal variables
+clear  scicos_pal // explicitly clear %helps scicos_pal variables
 clearglobal();
 
 // Set stack size
@@ -35,27 +35,26 @@ if getenv('WIN32','NO')=='OK' then
 end
 
 // Load scilab functions libraries
-errcatch(48,'continue');
 write(%io(2),'  loading initial environment')
 
-load('SCI/macros/mtlb/lib')
+load('SCI/macros/util/lib')
+load('SCI/macros/elem/lib')
 load('SCI/macros/int/lib')
+load('SCI/macros/calpol/lib')
+load('SCI/macros/sound/lib')
+load('SCI/macros/percent/lib')
 load('SCI/macros/algebre/lib')
 load('SCI/macros/arma/lib')
 load('SCI/macros/auto/lib')
-load('SCI/macros/calpol/lib')
-load('SCI/macros/comm/lib')
-load('SCI/macros/elem/lib')
 load('SCI/macros/metanet/lib')
 load('SCI/macros/optim/lib')
 load('SCI/macros/robust/lib')
 load('SCI/macros/sci2for/lib')
 load('SCI/macros/signal/lib')
 load('SCI/macros/tdcs/lib')
-load('SCI/macros/util/lib')
 load('SCI/macros/xdess/lib')
-load('SCI/macros/sound/lib')
-load('SCI/macros/percent/lib')
+load('SCI/macros/mtlb/lib')
+
 
 // Create a temporary directory
 TMPDIR=getenv('TMPDIR')
@@ -65,54 +64,116 @@ home= getenv('HOME','ndef');
 if home=='ndef',home=unix_g('cd; pwd');end 
 
 // use MSDOS syntax?
-COMP=getenv('COMPILER','NO'); 
-MSDOS = getenv('WIN32','NO')=='OK' & ( COMP=='VC++' | COMP =='ABSOFT' | ...
-                                      COMP=='gcc')  
-clear COMP
-// Protect variable previously defined 
-clear ans
-predef('all') 
+MSDOS = getenv('WIN32','NO')=='OK' & ..
+       or(getenv('COMPILER','NO')==['VC++' 'ABSOFT' 'gcc'])
+
+
+// LANGUAGE TO USE FOR ONLINE MAN
+global LANGUAGE
+LANGUAGE="eng" // default language
+args=sciargs(); larg=find(args=="-l")
+if larg<>[] & larg<=size(args,"*") then
+  L=args(larg+1)
+  if L=="eng" | L=="fr" then
+    LANGUAGE=L
+  else
+    write(%io(2)," ")
+    write(%io(2),"Unsupported language """+L+"""."+..
+                " Choosing default language """+LANGUAGE+""".")
+  end
+end
+clear args larg L
+
+// INDEX file index.html
+global INDEX
+INDEX=SCI+"/man/"+LANGUAGE+"/index.html"
 
 //Scilab Help Chapters, %helps is a two column matrix of strings
-%helps=initial_help_chapters()
+global %helps
+%helps=initial_help_chapters(LANGUAGE)
+clear initial_help_chapters
+
+// Define Initial demo tables, demolist is a two column matrix of strings
+global demolist
+demolist=initial_demos_tables()
+clear initial_demos_tables
+
+// Menu for Help 
+if (sciargs()<>"-nw")&(sciargs()<>"-nwni") then
+  if MSDOS then
+    delmenu("Help")
+    if funptr("TK_EvalStr")<>0 then
+      addmenu("Help",list(0,"helpcommand"))
+      helpcommand="help()"
+      addmenu("Editor",list(0,"editcommand"))
+      editcommand="editor()"
+    else
+      addmenu("Help",list(0,"helpcommand"))
+      helpcommand="help()"
+    end
+  else
+    if funptr("TK_EvalStr")<>0 then
+      delmenu("Help")
+      addmenu("Help",list(0,"helpcommand"))
+      helpcommand="help()"
+    end
+  end
+end
 
-// Scilab help default pagers 
-%pager="more"
-%xpager="$SCI/bin/xless"
+
+// Protect variable previously defined 
+clear ans  %b_h_s
+predef('all') 
 
 // Define scicos palettes of blocks, scicos_menus and shortcuts
 [scicos_pal,%scicos_menu,%scicos_short,%scicos_help]=initial_scicos_tables()
 %scicos_display_mode=0  // =1 if pixmap to be used for display
+clear initial_scicos_tables
+
+//Start TCL interpretor if required
+if (sciargs()<>"-nw")&(sciargs()<>"-nwni") then
+  if MSDOS then
+    if funptr("TK_EvalStr")<>0 then
+      // Create Scipad TCL interpretor
+      TK_EvalStr("interp create scipad")
+      TK_EvalStr("load {"+SCI+"/bin/tk83.dll} Tk scipad")
+      TK_EvalStr("scipad eval {wm withdraw .}")
+      TK_EvalStr("scipad alias ScilabEval ScilabEval")
+      
+      // Create Browsehelp TCL interpretor
+      TK_EvalStr("interp create browsehelp")
+      TK_EvalStr("load {"+SCI+"/bin/tk83.dll} Tk browsehelp")
+      TK_EvalStr("browsehelp eval {wm withdraw .}")
+    end
+  end
+end
+
 
-//Define Initial demo tables, demolist is a two column matrix of strings
-demolist=initial_demos_tables()
-clear initial_help_chapters initial_scicos_tables initial_demos_tables
 // calling user initialization
 //=============================
 // Home dir
 [startup,ierr]=file('open','home/.scilab','old','formatted');
 if ierr==0 then
    exec(startup,-1);file('close',startup);
-   clear startup ierr
 else
    [startup,ierr]=file('open','home/scilab.ini','old','formatted');
    if ierr==0 then
       exec(startup,-1);file('close',startup);
-      clear startup ierr
    end
 end
+clear startup ierr
+
 // working dir
 if  home<>PWD then
   [startup,ierr]=file('open','.scilab','old','formatted');
   if ierr==0 then
      exec(startup,-1);file('close',startup);
-     clear startup ierr
   else
      [startup,ierr]=file('open','scilab.ini','old','formatted');
      if ierr==0 then
         exec(startup,-1);file('close',startup);
-        clear startup ierr
      end
   end
 end
+clear startup ierr