Mercurial > forge

changeset 975:09f24d8052e8 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
not needed anymore because its part of standard octave
author schloegl
date Fri, 13 Jun 2003 15:12:25 +0000
parents 93a917fbb352
children 7427fc405ce1
files main/io/fileparts.m
diffstat 1 files changed, 0 insertions(+), 23 deletions(-) [+]
line wrap: on
line diff
--- a/main/io/fileparts.m	Fri Jun 13 07:18:20 2003 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,23 +0,0 @@
-function [p,f,e]=fileparts(fn)
-## FILEPARTS separates the parts of the filename
-##  [PATH,FILE,EXT]=FILEPARTS(FN)
-## 
-## The filename FN can be reconstructed by [PATH,FILE,EXT]
-
-##	Version 1.00  Date: 03 Jan 2003
-##	CopyLeft (C) 2002-2003 by Alois Schloegl
-##	a.schloegl@ieee.org	
-
-
-ix1=max(find(fn==filesep));
-ix2=max(find(fn=='.'));
-
-if isempty(ix1), ix1 = 0; end;
-if isempty(ix1), ix1 = length(fn); end;
-
-p = fn(1:ix1);
-f = fn(ix1+1:ix2-1);
-e = fn(ix2:length(fn));
-
-
-