Set svn:eol-style to native
Pierre Marechal [Mon, 14 Jan 2008 08:21:02 +0000 (08:21 +0000)]
40 files changed:
scilab/contrib/toolbox_skeleton/builder.sce
scilab/contrib/toolbox_skeleton/etc/toolbox_skeleton.quit
scilab/contrib/toolbox_skeleton/etc/toolbox_skeleton.start
scilab/contrib/toolbox_skeleton/help/builder_help.sce
scilab/contrib/toolbox_skeleton/help/dtd/help.dtd
scilab/contrib/toolbox_skeleton/help/en_US/addchapter.sce
scilab/contrib/toolbox_skeleton/help/en_US/build_help.sce
scilab/contrib/toolbox_skeleton/help/en_US/c_sum.xml
scilab/contrib/toolbox_skeleton/help/en_US/fortran_sum.xml
scilab/contrib/toolbox_skeleton/help/en_US/scilab_sum.xml
scilab/contrib/toolbox_skeleton/help/fr_FR/addchapter.sce
scilab/contrib/toolbox_skeleton/help/fr_FR/build_help.sce
scilab/contrib/toolbox_skeleton/help/fr_FR/c_sum.xml
scilab/contrib/toolbox_skeleton/help/fr_FR/fortran_sum.xml
scilab/contrib/toolbox_skeleton/help/fr_FR/scilab_sum.xml
scilab/contrib/toolbox_skeleton/loader.sce
scilab/contrib/toolbox_skeleton/macros/buildmacros.sce
scilab/contrib/toolbox_skeleton/macros/scilab_sum.sci
scilab/contrib/toolbox_skeleton/sci_gateway/builder_gateway.sce
scilab/contrib/toolbox_skeleton/sci_gateway/c/builder_gateway_c.sce
scilab/contrib/toolbox_skeleton/sci_gateway/c/sci_csum.c
scilab/contrib/toolbox_skeleton/sci_gateway/fortran/builder_gateway_fortran.sce
scilab/contrib/toolbox_skeleton/sci_gateway/fortran/sci_fsum.c
scilab/contrib/toolbox_skeleton/sci_gateway/loader_gateway.sce
scilab/contrib/toolbox_skeleton/src/builder_src.sce
scilab/contrib/toolbox_skeleton/src/c/builder_c.sce
scilab/contrib/toolbox_skeleton/src/c/csum.c
scilab/contrib/toolbox_skeleton/src/fortran/builder_fortran.sce
scilab/contrib/toolbox_skeleton/src/fortran/fsum.f
scilab/contrib/toolbox_skeleton/tests/unit_tests/c_sum.tst
scilab/contrib/toolbox_skeleton/tests/unit_tests/fortran_sum.tst
scilab/contrib/toolbox_skeleton/tests/unit_tests/scilab_sum.tst
scilab/modules/incremental_link/tests/unit_tests/ilib_build.dia.ref
scilab/modules/incremental_link/tests/unit_tests/ilib_build.tst
scilab/modules/incremental_link/tests/unit_tests/ilib_for_link.dia.ref
scilab/modules/incremental_link/tests/unit_tests/ilib_for_link.tst
scilab/modules/incremental_link/tests/unit_tests/link.dia.ref
scilab/modules/incremental_link/tests/unit_tests/link.tst
scilab/modules/statistics/tests/benchmarks/bench_pca.tst
scilab/modules/statistics/tests/unit_tests/pca.tst

index 0bbbd8a..5f4d986 100644 (file)
@@ -1,64 +1,64 @@
-// ====================================================================\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;
+// ====================================================================
index a3605d7..07180d9 100644 (file)
@@ -1,4 +1,4 @@
-// ====================================================================\r
-// Allan CORNET\r
-// Copyright INRIA 2008\r
+// ====================================================================
+// Allan CORNET
+// Copyright INRIA 2008
 // ====================================================================
\ No newline at end of file
index 3409fd8..fec98a3 100644 (file)
@@ -1,46 +1,46 @@
-// ====================================================================\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;
+// ====================================================================
+
index a0ab8ab..0786547 100644 (file)
@@ -1,29 +1,29 @@
-// ====================================================================\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;
+// ====================================================================
index 981fc5a..67dd02b 100644 (file)
@@ -1,98 +1,98 @@
-<!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 )>
+
index 5c1c698..f1a5094 100644 (file)
@@ -1,10 +1,10 @@
-// ====================================================================\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;
+// ====================================================================
index 954aeba..2e5ff98 100644 (file)
@@ -1,13 +1,13 @@
-// ====================================================================\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;
+// ====================================================================
index a3993e2..0e5fcd7 100644 (file)
@@ -1,96 +1,96 @@
-<?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>
index 7710200..81387cf 100644 (file)
@@ -1,96 +1,96 @@
-<?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>
index d5803a6..9a22ca0 100644 (file)
@@ -1,96 +1,96 @@
-<?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>
index 5c1c698..f1a5094 100644 (file)
@@ -1,10 +1,10 @@
-// ====================================================================\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;
+// ====================================================================
index 954aeba..2e5ff98 100644 (file)
@@ -1,13 +1,13 @@
-// ====================================================================\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;
+// ====================================================================
index bafcca5..c13150e 100644 (file)
@@ -1,96 +1,96 @@
-<?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>
index d4ab1fb..54cd9a5 100644 (file)
@@ -1,96 +1,96 @@
-<?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>
index e920053..865cee7 100644 (file)
@@ -1,96 +1,96 @@
-<?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>
index 7e21bab..afbb4c8 100644 (file)
@@ -1,17 +1,17 @@
-// ====================================================================\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;
+// ====================================================================
index 1a6ceee..3480937 100644 (file)
@@ -1,15 +1,15 @@
-// ====================================================================\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;
+// ====================================================================
index acf1c5e..a9330f5 100644 (file)
@@ -1,11 +1,11 @@
-// ====================================================================\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
+// ====================================================================
index 54d0336..45cbb15 100644 (file)
@@ -1,27 +1,27 @@
-// ====================================================================\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;
+// ====================================================================
index d2665f5..c80cc2d 100644 (file)
@@ -1,30 +1,30 @@
-// ====================================================================\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;
+// ====================================================================
index f4af987..7b38a2b 100644 (file)
@@ -1,48 +1,48 @@
-/* ==================================================================== */\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;
+}
+/* ==================================================================== */
+
index e8add96..ed212eb 100644 (file)
@@ -1,30 +1,30 @@
-// ====================================================================\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;
+// ====================================================================
index 211c289..44458d6 100644 (file)
@@ -1,47 +1,47 @@
-/* ==================================================================== */\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;
+}
+/* ==================================================================== */
index 41479ab..16641d9 100644 (file)
@@ -1,28 +1,28 @@
-// ====================================================================\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;
+// ====================================================================
index 828bd2b..84256b3 100644 (file)
@@ -1,29 +1,29 @@
-// ====================================================================\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;
+// ====================================================================
index ac3e1fe..754e46a 100644 (file)
@@ -1,21 +1,21 @@
-// ====================================================================\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;
+// ====================================================================
index dcede61..97b40ba 100644 (file)
@@ -1,11 +1,11 @@
-/* ==================================================================== */\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;
+}
+/* ==================================================================== */
index 67f6f9a..e2cb7a8 100644 (file)
@@ -1,25 +1,25 @@
-// ====================================================================\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;
+// ====================================================================
index 4d38809..520468e 100644 (file)
@@ -1,12 +1,12 @@
-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 =================================
+     
index 96804eb..b7b42e2 100644 (file)
@@ -1,3 +1,3 @@
-//=================================\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
index 076e460..42fc02a 100644 (file)
@@ -1,3 +1,3 @@
-//=================================\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
index a8cb275..47b6d4a 100644 (file)
@@ -1,3 +1,3 @@
-//=================================\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
index 9d9fe72..1e85c2e 100644 (file)
@@ -1,86 +1,86 @@
-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');
index ff9a7f0..ddfb246 100644 (file)
@@ -1,78 +1,78 @@
-\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
index d62f759..e608b01 100644 (file)
@@ -1,63 +1,63 @@
-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');
index 5fe9f86..43accae 100644 (file)
@@ -1,53 +1,53 @@
-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
index edd1ca9..1546d6d 100644 (file)
@@ -1,60 +1,60 @@
-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');
index e6f06dc..a5ad6ec 100644 (file)
@@ -1,65 +1,65 @@
-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');
index 5924bdd..2d4b3b3 100644 (file)
@@ -1,12 +1,12 @@
-//==============================================================================\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 -->
index a19ba3c..af4b79a 100644 (file)
@@ -1,20 +1,20 @@
-// <-- 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
+// =============================================================================