source: ResearchApps/PHY/WARPLAB/WARPLab7/M_Code_Reference/util/wl_ver.m

function varargout = wl_ver(varargin)
    
    MAJOR       = 7;
    MINOR       = 7;
    REVISION    = 1;
    XTRA        = '';
    RELEASE     = 1;
    
    if (RELEASE == 0) 
        fprintf('*********************************************************************\n');
        fprintf('You are running a version of WARPLab that may not be compatible\n');
        fprintf('with released WARPLab bitstreams. Users should run wl_setup.m from\n');
        fprintf('the zip file provided in the release download.\n');
        fprintf('*********************************************************************\n\n');
    end

    outputs = {MAJOR, MINOR, REVISION, XTRA};

    % Process the inputs:
    %   0 => Print standard WARPLab output
    %   1 => Takes a argument string: 'x.y.z'; 
    %          Issues a warning if current framework is newer. 
    %          Issues an error if current framework is older.
    %        Take wl_node objects as argument
    %          Issues an error if MAJOR and MINOR do not match
    %
    if nargin == 0
        % Print standard WARPLab output
        if(nargout == 0)
            % WARPLab version
            fprintf('WARPLab v%d.%d.%d %s\n', MAJOR, MINOR, REVISION, XTRA);
            
            % MEX version
            try
                mex_version = wl_mex_udp_transport('version');
                fprintf('WARPLab MEX UDP Transport v%s\n', mex_version);
            catch ME
            end
            
            fprintf('\nFramework Location:\n')
            [wl_path, ig, ig] = fileparts(which('wl_ver'));
            I = strfind(wl_path,sprintf('%sutil', filesep));
            wl_path = wl_path(1:I);
            fprintf('%s\n',wl_path);
        else
            varargout(1:nargout) = outputs(1:nargout);
        end
        
    elseif nargin == 1
        switch( class(varargin{1}) ) 
            case 'wl_node'
                nodes    = varargin{1};
                numNodes = length(nodes);
                
                for n = numNodes:-1:1
                    currNode = nodes(n);

                    % Error if MAJOR and MINOR versions do not match
                    if ( ~((currNode.wlVer_major == MAJOR) && (currNode.wlVer_minor == MINOR)) )
                        error('Node %d with Serial # %d has version "%d.%d.%d" which does not match WARPLab v%d.%d.%d', currNode.ID, currNode.serialNumber, currNode.wlVer_major, currNode.wlVer_minor, currNode.wlVer_revision, MAJOR, MINOR, REVISION);
                    end

                    % Print a warning if MAJOR, MINOR, and REVISION do not match                    
                    if ( ~((currNode.wlVer_major == MAJOR) && (currNode.wlVer_minor == MINOR) && (currNode.wlVer_revision == REVISION) ) )
                        warning('Node %d with Serial # %d has version "%d.%d.%d" which does not match WARPLab v%d.%d.%d', currNode.ID, currNode.serialNumber, currNode.wlVer_major, currNode.wlVer_minor, currNode.wlVer_revision, MAJOR, MINOR, REVISION);
                    end
                end
                
            case 'char'
                version = varargin{1};
                
                if (~(strcmp(version,sprintf('%d.%d.%d', MAJOR, MINOR, REVISION))))

                    [VER, count] = sscanf(version, '%d.%d.%d');
                    
                    if (~(count == 3)) 
                        error('Unknown argument.  Argument provided is: "%s", need "x.y.z" where x, y, and z are integers specifying the WARPLab version.', version);
                    end
                    
                    if (VER(1) == MAJOR) 
                        if (VER(2) == MINOR) 
                            if (VER(3) == REVISION) 
                                % Versions are equal do nothing
                            else
                                % Versions are not equal; Since MAJOR and MINOR versions match, only print a warning
                                if (lt(VER(3),REVISION))
                                    warning('Specified version "%s" is older than WARPLab v%d.%d.%d', version, MAJOR, MINOR, REVISION);                                
                                else
                                    warning('Specified version "%s" is newer than WARPLab v%d.%d.%d', version, MAJOR, MINOR, REVISION);
                                end                            
                            end
                        else
                            % Versions are not equal
                            if (lt(VER(2),MINOR)) 
                                warning('Specified version "%s" is older than WARPLab v%d.%d.%d', version, MAJOR, MINOR, REVISION);                                
                            else
                                error('Specified version "%s" is newer than WARPLab v%d.%d.%d', version, MAJOR, MINOR, REVISION);
                            end
                        end                        
                    else 
                        % Versions are not equal
                        if (lt(VER(1),MAJOR))
                            warning('Specified version "%s" is older than WARPLab v%d.%d.%d', version, MAJOR, MINOR, REVISION);                                
                        else
                            error('Specified version "%s" is newer than WARPLab v%d.%d.%d', version, MAJOR, MINOR, REVISION);                            
                        end
                    end
                end
                
            otherwise
                error('Unknown argument.  Argument is of type "%s", need "wl_node" or "char"', class(varargin{1}));
        end        
    else
        error('Too many arguments provided');
    end
end