equal
deleted
inserted
replaced
60 boolean_t includeCurrentRecord = false; |
60 boolean_t includeCurrentRecord = false; |
61 boolean_t filterCurrentRelation = false; |
61 boolean_t filterCurrentRelation = false; |
62 string_t guileCode; |
62 string_t guileCode; |
63 |
63 |
64 SCM toGuileSymbol(const string_t& name) { |
64 SCM toGuileSymbol(const string_t& name) { |
65 return scm_string_to_symbol(scm_from_locale_string(convertor.to_bytes(name).c_str())); |
65 return scm_string_to_symbol(scm_from_locale_string(convertor.to_bytes(L"$" + name).c_str())); |
66 } |
66 } |
67 |
67 |
68 SCM toGuileString(const string_t& value) { |
68 SCM toGuileString(const string_t& value) { |
69 return scm_from_locale_string(convertor.to_bytes(value).c_str()); |
69 return scm_from_locale_string(convertor.to_bytes(value).c_str()); |
70 } |
70 } |
94 } |
94 } |
95 } |
95 } |
96 |
96 |
97 void undefineGuileVariable(const string_t& name, TypeId type, const string_t& value) { |
97 void undefineGuileVariable(const string_t& name, TypeId type, const string_t& value) { |
98 scm_define(toGuileSymbol(name), scm_make_undefined_variable()); // undefined != (define n) |
98 scm_define(toGuileSymbol(name), scm_make_undefined_variable()); // undefined != (define n) |
|
99 // TODO: or use: scm_variable_unset_x() ? |
99 } |
100 } |
100 |
101 |
101 public: |
102 public: |
102 |
103 |
103 GuileHandler(ostream& output, const vector<string_t>& arguments) { |
104 GuileHandler(ostream& output, const vector<string_t>& arguments) { |