mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-30 08:44:37 +00:00
4b28829101
extras/lex/lex.automata.m:
extras/lex/lex.buf.m:
extras/lex/lex.lexeme.m:
extras/lex/lex.m:
As above.
61 lines
2.0 KiB
Mathematica
61 lines
2.0 KiB
Mathematica
%-----------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et tw=0 wm=0 ff=unix ft=mercury
|
|
%-----------------------------------------------------------------------------%
|
|
%
|
|
% lex.automata.m
|
|
% Copyright (C) 2001 Ralph Becket <rbeck@microsoft.com>
|
|
% Copyright (C) 2002, 2010 The University of Melbourne
|
|
% Copyright (C) 2017-2019, 2023 The Mercury team.
|
|
% This file is distributed under the terms specified in COPYING.LIB.
|
|
%
|
|
% Fri Aug 18 15:48:09 BST 2000
|
|
%
|
|
% Basic types and insts etc. for DFAs and NFAs over chars.
|
|
%
|
|
% THIS FILE IS HEREBY CONTRIBUTED TO THE MERCURY PROJECT TO
|
|
% BE RELEASED UNDER WHATEVER LICENCE IS DEEMED APPROPRIATE
|
|
% BY THE ADMINISTRATORS OF THE MERCURY PROJECT.
|
|
%
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- module lex.automata.
|
|
:- interface.
|
|
|
|
:- import_module list.
|
|
:- import_module set.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
% States are labelled with non-negative integers.
|
|
%
|
|
:- type state_no == int.
|
|
|
|
:- type state_mc
|
|
---> state_mc(
|
|
smc_start_state :: state_no,
|
|
smc_stop_states :: set(state_no),
|
|
smc_state_transitions :: list(transition)
|
|
).
|
|
|
|
:- inst null_transition_free_state_mc for state_mc/0
|
|
---> state_mc(ground, ground, atom_transitions).
|
|
|
|
:- type transitions == list(transition).
|
|
|
|
:- inst atom_transitions == list_skel(atom_transition).
|
|
:- inst null_transitions == list_skel(null_transition).
|
|
|
|
:- type transition
|
|
---> null(state_no, state_no)
|
|
; trans(state_no, charset, state_no).
|
|
|
|
:- inst atom_transition for transition/0
|
|
---> trans(ground, ground, ground).
|
|
|
|
:- inst null_transition for transition/0
|
|
---> null(ground, ground).
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
:- end_module lex.automata.
|
|
%-----------------------------------------------------------------------------%
|