SHOW:
|
|
- or go back to the newest paste.
| 1 | FILE0=fullfile(PWD,'tmp','test'); | |
| 2 | ||
| 3 | FILE7=fullfile(FILE0,'vr_func'); | |
| 4 | FILE8=fullfile(FILE0,'vt_func'); | |
| 5 | ||
| 6 | a=(1:10).'; | |
| 7 | b=(0.01:0.01:0.2).' .* %pi; | |
| 8 | V=ones(10,3); | |
| 9 | ||
| 10 | cd(FILE7) | |
| 11 | files_7=["vr_func.c","sci_vr_func.c"]; | |
| 12 | WITHOUT_AUTO_PUTLHSVAR = %t; | |
| 13 | ilib_build('_vr_func',['vr_func','sci_vr_func'],files_7,[]);
| |
| 14 | // load the shared library | |
| 15 | exec loader.sce; | |
| 16 | link('show');
| |
| 17 | ||
| 18 | cd(FILE8) | |
| 19 | files_8=["vt_func.c","sci_vt_func.c"]; | |
| 20 | WITHOUT_AUTO_PUTLHSVAR = %t; | |
| 21 | ilib_build('_vt_func',['vt_func','sci_vt_func'],files_8,[]);
| |
| 22 | // load the shared library | |
| 23 | exec loader.sce; | |
| 24 | link('show');
| |
| 25 | ||
| 26 | BB=vt_func(a,V); | |
| 27 | DD=vr_func(a,b,V); | |
| 28 | ||
| 29 | ulink(); | |
| 30 | link('show'); |
