add-conditional.pl « Mono.C5 « class « mcs - github.com/mono/mono.git - Unnamed repository; edit this file 'description' to name the repository.

Welcome to mirror list, hosted at ThFree Co, Russian Federation.

add-conditional.pl « Mono.C5 « class « mcs - github.com/mono/mono.git - Unnamed repository; edit this file 'description' to name the repository.

index : github.com/mono/mono.git

Unnamed repository; edit this file 'description' to name the repository.

www-data

summary refs log tree commit diff

path: root/mcs/class/Mono.C5/add-conditional.pl

blob: ac758cc9b6bb7331ffd73fe9b15f28d7c0d058dc (plain)

#!/usr/bin/perl -w
use strict;

foreach my $file (@ARGV) {
    open FILE,"+<",$file;
    my $contents = "";
    while (defined ($_ = <FILE>)) {
	$contents .= $_;
    }
    truncate FILE, 0;
    seek FILE, 0, 0;
    print FILE "#if NET_2_0\n";
    print FILE $contents . "\n";
    print FILE "#endif\n";
    close FILE;
}