feat(frontends/lean/scanner): disallow superscripts in identifiers

See new test for motivating example.
This commit is contained in:
Leonardo de Moura 2016-01-26 18:24:12 -08:00
parent 6f6672eaaa
commit 4821af8685
3 changed files with 11 additions and 11 deletions

View file

@ -59,14 +59,10 @@ bool is_letter_like_unicode(unsigned u) {
(0x1f00 <= u && u <= 0x1ffe) || // Polytonic Greek Extended Character Set
(0x2100 <= u && u <= 0x214f); // Letter like block
}
bool is_super_sub_script_alnum_unicode(unsigned u) {
bool is_sub_script_alnum_unicode(unsigned u) {
return
(0x2070 <= u && u <= 0x2079) || // most (numeric) superscripts
(0x207f <= u && u <= 0x2089) || // n superscript and numberic subscripts
(0x2090 <= u && u <= 0x209c) || // letter-like subscripts
u == 0x00B2 || // 2 superscript
u == 0x00B3 || // 3 superscript
u == 0x00B9; // 1 superscript
(0x2090 <= u && u <= 0x209c); // letter-like subscripts
}
void scanner::next() {
@ -333,7 +329,7 @@ bool is_id_rest(char const * begin, char const * end) {
if (std::isalnum(*begin) || *begin == '_' || *begin == '\'')
return true;
unsigned u = utf8_to_unicode(begin, end);
return is_letter_like_unicode(u) || is_super_sub_script_alnum_unicode(u);
return is_letter_like_unicode(u) || is_sub_script_alnum_unicode(u);
}
static char const * g_error_key_msg = "unexpected token";

View file

@ -1,9 +1,9 @@
namespace foo
definition C¹ := nat
definition foo (c : C¹) := nat.rec_on c _ _
definition C := nat
definition foo (c : C) := nat.rec_on c _ _
end foo
namespace boo
notation `C¹` := nat
definition foo (c : C¹) := nat.rec_on c _ _
notation `C` := nat
definition foo (c : C) := nat.rec_on c _ _
end boo

View file

@ -0,0 +1,4 @@
constant f : nat → nat
notation a `²` := f a
variable a : nat
check a²