source:
to-imperative/trunk/samples/Class/string_q.rf
@
2470
| Last change on this file since 2470 was 981, checked in by luba, 18 years ago | |
|---|---|
|
|
| File size: 252 bytes | |
| Line | |
|---|---|
| 1 | $use StdIO Class String; |
| 2 | |
| 3 | Main = { <String? <String 'ABC'>>; |
| 4 | <PrintLN 'fail'>; |
| 5 | }, |
| 6 | |
| 7 | { <String? 23>; |
| 8 | <PrintLN 'fail'>; |
| 9 | }, |
| 10 | { <String? <String 'abc'> <String 'abc'>>; |
| 11 | <PrintLN 'fail'>; |
| 12 | }; |
| 13 | |
| 14 | |
| 15 |
Note: See TracBrowser
for help on using the repository browser.
