Code Duplication    Length = 11-12 lines in 3 locations

ecrire/public/balises.php 3 locations

@@ 1250-1260 (lines=11) @@
1247
 * @return Champ
1248
 *     Pile complétée par le code à générer
1249
 **/
1250
function balise_CHEMIN_dist($p) {
1251
	$arg = interprete_argument_balise(1, $p);
1252
	if (!$arg) {
1253
		$msg = array('zbug_balise_sans_argument', array('balise' => ' CHEMIN'));
1254
		erreur_squelette($msg, $p);
1255
	} else {
1256
		$p->code = 'find_in_path(' . $arg . ')';
1257
	}
1258
1259
	$p->interdire_scripts = false;
1260
1261
	return $p;
1262
}
1263
@@ 1285-1296 (lines=12) @@
1282
 * @return Champ
1283
 *     Pile complétée par le code à générer
1284
 **/
1285
function balise_CHEMIN_IMAGE_dist($p) {
1286
	$arg = interprete_argument_balise(1, $p);
1287
	if (!$arg) {
1288
		$msg = array('zbug_balise_sans_argument', array('balise' => ' CHEMIN_IMAGE'));
1289
		erreur_squelette($msg, $p);
1290
	} else {
1291
		$p->code = 'chemin_image(' . $arg . ')';
1292
	}
1293
1294
	$p->interdire_scripts = false;
1295
	return $p;
1296
}
1297
1298
1299
/**
@@ 1686-1697 (lines=12) @@
1683
 * @return Champ
1684
 *     Pile complétée par le code à générer
1685
 **/
1686
function balise_HTTP_HEADER_dist($p) {
1687
1688
	$header = interprete_argument_balise(1, $p);
1689
	if (!$header) {
1690
		$err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'HTTP_HEADER'));
1691
		erreur_squelette($err_b_s_a, $p);
1692
	} else {
1693
		$p->code = "'<'.'?php header(' . _q("
1694
			. $header
1695
			. ") . '); ?'.'>'";
1696
	}
1697
	$p->interdire_scripts = false;
1698
1699
	return $p;
1700
}