t/common.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#ifdef _MSC_VER
#define _CRT_SECURE_NO_WARNINGS
#endif // _MSC_VER

#include <stdarg.h>
#include <stdio.h>

int Pascal_puts(const char* s) { return puts(s); }

int Pascal_printf(const char* fmt, ...) {
    int rv;
    va_list va;
    va_start(va, fmt);
    rv = vprintf(fmt, va);
    va_end(va);
    return rv;
}

int Pascal_scanf(const char* fmt, ...) {
    int rv;
    va_list va;
    va_start(va, fmt);
    rv = vscanf(fmt, va);
    va_end(va);
    return rv;
}