~ubuntu-branches/ubuntu/karmic/maxima/karmic

« back to all changes in this revision

Viewing changes to interfaces/emacs/imaxima/breqn097a/flexisym.sty

  • Committer: Bazaar Package Importer
  • Author(s): Christophe Sauthier
  • Date: 2009-07-13 15:38:41 UTC
  • mfrom: (3.1.3 squeeze)
  • Revision ID: james.westby@ubuntu.com-20090713153841-gtux06oun30kuuo7
Tags: 5.17.1-1ubuntu1
* Merge from debian unstable, remaining changes (LP: #296643, LP: #242243):
   - debian/maxima-doc.doc-base.{tips, plotting}:
    + Use .shtml instead of .html to fix lintian errors.
   - debian/maxima-emacs.emacsen-install:
    + Install symlinks for source files rather than copying them.  This
      makes find-function work.
    + Install symlink for *.lisp so that we don't need to add
      /usr/share/emacs/site-lisp/maxima to load-path.
  - debian/maxima-emacs.emacsen-startup:
    + Remove use of /usr/share/emacs/site-lisp/maxima, since this
      causes load-path shadows and is not needed anymore.

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
%%
 
2
%% This is file `flexisym.sty',
 
3
%% generated with the docstrip utility.
 
4
%%
 
5
%% The original source files were:
 
6
%%
 
7
%% flexisym.dtx  (with options: `package')
 
8
%% 
 
9
%% This is a generated file.
 
10
%% 
 
11
%% Copyright (C) 1997-2003 by Michael J. Downes
 
12
%% Copyright (C) 2007 by Morten Hoegholm <mh.ctan@gmail.com>
 
13
%% 
 
14
%% This work may be distributed and/or modified under the
 
15
%% conditions of the LaTeX Project Public License, either
 
16
%% version 1.3 of this license or (at your option) any later
 
17
%% version. The latest version of this license is in
 
18
%%    http://www.latex-project.org/lppl.txt
 
19
%% and version 1.3 or later is part of all distributions of
 
20
%% LaTeX version 2005/12/01 or later.
 
21
%% 
 
22
%% This work has the LPPL maintenance status "maintained".
 
23
%% 
 
24
%% This Current Maintainer of this work is Morten Hoegholm.
 
25
%% 
 
26
%% This work consists of the main source file flexisym.dtx
 
27
%% and the derived files
 
28
%%    flexisym.sty, flexisym.pdf, flexisym.ins, flexisym.drv,
 
29
%%    cmbase.sym, mathpazo.sym, mathptmx.sym, msabm.sym.
 
30
%% 
 
31
\ProvidesPackage{flexisym}[2007/12/19 v0.96]
 
32
\let\@xp\expandafter \let\@nx\noexpand
 
33
\edef\do{%
 
34
  \@nx\AtEndOfPackage{%
 
35
    \catcode\number`\"=\number\catcode`\"
 
36
    \relax
 
37
  }%
 
38
}
 
39
\do \let\do\relax
 
40
\catcode`\"=12
 
41
\let\@sym\@gobble
 
42
\DeclareOption{robust}{%
 
43
  \def\@sym#1{%
 
44
    \ifx\protect\@typeset@protect \else\protect#1\@xp\@gobblefour\fi
 
45
  }%
 
46
}
 
47
\def\mg@bin{2}% binary operators
 
48
\def\mg@rel{2}% relations
 
49
%%\def\mg@nre{B}% negated relations
 
50
\def\mg@del{3}% delimiters
 
51
%%\def\mg@arr{B}% arrows
 
52
\def\mg@acc{0}% accents
 
53
\def\mg@cop{3}% cumulative operators (sum, int)
 
54
\def\mg@latin{1}% (Latin) letters
 
55
\def\mg@greek{1}% (lowercase) Greek
 
56
\def\mg@Greek{0}% (capital) Greek
 
57
%%\def\mg@bflatin{4}% bold upright Latin letters ?
 
58
%%\def\mg@Bbb{B}% blackboard bold
 
59
\def\mg@cal{2}% script/calligraphic
 
60
%%\def\mg@frak{5}% Fraktur letters
 
61
\def\mg@digit{0}% decimal digits % 1 = oldstyle, 0 = capital
 
62
\expandafter\let\csname MathChar \endcsname\mathchar
 
63
\expandafter\let\csname Delimiter \endcsname\delimiter
 
64
\expandafter\let\csname Radical \endcsname\radical
 
65
\newcommand{\MathChar}{}
 
66
\edef\MathChar{\csname MathChar \endcsname\noexpand\string}
 
67
\newcommand{\Delimiter}{}
 
68
\edef\Delimiter{\csname Delimiter \endcsname\noexpand\string}
 
69
\newcommand{\Radical}{}
 
70
\edef\Radical{\csname Radical \endcsname\noexpand\string}
 
71
\let\sumlimits\displaylimits
 
72
\let\intlimits\nolimits
 
73
\let\namelimits\displaylimits
 
74
\edef\m@Ord#1#2#3{\csname MathChar \endcsname"0#1#2#3 }
 
75
\edef\m@Var#1#2#3{\csname MathChar \endcsname"7#1#2#3 }
 
76
\edef\m@Bin#1#2#3{\csname MathChar \endcsname"2#1#2#3 }
 
77
\edef\m@Rel#1#2#3{\csname MathChar \endcsname"3#1#2#3 }
 
78
\edef\m@Pun#1#2#3{\csname MathChar \endcsname"6#1#2#3 }
 
79
\edef\m@COs#1#2#3{\csname MathChar \endcsname"1#1#2#3 \sumlimits}
 
80
\edef\m@COi#1#2#3{\csname MathChar \endcsname"1#1#2#3 \intlimits}
 
81
\def\delim@a#1#2#3#4{\ifx\relax#1#2#3#4\else#1\fi #2#3#4}
 
82
\def\delim@b#1#2#3#4{\ifx\relax#1#2#3#4\else#1\fi }
 
83
\def\@tempa{%
 
84
  \@nx\@xp\@nx\delim@a\@nx\csname sd@##1##2##3\@nx\endcsname ##1##2##3 }
 
85
\edef\m@DeL#1#2#3{\csname Delimiter \endcsname"4\@tempa}
 
86
\edef\m@DeR#1#2#3{\csname Delimiter \endcsname"5\@tempa}
 
87
\edef\m@DeB#1#2#3{\csname Delimiter \endcsname"0\@tempa}
 
88
\edef\m@DeA#1#2#3{\csname Delimiter \endcsname"3\@tempa}
 
89
\edef\m@Rad#1#2#3{\csname Radical \endcsname"\@tempa}
 
90
\def\do#1#2{\@xp\def\csname sd@#1\endcsname{#2}}
 
91
\do{300}{028}
 
92
\do{301}{029}
 
93
\do{302}{05B}
 
94
\do{303}{05D}
 
95
\do{304}{262}
 
96
\do{305}{263}
 
97
\do{306}{264}
 
98
\do{307}{265}
 
99
\do{308}{266}
 
100
\do{309}{267}
 
101
\do{30A}{268}
 
102
\do{30B}{269}
 
103
\do{30C}{26A}
 
104
\do{30D}{26B}
 
105
\do{30E}{13D}
 
106
\do{30F}{26E}
 
107
\do{340}{37A}
 
108
\do{341}{37B}
 
109
\do{33A}{33A}
 
110
\do{33B}{33B}
 
111
\do{33E}{33E}
 
112
\do{33C}{26A}
 
113
\do{33D}{26B}
 
114
\do{378}{222}
 
115
\do{379}{223}
 
116
\do{33F}{26C}
 
117
\do{37E}{22A}
 
118
\do{37F}{22B}
 
119
\do{377}{26D}
 
120
\do{30F}{26E}
 
121
\def\m@Acc#1#2#3#4{\mathaccent"#1#2#3{#4}}
 
122
\def\@symAcc{\@sym}
 
123
\let\@symtype\@firstofone
 
124
\def\@symOrd#1#2{\@symtype\mathord{\OrdSymbol{#2}}}
 
125
\def\@symVar{\@symOrd}
 
126
\def\@symBin#1#2{\@symtype\mathbin{\OrdSymbol{#2}}}
 
127
\def\@symRel#1#2{\@symtype\mathrel{\OrdSymbol{#2}}}
 
128
\def\@symPun#1#2{\@symtype\mathpunct{\OrdSymbol{#2}}}
 
129
\def\@symCOi#1#2{\@symtype{\mathop{\OrdSymbol{#2}}\intlimits}}
 
130
\def\@symCOs#1#2{\@symtype{\mathop{\OrdSymbol{#2}}\sumlimits}}
 
131
\def\@symOpe#1#2{\@symtype\mathopen{\OrdSymbol{#2}}}
 
132
\def\@symClo#1#2{\@symtype\mathclose{\OrdSymbol{#2}}}
 
133
\def\@symDeL#1#2{\@symtype\mathopen{\OrdSymbol{#2}}}
 
134
\def\@symDeR#1#2{\@symtype\mathclose{\OrdSymbol{#2}}}
 
135
\def\@symDeB#1#2{\@symtype\mathord{\OrdSymbol{#2}}}
 
136
\def\@symInn#1#2{\@symtype\mathinner{\OrdSymbol{#2}}}
 
137
\def\@xnce#1{\@xp\@nx\csname#1\endcsname}
 
138
\let\sym@global\global
 
139
\def\DeclareFlexSymbol#1#2#3#4{%
 
140
  \begingroup
 
141
  \edef\@tempb{\@nx\@sym\@nx#1\@xnce{m@#2}\@xnce{mg@#3}#4}%
 
142
  \ifcat\@nx#1\relax
 
143
    \sym@global\let#1\@tempb
 
144
  \else
 
145
    \sym@global\mathcode`#1="8000\relax
 
146
    \lccode`\~=`#1\relax
 
147
    \lowercase{\sym@global\let~\@tempb}%
 
148
  \fi
 
149
  \endgroup
 
150
}
 
151
\def\DeclareFlexCompoundSymbol#1#2#3{%
 
152
  \@xp\DeclareRobustCommand\@xp#1\@xp{\csname @sym#2\endcsname#1{#3}}%
 
153
  \sym@global\let#1#1\relax
 
154
}
 
155
\DeclareRobustCommand\textchar{\text@char\textfont}
 
156
\DeclareRobustCommand\scriptchar{\text@char\scriptfont}%
 
157
\def\text@char@a{\?\endgroup}%
 
158
\def\text@char@sym#1#2#3{%
 
159
  \begingroup
 
160
    \let\@sym\relax % defense against infinite loops
 
161
    \the\text@script@char#3%
 
162
    \afterassignment\text@char@a
 
163
    \chardef\?="%
 
164
}
 
165
\def\text@char#1#2{\begingroup\check@mathfonts
 
166
  \let\text@script@char#1\let\@sym\text@char@sym
 
167
  \let\@symtype\@secondoftwo \let\OrdSymbol\@firstofone
 
168
  \let\ifmmode\iftrue \everymath{$\@gobble}%$
 
169
  \def\mkern{\muskip\z@}\let\mskip\mkern
 
170
  \ifcat\relax\noexpand#2#2%
 
171
  \else
 
172
    \lccode`\~=\expandafter`\string#2\relax
 
173
    \lowercase{~}%
 
174
  \fi
 
175
  \endgroup
 
176
}
 
177
\providecommand\textprime{}
 
178
\DeclareRobustCommand\textprime{\leavevmode
 
179
  \raise.8ex\hbox{\text@char\scriptfont\prime}%
 
180
}
 
181
\@ifundefined{resetMathstrut@}{}{%
 
182
  \def\resetMathstrut@{%
 
183
    \setbox\z@\hbox{\textchar\vert}%
 
184
    \ht\Mathstrutbox@\ht\z@ \dp\Mathstrutbox@\dp\z@
 
185
  }%
 
186
}
 
187
\@ifundefined{rightarrowfill@}{}{%
 
188
  \def\rightarrowfill@#1{\m@th\setboxz@h{$#1\relbar$}\ht\z@\z@
 
189
    $#1\copy\z@\mkern-6mu\cleaders
 
190
    \hbox{$#1\mkern-2mu\box\z@\mkern-2mu$}\hfill
 
191
    \mkern-6mu\OrdSymbol{\rightarrow}$}
 
192
  \def\leftarrowfill@#1{\m@th\setboxz@h{$#1\relbar$}\ht\z@\z@
 
193
    $#1\OrdSymbol{\leftarrow}\mkern-6mu\cleaders
 
194
    \hbox{$#1\mkern-2mu\copy\z@\mkern-2mu$}\hfill
 
195
    \mkern-6mu\box\z@$}
 
196
  \def\leftrightarrowfill@#1{\m@th\setboxz@h{$#1\relbar$}\ht\z@\z@
 
197
    $#1\OrdSymbol{\leftarrow}\mkern-6mu\cleaders
 
198
    \hbox{$#1\mkern-2mu\box\z@\mkern-2mu$}\hfill
 
199
    \mkern-6mu\OrdSymbol{\rightarrow}$}
 
200
}
 
201
\def\binrel@sym#1#2#3#4#5{%
 
202
  \xdef\binrel@@##1{%
 
203
    \ifx\m@Ord#2\@nx\@symOrd
 
204
    \else\ifx\m@Var#2\@nx\@symVar
 
205
    \else\ifx\m@COs#2\@nx\@symCOs
 
206
    \else\ifx\m@COi#2\@nx\@symCOi
 
207
    \else\ifx\m@Bin#2\@nx\@symBin
 
208
    \else\ifx\m@Rel#2\@nx\@symRel
 
209
    \else\ifx\m@Pun#2\@nx\@symPun
 
210
    \else\@nx\@symErr \fi\fi\fi\fi\fi\fi\fi
 
211
  ?{\@nx\OrdSymbol{##1}}}%
 
212
}
 
213
\def\binrel@a{%
 
214
  \def\@symOrd##1##2{\gdef\binrel@@####1{\@symOrd##1{\OrdSymbol{####1}}}}%
 
215
  \def\@symVar##1##2{\gdef\binrel@@####1{\@symVar##1{\OrdSymbol{####1}}}}%
 
216
  \def\@symCOs##1##2{\gdef\binrel@@####1{\@symCOs##1{\OrdSymbol{####1}}}}%
 
217
  \def\@symCOi##1##2{\gdef\binrel@@####1{\@symCOi##1{\OrdSymbol{####1}}}}%
 
218
  \def\@symBin##1##2{\gdef\binrel@@####1{\@symBin##1{\OrdSymbol{####1}}}}%
 
219
  \def\@symRel##1##2{\gdef\binrel@@####1{\@symRel##1{\OrdSymbol{####1}}}}%
 
220
  \def\@symPun##1##2{\gdef\binrel@@####1{\@symPun##1{\OrdSymbol{####1}}}}%
 
221
}
 
222
\def\binrel@#1{%
 
223
  \setbox\z@\hbox{$%
 
224
    \let\mathchoice\@gobblethree
 
225
    \let\@sym\binrel@sym \binrel@a
 
226
    #1$}%
 
227
}
 
228
\def\@symextension{sym}
 
229
\newcommand\usesymbols[1]{%
 
230
  \@for\@tempb:=#1\do{%
 
231
    \@xp\@onefilewithoptions\@xp{\@tempb}[][]\@symextension
 
232
  }%
 
233
}
 
234
\newcommand\ProvidesSymbols[1]{\ProvidesFile{#1.sym}}
 
235
\DeclareRobustCommand{\not}[1]{\@symRel\not{\OrdSymbol{\notRel#1}}}
 
236
\DeclareRobustCommand{\OrdSymbol}[1]{%
 
237
  \begingroup\mathchars@reset#1\endgroup
 
238
}
 
239
\def\mathchars@reset{\let\@sym\@sym@ord \let\@symtype\@symtype@ord
 
240
  \let\OrdSymbol\relax}
 
241
\def\@symtype@ord#1#{}% a strange sort of \@gobble
 
242
\def\@sym@ord#1#2{\@xp\@sym@ord@a\string#2\@nil}%
 
243
\begingroup
 
244
\lccode`\.=`\@ \lowercase{\endgroup
 
245
\def\@sym@ord@a#1.}#2#3\@nil#4#5#6{%
 
246
  \csname MathChar \endcsname"0%
 
247
    \if D#2\@xp\delim@b\csname sd@#4#5#6\endcsname#4#5#6
 
248
    \else #4#5#6
 
249
    \fi
 
250
}
 
251
\@ifpackageloaded{amsmath}{%
 
252
  \begingroup
 
253
  \long\def\next#1\mathchardef\std@minus\mathcode`\-\relax
 
254
                  \mathchardef\std@equal\mathcode`\=\relax#2\flexi@stop{%
 
255
    \toks@{#1#2}%
 
256
    \xdef\@begindocumenthook{\the\toks@}%
 
257
  }%
 
258
  \expandafter\next\@begindocumenthook\flexi@stop
 
259
  \endgroup
 
260
}{}
 
261
\AtBeginDocument{%
 
262
\def\newmcodes@{%
 
263
  \mathcode `\'39\mathcode `\*42\mathcode `\."613A
 
264
  \ifnum\mathcode`\-=45
 
265
  \else
 
266
    \ifnum\mathcode`\-=32768
 
267
    \else
 
268
      \mathchardef \std@minus \mathcode `\-\relax
 
269
    \fi
 
270
  \fi
 
271
  \mathcode `\-45 \mathcode `\/47\mathcode `\:"603A\relax
 
272
}%
 
273
}
 
274
\DeclareOption{mathstyleoff}{\PassOptionsToPackage{mathactivechars}{mathstyle}}
 
275
\DeclareOption{cmbase}{\usesymbols{cmbase}}
 
276
\DeclareOption{mathpazo}{\usesymbols{mathpazo}}
 
277
\DeclareOption{mathptmx}{\usesymbols{mathptmx}}
 
278
\ExecuteOptions{cmbase}
 
279
\ProcessOptions\relax
 
280
\renewcommand{\lnot}{\neg}
 
281
\renewcommand{\land}{\wedge}
 
282
\renewcommand{\lor}{\vee}
 
283
\renewcommand{\le}{\leq}
 
284
\renewcommand{\ge}{\geq}
 
285
\renewcommand{\ne}{\neq}
 
286
\renewcommand{\owns}{\ni}
 
287
\renewcommand{\gets}{\leftarrow}
 
288
\renewcommand{\to}{\rightarrow}
 
289
\renewcommand{\|}{\Vert}
 
290
\RequirePackage{mathstyle}
 
291
\endinput
 
292
%%
 
293
%% End of file `flexisym.sty'.