1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
# textcomp.perl
sub do_cmd_textcent{join('', "¢", $_[0]);}
sub do_cmd_textsterling{join('', "£", $_[0]);}
sub do_cmd_textcurrency{join('', "¤", $_[0]);}
sub do_cmd_textyen{join('', "¥", $_[0]);}
sub do_cmd_textbrokenbar{join('', "¦", $_[0]);}
sub do_cmd_textsection{join('', "§", $_[0]);}
sub do_cmd_texthighdieresis{join('', "¨", $_[0]);}
sub do_cmd_textcopyright{join('', "©", $_[0]);}
sub do_cmd_textordfeminine{join('', "ª", $_[0]);}
sub do_cmd_textlogicalnot{join('', "¬", $_[0]);}
sub do_cmd_textregistered{join('', "®", $_[0]);}
sub do_cmd_textmacron{join('', "¯", $_[0]);}
sub do_cmd_textdegree{join('', "°", $_[0]);}
sub do_cmd_textplusminus{join('', "±", $_[0]);}
sub do_cmd_texttwosuperior{join('', "²", $_[0]);}
sub do_cmd_textthreesuperior{join('', "³", $_[0]);}
sub do_cmd_textacute{join('', "´", $_[0]);}
sub do_cmd_textmu{join('', "µ", $_[0]);}
sub do_cmd_textparagraph{join('', "¶", $_[0]);}
sub do_cmd_textperiodcentered{join('', "·", $_[0]);}
sub do_cmd_textonesuperior{join('', "¹", $_[0]);}
sub do_cmd_textordmasculine{join('', "º", $_[0]);}
sub do_cmd_textonequarter{join('', "¼", $_[0]);}
sub do_cmd_textonehalf{join('', "½", $_[0]);}
sub do_cmd_textthreequarters{join('', "¾", $_[0]);}
sub do_cmd_textmultiply{join('', "×", $_[0]);}
sub do_cmd_textdivide{join('', "÷", $_[0]);}
1;
|