*: $Id: u-wlink.cpt 21634 2008-04-22 15:10:52Z ThB $
  *: # Links aus #8e fuer Flips aufbereiten
  *:! u-wlink.apt generiert aus u-wlink.cpt (30.06.2011 22:35)
  *: #(8 Ersatz fuer das gleichnamige Unterprogramm aus d-wrtf
  *:! Optionen: v23
  *: --------------------------------------------------------------------
  *: Analyse der Spruenge, Unterprogramme und Includes:
  *: Unterprogramme: #(8
  *:  rel. Spruenge: +#J00, +#J01, +#cc
  *:   Anwendervar.: #ucc, #ucd
  *:   Zwischenteile 4, 10, 72, C
  *: --------------------------------------------------------------------
  $Id: u-wlink.cpt 21634 2008-04-22 15:10:52Z ThB $
  # Links aus #8e fuer Flips aufbereiten
  #(8 Ersatz fuer das gleichnamige Unterprogramm aus d-wrtf

  : $HeadURL: https://svn.extra.gymel.com/repos/allegro/acxt/enhancements/trunk/u-wlink.cpt $
  : s/repos/viewvc/ for browseable view in the URL above

  % beruecksichtigte Unterfelder analog MARC 852/MAB 655:
  % $u (implizit): URI, also http(s), ftp(s)-URL oder URN oder DOI
  % $3: Einleitende Wendung ("relation")
  % $y: abweichender Linktext
  % $z: Externer Kommentar

  %%%%%
      % Eine Wiederholung von #8e aufbereiten
#(8   % Typische Nutzung
      %
      % #8e. ++ >8 m>8 Z
#t{ C }

#cc dcc dcd B"u" e"" f32 F32 ,",%5F,_," ,",%5f,_," Acc
#ucc +#cc b"~urn:nbn:" p"http://nbn-resolving.de/urn/resolver.pl?urn=urn:nbn:" =cd
#ucc +#cc ,"_: _ _" ,"_:_ _" b"~doi 10." p"http://dx.doi.org/10." =cd
#ucc +#cc c"~tp://" =cd
#ucc +#cc c"~tps://" =cd
  % ab hier wird wuest geraten:
#ucc +#cc c"://" =cd
#ucc +#cc p"http://" c"://www." =cd
#ucc +#cc p"ftp://" c"://ftp." =cd

#cc +#cc 3 f32 F32 P": "
#ucd +#cc c"urn=urn" p"URN: |" e"|"
#ucd +#cc c"dx.doi.org/10." p"DOI: |" e"|"

#cc y f32 F32 dcc Acc     % .... oder #ucc lassen
#ucd +#J00 dcd p'x var "' P'"\ansi\ins #ucc\exec X winstart.flx' =Z~
   % Keine verlinkbare URL ermittelt: Kein Flip
#ucc dcc f32 F32
#nr +#J01 Z

#J00
  *:%<*v23&!notexel>
  % Folgende Zeile sollte deaktiviert sein, wenn die Texel-Technik in der
  % enthaltenden Parameterdatei nicht (oder nicht mit '#') genutzt wird
#bp .35 35    % '#' (Fragment-Identifier) muss fuer Ausgabe zugelassen werden
              % Umcodierung kann nicht abgeschaltet werden wg. Umlautdomains
  *:%</v23&!notexel>
#ucc f32 F32 =Y~
#ucc dcc f32 F32 p72 P104
  *:%<*v23&!notexel>
  % Folgende Zeile muss deaktiviert sein, wenn die Texel-Technik in der
  % enthaltenden Parameterdatei nicht (oder nicht mit '#') genutzt wird
#bp .35 8     % '#' wieder auf Steuerbedeutung als Texel-Praefix setzen
  *:%</v23&!notexel>

#J01
#cc z p" (" P")"
#cc x p{C '\tab '} p"[" P"]"
#)8

  ## Ende von u-wlink ##
  *:
  *: --- Ende von u-wlink.apt ---
  *:
  *:           INDEX
  *:           =====
  *:
  *: Unterprogramme
  *: #(8          28(!)
  *:
  *: Anwendervariable
  *: #ucc         33(d), 33(A), 34, 35, 36, 37, 39, 40, 41, 47(d), 47(A), 50,
  *:      50(d), 60, 61, 61(d)
  *: #ucd         33(d), 34(=), 35(=), 36(=), 37(=), 39(=), 40(=), 41(=), 44,
  *:      45, 48, 48(d)
  *:
  *: lokale Spruenge
  *: +#J00        48
  *: +#J01        51
  *: +#cc         34, 35, 36, 37, 39, 40, 41, 43, 44, 45
  *:
  *: Kategorien
  *: #J00         48(+), 53
  *: #J01         51(+), 68
  *: #cc          33, 34(+), 35(+), 36(+), 37(+), 39(+), 40(+), 41(+), 43,
  *:      43(+), 44(+), 45(+), 47, 69, 70
  *:
  *: Zwischenteile
  *: 4            61
  *: 10           61
  *: 72           61
  *: C            31, 70