suwi/utl/frag.awk
2025-11-11 23:15:54 +01:00

13 lines
217 B
Awk
Executable File

#!/usr/bin/env -S awk -f
BEGIN {mode = "any"; lineno = 1;}
{lineno++;}
/@@/ {mode = "any"; $0 = ("#line " lineno);}
/%%/ {mode = "vert";}
/##/ {mode = "frag"; $0 = ("#line " lineno);}
mode == "any"
mode == "frag"