50 lines
564 B
Awk
50 lines
564 B
Awk
|
@include "somelib"
|
||
|
|
||
|
function do_stuff(a, b) {
|
||
|
return a + b;
|
||
|
}
|
||
|
|
||
|
function x::sum(a, b) {
|
||
|
return a + b;
|
||
|
}
|
||
|
|
||
|
BEGIN {
|
||
|
do_stuff("hi", 42);
|
||
|
|
||
|
arr[1] = "some_value";
|
||
|
|
||
|
for (i in arr) delete arr[i];
|
||
|
|
||
|
"cal" | getline line;
|
||
|
|
||
|
printf("%s", line);
|
||
|
close("cal");
|
||
|
}
|
||
|
|
||
|
/[a-z]/ {
|
||
|
# Here goes comment
|
||
|
split($0, arr, ",");
|
||
|
|
||
|
next;
|
||
|
}
|
||
|
|
||
|
END {
|
||
|
for (x = 1; x <= 12; x++) {
|
||
|
print tolower($x) > "/dev/stderr"
|
||
|
|
||
|
if (x == 9)
|
||
|
break;
|
||
|
else if (x == 5)
|
||
|
continue;
|
||
|
}
|
||
|
|
||
|
switch(x) {
|
||
|
case 1:
|
||
|
case 2:
|
||
|
default:
|
||
|
typeof(x);
|
||
|
}
|
||
|
|
||
|
exit 1;
|
||
|
}
|