2024-07-09 14:44:24 +00:00
|
|
|
defclass A [ a ] {
|
2024-09-28 02:57:56 +00:00
|
|
|
fun :* init1() {
|
2023-11-27 09:25:27 +00:00
|
|
|
| b |
|
|
|
|
set b (+ 1 2);
|
|
|
|
set a b;
|
|
|
|
printf "init to %d\n" a;
|
|
|
|
return self;
|
|
|
|
};
|
|
|
|
|
2023-11-26 15:08:59 +00:00
|
|
|
{
|
|
|
|
## this must not be allowed at this level. if it's allowed,
|
|
|
|
## it should be at the top-level which is above the class level. this is confusing.
|
2023-11-27 09:25:27 +00:00
|
|
|
| j | ##ERROR: syntax error - variable declaration disallowed in class init scope
|
2023-11-26 15:08:59 +00:00
|
|
|
set j 20;
|
|
|
|
printf ">>> %d\n" j;
|
|
|
|
}
|
|
|
|
|
2024-09-28 02:57:56 +00:00
|
|
|
fun :* init2() {
|
2023-11-27 09:25:27 +00:00
|
|
|
| b |
|
|
|
|
set b (+ 10 20);
|
|
|
|
set a b;
|
|
|
|
printf "init to %d\n" a;
|
2023-11-26 15:08:59 +00:00
|
|
|
return self;
|
|
|
|
};
|
|
|
|
};
|
2024-05-26 14:18:26 +00:00
|
|
|
|
|
|
|
---
|
|
|
|
|
2024-09-28 02:57:56 +00:00
|
|
|
fun String length() { ##ERROR: syntax error - no argument list
|
2024-05-26 14:18:26 +00:00
|
|
|
}
|
2024-07-09 14:44:24 +00:00
|
|
|
|
|
|
|
---
|
|
|
|
|
2024-08-27 15:58:56 +00:00
|
|
|
class A [ 10 ] { ##ERROR: syntax error - not variable name - 10
|
2024-07-09 14:44:24 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
---
|
|
|
|
|
|
|
|
class A [ a := 20 ] { ##ERROR: syntax error - := disallowed
|
|
|
|
}
|
|
|
|
|
|
|
|
---
|
|
|
|
class A [ [ [a] ] ] { ##ERROR: syntax error - not variable name
|
|
|
|
}
|
|
|
|
|
|
|
|
---
|
2024-08-27 15:58:56 +00:00
|
|
|
class A [ a + ] { ##ERROR: syntax error - not variable name - +
|
2024-07-09 14:44:24 +00:00
|
|
|
}
|
|
|
|
|
2024-07-13 08:40:27 +00:00
|
|
|
---
|
2024-08-27 15:58:56 +00:00
|
|
|
class A [ + ] { ##ERROR: syntax error - not variable name - +
|
2024-07-13 08:40:27 +00:00
|
|
|
}
|
2024-08-27 15:58:56 +00:00
|
|
|
|
|
|
|
---
|
|
|
|
|
|
|
|
fun xxx(x :: p q) { p := (x + 1); q := (x + 2) }
|
2024-09-18 12:41:00 +00:00
|
|
|
[a,[b]] := (xxx 20) ##ERROR: syntax error - bad lvalue - invalid element in tuple
|
2024-08-27 15:58:56 +00:00
|
|
|
printf "%d %d\n" a b
|
|
|
|
|
|
|
|
---
|
2024-09-18 12:41:00 +00:00
|
|
|
|
|
|
|
20 := 90 ##ERROR: syntax error - bad lvalue - invalid element - 20
|
2024-08-27 15:58:56 +00:00
|
|
|
|
|
|
|
---
|
|
|
|
|
|
|
|
[a b] := 10 ##ERROR: syntax error - non-function call/non-message send disallowed
|
|
|
|
|
|
|
|
---
|
|
|
|
|
2024-09-18 12:41:00 +00:00
|
|
|
[] := 10 ##ERROR: syntax error - bad lvalue - blank expression
|
|
|
|
|
|
|
|
---
|
|
|
|
|
|
|
|
+ + 100 ##ERROR: exception not handled - "unable to send + to #<PRIM> - '+' not found in Primitive"
|