Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9576 → Rev 9577

/data/common/fb2read
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/programs/develop/cedit/CEDIT
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/programs/develop/cedit/SRC/CEdit.ob07
28,7 → 28,7
RW, Ini, EB := EditBox, Tabs, Toolbar, SB := StatusBar;
 
CONST
HEADER = "CEdit (02-jan-2022)";
HEADER = "CEdit (05-jan-2022)";
 
ShellFilter = "";
EditFilter = "SH|INC|TXT|ASM|OB07|C|CPP|H|PAS|PP|LUA|INI|JSON";
568,7 → 568,7
temp := "'CEdit: ";
U.append8(temp, s);
U.append8(temp, "' -E");
K.Run("/rd/1/@notify", temp)
K.Run("/sys/@notify", temp)
END error;
 
 
928,7 → 928,7
PROCEDURE Script (script: ARRAY OF CHAR);
BEGIN
IF script # "" THEN
K.Run("/rd/1/@open", script)
K.Run("/sys/@open", script)
END
END Script;
 
1143,7 → 1143,7
|menuClose:
closeFile(TRUE, curText)
|menuFolder:
K.Run("/rd/1/File Managers/Eolite", text.fileName)
K.Run("/sys/File Managers/Eolite", text.fileName)
|menuExit:
Close
|menuUndo:
1220,13 → 1220,13
|menuCR:
T.setEol(text, RW.EOL_CR)
|menuPipet:
K.Run("/rd/1/develop/pipet", "")
K.Run("/sys/develop/pipet", "")
|menuMagnify:
K.Run("/rd/1/magnify", "")
K.Run("/sys/magnify", "")
|menuBoard:
K.Run("/rd/1/develop/board", "")
K.Run("/sys/develop/board", "")
|menuSysFunc:
K.Run("/rd/1/docpack", "f")
K.Run("/sys/docpack", "f")
|menuColors..menuMaxColors:
Ini.selectSection(IPC[2] - menuColors)
|menuMoveUp:
2034,7 → 2034,7
Ini.getSettings(buildScript, runScript, debugScript);
IF fileName = "" THEN
text := T.New();
filePath := "/rd/1"
filePath := "/sys"
ELSE
text := T.open(fileName, err);
IF text = NIL THEN
/programs/develop/cedit/SRC/EditBox.ob07
1,5 → 1,5
(*
Copyright 2016, 2017, 2020, 2021 Anton Krotov
Copyright 2016, 2017, 2020-2022 Anton Krotov
 
This file is part of CEdit.
 
142,7 → 142,7
VAR
Lib: INTEGER;
BEGIN
Lib := KOSAPI.LoadLib("/rd/1/lib/box_lib.obj");
Lib := KOSAPI.LoadLib("/sys/lib/box_lib.obj");
ASSERT(Lib # 0);
GetProc(Lib, SYSTEM.ADR(paint), "edit_box");
GetProc(Lib, SYSTEM.ADR(key_proc), "edit_box_key");
/programs/develop/cedit/SRC/Icons.ob07
1,5 → 1,5
(*
Copyright 2021 Anton Krotov
Copyright 2021, 2022 Anton Krotov
 
This file is part of CEdit.
 
23,7 → 23,7
LibImg, K := KolibriOS, Graph, SYSTEM;
 
CONST
fileName = "/rd/1/Icons16.png";
fileName = "/sys/Icons16.png";
SIZE* = 18;
 
VAR
/programs/develop/cedit/SRC/Ini.ob07
1,5 → 1,5
(*
Copyright 2021 Anton Krotov
Copyright 2021, 2022 Anton Krotov
 
This file is part of CEdit.
 
183,10 → 183,10
Utils.append8(IniFileName, fileName);
 
IF ~File.Exists(IniFileName) THEN
IniFileName := "/rd/1/settings/cedit.ini"
IniFileName := "/sys/settings/cedit.ini"
END;
 
Lib := KOSAPI.LoadLib("/rd/1/Lib/Libini.obj");
Lib := KOSAPI.LoadLib("/sys/Lib/Libini.obj");
GetProc(Lib, SYSTEM.ADR(get_color), "ini_get_color");
GetProc(Lib, SYSTEM.ADR(get_int), "ini_get_int");
GetProc(Lib, SYSTEM.ADR(get_str), "ini_get_str");
/programs/develop/cedit/SRC/KOSAPI.ob07
1,7 → 1,7
(*
BSD 2-Clause License
 
Copyright (c) 2018-2019, Anton Krotov
Copyright (c) 2018-2019, 2022 Anton Krotov
All rights reserved.
*)
 
338,8 → 338,10
 
 
PROCEDURE [stdcall] dll_Load* (import_table: INTEGER): INTEGER;
CONST
path = "/sys/lib/";
VAR
imp, lib, exp, proc, res: INTEGER;
imp, lib, exp, proc, res, pathLen: INTEGER;
fail, done: BOOLEAN;
procname, libname: STRING;
 
348,12 → 350,13
fail := FALSE;
done := FALSE;
res := 0;
libname := "/rd/1/lib/";
libname := path;
pathLen := LENGTH(libname);
REPEAT
SYSTEM.GET(import_table, imp);
IF imp # 0 THEN
SYSTEM.GET(import_table + 4, lib);
GetStr(lib, 10, libname);
GetStr(lib, pathLen, libname);
exp := sysfunc3(68, 19, SYSTEM.ADR(libname[0]));
fail := exp = 0;
ELSE
/programs/develop/cedit/SRC/OpenDlg.ob07
1,5 → 1,5
(*
Copyright 2016, 2018, 2020, 2021 Anton Krotov
Copyright 2016, 2018, 2020-2022 Anton Krotov
 
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as published by
130,7 → 130,7
res.status := 0;
res.procinfo := sys.ADR(res.procinf[0]);
res.com_area_name := sys.ADR(res.s_com_area_name[0]);
res.start_path := sys.SADR("/rd/1/File managers/opendial");
res.start_path := sys.SADR("/sys/File managers/opendial");
res.opendir_path := sys.ADR(res.s_opendir_path[0]);
res.dir_default_path := sys.ADR(res.s_dir_default_path[0]);
res.openfile_path := sys.ADR(res.FilePath[0]);
163,7 → 163,7
END GetProc;
 
BEGIN
Lib := KOSAPI.LoadLib("/rd/1/Lib/Proc_lib.obj");
Lib := KOSAPI.LoadLib("/sys/Lib/Proc_lib.obj");
GetProc(Lib, sys.ADR(Dialog_init), "OpenDialog_init");
GetProc(Lib, sys.ADR(Dialog_start), "OpenDialog_start");
END Load;
/programs/develop/cedit/SRC/libimg.ob07
1,5 → 1,5
(*
Copyright 2016, 2021 Anton Krotov
Copyright 2016, 2021, 2022 Anton Krotov
 
This file is part of CEdit.
 
107,7 → 107,7
END GetProc;
 
BEGIN
Lib := KOSAPI.LoadLib("/rd/1/Lib/Libimg.obj");
Lib := KOSAPI.LoadLib("/sys/Lib/Libimg.obj");
GetProc(Lib, SYSTEM.ADR(img_decode), "img_decode");
GetProc(Lib, SYSTEM.ADR(img_destroy), "img_destroy");
GetProc(Lib, SYSTEM.ADR(img_to_rgb2), "img_to_rgb2");
/programs/develop/oberon07/Compiler.kex
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/programs/develop/oberon07/doc/x86.txt
31,6 → 31,7
нижнем регистре
-def <имя> задать символ условной компиляции
-ver <major.minor> версия программы (только для kosdll)
-uses вывести список импортированных модулей
 
параметр -nochk задается в виде строки из символов:
"p" - указатели
358,7 → 359,7
con_exit: PROCEDURE [stdcall] (bCloseWindow: BOOLEAN);
 
В KolibriOS импортировать процедуры можно только из библиотек, размещенных
в /rd/1/lib. Импортировать и вызывать функции инициализации библиотек
в /sys/lib. Импортировать и вызывать функции инициализации библиотек
(lib_init, START) при этом не нужно.
 
Для Linux, импортированные процедуры не реализованы.
/programs/develop/oberon07/lib/KolibriOS/ColorDlg.ob07
1,5 → 1,5
(*
Copyright 2016, 2018, 2020 Anton Krotov
Copyright 2016, 2018, 2020, 2022 Anton Krotov
 
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as published by
65,7 → 65,7
res.color_type := 0;
res.procinfo := sys.ADR(res.procinf[0]);
res.com_area_name := sys.ADR(res.s_com_area_name[0]);
res.start_path := sys.SADR("/rd/1/colrdial");
res.start_path := sys.SADR("/sys/colrdial");
res.draw_window := draw_window;
res.status := 0;
res.X := 0;
95,7 → 95,7
END GetProc;
 
BEGIN
Lib := KOSAPI.LoadLib("/rd/1/Lib/Proc_lib.obj");
Lib := KOSAPI.LoadLib("/sys/Lib/Proc_lib.obj");
GetProc(Lib, sys.ADR(Dialog_init), "ColorDialog_init");
GetProc(Lib, sys.ADR(Dialog_start), "ColorDialog_start");
END Load;
/programs/develop/oberon07/lib/KolibriOS/ConsoleLib.ob07
1,5 → 1,5
(*
Copyright 2016, 2018 Anton Krotov
Copyright 2016, 2018, 2022 Anton Krotov
 
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as published by
75,7 → 75,7
END GetProc;
 
BEGIN
Lib := KOSAPI.LoadLib("/rd/1/lib/Console.obj");
Lib := KOSAPI.LoadLib("/sys/lib/Console.obj");
ASSERT(Lib # 0);
GetProc(Lib, sys.ADR(version), "version");
GetProc(Lib, sys.ADR(init), "con_init");
/programs/develop/oberon07/lib/KolibriOS/Debug.ob07
1,5 → 1,5
(*
Copyright 2016, 2018 Anton Krotov
Copyright 2016, 2018, 2022 Anton Krotov
 
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as published by
285,7 → 285,7
info.param := sys.SADR(" ");
info.rsrvd1 := 0;
info.rsrvd2 := 0;
info.fname := "/rd/1/develop/board";
info.fname := "/sys/develop/board";
res := KOSAPI.sysfunc2(70, sys.ADR(info))
END Open;
 
/programs/develop/oberon07/lib/KolibriOS/KOSAPI.ob07
1,7 → 1,7
(*
BSD 2-Clause License
 
Copyright (c) 2018-2019, Anton Krotov
Copyright (c) 2018-2019, 2022 Anton Krotov
All rights reserved.
*)
 
338,8 → 338,10
 
 
PROCEDURE [stdcall] dll_Load* (import_table: INTEGER): INTEGER;
CONST
path = "/sys/lib/";
VAR
imp, lib, exp, proc, res: INTEGER;
imp, lib, exp, proc, res, pathLen: INTEGER;
fail, done: BOOLEAN;
procname, libname: STRING;
 
348,12 → 350,13
fail := FALSE;
done := FALSE;
res := 0;
libname := "/rd/1/lib/";
libname := path;
pathLen := LENGTH(libname);
REPEAT
SYSTEM.GET(import_table, imp);
IF imp # 0 THEN
SYSTEM.GET(import_table + 4, lib);
GetStr(lib, 10, libname);
GetStr(lib, pathLen, libname);
exp := sysfunc3(68, 19, SYSTEM.ADR(libname[0]));
fail := exp = 0;
ELSE
/programs/develop/oberon07/lib/KolibriOS/OpenDlg.ob07
1,5 → 1,5
(*
Copyright 2016, 2018, 2020, 2021 Anton Krotov
Copyright 2016, 2018, 2020-2022 Anton Krotov
 
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as published by
113,7 → 113,7
res.filter_area.size := LENGTH(res.filter_area.filter);
res.procinfo := sys.ADR(res.procinf[0]);
res.com_area_name := sys.ADR(res.s_com_area_name[0]);
res.start_path := sys.SADR("/rd/1/File managers/opendial");
res.start_path := sys.SADR("/sys/File managers/opendial");
res.opendir_path := sys.ADR(res.s_opendir_path[0]);
res.dir_default_path := sys.ADR(res.s_dir_default_path[0]);
res.openfile_path := sys.ADR(res.FilePath[0]);
148,7 → 148,7
END GetProc;
 
BEGIN
Lib := KOSAPI.LoadLib("/rd/1/Lib/Proc_lib.obj");
Lib := KOSAPI.LoadLib("/sys/Lib/Proc_lib.obj");
GetProc(Lib, sys.ADR(Dialog_init), "OpenDialog_init");
GetProc(Lib, sys.ADR(Dialog_start), "OpenDialog_start");
END Load;
/programs/develop/oberon07/lib/KolibriOS/RasterWorks.ob07
1,5 → 1,5
(*
Copyright 2016, 2018 KolibriOS team
Copyright 2016, 2018, 2022 KolibriOS team
 
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as published by
110,7 → 110,7
END GetProc;
 
BEGIN
Lib := KOSAPI.LoadLib("/rd/1/lib/RasterWorks.obj");
Lib := KOSAPI.LoadLib("/sys/lib/RasterWorks.obj");
ASSERT(Lib # 0);
GetProc(Lib, sys.ADR(drawText), "drawText");
GetProc(Lib, sys.ADR(cntUTF_8), "cntUTF-8");
/programs/develop/oberon07/lib/KolibriOS/libimg.ob07
1,5 → 1,5
(*
Copyright 2016, 2018, 2020 KolibriOS team
Copyright 2016, 2018, 2020, 2022 KolibriOS team
 
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as published by
407,7 → 407,7
END GetProc;
 
BEGIN
Lib := KOSAPI.LoadLib("/rd/1/lib/libimg.obj");
Lib := KOSAPI.LoadLib("/sys/lib/libimg.obj");
ASSERT(Lib # 0);
GetProc(Lib, sys.ADR(img_is_img) , "img_is_img");
GetProc(Lib, sys.ADR(img_to_rgb) , "img_to_rgb");
/programs/develop/oberon07/samples/Dialogs.ob07
85,7 → 85,7
back_color := 00FFFFFFH;
header := "Dialogs";
draw_window;
Open := OpenDlg.Create(draw_window, 0, "/rd/1", "ASM|TXT|INI");
Open := OpenDlg.Create(draw_window, 0, "/sys", "ASM|TXT|INI");
Color := ColorDlg.Create(draw_window);
WHILE TRUE DO
CASE WaitForEvent() OF