Changeset 1184


Ignore:
Timestamp:
Aug 13, 2003, 9:36:05 AM (17 years ago)
Author:
pooh
Message:
  • Read!() fixes.
Location:
to-imperative/trunk/runtime
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/runtime/rf_common.hh

    r1010 r1184  
    99#include "pxx_heap_allocator.hh"
    1010#include "pxx_chunk_allocator.hh"
     11
     12#include <wchar.h>
     13#include <wctype.h>
    1114#include <gmp.h>
    1215
     
    4548#endif
    4649
     50static inline bool is_refal_alnum (wint_t _wc) ;
     51static inline bool is_refal_upper (wint_t _wc) ;
     52
    4753}
    4854
  • to-imperative/trunk/runtime/rf_common.ih

    r994 r1184  
    88namespace rfrt
    99{
     10
     11static inline bool is_refal_alnum (wint_t _wc) {
     12  return iswalnum(_wc) || _wc == L'!' || _wc == L'?' || _wc == '-';
     13}
     14
     15static inline bool is_refal_upper (wint_t _wc) {
     16  return iswupper(_wc) || _wc == L'!' || _wc == L'?';
     17}
    1018
    1119static inline uint32_t update_hash (uint32_t _hash, void* _ptr, size_t _len)
  • to-imperative/trunk/runtime/rf_macros.hh

    r1183 r1184  
    11#ifndef __rf_macros_hh__
    22#define __rf_macros_hh__
    3 
    4 #include <wchar.h>
    53
    64namespace rfrt
     
    162160  }
    163161
    164 static inline bool is_refal_alnum (wint_t _wc) {
    165   return iswalnum(_wc) || _wc == L'!' || _wc == L'?' || _wc == '-';
    166 }
    167 
    168 static inline bool is_refal_upper (wint_t _wc) {
    169   return iswupper(_wc) || _wc == L'!' || _wc == L'?';
    170 }
    171 
    172162}
    173163
Note: See TracChangeset for help on using the changeset viewer.