disp_eml_script(mdlname)

function disp_eml_script(mdlname)
% Helper script to display contents of a Embedded MATLAB block script in a
% code pad demo

% load the model containing Embedded MATLAB blocks
load_system(mdlname);

% find all Embedded MATLAB blocks in the current model
rt = slroot;
machine = rt.find('-isa','Stateflow.Machine','Name',mdlname);
emlblks = machine.find('-isa', 'Stateflow.EMChart');

% loop over them and grab their script and display it on the command line
for ii=1:length(emlblks)
    blk = emlblks(ii);
    disp(sprintf('\nBlock Name --------------------------> %s\n', strrep(blk.Path, char(10), ' ')));
    disp(emlblks(ii).Script)
end