1
// =============================================================================
2
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3
// Copyright (C) 2008 - DIGITEO - Allan CORNET
5
// This file is distributed under the same license as the Scilab package.
6
// =============================================================================
7
// <-- Non-regression test for bug 4095 -->
9
// <-- Bugzilla URL -->
10
// http://bugzilla.scilab.org/show_bug.cgi?id=4095
12
// <-- Short Description -->
13
// Completion delete some characters of the string we are typing (With NW mode).
14
// <-- ENGLISH IMPOSED -->
15
// <-- JVM NOT MANDATORY -->
16
Generate a gateway file
17
Generate a loader file
19
ilib_gen_Make: Copy compilation files (Makefile*, libtool...) to TMPDIR
20
ilib_gen_Make: Copy sci_completeline.c to TMPDIR
21
ilib_gen_Make: Copy sci_getpartlevel.c to TMPDIR
22
ilib_gen_Make: Copy sci_getfilepartlevel.c to TMPDIR
23
ilib_gen_Make: Copy sci_getcommonpart.c to TMPDIR
24
ilib_gen_Make: Copy libcompletion_c.c to TMPDIR
25
ilib_gen_Make: configure : Generate Makefile.
26
ilib_gen_Make: Modification of the Makefile in TMPDIR.
28
if ierr<>0 then bugmes();quit;end
29
Shared archive loaded.
31
Shared archive loaded.
33
if ierr<>0 then bugmes();quit;end
35
currentline = 'cd SCI/mod';
36
r = getfilepartlevel(currentline);
37
if r <> 'SCI/mod' then bugmes();quit;end
38
r = completion(getfilepartlevel(currentline),'files');
39
if r <> 'modules' + filesep() then bugmes();quit;end
40
newline = completeline(currentline,r,getfilepartlevel(currentline),getpartlevel(currentline),%t);
41
if newline <> 'cd SCI/modules' + filesep() then bugmes();quit;end
42
// cd SCI/modules/file<TAB>
43
currentline = 'cd SCI/modules/file';
44
r = getfilepartlevel(currentline);
45
if r <> 'SCI/modules/file' then bugmes();quit;end
46
r = completion(getfilepartlevel(currentline),'files');
47
if r <> 'fileio' + filesep() then bugmes();quit;end
48
newline = completeline(currentline,r,getfilepartlevel(currentline),getpartlevel(currentline),%t);
49
if newline <> 'cd SCI/modules/fileio' + filesep() then bugmes();quit;end
50
// cd SCI/modules/fileio/te<TAB>
51
currentline = 'cd SCI/modules/fileio/te';
52
r = getfilepartlevel(currentline);
53
if r <> 'SCI/modules/fileio/te' then bugmes();quit;end
54
r = completion(getfilepartlevel(currentline),'files');
55
if r <> 'tests' + filesep() then bugmes();quit;end
56
newline = completeline(currentline,r,getfilepartlevel(currentline),getpartlevel(currentline),%t);
57
if newline <> 'cd SCI/modules/fileio/tests' + filesep() then bugmes();quit;end
58
// cd SCI/modules/fileio/tests/u<TAB>
59
currentline = 'cd SCI/modules/fileio/tests/u';
60
r = getfilepartlevel(currentline);
61
if r <> 'SCI/modules/fileio/tests/u' then bugmes();quit;end
62
r = completion(getfilepartlevel(currentline),'files');
63
if r <> 'unit_tests' + filesep() then bugmes();quit;end
64
newline = completeline(currentline,r,getfilepartlevel(currentline),getpartlevel(currentline),%t);
65
if newline <> 'cd SCI/modules/fileio/tests/unit_tests' + filesep() then bugmes();quit;end