/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
* This file is part of the LibreOffice project.
*
* This Source Code Form is subject to the terms of the Mozilla Public
* License, v. 2.0. If a copy of the MPL was not distributed with this
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
*
* This file incorporates work covered by the following license notice:
*
* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed
* with this work for additional information regarding copyright
* ownership. The ASF licenses this file to you under the Apache
* License, Version 2.0 (the "License"); you may not use this file
* except in compliance with the License. You may obtain a copy of
* the License at http://www.apache.org/licenses/LICENSE-2.0 .
*/
#if (
defined(_WIN32) ||
defined(__IBMC__))
# include <io.h>
#else
# include <unistd.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <fcntl.h>
#if defined(__IBMC__) ||
defined(__EMX__) ||
defined(_MSC_VER)
# include <fcntl.h>
# ifndef PATH_MAX
# define PATH_MAX _MAX_PATH
# endif
#endif
#include <limits.h>
#include "cpp.h"
Includelist includelist[NINCLUDE];
Wraplist wraplist[NINCLUDE];
void
doinclude(Tokenrow * trp,
int depth,
int import)
{
char fname[PATH_MAX], iname[PATH_MAX];
Includelist *ip;
int angled, fd, i;
size_t len;
trp->tp += 1;
if (trp->tp >= trp->lp)
goto syntax;
if (trp->tp->type != STRING && trp->tp->type != LT)
{
len = trp->tp - trp->bp;
expandrow(trp,
"");
trp->tp = trp->bp + len;
}
if (trp->tp->type == STRING)
{
len = trp->tp->len - 2;
if (len >
sizeof(fname) - 1)
len =
sizeof(fname) - 1;
strncpy(fname, (
char *) trp->tp->t + 1, len);
angled = 0;
}
else
{
if (trp->tp->type == LT)
{
len = 0;
trp->tp++;
while (trp->tp->type != GT)
{
if (trp->tp > trp->lp || len + trp->tp->len + 2 >=
sizeof(fname))
goto syntax;
strncpy(fname + len, (
char *) trp->tp->t, trp->tp->len);
len += trp->tp->len;
trp->tp++;
}
angled = 1;
}
else
goto syntax;
}
trp->tp += 2;
if (trp->tp < trp->lp || len == 0)
goto syntax;
fname[len] =
'\0';
if (fname[0] ==
'/')
{
fd = open(fname, O_RDONLY);
strcpy(iname, fname);
}
else
{
for (fd = -1, i = (depth < 0) ? (NINCLUDE - 1) : (depth - 1); i >= 0; i--)
{
ip = &includelist[i];
if (ip->file == NULL || ip->deleted || (angled && ip->always == 0))
continue;
if (strlen(fname) + strlen(ip->file) + 2 >
sizeof(iname))
continue;
strcpy(iname, ip->file);
strcat(iname,
"/");
strcat(iname, fname);
if ((fd = open(iname, O_RDONLY)) >= 0)
break;
}
}
if (fd >= 0)
{
if (++incdepth > NINC )
error(FATAL,
"#%s too deeply nested", import ?
"import" :
"include");
if (Xflag)
genimport(fname, angled, iname, import);
if (Iflag)
error(INFO,
"Open %s file [%s]", import ?
"import" :
"include", iname );
for (i = NINCLUDE - 1; i >= 0; i--)
{
if ((wraplist[i].file != NULL) &&
(strncmp(wraplist[i].file, iname, strlen(wraplist[i].file)) == 0))
break;
}
setsource((
char *) newstring((uchar *) iname, strlen(iname), 0), i, fd, NULL, (i >= 0) ? 1 : 0);
if (!Pflag)
genline();
}
else
{
trp->tp = trp->bp + 2;
error(ERROR,
"Could not find %s file %r", import ?
"import" :
"include", trp);
}
return;
syntax:
error(ERROR,
"Syntax error in #%s", import ?
"import" :
"include");
return;
}
/*
* Generate a line directive for cursource
*/
void
genline(
void)
{
static Token ta = {UNCLASS, 0, 0, NULL, 0};
static Tokenrow tr = {&ta, &ta, &ta + 1, 1};
uchar *p;
ta.t = p = (uchar *) outptr;
strcpy((
char *) p,
"#line ");
p +=
sizeof(
"#line ") - 1;
p = (uchar *) outnum((
char *) p, cursource->line);
*p++ =
' ';
*p++ =
'"';
if (cursource->filename[0] !=
'/' && wd[0])
{
strcpy((
char *) p, wd);
p += strlen(wd);
*p++ =
'/';
}
strcpy((
char *) p, cursource->filename);
p += strlen((
char *) p);
*p++ =
'"';
*p++ =
'\n';
ta.len = (
char *) p - outptr;
outptr = (
char *) p;
tr.tp = tr.bp;
puttokens(&tr);
}
/*
* Generate a pragma import/include directive
*/
void
genimport(
char const *fname,
int angled,
char const *iname,
int import)
{
static Token ta = {UNCLASS, 0, 0, NULL, 0};
static Tokenrow tr = {&ta, &ta, &ta + 1, 1};
uchar *p;
ta.t = p = (uchar *) outptr;
if (import)
strcpy((
char *) p,
"#pragma import");
else
strcpy((
char *) p,
"#pragma include");
p += strlen((
char *) p);
*p++ =
'(';
*p++ = angled ?
'<' :
'"';
strcpy((
char *) p, fname);
p += strlen(fname);
*p++ = angled ?
'>' :
'"';
*p++ =
',';
*p++ =
'"';
strcpy((
char *) p, iname);
p += strlen(iname);
*p++ =
'"';
*p++ =
')';
*p++ =
'\n';
ta.len = (
char *) p - outptr;
outptr = (
char *) p;
tr.tp = tr.bp;
puttokens(&tr);
}
/*
* Generate an extern C directive
*/
void
genwrap(
int end)
{
static Token ta = {UNCLASS, 0, 0, NULL, 0};
static Tokenrow tr = {&ta, &ta, &ta + 1, 1};
uchar *p;
if (!Cplusplus)
return;
ta.t = p = (uchar *) outptr;
if (! end)
strcpy((
char *) p,
"extern \"C\
" {");
else
strcpy((
char *) p,
"}");
p += strlen((
char *) p);
*p++ =
'\n';
ta.len = (
char *) p - outptr;
outptr = (
char *) p;
tr.tp = tr.bp;
puttokens(&tr);
}
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
