На основі поточного стану

Скористаємося можливостями конструкції switch мови програмування С. Як елемент управління скінченого автомата візьмемо поточний стан скінченого автомата (на початку програми q0=0).

int automat (FILE*fp)

{ int с, q=0; // початковий стан автомата

while((c=fgetch(fp))!=EOF)

{ if (index_litera(c) = = -1) break;

switch(q)

{case 0:

if (c>='1' && c<='9") {q=1; break;}

if (c= =' ' || c= ='\n' || c= ='\t' || c= ='\r') break;

if (c= ='0') { q=6; break;}

// помилка – недопустимий початок лексеми

my_error(); return 0;

case 1:

if (c>='0' && c<='9') break;

// в заключному стані

return 1;

case 6:

if (c= ='Х' || c= ='x') {q=12; break;}

if (c>='0' && c<='7') {q=7; break;}

// в заключному стані

return 1;

case 12:

if ((c>='0' && c<='9') ||

(c>='A' && c<='F') ||

(c>='a' && c<='f')) {q=13; break;}

// помилка – невірне продовження шістнадцяткової константи

my_error (); return 0;

// --------------------------------------------------------------------

// в такому стилі програмуємо далі

// --------------------------------------------------------------------

}// кінець конструкції switch

// перевіримо на заключний стан

if (is_final (row)) printf (" Лексема вірна - %s", text);

else printf (''Лексема помилкова-%s", text);

}// кінець циклу зчитування літер

}// кінець функції automat

Наведений вище приклад функції automat, в якій в основу управління покладено поточний стан скінченого автомата, спробуємо певною мірою оптимізувати. З тексту модуля видно, що основні операції – це операції порівняння та перевірка належності поточної вхідної літери діапазону літер. При цьому враховується конкретна властивість кодової таблиці ASCI: коди латинських літер та цифр займають певні діапазони. Щоб функція automat не залежала від властивостей кодової таблиці, запропонуємо новий варіант її реалізації.

Розділимо літери кодової таблиці на класи:

- проміжок, \n, \v, \r, \t, \b – літери, які розділяють лексеми;

- 1, 2, 3,..7 – вісімкові цифри (крім 0);

- 0,...9,A,..F,a,..f — шістнадцяткові цифри;

- 0 – вісімковий або десятковий нуль

- клас, до якого входять літери ASCI: \, .

Як бачимо, в загальному випадку класи можуть перетинатися.

Розглянемо таблицю, об'ємом 256 елементів, в якій буде відмічатися належність літер до окремих класів.

# include <stdio.h>

#define DECIMAL 0x01

#define OCTAL 0x02

#define EMPTY 0x80

#define LITERA 0x04

char decimal[]=’0123456789’;

char hesh_digit[] = ‘0123456789ABCDEFabcdef’;

char octal[] = ‘01234567’;

char empty[] = ‘ \n\r\t\v\r\b’;

char litera[]=

‘ABCDEFGHIJKLMNOPQRSTUVUXYZ_abcdefghijklmnopqrstuvuxyz’

char vector_upr [256];

// початкова ініціалізація

void set_class (char * str, int code)

{ int i, len = strlen(str);

for (i=0; i<len; i + +) vector_upr [(int)*(str+i)] |= code;

}

int automat (FILE * fp)

{ int c, q =0; // початковий стан автомата

while ((c = fgetch(fp))! = EOF)

{ class_litera = vector_upr [(int) (c)];

if (!class_litera) break; // літера не належить множині sigma

switch (q)

{ case 0: if (class_litera & DECIMAL) { q=1; break;}

if (c == ‘0’) {q=6; break; }

if (class_litera & EMPTY) break;

return ERROR;

// в такому стилі програмуємо далі

… …. … …..

}

} }

main () {

int i;

FILE*fp; char file_name[80];

REPEAT:

printf("Вкажіть ім'я файла з лексеми:");

if(scant("%s", file_name) == 0) return 0; //відмовляється працювати

if(fp = fopen (file_name,"rt") == NULL)

{ printf ("файл %s не відкрито.\ n"); goto REPEAT;}

for (i = 0; i < 256; i++) *(vector_upr + i) = 0;

set_class(decimal, DECIMAL);

set_class(octal, OCTAL); set class(litera, LITERA);

set class(empty, EMPTY);

while (! eof (fp))

if (automat(fp) == ERROR) printf (" Лексема вірна - %s", text);

else printf (''Лексема помилкова-%s", text);

}// кінець main