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
|
// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2009 - DIGITEO - Allan CORNET
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
// <-- JVM NOT MANDATORY -->
ilib_verbose(0);
if ierr<>0 then bugmes();quit;end
if ierr<>0 then bugmes();quit;end
r = getcommonpart(['home','homer']);
if r <> 'home' then bugmes();quit;end;
r = getcommonpart(['gethistory','gethistoryfile','gethis']);
if r <> 'gethis' then bugmes();quit;end;
r = getcommonpart(['gethistory','gethistoryfile','geths']);
if r <> 'geth' then bugmes();quit;end;
ws = ['umf_ludel', 'umf_lufact', 'umf_luget', 'umf_luinfo', 'umf_lusolve', 'umfpack', 'umfpacklib'];
r = getcommonpart(ws);
if r <> 'umf' then bugmes();quit;end;
ws = ['umf_ludel', 'umf_lufact', 'umf_luget', 'umf_luinfo', 'umf_lusolve'];
r = getcommonpart(ws);
if r <> 'umf_lu' then bugmes();quit;end;
ws = ['c:\Program files\GIT-scilab-branch-5.1','c:\Program files\GIT-scilab-master'];
r = getcommonpart(ws);
if r <> 'c:\Program files\GIT-scilab-' then bugmes();quit;end;
ws = ['/home/sylvestre/GIT-scilab-branch-5.1','/home/sylvestre/GIT-scilab-master'];
r = getcommonpart(ws);
if r <> '/home/sylvestre/GIT-scilab-' then bugmes();quit;end;
|
