Mercurial > fem-fenics-eugenio
view post_install.m @ 150:e97587f9f662
Fix another small issue
author | gedeone-octave <marcovass89@hotmail.it> |
---|---|
date | Tue, 10 Sep 2013 00:08:03 +0200 |
parents | d94b16927632 |
children | 22de20d78e27 |
line wrap: on
line source
function post_install (desc) private = fullfile (desc.dir, "private"); [status, msg] = mkdir (private); if (status != 1) error ("couldn't create private directory: %s", msg); endif [status, msg, msgid] = movefile ('./src/*.h', private, 'f'); if (status != 1) error ("couldn't copy file: %s", msg); endif status = movefile ('./inst/generate_lhs.m', private, 'f'); status += movefile ('./inst/generate_rhs.m', private, 'f'); status += movefile ('./inst/generate_fs.m', private, 'f'); status += movefile ('./inst/generate_fun.m', private, 'f'); status += movefile ('./inst/generate_makefile.m', private, 'f'); if (status != 5) error ("couldn't copy file: %s", msg); endif func = fullfile (desc.dir, "@function"); [status, msg] = mkdir (func); if (status != 1) error ("couldn't create @function directory: %s", msg); endif mesh = fullfile (desc.dir, "@mesh"); [status, msg] = mkdir (mesh); if (status != 1) error ("couldn't create @function directory: %s", msg); endif [status, msg, msgid] = movefile ('./src/feval.oct', func, 'f'); if (status != 1) error ("couldn't copy file: %s", msg); endif [status, msg, msgid] = movefile ('./src/save.oct', func, 'f'); if (status != 1) error ("couldn't copy file: %s", msg); endif new_name = fullfile (func, 'plot.oct'); [status, msg, msgid] = movefile ('./src/plot_func.oct', new_name, 'f'); if (status != 1) error ("couldn't copy file: %s", msg); endif new_name = fullfile (mesh, 'plot.oct'); [status, msg, msgid] = movefile ('./src/plot_mesh.oct', new_name, 'f'); if (status != 1) error ("couldn't copy file: %s", msg); endif file = cstrcat (desc.archprefix, filesep, octave_config_info ("canonical_host_type"), "-", octave_config_info ("api_version"), filesep, "feval.oct"); [err, msg] = unlink (file); file = cstrcat (desc.archprefix, filesep, octave_config_info ("canonical_host_type"), "-", octave_config_info ("api_version"), filesep, "save.oct"); [err, msg] = unlink (file); file = cstrcat (desc.archprefix, filesep, octave_config_info ("canonical_host_type"), "-", octave_config_info ("api_version"), filesep, "plot_mesh.oct"); [err, msg] = unlink (file); file = cstrcat (desc.archprefix, filesep, octave_config_info ("canonical_host_type"), "-", octave_config_info ("api_version"), filesep, "plot_func.oct"); [err, msg] = unlink (file); file = cstrcat (desc.archprefix, filesep, "generate_lhs.m"); [err, msg] = unlink (file); file = cstrcat (desc.archprefix, filesep, "generate_rhs.m"); [err, msg] = unlink (file); file = cstrcat (desc.archprefix, filesep, "generate_fun.m"); [err, msg] = unlink (file); file = cstrcat (desc.archprefix, filesep, "generate_fs.m"); [err, msg] = unlink (file); file = cstrcat (desc.archprefix, filesep, "generate_makefile.m"); [err, msg] = unlink (file); endfunction