2 * Copyright 2001-2006 Adrian Thurston <thurston@cs.queensu.ca>
5 /* This file is part of Ragel.
7 * Ragel is free software; you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation; either version 2 of the License, or
10 * (at your option) any later version.
12 * Ragel is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
17 * You should have received a copy of the GNU General Public License
18 * along with Ragel; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
29 typedef unsigned long long Size;
37 friend inline Key operator+(const Key key1, const Key key2);
38 friend inline Key operator-(const Key key1, const Key key2);
39 friend inline Key operator/(const Key key1, const Key key2);
40 friend inline long operator&(const Key key1, const Key key2);
42 friend inline bool operator<( const Key key1, const Key key2 );
43 friend inline bool operator<=( const Key key1, const Key key2 );
44 friend inline bool operator>( const Key key1, const Key key2 );
45 friend inline bool operator>=( const Key key1, const Key key2 );
46 friend inline bool operator==( const Key key1, const Key key2 );
47 friend inline bool operator!=( const Key key1, const Key key2 );
52 Key( const Key &key ) : key(key.key) {}
53 Key( long key ) : key(key) {}
55 /* Returns the value used to represent the key. This value must be
56 * interpreted based on signedness. */
57 long getVal() const { return key; };
59 /* Returns the key casted to a long long. This form of the key does not
60 * require any signedness interpretation. */
61 long long getLongLong() const;
63 /* Returns the distance from the key value to the maximum value that the
64 * key implementation can hold. */
65 Size availableSpace() const;
67 bool isUpper() const { return ( 'A' <= key && key <= 'Z' ); }
68 bool isLower() const { return ( 'a' <= key && key <= 'z' ); }
69 bool isPrintable() const
71 return ( 7 <= key && key <= 13 ) || ( 32 <= key && key < 127 );
75 { return Key( 'A' + ( key - 'a' ) ); }
77 { return Key( 'a' + ( key - 'A' ) ); }
79 void operator+=( const Key other )
81 /* FIXME: must be made aware of isSigned. */
85 void operator-=( const Key other )
87 /* FIXME: must be made aware of isSigned. */
91 void operator|=( const Key other )
93 /* FIXME: must be made aware of isSigned. */
97 /* Decrement. Needed only for ranges. */
98 inline void decrement();
99 inline void increment();
115 /* Target language. */
124 HostType *defaultAlphType;
125 bool explicitUnsigned;
128 extern HostLang *hostLang;
130 extern HostLang hostLangC;
131 extern HostLang hostLangD;
132 extern HostLang hostLangJava;
133 extern HostLang hostLangRuby;
135 HostType *findAlphType( char *s1 );
136 HostType *findAlphType( char *s1, char *s2 );
137 HostType *findAlphTypeInternal( char *s1 );
139 /* An abstraction of the key operators that manages key operations such as
140 * comparison and increment according the signedness of the key. */
143 /* Default to signed alphabet. */
149 /* Default to signed alphabet. */
150 KeyOps( bool isSigned )
151 :isSigned(isSigned) {}
157 void setAlphType( HostType *alphType )
159 this->alphType = alphType;
160 isSigned = alphType->isSigned;
162 minKey = (long) alphType->minVal;
163 maxKey = (long) alphType->maxVal;
166 minKey = (long) (unsigned long) alphType->minVal;
167 maxKey = (long) (unsigned long) alphType->maxVal;
171 /* Compute the distance between two keys. */
172 Size span( Key key1, Key key2 )
175 (unsigned long long)(
176 (long long)key2.key -
177 (long long)key1.key + 1) :
178 (unsigned long long)(
179 (unsigned long)key2.key) -
180 (unsigned long long)((unsigned long)key1.key) + 1;
184 { return span( minKey, maxKey ); }
186 HostType *typeSubsumes( long long maxVal )
188 for ( int i = 0; i < hostLang->numHostTypes; i++ ) {
189 if ( maxVal <= hostLang->hostTypes[i].maxVal )
190 return hostLang->hostTypes + i;
195 HostType *typeSubsumes( bool isSigned, long long maxVal )
197 for ( int i = 0; i < hostLang->numHostTypes; i++ ) {
198 if ( ( isSigned && hostLang->hostTypes[i].isSigned || !isSigned ) &&
199 maxVal <= hostLang->hostTypes[i].maxVal )
200 return hostLang->hostTypes + i;
206 extern KeyOps *keyOps;
208 inline bool operator<( const Key key1, const Key key2 )
210 return keyOps->isSigned ? key1.key < key2.key :
211 (unsigned long)key1.key < (unsigned long)key2.key;
214 inline bool operator<=( const Key key1, const Key key2 )
216 return keyOps->isSigned ? key1.key <= key2.key :
217 (unsigned long)key1.key <= (unsigned long)key2.key;
220 inline bool operator>( const Key key1, const Key key2 )
222 return keyOps->isSigned ? key1.key > key2.key :
223 (unsigned long)key1.key > (unsigned long)key2.key;
226 inline bool operator>=( const Key key1, const Key key2 )
228 return keyOps->isSigned ? key1.key >= key2.key :
229 (unsigned long)key1.key >= (unsigned long)key2.key;
232 inline bool operator==( const Key key1, const Key key2 )
234 return key1.key == key2.key;
237 inline bool operator!=( const Key key1, const Key key2 )
239 return key1.key != key2.key;
242 /* Decrement. Needed only for ranges. */
243 inline void Key::decrement()
245 key = keyOps->isSigned ? key - 1 : ((unsigned long)key)-1;
248 /* Increment. Needed only for ranges. */
249 inline void Key::increment()
251 key = keyOps->isSigned ? key+1 : ((unsigned long)key)+1;
254 inline long long Key::getLongLong() const
256 return keyOps->isSigned ? (long long)key : (long long)(unsigned long)key;
259 inline Size Key::availableSpace() const
261 if ( keyOps->isSigned )
262 return (long long)LONG_MAX - (long long)key;
264 return (unsigned long long)ULONG_MAX - (unsigned long long)(unsigned long)key;
267 inline Key operator+(const Key key1, const Key key2)
269 /* FIXME: must be made aware of isSigned. */
270 return Key( key1.key + key2.key );
273 inline Key operator-(const Key key1, const Key key2)
275 /* FIXME: must be made aware of isSigned. */
276 return Key( key1.key - key2.key );
279 inline long operator&(const Key key1, const Key key2)
281 /* FIXME: must be made aware of isSigned. */
282 return key1.key & key2.key;
285 inline Key operator/(const Key key1, const Key key2)
287 /* FIXME: must be made aware of isSigned. */
288 return key1.key / key2.key;
291 /* Filter on the output stream that keeps track of the number of lines
293 class output_filter : public std::filebuf
296 output_filter( char *fileName ) : fileName(fileName), line(1) { }
299 virtual std::streamsize xsputn(const char* s, std::streamsize n);
305 char *findFileExtension( char *stemFile );
306 char *fileNameFromStem( char *stemFile, char *suffix );
310 Export( char *name, Key key )
311 : name(name), key(key) {}
319 typedef DList<Export> ExportList;
321 struct exit_object { };
322 extern exit_object endp;
323 void operator<<( std::ostream &out, exit_object & );
325 #endif /* _COMMON_H */