Detect P-code

Question

Ronan 2011-12-9

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/23534-detect-p-code

Is there a way for a function to query if it is running from an m-file or if it has been deployed as a p-file. The function "isdeployed()" returns zero for p-code. Is there anything equivalent to "ispcode()"?

Thanks

Ronan

1 个评论
显示 -1更早的评论隐藏 -1更早的评论

Daniel Shub 2011-12-10

Why would you want to know if you are running pcode?

请先登录，再进行评论。

请先登录，再回答此问题。

Answer 1

Paulo Silva 2011-12-9

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/23534-detect-p-code#answer_30887

在 MATLAB Online 中打开

Maybe this:

a=dbstack('-completenames');
if (isempty(strfind(a.file,'.m')))
disp('pcode')
else
disp('mfile')    
end

3 个评论
显示 1更早的评论隐藏 1更早的评论

Paulo Silva 2011-12-9

Thanks Jan

a=dbstack('-completenames');

fend=a.file;

fend=fend(end-1:end);

if (strcmp(fend,'.m'))

disp('mfile')

elseif (strcmp(fend,'.p'))

disp('pcode')

else

disp('undefined')

end

Jan 2011-12-9

See FEX: strncmpir :-)

This was developped exactly for this case. The "i" takes into account, that the file extension could be '.M' also.

请先登录，再进行评论。

Answer 2

Jan 2011-12-9

2
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/23534-detect-p-code#answer_30895

在 MATLAB Online 中打开

If a P-file is found in the path, it is used.

isPCode = (exist(mfilename, 'file') == 6);

But this is not fast. The best idea would be to modify the source before P-coding:

isPcode = false; % Toggled automatically

Then the P-coding:

fid = fopen(MFileName, 'r');
if fid < 0, error('Cannot open %s', MFileName); end
DataC = textscan(fid, '%s', 'delimiter', '\n');
fclose(fid);
Str = DataC{1};
Str = strrep(Str, 'isPcode = false;', 'isPcode = true;');
fid = fopen(MFileName, 'w');
if fid < 0, error('Cannot open %s', MFileName); end
fprintf(fid, '%s\n', Str{:});
fclose(fid);
pcode(MFileName, '-inplace');

And finally restore the original MFile again using DataC{1}. Unfortunately the modification date of the P-file is older than the M-file and a warning appears. This can be avoided either by setting the modification date of the P-file to a later time, or by saving the modified source to a temporary file only and call the builtin but undocumented _pwrite function, which allows to specify a different name for the P-file.

NOTE: I admit, this has an optimal runtime, but is not convenient.