Moved extension <-> Format assignment into internal function

src/base/io/writeCbModel.m

@@ -160,44 +160,14 @@
     if fileNameFull
         [folder, fileName, extension] = fileparts([filePath filesep fileNameFull]);
         fileName = [folder filesep fileName extension];
-        switch extension
-            case '.MPS'
-                format = 'mps';
-            case {'.xls', '.xlsx'}
-                format = 'xls';
-            case '.txt'
-                format = 'text';
-            case '.xml'
-                format = 'sbml';
-            case '.mat'
-                format = 'mat';
-            case '.expa'
-                format = 'expa';
-            otherwise
-                format = 'unknown';
-        end
+        format = getFormatFromExtension(extension);
     else
         return;
     end
 else
     if strcmp(format,'toselect') % no format was given. try to detect from fileName.
         [~, ~, extension] = fileparts(fileName);
-        switch extension
-            case '.MPS'
-                format = 'mps';
-            case {'.xls', '.xlsx'}
-                format = 'xls';
-            case '.txt'
-                format = 'text';
-            case '.xml'
-                format = 'sbml';
-            case '.mat'
-                format = 'mat';
-            case '.expa'
-                format = 'expa';
-            otherwise
-                format = 'unknown';
-        end
+        format = getFormatFromExtension(extension);
     end        
 end
 % Use lower case
@@ -259,3 +229,33 @@
     geneStr = [geneStr ' ' geneNames{i}];
 end
 geneStr = strtrim(geneStr);
+
+
+
+function format = getFormatFromExtension(extension)
+%Get the format from the file extension.
+%
+% INPUT: 
+%
+%    extension:     The file extension
+%
+% OUTPUT:
+%    
+%    format:        The file format
+
+switch extension
+    case '.MPS'
+        format = 'mps';
+    case {'.xls', '.xlsx'}
+        format = 'xls';
+    case '.txt'
+        format = 'text';
+    case '.xml'
+        format = 'sbml';
+    case '.mat'
+        format = 'mat';
+    case '.expa'
+        format = 'expa';
+    otherwise
+        format = 'unknown';
+end