Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
K
kumir2
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
2
Issues
2
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
kumir
kumir2
Commits
006abfce
Commit
006abfce
authored
Jan 21, 2013
by
Victor Yacovlev
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fixed files comparision
parent
635dd6ab
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
15 additions
and
11 deletions
+15
-11
src/plugins/kumiranalizer/stdlibmodules.h
src/plugins/kumiranalizer/stdlibmodules.h
+3
-3
src/shared/vm/vm.hpp
src/shared/vm/vm.hpp
+12
-8
No files found.
src/plugins/kumiranalizer/stdlibmodules.h
View file @
006abfce
...
...
@@ -108,10 +108,10 @@ class Files
/* 0x0011 */
result
<<
QString
::
fromUtf8
(
"алг лит РАБОЧИЙ КАТАЛОГ"
);
/* 0x0012 */
result
<<
QString
::
fromUtf8
(
"алг лит КАТАЛОГ ПРОГРАММЫ"
);
/* 0x0013*/
result
<<
QString
::
fromUtf8
(
"алг лог =(файл ф1, файл ф2)"
);
/* 0x0014*/
result
<<
QString
::
fromUtf8
(
"алг лог <>(файл ф1, файл ф2)"
);
/* 0x0013 */
result
<<
QString
::
fromUtf8
(
"алг лог удалить_каталог(лит имя каталога)"
);
/* 0x0015 */
result
<<
QString
::
fromUtf8
(
"алг лог удалить_каталог(лит имя каталога)"
);
/* 0x0014*/
result
<<
QString
::
fromUtf8
(
"алг лог =(файл ф1, файл ф2)"
);
/* 0x0015*/
result
<<
QString
::
fromUtf8
(
"алг лог <>(файл ф1, файл ф2)"
);
return
result
;
...
...
src/shared/vm/vm.hpp
View file @
006abfce
...
...
@@ -1274,25 +1274,29 @@ void KumirVM::do_filescall(uint16_t alg)
break
;
}
/* алг лог =(фaйл ф1, файл ф2) */
case
0x0013
:
{
const
Record
f2rec
=
stack_values
.
pop
().
toRecord
();
const
Record
f1rec
=
stack_values
.
pop
().
toRecord
();
case
0x0014
:
{
const
Variable
f2var
=
stack_values
.
pop
();
const
Variable
f1var
=
stack_values
.
pop
();
const
Record
f2rec
=
f2var
.
toRecord
();
const
Record
f1rec
=
f1var
.
toRecord
();
const
Kumir
::
FileType
f1
=
fromRecordValue
<
Kumir
::
FileType
>
(
f1rec
);
const
Kumir
::
FileType
f2
=
fromRecordValue
<
Kumir
::
FileType
>
(
f2rec
);
stack_values
.
push
(
Variable
(
f1
==
f2
));
break
;
}
/* алг лог =(фaйл ф1, файл ф2) */
case
0x0014
:
{
const
Record
f2rec
=
stack_values
.
pop
().
toRecord
();
const
Record
f1rec
=
stack_values
.
pop
().
toRecord
();
case
0x0015
:
{
const
Variable
f2var
=
stack_values
.
pop
();
const
Variable
f1var
=
stack_values
.
pop
();
const
Record
f2rec
=
f2var
.
toRecord
();
const
Record
f1rec
=
f1var
.
toRecord
();
const
Kumir
::
FileType
f1
=
fromRecordValue
<
Kumir
::
FileType
>
(
f1rec
);
const
Kumir
::
FileType
f2
=
fromRecordValue
<
Kumir
::
FileType
>
(
f2rec
);
stack_values
.
push
(
Variable
(
f1
!=
f2
));
break
;
}
/* алг удалить_
файл
(лит имя файла) */
case
0x001
5
:
{
/* алг удалить_
каталог
(лит имя файла) */
case
0x001
3
:
{
const
String
x
=
stack_values
.
pop
().
toString
();
Kumir
::
Files
::
rmdir
(
x
);
break
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment