FileInMemory FileInMemory_create (MelderFile file) {
try {
if (! MelderFile_readable (file)) {
Melder_throw ("File not readable.");
}
long length = MelderFile_length (file);
if (length <= 0) {
Melder_throw ("File is empty.");
}
autoFileInMemory me = Thing_new (FileInMemory);
my d_path = Melder_wcsdup (file -> path);
my d_id = Melder_wcsdup (MelderFile_name (file));
my d_numberOfBytes = length;
my d_data = NUMvector <char> (0, my d_numberOfBytes); // one extra for 0-byte at end if text
MelderFile_open (file);
for (long i = 0; i < my d_numberOfBytes; i++) {
unsigned int number = bingetu1 (file -> filePointer);
my d_data[i] = number;
}
my d_data[my d_numberOfBytes] = 0; // one extra
MelderFile_close (file);
return me.transfer();
} catch (MelderError) {
Melder_throw ("FileInMemory not created from \"", Melder_fileToPath (file), "\".");
}
}
autoFileInMemory FileInMemory_create (MelderFile file) {
try {
if (! MelderFile_readable (file)) {
Melder_throw (U"File not readable.");
}
long length = MelderFile_length (file);
if (length <= 0) {
Melder_throw (U"File is empty.");
}
autoFileInMemory me = Thing_new (FileInMemory);
my d_path = Melder_dup (file -> path);
my d_id = Melder_dup (MelderFile_name (file));
my d_numberOfBytes = length;
my ownData = true;
my d_data = NUMvector <char> (0, my d_numberOfBytes); // includes room for a final null byte in case the file happens to contain text
MelderFile_open (file);
for (long i = 0; i < my d_numberOfBytes; i++) {
unsigned int number = bingetu1 (file -> filePointer);
my d_data[i] = number;
}
my d_data[my d_numberOfBytes] = 0; // one extra
MelderFile_close (file);
return me;
} catch (MelderError) {
Melder_throw (U"FileInMemory not created from \"", Melder_fileToPath (file), U"\".");
}
}
static void saveDocument (TextEditor me, MelderFile file) {
autostring32 text = GuiText_getString (my textWidget);
MelderFile_writeText (file, text.peek(), Melder_getOutputEncoding ());
my dirty = false;
MelderFile_copy (file, & my file);
if (my v_fileBased ()) Thing_setName (me, Melder_fileToPath (file));
}
void Thing_infoWithIdAndFile (Thing me, unsigned long id, MelderFile file) {
//Melder_assert (me);
Melder_clearInfo ();
MelderInfo_open ();
if (id != 0) MelderInfo_writeLine (U"Object id: ", id);
if (! MelderFile_isNull (file)) MelderInfo_writeLine (U"Associated file: ", Melder_fileToPath (file));
my v_info ();
MelderInfo_close ();
}
void Movie_paintOneImageInside (Movie me, Graphics graphics, long frameNumber, double xmin, double xmax, double ymin, double ymax)
{
try {
if (frameNumber < 1) Melder_throw (U"Specified frame number is ", frameNumber, U" but should be at least 1.");
if (frameNumber > my nx) Melder_throw (U"Specified frame number is ", frameNumber, U" but there are only ", my nx, U"frames.");
Melder_assert (my d_fileNames != 0);
Melder_assert (my d_fileNames -> numberOfStrings == my nx);
struct structMelderDir folder;
Melder_pathToDir (my d_folderName, & folder);
struct structMelderFile file;
MelderDir_getFile (& folder, my d_fileNames -> strings [frameNumber], & file);
Graphics_imageFromFile (graphics, Melder_fileToPath (& file), xmin, xmax, ymin, ymax);
} catch (MelderError) {
Melder_throw (me, U": image ", frameNumber, U" not painted.");
}
}
void structLongSound :: v_info () {
static const char32 *encodingStrings [1+20] = { U"none",
U"linear 8 bit signed", U"linear 8 bit unsigned",
U"linear 16 bit big-endian", U"linear 16 bit little-endian",
U"linear 24 bit big-endian", U"linear 24 bit little-endian",
U"linear 32 bit big-endian", U"linear 32 bit little-endian",
U"mu-law", U"A-law", U"shorten", U"polyphone",
U"IEEE float 32 bit big-endian", U"IEEE float 32 bit little-endian",
U"FLAC", U"FLAC", U"FLAC", U"MP3", U"MP3", U"MP3" };
structDaata :: v_info ();
MelderInfo_writeLine (U"Duration: ", xmax - xmin, U" seconds");
MelderInfo_writeLine (U"File name: ", Melder_fileToPath (& file));
MelderInfo_writeLine (U"File type: ", audioFileType > Melder_NUMBER_OF_AUDIO_FILE_TYPES ? U"unknown" : Melder_audioFileTypeString (audioFileType));
MelderInfo_writeLine (U"Number of channels: ", numberOfChannels);
MelderInfo_writeLine (U"Encoding: ", encoding > 20 ? U"unknown" : encodingStrings [encoding]);
MelderInfo_writeLine (U"Sampling frequency: ", sampleRate, U" Hz");
MelderInfo_writeLine (U"Size: ", nx, U" samples");
MelderInfo_writeLine (U"Start of sample data: ", startOfData, U" bytes from the start of the file");
}
autoMovie Movie_openFromSoundFile (MelderFile file)
{
try {
autoMovie me = Thing_new (Movie);
autoSound sound = Sound_readFromSoundFile (file);
autoMelderString fileNameHead;
MelderString_copy (& fileNameHead, Melder_fileToPath (file));
char32 *extensionLocation = str32rchr (fileNameHead.string, U'.');
if (! extensionLocation)
extensionLocation = & fileNameHead.string [fileNameHead.length];
*extensionLocation = U'\0';
fileNameHead.length = extensionLocation - fileNameHead.string;
autoStrings strings = Strings_createAsFileList (Melder_cat (fileNameHead.string, U"*.png"));
struct structMelderDir folder;
MelderFile_getParentDir (file, & folder);
Movie_init (me.peek(), sound.transfer(), Melder_dirToPath (& folder), strings.transfer());
return me;
} catch (MelderError) {
Melder_throw (U"Movie object not read from file ", file, U".");
}
}
autoScriptEditor ScriptEditor_createFromScript_canBeNull (Editor environment, Script script) {
try {
for (long ieditor = 1; ieditor <= theReferencesToAllOpenScriptEditors.size; ieditor ++) {
ScriptEditor editor = theReferencesToAllOpenScriptEditors.at [ieditor];
if (MelderFile_equal (& script -> file, & editor -> file)) {
Editor_raise (editor);
Melder_appendError (U"The script ", & script -> file, U" is already open and has been moved to the front.");
if (editor -> dirty)
Melder_appendError (U"Choose \"Reopen from disk\" if you want to revert to the old version.");
Melder_flushError ();
return autoScriptEditor(); // safe null
}
}
autostring32 text = MelderFile_readText (& script -> file);
autoScriptEditor me = ScriptEditor_createFromText (environment, text.peek());
MelderFile_copy (& script -> file, & my file);
Thing_setName (me.peek(), Melder_fileToPath (& script -> file));
return me;
} catch (MelderError) {
Melder_throw (U"Script window not created.");
}
}
static void openDocument (TextEditor me, MelderFile file) {
if (theOpenTextEditors) {
for (long ieditor = 1; ieditor <= theOpenTextEditors -> size; ieditor ++) {
TextEditor editor = (TextEditor) theOpenTextEditors -> item [ieditor];
if (editor != me && MelderFile_equal (file, & editor -> file)) {
Editor_raise (editor);
Melder_appendError (U"Text file ", file, U" is already open.");
forget (me); // don't forget me before Melder_appendError, because "file" is owned by one of my dialogs
Melder_flushError ();
return;
}
}
}
autostring32 text = MelderFile_readText (file);
GuiText_setString (my textWidget, text.peek());
/*
* GuiText_setString has invoked the changeCallback,
* which has set `my dirty` to `true`. Fix this.
*/
my dirty = false;
MelderFile_copy (file, & my file);
Thing_setName (me, Melder_fileToPath (file));
}
ScriptEditor ScriptEditor_createFromScript (Editor environment, Script script) {
try {
if (theScriptEditors) {
for (long ieditor = 1; ieditor <= theScriptEditors -> size; ieditor ++) {
ScriptEditor editor = (ScriptEditor) theScriptEditors -> item [ieditor];
if (MelderFile_equal (& script -> file, & editor -> file)) {
editor -> raise ();
Melder_error_ ("The script ", & script -> file, " is already open and has been moved to the front.");
if (editor -> dirty)
Melder_error_ ("Choose \"Reopen from disk\" if you want to revert to the old version.");
Melder_flushError (NULL);
return NULL; // safe NULL
}
}
}
autostring text = MelderFile_readText (& script -> file);
autoScriptEditor me = ScriptEditor_createFromText (environment, text.peek());
MelderFile_copy (& script -> file, & my file);
Thing_setName (me.peek(), Melder_fileToPath (& script -> file));
return me.transfer();
} catch (MelderError) {
Melder_throw ("Script window not created.");
}
}
static void gui_drawingarea_cb_expose (I, GuiDrawingAreaExposeEvent event) {
iam (RunnerMFC);
Melder_assert (event -> widget == my d_drawingArea);
if (my graphics == NULL) return; // Could be the case in the very beginning.
ExperimentMFC experiment = (ExperimentMFC) my data;
long iresponse;
if (my data == NULL) return;
Graphics_setGrey (my graphics, 0.8);
Graphics_fillRectangle (my graphics, 0, 1, 0, 1);
Graphics_setGrey (my graphics, 0.0);
if (experiment -> trial == 0) {
Graphics_setTextAlignment (my graphics, Graphics_CENTRE, Graphics_HALF);
Graphics_setFontSize (my graphics, 24);
Graphics_text (my graphics, 0.5, 0.5, experiment -> startText);
} else if (experiment -> pausing) {
Graphics_setTextAlignment (my graphics, Graphics_CENTRE, Graphics_HALF);
Graphics_setFontSize (my graphics, 24);
Graphics_text (my graphics, 0.5, 0.5, experiment -> pauseText);
if (experiment -> oops_right > experiment -> oops_left && experiment -> trial > 1) {
drawControlButton (me,
experiment -> oops_left, experiment -> oops_right, experiment -> oops_bottom, experiment -> oops_top,
experiment -> oops_label);
}
} else if (experiment -> trial <= experiment -> numberOfTrials) {
const wchar_t *visibleText = experiment -> stimulus [experiment -> stimuli [experiment -> trial]]. visibleText;
wchar_t *visibleText_dup = Melder_wcsdup_f (visibleText ? visibleText : L""), *visibleText_p = visibleText_dup;
Graphics_setFont (my graphics, kGraphics_font_TIMES);
Graphics_setFontSize (my graphics, 10);
Graphics_setColour (my graphics, Graphics_BLACK);
Graphics_setTextAlignment (my graphics, Graphics_LEFT, Graphics_TOP);
Graphics_text3 (my graphics, 0, 1, Melder_integer (experiment -> trial), L" / ", Melder_integer (experiment -> numberOfTrials));
Graphics_setTextAlignment (my graphics, Graphics_CENTRE, Graphics_TOP);
Graphics_setFontSize (my graphics, 24);
/*
* The run text.
*/
if (visibleText_p [0] != '\0') {
wchar_t *visibleText_q = wcschr (visibleText_p, '|');
if (visibleText_q) *visibleText_q = '\0';
Graphics_text (my graphics, 0.5, 1.0, visibleText_p [0] != '\0' ? visibleText_p : experiment -> runText);
if (visibleText_q) visibleText_p = visibleText_q + 1; else visibleText_p += wcslen (visibleText_p);
} else {
Graphics_text (my graphics, 0.5, 1.0, experiment -> runText);
}
Graphics_setTextAlignment (my graphics, Graphics_CENTRE, Graphics_HALF);
for (iresponse = 1; iresponse <= experiment -> numberOfDifferentResponses; iresponse ++) {
ResponseMFC response = & experiment -> response [iresponse];
wchar_t *textToDraw = response -> label; // can be overridden
if (visibleText_p [0] != '\0') {
wchar_t *visibleText_q = wcschr (visibleText_p, '|');
if (visibleText_q) *visibleText_q = '\0';
textToDraw = visibleText_p; // override
if (visibleText_q) visibleText_p = visibleText_q + 1; else visibleText_p += wcslen (visibleText_p);
}
if (wcsnequ (textToDraw, L"\\FI", 3)) {
structMelderFile file;
MelderDir_relativePathToFile (& experiment -> rootDirectory, textToDraw + 3, & file);
Graphics_imageFromFile (my graphics, Melder_fileToPath (& file), response -> left, response -> right, response -> bottom, response -> top);
} else {
Graphics_setColour (my graphics,
response -> name [0] == '\0' ? Graphics_SILVER :
experiment -> responses [experiment -> trial] == iresponse ? Graphics_RED :
experiment -> ok_right > experiment -> ok_left || experiment -> responses [experiment -> trial] == 0 ?
Graphics_YELLOW : Graphics_SILVER);
Graphics_setLineWidth (my graphics, 3.0);
Graphics_fillRectangle (my graphics, response -> left, response -> right, response -> bottom, response -> top);
Graphics_setColour (my graphics, Graphics_MAROON);
Graphics_rectangle (my graphics, response -> left, response -> right, response -> bottom, response -> top);
Graphics_setFontSize (my graphics, response -> fontSize ? response -> fontSize : 24);
Graphics_text (my graphics, 0.5 * (response -> left + response -> right),
0.5 * (response -> bottom + response -> top), textToDraw);
}
Graphics_setFontSize (my graphics, 24);
}
for (iresponse = 1; iresponse <= experiment -> numberOfGoodnessCategories; iresponse ++) {
GoodnessMFC goodness = & experiment -> goodness [iresponse];
Graphics_setColour (my graphics, experiment -> responses [experiment -> trial] == 0 ? Graphics_SILVER :
experiment -> goodnesses [experiment -> trial] == iresponse ? Graphics_RED : Graphics_YELLOW);
Graphics_setLineWidth (my graphics, 3.0);
Graphics_fillRectangle (my graphics, goodness -> left, goodness -> right, goodness -> bottom, goodness -> top);
Graphics_setColour (my graphics, Graphics_MAROON);
Graphics_rectangle (my graphics, goodness -> left, goodness -> right, goodness -> bottom, goodness -> top);
Graphics_text (my graphics, 0.5 * (goodness -> left + goodness -> right), 0.5 * (goodness -> bottom + goodness -> top), goodness -> label);
}
if (experiment -> replay_right > experiment -> replay_left && my numberOfReplays < experiment -> maximumNumberOfReplays) {
drawControlButton (me,
experiment -> replay_left, experiment -> replay_right, experiment -> replay_bottom, experiment -> replay_top,
experiment -> replay_label);
}
if (experiment -> ok_right > experiment -> ok_left &&
experiment -> responses [experiment -> trial] != 0 &&
(experiment -> numberOfGoodnessCategories == 0 || experiment -> goodnesses [experiment -> trial] != 0))
{
drawControlButton (me,
experiment -> ok_left, experiment -> ok_right, experiment -> ok_bottom, experiment -> ok_top,
experiment -> ok_label);
}
if (experiment -> oops_right > experiment -> oops_left && experiment -> trial > 1) {
drawControlButton (me,
experiment -> oops_left, experiment -> oops_right, experiment -> oops_bottom, experiment -> oops_top,
experiment -> oops_label);
}
Melder_free (visibleText_dup);
} else {
Graphics_setTextAlignment (my graphics, Graphics_CENTRE, Graphics_HALF);
Graphics_setFontSize (my graphics, 24);
Graphics_text (my graphics, 0.5, 0.5, experiment -> endText);
if (experiment -> oops_right > experiment -> oops_left && experiment -> trial > 1) {
drawControlButton (me,
experiment -> oops_left, experiment -> oops_right, experiment -> oops_bottom, experiment -> oops_top,
experiment -> oops_label);
}
}
}
