[spip-dev] mac2iso.php3 (pour votre librairie de routines utiles)

--T4sUOijqQbZv57TR
Content-Type: text/plain; charset=iso-8859-1
Content-Disposition: inline
Content-Transfer-Encoding: 8bit

Ci-joint le fichier mac2iso.php3, que je viens de bricoler : il récupère un
texte au format Macintosh et le transcode en format iso (Unix). Il ne gère
que les accents, pas les sauts de ligne.

Utilisation :

<?
    include "mac2iso.php3";

    $texte_macintosh = join("",file("$fichier_upload"));
    echo mac2iso($texte_macintosh);
?>

sera utile quand on fera des "uploads" de fichiers texte (à convertir en
spip)...

-- Fil

--T4sUOijqQbZv57TR
Content-Type: application/x-httpd-php3
Content-Disposition: attachment; filename="mac2iso.php3"

<?

function iso2mac($iso) {
$mac = strtr ($iso , chr(128) .chr(129) .chr(130) .chr(131) .chr(132) .chr(133)
.chr(134) .chr(135) .chr(136) .chr(137) .chr(138) .chr(139) .chr(140) .chr(141)
.chr(142) .chr(143) .chr(144) .chr(145) .chr(146) .chr(147) .chr(148) .chr(149)
.chr(150) .chr(151) .chr(152) .chr(153) .chr(154) .chr(155) .chr(156) .chr(157)
.chr(158) .chr(159) .chr(160) .chr(161) .chr(164) .chr(165) .chr(166) .chr(167)
.chr(168) .chr(170) .chr(171) .chr(172) .chr(173) .chr(174) .chr(175) .chr(176)
.chr(178) .chr(179) .chr(180) .chr(182) .chr(183) .chr(184) .chr(185) .chr(186)
.chr(187) .chr(188) .chr(189) .chr(190) .chr(191) .chr(192) .chr(193) .chr(194)
.chr(195) .chr(196) .chr(197) .chr(198) .chr(199) .chr(200) .chr(201) .chr(202)
.chr(203) .chr(204) .chr(205) .chr(206) .chr(207) .chr(208) .chr(209) .chr(210)
.chr(211) .chr(212) .chr(213) .chr(214) .chr(216) .chr(217) .chr(218) .chr(219)
.chr(220) .chr(221) .chr(223) .chr(224) .chr(225) .chr(226) .chr(227) .chr(228)
.chr(229) .chr(230) .chr(231) .chr(232) .chr(233) .chr(234) .chr(235) .chr(236)
.chr(237) .chr(238) .chr(239) .chr(240) .chr(241) .chr(242) .chr(243) .chr(244)
.chr(245) .chr(246) .chr(247) .chr(248) .chr(249) .chr(250) .chr(251) .chr(252)
.chr(253) .chr(254) .chr(255), chr(165) .chr(170) .chr(173) .chr(176) .chr(179)
.chr(183) .chr(186) .chr(189) .chr(195) .chr(197) .chr(201) .chr(209) .chr(212)
.chr(217) .chr(218) .chr(182) .chr(198) .chr(206) .chr(226) .chr(227) .chr(228)
.chr(240) .chr(246) .chr(247) .chr(249) .chr(250) .chr(251) .chr(253) .chr(254)
.chr(255) .chr(245) .chr(196) .chr(202) .chr(193) .chr(219) .chr(180) .chr(207)
.chr(164) .chr(172) .chr(187) .chr(199) .chr(194) .chr(208) .chr(168) .chr(248)
.chr(161) .chr(211) .chr(210) .chr(171) .chr(166) .chr(225) .chr(252) .chr(213)
.chr(188) .chr(200) .chr(185) .chr(184) .chr(178) .chr(192) .chr(203) .chr(231)
.chr(229) .chr(204) .chr(128) .chr(129) .chr(174) .chr(130) .chr(233) .chr(131)
.chr(230) .chr(232) .chr(237) .chr(234) .chr(235) .chr(236) .chr(220) .chr(132)
.chr(241) .chr(238) .chr(239) .chr(205) .chr(133) .chr(175) .chr(244) .chr(242)
.chr(243) .chr(134) .chr(160) .chr(167) .chr(136) .chr(135) .chr(137) .chr(139)
.chr(138) .chr(140) .chr(190) .chr(141) .chr(143) .chr(142) .chr(144) .chr(145)
.chr(147) .chr(146) .chr(148) .chr(149) .chr(221) .chr(150) .chr(152) .chr(151)
.chr(153) .chr(155) .chr(154) .chr(214) .chr(191) .chr(157) .chr(156) .chr(158)
.chr(159) .chr(224) .chr(223) .chr(216));
return $mac;
}

function mac2iso($mac) {
$iso = strtr ($mac , chr(165) .chr(170) .chr(173) .chr(176) .chr(179) .chr(183)
.chr(186) .chr(189) .chr(195) .chr(197) .chr(201) .chr(209) .chr(212) .chr(217)
.chr(218) .chr(182) .chr(198) .chr(206) .chr(226) .chr(227) .chr(228) .chr(240)
.chr(246) .chr(247) .chr(249) .chr(250) .chr(251) .chr(253) .chr(254) .chr(255)
.chr(245) .chr(196) .chr(202) .chr(193) .chr(219) .chr(180) .chr(207) .chr(164)
.chr(172) .chr(187) .chr(199) .chr(194) .chr(208) .chr(168) .chr(248) .chr(161)
.chr(211) .chr(210) .chr(171) .chr(166) .chr(225) .chr(252) .chr(213) .chr(188)
.chr(200) .chr(185) .chr(184) .chr(178) .chr(192) .chr(203) .chr(231) .chr(229)
.chr(204) .chr(128) .chr(129) .chr(174) .chr(130) .chr(233) .chr(131) .chr(230)
.chr(232) .chr(237) .chr(234) .chr(235) .chr(236) .chr(220) .chr(132) .chr(241)
.chr(238) .chr(239) .chr(205) .chr(133) .chr(175) .chr(244) .chr(242) .chr(243)
.chr(134) .chr(160) .chr(167) .chr(136) .chr(135) .chr(137) .chr(139) .chr(138)
.chr(140) .chr(190) .chr(141) .chr(143) .chr(142) .chr(144) .chr(145) .chr(147)
.chr(146) .chr(148) .chr(149) .chr(221) .chr(150) .chr(152) .chr(151) .chr(153)
.chr(155) .chr(154) .chr(214) .chr(191) .chr(157) .chr(156) .chr(158) .chr(159)
.chr(224) .chr(223) .chr(216), chr(128) .chr(129) .chr(130) .chr(131) .chr(132)
.chr(133) .chr(134) .chr(135) .chr(136) .chr(137) .chr(138) .chr(139) .chr(140)
.chr(141) .chr(142) .chr(143) .chr(144) .chr(145) .chr(146) .chr(147) .chr(148)
.chr(149) .chr(150) .chr(151) .chr(152) .chr(153) .chr(154) .chr(155) .chr(156)
.chr(157) .chr(158) .chr(159) .chr(160) .chr(161) .chr(164) .chr(165) .chr(166)
.chr(167) .chr(168) .chr(170) .chr(171) .chr(172) .chr(173) .chr(174) .chr(175)
.chr(176) .chr(178) .chr(179) .chr(180) .chr(182) .chr(183) .chr(184) .chr(185)
.chr(186) .chr(187) .chr(188) .chr(189) .chr(190) .chr(191) .chr(192) .chr(193)
.chr(194) .chr(195) .chr(196) .chr(197) .chr(198) .chr(199) .chr(200) .chr(201)
.chr(202) .chr(203) .chr(204) .chr(205) .chr(206) .chr(207) .chr(208) .chr(209)
.chr(210) .chr(211) .chr(212) .chr(213) .chr(214) .chr(216) .chr(217) .chr(218)
.chr(219) .chr(220) .chr(221) .chr(223) .chr(224) .chr(225) .chr(226) .chr(227)
.chr(228) .chr(229) .chr(230) .chr(231) .chr(232) .chr(233) .chr(234) .chr(235)
.chr(236) .chr(237) .chr(238) .chr(239) .chr(240) .chr(241) .chr(242) .chr(243)
.chr(244) .chr(245) .chr(246) .chr(247) .chr(248) .chr(249) .chr(250) .chr(251)
.chr(252) .chr(253) .chr(254) .chr(255));
return $iso;
}

?>

--T4sUOijqQbZv57TR--