clones/php-src
1
0
Fork 0
mirror of https://github.com/php/php-src.git synced 2024-09-24 03:17:26 +00:00
Code Issues Packages Projects Releases Wiki Activity
795025e0dc
php-src/ext/pdf/pdf.c
Daniel Beulshausen 795025e0dc fix bug 8341 & 8394
2001-01-03 11:41:31 +00:00

2921 lines
70 KiB
C
Raw Blame History

/*
+----------------------------------------------------------------------+
| PHP HTML Embedded Scripting Language Version 3.0 |
+----------------------------------------------------------------------+
| Copyright (c) 1997-1999 PHP Development Team (See Credits file) |
+----------------------------------------------------------------------+
| This program is free software; you can redistribute it and/or modify |
| it under the terms of one of the following licenses: |
| |
| A) the GNU General Public License as published by the Free Software |
| Foundation; either version 2 of the License, or (at your option) |
| any later version. |
| |
| B) the PHP License as published by the PHP Development Team and |
| included in the distribution in the file: LICENSE |
| |
| 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 both licenses referred to here. |
| If you did not, or have any questions about PHP licensing, please |
| contact core@php.net. |
+----------------------------------------------------------------------+
| Authors: Uwe Steinmann <Uwe.Steinmann@fernuni-hagen.de> |
+----------------------------------------------------------------------+
*/
/* $Id$ */
/* pdflib 2.02 is subject to the ALADDIN FREE PUBLIC LICENSE.
Copyright (C) 1997 Thomas Merz. */
/* Note that there is no code from the pdflib package in this file */
#if !PHP_31 && defined(THREAD_SAFE)
#undef THREAD_SAFE
#endif
#include "php.h"
#include "php_globals.h"
#include "ext/standard/head.h"
#include "ext/standard/info.h"
#include "ext/standard/file.h"
#include "ext/gd/php_gd.h"
#include <math.h>
#if HAVE_LIBGD13
#include "gd.h"
#endif
#ifdef HAVE_UNISTD_H
# include <unistd.h>
#endif
#ifdef PHP_WIN32
# include <io.h>
# include <fcntl.h>
#endif
#if HAVE_PDFLIB
#include "php_pdf.h"
#ifdef THREAD_SAFE
DWORD PDFlibTls;
static int numthreads=0;
typedef struct pdflib_global_struct{
int le_pdf_image;
int le_outline;
int le_pdf;
} pdflib_global_struct;
# define PDF_GLOBAL(a) pdflib_globals->a
# define PDF_TLS_VARS pdflib_global_struct *pdflib_globals=TlsGetValue(PDFlibTls)
#else
# define PDF_GLOBAL(a) a
# define PDF_TLS_VARS
static int le_pdf_image;
static int le_outline;
static int le_pdf;
#endif
function_entry pdf_functions[] = {
PHP_FE(pdf_set_info, NULL)
PHP_FE(pdf_set_info_creator, NULL) /* deprecated */
PHP_FE(pdf_set_info_title, NULL) /* deprecated */
PHP_FE(pdf_set_info_subject, NULL) /* deprecated */
PHP_FE(pdf_set_info_author, NULL) /* deprecated */
PHP_FE(pdf_set_info_keywords, NULL) /* deprecated */
PHP_FE(pdf_open, NULL)
PHP_FE(pdf_close, NULL)
PHP_FE(pdf_begin_page, NULL)
PHP_FE(pdf_end_page, NULL)
PHP_FE(pdf_show, NULL)
PHP_FE(pdf_show_xy, NULL)
PHP_FE(pdf_show_boxed, NULL)
PHP_FE(pdf_skew, NULL)
PHP_FE(pdf_set_font, NULL)
PHP_FE(pdf_set_leading, NULL) /* deprecated */
PHP_FE(pdf_set_text_rendering, NULL) /* deprecated */
PHP_FE(pdf_set_horiz_scaling, NULL) /* deprecated */
PHP_FE(pdf_set_text_rise, NULL) /* deprecated */
PHP_FE(pdf_set_text_pos, NULL)
PHP_FE(pdf_set_char_spacing, NULL) /* deprecated */
PHP_FE(pdf_set_word_spacing, NULL) /* deprecated */
PHP_FE(pdf_get_font, NULL)
PHP_FE(pdf_get_fontname, NULL)
PHP_FE(pdf_get_fontsize, NULL)
PHP_FE(pdf_continue_text, NULL)
PHP_FE(pdf_stringwidth, NULL)
PHP_FE(pdf_save, NULL)
PHP_FE(pdf_restore, NULL)
PHP_FE(pdf_translate, NULL)
PHP_FE(pdf_scale, NULL)
PHP_FE(pdf_rotate, NULL)
PHP_FE(pdf_setflat, NULL)
PHP_FE(pdf_setlinejoin, NULL)
PHP_FE(pdf_setlinecap, NULL)
PHP_FE(pdf_setmiterlimit, NULL)
PHP_FE(pdf_setlinewidth, NULL)
PHP_FE(pdf_setdash, NULL)
PHP_FE(pdf_moveto, NULL)
PHP_FE(pdf_lineto, NULL)
PHP_FE(pdf_curveto, NULL)
PHP_FE(pdf_circle, NULL)
PHP_FE(pdf_arc, NULL)
PHP_FE(pdf_rect, NULL)
PHP_FE(pdf_closepath, NULL)
PHP_FE(pdf_stroke, NULL)
PHP_FE(pdf_closepath_stroke, NULL)
PHP_FE(pdf_fill, NULL)
PHP_FE(pdf_fill_stroke, NULL)
PHP_FE(pdf_closepath_fill_stroke, NULL)
PHP_FE(pdf_endpath, NULL)
PHP_FE(pdf_clip, NULL)
PHP_FE(pdf_set_parameter, NULL)
PHP_FE(pdf_get_parameter, NULL)
PHP_FE(pdf_set_value, NULL)
PHP_FE(pdf_get_value, NULL)
PHP_FE(pdf_setgray_fill, NULL)
PHP_FE(pdf_setgray_stroke, NULL)
PHP_FE(pdf_setgray, NULL)
PHP_FE(pdf_setrgbcolor_fill, NULL)
PHP_FE(pdf_setrgbcolor_stroke, NULL)
PHP_FE(pdf_setrgbcolor, NULL)
PHP_FE(pdf_add_outline, NULL)
PHP_FALIAS(pdf_add_bookmark, pdf_add_outline, NULL)
PHP_FE(pdf_set_transition, NULL) /* deprecated */
PHP_FE(pdf_set_duration, NULL) /* deprecated */
PHP_FE(pdf_open_jpeg, NULL) /* deprecated */
PHP_FE(pdf_open_tiff, NULL) /* deprecated */
PHP_FE(pdf_open_png, NULL) /* deprecated */
#if HAVE_LIBGD13
PHP_FE(pdf_open_memory_image, NULL)
#endif
PHP_FE(pdf_open_gif, NULL) /* deprecated */
PHP_FE(pdf_open_image_file, NULL)
PHP_FE(pdf_close_image, NULL)
PHP_FE(pdf_place_image, NULL)
PHP_FE(pdf_add_weblink, NULL)
PHP_FE(pdf_add_pdflink, NULL)
PHP_FE(pdf_add_annotation, NULL)
PHP_FE(pdf_set_border_style, NULL)
PHP_FE(pdf_set_border_color, NULL)
PHP_FE(pdf_set_border_dash, NULL)
PHP_FE(pdf_get_image_height, NULL)
PHP_FE(pdf_get_image_width, NULL)
{NULL, NULL, NULL}
};
zend_module_entry pdf_module_entry = {
"pdf", pdf_functions, PHP_MINIT(pdf), PHP_MSHUTDOWN(pdf), NULL, NULL, PHP_MINFO(pdf), STANDARD_MODULE_PROPERTIES
};
#ifdef COMPILE_DL_PDF
ZEND_GET_MODULE(pdf)
#endif
static void _free_pdf_image(zend_rsrc_list_entry *rsrc)
{
}
static void _free_pdf_doc(zend_rsrc_list_entry *rsrc)
{
PDF *pdf = (PDF *)rsrc->ptr;
PDF_close(pdf);
PDF_delete(pdf);
}
static void _free_outline(zend_rsrc_list_entry *rsrc)
{
int *outline = (int *)rsrc->ptr;
if(outline) efree(outline);
}
static void custom_errorhandler(PDF *p, int type, const char*shortmsg)
{
switch (type){
case PDF_NonfatalError:
return;
case PDF_MemoryError:/*give up in all other cases */
case PDF_IOError:
case PDF_RuntimeError:
case PDF_IndexError:
case PDF_TypeError:
case PDF_DivisionByZero:
case PDF_OverflowError:
case PDF_SyntaxError:
case PDF_ValueError:
case PDF_SystemError:
case PDF_UnknownError:
default:
if (p !=NULL)
PDF_delete(p);/*clean up PDFlib */
php3_error(E_ERROR,"Internal pdflib error: %s", shortmsg);
}
}
static void *pdf_emalloc(PDF *p, size_t size, const char *caller)
{
return(emalloc(size));
}
static void *pdf_realloc(PDF *p, void *mem, size_t size, const char *caller)
{
return(erealloc(mem, size));
}
static void pdf_efree(PDF *p, void *mem)
{
efree(mem);
}
static size_t pdf_flushwrite(PDF *p, void *data, size_t size)
{
if(php_header())
return(php_write(data, size));
return 0;
}
PHP_MINIT_FUNCTION(pdf)
{
PDF_GLOBAL(le_pdf_image) = zend_register_list_destructors_ex(_free_pdf_image, NULL, "pdf image", module_number);
PDF_GLOBAL(le_outline) = zend_register_list_destructors_ex(_free_outline, NULL, "pdf outline", module_number);
PDF_GLOBAL(le_pdf) = zend_register_list_destructors_ex(_free_pdf_doc, NULL, "pdf document", module_number);
return SUCCESS;
}
PHP_MINFO_FUNCTION(pdf)
{
char tmp[32];
snprintf(tmp, 31, "%d.%02d", PDF_get_majorversion(), PDF_get_minorversion() );
tmp[31]=0;
php_info_print_table_start();
php_info_print_table_row(2, "PDF Support", "enabled" );
php_info_print_table_row(2, "PDFLib Version", tmp );
php_info_print_table_row(2, "CJK Font Support", "yes" );
#ifdef PDF_OPEN_MEM_SUPPORTED
php_info_print_table_row(2, "In-memory PDF Creation Support", "yes" );
#else
php_info_print_table_row(2, "In-memory PDF Creation Support", "no" );
#endif
php_info_print_table_end();
}
PHP_MSHUTDOWN_FUNCTION(pdf){
return SUCCESS;
}
/* {{{ proto bool pdf_set_info(int pdfdoc, string fieldname, string value)
Fills an info field of the document */
PHP_FUNCTION(pdf_set_info) {
pval **arg1, **arg2, **arg3;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
convert_to_string_ex(arg3);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if (!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d (type=%d)",id, type);
RETURN_FALSE;
}
PDF_set_info(pdf, (*arg2)->value.str.val, (*arg3)->value.str.val);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto bool pdf_set_info_creator(int pdfdoc, string creator)
Fills the creator field of the document */
PHP_FUNCTION(pdf_set_info_creator) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if (!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d (type=%d)",id, type);
RETURN_FALSE;
}
PDF_set_info(pdf, "Creator", (*arg2)->value.str.val);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto bool pdf_set_info_title(int pdfdoc, string title)
Fills the title field of the document */
PHP_FUNCTION(pdf_set_info_title) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if (!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d (type=%d)",id, type);
RETURN_FALSE;
}
PDF_set_info(pdf, "Title", (*arg2)->value.str.val);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto bool pdf_set_info_subject(int pdfdoc, string subject)
Fills the subject field of the document */
PHP_FUNCTION(pdf_set_info_subject) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if (!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d (type=%d)",id, type);
RETURN_FALSE;
}
PDF_set_info(pdf, "Subject", (*arg2)->value.str.val);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto bool pdf_set_info_author(int pdfdoc, string author)
Fills the author field of the document */
PHP_FUNCTION(pdf_set_info_author) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if (!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d (type=%d)",id, type);
RETURN_FALSE;
}
PDF_set_info(pdf, "Author", (*arg2)->value.str.val);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto bool pdf_set_info_keywords(int pdfdoc, string keywords)
Fills the keywords field of the document */
PHP_FUNCTION(pdf_set_info_keywords) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if (!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d (type=%d)",id, type);
RETURN_FALSE;
}
PDF_set_info(pdf, "Keywords", (*arg2)->value.str.val);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto int pdf_open([int filedesc])
Opens a new pdf document. If filedesc is NULL, document is created in memory. This is not yet fully supported.*/
PHP_FUNCTION(pdf_open) {
pval **file;
int id;
FILE *fp;
PDF *pdf;
int argc;
PDF_TLS_VARS;
argc = ZEND_NUM_ARGS();
if(argc > 1)
WRONG_PARAM_COUNT;
if (argc != 1 || zend_get_parameters_ex(1, &file) == FAILURE) {
#if defined PDF_OPEN_MEM_SUPPORTED
fp = NULL;
#else
php_error(E_WARNING, "Your version of pdflib does not support in memory creation of PDF documents. You have to pass a file handle to pdf_open()");
WRONG_PARAM_COUNT;
#endif
} else {
ZEND_FETCH_RESOURCE(fp, FILE *, file, -1, "File-Handle", php_file_le_fopen());
/* XXX should do anzend_list_addref for <fp> here! */
}
pdf = PDF_new2(custom_errorhandler, pdf_emalloc, pdf_realloc, pdf_efree, NULL);
if(fp) {
if (0 > PDF_open_fp(pdf, fp))
RETURN_FALSE;
} else {
PDF_open_mem(pdf, pdf_flushwrite);
}
id = zend_list_insert(pdf,PDF_GLOBAL(le_pdf));
RETURN_LONG(id);
}
/* }}} */
/* {{{ proto void pdf_close(int pdfdoc)
Closes the pdf document */
PHP_FUNCTION(pdf_close) {
pval **arg1;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg1) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
zend_list_delete(id);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_begin_page(int pdfdoc, double width, double height)
Starts page */
PHP_FUNCTION(pdf_begin_page) {
pval **arg1, **arg2, **arg3;
int id, type;
double height, width;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
id=(*arg1)->value.lval;
width = (*arg2)->value.dval;
height = (*arg3)->value.dval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_begin_page(pdf, (float) width, (float) height);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_end_page(int pdfdoc)
Ends page */
PHP_FUNCTION(pdf_end_page) {
pval **arg1;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg1) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_end_page(pdf);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_show(int pdfdoc, string text)
Output text at current position */
PHP_FUNCTION(pdf_show) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_show(pdf, (*arg2)->value.str.val);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_show_xy(int pdfdoc, string text, double x-koor, double y-koor)
Output text at position */
PHP_FUNCTION(pdf_show_xy) {
pval **arg1, **arg2, **arg3, **arg4;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 4 || zend_get_parameters_ex(4, &arg1, &arg2, &arg3, &arg4) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
convert_to_double_ex(arg3);
convert_to_double_ex(arg4);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_show_xy(pdf, (*arg2)->value.str.val, (float) (*arg3)->value.dval, (float) (*arg4)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto int pdf_show_boxed(int pdfdoc, string text, double x-koor, double y-koor, double width, double height, string mode, [string feature])
Output text formated in a boxed */
PHP_FUNCTION(pdf_show_boxed) {
pval **argv[8];
int id, type, argc;
int nr;
char *feature;
PDF *pdf;
PDF_TLS_VARS;
argc = ZEND_NUM_ARGS();
if((argc < 7) || (argc > 8))
WRONG_PARAM_COUNT;
if (zend_get_parameters_array_ex(argc, argv) == FAILURE)
WRONG_PARAM_COUNT;
convert_to_long_ex(argv[0]);
convert_to_string_ex(argv[1]);
convert_to_double_ex(argv[2]);
convert_to_double_ex(argv[3]);
convert_to_double_ex(argv[4]);
convert_to_double_ex(argv[5]);
convert_to_string_ex(argv[6]);
if(argc == 8) {
convert_to_string_ex(argv[7]);
feature = (*argv[7])->value.str.val;
} else {
feature = NULL;
}
id=(*argv[0])->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
nr = PDF_show_boxed(pdf, (*argv[1])->value.str.val,
(float) (*argv[2])->value.dval,
(float) (*argv[3])->value.dval,
(float) (*argv[4])->value.dval,
(float) (*argv[5])->value.dval,
(*argv[6])->value.str.val,
feature);
RETURN_LONG(nr);
}
/* }}} */
/* {{{ proto void pdf_set_font(int pdfdoc, string font, double size, string encoding [, int embed])
Select the current font face, size and encoding */
PHP_FUNCTION(pdf_set_font) {
pval **arg1, **arg2, **arg3, **arg4, **arg5;
int id, type, font, embed;
PDF *pdf;
PDF_TLS_VARS;
switch (ZEND_NUM_ARGS()) {
case 4:
if (zend_get_parameters_ex(4, &arg1, &arg2, &arg3, &arg4) == FAILURE) {
WRONG_PARAM_COUNT;
}
embed = 0;
break;
case 5:
if (zend_get_parameters_ex(5, &arg1, &arg2, &arg3, &arg4, &arg5) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg5);
embed = (*arg5)->value.lval;
break;
default:
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
convert_to_double_ex(arg3);
convert_to_string_ex(arg4);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
font = PDF_findfont(pdf, (*arg2)->value.str.val, (*arg4)->value.str.val, embed);
if (font < 0) {
php_error(E_WARNING,"Font %s not found", (*arg2)->value.str.val);
RETURN_FALSE;
}
PDF_setfont(pdf, font, (float) (*arg3)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto int pdf_get_font(int pdfdoc)
Gets the current font */
PHP_FUNCTION(pdf_get_font) {
pval **arg1;
int id, type, font;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg1) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
font = (int) PDF_get_value(pdf, "font", 0);
RETURN_LONG(font);
}
/* }}} */
/* {{{ proto string pdf_get_fontname(int pdfdoc)
Gets the current font name */
PHP_FUNCTION(pdf_get_fontname) {
pval **arg1;
int id, type;
char *fontname;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg1) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
fontname = (char *) PDF_get_parameter(pdf, "fontname", 0);
RETURN_STRING(fontname, 1);
}
/* }}} */
/* {{{ proto double pdf_get_fontsize(int pdfdoc)
Gets the current font size */
PHP_FUNCTION(pdf_get_fontsize) {
pval **arg1;
int id, type;
float fontsize;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg1) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
fontsize = PDF_get_value(pdf, "fontsize", 0);
RETURN_DOUBLE(fontsize);
}
/* }}} */
/* {{{ proto void pdf_set_leading(int pdfdoc, double distance)
Sets distance between text lines */
PHP_FUNCTION(pdf_set_leading) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_set_value(pdf, "leading", (float) (*arg2)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_set_text_rendering(int pdfdoc, int mode)
Determines how text is rendered */
PHP_FUNCTION(pdf_set_text_rendering) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_long_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_set_value(pdf, "textrendering", (float) (*arg2)->value.lval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_set_horiz_scaling(int pdfdoc, double scale)
Sets horizontal scaling of text */
PHP_FUNCTION(pdf_set_horiz_scaling) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_set_value(pdf, "horizscaling", (float) (*arg2)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_set_text_rise(int pdfdoc, double value)
Sets the text rise */
PHP_FUNCTION(pdf_set_text_rise) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_set_value(pdf, "textrise", (float) (*arg2)->value.dval);
RETURN_TRUE;
}
/* }}} */
#if 0
/* {{{ proto void pdf_set_text_matrix(int pdfdoc, arry matrix)
Sets the text matrix */
PHP_FUNCTION(pdf_set_text_matrix) {
pval **arg1, **arg2, *data;
int id, type, i;
HashTable *matrix;
PDF *pdf;
float pdfmatrix[6];
float *pdfmatrixptr;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_array_ex(arg2);
id=(*arg1)->value.lval;
matrix=(*arg2)->value.ht;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
if(zend_hash_num_elements(matrix) != 6) {
php_error(E_WARNING,"Text matrix must have 6 elements");
RETURN_FALSE;
}
pdfmatrixptr = (float *) &pdfmatrix;
zend_hash_internal_pointer_reset(matrix);
for(i=0; i<zend_hash_num_elements(matrix); i++) {
zend_hash_get_current_data(matrix, (void *) &data);
switch(data->type) {
case IS_DOUBLE:
*pdfmatrixptr++ = (float) data->value.dval;
break;
default:
*pdfmatrixptr++ = 0.0;
break;
}
zend_hash_move_forward(matrix);
}
PDF_set_text_matrix(pdf, pdfmatrix[0], pdfmatrix[1], pdfmatrix[2],
pdfmatrix[3], pdfmatrix[4], pdfmatrix[5]);
RETURN_TRUE;
}
/* }}} */
#endif
/* {{{ proto void pdf_set_text_pos(int pdfdoc, double x, double y)
Set the position of text for the next pdf_show call */
PHP_FUNCTION(pdf_set_text_pos) {
pval **arg1, **arg2, **arg3;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_set_text_pos(pdf, (float) (*arg2)->value.dval, (float) (*arg3)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_set_char_spacing(int pdfdoc, double space)
Sets character spacing */
PHP_FUNCTION(pdf_set_char_spacing) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_set_value(pdf, "charspacing", (float) (*arg2)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_set_word_spacing(int pdfdoc, double space)
Sets spacing between words */
PHP_FUNCTION(pdf_set_word_spacing) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_set_value(pdf, "wordspacing", (float) (*arg2)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_continue_text(int pdfdoc, string text)
Output text in next line */
PHP_FUNCTION(pdf_continue_text) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_continue_text(pdf, (*arg2)->value.str.val);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto double pdf_stringwidth(int pdfdoc, string text)
Returns width of text in current font*/
PHP_FUNCTION(pdf_stringwidth) {
pval **arg1, **arg2;
int id, type;
double width;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
width = (double) PDF_stringwidth(pdf, (*arg2)->value.str.val, PDF_get_value(pdf, "font", 0), PDF_get_value(pdf, "fontsize", 0));
RETURN_DOUBLE((double)width);
}
/* }}} */
/* {{{ proto void pdf_save(int pdfdoc)
Saves current enviroment */
PHP_FUNCTION(pdf_save) {
pval **arg1;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg1) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_save(pdf);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_restore(int pdfdoc)
Restores formerly saved enviroment */
PHP_FUNCTION(pdf_restore) {
pval **arg1;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg1) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_restore(pdf);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_translate(int pdfdoc, double x, double y)
Sets origin of coordinate system */
PHP_FUNCTION(pdf_translate) {
pval **arg1, **arg2, **arg3;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_translate(pdf, (float) (*arg2)->value.dval, (float) (*arg3)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_scale(int pdfdoc, double x-scale, double y-scale)
Sets scaling */
PHP_FUNCTION(pdf_scale) {
pval **arg1, **arg2, **arg3;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_scale(pdf, (float) (*arg2)->value.dval, (float) (*arg3)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_rotate(int pdfdoc, double angle)
Sets rotation */
PHP_FUNCTION(pdf_rotate) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_rotate(pdf, (float) (*arg2)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_skew(int pdfdoc, double xangle, double yangle)
Skew the coordinate system */
PHP_FUNCTION(pdf_skew) {
pval **arg1, **arg2, **arg3;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_skew(pdf, (float) (*arg2)->value.dval, (float) (*arg3)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_setflat(int pdfdoc, double value)
Sets flatness */
PHP_FUNCTION(pdf_setflat) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
if(((*arg2)->value.lval > 100) && ((*arg2)->value.lval < 0)) {
php_error(E_WARNING,"Parameter of pdf_setflat() has to between 0 and 100");
RETURN_FALSE;
}
PDF_setflat(pdf, (float) (*arg2)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_setlinejoin(int pdfdoc, int value)
Sets linejoin parameter */
PHP_FUNCTION(pdf_setlinejoin) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_long_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
if(((*arg2)->value.lval > 2) && ((*arg2)->value.lval < 0)) {
php_error(E_WARNING,"Parameter of pdf_setlinejoin() has to between 0 and 2");
RETURN_FALSE;
}
PDF_setlinejoin(pdf, (*arg2)->value.lval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_setlinecap(int pdfdoc, int value)
Sets linecap parameter */
PHP_FUNCTION(pdf_setlinecap) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_long_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
if(((*arg2)->value.lval > 2) && ((*arg2)->value.lval < 0)) {
php_error(E_WARNING,"Parameter of pdf_setlinecap() has to be > 0 and =< 2");
RETURN_FALSE;
}
PDF_setlinecap(pdf, (*arg2)->value.lval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_setmiterlimit(int pdfdoc, double value)
Sets miter limit */
PHP_FUNCTION(pdf_setmiterlimit) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
if((*arg2)->value.dval < 1) {
php_error(E_WARNING,"Parameter of pdf_setmiterlimit() has to be >= 1");
RETURN_FALSE;
}
PDF_setmiterlimit(pdf, (float) (*arg2)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_setlinewidth(int pdfdoc, double width)
Sets line width */
PHP_FUNCTION(pdf_setlinewidth) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_setlinewidth(pdf, (float) (*arg2)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_setdash(int pdfdoc, double white, double black)
Sets dash pattern */
PHP_FUNCTION(pdf_setdash) {
pval **arg1, **arg2, **arg3;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_setdash(pdf, (float) (*arg2)->value.dval, (float) (*arg3)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_moveto(int pdfdoc, double x, double y)
Sets current point */
PHP_FUNCTION(pdf_moveto) {
pval **arg1, **arg2, **arg3;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_moveto(pdf, (float) (*arg2)->value.dval, (float) (*arg3)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_curveto(int pdfdoc, double x1, double y1, double x2, double y2, double x3, double y3)
Draws a curve */
PHP_FUNCTION(pdf_curveto) {
pval **arg1, **arg2, **arg3, **arg4, **arg5, **arg6, **arg7;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 7 || zend_get_parameters_ex(7, &arg1, &arg2, &arg3, &arg4, &arg5, &arg6, &arg7) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
convert_to_double_ex(arg4);
convert_to_double_ex(arg5);
convert_to_double_ex(arg6);
convert_to_double_ex(arg7);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_curveto(pdf, (float) (*arg2)->value.dval,
(float) (*arg3)->value.dval,
(float) (*arg4)->value.dval,
(float) (*arg5)->value.dval,
(float) (*arg6)->value.dval,
(float) (*arg7)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_lineto(int pdfdoc, double x, double y)
Draws a line */
PHP_FUNCTION(pdf_lineto) {
pval **arg1, **arg2, **arg3;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_lineto(pdf, (float) (*arg2)->value.dval, (float) (*arg3)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_circle(int pdfdoc, double x, double y, double radius)
Draws a circle */
PHP_FUNCTION(pdf_circle) {
pval **arg1, **arg2, **arg3, **arg4;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 4 || zend_get_parameters_ex(4, &arg1, &arg2, &arg3, &arg4) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
convert_to_double_ex(arg4);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_circle(pdf, (float) (*arg2)->value.dval, (float) (*arg3)->value.dval, (float) (*arg4)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_arc(int pdfdoc, double x, double y, double radius, double start, double end)
Draws an arc */
PHP_FUNCTION(pdf_arc) {
pval **arg1, **arg2, **arg3, **arg4, **arg5, **arg6;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 6 || zend_get_parameters_ex(6, &arg1, &arg2, &arg3, &arg4, &arg5, &arg6) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
convert_to_double_ex(arg4);
convert_to_double_ex(arg5);
convert_to_double_ex(arg6);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_arc(pdf, (float) (*arg2)->value.dval, (float) (*arg3)->value.dval, (float) (*arg4)->value.dval, (float) (*arg5)->value.dval, (float) (*arg6)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_rect(int pdfdoc, double x, double y, double width, double height)
Draws a rectangle */
PHP_FUNCTION(pdf_rect) {
pval **arg1, **arg2, **arg3, **arg4, **arg5;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 5 || zend_get_parameters_ex(5, &arg1, &arg2, &arg3, &arg4, &arg5) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
convert_to_double_ex(arg4);
convert_to_double_ex(arg5);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_rect(pdf, (float) (*arg2)->value.dval,
(float) (*arg3)->value.dval,
(float) (*arg4)->value.dval,
(float) (*arg5)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_closepath(int pdfdoc)
Close path */
PHP_FUNCTION(pdf_closepath) {
pval **arg1;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg1) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_closepath(pdf);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_closepath_stroke(int pdfdoc)
Close path and draw line along path */
PHP_FUNCTION(pdf_closepath_stroke) {
pval **arg1;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg1) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_closepath_stroke(pdf);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_stroke(int pdfdoc)
Draw line along path path */
PHP_FUNCTION(pdf_stroke) {
pval **arg1;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg1) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_stroke(pdf);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_fill(int pdfdoc)
Fill current path */
PHP_FUNCTION(pdf_fill) {
pval **arg1;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg1) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_fill(pdf);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_fill_stroke(int pdfdoc)
Fill and stroke current path */
PHP_FUNCTION(pdf_fill_stroke) {
pval **arg1;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg1) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_fill_stroke(pdf);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_closepath_fill_stroke(int pdfdoc)
Close, fill and stroke current path */
PHP_FUNCTION(pdf_closepath_fill_stroke) {
pval **arg1;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg1) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_closepath_fill_stroke(pdf);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_endpath(int pdfdoc)
Ends current path */
PHP_FUNCTION(pdf_endpath) {
pval **arg1;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg1) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_endpath(pdf);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_clip(int pdfdoc)
Clips to current path */
PHP_FUNCTION(pdf_clip) {
pval **arg1;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &arg1) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_clip(pdf);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_set_parameter(int pdfdoc, string key, string value)
Sets arbitrary parameters */
PHP_FUNCTION(pdf_set_parameter) {
pval **arg1, **arg2, **arg3;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
convert_to_string_ex(arg3);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
if ((*arg2)->value.str.val == "compatibility") {
php_error(E_ERROR,"Compatibility modes not supported at this time");
RETURN_FALSE;
}
PDF_set_parameter(pdf, (*arg2)->value.str.val, (*arg3)->value.str.val);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto string pdf_get_parameter(int pdfdoc, string key, mixed modifier)
Gets arbitrary parameters */
PHP_FUNCTION(pdf_get_parameter) {
pval **argv[3];
int argc;
int id, type;
PDF *pdf;
char *value;
PDF_TLS_VARS;
argc = ZEND_NUM_ARGS();
if((argc < 2) || (argc > 3))
WRONG_PARAM_COUNT;
if (zend_get_parameters_array_ex(argc, argv) == FAILURE)
WRONG_PARAM_COUNT;
convert_to_long_ex(argv[0]);
convert_to_string_ex(argv[1]);
id=(*argv[0])->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
if(argc == 3) {
convert_to_double_ex(argv[2]);
value = (char *) PDF_get_parameter(pdf, (*argv[1])->value.str.val, (float) ((*argv[2])->value.dval));
} else {
value = (char *) PDF_get_parameter(pdf, (*argv[1])->value.str.val, 0.0);
}
RETURN_STRING(value, 1);
}
/* }}} */
/* {{{ proto void pdf_set_value(int pdfdoc, string key, double value)
Sets arbitrary value */
PHP_FUNCTION(pdf_set_value) {
pval **arg1, **arg2, **arg3;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
convert_to_double_ex(arg3);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_set_value(pdf, (*arg2)->value.str.val, (*arg3)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto double pdf_get_value(int pdfdoc, string key, double modifier)
Gets arbitrary value */
PHP_FUNCTION(pdf_get_value) {
pval **argv[3];
int argc;
int id, type;
PDF *pdf;
double value;
PDF_TLS_VARS;
argc = ZEND_NUM_ARGS();
if((argc < 2) || (argc > 3))
WRONG_PARAM_COUNT;
if (zend_get_parameters_array_ex(argc, argv) == FAILURE)
WRONG_PARAM_COUNT;
convert_to_long_ex(argv[0]);
convert_to_string_ex(argv[1]);
id=(*argv[0])->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
if(0 == (strncmp((*argv[1])->value.str.val, "image", 5))) {
int pdf_image;
if(argc < 3)
WRONG_PARAM_COUNT;
convert_to_long_ex(argv[2]);
id=(*argv[2])->value.lval;
pdf_image = (int) zend_list_find(id,&type);
if(pdf_image < 0 || type!=PDF_GLOBAL(le_pdf_image)) {
php_error(E_WARNING,"Unable to find image identifier %d",id);
RETURN_FALSE;
}
value = PDF_get_value(pdf, (*argv[1])->value.str.val, pdf_image);
} else {
if(argc < 3) {
value = PDF_get_value(pdf, (*argv[1])->value.str.val, 0.0);
} else {
convert_to_double_ex(argv[2]);
value = PDF_get_value(pdf, (*argv[1])->value.str.val, (*argv[2])->value.dval);
}
}
RETURN_DOUBLE(value);
}
/* }}} */
/* {{{ proto void pdf_setgray_fill(int pdfdoc, double value)
Sets filling color to gray value */
PHP_FUNCTION(pdf_setgray_fill) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_setgray_fill(pdf, (float) (*arg2)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_setgray_stroke(int pdfdoc, double value)
Sets drawing color to gray value */
PHP_FUNCTION(pdf_setgray_stroke) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_setgray_stroke(pdf, (float) (*arg2)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_setgray(int pdfdoc, double value)
Sets drawing and filling color to gray value */
PHP_FUNCTION(pdf_setgray) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_setgray(pdf, (float) (*arg2)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_setrgbcolor_fill(int pdfdoc, double red, double green, double blue)
Sets filling color to rgb color value */
PHP_FUNCTION(pdf_setrgbcolor_fill) {
pval **arg1, **arg2, **arg3, **arg4;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 4 || zend_get_parameters_ex(4, &arg1, &arg2, &arg3, &arg4) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
convert_to_double_ex(arg4);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_setrgbcolor_fill(pdf, (float) (*arg2)->value.dval, (float) (*arg3)->value.dval, (float) (*arg4)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_setrgbcolor_stroke(int pdfdoc, double red, double green, double blue)
Sets drawing color to rgb color value */
PHP_FUNCTION(pdf_setrgbcolor_stroke) {
pval **arg1, **arg2, **arg3, **arg4;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 4 || zend_get_parameters_ex(4, &arg1, &arg2, &arg3, &arg4) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
convert_to_double_ex(arg4);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_setrgbcolor_stroke(pdf, (float) (*arg2)->value.dval, (float) (*arg3)->value.dval, (float) (*arg4)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_setrgbcolor(int pdfdoc, double red, double green, double blue)
Sets drawing and filling color to rgb color value */
PHP_FUNCTION(pdf_setrgbcolor) {
pval **arg1, **arg2, **arg3, **arg4;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 4 || zend_get_parameters_ex(4, &arg1, &arg2, &arg3, &arg4) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
convert_to_double_ex(arg4);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_setrgbcolor(pdf, (float) (*arg2)->value.dval, (float) (*arg3)->value.dval, (float) (*arg4)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto int pdf_add_outline(int pdfdoc, string text [, int parent, int open]);
Add bookmark for current page */
PHP_FUNCTION(pdf_add_outline) {
pval **arg1, **arg2, **arg3, **arg4;
int id, type;
int *outline, *parent, parentid, open;
PDF *pdf;
PDF_TLS_VARS;
switch (ZEND_NUM_ARGS()) {
case 2:
if (zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
break;
case 3:
if (zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
WRONG_PARAM_COUNT;
}
break;
case 4:
if (zend_get_parameters_ex(4, &arg1, &arg2, &arg3, &arg4) == FAILURE) {
WRONG_PARAM_COUNT;
}
break;
default:
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find document identifier %d",id);
RETURN_FALSE;
}
if (ZEND_NUM_ARGS() > 2) {
convert_to_long_ex(arg3);
id = (*arg3)->value.lval;
if (id > 0) {
parent = zend_list_find(id, &type);
if (!parent || (type != PDF_GLOBAL(le_outline))) {
php_error(E_WARNING,"Unable to find identifier %d",id);
RETURN_FALSE;
} else {
parentid = *parent;
}
} else {
parentid = 0;
}
if (ZEND_NUM_ARGS() > 3) {
convert_to_long_ex(arg4);
open = (*arg4)->value.lval;
} else {
open = 0;
}
} else {
parentid = 0;
open = 0;
}
outline=emalloc(sizeof(int));
*outline = PDF_add_bookmark(pdf, (*arg2)->value.str.val, parentid, open);
id = zend_list_insert(outline,PDF_GLOBAL(le_outline));
RETURN_LONG(id);
}
/* }}} */
/* {{{ proto void pdf_set_transition(int pdfdoc, int transition)
Sets transition between pages */
PHP_FUNCTION(pdf_set_transition) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_long_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
switch((*arg2)->value.lval) {
case 0:
PDF_set_parameter(pdf, "transition", "none");
break;
case 1:
PDF_set_parameter(pdf, "transition", "split");
break;
case 2:
PDF_set_parameter(pdf, "transition", "blinds");
break;
case 3:
PDF_set_parameter(pdf, "transition", "box");
break;
case 4:
PDF_set_parameter(pdf, "transition", "wipe");
break;
case 5:
PDF_set_parameter(pdf, "transition", "dissolve");
break;
case 6:
PDF_set_parameter(pdf, "transition", "glitter");
break;
case 7:
PDF_set_parameter(pdf, "transition", "replace");
break;
default:
PDF_set_parameter(pdf, "transition", "none");
}
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_set_duration(int pdfdoc, double duration)
Sets duration between pages */
PHP_FUNCTION(pdf_set_duration) {
pval **arg1, **arg2;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_set_value(pdf, "duration", (float) (*arg2)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto int pdf_open_gif(int pdf, string giffile)
Opens a gif file and returns an image for placement in a pdf document */
PHP_FUNCTION(pdf_open_gif) {
pval **arg1, **arg2;
int id, type;
int pdf_image;
PDF *pdf;
char *image;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
#ifdef VIRTUAL_DIR
virtual_filepath((*arg2)->value.str.val, &image);
#endif
pdf_image = PDF_open_image_file(pdf, "gif", image, "", 0);
if(pdf_image < 0) {
php_error(E_WARNING, "Could not open image");
RETURN_FALSE;
}
id = zend_list_insert((void *) pdf_image,PDF_GLOBAL(le_pdf_image));
RETURN_LONG(id);
}
/* }}} */
/* {{{ proto int pdf_open_jpeg(int pdf, string jpegfile)
Opens a jpeg file and returns an image for placement in a pdf document */
PHP_FUNCTION(pdf_open_jpeg) {
pval **arg1, **arg2;
int id, type;
int pdf_image;
PDF *pdf;
char *image;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
#ifdef VIRTUAL_DIR
virtual_filepath((*arg2)->value.str.val, &image);
#endif
pdf_image = PDF_open_image_file(pdf, "jpeg", image, "", 0);
if(pdf_image < 0) {
php_error(E_WARNING, "Could not open image");
RETURN_FALSE;
}
id = zend_list_insert((void *) pdf_image,PDF_GLOBAL(le_pdf_image));
RETURN_LONG(id);
}
/* }}} */
/* {{{ proto int pdf_open_png(int pdf, string pngfile)
Opens a png file and returns an image for placement in a pdf document */
PHP_FUNCTION(pdf_open_png) {
pval **arg1, **arg2;
int id, type;
int pdf_image;
PDF *pdf;
char *image;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
#ifdef VIRTUAL_DIR
virtual_filepath((*arg2)->value.str.val, &image);
#endif
pdf_image = PDF_open_image_file(pdf, "png", image, "", 0);
if(pdf_image < 0) {
php_error(E_WARNING, "Could not open image");
RETURN_FALSE;
}
id = zend_list_insert((void *) pdf_image,PDF_GLOBAL(le_pdf_image));
RETURN_LONG(id);
}
/* }}} */
/* {{{ proto int pdf_open_tiff(int pdf, string tifffile)
Opens a tiff file and returns an image for placement in a pdf document */
PHP_FUNCTION(pdf_open_tiff) {
pval **arg1, **arg2;
int id, type;
int pdf_image;
PDF *pdf;
char *image;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
#ifdef VIRTUAL_DIR
virtual_filepath((*arg2)->value.str.val, &image);
#endif
pdf_image = PDF_open_image_file(pdf, "tiff", image, "", 0);
if(pdf_image < 0) {
php_error(E_WARNING, "Could not open image");
RETURN_FALSE;
}
id = zend_list_insert((void *) pdf_image,PDF_GLOBAL(le_pdf_image));
RETURN_LONG(id);
}
/* }}} */
/* {{{ proto int pdf_open_image_file(int pdf, string type, string file)
Opens an image file of the given type and returns an image for placement in a pdf document */
PHP_FUNCTION(pdf_open_image_file) {
pval **arg1, **arg2, **arg3;
int id, type;
int pdf_image;
PDF *pdf;
char *image;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
convert_to_string_ex(arg3);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
#ifdef VIRTUAL_DIR
virtual_filepath((*arg3)->value.str.val, &image);
#endif
pdf_image = PDF_open_image_file(pdf, (*arg2)->value.str.val, image, "", 0);
if(pdf_image < 0) {
php_error(E_WARNING, "Could not open image");
RETURN_FALSE;
}
id = zend_list_insert((void *) pdf_image,PDF_GLOBAL(le_pdf_image));
RETURN_LONG(id);
}
/* }}} */
#if HAVE_LIBGD13
/* {{{ proto int pdf_open_memory_image(int pdf, int image)
Takes an gd image and returns an image for placement in a pdf document */
PHP_FUNCTION(pdf_open_memory_image) {
pval **argv[2];
int argc;
int i, j, id, gid, type, color, count;
int pdf_image;
gdImagePtr im;
unsigned char *buffer, *ptr;
PDF *pdf;
PDF_TLS_VARS;
argc = ZEND_NUM_ARGS();
if (zend_get_parameters_array_ex(argc, argv) == FAILURE)
WRONG_PARAM_COUNT;
convert_to_long_ex(argv[0]);
id=(*argv[0])->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
convert_to_long_ex(argv[1]);
gid=(*argv[1])->value.lval;
im = zend_list_find(gid, &type);
if (!im || type != phpi_get_le_gd()) {
php_error(E_WARNING, "pdf: Unable to find image pointer");
RETURN_FALSE;
}
count = 3 * im->sx * im->sy;
if(NULL == (buffer = (unsigned char *) emalloc(count)))
RETURN_FALSE;
ptr = buffer;
for(i=0; i<im->sy; i++) {
for(j=0; j<im->sx; j++) {
color = im->pixels[i][j];
*ptr++ = im->red[color];
*ptr++ = im->green[color];
*ptr++ = im->blue[color];
}
}
pdf_image = PDF_open_image(pdf, "raw", "memory", buffer, im->sx*im->sy*3, im->sx, im->sy, 3, 8, NULL);
efree(buffer);
if(-1 == pdf_image) {
php_error(E_WARNING, "Could not open image");
efree(buffer);
RETURN_FALSE;
}
id = zend_list_insert((void *) pdf_image,PDF_GLOBAL(le_pdf_image));
RETURN_LONG(id);
}
/* }}} */
#endif /* HAVE_LIBGD13 */
/* {{{ proto void pdf_close_image(int pdfimage)
Closes the pdf image */
PHP_FUNCTION(pdf_close_image) {
pval **arg1, **arg2;
int id, type;
int pdf_image;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
convert_to_long_ex(arg2);
id=(*arg2)->value.lval;
pdf_image = (int) zend_list_find(id,&type);
if(pdf_image < 0 || type!=PDF_GLOBAL(le_pdf_image)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_close_image(pdf, pdf_image);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_place_image(int pdf, int pdfimage, double x, double y, double scale)
Places image in the pdf document */
PHP_FUNCTION(pdf_place_image) {
pval **arg1, **arg2, **arg3, **arg4, **arg5;
int id, type;
int pdf_image;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 5 || zend_get_parameters_ex(5, &arg1, &arg2, &arg3, &arg4, &arg5) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
convert_to_long_ex(arg2);
id=(*arg2)->value.lval;
pdf_image = (int) zend_list_find(id,&type);
if(pdf_image < 0 || type!=PDF_GLOBAL(le_pdf_image)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
convert_to_double_ex(arg3);
convert_to_double_ex(arg4);
convert_to_double_ex(arg5);
PDF_place_image(pdf, pdf_image, (float) (*arg3)->value.dval, (float) (*arg4)->value.dval, (*arg5)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_get_image_width(int pdf, int pdfimage)
Returns the width of an image */
PHP_FUNCTION(pdf_get_image_width) {
pval **arg1, **arg2;
int id, type;
int width;
int pdf_image;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find identifier %d",id);
RETURN_FALSE;
}
convert_to_long_ex(arg2);
id=(*arg2)->value.lval;
pdf_image = (int) zend_list_find(id,&type);
if(pdf_image < 0 || type!=PDF_GLOBAL(le_pdf_image)) {
php_error(E_WARNING,"Unable to find identifier %d",id);
RETURN_FALSE;
}
width = PDF_get_value(pdf, "imagewidth", pdf_image);
RETURN_LONG(width);
}
/* }}} */
/* {{{ proto void pdf_get_image_height(int pdf, int pdfimage)
Returns the height of an image */
PHP_FUNCTION(pdf_get_image_height) {
pval **arg1, **arg2;
int id, type;
int height;
int pdf_image;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &arg1, &arg2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find identifier %d",id);
RETURN_FALSE;
}
convert_to_long_ex(arg2);
id=(*arg2)->value.lval;
pdf_image = (int) zend_list_find(id,&type);
if(pdf_image < 0 || type!=PDF_GLOBAL(le_pdf_image)) {
php_error(E_WARNING,"Unable to find identifier %d",id);
RETURN_FALSE;
}
height = PDF_get_value(pdf, "imageheight", pdf_image);
RETURN_LONG(height);
}
/* }}} */
/* {{{ proto void pdf_add_weblink(int pdfdoc, double llx, double lly, double urx, double ury, string url)
Adds link to web resource */
PHP_FUNCTION(pdf_add_weblink) {
pval **arg1, **arg2, **arg3, **arg4, **arg5, **arg6;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 6 || zend_get_parameters_ex(6, &arg1, &arg2, &arg3, &arg4, &arg5, &arg6) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
convert_to_double_ex(arg4);
convert_to_double_ex(arg5);
convert_to_string_ex(arg6);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_add_weblink(pdf, (float) (*arg2)->value.dval, (float) (*arg3)->value.dval, (float) (*arg4)->value.dval, (float) (*arg5)->value.dval, (*arg6)->value.str.val);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_add_pdflink(int pdfdoc, double llx, double lly, double urx, double ury, string filename, int page, string dest)
Adds link to pdf document */
PHP_FUNCTION(pdf_add_pdflink) {
pval **arg1, **arg2, **arg3, **arg4, **arg5, **arg6, **arg7, **arg8;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 8 || zend_get_parameters_ex(8, &arg1, &arg2, &arg3, &arg4, &arg5, &arg6, &arg7, &arg8) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
convert_to_double_ex(arg4);
convert_to_double_ex(arg5);
convert_to_string_ex(arg6);
convert_to_long_ex(arg7);
convert_to_string_ex(arg8);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_add_pdflink(pdf, (float) (*arg2)->value.dval, (float) (*arg3)->value.dval, (float) (*arg4)->value.dval, (float) (*arg5)->value.dval, (*arg6)->value.str.val, (*arg7)->value.lval, (*arg8)->value.str.val);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_set_border_style(int pdfdoc, string style, double width)
Set style of box surounding all kinds of annotations and link */
PHP_FUNCTION(pdf_set_border_style) {
pval **arg1, **arg2, **arg3;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_string_ex(arg2);
convert_to_double_ex(arg3);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_set_border_style(pdf, (*arg2)->value.str.val, (float) (*arg3)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_set_border_color(int pdfdoc, double red, double green, double blue)
Set color of box surounded all kinds of annotations and links */
PHP_FUNCTION(pdf_set_border_color) {
pval **arg1, **arg2, **arg3, **arg4;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 4 || zend_get_parameters_ex(4, &arg1, &arg2, &arg3, &arg4) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
convert_to_double_ex(arg4);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_set_border_color(pdf, (float) (*arg2)->value.dval, (float) (*arg3)->value.dval, (float) (*arg4)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_set_border_dash(int pdfdoc, double black, double white)
Set the border dash style of all kinds of annotations and links */
PHP_FUNCTION(pdf_set_border_dash) {
pval **arg1, **arg2, **arg3;
int id, type;
PDF *pdf;
PDF_TLS_VARS;
if (ZEND_NUM_ARGS() != 3 || zend_get_parameters_ex(3, &arg1, &arg2, &arg3) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long_ex(arg1);
convert_to_double_ex(arg2);
convert_to_double_ex(arg3);
id=(*arg1)->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find file identifier %d",id);
RETURN_FALSE;
}
PDF_set_border_dash(pdf, (float) (*arg2)->value.dval, (float) (*arg3)->value.dval);
RETURN_TRUE;
}
/* }}} */
/* {{{ proto void pdf_add_annotation(int pdfdoc, double xll, double yll, double xur, double xur, string title, string text)
Sets annotation */
PHP_FUNCTION(pdf_add_annotation) {
pval **argv[11];
int id, type, argc;
PDF *pdf;
PDF_TLS_VARS;
argc = ZEND_NUM_ARGS();
if(argc != 7)
WRONG_PARAM_COUNT;
if (zend_get_parameters_array_ex(argc, argv) == FAILURE)
WRONG_PARAM_COUNT;
convert_to_long_ex(argv[0]);
convert_to_double_ex(argv[1]);
convert_to_double_ex(argv[2]);
convert_to_double_ex(argv[3]);
convert_to_double_ex(argv[4]);
convert_to_string_ex(argv[5]);
convert_to_string_ex(argv[6]);
id=(*argv[0])->value.lval;
pdf = zend_list_find(id,&type);
if(!pdf || type!=PDF_GLOBAL(le_pdf)) {
php_error(E_WARNING,"Unable to find identifier %d",id);
RETURN_FALSE;
}
PDF_add_note(pdf,
(float) (*argv[1])->value.dval,
(float) (*argv[2])->value.dval,
(float) (*argv[3])->value.dval,
(float) (*argv[4])->value.dval,
(*argv[6])->value.str.val,
(*argv[5])->value.str.val,
"note", 1);
RETURN_TRUE;
}
/* }}} */
#endif
/*
* Local variables:
* tab-width: 4
* c-basic-offset: 4
* End:
*/
Reference in New Issue View Git Blame Copy Permalink