← Back to branch summary

~ubuntu-branches/ubuntu/trusty/rgtk2/trusty

« back to all changes in this revision

Viewing changes to src/pangoFuncs.c

  • Committer: Bazaar Package Importer
  • Author(s): Dirk Eddelbuettel
  • Date: 2010-11-03 11:35:46 UTC
  • mfrom: (1.3.7 upstream)
  • Revision ID: james.westby@ubuntu.com-20101103113546-a7fi7jdxdebp0tw1
Tags: 2.20.1-1
* New upstream release

* debian/control: Set (Build-)Depends: to current R version
* debian/control: Set Standards-Version: to current version 

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/pangoFuncs.c
5539
5539
#if PANGO_CHECK_VERSION(1, 18, 0)
5540
5540
  cairo_font_type_t fonttype = ((cairo_font_type_t)asCEnum(s_fonttype, CAIRO_TYPE_FONT_TYPE));
5541
5541
 
5542
 
  PangoCairoFontMap* ans;
 
5542
  PangoFontMap* ans;
5543
5543
 
5544
5544
  ans = pango_cairo_font_map_new_for_font_type(fonttype);
5545
5545
 
5546
 
  _result = toRPointerWithFinalizer(ans, "PangoCairoFontMap", (RPointerFinalizer) g_object_unref);
 
5546
  _result = toRPointerWithFinalizer(ans, "PangoFontMap", (RPointerFinalizer) g_object_unref);
5547
5547
#else
5548
5548
  error("pango_cairo_font_map_new_for_font_type exists only in Pango >= 1.18.0");
5549
5549
#endif
5617
5617
}
5618
5618
 
5619
5619
 
 
5620
USER_OBJECT_
 
5621
S_pango_language_get_default(void)
 
5622
{
 
5623
  USER_OBJECT_ _result = NULL_USER_OBJECT;
 
5624
#if PANGO_CHECK_VERSION(1, 16, 0)
 
5625
 
 
5626
  PangoLanguage* ans;
 
5627
 
 
5628
  ans = pango_language_get_default();
 
5629
 
 
5630
  _result = toRPointer(ans ? (ans) : NULL, "PangoLanguage");
 
5631
#else
 
5632
  error("pango_language_get_default exists only in Pango >= 1.16.0");
 
5633
#endif
 
5634
 
 
5635
  return(_result);
 
5636
}
 
5637
 
 
5638
 
 
5639
USER_OBJECT_
 
5640
S_pango_language_get_sample_string(USER_OBJECT_ s_object)
 
5641
{
 
5642
  USER_OBJECT_ _result = NULL_USER_OBJECT;
 
5643
#if PANGO_CHECK_VERSION(1, 16, 0)
 
5644
  PangoLanguage* object = ((PangoLanguage*)getPtrValue(s_object));
 
5645
 
 
5646
  const char* ans;
 
5647
 
 
5648
  ans = pango_language_get_sample_string(object);
 
5649
 
 
5650
  _result = asRString(ans);
 
5651
#else
 
5652
  error("pango_language_get_sample_string exists only in Pango >= 1.16.0");
 
5653
#endif
 
5654
 
 
5655
  return(_result);
 
5656
}
 
5657
 
 
5658
 
 
5659
USER_OBJECT_
 
5660
S_pango_bidi_type_for_unichar(USER_OBJECT_ s_ch)
 
5661
{
 
5662
  USER_OBJECT_ _result = NULL_USER_OBJECT;
 
5663
#if PANGO_CHECK_VERSION(1, 22, 0)
 
5664
  gunichar ch = ((gunichar)asCNumeric(s_ch));
 
5665
 
 
5666
  PangoBidiType ans;
 
5667
 
 
5668
  ans = pango_bidi_type_for_unichar(ch);
 
5669
 
 
5670
  _result = asREnum(ans, PANGO_TYPE_BIDI_TYPE);
 
5671
#else
 
5672
  error("pango_bidi_type_for_unichar exists only in Pango >= 1.22.0");
 
5673
#endif
 
5674
 
 
5675
  return(_result);
 
5676
}
 
5677
 
 
5678
 
 
5679
USER_OBJECT_
 
5680
S_pango_attr_type_get_name(USER_OBJECT_ s_type)
 
5681
{
 
5682
  USER_OBJECT_ _result = NULL_USER_OBJECT;
 
5683
#if PANGO_CHECK_VERSION(1, 22, 0)
 
5684
  PangoAttrType type = ((PangoAttrType)asCEnum(s_type, PANGO_TYPE_ATTR_TYPE));
 
5685
 
 
5686
  const char* ans;
 
5687
 
 
5688
  ans = pango_attr_type_get_name(type);
 
5689
 
 
5690
  _result = asRString(ans);
 
5691
#else
 
5692
  error("pango_attr_type_get_name exists only in Pango >= 1.22.0");
 
5693
#endif
 
5694
 
 
5695
  return(_result);
 
5696
}
 
5697
 
 
5698
 
 
5699
USER_OBJECT_
 
5700
S_pango_cairo_create_context(USER_OBJECT_ s_cr)
 
5701
{
 
5702
  USER_OBJECT_ _result = NULL_USER_OBJECT;
 
5703
#if PANGO_CHECK_VERSION(1, 22, 0)
 
5704
  cairo_t* cr = ((cairo_t*)getPtrValue(s_cr));
 
5705
 
 
5706
  PangoContext* ans;
 
5707
 
 
5708
  ans = pango_cairo_create_context(cr);
 
5709
 
 
5710
  _result = toRPointerWithFinalizer(ans, "PangoContext", (RPointerFinalizer) g_object_unref);
 
5711
#else
 
5712
  error("pango_cairo_create_context exists only in Pango >= 1.22.0");
 
5713
#endif
 
5714
 
 
5715
  return(_result);
 
5716
}
 
5717
 
 
5718
 
 
5719
USER_OBJECT_
 
5720
S_pango_cairo_font_map_set_default(USER_OBJECT_ s_fontmap)
 
5721
{
 
5722
  USER_OBJECT_ _result = NULL_USER_OBJECT;
 
5723
#if PANGO_CHECK_VERSION(1, 22, 0)
 
5724
  PangoCairoFontMap* fontmap = PANGO_CAIRO_FONT_MAP(getPtrValue(s_fontmap));
 
5725
 
 
5726
 
 
5727
  pango_cairo_font_map_set_default(fontmap);
 
5728
 
 
5729
#else
 
5730
  error("pango_cairo_font_map_set_default exists only in Pango >= 1.22.0");
 
5731
#endif
 
5732
 
 
5733
  return(_result);
 
5734
}
 
5735
 
 
5736
 
 
5737
USER_OBJECT_
 
5738
S_pango_cairo_show_glyph_item(USER_OBJECT_ s_cr, USER_OBJECT_ s_text, USER_OBJECT_ s_glyph_item)
 
5739
{
 
5740
  USER_OBJECT_ _result = NULL_USER_OBJECT;
 
5741
#if PANGO_CHECK_VERSION(1, 22, 0)
 
5742
  cairo_t* cr = ((cairo_t*)getPtrValue(s_cr));
 
5743
  const char* text = ((const char*)asCString(s_text));
 
5744
  PangoGlyphItem* glyph_item = ((PangoGlyphItem*)getPtrValue(s_glyph_item));
 
5745
 
 
5746
 
 
5747
  pango_cairo_show_glyph_item(cr, text, glyph_item);
 
5748
 
 
5749
#else
 
5750
  error("pango_cairo_show_glyph_item exists only in Pango >= 1.22.0");
 
5751
#endif
 
5752
 
 
5753
  return(_result);
 
5754
}
 
5755
 
 
5756
 
 
5757
USER_OBJECT_
 
5758
S_pango_renderer_draw_glyph_item(USER_OBJECT_ s_object, USER_OBJECT_ s_text, USER_OBJECT_ s_glyph_item, USER_OBJECT_ s_x, USER_OBJECT_ s_y)
 
5759
{
 
5760
  USER_OBJECT_ _result = NULL_USER_OBJECT;
 
5761
#if PANGO_CHECK_VERSION(1, 22, 0)
 
5762
  PangoRenderer* object = PANGO_RENDERER(getPtrValue(s_object));
 
5763
  const char* text = ((const char*)asCString(s_text));
 
5764
  PangoGlyphItem* glyph_item = ((PangoGlyphItem*)getPtrValue(s_glyph_item));
 
5765
  int x = ((int)asCInteger(s_x));
 
5766
  int y = ((int)asCInteger(s_y));
 
5767
 
 
5768
 
 
5769
  pango_renderer_draw_glyph_item(object, text, glyph_item, x, y);
 
5770
 
 
5771
#else
 
5772
  error("pango_renderer_draw_glyph_item exists only in Pango >= 1.22.0");
 
5773
#endif
 
5774
 
 
5775
  return(_result);
 
5776
}
 
5777
 
 
5778
 
 
5779
USER_OBJECT_
 
5780
S_pango_font_map_create_context(USER_OBJECT_ s_object)
 
5781
{
 
5782
  USER_OBJECT_ _result = NULL_USER_OBJECT;
 
5783
#if PANGO_CHECK_VERSION(1, 22, 0)
 
5784
  PangoFontMap* object = PANGO_FONT_MAP(getPtrValue(s_object));
 
5785
 
 
5786
  PangoContext* ans;
 
5787
 
 
5788
  ans = pango_font_map_create_context(object);
 
5789
 
 
5790
  _result = toRPointerWithFinalizer(ans, "PangoContext", (RPointerFinalizer) g_object_unref);
 
5791
#else
 
5792
  error("pango_font_map_create_context exists only in Pango >= 1.22.0");
 
5793
#endif
 
5794
 
 
5795
  return(_result);
 
5796
}
 
5797
 
 
5798
 
 
5799
USER_OBJECT_
 
5800
S_pango_glyph_item_iter_init_start(USER_OBJECT_ s_object, USER_OBJECT_ s_glyph_item, USER_OBJECT_ s_text)
 
5801
{
 
5802
  USER_OBJECT_ _result = NULL_USER_OBJECT;
 
5803
#if PANGO_CHECK_VERSION(1, 22, 0)
 
5804
  PangoGlyphItemIter* object = ((PangoGlyphItemIter*)getPtrValue(s_object));
 
5805
  PangoGlyphItem* glyph_item = ((PangoGlyphItem*)getPtrValue(s_glyph_item));
 
5806
  const char* text = ((const char*)asCString(s_text));
 
5807
 
 
5808
  gboolean ans;
 
5809
 
 
5810
  ans = pango_glyph_item_iter_init_start(object, glyph_item, text);
 
5811
 
 
5812
  _result = asRLogical(ans);
 
5813
#else
 
5814
  error("pango_glyph_item_iter_init_start exists only in Pango >= 1.22.0");
 
5815
#endif
 
5816
 
 
5817
  return(_result);
 
5818
}
 
5819
 
 
5820
 
 
5821
USER_OBJECT_
 
5822
S_pango_glyph_item_iter_init_end(USER_OBJECT_ s_object, USER_OBJECT_ s_glyph_item, USER_OBJECT_ s_text)
 
5823
{
 
5824
  USER_OBJECT_ _result = NULL_USER_OBJECT;
 
5825
#if PANGO_CHECK_VERSION(1, 22, 0)
 
5826
  PangoGlyphItemIter* object = ((PangoGlyphItemIter*)getPtrValue(s_object));
 
5827
  PangoGlyphItem* glyph_item = ((PangoGlyphItem*)getPtrValue(s_glyph_item));
 
5828
  const char* text = ((const char*)asCString(s_text));
 
5829
 
 
5830
  gboolean ans;
 
5831
 
 
5832
  ans = pango_glyph_item_iter_init_end(object, glyph_item, text);
 
5833
 
 
5834
  _result = asRLogical(ans);
 
5835
#else
 
5836
  error("pango_glyph_item_iter_init_end exists only in Pango >= 1.22.0");
 
5837
#endif
 
5838
 
 
5839
  return(_result);
 
5840
}
 
5841
 
 
5842
 
 
5843
USER_OBJECT_
 
5844
S_pango_glyph_item_iter_next_cluster(USER_OBJECT_ s_object)
 
5845
{
 
5846
  USER_OBJECT_ _result = NULL_USER_OBJECT;
 
5847
#if PANGO_CHECK_VERSION(1, 22, 0)
 
5848
  PangoGlyphItemIter* object = ((PangoGlyphItemIter*)getPtrValue(s_object));
 
5849
 
 
5850
  gboolean ans;
 
5851
 
 
5852
  ans = pango_glyph_item_iter_next_cluster(object);
 
5853
 
 
5854
  _result = asRLogical(ans);
 
5855
#else
 
5856
  error("pango_glyph_item_iter_next_cluster exists only in Pango >= 1.22.0");
 
5857
#endif
 
5858
 
 
5859
  return(_result);
 
5860
}
 
5861
 
 
5862
 
 
5863
USER_OBJECT_
 
5864
S_pango_glyph_item_iter_prev_cluster(USER_OBJECT_ s_object)
 
5865
{
 
5866
  USER_OBJECT_ _result = NULL_USER_OBJECT;
 
5867
#if PANGO_CHECK_VERSION(1, 22, 0)
 
5868
  PangoGlyphItemIter* object = ((PangoGlyphItemIter*)getPtrValue(s_object));
 
5869
 
 
5870
  gboolean ans;
 
5871
 
 
5872
  ans = pango_glyph_item_iter_prev_cluster(object);
 
5873
 
 
5874
  _result = asRLogical(ans);
 
5875
#else
 
5876
  error("pango_glyph_item_iter_prev_cluster exists only in Pango >= 1.22.0");
 
5877
#endif
 
5878
 
 
5879
  return(_result);
 
5880
}
 
5881
 
 
5882
 
 
5883
USER_OBJECT_
 
5884
S_pango_language_get_scripts(USER_OBJECT_ s_object)
 
5885
{
 
5886
  USER_OBJECT_ _result = NULL_USER_OBJECT;
 
5887
#if PANGO_CHECK_VERSION(1, 22, 0)
 
5888
  PangoLanguage* object = ((PangoLanguage*)getPtrValue(s_object));
 
5889
 
 
5890
  const PangoScript* ans;
 
5891
  int num_scripts;
 
5892
 
 
5893
  ans = pango_language_get_scripts(object, &num_scripts);
 
5894
 
 
5895
  _result = asREnumArrayWithSize(ans, PANGO_TYPE_SCRIPT, num_scripts);
 
5896
 
 
5897
  _result = retByVal(_result, "num.scripts", asRInteger(num_scripts), NULL);
 
5898
  ;
 
5899
#else
 
5900
  error("pango_language_get_scripts exists only in Pango >= 1.22.0");
 
5901
#endif
 
5902
 
 
5903
  return(_result);
 
5904
}
 
5905
 
 
5906
 
 
5907
USER_OBJECT_
 
5908
S_pango_layout_get_baseline(USER_OBJECT_ s_object)
 
5909
{
 
5910
  USER_OBJECT_ _result = NULL_USER_OBJECT;
 
5911
#if PANGO_CHECK_VERSION(1, 22, 0)
 
5912
  PangoLayout* object = PANGO_LAYOUT(getPtrValue(s_object));
 
5913
 
 
5914
  int ans;
 
5915
 
 
5916
  ans = pango_layout_get_baseline(object);
 
5917
 
 
5918
  _result = asRInteger(ans);
 
5919
#else
 
5920
  error("pango_layout_get_baseline exists only in Pango >= 1.22.0");
 
5921
#endif
 
5922
 
 
5923
  return(_result);
 
5924
}
 
5925
 
 
5926
 
 
5927
USER_OBJECT_
 
5928
S_pango_gravity_get_for_script_and_width(USER_OBJECT_ s_script, USER_OBJECT_ s_wide, USER_OBJECT_ s_base_gravity, USER_OBJECT_ s_hint)
 
5929
{
 
5930
  USER_OBJECT_ _result = NULL_USER_OBJECT;
 
5931
#if PANGO_CHECK_VERSION(1, 26, 0)
 
5932
  PangoScript script = ((PangoScript)asCEnum(s_script, PANGO_TYPE_SCRIPT));
 
5933
  gboolean wide = ((gboolean)asCLogical(s_wide));
 
5934
  PangoGravity base_gravity = ((PangoGravity)asCEnum(s_base_gravity, PANGO_TYPE_GRAVITY));
 
5935
  PangoGravityHint hint = ((PangoGravityHint)asCEnum(s_hint, PANGO_TYPE_GRAVITY_HINT));
 
5936
 
 
5937
  PangoGravity ans;
 
5938
 
 
5939
  ans = pango_gravity_get_for_script_and_width(script, wide, base_gravity, hint);
 
5940
 
 
5941
  _result = asREnum(ans, PANGO_TYPE_GRAVITY);
 
5942
#else
 
5943
  error("pango_gravity_get_for_script_and_width exists only in Pango >= 1.26.0");
 
5944
#endif
 
5945
 
 
5946
  return(_result);
 
5947
}
 
5948
 
 
5949