# HG changeset patch # User gedeone-octave # Date 1378160283 -7200 # Node ID 64776e1f0530c8030de18bf57943c3dfe934d3a8 # Parent 5608ba9237d4415e2b4adc5d35bb84db6c18e499 Copy new function for polymorphism. diff -r 5608ba9237d4 -r 64776e1f0530 post_install.m --- a/post_install.m Mon Sep 02 23:58:35 2013 +0200 +++ b/post_install.m Tue Sep 03 00:18:03 2013 +0200 @@ -1,20 +1,27 @@ function post_install (desc) + private = fullfile (desc.dir, "private"); - %mkdir(private); [status, msg] = mkdir (private); if (status != 1) error ("couldn't create private directory: %s", msg); endif - movefile ('./src/*.h', private, 'f'); + [status, msg, msgid] = movefile ('./src/*.h', private, 'f'); + if (status != 1) + error ("couldn't copy file: %s", msg); + endif func = fullfile (desc.dir, "@function"); - %mkdir(func); [status, msg] = mkdir (func); if (status != 1) error ("couldn't create @function directory: %s", msg); endif - movefile ('./src/feval.oct', func, 'f'); + [status, msg, msgid] = movefile ('./src/feval.oct', func, 'f'); + if (status != 1) + error ("couldn't copy file: %s", msg); + endif + delete ('./src/feval.oct'); + endfunction