am_edit

这是linux下读取pc主板温度传感器的源代码

    }
    if (@depend) {
        $dependmocs{$program} .= " ";
        $dependmocs{$program} .= join('.moc ', @depend) . ".moc";
        $dependmocs{$program} .= " ";
    }
    addMocRules ();
    @globalmocs{keys %mocFiles}=values %mocFiles;
}

#-----------------------------------------------------------------------------

# Returns 0 if the line was processed - 1 otherwise.
# Errors are logged in the global $errorflags
sub tag_AUTOMAKE ()
{
    my $lookup = '.*cd \$\(top_srcdir\)\s+&&[\034\s]+\$\(AUTOMAKE\)(.*)';
    return 1    if ($MakefileData !~ /\n($lookup)\n/);
    print STDOUT "AUTOMAKE processing <$1>\n"        if ($verbose);

    my $newLine = $1."\n\tcd \$(top_srcdir) && perl $thisProg $printname";
    substituteLine ($lookup, $newLine);
    $automkCall = $1;

    $lookup = '.*cd \$\(srcdir\)\s+&&[\034\s]+\$\(AUTOCONF\)(.*)';
    if ($MakefileData =~ /\n($lookup)\n/) {
      $newLine = "\tcd \$(srcdir) && rm -f configure && \$(MAKE) -f admin/Makefile.common configure";
      substituteLine ($lookup, $newLine);
    }

    return 0;
}

#-----------------------------------------------------------------------------

sub handle_TOPLEVEL()
{
    my $pofiles = "";
    my @restfiles = ();
    opendir (THISDIR, ".");
    foreach $entry (readdir(THISDIR)) {
        next if (-d $entry);
        
        next if ($entry eq "CVS" || $entry =~ /^\./  || $entry =~ /^Makefile/ || $entry =~ /~$/ || $entry =~ /^\#.*\#$/ || $entry =~ /.gmo$/);
                 
        if ($entry =~ /\.po$/) {
             next;
        }
        push(@restfiles, $entry);
    }
    closedir (THISDIR);
            
    if (@restfiles) {
        $target_adds{"install-data-am"} .= "install-nls-files ";
        $lines = "install-nls-files:\n";
        $lines .= "\t\$(mkinstalldirs) \$(DESTDIR)\$(kde_locale)/$kdelang\n";
        for $file (@restfiles) {
            $lines .= "\t\$(INSTALL_DATA) \$\(srcdir\)/$file \$(DESTDIR)\$(kde_locale)/$kdelang/$file\n";
        }
	$target_adds{"uninstall"} .= "uninstall-nls-files ";
        $lines .= "uninstall-nls-files:\n";
        for $file (@restfiles) {
            $lines .= "\t-rm -f \$(DESTDIR)\$(kde_locale)/$kdelang/$file\n";
        }
        appendLines($lines);
    }
    
    return 0;
}

#-----------------------------------------------------------------------------

sub tag_SUBDIRS ()
{
  if ($MakefileData !~ /\nSUBDIRS\s*=\s*\$\(AUTODIRS\)\s*\n/) {
    return 1;
  }

  my $subdirs = ".";

  opendir (THISDIR, ".");
  foreach $entry (readdir(THISDIR)) {
    next if ($entry eq "CVS" || $entry =~ /^\./);
    if (-d $entry && -f $entry . "/Makefile.am") {
      $subdirs .= " $entry";
      next;
    }
  }
  closedir (THISDIR);

  substituteLine('SUBDIRS\s*=.*', "SUBDIRS =$subdirs");
  return 0;
}

sub tag_IDLFILES ()
{
    my @psources = split(/[\034\s]+/, $sources{$program});
    my $dep_lines = "";
    my @cppFiles = ();
    
    foreach $source (@psources) {
        my $skel = ($source =~ m/\.skel$/);
        my $stub = ($source =~ m/\.stub$/);
        my $signals = ($source =~ m/\.signals$/); # obsolete, remove in KDE-4
        
        if ($stub || $skel || $signals) {

            my $qs = quotemeta($source);
            $sources{$program} =~ s/$qs//;
            $sources_changed{$program} = 1;

            $source =~ s/\.(stub|skel|signals)$//;
            my $sourcename;

            if ($skel) {
                $sourcename = "$source\_skel";
            } elsif ($stub) {
                $sourcename = "$source\_stub";
            } else {
                $sourcename = "$source\_signals";
            }
            
            my $sourcedir = '';
            if (-f "$makefileDir/$source.h") {
                $sourcedir = '$(srcdir)/';
            } else {
                if ($MakefileData =~ /\n$source\_DIR\s*=\s*(\S+)\n/) {
                    $sourcedir = $1;
                    $sourcedir .= "/" if ($sourcedir !~ /\/$/);
                }
            }
            
            if ($allidls !~ /$source\_kidl/) {
                
                $dep_lines .= "$source.kidl: $sourcedir$source.h \$(DCOP_DEPENDENCIES)\n";
                $dep_lines .= "\t\$(DCOPIDL) $sourcedir$source.h > $source.kidl || ( rm -f $source.kidl ; false )\n";
                
                $allidls .= $source . "_kidl ";
            }
            
            if ($allidls !~ /$sourcename/) {
                
                $dep_lines_tmp = "";

                if ($skel) {
                    $dep_lines .= "$sourcename.$cxxsuffix: $source.kidl\n";
                    $dep_lines .= "\t\$(DCOPIDL2CPP) --c++-suffix $cxxsuffix --no-signals --no-stub $source.kidl\n";
                } elsif ($stub) {
                    $dep_lines_tmp = "\t\$(DCOPIDL2CPP) --c++-suffix $cxxsuffix --no-signals --no-skel $source.kidl\n";
                } else { # signals - obsolete, remove in KDE 4
                    $dep_lines_tmp = "\t\$(DCOPIDL2CPP) --c++-suffix $cxxsuffix --no-stub --no-skel $source.kidl\n";
                }

                if ($stub || $signals) {
                    $target_adds{"$sourcename.$cxxsuffix"} .= "$sourcename.h ";
                    $dep_lines .= "$sourcename.h: $source.kidl\n";
                    $dep_lines .= $dep_lines_tmp;
                }
                
                $allidls .= $sourcename . " ";
            }
            
            $idlfiles{$program} .= $sourcename . " ";
            
            if ($program =~ /_la$/) {
                $realObjs{$program} .= " $sourcename.lo";
            } else {
                $realObjs{$program} .= " $sourcename.\$(OBJEXT)";
            }
            $sources{$program} .= " $sourcename.$cxxsuffix";
            $sources_changed{$program} = 1;
            $important{$program} .= "$sourcename.h " if (!$skel);
            $idl_output .= "\\\n\t$sourcename.$cxxsuffix $sourcename.h $source.kidl ";
            push(@cleanfiles, "$sourcename.$cxxsuffix");
            push(@cleanfiles, "$sourcename.h");
            push(@cleanfiles, "$sourcename.kidl");
            $dep_files .= " \$(DEPDIR)/$sourcename.P" if ($dep_files !~/$sourcename.P/);
        }
    }
    if ($dep_lines) {
        appendLines($dep_lines);
    }
    
    if (0) {
        my $lookup = "($program)";
        $lookup .= '(|\$\(EXEEXT\))';
        $lookup =~ s/\_/./g;
        $lookup .= ":(.*..$program\_OBJECTS..*)";
        #    $lookup = quotemeta($lookup);
        if ($MakefileData =~ /\n$lookup\n/) {
            
            my $line = "$1$2: ";
            foreach $file (split(' ', $idlfiles{$program})) {
                $line .= "$file.$cxxsuffix ";
            }
            $line .= $3;
            substituteLine($lookup, $line);
        } else {
            print STDERR "no built dependency found $lookup\n";
        }
    }
}

sub tag_UIFILES ()
{
    my @psources = split(/[\034\s]+/, $sources{$program});
    my @depFiles = ();
    
    foreach $source (@psources) {

        if ($source =~ m/\.ui$/) {

            print STDERR "adding UI file $source\n" if ($verbose);

            my $qs = quotemeta($source);
            $sources{$program} =~ s/$qs//;
            $sources_changed{$program} = 1;
      
            $source =~ s/\.ui$//;

            my $sourcedir = '';
            if (-f "$makefileDir/$source.ui") {
                $sourcedir = '$(srcdir)/';
            }

            if (!$uiFiles{$source}) {

                my $dep_lines = "$source.$cxxsuffix: $sourcedir$source.ui $source.h $source.moc\n";
                $dep_lines .= "\trm -f $source.$cxxsuffix\n";
                if (!$kdeopts{"qtonly"}) {
                    $dep_lines .= "\techo '#include <klocale.h>' > $source.$cxxsuffix\n";
                    my ($mangled_source) = $source;
                    $mangled_source =~ s/[^A-Za-z0-9]/_/g;  # get rid of garbage
                    $dep_lines .= "\t\$(UIC) -tr \${UIC_TR} -i $source.h $sourcedir$source.ui > $source.$cxxsuffix.temp ; ret=\$\$?; \\\n";
                    $dep_lines .= "\tsed -e \"s,\${UIC_TR}( \\\"\\\" ),QString::null,g\" $source.$cxxsuffix.temp | sed -e \"s,\${UIC_TR}( \\\"\\\"\\, \\\"\\\" ),QString::null,g\" | sed -e \"s,image\\([0-9][0-9]*\\)_data,img\\1_" . $mangled_source . ",g\" >> $source.$cxxsuffix ;\\\n";
		    $dep_lines .= "\trm -f $source.$cxxsuffix.temp ;\\\n";
                } else {
                    $dep_lines .= "\t\$(UIC) -i $source.h $sourcedir$source.ui > $source.$cxxsuffix; ret=\$\$?; \\\n";
                }
		$dep_lines .= "\tif test \"\$\$ret\" = 0; then echo '#include \"$source.moc\"' >> $source.$cxxsuffix; else rm -f $source.$cxxsuffix ; exit \$\$ret ; fi\n\n";
                $dep_lines .= "$source.h: $sourcedir$source.ui\n";
                $dep_lines .= "\t\$(UIC) -o $source.h $sourcedir$source.ui\n\n";
                $dep_lines .= "$source.moc: $source.h\n";
                $dep_lines .= "\t\$(MOC) $source.h -o $source.moc\n";

                $rule_adds{"$source.$cxxsuffix"} = $dep_lines;

		$uiFiles{$source} = 1;
                $dependmocs{$program} .= " $source.moc";
                $globalmocs{$source} = "\035$source.h\035$source.cpp";
            }
            
            if ($program =~ /_la$/) {
                $realObjs{$program} .= " $source.lo";
            } else {
                $realObjs{$program} .= " $source.\$(OBJEXT)";
            }
            $sources{$program} .= " $source.$cxxsuffix";
            $sources_changed{$program} = 1;
            $important{$program} .= "$source.h ";
            $ui_output .= "\\\n\t$source.$cxxsuffix $source.h $source.moc ";
            push(@cleanfiles, "$source.$cxxsuffix");
            push(@cleanfiles, "source.h");
            push(@cleanfiles, "$source.moc");
            $dep_files .= " \$(DEPDIR)/$source.P" if($dep_files !~/$source.P/ );
        }
    }
}

sub tag_ICON()
{
    my $lookup = '([^\s]*)_ICON\s*=[ \t]*(.*)';
    my $install = "";
    my $uninstall = "";

    while ($MakefileData =~ /\n$lookup/g) {
        my $destdir;
        if ($1 eq "KDE") {
            $destdir = "kde_icondir";
        } else {
            $destdir = $1 . "dir";
        }
        my $iconauto = ($2 =~ /AUTO\s*$/);
        my @appnames = ();
        if ( ! $iconauto ) {
	    my $appicon_str = $2;
            my @_appnames = split(" ", $appicon_str);
            print STDOUT "KDE_ICON processing <@_appnames>\n"   if ($verbose);
            foreach $appname (@_appnames) {
                push(@appnames, quotemeta($appname));
            }
        } else {
            print STDOUT "KDE_ICON processing <AUTO>\n"   if ($verbose);
        }

        my @files = ();
        opendir (THISDIR, ".");
        foreach $entry (readdir(THISDIR)) {
            next if ($entry eq "CVS" || $entry =~ /^\./  || $entry =~ /^Makefile/ || $entry =~ /~$/ || $entry =~ /^\#.*\#$/);
            next if (! -f $entry);
            if ( $iconauto )
              {
                  push(@files, $entry)
                    if ($entry =~ /\.xpm/ || $entry =~ /\.png/ || $entry =~ /\.mng/ || $entry =~ /\.svg/);
              } else {
                  foreach $appname (@appnames) {
                      push(@files, $entry)
                        if ($entry =~ /-$appname\.xpm/ || $entry =~ /-$appname\.png/ || $entry =~ /-$appname\.mng/ || $entry =~ /-$appname\.svg/);
                  }
              }
        }
        closedir (THISDIR);
        
        my %directories = ();
        
        foreach $file (@files) {
            my $newfile = $file;
            my $prefix = $file;
            $prefix =~ s/\.(png|xpm|mng|svg|svgz)$//;
            my $appname = $prefix;
            $appname =~ s/^[^-]+-// if ($appname =~ /-/) ;
            $appname =~ s/^[^-]+-// if ($appname =~ /-/) ;
            $appname = quotemeta($appname);
            $prefix =~ s/$appname$//;
            $prefix =~ s/-$//;
            
            $prefix = 'lo16-app' if ($prefix eq 'mini');
            $prefix = 'lo32-app' if ($prefix eq 'lo');
            $prefix = 'hi48-app' if ($prefix eq 'large');
            $prefix .= '-app' if ($prefix =~ m/^...$/);
            
            my $type = $prefix;
            $type =~ s/^.*-([^-]+)$/$1/;
            $prefix =~ s/^(.*)-[^-]+$/$1/;
            
            my %type_hash =
              (
               'action' => 'actions',
               'app' => 'apps',
               'device' => 'devices',
               'filesys' => 'filesystems',
               'mime' => 'mimetypes'
              );

            if (! defined $type_hash{$type} ) {
                print STDERR "unknown icon type $type in $printname ($file)\n";
                next;
            }

            my %dir_hash =
              (
               'los' => 'locolor/16x16',
               'lom' => 'locolor/32x32',
               'him' => 'hicolor/32x32',
               'hil' => 'hicolor/48x48',
               'lo16' => 'locolor/16x16',
               'lo22' => 'locolor/22x22',
               'lo32' => 'locolor/32x32',
               'hi16' => 'hicolor/16x16',
               'hi22' => 'hicolor/22x22',
               'hi32' => 'hicolor/32x32',
               'hi48' => 'hicolor/48x48',
               'hi64' => 'hicolor/64x64',
               'hi128' => 'hicolor/128x128',
               'hisc' => 'hicolor/scalable',
 	       'cr16' => 'crystalsvg/16x16',
               'cr22' => 'crystalsvg/22x22',
               'cr32' => 'crystalsvg/32x32',