| /programs/bcc32/examples/file_open/1.txt |
|---|
| 0,0 → 1,12 |
| /\__/\ |
| | - - | |
| * ^--^ * |
| x=--=x |
| | | |
| | | |
| | | | | . |
| | |__| |\___// |
| vv vv *---* |
| Keeka: Simply the best cat in the Universe. |
| /programs/bcc32/examples/file_open/2.txt |
|---|
| 0,0 → 1,19 |
| @@@@@@@@@@@@ @@@@@@@@ |
| @............@ @........@ |
| @..............@ @..........@ |
| @.......@@@.....@ @......@.....@ |
| @.......@ @.....@@@@@@......@@......@ |
| @......@ @.................@@.......@ |
| @....@ @.....@@......@@....@.......@ |
| @..@ @.........@.........@......@ |
| @@ @...................@@....@ |
| @.......@@@.......@ @..@ |
| @...............@ @@ |
| @...............@ |
| @.................@ |
| @...................@ |
| @.....................@ |
| @.......@@......@@......@ @@ |
| @......@....@..@....@.....@@..@ |
| @......@....@..@....@.........@ |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@ |
| /programs/bcc32/examples/file_open/Makefile |
|---|
| 0,0 → 1,19 |
| # Path to /programs |
| SVN_PROGR:=../../.. |
| # Path to /programs/bcc32 |
| SVN_BCC32:=$(SVN_PROGR)/bcc32 |
| # Path to t2fasm |
| T2FASM:=$(SVN_BCC32)/t2fasm |
| # Path to include |
| INCLUDE:=$(SVN_BCC32)/include |
| # Path to Bin folder |
| KOS32_BCC:=/home/autobuild/borlandcpp/bin |
| # Filename without .cpp |
| FILENAME:=file_open |
| include $(SVN_BCC32)/Makefile_app |
| /programs/bcc32/examples/file_open/file_open.cpp |
|---|
| 0,0 → 1,105 |
| #include <kolibri.h> |
| #include <kos_heap.h> |
| #include <kos_file.h> |
| using namespace Kolibri; |
| const char header[] = "File open"; |
| unsigned char* f_data = 0; |
| bool KolibriOnStart(TStartData &kos_start, TThreadData /*th*/) |
| { |
| kos_start.Left = 10; |
| kos_start.Top = 40; |
| kos_start.Width = 300; |
| kos_start.Height = 220; |
| kos_start.WinData.WindowColor = 0xFFFFFF; |
| kos_start.WinData.WindowType = 0x34; // 0x34 - fixed, 0x33 - not fixed |
| kos_start.WinData.Title = header; |
| return true; |
| } |
| void KolibriOnPaint(void) |
| { |
| // If button have ID 1, this is close button |
| DrawButton(2,0xf0f0f0, 10,10,50,20); |
| DrawText(20,16,0,"1.txt"); |
| DrawButton(3,0xf0f0f0, 70,10,50,20); |
| DrawText(80,16,0,"2.txt"); |
| if (f_data){ |
| long i=0, j, y=0; |
| char buf[300]; |
| do{ |
| j=0; |
| while(f_data[i] && f_data[i]!=13 && f_data[i]!=10){ |
| buf[j]=f_data[i]; |
| i++; |
| j++; |
| }; |
| buf[j]=0; |
| DrawText(10,45+9*y,0,buf); |
| y++; |
| while(f_data[i]==13 || f_data[i]==10) i++; |
| }while(f_data[i]); |
| } |
| } |
| void KolibriOnButton(long id, TThreadData /*th*/) |
| { |
| FileInfoBlock* file; |
| long int k; |
| switch(id){ |
| case 2: |
| file = FileOpen("1.txt"); |
| if (!file){ |
| SetWindowCaption("Error open file '1.txt'"); |
| break; |
| } |
| k = FileGetLength(file); |
| if (k > 0){ |
| if(f_data) Free(f_data); |
| f_data = (unsigned char*)Alloc(k); |
| if (f_data){ |
| if (FileRead(file, f_data, k) != k){ |
| Free(f_data); f_data = 0; |
| } |
| else{ |
| SetWindowCaption("1.txt"); |
| Redraw(1); |
| } |
| } |
| } |
| FileClose(file); |
| break; |
| case 3: |
| file = FileOpen("2.txt"); |
| if (!file){ |
| SetWindowCaption("Error open file '2.txt'"); |
| break; |
| } |
| k = FileGetLength(file); |
| if (k > 0){ |
| if(f_data) Free(f_data); |
| f_data = (unsigned char*)Alloc(k); |
| if (f_data){ |
| if (FileRead(file, f_data, k) != k){ |
| Free(f_data); f_data = 0; |
| } |
| else{ |
| SetWindowCaption("2.txt"); |
| Redraw(1); |
| } |
| } |
| } |
| FileClose(file); |
| //break; |
| }; |
| } |
| bool KolibriOnClose(TThreadData /*th*/) { |
| if(f_data) {Free(f_data); f_data = 0;} |
| return true; |
| } |
| /programs/bcc32/examples/file_open/file_open_cpp.bat |
|---|
| 0,0 → 1,16 |
| Set NAME=file_open |
| Set BCC_DIR=..\..\..\bcc32 |
| kos32-bcc -S -v- -R- -6 -a4 -O2 -Og -Oi -Ov -OS -k- -D__KOLIBRI__ -I..\..\..\bcc32\include %NAME%.cpp |
| echo STACKSIZE equ 102400> kos_make.inc |
| echo HEAPSIZE equ 102400>> kos_make.inc |
| echo include "%BCC_DIR%\include\kos_start.inc">> kos_make.inc |
| echo include "%BCC_DIR%\include\kos_func.inc">> kos_make.inc |
| echo include "%BCC_DIR%\include\kos_heap.inc">> kos_make.inc |
| echo include "kos_make.inc" > f_%NAME%.asm |
| t2fasm < %NAME%.asm >> f_%NAME%.asm |
| fasm f_%NAME%.asm %NAME%.kex |
| if exist %NAME%.kex kpack %NAME%.kex |
| if exist %NAME%.kex del kos_make.inc |
| pause |