bug in replace and %scicos_help
Ramine Nikoukhah [Fri, 27 Apr 2001 14:38:48 +0000 (14:38 +0000)]
16 files changed:
scilab/Makefile.incl
scilab/Path.incl
scilab/config/Makefile.aix
scilab/libtool
scilab/macros/mtlb/Makefile.amk
scilab/macros/mtlb/Makefile.mak
scilab/macros/scicos/Replace_.sci
scilab/macros/scicos/do_help.sci
scilab/macros/scicos/do_replace.sci
scilab/macros/util/Makefile.amk
scilab/macros/util/Makefile.mak
scilab/macros/util/initial_scicos_tables.sci
scilab/routines/control/Makefile
scilab/routines/sparse/Makefile
scilab/routines/xsci/jpc_SGraph.c
scilab/scilab.star

index fed94c9..844424f 100755 (executable)
@@ -27,7 +27,7 @@ TERMCAPLIB = -ltermcap
 # and for linking: $(CC) -o $(PROGRAM) $(OBJS) $(CC_LDFLAGS)
 ###########
 CC = cc
-CC_OPTIONS = -O -Dlinux -fwritable-strings -DNARROWPROTO
+CC_OPTIONS = -g -Dlinux -fwritable-strings -DNARROWPROTO
 CC_LDFLAGS = -lieee
 CC_PICFLAGS = 
 
@@ -37,7 +37,7 @@ CC_PICFLAGS =
 # and for linking: $(FC) -o $(PROGRAM) $(OBJS) $(FC_LDFLAGS)
 ##################
 FC = g77
-FC_OPTIONS = -O
+FC_OPTIONS = -g
 FC_LDFLAGS = -lieee -ldl -rdynamic
 FC_PICFLAGS = 
 
@@ -59,10 +59,10 @@ LD_LDFLAGS = -lieee
 ##########
 DLDLIB = 
 DLD_SUBDIR = 
-PVMLIB = /home/gomez/tmp/scilab-2.6/pvm3/lib/LINUX/libpvm3.a
-PVMGLIB = /home/gomez/tmp/scilab-2.6/pvm3/lib/LINUX/libgpvm3.a
-PVMROOT = /home/gomez/tmp/scilab-2.6/pvm3
-XAWLIB = -lXaw
+PVMLIB = /usr/src/local/scilab/pvm3/lib/LINUX/libpvm3.a
+PVMGLIB = /usr/src/local/scilab/pvm3/lib/LINUX/libgpvm3.a
+PVMROOT = /usr/src/local/scilab/pvm3
+XAWLIB = -lXaw3d
 XMULIB = -lXmu
 XAW_LOCAL_SUBDIR = 
 XAW_LOCAL_LIB = 
@@ -75,7 +75,7 @@ XLIBS =  -L/usr/X11R6/lib $(XAWLIB) $(XMULIB) -lXt -lXext  -lSM -lICE -lX11 $(X_
 #####################
 TK_INC_PATH = -I/usr/include
 TCL_INC_PATH = -I/usr/include
-TCLTK_LIBS =   -ltk8.3    -ltcl8.3  -ldl
+TCLTK_LIBS =   -ltk8.0    -ltcl8.0  -ldl
 
 #####################
 # for WIN32 version 
index c512307..63ec966 100755 (executable)
@@ -1 +1 @@
-SCIDIR=/home/gomez/tmp/scilab-2.6
+SCIDIR=/usr/src/local/scilab
index e4b2e6e..acc9a58 100755 (executable)
@@ -1,3 +1,4 @@
+# Generated automatically from Makefile.aix.in by configure.
 # Copyright INRIA
 LLD = ld -bh:4 -T512 -H512 -o /tmp/scilex-1 -bnodelcsect /lib/crt0.o
 LLD1 = ld -bh:4 -T512 -H512 -o $@ -bnodelcsect -bE:bin/scilex.exp /lib/crt0.o
@@ -14,7 +15,7 @@ bin/scilex: scilex-lib
                $(RM) /tmp/scilex-1;\
                $(LLD) $(DEFAULTS) $(LIBR) $(LD_LDFLAGS) $(TCLTK_LIBS) \
                        $(XLIBS) $(TERMCAPLIB) $(LLDLF);\
-               (echo "#!$(SCIDIR)/bin/scilex"; $(NM) -gp /tmp/scilex-1\
+               (echo "#!$(SCIDIR)/bin/scilex"; /usr/bin/nm -B -gp /tmp/scilex-1\
                        | sed -n -e '/.* T \./s///p' -e '/.* [DB] /s///p' \
                        | sort -u) > bin/scilex.exp ;\
                $(RM) /tmp/scilex-1 ;\
index 0ccbee0..85dcbcf 100755 (executable)
@@ -34,9 +34,9 @@ Xsed="sed -e s/^X//"
 if test "${CDPATH+set}" = set; then CDPATH=; export CDPATH; fi
 
 ### BEGIN LIBTOOL CONFIG
-# Libtool was configured as follows, on host riobravo.inria.fr:
+# Libtool was configured as follows, on host scicos.inria.fr:
 #
-# CC="cc" CFLAGS="-O -Dlinux -fwritable-strings -DNARROWPROTO" CPPFLAGS="" \
+# CC="cc" CFLAGS="-g -Dlinux -fwritable-strings -DNARROWPROTO" CPPFLAGS="" \
 # LD="ld" LDFLAGS="" LIBS="-lm " \
 # NM="/usr/bin/nm -B" RANLIB="ranlib" LN_S="ln -s" \
 # DLLTOOL="" OBJDUMP="" AS="" \
@@ -138,7 +138,7 @@ dlopen_self_static=unknown
 link_static_flag="-static"
 
 # Compiler flag to turn off builtin functions.
-no_builtin_flag=" -fno-builtin -fno-rtti -fno-exceptions"
+no_builtin_flag=" -fno-builtin"
 
 # Compiler flag to allow reflexive dlopens.
 export_dynamic_flag_spec="\${wl}--export-dynamic"
index 0244318..da16ceb 100644 (file)
@@ -35,7 +35,8 @@ MTLB = mtlb.sci mtlb_e.sci mtlb_i.sci mtlb_is.sci mtlb_eval.sci \
 
 M5 = mtlb_cell.sci struct.sci  \
        %s_i_struct.sci %b_i_struct.sci %i_i_struct.sci %sp_i_struct.sci \
-       %c_i_struct.sci    %s_i_struct.sci
+       %c_i_struct.sci %s_i_struct.sci %struct_p.sci\
+        %cell_e.sci %cell_p.sci %cell_size.sci %s_i_cell.sci cell.sci 
 
 
 MACROS =$(MTLB) $(M5)
index 4562d61..c1cd693 100644 (file)
@@ -35,7 +35,8 @@ MTLB = mtlb.sci mtlb_e.sci mtlb_i.sci mtlb_is.sci mtlb_eval.sci \
 
 M5 = mtlb_cell.sci struct.sci  \
        %s_i_struct.sci %b_i_struct.sci %i_i_struct.sci %sp_i_struct.sci \
-       %c_i_struct.sci    %s_i_struct.sci
+       %c_i_struct.sci %s_i_struct.sci %struct_p.sci\
+        %cell_e.sci %cell_p.sci %cell_size.sci %s_i_cell.sci cell.sci 
 
 
 MACROS =$(MTLB) $(M5)
index e6ecbc5..8310a1a 100644 (file)
@@ -1,7 +1,6 @@
 function Replace_()
     Cmenu='Open/Set'
     xinfo('Click on new object , click on object to be replaced')
-    scs_m_save=scs_m;nc_save=needcompile;enable_undo=%t
     [scs_m,needcompile]=do_replace(scs_m,needcompile);
     xinfo(' ')
 
index ebf5134..d938519 100644 (file)
@@ -27,421 +27,21 @@ while %t do
     end
   end
 end
+
 if nm==0 then
   help(name)
 //  unix_s('$SCI/bin/scilab -help ""'+name+'"" | $SCI/bin/xless &')
   return
 end
-select name
-// Misc menu---------------------------------------------------------
-case 'Window' then
- mess=[' In the active editor Scicos window, clicking on the ';
-       ' Window menu item invokes a dialog box that allows you to change ';
-       ' window dimensions'];
-case 'Background color' then    
- mess=[' This menu allows to change the background and defaukt foreground'
-       ' colors']
-case 'Default link colors' then    
- mess=[' This menu allows to change the default color for regular '
-       ' and event links']
-case 'ID font' then    
- mess=[' This menu allows to change the font used to write the block'
-       ' identifications (see ""Set block ID"" menu)']
-case '3D aspect' then   
-  mess=[' This menu allows to select 3D shape for blocks and '
-          ' associated parameters']
-case 'Add color' then         
-  mess=[' This menu allows to add new color to the diagram private'
-        ' color map. Added colors are stored in the diagram data structure']
-case 'Focus' then    
-  mess=[' Focus menu allows to select a zone (click left, drag zone, click'
-        ' to select) which is focused on';
-       ' To change focus back use ""Zoom in"" menu']
-case 'Shift' then
-  mess=[' To shift the diagram to left, right, up or down,';
-      ' select this menu item, then click on the point you want ';
-      ' to appear in the middle of the graphics window. '];
-case 'Zoom in' then
-  mess=[' When you select this menu item the diagram is zoomed in '
-      'by a factor of 10%']
-case 'Zoom out' then  
-  mess=[' When you select this menu item the diagram is zoomed out '
-      'by a factor of 10%']
-case 'Help' then
-  mess=[' To get help on an object or menu buttons,';
-        ' select first Help menu item and then on ';
-       ' the selected object or menu item.']
-case 'Calc' then 
-  mess=[' When you select this menu item you switch Scilab to ';
-      ' the pause mode (see the help on pause).';
-      ' In the Scilab main window and you may enter Scilab instructions';
-      ' to compute whatever you want.';
-      ' to go back to Scicos you need enter the ""return"" or';
-      ' ""[...]=return(...)"" Scilab instruction.';
-      ' '
-      ' If you use ""[...]=return(...)"" Scilab instruction take care';
-      ' not to modify Scicos variables such as ""scs_m"",""scs_gc"",';
-      ' ""menus"",""datam"",...';
-      ' '
-      ' If you have modified scicos graphic window you may retore it ';
-      ' using the Scicos ""Replot"" menu.']
-
-// Edit menu---------------------------------------------------------
-case 'Palettes' then
-  mess=[' Select the Palettes menu item to open a predefined palette.']
-
-case 'Context' then
-  mess=[' When you select this menu item you get a dialogue to';
-    ' enter scilab instructions for defining symbolic scicos parameters';
-    '  used in block definitions or to do whatever you want';
-    ' ';
-    ' These instructions will be evaluated each time the diagram ';
-    ' is loaded.'
-    ' ';
-    ' If you  change the value of a symbolic scicos parameters in ';
-    ' the contextyou can either click on the block(s) that use this';
-    ' variable or on the Eval menu item to update actual block parameter';
-    ' value.']
-
-case 'Smart Move' then
-  mess=[' To move a block in  the active editor Scicos window';
-        ' or in edited palette keeping horizontal and vertical'
-        ' links, select first the ""Smart Move"" menu item, '
-       ' then click on the selected block, link segment or link'
-       ' corner, drag the mouse to the desired new  position '
-       ' and click left again to fix the position.'
-       ' '
-       ' Right click cancel the move action']
-
-case 'Move (m)' then
-  mess=[' To move a block in  the active editor Scicos window';
-        ' or in edited palette,'
-        ' select first the Move menu item, '
-       ' then click on the selected block, link segment or link'
-       ' corner, drag the mouse to the desired new block position '
-       ' and click left again to fix the position.'
-       ' '
-       ' Right click cancel the move action']
-
-
-case 'Copy (c)' then
-  mess=['To copy a block in the active editor Scicos window';
-         ' select first the Copy menu item, then'
-        ' click (with left button) on the to-be-copied block'
-        ' in Scicos windows or in a palette) ,  and'
-        ' finally click left where you want the copy';
-        ' be placed in the active editor Scicos window.';
-        ' '
-        ' The lower left corner of the block is placed';
-        ' at the selected point.';
-        ' This menu remains active until user choose an other one';
-        ' '
-        ' Right click cancel the copy action']
-     
-case 'Copy Region' then
-  mess=[ 'To copy a region in the active editor Scicos window';
-         ' select first the Copy menu item, then'
-        ' click (with right button) on a corner of the desired';
-        ' region (in Scicos windows or in a palette), drag to '
-        ' define the region, click to fix the region  and'
-        ' finally click left where you want the copy.' 
-        ' to be placed in the active editor Scicos window.';
-        ' NOTE: If source diagram is big be patient, region selection '
-        ' may take a while.'
-        ' '
-        ' The lower left corner of the block is placed';
-        ' at the selected point.';
-        ' '
-        ' Right click cancel the copy action']
-     
-case 'Replace' then    
- mess=[' To replace a block in the active editor Scicos window';
-         ' select first the Replace menu item, then'
-        ' select the replacement block (in Scicos window or in a'
-        ' palette), and  finally click on the to-be-replaced block']
-     
-
-
-case 'Align' then
-  mess=[' To obtain nice diagrams, you can align ports of';
-        ' different blocks, vertically and horizontally.';
-       ' Select first  the Align menu item, then click on the first';
-       ' port and finally on the second port.';
-       ' The block corresponding to the second port is moved.';
-       ' '
-       ' A connected block cannot be aligned.']
-
-
-case 'Link (l)' then
-  mess=[' To connect an output port to an input port,';
-        ' select first  the Link menu item, then click on the output';
-       ' port, drag, click left on each intermediate points'
-       ' and finally click left on the input port.';
-       ' '
-       ' To split a link, select first  the Link menu item,';
-       ' then click left on the link where the split should be placed,';
-       ' drag, click left on each intermediate points'
-       ' and finally click left on the input port.'
-       ' '
-       ' Right click cancel the link action'
-       ' '
-       ' Only one link can go from and to a port.';
-       ' Link color can be changed directly by clicking';
-       ' on the link.'
-       ' '
-       ' This menu remains active until user choose an other one']
-
-case 'Delete (d)' then
-  mess=['To delete  blocks or a links, select first the Delete'
-        ' menu item, then click successively on the selected objects'
-       '(with left button).';
-       ' '
-       ' When you delete a block all links connected to it';
-       ' are deleted as well.'
-       ' '
-       ' This menu remains active until user choose an other one']
-    
-case 'Delete Region' then
-  mess=['To delete a blocks in  a region, select first  the Delete Region'
-        ' menu item, then click  on a corner of the ';
-       ' desired region, drag to define the region, and click left to ';
-       ' fix the region. All connected links will be destroyed as';
-       ' well'
-       ' '
-       ' Right click instead of left cancels the delete  action']
-
-case 'Add new block' then 
-  mess=[' To add a newly defined block to the current palette or diagram';
-      ' select first this menu item, A dialog box will popup ';
-      ' asking for the name of the GUI function associated '
-      ' with the block. If this function is not already loaded';
-      ' it was search in the current directory. The user may then'
-      ' click at the desired position of the block icon ']
-
-case 'Flip (f)' then
-    mess=[' To reverse the positions of the (regular) inputs'
-         ' and outputs of a block placed on its sides,';
-         ' select the Flip menu item first and then click on the';
-         ' selected block. This does not affect the order,';
-         ' nor the position of the input and output event';
-         ' ports which are numbered from left to right.'
-         ' '
-         ' A connected block cannot be flipped.']
 
-
-case  'Undo (u)' then
-  mess=[' Select the Undo menu item to undo the last edit operation.'
-        ' It is not possible to undo more!']
-
-
-// Simulate menu --------------------------------------------------
-case 'Setup' then
-  mess=[' In the main Scicos window, clicking on the Setup menu item';
-        ' invokes a dialog box that allows you to change ';
-       ' integration parameters: ';
-       '   *final integration time';
-       '   *absolute and relative error tolerances' ;
-       '   *time tolerance (the smallest time interval for which ';
-       '         the ode solver is used to update continuous states)';
-        '   *deltat : the maximum time increase realized by a single';
-       '         call to the ode solver'];
-
-case 'Compile' then
-  mess=[' select the Compile menu item to compile the block diagram.';
-        ' This menu item need never be used since compilation is';
-       ' performed automatically, if necessary, before';
-       ' the beginning of every simulation (Run menu item).';
-       ' '
-       ' Normally, a new compilation is not needed if only';
-       ' system parameters and internal states are modified.';
-        ' In some cases however these modifications are not';
-       ' correctly updated and a manual compilation may be';
-       ' needed before a Restart or a Continue.';
-       ' Please report if you encounter such a case.']
-    
-case 'Eval' then     
- mess=[' All dialogs user answers may be scilab instructions';
-       ' they are evaluated immediatly and stored as character strings.'
-       ' select this menu item to have them re-evaluated according to'; 
-       ' new values of underlying scilab variables. '
-       ' '
-       ' These underlying scilab variables may be user global variables'
-       ' defined before scicos was launch, They may also be defined in'
-       ' by the scicos context (see Context menu item)']
-
-case 'Run' then
-  mess=[' select the Run menu item to start the simulation.';
-        ' If the system has already been simulated, a';
-       ' dialog box appears where you can choose to Continue,'
-        ' Restart or End the simulation.'
-        ' '
-       ' You may interrupt the simulation by clicking on the '
-       ' ""stop"" button, change any of the block parameters'
-       ' and continue the simulation with the new values.']
-
-// Diagram menu ---------------------------------------------------
-case 'Replot (r)' then
-  mess=[' Select the Replot menu item to replot the content of'
-        ' the graphics window. Graphics window stores complete';
-       ' history of the editing session in memory.';
-       ' '
-       ' Replot is usefull for ''cleaning'' this memory.']
-
-case 'New' then
-  mess=[' Clicking on the New menu item loads an empty diagram in the';
-        ' active editor Scicos window. If the previous content of the';
-       ' window is not saved, it will be lost.']
-case 'Region to Super Block' then    
-  mess=[' This menu allows to transform a rectangular region of the'
-        ' current diagram by a super block.'
-       ' Click  on a corner of the region , drag an click left to'
-       ' fix the region (left click cancels selection)'
-       ' '
-       ' Region is replaced by a super block ans links are redrawn']
-case 'Purge' then
-   mess=[' select the Purge menu item to get a clean data structure:';
-         ' If diagram has been hugely modified many deleted blocks';
-        ' may remain in the data structure. It may be  usefull to';
-        ' suppress then before saving.']
-case 'Rename' then
-   mess=[' This menu allows to change the diagram name. An editable'
-         '  dialog box opens.']
-   
-case 'Save (s)' then
-   mess=[' select the save menu item to save the block diagram';
-         ' in a binary file already selected by a previous';
-        ' select the Save As menu item. If you select this';
-        ' menu item and you have never clicked on the Save As';
-        ' menu item, the diagram is saved in the current directory';
-        ' as <window_name>.cos where <window_name> is the name';
-        ' of the window appearing on top of the window (usually';
-       ' Untitled or Super Block).']
-case 'Save As' then
-  mess=[' select the Save As menu item to save the block diagram';
-         ' or palette in a  file. A dialog box allows choosing ';
-        ' the file which must have a .cos or .cosf extension. The diagram';
-        ' takes the name of the file (without the extension).'
-        ' '
-        ' If extension is "".cosf"" an ascii  formatted save is performed'
-        ' instead of binary save. Formatted save is slower than regular ';
-        ' save but has the advantage that the generated file is system ';
-         ' independent (usefull for exchanging data on different computers)']
-   
-case 'Load' then
-  mess=[' select the Load menu item to load an ascii or binary file';
-       ' containing a saved block diagram or palette.'
-       ' A dialog box allows user choosing the file.']
-    
-case 'Load as Palette' then
-  mess=[' select the Load menu item to load an ascii or binary file';
-       ' containing a saved block diagram as a palette.'
-       ' A dialog box allows user choosing the file.']
-    
-
-case 'Save as Palette' then
-  mess=[' select the Save as Palette menu item to save the block diagram';
-         ' as a palette in a  file. A dialog box allows choosing ';
-        ' the file which must have a .cos or .cosf extension. The palette';
-        ' takes the name of the file (without the extension).';
-         ' '
-        ' If extension is "".cosf"" an ascii  formatted save is performed'
-         ' instead of binary save. It may take a while'
-        ' '
-        ' .scilab user file is updated if necessary']
-
-
-case 'Save as Interf. Func.' then
-   mess=[' Select ""the Save as Interf. Func."" menu item to save the '
-         ' diagram as a new Scicos block. A Scilab function is generated'
-        ' and saved in a  file with "".sci"" extension. File name and path'
-        ' are to be set in a ""File menu"" dialog.']
-   
-case 'Set Diagram Info' then
-   mess=[' This menu allows to set users diagram informations'
-         ' these infos are stored in the diagram data structure'
-        ' and may be used as diagram user documentation'
-        ' '
-        ' information format may be redefined by user ']
-
-case 'Navigator' then
-   mess=[' This experimental menu opens a graphic window with a tree '
-         ' representation of the super blocks hierarchy. Each node '
-        ' represents a superblock.'
-        ' '
-        ' Navigator window is usefull to open directly a super-block'
-        ' every where in the hierarchy.']
-     
-case 'Quit (q)' then
-  mess=[' Click on the Exit menu item to close current diagram. '
-        ' If current diagram is not a Super block Exit menu item '
-        ' leave Scicos and return to Scilab session. Save your diagram ';
-       ' or palette before leaving.'
-       ' '
-       ' File/Close menu as the same effect']
-     
-//Object menu  --------------------------------------------------------
-case 'Open/Set (o)' then     
- mess=[' To change the parameters of a regular block or link, '
-       ' to open a super block, select first ';
-       ' this menu item, click next on the desired object.'
-       ' A dialog or edition window appears';
-       ' that allows you to modify object'
-       ' '
-       ' It is also possible to select a super block to open clicking'
-       ' on a node of the ""Navigator"" window'];
-   
-case 'Resize' then     
- mess=[' To change the size of a block , select first this menu item,';
-       ' click next on the desired block. A dialog appear that allows ';
-       ' you to change the width and/or height of the block shape.'];
-   
-case 'Icon' then     
- mess=[' To change the icon of a block, select first this menu item,';
-       ' click next on the desired block. A dialog appear that allows ';
-       ' you to enter scilab instructions used to draw the icon'
-       ' '
-       ' You may use the icon_edit function to generate the scilab'
-       ' instructions'];
-   
-   
-case 'Color' then     
- mess=[' To change the background color of an object, select first ';
-       ' this menu item, click next on the desired object. A dialog appear';
-       ' that allows you to choose the desired color'];
-   
-   
-case 'Label' then     
- mess=[' To add a label to block, select first this menu item, click next';
-       ' on the desired block. A dialog appear that allows you to enter ';
-       ' the desired label.';
-       ' labels are used to import data from a block in an other one'];
-case 'Get Info (i)' then     
- mess=[' This menu allows to get information on an object and on '
-       ' its connection with other diagram objects.'
-       ' '
-       ' Select this menu and click on an object'
-       ' This menu remains selected']
-case 'Identification' then     
- mess=[' This menu allows to set an identificator to a link or a block '
-       ' block identificators are drawn under the block icon. Super blocks'
-       ' input/output ports identificators are replicated over the block'
-       ' shape ports. Links identificators are not displayed'
-       ' '
-       ' Selecting this menu and clicking on a block or links opens an'
-       ' editable dialog box']
-case 'Documentation' then     
- mess=[' This menu allows to set or get documentation for a block '
-       ' '
-       ' Selecting this menu and clicking on a block  opens an'
-       ' editable dialog box']
-
-end
-if exists('mess')==0 then
+errcatch(-1,'continue','nomessage')
+mess=%scicos_help(name)
+errcatch(-1)
+if iserror(-1) then
+  errclear(-1)
   mess='No help available on this topic. Sorry.';
 end
-message(mess)
+message(mess)  
 
 
 
index 100e0aa..6a6a72f 100644 (file)
@@ -162,8 +162,10 @@ o(2)(8)=cop
 drawobj(o_n)
 drawobj(o)
 scs_m(k_n)=o
+if pixmap then xset('wshow'),end
+scs_m_save=scs_m,nc_save=needcompile
 needcompile=4
-
+[scs_m_save,nc_save,enable_undo,edited]=resume(scs_m_save,nc_save,%t,%t)
 
 
 
index fb794f3..a8c89ac 100644 (file)
@@ -49,6 +49,6 @@ MACROS = sysconv.sci readc_.sci lin.sci halt.sci bloc2exp.sci \
        get_absolute_file_path.sci get_function_path.sci\
        %c_mclose.sci mputl.sci dispfiles.sci fun2string.sci %cblock_p.sci\
        profile.sci get_profile.sci showprofile.sci plotprofile.sci \
-       ilib_for_link.sci ilib_unix_soname.sci scitest.sci
+       ilib_for_link.sci ilib_unix_soname.sci scitest.sci sci2excel.sci
 
 include ../Make.lib.amk
index f7e532c..5d1ba5f 100644 (file)
@@ -49,6 +49,6 @@ MACROS = sysconv.sci readc_.sci lin.sci halt.sci bloc2exp.sci \
        get_absolute_file_path.sci get_function_path.sci\
        %c_mclose.sci mputl.sci dispfiles.sci fun2string.sci %cblock_p.sci\
        profile.sci get_profile.sci showprofile.sci plotprofile.sci \
-       ilib_for_link.sci ilib_unix_soname.sci scitest.sci
+       ilib_for_link.sci ilib_unix_soname.sci scitest.sci sci2excel.sci
 
 include ../Make.lib.mak
index 63d56ad..cd134d3 100644 (file)
@@ -1,4 +1,4 @@
-function [scicos_pal,%scicos_menu,%scicos_short]=initial_scicos_tables()
+function [scicos_pal,%scicos_menu,%scicos_short,%scicos_help]=initial_scicos_tables()
 // Define scicos palettes of blocks
 scicos_pal=['Inputs_Outputs','SCI/macros/scicos/Inputs_Outputs.cosf'
       'Linear','SCI/macros/scicos/Linear.cosf';
@@ -25,3 +25,306 @@ scicos_pal=['Inputs_Outputs','SCI/macros/scicos/Inputs_Outputs.cosf'
 ['Delete','Copy','Move','Undo','Flip','Open/Set',..
     'Save','Get Info','Replot','Link','Quit']]'
 
+%scicos_help=tlist(..
+ ['sch','Window','Background color','Default link colors','ID font','3D aspect','Add color',..
+ 'Focus','Shift','Zoom in','Zoom out','Help','Calc','Palettes','Context','Smart Move',..
+ 'Move','Copy','Copy Region','Replace','Align','Link','Delete','Delete Region',..
+ 'Add new block','Flip','Undo','Setup','Compile','Eval','Run','Replot','New',..
+ 'Region to Super Block','Purge','Rename','Save','Save As','Load','Load as Palette',..
+ 'Save as Palette','Save as Interf. Func.','Set Diagram Info','Navigator','Quit','Open/Set',..
+ 'Resize','Icon','Color','Label','Get Info','Identification','Documentation'],..
+ [' In the active editor Scicos window, clicking on the ';
+ ' Window menu item invokes a dialog box that allows you to change ';
+ ' window dimensions'],..
+ [' This menu allows to change the background and defaukt foreground';' colors'],..
+ [' This menu allows to change the default color for regular ';' and event links'],..
+ [' This menu allows to change the font used to write the block';
+ ' identifications (see ""Set block ID"" menu)'],..
+ [' This menu allows to select 3D shape for blocks and ';' associated parameters'],..
+ [' This menu allows to add new color to the diagram private';
+ ' color map. Added colors are stored in the diagram data structure'],..
+ [' Focus menu allows to select a zone (click left, drag zone, click';
+ ' to select) which is focused on';
+ ' To change focus back use ""Zoom in"" menu'],..
+ [' To shift the diagram to left, right, up or down,';
+ ' select this menu item, then click on the point you want ';
+ ' to appear in the middle of the graphics window. '],..
+ [' When you select this menu item the diagram is zoomed in ';'by a factor of 10%'],..
+ [' When you select this menu item the diagram is zoomed out ';'by a factor of 10%'],..
+ [' To get help on an object or menu buttons,';
+ ' select first Help menu item and then on ';
+ ' the selected object or menu item.'],..
+ [' When you select this menu item you switch Scilab to ';
+ ' the pause mode (see the help on pause).';
+ ' In the Scilab main window and you may enter Scilab instructions';
+ ' to compute whatever you want.';
+ ' to go back to Scicos you need enter the ""return"" or';
+ ' ""[...]],=return(...)"" Scilab instruction.';
+ ' ';
+ ' If you use ""[...]=return(...)"" Scilab instruction take care';
+ ' not to modify Scicos variables such as ""scs_m"",""scs_gc"",';
+ ' ""menus"",""datam"",...';
+ ' ';
+ ' If you have modified scicos graphic window you may retore it ';
+ ' using the Scicos ""Replot"" menu.'],..
+ ' Select the Palettes menu item to open a predefined palette.',..
+ [' When you select this menu item you get a dialogue to';
+ ' enter scilab instructions for defining symbolic scicos parameters';
+ '  used in block definitions or to do whatever you want';
+ ' ';
+ ' These instructions will be evaluated each time the diagram ';
+ ' is loaded.';
+ ' ';
+ ' If you  change the value of a symbolic scicos parameters in ';
+ ' the contextyou can either click on the block(s) that use this';
+ ' variable or on the Eval menu item to update actual block parameter';
+ ' value.'],..
+ [' To move a block in  the active editor Scicos window';
+ ' or in edited palette keeping horizontal and vertical';
+ ' links, select first the ""Smart Move"" menu item, ';
+ ' then click on the selected block, link segment or link';
+ ' corner, drag the mouse to the desired new  position ';
+ ' and click left again to fix the position.';
+ ' ';
+ ' Right click cancel the move action'],..
+ [' To move a block in  the active editor Scicos window';
+ ' or in edited palette,';
+ ' select first the Move menu item, ';
+ ' then click on the selected block, link segment or link';
+ ' corner, drag the mouse to the desired new block position ';
+ ' and click left again to fix the position.';
+ ' ';
+ ' Right click cancel the move action'],..
+ ['To copy a block in the active editor Scicos window';
+ ' select first the Copy menu item, then';
+ ' click (with left button) on the to-be-copied block';
+ ' in Scicos windows or in a palette) ,  and';
+ ' finally click left where you want the copy';
+ ' be placed in the active editor Scicos window.';
+ ' ';
+ ' The lower left corner of the block is placed';
+ ' at the selected point.';
+ ' This menu remains active until user choose an other one';
+ ' ';
+ ' Right click cancel the copy action'],..
+ ['To copy a region in the active editor Scicos window';
+ ' select first the Copy menu item, then';
+ ' click (with right button) on a corner of the desired';
+ ' region (in Scicos windows or in a palette), drag to ';
+ ' define the region, click to fix the region  and';
+ ' finally click left where you want the copy.';
+ ' to be placed in the active editor Scicos window.';
+ ' NOTE: If source diagram is big be patient, region selection ';
+ ' may take a while.';
+ ' ';
+ ' The lower left corner of the block is placed';
+ ' at the selected point.';
+ ' ';
+ ' Right click cancel the copy action'],..
+ [' To replace a block in the active editor Scicos window';
+ ' select first the Replace menu item, then';
+ ' select the replacement block (in Scicos window or in a';
+ ' palette), and  finally click on the to-be-replaced block'],..
+ [' To obtain nice diagrams, you can align ports of';
+ ' different blocks, vertically and horizontally.';
+ ' Select first  the Align menu item, then click on the first';
+ ' port and finally on the second port.';
+ ' The block corresponding to the second port is moved.';
+ ' ';
+ ' A connected block cannot be aligned.'],..
+ [' To connect an output port to an input port,';
+ ' select first  the Link menu item, then click on the output';
+ ' port, drag, click left on each intermediate points';
+ ' and finally click left on the input port.';
+ ' ';
+ ' To split a link, select first  the Link menu item,';
+ ' then click left on the link where the split should be placed,';
+ ' drag, click left on each intermediate points';
+ ' and finally click left on the input port.';
+ ' ';
+ ' Right click cancel the link action';
+ ' ';
+ ' Only one link can go from and to a port.';
+ ' Link color can be changed directly by clicking';
+ ' on the link.';
+ ' ';
+ ' This menu remains active until user choose an other one'],..
+ ['To delete  blocks or a links, select first the Delete';
+ ' menu item, then click successively on the selected objects';
+ '(with left button).';
+ ' ';
+ ' When you delete a block all links connected to it';
+ ' are deleted as well.';
+ ' ';
+ ' This menu remains active until user choose an other one'],..
+ ['To delete a blocks in  a region, select first  the Delete Region';
+ ' menu item, then click  on a corner of the ';
+ ' desired region, drag to define the region, and click left to ';
+ ' fix the region. All connected links will be destroyed as';
+ ' well';
+ ' ';
+ ' Right click instead of left cancels the delete  action'],..
+ [' To add a newly defined block to the current palette or diagram';
+ ' select first this menu item, A dialog box will popup ';
+ ' asking for the name of the GUI function associated ';
+ ' with the block. If this function is not already loaded';
+ ' it was search in the current directory. The user may then';
+ ' click at the desired position of the block icon '],..
+ [' To reverse the positions of the (regular) inputs';
+ ' and outputs of a block placed on its sides,';
+ ' select the Flip menu item first and then click on the';
+ ' selected block. This does not affect the order,';
+ ' nor the position of the input and output event';
+ ' ports which are numbered from left to right.';
+ ' ';
+ ' A connected block cannot be flipped.'],..
+ [' Select the Undo menu item to undo the last edit operation.';
+ ' It is not possible to undo more!'],..
+ [' In the main Scicos window, clicking on the Setup menu item';
+ ' invokes a dialog box that allows you to change ';
+ ' integration parameters: ';
+ '   *final integration time';
+ '   *absolute and relative error tolerances';
+ '   *time tolerance (the smallest time interval for which ';
+ '         the ode solver is used to update continuous states)';
+ '   *deltat : the maximum time increase realized by a single';
+ '         call to the ode solver'],..
+ [' select the Compile menu item to compile the block diagram.';
+ ' This menu item need never be used since compilation is';
+ ' performed automatically, if necessary, before';
+ ' the beginning of every simulation (Run menu item).';
+ ' ';
+ ' Normally, a new compilation is not needed if only';
+ ' system parameters and internal states are modified.';
+ ' In some cases however these modifications are not';
+ ' correctly updated and a manual compilation may be';
+ ' needed before a Restart or a Continue.';
+ ' Please report if you encounter such a case.'],..
+ [' All dialogs user answers may be scilab instructions';
+ ' they are evaluated immediatly and stored as character strings.';
+ ' select this menu item to have them re-evaluated according to';
+ ' new values of underlying scilab variables. ';
+ ' ';
+ ' These underlying scilab variables may be user global variables';
+ ' defined before scicos was launch, They may also be defined in';
+ ' by the scicos context (see Context menu item)'],..
+ [' select the Run menu item to start the simulation.';
+ ' If the system has already been simulated, a';
+ ' dialog box appears where you can choose to Continue,';
+ ' Restart or End the simulation.';
+ ' ';
+ ' You may interrupt the simulation by clicking on the ';
+ ' ""stop"" button, change any of the block parameters';
+ ' and continue the simulation with the new values.'],..
+ [' Select the Replot menu item to replot the content of';
+ ' the graphics window. Graphics window stores complete';
+ ' history of the editing session in memory.';
+ ' ';
+ ' Replot is usefull for ''cleaning'' this memory.'],..
+ [' Clicking on the New menu item loads an empty diagram in the';
+ ' active editor Scicos window. If the previous content of the';
+ ' window is not saved, it will be lost.'],..
+ [' This menu allows to transform a rectangular region of the';
+ ' current diagram by a super block.';
+ ' Click  on a corner of the region , drag an click left to';
+ ' fix the region (left click cancels selection)';
+ ' ';
+ ' Region is replaced by a super block ans links are redrawn'],..
+ [' select the Purge menu item to get a clean data structure:';
+ ' If diagram has been hugely modified many deleted blocks';
+ ' may remain in the data structure. It may be  usefull to';
+ ' suppress then before saving.'],..
+ [' This menu allows to change the diagram name. An editable';'  dialog box opens.'],..
+ [' select the save menu item to save the block diagram';
+ ' in a binary file already selected by a previous';
+ ' select the Save As menu item. If you select this';
+ ' menu item and you have never clicked on the Save As';
+ ' menu item, the diagram is saved in the current directory';
+ ' as <window_name>.cos where <window_name> is the name';
+ ' of the window appearing on top of the window (usually';
+ ' Untitled or Super Block).'],..
+ [' select the Save As menu item to save the block diagram';
+ ' or palette in a  file. A dialog box allows choosing ';
+ ' the file which must have a .cos or .cosf extension. The diagram';
+ ' takes the name of the file (without the extension).';
+ ' ';
+ ' If extension is "".cosf"" an ascii  formatted save is performed';
+ ' instead of binary save. Formatted save is slower than regular ';
+ ' save but has the advantage that the generated file is system ';
+ ' independent (usefull for exchanging data on different computers)'],..
+ [' select the Load menu item to load an ascii or binary file';
+ ' containing a saved block diagram or palette.';
+ ' A dialog box allows user choosing the file.'],..
+ [' select the Load menu item to load an ascii or binary file';
+ ' containing a saved block diagram as a palette.';
+ ' A dialog box allows user choosing the file.'],..
+ [' select the Save as Palette menu item to save the block diagram';
+ ' as a palette in a  file. A dialog box allows choosing ';
+ ' the file which must have a .cos or .cosf extension. The palette';
+ ' takes the name of the file (without the extension).';
+ ' ';
+ ' If extension is "".cosf"" an ascii  formatted save is performed';
+ ' instead of binary save. It may take a while';
+ ' ';
+ ' .scilab user file is updated if necessary'],..
+ [' Select ""the Save as Interf. Func."" menu item to save the ';
+ ' diagram as a new Scicos block. A Scilab function is generated';
+ ' and saved in a  file with "".sci"" extension. File name and path';
+ ' are to be set in a ""File menu"" dialog.'],..
+ [' This menu allows to set users diagram informations';
+ ' these infos are stored in the diagram data structure';
+ ' and may be used as diagram user documentation';
+ ' ';
+ ' information format may be redefined by user '],..
+ [' This experimental menu opens a graphic window with a tree ';
+ ' representation of the super blocks hierarchy. Each node ';
+ ' represents a superblock.';
+ ' ';
+ ' Navigator window is usefull to open directly a super-block';
+ ' every where in the hierarchy.'],..
+ [' Click on the Exit menu item to close current diagram. ';
+ ' If current diagram is not a Super block Exit menu item ';
+ ' leave Scicos and return to Scilab session. Save your diagram ';
+ ' or palette before leaving.';
+ ' ';
+ ' File/Close menu as the same effect'],..
+ [' To change the parameters of a regular block or link, ';
+ ' to open a super block, select first ';
+ ' this menu item, click next on the desired object.';
+ ' A dialog or edition window appears';
+ ' that allows you to modify object';
+ ' ';
+ ' It is also possible to select a super block to open clicking';
+ ' on a node of the ""Navigator"" window'],..
+ [' To change the size of a block , select first this menu item,';
+ ' click next on the desired block. A dialog appear that allows ';
+ ' you to change the width and/or height of the block shape.'],..
+ [' To change the icon of a block, select first this menu item,';
+ ' click next on the desired block. A dialog appear that allows ';
+ ' you to enter scilab instructions used to draw the icon';
+ ' ';
+ ' You may use the icon_edit function to generate the scilab';
+ ' instructions'],..
+ [' To change the background color of an object, select first ';
+ ' this menu item, click next on the desired object. A dialog appear';
+ ' that allows you to choose the desired color'],..
+ [' To add a label to block, select first this menu item, click next';
+ ' on the desired block. A dialog appear that allows you to enter ';
+ ' the desired label.';
+ ' labels are used to import data from a block in an other one'],..
+ [' This menu allows to get information on an object and on ';
+ ' its connection with other diagram objects.';
+ ' ';
+ ' Select this menu and click on an object';
+ ' This menu remains selected'],..
+ [' This menu allows to set an identificator to a link or a block ';
+ ' block identificators are drawn under the block icon. Super blocks';
+ ' input/output ports identificators are replicated over the block';
+ ' shape ports. Links identificators are not displayed';
+ ' ';
+ ' Selecting this menu and clicking on a block or links opens an';
+ ' editable dialog box'],..
+ [' This menu allows to set or get documentation for a block ';
+ ' ';
+ ' Selecting this menu and clicking on a block  opens an';
+ ' editable dialog box'])
index 9b374b7..4365255 100755 (executable)
@@ -50,22 +50,22 @@ include ../Make.lib
 # according to compiler, do not optimize the following files
 
 hqror2.o: hqror2.f
-       $(FC)  -c hqror2.f -o hqror2.o
+       $(FC) -g -c hqror2.f -o hqror2.o
 
 comqr3.o: comqr3.f
-       $(FC)  -c comqr3.f -o comqr3.o
+       $(FC) -g -c comqr3.f -o comqr3.o
 
 tql2.o: tql2.f
-       $(FC)  -c tql2.f -o tql2.o
+       $(FC) -g -c tql2.f -o tql2.o
 
 imtql3.o: imtql3.f
-       $(FC)  -c imtql3.f -o imtql3.o
+       $(FC) -g -c imtql3.f -o imtql3.o
 
 dsvdc.o: dsvdc.f
-       $(FC)  -c dsvdc.f -o dsvdc.o
+       $(FC) -g -c dsvdc.f -o dsvdc.o
 
 wsvdc.o: wsvdc.f
-       $(FC)  -c wsvdc.f -o wsvdc.o
+       $(FC) -g -c wsvdc.f -o wsvdc.o
 
 pade.o: pade.f
-       $(FC)  -c pade.f -o pade.o
+       $(FC) -g -c pade.f -o pade.o
index b50e501..254f7cd 100755 (executable)
@@ -63,5 +63,5 @@ spops.o:       ../stack.h
 # according to compiler, do not optimize the following files
 
 intreadmps.o: intreadmps.f
-       $(FC)  -c intreadmps.f -o intreadmps.o
+       $(FC) -g -c intreadmps.f -o intreadmps.o
 
index 2686e40..5500a03 100644 (file)
@@ -20,7 +20,7 @@
 #include <X11/Xaw/Viewport.h>
 #include <X11/Xaw/Panner.h>    
 #include <X11/IntrinsicP.h>
-#include <X11/Xaw/ViewportP.h>
+#include <X11/Xaw3d/ViewportP.h>
 
 #include <string.h>
 #include <malloc.h>
index bcf9ce5..de5b406 100644 (file)
@@ -78,7 +78,7 @@ predef('all')
 %helps=initial_help_chapters()
 
 // Define scicos palettes of blocks, scicos_menus and shortcuts
-[scicos_pal,%scicos_menu,%scicos_short]=initial_scicos_tables()
+[scicos_pal,%scicos_menu,%scicos_short,%scicos_help]=initial_scicos_tables()
 %scicos_display_mode=0  // =1 if pixmap to be used for display
 
 //Define Initial demo tables, demolist is a two column matrix of strings