coco.exe Op4.ATG

Coco/R (Mar 3, 2004)
-- line 4 col 19: undefined name
-- line 49 col 1: "END" expected

2 errors detected

COMPILER Op4;

CHARACTERS
    eol         = CHR(13) .
    underScore  = "_" .
    letter      = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" .
    digit       = "0123456789" .
    hexDigit    = digit + "ABCDEFabcdef" .

    noQuote1    = ANY - "'".

IGNORE
    CHR(9) .. CHR(13)

COMMENTS      FROM "(*" TO "*)"                                  (*  4- 5 *)
COMMENTS      FROM "{"  TO  "}"
COMMENTS      FROM "//" TO  eol

TOKENS
    bracketOpn =
        "[" | "(." .
    bracketCls =
        "]" | ".)" .
    ident =                                                      (*  4- 2 *)
        ( letter | underScore )  { letter | underScore | digit } .

    intConst =
        digit { digit } | "$" hexDigit { hexDigit } .
  (*
    problem 111..999 see
            number  = digit { digit }
                    | digit { digit } CONTEXT ( ".." ) .

  *)
    realConst =
        digit { digit } "." { digit }
        [ ( "E" | "e" ) [ "+" | "-" ] digit { digit } ] .

    quotedStr =                                                  (*  4- 4 *)
        "'" { noQuote1 | "''" } "'" .

    controlChr =
        "#" ( digit { digit } | '$' hexDigit { hexDigit } ) .
(*  integer is evaluated MOD 256 *)


PRODUCTIONS

A>Буду не против Скинь, пожалуйста, на nigo(at)fca.ru Спасибо!!

A>Coco/R (Mar 3, 2004)
A>-- line 4 col 19: undefined name
A>-- line 49 col 1: "END" expected

A>2 errors detected
A>

A>CHARACTERS
A>    eol         = CHR(13) .
A>

A>COMMENTS      FROM "(*" TO "*)"                                  (*  4- 5 *)

A>TOKENS
A>    bracketOpn =
A>        "[" | "(." .
A>    bracketCls =
A>        "]" | ".)" .

A>А со второй непонятно, наверное, ему комментарии не понравились

A>>Мне с этим ещё не совсем понятно. Завтра почитаю литературу, думаю разберусь

A>>Уже Только я всё никак не пойму, что за код в ATG для C#??

/*---------------------------- auxiliary methods ------------------------*/

static void Error (string s) {
    if (errDist >= minErrDist) Errors.Error(la.line, la.col, s);
    errDist = 0;
}

static bool IsTypeCast () {
    if (la.kind != _lpar) return false;
    if (IsSimpleTypeCast()) return true;
    if (assemblyName != null) return CheckTypeCast();
    return GuessTypeCast();
}

// "(" type ("[" {","} "]" | "*") ")"
static bool IsSimpleTypeCast () {
    // assert: la.kind == _lpar
    Scanner.ResetPeek();
    Token pt1 = Scanner.Peek();
    Token pt = Scanner.Peek();
    return (typeKW[pt1.kind] || pt1.kind == _void) && IsPointerOrDims(ref pt) && pt.kind == _rpar;
}

// "(" Qualident ("[" {","} "]" | "*") ")"
static bool CheckTypeCast () {
    // assert: la.kind == _lpar
    string id;
    Scanner.ResetPeek();
    Token pt = Scanner.Peek();
    return IsQualident(ref pt, out id) && IsPointerOrDims(ref pt) && 
           pt.kind == _rpar && IsType(id);
}