|
Packit Service |
fb6fa5 |
# extract - extract C source files from GTK Tutorial
|
|
Packit Service |
fb6fa5 |
# Copyright (C) Tony Gale 1998
|
|
Packit Service |
fb6fa5 |
# Contact: gale@gtk.org
|
|
Packit Service |
fb6fa5 |
#
|
|
Packit Service |
fb6fa5 |
# Command Switches:
|
|
Packit Service |
fb6fa5 |
# -c : Just do checking rather than output files
|
|
Packit Service |
fb6fa5 |
# -f <filename> : Extract a specific file
|
|
Packit Service |
fb6fa5 |
# -d : Extract files to current directory
|
|
Packit Service |
fb6fa5 |
# -v : Verbose
|
|
Packit Service |
fb6fa5 |
|
|
Packit Service |
fb6fa5 |
BEGIN {in_example=0; check=0; spec_example=""; do_output=0; flatten=0; verbose=0;
|
|
Packit Service |
fb6fa5 |
for (i=0 ; i < ARGC ; i++) {
|
|
Packit Service |
fb6fa5 |
if ( ARGV[i] == "-c" ) {
|
|
Packit Service |
fb6fa5 |
check = 1;
|
|
Packit Service |
fb6fa5 |
ARGV[i]="";
|
|
Packit Service |
fb6fa5 |
} else if ( ARGV[i] == "-f" ) {
|
|
Packit Service |
fb6fa5 |
spec_example=ARGV[i+1];
|
|
Packit Service |
fb6fa5 |
ARGV[i]="";
|
|
Packit Service |
fb6fa5 |
ARGV[i+1]="";
|
|
Packit Service |
fb6fa5 |
if ( length(spec_example) == 0 ) {
|
|
Packit Service |
fb6fa5 |
print "usage: -f <filename>";
|
|
Packit Service |
fb6fa5 |
exit;
|
|
Packit Service |
fb6fa5 |
}
|
|
Packit Service |
fb6fa5 |
} else if ( ARGV[i] == "-d" ) {
|
|
Packit Service |
fb6fa5 |
flatten = 1;
|
|
Packit Service |
fb6fa5 |
ARGV[i]="";
|
|
Packit Service |
fb6fa5 |
} else if ( ARGV[i] == "-v" ) {
|
|
Packit Service |
fb6fa5 |
verbose = 1;
|
|
Packit Service |
fb6fa5 |
ARGV[i] = "";
|
|
Packit Service |
fb6fa5 |
}
|
|
Packit Service |
fb6fa5 |
}
|
|
Packit Service |
fb6fa5 |
}
|
|
Packit Service |
fb6fa5 |
|
|
Packit Service |
fb6fa5 |
$2 == "example-end" && in_example == 0 { printf("\nERROR: multiple ends at line %d\n", NR) > "/dev/stderr";
|
|
Packit Service |
fb6fa5 |
exit}
|
|
Packit Service |
fb6fa5 |
$2 == "example-end" { in_example=0; do_output=0 }
|
|
Packit Service |
fb6fa5 |
|
|
Packit Service |
fb6fa5 |
in_example==1 && check==0 && do_output==1 { gsub(/&/, "\\&", $0);
|
|
Packit Service |
fb6fa5 |
gsub(/</, "<", $0);
|
|
Packit Service |
fb6fa5 |
gsub(/>/, ">", $0);
|
|
Packit Service |
fb6fa5 |
print $0 >file_name }
|
|
Packit Service |
fb6fa5 |
|
|
Packit Service |
fb6fa5 |
$2 == "example-start" && in_example == 1 { printf("\nERROR: nested example at line %d\n", NR) > "/dev/stderr";
|
|
Packit Service |
fb6fa5 |
exit}
|
|
Packit Service |
fb6fa5 |
|
|
Packit Service |
fb6fa5 |
$2 == "example-start" { in_example=1 }
|
|
Packit Service |
fb6fa5 |
|
|
Packit Service |
fb6fa5 |
$2 == "example-start" && check == 0 \
|
|
Packit Service |
fb6fa5 |
{ if ( (spec_example == "") || (spec_example == $4) ) {
|
|
Packit Service |
fb6fa5 |
if ( flatten == 0 ) {
|
|
Packit Service |
fb6fa5 |
if (file_name != "")
|
|
Packit Service |
fb6fa5 |
close(file_name);
|
|
Packit Service |
fb6fa5 |
file_name = sprintf("%s/%s",$3, $4);
|
|
Packit Service |
fb6fa5 |
command = sprintf("mkdir -p %s", $3);
|
|
Packit Service |
fb6fa5 |
system(command);
|
|
Packit Service |
fb6fa5 |
} else {
|
|
Packit Service |
fb6fa5 |
file_name = $4;
|
|
Packit Service |
fb6fa5 |
}
|
|
Packit Service |
fb6fa5 |
if (verbose == 1)
|
|
Packit Service |
fb6fa5 |
printf("%s\n", file_name);
|
|
Packit Service |
fb6fa5 |
do_output=1;
|
|
Packit Service |
fb6fa5 |
}
|
|
Packit Service |
fb6fa5 |
}
|
|
Packit Service |
fb6fa5 |
|
|
Packit Service |
fb6fa5 |
|
|
Packit Service |
fb6fa5 |
END {}
|
|
Packit Service |
fb6fa5 |
|
|
Packit Service |
fb6fa5 |
|
|
Packit Service |
fb6fa5 |
|