spip / SPIP

	// si DTD locale, ignorer ce repertoire pour le moment

	if ($avail == 'SYSTEM') {

		$file = $loc;

		if (_DIR_RACINE and strncmp($file, _DIR_RACINE, strlen(_DIR_RACINE)) == 0) {

			$file = substr($file, strlen(_DIR_RACINE));

		}

		$file = find_in_path($file);

	} else {

	if (is_null($local)) {

		$local = fichier_copie_locale($source);

	} else {

		if (_DIR_RACINE and strncmp(_DIR_RACINE, $local, strlen(_DIR_RACINE)) == 0) {

			$local = substr($local, strlen(_DIR_RACINE));

		}

	}

	// si $local = '' c'est un fichier refuse par fichier_copie_locale(),

	// par exemple un fichier qui ne figure pas dans nos documents ;

		$debug = debug_backtrace();

		$l = $debug[1]['line'];

		$fi = $debug[1]['file'];

		if (strncmp($fi, _ROOT_RACINE, strlen(_ROOT_RACINE)) == 0) {

			$fi = substr($fi, strlen(_ROOT_RACINE));

		}

		$fu = isset($debug[2]['function']) ? $debug[2]['function'] : '';

		$debugverb = "$fi:L$l:$fu" . '():';

// https://code.spip.net/@plugin_propre

function plugin_propre($texte, $module = '',$propre='propre') {

	// retirer le retour a la racine du module, car le find_in_path se fait depuis la racine

	if (_DIR_RACINE and strncmp($module, _DIR_RACINE, strlen(_DIR_RACINE)) == 0) {

		$module = substr($module, strlen(_DIR_RACINE));

	}

	if (preg_match("|^\w+_[\w_]+$|", $texte)) {

		$texte = _T(($module ? "$module:" : '') . $texte, array(), array('force' => false));

	// Attention sous windows, getFileName() retourne un antislash. 

	$reflector = new ReflectionFunction($fonction_balise);

	$file = str_replace('\\', '/', $reflector->getFileName());

	if (strncmp($file, str_replace('\\', '/', _ROOT_RACINE), strlen(_ROOT_RACINE)) === 0) {

		$file = substr($file, strlen(_ROOT_RACINE));

	}

	// Y a-t-il une fonction de traitement des arguments ?

	$f = 'balise_' . $nom_balise . '_stat';

// https://code.spip.net/@calculer_nom_fonction_squel

function calculer_nom_fonction_squel($skel, $mime_type = 'html', $connect = '') {

	// ne pas doublonner les squelette selon qu'ils sont calcules depuis ecrire/ ou depuis la racine

	if ($l = strlen(_DIR_RACINE) and strncmp($skel, _DIR_RACINE, $l) == 0) {

		$skel = substr($skel, strlen(_DIR_RACINE));

	}

	return $mime_type