00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023 #ifndef INCLUDED_PMT_H
00024 #define INCLUDED_PMT_H
00025
00026 #include <boost/intrusive_ptr.hpp>
00027 #include <boost/shared_ptr.hpp>
00028 #include <boost/any.hpp>
00029 #include <complex>
00030 #include <string>
00031 #include <stdint.h>
00032 #include <iosfwd>
00033 #include <stdexcept>
00034
00035 namespace gruel {
00036 class msg_accepter;
00037 };
00038
00039
00040
00041
00042
00043
00044
00045
00046
00047 namespace pmt {
00048
00049
00050
00051
00052 class pmt_base;
00053
00054
00055
00056
00057
00058 typedef boost::intrusive_ptr<pmt_base> pmt_t;
00059
00060 extern void intrusive_ptr_add_ref(pmt_base*);
00061 extern void intrusive_ptr_release(pmt_base*);
00062
00063 class pmt_exception : public std::logic_error
00064 {
00065 public:
00066 pmt_exception(const std::string &msg, pmt_t obj);
00067 };
00068
00069 class pmt_wrong_type : public pmt_exception
00070 {
00071 public:
00072 pmt_wrong_type(const std::string &msg, pmt_t obj);
00073 };
00074
00075 class pmt_out_of_range : public pmt_exception
00076 {
00077 public:
00078 pmt_out_of_range(const std::string &msg, pmt_t obj);
00079 };
00080
00081 class pmt_notimplemented : public pmt_exception
00082 {
00083 public:
00084 pmt_notimplemented(const std::string &msg, pmt_t obj);
00085 };
00086
00087
00088
00089
00090
00091
00092
00093
00094
00095 extern const pmt_t PMT_T;
00096 extern const pmt_t PMT_F;
00097
00098
00099 bool pmt_is_bool(pmt_t obj);
00100
00101
00102 bool pmt_is_true(pmt_t obj);
00103
00104
00105 bool pmt_is_false(pmt_t obj);
00106
00107
00108 pmt_t pmt_from_bool(bool val);
00109
00110
00111
00112 bool pmt_to_bool(pmt_t val);
00113
00114
00115
00116
00117
00118
00119
00120
00121 bool pmt_is_symbol(const pmt_t& obj);
00122
00123
00124 pmt_t pmt_string_to_symbol(const std::string &s);
00125
00126
00127 pmt_t pmt_intern(const std::string &s);
00128
00129
00130
00131
00132
00133
00134 const std::string pmt_symbol_to_string(const pmt_t& sym);
00135
00136
00137
00138
00139
00140
00141
00142
00143 bool pmt_is_number(pmt_t obj);
00144
00145
00146
00147
00148
00149
00150
00151
00152 bool pmt_is_integer(pmt_t x);
00153
00154
00155 pmt_t pmt_from_long(long x);
00156
00157
00158
00159
00160
00161
00162
00163
00164 long pmt_to_long(pmt_t x);
00165
00166
00167
00168
00169
00170
00171
00172
00173
00174
00175 bool pmt_is_real(pmt_t obj);
00176
00177
00178 pmt_t pmt_from_double(double x);
00179
00180
00181
00182
00183
00184
00185
00186
00187 double pmt_to_double(pmt_t x);
00188
00189
00190
00191
00192
00193
00194
00195
00196
00197
00198 bool pmt_is_complex(pmt_t obj);
00199
00200
00201 pmt_t pmt_make_rectangular(double re, double im);
00202
00203
00204
00205
00206
00207 std::complex<double> pmt_to_complex(pmt_t z);
00208
00209
00210
00211
00212
00213
00214
00215 extern const pmt_t PMT_NIL;
00216
00217
00218 bool pmt_is_null(const pmt_t& x);
00219
00220
00221 bool pmt_is_pair(const pmt_t& obj);
00222
00223
00224 pmt_t pmt_cons(const pmt_t& x, const pmt_t& y);
00225
00226
00227 pmt_t pmt_car(const pmt_t& pair);
00228
00229
00230 pmt_t pmt_cdr(const pmt_t& pair);
00231
00232
00233 void pmt_set_car(pmt_t pair, pmt_t value);
00234
00235
00236 void pmt_set_cdr(pmt_t pair, pmt_t value);
00237
00238 pmt_t pmt_caar(pmt_t pair);
00239 pmt_t pmt_cadr(pmt_t pair);
00240 pmt_t pmt_cdar(pmt_t pair);
00241 pmt_t pmt_cddr(pmt_t pair);
00242 pmt_t pmt_caddr(pmt_t pair);
00243 pmt_t pmt_cadddr(pmt_t pair);
00244
00245
00246
00247
00248
00249
00250
00251
00252
00253
00254
00255
00256 bool pmt_is_tuple(pmt_t x);
00257
00258 pmt_t pmt_make_tuple();
00259 pmt_t pmt_make_tuple(const pmt_t &e0);
00260 pmt_t pmt_make_tuple(const pmt_t &e0, const pmt_t &e1);
00261 pmt_t pmt_make_tuple(const pmt_t &e0, const pmt_t &e1, const pmt_t &e2);
00262 pmt_t pmt_make_tuple(const pmt_t &e0, const pmt_t &e1, const pmt_t &e2, const pmt_t &e3);
00263 pmt_t pmt_make_tuple(const pmt_t &e0, const pmt_t &e1, const pmt_t &e2, const pmt_t &e3, const pmt_t &e4);
00264 pmt_t pmt_make_tuple(const pmt_t &e0, const pmt_t &e1, const pmt_t &e2, const pmt_t &e3, const pmt_t &e4, const pmt_t &e5);
00265 pmt_t pmt_make_tuple(const pmt_t &e0, const pmt_t &e1, const pmt_t &e2, const pmt_t &e3, const pmt_t &e4, const pmt_t &e5, const pmt_t &e6);
00266 pmt_t pmt_make_tuple(const pmt_t &e0, const pmt_t &e1, const pmt_t &e2, const pmt_t &e3, const pmt_t &e4, const pmt_t &e5, const pmt_t &e6, const pmt_t &e7);
00267 pmt_t pmt_make_tuple(const pmt_t &e0, const pmt_t &e1, const pmt_t &e2, const pmt_t &e3, const pmt_t &e4, const pmt_t &e5, const pmt_t &e6, const pmt_t &e7, const pmt_t &e8);
00268 pmt_t pmt_make_tuple(const pmt_t &e0, const pmt_t &e1, const pmt_t &e2, const pmt_t &e3, const pmt_t &e4, const pmt_t &e5, const pmt_t &e6, const pmt_t &e7, const pmt_t &e8, const pmt_t &e9);
00269
00270
00271
00272
00273 pmt_t pmt_to_tuple(const pmt_t &x);
00274
00275
00276
00277
00278
00279 pmt_t pmt_tuple_ref(const pmt_t &tuple, size_t k);
00280
00281
00282
00283
00284
00285
00286
00287
00288
00289
00290 bool pmt_is_vector(pmt_t x);
00291
00292
00293 pmt_t pmt_make_vector(size_t k, pmt_t fill);
00294
00295
00296
00297
00298
00299 pmt_t pmt_vector_ref(pmt_t vector, size_t k);
00300
00301
00302 void pmt_vector_set(pmt_t vector, size_t k, pmt_t obj);
00303
00304
00305 void pmt_vector_fill(pmt_t vector, pmt_t fill);
00306
00307
00308
00309
00310
00311
00312
00313
00314
00315
00316 bool pmt_is_blob(pmt_t x);
00317
00318
00319
00320
00321
00322
00323
00324
00325
00326 pmt_t pmt_make_blob(const void *buf, size_t len);
00327
00328
00329 const void *pmt_blob_data(pmt_t blob);
00330
00331
00332 size_t pmt_blob_length(pmt_t blob);
00333
00334
00335
00336
00337
00338
00339
00340
00341
00342
00343
00344
00345
00346
00347
00348
00349
00350
00351
00352
00353
00354
00355
00356
00357
00358
00359
00360
00361
00362
00363
00364 bool pmt_is_uniform_vector(pmt_t x);
00365
00366 bool pmt_is_u8vector(pmt_t x);
00367 bool pmt_is_s8vector(pmt_t x);
00368 bool pmt_is_u16vector(pmt_t x);
00369 bool pmt_is_s16vector(pmt_t x);
00370 bool pmt_is_u32vector(pmt_t x);
00371 bool pmt_is_s32vector(pmt_t x);
00372 bool pmt_is_u64vector(pmt_t x);
00373 bool pmt_is_s64vector(pmt_t x);
00374 bool pmt_is_f32vector(pmt_t x);
00375 bool pmt_is_f64vector(pmt_t x);
00376 bool pmt_is_c32vector(pmt_t x);
00377 bool pmt_is_c64vector(pmt_t x);
00378
00379 pmt_t pmt_make_u8vector(size_t k, uint8_t fill);
00380 pmt_t pmt_make_s8vector(size_t k, int8_t fill);
00381 pmt_t pmt_make_u16vector(size_t k, uint16_t fill);
00382 pmt_t pmt_make_s16vector(size_t k, int16_t fill);
00383 pmt_t pmt_make_u32vector(size_t k, uint32_t fill);
00384 pmt_t pmt_make_s32vector(size_t k, int32_t fill);
00385 pmt_t pmt_make_u64vector(size_t k, uint64_t fill);
00386 pmt_t pmt_make_s64vector(size_t k, int64_t fill);
00387 pmt_t pmt_make_f32vector(size_t k, float fill);
00388 pmt_t pmt_make_f64vector(size_t k, double fill);
00389 pmt_t pmt_make_c32vector(size_t k, std::complex<float> fill);
00390 pmt_t pmt_make_c64vector(size_t k, std::complex<double> fill);
00391
00392 pmt_t pmt_init_u8vector(size_t k, const uint8_t *data);
00393 pmt_t pmt_init_s8vector(size_t k, const int8_t *data);
00394 pmt_t pmt_init_u16vector(size_t k, const uint16_t *data);
00395 pmt_t pmt_init_s16vector(size_t k, const int16_t *data);
00396 pmt_t pmt_init_u32vector(size_t k, const uint32_t *data);
00397 pmt_t pmt_init_s32vector(size_t k, const int32_t *data);
00398 pmt_t pmt_init_u64vector(size_t k, const uint64_t *data);
00399 pmt_t pmt_init_s64vector(size_t k, const int64_t *data);
00400 pmt_t pmt_init_f32vector(size_t k, const float *data);
00401 pmt_t pmt_init_f64vector(size_t k, const double *data);
00402 pmt_t pmt_init_c32vector(size_t k, const std::complex<float> *data);
00403 pmt_t pmt_init_c64vector(size_t k, const std::complex<double> *data);
00404
00405 uint8_t pmt_u8vector_ref(pmt_t v, size_t k);
00406 int8_t pmt_s8vector_ref(pmt_t v, size_t k);
00407 uint16_t pmt_u16vector_ref(pmt_t v, size_t k);
00408 int16_t pmt_s16vector_ref(pmt_t v, size_t k);
00409 uint32_t pmt_u32vector_ref(pmt_t v, size_t k);
00410 int32_t pmt_s32vector_ref(pmt_t v, size_t k);
00411 uint64_t pmt_u64vector_ref(pmt_t v, size_t k);
00412 int64_t pmt_s64vector_ref(pmt_t v, size_t k);
00413 float pmt_f32vector_ref(pmt_t v, size_t k);
00414 double pmt_f64vector_ref(pmt_t v, size_t k);
00415 std::complex<float> pmt_c32vector_ref(pmt_t v, size_t k);
00416 std::complex<double> pmt_c64vector_ref(pmt_t v, size_t k);
00417
00418 void pmt_u8vector_set(pmt_t v, size_t k, uint8_t x);
00419 void pmt_s8vector_set(pmt_t v, size_t k, int8_t x);
00420 void pmt_u16vector_set(pmt_t v, size_t k, uint16_t x);
00421 void pmt_s16vector_set(pmt_t v, size_t k, int16_t x);
00422 void pmt_u32vector_set(pmt_t v, size_t k, uint32_t x);
00423 void pmt_s32vector_set(pmt_t v, size_t k, int32_t x);
00424 void pmt_u64vector_set(pmt_t v, size_t k, uint64_t x);
00425 void pmt_s64vector_set(pmt_t v, size_t k, int64_t x);
00426 void pmt_f32vector_set(pmt_t v, size_t k, float x);
00427 void pmt_f64vector_set(pmt_t v, size_t k, double x);
00428 void pmt_c32vector_set(pmt_t v, size_t k, std::complex<float> x);
00429 void pmt_c64vector_set(pmt_t v, size_t k, std::complex<double> x);
00430
00431
00432
00433 const void *pmt_uniform_vector_elements(pmt_t v, size_t &len);
00434
00435 const uint8_t *pmt_u8vector_elements(pmt_t v, size_t &len);
00436 const int8_t *pmt_s8vector_elements(pmt_t v, size_t &len);
00437 const uint16_t *pmt_u16vector_elements(pmt_t v, size_t &len);
00438 const int16_t *pmt_s16vector_elements(pmt_t v, size_t &len);
00439 const uint32_t *pmt_u32vector_elements(pmt_t v, size_t &len);
00440 const int32_t *pmt_s32vector_elements(pmt_t v, size_t &len);
00441 const uint64_t *pmt_u64vector_elements(pmt_t v, size_t &len);
00442 const int64_t *pmt_s64vector_elements(pmt_t v, size_t &len);
00443 const float *pmt_f32vector_elements(pmt_t v, size_t &len);
00444 const double *pmt_f64vector_elements(pmt_t v, size_t &len);
00445 const std::complex<float> *pmt_c32vector_elements(pmt_t v, size_t &len);
00446 const std::complex<double> *pmt_c64vector_elements(pmt_t v, size_t &len);
00447
00448
00449
00450 void *pmt_uniform_vector_writable_elements(pmt_t v, size_t &len);
00451
00452 uint8_t *pmt_u8vector_writable_elements(pmt_t v, size_t &len);
00453 int8_t *pmt_s8vector_writable_elements(pmt_t v, size_t &len);
00454 uint16_t *pmt_u16vector_writable_elements(pmt_t v, size_t &len);
00455 int16_t *pmt_s16vector_writable_elements(pmt_t v, size_t &len);
00456 uint32_t *pmt_u32vector_writable_elements(pmt_t v, size_t &len);
00457 int32_t *pmt_s32vector_writable_elements(pmt_t v, size_t &len);
00458 uint64_t *pmt_u64vector_writable_elements(pmt_t v, size_t &len);
00459 int64_t *pmt_s64vector_writable_elements(pmt_t v, size_t &len);
00460 float *pmt_f32vector_writable_elements(pmt_t v, size_t &len);
00461 double *pmt_f64vector_writable_elements(pmt_t v, size_t &len);
00462 std::complex<float> *pmt_c32vector_writable_elements(pmt_t v, size_t &len);
00463 std::complex<double> *pmt_c64vector_writable_elements(pmt_t v, size_t &len);
00464
00465
00466
00467
00468
00469
00470
00471
00472
00473
00474
00475
00476 bool pmt_is_dict(const pmt_t &obj);
00477
00478
00479 pmt_t pmt_make_dict();
00480
00481
00482 pmt_t pmt_dict_add(const pmt_t &dict, const pmt_t &key, const pmt_t &value);
00483
00484
00485 pmt_t pmt_dict_delete(const pmt_t &dict, const pmt_t &key);
00486
00487
00488 bool pmt_dict_has_key(const pmt_t &dict, const pmt_t &key);
00489
00490
00491 pmt_t pmt_dict_ref(const pmt_t &dict, const pmt_t &key, const pmt_t ¬_found);
00492
00493
00494 pmt_t pmt_dict_items(pmt_t dict);
00495
00496
00497 pmt_t pmt_dict_keys(pmt_t dict);
00498
00499
00500 pmt_t pmt_dict_values(pmt_t dict);
00501
00502
00503
00504
00505
00506
00507
00508
00509
00510
00511
00512 bool pmt_is_any(pmt_t obj);
00513
00514
00515 pmt_t pmt_make_any(const boost::any &any);
00516
00517
00518 boost::any pmt_any_ref(pmt_t obj);
00519
00520
00521 void pmt_any_set(pmt_t obj, const boost::any &any);
00522
00523
00524
00525
00526
00527
00528
00529
00530 bool pmt_is_msg_accepter(const pmt_t &obj);
00531
00532
00533 pmt_t pmt_make_msg_accepter(boost::shared_ptr<gruel::msg_accepter> ma);
00534
00535
00536 boost::shared_ptr<gruel::msg_accepter> pmt_msg_accepter_ref(const pmt_t &obj);
00537
00538
00539
00540
00541
00542
00543
00544
00545 bool pmt_eq(const pmt_t& x, const pmt_t& y);
00546
00547
00548
00549
00550
00551
00552
00553
00554
00555
00556
00557
00558
00559
00560 bool pmt_eqv(const pmt_t& x, const pmt_t& y);
00561
00562
00563
00564
00565
00566
00567
00568 bool pmt_equal(const pmt_t& x, const pmt_t& y);
00569
00570
00571
00572 size_t pmt_length(const pmt_t& v);
00573
00574
00575
00576
00577
00578
00579
00580
00581
00582 pmt_t pmt_assq(pmt_t obj, pmt_t alist);
00583
00584
00585
00586
00587
00588
00589
00590
00591
00592 pmt_t pmt_assv(pmt_t obj, pmt_t alist);
00593
00594
00595
00596
00597
00598
00599
00600
00601
00602 pmt_t pmt_assoc(pmt_t obj, pmt_t alist);
00603
00604
00605
00606
00607
00608
00609
00610
00611 pmt_t pmt_map(pmt_t proc(const pmt_t&), pmt_t list);
00612
00613
00614
00615
00616
00617
00618 pmt_t pmt_reverse(pmt_t list);
00619
00620
00621
00622
00623
00624
00625 pmt_t pmt_reverse_x(pmt_t list);
00626
00627
00628
00629
00630 inline static pmt_t
00631 pmt_acons(pmt_t x, pmt_t y, pmt_t a)
00632 {
00633 return pmt_cons(pmt_cons(x, y), a);
00634 }
00635
00636
00637
00638
00639 pmt_t pmt_nth(size_t n, pmt_t list);
00640
00641
00642
00643
00644
00645 pmt_t pmt_nthcdr(size_t n, pmt_t list);
00646
00647
00648
00649
00650
00651
00652 pmt_t pmt_memq(pmt_t obj, pmt_t list);
00653
00654
00655
00656
00657
00658
00659 pmt_t pmt_memv(pmt_t obj, pmt_t list);
00660
00661
00662
00663
00664
00665
00666 pmt_t pmt_member(pmt_t obj, pmt_t list);
00667
00668
00669
00670
00671
00672 bool pmt_subsetp(pmt_t list1, pmt_t list2);
00673
00674
00675
00676
00677 pmt_t pmt_list1(const pmt_t& x1);
00678
00679
00680
00681
00682 pmt_t pmt_list2(const pmt_t& x1, const pmt_t& x2);
00683
00684
00685
00686
00687 pmt_t pmt_list3(const pmt_t& x1, const pmt_t& x2, const pmt_t& x3);
00688
00689
00690
00691
00692 pmt_t pmt_list4(const pmt_t& x1, const pmt_t& x2, const pmt_t& x3, const pmt_t& x4);
00693
00694
00695
00696
00697 pmt_t pmt_list5(const pmt_t& x1, const pmt_t& x2, const pmt_t& x3, const pmt_t& x4, const pmt_t& x5);
00698
00699
00700
00701
00702
00703 pmt_t pmt_list6(const pmt_t& x1, const pmt_t& x2, const pmt_t& x3, const pmt_t& x4, const pmt_t& x5, const pmt_t& x6);
00704
00705
00706
00707
00708 pmt_t pmt_list_add(pmt_t list, const pmt_t& item);
00709
00710
00711
00712
00713
00714
00715
00716 extern const pmt_t PMT_EOF;
00717
00718
00719 bool pmt_is_eof_object(pmt_t obj);
00720
00721
00722
00723
00724
00725
00726
00727
00728
00729
00730
00731
00732
00733
00734
00735
00736 pmt_t pmt_read(std::istream &port);
00737
00738
00739
00740
00741 void pmt_write(pmt_t obj, std::ostream &port);
00742
00743
00744
00745
00746
00747 std::string pmt_write_string(pmt_t obj);
00748
00749
00750 std::ostream& operator<<(std::ostream &os, pmt_t obj);
00751
00752
00753
00754
00755
00756
00757
00758
00759
00760
00761 bool pmt_serialize(pmt_t obj, std::streambuf &sink);
00762
00763
00764
00765
00766 pmt_t pmt_deserialize(std::streambuf &source);
00767
00768
00769 void pmt_dump_sizeof();
00770
00771 }
00772
00773
00774 #include <gruel/pmt_sugar.h>
00775
00776 #endif