mirror of https://github.com/GNOME/gimp.git
22 lines
507 B
Perl
Executable File
22 lines
507 B
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# Convert a script from the 1.0 Script-Fu interface to the new API
|
|
#
|
|
# ( This script is simple hack but may be useful for someone, so )
|
|
# ( I include it here. It is not meant to be distributed with a )
|
|
# ( gimp release. Sven Neumann <sven@gimp.org> )
|
|
#
|
|
#
|
|
# Changes so far are:
|
|
# - Use SF-STRING instead of SF-VALUE where appropriate
|
|
#
|
|
while (<>) {
|
|
if (/SF-VALUE/) {
|
|
if (s/\"\\\"(.*)\\\"\"/\"$1\"/) {
|
|
s/SF-VALUE/SF-STRING/;
|
|
}
|
|
}
|
|
print;
|
|
}
|
|
|