# HG changeset patch # User oheimb # Date 850918865 -3600 # Node ID e86a6111cd8b3de64855487aa5b2ee6251f49506 # Parent c2a9bf6c0948c187af28159743faffa6b3a4d72f removed unused symbol_input.pl diff -r c2a9bf6c0948 -r e86a6111cd8b lib/scripts/symbol_input.pl --- a/lib/scripts/symbol_input.pl Wed Dec 18 15:19:42 1996 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,112 +0,0 @@ -# Title: Distribution/lib/scripts/symbol_input.pl -# ID: $Id$ -# Author: Markus Wenzel, David von Oheimb -# Copyright 1996 Technische Universitaet Muenchen -# -# translate symbols into \<...> sequences. -# table must be consistent with Pure/Syntax/symbol_font.ML - -%tab = ( - "\xa1", "\\\\", - "\xa2", "\\\\", - "\xa3", "\\\\", - "\xa4", "\\\\", - "\xa5", "\\\\", - "\xa6", "\\\\", - "\xa7", "\\\\", - "\xa8", "\\\\", - "\xa9", "\\\\", - "\xaa", "\\\\", - "\xab", "\\\\", - "\xac", "\\\\", - "\xad", "\\\\", - "\xae", "\\\\", - "\xaf", "\\\\", - "\xb0", "\\\\", - "\xb1", "\\\\", - "\xb2", "\\\\", - "\xb3", "\\\\", - "\xb4", "\\\\", - "\xb5", "\\\\", - "\xb6", "\\\\", - "\xb7", "\\\\", - "\xb8", "\\\\", - "\xb9", "\\\\", - "\xba", "\\\\", - "\xbb", "\\\\", - "\xbc", "\\\\", - "\xbd", "\\\\", - "\xbe", "\\\\", - "\xbf", "\\\\", - "\xc0", "\\\\", - "\xc1", "\\\\", - "\xc2", "\\\\", - "\xc3", "\\\\", - "\xc4", "\\\\", - "\xc5", "\\\\", - "\xc6", "\\\\", - "\xc7", "\\\\", - "\xc8", "\\\\", - "\xc9", "\\\\", - "\xca", "\\\\", - "\xcb", "\\\\", - "\xcc", "\\\\", - "\xcd", "\\\\", - "\xce", "\\\\", - "\xcf", "\\\\", - "\xd0", "\\\\", - "\xd1", "\\\\", - "\xd2", "\\\\", - "\xd3", "\\\\", - "\xd4", "\\\\", - "\xd5", "\\\\", - "\xd6", "\\\\", - "\xd7", "\\\\", - "\xd8", "\\\\", - "\xd9", "\\\\", - "\xda", "\\\\", - "\xdb", "\\\\", - "\xdc", "\\\\", - "\xdd", "\\\\", - "\xde", "\\\\", - "\xdf", "\\\\", - "\xe0", "\\\\", - "\xe1", "\\\\", - "\xe2", "\\\\", - "\xe3", "\\\\", - "\xe4", "\\\\", - "\xe5", "\\\\", - "\xe6", "\\\\", - "\xe7", "\\\\", - "\xe8", "\\\\", - "\xe9", "\\\\", - "\xea", "\\\\", - "\xeb", "\\\\", - "\xec", "\\\\", - "\xed", "\\\\", - "\xee", "\\\\", - "\xef", "\\\\", - "\xf0", "\\\\", - "\xf1", "\\\\", - "\xf2", "\\\\", - "\xf3", "\\\\", - "\xf4", "\\\\", - "\xf5", "\\\\", - "\xf6", "\\\\", - "\xf7", "\\\\", - "\xf8", "\\\\", - "\xf9", "\\\\", - "\xfa", "\\\\", - "\xfb", "\\\\", - "\xfc", "\\\\", - "\xfd", "\\\\", - "\xfe", "\\\\", - "\xff", "\\\\"); - -$SIG{INT} = "IGNORE"; -$| = 1; - -while () { - s/([\xa1-\xff])/$tab{$1}/g; - print; -}