|
GnuCash 2.4.99
|
00001 /********************************************************************* 00002 * gncmod-standard-reports.c 00003 * module definition/initialization for the standard reports 00004 * 00005 * Copyright (c) 2001 Linux Developers Group, Inc. 00006 *********************************************************************/ 00007 00008 #include "config.h" 00009 #include <gmodule.h> 00010 #include <libguile.h> 00011 00012 #include "gnc-module.h" 00013 #include "gnc-module-api.h" 00014 00015 GNC_MODULE_API_DECL(libgncmod_standard_reports) 00016 00017 /* version of the gnc module system interface we require */ 00018 int libgncmod_standard_reports_gnc_module_system_interface = 0; 00019 00020 /* module versioning uses libtool semantics. */ 00021 int libgncmod_standard_reports_gnc_module_current = 0; 00022 int libgncmod_standard_reports_gnc_module_revision = 0; 00023 int libgncmod_standard_reports_gnc_module_age = 0; 00024 00025 00026 char * 00027 libgncmod_standard_reports_gnc_module_path(void) 00028 { 00029 return g_strdup("gnucash/report/standard-reports"); 00030 } 00031 00032 char * 00033 libgncmod_standard_reports_gnc_module_description(void) 00034 { 00035 return g_strdup("Standard income, asset, balance sheet, etc. reports"); 00036 } 00037 00038 int 00039 libgncmod_standard_reports_gnc_module_init(int refcount) 00040 { 00041 /* load the report system */ 00042 if (!gnc_module_load("gnucash/report/report-system", 0)) 00043 { 00044 return FALSE; 00045 } 00046 00047 /* load the report generation scheme code */ 00048 if (scm_c_eval_string("(use-modules (gnucash report standard-reports))") == 00049 SCM_BOOL_F) 00050 { 00051 return FALSE; 00052 } 00053 return TRUE; 00054 } 00055 00056 int 00057 libgncmod_standard_reports_gnc_module_end(int refcount) 00058 { 00059 return TRUE; 00060 }
1.7.4