Module: Xampl

Defined in:
lib/xamplr.rb,
lib/xamplr/mixins.rb,
lib/xamplr/to-xml.rb,
lib/xamplr/to-ruby.rb,
lib/xamplr/visitor.rb,
lib/xamplr/from-xml.rb,
lib/xamplr/iterator.rb,
lib/xamplr/visitors.rb,
lib/xamplr/xml-text.rb,
lib/xamplr/persister.rb,
lib/xamplr/exceptions.rb,
lib/xamplr/persistence.rb,
lib/xamplr/xampl-module.rb,
lib/xamplr/xampl-object.rb,
lib/xamplr/from-xml-orig.rb,
lib/xamplr/notifications.rb,
lib/xamplr/persist-to-xml.rb,
lib/xamplr/persisters/caches.rb,
lib/xamplr/persisters/simple.rb,
lib/xamplr/persisters/caching.rb,
lib/xamplr/persisters/in-memory.rb,
lib/xamplr/persisters/filesystem.rb,
lib/xamplr/xampl-object-internals.rb,
lib/xamplr/xampl-persisted-object.rb,
lib/xamplr/persisters/tokyo-cabinet.rb

Defined Under Namespace

Modules: InvalidXampl, XamplExtensionsToRubyObjects, XamplObject, XamplPersistedObject, XamplWithDataContent, XamplWithMixedContent, XamplWithSimpleContent, XamplWithoutContent Classes: AbstractCachingPersister, AlreadyKnownToPersister, BlockedChange, CopyXML, CountingVisitor, FilesystemPersister, FromXML, FromXML_original, InMemoryPersister, IncompatiblePersisterConfiguration, IncompatiblePersisterRequest, Iterator, MarkChangedDeep, MixedPersisters, NoActivePersister, PersistXML, Persister, PrettyXML, ResetIsChanged, ReturnOrThrowInTransaction, RubyPrinter, SimplePersister, TableQuery, TokyoCabinetPersister, UnmanagedChange, Visitor, XMLPrinter, XMLText, XamplCache, XamplCacheLFU, XamplException, XamplIsInvalid, XamplLiteralRubyObject

Constant Summary collapse

DEFAULT_CAPACITY =

TODO – this is way too big! TODO – FIX THIS PROBLEM

increase the default cache size to 2000 (which is way too big, but there is
a bug... removing from the cache does not remove from memory, so if a
storybook exists that points (even indirectly) at something flushed, the
thing flushed is still held in memory. What is needed is for the thing to
be invalidated somehow withought DUPLICATES being created when the thing
is read again next time)

2000
@@logger = 
Logger.new(STDOUT)
@@persister = 
nil
@@known_persisters = 
{}
@@persister_kinds = 
{}
@@factory_default_persister_options = 
{
        :kind => :simple,
        :format => :xml_format
}
@@default_persister_options = 
{}.merge(@@factory_default_persister_options)
@@xampl_lock = 
Sync.new
@@verbose_transactions = 
true
@@xampl_extends_symbols = 
false

Class Method Summary collapse

Class Method Details

.add_lexical_indexs(indexes) ⇒ Object 



144
145
146
147
148
149
150
151
 
# File 'lib/xamplr/persistence.rb', line 144

def Xampl.add_lexical_indexs(indexes)
  case Xampl.default_persister_kind
    when :tokyo_cabinet then
      Xampl::TokyoCabinetPersister.add_lexical_indexs(indexes)
    else
      raise IncompatiblePersisterConfiguration.new(Xampl.default_persister_kind, "lexical_indexes")
  end
end

.add_numerical_indexs(indexes) ⇒ Object 



153
154
155
156
157
158
159
160
 
# File 'lib/xamplr/persistence.rb', line 153

def Xampl.add_numerical_indexs(indexes)
  case Xampl.default_persister_kind
    when :tokyo_cabinet then
      Xampl::TokyoCabinetPersister.add_numerical_indexs(indexes)
    else
      raise IncompatiblePersisterConfiguration.new(Xampl.default_persister_kind, "numerical_indexs")
  end
end

.auto_cache(xampl) ⇒ Object 



393
394
395
396
397
398
399
400
 
# File 'lib/xamplr/persistence.rb', line 393

def Xampl.auto_cache(xampl)
  if (nil == xampl.persister) and @@persister and @@persister.automatic then
    xampl.persister = @@persister
  end
  if xampl.persister and xampl.persister.automatic then
    xampl.persister.cache(xampl)
  end
end

.auto_persistence(on = true) ⇒ Object 



19
20
21
22
23
 
# File 'lib/xamplr/persistence.rb', line 19

def Xampl.auto_persistence(on=true)
  if (@@persister) then
    @@persister.automatic = on
  end
end

.auto_uncache(xampl) ⇒ Object 



402
403
404
405
406
 
# File 'lib/xamplr/persistence.rb', line 402

def Xampl.auto_uncache(xampl)
  if xampl.persister and xampl.persister.automatic then
    xampl.persister.uncache(xampl)
  end
end

.block_future_changes(on = true) ⇒ Object 



13
14
15
16
17
 
# File 'lib/xamplr/persistence.rb', line 13

def Xampl.block_future_changes(on=true)
  if (@@persister) then
    @@persister.block_changes = on
  end
end

.cache(xampl) ⇒ Object 



465
466
467
 
# File 'lib/xamplr/persistence.rb', line 465

def Xampl.cache(xampl)
  @@persister.cache(xampl)
end

.clear_cache ⇒ Object

Raises:



408
409
410
411
 
# File 'lib/xamplr/persistence.rb', line 408

def Xampl.clear_cache
  raise NoActivePersister unless @@persister
  @@persister.clear_cache
end

.close_all_persisters ⇒ Object 



423
424
425
426
427
 
# File 'lib/xamplr/persistence.rb', line 423

def Xampl.close_all_persisters
  @@known_persisters.each do | name, persister |
    persister.close
  end
end

.count_changed ⇒ Object 



385
386
387
 
# File 'lib/xamplr/persistence.rb', line 385

def Xampl.count_changed
  @@persister.count_changed if @@persister
end

.default_persister_format ⇒ Object 



71
72
73
 
# File 'lib/xamplr/persistence.rb', line 71

def Xampl.default_persister_format
  @@default_persister_options[:format]
end

.default_persister_kind ⇒ Object 



63
64
65
 
# File 'lib/xamplr/persistence.rb', line 63

def Xampl.default_persister_kind
  @@default_persister_options[:kind]
end

.default_persister_options ⇒ Object 



47
48
49
 
# File 'lib/xamplr/persistence.rb', line 47

def Xampl.default_persister_options
  {}.merge(@@default_persister_options)
end

.disable_all_persisters ⇒ Object 



29
30
31
32
33
 
# File 'lib/xamplr/persistence.rb', line 29

def Xampl.disable_all_persisters
  @@persister = nil
  @@known_persisters.each { | persister | persister.close}
  @@known_persisters = {}
end

.disable_persister ⇒ Object 



35
36
37
 
# File 'lib/xamplr/persistence.rb', line 35

def Xampl.disable_persister
  @@persister = nil
end

.drop_all_persisters(verbose = false) ⇒ Object 



122
123
124
125
126
127
128
129
130
131
132
133
134
 
# File 'lib/xamplr/persistence.rb', line 122

def Xampl.drop_all_persisters(verbose=false)
  puts "Drop All Persisters:: --------------------------" if verbose
  @@known_persisters.each do |name, persister|
    puts " #{ name } #{ persister.class.name }" if verbose
    next if persister == @@persister
    persister.close
    persister.clear_cache
  end
  puts "---------------------------------------------" if verbose
  GC.start
  GC.start
  GC.start
end

.drop_persister(name) ⇒ Object 



136
137
138
139
140
141
142
 
# File 'lib/xamplr/persistence.rb', line 136

def Xampl.drop_persister(name)
  Xampl.print_known_persisters
  p = @@known_persisters[name]
  p.close if p
  @@known_persisters.delete(name)
  Xampl.print_known_persisters
end

.enable_persister(name, kind = nil, format = nil) ⇒ Object 



79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
 
# File 'lib/xamplr/persistence.rb', line 79

def Xampl.enable_persister(name, kind=nil, format=nil)
  kind = kind || Xampl.default_persister_kind
  format = format || Xampl.default_persister_format
  @@persister = @@known_persisters[name]

  if @@persister then
    #      @@persister.open # this won't work
    # TODO -- if we know the persister, why are we being so anal about kind and format???

    kind = @@persister.kind || kind
    format = @@persister.format || format

    if kind and kind != @@persister.kind then
      raise IncompatiblePersisterRequest.new(@@persister, "kind", kind, @@persister.kind)
    end
    if format and format != @@persister.format then
      raise IncompatiblePersisterRequest.new(@@persister, "format", format, @@persister.format)
    end
  end

  unless @@persister then
    @@persister = @@persister_kinds[kind].new(name, format)
    if (nil != name) then
      @@known_persisters[name] = @@persister
    end
  end

  @@persister
end

.find_known(klass, pid) ⇒ Object

Raises:



455
456
457
458
459
 
# File 'lib/xamplr/persistence.rb', line 455

def Xampl.find_known(klass, pid)
  raise NoActivePersister unless @@persister
  xampl, ignore = @@persister.find_known(klass, pid)
  return xampl
end

.find_mentions_of(xampl) ⇒ Object

Raises:



592
593
594
595
 
# File 'lib/xamplr/persistence.rb', line 592

def Xampl.find_mentions_of(xampl)
  raise NoActivePersister unless @@persister
  @@persister.find_mentions_of(xampl)
end

.find_meta(hint = false) ⇒ Object

Raises:



582
583
584
585
 
# File 'lib/xamplr/persistence.rb', line 582

def Xampl.find_meta(hint=false)
  raise NoActivePersister unless @@persister
  @@persister.find_meta(hint) { | q | yield q }
end

.find_pids(hint = false) ⇒ Object

Raises:



587
588
589
590
 
# File 'lib/xamplr/persistence.rb', line 587

def Xampl.find_pids(hint=false)
  raise NoActivePersister unless @@persister
  @@persister.find_pids(hint) { | q | yield q }
end

.find_things_to_delete(scheduled_before = Time.now.to_i) ⇒ Object 



203
204
205
206
207
208
 
# File 'lib/xamplr/xampl-object.rb', line 203

def Xampl.find_things_to_delete(scheduled_before=Time.now.to_i)
  things = Xampl.query do | q |
    q.add_condition('scheduled-delete-at', :lte, scheduled_before)
  end
  things
end

.find_xampl(hint = false) ⇒ Object

Raises:



577
578
579
580
 
# File 'lib/xamplr/persistence.rb', line 577

def Xampl.find_xampl(hint=false)
  raise NoActivePersister unless @@persister
  @@persister.find_xampl(hint) { | q | yield q }
end

.flush_persister_caches ⇒ Object 



115
116
117
118
119
120
 
# File 'lib/xamplr/persistence.rb', line 115

def Xampl.flush_persister_caches
  Xampl.print_known_persisters
  @persister.close
  @@known_persisters.delete(@@persister.name)
  Xampl.print_known_persisters
end

.from_xml_file(file_name, tokenise = true) ⇒ Object 



257
258
259
 
# File 'lib/xamplr/xampl-object.rb', line 257

def Xampl.from_xml_file(file_name, tokenise=true)
  return FromXML.new.parse(file_name, tokenise)
end

.from_xml_string(xml_string, tokenise = true) ⇒ Object 



253
254
255
 
# File 'lib/xamplr/xampl-object.rb', line 253

def Xampl.from_xml_string(xml_string, tokenise=true)
  return FromXML.new.parse_string(xml_string, tokenise)
end

.introduce_to_persister(xampl) ⇒ Object

Raises:



379
380
381
382
383
 
# File 'lib/xamplr/persistence.rb', line 379

def Xampl.introduce_to_persister(xampl)
  raise NoActivePersister unless @@persister

  @@persister.introduce(xampl)
end

.lazy_load(xampl) ⇒ Object

Raises:



438
439
440
441
442
443
444
445
446
447
448
 
# File 'lib/xamplr/persistence.rb', line 438

def Xampl.lazy_load(xampl)
  raise NoActivePersister.new unless @@persister

  pid = xampl.get_the_index
  if xampl and pid then
    @@persister.lazy_load(xampl, xampl.class, pid)
    xampl.load_needed = false
  else
    raise "XAMPL.LAZY_LOAD -- REFUSED"
  end
end

.log ⇒ Object 



13
14
15
 
# File 'lib/xamplr.rb', line 13

def Xampl.log
  return @@logger
end

.lookup(klass, pid) ⇒ Object

Raises:



450
451
452
453
 
# File 'lib/xamplr/persistence.rb', line 450

def Xampl.lookup(klass, pid)
  raise NoActivePersister unless @@persister
  @@persister.lookup(klass, pid)
end

.lookup_in_map(map, klass, pid) ⇒ Object 



469
470
471
472
473
474
475
476
477
478
479
480
481
482
 
# File 'lib/xamplr/persistence.rb', line 469

def Xampl.lookup_in_map(map, klass, pid)
  return nil if nil == pid

  module_name = klass.module_name
  tag = klass.tag

  tag_map = map[module_name]
  return nil if nil == tag_map

  pid_map = tag_map[tag]
  return nil if nil == pid_map

  return pid_map[pid]
end

.make(klass, pid = nil) {|xampl| ... } ⇒ Object

Yields:

  • (xampl) 


5
6
7
8
9
10
 
# File 'lib/xamplr/mixins.rb', line 5

def Xampl.make(klass, pid=nil)
  xampl = klass.new
  xampl.set_the_index(pid) if nil != pid
  yield(xampl) if block_given?
  return xampl
end

.optimise(opts = {}) ⇒ Object

Raises:



561
562
563
564
565
 
# File 'lib/xamplr/persistence.rb', line 561

def Xampl.optimise(opts={})
  raise NoActivePersister unless @@persister

  @@persister.optimise(opts)
end

.persister ⇒ Object 



9
10
11
 
# File 'lib/xamplr/persistence.rb', line 9

def Xampl.persister
  @@persister
end

.print_known_persisters ⇒ Object 



109
110
111
112
113
 
# File 'lib/xamplr/persistence.rb', line 109

def Xampl.print_known_persisters
  puts "Known Persisters:: --------------------------"
  @@known_persisters.each { | n, k | puts " #{n} #{k}" }
  puts "---------------------------------------------"
end

.print_stats ⇒ Object 



389
390
391
 
# File 'lib/xamplr/persistence.rb', line 389

def Xampl.print_stats
  @@persister.print_stats if @@persister
end

.query(hint = false) ⇒ Object

Raises:



572
573
574
575
 
# File 'lib/xamplr/persistence.rb', line 572

def Xampl.query(hint=false)
  raise NoActivePersister unless @@persister
  @@persister.query(hint) { | q | yield q }
end

.query_implemented ⇒ Object

Raises:



567
568
569
570
 
# File 'lib/xamplr/persistence.rb', line 567

def Xampl.query_implemented
  raise NoActivePersister unless @@persister
  @@persister.query_implemented
end

.raw_persister_options ⇒ Object 



51
52
53
 
# File 'lib/xamplr/persistence.rb', line 51

def Xampl.raw_persister_options
  @@default_persister_options
end

.read_only(target_persister) ⇒ Object 



322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
 
# File 'lib/xamplr/persistence.rb', line 322

def Xampl.read_only(target_persister)
  #TODO -- EXCLUSIVE ACCESS TO THE PERSISTER!!!
  name = target_persister.name

  if block_given? then
    initial_persister = @@persister
    Xampl.enable_persister(name, target_persister.kind, target_persister.format)

    rollback = true
    original_automatic = @@persister.automatic
    original_changed = @changed
    @changed = {}
    begin
      Xampl.auto_persistence(false)
      #Xampl.block_future_changes(true)

      yield
      rollback = false
    ensure
      ####        Xampl.auto_persistence(original_automatic)
      ####        #Xampl.block_future_changes(false)
      ####
      ####        if 0 < @changed.size then
      ####          puts "CHANGED COUNT: #{@changed.size}"
      ####          raise BlockedChange.new(target_persister)
      ####        end
      ####
      ####        @changed = original_changed
      ####
      ####        puts "ROLLBACK(#{__LINE__})" if rollback
      ####			  Xampl.rollback if rollback
      ####	      @@persister = initial_persister

      Xampl.auto_persistence(original_automatic)
      #Xampl.block_future_changes(false)

      if 0 == @changed.size then
        @changed = original_changed

        #puts "ROLLBACK(#{__LINE__})" if rollback
        Xampl.rollback if rollback
        @@persister = initial_persister
      else
        #puts "CHANGED COUNT: #{@changed.size}"
        @changed = original_changed

        #puts "ROLLBACK(#{__LINE__})" if rollback
        Xampl.rollback

        @@persister = initial_persister

        raise BlockedChange.new(target_persister)
      end
    end
  end
end

.read_only_transaction(thing, kind = nil, automatic = true, format = nil, &block) ⇒ Object 



259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
 
# File 'lib/xamplr/persistence.rb', line 259

def Xampl.read_only_transaction(thing, kind=nil, automatic=true, format=nil, &block)
  if String === thing then
    name = thing
  elsif XamplObject === thing then
    name = thing.persister.name
  else
    raise XamplException.new("can't base a transaction on a #{thing.class.name} (#{thing})")
  end

  target_persister = nil
  if block_given? then
    @@xampl_lock.synchronize(:EX) do
      initial_persister = @@persister
      Xampl.enable_persister(name, kind, format)
      target_persister = @@persister

      rollback = true
      original_automatic = @@persister.automatic
      @changed ||= nil
      original_changed = @changed
      @changed = {}
      begin
        Xampl.auto_persistence(false)
        #Xampl.block_future_changes(true)

        yield
        rollback = false
      rescue => e
        exception = e
      ensure
        Xampl.auto_persistence(original_automatic)
        #Xampl.block_future_changes(false)

        if 0 == @changed.size then
          @changed = original_changed

          #if exception then
          #  puts "ROLLBACK(#{__LINE__}):: #{exception}"
          #  print exception.backtrace.join("\n") if exception
          #end

          #no change so don't bother with rollback
#            if rollback then
#              Xampl.rollback
#            end
          @@persister = initial_persister
        else
          #puts "CHANGED COUNT: #{@changed.size}"
          @changed = original_changed

          #puts "ROLLBACK(#{__LINE__}) #{exception}" if rollback
          #print exception.backtrace.join("\n")
          Xampl.rollback

          @@persister = initial_persister

          raise BlockedChange.new(target_persister)
        end
      end
    end
  end
end

.register_persister_kind(klass) ⇒ Object 



25
26
27
 
# File 'lib/xamplr/persistence.rb', line 25

def Xampl.register_persister_kind(klass)
  @@persister_kinds[klass.kind] = klass
end

.remove_from_map(map, xampl) ⇒ Object 



548
549
550
551
552
553
554
555
556
557
558
559
 
# File 'lib/xamplr/persistence.rb', line 548

def Xampl.remove_from_map(map, xampl)
  pid = xampl.get_the_index
  return nil unless pid

  tag_map = map[xampl.module_name]
  return nil unless tag_map

  pid_map = tag_map[xampl.tag]
  return nil unless pid_map

  return pid_map.delete(pid)
end

.rollback(persister = @@persister) ⇒ Object

Raises:



429
430
431
432
 
# File 'lib/xamplr/persistence.rb', line 429

def Xampl.rollback(persister=@@persister)
  raise NoActivePersister unless @@persister
  persister.rollback_cleanup
end

.rollback_all ⇒ Object 



434
435
436
 
# File 'lib/xamplr/persistence.rb', line 434

def Xampl.rollback_all
  @@known_persisters.values.each { | persister | persister.rollback }
end

.set_default_persister_format(format) ⇒ Object 



75
76
77
 
# File 'lib/xamplr/persistence.rb', line 75

def Xampl.set_default_persister_format(format)
  @@default_persister_options[:format] = format
end

.set_default_persister_kind(kind) ⇒ Object 



67
68
69
 
# File 'lib/xamplr/persistence.rb', line 67

def Xampl.set_default_persister_kind(kind)
  @@default_persister_options[:kind] = kind
end

.set_default_persister_properties(options) ⇒ Object 



55
56
57
58
59
60
61
 
# File 'lib/xamplr/persistence.rb', line 55

def Xampl.set_default_persister_properties(options)
  if options[:reset] then
    @@default_persister_options = @@factory_default_persister_options.merge(options)
  else
    @@default_persister_options = @@default_persister_options.merge(options)
  end
end

.store_in_cache(map, xampl, container) ⇒ Object 



516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
 
# File 'lib/xamplr/persistence.rb', line 516

def Xampl.store_in_cache(map, xampl, container)
  module_name = xampl.module_name
  tag = xampl.tag
  pid = xampl.get_the_index

  if nil == pid then
    return false
  end

  if block_given? then
    data = yield
  else
    data = xampl
  end

  tag_map = map[module_name]
  if nil == tag_map then
    tag_map = {}
    map[module_name] = tag_map
  end

  pid_map = tag_map[tag]
  if nil == pid_map then
    pid_map = container.fresh_cache
    tag_map[tag] = pid_map
  end

  pid_map[pid] = data

  return true
end

.store_in_map(map, xampl) ⇒ Object 



484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
 
# File 'lib/xamplr/persistence.rb', line 484

def Xampl.store_in_map(map, xampl)
  module_name = xampl.module_name
  tag = xampl.tag
  pid = xampl.get_the_index

  if nil == pid then
    return false
  end

  if block_given? then
    data = yield
  else
    data = xampl
  end

  tag_map = map[module_name]
  if nil == tag_map then
    tag_map = {}
    map[module_name] = tag_map
  end

  pid_map = tag_map[tag]
  if nil == pid_map then
    pid_map = {}
    tag_map[tag] = pid_map
  end

  pid_map[pid] = data

  return true
end

.sync ⇒ Object

Raises:



413
414
415
416
417
 
# File 'lib/xamplr/persistence.rb', line 413

def Xampl.sync
  #raise XamplException.new(:live_across_rollback) if @@persister.rolled_back
  raise NoActivePersister unless @@persister
  @@persister.sync
end

.sync_all ⇒ Object 



419
420
421
 
# File 'lib/xamplr/persistence.rb', line 419

def Xampl.sync_all
  @@known_persisters.each{ | name, persister | persister.sync }
end

.transaction(thing, kind = nil, automatic = true, format = nil, &block) ⇒ Object 



170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
 
# File 'lib/xamplr/persistence.rb', line 170

def Xampl.transaction(thing, kind=nil, automatic=true, format=nil, &block)
  if String === thing then
    name = thing
  elsif XamplObject === thing then
    name = thing.persister.name
  else
    raise XamplException.new("can't base a transaction on a #{thing.class.name} (#{thing})")
  end

  if block_given? then
    @@xampl_lock.synchronize(:EX) do
#      if true then
      begin
#          @@xampl_lock.sync_lock(:EX)
        initial_persister = @@persister
        Xampl.enable_persister(name, kind, format)

        rollback = true
        exception = nil
        original_automatic = @@persister.automatic

        begin
          #TODO -- impose some rules on nested transactions/enable_persisters??

          Xampl.auto_persistence(automatic)
          result = yield
          Xampl.block_future_changes(true)
          Xampl.sync
          rollback = false
          return result
        rescue => e
          exception = e
        ensure
          Xampl.block_future_changes(false)
          Xampl.auto_persistence(original_automatic)
          if rollback then
            # we get here if the transaction block finishes early
            if exception then
              # the early finish was caused by an exception
              raise RuntimeError, "ROLLBACK(#{__LINE__}):: #{exception}", exception.backtrace
            else
              # How could we have arrived at this point???
              # Well, I don't know all the reasons, but the ones I do know are:
              #  - return was used in the block passed into the transaction
              #  - a throw was made
              # There's no way that I know of to distinguish, so, assume that the transaction worked
              #    20091202 -- well maybe not...

#                Xampl.rollback # this is bad
              rollback = true
#                raise  ReturnOrThrowInTransaction
              STDERR.puts "---------"
              STDERR.puts "Either a return or a throw from a transaction. The DB is possibly not synced."
              caller(0).each do |trace|
                STDERR.puts(trace)
              end
              STDERR.puts "---------"

=begin

              begin
                puts "#{ __FILE__ }:#{ __LINE__ } [#{__method__}] "
                Xampl.block_future_changes(true)
                puts "#{ __FILE__ }:#{ __LINE__ } [#{__method__}] "
                Xampl.sync
                rollback = false
              rescue => e
                puts "#{ __FILE__ }:#{ __LINE__ } [#{__method__}] "
                # so we know the persister had a problem
                puts "PERSISTER ERROR(#{__LINE__}) #{ e }"
              ensure
                puts "#{ __FILE__ }:#{ __LINE__ } [#{__method__}] "
                Xampl.block_future_changes(false)
              end

=end
            end
          end
          Xampl.rollback if rollback
          @@persister = initial_persister
        end
        raise exception if exception
#        ensure
#          @@xampl_lock.sync_unlock
      end
    end
  end
end

.verboseTransactions(v) ⇒ Object 



166
167
168
 
# File 'lib/xamplr/persistence.rb', line 166

def Xampl.verboseTransactions(v)
  @@verbose_transactions = v
end

.write_to_cache(xampl) ⇒ Object 



461
462
463
 
# File 'lib/xamplr/persistence.rb', line 461

def Xampl.write_to_cache(xampl)
  @@persister.write_to_cache(xampl)
end

.xampl_extends_symbols ⇒ Object 



9
10
11
 
# File 'lib/xamplr/xampl-module.rb', line 9

def Xampl.xampl_extends_symbols
  @@xampl_extends_symbols
end

.xampl_extends_symbols=(v) ⇒ Object 



13
14
15
16
17
18
19
 
# File 'lib/xamplr/xampl-module.rb', line 13

def Xampl.xampl_extends_symbols=(v)
  @@xampl_extends_symbols = v

  if @@xampl_extends_symbols then
    Symbol.module_eval("include XamplExtensionsToRubyObjects")
  end
end