14 lines
270 B
Perl
Executable File
14 lines
270 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
while (<>) {
|
|
print $_;
|
|
print "#include \"main2.h\";\n" if m/USER CODE BEGIN Includes/;
|
|
print " my_setup_1();\n" if m/USER CODE BEGIN 1/;
|
|
print " my_setup_2();\n" if m/USER CODE BEGIN 2/;
|
|
print " my_loop();\n" if m/USER CODE BEGIN 3/;
|
|
}
|
|
|
|
|
|
|
|
|