123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863 |
- /* Copyright (C) 1992, 1995, 1996, 1997, 1998, 1999, 2000 Aladdin Enterprises. All rights reserved.
-
- This software is provided AS-IS with no warranty, either express or
- implied.
-
- This software is distributed under license and may not be copied,
- modified or distributed except as expressly authorized under the terms
- of the license contained in the file LICENSE in this distribution.
-
- For more information about licensing, please refer to
- http://www.ghostscript.com/licensing/. For information on
- commercial licensing, go to http://www.artifex.com/licensing/ or
- contact Artifex Software, Inc., 101 Lucas Valley Road #110,
- San Rafael, CA 94903, U.S.A., +1(415)492-9861.
- */
- /* $Id: gp_os2.c,v 1.32 2004/09/27 21:14:00 ghostgum Exp $ */
- /* Common platform-specific routines for OS/2 and MS-DOS */
- /* compiled with GCC/EMX */
- #define INCL_DOS
- #define INCL_SPL
- #define INCL_SPLDOSPRINT
- #define INCL_SPLERRORS
- #define INCL_BASE
- #define INCL_ERRORS
- #define INCL_WIN
- #include <os2.h>
- #include "pipe_.h"
- #include "stdio_.h"
- #include "string_.h"
- #include <fcntl.h>
- #ifdef __IBMC__
- #define popen fopen /* doesn't support popen */
- #define pclose fclose /* doesn't support pclose */
- #else
- #include <dos.h>
- #endif
- /* Define the regs union tag for short registers. */
- # define rshort x
- #define intdos(a,b) _int86(0x21, a, b)
- #include "memory_.h"
- #include "string_.h"
- #include "gx.h"
- #include "gsexit.h"
- #include "gsmemory.h"
- #include "gsstruct.h"
- #include "gp.h"
- #include "gpmisc.h"
- #include "gsutil.h"
- #include "stdlib.h" /* need _osmode, exit */
- #include "time_.h"
- #include <time.h> /* should this be in time_.h? */
- #include "gp_os2.h"
- #include "gdevpm.h"
- #ifdef __EMX__
- #include <sys/emxload.h>
- #endif
- #if defined(__DLL__) && defined( __EMX__)
- /* This isn't provided in any of the libraries */
- /* We set this to the process environment in gp_init */
- char *fake_environ[3] =
- {"", NULL, NULL};
- char **environ = fake_environ;
- char **_environ = fake_environ;
- HWND hwndtext = (HWND) NULL;
- #endif
- #ifdef __DLL__
- /* use longjmp instead of exit when using DLL */
- #include <setjmp.h>
- extern jmp_buf gsdll_env;
- #endif
- #ifdef __DLL__
- #define isos2 TRUE
- #else
- #define isos2 (_osmode == OS2_MODE)
- #endif
- char pm_prntmp[256]; /* filename of printer spool temporary file */
- /* ------ Miscellaneous ------ */
- /* Get the string corresponding to an OS error number. */
- /* All reasonable compilers support it. */
- const char *
- gp_strerror(int errnum)
- {
- return strerror(errnum);
- }
- /* use Unix version for date and time */
- /* ------ Date and time ------ */
- /* Read the current time (in seconds since Jan. 1, 1970) */
- /* and fraction (in nanoseconds since midnight). */
- void
- gp_get_realtime(long *pdt)
- {
- struct timeval tp;
- struct timezone tzp;
- if (gettimeofday(&tp, &tzp) == -1) {
- lprintf("Ghostscript: gettimeofday failed!\n");
- tp.tv_sec = tp.tv_usec = 0;
- }
- /* tp.tv_sec is #secs since Jan 1, 1970 */
- pdt[0] = tp.tv_sec;
- pdt[1] = tp.tv_usec * 1000;
- #ifdef DEBUG_CLOCK
- printf("tp.tv_sec = %d tp.tv_usec = %d pdt[0] = %ld pdt[1] = %ld\n",
- tp.tv_sec, tp.tv_usec, pdt[0], pdt[1]);
- #endif
- }
- /* Read the current user CPU time (in seconds) */
- /* and fraction (in nanoseconds). */
- void
- gp_get_usertime(long *pdt)
- {
- gp_get_realtime(pdt); /* Use an approximation for now. */
- }
- /* ------ Console management ------ */
- /* Answer whether a given file is the console (input or output). */
- /* This is not a standard gp procedure, */
- /* but the MS Windows configuration needs it, */
- /* and other MS-DOS configurations might need it someday. */
- /* Don't know if it is needed for OS/2. */
- bool
- gp_file_is_console(FILE * f)
- {
- #ifndef __DLL__
- if (!isos2) {
- union REGS regs;
- if (f == NULL)
- return false;
- regs.h.ah = 0x44; /* ioctl */
- regs.h.al = 0; /* get device info */
- regs.rshort.bx = fileno(f);
- intdos(®s, ®s);
- return ((regs.h.dl & 0x80) != 0 && (regs.h.dl & 3) != 0);
- }
- #endif
- if (fileno(f) <= 2)
- return true;
- return false;
- }
- /* ------ Persistent data cache ------*/
-
- /* insert a buffer under a (type, key) pair */
- int gp_cache_insert(int type, byte *key, int keylen, void *buffer, int buflen)
- {
- /* not yet implemented */
- return 0;
- }
-
- /* look up a (type, key) in the cache */
- int gp_cache_query(int type, byte* key, int keylen, void **buffer,
- gp_cache_alloc alloc, void *userdata)
- {
- /* not yet implemented */
- return -1;
- }
- /* ------ File naming and accessing ------ */
- /* Define the character used for separating file names in a list. */
- const char gp_file_name_list_separator = ';';
- /* Define the default scratch file name prefix. */
- const char gp_scratch_file_name_prefix[] = "gs";
- /* Define the name of the null output file. */
- const char gp_null_file_name[] = "nul";
- /* Define the name that designates the current directory. */
- const char gp_current_directory_name[] = ".";
- /* Define the string to be concatenated with the file mode */
- /* for opening files without end-of-line conversion. */
- const char gp_fmode_binary_suffix[] = "b";
- /* Define the file modes for binary reading or writing. */
- const char gp_fmode_rb[] = "rb";
- const char gp_fmode_wb[] = "wb";
- /* ------ File enumeration ------ */
- struct file_enum_s {
- FILEFINDBUF3 findbuf;
- HDIR hdir;
- char *pattern;
- int patlen; /* orig pattern length */
- int pat_size; /* allocate space for pattern */
- int head_size; /* pattern length through last */
- /* :, / or \ */
- int first_time;
- gs_memory_t *memory;
- };
- gs_private_st_ptrs1(st_file_enum, struct file_enum_s, "file_enum",
- file_enum_enum_ptrs, file_enum_reloc_ptrs, pattern);
- /* Initialize an enumeration. may NEED WORK ON HANDLING * ? \. */
- file_enum *
- gp_enumerate_files_init(const char *pat, uint patlen, gs_memory_t * mem)
- {
- file_enum *pfen = gs_alloc_struct(mem, file_enum, &st_file_enum, "gp_enumerate_files");
- int pat_size = 2 * patlen + 1;
- char *pattern;
- int hsize = 0;
- int i;
- if (pfen == 0)
- return 0;
- /* pattern could be allocated as a string, */
- /* but it's simpler for GC and freeing to allocate it as bytes. */
- pattern = (char *)gs_alloc_bytes(mem, pat_size,
- "gp_enumerate_files(pattern)");
- if (pattern == 0)
- return 0;
- memcpy(pattern, pat, patlen);
- /* find directory name = header */
- for (i = 0; i < patlen; i++) {
- switch (pat[i]) {
- case '\\':
- if (i + 1 < patlen && pat[i + 1] == '\\')
- i++;
- /* falls through */
- case ':':
- case '/':
- hsize = i + 1;
- }
- }
- pattern[patlen] = 0;
- pfen->pattern = pattern;
- pfen->patlen = patlen;
- pfen->pat_size = pat_size;
- pfen->head_size = hsize;
- pfen->memory = mem;
- pfen->first_time = 1;
- pfen->hdir = HDIR_CREATE;
- return pfen;
- }
- /* Enumerate the next file. */
- uint
- gp_enumerate_files_next(file_enum * pfen, char *ptr, uint maxlen)
- {
- APIRET rc;
- ULONG cFilenames = 1;
- if (!isos2) {
- /* CAN'T DO IT SO JUST RETURN THE PATTERN. */
- if (pfen->first_time) {
- char *pattern = pfen->pattern;
- uint len = strlen(pattern);
- pfen->first_time = 0;
- if (len > maxlen)
- return maxlen + 1;
- strcpy(ptr, pattern);
- return len;
- }
- return -1;
- }
- /* else OS/2 */
- if (pfen->first_time) {
- rc = DosFindFirst(pfen->pattern, &pfen->hdir, FILE_NORMAL,
- &pfen->findbuf, sizeof(pfen->findbuf),
- &cFilenames, FIL_STANDARD);
- pfen->first_time = 0;
- } else {
- rc = DosFindNext(pfen->hdir, &pfen->findbuf, sizeof(pfen->findbuf),
- &cFilenames);
- }
- if (rc)
- return -1;
- if (pfen->head_size + pfen->findbuf.cchName < maxlen) {
- memcpy(ptr, pfen->pattern, pfen->head_size);
- strcpy(ptr + pfen->head_size, pfen->findbuf.achName);
- return pfen->head_size + pfen->findbuf.cchName;
- }
- if (pfen->head_size >= maxlen)
- return 0; /* no hope at all */
- memcpy(ptr, pfen->pattern, pfen->head_size);
- strncpy(ptr + pfen->head_size, pfen->findbuf.achName,
- maxlen - pfen->head_size - 1);
- return maxlen;
- }
- /* Clean up the file enumeration. */
- void
- gp_enumerate_files_close(file_enum * pfen)
- {
- gs_memory_t *mem = pfen->memory;
- if (isos2)
- DosFindClose(pfen->hdir);
- gs_free_object(mem, pfen->pattern,
- "gp_enumerate_files_close(pattern)");
- gs_free_object(mem, pfen, "gp_enumerate_files_close");
- }
- /*************************************************************/
- /* from gp_iwatc.c and gp_itbc.c */
- /* Intel processor, EMX/GCC specific routines for Ghostscript */
- #include <signal.h>
- #include "stat_.h"
- #include "string_.h"
- /* Library routines not declared in a standard header */
- /* extern char *getenv(const char *); */
- /* Forward declarations */
- private void handle_FPE(int);
- /* Do platform-dependent initialization. */
- void
- gp_init(void)
- {
- #if defined(__DLL__) && defined(__EMX__)
- PTIB pptib;
- PPIB pppib;
- int i;
- char *p;
- /* get environment of EXE */
- DosGetInfoBlocks(&pptib, &pppib);
- for (i = 0, p = pppib->pib_pchenv; *p; p += strlen(p) + 1)
- i++;
- _environ = environ = (char **)malloc((i + 2) * sizeof(char *));
- for (i = 0, p = pppib->pib_pchenv; *p; p += strlen(p) + 1) {
- environ[i] = p;
- i++;
- }
- environ[i] = p;
- i++;
- environ[i] = NULL;
- #endif
- /* keep gsos2.exe in memory for number of minutes specified in */
- /* environment variable GS_LOAD */
- #ifdef __EMX__
- _emxload_env("GS_LOAD");
- #endif
- /* Set up the handler for numeric exceptions. */
- signal(SIGFPE, handle_FPE);
- }
- /* Trap numeric exceptions. Someday we will do something */
- /* more appropriate with these. */
- private void
- handle_FPE(int sig)
- {
- eprintf("Numeric exception:\n");
- exit(1);
- }
- /* Do platform-dependent cleanup. */
- void
- gp_exit(int exit_status, int code)
- {
- #if defined(__DLL__) && defined(__EMX__)
- if (environ != fake_environ) {
- free(environ);
- environ = _environ = fake_environ;
- }
- #endif
- }
- /* Exit the program. */
- void
- gp_do_exit(int exit_status)
- {
- exit(exit_status);
- }
- /* ------ Printer accessing ------ */
- private int is_os2_spool(const char *queue);
- /* Put a printer file (which might be stdout) into binary or text mode. */
- /* This is not a standard gp procedure, */
- /* but all MS-DOS configurations need it. */
- void
- gp_set_file_binary(int prnfno, int binary)
- {
- #ifndef __IBMC__
- union REGS regs;
- regs.h.ah = 0x44; /* ioctl */
- regs.h.al = 0; /* get device info */
- regs.rshort.bx = prnfno;
- intdos(®s, ®s);
- if (((regs.rshort.flags) & 1) != 0 || !(regs.h.dl & 0x80))
- return; /* error, or not a device */
- if (binary)
- regs.h.dl |= 0x20; /* binary (no ^Z intervention) */
- else
- regs.h.dl &= ~0x20; /* text */
- regs.h.dh = 0;
- regs.h.ah = 0x44; /* ioctl */
- regs.h.al = 1; /* set device info */
- intdos(®s, ®s);
- #endif
- }
- /* Open a connection to a printer. A null file name means use the */
- /* standard printer connected to the machine, if any. */
- /* Return NULL if the connection could not be opened. */
- /* filename can be one of the following values
- * "" Spool in default queue
- * "\\spool\queue" Spool in "queue"
- * "|command" open an output pipe using popen()
- * "filename" open filename using fopen()
- * "port" open port using fopen()
- */
- FILE *
- gp_open_printer(char fname[gp_file_name_sizeof], int binary_mode)
- {
- FILE *pfile;
- if ((strlen(fname) == 0) || is_os2_spool(fname)) {
- if (isos2) {
- /* default or spool */
- if (pm_spool(NULL, fname)) /* check if spool queue valid */
- return NULL;
- pfile = gp_open_scratch_file(gp_scratch_file_name_prefix,
- pm_prntmp, (binary_mode ? "wb" : "w"));
- } else
- pfile = fopen("PRN", (binary_mode ? "wb" : "w"));
- } else if ((isos2) && (fname[0] == '|'))
- /* pipe */
- pfile = popen(fname + 1, (binary_mode ? "wb" : "w"));
- else
- /* normal file or port */
- pfile = fopen(fname, (binary_mode ? "wb" : "w"));
- if (pfile == (FILE *) NULL)
- return (FILE *) NULL;
- if (!isos2)
- gp_set_file_binary(fileno(pfile), binary_mode);
- return pfile;
- }
- /* Close the connection to the printer. */
- void
- gp_close_printer(FILE * pfile, const char *fname)
- {
- if (isos2 && (fname[0] == '|'))
- pclose(pfile);
- else
- fclose(pfile);
- if ((strlen(fname) == 0) || is_os2_spool(fname)) {
- /* spool temporary file */
- pm_spool(pm_prntmp, fname);
- unlink(pm_prntmp);
- }
- }
- /* ------ File accessing -------- */
- /* Set a file into binary or text mode. */
- int
- gp_setmode_binary(FILE * pfile, bool binary)
- {
- gp_set_file_binary(fileno(pfile), binary);
- return 0;
- }
- /* ------ Printer Spooling ------ */
- #ifndef NERR_BufTooSmall
- #define NERR_BufTooSmall 2123 /* For SplEnumQueue */
- #endif
- /* If queue_name is NULL, list available queues */
- /* If strlen(queue_name)==0, return default queue and driver name */
- /* If queue_name supplied, return driver_name */
- /* returns 0 if OK, non-zero for error */
- int
- pm_find_queue(char *queue_name, char *driver_name)
- {
- SPLERR splerr;
- USHORT jobCount;
- ULONG cbBuf;
- ULONG cTotal;
- ULONG cReturned;
- ULONG cbNeeded;
- ULONG ulLevel;
- ULONG i;
- PSZ pszComputerName;
- PBYTE pBuf;
- PPRQINFO3 prq;
- ulLevel = 3L;
- pszComputerName = (PSZ) NULL;
- splerr = SplEnumQueue(pszComputerName, ulLevel, pBuf, 0L, /* cbBuf */
- &cReturned, &cTotal,
- &cbNeeded, NULL);
- if (splerr == ERROR_MORE_DATA || splerr == NERR_BufTooSmall) {
- if (!DosAllocMem((PVOID) & pBuf, cbNeeded,
- PAG_READ | PAG_WRITE | PAG_COMMIT)) {
- cbBuf = cbNeeded;
- splerr = SplEnumQueue(pszComputerName, ulLevel, pBuf, cbBuf,
- &cReturned, &cTotal,
- &cbNeeded, NULL);
- if (splerr == NO_ERROR) {
- /* Set pointer to point to the beginning of the buffer. */
- prq = (PPRQINFO3) pBuf;
- /* cReturned has the count of the number of PRQINFO3 structures. */
- for (i = 0; i < cReturned; i++) {
- if (queue_name) {
- /* find queue name and return driver name */
- if (strlen(queue_name) == 0) { /* use default queue */
- if (prq->fsType & PRQ3_TYPE_APPDEFAULT)
- strcpy(queue_name, prq->pszName);
- }
- if (strcmp(prq->pszName, queue_name) == 0) {
- char *p;
- for (p = prq->pszDriverName; *p && (*p != '.'); p++)
- /* do nothing */ ;
- *p = '\0'; /* truncate at '.' */
- if (driver_name != NULL)
- strcpy(driver_name, prq->pszDriverName);
- DosFreeMem((PVOID) pBuf);
- return 0;
- }
- } else {
- /* list queue details */
- if (prq->fsType & PRQ3_TYPE_APPDEFAULT)
- eprintf1(" \042%s\042 (DEFAULT)\n", prq->pszName);
- else
- eprintf1(" \042%s\042\n", prq->pszName);
- }
- prq++;
- } /*endfor cReturned */
- }
- DosFreeMem((PVOID) pBuf);
- }
- }
- /* end if Q level given */
- else {
- /* If we are here we had a bad error code. Print it and some other info. */
- eprintf4("SplEnumQueue Error=%ld, Total=%ld, Returned=%ld, Needed=%ld\n",
- splerr, cTotal, cReturned, cbNeeded);
- }
- if (splerr)
- return splerr;
- if (queue_name)
- return -1;
- return 0;
- }
- /* return TRUE if queue looks like a valid OS/2 queue name */
- private int
- is_os2_spool(const char *queue)
- {
- char *prefix = "\\\\spool\\"; /* 8 characters long */
- int i;
- for (i = 0; i < 8; i++) {
- if (prefix[i] == '\\') {
- if ((*queue != '\\') && (*queue != '/'))
- return FALSE;
- } else if (tolower(*queue) != prefix[i])
- return FALSE;
- queue++;
- }
- return TRUE;
- }
- #define PRINT_BUF_SIZE 16384
- /* Spool file to queue */
- /* return 0 if successful, non-zero if error */
- /* if filename is NULL, return 0 if spool queue is valid, non-zero if error */
- int
- pm_spool(char *filename, const char *queue)
- {
- HSPL hspl;
- PDEVOPENSTRUC pdata;
- PSZ pszToken = "*";
- ULONG jobid;
- BOOL rc;
- char queue_name[256];
- char driver_name[256];
- char *buffer;
- FILE *f;
- int count;
- if (strlen(queue) != 0) {
- /* queue specified */
- strcpy(queue_name, queue + 8); /* skip over \\spool\ */
- } else {
- /* get default queue */
- queue_name[0] = '\0';
- }
- if (pm_find_queue(queue_name, driver_name)) {
- /* error, list valid queue names */
- eprintf("Invalid queue name. Use one of:\n");
- pm_find_queue(NULL, NULL);
- return 1;
- }
- if (!filename)
- return 0; /* we were only asked to check the queue */
- if ((buffer = malloc(PRINT_BUF_SIZE)) == (char *)NULL) {
- eprintf("Out of memory in pm_spool\n");
- return 1;
- }
- if ((f = fopen(filename, "rb")) == (FILE *) NULL) {
- free(buffer);
- eprintf1("Can't open temporary file %s\n", filename);
- return 1;
- }
- /* Allocate memory for pdata */
- if (!DosAllocMem((PVOID) & pdata, sizeof(DEVOPENSTRUC),
- (PAG_READ | PAG_WRITE | PAG_COMMIT))) {
- /* Initialize elements of pdata */
- pdata->pszLogAddress = queue_name;
- pdata->pszDriverName = driver_name;
- pdata->pdriv = NULL;
- pdata->pszDataType = "PM_Q_RAW";
- pdata->pszComment = "Ghostscript";
- pdata->pszQueueProcName = NULL;
- pdata->pszQueueProcParams = NULL;
- pdata->pszSpoolerParams = NULL;
- pdata->pszNetworkParams = NULL;
- hspl = SplQmOpen(pszToken, 4L, (PQMOPENDATA) pdata);
- if (hspl == SPL_ERROR) {
- eprintf("SplQmOpen failed.\n");
- DosFreeMem((PVOID) pdata);
- free(buffer);
- fclose(f);
- return 1; /* failed */
- }
- rc = SplQmStartDoc(hspl, "Ghostscript");
- if (!rc) {
- eprintf("SplQmStartDoc failed.\n");
- DosFreeMem((PVOID) pdata);
- free(buffer);
- fclose(f);
- return 1;
- }
- /* loop, copying file to queue */
- while (rc && (count = fread(buffer, 1, PRINT_BUF_SIZE, f)) != 0) {
- rc = SplQmWrite(hspl, count, buffer);
- if (!rc)
- eprintf("SplQmWrite failed.\n");
- }
- free(buffer);
- fclose(f);
- if (!rc) {
- eprintf("Aborting Spooling.\n");
- SplQmAbort(hspl);
- } else {
- SplQmEndDoc(hspl);
- rc = SplQmClose(hspl);
- if (!rc)
- eprintf("SplQmClose failed.\n");
- }
- } else
- rc = 0; /* no memory */
- return !rc;
- }
- /* ------ File naming and accessing ------ */
- /* Create and open a scratch file with a given name prefix. */
- /* Write the actual file name at fname. */
- FILE *
- gp_open_scratch_file(const char *prefix, char fname[gp_file_name_sizeof],
- const char *mode)
- {
- FILE *f;
- #ifdef __IBMC__
- char *temp = 0;
- char *tname;
- int prefix_length = strlen(prefix);
- if (!gp_file_name_is_absolute(prefix, prefix_length)) {
- temp = getenv("TMPDIR");
- if (temp == 0)
- temp = getenv("TEMP");
- }
- *fname = 0;
- tname = _tempnam(temp, (char *)prefix);
- if (tname) {
- if (strlen(tname) > gp_file_name_sizeof - 1) {
- free(tname);
- return 0; /* file name too long */
- }
- strcpy(fname, tname);
- free(tname);
- }
- #else
- /* The -7 is for XXXXXX plus a possible final \. */
- int prefix_length = strlen(prefix);
- int len = gp_file_name_sizeof - prefix_length - 7;
- if (gp_file_name_is_absolute(prefix, prefix_length) ||
- gp_gettmpdir(fname, &len) != 0)
- *fname = 0;
- else {
- char last = '\\';
- char *temp;
- /* Prevent X's in path from being converted by mktemp. */
- for (temp = fname; *temp; temp++)
- *temp = last = tolower(*temp);
- switch (last) {
- default:
- strcat(fname, "\\");
- case ':':
- case '\\':
- ;
- }
- }
- if (strlen(fname) + prefix_length + 7 >= gp_file_name_sizeof)
- return 0; /* file name too long */
- strcat(fname, prefix);
- strcat(fname, "XXXXXX");
- mktemp(fname);
- #endif
- f = gp_fopentemp(fname, mode);
- if (f == NULL)
- eprintf1("**** Could not open temporary file %s\n", fname);
- return f;
- }
- /* Open a file with the given name, as a stream of uninterpreted bytes. */
- FILE *
- gp_fopen(const char *fname, const char *mode)
- {
- return fopen(fname, mode);
- }
- /* -------------- Helpers for gp_file_name_combine_generic ------------- */
- uint gp_file_name_root(const char *fname, uint len)
- { int i = 0;
-
- if (len == 0)
- return 0;
- if (len > 1 && fname[0] == '\\' && fname[1] == '\\') {
- /* A network path: "\\server\share\" */
- int k = 0;
- for (i = 2; i < len; i++)
- if (fname[i] == '\\' || fname[i] == '/')
- if (k++) {
- i++;
- break;
- }
- } else if (fname[0] == '/' || fname[0] == '\\') {
- /* Absolute with no drive. */
- i = 1;
- } else if (len > 1 && fname[1] == ':') {
- /* Absolute with a drive. */
- i = (len > 2 && (fname[2] == '/' || fname[2] == '\\') ? 3 : 2);
- }
- return i;
- }
- uint gs_file_name_check_separator(const char *fname, int len, const char *item)
- { if (len > 0) {
- if (fname[0] == '/' || fname[0] == '\\')
- return 1;
- } else if (len < 0) {
- if (fname[-1] == '/' || fname[-1] == '\\')
- return 1;
- }
- return 0;
- }
- bool gp_file_name_is_parent(const char *fname, uint len)
- { return len == 2 && fname[0] == '.' && fname[1] == '.';
- }
- bool gp_file_name_is_current(const char *fname, uint len)
- { return len == 1 && fname[0] == '.';
- }
- const char *gp_file_name_separator(void)
- { return "/";
- }
- const char *gp_file_name_directory_separator(void)
- { return "/";
- }
- const char *gp_file_name_parent(void)
- { return "..";
- }
- const char *gp_file_name_current(void)
- { return ".";
- }
- bool gp_file_name_is_partent_allowed(void)
- { return true;
- }
- bool gp_file_name_is_empty_item_meanful(void)
- { return false;
- }
- gp_file_name_combine_result
- gp_file_name_combine(const char *prefix, uint plen, const char *fname, uint flen,
- bool no_sibling, char *buffer, uint *blen)
- {
- return gp_file_name_combine_generic(prefix, plen,
- fname, flen, no_sibling, buffer, blen);
- }
- /* ------ Font enumeration ------ */
-
- /* This is used to query the native os for a list of font names and
- * corresponding paths. The general idea is to save the hassle of
- * building a custom fontmap file.
- */
-
- void *gp_enumerate_fonts_init(gs_memory_t *mem)
- {
- return NULL;
- }
-
- int gp_enumerate_fonts_next(void *enum_state, char **fontname, char **path)
- {
- return 0;
- }
-
- void gp_enumerate_fonts_free(void *enum_state)
- {
- }
|