TransParcPhoneListToCNF.Tioga
"Trans" command file to convert OSD phone list to CNF file for Thrush/Finch
Last Edited by: Swinehart, October 19, 1985 2:31:48 pm PDT
Some entries are continuations of previous ones:
DomainDesignator PhoneNumber Location Secretary
Where the gaps are tabs
Put in the dummy name --,-- temporarily
\n \n--,--
Entries are in the form:
Name DomainDesignator PhoneNumber Location Secretary
Where the gaps are tabs
Eliminate the stuff trailing the phone number, and add Intelnet prefix to the number.
<lname:[~',]++>',['040'015]**<fname:[~'011]++>['011]++<domain:\s>\b<num:\s>\b<rest:[~'015]*>\n |<domain>{<lname>,<fname>}8*<num>\n
Replicate name where --,-- patterns appear
<name:'{[~'}]++'}><rest:[~'{]++>'{'-'-','-'-'} <name><rest><name>
Deal with four forms of RName designations:
Abraham, Margaret => [MAbraham] Abraham, Margaret
'{<last:[~'<][~',]++>',<finit:#><first:[~'}]++>'} {'<<finit><last>'>,<finit><first>}
<CookieMcBain>, Cookie => [CookieMcBain] McBain, Cookie
'{'<<pref:[~'M]**>Mc<last:[~'>]++>'><rest:[~'}]++>'} {[<pref>Mc<last>]Mc<last><rest>}
<deKleer>, Johan => [deKleer] deKleer, Johan
'{'<<last:['a..'z][~'>]**>'><rest:[~'}]++>'} {[<last>]<last><rest>}
<AnnBDerrick>, Ann => [AnnBDerrick] Derrick, Ann)
<Terry>, Doug => [Terry] Terry, Doug
'{'<<pref:#*><last:['A..'Z][~'A..'Z]++>'><rest:[~'}]++>'} {[<pref><last>]<last><rest>}
Convert domain designations to GV Registries
'|Bay '|OSBUBayshore
'|North '|OSBUNorth
'|South '|OSBUSouth
'|Assoc '|OSDAssociates
'|VPA '|PAVisitors
'|PARC '|XPA
Convert to CNF form.
'|<registry:#*>'{'[<rname:#*>']<last:#*>',<first:#*>'}<num:#*>\n Rname:\s<rname>.<registry>\nName:\s<last>,\s<first>\nOffice\sNumber:\s<num>\n\n