← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/luatex/jaunty

« back to all changes in this revision

Viewing changes to src/texk/kpathsea/extend-fname.c

  • Committer: Bazaar Package Importer
  • Author(s): Norbert Preining
  • Date: 2007-09-24 12:56:11 UTC
  • Revision ID: james.westby@ubuntu.com-20070924125611-a8ge689azbptxvla
Tags: upstream-0.11.2
Import upstream version 0.11.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/texk/kpathsea/extend-fname.c
 
1
/* extend-fname.c: give a filename a suffix, if necessary.
 
2
 
 
3
   Copyright 1992, 93 Karl Berry.
 
4
 
 
5
   This library is free software; you can redistribute it and/or
 
6
   modify it under the terms of the GNU Lesser General Public
 
7
   License as published by the Free Software Foundation; either
 
8
   version 2.1 of the License, or (at your option) any later version.
 
9
 
 
10
   This library 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 GNU
 
13
   Lesser General Public License for more details.
 
14
 
 
15
   You should have received a copy of the GNU Lesser General Public
 
16
   License along with this library; if not, write to the Free Software
 
17
   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 
18
 
 
19
*/
 
20
 
 
21
#include <kpathsea/config.h>
 
22
 
 
23
 
 
24
/* We may or may not return NAME.  It's up to the caller not to assume
 
25
   the return value is modifiable.  */
 
26
 
 
27
string 
 
28
extend_filename P2C(const_string, name, const_string, default_suffix)
 
29
{
 
30
  string new_s;
 
31
  const_string suffix = find_suffix (name);
 
32
 
 
33
  new_s = suffix == NULL ? concat3 (name, ".", default_suffix)
 
34
                         : (string) name;
 
35
  return new_s;
 
36
}