Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 152e34f3

Von Jan Büren vor mehr als 1 Jahr hinzugefügt

  • ID 152e34f3117ea326b72d1f67cbc1eedb24b41353
  • Vorgänger 87e61ece
  • Nachfolger 6a2df1b7

Keine gepatchte Version von embedfile.sty ab TexLive 2021/2022 bereitstellen

Gepatchte Version:

% Project: embedfile
% Version: 2018/11/01 v2.8

In TexLive 2022 verfügbar:

% Project: embedfile
% Version: 2020-04-24 v2.11

Unterschiede anzeigen:

texmf/embedfile.sty
1 
%% !!NOTE NOTE NOTE!!
2 
%%
3 
%% This is a modified version of `embedfile.sty' generated from a
4 
%% modified `embedfile.dtx' incorporating the following pull request:
5 
%% https://github.com/ho-tex/oberdiek/pull/72
6 
%%
7 
%% This PR adds support for creating PDF/A-compliant attachments. See
8 
%% also the following issue:
9 
%% https://github.com/ho-tex/oberdiek/issues/37
10 
%%
11 
%% !!END OF NOTE NOTE NOTE!!
12 
%%
13 
%%
14 
%% This is file `embedfile.sty',
15 
%% generated with the docstrip utility.
16 
%%
17 
%% The original source files were:
18 
%%
19 
%% embedfile.dtx  (with options: `package')
20 
%%
21 
%% This is a generated file.
22 
%%
23 
%% Project: embedfile
24 
%% Version: 2018/11/01 v2.8
25 
%%
26 
%% Copyright (C) 2006-2011 by
27 
%%    Heiko Oberdiek <heiko.oberdiek at googlemail.com>
28 
%%
29 
%% This work may be distributed and/or modified under the
30 
%% conditions of the LaTeX Project Public License, either
31 
%% version 1.3c of this license or (at your option) any later
32 
%% version. This version of this license is in
33 
%%    http://www.latex-project.org/lppl/lppl-1-3c.txt
34 
%% and the latest version of this license is in
35 
%%    http://www.latex-project.org/lppl.txt
36 
%% and version 1.3 or later is part of all distributions of
37 
%% LaTeX version 2005/12/01 or later.
38 
%%
39 
%% This work has the LPPL maintenance status "maintained".
40 
%%
41 
%% This Current Maintainer of this work is Heiko Oberdiek.
42 
%%
43 
%% The Base Interpreter refers to any `TeX-Format',
44 
%% because some files are installed in TDS:tex/generic//.
45 
%%
46 
%% This work consists of the main source file embedfile.dtx
47 
%% and the derived files
48 
%%    embedfile.sty, embedfile.pdf, embedfile.ins, embedfile.drv,
49 
%%    dtx-attach.sty, embedfile-example-plain.tex,
50 
%%    embedfile-example-collection.tex, embedfile-test1.tex,
51 
%%    embedfile-test2.tex, embedfile-test3.tex,
52 
%%    embedfile-test4.tex.
53 
%%
54 
\begingroup\catcode61\catcode48\catcode32=10\relax%
55 
  \catcode13=5 % ^^M
56 
  \endlinechar=13 %
57 
  \catcode35=6 % #
58 
  \catcode39=12 % '
59 
  \catcode44=12 % ,
60 
  \catcode45=12 % -
61 
  \catcode46=12 % .
62 
  \catcode58=12 % :
63 
  \catcode64=11 % @
64 
  \catcode123=1 % {
65 
  \catcode125=2 % }
66 
  \expandafter\let\expandafter\x\csname ver@embedfile.sty\endcsname
67 
  \ifx\x\relax % plain-TeX, first loading
68 
  \else
69 
    \def\empty{}%
70 
    \ifx\x\empty % LaTeX, first loading,
71 
      % variable is initialized, but \ProvidesPackage not yet seen
72 
    \else
73 
      \expandafter\ifx\csname PackageInfo\endcsname\relax
74 
        \def\x#1#2{%
75 
          \immediate\write-1{Package #1 Info: #2.}%
76 
        }%
77 
      \else
78 
        \def\x#1#2{\PackageInfo{#1}{#2, stopped}}%
79 
      \fi
80 
      \x{embedfile}{The package is already loaded}%
81 
      \aftergroup\endinput
82 
    \fi
83 
  \fi
84 
\endgroup%
85 
\begingroup\catcode61\catcode48\catcode32=10\relax%
86 
  \catcode13=5 % ^^M
87 
  \endlinechar=13 %
88 
  \catcode35=6 % #
89 
  \catcode39=12 % '
90 
  \catcode40=12 % (
91 
  \catcode41=12 % )
92 
  \catcode44=12 % ,
93 
  \catcode45=12 % -
94 
  \catcode46=12 % .
95 
  \catcode47=12 % /
96 
  \catcode58=12 % :
97 
  \catcode64=11 % @
98 
  \catcode91=12 % [
99 
  \catcode93=12 % ]
100 
  \catcode123=1 % {
101 
  \catcode125=2 % }
102 
  \expandafter\ifx\csname ProvidesPackage\endcsname\relax
103 
    \def\x#1#2#3[#4]{\endgroup
104 
      \immediate\write-1{Package: #3 #4}%
105 
      \xdef#1{#4}%
106 
    }%
107 
  \else
108 
    \def\x#1#2[#3]{\endgroup
109 
      #2[{#3}]%
110 
      \ifx#1\@undefined
111 
        \xdef#1{#3}%
112 
      \fi
113 
      \ifx#1\relax
114 
        \xdef#1{#3}%
115 
      \fi
116 
    }%
117 
  \fi
118 
\expandafter\x\csname ver@embedfile.sty\endcsname
119 
\ProvidesPackage{embedfile}%
120 
  [2018/11/01 v2.8 Embed files into PDF (HO)]%
121 
\begingroup\catcode61\catcode48\catcode32=10\relax%
122 
  \catcode13=5 % ^^M
123 
  \endlinechar=13 %
124 
  \catcode123=1 % {
125 
  \catcode125=2 % }
126 
  \catcode64=11 % @
127 
  \def\x{\endgroup
128 
    \expandafter\edef\csname EmFi@AtEnd\endcsname{%
129 
      \endlinechar=\the\endlinechar\relax
130 
      \catcode13=\the\catcode13\relax
131 
      \catcode32=\the\catcode32\relax
132 
      \catcode35=\the\catcode35\relax
133 
      \catcode61=\the\catcode61\relax
134 
      \catcode64=\the\catcode64\relax
135 
      \catcode123=\the\catcode123\relax
136 
      \catcode125=\the\catcode125\relax
137 
    }%
138 
  }%
139 
\x\catcode61\catcode48\catcode32=10\relax%
140 
\catcode13=5 % ^^M
141 
\endlinechar=13 %
142 
\catcode35=6 % #
143 
\catcode64=11 % @
144 
\catcode123=1 % {
145 
\catcode125=2 % }
146 
\def\TMP@EnsureCode#1#2{%
147 
  \edef\EmFi@AtEnd{%
148 
    \EmFi@AtEnd
149 
    \catcode#1=\the\catcode#1\relax
150 
  }%
151 
  \catcode#1=#2\relax
152 
}
153 
\TMP@EnsureCode{39}{12}% '
154 
\TMP@EnsureCode{40}{12}% (
155 
\TMP@EnsureCode{41}{12}% )
156 
\TMP@EnsureCode{44}{12}% ,
157 
\TMP@EnsureCode{46}{12}% .
158 
\TMP@EnsureCode{47}{12}% /
159 
\TMP@EnsureCode{58}{12}% :
160 
\TMP@EnsureCode{60}{12}% <
161 
\TMP@EnsureCode{62}{12}% >
162 
\TMP@EnsureCode{91}{12}% [
163 
\TMP@EnsureCode{93}{12}% ]
164 
\TMP@EnsureCode{96}{12}% `
165 
\edef\EmFi@AtEnd{\EmFi@AtEnd\noexpand\endinput}
166 
\begingroup\expandafter\expandafter\expandafter\endgroup
167 
\expandafter\ifx\csname RequirePackage\endcsname\relax
168 
  \def\EmFi@RequirePackage#1[#2]{%
169 
    \input #1.sty\relax
170 
  }%
171 
\else
172 
  \let\EmFi@RequirePackage\RequirePackage
173 
\fi
174 
\EmFi@RequirePackage{infwarerr}[2007/09/09]%
175 
\def\EmFi@Error{%
176 
  \@PackageError{embedfile}%
177 
}
178 
\ifx\pdfextension\@undefined\else
179 
    \protected\def\pdflastobj {\numexpr\pdffeedback lastobj\relax}
180 
    \protected\def\pdfnames   {\pdfextension names }
181 
    \protected\def\pdfobj     {\pdfextension obj }
182 
    \let\pdfoutput            \outputmode
183 
\fi
184 
\EmFi@RequirePackage{ifpdf}[2007/09/09]
185 
\ifpdf
186 
\else
187 
  \EmFi@Error{%
188 
    Missing pdfTeX in PDF mode%
189 
  }{%
190 
    Currently other drivers are not supported. %
191 
    Package loading is aborted.%
192 
  }%
193 
  \expandafter\EmFi@AtEnd
194 
\fi%
195 
\EmFi@RequirePackage{pdftexcmds}[2007/11/11]
196 
\EmFi@RequirePackage{ltxcmds}[2010/03/01]
197 
\EmFi@RequirePackage{kvsetkeys}[2010/03/01]
198 
\EmFi@RequirePackage{kvdefinekeys}[2010/03/01]
199 
\begingroup\expandafter\expandafter\expandafter\endgroup
200 
\expandafter\ifx\csname pdf@filesize\endcsname\relax
201 
  \EmFi@Error{%
202 
    Unsupported pdfTeX version%
203 
  }{%
204 
    At least version 1.30 is necessary. Package loading is aborted.%
205 
  }%
206 
  \expandafter\EmFi@AtEnd
207 
\fi%
208 
\EmFi@RequirePackage{pdfescape}[2007/11/11]
209 
\def\EmFi@temp#1{%
210 
  \expandafter\EdefSanitize\csname EmFi@S@#1\endcsname{#1}%
211 
}
212 
\EmFi@temp{details}%
213 
\EmFi@temp{tile}%
214 
\EmFi@temp{hidden}%
215 
\EmFi@temp{text}
216 
\EmFi@temp{date}
217 
\EmFi@temp{number}
218 
\EmFi@temp{file}
219 
\EmFi@temp{desc}
220 
\EmFi@temp{afrelationship}
221 
\EmFi@temp{moddate}
222 
\EmFi@temp{creationdate}
223 
\EmFi@temp{size}
224 
\EmFi@temp{ascending}
225 
\EmFi@temp{descending}
226 
\EmFi@temp{true}
227 
\EmFi@temp{false}
228 
\ltx@newif\ifEmFi@collection
229 
\ltx@newif\ifEmFi@sort
230 
\ltx@newif\ifEmFi@visible
231 
\ltx@newif\ifEmFi@edit
232 
\ltx@newif\ifEmFi@item
233 
\ltx@newif\ifEmFi@finished
234 
\ltx@newif\ifEmFi@id
235 
\def\EmFi@GlobalKey#1#2{%
236 
  \global\expandafter\let\csname KV@#1@#2\expandafter\endcsname
237 
                         \csname KV@#1@#2\endcsname
238 
}
239 
\def\EmFi@GlobalDefaultKey#1#2{%
240 
  \EmFi@GlobalKey{#1}{#2}%
241 
  \global\expandafter\let
242 
      \csname KV@#1@#2@default\expandafter\endcsname
243 
      \csname KV@#1@#2@default\endcsname
244 
}
245 
\def\EmFi@DefineKey#1#2{%
246 
  \kv@define@key{EmFi}{#1}{%
247 
    \expandafter\def\csname EmFi@#1\endcsname{##1}%
248 
  }%
249 
  \expandafter\def\csname EmFi@#1\endcsname{#2}%
250 
}
251 
\EmFi@DefineKey{mimetype}{}
252 
\EmFi@DefineKey{filespec}{\EmFi@file}
253 
\EmFi@DefineKey{ucfilespec}{}
254 
\EmFi@DefineKey{filesystem}{}
255 
\EmFi@DefineKey{desc}{}
256 
\EmFi@DefineKey{afrelationship}{}
257 
\EmFi@DefineKey{stringmethod}{%
258 
  \ifx\pdfstringdef\@undefined
259 
    escape%
260 
  \else
261 
    \ifx\pdfstringdef\relax
262 
      escape%
263 
    \else
264 
      psd%
265 
    \fi
266 
  \fi
267 
}
268 
\kv@define@key{EmFi}{id}{%
269 
  \def\EmFi@id{#1}%
270 
  \EmFi@idtrue
271 
}
272 
\def\EmFi@defobj#1{%
273 
  \ifEmFi@id
274 
    \expandafter\xdef\csname EmFi@#1@\EmFi@id\endcsname{%
275 
      \the\pdflastobj\ltx@space 0 R%
276 
    }%
277 
  \fi
278 
}
279 
\def\embedfileifobjectexists#1#2{%
280 
  \expandafter\ifx\csname EmFi@#2@#1\endcsname\relax
281 
    \expandafter\ltx@secondoftwo
282 
  \else
283 
    \expandafter\ltx@firstoftwo
284 
  \fi
285 
}
286 
\def\embedfilegetobject#1#2{%
287 
  \embedfileifobjectexists{#1}{#2}{%
288 
    \csname EmFi@#2@#1\endcsname
289 
  }{%
290 
    0 0 R%
291 
  }%
292 
}
293 
\kv@define@key{EmFi}{view}[]{%
294 
  \EdefSanitize\EmFi@temp{#1}%
295 
  \def\EmFi@next{%
296 
    \global\EmFi@collectiontrue
297 
  }%
298 
  \ifx\EmFi@temp\ltx@empty
299 
    \let\EmFi@view\EmFi@S@details
300 
  \else\ifx\EmFi@temp\EmFi@S@details
301 
    \let\EmFi@view\EmFi@S@details
302 
  \else\ifx\EmFi@temp\EmFi@S@tile
303 
    \let\EmFi@view\EmFi@S@tile
304 
  \else\ifx\EmFi@temp\EmFi@S@hidden
305 
    \let\EmFi@view\EmFi@S@hidden
306 
  \else
307 
    \let\EmFi@next\relax
308 
    \EmFi@Error{%
309 
      Unknown value `\EmFi@temp' for key `view'.\MessageBreak
310 
      Supported values: `details', `tile', `hidden'.%
311 
    }\@ehc
312 
  \fi\fi\fi\fi
313 
  \EmFi@next
314 
}
315 
\EmFi@DefineKey{initialfile}{}
316 
\def\embedfilesetup{%
317 
  \ifEmFi@finished
318 
    \def\EmFi@next##1{}%
319 
    \EmFi@Error{%
320 
      \string\embedfilefield\ltx@space after \string\embedfilefinish
321 
    }{%
322 
      The list of embedded files is already written.%
323 
    }%
324 
  \else
325 
    \def\EmFi@next{%
326 
      \kvsetkeys{EmFi}%
327 
    }%
328 
  \fi
329 
  \EmFi@next
330 
}
331 
\def\EmFi@schema{}
332 
\gdef\EmFi@order{0}
333 
\let\EmFi@@order\relax
334 
\def\EmFi@fieldlist{}
335 
\def\EmFi@sortcase{0}%
336 
\def\embedfilefield#1#2{%
337 
  \ifEmFi@finished
338 
    \EmFi@Error{%
339 
      \string\embedfilefield\ltx@space after \string\embedfilefinish
340 
    }{%
341 
      The list of embedded files is already written.%
342 
    }%
343 
  \else
344 
    \global\EmFi@collectiontrue
345 
    \EdefSanitize\EmFi@key{#1}%
346 
    \expandafter\ifx\csname KV@EmFi@\EmFi@key.prefix\endcsname\relax
347 
      \begingroup
348 
        \count@=\EmFi@order
349 
        \advance\count@ 1 %
350 
        \xdef\EmFi@order{\the\count@}%
351 
        \let\EmFi@title\EmFi@key
352 
        \let\EmFi@type\EmFi@S@text
353 
        \EmFi@visibletrue
354 
        \EmFi@editfalse
355 
        \kvsetkeys{EmFiFi}{#2}%
356 
        \EmFi@convert\EmFi@title\EmFi@title
357 
        \xdef\EmFi@schema{%
358 
          \EmFi@schema
359 
          /\pdf@escapename{\EmFi@key}<<%
360 
            /Subtype/%
361 
            \ifx\EmFi@type\EmFi@S@date D%
362 
            \else\ifx\EmFi@type\EmFi@S@number N%
363 
            \else\ifx\EmFi@type\EmFi@S@file F%
364 
            \else\ifx\EmFi@type\EmFi@S@desc Desc%
365 
            \else\ifx\EmFi@type\EmFi@S@afrelationship AFRelationship%
366 
            \else\ifx\EmFi@type\EmFi@S@moddate ModDate%
367 
            \else\ifx\EmFi@type\EmFi@S@creationdate CreationDate%
368 
            \else\ifx\EmFi@type\EmFi@S@size Size%
369 
            \else S%
370 
            \fi\fi\fi\fi\fi\fi\fi
371 
            /N(\EmFi@title)%
372 
            \EmFi@@order{\EmFi@order}%
373 
            \ifEmFi@visible
374 
            \else
375 
              /V false%
376 
            \fi
377 
            \ifEmFi@edit
378 
              /E true%
379 
            \fi
380 
          >>%
381 
        }%
382 
        \let\do\relax
383 
        \xdef\EmFi@fieldlist{%
384 
          \EmFi@fieldlist
385 
          \do{\EmFi@key}%
386 
        }%
387 
        \ifx\EmFi@type\EmFi@S@text
388 
          \kv@define@key{EmFi}{\EmFi@key.value}{%
389 
            \EmFi@itemtrue
390 
            \def\EmFi@temp{##1}%
391 
            \EmFi@convert\EmFi@temp\EmFi@temp
392 
            \expandafter\def\csname EmFi@V@#1%
393 
            \expandafter\endcsname\expandafter{%
394 
              \expandafter(\EmFi@temp)%
395 
            }%
396 
          }%
397 
          \EmFi@GlobalKey{EmFi}{\EmFi@key.value}%
398 
        \else\ifx\EmFi@type\EmFi@S@date
399 
          \kv@define@key{EmFi}{\EmFi@key.value}{%
400 
            \EmFi@itemtrue
401 
            \def\EmFi@temp{##1}%
402 
            \EmFi@convert\EmFi@temp\EmFi@temp
403 
            \expandafter\def\csname EmFi@V@#1%
404 
            \expandafter\endcsname\expandafter{%
405 
              \expandafter(\EmFi@temp)%
406 
            }%
407 
          }%
408 
          \EmFi@GlobalKey{EmFi}{\EmFi@key.value}%
409 
        \else\ifx\EmFi@type\EmFi@S@number
410 
          \kv@define@key{EmFi}{\EmFi@key.value}{%
411 
            \EmFi@itemtrue
412 
            \expandafter\EdefSanitize\csname EmFi@V@#1\endcsname{ ##1}%
413 
          }%
414 
          \EmFi@GlobalKey{EmFi}{\EmFi@key.value}%
415 
        \fi\fi\fi
416 
        \kv@define@key{EmFi}{\EmFi@key.prefix}{%
417 
          \EmFi@itemtrue
418 
          \expandafter\def\csname EmFi@P@#1\endcsname{##1}%
419 
        }%
420 
        \EmFi@GlobalKey{EmFi}{\EmFi@key.prefix}%
421 
        \kv@define@key{EmFiSo}{\EmFi@key}[ascending]{%
422 
          \EdefSanitize\EmFi@temp{##1}%
423 
          \ifx\EmFi@temp\EmFi@S@ascending
424 
            \def\EmFi@temp{true}%
425 
          \else\ifx\EmFi@temp\EmFi@S@descending
426 
            \def\EmFi@temp{false}%
427 
          \else
428 
            \def\EmFi@temp{}%
429 
            \EmFi@Error{%
430 
              Unknown sort order `\EmFi@temp'.\MessageBreak
431 
              Supported values: `\EmFi@S@ascending', %
432 
              `\EmFi@S@descending
433 
            }\@ehc
434 
          \fi\fi
435 
          \ifx\EmFi@temp\ltx@empty
436 
          \else
437 
            \xdef\EmFi@sortkeys{%
438 
              \EmFi@sortkeys
439 
              /\pdf@escapename{#1}%
440 
            }%
441 
            \ifx\EmFi@sortorders\ltx@empty
442 
              \global\let\EmFi@sortorders\EmFi@temp
443 
              \gdef\EmFi@sortcase{1}%
444 
            \else
445 
              \xdef\EmFi@sortorders{%
446 
                \EmFi@sortorders
447 
                \ltx@space
448 
                \EmFi@temp
449 
              }%
450 
              \xdef\EmFi@sortcase{2}%
451 
            \fi
452 
          \fi
453 
        }%
454 
        \EmFi@GlobalDefaultKey{EmFiSo}\EmFi@key
455 
      \endgroup
456 
    \else
457 
      \EmFi@Error{%
458 
        Field `\EmFi@key' is already defined%
459 
      }\@ehc
460 
    \fi
461 
  \fi
462 
}
463 
\kv@define@key{EmFiFi}{type}{%
464 
  \EdefSanitize\EmFi@temp{#1}%
465 
  \ifx\EmFi@temp\EmFi@S@text
466 
    \let\EmFi@type\EmFi@temp
467 
  \else\ifx\EmFi@temp\EmFi@S@date
468 
    \let\EmFi@type\EmFi@temp
469 
  \else\ifx\EmFi@temp\EmFi@S@number
470 
    \let\EmFi@type\EmFi@temp
471 
  \else\ifx\EmFi@temp\EmFi@S@file
472 
    \let\EmFi@type\EmFi@temp
473 
  \else\ifx\EmFi@temp\EmFi@S@desc
474 
    \let\EmFi@type\EmFi@temp
475 
  \else\ifx\EmFi@temp\EmFi@S@afrelationship
476 
    \let\EmFi@type\EmFi@temp
477 
  \else\ifx\EmFi@temp\EmFi@S@moddate
478 
    \let\EmFi@type\EmFi@temp
479 
  \else\ifx\EmFi@temp\EmFi@S@creationdate
480 
    \let\EmFi@type\EmFi@temp
481 
  \else\ifx\EmFi@temp\EmFi@S@size
482 
    \let\EmFi@type\EmFi@temp
483 
  \else
484 
    \EmFi@Error{%
485 
      Unknown type `\EmFi@temp'.\MessageBreak
486 
      Supported types: `text', `date', `number', `file',\MessageBreak
487 
      `desc', `afrelationship', `moddate', `creationdate', `size'%
488 
    }%
489 
  \fi\fi\fi\fi\fi\fi\fi\fi\fi
490 
}
491 
\kv@define@key{EmFiFi}{title}{%
492 
  \def\EmFi@title{#1}%
493 
}
494 
\def\EmFi@setboolean#1#2{%
495 
  \EdefSanitize\EmFi@temp{#2}%
496 
  \ifx\EmFi@temp\EmFi@S@true
497 
    \csname EmFi@#1true\endcsname
498 
  \else
499 
    \ifx\EmFi@temp\EmFi@S@false
500 
      \csname EmFi@#1false\endcsname
501 
    \else
502 
      \EmFi@Error{%
503 
        Unknown value `\EmFi@temp' for key `#1'.\MessageBreak
504 
        Supported values: `true', `false'%
505 
      }\@ehc
506 
    \fi
507 
  \fi
508 
}
509 
\kv@define@key{EmFiFi}{visible}[true]{%
510 
  \EmFi@setboolean{visible}{#1}%
511 
}
512 
\kv@define@key{EmFiFi}{edit}[true]{%
513 
  \EmFi@setboolean{edit}{#1}%
514 
}
515 
\def\EmFi@sortkeys{}
516 
\def\EmFi@sortorders{}
517 
\def\embedfilesort{%
518 
  \kvsetkeys{EmFiSo}%
519 
}
520 
\def\embedfile{%
521 
  \ltx@ifnextchar[\EmFi@embedfile{\EmFi@embedfile[]}%
522 
}
523 
\def\EmFi@embedfile[#1]#2{%
524 
  \ifEmFi@finished
525 
    \EmFi@Error{%
526 
      \string\embedfile\ltx@space after \string\embedfilefinish
527 
    }{%
528 
      The list of embedded files is already written.%
529 
    }%
530 
  \else
531 
    \begingroup
532 
      \def\EmFi@file{#2}%
533 
      \kvsetkeys{EmFi}{#1}%
534 
      \expandafter\expandafter\expandafter
535 
      \ifx\expandafter\expandafter\expandafter
536 
          \\\pdf@filesize{\EmFi@file}\\%
537 
        \EmFi@Error{%
538 
          File `\EmFi@file' not found%
539 
        }{%
540 
          The unknown file is not embedded.%
541 
        }%
542 
      \else
543 
        \edef\EmFi@@filespec{%
544 
          \pdf@escapestring{\EmFi@filespec}%
545 
        }%
546 
        \ifx\EmFi@ucfilespec\ltx@empty
547 
          \let\EmFi@@ucfilespec\ltx@empty
548 
        \else
549 
          \EmFi@convert\EmFi@ucfilespec\EmFi@@ucfilespec
550 
        \fi
551 
        \ifx\EmFi@desc\ltx@empty
552 
          \let\EmFi@@desc\ltx@empty
553 
        \else
554 
          \EmFi@convert\EmFi@desc\EmFi@@desc
555 
        \fi
556 
        \ifx\EmFi@afrelationship\ltx@empty
557 
          \let\EmFi@@afrelationship\ltx@empty
558 
        \else
559 
          \EmFi@convert\EmFi@afrelationship\EmFi@@afrelationship
560 
        \fi
561 
        \ifEmFi@item
562 
          \let\do\EmFi@do
563 
          \immediate\pdfobj{%
564 
            <<%
565 
              \EmFi@fieldlist
566 
            >>%
567 
          }%
568 
          \edef\EmFi@ci{\the\pdflastobj}%
569 
        \fi
570 
        \immediate\pdfobj stream attr{%
571 
          /Type/EmbeddedFile%
572 
          \ifx\EmFi@mimetype\ltx@empty
573 
          \else
574 
            /Subtype/\pdf@escapename{\EmFi@mimetype}%
575 
          \fi
576 
          /Params<<%
577 
            /ModDate(\pdf@filemoddate{\EmFi@file})%
578 
            /Size \pdf@filesize{\EmFi@file}%
579 
            /CheckSum<\pdf@filemdfivesum{\EmFi@file}>%
580 
          >>%
581 
        }file{\EmFi@file}\relax
582 
        \EmFi@defobj{EmbeddedFile}%
583 
        \immediate\pdfobj{%
584 
          <<%
585 
            /Type/Filespec%
586 
            \ifx\EmFi@filesystem\ltx@empty
587 
            \else
588 
            /FS/\pdf@escapename{\EmFi@filesystem}%
589 
            \fi
590 
            /F(\EmFi@@filespec)%
591 
            \ifx\EmFi@@ucfilespec\ltx@empty
592 
            \else
593 
              /UF(\EmFi@@ucfilespec)%
594 
            \fi
595 
            \ifx\EmFi@@desc\ltx@empty
596 
            \else
597 
              /Desc(\EmFi@@desc)%
598 
            \fi
599 
            \ifx\EmFi@@afrelationship\ltx@empty
600 
            \else
601 
              /AFRelationship\EmFi@@afrelationship%
602 
            \fi
603 
            /EF<<%
604 
              /F \the\pdflastobj\ltx@space 0 R%
605 
            >>%
606 
            \ifEmFi@item
607 
              /CI \EmFi@ci\ltx@space 0 R%
608 
            \fi
609 
          >>%
610 
        }%
611 
        \EmFi@defobj{Filespec}%
612 
        \EmFi@add{%
613 
          \EmFi@@filespec
614 
        }{\the\pdflastobj\ltx@space 0 R}%
615 
      \fi
616 
    \endgroup
617 
  \fi
618 
}
619 
\def\EmFi@do#1{%
620 
  \expandafter\ifx\csname EmFi@P@#1\endcsname\relax
621 
    \expandafter\ifx\csname EmFi@V@#1\endcsname\relax
622 
    \else
623 
      /\pdf@escapename{#1}\csname EmFi@V@#1\endcsname
624 
    \fi
625 
  \else
626 
    /\pdf@escapename{#1}<<%
627 
      \expandafter\ifx\csname EmFi@V@#1\endcsname\relax
628 
      \else
629 
        /D\csname EmFi@V@#1\endcsname
630 
      \fi
631 
      /P(\csname EmFi@P@#1\endcsname)%
632 
    >>%
633 
  \fi
634 
}
635 
\def\EmFi@convert#1#2{%
636 
  \ifnum\pdf@strcmp{\EmFi@stringmethod}{psd}=0 %
637 
    \pdfstringdef\EmFi@temp{#1}%
638 
    \let#2\EmFi@temp
639 
  \else
640 
    \edef#2{\pdf@escapestring{#1}}%
641 
  \fi
642 
}
643 
\global\let\EmFi@list\ltx@empty
644 
\def\EmFi@add#1#2{%
645 
  \begingroup
646 
    \ifx\EmFi@list\ltx@empty
647 
      \xdef\EmFi@list{\noexpand\do{#1}{#2}}%
648 
    \else
649 
      \def\do##1##2{%
650 
        \ifnum\pdf@strcmp{##1}{#1}>0 %
651 
          \edef\x{%
652 
            \toks@{%
653 
              \the\toks@%
654 
              \noexpand\do{#1}{#2}%
655 
              \noexpand\do{##1}{##2}%
656 
            }%
657 
          }%
658 
          \x
659 
          \def\do####1####2{%
660 
            \toks@\expandafter{\the\toks@\do{####1}{####2}}%
661 
          }%
662 
          \def\stop{%
663 
            \xdef\EmFi@list{\the\toks@}%
664 
          }%
665 
        \else
666 
          \toks@\expandafter{\the\toks@\do{##1}{##2}}%
667 
        \fi
668 
      }%
669 
      \def\stop{%
670 
        \xdef\EmFi@list{\the\toks@\noexpand\do{#1}{#2}}%
671 
      }%
672 
      \toks@{}%
673 
      \EmFi@list\stop
674 
    \fi
675 
  \endgroup
676 
}
677 
\def\embedfilefinish{%
678 
  \ifEmFi@finished
679 
    \EmFi@Error{%
680 
      Too many invocations of \string\embedfilefinish
681 
    }{%
682 
      The list of embedded files is already written.%
683 
    }%
684 
  \else
685 
    \ifx\EmFi@list\ltx@empty
686 
    \else
687 
      \global\EmFi@finishedtrue
688 
      \begingroup
689 
        \def\do##1##2{%
690 
          (##1)##2%
691 
        }%
692 
        \immediate\pdfobj{%
693 
          <<%
694 
            /Names[\EmFi@list]%
695 
          >>%
696 
        }%
697 
        \pdfnames{%
698 
          /EmbeddedFiles \the\pdflastobj\ltx@space 0 R%
699 
        }%
700 
      \endgroup
701 
      \begingroup
702 
        \def\do##1##2{%
703 
          \ltx@space##2%
704 
        }%
705 
        \immediate\pdfobj{%
706 
          [\EmFi@list]%
707 
        }%
708 
        \pdfcatalog{%
709 
          /AF \the\pdflastobj\ltx@space 0 R%
710 
        }%
711 
      \endgroup
712 
      \ifx\EmFi@initialfile\ltx@empty
713 
      \else
714 
        \EmFi@collectiontrue
715 
      \fi
716 
      \ifEmFi@collection
717 
        \ifx\EmFi@initialfile\ltx@empty
718 
          \let\EmFi@@initialfile\ltx@empty
719 
        \else
720 
          \edef\EmFi@@initialfile{%
721 
            \pdf@escapestring{\EmFi@initialfile}%
722 
          }%
723 
        \fi
724 
        \begingroup
725 
          \let\f=N%
726 
          \def\do##1##2{%
727 
            \def\x{##1}%
728 
            \ifx\x\EmFi@@initialfile
729 
              \let\f=Y%
730 
              \let\do\ltx@gobbletwo
731 
            \fi
732 
          }%
733 
          \EmFi@list
734 
        \expandafter\endgroup
735 
        \ifx\f Y%
736 
        \else
737 
          \@PackageWarningNoLine{embedfile}{%
738 
            Missing initial file `\EmFi@initialfile'\MessageBreak
739 
            among the embedded files%
740 
          }%
741 
          \let\EmFi@initialfile\ltx@empty
742 
          \let\EmFi@@initialfile\ltx@empty
743 
        \fi
744 
        \ifcase\EmFi@sortcase
745 
          \def\EmFi@temp{}%
746 
        \or
747 
          \def\EmFi@temp{%
748 
            /S\EmFi@sortkeys
749 
            /A \EmFi@sortorders
750 
          }%
751 
        \else
752 
          \def\EmFi@temp{%
753 
            /S[\EmFi@sortkeys]%
754 
            /A[\EmFi@sortorders]%
755 
          }%
756 
        \fi
757 
        \def\EmFi@@order##1{%
758 
          \ifnum\EmFi@order>1 %
759 
            /O ##1%
760 
          \fi
761 
        }%
762 
        \immediate\pdfobj{%
763 
          <<%
764 
            \ifx\EmFi@schema\ltx@empty
765 
            \else
766 
              /Schema<<\EmFi@schema>>%
767 
            \fi
768 
            \ifx\EmFi@@initialfile\ltx@empty
769 
            \else
770 
              /D(\EmFi@@initialfile)%
771 
            \fi
772 
            \ifx\EmFi@view\EmFi@S@tile
773 
              /View/T%
774 
            \else\ifx\EmFi@view\EmFi@S@hidden
775 
              /View/H%
776 
            \fi\fi
777 
            \ifx\EmFi@temp\ltx@empty
778 
              \EmFi@temp
779 
            \else
780 
              /Sort<<\EmFi@temp>>%
781 
            \fi
782 
          >>%
783 
        }%
784 
        \pdfcatalog{%
785 
          /Collection \the\pdflastobj\ltx@space0 R%
786 
        }%
787 
      \fi
788 
    \fi
789 
  \fi
790 
}
791 
\begingroup\expandafter\expandafter\expandafter\endgroup
792 
\expandafter\ifx\csname AtEndDocument\endcsname\relax
793 
\else
794 
  \AtEndDocument{\embedfilefinish}%
795 
\fi
796 
\EmFi@AtEnd%
797 
\endinput
798 
%%
799 
%% End of file `embedfile.sty'.

Auch abrufbar als: Unified diff