#!/bin/bash

# This script extracts examples from OBJ.spec for testing purposes.

IFS='' read -r -d '' prog <<'EOF'
BEGINFILE { g=0; }
          /^    (v[tnp]? [^is]|#|mtllib\b|g\b)/ {if(!inside){ g++; inside=1; }}
	  /^[^ ]/{inside=0;}                    { if(inside) {print $0 > sprintf("%02d",g) ".obj"}}
EOF
awk "$prog" ../doc/OBJ.spec