-// ====================================================================\r
-// Copyright INRIA 2008\r
-// Allan CORNET\r
-// ====================================================================\r
-\r
-mode(-1);\r
-lines(0);\r
-\r
-try \r
- version_scilab = getversion('scilab');\r
-catch \r
- warning('Scilab 5.0 or more is required.'); \r
- return;\r
-end; \r
-\r
-if ~haveacompiler() then\r
- warning('This toolbox requires a compiler to build.');\r
- return;\r
-end\r
-\r
-\r
-current_dir = pwd();\r
-main_dir_tlbx_sklt = get_absolute_file_path('builder.sce');\r
-\r
-\r
-disp('Build macros');\r
-chdir(main_dir_tlbx_sklt);\r
-// build macros\r
-if ( isdir('macros') ) then\r
- chdir('macros');\r
- exec('buildmacros.sce');\r
-else\r
-end\r
-\r
-disp('Build src C & fortran');\r
-chdir(main_dir_tlbx_sklt);\r
-if ( isdir('src') ) then \r
- chdir('src');\r
- exec('builder_src.sce',-1);\r
-else\r
-end\r
-\r
-disp('Build gateway C & fortran');\r
-chdir(main_dir_tlbx_sklt);\r
-if ( isdir('sci_gateway') ) then \r
- chdir('sci_gateway');\r
- exec('builder_gateway.sce',-1);\r
-else\r
-end\r
-\r
-disp('Build help');\r
-chdir(main_dir_tlbx_sklt);\r
-if ( isdir('help') ) then \r
- chdir('help');\r
- exec('builder_help.sce',-1);\r
-else\r
-end\r
-\r
-chdir(main_dir_tlbx_sklt);\r
-clear main_dir_tlbx_sklt;\r
-\r
-chdir(current_dir);\r
-clear current_dir;\r
-// ====================================================================\r
+// ====================================================================
+// Copyright INRIA 2008
+// Allan CORNET
+// ====================================================================
+
+mode(-1);
+lines(0);
+
+try
+ version_scilab = getversion('scilab');
+catch
+ warning('Scilab 5.0 or more is required.');
+ return;
+end;
+
+if ~haveacompiler() then
+ warning('This toolbox requires a compiler to build.');
+ return;
+end
+
+
+current_dir = pwd();
+main_dir_tlbx_sklt = get_absolute_file_path('builder.sce');
+
+
+disp('Build macros');
+chdir(main_dir_tlbx_sklt);
+// build macros
+if ( isdir('macros') ) then
+ chdir('macros');
+ exec('buildmacros.sce');
+else
+end
+
+disp('Build src C & fortran');
+chdir(main_dir_tlbx_sklt);
+if ( isdir('src') ) then
+ chdir('src');
+ exec('builder_src.sce',-1);
+else
+end
+
+disp('Build gateway C & fortran');
+chdir(main_dir_tlbx_sklt);
+if ( isdir('sci_gateway') ) then
+ chdir('sci_gateway');
+ exec('builder_gateway.sce',-1);
+else
+end
+
+disp('Build help');
+chdir(main_dir_tlbx_sklt);
+if ( isdir('help') ) then
+ chdir('help');
+ exec('builder_help.sce',-1);
+else
+end
+
+chdir(main_dir_tlbx_sklt);
+clear main_dir_tlbx_sklt;
+
+chdir(current_dir);
+clear current_dir;
+// ====================================================================
-// ====================================================================\r
-// Allan CORNET\r
-// Copyright INRIA 2008\r
+// ====================================================================
+// Allan CORNET
+// Copyright INRIA 2008
// ====================================================================
\ No newline at end of file
-// ====================================================================\r
-// Allan CORNET\r
-// Copyright INRIA 2008\r
-// ====================================================================\r
-warning_mode = warning('query');\r
-warning('off');\r
-\r
-disp('Start Toolbox skeleton');\r
-\r
-etc_tlbx = get_absolute_file_path('toolbox_skeleton.start');\r
-etc_tlbx = getshortpathname(etc_tlbx);\r
-\r
-root_tlbx = strncpy( etc_tlbx, length(etc_tlbx)-length('\etc\') );\r
-\r
-pathmacros = pathconvert( root_tlbx ) + 'macros'+ filesep();\r
-\r
-disp('Load macros');\r
-//Load functions librarie\r
-load(pathmacros+'lib');\r
-\r
-// load gateways\r
-disp('Load gateways');\r
-\r
-warning_mode = warning('query');\r
-warning('off');\r
-// load gateways\r
-exec( root_tlbx + '/sci_gateway/loader_gateway.sce' );\r
-warning(warning_mode);\r
-\r
-disp('Load help');\r
-//add help chapter\r
-path_addchapter = root_tlbx+"/help/"+getlanguage()+"/addchapter.sce";\r
- if ( fileinfo(path_addchapter) == [] ) then\r
- path_addchapter = root_tlbx+"/help/"+"+getdefaultlanguage()+"/addchapter.sce";\r
- end\r
-exec(path_addchapter);\r
-\r
-// ====================================================================\r
-clear warning_mode;\r
-clear path_addchapter;\r
-clear root_tlbx;\r
-clear etc_tlbx;\r
-clear pathmacros;\r
-clear pathconvert;\r
-// ====================================================================\r
-\r
+// ====================================================================
+// Allan CORNET
+// Copyright INRIA 2008
+// ====================================================================
+warning_mode = warning('query');
+warning('off');
+
+disp('Start Toolbox skeleton');
+
+etc_tlbx = get_absolute_file_path('toolbox_skeleton.start');
+etc_tlbx = getshortpathname(etc_tlbx);
+
+root_tlbx = strncpy( etc_tlbx, length(etc_tlbx)-length('\etc\') );
+
+pathmacros = pathconvert( root_tlbx ) + 'macros'+ filesep();
+
+disp('Load macros');
+//Load functions librarie
+load(pathmacros+'lib');
+
+// load gateways
+disp('Load gateways');
+
+warning_mode = warning('query');
+warning('off');
+// load gateways
+exec( root_tlbx + '/sci_gateway/loader_gateway.sce' );
+warning(warning_mode);
+
+disp('Load help');
+//add help chapter
+path_addchapter = root_tlbx+"/help/"+getlanguage()+"/addchapter.sce";
+ if ( fileinfo(path_addchapter) == [] ) then
+ path_addchapter = root_tlbx+"/help/"+"+getdefaultlanguage()+"/addchapter.sce";
+ end
+exec(path_addchapter);
+
+// ====================================================================
+clear warning_mode;
+clear path_addchapter;
+clear root_tlbx;
+clear etc_tlbx;
+clear pathmacros;
+clear pathconvert;
+// ====================================================================
+
-// ====================================================================\r
-// Copyright INRIA 2008\r
-// Allan CORNET\r
-// ====================================================================\r
-\r
-help_dir_tlbx_sklt = get_absolute_file_path('builder_help.sce');\r
-\r
-backup_dir = pwd();\r
-\r
-chdir(help_dir_tlbx_sklt);\r
-if ( isdir(getdefaultlanguage()) ) then \r
- chdir(getdefaultlanguage());\r
- exec('build_help.sce',-1);\r
-else\r
-end\r
-\r
-chdir(help_dir_tlbx_sklt);\r
-if ( isdir('fr_FR') ) then \r
- chdir('fr_FR');\r
- exec('build_help.sce',-1);\r
-else\r
-end\r
-\r
-chdir(backup_dir);\r
-\r
-// ====================================================================\r
-clear help_dir_tlbx_sklt;\r
-clear backup_dir;\r
-// ====================================================================\r
+// ====================================================================
+// Copyright INRIA 2008
+// Allan CORNET
+// ====================================================================
+
+help_dir_tlbx_sklt = get_absolute_file_path('builder_help.sce');
+
+backup_dir = pwd();
+
+chdir(help_dir_tlbx_sklt);
+if ( isdir(getdefaultlanguage()) ) then
+ chdir(getdefaultlanguage());
+ exec('build_help.sce',-1);
+else
+end
+
+chdir(help_dir_tlbx_sklt);
+if ( isdir('fr_FR') ) then
+ chdir('fr_FR');
+ exec('build_help.sce',-1);
+else
+end
+
+chdir(backup_dir);
+
+// ====================================================================
+clear help_dir_tlbx_sklt;
+clear backup_dir;
+// ====================================================================
-<!ELEMENT MAN (META?,LANGUAGE,TITLE,TYPE,DATE,NAME?,KEYWORD?,SHORT_DESCRIPTION*,\r
- CALLING_SEQUENCE?,PARAM?,DESCRIPTION?,SECTION*,EXAMPLE?,SEE_ALSO?,\r
- (AUTHOR|AUTHORS)?,BIBLIO?,USED_FUNCTIONS?)>\r
-\r
-<!ELEMENT META (#PCDATA) >\r
-\r
-<!ATTLIST META \r
-PATH CDATA "SCI/" \r
-CATEGORY CDATA "ScilabFunction" \r
-VERSION_SCI CDATA "2.7" \r
-VERSION_DOC CDATA "1.1" \r
-AUTHOR CDATA "Matthieu PHILIPPE revisited by Jean-Philippe Chancelier" \r
- >\r
-\r
-<!ELEMENT LANGUAGE (#PCDATA) >\r
-\r
-<!ELEMENT TITLE (#PCDATA) >\r
-\r
-<!ELEMENT TYPE (#PCDATA) >\r
-\r
-<!ELEMENT DATE (#PCDATA) >\r
-\r
-<!ELEMENT NAME (#PCDATA) >\r
-\r
-<!ELEMENT KEYWORD (#PCDATA) >\r
-\r
-<!ELEMENT SHORT_DESCRIPTION (#PCDATA|P|SP|PP|VERB)* >\r
-<!ATTLIST SHORT_DESCRIPTION name CDATA #REQUIRED >\r
-\r
-<!ELEMENT CALLING_SEQUENCE (CALLING_SEQUENCE_ITEM)* >\r
-<!ELEMENT CALLING_SEQUENCE_ITEM (#PCDATA) >\r
-\r
-<!ELEMENT PARAM (PARAM_INDENT)* >\r
-<!ATTLIST PARAM target (out|in) #IMPLIED >\r
-<!ELEMENT PARAM_INDENT (PARAM_ITEM)+ >\r
-<!ELEMENT PARAM_ITEM (PARAM_NAME,PARAM_DESCRIPTION) >\r
-<!ELEMENT PARAM_NAME (#PCDATA|VERB)* >\r
-<!ELEMENT PARAM_DESCRIPTION (P|SP|PP|TABLE|PARAM_INDENT|VERBATIM)* >\r
-\r
-<!ELEMENT DESCRIPTION (P|SP|PP|TABLE|DESCRIPTION_INDENT|ITEMIZE|VERBATIM)* >\r
-<!ELEMENT DESCRIPTION_INDENT (DESCRIPTION_ITEM)+ >\r
-<!ELEMENT DESCRIPTION_ITEM (P|SP|PP|TABLE|DESCRIPTION_INDENT|ITEMIZE|VERBATIM)* >\r
-<!ATTLIST DESCRIPTION_ITEM label CDATA #IMPLIED >\r
-\r
-<!ELEMENT SECTION (TABLE|ITEMIZE|P|SP|PP|VERBATIM)* >\r
-<!ATTLIST SECTION label CDATA #IMPLIED >\r
-\r
-<!ELEMENT EXAMPLE (#PCDATA) >\r
-<!ATTLIST EXAMPLE xml:space (default|preserve) #FIXED 'preserve'>\r
-\r
-<!ELEMENT SEE_ALSO (SEE_ALSO_ITEM)+ >\r
-<!ELEMENT SEE_ALSO_ITEM (LINK)* >\r
-\r
-<!ELEMENT AUTHORS (AUTHORS_ITEM)+>\r
-<!ELEMENT AUTHORS_ITEM (#PCDATA|P|SP|PP|ITEMIZE|VERB|EM|BD|TT|VERBATIM|A|LINK)* >\r
-<!ATTLIST AUTHORS_ITEM label CDATA #IMPLIED >\r
-\r
-<!ELEMENT AUTHOR (#PCDATA) >\r
-\r
-<!ELEMENT BIBLIO (P|SP|PP)* >\r
-\r
-<!ELEMENT USED_FUNCTIONS (P|SP|PP|TABLE|VERBATIM)* >\r
-\r
-<!ELEMENT A (#PCDATA|VERB)* >\r
-<!ATTLIST A href CDATA #REQUIRED >\r
-\r
-<!ELEMENT IMG (#PCDATA|VERB)* >\r
-<!ATTLIST IMG src CDATA #IMPLIED >\r
-\r
-<!ELEMENT LINK (#PCDATA)* >\r
-\r
-<!ELEMENT P (#PCDATA|VERB|EM|BD|TT|A|LINK|IMG)* >\r
-<!ELEMENT SP (#PCDATA|VERB|EM|BD|TT|A|LINK|IMG)* >\r
-<!ELEMENT PP (#PCDATA|VERB|EM|BD|TT|A|LINK|IMG)* >\r
-\r
-<!ELEMENT VERBATIM (#PCDATA) >\r
-\r
-<!ELEMENT ITEMIZE (ITEM)* >\r
-<!ATTLIST ITEMIZE label CDATA #IMPLIED >\r
-<!ELEMENT ITEM (TABLE|ITEMIZE|P|SP|PP|VERBATIM)* >\r
-<!ATTLIST ITEM label CDATA #IMPLIED >\r
-\r
-<!ELEMENT TABLE (TABLE_NEW_ROW)+ >\r
-<!ELEMENT TABLE_NEW_ROW (TABLE_NEW_COLUMN)+ >\r
-<!ELEMENT TABLE_NEW_COLUMN (#PCDATA|VERB|EM|BD|TT)* >\r
-\r
-<!ELEMENT MATH (#PCDATA ) >\r
-\r
-<!ELEMENT VERB (#PCDATA )>\r
-\r
-<!ELEMENT EM (#PCDATA )>\r
-\r
-<!ELEMENT BD (#PCDATA )>\r
-\r
-<!ELEMENT TT (#PCDATA )>\r
-\r
-<!ELEMENT REMARKS (#PCDATA )>\r
-\r
+<!ELEMENT MAN (META?,LANGUAGE,TITLE,TYPE,DATE,NAME?,KEYWORD?,SHORT_DESCRIPTION*,
+ CALLING_SEQUENCE?,PARAM?,DESCRIPTION?,SECTION*,EXAMPLE?,SEE_ALSO?,
+ (AUTHOR|AUTHORS)?,BIBLIO?,USED_FUNCTIONS?)>
+
+<!ELEMENT META (#PCDATA) >
+
+<!ATTLIST META
+PATH CDATA "SCI/"
+CATEGORY CDATA "ScilabFunction"
+VERSION_SCI CDATA "2.7"
+VERSION_DOC CDATA "1.1"
+AUTHOR CDATA "Matthieu PHILIPPE revisited by Jean-Philippe Chancelier"
+ >
+
+<!ELEMENT LANGUAGE (#PCDATA) >
+
+<!ELEMENT TITLE (#PCDATA) >
+
+<!ELEMENT TYPE (#PCDATA) >
+
+<!ELEMENT DATE (#PCDATA) >
+
+<!ELEMENT NAME (#PCDATA) >
+
+<!ELEMENT KEYWORD (#PCDATA) >
+
+<!ELEMENT SHORT_DESCRIPTION (#PCDATA|P|SP|PP|VERB)* >
+<!ATTLIST SHORT_DESCRIPTION name CDATA #REQUIRED >
+
+<!ELEMENT CALLING_SEQUENCE (CALLING_SEQUENCE_ITEM)* >
+<!ELEMENT CALLING_SEQUENCE_ITEM (#PCDATA) >
+
+<!ELEMENT PARAM (PARAM_INDENT)* >
+<!ATTLIST PARAM target (out|in) #IMPLIED >
+<!ELEMENT PARAM_INDENT (PARAM_ITEM)+ >
+<!ELEMENT PARAM_ITEM (PARAM_NAME,PARAM_DESCRIPTION) >
+<!ELEMENT PARAM_NAME (#PCDATA|VERB)* >
+<!ELEMENT PARAM_DESCRIPTION (P|SP|PP|TABLE|PARAM_INDENT|VERBATIM)* >
+
+<!ELEMENT DESCRIPTION (P|SP|PP|TABLE|DESCRIPTION_INDENT|ITEMIZE|VERBATIM)* >
+<!ELEMENT DESCRIPTION_INDENT (DESCRIPTION_ITEM)+ >
+<!ELEMENT DESCRIPTION_ITEM (P|SP|PP|TABLE|DESCRIPTION_INDENT|ITEMIZE|VERBATIM)* >
+<!ATTLIST DESCRIPTION_ITEM label CDATA #IMPLIED >
+
+<!ELEMENT SECTION (TABLE|ITEMIZE|P|SP|PP|VERBATIM)* >
+<!ATTLIST SECTION label CDATA #IMPLIED >
+
+<!ELEMENT EXAMPLE (#PCDATA) >
+<!ATTLIST EXAMPLE xml:space (default|preserve) #FIXED 'preserve'>
+
+<!ELEMENT SEE_ALSO (SEE_ALSO_ITEM)+ >
+<!ELEMENT SEE_ALSO_ITEM (LINK)* >
+
+<!ELEMENT AUTHORS (AUTHORS_ITEM)+>
+<!ELEMENT AUTHORS_ITEM (#PCDATA|P|SP|PP|ITEMIZE|VERB|EM|BD|TT|VERBATIM|A|LINK)* >
+<!ATTLIST AUTHORS_ITEM label CDATA #IMPLIED >
+
+<!ELEMENT AUTHOR (#PCDATA) >
+
+<!ELEMENT BIBLIO (P|SP|PP)* >
+
+<!ELEMENT USED_FUNCTIONS (P|SP|PP|TABLE|VERBATIM)* >
+
+<!ELEMENT A (#PCDATA|VERB)* >
+<!ATTLIST A href CDATA #REQUIRED >
+
+<!ELEMENT IMG (#PCDATA|VERB)* >
+<!ATTLIST IMG src CDATA #IMPLIED >
+
+<!ELEMENT LINK (#PCDATA)* >
+
+<!ELEMENT P (#PCDATA|VERB|EM|BD|TT|A|LINK|IMG)* >
+<!ELEMENT SP (#PCDATA|VERB|EM|BD|TT|A|LINK|IMG)* >
+<!ELEMENT PP (#PCDATA|VERB|EM|BD|TT|A|LINK|IMG)* >
+
+<!ELEMENT VERBATIM (#PCDATA) >
+
+<!ELEMENT ITEMIZE (ITEM)* >
+<!ATTLIST ITEMIZE label CDATA #IMPLIED >
+<!ELEMENT ITEM (TABLE|ITEMIZE|P|SP|PP|VERBATIM)* >
+<!ATTLIST ITEM label CDATA #IMPLIED >
+
+<!ELEMENT TABLE (TABLE_NEW_ROW)+ >
+<!ELEMENT TABLE_NEW_ROW (TABLE_NEW_COLUMN)+ >
+<!ELEMENT TABLE_NEW_COLUMN (#PCDATA|VERB|EM|BD|TT)* >
+
+<!ELEMENT MATH (#PCDATA ) >
+
+<!ELEMENT VERB (#PCDATA )>
+
+<!ELEMENT EM (#PCDATA )>
+
+<!ELEMENT BD (#PCDATA )>
+
+<!ELEMENT TT (#PCDATA )>
+
+<!ELEMENT REMARKS (#PCDATA )>
+
-// ====================================================================\r
-// help toolbox_skeleton toolbox\r
-// Add chapter\r
-// Copyright INRIA 2008\r
-// Allan CORNET\r
-// ====================================================================\r
-path = get_absolute_file_path('addchapter.sce');\r
-add_help_chapter("Toolbox skeleton",path,%F);\r
-clear path add_help_chapter;\r
-// ====================================================================\r
+// ====================================================================
+// help toolbox_skeleton toolbox
+// Add chapter
+// Copyright INRIA 2008
+// Allan CORNET
+// ====================================================================
+path = get_absolute_file_path('addchapter.sce');
+add_help_chapter("Toolbox skeleton",path,%F);
+clear path add_help_chapter;
+// ====================================================================
-// ====================================================================\r
-// Copyright INRIA 2008\r
-// Allan CORNET\r
-// ====================================================================\r
-\r
-help_dir = get_absolute_file_path('build_help.sce');\r
-\r
-xmltohtml(help_dir,'Toolbox Skeleton');\r
-\r
-// ====================================================================\r
-clear help_dir;\r
-clear xmltohtml;\r
-// ====================================================================\r
+// ====================================================================
+// Copyright INRIA 2008
+// Allan CORNET
+// ====================================================================
+
+help_dir = get_absolute_file_path('build_help.sce');
+
+xmltohtml(help_dir,'Toolbox Skeleton');
+
+// ====================================================================
+clear help_dir;
+clear xmltohtml;
+// ====================================================================
-<?xml version="1.0" encoding="UTF-8"?>\r
-<!DOCTYPE MAN SYSTEM "../help.dtd">\r
-<MAN>\r
- <LANGUAGE>eng</LANGUAGE>\r
- <TITLE>c_sum</TITLE>\r
- <TYPE>Scilab Function</TYPE>\r
- <DATE>13-01-2008</DATE>\r
- <SHORT_DESCRIPTION name="c_sum">sum from C</SHORT_DESCRIPTION>\r
-\r
- <CALLING_SEQUENCE>\r
- <CALLING_SEQUENCE_ITEM>a = c_sum(b,c)</CALLING_SEQUENCE_ITEM>\r
- </CALLING_SEQUENCE>\r
-\r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>a</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- result of c_sum\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
- \r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>b</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- a value\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
- \r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>c</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- a value\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
-\r
- <DESCRIPTION>\r
- <DESCRIPTION_INDENT>\r
- <DESCRIPTION_ITEM>\r
- <P>\r
- Do a sum.\r
- </P>\r
- </DESCRIPTION_ITEM>\r
- <DESCRIPTION_ITEM>\r
- <P>\r
- Add here a paragraph of the function description \r
- </P>\r
- </DESCRIPTION_ITEM>\r
- </DESCRIPTION_INDENT>\r
- </DESCRIPTION>\r
-\r
- <EXAMPLE>\r
- <![CDATA[\r
- c_sum(3,4)\r
- ]]>\r
- </EXAMPLE>\r
-\r
- <SEE_ALSO>\r
- <SEE_ALSO_ITEM><LINK>fortran_sum</LINK></SEE_ALSO_ITEM>\r
- <SEE_ALSO_ITEM><LINK>scilab_sum</LINK></SEE_ALSO_ITEM>\r
- </SEE_ALSO>\r
-\r
- <AUTHORS>\r
- <AUTHORS_ITEM label="enter here the author name">\r
- Add here the author references\r
- </AUTHORS_ITEM>\r
- </AUTHORS>\r
-\r
- <BIBLIO>\r
- <SP>\r
- Add here the function bibliography if any\r
- </SP>\r
- </BIBLIO>\r
-\r
- <USED_FUNCTIONS>\r
- <SP>\r
- Add here the used function name and references\r
- </SP>\r
- </USED_FUNCTIONS>\r
-</MAN>\r
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE MAN SYSTEM "../help.dtd">
+<MAN>
+ <LANGUAGE>eng</LANGUAGE>
+ <TITLE>c_sum</TITLE>
+ <TYPE>Scilab Function</TYPE>
+ <DATE>13-01-2008</DATE>
+ <SHORT_DESCRIPTION name="c_sum">sum from C</SHORT_DESCRIPTION>
+
+ <CALLING_SEQUENCE>
+ <CALLING_SEQUENCE_ITEM>a = c_sum(b,c)</CALLING_SEQUENCE_ITEM>
+ </CALLING_SEQUENCE>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>a</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ result of c_sum
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>b</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ a value
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>c</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ a value
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <DESCRIPTION>
+ <DESCRIPTION_INDENT>
+ <DESCRIPTION_ITEM>
+ <P>
+ Do a sum.
+ </P>
+ </DESCRIPTION_ITEM>
+ <DESCRIPTION_ITEM>
+ <P>
+ Add here a paragraph of the function description
+ </P>
+ </DESCRIPTION_ITEM>
+ </DESCRIPTION_INDENT>
+ </DESCRIPTION>
+
+ <EXAMPLE>
+ <![CDATA[
+ c_sum(3,4)
+ ]]>
+ </EXAMPLE>
+
+ <SEE_ALSO>
+ <SEE_ALSO_ITEM><LINK>fortran_sum</LINK></SEE_ALSO_ITEM>
+ <SEE_ALSO_ITEM><LINK>scilab_sum</LINK></SEE_ALSO_ITEM>
+ </SEE_ALSO>
+
+ <AUTHORS>
+ <AUTHORS_ITEM label="enter here the author name">
+ Add here the author references
+ </AUTHORS_ITEM>
+ </AUTHORS>
+
+ <BIBLIO>
+ <SP>
+ Add here the function bibliography if any
+ </SP>
+ </BIBLIO>
+
+ <USED_FUNCTIONS>
+ <SP>
+ Add here the used function name and references
+ </SP>
+ </USED_FUNCTIONS>
+</MAN>
-<?xml version="1.0" encoding="UTF-8"?>\r
-<!DOCTYPE MAN SYSTEM "../help.dtd">\r
-<MAN>\r
- <LANGUAGE>eng</LANGUAGE>\r
- <TITLE>fortran_sum</TITLE>\r
- <TYPE>Scilab Function</TYPE>\r
- <DATE>13-01-2008</DATE>\r
- <SHORT_DESCRIPTION name="fortran_sum">sum from fortran</SHORT_DESCRIPTION>\r
-\r
- <CALLING_SEQUENCE>\r
- <CALLING_SEQUENCE_ITEM>a = fortran_sum(b,c)</CALLING_SEQUENCE_ITEM>\r
- </CALLING_SEQUENCE>\r
-\r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>a</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- result of fortran_sum\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
- \r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>b</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- a value\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
- \r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>c</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- a value\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
-\r
- <DESCRIPTION>\r
- <DESCRIPTION_INDENT>\r
- <DESCRIPTION_ITEM>\r
- <P>\r
- Do a sum.\r
- </P>\r
- </DESCRIPTION_ITEM>\r
- <DESCRIPTION_ITEM>\r
- <P>\r
- Add here a paragraph of the function description \r
- </P>\r
- </DESCRIPTION_ITEM>\r
- </DESCRIPTION_INDENT>\r
- </DESCRIPTION>\r
-\r
- <EXAMPLE>\r
- <![CDATA[\r
- fortran_sum(3,4)\r
- ]]>\r
- </EXAMPLE>\r
-\r
- <SEE_ALSO>\r
- <SEE_ALSO_ITEM><LINK>c_sum</LINK></SEE_ALSO_ITEM>\r
- <SEE_ALSO_ITEM><LINK>scilab_sum</LINK></SEE_ALSO_ITEM>\r
- </SEE_ALSO>\r
-\r
- <AUTHORS>\r
- <AUTHORS_ITEM label="enter here the author name">\r
- Add here the author references\r
- </AUTHORS_ITEM>\r
- </AUTHORS>\r
-\r
- <BIBLIO>\r
- <SP>\r
- Add here the function bibliography if any\r
- </SP>\r
- </BIBLIO>\r
-\r
- <USED_FUNCTIONS>\r
- <SP>\r
- Add here the used function name and references\r
- </SP>\r
- </USED_FUNCTIONS>\r
-</MAN>\r
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE MAN SYSTEM "../help.dtd">
+<MAN>
+ <LANGUAGE>eng</LANGUAGE>
+ <TITLE>fortran_sum</TITLE>
+ <TYPE>Scilab Function</TYPE>
+ <DATE>13-01-2008</DATE>
+ <SHORT_DESCRIPTION name="fortran_sum">sum from fortran</SHORT_DESCRIPTION>
+
+ <CALLING_SEQUENCE>
+ <CALLING_SEQUENCE_ITEM>a = fortran_sum(b,c)</CALLING_SEQUENCE_ITEM>
+ </CALLING_SEQUENCE>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>a</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ result of fortran_sum
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>b</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ a value
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>c</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ a value
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <DESCRIPTION>
+ <DESCRIPTION_INDENT>
+ <DESCRIPTION_ITEM>
+ <P>
+ Do a sum.
+ </P>
+ </DESCRIPTION_ITEM>
+ <DESCRIPTION_ITEM>
+ <P>
+ Add here a paragraph of the function description
+ </P>
+ </DESCRIPTION_ITEM>
+ </DESCRIPTION_INDENT>
+ </DESCRIPTION>
+
+ <EXAMPLE>
+ <![CDATA[
+ fortran_sum(3,4)
+ ]]>
+ </EXAMPLE>
+
+ <SEE_ALSO>
+ <SEE_ALSO_ITEM><LINK>c_sum</LINK></SEE_ALSO_ITEM>
+ <SEE_ALSO_ITEM><LINK>scilab_sum</LINK></SEE_ALSO_ITEM>
+ </SEE_ALSO>
+
+ <AUTHORS>
+ <AUTHORS_ITEM label="enter here the author name">
+ Add here the author references
+ </AUTHORS_ITEM>
+ </AUTHORS>
+
+ <BIBLIO>
+ <SP>
+ Add here the function bibliography if any
+ </SP>
+ </BIBLIO>
+
+ <USED_FUNCTIONS>
+ <SP>
+ Add here the used function name and references
+ </SP>
+ </USED_FUNCTIONS>
+</MAN>
-<?xml version="1.0" encoding="UTF-8"?>\r
-<!DOCTYPE MAN SYSTEM "../help.dtd">\r
-<MAN>\r
- <LANGUAGE>eng</LANGUAGE>\r
- <TITLE>scilab_sum</TITLE>\r
- <TYPE>Scilab Function</TYPE>\r
- <DATE>13-01-2008</DATE>\r
- <SHORT_DESCRIPTION name="scilab_sum">sum from scilab</SHORT_DESCRIPTION>\r
-\r
- <CALLING_SEQUENCE>\r
- <CALLING_SEQUENCE_ITEM>a = scilab_sum(b,c)</CALLING_SEQUENCE_ITEM>\r
- </CALLING_SEQUENCE>\r
-\r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>a</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- result of scilab_sum\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
- \r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>b</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- a value\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
- \r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>c</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- a value\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
-\r
- <DESCRIPTION>\r
- <DESCRIPTION_INDENT>\r
- <DESCRIPTION_ITEM>\r
- <P>\r
- Do a sum.\r
- </P>\r
- </DESCRIPTION_ITEM>\r
- <DESCRIPTION_ITEM>\r
- <P>\r
- Add here a paragraph of the function description \r
- </P>\r
- </DESCRIPTION_ITEM>\r
- </DESCRIPTION_INDENT>\r
- </DESCRIPTION>\r
-\r
- <EXAMPLE>\r
- <![CDATA[\r
- scilab_sum(3,4)\r
- ]]>\r
- </EXAMPLE>\r
-\r
- <SEE_ALSO>\r
- <SEE_ALSO_ITEM><LINK>fortran_sum</LINK></SEE_ALSO_ITEM>\r
- <SEE_ALSO_ITEM><LINK>c_sum</LINK></SEE_ALSO_ITEM>\r
- </SEE_ALSO>\r
-\r
- <AUTHORS>\r
- <AUTHORS_ITEM label="enter here the author name">\r
- Add here the author references\r
- </AUTHORS_ITEM>\r
- </AUTHORS>\r
-\r
- <BIBLIO>\r
- <SP>\r
- Add here the function bibliography if any\r
- </SP>\r
- </BIBLIO>\r
-\r
- <USED_FUNCTIONS>\r
- <SP>\r
- Add here the used function name and references\r
- </SP>\r
- </USED_FUNCTIONS>\r
-</MAN>\r
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE MAN SYSTEM "../help.dtd">
+<MAN>
+ <LANGUAGE>eng</LANGUAGE>
+ <TITLE>scilab_sum</TITLE>
+ <TYPE>Scilab Function</TYPE>
+ <DATE>13-01-2008</DATE>
+ <SHORT_DESCRIPTION name="scilab_sum">sum from scilab</SHORT_DESCRIPTION>
+
+ <CALLING_SEQUENCE>
+ <CALLING_SEQUENCE_ITEM>a = scilab_sum(b,c)</CALLING_SEQUENCE_ITEM>
+ </CALLING_SEQUENCE>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>a</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ result of scilab_sum
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>b</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ a value
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>c</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ a value
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <DESCRIPTION>
+ <DESCRIPTION_INDENT>
+ <DESCRIPTION_ITEM>
+ <P>
+ Do a sum.
+ </P>
+ </DESCRIPTION_ITEM>
+ <DESCRIPTION_ITEM>
+ <P>
+ Add here a paragraph of the function description
+ </P>
+ </DESCRIPTION_ITEM>
+ </DESCRIPTION_INDENT>
+ </DESCRIPTION>
+
+ <EXAMPLE>
+ <![CDATA[
+ scilab_sum(3,4)
+ ]]>
+ </EXAMPLE>
+
+ <SEE_ALSO>
+ <SEE_ALSO_ITEM><LINK>fortran_sum</LINK></SEE_ALSO_ITEM>
+ <SEE_ALSO_ITEM><LINK>c_sum</LINK></SEE_ALSO_ITEM>
+ </SEE_ALSO>
+
+ <AUTHORS>
+ <AUTHORS_ITEM label="enter here the author name">
+ Add here the author references
+ </AUTHORS_ITEM>
+ </AUTHORS>
+
+ <BIBLIO>
+ <SP>
+ Add here the function bibliography if any
+ </SP>
+ </BIBLIO>
+
+ <USED_FUNCTIONS>
+ <SP>
+ Add here the used function name and references
+ </SP>
+ </USED_FUNCTIONS>
+</MAN>
-// ====================================================================\r
-// help toolbox_skeleton toolbox\r
-// Add chapter\r
-// Copyright INRIA 2008\r
-// Allan CORNET\r
-// ====================================================================\r
-path = get_absolute_file_path('addchapter.sce');\r
-add_help_chapter("Toolbox skeleton",path,%F);\r
-clear path add_help_chapter;\r
-// ====================================================================\r
+// ====================================================================
+// help toolbox_skeleton toolbox
+// Add chapter
+// Copyright INRIA 2008
+// Allan CORNET
+// ====================================================================
+path = get_absolute_file_path('addchapter.sce');
+add_help_chapter("Toolbox skeleton",path,%F);
+clear path add_help_chapter;
+// ====================================================================
-// ====================================================================\r
-// Copyright INRIA 2008\r
-// Allan CORNET\r
-// ====================================================================\r
-\r
-help_dir = get_absolute_file_path('build_help.sce');\r
-\r
-xmltohtml(help_dir,'Toolbox Skeleton');\r
-\r
-// ====================================================================\r
-clear help_dir;\r
-clear xmltohtml;\r
-// ====================================================================\r
+// ====================================================================
+// Copyright INRIA 2008
+// Allan CORNET
+// ====================================================================
+
+help_dir = get_absolute_file_path('build_help.sce');
+
+xmltohtml(help_dir,'Toolbox Skeleton');
+
+// ====================================================================
+clear help_dir;
+clear xmltohtml;
+// ====================================================================
-<?xml version="1.0" encoding="UTF-8"?>\r
-<!DOCTYPE MAN SYSTEM "../help.dtd">\r
-<MAN>\r
- <LANGUAGE>fr</LANGUAGE>\r
- <TITLE>c_sum</TITLE>\r
- <TYPE>Scilab Function</TYPE>\r
- <DATE>13-01-2008</DATE>\r
- <SHORT_DESCRIPTION name="c_sum">calcule la somme depuis une fonction C</SHORT_DESCRIPTION>\r
-\r
- <CALLING_SEQUENCE>\r
- <CALLING_SEQUENCE_ITEM>a = c_sum(b,c)</CALLING_SEQUENCE_ITEM>\r
- </CALLING_SEQUENCE>\r
-\r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>a</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- resultat de c_sum\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
- \r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>b</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- un nombre\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
- \r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>c</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- un nombre\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
-\r
- <DESCRIPTION>\r
- <DESCRIPTION_INDENT>\r
- <DESCRIPTION_ITEM>\r
- <P>\r
- effectue la somme b+c.\r
- </P>\r
- </DESCRIPTION_ITEM>\r
- <DESCRIPTION_ITEM>\r
- <P>\r
- Add here a paragraph of the function description \r
- </P>\r
- </DESCRIPTION_ITEM>\r
- </DESCRIPTION_INDENT>\r
- </DESCRIPTION>\r
-\r
- <EXAMPLE>\r
- <![CDATA[\r
- c_sum(3,4)\r
- ]]>\r
- </EXAMPLE>\r
-\r
- <SEE_ALSO>\r
- <SEE_ALSO_ITEM><LINK>fortran_sum</LINK></SEE_ALSO_ITEM>\r
- <SEE_ALSO_ITEM><LINK>scilab_sum</LINK></SEE_ALSO_ITEM>\r
- </SEE_ALSO>\r
-\r
- <AUTHORS>\r
- <AUTHORS_ITEM label="enter here the author name">\r
- Add here the author references\r
- </AUTHORS_ITEM>\r
- </AUTHORS>\r
-\r
- <BIBLIO>\r
- <SP>\r
- Add here the function bibliography if any\r
- </SP>\r
- </BIBLIO>\r
-\r
- <USED_FUNCTIONS>\r
- <SP>\r
- Add here the used function name and references\r
- </SP>\r
- </USED_FUNCTIONS>\r
-</MAN>\r
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE MAN SYSTEM "../help.dtd">
+<MAN>
+ <LANGUAGE>fr</LANGUAGE>
+ <TITLE>c_sum</TITLE>
+ <TYPE>Scilab Function</TYPE>
+ <DATE>13-01-2008</DATE>
+ <SHORT_DESCRIPTION name="c_sum">calcule la somme depuis une fonction C</SHORT_DESCRIPTION>
+
+ <CALLING_SEQUENCE>
+ <CALLING_SEQUENCE_ITEM>a = c_sum(b,c)</CALLING_SEQUENCE_ITEM>
+ </CALLING_SEQUENCE>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>a</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ resultat de c_sum
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>b</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ un nombre
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>c</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ un nombre
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <DESCRIPTION>
+ <DESCRIPTION_INDENT>
+ <DESCRIPTION_ITEM>
+ <P>
+ effectue la somme b+c.
+ </P>
+ </DESCRIPTION_ITEM>
+ <DESCRIPTION_ITEM>
+ <P>
+ Add here a paragraph of the function description
+ </P>
+ </DESCRIPTION_ITEM>
+ </DESCRIPTION_INDENT>
+ </DESCRIPTION>
+
+ <EXAMPLE>
+ <![CDATA[
+ c_sum(3,4)
+ ]]>
+ </EXAMPLE>
+
+ <SEE_ALSO>
+ <SEE_ALSO_ITEM><LINK>fortran_sum</LINK></SEE_ALSO_ITEM>
+ <SEE_ALSO_ITEM><LINK>scilab_sum</LINK></SEE_ALSO_ITEM>
+ </SEE_ALSO>
+
+ <AUTHORS>
+ <AUTHORS_ITEM label="enter here the author name">
+ Add here the author references
+ </AUTHORS_ITEM>
+ </AUTHORS>
+
+ <BIBLIO>
+ <SP>
+ Add here the function bibliography if any
+ </SP>
+ </BIBLIO>
+
+ <USED_FUNCTIONS>
+ <SP>
+ Add here the used function name and references
+ </SP>
+ </USED_FUNCTIONS>
+</MAN>
-<?xml version="1.0" encoding="UTF-8"?>\r
-<!DOCTYPE MAN SYSTEM "../help.dtd">\r
-<MAN>\r
- <LANGUAGE>fr</LANGUAGE>\r
- <TITLE>fortran_sum</TITLE>\r
- <TYPE>Scilab Function</TYPE>\r
- <DATE>13-01-2008</DATE>\r
- <SHORT_DESCRIPTION name="fortran_sum">calcule la somme depuis une fonction fortran</SHORT_DESCRIPTION>\r
-\r
- <CALLING_SEQUENCE>\r
- <CALLING_SEQUENCE_ITEM>a = fortran_sum(b,c)</CALLING_SEQUENCE_ITEM>\r
- </CALLING_SEQUENCE>\r
-\r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>a</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- resultat de fortran_sum\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
- \r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>b</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- un nombre\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
- \r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>c</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- un nombre\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
-\r
- <DESCRIPTION>\r
- <DESCRIPTION_INDENT>\r
- <DESCRIPTION_ITEM>\r
- <P>\r
- effectue la somme b+c.\r
- </P>\r
- </DESCRIPTION_ITEM>\r
- <DESCRIPTION_ITEM>\r
- <P>\r
- Add here a paragraph of the function description \r
- </P>\r
- </DESCRIPTION_ITEM>\r
- </DESCRIPTION_INDENT>\r
- </DESCRIPTION>\r
-\r
- <EXAMPLE>\r
- <![CDATA[\r
- fortran_sum(3,4)\r
- ]]>\r
- </EXAMPLE>\r
-\r
- <SEE_ALSO>\r
- <SEE_ALSO_ITEM><LINK>c_sum</LINK></SEE_ALSO_ITEM>\r
- <SEE_ALSO_ITEM><LINK>scilab_sum</LINK></SEE_ALSO_ITEM>\r
- </SEE_ALSO>\r
-\r
- <AUTHORS>\r
- <AUTHORS_ITEM label="enter here the author name">\r
- Add here the author references\r
- </AUTHORS_ITEM>\r
- </AUTHORS>\r
-\r
- <BIBLIO>\r
- <SP>\r
- Add here the function bibliography if any\r
- </SP>\r
- </BIBLIO>\r
-\r
- <USED_FUNCTIONS>\r
- <SP>\r
- Add here the used function name and references\r
- </SP>\r
- </USED_FUNCTIONS>\r
-</MAN>\r
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE MAN SYSTEM "../help.dtd">
+<MAN>
+ <LANGUAGE>fr</LANGUAGE>
+ <TITLE>fortran_sum</TITLE>
+ <TYPE>Scilab Function</TYPE>
+ <DATE>13-01-2008</DATE>
+ <SHORT_DESCRIPTION name="fortran_sum">calcule la somme depuis une fonction fortran</SHORT_DESCRIPTION>
+
+ <CALLING_SEQUENCE>
+ <CALLING_SEQUENCE_ITEM>a = fortran_sum(b,c)</CALLING_SEQUENCE_ITEM>
+ </CALLING_SEQUENCE>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>a</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ resultat de fortran_sum
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>b</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ un nombre
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>c</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ un nombre
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <DESCRIPTION>
+ <DESCRIPTION_INDENT>
+ <DESCRIPTION_ITEM>
+ <P>
+ effectue la somme b+c.
+ </P>
+ </DESCRIPTION_ITEM>
+ <DESCRIPTION_ITEM>
+ <P>
+ Add here a paragraph of the function description
+ </P>
+ </DESCRIPTION_ITEM>
+ </DESCRIPTION_INDENT>
+ </DESCRIPTION>
+
+ <EXAMPLE>
+ <![CDATA[
+ fortran_sum(3,4)
+ ]]>
+ </EXAMPLE>
+
+ <SEE_ALSO>
+ <SEE_ALSO_ITEM><LINK>c_sum</LINK></SEE_ALSO_ITEM>
+ <SEE_ALSO_ITEM><LINK>scilab_sum</LINK></SEE_ALSO_ITEM>
+ </SEE_ALSO>
+
+ <AUTHORS>
+ <AUTHORS_ITEM label="enter here the author name">
+ Add here the author references
+ </AUTHORS_ITEM>
+ </AUTHORS>
+
+ <BIBLIO>
+ <SP>
+ Add here the function bibliography if any
+ </SP>
+ </BIBLIO>
+
+ <USED_FUNCTIONS>
+ <SP>
+ Add here the used function name and references
+ </SP>
+ </USED_FUNCTIONS>
+</MAN>
-<?xml version="1.0" encoding="UTF-8"?>\r
-<!DOCTYPE MAN SYSTEM "../help.dtd">\r
-<MAN>\r
- <LANGUAGE>fr</LANGUAGE>\r
- <TITLE>scilab_sum</TITLE>\r
- <TYPE>Scilab Function</TYPE>\r
- <DATE>13-01-2008</DATE>\r
- <SHORT_DESCRIPTION name="scilab_sum">calcule la somme depuis une fonction scilab</SHORT_DESCRIPTION>\r
-\r
- <CALLING_SEQUENCE>\r
- <CALLING_SEQUENCE_ITEM>a = scilab_sum(b,c)</CALLING_SEQUENCE_ITEM>\r
- </CALLING_SEQUENCE>\r
-\r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>a</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- resultat de scilab_sum\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
- \r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>b</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- un nombre\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
- \r
- <PARAM>\r
- <PARAM_INDENT>\r
- <PARAM_ITEM>\r
- <PARAM_NAME>c</PARAM_NAME>\r
- <PARAM_DESCRIPTION>\r
- <SP>\r
- un nombre\r
- </SP>\r
- </PARAM_DESCRIPTION>\r
- </PARAM_ITEM>\r
- </PARAM_INDENT>\r
- </PARAM>\r
-\r
- <DESCRIPTION>\r
- <DESCRIPTION_INDENT>\r
- <DESCRIPTION_ITEM>\r
- <P>\r
- effectue la somme b+c.\r
- </P>\r
- </DESCRIPTION_ITEM>\r
- <DESCRIPTION_ITEM>\r
- <P>\r
- Add here a paragraph of the function description \r
- </P>\r
- </DESCRIPTION_ITEM>\r
- </DESCRIPTION_INDENT>\r
- </DESCRIPTION>\r
-\r
- <EXAMPLE>\r
- <![CDATA[\r
- scilab_sum(3,4)\r
- ]]>\r
- </EXAMPLE>\r
-\r
- <SEE_ALSO>\r
- <SEE_ALSO_ITEM><LINK>fortran_sum</LINK></SEE_ALSO_ITEM>\r
- <SEE_ALSO_ITEM><LINK>c_sum</LINK></SEE_ALSO_ITEM>\r
- </SEE_ALSO>\r
-\r
- <AUTHORS>\r
- <AUTHORS_ITEM label="enter here the author name">\r
- Add here the author references\r
- </AUTHORS_ITEM>\r
- </AUTHORS>\r
-\r
- <BIBLIO>\r
- <SP>\r
- Add here the function bibliography if any\r
- </SP>\r
- </BIBLIO>\r
-\r
- <USED_FUNCTIONS>\r
- <SP>\r
- Add here the used function name and references\r
- </SP>\r
- </USED_FUNCTIONS>\r
-</MAN>\r
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE MAN SYSTEM "../help.dtd">
+<MAN>
+ <LANGUAGE>fr</LANGUAGE>
+ <TITLE>scilab_sum</TITLE>
+ <TYPE>Scilab Function</TYPE>
+ <DATE>13-01-2008</DATE>
+ <SHORT_DESCRIPTION name="scilab_sum">calcule la somme depuis une fonction scilab</SHORT_DESCRIPTION>
+
+ <CALLING_SEQUENCE>
+ <CALLING_SEQUENCE_ITEM>a = scilab_sum(b,c)</CALLING_SEQUENCE_ITEM>
+ </CALLING_SEQUENCE>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>a</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ resultat de scilab_sum
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>b</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ un nombre
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <PARAM>
+ <PARAM_INDENT>
+ <PARAM_ITEM>
+ <PARAM_NAME>c</PARAM_NAME>
+ <PARAM_DESCRIPTION>
+ <SP>
+ un nombre
+ </SP>
+ </PARAM_DESCRIPTION>
+ </PARAM_ITEM>
+ </PARAM_INDENT>
+ </PARAM>
+
+ <DESCRIPTION>
+ <DESCRIPTION_INDENT>
+ <DESCRIPTION_ITEM>
+ <P>
+ effectue la somme b+c.
+ </P>
+ </DESCRIPTION_ITEM>
+ <DESCRIPTION_ITEM>
+ <P>
+ Add here a paragraph of the function description
+ </P>
+ </DESCRIPTION_ITEM>
+ </DESCRIPTION_INDENT>
+ </DESCRIPTION>
+
+ <EXAMPLE>
+ <![CDATA[
+ scilab_sum(3,4)
+ ]]>
+ </EXAMPLE>
+
+ <SEE_ALSO>
+ <SEE_ALSO_ITEM><LINK>fortran_sum</LINK></SEE_ALSO_ITEM>
+ <SEE_ALSO_ITEM><LINK>c_sum</LINK></SEE_ALSO_ITEM>
+ </SEE_ALSO>
+
+ <AUTHORS>
+ <AUTHORS_ITEM label="enter here the author name">
+ Add here the author references
+ </AUTHORS_ITEM>
+ </AUTHORS>
+
+ <BIBLIO>
+ <SP>
+ Add here the function bibliography if any
+ </SP>
+ </BIBLIO>
+
+ <USED_FUNCTIONS>
+ <SP>
+ Add here the used function name and references
+ </SP>
+ </USED_FUNCTIONS>
+</MAN>
-// ====================================================================\r
-// Allan CORNET\r
-// Copyright INRIA 2008\r
-// ====================================================================\r
-try \r
- version_scilab = getversion('scilab');\r
-catch \r
- warning('Scilab 5.0 or more is required.'); \r
- return;\r
-end; \r
-// ====================================================================\r
-root_tlbx = get_absolute_file_path('loader.sce');\r
-exec(root_tlbx+'etc\'+'toolbox_skeleton.start');\r
-// ====================================================================\r
-clear version_scilab;\r
-clear root_tlbx;\r
-// ====================================================================\r
+// ====================================================================
+// Allan CORNET
+// Copyright INRIA 2008
+// ====================================================================
+try
+ version_scilab = getversion('scilab');
+catch
+ warning('Scilab 5.0 or more is required.');
+ return;
+end;
+// ====================================================================
+root_tlbx = get_absolute_file_path('loader.sce');
+exec(root_tlbx+'etc\'+'toolbox_skeleton.start');
+// ====================================================================
+clear version_scilab;
+clear root_tlbx;
+// ====================================================================
-// ====================================================================\r
-// Allan CORNET\r
-// INRIA 2008\r
-// Template toolbox_skeleton\r
-// ====================================================================\r
-macros_dir_tlbx_sklt = get_absolute_file_path('buildmacros.sce');\r
-genlib('toolbox_skeletonlib',macros_dir_tlbx_sklt,%f,%t);\r
-// ====================================================================\r
-// clear variables on stack\r
-clear getsave;\r
-clear genlib;\r
-clear cd;\r
-clear toolbox_skeletonlib;\r
-clear macros_dir_tlbx_sklt;\r
-// ====================================================================\r
+// ====================================================================
+// Allan CORNET
+// INRIA 2008
+// Template toolbox_skeleton
+// ====================================================================
+macros_dir_tlbx_sklt = get_absolute_file_path('buildmacros.sce');
+genlib('toolbox_skeletonlib',macros_dir_tlbx_sklt,%f,%t);
+// ====================================================================
+// clear variables on stack
+clear getsave;
+clear genlib;
+clear cd;
+clear toolbox_skeletonlib;
+clear macros_dir_tlbx_sklt;
+// ====================================================================
-// ====================================================================\r
-// Allan CORNET\r
-// INRIA 2008\r
-// Template toolbox_skeleton\r
-// ====================================================================\r
-//\r
-//\r
-function s = scilab_sum(valA,valB)\r
- s = valA + valB;\r
-endfunction\r
-// ====================================================================\r
+// ====================================================================
+// Allan CORNET
+// INRIA 2008
+// Template toolbox_skeleton
+// ====================================================================
+//
+//
+function s = scilab_sum(valA,valB)
+ s = valA + valB;
+endfunction
+// ====================================================================
-// ====================================================================\r
-// Allan CORNET\r
-// INRIA 2008\r
-// Template toolbox_skeleton\r
-// ====================================================================\r
-sci_gateway_dir = get_absolute_file_path('builder_gateway.sce');\r
-\r
-previous_dir = pwd();\r
-\r
-cd(sci_gateway_dir);\r
-if ( isdir('c') ) then\r
- chdir('c');\r
- exec('builder_gateway_c.sce');\r
-else\r
-end\r
-\r
-cd(sci_gateway_dir);\r
-if ( isdir('fortran') ) then\r
- chdir('fortran');\r
- exec('builder_gateway_fortran.sce');\r
-else\r
-end\r
-// ====================================================================\r
-clear cd;\r
-clear previous_dir;\r
-clear sci_gateway_dir;\r
-// ====================================================================\r
+// ====================================================================
+// Allan CORNET
+// INRIA 2008
+// Template toolbox_skeleton
+// ====================================================================
+sci_gateway_dir = get_absolute_file_path('builder_gateway.sce');
+
+previous_dir = pwd();
+
+cd(sci_gateway_dir);
+if ( isdir('c') ) then
+ chdir('c');
+ exec('builder_gateway_c.sce');
+else
+end
+
+cd(sci_gateway_dir);
+if ( isdir('fortran') ) then
+ chdir('fortran');
+ exec('builder_gateway_fortran.sce');
+else
+end
+// ====================================================================
+clear cd;
+clear previous_dir;
+clear sci_gateway_dir;
+// ====================================================================
-// ====================================================================\r
-// Allan CORNET\r
-// INRIA 2008\r
-// Template toolbox_skeleton\r
-// ====================================================================\r
-gateway_c_dir = get_absolute_file_path('builder_gateway_c.sce');\r
-\r
-previous_dir = pwd();\r
-cd(gateway_c_dir);\r
-\r
-ilib_name = 'skeleton_c'; \r
-files = ['sci_csum.o']; \r
-libs = ['../../src/c/libcsum']; \r
-\r
-// name known in scilab , C function called\r
-table = [ 'c_sum','sci_csum';];\r
-\r
-libname = ilib_build(ilib_name,table,files,libs);\r
-\r
-cd(previous_dir);\r
-// ====================================================================\r
-clear ilib_build;\r
-clear libname;\r
-clear table;\r
-clear libs;\r
-clear files;\r
-clear ilib_name;\r
-clear previous_dir\r
-clear gateway_c_dir;\r
-// ====================================================================\r
+// ====================================================================
+// Allan CORNET
+// INRIA 2008
+// Template toolbox_skeleton
+// ====================================================================
+gateway_c_dir = get_absolute_file_path('builder_gateway_c.sce');
+
+previous_dir = pwd();
+cd(gateway_c_dir);
+
+ilib_name = 'skeleton_c';
+files = ['sci_csum.o'];
+libs = ['../../src/c/libcsum'];
+
+// name known in scilab , C function called
+table = [ 'c_sum','sci_csum';];
+
+libname = ilib_build(ilib_name,table,files,libs);
+
+cd(previous_dir);
+// ====================================================================
+clear ilib_build;
+clear libname;
+clear table;
+clear libs;
+clear files;
+clear ilib_name;
+clear previous_dir
+clear gateway_c_dir;
+// ====================================================================
-/* ==================================================================== */\r
-/* Allan CORNET */\r
-/* INRIA 2008 */\r
-/* Template toolbox_skeleton */\r
-/* ==================================================================== */\r
-#include "stack-c.h" \r
-/* ==================================================================== */\r
-extern int csum(double *a,double *b,double *c);\r
-/* ==================================================================== */\r
-int sci_csum(char *fname)\r
-{\r
- int l1, m1, n1, l2, m2, n2, m3, n3,l3;\r
-\r
- double a,b,c;\r
- \r
- a = 0;\r
- b = 0;\r
- c = 0;\r
-\r
- /* --> result = csum(3,8)\r
- /* check that we have only 2 parameters input */\r
- /* check that we have only 1 parameters output */\r
- CheckRhs(2,2) ;\r
- CheckLhs(1,1) ; \r
-\r
- /* get first parameter and put in 'a' */\r
- GetRhsVar(1, "d", &m1, &n1, &l1);\r
- a = *stk(l1);\r
- \r
- /* get second parameter and put in 'a' */\r
- GetRhsVar(2, "d", &m2, &n2, &l2);\r
- b= *stk(l2) ;\r
- \r
- /* call fortran fsum subroutine */\r
- csum(&a,&b,&c);\r
- \r
- /* create a variable on scilab's stack */\r
- m3=1;\r
- n3=1;\r
- CreateVar(Rhs+1,"d",&m3,&n3,&l3);\r
- *stk(l3) = c;\r
-\r
- LhsVar(1) = Rhs+1; \r
- \r
- return 0;\r
-}\r
-/* ==================================================================== */\r
-\r
+/* ==================================================================== */
+/* Allan CORNET */
+/* INRIA 2008 */
+/* Template toolbox_skeleton */
+/* ==================================================================== */
+#include "stack-c.h"
+/* ==================================================================== */
+extern int csum(double *a,double *b,double *c);
+/* ==================================================================== */
+int sci_csum(char *fname)
+{
+ int l1, m1, n1, l2, m2, n2, m3, n3,l3;
+
+ double a,b,c;
+
+ a = 0;
+ b = 0;
+ c = 0;
+
+ /* --> result = csum(3,8)
+ /* check that we have only 2 parameters input */
+ /* check that we have only 1 parameters output */
+ CheckRhs(2,2) ;
+ CheckLhs(1,1) ;
+
+ /* get first parameter and put in 'a' */
+ GetRhsVar(1, "d", &m1, &n1, &l1);
+ a = *stk(l1);
+
+ /* get second parameter and put in 'a' */
+ GetRhsVar(2, "d", &m2, &n2, &l2);
+ b= *stk(l2) ;
+
+ /* call fortran fsum subroutine */
+ csum(&a,&b,&c);
+
+ /* create a variable on scilab's stack */
+ m3=1;
+ n3=1;
+ CreateVar(Rhs+1,"d",&m3,&n3,&l3);
+ *stk(l3) = c;
+
+ LhsVar(1) = Rhs+1;
+
+ return 0;
+}
+/* ==================================================================== */
+
-// ====================================================================\r
-// Allan CORNET\r
-// INRIA 2008\r
-// Template toolbox_skeleton\r
-// ====================================================================\r
-gateway_fortran_dir = get_absolute_file_path('builder_gateway_fortran.sce');\r
-\r
-previous_dir = pwd();\r
-cd(gateway_fortran_dir);\r
-\r
-ilib_name = 'skeleton_fortran'; \r
-files = ['sci_fsum.o'] ; \r
-libs = ['../../src/fortran/libfsum']; \r
-\r
-// name known in scilab , C function called\r
-table = [ 'fortran_sum','sci_fsum';];\r
-\r
-libname = ilib_build(ilib_name,table,files,libs);\r
-\r
-cd(previous_dir);\r
-// ====================================================================\r
-clear ilib_build;\r
-clear libname;\r
-clear table;\r
-clear libs;\r
-clear files;\r
-clear ilib_name;\r
-clear previous_dir;\r
-clear gateway_fortran_dir;\r
-// ====================================================================\r
+// ====================================================================
+// Allan CORNET
+// INRIA 2008
+// Template toolbox_skeleton
+// ====================================================================
+gateway_fortran_dir = get_absolute_file_path('builder_gateway_fortran.sce');
+
+previous_dir = pwd();
+cd(gateway_fortran_dir);
+
+ilib_name = 'skeleton_fortran';
+files = ['sci_fsum.o'] ;
+libs = ['../../src/fortran/libfsum'];
+
+// name known in scilab , C function called
+table = [ 'fortran_sum','sci_fsum';];
+
+libname = ilib_build(ilib_name,table,files,libs);
+
+cd(previous_dir);
+// ====================================================================
+clear ilib_build;
+clear libname;
+clear table;
+clear libs;
+clear files;
+clear ilib_name;
+clear previous_dir;
+clear gateway_fortran_dir;
+// ====================================================================
-/* ==================================================================== */\r
-/* Allan CORNET */\r
-/* INRIA 2008 */\r
-/* Template toolbox_skeleton */\r
-/* ==================================================================== */\r
-#include "stack-c.h" \r
-/* ==================================================================== */\r
-extern int F2C(fsum)(double *a,double *b,double *c);\r
-/* ==================================================================== */\r
-int sci_fsum(char *fname)\r
-{\r
- int l1, m1, n1, l2, m2, n2, m3, n3,l3;\r
-\r
- double a,b,c;\r
- \r
- a = 0;\r
- b = 0;\r
- c = 0;\r
-\r
- /* --> result = fortransum(3,8)\r
- /* check that we have only 2 parameters input */\r
- /* check that we have only 1 parameters output */\r
- CheckRhs(2,2) ;\r
- CheckLhs(1,1) ; \r
-\r
- /* get first parameter and put in 'a' */\r
- GetRhsVar(1, "d", &m1, &n1, &l1);\r
- a = *stk(l1);\r
- \r
- /* get second parameter and put in 'a' */\r
- GetRhsVar(2, "d", &m2, &n2, &l2);\r
- b= *stk(l2) ;\r
- \r
- /* call fortran fsum subroutine */\r
- F2C(fsum)(&a,&b,&c);\r
- \r
- /* create a variable on scilab's stack */\r
- m3=1;\r
- n3=1;\r
- CreateVar(Rhs+1,"d",&m3,&n3,&l3);\r
- *stk(l3) = c;\r
-\r
- LhsVar(1) = Rhs+1; \r
- \r
- return 0;\r
-}\r
-/* ==================================================================== */\r
+/* ==================================================================== */
+/* Allan CORNET */
+/* INRIA 2008 */
+/* Template toolbox_skeleton */
+/* ==================================================================== */
+#include "stack-c.h"
+/* ==================================================================== */
+extern int F2C(fsum)(double *a,double *b,double *c);
+/* ==================================================================== */
+int sci_fsum(char *fname)
+{
+ int l1, m1, n1, l2, m2, n2, m3, n3,l3;
+
+ double a,b,c;
+
+ a = 0;
+ b = 0;
+ c = 0;
+
+ /* --> result = fortransum(3,8)
+ /* check that we have only 2 parameters input */
+ /* check that we have only 1 parameters output */
+ CheckRhs(2,2) ;
+ CheckLhs(1,1) ;
+
+ /* get first parameter and put in 'a' */
+ GetRhsVar(1, "d", &m1, &n1, &l1);
+ a = *stk(l1);
+
+ /* get second parameter and put in 'a' */
+ GetRhsVar(2, "d", &m2, &n2, &l2);
+ b= *stk(l2) ;
+
+ /* call fortran fsum subroutine */
+ F2C(fsum)(&a,&b,&c);
+
+ /* create a variable on scilab's stack */
+ m3=1;
+ n3=1;
+ CreateVar(Rhs+1,"d",&m3,&n3,&l3);
+ *stk(l3) = c;
+
+ LhsVar(1) = Rhs+1;
+
+ return 0;
+}
+/* ==================================================================== */
-// ====================================================================\r
-// Allan CORNET\r
-// INRIA 2008\r
-// Template toolbox_skeleton\r
-// ====================================================================\r
-sci_gateway_dir = get_absolute_file_path('loader_gateway.sce');\r
-\r
-current_dir = pwd();\r
-\r
-chdir(sci_gateway_dir);\r
-if ( isdir('c') ) then\r
- chdir('c');\r
- exec('loader.sce');\r
-else\r
-end\r
-\r
-chdir(sci_gateway_dir);\r
-if ( isdir('fortran') ) then\r
- chdir('fortran');\r
- exec('loader.sce');\r
-else\r
-end\r
-\r
-chdir(current_dir);\r
-// ====================================================================\r
-clear sci_gateway_dir;\r
-clear current_dir;\r
-// ====================================================================\r
+// ====================================================================
+// Allan CORNET
+// INRIA 2008
+// Template toolbox_skeleton
+// ====================================================================
+sci_gateway_dir = get_absolute_file_path('loader_gateway.sce');
+
+current_dir = pwd();
+
+chdir(sci_gateway_dir);
+if ( isdir('c') ) then
+ chdir('c');
+ exec('loader.sce');
+else
+end
+
+chdir(sci_gateway_dir);
+if ( isdir('fortran') ) then
+ chdir('fortran');
+ exec('loader.sce');
+else
+end
+
+chdir(current_dir);
+// ====================================================================
+clear sci_gateway_dir;
+clear current_dir;
+// ====================================================================
-// ====================================================================\r
-// Allan CORNET\r
-// INRIA 2008\r
-// Template toolbox_skeleton\r
-// ====================================================================\r
-src_dir = get_absolute_file_path('builder_src.sce');\r
-\r
-previous_dir = pwd();\r
-cd(src_dir);\r
-\r
-if ( isdir('fortran') ) then \r
- chdir('fortran');\r
- exec('builder_fortran.sce');\r
-else\r
-end\r
-\r
-cd(src_dir);\r
-\r
-if ( isdir('c') ) then \r
- chdir('c');\r
- exec('builder_c.sce');\r
-else\r
-end\r
-\r
-cd(previous_dir);\r
-// ====================================================================\r
-clear previous_dir;\r
-clear src_dir;\r
-// ====================================================================\r
+// ====================================================================
+// Allan CORNET
+// INRIA 2008
+// Template toolbox_skeleton
+// ====================================================================
+src_dir = get_absolute_file_path('builder_src.sce');
+
+previous_dir = pwd();
+cd(src_dir);
+
+if ( isdir('fortran') ) then
+ chdir('fortran');
+ exec('builder_fortran.sce');
+else
+end
+
+cd(src_dir);
+
+if ( isdir('c') ) then
+ chdir('c');
+ exec('builder_c.sce');
+else
+end
+
+cd(previous_dir);
+// ====================================================================
+clear previous_dir;
+clear src_dir;
+// ====================================================================
-// ====================================================================\r
-// Allan CORNET\r
-// INRIA 2008\r
-// Template toolbox_skeleton\r
-// ====================================================================\r
-names = ['csum'];\r
-files = ['csum.o'];\r
-libs = [];\r
-\r
-ilib_for_link(names,files,libs,"c");\r
-// ====================================================================\r
-clear ilib_for_link;\r
-clear ilib_link_gen_Make_lcc;\r
-clear ilib_link_gen_Make_win32;\r
-clear ilib_link_gen_Make_unix;\r
-clear ilib_link_gen_Make;\r
-clear ilib_link_gen_loader;\r
-clear names;\r
-clear files;\r
-clear libs;\r
-// ====================================================================\r
+// ====================================================================
+// Allan CORNET
+// INRIA 2008
+// Template toolbox_skeleton
+// ====================================================================
+names = ['csum'];
+files = ['csum.o'];
+libs = [];
+
+ilib_for_link(names,files,libs,"c");
+// ====================================================================
+clear ilib_for_link;
+clear ilib_link_gen_Make_lcc;
+clear ilib_link_gen_Make_win32;
+clear ilib_link_gen_Make_unix;
+clear ilib_link_gen_Make;
+clear ilib_link_gen_loader;
+clear names;
+clear files;
+clear libs;
+// ====================================================================
-/* ==================================================================== */\r
-/* Allan CORNET */\r
-/* INRIA 2008 */\r
-/* Template toolbox_skeleton */\r
-/* ==================================================================== */\r
-int csum(double *a, double *b, double *c)\r
-{\r
- *c = *a + *b;\r
- return 0;\r
-}\r
-/* ==================================================================== */\r
+/* ==================================================================== */
+/* Allan CORNET */
+/* INRIA 2008 */
+/* Template toolbox_skeleton */
+/* ==================================================================== */
+int csum(double *a, double *b, double *c)
+{
+ *c = *a + *b;
+ return 0;
+}
+/* ==================================================================== */
-// ====================================================================\r
-// Allan CORNET\r
-// INRIA 2008\r
-// Template toolbox_skeleton\r
-// ====================================================================\r
-\r
-names = ['fsum'];\r
-files = ['fsum.o'];\r
-libs = [];\r
-\r
-ilib_for_link(names,files,libs,"f");\r
-// ====================================================================\r
-clear ilib_for_link;\r
-clear ilib_link_gen_Make_lcc;\r
-clear ilib_link_gen_Make_win32;\r
-clear ilib_link_gen_Make_unix;\r
-clear ilib_link_gen_Make;\r
-clear ilib_link_gen_loader;\r
-clear cd;\r
-clear %dir_p;\r
-clear dir;\r
-clear names;\r
-clear files;\r
-clear libs;\r
-// ====================================================================\r
+// ====================================================================
+// Allan CORNET
+// INRIA 2008
+// Template toolbox_skeleton
+// ====================================================================
+
+names = ['fsum'];
+files = ['fsum.o'];
+libs = [];
+
+ilib_for_link(names,files,libs,"f");
+// ====================================================================
+clear ilib_for_link;
+clear ilib_link_gen_Make_lcc;
+clear ilib_link_gen_Make_win32;
+clear ilib_link_gen_Make_unix;
+clear ilib_link_gen_Make;
+clear ilib_link_gen_loader;
+clear cd;
+clear %dir_p;
+clear dir;
+clear names;
+clear files;
+clear libs;
+// ====================================================================
-c =================================\r
-c Allan CORNET\r
-c COPYRIGHT INRIA 2008\r
-c Template toolbox_skeleton\r
-c =================================\r
- subroutine fsum(a,b,c)\r
-c ================================= \r
- double precision a,b,c\r
- c = a + b\r
- end\r
-c =================================\r
- \r
+c =================================
+c Allan CORNET
+c COPYRIGHT INRIA 2008
+c Template toolbox_skeleton
+c =================================
+ subroutine fsum(a,b,c)
+c =================================
+ double precision a,b,c
+ c = a + b
+ end
+c =================================
+
-//=================================\r
-if c_sum(3,5) <> 8 then pause,end\r
+//=================================
+if c_sum(3,5) <> 8 then pause,end
//=================================
\ No newline at end of file
-//=================================\r
-if fortran_sum(3,5) <> 8 then pause,end\r
+//=================================
+if fortran_sum(3,5) <> 8 then pause,end
//=================================
\ No newline at end of file
-//=================================\r
-if scilab_sum(3,5) <> 8 then pause,end\r
+//=================================
+if scilab_sum(3,5) <> 8 then pause,end
//=================================
\ No newline at end of file
-if MSDOS then\r
- TMP_OS_DIR = getenv('TMP','err');\r
- if (TMP_OS_DIR == 'err') then bugmes();quit;end;\r
-else\r
- TMP_OS_DIR = '/tmp';\r
- if ~isdir(TMP_OS_DIR) then bugmes();quit;end;\r
-end\r
-TMP_DIR = TMP_OS_DIR+filesep()+'ilib_build';\r
-rmdir(TMP_DIR,'s');\r
-mkdir(TMP_OS_DIR,'ilib_build');\r
-if ~isdir(TMP_DIR) then bugmes();quit;end;\r
-//Here with give a complete example on adding new primitive to Scilab\r
-//create the procedure files\r
-f1=['extern double fun2();'\r
- 'void fun1(x,y)'\r
- 'double *x, *y;'\r
- '{*y=fun2(*x)/(*x);}'];\r
-mputl(f1,TMP_DIR+filesep()+'fun1.c')\r
-f2=['#include <math.h>'\r
- 'double fun2(x)'\r
- 'double x;'\r
- '{ return( sin(x+1.));}'];\r
-mputl(f2,TMP_DIR+filesep()+'fun2.c');\r
-//creating the interface file\r
-i=['#include ""stack-c.h""'\r
- 'extern int fun1 _PARAMS(( double *x, double *y));'\r
- 'int intfun1(fname)'\r
- 'char * fname;'\r
- '{'\r
- ' int m1,n1,l1;'\r
- ' CheckRhs(1,1);'\r
- ' CheckLhs(1,1);'\r
- ' GetRhsVar(1, ""d"", &m1, &n1, &l1);'\r
- ' fun1(stk(l1),stk(l1));'\r
- ' LhsVar(1) = 1;'\r
- ' return 0;'\r
- '}'];\r
-mputl(i,TMP_DIR+filesep()+'intfun1.c')\r
-//creating the shared library (a gateway, a Makefile and a loader are\r
-//generated.\r
-cur_dir = pwd();\r
-chdir(TMP_DIR);\r
-files=['fun1.o','fun2.o','intfun1.o'];\r
-ilib_build('foo',['scifun1','intfun1'],files,[]);\r
- generate a gateway file\r
- generate a loader file\r
- generate a Makefile: Makelib\r
- running the makefile\r
- compilation of fun1\r
- compilation of fun2\r
- compilation of intfun1\r
- building shared library (be patient)\r
-// disable message\r
-warning_mode = warning('query');\r
-warning('off');\r
-// load the shared library\r
-exec loader.sce\r
- \r
-// generated by builder.sce: Please do not edit this file\r
- \r
-// ------------------------------------------------------\r
- \r
-foo_path=get_file_path('loader.sce');\r
- \r
-functions=[ 'scifun1';\r
-];\r
- \r
-addinter(foo_path+'/foo.dll','foo',functions);\r
- \r
-// remove temp. variables on stack\r
- \r
-clear foo_path;\r
- \r
-clear functions;\r
- \r
-clear get_file_path;\r
- \r
-// enable message\r
-warning(warning_mode);\r
-chdir(cur_dir);\r
-//using the new primitive\r
-if ( norm(scifun1(33) -0.0160328) > 1 ) then bugmes();quit;end\r
-// ulink() all libraries\r
-ulink();\r
-//remove TMP_DIR\r
-rmdir(TMP_DIR,'s');\r
+if MSDOS then
+ TMP_OS_DIR = getenv('TMP','err');
+ if (TMP_OS_DIR == 'err') then bugmes();quit;end;
+else
+ TMP_OS_DIR = '/tmp';
+ if ~isdir(TMP_OS_DIR) then bugmes();quit;end;
+end
+TMP_DIR = TMP_OS_DIR+filesep()+'ilib_build';
+rmdir(TMP_DIR,'s');
+mkdir(TMP_OS_DIR,'ilib_build');
+if ~isdir(TMP_DIR) then bugmes();quit;end;
+//Here with give a complete example on adding new primitive to Scilab
+//create the procedure files
+f1=['extern double fun2();'
+ 'void fun1(x,y)'
+ 'double *x, *y;'
+ '{*y=fun2(*x)/(*x);}'];
+mputl(f1,TMP_DIR+filesep()+'fun1.c')
+f2=['#include <math.h>'
+ 'double fun2(x)'
+ 'double x;'
+ '{ return( sin(x+1.));}'];
+mputl(f2,TMP_DIR+filesep()+'fun2.c');
+//creating the interface file
+i=['#include ""stack-c.h""'
+ 'extern int fun1 _PARAMS(( double *x, double *y));'
+ 'int intfun1(fname)'
+ 'char * fname;'
+ '{'
+ ' int m1,n1,l1;'
+ ' CheckRhs(1,1);'
+ ' CheckLhs(1,1);'
+ ' GetRhsVar(1, ""d"", &m1, &n1, &l1);'
+ ' fun1(stk(l1),stk(l1));'
+ ' LhsVar(1) = 1;'
+ ' return 0;'
+ '}'];
+mputl(i,TMP_DIR+filesep()+'intfun1.c')
+//creating the shared library (a gateway, a Makefile and a loader are
+//generated.
+cur_dir = pwd();
+chdir(TMP_DIR);
+files=['fun1.o','fun2.o','intfun1.o'];
+ilib_build('foo',['scifun1','intfun1'],files,[]);
+ generate a gateway file
+ generate a loader file
+ generate a Makefile: Makelib
+ running the makefile
+ compilation of fun1
+ compilation of fun2
+ compilation of intfun1
+ building shared library (be patient)
+// disable message
+warning_mode = warning('query');
+warning('off');
+// load the shared library
+exec loader.sce
+
+// generated by builder.sce: Please do not edit this file
+
+// ------------------------------------------------------
+
+foo_path=get_file_path('loader.sce');
+
+functions=[ 'scifun1';
+];
+
+addinter(foo_path+'/foo.dll','foo',functions);
+
+// remove temp. variables on stack
+
+clear foo_path;
+
+clear functions;
+
+clear get_file_path;
+
+// enable message
+warning(warning_mode);
+chdir(cur_dir);
+//using the new primitive
+if ( norm(scifun1(33) -0.0160328) > 1 ) then bugmes();quit;end
+// ulink() all libraries
+ulink();
+//remove TMP_DIR
+rmdir(TMP_DIR,'s');
-\r
-if MSDOS then\r
- TMP_OS_DIR = getenv('TMP','err');\r
- if (TMP_OS_DIR == 'err') then pause,end;\r
-else\r
- TMP_OS_DIR = '/tmp';\r
- if ~isdir(TMP_OS_DIR) then pause,end;\r
-end\r
-\r
-TMP_DIR = TMP_OS_DIR+filesep()+'ilib_build';\r
-\r
-rmdir(TMP_DIR,'s');\r
-mkdir(TMP_OS_DIR,'ilib_build');\r
-\r
-\r
-if ~isdir(TMP_DIR) then pause,end;\r
-\r
-//Here with give a complete example on adding new primitive to Scilab\r
-//create the procedure files\r
-f1=['extern double fun2();'\r
- 'void fun1(x,y)'\r
- 'double *x, *y;'\r
- '{*y=fun2(*x)/(*x);}'];\r
-\r
-mputl(f1,TMP_DIR+filesep()+'fun1.c')\r
-\r
-f2=['#include <math.h>'\r
- 'double fun2(x)'\r
- 'double x;'\r
- '{ return( sin(x+1.));}'];\r
-mputl(f2,TMP_DIR+filesep()+'fun2.c');\r
-\r
-//creating the interface file\r
-i=['#include ""stack-c.h""'\r
- 'extern int fun1 _PARAMS(( double *x, double *y));'\r
- 'int intfun1(fname)' \r
- 'char * fname;'\r
- '{'\r
- ' int m1,n1,l1;'\r
- ' CheckRhs(1,1);'\r
- ' CheckLhs(1,1);'\r
- ' GetRhsVar(1, ""d"", &m1, &n1, &l1);'\r
- ' fun1(stk(l1),stk(l1));'\r
- ' LhsVar(1) = 1;'\r
- ' return 0;'\r
- '}'];\r
-mputl(i,TMP_DIR+filesep()+'intfun1.c')\r
-\r
-\r
-//creating the shared library (a gateway, a Makefile and a loader are \r
-//generated. \r
-cur_dir = pwd();\r
-chdir(TMP_DIR);\r
-\r
-files=['fun1.o','fun2.o','intfun1.o'];\r
-ilib_build('foo',['scifun1','intfun1'],files,[]);\r
-\r
-\r
-// disable message\r
-warning_mode = warning('query');\r
-warning('off');\r
-\r
-// load the shared library \r
-exec loader.sce\r
-\r
-// enable message \r
-warning(warning_mode);\r
-\r
-chdir(cur_dir);\r
-\r
-//using the new primitive\r
-if ( norm(scifun1(33) - .0160328) > 1 ) then pause,end\r
-\r
-// ulink() all libraries\r
-ulink();\r
-\r
-//remove TMP_DIR\r
+
+if MSDOS then
+ TMP_OS_DIR = getenv('TMP','err');
+ if (TMP_OS_DIR == 'err') then pause,end;
+else
+ TMP_OS_DIR = '/tmp';
+ if ~isdir(TMP_OS_DIR) then pause,end;
+end
+
+TMP_DIR = TMP_OS_DIR+filesep()+'ilib_build';
+
+rmdir(TMP_DIR,'s');
+mkdir(TMP_OS_DIR,'ilib_build');
+
+
+if ~isdir(TMP_DIR) then pause,end;
+
+//Here with give a complete example on adding new primitive to Scilab
+//create the procedure files
+f1=['extern double fun2();'
+ 'void fun1(x,y)'
+ 'double *x, *y;'
+ '{*y=fun2(*x)/(*x);}'];
+
+mputl(f1,TMP_DIR+filesep()+'fun1.c')
+
+f2=['#include <math.h>'
+ 'double fun2(x)'
+ 'double x;'
+ '{ return( sin(x+1.));}'];
+mputl(f2,TMP_DIR+filesep()+'fun2.c');
+
+//creating the interface file
+i=['#include ""stack-c.h""'
+ 'extern int fun1 _PARAMS(( double *x, double *y));'
+ 'int intfun1(fname)'
+ 'char * fname;'
+ '{'
+ ' int m1,n1,l1;'
+ ' CheckRhs(1,1);'
+ ' CheckLhs(1,1);'
+ ' GetRhsVar(1, ""d"", &m1, &n1, &l1);'
+ ' fun1(stk(l1),stk(l1));'
+ ' LhsVar(1) = 1;'
+ ' return 0;'
+ '}'];
+mputl(i,TMP_DIR+filesep()+'intfun1.c')
+
+
+//creating the shared library (a gateway, a Makefile and a loader are
+//generated.
+cur_dir = pwd();
+chdir(TMP_DIR);
+
+files=['fun1.o','fun2.o','intfun1.o'];
+ilib_build('foo',['scifun1','intfun1'],files,[]);
+
+
+// disable message
+warning_mode = warning('query');
+warning('off');
+
+// load the shared library
+exec loader.sce
+
+// enable message
+warning(warning_mode);
+
+chdir(cur_dir);
+
+//using the new primitive
+if ( norm(scifun1(33) - .0160328) > 1 ) then pause,end
+
+// ulink() all libraries
+ulink();
+
+//remove TMP_DIR
rmdir(TMP_DIR,'s');
\ No newline at end of file
-if MSDOS then\r
- TMP_OS_DIR = getenv('TMP','err');\r
- if (TMP_OS_DIR == 'err') then bugmes();quit;end;\r
-else\r
- TMP_OS_DIR = '/tmp';\r
- if ~isdir(TMP_OS_DIR) then bugmes();quit;end;\r
-end\r
-TMP_DIR = TMP_OS_DIR+filesep()+'ilib_for_link';\r
-rmdir(TMP_DIR,'s');\r
-mkdir(TMP_OS_DIR,'ilib_for_link');\r
-f1=['int ext1c(n, a, b, c)'\r
- 'int *n; double *a, *b, *c;'\r
- '{int k;'\r
- ' for (k = 0; k < *n; ++k) '\r
- ' c[k] = a[k] + b[k];'\r
- ' return(0);}'];\r
-mputl(f1,TMP_DIR+filesep()+'fun1.c')\r
-//creating the shared library (a gateway, a Makefile and a loader are\r
-//generated.\r
-cur_dir = pwd();\r
-chdir(TMP_DIR);\r
-ilib_for_link('ext1c','fun1.o',[],"c")\r
- Generate a loader file\r
- Generate a Makefile\r
- Running the Makefile\r
- compilation of fun1\r
- building shared library (be patient)\r
- ans =\r
- \r
- libext1c.dll \r
-// disable message\r
-warning_mode = warning('query');\r
-warning('off');\r
-// load the shared library\r
-exec loader.sce\r
- \r
-// generated by builder.sce: Please do not edit this file\r
- \r
-// ------------------------------------------------------\r
- \r
-ext1c_path=get_absolute_file_path('loader.sce');\r
- \r
-link(ext1c_path+'libext1c.dll',['ext1c'],'c');\r
- \r
-// remove temp. variables on stack\r
- \r
-clear ext1c_path;\r
- \r
-clear functions;\r
- \r
-clear get_file_path;\r
- \r
-// enable message\r
-warning(warning_mode);\r
-chdir(cur_dir);\r
-//using the new primitive\r
-a=[1,2,3];b=[4,5,6];n=3;\r
-c=call('ext1c',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');\r
-if norm(c-(a+b)) > %eps then bugmes();quit;end\r
-// ulink() all libraries\r
-ulink();\r
-//remove TMP_DIR\r
-rmdir(TMP_DIR,'s');\r
+if MSDOS then
+ TMP_OS_DIR = getenv('TMP','err');
+ if (TMP_OS_DIR == 'err') then bugmes();quit;end;
+else
+ TMP_OS_DIR = '/tmp';
+ if ~isdir(TMP_OS_DIR) then bugmes();quit;end;
+end
+TMP_DIR = TMP_OS_DIR+filesep()+'ilib_for_link';
+rmdir(TMP_DIR,'s');
+mkdir(TMP_OS_DIR,'ilib_for_link');
+f1=['int ext1c(n, a, b, c)'
+ 'int *n; double *a, *b, *c;'
+ '{int k;'
+ ' for (k = 0; k < *n; ++k) '
+ ' c[k] = a[k] + b[k];'
+ ' return(0);}'];
+mputl(f1,TMP_DIR+filesep()+'fun1.c')
+//creating the shared library (a gateway, a Makefile and a loader are
+//generated.
+cur_dir = pwd();
+chdir(TMP_DIR);
+ilib_for_link('ext1c','fun1.o',[],"c")
+ Generate a loader file
+ Generate a Makefile
+ Running the Makefile
+ compilation of fun1
+ building shared library (be patient)
+ ans =
+
+ libext1c.dll
+// disable message
+warning_mode = warning('query');
+warning('off');
+// load the shared library
+exec loader.sce
+
+// generated by builder.sce: Please do not edit this file
+
+// ------------------------------------------------------
+
+ext1c_path=get_absolute_file_path('loader.sce');
+
+link(ext1c_path+'libext1c.dll',['ext1c'],'c');
+
+// remove temp. variables on stack
+
+clear ext1c_path;
+
+clear functions;
+
+clear get_file_path;
+
+// enable message
+warning(warning_mode);
+chdir(cur_dir);
+//using the new primitive
+a=[1,2,3];b=[4,5,6];n=3;
+c=call('ext1c',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
+if norm(c-(a+b)) > %eps then bugmes();quit;end
+// ulink() all libraries
+ulink();
+//remove TMP_DIR
+rmdir(TMP_DIR,'s');
-if MSDOS then\r
- TMP_OS_DIR = getenv('TMP','err');\r
- if (TMP_OS_DIR == 'err') then pause,end;\r
-else\r
- TMP_OS_DIR = '/tmp';\r
- if ~isdir(TMP_OS_DIR) then pause,end;\r
-end\r
-\r
-TMP_DIR = TMP_OS_DIR+filesep()+'ilib_for_link';\r
-\r
-rmdir(TMP_DIR,'s');\r
-mkdir(TMP_OS_DIR,'ilib_for_link');\r
-\r
-\r
-f1=['int ext1c(n, a, b, c)'\r
- 'int *n; double *a, *b, *c;'\r
- '{int k;'\r
- ' for (k = 0; k < *n; ++k) '\r
- ' c[k] = a[k] + b[k];'\r
- ' return(0);}'];\r
-\r
-mputl(f1,TMP_DIR+filesep()+'fun1.c')\r
-\r
-//creating the shared library (a gateway, a Makefile and a loader are \r
-//generated. \r
-\r
-cur_dir = pwd();\r
-chdir(TMP_DIR);\r
-\r
-ilib_for_link('ext1c','fun1.o',[],"c") \r
-\r
-// disable message\r
-warning_mode = warning('query');\r
-warning('off');\r
-\r
-// load the shared library \r
-exec loader.sce \r
-\r
-// enable message \r
-warning(warning_mode);\r
-\r
-chdir(cur_dir);\r
-\r
-//using the new primitive\r
-a=[1,2,3];b=[4,5,6];n=3;\r
-c=call('ext1c',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');\r
-if norm(c-(a+b)) > %eps then pause,end\r
-\r
-// ulink() all libraries\r
-ulink();\r
-\r
-//remove TMP_DIR\r
+if MSDOS then
+ TMP_OS_DIR = getenv('TMP','err');
+ if (TMP_OS_DIR == 'err') then pause,end;
+else
+ TMP_OS_DIR = '/tmp';
+ if ~isdir(TMP_OS_DIR) then pause,end;
+end
+
+TMP_DIR = TMP_OS_DIR+filesep()+'ilib_for_link';
+
+rmdir(TMP_DIR,'s');
+mkdir(TMP_OS_DIR,'ilib_for_link');
+
+
+f1=['int ext1c(n, a, b, c)'
+ 'int *n; double *a, *b, *c;'
+ '{int k;'
+ ' for (k = 0; k < *n; ++k) '
+ ' c[k] = a[k] + b[k];'
+ ' return(0);}'];
+
+mputl(f1,TMP_DIR+filesep()+'fun1.c')
+
+//creating the shared library (a gateway, a Makefile and a loader are
+//generated.
+
+cur_dir = pwd();
+chdir(TMP_DIR);
+
+ilib_for_link('ext1c','fun1.o',[],"c")
+
+// disable message
+warning_mode = warning('query');
+warning('off');
+
+// load the shared library
+exec loader.sce
+
+// enable message
+warning(warning_mode);
+
+chdir(cur_dir);
+
+//using the new primitive
+a=[1,2,3];b=[4,5,6];n=3;
+c=call('ext1c',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
+if norm(c-(a+b)) > %eps then pause,end
+
+// ulink() all libraries
+ulink();
+
+//remove TMP_DIR
rmdir(TMP_DIR,'s');
\ No newline at end of file
-if MSDOS then\r
- TMP_OS_DIR = getenv('TMP','err');\r
- if (TMP_OS_DIR == 'err') then bugmes();quit;end;\r
-else\r
- TMP_OS_DIR = '/tmp';\r
- if ~isdir(TMP_OS_DIR) then bugmes();quit;end;\r
-end\r
-TMP_DIR = TMP_OS_DIR+filesep()+'link';\r
-rmdir(TMP_DIR,'s');\r
-mkdir(TMP_OS_DIR,'link');\r
-if ~isdir(TMP_DIR) then bugmes();quit;end;\r
-//Example of the use of ilib_for_link with a simple C code\r
- f1=['#include <math.h>'\r
- 'void fooc(c,a,b,m,n)'\r
- 'double a[],*b,c[];'\r
- 'int *m,*n;'\r
- '{'\r
- ' int i;'\r
- ' for ( i =0 ; i < (*m)*(*n) ; i++) '\r
- ' c[i] = sin(a[i]) + *b; '\r
- '}'];\r
-mputl(f1,TMP_DIR+filesep()+'fooc.c');\r
-cur_dir = pwd();\r
-chdir(TMP_DIR);\r
-// disable message\r
-warning_mode = warning('query');\r
-warning('off');\r
-//creating the shared library: a Makefile and a loader are\r
-//generated, the code is compiled and a shared library built.\r
-ilib_for_link('fooc','fooc.o',[],"c");\r
- Generate a loader file\r
- Generate a Makefile\r
- Running the Makefile\r
- compilation of fooc\r
- building shared library (be patient)\r
-// display the loader.sce file which calls link\r
-mprintf('%s\n',mgetl('loader.sce'))\r
-// generated by builder.sce: Please do not edit this file\r
-// ------------------------------------------------------\r
-fooc_path=get_absolute_file_path('loader.sce');\r
-link(fooc_path+'libfooc.dll',['fooc'],'c');\r
-// remove temp. variables on stack\r
-clear fooc_path;\r
-clear functions;\r
-clear get_file_path;\r
-// load the shared library\r
-exec loader.sce;\r
-link('show');\r
-// enable message\r
-warning(warning_mode);\r
-// call the new linked entry point\r
-a=linspace(0,%pi,10);b=5;\r
-y1=call('fooc',a,2,'d',b,3,'d',size(a,1),4,'i',size(a,2),5,'i','out',size(a),1,'d');\r
-// check\r
-r = y1-(sin(a)+b);\r
-if or( r <> zeros(1,10) ) then bugmes();quit;end\r
-// ulink() all libraries\r
-ulink();\r
-//remove TMP_DIR\r
-rmdir(TMP_DIR,'s');\r
+if MSDOS then
+ TMP_OS_DIR = getenv('TMP','err');
+ if (TMP_OS_DIR == 'err') then bugmes();quit;end;
+else
+ TMP_OS_DIR = '/tmp';
+ if ~isdir(TMP_OS_DIR) then bugmes();quit;end;
+end
+TMP_DIR = TMP_OS_DIR+filesep()+'link';
+rmdir(TMP_DIR,'s');
+mkdir(TMP_OS_DIR,'link');
+if ~isdir(TMP_DIR) then bugmes();quit;end;
+//Example of the use of ilib_for_link with a simple C code
+ f1=['#include <math.h>'
+ 'void fooc(c,a,b,m,n)'
+ 'double a[],*b,c[];'
+ 'int *m,*n;'
+ '{'
+ ' int i;'
+ ' for ( i =0 ; i < (*m)*(*n) ; i++) '
+ ' c[i] = sin(a[i]) + *b; '
+ '}'];
+mputl(f1,TMP_DIR+filesep()+'fooc.c');
+cur_dir = pwd();
+chdir(TMP_DIR);
+// disable message
+warning_mode = warning('query');
+warning('off');
+//creating the shared library: a Makefile and a loader are
+//generated, the code is compiled and a shared library built.
+ilib_for_link('fooc','fooc.o',[],"c");
+ Generate a loader file
+ Generate a Makefile
+ Running the Makefile
+ compilation of fooc
+ building shared library (be patient)
+// display the loader.sce file which calls link
+mprintf('%s\n',mgetl('loader.sce'))
+// generated by builder.sce: Please do not edit this file
+// ------------------------------------------------------
+fooc_path=get_absolute_file_path('loader.sce');
+link(fooc_path+'libfooc.dll',['fooc'],'c');
+// remove temp. variables on stack
+clear fooc_path;
+clear functions;
+clear get_file_path;
+// load the shared library
+exec loader.sce;
+link('show');
+// enable message
+warning(warning_mode);
+// call the new linked entry point
+a=linspace(0,%pi,10);b=5;
+y1=call('fooc',a,2,'d',b,3,'d',size(a,1),4,'i',size(a,2),5,'i','out',size(a),1,'d');
+// check
+r = y1-(sin(a)+b);
+if or( r <> zeros(1,10) ) then bugmes();quit;end
+// ulink() all libraries
+ulink();
+//remove TMP_DIR
+rmdir(TMP_DIR,'s');
-if MSDOS then\r
- TMP_OS_DIR = getenv('TMP','err');\r
- if (TMP_OS_DIR == 'err') then pause,end;\r
-else\r
- TMP_OS_DIR = '/tmp';\r
- if ~isdir(TMP_OS_DIR) then pause,end;\r
-end\r
-\r
-TMP_DIR = TMP_OS_DIR+filesep()+'link';\r
-\r
-rmdir(TMP_DIR,'s');\r
-mkdir(TMP_OS_DIR,'link');\r
-\r
-\r
-if ~isdir(TMP_DIR) then pause,end;\r
-\r
-//Example of the use of ilib_for_link with a simple C code\r
- f1=['#include <math.h>'\r
- 'void fooc(c,a,b,m,n)'\r
- 'double a[],*b,c[];'\r
- 'int *m,*n;'\r
- '{'\r
- ' int i;'\r
- ' for ( i =0 ; i < (*m)*(*n) ; i++) '\r
- ' c[i] = sin(a[i]) + *b; '\r
- '}'];\r
-\r
-mputl(f1,TMP_DIR+filesep()+'fooc.c');\r
-\r
-cur_dir = pwd();\r
-chdir(TMP_DIR);\r
-\r
-// disable message\r
-warning_mode = warning('query');\r
-warning('off');\r
-\r
-\r
-//creating the shared library: a Makefile and a loader are \r
-//generated, the code is compiled and a shared library built.\r
-ilib_for_link('fooc','fooc.o',[],"c"); \r
-\r
-// display the loader.sce file which calls link\r
-mprintf('%s\n',mgetl('loader.sce')) \r
-// load the shared library \r
-exec loader.sce; \r
-\r
-link('show');\r
-\r
-// enable message \r
-warning(warning_mode);\r
-\r
-// call the new linked entry point\r
-a=linspace(0,%pi,10);b=5;\r
-y1=call('fooc',a,2,'d',b,3,'d',size(a,1),4,'i',size(a,2),5,'i','out',size(a),1,'d');\r
- \r
-// check\r
-r = y1-(sin(a)+b);\r
-if or( r <> zeros(1,10) ) then pause,end\r
-\r
-\r
-// ulink() all libraries\r
-ulink();\r
-\r
-//remove TMP_DIR\r
-rmdir(TMP_DIR,'s');\r
+if MSDOS then
+ TMP_OS_DIR = getenv('TMP','err');
+ if (TMP_OS_DIR == 'err') then pause,end;
+else
+ TMP_OS_DIR = '/tmp';
+ if ~isdir(TMP_OS_DIR) then pause,end;
+end
+
+TMP_DIR = TMP_OS_DIR+filesep()+'link';
+
+rmdir(TMP_DIR,'s');
+mkdir(TMP_OS_DIR,'link');
+
+
+if ~isdir(TMP_DIR) then pause,end;
+
+//Example of the use of ilib_for_link with a simple C code
+ f1=['#include <math.h>'
+ 'void fooc(c,a,b,m,n)'
+ 'double a[],*b,c[];'
+ 'int *m,*n;'
+ '{'
+ ' int i;'
+ ' for ( i =0 ; i < (*m)*(*n) ; i++) '
+ ' c[i] = sin(a[i]) + *b; '
+ '}'];
+
+mputl(f1,TMP_DIR+filesep()+'fooc.c');
+
+cur_dir = pwd();
+chdir(TMP_DIR);
+
+// disable message
+warning_mode = warning('query');
+warning('off');
+
+
+//creating the shared library: a Makefile and a loader are
+//generated, the code is compiled and a shared library built.
+ilib_for_link('fooc','fooc.o',[],"c");
+
+// display the loader.sce file which calls link
+mprintf('%s\n',mgetl('loader.sce'))
+// load the shared library
+exec loader.sce;
+
+link('show');
+
+// enable message
+warning(warning_mode);
+
+// call the new linked entry point
+a=linspace(0,%pi,10);b=5;
+y1=call('fooc',a,2,'d',b,3,'d',size(a,1),4,'i',size(a,2),5,'i','out',size(a),1,'d');
+
+// check
+r = y1-(sin(a)+b);
+if or( r <> zeros(1,10) ) then pause,end
+
+
+// ulink() all libraries
+ulink();
+
+//remove TMP_DIR
+rmdir(TMP_DIR,'s');
-//==============================================================================\r
-// Benchmark for sva function\r
-// Copyright INRIA 2007\r
-//==============================================================================\r
-\r
-// <-- BENCH NB RUN : 100 -->\r
-stacksize(80000000);\r
-A = rand(1000,100,'n');\r
-\r
-// <-- BENCH START -->\r
-B=pca(A,[1 2],%t);\r
-// <-- BENCH END -->\r
+//==============================================================================
+// Benchmark for sva function
+// Copyright INRIA 2007
+//==============================================================================
+
+// <-- BENCH NB RUN : 100 -->
+stacksize(80000000);
+A = rand(1000,100,'n');
+
+// <-- BENCH START -->
+B=pca(A,[1 2],%t);
+// <-- BENCH END -->
-// <-- TEST WITH GRAPHIC -->\r
-// =============================================================================\r
-// Tests for pca function\r
-// Scilab Team\r
-// Copyright INRIA\r
-// =============================================================================\r
-if execstr('pca()','errcatch')==0 then pause,end\r
-// =============================================================================\r
-a=rand(100,10,'n');\r
-[r1,r2,r3] = pca(a);\r
-// =============================================================================\r
-[ra,rb,rc] = pca(a, [1 2]);\r
-if ( or(r1 <> ra) | or(r2 <> rb) | or(r3 <> rc)) then pause,end\r
-// =============================================================================\r
-[ra,rb,rc] = pca(a, [1 2],%t);\r
-if ( or(r1 <> ra) | or(r2 <> rb) | or(r3 <> rc)) then pause,end\r
-// =============================================================================\r
-[ra,rb,rc] = pca(a, [1 2],%f);\r
-if ( or(r1 <> ra) | or(r2 <> rb) | or(r3 <> rc) ) then pause,end\r
-// =============================================================================\r
+// <-- TEST WITH GRAPHIC -->
+// =============================================================================
+// Tests for pca function
+// Scilab Team
+// Copyright INRIA
+// =============================================================================
+if execstr('pca()','errcatch')==0 then pause,end
+// =============================================================================
+a=rand(100,10,'n');
+[r1,r2,r3] = pca(a);
+// =============================================================================
+[ra,rb,rc] = pca(a, [1 2]);
+if ( or(r1 <> ra) | or(r2 <> rb) | or(r3 <> rc)) then pause,end
+// =============================================================================
+[ra,rb,rc] = pca(a, [1 2],%t);
+if ( or(r1 <> ra) | or(r2 <> rb) | or(r3 <> rc)) then pause,end
+// =============================================================================
+[ra,rb,rc] = pca(a, [1 2],%f);
+if ( or(r1 <> ra) | or(r2 <> rb) | or(r3 <> rc) ) then pause,end
+// =============================================================================
projects / scilab.git / commitdiff