hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan
2005-08-11 11:18:30 +00:00
parent c7697a6512
commit 1a229b9d41
2 changed files with 18 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
ase/stx/parser.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: parser.c,v 1.65 2005-07-19 12:08:04 bacon Exp $ * $Id: parser.c,v 1.66 2005-08-11 11:18:30 bacon Exp $
*/ */
#include <xp/stx/parser.h> #include <xp/stx/parser.h>
@ -984,6 +984,20 @@ static int __parse_primary_ident (xp_stx_parser_t* parser, const xp_char_t* iden
xp_word_t i; xp_word_t i;
xp_stx_t* stx = parser->stx; xp_stx_t* stx = parser->stx;
/*
if (xp_strcmp(token->name.buffer, XP_TEXT("self")) == 0) {
EMIT_PUSH_LITERAL (parser, i);
}
else if (xp_strcmp(token->name.buffer, XP_TEXT("super")) == 0) {
}
else if (xp_strcmp(token->name.buffer, XP_TEXT("nil")) == 0) {
}
else if (xp_strcmp(token->name.buffer, XP_TEXT("true")) == 0) {
}
else if (xp_strcmp(token->name.buffer, XP_TEXT("false")) == 0) {
}
*/
/* Refer to __parse_assignment for identifier lookup */ /* Refer to __parse_assignment for identifier lookup */
for (i = 0; i < parser->temporary_count; i++) { for (i = 0; i < parser->temporary_count; i++) {

24
ase/test/stx/test.st
View File

@ -1,24 +1,4 @@
"isNil" "test if self is nil" main
perform: method with: x with: y with: z with: a1 with: b2 with: c2
| a b c d e f g |
< primitive: 16 > < primitive: 16 >
" ^nil.
a := 'this is ''good'.
a := #xxx niceMethod.
"
b := 12345 xxx nil this.
b := 30 + 20.
b := 'zzzzzz' xxx: 'cccccc' xy zzzz: 30 ccc:10 ccc: 'cccccc'.
$3 asString.
$4 asString.
$4 asString.
$5 asString.
$5 asString.
selector := 20.
"
(jjj xxx: 10 xy) zzz: (10 fuck: 20 you: 40) yyy: kkk.
[ spec plus: 20].
^10."