以編程方式區分腳本和函數

Question

給定一個文件名，如何以編程方式區分MATLAB中的腳本和函數？

如果我嘗試將參數傳遞給腳本，我會得到Attempt to execute SCRIPT somescript as a function:。有沒有辦法檢測到這一點，而不嘗試執行它？

---

更新：作爲@craq指出，短期內，這一問題被張貼後，有一個關於這個MATLAB的中央文章：http://blogs.mathworks.com/loren/2013/08/26/what-kind-of-matlab-file-is-this/

Answer 1

沒有找到一個乾淨的解決方案，但你可以可能使用try-catch（如@Ilya建議）和nargin

編輯 - 使用function避免一些命名衝突;使用exist到輸入進一步分類（如MEX文件）

function is_script = is_a_script(varargin) 
% is_a_script(varargin) returns one of the following: 
% 1: if the input is a script 
% 0: if the input is a function 
% -1: if the input is neither a function nor a script. 

is_script = 0; 
switch(exist(varargin{1})) 
    case 2 
     % If the input is not a MEX or DLL or MDL or build-in or P-file or variable or class or folder, 
     % then exist() returns 2 
     try 
      nargin(varargin{1}); 
     catch err 
      % If nargin throws an error and the error message does not match the specific one for script, then the input is neither script nor function. 
      if(strcmp(err.message, sprintf('%s is a script.',varargin{1}))) 
       is_script = 1; 
      else 
       is_script = -1; 
      end 
     end 
    case {3, 4, 5, 6} % MEX or DLL-file, MDL-file, Built-in, P-file 
     % I am not familiar with DLL-file/MDL-file/P-file. I assume they are all considered as functions. 
     is_script = 0; 
    otherwise % Variable, Folder, Class, or other cases 
     is_script = -1; 
end 

Answer 2

這是一個黑客位的，但是......這裏是一個將返回true如果參數是一個函數的函數，如果false不是。有可能會出現這種情況，例如無效 - 我期待意見。

編輯 - 捕捉其中函數是一個MEX文件的情況下...

function b = isFunction(fName) 
% tries to determine whether the entity called 'fName' 
% is a function or a script 
% by looking at the file, and seeing if the first line starts with 
% the key word "function" 
try 
    w = which(fName); 
    % test for mex file: 
    mx = regexp(w, [mexext '$']); 
    if numel(mx)>0, b = true; return; end 

    % the correct thing to do... as shown by YYC 
    % if nargin(fName) >=0, b = true; return; end 

    % my original alternative: 
    fid = fopen(w,'r'); % open read only 
    while(~feof(fid)) 
     l = fgetl(fid); 
     % strip everything after comment 
     f = strtok(l, '%'); 
     g = strtok(f, ' '); 
     if strcmpi(g, 'function'), b=true; break; end 
     if strlen(g)>0, b=false; break; end 
    end 
    fclose(fid); 
catch 
    fprintf(1, '%s not found!\n'); 
    b = false; 
end 

Answer 3

如果你願意用半記錄功能，下面是一些嘗試：

function tf = isfunction(fName) 
    t = mtree(fName, '-file'); 
    tf = strcmp(t.root.kind, 'FUNCTION'); 
end 

這是MATLAB Cody和Contests中用於測量代碼長度的相同函數。