Projekt

Obecné

Profil

Stáhnout (1.69 KB) Statistiky
| Větev: | Tag: | Revize:
1 6daefa8c Petr Lukašík
<?
2
3
function chyba()
4
	{
5
	 global $radek;	
6
7
	 printf("\n<BR>Pri zpracovani radku  %s  se vyskytla chyba!!!!!\n<BR>",$radek);
8
	 echo "</body></html>";
9
	 exit();
10
	}
11
12
13
function zpracuj_heslo()
14
{
15
	global $heslo;
16
	global $vysledek;
17
18
	$vysledek.=" ";
19
	$vysledek.=$heslo;
20
//	echo "<BR>".$vysledek;
21
	$heslo="";
22
	return;
23
}
24
25
function zpracuj_radek()
26
	{
27
		global $radek;
28
  	global $heslo;
29
30
		$i=0;
31
		$d=strlen($radek);
32
		$stav=0;
33
		echo "<BR>Cely radek".$radek;
34
		while ($i<$d)
35
			{
36
				 $c=$radek[$i];
37
				 $i++;
38
				 switch($stav)
39
				   {
40
				    case 0: if($c=='<') {$stav=1;break;}
41
						    if($c==' ') break;
42
						    else {$stav=9;$heslo.=$c;$j=1;break;}
43
44
				    case 1: if(($c=='a')||($c=='A')) {$stav=2;}
45
	    					else chyba();
46
						    break;
47
48
				    case 2: if($c=='>') {$stav=3;}
49
						    break;
50
51
				    case 3: if($c=='<')	{$stav=4;}
52
						    else  {$heslo.=$c;}
53
						    break;
54
55
				    case 4: if (($c=='b')||($c=='B')) {$stav=5;break;}
56
						    if ($c=='/'){$stav=7;zpracuj_heslo();}
57
						    else chyba();
58
					 	    break;
59
60
				    case 5: if((($c=='a')||($c=='A'))&&($radek[$i-2]=='/')) $stav=6;
61
						    break;
62
63
				    case 6: if ($c=='>') {$stav=0;}
64
						    else chyba();
65
						    break;
66
67
				    case 7: if(($c=='a')||($c=='A')) $stav=8;
68
						    else chyba();
69
						    break;
70
71
				    case 8: if($c=='>') {$stav=0;}
72
						    else chyba();
73
						    break;
74
75
				    case 9: if ($c==' ') {zpracuj_heslo(); $stav=0;}
76
						    else {$heslo.=$c;}
77
						    break;
78
79
				    default: break;
80
				   }
81
			}
82
83
  		if ($stav==9) {zpracuj_heslo();}
84
		if (($stav==9)||($stav==0)) printf("\n<BR>Probehlo to OK!");
85
		else chyba();
86
87
	return;
88
	}
89
90
$vysledek="";
91
$heslo="";
92
zpracuj_radek();
93
echo "<BR>".$vysledek;
94
95
?>