VPF::[OCaml] lexer - Форум программистов

Kakadu

Дата 16.9.2009, 22:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 273
Регистрация: 19.3.2008

Репутация: нет
Всего: 7

Код


{}

rule token = parse 
        | ' ' { print_endline "Space" } 
        | '(' {
                            print_endline "L_BRA"
                    }
        | ')' {
                        print_endline "R_BRA"
            }
        (* предметная переменная *)    
        | ['a'-'z']? {
            
            }
        (* имя предиката *)    
        | ['A'-'Z']? {
                    print_endline "Predicate"
            }
        | ['!'] {
                    print_endline "Unary operator"
            }
        | "&" |  "=>" {
                    print_endline "Binary operator"
            }
{
    let main () =
        let lexbuf = Lexing.from_channel (open_in "input") in
            (token lexbuf)

    let _ = Printexc.print main ()
    }

Входной файл 'input' такой

Код


! a & b

На выходе получаю фразу 'Unary operator'. Хочу чтобы там было больше. Видимо после просмотра первого токена всё останавливается. Почему?

Наверное надо каждый раз вызывать мою функцию ещё раз внутри каждого разбора случая лексера. Вечером попробую.

Это сообщение отредактировал(а) Kakadu - 17.9.2009, 15:54

--------------------

Добрые мариносы долго кормили украдкой маленьких зерлингов. От этой украдки зерлинги пухли и дохли