-d 8'*{\b++} -d [~8]{'*} \b '{'}\s '{\w'}\n '{'}\n -d '{#[~'015]*{\b(8'*)*([0..9]+)(-\a)++}\n '<'> [.pa]\s '<'> [.pa]\s '<'> [.pa]\s '<'> [.pa]\s [.xpa]\s '{'}\b'[']\b\n Rname:\s\nName:\s\nOffice\sNumber:\s\n\n 8'* 496-6 8'*922-6 9(415) 8'*923- üPhoneSubst.Tioga "Trans" command file to convert PARC phone list to CNF file for Thrush/Finch Last Edited by: Swinehart, February 22, 1985 9:13:05 am PST Regularize Intelnet numbers Eliminate "temp" designations Put {xxx} around extension or external location For external locations, copy phone number from trailing position to extension position Get rid of Phone number or location information following name. Deal with six forms of RName designations: {num} , Ann => {num} [ABDerrick.pa] Derrick, Ann {num} , Doug => {num} [Terry.pa] Terry, Doug {num} , Johan => {num} [deKleer.pa] deKleer, Johan {num} Anderson, => {num} [Lee.pa] Anderson, Lee {num} Zellweger, Polle => {num} [PolleZ.pa] Zellweger, Polle {num} Abraham, Margaret => {num} [MAbraham.xpa] Abraham, Margaret Convert to CNF form. Convert all telephone numbers to standard Intelnet or DDD form. nxn-xxx-xxxx => 8*(nxn)xxx-xxxx 496-6xxx => 8*922-6xxx xxx-xxxx => 9(415)xxx-xxxx xxxx => 8*923-xxxx ʹ˜J™J™LJ™;J˜™J˜ —J˜™J˜ —J˜™/J˜1—J˜™VJ˜Y—J™™?J˜*—J˜™*J™=J™5J™=J™7J™FJ™B—˜J˜¤J˜J˜\J˜J˜J˜J˜nJ˜J˜r—J˜™J˜j—J˜™?J™J™J™J™J™J˜JJ˜BJ˜DJ˜<——…—¼ q