* Bug 16679 fixed: get_function_path('acosh') yielded an error
[scilab.git] / scilab / modules / functions / macros / cat_code.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA - Vincent COUVERT
3 //
4 // Copyright (C) 2012 - 2016 - Scilab Enterprises
5 //
6 // This file is hereby licensed under the terms of the GNU GPL v2.0,
7 // pursuant to article 5.3.4 of the CeCILL v.2.1.
8 // This file was originally licensed under the terms of the CeCILL v2.1,
9 // and continues to be available under such terms.
10 // For more information, see the COPYING file which you should have received
11 // along with this program.
12
13 function t=cat_code(a,b)
14
15     // Catenate two parts of code (called by tree2code)
16     // Input:
17     // - a: original code
18     // - b: code to add to a
19     // Output:
20     // - t: catenation of a and b
21
22     if a==[] then
23         t=b
24     elseif b==[] then
25         t=a
26     elseif stripblanks(b)=="" then // b=="" then add a new line
27         t=[a;""];
28     else
29         t=[a(1:$-1);a($)+b(1);b(2:$)]
30     end
31 endfunction