From cf4d2164c6ed64dccbe7d8abdd8b0c95f8509a1c Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Tue, 19 Feb 2008 17:05:28 +0000
Subject: new latex collection shipunov (18feb08)

git-svn-id: svn://tug.org/texlive/trunk@6680 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/latex/shipunov/punct.sty | 38 ++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 Master/texmf-dist/tex/latex/shipunov/punct.sty

(limited to 'Master/texmf-dist/tex/latex/shipunov/punct.sty')

diff --git a/Master/texmf-dist/tex/latex/shipunov/punct.sty b/Master/texmf-dist/tex/latex/shipunov/punct.sty
new file mode 100644
index 00000000000..84c3c2692e9
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/shipunov/punct.sty
@@ -0,0 +1,38 @@
+% Author: Alexey B. Shipunov (plantago@herba.msu.ru)
+
+\ProvidesPackage{punct}%
+        [2008/02/06 v0.3 Straight punctuation with italic text]
+
+% Catcodes redefined! May be dangerous...
+
+\def\PUNactive{%
+\let\Z@P=,%
+\let\T@T=.%
+\let\D@V=:%
+\let\T@C=;%
+\let\O@C=(%
+\let\Z@C=)%
+\let\V@L=!%
+\let\V@P=?%
+\catcode`,=\active%
+\catcode`.=\active%
+\catcode`;=\active%
+\catcode`:=\active%
+\catcode`(=\active%
+\catcode`)=\active%
+\catcode`!=\active%
+\catcode`?=\active}
+
+{\PUNactive%
+\gdef,{{\/\reset@font\Z@P}}%
+\gdef.{{\/\reset@font\T@T}}%
+\gdef:{{\/\reset@font\D@V}}%
+\gdef;{{\/\reset@font\T@C}}%
+\gdef({{\/\reset@font\O@C}}%
+\gdef){{\/\reset@font\Z@C}}%
+\gdef!{{\/\reset@font\V@L}}%
+\gdef?{{\/\reset@font\V@P}}}
+
+\def\ITP{\PUNactive\itshape}
+
+\endinput
-- 
cgit v1.2.3

