Lhogho  0.0.028
 All Data Structures Files Functions Variables Typedefs Macros Pages
translate_gr.h
Go to the documentation of this file.
1 //
2 // Project: Lhogho
3 // File: translate_gr.h
4 //
5 // Copyright (C) 2011 P.Boytchev
6 // Translation by ????
7 //
8 // Revision history:
9 // 2011-02-11 - file created from old translate.h
10 // 2011-10-07 - Removed TR_WARNING_UNSUPPORTED_COMPILER, because GCC 4+ is now supported
11 // 2011-10-14 - Added RUNMACRO
12 // 2011-12-02 - Added TR_ERROR_OUT_OF_MEM
13 //
14 //
15 //
16 // This program is free software; you can redistribute it and/or modify
17 // it under the terms of the GNU General Public License as published by
18 // the Free Software Foundation; either version 2 of the License, or
19 // (at your option) any later version.
20 //
21 // This program is distributed in the hope that it will be useful,
22 // but WITHOUT ANY WARRANTY; without even the implied warranty of
23 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 // GNU General Public License for more details.
25 //
26 // You should have received a copy of the GNU General Public License
27 // along with this program; if not, write to the Free Software
28 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
29 //
30 
31 
32 #ifndef LHOGHO_TRANSLATE_GR_H
33 #define LHOGHO_TRANSLATE_GR_H
34 
35 
36 // ===========================================================
39 // ===========================================================
40 #define TR_LHOGHO_CAPTION \
41  TEXT("LHOGHO - The LOGO Compiler [" \
42  OS_NAME "-" PROCESSOR_NAME "(En), " \
43  __DATE__ "]\n" \
44  "\n")
45 
46 
47 
48 // ===========================================================
51 // ===========================================================
52 #ifdef ADVANCED
53 #define ADVANCED_OPTIONS "Advanced options:\n"
54 #else
55 #define ADVANCED_OPTIONS "Unsupported options:\n"
56 #endif
57 
58 
59 
60 
61 // ===========================================================
64 // ===========================================================
65 #define TR_OPTION_HELP TEXT( \
66  "Usage:\n" \
67  " lhogho [option] [option] ... filename [arguments]\n" \
68  "\n" \
69  "Options:\n" \
70  " -h --help print this help message\n" \
71  " -x --executable create executable file\n" \
72  " -xc --executable-compiler embed Lhogho in executable file\n" \
73  " -ci --case-insensitive switch to case-insentivie mode\n" \
74  " -t --traditional switch to traditional mode\n" \
75  "\n" \
76  ADVANCED_OPTIONS \
77  " -Za --Zassembler dump assembler code\n" \
78  " -Zm --Zmemory dump memory statistics\n" \
79  " -Zmad --Zmemory-all-details dump detailed memory statistics\n" \
80  " -Zrt --Zrun-time dump runtime evaluations\n" \
81  " -Zt --Ztree dump abstract syntax trees\n" \
82  " -Zv --Zvariables dump variables\n" \
83  " -Zuv --Zuser-variables dump user variables\n" \
84  "" )
85 
86 
87 
88 
89 // ===========================================================
92 // ===========================================================
93 #define TR_PRIMITIVES TEXT( \
94  " false true to end toplevel system error" \
95  " * / + - = < > <= >= <> and or not " \
96  " first butfirst bf firsts butfirsts bfs" \
97  " last butlast bl item " \
98  " word list sentence se fput lput " \
99  " word? wordp list? listp number? numberp empty? emptyp " \
100  " equal? equalp notequal? notequalp before? beforep " \
101  " less? lessp greater? greaterp lessequal? lessequalp " \
102  " greaterequal? greaterequalp member? memberp count " \
103  " char ascii lowercase uppercase member parse runparse " \
104  " sum difference minus product quotient remainder " \
105  " int round sqrt power exp log10 ln abs " \
106  " pi sin radsin cos radcos arctan radarctan " \
107  " iseq rseq random rerandom pick " \
108  " lshift ashift bitand bitor bitxor bitnot " \
109  " print pr ? show type form format " \
110  " if ifelse repeat repcount while do.while until do.until "\
111  " run forever ignore stop make name output op maybeoutput local thing bye " \
112  " wait tag goto defined? definedp primitive? primitivep " \
113  " name? namep procedure? procedurep " \
114  " for case cond text fulltext define load commandline " \
115  " printdepthlimit printwidthlimit fullprintp caseignoredp "\
116  " logoplatform logoversion logodialect " \
117  " catch throw error apply " \
118  " test iftrue ift iffalse iff " \
119  " backslashed? backslashedp " \
120  " remdup remove reverse rawascii" \
121  " substring? substringp substring gensym combine quoted" \
122  " runresult runmacro " \
123  " libload libfree " \
124  " packsize pack unpack packaddr packto funcaddr " \
125  " openfile closefile readpack writepack " \
126  " external internal _int3 _stackframe _stackframeatom " \
127  " readchar rc readchars rcs readrawline readword rw readlist rl " \
128  " getenv getenvs eof? eofp " \
129  " " )
130 
131 
132 // ===========================================================
134 // ===========================================================
135 // @{
136 #define TR_ERROR_INCOMPLETE_PAIR TEXT("The other counterpart is missing")
137 #define TR_ERROR_EMPTY_EXPRESSION TEXT("Empty expression")
138 #define TR_ERROR_CROWDED_EXPRESSION TEXT("Crowded expression")
139 #define TR_ERROR_MISSING_LEFTS TEXT("Some left inputs are missing")
140 #define TR_ERROR_MISSING_RIGHTS TEXT("Some right inputs are missing")
141 #define TR_ERROR_EMPTY_TO_END TEXT("Empty TO..END definition")
142 #define TR_ERROR_MISSING_NAME TEXT("Missing name of a TO..END definition")
143 #define TR_ERROR_DUPLICATE_INPUT TEXT("Duplicate name of input")
144 #define TR_ERROR_UNKNOWN_OPTION TEXT("Unknown option")
145 #define TR_ERROR_CROWDED_SOURCES TEXT("Two or more input source files")
146 #define TR_ERROR_OS_ERROR TEXT("OS Error")
147 #define TR_ERROR_INCOMPATIBLE_REDEFINITION TEXT("Incompatible TO..END redefinition")
148 #define TR_ERROR_NOT_A_NUMBER TEXT("Not a number")
149 #define TR_ERROR_UNUSED_VALUE TEXT("Unused value")
150 #define TR_ERROR_MISSING_VALUE TEXT("Missing value")
151 #define TR_ERROR_DO_NOT_KNOW TEXT("Do not know how to do this")
152 #define TR_ERROR_UNKNOWN_VAR TEXT("Reference to unknown variable")
153 #define TR_ERROR_BOOLEAN_EXPECTED TEXT("Boolean expression expected")
154 #define TR_ERROR_NOT_AN_INTEGER TEXT("Not an integer number")
155 #define TR_ERROR_NOT_A_LIST TEXT("Not a list")
156 #define TR_ERROR_NOT_A_WORD TEXT("Not a word")
157 #define TR_ERROR_INCOMPATIBLE_DATA TEXT("Value not compatible with function requirements")
158 #define TR_ERROR_TOO_BIG_NUMBER TEXT("Numeric value is too big")
159 #define TR_ERROR_TOO_SMALL_NUMBER TEXT("Numeric value is too small")
160 #define TR_ERROR_NOT_A_VAR TEXT("Not a variable")
161 #define TR_EXIT_BY_BYE TEXT("Bye")
162 #define TR_EXIT_BY_THROW_TOPLEVEL TEXT("Thrown to toplevel")
163 #define TR_EXIT_BY_THROW_SYSTEM TEXT("Thrown to system")
164 #define TR_EXIT_BY_THROW_ERROR TEXT("Thrown by error")
165 #define TR_EXIT_BY_THROW_USER_ERROR TEXT("Thrown by error")
166 #define TR_EXIT_BY_THROW_TAG TEXT("Uncatched throw")
167 #define TR_EXIT_BY_THROW_TAG_VALUE TEXT("Uncatched throw")
168 #define TR_ERROR_NOT_A_TAG TEXT("Not a tag")
169 #define TR_ERROR_NOT_A_USER_FUNCTION TEXT("Not a user-defined function")
170 #define TR_ERROR_VAR_HAS_NO_VALUE TEXT("Variable has no value")
171 #define TR_ERROR_NOT_A_FUNCTION TEXT("Not a command or a function")
172 #define TR_ERROR_NOT_A_LIST_CONST TEXT("Not a list constant")
173 #define TR_ERROR_NOT_A_WORD_CONST TEXT("Not a word constant")
174 #define TR_ERROR_MISSING_FOR_LIMITS TEXT("Missing initial or final limit")
175 #define TR_ERROR_NOT_A_TYPE_NAME TEXT("Not a name of a supported type")
176 #define TR_ERROR_BAD_PROTOTYPE TEXT("Not a valid function prototype")
177 #define TR_ERROR_NOT_A_MEM TEXT("Not a memory block or packed data")
178 #define TR_ERROR_OUT_OF_MEM TEXT("Out of memory")
179 //#define TR_WARNING_UNSUPPORTED_COMPILER TEXT("This Lhogho is compiled with unsupported compiler")
180 
181 // @}
182 
183 #endif //LHOGHO_TRANSLATE_GR_H

[ HOME | INDEX | ATOMS | VARS | REFERENCE ]
Lhogho Developer's Documentation
Wed Jul 10 2013