!759

p {

  S java = loadTextFile(getProgramFile("#1005014", "mochadoom.java"));

  L<S> tok = javaTok(java);

  L<Int> indexes = jfindAll(tok, "package");

  if (empty(indexes) || indexes.get(0) != 1)

    indexes.add(0, 1);

  for i over indexes: {

    int from = indexes.get(i);

    int to = i+1 < l(indexes) ? indexes.get(i+1) : l(tok);

    L<S> subtok = cncSubList(tok, from, to);

    S src = join(subtok);

    //print(shorten(src, 80));

    S pack = tok_packageName(subtok);

    print("Package: " + quote(pack));

    L<L<S>> classes = allClasses(subtok);

    for (L<S> c : classes) {

      //print("  Class: " + shorten(join(c), 80));

      print("  Class: " + quote(getClassDeclarationName(c)));

    }

    if (empty(classes))

      print("No classes?? " + quote(src));

    else if (l(classes) == 1) {

      S fileName = addSlash(pack.replace('.', '/')) + getClassDeclarationName(first(classes)) + ".java";

      print("File name: " + fileName);

    } else

      fail("Not supported");

    print();

    // TODO saveTextFile(getProgramFile("src", sourceName));

  }

}