/usr/share/qtoctave/scripts/diary.m is in qtoctave 0.10.1-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | function __qtoctave_display(varargin)
%disp("QtOctave diary");
if(length(varargin)>0)
if(strcmp(varargin(1),'on'))
fprintf(stderr, "~~Diary: on '%s'\n", pwd);
elseif (strcmp(varargin(1),'off'))
fprintf(stderr, "~~Diary: off '%s'\n", pwd);
else
name=sprintf("%s",varargin(1));
if(length( regexp(name, "^/.*") )>=1) % UNIX
fprintf( stderr, "~~Diary: file '%s'\n", varargin(1) );
elseif (length( regexp(name, "^.:.*") )>=1) % Windows
fprintf( stderr, "~~Diary: file '%s'\n", varargin(1) );
else % Local file
fprintf( stderr, "~~Diary: file '%s/%s'\n", pwd, name );
endif
endif
else
fprintf(stderr, "~~Diary: change '%s'\n", pwd);
endif
endfunction
#dispatch("diary", "__qtoctave_display", "all");
#dispatch("diary", "__qtoctave_display", "any");
function diary(varargin)
%disp("QtOctave diary");
if(length(varargin)>0)
if(strcmp(varargin(1),'on'))
fprintf(stderr, "~~Diary: on '%s'\n", pwd);
elseif (strcmp(varargin(1),'off'))
fprintf(stderr, "~~Diary: off '%s'\n", pwd);
else
name=sprintf("%s",varargin(1));
if(length( regexp(name, "^/.*") )>=1) % UNIX
fprintf( stderr, "~~Diary: file '%s'\n", varargin(1) );
elseif (length( regexp(name, "^.:.*") )>=1) % Windows
fprintf( stderr, "~~Diary: file '%s'\n", varargin(1) );
else % Local file
fprintf( stderr, "~~Diary: file '%s/%s'\n", pwd, name );
endif
endif
else
fprintf(stderr, "~~Diary: change '%s'\n", pwd);
endif
endfunction
|