private void updateNames(CompilerStructure struc) { Vector procedureCount = new Vector(); CompilerStructure s, proc; if ((struc.type == struc.PROGRAM) && (struc.head != null)) { s = struc; do { proc = s.head.head.head; int cnt = getProcedureCount(proc.value, procedureCount); setProcedureCount(proc.value, ++cnt, procedureCount); proc.value = proc.value + '~' + cnt; s = s.tail; } while (s != null); } if ((struc.type == struc.PROGRAM) && (struc.head != null)) { s = struc; do { proc = s.head.head.head; String pv = proc.value; if (pv.indexOf('~') > 0) pv = pv.substring(0, pv.indexOf('~')); proc.value += "/" + getProcedureCount(pv, procedureCount); s = s.tail; } while (s != null); } } // end of PrologCompiler.updateNames(CompilerStructure)