function base_dir(f) { ne = split(f, s, "/") for(k=ne;k>=1 && s[k] != "src";k--); r = s[k] for(j=k+1;j