2d7ccc1278
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1712 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
18 lines
328 B
Plaintext
18 lines
328 B
Plaintext
|
|
:- object(macaddr).
|
|
|
|
:- public(valid/1).
|
|
|
|
valid(Address) :-
|
|
phrase(mac, Address).
|
|
|
|
mac --> digits, ":", digits, ":", digits, ":", digits, ":", digits, ":", digits.
|
|
|
|
digits --> digit, digit.
|
|
|
|
digit --> [C], {0'0 =< C, C =< 0'9}.
|
|
digit --> [C], {0'a =< C, C =< 0'f}.
|
|
digit --> [C], {0'A =< C, C =< 0'F}.
|
|
|
|
:- end_object.
|