[beast/devel: 11/16] BSE: use ctor syntax for all auxillary data in IDL files
- From: Tim Janik <timj src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [beast/devel: 11/16] BSE: use ctor syntax for all auxillary data in IDL files
- Date: Wed, 16 Jan 2013 17:37:35 +0000 (UTC)
commit cac36e4859ef550b095d30db726982dfd4e40140
Author: Tim Janik <timj gnu org>
Date: Wed Jan 2 20:28:51 2013 +0100
BSE: use ctor syntax for all auxillary data in IDL files
bse/bsecore.idl | 138 +++++++++++++++++++++++++++---------------------------
bse/bsetype.hh | 17 ++++--
2 files changed, 80 insertions(+), 75 deletions(-)
---
diff --git a/bse/bsecore.idl b/bse/bsecore.idl
index c55457b..7b33833 100644
--- a/bse/bsecore.idl
+++ b/bse/bsecore.idl
@@ -483,24 +483,24 @@ enum MidiChannelEventType {
record MidiChannelEvent
{
MidiChannelEventType event_type;
- Int channel = ("Channel", "", 0, 0, 99, 1, ":readwrite"); // FIXME: MAX_MIDI_CHANNEL
- Num tick_stamp = ("Time Stamp", "", 0, 0, SFI_MAXNUM, 0, STANDARD);
+ Int channel = SfiInt ("Channel", "", 0, 0, 99, 1, ":readwrite"); // FIXME: MAX_MIDI_CHANNEL
+ Num tick_stamp = SfiNum ("Time Stamp", "", 0, 0, SFI_MAXNUM, 0, STANDARD);
/* note (on/off/pressure) */
Real frequency = Freq ("Frequency", "", KAMMER_FREQ, ":readwrite");
- Real velocity = ("Velocity", "", 1, 0, 1.0, 0.1, ":readwrite");
+ Real velocity = SfiReal ("Velocity", "", 1, 0, 1.0, 0.1, ":readwrite");
/* control change */
- Int control = ("Control Number", "", 0, 0, 1024, 8, ":readwrite");
- Real value = ("Value", "", 0, -1, +1, 0.1, ":readwrite");
+ Int control = SfiInt ("Control Number", "", 0, 0, 1024, 8, ":readwrite");
+ Real value = SfiReal ("Value", "", 0, -1, +1, 0.1, ":readwrite");
/* program change */
- Int program = ("Program", "", 0, 0, 0x7f, 0x10, ":readwrite");
+ Int program = SfiInt ("Program", "", 0, 0, 0x7f, 0x10, ":readwrite");
/* channel pressure */
- Real intensity = ("Intensity", "", 0, 0, 1.0, 0.1, ":readwrite");
+ Real intensity = SfiReal ("Intensity", "", 0, 0, 1.0, 0.1, ":readwrite");
/* pitch bend */
- Real pitch_bend = ("Pitch Bend", "", 0, -1, +1, 0.1, ":readwrite");
+ Real pitch_bend = SfiReal ("Pitch Bend", "", 0, -1, +1, 0.1, ":readwrite");
/* song pointer */
- Int song_pointer = ("Song Pointer", "", 0, 0, 0x3fff, 0x80, ":readwrite");
+ Int song_pointer = SfiInt ("Song Pointer", "", 0, 0, 0x3fff, 0x80, ":readwrite");
/* song select */
- Int song_number = ("Song Number", "", 0, 0, 0x7f, 0x10, ":readwrite");
+ Int song_number = SfiInt ("Song Number", "", 0, 0, 0x7f, 0x10, ":readwrite");
};
sequence NoteSeq {
Int notes = Note ("Note", "", KAMMER_NOTE, ":readwrite"); /* FIXME: s/notes/note/ for pspecs, but not the C API */
@@ -515,19 +515,19 @@ record PropertyCandidates {
String label;
String tooltip;
ItemSeq items;
- TypeSeq partitions = ("Type Partitions", "List of types which may logically partition the list of items by type discrimination", STANDARD);
+ TypeSeq partitions = SfiSeq ("Type Partitions", "List of types which may logically partition the list of items by type discrimination", STANDARD);
};
record PartNote
{
Info blurb = "Part specific note representation";
- Int id = UInt ("ID", "", 0, ":readwrite");
- Int channel = ("Channel", "", 0, 0, MAXINT, 1, ":readwrite");
- Int tick = ("Tick", "", 0, 0, MAXINT, 1, ":readwrite");
- Int duration = ("Duration", "Duration in number of ticks", 0, 0, MAXINT, 1, ":readwrite");
+ Int id = SfiUInt ("ID", "", 0, ":readwrite");
+ Int channel = SfiInt ("Channel", "", 0, 0, MAXINT, 1, ":readwrite");
+ Int tick = SfiInt ("Tick", "", 0, 0, MAXINT, 1, ":readwrite");
+ Int duration = SfiInt ("Duration", "Duration in number of ticks", 0, 0, MAXINT, 1, ":readwrite");
Int note = Note ("Note", "", KAMMER_NOTE, ":readwrite");
- Int fine_tune = ("Fine Tune", "", 0, MIN_FINE_TUNE, MAX_FINE_TUNE, 1, ":readwrite");
- Real velocity = ("Velocity", "", 1, 0, 1.0, 0.1, ":readwrite");
- Bool selected = ("Selected", "", FALSE, ":readwrite");
+ Int fine_tune = SfiInt ("Fine Tune", "", 0, MIN_FINE_TUNE, MAX_FINE_TUNE, 1, ":readwrite");
+ Real velocity = SfiReal ("Velocity", "", 1, 0, 1.0, 0.1, ":readwrite");
+ Bool selected = SfiBool ("Selected", "", FALSE, ":readwrite");
};
sequence PartNoteSeq {
Info blurb = "A list of part notes";
@@ -536,11 +536,11 @@ sequence PartNoteSeq {
record PartControl
{
Info blurb = "Part specific control event representation";
- Int id = UInt ("ID", "", 0, ":readwrite");
- Int tick = ("Tick", "", 0, 0, MAXINT, 1, ":readwrite");
+ Int id = SfiUInt ("ID", "", 0, ":readwrite");
+ Int tick = SfiInt ("Tick", "", 0, 0, MAXINT, 1, ":readwrite");
MidiSignalType control_type;
- Real value = ("Value", "", 0, -1, +1, 0.1, ":readwrite");
- Bool selected = ("Selected", "", FALSE, ":readwrite");
+ Real value = SfiReal ("Value", "", 0, -1, +1, 0.1, ":readwrite");
+ Bool selected = SfiBool ("Selected", "", FALSE, ":readwrite");
};
sequence PartControlSeq {
Info blurb = "A list of part control events";
@@ -553,13 +553,13 @@ record NoteDescription
Int octave = Octave ("Octave", "", KAMMER_OCTAVE, ":readwrite");
Real freq = Freq ("Frequency", "", KAMMER_FREQ, ":readwrite");
Int fine_tune = FineTune ("Fine Tune", "", ":readwrite");
- Int semitone = Int ("Semitone", "", 0, 0, 11, 1, ":readwrite");
+ Int semitone = SfiInt ("Semitone", "", 0, 0, 11, 1, ":readwrite");
Bool upshift;
- Int letter = Int ("Letter", "International abbreviation letter for this note", 64, 32, 126, 1, ":readwrite");
+ Int letter = SfiInt ("Letter", "International abbreviation letter for this note", 64, 32, 126, 1, ":readwrite");
String name = String ("Name", "", "", ":readwrite");
/* constants */
- Int max_fine_tune = Int ("Max Fine Tune", "", MAX_FINE_TUNE, MAX_FINE_TUNE, MAX_FINE_TUNE, 0, ":readable");
- Int kammer_note = Int ("Kammer Note", "", KAMMER_NOTE, KAMMER_NOTE, KAMMER_NOTE, 0, ":readable");
+ Int max_fine_tune = SfiInt ("Max Fine Tune", "", MAX_FINE_TUNE, MAX_FINE_TUNE, MAX_FINE_TUNE, 0, ":readable");
+ Int kammer_note = SfiInt ("Kammer Note", "", KAMMER_NOTE, KAMMER_NOTE, KAMMER_NOTE, 0, ":readable");
Info blurb = "A note description provides all necessary details about a specific note. "
"Various procedures exist to retrieve a note description; given different "
"key values. The max_fine_tune and kammer_note fields are constants, which "
@@ -568,7 +568,7 @@ record NoteDescription
record NoteSequence
{
Int offset = Note ("Note Offset", "Center/base note", KAMMER_NOTE, ":readwrite");
- NoteSeq notes = ("Notes", "Sequence of notes", ":readwrite");
+ NoteSeq notes = SfiSeq ("Notes", "Sequence of notes", ":readwrite");
};
sequence PixelSeq {
Int pixels;
@@ -576,13 +576,13 @@ sequence PixelSeq {
record Icon
{
Info blurb = "BSE icon representation.";
- Int width = ("Width", "Width in pixels or 0 for no icon", 0, 0, MAXINT, 1, ":readwrite");
- Int height = ("Height", "Height in pixels or 0 for no icon", 0, 0, MAXINT, 1, ":readwrite");
- PixelSeq pixel_seq = ("Pixels", "Pixel array of width*height ARGB pixels", ":readwrite");
+ Int width = SfiInt ("Width", "Width in pixels or 0 for no icon", 0, 0, MAXINT, 1, ":readwrite");
+ Int height = SfiInt ("Height", "Height in pixels or 0 for no icon", 0, 0, MAXINT, 1, ":readwrite");
+ PixelSeq pixel_seq = SfiSeq ("Pixels", "Pixel array of width*height ARGB pixels", ":readwrite");
};
record Category
{
- Int category_id = ("Category ID", "", 1, 1, G_MAXINT, 1, ":readwrite");
+ Int category_id = SfiInt ("Category ID", "", 1, 1, G_MAXINT, 1, ":readwrite");
String category;
Int mindex;
Int lindex;
@@ -605,9 +605,9 @@ interface Part;
interface Track;
record PartLink {
Track track;
- Int tick = ("Tick", "", 0, 0, G_MAXINT, 384, STANDARD);
+ Int tick = SfiInt ("Tick", "", 0, 0, G_MAXINT, 384, STANDARD);
Part part;
- Int duration = ("Duration", "", 0, 0, G_MAXINT, 384, STANDARD);
+ Int duration = SfiInt ("Duration", "", 0, 0, G_MAXINT, 384, STANDARD);
// Int count; /* 1 + repetitions */
};
sequence PartLinkSeq {
@@ -615,9 +615,9 @@ sequence PartLinkSeq {
};
/* BSE Track structures */
record TrackPart {
- Int tick = ("Tick", "", 0, 0, G_MAXINT, 384, STANDARD);
+ Int tick = SfiInt ("Tick", "", 0, 0, G_MAXINT, 384, STANDARD);
Part part;
- Int duration = ("Duration", "", 0, 0, G_MAXINT, 384, STANDARD);
+ Int duration = SfiInt ("Duration", "", 0, 0, G_MAXINT, 384, STANDARD);
};
sequence TrackPartSeq {
TrackPart tparts;
@@ -625,25 +625,25 @@ sequence TrackPartSeq {
/* BSE Song timing structure */
record SongTiming {
/* song position timing applies to */
- Int tick = ("Current tick", "", 0, 0, G_MAXINT, 384, STANDARD);
+ Int tick = SfiInt ("Current tick", "", 0, 0, G_MAXINT, 384, STANDARD);
/* tempo */
- Real bpm = ("Beats per minute", "", 120, BSE_MIN_BPM, BSE_MAX_BPM, 10, STANDARD);
+ Real bpm = SfiReal ("Beats per minute", "", 120, BSE_MIN_BPM, BSE_MAX_BPM, 10, STANDARD);
/* signature */
- Int numerator = ("Numerator", "Number of notes per measure", 4, 1, 256, 2, STANDARD);
- Int denominator = ("Denominator", "Type of notes counted per measure", 4, 1, 256, 2, STANDARD);
+ Int numerator = SfiInt ("Numerator", "Number of notes per measure", 4, 1, 256, 2, STANDARD);
+ Int denominator = SfiInt ("Denominator", "Type of notes counted per measure", 4, 1, 256, 2, STANDARD);
/* sequencer timing */
- Int tpqn = ("Ticks per quarter note", "", 384, 1, G_MAXINT, 12, STANDARD);
- Int tpt = ("Ticks per tact", "", 384, 1, G_MAXINT, 12, STANDARD);
+ Int tpqn = SfiInt ("Ticks per quarter note", "", 384, 1, G_MAXINT, 12, STANDARD);
+ Int tpt = SfiInt ("Ticks per tact", "", 384, 1, G_MAXINT, 12, STANDARD);
/* playback timing */
- Real stamp_ticks = ("Ticks per stamp increment (valid only during playback)", "", 384, 1, G_MAXINT, 12, STANDARD);
+ Real stamp_ticks = SfiReal ("Ticks per stamp increment (valid only during playback)", "", 384, 1, G_MAXINT, 12, STANDARD);
};
record SampleFileInfo {
- String file = ("Filename", "", "", STANDARD);
- Int size = ("File Size", "", 0, 0, G_MAXINT, 0, STANDARD);
- Num mtime = ("Modification Time", "", 0, 0, SFI_MAXNUM, 0, STANDARD);
- String loader = ("Loader", "", "", STANDARD);
- StringSeq waves = ("", "", STANDARD);
- Int error = ("BseErrorType", "", 0, 0, G_MAXINT, 0, STANDARD); // FIXME: use BseErrorType here
+ String file = SfiString ("Filename", "", "", STANDARD);
+ Int size = SfiInt ("File Size", "", 0, 0, G_MAXINT, 0, STANDARD);
+ Num mtime = SfiNum ("Modification Time", "", 0, 0, SFI_MAXNUM, 0, STANDARD);
+ String loader = SfiString ("Loader", "", "", STANDARD);
+ StringSeq waves = SfiSeq ("", "", STANDARD);
+ Int error = SfiInt ("BseErrorType", "", 0, 0, G_MAXINT, 0, STANDARD); // FIXME: use BseErrorType here
};
interface Janitor;
/* user messages */
@@ -683,22 +683,22 @@ enum ThreadState {
THREAD_STATE_DEAD,
};
record ThreadInfo {
- String name = (_("Thread Name"), "", "", STANDARD);
- ThreadState state = (_("State"), _("The execution state of the thread"), THREAD_STATE_UNKNOWN, STANDARD);
- Int thread_id = (_("Thread ID"), _("A unique number identifying this thread"),
+ String name = SfiString (_("Thread Name"), "", "", STANDARD);
+ ThreadState state = SfiEnum (_("State"), _("The execution state of the thread"), THREAD_STATE_UNKNOWN, STANDARD);
+ Int thread_id = SfiInt (_("Thread ID"), _("A unique number identifying this thread"),
0, 0, G_MAXINT, 1, STANDARD);
- Int priority = (_("Priority"), _("The nice value of a thread, -20 indicates a high priority thread and "
+ Int priority = SfiInt (_("Priority"), _("The nice value of a thread, -20 indicates a high priority thread and "
"+19 a low priority one that is 'nice' to others"),
0, -20, 19, 1, STANDARD);
- Int processor = (_("Processor"), _("The processor that this thread is currently being executed on"),
+ Int processor = SfiInt (_("Processor"), _("The processor that this thread is currently being executed on"),
0, 0, MAXINT, 1, STANDARD);
- Int utime = (_("User Time"), _("The CPU time spent executing instructions of this thread"),
+ Int utime = SfiInt (_("User Time"), _("The CPU time spent executing instructions of this thread"),
0, 0, MAXINT, 1, STANDARD);
- Int stime = (_("System Time"), _("The CPU time spent in the system for this thread"),
+ Int stime = SfiInt (_("System Time"), _("The CPU time spent in the system for this thread"),
0, 0, MAXINT, 1, STANDARD);
- Int cutime = (_("Child User Time"), _("The CPU time spent executing instructions of children of this thread"),
+ Int cutime = SfiInt (_("Child User Time"), _("The CPU time spent executing instructions of children of this thread"),
0, 0, MAXINT, 1, STANDARD);
- Int cstime = (_("Child System Time"), _("The CPU time spent in the system for children of this thread"),
+ Int cstime = SfiInt (_("Child System Time"), _("The CPU time spent in the system for children of this thread"),
0, 0, MAXINT, 1, STANDARD);
};
sequence ThreadInfoSeq {
@@ -713,51 +713,51 @@ ThreadTotals collect_thread_totals ();
/* BSE Global Config */
record GConfig {
group _("Synthesis Settings") {
- Int synth_latency = (_("Latency [ms]"),
+ Int synth_latency = SfiInt (_("Latency [ms]"),
_("Processing duration between input and output of a single sample, smaller values increase CPU load"),
50, 1, 2000, 5, STANDARD);
- Int synth_mixing_freq = (_("Synth Mixing Frequency"),
+ Int synth_mixing_freq = SfiInt (_("Synth Mixing Frequency"),
_("Synthesis mixing frequency, common values are: 22050, 44100, 48000"),
44100, 8000, 192000, 0, STANDARD);
- Int synth_control_freq = (_("Synth Control Frequency"),
+ Int synth_control_freq = SfiInt (_("Synth Control Frequency"),
_("Frequency at which control values are evaluated, "
"should be much smaller than Synth Mixing Frequency to reduce CPU load"),
1000, 1, 192000, 0, STANDARD);
};
group _("MIDI") {
- Bool invert_sustain = (_("Invert Sustain Pedal"),
+ Bool invert_sustain = SfiBool (_("Invert Sustain Pedal"),
_("Invert the state of sustain (damper) pedal so on/off meanings are reversed"),
FALSE, STANDARD);
};
group _("Default Values") {
- String author_default = (_("Default Author"), _("Default value for 'Author' fields"),
+ String author_default = SfiString (_("Default Author"), _("Default value for 'Author' fields"),
bse_intern_default_author(), STANDARD);
- String license_default = (_("Default License"), _("Default value for 'License' fields"),
+ String license_default = SfiString (_("Default License"), _("Default value for 'License' fields"),
bse_intern_default_license(), STANDARD);
};
group _("Search Paths") {
- String sample_path = (_("Sample Path"),
+ String sample_path = SfiString (_("Sample Path"),
g_intern_printf (_("Search path of directories, seperated by \"%s\", used to find audio samples."),
G_SEARCHPATH_SEPARATOR_S),
bse_intern_path_user_data ("/samples"), STANDARD ":searchpath");
- String effect_path = (_("Effect Path"),
+ String effect_path = SfiString (_("Effect Path"),
g_intern_printf (_("Search path of directories, seperated by \"%s\", used to find BSE effect files."),
G_SEARCHPATH_SEPARATOR_S),
bse_intern_path_user_data ("/effects"), STANDARD ":searchpath");
- String instrument_path = (_("Instrument Path"),
+ String instrument_path = SfiString (_("Instrument Path"),
g_intern_printf (_("Search path of directories, seperated by \"%s\", used to find BSE instrument files."),
G_SEARCHPATH_SEPARATOR_S),
bse_intern_path_user_data ("/instruments"), STANDARD ":searchpath");
- String script_path = (_("Script Path"),
+ String script_path = SfiString (_("Script Path"),
g_intern_printf (_("Search path of directories, seperated by \"%s\", used to find BSE scheme scripts."),
G_SEARCHPATH_SEPARATOR_S),
bse_intern_path_user_data ("/scripts"), STANDARD ":searchpath");
- String plugin_path = (_("Plugin Path"),
+ String plugin_path = SfiString (_("Plugin Path"),
g_intern_printf (_("Search path of directories, seperated by \"%s\", used to find BSE plugins. This path "
"is searched for in addition to the standard BSE plugin location on this system."),
G_SEARCHPATH_SEPARATOR_S),
bse_intern_path_user_data ("/plugins"), STANDARD ":searchpath");
- String ladspa_path = (_("LADSPA Path"),
+ String ladspa_path = SfiString (_("LADSPA Path"),
g_intern_printf (_("Search path of directories, seperated by \"%s\", used to find LADSPA plugins. This "
"path is searched for in addition to the standard LADSPA location on this system. "
"LADSPA is the Linux Audio Developer's Simple Plugin API, more informations about "
diff --git a/bse/bsetype.hh b/bse/bsetype.hh
index 8873620..add5cf3 100644
--- a/bse/bsetype.hh
+++ b/bse/bsetype.hh
@@ -81,23 +81,27 @@ void bse_param_types_init ();
#define BSE_GCONFIG(cfg) (bse_global_config->cfg)
extern BseGConfig *bse_global_config; /* from bsegconfig.[hc] */
/* --- provide IDL pspec initializers --- */
-#define sfidl_pspec_Bool(group, locfile, locline, name, nick, blurb, dflt, options) \
+#define sfidl_pspec_Bool sfidl_pspec_SfiBool
+#define sfidl_pspec_SfiBool(group, locfile, locline, name, nick, blurb, dflt, options) \
sfi_pspec_set_group (sfi_pspec_bool (name, nick, blurb, dflt, options), group)
#define sfidl_pspec_Bool_default(group, locfile, locline, name) \
sfi_pspec_set_group (sfi_pspec_bool (name, NULL, NULL, FALSE, SFI_PARAM_STANDARD), group)
#define sfidl_pspec_Trigger(group, locfile, locline, name, nick, blurb, options) \
sfi_pspec_set_group (sfi_pspec_bool (name, nick, blurb, FALSE, "trigger:skip-undo:" options), group)
-#define sfidl_pspec_Int(group, locfile, locline, name, nick, blurb, dflt, min, max, step, options) \
+#define sfidl_pspec_Int sfidl_pspec_SfiInt
+#define sfidl_pspec_SfiInt(group, locfile, locline, name, nick, blurb, dflt, min, max, step, options) \
sfi_pspec_set_group (sfi_pspec_int (name, nick, blurb, dflt, min, max, step, options), group)
#define sfidl_pspec_Int_default(group, locfile, locline, name) \
sfi_pspec_set_group (sfi_pspec_int (name, NULL, NULL, 0, G_MININT, G_MAXINT, 256, SFI_PARAM_STANDARD), group)
-#define sfidl_pspec_Num(group, locfile, locline, name, nick, blurb, dflt, min, max, step, options) \
+#define sfidl_pspec_Num sfidl_pspec_SfiNum
+#define sfidl_pspec_SfiNum(group, locfile, locline, name, nick, blurb, dflt, min, max, step, options) \
sfi_pspec_set_group (sfi_pspec_num (name, nick, blurb, dflt, min, max, step, options), group)
#define sfidl_pspec_Num_default(group, locfile, locline, name) \
sfi_pspec_set_group (sfi_pspec_num (name, NULL, NULL, 0, SFI_MINNUM, SFI_MAXNUM, 1000, SFI_PARAM_STANDARD), group)
-#define sfidl_pspec_UInt(group, locfile, locline, name, nick, blurb, dflt, options) \
+#define sfidl_pspec_SfiUInt(group, locfile, locline, name, nick, blurb, dflt, options) \
sfi_pspec_set_group (sfi_pspec_int (name, nick, blurb, dflt, 0, G_MAXINT, 1, options), group)
-#define sfidl_pspec_Real(group, locfile, locline, name, nick, blurb, dflt, min, max, step, options) \
+#define sfidl_pspec_Real sfidl_pspec_SfiReal
+#define sfidl_pspec_SfiReal(group, locfile, locline, name, nick, blurb, dflt, min, max, step, options) \
sfi_pspec_set_group (sfi_pspec_real (name, nick, blurb, dflt, min, max, step, options), group)
#define sfidl_pspec_Real_default(group, locfile, locline, name) \
sfi_pspec_set_group (sfi_pspec_real (name, NULL, NULL, 0, -SFI_MAXREAL, SFI_MAXREAL, 10, SFI_PARAM_STANDARD), group)
@@ -126,7 +130,8 @@ extern BseGConfig *bse_global_config; /* from bsegconfig.[hc] */
sfi_pspec_set_group (sfi_pspec_choice (name, nick, blurb, #dval, cvalues, SFI_PARAM_STANDARD), group)
#define sfidl_pspec_Choice_default(group, locfile, locline, name, cvalues) \
sfidl_pspec_Choice (group, locfile, locline, name, NULL, NULL, NULL, SFI_PARAM_STANDARD, cvalues)
-#define sfidl_pspec_String(group, locfile, locline, name, nick, blurb, dflt, options) \
+#define sfidl_pspec_String sfidl_pspec_SfiString
+#define sfidl_pspec_SfiString(group, locfile, locline, name, nick, blurb, dflt, options) \
sfi_pspec_set_group (sfi_pspec_string (name, nick, blurb, dflt, options), group)
#define sfidl_pspec_String_default(group, locfile, locline, name) \
sfidl_pspec_String (group, locfile, locline, name, NULL, NULL, NULL, SFI_PARAM_STANDARD)
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]
