1999-04-22 00:25:57 +00:00
|
|
|
/*
|
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
| PHP HTML Embedded Scripting Language Version 3.0 |
|
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
| Copyright (c) 1997,1998 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$ */
|
|
|
|
|
|
|
|
/* FdfTk lib 2.0 is a Complete C/C++ FDF Toolkit available from
|
|
|
|
http://beta1.adobe.com/ada/acrosdk/forms.html. */
|
|
|
|
|
|
|
|
/* Note that there is no code from the FdfTk lib in this file */
|
|
|
|
|
|
|
|
#if !PHP_31 && defined(THREAD_SAFE)
|
|
|
|
#undef THREAD_SAFE
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#include "php.h"
|
|
|
|
#include "head.h"
|
|
|
|
#include <math.h>
|
|
|
|
#include "php3_fdf.h"
|
|
|
|
|
|
|
|
#if HAVE_SYS_WAIT_H
|
|
|
|
# include <sys/wait.h>
|
|
|
|
#endif
|
|
|
|
#if HAVE_UNISTD_H
|
|
|
|
# include <unistd.h>
|
|
|
|
#endif
|
|
|
|
#if WIN32|WINNT
|
|
|
|
# include <io.h>
|
|
|
|
# include <fcntl.h>
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#if HAVE_FDFLIB
|
|
|
|
|
|
|
|
#ifdef THREAD_SAFE
|
|
|
|
DWORD FDFlibTls;
|
|
|
|
static int numthreads=0;
|
|
|
|
|
|
|
|
typedef struct fdflib_global_struct{
|
|
|
|
int le_fdf;
|
|
|
|
} fdflib_global_struct;
|
|
|
|
|
|
|
|
# define FDF_GLOBAL(a) fdflib_globals->a
|
|
|
|
# define FDF_TLS_VARS fdflib_global_struct *fdflib_globals=TlsGetValue(FDFlibTls)
|
|
|
|
|
|
|
|
#else
|
|
|
|
# define FDF_GLOBAL(a) a
|
|
|
|
# define FDF_TLS_VARS
|
|
|
|
int le_fdf_info;
|
|
|
|
int le_fdf;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
function_entry fdf_functions[] = {
|
|
|
|
{"fdf_open", php3_fdf_open, NULL},
|
|
|
|
{"fdf_create", php3_fdf_create, NULL},
|
|
|
|
{"fdf_close", php3_fdf_close, NULL},
|
|
|
|
{"fdf_save", php3_fdf_save, NULL},
|
|
|
|
{"fdf_get_value", php3_fdf_get_value, NULL},
|
|
|
|
{"fdf_set_value", php3_fdf_set_value, NULL},
|
|
|
|
{"fdf_next_field_name", php3_fdf_next_field_name, NULL},
|
|
|
|
{"fdf_set_ap", php3_fdf_set_ap, NULL},
|
|
|
|
{"fdf_set_status", php3_fdf_set_status, NULL},
|
|
|
|
{"fdf_get_status", php3_fdf_get_status, NULL},
|
|
|
|
{"fdf_set_file", php3_fdf_set_file, NULL},
|
|
|
|
{"fdf_get_file", php3_fdf_get_file, NULL},
|
|
|
|
{NULL, NULL, NULL}
|
|
|
|
};
|
|
|
|
|
|
|
|
php3_module_entry fdf_module_entry = {
|
|
|
|
"fdf", fdf_functions, php3_minit_fdf, php3_mend_fdf, NULL, NULL, php3_info_fdf, STANDARD_MODULE_PROPERTIES
|
|
|
|
};
|
|
|
|
|
|
|
|
#if COMPILE_DL
|
|
|
|
#include "dl/phpdl.h"
|
|
|
|
DLEXPORT php3_module_entry *get_module(void) { return &fdf_module_entry; }
|
|
|
|
#endif
|
|
|
|
|
|
|
|
int php3_minit_fdf(INIT_FUNC_ARGS)
|
|
|
|
{
|
|
|
|
FDFErc err;
|
|
|
|
FDF_GLOBAL(le_fdf) = register_list_destructors(FDFClose, NULL);
|
|
|
|
err = FDFInitialize();
|
|
|
|
if(err == FDFErcOK)
|
|
|
|
printf("FDFINitital executed\n");
|
|
|
|
return SUCCESS;
|
|
|
|
}
|
|
|
|
|
1999-05-09 08:48:05 +00:00
|
|
|
void php3_info_fdf(ZEND_MODULE_INFO_FUNC_ARGS) {
|
1999-04-22 00:25:57 +00:00
|
|
|
/* need to use a PHPAPI function here because it is external module in windows */
|
|
|
|
php3_printf("FdfTk Version %s", FDFGetVersion());
|
|
|
|
}
|
|
|
|
|
|
|
|
int php3_mend_fdf(void){
|
|
|
|
FDFErc err;
|
|
|
|
err = FDFFinalize();
|
|
|
|
if(err == FDFErcOK)
|
|
|
|
printf("FDFFinalize executed\n");
|
|
|
|
return SUCCESS;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* {{{ proto int fdf_open(string filename)
|
|
|
|
Opens a new fdf document */
|
1999-05-21 10:06:25 +00:00
|
|
|
PHP_FUNCTION(fdf_open) {
|
1999-04-22 00:25:57 +00:00
|
|
|
pval *file;
|
|
|
|
int id, type;
|
|
|
|
FDFDoc fdf;
|
|
|
|
FDFErc err;
|
|
|
|
FDF_TLS_VARS;
|
|
|
|
|
|
|
|
|
|
|
|
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &file) == FAILURE) {
|
|
|
|
WRONG_PARAM_COUNT;
|
|
|
|
}
|
|
|
|
|
|
|
|
convert_to_string(file);
|
|
|
|
|
|
|
|
err = FDFOpen(file->value.str.val, 0, &fdf);
|
|
|
|
if(err != FDFErcOK)
|
|
|
|
printf("Aiii, error\n");
|
|
|
|
if(!fdf)
|
|
|
|
RETURN_FALSE;
|
|
|
|
|
|
|
|
id = php3_list_insert(fdf,FDF_GLOBAL(le_fdf));
|
|
|
|
RETURN_LONG(id);
|
|
|
|
} /* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto void fdf_close(int fdfdoc)
|
|
|
|
Closes the fdf document */
|
1999-05-21 10:06:25 +00:00
|
|
|
PHP_FUNCTION(fdf_close) {
|
1999-04-22 00:25:57 +00:00
|
|
|
pval *arg1;
|
|
|
|
int id, type;
|
|
|
|
FDFDoc fdf;
|
|
|
|
FDF_TLS_VARS;
|
|
|
|
|
|
|
|
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &arg1) == FAILURE) {
|
|
|
|
WRONG_PARAM_COUNT;
|
|
|
|
}
|
|
|
|
|
|
|
|
convert_to_long(arg1);
|
|
|
|
id=arg1->value.lval;
|
|
|
|
fdf = php3_list_find(id,&type);
|
|
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
// FDFClose(fdf);
|
|
|
|
php3_list_delete(id);
|
|
|
|
|
|
|
|
RETURN_TRUE;
|
|
|
|
} /* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto void fdf_create(void)
|
|
|
|
Creates a new fdf document */
|
1999-05-21 10:06:25 +00:00
|
|
|
PHP_FUNCTION(fdf_create) {
|
1999-04-22 00:25:57 +00:00
|
|
|
int id, type;
|
|
|
|
FDFDoc fdf;
|
|
|
|
FDFErc err;
|
|
|
|
FDF_TLS_VARS;
|
|
|
|
|
|
|
|
err = FDFCreate(&fdf);
|
|
|
|
if(err != FDFErcOK)
|
|
|
|
printf("Aiii, error\n");
|
|
|
|
if(!fdf)
|
|
|
|
RETURN_FALSE;
|
|
|
|
|
|
|
|
id = php3_list_insert(fdf,FDF_GLOBAL(le_fdf));
|
|
|
|
RETURN_LONG(id);
|
|
|
|
}
|
|
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto void fdf_get_value(int fdfdoc, string fieldname)
|
|
|
|
Gets the value of a field as string */
|
1999-05-21 10:06:25 +00:00
|
|
|
PHP_FUNCTION(fdf_get_value) {
|
1999-04-22 00:25:57 +00:00
|
|
|
pval *arg1, *arg2;
|
|
|
|
int id, type;
|
|
|
|
ASInt32 nr;
|
|
|
|
char *buffer;
|
|
|
|
FDFDoc fdf;
|
|
|
|
FDFErc err;
|
|
|
|
FDF_TLS_VARS;
|
|
|
|
|
|
|
|
if (ARG_COUNT(ht) != 2 || getParameters(ht, 2, &arg1, &arg2) == FAILURE) {
|
|
|
|
WRONG_PARAM_COUNT;
|
|
|
|
}
|
|
|
|
|
|
|
|
convert_to_long(arg1);
|
|
|
|
convert_to_string(arg2);
|
|
|
|
id=arg1->value.lval;
|
|
|
|
fdf = php3_list_find(id,&type);
|
|
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
err = FDFGetValue(fdf, arg2->value.str.val, NULL, 0, &nr);
|
|
|
|
if(err != FDFErcOK)
|
|
|
|
printf("Aiii, error\n");
|
|
|
|
buffer = emalloc(nr);
|
|
|
|
err = FDFGetValue(fdf, arg2->value.str.val, buffer, nr, &nr);
|
|
|
|
if(err != FDFErcOK)
|
|
|
|
printf("Aiii, error\n");
|
|
|
|
|
|
|
|
RETURN_STRING(buffer, 0);
|
|
|
|
}
|
|
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto void fdf_set_value(int fdfdoc, string fieldname, string value, int isName)
|
|
|
|
Sets the value of a field */
|
1999-05-21 10:06:25 +00:00
|
|
|
PHP_FUNCTION(fdf_set_value) {
|
1999-04-22 00:25:57 +00:00
|
|
|
pval *arg1, *arg2, *arg3, *arg4;
|
|
|
|
int id, type;
|
|
|
|
FDFDoc fdf;
|
|
|
|
FDFErc err;
|
|
|
|
FDF_TLS_VARS;
|
|
|
|
|
|
|
|
if (ARG_COUNT(ht) != 4 || getParameters(ht, 4, &arg1, &arg2, &arg3, &arg4) == FAILURE) {
|
|
|
|
WRONG_PARAM_COUNT;
|
|
|
|
}
|
|
|
|
|
|
|
|
convert_to_long(arg1);
|
|
|
|
convert_to_string(arg2);
|
|
|
|
convert_to_string(arg3);
|
|
|
|
convert_to_long(arg4);
|
|
|
|
id=arg1->value.lval;
|
|
|
|
fdf = php3_list_find(id,&type);
|
|
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
err = FDFSetValue(fdf, arg2->value.str.val, arg3->value.str.val, (ASBool) arg4->value.lval);
|
|
|
|
if(err != FDFErcOK)
|
|
|
|
printf("Aiii, error\n");
|
|
|
|
|
|
|
|
RETURN_TRUE;
|
|
|
|
}
|
|
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto void fdf_next_field_name(int fdfdoc [, string fieldname])
|
|
|
|
Gets the name of the next field name or the first field name */
|
1999-05-21 10:06:25 +00:00
|
|
|
PHP_FUNCTION(fdf_next_field_name) {
|
1999-04-22 00:25:57 +00:00
|
|
|
pval *argv[2];
|
|
|
|
int id, type, argc;
|
|
|
|
ASInt32 nr;
|
|
|
|
char *buffer, *fieldname;
|
|
|
|
FDFDoc fdf;
|
|
|
|
FDFErc err;
|
|
|
|
FDF_TLS_VARS;
|
|
|
|
|
|
|
|
argc = ARG_COUNT(ht);
|
|
|
|
if((argc > 2) || (argc < 1))
|
|
|
|
WRONG_PARAM_COUNT;
|
|
|
|
|
|
|
|
if (getParametersArray(ht, argc, argv) == FAILURE) {
|
|
|
|
WRONG_PARAM_COUNT;
|
|
|
|
}
|
|
|
|
|
|
|
|
convert_to_long(argv[0]);
|
|
|
|
if(argc == 2) {
|
|
|
|
convert_to_string(argv[1]);
|
|
|
|
fieldname = argv[1]->value.str.val;
|
|
|
|
} else {
|
|
|
|
fieldname = NULL;
|
|
|
|
}
|
|
|
|
id=argv[0]->value.lval;
|
|
|
|
fdf = php3_list_find(id,&type);
|
|
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
err = FDFNextFieldName(fdf, fieldname, NULL, 0, &nr);
|
|
|
|
if(err != FDFErcOK)
|
|
|
|
printf("Aiii, error\n");
|
|
|
|
if(nr == 0)
|
|
|
|
RETURN_STRING(empty_string, 1);
|
|
|
|
|
|
|
|
buffer = emalloc(nr);
|
|
|
|
err = FDFNextFieldName(fdf, fieldname, buffer, nr, &nr);
|
|
|
|
if(err != FDFErcOK)
|
|
|
|
printf("Aiii, error\n");
|
|
|
|
|
|
|
|
RETURN_STRING(buffer, 0);
|
|
|
|
}
|
|
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto void fdf_set_ap(int fdfdoc, string fieldname, int face, string filename, int pagenr)
|
|
|
|
Sets the value of a field */
|
1999-05-21 10:06:25 +00:00
|
|
|
PHP_FUNCTION(fdf_set_ap) {
|
1999-04-22 00:25:57 +00:00
|
|
|
pval *arg1, *arg2, *arg3, *arg4, *arg5;
|
|
|
|
int id, type;
|
|
|
|
FDFDoc fdf;
|
|
|
|
FDFErc err;
|
|
|
|
FDFAppFace face;
|
|
|
|
FDF_TLS_VARS;
|
|
|
|
|
|
|
|
if (ARG_COUNT(ht) != 5 || getParameters(ht, 5, &arg1, &arg2, &arg3, &arg4, &arg5) == FAILURE) {
|
|
|
|
WRONG_PARAM_COUNT;
|
|
|
|
}
|
|
|
|
|
|
|
|
convert_to_long(arg1);
|
|
|
|
convert_to_string(arg2);
|
|
|
|
convert_to_long(arg3);
|
|
|
|
convert_to_string(arg4);
|
|
|
|
convert_to_long(arg5);
|
|
|
|
id=arg1->value.lval;
|
|
|
|
fdf = php3_list_find(id,&type);
|
|
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
switch(arg3->value.lval) {
|
|
|
|
case 1:
|
|
|
|
face = FDFNormalAP;
|
|
|
|
break;
|
|
|
|
case 2:
|
|
|
|
face = FDFRolloverAP;
|
|
|
|
break;
|
|
|
|
case 3:
|
|
|
|
face = FDFDownAP;
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
face = FDFNormalAP;
|
|
|
|
}
|
|
|
|
|
|
|
|
err = FDFSetAP(fdf, arg2->value.str.val, face, NULL, arg4->value.str.val, (ASInt32) arg5->value.lval);
|
|
|
|
if(err != FDFErcOK)
|
|
|
|
printf("Aiii, error\n");
|
|
|
|
|
|
|
|
RETURN_TRUE;
|
|
|
|
}
|
|
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto void fdf_set_status(int fdfdoc, string status)
|
|
|
|
Sets the value in the /Status key. */
|
1999-05-21 10:06:25 +00:00
|
|
|
PHP_FUNCTION(fdf_set_status) {
|
1999-04-22 00:25:57 +00:00
|
|
|
pval *arg1, *arg2;
|
|
|
|
int id, type;
|
|
|
|
ASInt32 nr;
|
|
|
|
FDFDoc fdf;
|
|
|
|
FDFErc err;
|
|
|
|
FDF_TLS_VARS;
|
|
|
|
|
|
|
|
if (ARG_COUNT(ht) != 2 || getParameters(ht, 2, &arg1, &arg2) == FAILURE) {
|
|
|
|
WRONG_PARAM_COUNT;
|
|
|
|
}
|
|
|
|
|
|
|
|
convert_to_long(arg1);
|
|
|
|
convert_to_string(arg2);
|
|
|
|
id=arg1->value.lval;
|
|
|
|
fdf = php3_list_find(id,&type);
|
|
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
err = FDFSetStatus(fdf, arg2->value.str.val);
|
|
|
|
if(err != FDFErcOK)
|
|
|
|
printf("Aiii, error\n");
|
|
|
|
|
|
|
|
RETURN_TRUE;
|
|
|
|
}
|
|
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto void fdf_get_status(int fdfdoc)
|
|
|
|
Gets the value in the /Status key. */
|
1999-05-21 10:06:25 +00:00
|
|
|
PHP_FUNCTION(fdf_get_status) {
|
1999-04-22 00:25:57 +00:00
|
|
|
pval *arg1;
|
|
|
|
int id, type;
|
|
|
|
ASInt32 nr;
|
|
|
|
char *buf;
|
|
|
|
FDFDoc fdf;
|
|
|
|
FDFErc err;
|
|
|
|
FDF_TLS_VARS;
|
|
|
|
|
|
|
|
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &arg1) == FAILURE) {
|
|
|
|
WRONG_PARAM_COUNT;
|
|
|
|
}
|
|
|
|
|
|
|
|
convert_to_long(arg1);
|
|
|
|
id=arg1->value.lval;
|
|
|
|
fdf = php3_list_find(id,&type);
|
|
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
err = FDFGetStatus(fdf, NULL, 0, &nr);
|
|
|
|
if(err != FDFErcOK)
|
|
|
|
printf("Aiii, error\n");
|
|
|
|
if(nr == 0)
|
|
|
|
RETURN_STRING(empty_string, 1);
|
|
|
|
buf = emalloc(nr);
|
|
|
|
err = FDFGetStatus(fdf, buf, nr, &nr);
|
|
|
|
if(err != FDFErcOK)
|
|
|
|
printf("Aiii, error\n");
|
|
|
|
|
|
|
|
RETURN_STRING(buf, 0);
|
|
|
|
}
|
|
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto void fdf_set_file(int fdfdoc, string filename)
|
|
|
|
Sets the value of the FDF's /F key */
|
1999-05-21 10:06:25 +00:00
|
|
|
PHP_FUNCTION(fdf_set_file) {
|
1999-04-22 00:25:57 +00:00
|
|
|
pval *arg1, *arg2;
|
|
|
|
int id, type;
|
|
|
|
FDFDoc fdf;
|
|
|
|
FDFErc err;
|
|
|
|
FDF_TLS_VARS;
|
|
|
|
|
|
|
|
if (ARG_COUNT(ht) != 2 || getParameters(ht, 2, &arg1, &arg2) == FAILURE) {
|
|
|
|
WRONG_PARAM_COUNT;
|
|
|
|
}
|
|
|
|
|
|
|
|
convert_to_long(arg1);
|
|
|
|
convert_to_string(arg2);
|
|
|
|
id=arg1->value.lval;
|
|
|
|
fdf = php3_list_find(id,&type);
|
|
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
err = FDFSetFile(fdf, arg2->value.str.val);
|
|
|
|
if(err != FDFErcOK)
|
|
|
|
printf("Aiii, error\n");
|
|
|
|
|
|
|
|
RETURN_TRUE;
|
|
|
|
}
|
|
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto void fdf_get_file(int fdfdoc)
|
|
|
|
Gets the value in the /F key. */
|
1999-05-21 10:06:25 +00:00
|
|
|
PHP_FUNCTION(fdf_get_file) {
|
1999-04-22 00:25:57 +00:00
|
|
|
pval *arg1;
|
|
|
|
int id, type;
|
|
|
|
ASInt32 nr;
|
|
|
|
char *buf;
|
|
|
|
FDFDoc fdf;
|
|
|
|
FDFErc err;
|
|
|
|
FDF_TLS_VARS;
|
|
|
|
|
|
|
|
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &arg1) == FAILURE) {
|
|
|
|
WRONG_PARAM_COUNT;
|
|
|
|
}
|
|
|
|
|
|
|
|
convert_to_long(arg1);
|
|
|
|
id=arg1->value.lval;
|
|
|
|
fdf = php3_list_find(id,&type);
|
|
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
err = FDFGetFile(fdf, NULL, 0, &nr);
|
|
|
|
if(err != FDFErcOK)
|
|
|
|
printf("Aiii, error\n");
|
|
|
|
if(nr == 0)
|
|
|
|
RETURN_STRING(empty_string, 1);
|
|
|
|
buf = emalloc(nr);
|
|
|
|
err = FDFGetFile(fdf, buf, nr, &nr);
|
|
|
|
if(err != FDFErcOK)
|
|
|
|
printf("Aiii, error\n");
|
|
|
|
|
|
|
|
RETURN_STRING(buf, 0);
|
|
|
|
}
|
|
|
|
/* }}} */
|
|
|
|
|
|
|
|
/* {{{ proto void fdf_save(int fdfdoc, string filename)
|
|
|
|
Writes out an FDF file. */
|
1999-05-21 10:06:25 +00:00
|
|
|
PHP_FUNCTION(fdf_save) {
|
1999-04-22 00:25:57 +00:00
|
|
|
pval *arg1, *arg2;
|
|
|
|
int id, type;
|
|
|
|
FDFDoc fdf;
|
|
|
|
FDFErc err;
|
|
|
|
FDF_TLS_VARS;
|
|
|
|
|
|
|
|
if (ARG_COUNT(ht) != 2 || getParameters(ht, 2, &arg1, &arg2) == FAILURE) {
|
|
|
|
WRONG_PARAM_COUNT;
|
|
|
|
}
|
|
|
|
|
|
|
|
convert_to_long(arg1);
|
|
|
|
convert_to_string(arg2);
|
|
|
|
id=arg1->value.lval;
|
|
|
|
fdf = php3_list_find(id,&type);
|
|
|
|
if(!fdf || type!=FDF_GLOBAL(le_fdf)) {
|
|
|
|
php3_error(E_WARNING,"Unable to find file identifier %d",id);
|
|
|
|
RETURN_FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
err = FDFSave(fdf, arg2->value.str.val);
|
|
|
|
if(err != FDFErcOK)
|
|
|
|
printf("Aiii, error\n");
|
|
|
|
|
|
|
|
RETURN_TRUE;
|
|
|
|
} /* }}} */
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Local variables:
|
|
|
|
* tab-width: 4
|
|
|
|
* c-basic-offset: 4
|
|
|
|
* End:
|
|
|
|
*/
|