gb_reserved_temp.h

Gambas is a graphical development environment based on a Basic interpreter, like Visual Basic. It us

/***************************************************************************

  reserved_t.h

  Template for reserved keywords table and subroutines table.

  (c) 2000-2004 Beno顃 Minisini <[e-mail]>

  This program is free software; you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation; either version 1, or (at your option)
  any later version.

  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with this program; if not, write to the Free Software
  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

***************************************************************************/

#include "gb_common.h"
#include "gb_pcode.h"
#include "gb_type_common.h"
#include "gb_reserved.h"


PUBLIC COMP_INFO COMP_res_info[] =
{
  { "" },

  { "BOOLEAN",      RSF_TYPE,     T_BOOLEAN         },
  { "BYTE",         RSF_TYPE,     T_BYTE            },
  { "DATE",         RSF_TYPE,     T_DATE            },
  { "FLOAT",        RSF_TYPE,     T_FLOAT           },
  { "INTEGER",      RSF_TYPE,     T_INTEGER         },
  { "LONG",                                         },
  { "HUGE"                                          },
  { "SHORT",        RSF_TYPE,     T_SHORT           },
  { "STRING",       RSF_TYPE,     T_STRING          },
  { "VARIANT",      RSF_TYPE,     T_VARIANT         },
  { "CLASS"                                         },
  { "FUNCTION",                                     },
  { "OBJECT",       RSF_TYPE,     T_OBJECT          },
  { "STRUCT"                                        },
  { "CONST"                                         },
  { "PRIVATE"                                       },
  { "PUBLIC"                                        },
  { "STATIC"                                        },
  { "PROPERTY"                                      },
  { "EVENT"                                         },
  { "INHERITS"                                      },
  { "IMPLEMENTS"                                    },
  { "AS"                                            },
  { "DIM"                                           },
  { "NEW"                                           },
  { "PROCEDURE"                                     },
  { "SUB"                                           },
  { "RETURN"                                        },
  { "PARAM"                                         },
  { "OPTIONAL"                                      },
  { "OUTPUT"                                        },
  { "DO"                                            },
  { "LOOP"                                          },
  { "WHILE"                                         },
  { "UNTIL"                                         },
  { "REPEAT"                                        },
  { "WEND"                                          },
  { "IF"                                            },
  { "THEN"                                          },
  { "ELSE"                                          },
  { "ENDIF"                                         },
  { "END"                                           },
  { "FOR"                                           },
  { "TO"                                            },
  { "STEP"                                          },
  { "NEXT"                                          },
  { "SELECT"                                        },
  { "CASE"                                          },
  { "EXIT"                                          },
  { "BREAK"                                         },
  { "CONTINUE"                                      },
  { "GOTO"                                          },
  { "ME"                                            },
  { "LAST"                                          },
  { "TRY"                                           },
  { "FINALLY"                                       },
  { "CATCH"                                         },
  { "WITH"                                          },
  { "TRUE"                                          },
  { "FALSE"                                         },
  { "SWAP"                                          },
  { "NULL"                                          },
  { "EXTERN"                                        },
  { "EACH"                                          },
  { "IN"                                            },
  { "DEFAULT"                                       },
  { "STOP"                                          },
  { "QUIT"                                          },
  { "USE"                                           },
  { "RAISE"                                         },
  { "ERROR"                                         },

  { "PRINT"                                         },
  { "INPUT"                                         },
  { "READ"                                          },
  { "WRITE"                                         },
  { "OPEN"                                          },
  { "CLOSE"                                         },
  { "SEEK"                                          },
  { "APPEND"                                        },
  { "CREATE"                                        },
  { "BINARY"                                        },
  { "DIRECT"                                        },
  { "LINE"                                          },
  { "FLUSH"                                         },
  { "EXEC"                                          },
  { "SHELL"                                         },
  { "WAIT"                                          },
  { "KILL"                                          },
  { "RENAME"                                        },
  { "COPY"                                          },
  { "INC"                                           },
  { "DEC"                                           },
  { "MKDIR"                                         },
  { "RMDIR"                                         },
  { "WATCH"                                         },
  { "BIG"                                           },
  { "LITTLE"                                        },
  { "LINK"                                          },
  { "LOCK"                                          },
  { "UNLOCK"                                        },

  { ":"                                                         },
  { ";"                                                         },
  { ","                                                         },
  { "..."                                                       },
  { "#"                                                         },
  { "@"                                                         },
  { "=",            RSF_OP2,      OP_EQUAL,     4,    C_EQ      },
  { "(",            RSF_OPP,      OP_LBRA,      12              },
  { ")",                                                        },
  { ".",            RSF_OP2,      OP_PT,        20              },
  { "!",            RSF_OP2,      OP_EXCL,      20              },
  { "+",            RSF_OP2,      OP_PLUS,      5,    C_ADD     },
  { "-",            RSF_OP2,      OP_MINUS,     5,    C_SUB     },
  { "*",            RSF_OP2,      OP_STAR,      6,    C_MUL     },
  { "/",            RSF_OP2,      OP_SLASH,     6,    C_DIV     },
  { "^",            RSF_OP2,      OP_FLEX,      7,    C_POW     },
  { "&",            RSF_OPN,      OP_AMP,       5,    C_CAT     },
  { ">",            RSF_OP2,      OP_GT,        4,    C_GT      },
  { "<",            RSF_OP2,      OP_LT,        4,    C_LT      },
  { ">=",           RSF_OP2,      OP_GE,        4,    C_GE      },
  { "<=",           RSF_OP2,      OP_LE,        4,    C_LE      },
  { "<>",           RSF_OP2,      OP_NE,        4,    C_NE      },
  { "[",            RSF_OPP,      OP_LSQR,      12              },
  { "]",            RSF_NONE,     OP_RSQR                       },
  { "AND",          RSF_OP2,      OP_AND,       2,    C_AND     },
  { "OR",           RSF_OP2,      OP_OR,        1,    C_OR      },
  { "NOT",          RSF_OP1,      OP_NOT,       10,   C_NOT     },
  { "XOR",          RSF_OP2,      OP_XOR,       3,    C_XOR     },
  { "\\",           RSF_OP2,      OP_DIV,       6,    C_QUO     },
  { "MOD",          RSF_OP2,      OP_MOD,       6,    C_REM     },
  { "IS",           RSF_OP2,      OP_IS,        8,    C_IS      },

  { "LIKE",         RSF_OP2,      OP_LIKE,      4,    C_LIKE    },
  { "&/",           RSF_OPN,      OP_FILE,      7,    C_FILE    },

  { NULL }
};


PUBLIC SUBR_INFO COMP_subr_info[] =
{
  { "Left$",      0,  0,  1,  2 },
  { "Left",       0,  0,  1,  2 },

  { "Mid$",       1,  0,  2,  3 },
  { "Mid",        1,  0,  2,  3 },

  { "Right$",     2,  0,  1,  2 },
  { "Right",      2,  0,  1,  2 },

  { "Len",        3,  0,  1     },

  { "Space$",     4,  0,  1     },
  { "Space",      4,  0,  1     },

  { "String$",    5,  0,  2     },
  { "String",     5,  0,  2     },

  { "Trim$",      6,  0,  1     },
  { "Trim",       6,  0,  1     },

  { "LTrim$",     6,  1,  1     },
  { "LTrim",      6,  1,  1     },

  { "RTrim$",     6,  2,  1     },
  { "RTrim",      6,  2,  1     },

  { "Upper$",     7,  0,  1     },
  { "Upper",      7,  0,  1     },
  { "UCase$",     7,  0,  1     },
  { "UCase",      7,  0,  1     },

  { "Lower$",     8,  0,  1     },
  { "Lower",      8,  0,  1     },
  { "LCase$",     8,  0,  1     },
  { "LCase",      8,  0,  1     },

  { "Chr$",       9,  0,  1     },
  { "Chr",        9,  0,  1     },

  { "Asc",       10,  0,  1,  2 },

  { "InStr",     11,  0,  2,  3 },

  { "RInStr",    12,  0,  2,  3 },

  { "Subst$",    13,  0,  1, 63 },
  { "Subst",     13,  0,  1, 63 },

  { "Replace$",  14,  0,  3,  4 },
  { "Replace",   14,  0,  3,  4 },

  { "Split",     15,  0,  1,  3 },

  { "Conv",      16,  0,  3     },
  { "Conv$",     16,  0,  3     },

  { "Abs",       17,  0,  1     },
  { "Int",       18,  0,  1     },

  { "Frac",      19,  1,  1     },
  { "Log",       19,  2,  1     },
  { "Exp",       19,  3,  1     },
  { "Sqr",       19,  4,  1     },
  { "Sin",       19,  5,  1     },
  { "Cos",       19,  6,  1     },
  { "Tan",       19,  7,  1     },
  { "Atn",       19,  8,  1     },
  { "Atan",      19,  8,  1     },
  { "Asn",       19,  9,  1     },
  { "Asin",      19,  9,  1     },
  { "Acs",       19, 10,  1     },
  { "Acos",      19, 10,  1     },
  { "Deg",       19, 11,  1     },
  { "Rad",       19, 12,  1     },
  { "Log10",     19, 13,  1     },
  { "Sinh",      19, 14,  1     },
  { "Cosh",      19, 15,  1     },
  { "Tanh",      19, 16,  1     },
  { "Asnh",      19, 17,  1     },
  { "Asinh",     19, 17,  1     },
  { "Acsh",      19, 18,  1     },
  { "Acosh",     19, 18,  1     },
  { "Atnh",      19, 19,  1     },
  { "Atanh",     19, 19,  1     },

  { "Sgn",       20,  0,  1     },
  { "Fix",       21,  0,  1     },

  { "Pi",        22,  0,  0,  1 },
  { "Round",     23,  0,  1,  2 },
  { "Randomize", 24,  0,  0     },
  { "Rnd",       25,  0,  0,  2 },
  { "Min",       26,  0,  2, 63 },
  { "Max",       27,  0,  2, 63 },

  { "If",        28,  0,  2,  3 },
  { "IIf",       28,  0,  2,  3 },
  { "Choose",    29,  0,  1, 63 },

  { "Array",     30,  0,  1, 63 },

  { "BClr",      35,  1,  2     },
  { "BSet",      35,  2,  2     },
  { "BTst",      35,  3,  2     },
  { "BChg",      35,  4,  2     },