GnuCash: xlate.pl Source File

GnuCash 2.4.99
00001 #! /usr/bin/perl
00002 ##  @file
00003 #   @brief  
00004 #   FUNCTION: this utility script converts old code to the new
00005 #             QOF routine names, and does other related cleanup
00006 #
00007 # USAGE: ls *.c *.h | ./xlate.pl ; make ; cvs commit
00008 #        
00009 # AUTHOR: Linas Vepstas <linas@linas.org> June 2003
00010 # @author Linas Vepstas <linas@linas.org>
00011 # @date June 2003
00012 # @cond Perl
00013 
00014 @files = <STDIN>;
00015 
00016 # print @files;
00017 
00018 foreach (@files)
00019 {
00020         chop;
00021         $afile= $_;
00022         open (AF, $afile);
00023         open (OF, "> " . $afile . ".tmp");
00024 
00025         while (<AF>)
00026         {
00027 
00028                 if (0) {
00029                 s/GNCBook/QofBook/g;
00030                 s/gnc_book_not_saved/qof_book_not_saved/g;
00031                 s/gnc_book_get_guid/qof_book_get_guid/g;
00032                 s/BookList/QofBookList/g;
00033                 s/gnc_book_get_slots/qof_book_get_slots/g;
00034                 s/gnc_book_set_guid/qof_book_set_guid/g;
00035                 s/gnc_book_new/qof_book_new/g;
00036                 
00037 
00038                 s/GncObject_t/QofObject/g;
00039                 s/gncObjectLookup/qof_object_lookup/g;
00040                 s/gncObjectRegister/qof_object_register/g;
00041                 s/gncObjectGetTypeLabel/qof_object_get_type_label/g;
00042                 s/gncObjectRegisterBackend/qof_object_register_backend/g;
00043                 s/gncObjectLookupBackend/qof_object_lookup_backend/g;
00044                 s/gncObjectForeachBackend/qof_object_foreach_backend/g;
00045                 s/gncObjectInitialize/qof_object_initialize/g;
00046 
00047                 s/gncObjectShutdown/qof_object_shutdown/g;
00048                 s/gncObjectBookBegin/qof_object_book_begin/g;
00049                 s/gncObjectBookEnd/qof_object_book_end/g;
00050                 s/gncObjectIsDirty/qof_object_is_dirty/g;
00051                 s/gncObjectMarkClean/qof_object_mark_clean/g;
00052 
00053                 s/gncObjectForeachType/qof_object_foreach_type/g;
00054                 s/gncObjectForeach/qof_object_foreach/g;
00055                 s/gncObjectPrintable/qof_object_printable/g;
00056 
00057                 s/foreachTypeCB/QofForeachTypeCB/g;
00058                 s/foreachBackendTypeCB/QofForeachBackendTypeCB/g;
00059 
00060                 s/gncQueryStringPredicate/qof_query_string_predicate/g;
00061                 s/gncQueryDatePredicate/qof_query_date_predicate/g;
00062                 s/gncQueryNumericPredicate/qof_query_numeric_predicate/g;
00063                 s/gncQueryGUIDPredicate/qof_query_guid_predicate/g;
00064                 s/gncQueryInt32Predicate/qof_query_int32_predicate/g;
00065                 s/gncQueryInt64Predicate/qof_query_int64_predicate/g;
00066                 s/gncQueryDoublePredicate/qof_query_double_predicate/g;
00067                 s/gncQueryBooleanPredicate/qof_query_boolean_predicate/g;
00068                 s/gncQueryCharPredicate/qof_query_char_predicate/g;
00069                 s/gncQueryKVPPredicate/qof_query_kvp_predicate/g;
00070                 s/gncQueryCorePredicateFree/qof_query_core_predicate_free/g;
00071 
00072                 s/COMPARE_LT/QOF_COMPARE_LT/g;
00073                 s/COMPARE_LTE/QOF_COMPARE_LTE/g;
00074                 s/COMPARE_EQUAL/QOF_COMPARE_EQUAL/g;
00075                 s/COMPARE_GT/QOF_COMPARE_GT/g;
00076                 s/COMPARE_GTE/QOF_COMPARE_GTE/g;
00077                 s/COMPARE_NEQ/QOF_COMPARE_NEQ/g;
00078 
00079                 s/STRING_MATCH_NORMAL/QOF_STRING_MATCH_NORMAL/g;
00080                 s/STRING_MATCH_CASEINSENSITIVE/QOF_STRING_MATCH_CASEINSENSITIVE/g;
00081 
00082                 s/DATE_MATCH_NORMAL/QOF_DATE_MATCH_NORMAL/g;
00083                 s/DATE_MATCH_ROUNDED/QOF_DATE_MATCH_ROUNDED/g;
00084 
00085                 s/NUMERIC_MATCH_ANY/QOF_NUMERIC_MATCH_ANY/g;
00086                 s/NUMERIC_MATCH_CREDIT/QOF_NUMERIC_MATCH_CREDIT/g;
00087                 s/NUMERIC_MATCH_DEBIT/QOF_NUMERIC_MATCH_DEBIT/g;
00088 
00089                 s/GUID_MATCH_ANY/QOF_GUID_MATCH_ANY/g;
00090                 s/GUID_MATCH_NONE/QOF_GUID_MATCH_NONE/g;
00091                 s/GUID_MATCH_NULL/QOF_GUID_MATCH_NULL/g;
00092                 s/GUID_MATCH_ALL/QOF_GUID_MATCH_ALL/g;
00093                 s/GUID_MATCH_LIST_ANY/QOF_GUID_MATCH_LIST_ANY/g;
00094 
00095                 s/CHAR_MATCH_ANY/QOF_CHAR_MATCH_ANY/g;
00096                 s/CHAR_MATCH_NONE/QOF_CHAR_MATCH_NONE/g;
00097 
00098                 s/char_match_t/QofCharMatch/g;
00099                 s/guid_match_t/QofGuidMatch/g;
00100                 s/numeric_match_t/QofNumericMatch/g;
00101                 s/date_match_t/QofDateMatch/g;
00102                 s/string_match_t/QofStringMatch/g;
00103                 s/query_compare_t/QofQueryCompare/g;
00104 
00105                 s/gncQueryCoreInit/qof_query_core_init/g;
00106                 s/gncQueryCoreShutdown/qof_query_core_shutdown/g;
00107                 s/gncQueryCoreGetPredicate/qof_query_core_get_predicate/g;
00108                 s/gncQueryCoreGetCompare/qof_query_core_get_compare/g;
00109                 
00110                 s/gncQueryCorePredicateEqual/qof_query_core_predicate_equal/g;
00111 
00112                 s/QUERY_AND/QOF_QUERY_AND/g;
00113                 s/QUERY_OR/QOF_QUERY_OR/g;
00114                 s/QUERY_NAND/QOF_QUERY_NAND/g;
00115                 s/QUERY_NOR/QOF_QUERY_NOR/g;
00116                 s/QUERY_XOR/QOF_QUERY_XOR/g;
00117                 s/QUERY_PARAM_BOOK/QOF_PARAM_BOOK/g;
00118                 s/QUERY_PARAM_GUID/QOF_PARAM_GUID/g;
00119                 s/QUERY_PARAM_ACTIVE/QOF_PARAM_ACTIVE/g;
00120 
00121                 s/QUERYCORE_INT64/QOF_QUERYCORE_INT64/g;
00122                 s/QUERYCORE_STRING/QOF_QUERYCORE_STRING/g;
00123                 s/QUERYCORE_GUID/QOF_QUERYCORE_GUID/g;
00124                 s/QUERYCORE_DATE/QOF_QUERYCORE_DATE/g;
00125                 s/QUERYCORE_BOOLEAN/QOF_QUERYCORE_BOOLEAN/g;
00126                 s/QUERYCORE_NUMERIC/QOF_QUERYCORE_NUMERIC/g;
00127 
00128                 s/gncQueryBuildParamList/qof_query_build_param_list/g;
00129                 s/gncQueryCreateFor/qof_query_create_for/g;
00130                 s/gncQueryCreate/qof_query_create/g;
00131                 s/gncQueryDestroy/qof_query_destroy/g;
00132                 s/gncQuerySearchFor/qof_query_search_for/g;
00133                 s/gncQuerySetBook/qof_query_set_book/g;
00134                 s/gncQueryAddTerm/qof_query_add_term/g;
00135                 s/gncQueryAddGUIDMatch/qof_query_add_guid_match/g;
00136                 s/gncQueryAddGUIDListMatch/qof_query_add_guid_list_match/g;
00137                 s/gncQueryAddBooleanMatch/qof_query_add_boolean_match/g;
00138                 s/gncQueryRun/qof_query_run/g;
00139                 s/gncQueryLastRun/qof_query_last_run/g;
00140                 s/gncQueryClear/qof_query_clear/g;
00141                 s/gncQueryPurgeTerms/qof_query_purge_terms/g;
00142                 s/gncQueryHasTerms/qof_query_has_terms/g;
00143                 s/gncQueryNumTerms/qof_query_num_terms/g;
00144                 s/gncQueryHasTermType/qof_query_has_term_type/g;
00145                 s/gncQueryCopy/qof_query_copy/g;
00146                 s/gncQueryInvert/qof_query_invert/g;
00147                 s/gncQueryMerge/qof_query_merge/g;
00148                 s/gncQueryMergeInPlace/qof_query_merges_ins_place/g;
00149                 s/gncQuerySetSortOrder/qof_query_set_sort_order/g;
00150                 s/gncQuerySetSortOptions/qof_query_set_sort_options/g;
00151                 s/gncQuerySetSortIncreasing/qof_query_set_sort_increasing/g;
00152                 s/gncQuerySetMaxResults/qof_query_set_max_results/g;
00153                 s/gncQueryEqual/qof_query_equal/g;
00154                 s/gncQueryPrint/qof_query_print/g;
00155                 s/gncQueryGetSearchFor/qof_query_get_search_for/g;
00156                 s/gncQueryGetBooks/qof_query_get_books/g;
00157 
00158                 s/gncQueryNewInit/qof_query_new_init/g;
00159                 s/gncQueryNewShutdown/qof_query_new_shutdown/g;
00160                 s/gncQueryGetMaxResults/qof_query_get_max_results/g;
00161                 s/gncQueryGetTerms/qof_query_get_terms/g;
00162                 s/gncQueryTermGetParamPath/qof_query_term_get_param_path/g;
00163                 s/gncQueryTermGetPredData/qof_query_term_get_pred_data/g;
00164                 s/gncQueryTermIsInverted/qof_query_term_is_inverted/g;
00165                 s/gncQueryGetSorts/qof_query_get_sorts/g;
00166                 s/gncQuerySortGetParamPath/qof_query_sort_get_param_path/g;
00167                 s/gncQuerySortGetSortOptions/qof_query_sort_get_sort_options/g;
00168                 s/gncQuerySortGetIncreasing/qof_query_sort_get_increasing/g;
00169 
00170                 s/QuerySort/QofSortFunc/g;
00171                 s/QueryTerm_t/QofQueryTerm/g;
00172                 s/SortFunc_t/QofQuerySort/g;
00173 
00174                 s/querynew_s/_QofQuery/g;
00175                 s/QueryNew/QofQuery/g;
00176                 s/QueryOp/QofQueryOp/g;
00177                 s/query_new_term/_QofQueryTerm/g;
00178                 s/query_new_sort/_QofQuerySort/g;
00179 
00180                 s/query_object_def/_QofParam/g;
00181                 s/QueryObjectDef/QofParam/g;
00182 
00183                 s/QueryAccess/QofAccessFunc/g;
00184 
00185                 s/gncQueryObjectRegister/qof_class_register/g;
00186                 s/gncQueryObjectParameterType/qof_class_get_parameter_type/g;
00187                 s/gncQueryObjectGetParameterGetter/qof_class_get_parameter_getter/g;
00188                 s/gncQueryObjectGetParameter/qof_class_get_parameter/g;
00189                 s/gncQueryObjectInit/qof_class_init/g;
00190                 s/gncQueryObjectShutdown/qof_class_shutdown/g;
00191                 s/gncQueryObjectDefaultSort/qof_class_get_default_sort/g;
00192 
00193                 s/xaccGUIDNULL/guid_null/g;
00194                 s/xaccGUIDMalloc/guid_malloc/g;
00195                 s/xaccGUIDFree/guid_free/g;
00196 
00197                 s/GNCIdTypeConst/QofIdTypeConst/g;
00198                 s/GNCIdType/QofIdType/g;
00199                 s/GNCEntityTable/QofInstanceTable/g;
00200                 s/xaccGUIDTypeEntityTable/qof_guid_type/g;
00201 
00202                 s/xaccEntityTableNew/qof_instance_new/g;
00203                 s/xaccEntityTableDestroy/qof_instance_destroy/g;
00204                 s/xaccGUIDNewEntityTable/qof_instance_guid_new/g;
00205                 s/xaccLookupEntity/qof_instance_lookup/g;
00206                 s/xaccStoreEntity/qof_instance_store/g;
00207                 s/xaccRemoveEntity/qof_instance_remove/g;
00208                 s/xaccForeachEntity/qof_instance_foreach/g;
00209 
00210                 s/foreachObjectCB/QofInstanceForeachCB/g;
00211                 s/GNC_OBJECT_VERSION/QOF_OBJECT_VERSION/g;
00212 
00213                 s/GNCSession/QofSession/g;
00214                 s/gnc_session/qof_session/g;
00215                 s/GNCPercentageFunc/QofPercentageFunc/g;
00216                 s/gnc_get_current_session/qof_session_get_current_session/g;
00217                 s/gnc_set_current_session/qof_session_set_current_session/g;
00218 
00219       s/ Backend/ QofBackend/g;
00220       s/\(Backend/\(QofBackend/g;
00221                 s/GNCBackendError/QofBackendError/g;
00222                 s/GNCBePercentageFunc/QofBePercentageFunc/g;
00223                 s/xaccBackendSetError/qof_backend_set_error/g;
00224                 s/xaccBackendGetError/qof_backend_get_error/g;
00225                 s/xaccBackendSetMessage/qof_backend_set_message/g;
00226                 s/xaccBackendGetMessage/qof_backend_get_message/g;
00227                 s/xaccInitBackend/qof_backend_init/g;
00228 
00229                 s/GNCId\.h/qofid\.h/g;
00230                 s/gncObject\.h/qofobject\.h/g;
00231                 s/QueryCore\.h/qofquerycore\.h/g;
00232                 s/QofQuery\.h/qofquery\.h/g;
00233                 s/QueryObject\.h/qofqueryobject\.h/g;
00234 
00235 
00236                 s/kvp_frame /KvpFrame /g;
00237                 s/kvp_frame* /KvpFrame* /g;
00238                 s/kvp_value /KvpValue /g;
00239                 s/kvp_value* /KvpValue* /g;
00240                 s/kvp_value_t/KvpValueType/g;
00241 
00242                 s/QofQof/Qof/g;
00243                 s/QOF_QOF/QOF/g;
00244 
00245                 s/getDateFormatString/qof_date_format_get_string/g;
00246                 s/getDateTextFormatString/qof_date_format_get_format/g;
00247                 s/getDateFormat/qof_date_format_get/g;
00248                 s/setDateFormat/qof_date_format_set/g;
00249                 s/DateFormat/QofDateFormat/g;
00250                 s/printDateSecs/qof_print_date_buff/g;
00251                 s/printDate/qof_print_date_dmy_buff/g;
00252                 s/printGDate/qof_print_gdate/g;
00253                 s/xaccPrintDateSecs/qof_print_date/g;
00254                 s/scanDate/qof_scan_date/g;
00255                 s/DATE_FORMAT_US/QOF_DATE_FORMAT_US/g;
00256                 s/DATE_FORMAT_UK/QOF_DATE_FORMAT_UK/g;
00257                 s/DATE_FORMAT_CE/QOF_DATE_FORMAT_CE/g;
00258                 s/DATE_FORMAT_ISO/QOF_DATE_FORMAT_ISO/g;
00259                 s/DATE_FORMAT_LOCALE/QOF_DATE_FORMAT_LOCALE/g;
00260                 s/DATE_FORMAT_CUSTOM/QOF_DATE_FORMAT_CUSTOM/g;
00261 
00262                 }
00263 
00264                 print OF $_;
00265         }
00266    close OF;
00267    close AF;
00268 
00269         $rn = "mv " . $afile . ".tmp " . $afile;
00270         system ($rn);
00271 }
00272 ## @endcond Perl