Code Duplication    Length = 10-12 lines in 3 locations

ecrire/public/balises.php 3 locations

@@ 1287-1297 (lines=11) @@
1284
 * @return Champ
1285
 *     Pile complétée par le code à générer
1286
 **/
1287
function balise_CHEMIN_dist($p) {
1288
	$arg = interprete_argument_balise(1, $p);
1289
	if (!$arg) {
1290
		$msg = array('zbug_balise_sans_argument', array('balise' => ' CHEMIN'));
1291
		erreur_squelette($msg, $p);
1292
	} else {
1293
		$p->code = 'find_in_path(' . $arg . ')';
1294
	}
1295
1296
	$p->interdire_scripts = false;
1297
1298
	return $p;
1299
}
1300
@@ 1322-1331 (lines=10) @@
1319
 * @return Champ
1320
 *     Pile complétée par le code à générer
1321
 **/
1322
function balise_CHEMIN_IMAGE_dist($p) {
1323
	$arg = interprete_argument_balise(1, $p);
1324
	if (!$arg) {
1325
		$msg = array('zbug_balise_sans_argument', array('balise' => ' CHEMIN_IMAGE'));
1326
		erreur_squelette($msg, $p);
1327
	} else {
1328
		$p->code = 'chemin_image(' . $arg . ')';
1329
	}
1330
1331
	#$p->interdire_scripts = true;
1332
	return $p;
1333
}
1334
@@ 1727-1738 (lines=12) @@
1724
 * @return Champ
1725
 *     Pile complétée par le code à générer
1726
 **/
1727
function balise_HTTP_HEADER_dist($p) {
1728
1729
	$header = interprete_argument_balise(1, $p);
1730
	if (!$header) {
1731
		$err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'HTTP_HEADER'));
1732
		erreur_squelette($err_b_s_a, $p);
1733
	} else {
1734
		$p->code = "'<'.'?php header(' . _q("
1735
			. $header
1736
			. ") . '); ?'.'>'";
1737
	}
1738
	$p->interdire_scripts = false;
1739
1740
	return $p;
1741
}