IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

translate script

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@8693 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas 2003-06-25 03:21:30 +00:00
parent a84a032a6a
commit 79c478fd31
1 changed files with 47 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
src/engine/xlate.pl Executable file
View File

@ -0,0 +1,47 @@
#! /usr/bin/perl
@files = <STDIN>;
# print @files;
foreach (@files)
{
chop;
$afile= $_;
open (AF, $afile);
open (OF, "> " . $afile . ".tmp");
while (<AF>)
{
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/gncObjectx/qof_object_x/g;
s/gncObjectx/qof_object_x/g;
s/gncObjectx/qof_object_x/g;
s/foreachTypeCB/QofForeachTypeCB/g;
s/foreachBackendTypeCB/QofForeachBackendTypeCB/g;
print OF $_;
}
close OF;
close AF;
$rn = "mv " . $afile . ".tmp " . $afile;
system ($rn);
}