DTJ_PROGRAM_FILE
case DTJ_PROGRAM_FILE:
p->dtjp_type == DTJ_PROGRAM_FILE);
p = dtj_program_create(env, DTJ_PROGRAM_FILE, file);