Changeset 3990 for lang/perl/Senna/trunk
- Timestamp:
- 01/02/08 23:44:33 (5 years ago)
- Location:
- lang/perl/Senna/trunk
- Files:
-
- 8 added
- 5 modified
-
lib/Senna.pm (modified) (3 diffs)
-
lib/Senna.xs (modified) (3 diffs)
-
lib/Senna/Index.pm (modified) (1 diff)
-
lib/Senna/Symbol (added)
-
lib/Senna/Symbol.pm (added)
-
lib/Senna/Symbol/Info.pm (added)
-
senna-index.c (modified) (1 diff)
-
senna-perl.h (modified) (2 diffs)
-
senna-sym.c (added)
-
t/symbol (added)
-
t/symbol/01_load.t (added)
-
t/symbol/02_api.t (added)
-
t/symbol/03_create.t (added)
Legend:
- Unmodified
- Added
- Removed
-
lang/perl/Senna/trunk/lib/Senna.pm
r3955 r3990 23 23 24 24 use Senna::Constants; 25 use Senna::Encoding; 25 26 use Senna::Index; 26 use Senna::Encoding;27 27 use Senna::RC; 28 use Senna::Symbol; 28 29 29 30 … … 48 49 While Senna remains a personal favorite to search for Japanese text, 49 50 Senna (the API) is in a constant state of flux which makes things really hard 50 for binding development. 51 for binding development. This module tries hard to keep up with the changes, 52 but if you see breakage, PATCHES ARE ENCOURAGED. Please see L<CODE|CODE> 51 53 52 54 =head1 METHODS … … 59 61 It's called automatically at END block. 60 62 63 =head1 CODE 64 65 66 61 67 =head1 AUTHOR 62 68 63 Copyright (c) 2005-200 7Daisuke Maki E<lt>daisuke@endeworks.jpE<gt>69 Copyright (c) 2005-2008 Daisuke Maki E<lt>daisuke@endeworks.jpE<gt> 64 70 65 71 =cut -
lang/perl/Senna/trunk/lib/Senna.xs
r3961 r3990 27 27 28 28 SV * 29 SennaPerl_Index_ XS_create(pkg, path, key_size = SEN_VARCHAR_KEY, flags = 0, initial_n_segments = 0, encoding = sen_enc_default)29 SennaPerl_Index__XS_create(pkg, path, key_size = SEN_VARCHAR_KEY, flags = 0, initial_n_segments = 0, encoding = sen_enc_default) 30 30 char *pkg; 31 31 char *path; … … 34 34 int initial_n_segments; 35 35 sen_encoding encoding; 36 CODE: 37 RETVAL = SennaPerl_Index_create(pkg, path, key_size, flags, initial_n_segments, encoding); 38 OUTPUT: 39 RETVAL 36 40 37 41 SV * … … 136 140 SV *self; 137 141 142 MODULE = Senna PACKAGE = Senna::Symbol PREFIX = SennaPerl_Symbol_ 143 144 PROTOTYPES: DISABLE 145 146 SV * 147 SennaPerl_Symbol__XS_create(pkg, path, key_size, flags, encoding) 148 char *pkg; 149 char *path; 150 unsigned key_size; 151 unsigned flags; 152 sen_encoding encoding; 153 CODE: 154 RETVAL = SennaPerl_Symbol_create(pkg, path, key_size, flags, encoding); 155 OUTPUT: 156 RETVAL 157 158 SV * 159 SennaPerl_Symbol_path(obj) 160 SV *obj; 161 162 SV * 163 SennaPerl_Symbol_close(obj) 164 SV *obj; 165 166 SV * 167 SennaPerl_Symbol_get(obj, key) 168 SV *obj; 169 SV *key; 170 171 SV * 172 SennaPerl_Symbol_info(obj) 173 SV *obj; 174 175 SV * 176 SennaPerl_Symbol_remove(obj) 177 SV *obj; 178 179 void 180 SennaPerl_Symbol_DESTROY(obj) 181 SV *obj; -
lang/perl/Senna/trunk/lib/Senna/Index.pm
r3956 r3990 28 28 $_[1] ||= 0; 29 29 pop @_ while @_ && ! defined $_[-1]; 30 $class-> XS_create(@_);30 $class->_XS_create(@_); 31 31 } 32 32 -
lang/perl/Senna/trunk/senna-index.c
r3987 r3990 52 52 53 53 SV * 54 SennaPerl_Index_ XS_create(pkg, path, key_size, flags, initial_n_segments, encoding)54 SennaPerl_Index_create(pkg, path, key_size, flags, initial_n_segments, encoding) 55 55 char *pkg; 56 56 char *path; -
lang/perl/Senna/trunk/senna-perl.h
r3962 r3990 68 68 } SennaPerl_Records; 69 69 70 typedef struct { 71 sen_sym *sym; 72 char *path; 73 } SennaPerl_Symbol; 74 70 75 /* SennaPerl_Global */ 71 76 int SennaPerl_Global_bootstrap(); … … 100 105 void SennaPerl_Records_DESTROY(SV *self); 101 106 107 /* SennaPerl_Symbol */ 108 SV *SennaPerl_Symbol_create(char *pkg, char *path, unsigned key_size, unsigned flags, sen_encoding encoding); 109 void SennaPerl_Symbol_DESTROY(SV *obj); 110 SV *SennaPerl_Symbol_close(SV *obj); 111 SV *SennaPerl_Symbol_get(SV *obj, SV *key); 112 SV *SennaPerl_Symbol_info(SV *obj); 113 SV *SennaPerl_Symbol_remove(SV *obj); 114 SV *SennaPerl_Symbol_path(SV *obj); 115 102 116 #endif /* ifndef __SENNA_PERL_H__ */
![(please configure the [header_logo] section in trac.ini)](/share/chrome/site/your_project_logo.png)