mirror of
https://github.com/Gnucash/gnucash.git
synced 2024-11-29 12:14:31 -06:00
83d14e1c1c
It is split into - /libgnucash (for the non-gui bits) - /gnucash (for the gui) - /common (misc source files used by both) - /bindings (currently only holds python bindings) This is the first step in restructuring the code. It will need much more fine tuning later on.
273 lines
9.1 KiB
Perl
Executable File
273 lines
9.1 KiB
Perl
Executable File
#! /usr/bin/perl
|
|
## @file
|
|
# @brief
|
|
# FUNCTION: this utility script converts old code to the new
|
|
# QOF routine names, and does other related cleanup
|
|
#
|
|
# USAGE: ls *.c *.h | ./xlate.pl ; make ; cvs commit
|
|
#
|
|
# AUTHOR: Linas Vepstas <linas@linas.org> June 2003
|
|
# @author Linas Vepstas <linas@linas.org>
|
|
# @date June 2003
|
|
# @cond Perl
|
|
|
|
@files = <STDIN>;
|
|
|
|
# print @files;
|
|
|
|
foreach (@files)
|
|
{
|
|
chop;
|
|
$afile= $_;
|
|
open (AF, $afile);
|
|
open (OF, "> " . $afile . ".tmp");
|
|
|
|
while (<AF>)
|
|
{
|
|
|
|
if (0) {
|
|
s/GNCBook/QofBook/g;
|
|
s/gnc_book_not_saved/qof_book_not_saved/g;
|
|
s/gnc_book_get_guid/qof_book_get_guid/g;
|
|
s/BookList/QofBookList/g;
|
|
s/gnc_book_get_slots/qof_book_get_slots/g;
|
|
s/gnc_book_set_guid/qof_book_set_guid/g;
|
|
s/gnc_book_new/qof_book_new/g;
|
|
|
|
|
|
s/GncObject_t/QofObject/g;
|
|
s/gncObjectLookup/qof_object_lookup/g;
|
|
s/gncObjectRegister/qof_object_register/g;
|
|
s/gncObjectGetTypeLabel/qof_object_get_type_label/g;
|
|
s/gncObjectRegisterBackend/qof_object_register_backend/g;
|
|
s/gncObjectLookupBackend/qof_object_lookup_backend/g;
|
|
s/gncObjectForeachBackend/qof_object_foreach_backend/g;
|
|
s/gncObjectInitialize/qof_object_initialize/g;
|
|
|
|
s/gncObjectShutdown/qof_object_shutdown/g;
|
|
s/gncObjectBookBegin/qof_object_book_begin/g;
|
|
s/gncObjectBookEnd/qof_object_book_end/g;
|
|
s/gncObjectIsDirty/qof_object_is_dirty/g;
|
|
s/gncObjectMarkClean/qof_object_mark_clean/g;
|
|
|
|
s/gncObjectForeachType/qof_object_foreach_type/g;
|
|
s/gncObjectForeach/qof_object_foreach/g;
|
|
s/gncObjectPrintable/qof_object_printable/g;
|
|
|
|
s/foreachTypeCB/QofForeachTypeCB/g;
|
|
s/foreachBackendTypeCB/QofForeachBackendTypeCB/g;
|
|
|
|
s/gncQueryStringPredicate/qof_query_string_predicate/g;
|
|
s/gncQueryDatePredicate/qof_query_date_predicate/g;
|
|
s/gncQueryNumericPredicate/qof_query_numeric_predicate/g;
|
|
s/gncQueryGUIDPredicate/qof_query_guid_predicate/g;
|
|
s/gncQueryInt32Predicate/qof_query_int32_predicate/g;
|
|
s/gncQueryInt64Predicate/qof_query_int64_predicate/g;
|
|
s/gncQueryDoublePredicate/qof_query_double_predicate/g;
|
|
s/gncQueryBooleanPredicate/qof_query_boolean_predicate/g;
|
|
s/gncQueryCharPredicate/qof_query_char_predicate/g;
|
|
s/gncQueryKVPPredicate/qof_query_kvp_predicate/g;
|
|
s/gncQueryCorePredicateFree/qof_query_core_predicate_free/g;
|
|
|
|
s/COMPARE_LT/QOF_COMPARE_LT/g;
|
|
s/COMPARE_LTE/QOF_COMPARE_LTE/g;
|
|
s/COMPARE_EQUAL/QOF_COMPARE_EQUAL/g;
|
|
s/COMPARE_GT/QOF_COMPARE_GT/g;
|
|
s/COMPARE_GTE/QOF_COMPARE_GTE/g;
|
|
s/COMPARE_NEQ/QOF_COMPARE_NEQ/g;
|
|
|
|
s/STRING_MATCH_NORMAL/QOF_STRING_MATCH_NORMAL/g;
|
|
s/STRING_MATCH_CASEINSENSITIVE/QOF_STRING_MATCH_CASEINSENSITIVE/g;
|
|
|
|
s/DATE_MATCH_NORMAL/QOF_DATE_MATCH_NORMAL/g;
|
|
s/DATE_MATCH_ROUNDED/QOF_DATE_MATCH_ROUNDED/g;
|
|
|
|
s/NUMERIC_MATCH_ANY/QOF_NUMERIC_MATCH_ANY/g;
|
|
s/NUMERIC_MATCH_CREDIT/QOF_NUMERIC_MATCH_CREDIT/g;
|
|
s/NUMERIC_MATCH_DEBIT/QOF_NUMERIC_MATCH_DEBIT/g;
|
|
|
|
s/GUID_MATCH_ANY/QOF_GUID_MATCH_ANY/g;
|
|
s/GUID_MATCH_NONE/QOF_GUID_MATCH_NONE/g;
|
|
s/GUID_MATCH_NULL/QOF_GUID_MATCH_NULL/g;
|
|
s/GUID_MATCH_ALL/QOF_GUID_MATCH_ALL/g;
|
|
s/GUID_MATCH_LIST_ANY/QOF_GUID_MATCH_LIST_ANY/g;
|
|
|
|
s/CHAR_MATCH_ANY/QOF_CHAR_MATCH_ANY/g;
|
|
s/CHAR_MATCH_NONE/QOF_CHAR_MATCH_NONE/g;
|
|
|
|
s/char_match_t/QofCharMatch/g;
|
|
s/guid_match_t/QofGuidMatch/g;
|
|
s/numeric_match_t/QofNumericMatch/g;
|
|
s/date_match_t/QofDateMatch/g;
|
|
s/string_match_t/QofStringMatch/g;
|
|
s/query_compare_t/QofQueryCompare/g;
|
|
|
|
s/gncQueryCoreInit/qof_query_core_init/g;
|
|
s/gncQueryCoreShutdown/qof_query_core_shutdown/g;
|
|
s/gncQueryCoreGetPredicate/qof_query_core_get_predicate/g;
|
|
s/gncQueryCoreGetCompare/qof_query_core_get_compare/g;
|
|
|
|
s/gncQueryCorePredicateEqual/qof_query_core_predicate_equal/g;
|
|
|
|
s/QUERY_AND/QOF_QUERY_AND/g;
|
|
s/QUERY_OR/QOF_QUERY_OR/g;
|
|
s/QUERY_NAND/QOF_QUERY_NAND/g;
|
|
s/QUERY_NOR/QOF_QUERY_NOR/g;
|
|
s/QUERY_XOR/QOF_QUERY_XOR/g;
|
|
s/QUERY_PARAM_BOOK/QOF_PARAM_BOOK/g;
|
|
s/QUERY_PARAM_GUID/QOF_PARAM_GUID/g;
|
|
s/QUERY_PARAM_ACTIVE/QOF_PARAM_ACTIVE/g;
|
|
|
|
s/QUERYCORE_INT64/QOF_QUERYCORE_INT64/g;
|
|
s/QUERYCORE_STRING/QOF_QUERYCORE_STRING/g;
|
|
s/QUERYCORE_GUID/QOF_QUERYCORE_GUID/g;
|
|
s/QUERYCORE_DATE/QOF_QUERYCORE_DATE/g;
|
|
s/QUERYCORE_BOOLEAN/QOF_QUERYCORE_BOOLEAN/g;
|
|
s/QUERYCORE_NUMERIC/QOF_QUERYCORE_NUMERIC/g;
|
|
|
|
s/gncQueryBuildParamList/qof_query_build_param_list/g;
|
|
s/gncQueryCreateFor/qof_query_create_for/g;
|
|
s/gncQueryCreate/qof_query_create/g;
|
|
s/gncQueryDestroy/qof_query_destroy/g;
|
|
s/gncQuerySearchFor/qof_query_search_for/g;
|
|
s/gncQuerySetBook/qof_query_set_book/g;
|
|
s/gncQueryAddTerm/qof_query_add_term/g;
|
|
s/gncQueryAddGUIDMatch/qof_query_add_guid_match/g;
|
|
s/gncQueryAddGUIDListMatch/qof_query_add_guid_list_match/g;
|
|
s/gncQueryAddBooleanMatch/qof_query_add_boolean_match/g;
|
|
s/gncQueryRun/qof_query_run/g;
|
|
s/gncQueryLastRun/qof_query_last_run/g;
|
|
s/gncQueryClear/qof_query_clear/g;
|
|
s/gncQueryPurgeTerms/qof_query_purge_terms/g;
|
|
s/gncQueryHasTerms/qof_query_has_terms/g;
|
|
s/gncQueryNumTerms/qof_query_num_terms/g;
|
|
s/gncQueryHasTermType/qof_query_has_term_type/g;
|
|
s/gncQueryCopy/qof_query_copy/g;
|
|
s/gncQueryInvert/qof_query_invert/g;
|
|
s/gncQueryMerge/qof_query_merge/g;
|
|
s/gncQueryMergeInPlace/qof_query_merges_ins_place/g;
|
|
s/gncQuerySetSortOrder/qof_query_set_sort_order/g;
|
|
s/gncQuerySetSortOptions/qof_query_set_sort_options/g;
|
|
s/gncQuerySetSortIncreasing/qof_query_set_sort_increasing/g;
|
|
s/gncQuerySetMaxResults/qof_query_set_max_results/g;
|
|
s/gncQueryEqual/qof_query_equal/g;
|
|
s/gncQueryPrint/qof_query_print/g;
|
|
s/gncQueryGetSearchFor/qof_query_get_search_for/g;
|
|
s/gncQueryGetBooks/qof_query_get_books/g;
|
|
|
|
s/gncQueryNewInit/qof_query_new_init/g;
|
|
s/gncQueryNewShutdown/qof_query_new_shutdown/g;
|
|
s/gncQueryGetMaxResults/qof_query_get_max_results/g;
|
|
s/gncQueryGetTerms/qof_query_get_terms/g;
|
|
s/gncQueryTermGetParamPath/qof_query_term_get_param_path/g;
|
|
s/gncQueryTermGetPredData/qof_query_term_get_pred_data/g;
|
|
s/gncQueryTermIsInverted/qof_query_term_is_inverted/g;
|
|
s/gncQueryGetSorts/qof_query_get_sorts/g;
|
|
s/gncQuerySortGetParamPath/qof_query_sort_get_param_path/g;
|
|
s/gncQuerySortGetSortOptions/qof_query_sort_get_sort_options/g;
|
|
s/gncQuerySortGetIncreasing/qof_query_sort_get_increasing/g;
|
|
|
|
s/QuerySort/QofSortFunc/g;
|
|
s/QueryTerm_t/QofQueryTerm/g;
|
|
s/SortFunc_t/QofQuerySort/g;
|
|
|
|
s/querynew_s/_QofQuery/g;
|
|
s/QueryNew/QofQuery/g;
|
|
s/QueryOp/QofQueryOp/g;
|
|
s/query_new_term/_QofQueryTerm/g;
|
|
s/query_new_sort/_QofQuerySort/g;
|
|
|
|
s/query_object_def/_QofParam/g;
|
|
s/QueryObjectDef/QofParam/g;
|
|
|
|
s/QueryAccess/QofAccessFunc/g;
|
|
|
|
s/gncQueryObjectRegister/qof_class_register/g;
|
|
s/gncQueryObjectParameterType/qof_class_get_parameter_type/g;
|
|
s/gncQueryObjectGetParameterGetter/qof_class_get_parameter_getter/g;
|
|
s/gncQueryObjectGetParameter/qof_class_get_parameter/g;
|
|
s/gncQueryObjectInit/qof_class_init/g;
|
|
s/gncQueryObjectShutdown/qof_class_shutdown/g;
|
|
s/gncQueryObjectDefaultSort/qof_class_get_default_sort/g;
|
|
|
|
s/xaccGUIDNULL/guid_null/g;
|
|
s/xaccGUIDMalloc/guid_malloc/g;
|
|
s/xaccGUIDFree/guid_free/g;
|
|
|
|
s/GNCIdTypeConst/QofIdTypeConst/g;
|
|
s/GNCIdType/QofIdType/g;
|
|
s/GNCEntityTable/QofInstanceTable/g;
|
|
s/xaccGUIDTypeEntityTable/qof_guid_type/g;
|
|
|
|
s/xaccEntityTableNew/qof_instance_new/g;
|
|
s/xaccEntityTableDestroy/qof_instance_destroy/g;
|
|
s/xaccGUIDNewEntityTable/qof_instance_guid_new/g;
|
|
s/xaccLookupEntity/qof_instance_lookup/g;
|
|
s/xaccStoreEntity/qof_instance_store/g;
|
|
s/xaccRemoveEntity/qof_instance_remove/g;
|
|
s/xaccForeachEntity/qof_instance_foreach/g;
|
|
|
|
s/foreachObjectCB/QofInstanceForeachCB/g;
|
|
s/GNC_OBJECT_VERSION/QOF_OBJECT_VERSION/g;
|
|
|
|
s/GNCSession/QofSession/g;
|
|
s/gnc_session/qof_session/g;
|
|
s/GNCPercentageFunc/QofPercentageFunc/g;
|
|
s/gnc_get_current_session/qof_session_get_current_session/g;
|
|
s/gnc_set_current_session/qof_session_set_current_session/g;
|
|
|
|
s/ Backend/ QofBackend/g;
|
|
s/\(Backend/\(QofBackend/g;
|
|
s/GNCBackendError/QofBackendError/g;
|
|
s/GNCBePercentageFunc/QofBePercentageFunc/g;
|
|
s/xaccBackendSetError/qof_backend_set_error/g;
|
|
s/xaccBackendGetError/qof_backend_get_error/g;
|
|
s/xaccBackendSetMessage/qof_backend_set_message/g;
|
|
s/xaccBackendGetMessage/qof_backend_get_message/g;
|
|
s/xaccInitBackend/qof_backend_init/g;
|
|
|
|
s/GNCId\.h/qofid\.h/g;
|
|
s/gncObject\.h/qofobject\.h/g;
|
|
s/QueryCore\.h/qofquerycore\.h/g;
|
|
s/QofQuery\.h/qofquery\.h/g;
|
|
s/QueryObject\.h/qofqueryobject\.h/g;
|
|
|
|
|
|
s/kvp_frame /KvpFrame /g;
|
|
s/kvp_frame* /KvpFrame* /g;
|
|
s/kvp_value /KvpValue /g;
|
|
s/kvp_value* /KvpValue* /g;
|
|
s/kvp_value_t/KvpValueType/g;
|
|
|
|
s/QofQof/Qof/g;
|
|
s/QOF_QOF/QOF/g;
|
|
|
|
s/getDateFormatString/qof_date_format_get_string/g;
|
|
s/getDateTextFormatString/qof_date_format_get_format/g;
|
|
s/getDateFormat/qof_date_format_get/g;
|
|
s/setDateFormat/qof_date_format_set/g;
|
|
s/DateFormat/QofDateFormat/g;
|
|
s/printDateSecs/qof_print_date_buff/g;
|
|
s/printDate/qof_print_date_dmy_buff/g;
|
|
s/printGDate/qof_print_gdate/g;
|
|
s/xaccPrintDateSecs/qof_print_date/g;
|
|
s/scanDate/qof_scan_date/g;
|
|
s/DATE_FORMAT_US/QOF_DATE_FORMAT_US/g;
|
|
s/DATE_FORMAT_UK/QOF_DATE_FORMAT_UK/g;
|
|
s/DATE_FORMAT_CE/QOF_DATE_FORMAT_CE/g;
|
|
s/DATE_FORMAT_ISO/QOF_DATE_FORMAT_ISO/g;
|
|
s/DATE_FORMAT_LOCALE/QOF_DATE_FORMAT_LOCALE/g;
|
|
s/DATE_FORMAT_CUSTOM/QOF_DATE_FORMAT_CUSTOM/g;
|
|
|
|
}
|
|
|
|
print OF $_;
|
|
}
|
|
close OF;
|
|
close AF;
|
|
|
|
$rn = "mv " . $afile . ".tmp " . $afile;
|
|
system ($rn);
|
|
}
|
|
## @endcond Perl
|