~ubuntu-branches/ubuntu/dapper/groff/dapper

« back to all changes in this revision

Viewing changes to src/libs/libgroff/searchpath.cc

  • Committer: Bazaar Package Importer
  • Author(s): Colin Watson
  • Date: 2002-03-17 04:11:50 UTC
  • Revision ID: james.westby@ubuntu.com-20020317041150-wkgfawjc3gxlk0o5
Tags: upstream-1.17.2
ImportĀ upstreamĀ versionĀ 1.17.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
// -*- C++ -*-
 
2
/* Copyright (C) 1989, 1990, 1991, 1992, 2000 Free Software Foundation, Inc.
 
3
     Written by James Clark (jjc@jclark.com)
 
4
 
 
5
This file is part of groff.
 
6
 
 
7
groff is free software; you can redistribute it and/or modify it under
 
8
the terms of the GNU General Public License as published by the Free
 
9
Software Foundation; either version 2, or (at your option) any later
 
10
version.
 
11
 
 
12
groff is distributed in the hope that it will be useful, but WITHOUT ANY
 
13
WARRANTY; without even the implied warranty of MERCHANTABILITY or
 
14
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 
15
for more details.
 
16
 
 
17
You should have received a copy of the GNU General Public License along
 
18
with groff; see the file COPYING.  If not, write to the Free Software
 
19
Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
 
20
 
 
21
#include <stdio.h>
 
22
#include <string.h>
 
23
#include <stdlib.h>
 
24
#include <assert.h>
 
25
 
 
26
#include "lib.h"
 
27
#include "searchpath.h"
 
28
#include "nonposix.h"
 
29
 
 
30
search_path::search_path(const char *envvar, const char *standard,
 
31
                         int add_home, int add_current)
 
32
{
 
33
  char *home = 0;
 
34
  if (add_home)
 
35
    home = getenv("HOME");
 
36
  char *e = 0;
 
37
  if (envvar)
 
38
    e = getenv(envvar);
 
39
  dirs = new char[((e && *e) ? strlen(e) + 1 : 0)
 
40
                  + (add_current ? 1 + 1 : 0)
 
41
                  + ((home && *home) ? strlen(home) + 1 : 0)
 
42
                  + ((standard && *standard) ? strlen(standard) : 0)
 
43
                  + 1];
 
44
  *dirs = '\0';
 
45
  if (e && *e) {
 
46
    strcat(dirs, e);
 
47
    strcat(dirs, PATH_SEP);
 
48
  }
 
49
  if (add_current) {
 
50
    strcat(dirs, ".");
 
51
    strcat(dirs, PATH_SEP);
 
52
  }
 
53
  if (home && *home) {
 
54
    strcat(dirs, home);
 
55
    strcat(dirs, PATH_SEP);
 
56
  }
 
57
  if (standard && *standard)
 
58
    strcat(dirs, standard);
 
59
  init_len = strlen(dirs);
 
60
}
 
61
 
 
62
search_path::~search_path()
 
63
{
 
64
  // dirs is always allocated
 
65
  a_delete dirs;
 
66
}
 
67
 
 
68
void search_path::command_line_dir(const char *s)
 
69
{
 
70
  char *old = dirs;
 
71
  unsigned old_len = strlen(old);
 
72
  unsigned slen = strlen(s);
 
73
  dirs = new char[old_len + 1 + slen + 1];
 
74
  memcpy(dirs, old, old_len - init_len);
 
75
  char *p = dirs;
 
76
  p += old_len - init_len;
 
77
  if (init_len == 0)
 
78
    *p++ = PATH_SEP[0];
 
79
  memcpy(p, s, slen);
 
80
  p += slen;
 
81
  if (init_len > 0) {
 
82
    *p++ = PATH_SEP[0];
 
83
    memcpy(p, old + old_len - init_len, init_len);
 
84
    p += init_len;
 
85
  }
 
86
  *p++ = '\0';
 
87
  a_delete old;
 
88
}
 
89
 
 
90
FILE *search_path::open_file(const char *name, char **pathp)
 
91
{
 
92
  assert(name != 0);
 
93
  if (IS_ABSOLUTE(name) || *dirs == '\0') {
 
94
    FILE *fp = fopen(name, "r");
 
95
    if (fp) {
 
96
      if (pathp)
 
97
        *pathp = strsave(name);
 
98
      return fp;
 
99
    }
 
100
    else
 
101
      return 0;
 
102
  }
 
103
  unsigned namelen = strlen(name);
 
104
  char *p = dirs;
 
105
  for (;;) {
 
106
    char *end = strchr(p, PATH_SEP[0]);
 
107
    if (!end)
 
108
      end = strchr(p, '\0');
 
109
    int need_slash = end > p && strchr(DIR_SEPS, end[-1]) == 0;
 
110
    char *path = new char[(end - p) + need_slash + namelen + 1];
 
111
    memcpy(path, p, end - p);
 
112
    if (need_slash)
 
113
      path[end - p] = '/';
 
114
    strcpy(path + (end - p) + need_slash, name);
 
115
#if 0
 
116
    fprintf(stderr, "trying `%s'\n", path);
 
117
#endif
 
118
    FILE *fp = fopen(path, "r");
 
119
    if (fp) {
 
120
      if (pathp)
 
121
        *pathp = path;
 
122
      else
 
123
        a_delete path;
 
124
      return fp;
 
125
    }
 
126
    a_delete path;
 
127
    if (*end == '\0')
 
128
      break;
 
129
    p = end + 1;
 
130
  }
 
131
  return 0;
 
132
}