% File tibadjusttsheg.otp % Creation of the tsheg-mark after tibetan word % Copyright (c) 1997 Norbert Preining % this file is part of the otibet package. % % Killing wrong tshegs inserted at spaces by intib! input: 2; output: 2; aliases: c = ( @"0f00 | ( @"0f40 - @"0f47 ) | ( @"0f49 - @"0f69 ) | ( @"0f71 - @"0f8b )) ; tsheg = ( @"0f0b ) ; expressions: ^({c}) {tsheg} => \1 ;