# Script for making address tags.

define letter  [a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|
                A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|
                t|u|v|w|x|y|z|æ|ø|å|ä|ö|á|č|đ|ŋ|š|ŧ|ž|
                T|U|V|W|X|Y|Z|Æ|Ø|Å|Ä|Ö|Á|Č|Đ|Ŋ|Š|Ŧ|Ž];
define number  [1|2|3|4|5|6|7|8|9|%0];

define segment [ letter | number ] ;

define symbol [%:|%.|%-];
define element [ symbol | segment ] ;

define fsuf [ {jpg} | {gif}  | {doc}  | {txt}  | {tiff} | {pdf} | {ps} ] ;

define http [ h t t p ( s ) %: %/ %/ element^>3 ] ;
define www [ w w w %. element^>3 ] ;
define file [ element+ %. fsuf ] ;
define adr [ element+ %@ element+ %. letter^>1 ] ;

define suf %+WEB:0 ;
define advsuf %+Adv:0 ;
define nsuf %+N:0 ;

define httpsuf http suf advsuf ;
define wwwsuf www suf advsuf ;
define filesuf file suf nsuf ;
define adrsuf adr suf nsuf ;

read regex [ httpsuf | wwwsuf | filesuf | adrsuf ] ;