Mercurial > octave
comparison kpathsea/find-suffix.c @ 1268:76a0c05089d4
[project @ 1995-04-20 19:15:51 by jwe]
Initial revision
| author | jwe |
|---|---|
| date | Thu, 20 Apr 1995 19:15:51 +0000 |
| parents | |
| children | 611d403c7f3d |
comparison
equal
deleted
inserted
replaced
| 1267:69501f98669d | 1268:76a0c05089d4 |
|---|---|
| 1 /* find-suffix.c: return the stuff after a dot. | |
| 2 | |
| 3 Copyright (C) 1992, 93 Free Software Foundation, Inc. | |
| 4 | |
| 5 This program is free software; you can redistribute it and/or modify | |
| 6 it under the terms of the GNU General Public License as published by | |
| 7 the Free Software Foundation; either version 2, or (at your option) | |
| 8 any later version. | |
| 9 | |
| 10 This program is distributed in the hope that it will be useful, | |
| 11 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 13 GNU General Public License for more details. | |
| 14 | |
| 15 You should have received a copy of the GNU General Public License | |
| 16 along with this program; if not, write to the Free Software | |
| 17 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
| 18 | |
| 19 #include <kpathsea/config.h> | |
| 20 | |
| 21 #include <kpathsea/c-pathch.h> | |
| 22 | |
| 23 | |
| 24 /* Return pointer to first character after `.' in last directory element | |
| 25 of NAME. If the name is `foo' or `/foo.bar/baz', we have no extension. */ | |
| 26 | |
| 27 string | |
| 28 find_suffix P1C(const_string, name) | |
| 29 { | |
| 30 const_string slash_pos; | |
| 31 string dot_pos = strrchr (name, '.'); | |
| 32 | |
| 33 if (dot_pos == NULL) | |
| 34 return NULL; | |
| 35 | |
| 36 for (slash_pos = name + strlen (name) + 1; | |
| 37 slash_pos > dot_pos && !IS_DIR_SEP (*slash_pos); | |
| 38 slash_pos--) | |
| 39 ; | |
| 40 | |
| 41 return slash_pos > dot_pos ? NULL : dot_pos + 1; | |
| 42 } | |
| 43 |