File: loader.sce

package info (click to toggle)
sivp 0.4.3-3
  • links: PTS, VCS
  • area: contrib
  • in suites: lenny
  • size: 4,400 kB
  • ctags: 94
  • sloc: sh: 8,731; xml: 3,173; ansic: 2,069; makefile: 102; tcl: 72
file content (77 lines) | stat: -rw-r--r-- 2,652 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
mode(-1);
//
// -------------------------------------------------------------------------
// SIVP - Scilab Image Processing toolbox
// Copyright (C) 2005  Shiqi Yu
// Copyright (C) 2002  Ricardo Fabbri
//
// This program is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 2 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
// -------------------------------------------------------------------------
//

// specific part
libname='libsivp'
libtitle='SIVP - Scilab Image and Video Processing Toolbox 0.4.3';

write(%io(2), libtitle);

SIVP_PATH=get_absolute_file_path('loader.sce');

// load the library macros
execstr(libname+'=lib(""'+SIVP_PATH+'macros/'+'"")')

// add the help chapter
if getversion()=="scilab-2.7" then
   %helps = [%helps; SIVP_PATH+'/man', libtitle]
else
   add_help_chapter(libtitle,SIVP_PATH+'/man');
end

// add demos to demos menu
global demolist;
have_sivp = 0;
for num=1:size(demolist, 1),
	if demolist(num,1)=='SIVP' then
		have_sivp = 1;
	end
end
if have_sivp==0 then
	demolist = [demolist; 'SIVP', SIVP_PATH+'/demos/sivp.dem'];
end
clear have_sivp num;

functions=[    'sivptest'; 		       'sivp_init'; 		       'imread';		       'int_imwrite';		       'imfinfo'; 		       'aviinfo';		       'aviopen';		       'camopen';		       'avifile';		       'aviclose';		       'avicloseall';		       'avilistopened';		       'avireadframe';		       'addframe';		       'int_imresize';		       'int_imabsdiff';		       'int_imadd'; 		       'int_imsubtract'; 		       'int_immultiply'; 		       'int_imdivide'; 		       'imfilter'; 		       'filter2'; 		       'mat2utfimg'; 		       'int_canny'; 		       'int_sobel'; 		       'int_cvtcolor'; 		   ];


if MSDOS then 
	// load the OpenCV dlls for Windows version
	OpenCV= SIVP_PATH + 'lib\';
	link(OpenCV + 'cxcore100.dll');
	link(OpenCV + 'cv100.dll');
	link(OpenCV + 'highgui100.dll');

	addinter(SIVP_PATH+'/lib/libsivp.dll','libsivp',functions);
else
	addinter(SIVP_PATH+'/lib/libsivp.so','libsivp',functions);
end




sivp_init();

clear functions;
clear libname;
clear libtitle;