File: vms.h

package info (click to toggle)
luatex 0.70.1.20120524-3
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 242,132 kB
  • sloc: ansic: 890,140; cpp: 469,298; perl: 73,299; sh: 46,668; makefile: 16,604; python: 8,427; lisp: 6,684; xml: 3,926; lex: 3,784; java: 3,569; pascal: 3,569; yacc: 2,461; exp: 2,031; ruby: 1,375; objc: 1,362; tcl: 631; sed: 522; asm: 435; csh: 46; awk: 30
file content (17 lines) | stat: -rw-r--r-- 595 bytes parent folder | download | duplicates (25) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#ifdef VMS
/* The replacement ftell and fseek functions in the vaxvms.c file dated 
 * [02-Apr-87] do not work properly under OpenVMS 1.5 on DEC Alpha, when
 * compiled using DEC C 1.3. However, the DEC supplied ftell and fseek 
 * functions work fine. They should also work for DEC C on a VAX.
 */ 
#ifndef __DECC
#define ftell vms_ftell
#define fseek vms_fseek
#endif /* __DECC */
#define getchar vms_getchar
#define getenv vms_getenv
#define ungetc vms_ungetc
#define getname vms_getname
#define popen(pcmd, pmode)  fopen(pcmd, pmode)
#define pclose(pstream) fclose(pstream)
#endif /* VMS */