summaryrefslogtreecommitdiff
path: root/idlc/source/preproc/include.c
diff options
context:
space:
mode:
Diffstat (limited to 'idlc/source/preproc/include.c')
-rw-r--r--idlc/source/preproc/include.c259
1 files changed, 259 insertions, 0 deletions
diff --git a/idlc/source/preproc/include.c b/idlc/source/preproc/include.c
new file mode 100644
index 000000000000..522d27ff2cc8
--- /dev/null
+++ b/idlc/source/preproc/include.c
@@ -0,0 +1,259 @@
+/*************************************************************************
+ *
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+ *
+ * Copyright 2008 by Sun Microsystems, Inc.
+ *
+ * OpenOffice.org - a multi-platform office productivity suite
+ *
+ * $RCSfile: include.c,v $
+ * $Revision: 1.6 $
+ *
+ * This file is part of OpenOffice.org.
+ *
+ * OpenOffice.org is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Lesser General Public License version 3
+ * only, as published by the Free Software Foundation.
+ *
+ * OpenOffice.org is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU Lesser General Public License version 3 for more details
+ * (a copy is included in the LICENSE file that accompanied this code).
+ *
+ * You should have received a copy of the GNU Lesser General Public License
+ * version 3 along with OpenOffice.org. If not, see
+ * <http://www.openoffice.org/license.html>
+ * for a copy of the LGPLv3 License.
+ *
+ ************************************************************************/
+#if (defined(_WIN32) || defined(_MSDOS) || defined(__IBMC__))
+# include <io.h>
+#else
+# include <unistd.h>
+#endif
+#ifdef _MSC_VER
+# define _POSIX_
+#endif
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <fcntl.h>
+
+#ifdef __hpux
+# define _HPUX_SOURCE
+#endif
+#ifdef SCO
+#define _IBCS2
+#endif
+#include <limits.h>
+
+#include "cpp.h"
+
+Includelist includelist[NINCLUDE];
+Wraplist wraplist[NINCLUDE];
+
+void
+ doinclude(Tokenrow * trp, int depth, int import)
+{
+#ifdef OS2
+ char fname[_MAX_PATH], iname[_MAX_PATH];
+#else
+ char fname[PATH_MAX], iname[PATH_MAX];
+#endif
+ Includelist *ip;
+ int angled, len, fd, i;
+
+ 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, "<include>");
+ trp->tp = trp->bp + len;
+ }
+ if (trp->tp->type == STRING)
+ {
+ len = trp->tp->len - 2;
+ if (len > (int)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, 0, NULL };
+ 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 *fname, int angled, char *iname, int import)
+{
+ static Token ta = {UNCLASS, 0, 0, 0, NULL };
+ 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 a extern C directive
+ */
+void
+ genwrap(int end)
+{
+ static Token ta = {UNCLASS, 0, 0, 0, NULL};
+ static Tokenrow tr = {&ta, &ta, &ta + 1, 1};
+ uchar *p;
+
+ if (Cplusplus)
+ {
+ 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);
+ }
+}
+
generated by cgit v1.2.3 (git 2.39.1) at 2024-06-15 13:42:24 +0000