From c554f18d78fff71aff2d79309b19155de407363d Mon Sep 17 00:00:00 2001 From: Chris Wilson Date: Fri, 31 Oct 2008 15:37:58 +0000 Subject: [PATCH] [util] Add cairo-trace. This tool can be used to trace all the cairo function calls made by an applications. This is useful for either extracting a test case triggering a bug from an application, or simply to get a general idea of how an application is using cairo. After make install, cairo-trace program arguments, will print out all the cairo calls to the terminal and also capture theme in ./program.$pid.trace The format of the output is CairoScript, watch this space for more cairo-script tools! --- build/configure.ac.system | 2 + configure.ac | 17 + util/Makefile.am | 6 + util/README | 8 - util/cairo-trace/Makefile.am | 21 + util/cairo-trace/cairo-trace.in | 58 + util/cairo-trace/lookup-symbol.c | 290 +++ util/cairo-trace/lookup-symbol.h | 24 + util/cairo-trace/trace.c | 3345 ++++++++++++++++++++++++++++++ 9 files changed, 3763 insertions(+), 8 deletions(-) create mode 100644 util/cairo-trace/Makefile.am create mode 100644 util/cairo-trace/cairo-trace.in create mode 100644 util/cairo-trace/lookup-symbol.c create mode 100644 util/cairo-trace/lookup-symbol.h create mode 100644 util/cairo-trace/trace.c diff --git a/build/configure.ac.system b/build/configure.ac.system index e915443dc..d06b7989b 100644 --- a/build/configure.ac.system +++ b/build/configure.ac.system @@ -10,6 +10,8 @@ AM_CONDITIONAL(CROSS_COMPILING, test "x$cross_compiling" = "xyes") CAIRO_BIGENDIAN CAIRO_CHECK_NATIVE_ATOMIC_PRIMITIVES CAIRO_CHECK_ATOMIC_OP_NEEDS_MEMORY_BARRIER +AC_CHECK_SIZEOF(void *) +AC_CHECK_SIZEOF(size_t) AC_MSG_CHECKING([for native Win32]) case "$host" in diff --git a/configure.ac b/configure.ac index a27a73aba..da2f8613e 100644 --- a/configure.ac +++ b/configure.ac @@ -480,6 +480,21 @@ AM_CONDITIONAL(BUILD_ANY2PPM, -o "x$any2ppm_pdf" = "xyes" \ -o "x$any2ppm_ps" = "xyes") +dnl =========================================================================== +dnl The tracing utility requires LD_PRELOAD, so only build it for systems +dnl that are known to work. + +case $host in +*-linux*|*-*bsd*) + have_ld_preload="yes" + ;; +*) + have_ld_preload="no" + ;; +esac + +AM_CONDITIONAL(BUILD_TRACE, test "x$have_ld_preload" = "xyes") + dnl =========================================================================== AC_ARG_ENABLE(some-floating-point, @@ -516,6 +531,8 @@ test/Makefile test/pdiff/Makefile perf/Makefile util/Makefile +util/cairo-trace/Makefile +util/cairo-trace/cairo-trace doc/Makefile doc/public/Makefile ]) diff --git a/util/Makefile.am b/util/Makefile.am index 69c1f38c1..a9ce8dee7 100644 --- a/util/Makefile.am +++ b/util/Makefile.am @@ -1,5 +1,11 @@ include $(top_srcdir)/build/Makefile.am.common +SUBDIRS = . + +if BUILD_TRACE +SUBDIRS += cairo-trace +endif + util: malloc-stats.so backtrace-symbols.so .la.so: diff --git a/util/README b/util/README index 62527dd53..43d80553e 100644 --- a/util/README +++ b/util/README @@ -50,14 +50,6 @@ applications. This is useful for either extracting a test case triggering a bug from an application, or simply to get a general idea of how an application is using cairo. -This tool lives outside the cairo source distribution right now and can -be found in a git repository at: - - http://cgit.freedesktop.org/~ickle/cairo-trace/ - -There are plans to move it to this directory in the future, and possibly -install it on the system. - cairo-api-update and xr2cairo ----------------------------- diff --git a/util/cairo-trace/Makefile.am b/util/cairo-trace/Makefile.am new file mode 100644 index 000000000..cdf03a4ff --- /dev/null +++ b/util/cairo-trace/Makefile.am @@ -0,0 +1,21 @@ +bin_SCRIPTS = cairo-trace +lib_LTLIBRARIES = cairo-trace.la + +AM_CPPFLAGS = -I$(top_srcdir)/src \ + -I$(top_builddir)/src + +cairo_trace_la_SOURCES = \ + lookup-symbol.c \ + lookup-symbol.h \ + trace.c +cairo_trace_la_CFLAGS = @FREETYPE_CFLAGS@ @CAIRO_CFLAGS@ +cairo_trace_la_LDFLAGS = -module -no-undefined +cairo_trace_la_LIBADD = -ldl -lz -lbfd + +system-install: + grep -sq @libdir@/cairo-trace.so /etc/ld.so.preload || echo @libdir@/cairo-trace.so >> /etc/ld.so.preload + +system-uninstall: + sed -e '/\/usr\/local\/lib\/cairo-trace.so/d' < /etc/ld.so.preload > /tmp/ld.so.preload && mv /tmp/ld.so.preload /etc/ld.so.preload; + +EXTRA_DIST = cairo-trace.in diff --git a/util/cairo-trace/cairo-trace.in b/util/cairo-trace/cairo-trace.in new file mode 100644 index 000000000..ee3816147 --- /dev/null +++ b/util/cairo-trace/cairo-trace.in @@ -0,0 +1,58 @@ +#!/bin/sh + +prefix=@prefix@ +exec_prefix=@exec_prefix@ + +nofile= +silent= + +skip=1 +while test $skip -eq 1; do + skip=0 + case $1 in + --silent) + skip=1 + silent=1 + ;; + --no-file) + skip=1 + nofile=1 + ;; + esac + if test $skip -eq 1; then + shift + fi +done + +if test $# -eq 0; then +cat << EOF +usage: cairo-trace [--no-file|--silent] command +cairo-trace will generate a log of all calls made by command to +cairo. This log will be stored in a file in the local directory +called command.pid.trace. +Whatever else happens is driven by its argument: + --silent - disables the overriding of stdout by cairo-trace. + The trace file is still generated, but your application + is free to continue to use stdout. + --no-file - disables the generation of an output file + +Enviroment variables understood by cairo-trace: + CAIRO_TRACE_FLUSH - flush the output after every function call. +EOF +exit +fi + +#echo $* + +filename="" +if test -z "$nofile"; then + filename=`basename $1`.$$.trace +fi + +if test -z "$filename"; then + LD_PRELOAD=@libdir@/cairo-trace.so CAIRO_TRACE_FD=3 LC_ALL=C $* 3>&1 >/dev/null +elif test -n "$silent"; then + LD_PRELOAD=@libdir@/cairo-trace.so LC_ALL=C CAIRO_TRACE_OUTFILE_EXACT=$filename $* +else + LD_PRELOAD=@libdir@/cairo-trace.so CAIRO_TRACE_FD=3 LC_ALL=C $* 3>&1 >/dev/null | tee $filename +fi diff --git a/util/cairo-trace/lookup-symbol.c b/util/cairo-trace/lookup-symbol.c new file mode 100644 index 000000000..b5f0fdfd1 --- /dev/null +++ b/util/cairo-trace/lookup-symbol.c @@ -0,0 +1,290 @@ +/* cairo-trace - a utility to record and replay calls to the Cairo library. + * + * Copyright © 2008 Chris Wilson + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +/* + * A less hacky utility to lookup the debug strings for a particular + * .text address. + * Derived from backtrace-symbols.c in cairo by Chris Wilson. + */ + +/* + A hacky replacement for backtrace_symbols in glibc + + backtrace_symbols in glibc looks up symbols using dladdr which is limited + in the symbols that it sees. libbacktracesymbols opens the executable and + shared libraries using libbfd and will look up backtrace information using + the symbol table and the dwarf line information. + + It may make more sense for this program to use libelf instead of libbfd. + However, I have not investigated that yet. + + Derived from addr2line.c from GNU Binutils by Jeff Muizelaar + + Copyright 2007 Jeff Muizelaar + */ + +/* addr2line.c -- convert addresses to line number and function name + Copyright 1997, 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. + Contributed by Ulrich Lauther + + This file was part of GNU Binutils. + */ + +#define _GNU_SOURCE + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif + +#define true 1 +#define false 0 + +#include "lookup-symbol.h" + +#include +#include +#include +#include +#include + +#ifdef HAVE_LIBBFD +#include +#include + +struct symtab { + bfd *bfd; + asymbol **syms; +}; + +struct symbol { + int found; + bfd_vma pc; + struct symtab *symtab; + const char *filename; + const char *functionname; + unsigned int line; +}; + + +static void +_symtab_fini (struct symtab *symtab) +{ + if (symtab->syms != NULL) + free (symtab->syms); + if (symtab->bfd != NULL) + bfd_close (symtab->bfd); +} + +/* Read in the symbol table. */ +static int +_symtab_init (struct symtab *symtab, const char *filename) +{ + char **matching; + long symcount; + unsigned int size; + + symtab->bfd = NULL; + symtab->syms = NULL; + + symtab->bfd = bfd_openr (filename, NULL); + if (symtab->bfd == NULL) + goto BAIL; + + if (bfd_check_format (symtab->bfd, bfd_archive)) + goto BAIL; + + if (! bfd_check_format_matches (symtab->bfd, bfd_object, &matching)) + goto BAIL; + + symcount = bfd_read_minisymbols (symtab->bfd, false, (PTR) &symtab->syms, &size); + if (symcount == 0) { + symcount = bfd_read_minisymbols (symtab->bfd, true /* dynamic */ , + (PTR) &symtab->syms, &size); + } + if (symcount < 0) + goto BAIL; + + if ((bfd_get_file_flags (symtab->bfd) & HAS_SYMS) == 0) + goto BAIL; + + return 1; + +BAIL: + _symtab_fini (symtab); + return 0; +} + +/* Look for an address in a section. + * This is called via bfd_map_over_sections. + */ +static void +find_address_in_section (bfd *abfd, + asection *section, + void *data) +{ + bfd_vma vma; + bfd_size_type size; + struct symbol *symbol = data; + struct symtab *symtab = symbol->symtab; + + if (symbol->found) + return; + + if ((bfd_get_section_flags (symtab->bfd, section) & SEC_ALLOC) == 0) + return; + + vma = bfd_get_section_vma (symtab->bfd, section); + if (symbol->pc < vma) + return; + + size = bfd_section_size (symtab->bfd, section); + if (symbol->pc >= vma + size) + return; + + symbol->found = bfd_find_nearest_line (symtab->bfd, section, + symtab->syms, + symbol->pc - vma, + &symbol->filename, + &symbol->functionname, + &symbol->line); +} + +static void +_symbol_fini (struct symbol *symbol) +{ +} + +static void +_symbol_init (struct symbol *symbol, struct symtab *symtab, bfd_vma addr) +{ + symbol->found = false; + symbol->symtab = symtab; + symbol->pc = addr; +} + +static int +_symbol_print (struct symbol *symbol, char *buf, int buflen, const char *filename) +{ + if (! symbol->found) { + buflen = snprintf (buf, buflen, + "[0x%llx] \?\?() \?\?:0", + (long long unsigned int) symbol->pc); + } else { + const char *name, *h; + char path[1024]; + + name = symbol->functionname; + if (name == NULL || *name == '\0') + name = "??"; + + if (symbol->filename != NULL) + filename = symbol->filename; + if (strcmp (filename, "/proc/self/exe") == 0) { + int len = readlink ("/proc/self/exe", path, sizeof (path) - 1); + if (len != -1) { + path[len] = '\0'; + filename = path; + } + } + h = strrchr (filename, '/'); + if (h != NULL) + filename = h + 1; + + if (symbol->line) { + buflen = snprintf (buf, buflen, "%s (%s:%u)", + name, filename, symbol->line); + } else { + buflen = snprintf (buf, buflen, "%s (%s)", name, filename); + } + } + + return buflen; +} +#endif + +struct file_match { + const char *file; + ElfW(Addr) address; + ElfW(Addr) base; + void *hdr; +}; + +static int +find_matching_file (struct dl_phdr_info *info, size_t size, void *data) +{ + struct file_match *match = data; + /* This code is modeled from Gfind_proc_info-lsb.c:callback() from libunwind */ + long n; + const ElfW(Phdr) *phdr; + ElfW(Addr) load_base = info->dlpi_addr; + + phdr = info->dlpi_phdr; + for (n = info->dlpi_phnum; --n >= 0; phdr++) { + if (phdr->p_type == PT_LOAD) { + ElfW(Addr) vaddr = phdr->p_vaddr + load_base; + if (match->address >= vaddr && + match->address < vaddr + phdr->p_memsz) + { + /* we found a match */ + match->file = info->dlpi_name; + match->base = info->dlpi_addr; + return 1; + } + } + } + + return 0; +} + +char * +lookup_symbol (char *buf, int buflen, const void *ptr) +{ + struct file_match match; +#ifdef HAVE_LIBBFD + struct symtab symtab; + struct symbol symbol; +#endif + int i; + + match.address = (ElfW(Addr)) ptr; + dl_iterate_phdr (find_matching_file, &match); + + i = snprintf (buf, buflen, + "0x%llx", + (long long unsigned int) match.address); + + if (match.file == NULL || *match.file == '\0') + match.file = "/proc/self/exe"; + +#ifdef HAVE_LIBBFD + if (! _symtab_init (&symtab, match.file)) + return buf; + + _symbol_init (&symbol, &symtab, match.address - match.base); + bfd_map_over_sections (symtab.bfd, find_address_in_section, &symbol); + if (symbol.found) { + buf[i++] = ' '; + _symbol_print (&symbol, buf + i, buflen - i, match.file); + } + _symbol_fini (&symbol); + + _symtab_fini (&symtab); +#endif + + return buf; +} diff --git a/util/cairo-trace/lookup-symbol.h b/util/cairo-trace/lookup-symbol.h new file mode 100644 index 000000000..83817edc6 --- /dev/null +++ b/util/cairo-trace/lookup-symbol.h @@ -0,0 +1,24 @@ +/* cairo-trace - a utility to record and replay calls to the Cairo library. + * + * Copyright © 2008 Chris Wilson + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#ifndef LOOKUP_SYMBOLS_H + +char * +lookup_symbol (char *buf, int len, const void *ptr); + +#endif /*LOOKUP_SYMBOLS_H */ diff --git a/util/cairo-trace/trace.c b/util/cairo-trace/trace.c new file mode 100644 index 000000000..548eb6942 --- /dev/null +++ b/util/cairo-trace/trace.c @@ -0,0 +1,3345 @@ +/* cairo-trace - a utility to record and replay calls to the Cairo library. + * + * Copyright © 2008 Chris Wilson + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +#define _GNU_SOURCE + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#include +#ifdef CAIRO_HAS_FT_FONT +# include +#endif + +#include "lookup-symbol.h" + +/* Reverse the bits in a byte with 7 operations (no 64-bit): + * Devised by Sean Anderson, July 13, 2001. + * Source: http://graphics.stanford.edu/~seander/bithacks.html#ReverseByteWith32Bits + */ +#define CAIRO_BITSWAP8(c) ((((c) * 0x0802LU & 0x22110LU) | ((c) * 0x8020LU & 0x88440LU)) * 0x10101LU >> 16) + +#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ > 4) +#define CAIRO_PRINTF_FORMAT(fmt_index, va_index) \ + __attribute__((__format__(__printf__, fmt_index, va_index))) +#else +#define CAIRO_PRINTF_FORMAT(fmt_index, va_index) +#endif + +/* XXX implement manual vprintf so that the user can control precision of + * printed numbers. + */ + +#define DLCALL(name, args...) ({ \ + static typeof (&name) name##_real; \ + if (name##_real == NULL) \ + name##_real = dlsym (RTLD_NEXT, #name); \ + (*name##_real) (args); \ +}) + +#define ARRAY_SIZE(a) (sizeof (a) / sizeof (a[0])) +#define ARRAY_LENGTH(a) ((int) ARRAY_SIZE(a)) + +#if SIZEOF_VOID_P == 4 +#define PTR_SHIFT 2 +#elif SIZEOF_VOID_P == 8 +#define PTR_SHIFT 3 +#else +#error Unexpected pointer size +#endif +#define BUCKET(b, ptr) (((unsigned long) (ptr) >> PTR_SHIFT) % ARRAY_LENGTH (b)) + +#if defined(__GNUC__) && (__GNUC__ > 2) && defined(__OPTIMIZE__) +#define _BOOLEAN_EXPR(expr) \ + __extension__ ({ \ + int _boolean_var_; \ + if (expr) \ + _boolean_var_ = 1; \ + else \ + _boolean_var_ = 0; \ + _boolean_var_; \ +}) +#define LIKELY(expr) (__builtin_expect (_BOOLEAN_EXPR(expr), 1)) +#define UNLIKELY(expr) (__builtin_expect (_BOOLEAN_EXPR(expr), 0)) +#else +#define LIKELY(expr) (expr) +#define UNLIKELY(expr) (expr) +#endif + +typedef struct _object Object; +typedef struct _type Type; + +struct _object { + const void *addr; + Type *type; + unsigned long int token; + bool defined; + int operand; + void *data; + void (*destroy)(void *); + Object *next, *prev; +}; + +struct _type { + const char *name; + + enum operand_type { + NONE, + SURFACE, + CONTEXT, + FONT_FACE, + PATTERN, + SCALED_FONT, + _N_OP_TYPES + } op_type; + const char *op_code; + + pthread_mutex_t mutex; + struct _bitmap { + unsigned long int min; + unsigned long int count; + unsigned int map[64]; + struct _bitmap *next; + } map; + Object *objects[607]; + Type *next; +}; + +static struct _type_table { + pthread_mutex_t mutex; + Type *op_types[_N_OP_TYPES]; +} Types; + +static FILE *logfile; +static int _flush; +static const cairo_user_data_key_t destroy_key; + +static void +_type_release_token (Type *t, unsigned long int token) +{ + struct _bitmap *b, **prev = NULL; + + b = &t->map; + while (b != NULL) { + if (token < b->min + sizeof (b->map) * CHAR_BIT) { + unsigned int bit, elem; + + token -= b->min; + elem = token / (sizeof (b->map[0]) * CHAR_BIT); + bit = token % (sizeof (b->map[0]) * CHAR_BIT); + b->map[elem] &= ~(1 << bit); + if (! --b->count && prev) { + *prev = b->next; + free (b); + } + return; + } + prev = &b->next; + b = b->next; + } +} + +static unsigned long int +_type_next_token (Type *t) +{ + struct _bitmap *b, *bb, **prev = NULL; + unsigned long int min = 0; + + b = &t->map; + while (b != NULL) { + if (b->min != min) + break; + + if (b->count < sizeof (b->map) * CHAR_BIT) { + unsigned int n, m, bit; + for (n = 0; n < ARRAY_SIZE (b->map); n++) { + if (b->map[n] == (unsigned int) -1) + continue; + + for (m=0, bit=1; mmap[0])*CHAR_BIT; m++, bit<<=1) { + if ((b->map[n] & bit) == 0) { + b->map[n] |= bit; + b->count++; + return n * sizeof (b->map[0])*CHAR_BIT + m + b->min; + } + } + } + } + min += sizeof (b->map) * CHAR_BIT; + + prev = &b->next; + b = b->next; + } + + bb = malloc (sizeof (struct _bitmap)); + *prev = bb; + bb->next = b; + bb->min = min; + bb->count = 1; + bb->map[0] = 0x1; + memset (bb->map + 1, 0, sizeof (bb->map) - sizeof (bb->map[0])); + + return min; +} + +static void +_object_destroy (Object *obj) +{ + int bucket; + + pthread_mutex_lock (&obj->type->mutex); + bucket = BUCKET (obj->type->objects, obj->addr); + _type_release_token (obj->type, obj->token); + + if (obj->prev != NULL) + obj->prev->next = obj->next; + else + obj->type->objects[bucket] = obj->next; + + if (obj->next != NULL) + obj->next->prev = obj->prev; + pthread_mutex_unlock (&obj->type->mutex); + + if (obj->data != NULL && obj->destroy != NULL) + obj->destroy (obj->data); + + free (obj); +} + +static void +_type_create (const char *typename, + enum operand_type op_type, + const char *op_code) +{ + Type *t; + + pthread_mutex_lock (&Types.mutex); + + t = malloc (sizeof (Type)); + t->name = typename; + t->op_type = op_type; + t->op_code = op_code; + + pthread_mutex_init (&t->mutex, NULL); + + t->map.min = 0; + t->map.count = 0; + memset (t->map.map, 0, sizeof (t->map.map)); + t->map.next = NULL; + + memset (t->objects, 0, sizeof (t->objects)); + + t->next = NULL; + + Types.op_types[op_type] = t; + pthread_mutex_unlock (&Types.mutex); +} + +static Type * +_get_type (enum operand_type type) +{ + return Types.op_types[type]; +} + +static void +_type_destroy (Type *t) +{ + int n; + struct _bitmap *b; + + for (n = 0; n < ARRAY_LENGTH (t->objects); n++) { + Object *obj = t->objects[n]; + while (obj != NULL) { + Object *next = obj->next; + _object_destroy (obj); + obj = next; + } + } + + b = t->map.next; + while (b != NULL) { + struct _bitmap *next = b->next; + free (b); + b = next; + } + + pthread_mutex_destroy (&t->mutex); + free (t); +} + +static Object * +_type_get_object (Type *type, const void *ptr) +{ + Object *obj; + int bucket = BUCKET (type->objects, ptr); + + for (obj = type->objects[bucket]; obj != NULL; obj = obj->next) { + if (obj->addr == ptr) { + if (obj->prev != NULL) { /* mru */ + obj->prev->next = obj->next; + if (obj->next != NULL) + obj->next->prev = obj->prev; + obj->prev = NULL; + type->objects[bucket]->prev = obj; + obj->next = type->objects[bucket]; + type->objects[bucket] = obj; + } + return obj; + } + } + + return NULL; +} + +static Object * +_object_create (Type *type, const void *ptr) +{ + Object *obj; + int bucket = BUCKET (type->objects, ptr); + + obj = malloc (sizeof (Object)); + obj->defined = false; + obj->operand = -1; + obj->type = type; + obj->addr = ptr; + obj->token = _type_next_token (type); + obj->data = NULL; + obj->destroy = NULL; + obj->prev = NULL; + obj->next = type->objects[bucket]; + if (type->objects[bucket] != NULL) + type->objects[bucket]->prev = obj; + type->objects[bucket] = obj; + + return obj; +} + +static void __attribute__ ((constructor)) +_init_trace (void) +{ + pthread_mutex_init (&Types.mutex, NULL); + + _type_create ("unclassed", NONE, ""); + _type_create ("cairo_t", CONTEXT, "c"); + _type_create ("cairo_font_face_t", FONT_FACE, "f"); + _type_create ("cairo_pattern_t", PATTERN, "p"); + _type_create ("cairo_scaled_font_t", SCALED_FONT, "sf"); + _type_create ("cairo_surface_t", SURFACE, "s"); +} + +static void +_close_trace (void) +{ + if (logfile != NULL) { + fclose (logfile); + logfile = NULL; + } +} + +static void __attribute__ ((destructor)) +_fini_trace (void) +{ + int n; + + _close_trace (); + + for (n = 0; n < ARRAY_LENGTH (Types.op_types); n++) { + if (Types.op_types[n]) { + _type_destroy (Types.op_types[n]); + Types.op_types[n] = NULL; + } + } + + pthread_mutex_destroy (&Types.mutex); +} + +static void +get_prog_name (char *buf, int length) +{ + FILE *file = fopen ("/proc/self/cmdline", "rb"); + *buf = '\0'; + if (file != NULL) { + char *slash; + + slash = fgets (buf, length, file); + fclose (file); + if (slash == NULL) + return; + + slash = strrchr (buf, '/'); + if (slash != NULL) { + int len = strlen (slash+1); + memmove (buf, slash+1, len+1); + } + } +} + +static void +_emit_header (void) +{ + char name[4096] = ""; + + get_prog_name (name, sizeof (name)); + + fprintf (logfile, "%%!CairoScript - %s\n", name); +} + +static bool +_init_logfile (void) +{ + static bool initialized; + const char *filename; + const char *env; + + if (initialized) + return logfile != NULL; + + initialized = true; + + env = getenv ("CAIRO_TRACE_FLUSH"); + if (env != NULL) + _flush = atoi (env); + + filename = getenv ("CAIRO_TRACE_FD"); + if (filename != NULL) { + int fd = atoi (filename); + logfile = fdopen (fd, "w"); + if (logfile == NULL) { + fprintf (stderr, "Failed to open trace file descriptor '%s': %s", + filename, strerror (errno)); + return false; + } + goto done; + } + + filename = getenv ("CAIRO_TRACE_OUTFILE_EXACT"); + if (filename == NULL) { + char buf[4096], name[4096] = ""; + + filename = getenv ("CAIRO_TRACE_OUTDIR"); + if (filename == NULL) + filename = "."; + + get_prog_name (name, sizeof (name)); + if (*name == '\0') + strcpy (name, "cairo-trace.dat"); + + snprintf (buf, sizeof (buf), "%s/%s.%d.cs", + filename, name, getpid()); + + filename = buf; + } + + logfile = fopen (filename, "wb"); + if (logfile == NULL) { + fprintf (stderr, "Failed to open trace file '%s': %s", + filename, strerror (errno)); + return false; + } + +done: + atexit (_close_trace); + _emit_header (); + return true; +} + +static bool +_write_lock (void) +{ + if (! _init_logfile ()) + return false; + + flockfile (logfile); + return true; +} + +static void +_write_unlock (void) +{ + if (logfile == NULL) + return; + + funlockfile (logfile); + + if (_flush) + fflush (logfile); +} + + +static Object * +_type_object_create (enum operand_type op_type, const void *ptr) +{ + Type *type; + Object *obj; + + type = _get_type (op_type); + + pthread_mutex_lock (&type->mutex); + obj = _object_create (type, ptr); + pthread_mutex_unlock (&type->mutex); + + return obj; +} + +static Object * +_get_object (enum operand_type op_type, const void *ptr) +{ + Type *type; + Object *obj; + + type = _get_type (op_type); + pthread_mutex_lock (&type->mutex); + obj = _type_get_object (type, ptr); + pthread_mutex_unlock (&type->mutex); + + return obj; +} + +static Object *current_object[2048]; /* XXX limit operand stack */ +static int current_stack_depth; + +static void +_consume_operand (void) +{ + Object *obj; + + obj = current_object[--current_stack_depth]; + if (! obj->defined) { + fprintf (logfile, "dup /%s%ld exch def\n", + obj->type->op_code, + obj->token); + obj->defined = true; + } + obj->operand = -1; +} + +static void +_exch_operands (void) +{ + Object *tmp; + + tmp = current_object[current_stack_depth-1]; + tmp->operand--; + current_object[current_stack_depth-1] = current_object[current_stack_depth-2]; + current_object[current_stack_depth-2] = tmp; + tmp = current_object[current_stack_depth-1]; + tmp->operand++; +} + +static bool +_pop_operands_to_object (Object *obj) +{ + if (obj->operand == -1) + return false; + + if (obj->operand == current_stack_depth - 2) { + _exch_operands (); + fprintf (logfile, "exch "); + return true; + } + + while (current_stack_depth > obj->operand + 1) { + Object *c_obj; + + c_obj = current_object[--current_stack_depth]; + c_obj->operand = -1; + if (! c_obj->defined) { + fprintf (logfile, "/%s%ld exch def\n", + c_obj->type->op_code, + c_obj->token); + c_obj->defined = true; + } else { + fprintf (logfile, + "pop %% %s%ld\n", + c_obj->type->op_code, c_obj->token); + } + } + + return true; +} + +static bool +_pop_operands_to (enum operand_type t, const void *ptr) +{ + return _pop_operands_to_object (_get_object (t, ptr)); +} + +static bool +_is_current_object (Object *obj, int depth) +{ + if (current_stack_depth <= depth) + return false; + return current_object[current_stack_depth-depth-1] == obj; +} + +static bool +_is_current (enum operand_type type, const void *ptr, int depth) +{ + return _is_current_object (_get_object (type, ptr), depth); +} + +static void +_push_operand (enum operand_type t, const void *ptr) +{ + Object *obj = _get_object (t, ptr); + obj->operand = current_stack_depth; + current_object[current_stack_depth++] = obj; +} + +static void +_object_undef (void *ptr) +{ + Object *obj = ptr; + + if (_write_lock ()) { + if (obj->operand != -1) { + if (obj->operand == current_stack_depth - 1) { + fprintf (logfile, + "pop %% %s%ld destroyed\n", + obj->type->op_code, obj->token); + } else if (obj->operand == current_stack_depth - 2) { + _exch_operands (); + fprintf (logfile, + "exch pop %% %s%ld destroyed\n", + obj->type->op_code, obj->token); + } else { + int n; + + fprintf (logfile, + "%d -1 roll pop %% %s%ld destroyed\n", + current_stack_depth - obj->operand, + obj->type->op_code, obj->token); + + for (n = obj->operand; n < current_stack_depth - 1; n++) { + current_object[n] = current_object[n+1]; + current_object[n]->operand = n; + } + } + current_stack_depth--; + } + + if (obj->defined) { + fprintf (logfile, "/%s%ld undef\n", + obj->type->op_code, obj->token); + } + + _write_unlock (); + } + + _object_destroy (obj); +} + +static long +_create_context_id (cairo_t *cr) +{ + Object *obj; + + obj = _get_object (CONTEXT, cr); + if (obj == NULL) { + obj = _type_object_create (CONTEXT, cr); + DLCALL (cairo_set_user_data, + cr, &destroy_key, obj, _object_undef); + } + + return obj->token; +} + +static long +_get_id (enum operand_type op_type, const void *ptr) +{ + return _get_object (op_type, ptr)->token; +} + +static bool +_has_id (enum operand_type op_type, const void *ptr) +{ + return _get_object (op_type, ptr) != NULL; +} + +static long +_get_context_id (cairo_t *cr) +{ + return _get_id (CONTEXT, cr); +} + +static long +_create_font_face_id (cairo_font_face_t *font_face) +{ + Object *obj; + + obj = _get_object (FONT_FACE, font_face); + if (obj == NULL) { + obj = _type_object_create (FONT_FACE, font_face); + DLCALL (cairo_font_face_set_user_data, + font_face, &destroy_key, obj, _object_undef); + } + + return obj->token; +} + +static long +_get_font_face_id (cairo_font_face_t *font_face) +{ + return _get_id (FONT_FACE, font_face); +} + +static bool +_has_font_face_id (cairo_font_face_t *font_face) +{ + return _has_id (FONT_FACE, font_face); +} + +static bool +_has_pattern_id (cairo_pattern_t *pattern) +{ + return _has_id (PATTERN, pattern); +} + +static long +_create_pattern_id (cairo_pattern_t *pattern) +{ + Object *obj; + + obj = _get_object (PATTERN, pattern); + if (obj == NULL) { + obj = _type_object_create (PATTERN, pattern); + DLCALL (cairo_pattern_set_user_data, + pattern, &destroy_key, obj, _object_undef); + } + + return obj->token; +} + +static long +_get_pattern_id (cairo_pattern_t *pattern) +{ + return _get_id (PATTERN, pattern); +} + +static long +_create_scaled_font_id (cairo_scaled_font_t *font) +{ + Object *obj; + + obj = _get_object (SCALED_FONT, font); + if (obj == NULL) { + obj = _type_object_create (SCALED_FONT, font); + DLCALL (cairo_scaled_font_set_user_data, + font, &destroy_key, obj, _object_undef); + } + + return obj->token; +} + +static long +_get_scaled_font_id (const cairo_scaled_font_t *font) +{ + return _get_id (SCALED_FONT, font); +} + +static bool +_has_scaled_font_id (const cairo_scaled_font_t *font) +{ + return _has_id (SCALED_FONT, font); +} + +static bool +_has_surface_id (const cairo_surface_t *surface) +{ + return _has_id (SURFACE, surface); +} + +static long +_create_surface_id (cairo_surface_t *surface) +{ + Object *obj; + + obj = _get_object (SURFACE, surface); + if (obj == NULL) { + obj = _type_object_create (SURFACE, surface); + DLCALL (cairo_surface_set_user_data, + surface, &destroy_key, obj, _object_undef); + } + + return obj->token; +} + +static long +_get_surface_id (cairo_surface_t *surface) +{ + return _get_id (SURFACE, surface); +} + +#define BUFFER_SIZE 16384 +struct _data_stream { + z_stream zlib_stream; + unsigned char zin_buf[BUFFER_SIZE]; + unsigned char zout_buf[BUFFER_SIZE]; + unsigned char four_tuple[4]; + int base85_pending; +}; + +static void +_write_zlib_data_start (struct _data_stream *stream) +{ + stream->zlib_stream.zalloc = Z_NULL; + stream->zlib_stream.zfree = Z_NULL; + stream->zlib_stream.opaque = Z_NULL; + + deflateInit (&stream->zlib_stream, Z_DEFAULT_COMPRESSION); + + stream->zlib_stream.next_in = stream->zin_buf; + stream->zlib_stream.avail_in = 0; + stream->zlib_stream.next_out = stream->zout_buf; + stream->zlib_stream.avail_out = BUFFER_SIZE; +} + +static void +_write_base85_data_start (struct _data_stream *stream) +{ + stream->base85_pending = 0; +} + +static void +_write_data_start (struct _data_stream *stream) +{ + _write_zlib_data_start (stream); + _write_base85_data_start (stream); + + fprintf (logfile, "<~"); +} + +static bool +_expand_four_tuple_to_five (unsigned char four_tuple[4], + unsigned char five_tuple[5]) +{ + uint32_t value; + int digit, i; + bool all_zero = true; + + value = four_tuple[0] << 24 | + four_tuple[1] << 16 | + four_tuple[2] << 8 | + four_tuple[3] << 0; + for (i = 0; i < 5; i++) { + digit = value % 85; + if (digit != 0 && all_zero) + all_zero = false; + five_tuple[4-i] = digit + 33; + value = value / 85; + } + + return all_zero; +} + +static void +_write_base85_data (struct _data_stream *stream, + const unsigned char *data, + unsigned int length) +{ + const unsigned char *ptr = data; + unsigned char five_tuple[5]; + bool is_zero; + int ret; + + while (length--) { + stream->four_tuple[stream->base85_pending++] = *ptr++; + if (stream->base85_pending == 4) { + is_zero = _expand_four_tuple_to_five (stream->four_tuple, + five_tuple); + if (is_zero) + ret = fwrite ("z", 1, 1, logfile); + else + ret = fwrite (five_tuple, 5, 1, logfile); + stream->base85_pending = 0; + } + } +} + +static void +_write_zlib_data (struct _data_stream *stream, bool flush) +{ + bool finished; + + do { + int ret = deflate (&stream->zlib_stream, flush ? Z_FINISH : Z_NO_FLUSH); + if (flush || stream->zlib_stream.avail_out == 0) { + _write_base85_data (stream, + stream->zout_buf, + BUFFER_SIZE - stream->zlib_stream.avail_out); + stream->zlib_stream.next_out = stream->zout_buf; + stream->zlib_stream.avail_out = BUFFER_SIZE; + } + + finished = true; + if (stream->zlib_stream.avail_in != 0) + finished = false; + if (flush && ret != Z_STREAM_END) + finished = false; + } while (! finished); + + stream->zlib_stream.next_in = stream->zin_buf; +} + +static void +_write_data (struct _data_stream *stream, void *data, unsigned int length) +{ + unsigned int count; + const unsigned char *p = data; + + while (length) { + count = length; + if (count > BUFFER_SIZE - stream->zlib_stream.avail_in) + count = BUFFER_SIZE - stream->zlib_stream.avail_in; + memcpy (stream->zin_buf + stream->zlib_stream.avail_in, p, count); + p += count; + stream->zlib_stream.avail_in += count; + length -= count; + + if (stream->zlib_stream.avail_in == BUFFER_SIZE) + _write_zlib_data (stream, false); + } +} + +static void +_write_zlib_data_end (struct _data_stream *stream) +{ + _write_zlib_data (stream, true); + deflateEnd (&stream->zlib_stream); + +} + +static void +_write_base85_data_end (struct _data_stream *stream) +{ + unsigned char five_tuple[5]; + int ret; + + if (stream->base85_pending) { + memset (stream->four_tuple + stream->base85_pending, + 0, 4 - stream->base85_pending); + _expand_four_tuple_to_five (stream->four_tuple, five_tuple); + ret = fwrite (five_tuple, stream->base85_pending+1, 1, logfile); + } +} + +static void +_write_data_end (struct _data_stream *stream) +{ + _write_zlib_data_end (stream); + _write_base85_data_end (stream); + + fprintf (logfile, "~>"); +} + +static void +_emit_data (void *data, unsigned int length) +{ + struct _data_stream stream; + + _write_data_start (&stream); + _write_data (&stream, data, length); + _write_data_end (&stream); +} + +static void +_emit_image (cairo_surface_t *image) +{ + int stride, row, width, height; + cairo_format_t format; + uint8_t row_stack[BUFFER_SIZE]; + uint8_t *rowdata; + uint8_t *data; + struct _data_stream stream; + + width = cairo_image_surface_get_width (image); + height = cairo_image_surface_get_height (image); + stride = cairo_image_surface_get_stride (image); + format = cairo_image_surface_get_format (image); + data = cairo_image_surface_get_data (image); + + _write_data_start (&stream); + +#ifdef WORDS_BIGENDIAN + switch (format) { + case CAIRO_FORMAT_A1: + for (row = height; row--; ) { + _write_data (&stream, data, (width+7)/8); + data += stride; + } + break; + case CAIRO_FORMAT_A8: + for (row = height; row--; ) { + _write_data (&ouput, data, width); + data += stride; + } + break; + case CAIRO_FORMAT_RGB24: + for (row = height; row--; ) { + int col; + rowdata = data; + for (col = width; col--; ) { + _write_data (&ouput, rowdata, 3); + rowdata+=4; + } + data += stride; + } + break; + case CAIRO_FORMAT_ARGB32: + for (row = height; row--; ) { + _write_data (&stream, data, 4*width); + data += stride; + } + break; + default: + ASSERT_NOT_REACHED; + break; + } +#else + if (stride > ARRAY_LENGTH (row_stack)) { + rowdata = malloc (stride); + if (rowdata == NULL) { + _write_data_end (&stream); + return; + } + } else + rowdata = row_stack; + + switch (format) { + case CAIRO_FORMAT_A1: + for (row = height; row--; ) { + int col; + for (col = 0; col < (width + 7)/8; col++) + rowdata[col] = CAIRO_BITSWAP8 (data[col]); + _write_data (&stream, rowdata, (width+7)/8); + data += stride; + } + break; + case CAIRO_FORMAT_A8: + for (row = height; row--; ) { + _write_data (&stream, rowdata, width); + data += stride; + } + break; + case CAIRO_FORMAT_RGB24: + for (row = height; row--; ) { + uint8_t *src = data; + int col; + for (col = 0; col < width; col++) { + rowdata[3*col+2] = *src++; + rowdata[3*col+1] = *src++; + rowdata[3*col+0] = *src++; + src++; + } + _write_data (&stream, rowdata, 3*width); + data += stride; + } + break; + case CAIRO_FORMAT_ARGB32: + for (row = height; row--; ) { + uint32_t *src = (uint32_t *) data; + uint32_t *dst = (uint32_t *) rowdata; + int col; + for (col = 0; col < width; col++) + dst[col] = bswap_32 (src[col]); + _write_data (&stream, rowdata, 4*width); + data += stride; + } + break; + default: + break; + } + if (rowdata != row_stack) + free (rowdata); + + _write_data_end (&stream); +#endif +} + +static void +_emit_string_literal (const char *utf8) +{ + char c; + + if (utf8 == NULL) { + fprintf (logfile, "()"); + return; + } + + fprintf (logfile, "("); + while ((c = *utf8++)) { + switch (c) { + case '\n': + case '\r': + case '\\': + case '\t': + case '\b': + case '\f': + case '(': + case ')': + fprintf (logfile, "\\%c", c); + break; + default: + if (isprint (c) || isspace (c)) { + fprintf (logfile, "%c", c); + } else { + int octal = 0; + while (c) { + octal *= 10; + octal += c&7; + c /= 8; + } + fprintf (logfile, "\\%03d", octal); + } + break; + } + } + fprintf (logfile, ")"); +} + +static void +_emit_current (Object *obj) +{ + if (! _pop_operands_to_object (obj)) { + fprintf (logfile, "%s%ld\n", obj->type->op_code, obj->token); + _push_operand (obj->type->op_type, obj->addr); + } +} + +static void +_emit_context (cairo_t *cr) +{ + _emit_current (_get_object (CONTEXT, cr)); +} + +static void +_emit_font_face (cairo_font_face_t *font_face) +{ + _emit_current (_get_object (FONT_FACE, font_face)); +} + +static void +_emit_pattern (cairo_pattern_t *pattern) +{ + _emit_current (_get_object (PATTERN, pattern)); +} + +static void +_emit_scaled_font (cairo_scaled_font_t *scaled_font) +{ + _emit_current (_get_object (SCALED_FONT, scaled_font)); +} + +static void +_emit_surface (cairo_surface_t *surface) +{ + _emit_current (_get_object (SURFACE, surface)); +} + +static void CAIRO_PRINTF_FORMAT(2, 3) +_emit_cairo_op (cairo_t *cr, const char *fmt, ...) +{ + va_list ap; + + if (cr == NULL || ! _write_lock ()) + return; + + _emit_context (cr); + + va_start (ap, fmt); + vfprintf (logfile, fmt, ap); + va_end (ap); + + _write_unlock (); +} + +cairo_t * +cairo_create (cairo_surface_t *target) +{ + cairo_t *ret; + long surface_id; + long context_id; + + ret = DLCALL (cairo_create, target); + context_id = _create_context_id (ret); + + if (target != NULL && _write_lock ()) { + surface_id = _get_surface_id (target); + + /* we presume that we will continue to use the context */ + if (_pop_operands_to (SURFACE, target)){ + _consume_operand (); + } else { + fprintf (logfile, "s%ld ", surface_id); + } + fprintf (logfile, "context %% c%ld\n", context_id); + _push_operand (CONTEXT, ret); + _write_unlock (); + } + + return ret; +} + +void +cairo_save (cairo_t *cr) +{ + _emit_cairo_op (cr, "save\n"); + return DLCALL (cairo_save, cr); +} + +void +cairo_restore (cairo_t *cr) +{ + _emit_cairo_op (cr, "restore\n"); + return DLCALL (cairo_restore, cr); +} + +void +cairo_push_group (cairo_t *cr) +{ + _emit_cairo_op (cr, "//COLOR_ALPHA push_group\n"); + return DLCALL (cairo_push_group, cr); +} + +static const char * +_content_to_string (cairo_content_t content) +{ + switch (content) { + case CAIRO_CONTENT_ALPHA: return "ALPHA"; + case CAIRO_CONTENT_COLOR: return "COLOR"; + default: + case CAIRO_CONTENT_COLOR_ALPHA: return "COLOR_ALPHA"; + } +} + +void +cairo_push_group_with_content (cairo_t *cr, cairo_content_t content) +{ + _emit_cairo_op (cr, "//%s push_group\n", _content_to_string (content)); + return DLCALL (cairo_push_group_with_content, cr, content); +} + +cairo_pattern_t * +cairo_pop_group (cairo_t *cr) +{ + cairo_pattern_t *ret; + + ret = DLCALL (cairo_pop_group, cr); + + _emit_cairo_op (cr, "pop_group %% p%ld\n", _create_pattern_id (ret)); + _push_operand (PATTERN, ret); + + return ret; +} + +void +cairo_pop_group_to_source (cairo_t *cr) +{ + _emit_cairo_op (cr, "pop_group set_source\n"); + return DLCALL (cairo_pop_group_to_source, cr); +} + +static const char * +_operator_to_string (cairo_operator_t op) +{ + const char *names[] = { + "CLEAR", /* CAIRO_OPERATOR_CLEAR */ + + "SOURCE", /* CAIRO_OPERATOR_SOURCE */ + "OVER", /* CAIRO_OPERATOR_OVER */ + "IN", /* CAIRO_OPERATOR_IN */ + "OUT", /* CAIRO_OPERATOR_OUT */ + "ATOP", /* CAIRO_OPERATOR_ATOP */ + + "DEST", /* CAIRO_OPERATOR_DEST */ + "DEST_OVER", /* CAIRO_OPERATOR_DEST_OVER */ + "DEST_IN", /* CAIRO_OPERATOR_DEST_IN */ + "DEST_OUT", /* CAIRO_OPERATOR_DEST_OUT */ + "DEST_ATOP", /* CAIRO_OPERATOR_DEST_ATOP */ + + "XOR", /* CAIRO_OPERATOR_XOR */ + "ADD", /* CAIRO_OPERATOR_ADD */ + "SATURATE" /* CAIRO_OPERATOR_SATURATE */ + }; + return names[op]; +} + +void +cairo_set_operator (cairo_t *cr, cairo_operator_t op) +{ + _emit_cairo_op (cr, "//%s set_operator\n", _operator_to_string (op)); + return DLCALL (cairo_set_operator, cr, op); +} + +void +cairo_set_source_rgb (cairo_t *cr, double red, double green, double blue) +{ + _emit_cairo_op (cr, "%g %g %g rgb set_source\n", red, green, blue); + return DLCALL (cairo_set_source_rgb, cr, red, green, blue); +} + +void +cairo_set_source_rgba (cairo_t *cr, double red, double green, double blue, double alpha) +{ + _emit_cairo_op (cr, "%g %g %g %g rgba set_source\n", + red, green, blue, alpha); + return DLCALL (cairo_set_source_rgba, cr, red, green, blue, alpha); +} + +void +cairo_set_source_surface (cairo_t *cr, cairo_surface_t *surface, double x, double y) +{ + if (cr != NULL && surface != NULL && _write_lock ()) { + if (_is_current (SURFACE, surface, 0) && + _is_current (CONTEXT, cr, 1)) + { + _consume_operand (); + } + else if (_is_current (SURFACE, surface, 1) && + _is_current (CONTEXT, cr, 0)) + { + fprintf (logfile, "exch "); + _exch_operands (); + _consume_operand (); + } else { + _emit_context (cr); + fprintf (logfile, "s%ld ", _get_surface_id (surface)); + } + + fprintf (logfile, "pattern"); + if (x != 0. || y != 0.) + fprintf (logfile, " %g %g translate", -x, -y); + + fprintf (logfile, " set_source\n"); + _write_unlock (); + } + + return DLCALL (cairo_set_source_surface, cr, surface, x, y); +} + +void +cairo_set_source (cairo_t *cr, cairo_pattern_t *source) +{ + if (cr != NULL && source != NULL && _write_lock ()) { + if (_is_current (PATTERN, source, 0) && + _is_current (CONTEXT, cr, 1)) + { + _consume_operand (); + } + else if (_is_current (PATTERN, source, 1) && + _is_current (CONTEXT, cr, 0)) + { + fprintf (logfile, "exch "); + _exch_operands (); + _consume_operand (); + } + else if (_is_current (PATTERN, source, 0)) + { + _emit_context (cr); + fprintf (logfile, "exch "); + _exch_operands (); + _consume_operand (); + } + else + { + _emit_context (cr); + fprintf (logfile, "p%ld ", _get_pattern_id (source)); + } + + fprintf (logfile, "set_source\n"); + _write_unlock (); + } + + return DLCALL (cairo_set_source, cr, source); +} + +cairo_pattern_t * +cairo_get_source (cairo_t *cr) +{ + cairo_pattern_t *ret; + + ret = DLCALL (cairo_get_source, cr); + + if (! _has_pattern_id (ret)) { + _emit_cairo_op (cr, "/source get /p%ld exch def\n", + _create_pattern_id (ret)); + _get_object (PATTERN, ret)->defined = true; + } + + return ret; +} + +void +cairo_set_tolerance (cairo_t *cr, double tolerance) +{ + _emit_cairo_op (cr, "%g set_tolerance\n", tolerance); + return DLCALL (cairo_set_tolerance, cr, tolerance); +} + +static const char * +_antialias_to_string (cairo_antialias_t antialias) +{ + const char *names[] = { + "ANTIALIAS_DEFAULT", /* CAIRO_ANTIALIAS_DEFAULT */ + "ANTIALIAS_NONE", /* CAIRO_ANTIALIAS_NONE */ + "ANTIALIAS_GRAY", /* CAIRO_ANTIALIAS_GRAY */ + "ANTIALIAS_SUBPIXEL" /* CAIRO_ANTIALIAS_SUBPIXEL */ + }; + return names[antialias]; +} + +void +cairo_set_antialias (cairo_t *cr, cairo_antialias_t antialias) +{ + _emit_cairo_op (cr, + "//%s set_antialias\n", _antialias_to_string (antialias)); + return DLCALL (cairo_set_antialias, cr, antialias); +} + +static const char * +_fill_rule_to_string (cairo_fill_rule_t rule) +{ + const char *names[] = { + "WINDING", /* CAIRO_FILL_RULE_WINDING */ + "EVEN_ODD" /* CAIRO_FILL_RILE_EVEN_ODD */ + }; + return names[rule]; +} + +void +cairo_set_fill_rule (cairo_t *cr, cairo_fill_rule_t fill_rule) +{ + _emit_cairo_op (cr, + "//%s set_fill_rule\n", _fill_rule_to_string (fill_rule)); + return DLCALL (cairo_set_fill_rule, cr, fill_rule); +} + +void +cairo_set_line_width (cairo_t *cr, double width) +{ + _emit_cairo_op (cr, "%g set_line_width\n", width); + return DLCALL (cairo_set_line_width, cr, width); +} + +static const char * +_line_cap_to_string (cairo_line_cap_t line_cap) +{ + const char *names[] = { + "LINE_CAP_BUTT", /* CAIRO_LINE_CAP_BUTT */ + "LINE_CAP_ROUND", /* CAIRO_LINE_CAP_ROUND */ + "LINE_CAP_SQUARE" /* CAIRO_LINE_CAP_SQUARE */ + }; + return names[line_cap]; +} + +void +cairo_set_line_cap (cairo_t *cr, cairo_line_cap_t line_cap) +{ + _emit_cairo_op (cr, "//%s set_line_cap\n", _line_cap_to_string (line_cap)); + return DLCALL (cairo_set_line_cap, cr, line_cap); +} + +static const char * +_line_join_to_string (cairo_line_join_t line_join) +{ + const char *names[] = { + "LINE_JOIN_MITER", /* CAIRO_LINE_JOIN_MITER */ + "LINE_JOIN_ROUND", /* CAIRO_LINE_JOIN_ROUND */ + "LINE_JOIN_BEVEL", /* CAIRO_LINE_JOIN_BEVEL */ + }; + return names[line_join]; +} + +void +cairo_set_line_join (cairo_t *cr, cairo_line_join_t line_join) +{ + _emit_cairo_op (cr, + "//%s set_line_join\n", _line_join_to_string (line_join)); + return DLCALL (cairo_set_line_join, cr, line_join); +} + +void +cairo_set_dash (cairo_t *cr, const double *dashes, int num_dashes, double offset) +{ + if (cr != NULL && _write_lock ()) { + int n; + + _emit_context (cr); + + fprintf (logfile, "["); + for (n = 0; n < num_dashes; n++) { + if (n != 0) + fprintf (logfile, " "); + fprintf (logfile, "%g", dashes[n]); + } + fprintf (logfile, "] %g set_dash\n", offset); + + _write_unlock (); + } + + return DLCALL (cairo_set_dash, cr, dashes, num_dashes, offset); +} + +void +cairo_set_miter_limit (cairo_t *cr, double limit) +{ + _emit_cairo_op (cr, "%g set_miter_limit\n", limit); + return DLCALL (cairo_set_miter_limit, cr, limit); +} + +void +cairo_translate (cairo_t *cr, double tx, double ty) +{ + _emit_cairo_op (cr, "%g %g translate\n", tx, ty); + return DLCALL (cairo_translate, cr, tx, ty); +} + +void +cairo_scale (cairo_t *cr, double sx, double sy) +{ + _emit_cairo_op (cr, "%g %g scale\n", sx, sy); + return DLCALL (cairo_scale, cr, sx, sy); +} + +void +cairo_rotate (cairo_t *cr, double angle) +{ + _emit_cairo_op (cr, "%g rotate\n", angle); + return DLCALL (cairo_rotate, cr, angle); +} + +void +cairo_transform (cairo_t *cr, const cairo_matrix_t *matrix) +{ + _emit_cairo_op (cr, "[%g %g %g %g %g %g] transform\n", + matrix->xx, matrix->yx, + matrix->xy, matrix->yy, + matrix->x0, matrix->y0); + return DLCALL (cairo_transform, cr, matrix); +} + +void +cairo_set_matrix (cairo_t *cr, const cairo_matrix_t *matrix) +{ + _emit_cairo_op (cr, "[%g %g %g %g %g %g] set_matrix\n", + matrix->xx, matrix->yx, + matrix->xy, matrix->yy, + matrix->x0, matrix->y0); + return DLCALL (cairo_set_matrix, cr, matrix); +} + +cairo_surface_t * +cairo_get_target (cairo_t *cr) +{ + cairo_surface_t *ret; + long surface_id; + + ret = DLCALL (cairo_get_target, cr); + surface_id = _create_surface_id (ret); + + if (cr != NULL && ! _has_surface_id (ret)) { + _emit_cairo_op (cr, "/target get /s%ld exch def\n", surface_id); + _get_object (SURFACE, ret)->defined = true; + } + + return ret; +} + +cairo_surface_t * +cairo_get_group_target (cairo_t *cr) +{ + cairo_surface_t *ret; + long surface_id; + + ret = DLCALL (cairo_get_group_target, cr); + surface_id = _create_surface_id (ret); + + if (cr != NULL && ! _has_surface_id (ret)) { + _emit_cairo_op (cr, "/group-target get /s%ld exch def\n", surface_id); + _get_object (SURFACE, ret)->defined = true; + } + + return ret; +} + +void +cairo_identity_matrix (cairo_t *cr) +{ + _emit_cairo_op (cr, "identity set_matrix\n"); + return DLCALL (cairo_identity_matrix, cr); +} + + +void +cairo_new_path (cairo_t *cr) +{ + _emit_cairo_op (cr, "n "); + return DLCALL (cairo_new_path, cr); +} + +void +cairo_move_to (cairo_t *cr, double x, double y) +{ + _emit_cairo_op (cr, "%g %g m ", x, y); + return DLCALL (cairo_move_to, cr, x, y); +} + +void +cairo_new_sub_path (cairo_t *cr) +{ + _emit_cairo_op (cr, "N "); + return DLCALL (cairo_new_sub_path, cr); +} + +void +cairo_line_to (cairo_t *cr, double x, double y) +{ + _emit_cairo_op (cr, "%g %g l ", x, y); + return DLCALL (cairo_line_to, cr, x, y); +} + +void +cairo_curve_to (cairo_t *cr, double x1, double y1, double x2, double y2, double x3, double y3) +{ + _emit_cairo_op (cr, "%g %g %g %g %g %g c ", x1, y1, x2, y2, x3, y3); + return DLCALL (cairo_curve_to, cr, x1, y1, x2, y2, x3, y3); +} + +void +cairo_arc (cairo_t *cr, double xc, double yc, double radius, double angle1, double angle2) +{ + _emit_cairo_op (cr, "%g %g %g %g %g arc\n", xc, yc, radius, angle1, angle2); + return DLCALL (cairo_arc, cr, xc, yc, radius, angle1, angle2); +} + +void +cairo_arc_negative (cairo_t *cr, double xc, double yc, double radius, double angle1, double angle2) +{ + _emit_cairo_op (cr, "%g %g %g %g %g arc-\n", + xc, yc, radius, angle1, angle2); + return DLCALL (cairo_arc_negative, cr, xc, yc, radius, angle1, angle2); +} + +void +cairo_rel_move_to (cairo_t *cr, double dx, double dy) +{ + _emit_cairo_op (cr, "%g %g M ", dx, dy); + return DLCALL (cairo_rel_move_to, cr, dx, dy); +} + +void +cairo_rel_line_to (cairo_t *cr, double dx, double dy) +{ + _emit_cairo_op (cr, "%g %g L ", dx, dy); + return DLCALL (cairo_rel_line_to, cr, dx, dy); +} + +void +cairo_rel_curve_to (cairo_t *cr, double dx1, double dy1, double dx2, double dy2, double dx3, double dy3) +{ + _emit_cairo_op (cr, "%g %g %g %g %g %g C ", + dx1, dy1, dx2, dy2, dx3, dy3); + return DLCALL (cairo_rel_curve_to, cr, dx1, dy1, dx2, dy2, dx3, dy3); +} + +void +cairo_rectangle (cairo_t *cr, double x, double y, double width, double height) +{ + _emit_cairo_op (cr, "%g %g %g %g rectangle\n", x, y, width, height); + return DLCALL (cairo_rectangle, cr, x, y, width, height); +} + +void +cairo_close_path (cairo_t *cr) +{ + _emit_cairo_op (cr, "h\n"); + return DLCALL (cairo_close_path, cr); +} + +void +cairo_paint (cairo_t *cr) +{ + _emit_cairo_op (cr, "paint\n"); + DLCALL (cairo_paint, cr); +} + +void +cairo_paint_with_alpha (cairo_t *cr, double alpha) +{ + _emit_cairo_op (cr, "%g paint_with_alpha\n", alpha); + DLCALL (cairo_paint_with_alpha, cr, alpha); +} + +void +cairo_mask (cairo_t *cr, cairo_pattern_t *pattern) +{ + if (cr != NULL && pattern != NULL && _write_lock ()) { + if (_is_current (PATTERN, pattern, 0) && + _is_current (CONTEXT, cr, 1)) + { + _consume_operand (); + } + else if (_is_current (PATTERN, pattern, 1) && + _is_current (CONTEXT, cr, 0)) + { + fprintf (logfile, "exch "); + _exch_operands (); + _consume_operand (); + } else { + _emit_context (cr); + fprintf (logfile, "p%ld ", _get_pattern_id (pattern)); + } + + fprintf (logfile, " mask\n"); + _write_unlock (); + } + DLCALL (cairo_mask, cr, pattern); +} + +void +cairo_mask_surface (cairo_t *cr, cairo_surface_t *surface, double x, double y) +{ + if (cr != NULL && surface != NULL && _write_lock ()) { + if (_is_current (SURFACE, surface, 0) && + _is_current (CONTEXT, cr, 1)) + { + _consume_operand (); + } + else if (_is_current (SURFACE, surface, 1) && + _is_current (CONTEXT, cr, 0)) + { + fprintf (logfile, "exch "); + _exch_operands (); + _consume_operand (); + } else { + _emit_context (cr); + fprintf (logfile, "s%ld ", _get_surface_id (surface)); + } + fprintf (logfile, "pattern"); + + if (x != 0. || y != 0.) + fprintf (logfile, " %g %g translate", -x, -y); + + fprintf (logfile, " mask\n"); + _write_unlock (); + } + + DLCALL (cairo_mask_surface, cr, surface, x, y); +} + +void +cairo_stroke (cairo_t *cr) +{ + _emit_cairo_op (cr, "stroke\n"); + DLCALL (cairo_stroke, cr); +} + +void +cairo_stroke_preserve (cairo_t *cr) +{ + _emit_cairo_op (cr, "stroke+\n"); + DLCALL (cairo_stroke_preserve, cr); +} + +void +cairo_fill (cairo_t *cr) +{ + _emit_cairo_op (cr, "fill\n"); + DLCALL (cairo_fill, cr); +} + +void +cairo_fill_preserve (cairo_t *cr) +{ + _emit_cairo_op (cr, "fill+\n"); + DLCALL (cairo_fill_preserve, cr); +} + +void +cairo_copy_page (cairo_t *cr) +{ + _emit_cairo_op (cr, "copy_page\n"); + return DLCALL (cairo_copy_page, cr); +} + +void +cairo_show_page (cairo_t *cr) +{ + _emit_cairo_op (cr, "show_page\n"); + return DLCALL (cairo_show_page, cr); +} + +void +cairo_clip (cairo_t *cr) +{ + _emit_cairo_op (cr, "clip\n"); + DLCALL (cairo_clip, cr); +} + +void +cairo_clip_preserve (cairo_t *cr) +{ + _emit_cairo_op (cr, "clip+\n"); + DLCALL (cairo_clip_preserve, cr); +} + +void +cairo_reset_clip (cairo_t *cr) +{ + _emit_cairo_op (cr, "reset_clip\n"); + return DLCALL (cairo_reset_clip, cr); +} + + +static const char * +_slant_to_string (cairo_font_slant_t font_slant) +{ + const char *names[] = { + "SLANT_NORMAL", /* CAIRO_FONT_SLANT_NORMAL */ + "SLANT_ITALIC", /* CAIRO_FONT_SLANT_ITALIC */ + "SLANT_OBLIQUE" /* CAIRO_FONT_SLANT_OBLIQUE */ + }; + return names[font_slant]; +} + +static const char * +_weight_to_string (cairo_font_weight_t font_weight) +{ + const char *names[] = { + "WEIGHT_NORMAL", /* CAIRO_FONT_WEIGHT_NORMAL */ + "WEIGHT_BOLD", /* CAIRO_FONT_WEIGHT_BOLD */ + }; + return names[font_weight]; +} + +void +cairo_select_font_face (cairo_t *cr, const char *family, cairo_font_slant_t slant, cairo_font_weight_t weight) +{ + if (cr != NULL && _write_lock ()) { + _emit_context (cr); + _emit_string_literal (family); + fprintf (logfile, " //%s //%s select_font_face\n", + _slant_to_string (slant), + _weight_to_string (weight)); + _write_unlock (); + } + return DLCALL (cairo_select_font_face, cr, family, slant, weight); +} + +cairo_font_face_t * +cairo_get_font_face (cairo_t *cr) +{ + cairo_font_face_t *ret; + long font_face_id; + + ret = DLCALL (cairo_get_font_face, cr); + font_face_id = _create_font_face_id (ret); + + _emit_cairo_op (cr, "/font_face get\n"); + _push_operand (FONT_FACE, ret); + + return ret; +} + +void +cairo_set_font_face (cairo_t *cr, cairo_font_face_t *font_face) +{ + _emit_cairo_op (cr, "f%ld set_font_face\n", + _get_font_face_id (font_face)); + + return DLCALL (cairo_set_font_face, cr, font_face); +} + +void +cairo_set_font_size (cairo_t *cr, double size) +{ + _emit_cairo_op (cr, "%g set_font_size\n", size); + return DLCALL (cairo_set_font_size, cr, size); +} + +void +cairo_set_font_matrix (cairo_t *cr, const cairo_matrix_t *matrix) +{ + _emit_cairo_op (cr, "[%g %g %g %g %g %g] set_font_matrix\n", + matrix->xx, matrix->yx, + matrix->xy, matrix->yy, + matrix->x0, matrix->y0); + return DLCALL (cairo_set_font_matrix, cr, matrix); +} + +static const char * +_subpixel_order_to_string (cairo_subpixel_order_t subpixel_order) +{ + const char *names[] = { + "SUBPIXEL_ORDER_DEFAULT", /* CAIRO_SUBPIXEL_ORDER_DEFAULT */ + "SUBPIXEL_ORDER_RGB", /* CAIRO_SUBPIXEL_ORDER_RGB */ + "SUBPIXEL_ORDER_BGR", /* CAIRO_SUBPIXEL_ORDER_BGR */ + "SUBPIXEL_ORDER_VRGB", /* CAIRO_SUBPIXEL_ORDER_VRGB */ + "SUBPIXEL_ORDER_VBGR" /* CAIRO_SUBPIXEL_ORDER_VBGR */ + }; + return names[subpixel_order]; +} +static const char * +_hint_style_to_string (cairo_hint_style_t hint_style) +{ + const char *names[] = { + "HINT_STYLE_DEFAULT", /* CAIRO_HINT_STYLE_DEFAULT */ + "HINT_STYLE_NONE", /* CAIRO_HINT_STYLE_NONE */ + "HINT_STYLE_SLIGHT", /* CAIRO_HINT_STYLE_SLIGHT */ + "HINT_STYLE_MEDIUM", /* CAIRO_HINT_STYLE_MEDIUM */ + "HINT_STYLE_FULL" /* CAIRO_HINT_STYLE_FULL */ + }; + return names[hint_style]; +} +static const char * +_hint_metrics_to_string (cairo_hint_metrics_t hint_metrics) +{ + const char *names[] = { + "HINT_METRICS_DEFAULT", /* CAIRO_HINT_METRICS_DEFAULT */ + "HINT_METRICS_OFF", /* CAIRO_HINT_METRICS_OFF */ + "HINT_METRICS_ON" /* CAIRO_HINT_METRICS_ON */ + }; + return names[hint_metrics]; +} +static void +_emit_font_options (const cairo_font_options_t *options) +{ + cairo_antialias_t antialias; + cairo_subpixel_order_t subpixel_order; + cairo_hint_style_t hint_style; + cairo_hint_metrics_t hint_metrics; + + fprintf (logfile, "dict\n"); + + antialias = cairo_font_options_get_antialias (options); + if (antialias != CAIRO_ANTIALIAS_DEFAULT) { + fprintf (logfile, " /antialias //%s set\n", + _antialias_to_string (antialias)); + } + + subpixel_order = cairo_font_options_get_subpixel_order (options); + if (subpixel_order != CAIRO_SUBPIXEL_ORDER_DEFAULT) { + fprintf (logfile, " /subpixel-order //%s set\n", + _subpixel_order_to_string (subpixel_order)); + } + + hint_style = cairo_font_options_get_hint_style (options); + if (hint_style != CAIRO_HINT_STYLE_DEFAULT) { + fprintf (logfile, " /hint-style //%s set\n", + _hint_style_to_string (hint_style)); + } + + hint_metrics = cairo_font_options_get_hint_metrics (options); + if (hint_style != CAIRO_HINT_METRICS_DEFAULT) { + fprintf (logfile, " /hint-metrics //%s set\n", + _hint_metrics_to_string (hint_metrics)); + } +} + +void +cairo_set_font_options (cairo_t *cr, const cairo_font_options_t *options) +{ + if (cr != NULL && options != NULL && _write_lock ()) { + _emit_context (cr); + _emit_font_options (options); + fprintf (logfile, " set_font_options\n"); + _write_unlock (); + } + + return DLCALL (cairo_set_font_options, cr, options); +} + +cairo_scaled_font_t * +cairo_get_scaled_font (cairo_t *cr) +{ + cairo_scaled_font_t *ret; + + ret = DLCALL (cairo_get_scaled_font, cr); + + if (cr != NULL && ! _has_scaled_font_id (ret)) { + _emit_cairo_op (cr, "/scaled-font get /sf%ld exch def\n", + _create_scaled_font_id (ret)); + _get_object (SCALED_FONT, ret)->defined = true; + } + + return ret; +} + +void +cairo_set_scaled_font (cairo_t *cr, const cairo_scaled_font_t *scaled_font) +{ + if (cr != NULL && scaled_font != NULL) { + if (_pop_operands_to (SCALED_FONT, scaled_font)) { + if (_is_current (CONTEXT, cr, 1)) { + if (_write_lock ()) { + _consume_operand (); + fprintf (logfile, "set_scaled_font\n"); + _write_unlock (); + } + } else { + if (_get_object (CONTEXT, cr)->defined) { + if (_write_lock ()) { + _consume_operand (); + fprintf (logfile, + "c%ld exch set_scaled_font pop\n", + _get_context_id (cr)); + _write_unlock (); + } + } else { + _emit_cairo_op (cr, "sf%ld set_scaled_font\n", + _get_scaled_font_id (scaled_font)); + } + } + } else { + _emit_cairo_op (cr, "sf%ld set_scaled_font\n", + _get_scaled_font_id (scaled_font)); + } + } + return DLCALL (cairo_set_scaled_font, cr, scaled_font); +} + +static void +_emit_matrix (const cairo_matrix_t *m) +{ + if (m->xx == 1.0 && m->yx == 0.0 && + m->xy == 0.0 && m->yy == 1.0 && + m->x0 == 0.0 && m->y0 == 0.0) + { + fprintf (logfile, "identity"); + } + else + { + fprintf (logfile, + "[%g %g %g %g %g %g]", + m->xx, m->yx, + m->xy, m->yy, + m->x0, m->y0); + } +} + +cairo_scaled_font_t * +cairo_scaled_font_create (cairo_font_face_t *font_face, + const cairo_matrix_t *font_matrix, + const cairo_matrix_t *ctm, + const cairo_font_options_t *options) +{ + cairo_scaled_font_t *ret; + long scaled_font_id; + long font_face_id; + + ret = DLCALL (cairo_scaled_font_create, font_face, font_matrix, ctm, options); + scaled_font_id = _create_scaled_font_id (ret); + + if (font_face != NULL && + font_matrix != NULL && + ctm != NULL && + options != NULL + && _write_lock ()) + { + font_face_id = _get_font_face_id (font_face); + + if (_pop_operands_to (FONT_FACE, font_face)) { + _consume_operand (); + _emit_matrix (font_matrix); + fprintf (logfile, " "); + _emit_matrix (ctm); + fprintf (logfile, " "); + } else { + _emit_matrix (font_matrix); + fprintf (logfile, " "); + _emit_matrix (ctm); + fprintf (logfile, " "); + _emit_font_options (options); + } + _emit_font_options (options); + fprintf (logfile, " scaled_font dup /sf%ld exch def\n", + scaled_font_id); + _get_object (SCALED_FONT, ret)->defined = true; + _push_operand (SCALED_FONT, ret); + _write_unlock (); + } + + return ret; +} + +void +cairo_show_text (cairo_t *cr, const char *utf8) +{ + if (cr != NULL && _write_lock ()) { + _emit_context (cr); + _emit_string_literal (utf8); + fprintf (logfile, " show_text\n"); + _write_unlock (); + } + DLCALL (cairo_show_text, cr, utf8); +} + +#define TOLERANCE 1e-5 +static void +_emit_glyphs (cairo_scaled_font_t *font, + const cairo_glyph_t *glyphs, + int num_glyphs) +{ + double x,y; + int n; + + if (num_glyphs == 0) { + fprintf (logfile, "[]"); + return; + } + + for (n = 0; n < num_glyphs; n++) { + if (glyphs[n].index > 256) + break; + } + + x = glyphs->x; + y = glyphs->y; + if (n < num_glyphs) { /* need full glyph range */ + fprintf (logfile, "[ %g %g [", x, y); + while (num_glyphs--) { + cairo_text_extents_t extents; + + if (fabs (glyphs->x - x) > TOLERANCE || + fabs (glyphs->y - y) > TOLERANCE) + { + x = glyphs->x; + y = glyphs->y; + fprintf (logfile, " ] %g %g [", x, y); + } + + fprintf (logfile, " %lu", glyphs->index); + + cairo_scaled_font_glyph_extents (font, glyphs, 1, &extents); + x += extents.x_advance; + y += extents.y_advance; + + glyphs++; + } + fprintf (logfile, " ] ]"); + } else { + struct _data_stream stream; + + fprintf (logfile, "[ %g %g <~", x, y); + _write_base85_data_start (&stream); + while (num_glyphs--) { + cairo_text_extents_t extents; + unsigned char c; + + if (fabs (glyphs->x - x) > TOLERANCE || + fabs (glyphs->y - y) > TOLERANCE) + { + x = glyphs->x; + y = glyphs->y; + _write_base85_data_end (&stream); + fprintf (logfile, "~> %g %g <~", x, y); + _write_base85_data_start (&stream); + } + + c = glyphs->index; + _write_base85_data (&stream, &c, 1); + + cairo_scaled_font_glyph_extents (font, glyphs, 1, &extents); + x += extents.x_advance; + y += extents.y_advance; + + glyphs++; + } + _write_base85_data_end (&stream); + fprintf (logfile, "~> ]"); + } +} + +void +cairo_show_glyphs (cairo_t *cr, const cairo_glyph_t *glyphs, int num_glyphs) +{ + cairo_scaled_font_t *font; + + font = cairo_get_scaled_font (cr); + + if (cr != NULL && glyphs != NULL && _write_lock ()) { + _emit_context (cr); + _emit_glyphs (font, glyphs, num_glyphs); + fprintf (logfile, " show_glyphs\n"); + _write_unlock (); + } + + DLCALL (cairo_show_glyphs, cr, glyphs, num_glyphs); +} + +static const char * +_direction_to_string (cairo_bool_t backward) +{ + const char *names[] = { + "FORWARD", + "BACKWARD" + }; + return names[backward]; +} + +void +cairo_show_text_glyphs (cairo_t *cr, + const char *utf8, + int utf8_len, + const cairo_glyph_t *glyphs, + int num_glyphs, + const cairo_text_cluster_t *clusters, + int num_clusters, + cairo_text_cluster_flags_t backward) +{ + cairo_scaled_font_t *font; + + font = cairo_get_scaled_font (cr); + + if (cr != NULL && glyphs != NULL && clusters != NULL && _write_lock ()) { + int n; + + _emit_context (cr); + + _emit_string_literal (utf8); + fprintf (logfile, " %d ", utf8_len); + + _emit_glyphs (font, glyphs, num_glyphs); + fprintf (logfile, " ["); + for (n = 0; n < num_clusters++; n++) { + fprintf (logfile, " %d %d", + clusters[n].num_bytes, + clusters[n].num_glyphs); + } + fprintf (logfile, " ] //%s show_text_glyphs\n", + _direction_to_string (backward)); + + _write_unlock (); + } + + DLCALL (cairo_show_text_glyphs, cr, + utf8, utf8_len, + glyphs, num_glyphs, + clusters, num_clusters, + backward); +} + +void +cairo_text_path (cairo_t *cr, const char *utf8) +{ + if (cr != NULL && _write_lock ()) { + _emit_context (cr); + _emit_string_literal (utf8); + fprintf (logfile, " text_path\n"); + _write_unlock (); + } + return DLCALL (cairo_text_path, cr, utf8); +} + +void +cairo_glyph_path (cairo_t *cr, const cairo_glyph_t *glyphs, int num_glyphs) +{ + cairo_scaled_font_t *font; + + font = cairo_get_scaled_font (cr); + + if (cr != NULL && glyphs != NULL && _write_lock ()) { + _emit_context (cr); + _emit_glyphs (font, glyphs, num_glyphs); + fprintf (logfile, " glyph_path\n"); + + _write_unlock (); + } + + return DLCALL (cairo_glyph_path, cr, glyphs, num_glyphs); +} + +void +cairo_append_path (cairo_t *cr, const cairo_path_t *path) +{ + /* XXX no support for named paths, so manually reconstruct */ + int i; + cairo_path_data_t *p; + + if (cr == NULL || path == NULL) + return DLCALL (cairo_append_path, cr, path); + + for (i=0; i < path->num_data; i += path->data[i].header.length) { + p = &path->data[i]; + switch (p->header.type) { + case CAIRO_PATH_MOVE_TO: + if (p->header.length >= 2) + cairo_move_to (cr, p[1].point.x, p[1].point.y); + break; + case CAIRO_PATH_LINE_TO: + if (p->header.length >= 2) + cairo_line_to (cr, p[1].point.x, p[1].point.y); + break; + case CAIRO_PATH_CURVE_TO: + if (p->header.length >= 4) + cairo_curve_to (cr, + p[1].point.x, p[1].point.y, + p[2].point.x, p[2].point.y, + p[3].point.x, p[3].point.y); + break; + case CAIRO_PATH_CLOSE_PATH: + if (p->header.length >= 1) + cairo_close_path (cr); + break; + default: + break; + } + } +} + +static const char * +_format_to_string (cairo_format_t format) +{ + const char *names[] = { + "ARGB32", /* CAIRO_FORMAT_ARGB32 */ + "RGB24", /* CAIRO_FORMAT_RGB24 */ + "A8", /* CAIRO_FORMAT_A8 */ + "A1" /* CAIRO_FORMAT_A1 */ + }; + return names[format]; +} + +cairo_surface_t * +cairo_image_surface_create (cairo_format_t format, int width, int height) +{ + cairo_surface_t *ret; + long surface_id; + const char *format_str; + + ret = DLCALL (cairo_image_surface_create, format, width, height); + + surface_id = _create_surface_id (ret); + format_str = _format_to_string (format); + + if (_write_lock ()) { + fprintf (logfile, + "dict\n" + " /width %d set\n" + " /height %d set\n" + " /format //%s set\n" + " image dup /s%ld exch def\n", + width, height, format_str, surface_id); + _get_object (SURFACE, ret)->defined = true; + _push_operand (SURFACE, ret); + _write_unlock (); + } + + return ret; +} + +cairo_surface_t * +cairo_image_surface_create_for_data (unsigned char *data, cairo_format_t format, int width, int height, int stride) +{ + cairo_surface_t *ret; + long surface_id; + const char *format_str; + + ret = DLCALL (cairo_image_surface_create_for_data, data, format, width, height, stride); + surface_id = _create_surface_id (ret); + + if (data != NULL && _write_lock ()) { + format_str = _format_to_string (format); + + fprintf (logfile, + "dict\n" + " /width %d set\n" + " /height %d set\n" + " /format //%s set\n" + " /source ", + width, height, format_str); + _emit_image (ret); + fprintf (logfile, + " /deflate filter set\n" + " image dup /s%ld exch def\n", + surface_id); + _get_object (SURFACE, ret)->defined = true; + _push_operand (SURFACE, ret); + _write_unlock (); + } + + return ret; +} + +cairo_surface_t * +cairo_surface_create_similar (cairo_surface_t *other, + cairo_content_t content, + int width, int height) +{ + cairo_surface_t *ret; + long other_id; + long surface_id; + + ret = DLCALL (cairo_surface_create_similar, other, content, width, height); + surface_id = _create_surface_id (ret); + + if (other != NULL && _write_lock ()) { + other_id = _get_surface_id (other); + + if (_pop_operands_to (SURFACE, other)) { + _consume_operand (); + fprintf (logfile, + "%d %d %s similar\n", + width, + height, + _content_to_string (content)); + } else { + fprintf (logfile, + "s%ld %d %d %s similar\n", + other_id, + width, + height, + _content_to_string (content)); + } + _push_operand (SURFACE, ret); + _write_unlock (); + } + + return ret; +} + +static void CAIRO_PRINTF_FORMAT(2, 3) +_emit_surface_op (cairo_surface_t *surface, const char *fmt, ...) +{ + va_list ap; + + if (surface == NULL || ! _write_lock ()) + return; + + _emit_surface (surface); + + va_start (ap, fmt); + vfprintf (logfile, fmt, ap); + va_end (ap); + + _write_unlock (); +} + +void +cairo_surface_finish (cairo_surface_t *surface) +{ + return DLCALL (cairo_surface_finish, surface); +} + +void +cairo_surface_flush (cairo_surface_t *surface) +{ + return DLCALL (cairo_surface_flush, surface); +} + +void +cairo_surface_mark_dirty (cairo_surface_t *surface) +{ + /* XXX send update rect? */ + + return DLCALL (cairo_surface_mark_dirty, surface); +} + +void +cairo_surface_mark_dirty_rectangle (cairo_surface_t *surface, int x, int y, int width, int height) +{ + /* XXX send update rect? */ + + return DLCALL (cairo_surface_mark_dirty_rectangle, surface, x, y, width, height); +} + +void +cairo_surface_set_device_offset (cairo_surface_t *surface, double x_offset, double y_offset) +{ + _emit_surface_op (surface, "%g %g set_device_offset\n", + x_offset, y_offset); + return DLCALL (cairo_surface_set_device_offset, surface, x_offset, y_offset); +} + +void +cairo_surface_set_fallback_resolution (cairo_surface_t *surface, double x_pixels_per_inch, double y_pixels_per_inch) +{ + _emit_surface_op (surface, "%g %g set_fallback_resolution\n", + x_pixels_per_inch, y_pixels_per_inch); + return DLCALL (cairo_surface_set_fallback_resolution, surface, x_pixels_per_inch, y_pixels_per_inch); +} + +void +cairo_surface_copy_page (cairo_surface_t *surface) +{ + _emit_surface_op (surface, "copy_page\n"); + return DLCALL (cairo_surface_copy_page, surface); +} + +void +cairo_surface_show_page (cairo_surface_t *surface) +{ + _emit_surface_op (surface, "show_page\n"); + return DLCALL (cairo_surface_show_page, surface); +} + +cairo_status_t +cairo_surface_write_to_png (cairo_surface_t *surface, const char *filename) +{ + if (surface != NULL && _write_lock ()) { + fprintf (logfile, "%% s%ld ", _get_surface_id (surface)); + _emit_string_literal (filename); + fprintf (logfile, " write_to_png\n"); + _write_unlock (); + } + return DLCALL (cairo_surface_write_to_png, surface, filename); +} + +cairo_status_t +cairo_surface_write_to_png_stream (cairo_surface_t *surface, + cairo_write_func_t write_func, + void *data) +{ + if (surface != NULL && _write_lock ()) { + char symbol[1024]; + + fprintf (logfile, "%% s%ld ", _get_surface_id (surface)); + lookup_symbol (symbol, sizeof (symbol), write_func); + _emit_string_literal (symbol); + fprintf (logfile, " write_to_png_stream\n"); + _write_unlock (); + } + return DLCALL (cairo_surface_write_to_png_stream, + surface, write_func, data); +} + +static void CAIRO_PRINTF_FORMAT(2, 3) +_emit_pattern_op (cairo_pattern_t *pattern, const char *fmt, ...) +{ + va_list ap; + + if (pattern == NULL || ! _write_lock ()) + return; + + _emit_pattern (pattern); + + va_start (ap, fmt); + vfprintf (logfile, fmt, ap); + va_end (ap); + + _write_unlock (); +} + +cairo_pattern_t * +cairo_pattern_create_rgb (double red, double green, double blue) +{ + cairo_pattern_t *ret; + long pattern_id; + + ret = DLCALL (cairo_pattern_create_rgb, red, green, blue); + pattern_id = _create_pattern_id (ret); + + if (_write_lock ()) { + fprintf (logfile, "/p%ld %g %g %g rgb def\n", + pattern_id, red, green, blue); + _get_object (PATTERN, ret)->defined = true; + _write_unlock (); + } + + return ret; +} + +cairo_pattern_t * +cairo_pattern_create_rgba (double red, double green, double blue, double alpha) +{ + cairo_pattern_t *ret; + long pattern_id; + + ret = DLCALL (cairo_pattern_create_rgba, red, green, blue, alpha); + pattern_id = _create_pattern_id (ret); + + if (_write_lock ()) { + fprintf (logfile, "/p%ld %g %g %g %g rgba def\n", + pattern_id, red, green, blue, alpha); + _get_object (PATTERN, ret)->defined = true; + _write_unlock (); + } + + return ret; +} + +cairo_pattern_t * +cairo_pattern_create_for_surface (cairo_surface_t *surface) +{ + cairo_pattern_t *ret; + long pattern_id; + long surface_id; + + ret = DLCALL (cairo_pattern_create_for_surface, surface); + pattern_id = _create_pattern_id (ret); + + if (surface != NULL && _write_lock ()) { + surface_id = _get_surface_id (surface); + + if (_pop_operands_to (SURFACE, surface)) { + _consume_operand (); + } else { + fprintf (logfile, "s%ld ", surface_id); + } + fprintf (logfile, "pattern %% p%ld\n", pattern_id); + _push_operand (PATTERN, ret); + _write_unlock (); + } + + return ret; +} + +cairo_pattern_t * +cairo_pattern_create_linear (double x0, double y0, double x1, double y1) +{ + cairo_pattern_t *ret; + long pattern_id; + + ret = DLCALL (cairo_pattern_create_linear, x0, y0, x1, y1); + pattern_id = _create_pattern_id (ret); + + if (_write_lock ()) { + fprintf (logfile, + "%g %g %g %g linear %% p%ld\n", + x0, y0, x1, y1, pattern_id); + _push_operand (PATTERN, ret); + _write_unlock (); + } + + return ret; +} + +cairo_pattern_t * +cairo_pattern_create_radial (double cx0, double cy0, double radius0, double cx1, double cy1, double radius1) +{ + cairo_pattern_t *ret; + long pattern_id; + + ret = DLCALL (cairo_pattern_create_radial, + cx0, cy0, radius0, + cx1, cy1, radius1); + pattern_id = _create_pattern_id (ret); + + if (_write_lock ()) { + fprintf (logfile, + "%g %g %g %g %g %g radial %% p%ld\n", + cx0, cy0, radius0, cx1, cy1, radius1, + pattern_id); + _push_operand (PATTERN, ret); + _write_unlock (); + } + + return ret; +} + +void +cairo_pattern_add_color_stop_rgb (cairo_pattern_t *pattern, double offset, double red, double green, double blue) +{ + _emit_pattern_op (pattern, + "%g %g %g %g 1 add_color_stop\n", + offset, red, green, blue); + return DLCALL (cairo_pattern_add_color_stop_rgb, pattern, offset, red, green, blue); +} + +void +cairo_pattern_add_color_stop_rgba (cairo_pattern_t *pattern, double offset, double red, double green, double blue, double alpha) +{ + _emit_pattern_op (pattern, + "%g %g %g %g %g add_color_stop\n", + offset, red, green, blue, alpha); + return DLCALL (cairo_pattern_add_color_stop_rgba, pattern, offset, red, green, blue, alpha); +} + +void +cairo_pattern_set_matrix (cairo_pattern_t *pattern, const cairo_matrix_t *matrix) +{ + _emit_pattern_op (pattern, + "[%g %g %g %g %g %g] set_matrix\n", + matrix->xx, matrix->yx, + matrix->xy, matrix->yy, + matrix->x0, matrix->y0); + return DLCALL (cairo_pattern_set_matrix, pattern, matrix); +} + +static const char * +_filter_to_string (cairo_filter_t filter) +{ + const char *names[] = { + "FILTER_FAST", /* CAIRO_FILTER_FAST */ + "FILTER_GOOD", /* CAIRO_FILTER_GOOD */ + "FILTER_BEST", /* CAIRO_FILTER_BEST */ + "FILTER_NEAREST", /* CAIRO_FILTER_NEAREST */ + "FILTER_BILINEAR", /* CAIRO_FILTER_BILINEAR */ + "FILTER_GAUSSIAN", /* CAIRO_FILTER_GAUSSIAN */ + }; + return names[filter]; +} + +void +cairo_pattern_set_filter (cairo_pattern_t *pattern, cairo_filter_t filter) +{ + _emit_pattern_op (pattern, "%s set_filter\n", _filter_to_string (filter)); + return DLCALL (cairo_pattern_set_filter, pattern, filter); +} + +static const char * +_extend_to_string (cairo_extend_t extend) +{ + const char *names[] = { + "EXTEND_NONE", /* CAIRO_EXTEND_NONE */ + "EXTEND_REPEAT", /* CAIRO_EXTEND_REPEAT */ + "EXTEND_REFLECT", /* CAIRO_EXTEND_REFLECT */ + "EXTEND_PAD" /* CAIRO_EXTEND_PAD */ + }; + return names[extend]; +} + +void +cairo_pattern_set_extend (cairo_pattern_t *pattern, cairo_extend_t extend) +{ + _emit_pattern_op (pattern, "//%s set_extend\n", _extend_to_string (extend)); + return DLCALL (cairo_pattern_set_extend, pattern, extend); +} + +#ifdef CAIRO_HAS_FT_FONT +cairo_font_face_t * +cairo_ft_font_face_create_for_pattern (FcPattern *pattern) +{ + cairo_font_face_t *ret; + long font_face_id; + + ret = DLCALL (cairo_ft_font_face_create_for_pattern, pattern); + font_face_id = _create_font_face_id (ret); + + if (pattern != NULL && _write_lock ()) { + FcChar8 *parsed; + + parsed = DLCALL (FcNameUnparse, pattern); + fprintf (logfile, + "dict\n" + " /type 42 set\n" + " /pattern "); + _emit_string_literal ((char *) parsed); + fprintf (logfile, + " set\n" + " font\n"); + _push_operand (FONT_FACE, ret); + _write_unlock (); + + free (parsed); + } + + return ret; +} + +typedef struct _ft_face_data { + unsigned long index; + unsigned long size; + void *data; +} FtFaceData; + +static void +_ft_face_data_destroy (void *arg) +{ + FtFaceData *data = arg; + free (data->data); + free (data); +} + +cairo_font_face_t * +cairo_ft_font_face_create_for_ft_face (FT_Face face, int load_flags) +{ + cairo_font_face_t *ret; + Object *obj; + FtFaceData *data; + long font_face_id; + + ret = DLCALL (cairo_ft_font_face_create_for_ft_face, face, load_flags); + font_face_id = _create_font_face_id (ret); + + if (face == NULL) + return ret; + + obj = _get_object (NONE, face); + data = obj->data; + if (data == NULL) + return ret; + + if (_write_lock ()) { + fprintf (logfile, + "dict\n" + " /type 42 set\n" + " /source "); + _emit_data (data->data, data->size); + fprintf (logfile, + " /deflate filter set\n" + " /size %lu set\n" + " /index %lu set\n" + " /flags %d set\n" + " font\n", + data->size, data->index, load_flags); + _push_operand (FONT_FACE, ret); + _write_unlock (); + } + + return ret; +} + +static bool +_ft_read_file (FtFaceData *data, const char *path) +{ + char buf[4096]; + FILE *file; + + file = fopen (path, "rb"); + if (file != NULL) { + size_t ret; + unsigned long int allocated = 8192; + data->data = malloc (allocated); + do { + ret = fread (buf, 1, sizeof (buf), file); + if (ret == 0) + break; + memcpy ((char *) data->data + data->size, buf, ret); + data->size += ret; + if (ret != sizeof (buf)) + break; + + if (data->size == allocated) { + allocated *= 2; + data->data = realloc (data->data, allocated); + } + } while (true); + fclose (file); + } + + return file != NULL; +} + +FT_Error +FT_New_Face (FT_Library library, const char *pathname, FT_Long index, FT_Face *face) +{ + FT_Error ret; + + ret = DLCALL (FT_New_Face, library, pathname, index, face); + if (ret == 0) { + Object *obj = _type_object_create (NONE, *face); + FtFaceData *data = malloc (sizeof (FtFaceData)); + data->index = index; + data->size = 0; + data->data = NULL; + _ft_read_file (data, pathname); + obj->data = data; + obj->destroy = _ft_face_data_destroy; + } + + return ret; +} + +FT_Error +FT_New_Memory_Face (FT_Library library, const FT_Byte *mem, FT_Long size, FT_Long index, FT_Face *face) +{ + FT_Error ret; + + ret = DLCALL (FT_New_Memory_Face, library, mem, size, index, face); + if (ret == 0) { + Object *obj = _type_object_create (NONE, *face); + FtFaceData *data = malloc (sizeof (FtFaceData)); + data->index = index; + data->size = size; + data->data = malloc (size); + memcpy (data->data, mem, size); + obj->data = data; + obj->destroy = _ft_face_data_destroy; + } + + return ret; +} + +FT_Error +FT_Open_Face (FT_Library library, const FT_Open_Args *args, FT_Long index, FT_Face *face) +{ + FT_Error ret; + + ret = DLCALL (FT_Open_Face, library, args, index, face); + if (args->flags & FT_OPEN_MEMORY) + fprintf (stderr, "FT_Open_Face (mem=%p, %ld, %ld) = %p\n", + args->memory_base, args->memory_size, + index, *face); + else if (args->flags & FT_OPEN_STREAM) + fprintf (stderr, "FT_Open_Face (stream, %ld) = %p\n", + index, *face); + else if (args->flags & FT_OPEN_PATHNAME) + fprintf (stderr, "FT_Open_Face (path=%s, %ld) = %p\n", + args->pathname, index, *face); + + return ret; +} + +FT_Error +FT_Done_Face (FT_Face face) +{ + _object_destroy (_get_object (NONE, face)); + + return DLCALL (FT_Done_Face, face); +} +#endif + +#ifdef CAIRO_HAS_PS_SURFACE +#include + +cairo_surface_t * +cairo_ps_surface_create (const char *filename, double width_in_points, double height_in_points) +{ + cairo_surface_t *ret; + long surface_id; + + ret = DLCALL (cairo_ps_surface_create, filename, width_in_points, height_in_points); + surface_id = _create_surface_id (ret); + + if (_write_lock ()) { + fprintf (logfile, + "dict\n" + " /type (PS) set\n" + " /filename "); + _emit_string_literal (filename); + fprintf (logfile, + " set\n" + " /width %g set\n" + " /height %g set\n" + " surface %% s%ld\n", + width_in_points, + height_in_points, + surface_id); + _push_operand (SURFACE, ret); + _write_unlock (); + } + + return ret; +} + +cairo_surface_t * +cairo_ps_surface_create_for_stream (cairo_write_func_t write_func, void *closure, double width_in_points, double height_in_points) +{ + cairo_surface_t *ret; + long surface_id; + + ret = DLCALL (cairo_ps_surface_create_for_stream, write_func, closure, width_in_points, height_in_points); + surface_id = _create_surface_id (ret); + + if (_write_lock ()) { + fprintf (logfile, + "dict\n" + " /type (PS) set\n" + " /width %g set\n" + " /height %g set\n" + " surface %% s%ld\n", + width_in_points, + height_in_points, + surface_id); + _push_operand (SURFACE, ret); + _write_unlock (); + } + + return ret; +} + +void +cairo_ps_surface_set_size (cairo_surface_t *surface, double width_in_points, double height_in_points) +{ + return DLCALL (cairo_ps_surface_set_size, surface, width_in_points, height_in_points); +} + +#endif + +#ifdef CAIRO_HAS_PDF_SURFACE +#include + +cairo_surface_t * +cairo_pdf_surface_create (const char *filename, double width_in_points, double height_in_points) +{ + cairo_surface_t *ret; + long surface_id; + + ret = DLCALL (cairo_pdf_surface_create, filename, width_in_points, height_in_points); + surface_id = _create_surface_id (ret); + + if (_write_lock ()) { + fprintf (logfile, + "dict\n" + " /type (PDF) set\n" + " /filename "); + _emit_string_literal (filename); + fprintf (logfile, + " set\n" + " /width %g set\n" + " /height %g set\n" + " surface %% s%ld\n", + width_in_points, + height_in_points, + surface_id); + _push_operand (SURFACE, ret); + _write_unlock (); + } + + return ret; +} + +cairo_surface_t * +cairo_pdf_surface_create_for_stream (cairo_write_func_t write_func, void *closure, double width_in_points, double height_in_points) +{ + cairo_surface_t *ret; + long surface_id; + + ret = DLCALL (cairo_pdf_surface_create_for_stream, write_func, closure, width_in_points, height_in_points); + surface_id = _create_surface_id (ret); + + if (_write_lock ()) { + fprintf (logfile, + "dict\n" + " /type (PDF) set\n" + " /width %g set\n" + " /height %g set\n" + " surface %% s%ld\n", + width_in_points, + height_in_points, + surface_id); + _push_operand (SURFACE, ret); + _write_unlock (); + } + return ret; +} + +void +cairo_pdf_surface_set_size (cairo_surface_t *surface, double width_in_points, double height_in_points) +{ + return DLCALL (cairo_pdf_surface_set_size, surface, width_in_points, height_in_points); +} +#endif + +#ifdef CAIRO_HAS_SVG_SURFACE +#include + +cairo_surface_t * +cairo_svg_surface_create (const char *filename, double width, double height) +{ + cairo_surface_t *ret; + long surface_id; + + ret = DLCALL (cairo_svg_surface_create, filename, width, height); + surface_id = _create_surface_id (ret); + + if (_write_lock ()) { + fprintf (logfile, + "dict\n" + " /type (SVG) set\n" + " /filename "); + _emit_string_literal (filename); + fprintf (logfile, + " set\n" + " /width %g set\n" + " /height %g set\n" + " surface %% s%ld\n", + width, + height, + surface_id); + _push_operand (SURFACE, ret); + _write_unlock (); + } + + return ret; +} + +cairo_surface_t * +cairo_svg_surface_create_for_stream (cairo_write_func_t write_func, void *closure, double width, double height) +{ + cairo_surface_t *ret; + long surface_id; + + ret = DLCALL (cairo_svg_surface_create_for_stream, write_func, closure, width, height); + surface_id = _create_surface_id (ret); + + if (_write_lock ()) { + fprintf (logfile, + "dict\n" + " /type (SVG) set\n" + " /width %g set\n" + " /height %g set\n" + " surface %% s%ld\n", + width, + height, + surface_id); + _push_operand (SURFACE, ret); + _write_unlock (); + } + + return ret; +} + +#endif + +cairo_surface_t * +cairo_image_surface_create_from_png (const char *filename) +{ + cairo_surface_t *ret; + cairo_format_t format; + int width; + int height; + long surface_id; + const char *format_str; + + ret = DLCALL (cairo_image_surface_create_from_png, filename); + + width = cairo_image_surface_get_width (ret); + height = cairo_image_surface_get_height (ret); + format = cairo_image_surface_get_format (ret); + + surface_id = _create_surface_id (ret); + format_str = _format_to_string (format); + + if (_write_lock ()) { + fprintf (logfile, + "dict\n" + " /width %d set\n" + " /height %d set\n" + " /format //%s set\n" + " /filename ", + width, height, format_str); + _emit_string_literal (filename); + fprintf (logfile, + " set\n" + " /source "); + _emit_image (ret); + fprintf (logfile, + " /deflate filter set\n" + " image dup /s%ld exch def\n", + surface_id); + _get_object (SURFACE, ret)->defined = true; + _push_operand (SURFACE, ret); + _write_unlock (); + } + + return ret; +} + +cairo_surface_t * +cairo_image_surface_create_from_png_stream (cairo_read_func_t read_func, void *closure) +{ + cairo_surface_t *ret; + cairo_format_t format; + int width; + int height; + const char *format_str; + long surface_id; + + ret = DLCALL (cairo_image_surface_create_from_png_stream, read_func, closure); + width = cairo_image_surface_get_width (ret); + height = cairo_image_surface_get_height (ret); + format = cairo_image_surface_get_format (ret); + + surface_id = _create_surface_id (ret); + format_str = _format_to_string (format); + + if (_write_lock ()) { + fprintf (logfile, + "dict\n" + " /width %d set\n" + " /height %d set\n" + " /format //%s set\n" + " /source ", + width, height, format_str); + _emit_image (ret); + fprintf (logfile, + " /deflate filter set\n" + " image dup /s%ld exch def\n", + surface_id); + _get_object (SURFACE, ret)->defined = true; + _push_operand (SURFACE, ret); + _write_unlock (); + } + + return ret; +} + +#ifdef CAIRO_HAS_XLIB_SURFACE +#include + +cairo_surface_t * +cairo_xlib_surface_create (Display *dpy, Drawable drawable, Visual *visual, int width, int height) +{ + cairo_surface_t *ret; + long surface_id; + + ret = DLCALL (cairo_xlib_surface_create, + dpy, drawable, visual, width, height); + surface_id = _create_surface_id (ret); + + if (_write_lock ()) { + fprintf (logfile, + "dict\n" + " /type (xlib) set\n" + " /width %d set\n" + " /height %d set\n" + " surface dup /s%ld exch def\n", + width, + height, + surface_id); + _get_object (SURFACE, ret)->defined = true; + _push_operand (SURFACE, ret); + _write_unlock (); + } + + return ret; +} + +cairo_surface_t * +cairo_xlib_surface_create_for_bitmap (Display *dpy, Pixmap bitmap, Screen *screen, int width, int height) +{ + cairo_surface_t *ret; + long surface_id; + + ret = DLCALL (cairo_xlib_surface_create_for_bitmap, + dpy, bitmap, screen, width, height); + surface_id = _create_surface_id (ret); + + if (_write_lock ()) { + fprintf (logfile, + "dict\n" + " /type (xlib) set\n" + " /width %d set\n" + " /height %d set\n" + " /depth 1 set\n" + " surface dup /s%ld exch def\n", + width, + height, + surface_id); + _get_object (SURFACE, ret)->defined = true; + _push_operand (SURFACE, ret); + _write_unlock (); + } + + return ret; +} + +#ifdef CAIRO_HAS_XLIB_XRENDER_SURFACE +#include +cairo_surface_t * +cairo_xlib_surface_create_with_xrender_format (Display *dpy, Drawable drawable, Screen *screen, XRenderPictFormat *format, int width, int height) +{ + cairo_surface_t *ret; + long surface_id; + + ret = DLCALL (cairo_xlib_surface_create_with_xrender_format, + dpy, drawable, screen, format, width, height); + surface_id = _create_surface_id (ret); + + if (_write_lock ()) { + fprintf (logfile, + "dict\n" + " /type (xrender) set\n" + " /width %d set\n" + " /height %d set\n" + " /depth %d set\n" + " surface dup /s%ld exch def\n", + width, + height, + format->depth, + surface_id); + _get_object (SURFACE, ret)->defined = true; + _push_operand (SURFACE, ret); + _write_unlock (); + } + + return ret; +} +#endif +#endif + +#ifdef CAIRO_HAS_SCRIPT_SURFACE +#include +cairo_surface_t * +cairo_script_surface_create (const char *filename, + double width, + double height) +{ + cairo_surface_t *ret; + long surface_id; + + ret = DLCALL (cairo_script_surface_create, filename, width, height); + surface_id = _create_surface_id (ret); + + if (_write_lock ()) { + fprintf (logfile, + "dict\n" + " /type (script) set\n" + " /filename "); + _emit_string_literal (filename); + fprintf (logfile, + " set\n" + " /width %g set\n" + " /height %g set\n" + " surface dup /s%ld exch def\n", + width, height, + surface_id); + _get_object (SURFACE, ret)->defined = true; + _push_operand (SURFACE, ret); + _write_unlock (); + } + + return ret; +} + +cairo_surface_t * +cairo_script_surface_create_for_stream (cairo_write_func_t write_func, + void *data, + double width, + double height) +{ + cairo_surface_t *ret; + long surface_id; + + ret = DLCALL (cairo_script_surface_create_for_stream, + write_func, data, width, height); + surface_id = _create_surface_id (ret); + + if (_write_lock ()) { + fprintf (logfile, + "dict\n" + " /type (script) set\n" + " /width %g set\n" + " /height %g set\n" + " surface dup /s%ld exch def\n", + width, height, + surface_id); + _get_object (SURFACE, ret)->defined = true; + _push_operand (SURFACE, ret); + _write_unlock (); + } + + return ret; +} +#endif